作业帮 > 综合 > 作业

1)分别画出 y=x^n*Sin[1/x],当 n=0,1,2,3 时的图形;mathematica软件

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/04/29 18:10: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软件
把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}]]