golden.txt

用于开发税务票据管理的软件

Function GOLDEN(AX, BX, CX, TOL:real;var XMIN:real):real;
const
    R = 0.61803399;  C = 0.38196601;
Var
    X0,X3,X1,X2,F0,F1,F2,F3:real;
begin
    X0:=AX;
    X3:=CX;
    If Abs(CX - BX) > Abs(BX - AX) Then
    Begin
        X1:=BX;
        X2:=BX + C * (CX - BX);
    end
    Else
    begin
        X2:=BX;
        X1:=BX - C * (BX - AX);
    end;
    F1:=FUNC(X1);
    F2:=FUNC(X2);
    While Abs(X3 - X0) > TOL * (Abs(X1) + Abs(X2)) do
    begin
        If F2 < F1 Then
        begin
            X0:=X1;
            X1:=X2;
            X2:=R * X1 + C * X3;
            F0:=F1;
            F1:=F2;
            F2:=FUNC(X2);
        end
        Else
        begin
            X3:=X2;
            X2:=X1;
            X1:=R * X2 + C * X0;
            F3:=F2;
            F2:=F1;
            F1:=FUNC(X1);
        end;
    end;
    If F1 < F2 Then
    begin
        GOLDEN:=F1;
        XMIN:=X1;
    end
    Else
    begin
        GOLDEN:=F2;
        XMIN:=X2;
    end;
end;