右端外伸梁计算机程序

《右端外伸梁计算机程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、右端外伸梁计算机程序functionXQM=QMYW(x,L2,MPQ)[nzm]=size(x);L=x(m);xl=[]；fori=l:m-lxl=[xl,linspace(x(i),x(i+l),50)];endMM=zeros(size(xl));QQ=zeros(size(xl));[m,t]=size(MPQ);[t,n]=size(xl);fori=l:mswitchMPQ(i,l)；case1a=MPQ(i,3);M=MPQ(iz2);RA=-M/(L-L2);RB=RA;QQ=QQ+RA;MM=MM+RA*xl;MM=QMM(

2、n,xl,a,M,MM);[QQ,MM]=QMP(n/xl,L-L2,RB,QQ/MM);endcase2P二MPQ(i,2);b=MPQ(i,3);RA=P-Pb/(L-L2);RB=-PL/(L-L2);QQ二QQ+RA;MM=MM+RA*xl;[QQ/MM]=QMP(n,xl/b/P,MM);[QQ/MM]=QMP(n/xl/L-L2,RB,QQ/MM);case3q=MPQ(i,2);c=MPQ(i,3)；d=MPQ(i,4);RA=q*(d-c)-q*(d+c)*(d-c)/[2*(L-L2)];RB=-q*(c+d)*(d-c)/[

3、2*(L-L2)];QQ二QQ+RA;MM=MM+RA*xl;[QQ,MM]=QMQ(n,xl,czd,q,QQ,MM);[QQ,MM]=QMP(n,xl,L-L2,RB,QQ,MM);endend[QDX,MDX,XQM]=MAX_MIN(xl,QQ,MM);TU_QM(xl,QQ,MM);验证程序实例clear;clc;L2=2x=[0,2,4,6]MPQ=[l,-3,2,03,3,0,42,560]XQM=QMYW(x/L2,MPQ);剪力图弯矩图functionTU_QM(xl,QQ,MM)subplot(2,l,l);plot(xl,

4、QQ);grid;titled剪力图J;subplot(2,l,2);plot(xl,MM);grid;function[QDX,MDX,XQM]=MAX_MIN(xl/QQ/MM)XQM=[xl^QQ^MM'];[QmaxJ]=max(QQ);Ql=[xl(i),Qmax];[QminJ]=min(QQ);Q2=[xl(i),Qmin];[MmaxJ]=max(MM);Ml=[xl(i),Mmax];[Mmin川=min(MM);M2=[xl(i),Mmin];QDX=[Q1;Q2]MDX=[M1;M2]functionMM=QMM(n,xl

5、,a,M,MM)forj=l:n讦xl(j)==anl=j；endendMM(nl:n)=MM(nl:n)+M;function二QMPgxlbRQQZM)forj=l:nifxl(j)==bnl=j；endendQQ(nl:n)=QQ(nl:n)-P;MM(nl:n)=MM(nl:n)-P*(xl(nl:n)-b);function[QQ,IVII/l]=QI/lQ(rbX：bcdq’QQ,IVII/l)forj=l:nifxl(j)>cQQ(j)=QQ(j)-q*(xl(j)-c);MM(j)=MM(j)-0.5*q*(xl(j)-c

6、)A2;end讦xl(j)>dQQ(j)=QQ(j)+q*(xl(j)-d);MM(j)=MM(j)+0.5*q*(xl(j)-d)A2;endendfunctionXQM=QMYW(x,L2,MPQ)[n,m]=size(x);L=x(m);Xl=[]；fori=l:m-lxl=[xl,linspace(x(i)zx(i+l),50)];endMM=zeros(size(xl));QQ=zeros(size(xl));[m,t]=size(MPQ);[t,n]=size(xl);fori=l:mswitchMPQ(i,l);case1a=MP

7、Q(i,3);M=MPQ(i,2);RA=-M/(L-L2);RB=-RA;QQ二QQ+RA;MM=MM+RA*xl;ifa>=0&aO&b

8、,L-L2,-RB,QQ,MM);case3q=MPQ(iz2);c=MPQ(b3)；d=MPQ(i,4);RA=q*(d-c)-q*(d-c)*(d