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,z - 200]/4},All}]

壮观的失败： Plot[{pulse[5,30,z - 260]/4},All}]

有没有一种方法可以解决此问题，从而无论参数是什么，所有脉冲都显示出来？

解决方法

让我们尝试看看我们能否得到同样的东西。

转到

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，似乎在显示的绘图中几乎没有什么变化，只会使速度变慢。

该网页是一项非常不错的免费服务，对输入的大小和中止之前的时间有严格的限制。请不要滥用它。谢谢