无缝线路计算程序.doc

程序1（允许降温幅度）Private Sub Command1_Click()D = 301000: E = 210000: Ix = 28790000: W底 = 375000: W头 = 291000: a = 60: Fi = 1.45: h = 75: str = 351.5: strf = 10: = 0.0000118: = 10: r = 152: F = 7745 k = (D / (4 * 100 * a * E * Ix) (1 / 4) Mo = Val(Text1.Text) / (4 * k) * (1 + Exp(-k * Val(Text2.Text) * (Cos(k * Val(Text2.Text) - Sin(k * Val(Text2.Text) If Val(Text3.Text) 120 Then 1 = 0.6 * 120 / 100 2 = 0.3 * (Val(Text3.Text) - 120) / 100 ElseIf Val(Text3.Text) Ti Then T = Ti Else T = Tj End If Picture1.Print 刚比系数为：; Format(k, #.#); mm-1 Picture1.Print Picture1.Print 静弯矩为：; Format(Mo, #.#); N.mm Picture1.Print Picture1.Print 动弯矩为：; Format(Md, #.#); N.mm Picture1.Print Picture1.Print 根据强度确定的允许降温幅度为：; Format(Tj, #.#); C Picture1.Print Picture1.Print 根据断缝确定的允许降温幅度为：; Format(Ti, #.#); C Picture1.Print Picture1.Print 允许的降温幅度为：; Format(T, #.#); CEnd Sub程序2（允许升温幅度）Private Sub Command1_Click() E = 21000000: Iy = 524: F1 = 0.2: Foe = 0.25: Fop = 0.25: L = 400: Lo = 400: PI = 3.14: F = 7745: = 0.0000118 Ro = (Lo 2) / (8 * Fop) Rz = 1 / (1 / Val(Text1.Text) + 1 / Ro)Do Lo = L Foe1 = (Lo 2) * Foe / (400 2) L = Sqr(2 * E * Iy * PI 2 / Rz) + Sqr(2 * E * Iy * PI 2 / Rz) * (2 * E * Iy * PI * PI / Rz) + (E * Iy * PI 5 * (F1 + Foe1) * Val(Text2.Text) / 2) / Val(Text2.Text)Loop While (L - Lo) 0.1 Pw = (E * Iy * PI 5 * (F1 + Foe1) / (2 * L 4) + Val(Text2.Text) / (F1 + Foe1) * PI 3 / (4 * L 2) + 1 / Rz) P = Pw / 1.3 Ts = P / (2 * E * F * ) Picture1.Print Picture1.Print Picture1.Print Picture1.Print 变形曲线弦长L为：; Format(L, #.#); cm Picture1.Print Picture1.Print Picture1.Print 温度压力为：; Format(Pw, #.#); N Picture1.Print Picture1.Print Picture1.Print 容许温度压力为：; Format(P, #.#); N Picture1.Print Picture1.Print Picture1.Print 允许升温幅度为：; Format(Ts, #.#); CEnd Sub程序3（伸缩区长度）Private Sub Command1_Click()E = 210000: F = 7745: r = 15.2: Ph = 490000: = 0.0000118 Te = Val(Text1.Text) Text1.Text = Text1.Text - 6 For I = 0 To 10 Text1.Text = Text1.Text + 1 t1 = Val(Text2.Text) - Val(Text1.Text): t2 = Val(Text1.Text) - Val(Text3.Text) maxP1 = E * * t1 * F: maxP2 = E * * t2 * F LS1 = (maxP1 - Ph) / r LS2 = (maxP2 - Ph) / r Picture1.Print Val(Text1.Text); ; Spc(10); Format(LS1, #.#); Spc(10); Format(LS2, #.#) Picture1.Print Next I Text1.Text = TeEnd Sub工程4（预留轨缝长度）Private Sub Command1_Click()E = 210000: F = 7745: r = 15.2: Ph = 490000: L0 = 25000: = 0.0000118 Te = Val(Text1.Text) Text1.Text = Text1.Text - 6 For I = 0 To 10 Text1.Text = Text1.Text + 1 t1 = Val(Text2.Text) - Val(Text1.Text): t2 = Val(Text1.Text) - Val(Text3.Text) maxP1 = E * * t1 * F: maxP2 = E * * t2 * F 11 = (maxP1 - Ph) 2 / (2 * E * F * r) 12 = (maxP2 - Ph) 2 / (2 * E * F * r) 21 = (maxP1 - Ph) * L0 / (2 * E * F) - r * L0 2 / (8 * E * F) 22 = (maxP2 - Ph) * L0 / (2 * E * F) - r * L0 2 / (8 * E * F) A11 = 11 + 21: A12 = 18 - (12 + 22) A21 = 2 * 21: A22 = 18 - 2 * 22 a01 = (A11 + A12) / 2: a02