哈工大材料力学上机大作业(压杆稳定).pdf

《哈工大材料力学上机大作业(压杆稳定).pdf》由会员分享，可在线阅读，更多相关《哈工大材料力学上机大作业(压杆稳定).pdf（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、材料力学上机大作业压杆稳定分析压杆稳定分析作者班号：作者班号：作者学号：作者学号：作者姓名作者姓名:指导教师指导教师:完成时间：完成时间：100810210081021、题目:压杆稳定分析输入:1.截面参数输入圆截面d圆环截面D，d矩形截面h，b工字型截面对形心轴的惯性矩 Iy、Iz及截面面积 A2.相当长度系数、长度 l3.材料参数：E、,p、s;线性经验公式系数 a、b4.工作压力 P 及稳定安全系数 nw输出：1.绘制临界应力总图（图示）2.临界压力 Pcr或临界应力cr3.稳定安全校核结果2 2、程序及截图、程序及截图End SubPrivate Sub Command4_Click(

2、)Form1.HideForm4.ShowEnd SubPrivate Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Form1.HideForm4.ShowPrivate Sub Command1_Click()Dim d,u,l,e,tp,ts,a,b,p,n,t As DoubleDim i,s As DoubleDim r,rp,rs As DoubleConst pi=3.

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)/bIf r=rp Thent=pi 2*e/(r 2*n)Text11.Text=tIf p/s=rs Thent=(a-b*r)/nText11.Text=tIf p/s=rp Thent=pi 2*e/(r 2*

4、n)Text11.Text=tIf p/s=rs Thent=(a-b*r)/nText11.Text=tIf p/s=rp Thent=pi 2*e/(r 2*n)Text11.Text=tIf p/s=rs Thent=(a-b*r)/nText11.Text=tIf p/s=t ThenText12.Text=满足稳定条件ElseText12.Text=不满足稳定条件End IfElseText11.Text=Text12.Text=这是一个强度问题End IfDim y As DoublePicture1.ClsPicture1.ScaleMode=0Picture1.Scale(-1

5、0,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)For x=0 To rs Step 0.01y=tsPicture1.PSet(x,y),RGB(255,0,0)Next xFor x=rs To rp Step 0.01y=a-b*xPicture1.PSet(x,y),RGB(255,0,0)Next xFor x=rp To 300 Step 0.01y=pi 2*e/x 2Picture1.PSet(x,y

6、),RGB(255,0,0)Next xEnd SubPrivate Sub Command1_Click()Dim iy,iz,s,u,l,e,tp,ts,a,b,p,n,t AsDoubleDim i As DoubleDim r,rp,rs As DoubleConst pi=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.TextI

7、f iz=rp Thent=pi 2*e/(r 2*n)Text11.Text=tIf p/s=rs Thent=(a-b*r)/nText11.Text=tIf p/s=t ThenText12.Text=满足稳定条件ElseText12.Text=不满足稳定条件End IfElseText11.Text=Text12.Text=这是一个强度问题End IfDim y As DoublePicture1.ClsPicture1.ScaleMode=0如下图：Picture1.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)For x=0 To rs Step 0.01y=tsPicture1.PSet(x,y),RGB(255,0,0)Next xFor x=rs To rp Step 0.01y=a-b*xPicture1.PSet(x,y),RGB(255,0,0)Next xFor x=rp To 300 Step 0.01y=pi 2*e/x 2Picture1.PSet(x,y),RGB(255,0,0)Next xEnd Sub