fpoly.txt

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

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