实验四:泰勒公式与函数逼近

cosx泰勒公式的图像展示

一.固定x0=0,观察n对其影响

1.代码:

t = Table[Normal[Series[Cos[x], {x, 0, i}]], {i, 1, 13, 2}];
PrependTo[t, Sin[x]];
Plot[Evaluate[t], {x, -Pi, Pi}]

2.运行结果:

二.做出原图与泰勒展开结果的比较图

1.代码:

For[i = 1, i <= 11, a = Normal[Series[Cos[x], {x, 0, i}]];
b = Plot[{a, Cos[x]}, {x, -2 Pi, 2 Pi},
PlotStyle -> {RGBColor[0, 0, 1], RGBColor[1, 0, 0]}];
Print[b];
i += 2]

2.运行结果: