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

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

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、程序及截图Private Sub Command1_Click()

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

3、s DoubleConst pi = 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 / (

4、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 * 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 /

5、s = t ThenText12.Text = 满足稳定条件ElseText12.Text = 不满足稳定条件End IfElseText11.Text = Text12.Text = 这是一个强度问题End IfDim y As DoublePicture1.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,

6、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 SubPrivate Sub Command1_Click()Dim iy, iz, s, u, l,

7、 e, tp, ts, a, b, p, n, t As DoubleDim 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.TextIf iz = rp Thent = pi 2 * e / (r 2

8、* 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 (-10, 300)-(200, -10)Picture1.DrawWidth = 1Picture1

9、.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

10、), RGB(255, 0, 0)Next xEnd Sub如下图：Dim y As DoublePicture1.Cls Picture1.ScaleMode = 0 Picture1.Scale (-10, 300)-(200, -10) Picture1.DrawWidth = 1 Picture1.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.01 y = ts Picture1.PSet (x, y), RGB(255,

11、 0, 0) Next x For x = rs To rp Step 0.01 y = a - b * x Picture1.PSet (x, y), RGB(255, 0, 0) Next x For x = rp To 300 Step 0.01 y = pi 2 * e / x 2 Picture1.PSet (x, y), RGB(255, 0, 0) Next xPrivate Sub Form_Load()Me.Picture = LoadPicture(E:UsersxjnPicturesLotus.jpg) 自己改图片路径Me.AutoRedraw = TrueEnd SubPrivate Sub Form_Resize()Me.PaintPicture Me.Picture, 0, 0, Me.Width, Me.HeightEnd Sub