d14r2.bas

来自「VB常用数值算法集 内含有解线性代数方程组」· BAS 代码 · 共 12 行

Attribute VB_Name = "Module1"

Sub DERIVS(X, Y(), DYDX())
      Dim Y1(4)
      DYDX(1) = -Y1(2)
      DYDX(2) = Y1(1) - (1# / X) * Y1(2)
      DYDX(3) = Y1(2) - (2# / X) * Y1(3)
      DYDX(4) = Y1(3) - (3# / X) * Y1(4)
End Sub