1)分别画出 y=x^n*Sin[1/x],当 n=0,1,2,3 时的图形;mathematica软件rt把程序写出来就好,我想知道有没有那种能通过编程解决的,而不是作4次图像

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 02:21:55

1)分别画出 y=x^n*Sin[1/x],当 n=0,1,2,3 时的图形;mathematica软件rt把程序写出来就好,我想知道有没有那种能通过编程解决的,而不是作4次图像
1)分别画出 y=x^n*Sin[1/x],当 n=0,1,2,3 时的图形;mathematica软件
rt
把程序写出来就好,我想知道有没有那种能通过编程解决的,而不是作4次图像

1)分别画出 y=x^n*Sin[1/x],当 n=0,1,2,3 时的图形;mathematica软件rt把程序写出来就好,我想知道有没有那种能通过编程解决的,而不是作4次图像
把4个函数图象画在一起
Plot[Evaluate[Table[x^n*Sin[1/x],{n,1,4}]],{x,-1,1},PlotStyle -> {Orange,Red,Blue,Black}]
4个函数图象分开,高级一点的画法
f = Plot[x^#*Sin[1/x],{x,-1,1},PlotStyle -> {Orange,Red,Blue,Black}] &;
GraphicsGrid[Map[f,{{1,2},{3,4}},{2}]]

补充:
f = Plot[x^#*Sin[1/x], {x, -1, 1},
PlotStyle -> {Orange, Red, Blue, Black}[[#]]] &;
GraphicsGrid[Map[f, {{1, 2}, {3, 4}}, {2}]]