simp1.txt

用VB实现的函数的极致和最优化 包括黄金分割搜索法、不用导数的布伦特法 用导数的布伦特法、多元函数的山单纯形法、多元函数的变尺度法等

Sub SIMP1(A(), MP, NP, MM, LL(), NLL, IABF, KP, BMAX)
    KP = LL(1)
    BMAX = A(MM + 1, KP + 1)
    For K = 2 To NLL
        If IABF = 0 Then
            TEST = A(MM + 1, LL(K) + 1) - BMAX
        Else
            TEST = Abs(A(MM + 1, LL(K) + 1)) - Abs(BMAX)
        End If
        If TEST > 0# Then
            BMAX = A(MM + 1, LL(K) + 1)
            KP = LL(K)
        End If
    Next K
End Sub