右端外伸梁计算机程序.docxVIP

右端外伸梁计算机程序 function XQM=QMYW(x,L2,MPQ) [nzm]=size(x); L=x(m); xl=[]； for i=l:m-l xl=[xl,linspace(x(i),x(i+l),50)]; end MM=zeros (size(xl)); QQ=zeros (size(xl)); [m,t]=size(MPQ); [t,n]=size(xl); for i=l:m switch MPQ(i,l)； case 1 a=MPQ(i,3); M=MPQ(iz2); RA=-M/(L-L2); RB=RA; QQ=QQ+RA; MM=MM+RA*xl; MM=QMM(n,xl,a,M,MM); [QQ,MM]=QMP(n/xl,L-L2,RB,QQ/MM); end case 2 P 二 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); case 3 q=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)/