资源描述：
《哈工大材料力学上机编程报告.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、材料力学上机作业压杆稳定分析班号：11学号：H姓名：时间:2013-6-201问题描述一压杆稳定分析输入：1.裁面参数输入圆截面一d圆环截面一D,d矩形截面一h,b工字型截面一对形心轴的惯性矩ly、b及截面面积A2.相当长度系数错误!未找到引用源。、长度I3.材料参数：E、，op.Os；线性经验公式系数日、b4.工作压力P及稳定安全系数m输出：1.绘制临界应力总图（图TF）2.临界压力Per或临界应力oer3.稳定安全校核结果2程序PrivateSubCommand1_C1ick()Form1.HideForm2.ShowEndSu
2、bPrivateSubCommand2_Click()Form1.HideForm3.ShowEndSubPrivateSubCommand3_Click()Form1.HideForm4.ShowEndSubPrivateSubCommand4_Click()Form1.HideForm4.ShowEndSubPrivateSubCommand1_Click()Dimd,u,1,e,tp,ts,a,b,p,n,tAsDoubleDimi,sAsDoubleDimr,iprsAsDoubleConstpi=3.1415d=Text1
3、.Textu=Text2.Text1=Text3.Texte=Text4.Texttp=Text5.Textts=Text6.Texta=Text7.Textb=TextS.Textp=Text9.Textn=TextlO.Texti=pi*dA4/64s=pi*d*d/4r=1000*u*1/Sqr(i/s)rp=pi*Sqr(e/tp)rs=(a-ts)/bIfr>=rpThent=pi人2*e/(i•人2*n)Textl1.Text=tIfp/s<=tThendl=Textl.Textd2=Textl3.Textu=Text2
4、.Text1=Text3.Texte=Text4.Texttp=Text5.Textts=Text6.Texta=Text7.Textb=TextS.Textp=Text9.Textn=TextIO.Texti=pi*(dI人4・d2A4)/64s=pi*(dlA2-d2A2)/4r=1000*u*1/Sqr(i/s)rp=pi*Sqr(e/tp)rs=(a・ts)/bIfr>=rpThent=pi人2*e/(「A2*n)Textl1.Text=tIfp/s<=tThenTextl2.Text=”满足稳定条件”ElseTextl2.
5、Text=”不满足稳定条件“EndIfElselfr>=rsThent=(a-b*r)/nTextl1.Text=tIfp/s<=tThenTextl2.Text=”满足稳定条件”ElseTextl2.Text=”不满足稳定条件”EndIfElseTextl1.Text=,n,Textl2.Text=Hg是一个强度问题“EndIfDimyAsDoublePicture1.CisPicture!.ScaleMode=0Picture1.Scale(-10,300)-(200,-10)Textl2.Text=“满足稳定条件”ElseTe
6、xtl2.Text=“不满足稳定条件”EndIfElselfr>=rsThent=(a・b*r)/nTextl1.Text=tTfp/s<=tThenTextl2.Text=“满足稳定条件”ElseTextl2.Text=“不满足稳定条件”EndIfElseTextl1.Text=,H,Textl2.Text=n这是一个强度问题”EndIfDimyAsDoublePicture1.CisPicture!.ScaleMode=0Picture1.Scale(-10,300)-(200,-10)Picture1.DrawWidth=1P
7、icture1.Line(0,0)-(200,0),RGB(0,0,255)Picture1.Line(0,0)-(0,300),RGB(0,0,255)Forx=0TorsStep0.01y=tsPicture1.PSet(x,y),RGB(255,0,0)NextxForx=rsTorpStep0.01y=a-b*xPicture1.PSet(x,y),RGB(255,0,0)NextxForx=ipTo300Step0.01y=piA2*e/xA2Picture1.PSet(x,y),RGB(255,0,0)NextxEndS
8、ubPrivateSubCommand1_C1ick()Dimdl,d2,u,1,e,tp,ts,a,b,p,n,tAsDoubleDimi,sAsDoubleDimr,rp,rsAsDoubleConstpi=3.1415Pictu
