fleg.txt

VB常用数值算法集 内含有解线性代数方程组

Sub FLEG(X, PL(), NL)
    PL(1) = 1#
    PL(2) = X
    If NL > 2 Then
        TWOX = 2# * X
        F2 = X
        D = 1#
        For J = 3 To NL
            F1 = D
            F2 = F2 + TWOX
            D = D + 1#
            PL(J) = (F2 * PL(J - 1) - F1 * PL(J - 2)) / D
        Next J
    End If
End Sub