逐次反応 表計算
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
