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]:=
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]:=
ListPlot[data, AspectRatio -> Automatic]
Out[2]=
Glätten Sie die simulierte Raumkurve mit BlockMap unter Verwendung eines gleitenden TrimmedMean, um mögliche Ausreißer zu entfernen.
In[3]:=
smooth[r_] := BlockMap[TrimmedMean, data, r, 1]
Vergrößern Sie das Fenster, um eine gleichmäßigere Raumkurve zu erhalten.
In[4]:=
Table[ListPlot[smooth[r],
AspectRatio -> Automatic], {r, {25, 50, 100, 200}}]
Out[4]=