转向梯形优化设计matlab程序.docxVIP

--WORD格式---可编辑-- -- 优化计算 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-10’ ,’‘,TolCon‘le-6’’),‘ le [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