18-曲线拟合和多项式拟合-1.m

来自「MATLAb 机械源码文件好东西啊」· M 代码 · 共 44 行

% 绘制6种类型曲线
a = 5;
lx=input('选择曲线类型：1-双曲线;2-幂函数;3-负指数;4-S型;5-指数;6-对数;7-直线 = ');
b=input('输入正系数或负系数：b = ');
fprintf (1,'      常数 a = %3.6f \n',a)
fprintf (1,'      系数 b = %3.6f \n',b)
xx = 1 : 0.1 : 10;
switch lx
   case 1
      yy = xx ./ (a .* xx + b );
   case 2
      yy = a * xx .^ b;      
   case 3
      yy = a * exp(b ./ xx);
   case 4
      yy = 1 ./ (a + b .* exp(-xx));
   case 5
      yy = a * exp(b .* xx);
   case 6
      yy = a + b .* log(xx) / log(10);
   case 7
      yy = a + b .* xx;
end
subplot(3,2,lx)
plot(xx, yy,'b-')
grid
% 图形标题-曲线类型和公式(字符黑体,公式斜体)
switch lx
   case 1
      title('\bf  双曲线 \it y=x/(ax+b)')
   case 2
      title('\bf  幂函数曲线 \it y=ax^b')
   case 3
      title('\bf  负指数曲线 \it y=ae^{b/x}')
   case 4
      title('\bf  S型曲线 \it y=1/(a+be^{-x})')
   case 5
      title('\bf  指数曲线 \it y=ae^{bx}')
   case 6
      title('\bf  对数曲线 \it y=a+bln(x)')
   case 7
      title('\bf  直线 \it y=a+bx')
end