逐次反応 表計算 


Excelで連立常微分方程式に挑戦!ルンゲクッタ法で積分をおこなう。プログラムはホームページプラグミングと同じ。微分方程式の記述は以下のよう。

Sub SUB2000()
'---------パラメータ
k1 = Cells(1, 2)
k2 = Cells(2, 2)
'---------ビブン ホウテイシキ
Select Case NK
Case 0
' [ DYDX=Y(0)' ]
DYDX = -k1 * Y(0)
Case 1
' [ DYDX=Y(1)' ]
DYDX = k1 * Y(0) - k2 * Y(1)
Case 2
' [ DYDX=Y(2)' ]
DYDX = k2 * Y(1)
End Select
End Sub

rx05.xls