流体工学 境界層方程式 ホームページプログラミング 


連立常微分方程式を解く。diffeq2.html

スクリプト部分の記述

(VBScript の微分方程式の部分) 
Sub SUB2000
'---------ビブン ホウテイシキ
Select case NK
Case 0
' [ DYDX=Y(0)' ]
DYDX = Y(1)
Case 1
' [ DYDX=Y(1)' ]
DYDX = Y(2)
Case 2
' [ DYDX=Y(2)' ]
DYDX = -0.5*Y(0)*Y(2)
End Select
End Sub