function [x,fx]=Gold(a,b,i,R2,R4,R5,R6,R8,UG0,UG2,UD0,UD3,UA0)
%初始區間為a,b,相對精度e 即為原區間的多少分之,x0為初始值，h為步長
e=0.0001;
while abs(b-a)>=e
x1=a+0.382.*(b-a);  f1=F(x1,i,R2,R4,R5,R6,R8,UG0,UG2,UD0,UD3,UA0);
x2=a+0.618.*(b-a);  f2=F(x2,i,R2,R4,R5,R6,R8,UG0,UG2,UD0,UD3,UA0);
if f1<f2
             b=x2;
             x2=x1;
             f2=f1;
 else
             a=x1;
             x1=x2;
             f1=f2;
end
end

%    if f1<f2
%        x1=a+0.382.*(b-a);
%        f1=F(x1);
%    else
%        x2=a+0.618.*(b-a);
%        f2=F(x2);
%    end  
x=(a+b)/2;
fx=F(x,i,R2,R4,R5,R6,R8,UG0,UG2,UD0,UD3,UA0);