bessk.txt

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

Function BESSK(N, X)
    If N < 2 Then
        Print "bad argument N in BESSK"
        Exit Function
    End If
    TOX = 2# / X
    BKM = BESSK0(X)
    BK = BESSK1(X)
    For J = 1 To N - 1
        BKP = BKM + J * TOX * BK
        BKM = BK
        BK = BKP
    Next J
    BESSK = BK
End Function