Mathematica入门习题[19]–多项式拟合

第十九题--多项式拟合

Clear["Global`*"]
point = Table[{i, Log[i]}, {i, 1, 101, 10}];
fn = FindFit[point,
a + b*x + c*x^2 + d*x^3 + e*x^4 + f^x^5, {a, b, c, d, e, f}, x];
ff[x_] := a + b*x + c*x^2 + d*x^3 + e*x^4 + f^x^5 /. fn
Plot[ff[x], {x, 0, 101}]~Show~ListPlot[point]