Question

mathematica中如何曲线拟合

Answer 1

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}]

Answer 2

曲线拟合方法如下：
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
对于非线性拟合,一个适当的参数初始值往往是必要。

Answer 3

FindFit和Fit这两条命令