Die simulierte Raumkurve eines Teilchens glätten
Glätten Sie mit einer Kombination aus BlockMap und TrimmedMean Daten der Raumkurve eines Teilchens.
Simulieren Sie einen stochastischen Weg, indem Sie die exakte Raumkurve eines Teilchens mit Rauschen versehen.
In[1]:=
![Click for copyable input](assets.de/smooth-a-simulated-particle-trajectory/In_63.png)
exact[u_] := {u Cos[u], u Sin[u]}
noise[u_] := RandomReal[CauchyDistribution[0, 1], 2]
data = Table[exact[u] + noise[u], {u, 0, 6 \[Pi], 1/100}];
In[2]:=
![Click for copyable input](assets.de/smooth-a-simulated-particle-trajectory/In_64.png)
ListPlot[data, AspectRatio -> Automatic]
Out[2]=
![](assets.de/smooth-a-simulated-particle-trajectory/O_66.png)
Glätten Sie die simulierte Raumkurve mit BlockMap unter Verwendung eines gleitenden TrimmedMean, um mögliche Ausreißer zu entfernen.
In[3]:=
![Click for copyable input](assets.de/smooth-a-simulated-particle-trajectory/In_65.png)
smooth[r_] := BlockMap[TrimmedMean, data, r, 1]
Vergrößern Sie das Fenster, um eine gleichmäßigere Raumkurve zu erhalten.
In[4]:=
![Click for copyable input](assets.de/smooth-a-simulated-particle-trajectory/In_66.png)
Table[ListPlot[smooth[r],
AspectRatio -> Automatic], {r, {25, 50, 100, 200}}]
Out[4]=
![](assets.de/smooth-a-simulated-particle-trajectory/O_67.png)