Mathematica作图报错,Table[]函数问题f[x_] = Sin[x]Export["e:\\sin(x).jpg",Show[Plot[f[x],{x,-2 \[Pi],8 \[Pi]},PlotStyle -> {Thickness [0.003],Black} ],Plot[Table[Normal[Series[f[x],{x,0,n}]],{n,0,15}],{x,-2 \[Pi],8 \[Pi]},PlotStyle -> {Thickne
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 16:24:09
![Mathematica作图报错,Table[]函数问题f[x_] = Sin[x]Export[](/uploads/image/z/10201990-22-0.jpg?t=Mathematica%E4%BD%9C%E5%9B%BE%E6%8A%A5%E9%94%99%2CTable%5B%5D%E5%87%BD%E6%95%B0%E9%97%AE%E9%A2%98f%5Bx_%5D+%3D+Sin%5Bx%5DExport%5B%22e%3A%5C%5Csin%28x%29.jpg%22%2CShow%5BPlot%5Bf%5Bx%5D%2C%7Bx%2C-2+%5C%5BPi%5D%2C8+%5C%5BPi%5D%7D%2CPlotStyle+-%3E+%7BThickness+%5B0.003%5D%2CBlack%7D+%5D%2CPlot%5BTable%5BNormal%5BSeries%5Bf%5Bx%5D%2C%7Bx%2C0%2Cn%7D%5D%5D%2C%7Bn%2C0%2C15%7D%5D%2C%7Bx%2C-2+%5C%5BPi%5D%2C8+%5C%5BPi%5D%7D%2CPlotStyle+-%3E+%7BThickne)
Mathematica作图报错,Table[]函数问题f[x_] = Sin[x]Export["e:\\sin(x).jpg",Show[Plot[f[x],{x,-2 \[Pi],8 \[Pi]},PlotStyle -> {Thickness [0.003],Black} ],Plot[Table[Normal[Series[f[x],{x,0,n}]],{n,0,15}],{x,-2 \[Pi],8 \[Pi]},PlotStyle -> {Thickne
Mathematica作图报错,Table[]函数问题
f[x_] = Sin[x]
Export["e:\\sin(x).jpg",
Show[
Plot[f[x],{x,-2 \[Pi],8 \[Pi]},
PlotStyle -> {Thickness [0.003],Black} ],
Plot[Table[
Normal[Series[f[x],{x,0,n}]],{n,0,15}],{x,-2 \[Pi],
8 \[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,8}],{-1,1}},
LabelStyle -> Directive[FontFamily -> "黑体",Bold,72],
AxesStyle -> Directive[Thickness[0.0025],Arrowheads[{0.0,0.02}]]
],
ImageSize -> {5800,840}]
General::ivar:-6.28254 is not a valid variable.>>
怎么实现在一个Table里面输出级数的各阶展开?
Mathematica作图报错,Table[]函数问题f[x_] = Sin[x]Export["e:\\sin(x).jpg",Show[Plot[f[x],{x,-2 \[Pi],8 \[Pi]},PlotStyle -> {Thickness [0.003],Black} ],Plot[Table[Normal[Series[f[x],{x,0,n}]],{n,0,15}],{x,-2 \[Pi],8 \[Pi]},PlotStyle -> {Thickne
原因在于函数 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}]
这就是输出的图像,坐标轴范围稍微改了一下,