mathematica中如何曲线拟合

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