f1dim.txt

常用的数值算法的VB程序

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