f1dim.txt

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

Function F1DIM(X)
    Dim XT(50)
    For J = 1 To NCOM
        XT(J) = PCOM(J) + X * XICOM(J)
    Next J
    F1DIM = FUNC2(XT(), NCOM)
    Erase XT
End Function