golden.txt

来自「用VB实现的函数的极致和最优化 包括黄金分割搜索法、不用导数的布伦特法 用导」· 文本 代码 · 共 39 行

Function GOLDEN(AX, BX, CX, TOL, XMIN)
    R = 0.61803399
    C = 0.38196601
    X0 = AX
    X3 = CX
    If Abs(CX - BX) > Abs(BX - AX) Then
        X1 = BX
        X2 = BX + C * (CX - BX)
    Else
        X2 = BX
        X1 = BX - C * (BX - AX)
    End If
    F1 = FUNC(X1)
    F2 = FUNC(X2)
    While Abs(X3 - X0) > TOL * (Abs(X1) + Abs(X2))
        If F2 < F1 Then
            X0 = X1
            X1 = X2
            X2 = R * X1 + C * X3
            F0 = F1
            F1 = F2
            F2 = FUNC(X2)
        Else
            X3 = X2
            X2 = X1
            X1 = R * X2 + C * X0
            F3 = F2
            F2 = F1
            F1 = FUNC(X1)
        End If
    Wend
    If F1 < F2 Then
        GOLDEN = F1
        XMIN = X1
    Else
        GOLDEN = F2
        XMIN = X2
    End If
End Function