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

  • A+

 

第十九题--多项式拟合

 

 

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]

 

 

 

  • 微信公众号
  • 关注微信公众号
  • weinxin
  • QQ群
  • 我们的QQ群号
  • weinxin
王 茂南

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: