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