优化计算MATLAB程序
首先,将目标函数写成M文件,其程序语句如下; function f = fun (x) global K L thetamax alpha for i=1:61 f = 0
betae = atan(tan(alpha(i)/(1-(K/L)*tan(alpha(i)))); A(i)=2*x(1).^2*sin(x(2)+alpha(i));
B(i)=2*K*x(1)-2*x(1).^2*cos(x(2)+alpha(i));
C(i)=2*x(1).^2-4*x(1).^2*(cos(x(2)).^2+4*K*x(1)*cos(x(2))-2*K*x(1)*cos(x(2)+alpha(i));
theta3(i)= 2*acot((A(i)+sqrt(A(i).^2+B(i).^2-C(i).^2))/(B(i)+C(i))); beta(i)=x(2)+theta3(i)-pi; if alpha(i)<=pi/18
f(i)=1.5*abs(beta(i)-betae3(i));
elseif alpha>=pi/18,alpha(i)<=pi/9;f(i)=abs(betaa(i)-betae3(i)); elsef(i)=0.5*abs(beta(i)-betae3(i)); global K L thetamax alpha K=input L=input thetamax=input x0(1)=input
x0(2)=input
thetamax = thetamax*pi/180;
x0(2)=x0(2)*pi/180;lb(1)=0.17K; lb(2)=0.17*K; ub(1)=acot(K/(1.2*L)) ub(2)=pi/2;
alpha=linspace (0, theamax ,61); lb=[lb(1),lb(2)];
ub=[ub(1),ub(2)];x(0)=[x0(1),x0(2)];
options = optimset ( ‘TolFun’,‘le-10’,‘TolCon’,‘le-6’) [x,resnorm] = lsqnonlin(‘fun’,x0,lb,ub,options) g lobal K L thetamax alpha K = input L= input
thetamax= input x ( 1) = input x ( 2) = input
thetamax = thetamax * pi/ 180; x ( 2) = x ( 2) * pi/ 180;
alpha= linspace( 0, thetamax , 61) ; fo r i= 1∶61
betae= atan( tan( alpha( i) ) / (( 1- K/ L) * tan( alpha( i) ) ) ) ; A ( i) = 2* ( x ( 1) ) .∧2* sin ( x ( 2) + alpha( i) ) ;
B( i) = 2* K* x( 1) - 2* ( x ( 1) ) . ∧2* cos( x( 2) + alpha( i) ) ) ;
C ( i ) = 2* ( x ( 1) ) . ∧ 2- 4 * ( x ( 1) ) . ∧ 2*( cos( x( 2) ) ) . ∧2+ 4* K * x ( 1) * cos( x ( 2) ) - 2* K* x ( 1) * cos( x ( 2) + alpha( i) ) ;
theta3(i)= 2* acot ( A( i) + sqr t ( ( ( A( i) ) .∧2+( B( i) ) . ∧2- * ( C( i) ) . ∧2) ) /( B( i) + C( i) ) ) ; beta( i) = x ( 2) + theta3( i) - pi; end
plot ( alpha( i) , betae( i ) ,‘r’); hold on
plot ( alpha ( i) , beta( i) ,‘b’) hold o ff