バネで固定された粒子のシミュレーション †

確率過程のシミュレーションを考える前に，今回はひとまず通常の確率的ではない（＝決定論的）運動のシミュレーションを扱う．例題として原点にバネで固定された粒子のシミュレーションをオイラー法を用いて行う．粒子はバネから受ける力の他に，速度に比例した抵抗力を受けるものとする．

↑

運動方程式 †

#mathjax(\frac{d\mathbf{R}(t)}{dt}=\mathbf{V}(t) \tag{1})

#mathjax(m\frac{d\mathbf{V}(t)}{dt}=-\zeta\mathbf{V}(t)-k\mathbf{R}(t) \tag{2})

  • &mathjax{\mathbf{R}(t)};: 粒子の位置座標
  • &mathjax{\mathbf{V}(t)};: 粒子の速度
  • &mathjax{t};: 時間
  • &mathjax{m};: 粒子の質量
  • &mathjax{k};: バネ定数
  • &mathjax{\zeta};: 粒子の摩擦係数
↑

オイラー法 †

運動方程式(1)(2)を初期時刻&mathjax{t=0};から任意の時刻&mathjax{t};まで積分し，粒子位置と速度の時間発展&mathjax{\mathbf{R}(0),\mathbf{V}(0)\rightarrow\mathbf{R}(t),\mathbf{V}(t)};を求めたい．とりあえず形式的に&mathjax{0\rightarrow t};間で定積分を行うと次式が得られる．

#mathjax(\mathbf{R}(t)=\mathbf{R}(0)+\int_0^t dt\mathbf{V}(t) \tag{3})

#mathjax(\mathbf{V}(t)=\mathbf{V}(0)-\frac{\zeta}{m}\int_0^t dt\mathbf{V}(t)-\frac{k}{m}\int_0^t dt\mathbf{R}(t) \tag{4})

ここでコンピュータが扱いやすいように時刻&mathjax{t};を小さな間隔&mathjax{\Delta t};で区切り，&mathjax{t_i\equiv i\Delta t \ (i=0,1,2,...)};と離散化して考える．以後簡単のために，&mathjax{\mathbf{R}(t_i)\equiv\mathbf{R}_i};，&mathjax{\mathbf{V}(t_i)\equiv\mathbf{V}_i};と表記する．&mathjax{\Delta t};を十分に小さく取ることで，&mathjax{t_i\rightarrow t_{i+1}};間では被積分関数がほぼ変化しないと期待できるため，以下の様に積分を単純に積で置き換えることが可能となる．

#mathjax(\mathbf{R}_{i+1}=\mathbf{R}_i+\int_{t_i}^{t_{i+1}} dt\mathbf{V}(t)\simeq\mathbf{R}_i+\mathbf{V}_i \Delta t \tag{5})

#mathjax(\mathbf{V}_{i+1}=\mathbf{V}_i-\frac{\zeta}{m}\int_{t_i}^{t_{i+1}} dt\mathbf{V}(t)-\frac{k}{m}\int_{t_i}^{t_{i+1}} dt\mathbf{R}(t)\simeq\left(1-\frac{\zeta}{m}\Delta t\right)\mathbf{V}_i - \frac{k}{m} \mathbf{R}_i \Delta t \tag{6})

これをオイラー法と呼ぶ．この方法は，もとの運動方程式(1)(2)において，以下の様に微分を前進差分で近似することと同じである．

#mathjax(\frac{d\mathbf{R}(t)}{dt}\simeq \frac{\mathbf{R}_{i+1}-\mathbf{R}_{i}}{\Delta t}\tag{7})

#mathjax(\frac{d\mathbf{V}(t)}{dt}\simeq \frac{\mathbf{V}_{i+1}-\mathbf{V}_{i}}{\Delta t} \tag{8})

↑

使用するライブラリのインポート †

% matplotlib nbagg
import numpy as np
import matplotlib.pyplot as plt
import matplotlib.animation as animation
↑

変数の設定 †

dim  = 2                            # 系の次元
nums = 1000                         # シミュレーションのステップ数
R    = np.zeros(dim)                # 粒子の位置座標（瞬間値）
V    = np.zeros(dim)                # 粒子の速度（瞬間値）
Rs   = np.zeros([dim,nums])         # 粒子の位置座標（各ステップの値）
Vs   = np.zeros([dim,nums])         # 粒子の速度（各ステップの値）
Et   = np.zeros(nums)               # 系の全エネルギー（各ステップの値）
time = np.zeros(nums)               # 時刻（各ステップの値）
↑

