材料力學(xué)課程設(shè)計hz140tr2后置旅游車底盤車架(編輯修改稿)
2024-08-30 05:42 本頁面
【文章內(nèi)容簡介】 (0)=a(1)*k ^ 2+a(2)*k+a(3)M0(1000*(l(1)+k))=(M(0)X1*M10X2*M20) ‘車架各點彎矩值(x+1000*l(1)+1000*k,y+S*M0(1000*(l(1)+k)))Next kFor k=0 To l(1)Step M0(1000*k)=k/l(1)*M(1)Next kFor k=0 To l(5)Step M0(1000*(l(1)+l(0)+k))=(l(5)k)/l(5)*M(2)Next kFor k= To l(0)+l(1)+l(5) Step If(M0(1000*k) M0(1000*k1)And M0(1000*k) M0(1000*k+1))Or(M0(1000*k) M0(1000*k1)And M0(1000*k) M0(1000*k+1))ThenPrint Tab(100)。 Round(M0(1000*k),2)amp。 Nm ‘AG各特殊點彎矩值End IfNext kEnd SubPrivate Sub Command2_Click() ‘輸出支反力值Print Tab(100)。 Fc=。 Round(Fc,2)。 NPrint Tab(100)。 Fd=。 Round(X1,2)。 NPrint Tab(100)。 Ff=。 Round(X2,2)。 NPrint Tab(100)。 Fg=。 Round(Fg,2)。 N=FalseEnd SubPrivate Sub Command4_Click() ‘畫車架最大正應(yīng)力曲線x=1000y=8000Print Tab(100)。 AG各特殊點正應(yīng)力值：(x,y)(x+1000*(l(0)+l(1)+l(5)),y)For k=0 To l(0)Step If k l(2)ThenM10=k/l(2)*M11ElseM10=(l(0)k)/(l(0)l(2))*M11End IfIf k l(2)+l(3)ThenM20=k/(l(0)l(4))*M22ElseM20=(l(0)k)/l(4)*M22End IfM(0)=a(1)*k ^ 2+a(2)*k+a(3)M(0)=Abs(M(0)X1*M10X2*M20)σ(3)=M(0)*h(2)/2/I(2)(x+1000*l(1)+1000*k,y+20*10 ^ 6*σ(3))M0(1000*(l(1)+k))=10 ^ 6*σ(3)Next kM0(1000*l(1)1)=0M0(1000*(l(1)+l(0))+1)=0For k=l(1)To l(0)+l(1)Step If(M0(1000*k) M0(1000*k1)And M0(1000*k) M0(1000*k+1))Or(M0(1000*k) M0(1000*k1)And M0(1000*k) _M0(1000*k+1))And Abs(M0(1000*k)) ThenPrint Tab(100)。 amp。 Round(Abs(M0(1000*k)),2)amp。 MPaEnd If ‘輸出AG各特殊點正應(yīng)力值Next kσ(1)=M(1)*h(1)/2/I(1)σ(2)=M(2)*h(3)/2/I(3)(x,y)(x+1000*l(1),y+20*10 ^ 6*σ(1))(x+1000*(l(0)+l(1)+l(5)),y)(x+1000*(l(0)+l(1)),y+20*10 ^ 6*σ(2))(x+1000*l(1),y+20*10 ^ 6*σ(1))(x+1000*l(1),y+20*10 ^ 6*M(1)*h(2)/2/I(2))(x+1000*(l(0)+l(1)),y+20*10 ^ 6*σ(2))(x+1000*(l(0)+l(1)),y+20*10 ^ 6*M(2)*h(2)/2/I(2))End SubPrivate Sub Command5_Click() ‘作簡力圖S=y=4000(x,y)(x+1000*(l(0)+l(1)+l(5)),y)(x,y+S*Fa)(x+1000*l(1),y+S*Fa)(x+1000*l(1),y+S*(FaFc))(x+1000*(l(1)+l(2)),y+S*(FaFc+q*l(2)))(x+1000*(l(1)+l(2)),y+S*(FaFc+q*l(2)X1))(x+1000*(l(1)+l(2)+l(3)),y+S*(FaFcX1+q*(l(2)+l(3))))(x+1000*(l(1)+l(0)l(4)),yS*(FbFg+q*l(4)))(x+1000*(l(1)+l(0)),yS*(FbFg))(x+1000*(l(1)+l(0)),yS*Fb)(x+1000*(l(1)+l(0)+l(5)),yS*Fb) 39。剪力大小(x,y)(x,y+S*Fa)(x+1000*l(1),y+S*Fa)(x
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1