시뮬레이션된 입자 궤도의 평활화: Wolfram Language 11의 신기능

시뮬레이션된 입자 궤도의 평활화

BlockMap과 TrimmedMean을 함께 사용하여 입자 궤도에서 데이터를 평활화합니다.

정확한 궤도에 노이즈를 추가하여 확률적 경로 시뮬레이션을 실시합니다.

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]=

이동 TrimmedMean을 사용하여 가능한 아웃라이너를 제거하고, BlockMap을 사용하여 시뮬레이션 된 궤도를 평활화합니다.

In[3]:=

smooth[r_] := BlockMap[TrimmedMean, data, r, 1]

창 크기를 확대하여 더 매끄러운 궤도를 얻습니다.

In[4]:=

Table[ListPlot[smooth[r], 
  AspectRatio -> Automatic], {r, {25, 50, 100, 200}}]

Out[4]=