逐次反応　ホームページプログラミング　

diffeq1.html

VBScript中の微分方程式部分の記述

(VBScript の微分方程式の部分) 
Sub SUB2000
'---------ﾋﾞﾌﾞﾝ ﾎｳﾃｲｼｷ
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