螺杆泵井杆管柱力学研究-气田试井论文 第11页
本文所用到的计算程序代码如下：
（1）抽油杆轴向载荷、扭矩载荷和应力计算程序代码
Public bj, zj, zl, pl, md, jy, ty, yc, ck, px, dc, zs, nj, nd, mc, sd, zz, yz, fz, z, M1, M2, M, zyl, jq, fh As Single
Private Sub Command1_Click()
bj = Val(Text1.Text)
zj = Val(Text2.Text)
zl = Val(Text3.Text)
pl = Val(Text4.Text)
md = Val(Text5.Text)
jy = Val(Text6.Text)
ty = Val(Text7.Text)
yc = Val(Text8.Text)
ck = Val(Text9.Text)
px = Val(Text10.Text)
dc = Val(Text11.Text)
zs = Val(Text12.Text)
nj = Val(Text13.Text)
nd = Val(Text14.Text)
mc = Val(Text15.Text)
sd = Val(Text16.Text)
Form1.Hide
Form2.Show
End Sub
Private Sub Form_Activate()
zz = (md * 10 * sd + zj * 10) / 1000
yz = ((3.14 * bj ^ 2 + 16 * px * bj) * yc) / 1000
fz = (3.14 * bj ^ 2 * (jy + ty)) / 1000
z = zz + yz - fz
Text1.Text = Format(zz, ".00")
Text2.Text = Format(yz, ".00")
Text3.Text = Format(fz, ".00")
Text4.Text = Format(z, ".00")
M1 = (2 * 3.14 ^ 2 * nd * zs * (zj / 1000) ^ 2 * (nj / 1000) ^ 2 * sd) / ((nj / 1000) ^ 2 - (zj / 1000) ^ 2)
M2 = 110.5 * pl * yc / zs
M = M1 + M2 + mc
Text5.Text = Format(M1, ".00")
751com.cn")
zyl = z * 1000 / ((3.14 / 4) * zj ^ 2)
jq = 16 * M * 1000 / (3.14 * zj ^ 3)
fh = (zyl + 3 * jq ^ 2) ^ 0.5
Text8.Text = Format(zyl, ".00")
Text9.Text = Format(jq, ".00")
Text10.Text = Format(fh, ".00")
End Sub
（2）油管弯曲计算程序代码
Public l, dw, dn, t, t1, t2, d, fj, dz, w, e, c, p0, pi, md1, md2, r, t0, pz, g, p1 As Single
Private Sub Command1_Click()
Text11.Text = fj + e * 3.14 * c * dw ^ 2 * ((t1 + t2) / 2 - t) / 4
Text12.Text = -l * ((d ^ 2 - dw ^ 2 - dn ^ 2) * pi - (d ^ 2 - 2 * dw ^ 2) * p0) / (e * dw ^ 2 - dn ^ 2)
Text13.Text = -(dn ^ 2 * 3.14 * (d ^ 2 - dw ^ 2) ^ 2 * (pi - p0) ^ 2) / (2 * e * (dw ^ 4 - dn ^ 4) * (w + md1 * g * 3.14 * dn ^ 2 / 4 + md2 * 3.14 * dw ^ 2))
Text14.Text = 0.6 * p1 * dn ^ 2 * l
Text15.Text = r * l * t0
Text16.Text = l1 + l2 + l3 + l4
Text17.Text = (fm + pz) / (w * g)
751com.cn
End Sub
Private Sub Command2_Click()
End
End Sub
<< 上一页 [11]
螺杆泵井杆管柱力学研究-气田试井论文 第11页下载如图片无法显示或论文不完整，请联系qq752018766