オイラー法でシミュレーション＆動画表示 †

# System parameters
m    = 1.0                          # 粒子の質量
k    = 1.0                          # バネ定数
zeta = 0.0                          # 粒子の摩擦係数
# Initial condition
R[0] = 1.                           # 粒子位置の初期値(x座標)
R[1] = 0.                           # 粒子位置の初期値(y座標)
V[0] = 0.                           # 粒子速度の初期値(x座標)
V[1] = 0.                           # 粒子速度の初期値(y座標)
# set dt
dt   = 0.05*np.sqrt(k/m)             # dtの設定（バネの振動数の定数倍とする）
# set box size
box  = 5                            # 動画作成領域のサイズ
# First set up the figure, the axis, and the plot element we want to animate
fig, ax = plt.subplots(figsize=(7.5,7.5))
ax = plt.axes(xlim=(-box/2,box/2),ylim=(-box/2,box/2))
particles, = ax.plot([], [], 'ro', ms=10)
line, = ax.plot([], [], lw=1)
title = ax.text(0.5, 1.05, '', transform = ax.transAxes, va='center')
xdata, ydata = [], []

def init():
    particles.set_data([], [])
    line.set_data([], [])
    title.set_text('')
    return particles,line,title 

def animate(i):
    global R,V,F,Rs,Vs,time,Et
    V = V*(1-zeta/m*dt)-k/m*dt*R   # オイラー法で粒子速度の積分
#    V = V*(1-zeta/m*dt)-k/m*dt*np.linalg.norm(R)**2*R   # オイラー法で粒子速度の積分
    R = R + V*dt                    # オイラー法で粒子位置の積分
    xdata.append(R[0])
    ydata.append(R[1])
    particles.set_data(R[0], R[1])
    line.set_data(xdata, ydata)
    title.set_text("t = "+str(i*dt)+"  Et = "+str(Et[i]))
    Rs[0:dim,i]=R                   # 粒子位置の瞬間値を保存
    Vs[0:dim,i]=V                   # 粒子速度の瞬間値を保存
    time[i]=i*dt                    # 時刻の瞬間値を保存
    Et[i]=0.5*m*np.linalg.norm(V)**2+0.5*k*np.linalg.norm(R)**2   # 系の全エネルギーの瞬間値を保存
#    Et[i]=0.5*m*np.linalg.norm(V)**2+0.25*k*np.linalg.norm(R)**4   # 系の全エネルギーの瞬間値を保存
    return particles,line,title

anim = animation.FuncAnimation(fig, animate, init_func=init,
                               frames=nums, interval=5, blit=True, repeat=False)
↑

保存された種々のデータ(A(t), B(t), ...)を時刻(t)の関数としてプロット †

fig, ax = plt.subplots(figsize=(7.5,7.5))
ax.set_xlabel("$t$", fontsize=20)
ax.plot(time,Et)                # 各時刻の系の全エネルギーをプロット(摩擦がなければ一定，あれば減少するはず)
ax.plot(time,Rs[0])             # 各時刻の粒子位置(x座標)をプロット（動画で見たとおりに振動するはず）
ax.plot(time,Rs[1])             # 各時刻の粒子位置(y座標)をプロット（動画で見たとおりに振動するはず）
ax.legend(['$E_t(t)$','$R_x(t)$','$R_y(t)$'], fontsize=14)
plt.show()
↑

A(t) vs B(t) のようなパラメトリックプロットも可能 †

fig, ax = plt.subplots(figsize=(7.5,7.5))
ax.plot(Rs[0,0:nums],Rs[1,0:nums])  # これで粒子の軌跡が平面上にパラメトリックプロットされるはず
plt.show()
↑

宿題 †

  • シミュレーションの設定（粒子の初期条件，バネ定数，粒子質量，摩擦係数，バネの線形/非線形などなど）を変更して何度か実行し，目的のシミュレーションが実行できていることを確認する．その１つについて系の全エネルギーを時刻の関数としてプロットしたグラフをメールで提出すること．シミュレーションの設定条件もメールに明記すること．