Mathematica作图报错,Table[]函数问题

原因在于函数 Plot 执行的是非标准计算,那个 Table 并没有生成列表,要想实现输出级数的各阶展开,必须改变 Table 语句的执行次序,也就是用 函数 Evaluate 将 Table 语句先于 Plot 执行.

f[x_] = Sin[x];
Export["e:\sin(x).jpg",
Show[Plot[f[x],{x,-2 [Pi],2 [Pi]},
PlotStyle -> {Thickness[0.003],Black}],
Plot[Evaluate[
Table[Normal[Series[f[x],{x,0,n}]],{n,0,15}]],{x,-2 [Pi],
2 [Pi]},PlotStyle -> {Thickness[0.001],Blue},
PlotRange -> All],PlotRange -> {-2,2},AspectRatio -> 1/8,
PlotLabel -> Style[Sin[x],72],
Ticks -> {Table[n [Pi],{n,-2,2}],{-1,1}},
LabelStyle -> Directive[FontFamily -> "黑体",Bold,72],
AxesStyle -> Directive[Thickness[0.0025],Arrowheads[{0.0,0.02}]]],
ImageSize -> {5800,840}]
这就是输出的图像,坐标轴范围稍微改了一下,