资源描述：
《哈工大材料力学上机大作业(压杆稳定)》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、材料力学上机大作业压杆稳定分析作者班号：1008102作者学号：作者姓名:指导教师:完成时间：1、题目:压杆稳定分析输入:1.截面参数输入圆截面—d圆环截面—D，d矩形截面—h，b工字型截面—对形心轴的惯性矩Iy、Iz及截面面积A2.相当长度系数、长度l3.材料参数：E、,σp、σs;线性经验公式系数a、b4.工作压力P及稳定安全系数nw输出：1.绘制临界应力总图（图示）2.临界压力Pcr或临界应力σcr3.稳定安全校核结果2、程序及截图PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand2_Cli
2、ck()Form1.HideForm3.ShowEndSubPrivateSubCommand3_Click()Form1.HideForm4.ShowEndSubPrivateSubCommand4_Click()Form1.HideForm4.ShowEndSubPrivateSubCommand1_Click()Dimd,u,l,e,tp,ts,a,b,p,n,tAsDoubleDimi,sAsDoubleDimr,rp,rsAsDoubleConstpi=3.1415d=Text1.Textu=Text2.Textl=Text3.Texte=Text4.Texttp=Text
3、5.Textts=Text6.Texta=Text7.Textb=Text8.Textp=Text9.Textn=Text10.Texti=pi*d^4/64s=pi*d*d/4r=1000*u*l/Sqr(i/s)rp=pi*Sqr(e/tp)rs=(a-ts)/bIfr>=rpThent=pi^2*e/(r^2*n)Text11.Text=tIfp/s<=tThenText12.Text="满足稳定条件"ElseText12.Text="不满足稳定条件"EndIfElseIfr>=rsThent=(a-b*r)/nText11.Text=tIfp/s<=tThenText12.T
4、ext="满足稳定条件"ElseText12.Text="不满足稳定条件"EndIfElseText11.Text=""Text12.Text="这是一个强度问题"EndIfDimyAsDoublePicture1.ClsPicture1.ScaleMode=0Picture1.Scale(-10,300)-(200,-10)Picture1.DrawWidth=1Picture1.Line(0,0)-(200,0),RGB(0,0,255)Picture1.Line(0,0)-(0,300),RGB(0,0,255)Forx=0TorsStep0.01y=tsPicture1.PS
5、et(x,y),RGB(255,0,0)NextxForx=rsTorpStep0.01y=a-b*xPicture1.PSet(x,y),RGB(255,0,0)NextxForx=rpTo300Step0.01y=pi^2*e/x^2Picture1.PSet(x,y),RGB(255,0,0)NextxEndSubPrivateSubCommand1_Click()Dimd1,d2,u,l,e,tp,ts,a,b,p,n,tAsDoubleDimi,sAsDoubleDimr,rp,rsAsDoubleConstpi=3.1415d1=Text1.Textd2=Text13.T
6、extu=Text2.Textl=Text3.Texte=Text4.Texttp=Text5.Textts=Text6.Texta=Text7.Textb=Text8.Textp=Text9.Textn=Text10.Texti=pi*(d1^4-d2^4)/64s=pi*(d1^2-d2^2)/4r=1000*u*l/Sqr(i/s)rp=pi*Sqr(e/tp)rs=(a-ts)/bIfr>=rpThent=pi^2*e/(r^2*n)Text11.Text=tIfp/s<=tThenText12.Text="满足稳定条件"ElseText12.Text="不满足稳定条件"En
7、dIfElseIfr>=rsThent=(a-b*r)/nText11.Text=tIfp/s<=tThenText12.Text="满足稳定条件"ElseText12.Text="不满足稳定条件"EndIfElseText11.Text=""Text12.Text="这是一个强度问题"EndIfDimyAsDoublePicture1.ClsPicture1.ScaleMode=0Picture1.Scale(-10,300)-(200,-10)Pict
