fpoly.txt

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

Sub FPOLY(X, P(), NP)
    P(1) = 1#
    For J = 2 To NP
        P(J) = P(J - 1) * X
    Next J
End Sub