Wolfram Language

Lenguaje de núcleo

Suavice una trayectoria simulada de partículas

Utilice una combinación de BlockMap y TrimmedMean para suavizar datos a partir de una trayectoria de partículas.

Simule un comportamiento estocástico mediante la adición de ruido a una trayectoria exacta.

In[1]:=
Click for copyable input
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
ListPlot[data, AspectRatio -> Automatic]
Out[2]=

Suavice la trayectoria simulada con BlockMap usando un TrimmedMean móvil para eliminar posibles valores extremos.

In[3]:=
Click for copyable input
smooth[r_] := BlockMap[TrimmedMean, data, r, 1]

Aumente el tamaño de la ventana para obtener una trayectoria alisada.

In[4]:=
Click for copyable input
Table[ListPlot[smooth[r], AspectRatio -> Automatic], {r, {25, 50, 100, 200}}]
Out[4]=

Ejemplos relacionados

de en fr ja ko pt-br ru zh