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

1、Harbin InstituteofTechnology材料力学上机作业课程名称：材料力学设计题目： 压杆稳定的计算及判定程序院系：能源科学与工程学院班级：分析者：学号：指导教师：哈尔滨工业大学2012年6月压杆稳定的计算及判定程序、程序简介本程序设计目的是判断各种不同截面杆 （圆形截面、矩形截面、圆环形截面和工字 型截面）的压杆稳定性。通过输入不同截面杆的各项参数， 计算杆的临界应力，校核杆 的稳定性。、程序界面1、选择截面类型界面9 / 82、计算校核界面三、程序代码Private Sub Comma nd1_Click()Forml.HideForm2.ShowEnd SubPrivat

2、e Sub Comma nd2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Form1.HideForm4.ShowEnd SubPrivate Sub Command4_Click()Form1.HideForm4.ShowEnd Subt = (a - b * r) / nText11.Text = tIf p / s <= t ThenText12.Text = "满足稳定条件 "ElseText12.Text = "不满足稳定条件 "End IfElseText

3、11.Text = ""Text12.Text = "这是一个强度问题 "End IfPrivate 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.1415 d = Text1.Text u = Text2.Text l = Text3.Text e = Text4.Text tp = Text5.Text ts = Text6.Text a = Text7.T

4、ext b = Text8.Text p = Text9.Text n = Text10.Texti = pi * d A 4 / 64 s = pi * d * d / 4 r = 1000 * u * l / Sqr(i / s) rp = pi * Sqr(e / tp) rs = (a - ts) / b If r >= rp Then t = pi A 2 * e / (r A 2 * n) Text11.Text = t If p / s <= t Then Text12.Text = "满足稳定条件 " ElseText12.Text = &quo

5、t;不满足稳定条件 " End IfElseIf r >= rs ThenDim 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, 255)For x = 0 To rs Step 0.01y = tsPicture1.PSet (x, y), RGB(2

6、55, 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 A 2 * e / x A 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd SubDim i, s As Double Dim r, rp, rs As Double Const pi = 3.1415 d1 = Text1.Text d2 = Text13.Text u = Text2.Te

7、xt l = Text3.Text e = Text4.Text tp = Text5.Textts = Text6.Text a = Text7.Text b = Text8.Text p = Text9.Text n = Text10.Text i = pi * (d1 A 4 - d2 A 4) / 64 s = pi * (d1 a 2 - d2 a 2) / 4 r = 1000 * u * l / Sqr(i / s) rp = pi * Sqr(e / tp) rs = (a - ts) / bIf r >= rp Thent = pi A 2 * e / (r A 2 *

8、 n)Text11.Text = tIf p / s <= t ThenText12.Text = "满足稳定条件 " ElseText12.Text = "不满足稳定条件 " End IfElseIf r >= rs Thent = (a - b * r) / nText11.Text = tIf p / s <= t ThenText12.Text = "满足稳定条件 " ElseText12.Text = "不满足稳定条件 " End IfElseText11.Text = "&q

9、uot;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,255)For x = 0 To rs Step 0.01y = tsPicture1.PSet (x, y), RGB(25

10、5, 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 A 2 * e / x A 2Picture1.PSet (x, y), RGB(255, 0, 0)Next xEnd Subb = Text8.Textp = Text9.Textn = Text10.Texti = h * d A 3 / 12s = h * dr = 1000 * u * l / Sqr(i / s)rp = pi

11、* Sqr(e / tp)rs = (a - ts) / bIf r >= rp Thent = pi A 2 * e / (r A 2 * n)Text11.Text = tIf p / s <= t ThenText12.Text = "满足稳定条件 "ElseText12.Text = "不满足稳定条件 "End IfElseIf r >= rs Thent = (a - b * r) / nText11.Text = tIf p / s <= t ThenText12.Text = "满足稳定条件 "E

12、lseText12.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

13、(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.01 y = 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,

14、iz, s, u, l, e, tp, ts, a, b, p, n, t As DoubleDim i As DoubleDim r, rp, rs As DoubleConst pi = 3.1415Elsei = iyEnd Ifr = 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 <= t ThenText12.Text = "满足稳定条件 "

15、ElseText12.Text = "不满足稳定条件 "End IfElseIf r >= rs Thent = (a - b * r) / nText11.Text = tIf p / s <= t ThenText12.Text = "满足稳定条件 "ElseText12.Text = "不满足稳定条件 "End IfElseText11.Text = ""Text12.Text = "这是一个强度问题 "End Ifiy = Text1.Text iz = Text13.Tex

16、t s = Text14.Text u = Text2.Text l = Text3.Text e = Text4.Text tp = Text5.Text ts = Text6.Text a = Text7.Text b = Text8.Text p = Text9.Text n = Text10.TextIf iz < iy Theni = izDim y As DoublePicture1.ClsPicture1.ScaleMode = 0Picture1.Scale (-10, 300)-(200, -10)Picture1.DrawWidth = 1Picture1.Line

17、(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.01Next xEnd Suby = pi 人 2 * e / x 卜 2Picturel.PSet (x, y), RGB(255, 0, 0)四、测试结果【例1】两端固定的矩形截面钢杆。已知钢杆承受轴向压力P=175KN,杆长L=2m，高为 150mm,宽为 100mm，E=200Gpa,该型钢 e=200Mpa , os=240MPa。校核该杆的稳定性。1、在截面选择界面点击“矩形”2、输入各项数据，点击“计算”【例2】两端固定的圆形截面杆。已知钢杆承受轴向压力P=150KN,杆长L=5m,直径为 d=160mm，E=200