機械原理大作業(yè)一連桿機構參考例子(編輯修改稿)
2025-07-22 19:44 本頁面
【文章內容簡介】 dxb(1,m))^2+(ydyb(1,m))^2)。 if (lbd(1,m)(li+lj)amp。amp。lbd(1,m)abs(ljli)) jbcd(1,m)=acos((li*li+lbd(1,m)*lbd(1,m)lj*lj)/(2*li*lbd(1,m)))。 elseif lbd(1,m)==(li+lj) jbcd(1,m)=0。 elseif (lbd(1,m)==abs(ljli)amp。amp。(lilj)) jbcd(1,m)=0。 elseif (lbd(1,m)==abs(ljli)amp。amp。(lilj)) jbcd(1,m)=pi。 end if (xdxb(1,m) amp。amp。 yd=yb(1,m)) fdb(1,m)=atan((ydyb(1,m))/(xdxb(1,m)))。 elseif (xd==xb(1,m) amp。amp。 ydyb(1,m)) fdb(1,m)=pi/2。 elseif (xdxb(1,m)amp。amp。yd=yb(1,m)) fdb(1,m)=atan((ydyb(1,m))/(xdxb(1,m)))+pi。 elseif (xd==xb(1,m)amp。amp。ydyb(1,m)) fdb(1,m)=3*pi/2。 elseif (xdxb(1,m)amp。amp。ydyb(1,m)) fdb(1,m)=atan((ydyb(1,m))/(xdxb(1,m)))+2*pi。 elseif (xdxb(1,m)amp。amp。ydyb(1,m)) fdb(1,m)=atan((ydyb(1,m))/(xdxb(1,m)))+pi。 end fi(1,m)=fdb(1,m)jbcd(1,m)。% 桿BC的角位移 if fi(1,m)0 fi(1,m)=fi(1,m)+2*pi。 end end %求點C的坐標 xc=xb+li*cos(fi)。 yc=yb+li*sin(fi)。 for n=1:3601%求桿CD的角位移 if (xc(1,n)xd amp。amp。 yc(1,n)=yd) fj(1,n)=atan((yc(1,n)yd)/(xc(1,n)xd))。 elseif (xc(1,n)==xd amp。amp。 yc(1,n)yd) fj(1,n)=pi/2。 elseif (xc(1,n)xd amp。amp。 yc(1,n)=yd) fj(1,n)=atan((yc(1,n)yd)/(x
語文相關推薦
鄂ICP備17016276號-1