如何解决Mathematica绘图有混叠问题
我想展示几个具有不同间隙的脉冲。我有功能
g[y_] = Piecewise[{{-Sin[y],0 < y < 2 Pi},{0,y < 0},y > 2 Pi}}]
合并为
f[z_,t_] = g[z - t]
和
pulse[n_,t_,z_] = Sum[f[z,i t],{i,n}]
有时会绘制所有脉冲，有时却不会。工作时的示例： Plot[{pulse[5,40,z - 100]/4},{z,1000},PlotRange -> {{0,All}]
![Plot[{pulse[5,40,z - 100]/4},{z,1000},PlotRange -> {{0,All}]](https://i.stack.imgur.com/wlHce.png){kind=link}
失败时的示例： Plot[{pulse[5,z - 200]/4},All}]
![Plot[{pulse[5,z - 200]/4},All}]](https://i.stack.imgur.com/e47yi.png){kind=link}
壮观的失败： Plot[{pulse[5,30,z - 260]/4},All}]
![Plot[{pulse[5,30,z - 260]/4},All}]](https://i.stack.imgur.com/B1W96.png){kind=link}
有没有一种方法可以解决此问题，从而无论参数是什么，所有脉冲都显示出来？
解决方法
让我们尝试看看我们能否得到同样的东西。
转到
https://www.wolframcloud.com/objects/b3m2a1/LetMeMathematicaThatForYou.html
耐心等待，直到出现“键入您的Wolfram ...”。
在其下方的空白处单击鼠标左键。
点击x键，耐心等待直到它出现。
点击退格键，耐心等待直到消失。
抓取n粘贴此
g[y_]:=Piecewise[{{-Sin[y],0<y<2Pi},{0,y<0},y>2Pi}}];
f[z_,t_]:=g[z-t];
pulse[n_,t_,z_]:=Sum[f[z,i*t],{i,n}];
Plot[{pulse[5,30,z-260]/4},{z,1000},PlotRange->All]
进入大的空白区域，耐心等待直到它出现。
Shift + Enter，耐心等待直到结果出现。
我没有高峰。
将最后一行更改为
Plot[{pulse[5,PlotRange->All,PlotPoints->160]
然后按Shift和Enter，然后耐心等待结果出现。
我现在有5个峰。
如果您完全这样做，您得到的结果完全一样吗？
您可以将其更改为160到500，甚至1000，似乎在显示的绘图中几乎没有什么变化，只会使速度变慢。
该网页是一项非常不错的免费服务，对输入的大小和中止之前的时间有严格的限制。请不要滥用它。谢谢
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。