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