材料力学上机作业压杆稳定的计算及判定程序

HHaarrbbiinnIInnssttiittuutteeooffTTeecchhnnoollooggyy材材料料力力学学上上机机作作业业课程名称：材料力学设计题目：压杆稳定的计算及判定程序院系：能源科学与工程学院班级：分析者：学号：指导教师：哈尔滨工业大学2012年6月压杆稳定的计算及判定程序一、程序简介本程序设计目的是判断各种不同截面杆（圆形截面、矩形截面、圆环形截面和工字型截面）的压杆稳定性。通过输入不同截面杆的各项参数，计算杆的临界应力，校核杆的稳定性。二、程序界面1、选择截面类型界面2、计算校核界面三、程序代码PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand2_Click()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=Text5.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.Text=满足稳定条件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.PSet(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)NextxEndSubDimi,sAsDoubleDimr,rp,rsAsDoubleConstpi=3.1415d1=Text1.Textd2=Text13.Textu=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=不满足稳定条件EndIfElseIfr=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)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.PSet(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)NextxEndSubb=Text8.Textp=Text9.Textn=Text10.Texti=h*d^3/12s=h*dr=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.Text=满足稳定条件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.PSet(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()Dimiy,iz,s,u,l,e,tp,ts,a,b,p,n,tAsDoubleDimiAsDoubleDimr,rp,rsAsDoubleConstpi=3.1415iy=Text1.Textiz=Text13.Texts=Text14.Textu=Text2.Textl=Text3.Texte=Text4.Texttp=Text5.Textts=Text6.Texta=Text7.Textb=Text8.Textp=Text9.Textn=Text10.TextIfiziyTheni=izElsei=iyEndIfr=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.Text=满足稳定条件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.PSet(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)NextxEndSub四、测试结果【例1】两端固定的矩形截面钢杆。已知钢杆承受轴向压力P=175KN，杆长L=2m，高为150mm,宽为100mm，E=200Gpa，该型钢σp=200Mpa，σs=240MPa。校核该杆的稳定性。1、在截面选择界面点击“矩形”2、输入各项数据，点击“计算”【例2】两端固定的圆形截面杆。已知钢杆承受轴向压力P=150KN，杆长L=5m，直径为d=160mm，E=200Gpa，该型钢σp=200Mpa，σs=235MPa。校核该杆的稳定性。输入各项数据，结果如图：五、实验总结这次实验，通过自己编写程序解决材料力学问题，一方面加深我对于材料力学所学知识的掌握与理解，增强了解决实际问题的能力；一方面也加强了编程能力，让我学会了通过计算机编程来为学习其他科目提供帮助。虽然这个小程序还有一些不尽完善的地方，但我还是挺满意的。通过这么长时间来自己编写程序，在网上查找相关资料，寻求同学的帮助，这一系列过程使我学到了很多东西，也为我以后的学习积累了很多经验。我相信只要不断地去学习去实践，我以后会做的更好。