mathematica中如何曲线拟合

Posted 2023-03-09

FindFit 和 Fit 函数，但是函数的形式要你自己确定。函数的形式指的是直线、抛物线、等等
例如
data = Table[x, 2 + x^2 + RandomReal[-0.2, 0.2], x, -2, 2, 0.02];
y = Fit[data, 1, x, x^2, x];
data是离散的点，y是拟合出来的曲线，两个图画出来比较一下就很明白了
p1 = ListPlot[data];
p2 = Plot[y, x, -2, 2, PlotStyle -> Red];
Show[p2, p1] 参考技术A 曲线拟合方法如下：
Variable x,y,z,w;
Parameters a,b,c,d;
Function y=a*x+b;
w=c*z+d;
a*d=b*c;
Data;
//x y z w
1 15 9 -1
2 13 10 -3
3 11
4 9
5 8
6 6
7 3
8 1
对于非线性拟合,一个适当的参数初始值往往是必要。 参考技术B FindFit和Fit这两条命令