钻井水力参数设计报告石油工程2专业班级：设计人：指导教师：时间：年月日钻井水力参数设计一、设计目的编写VB应用程序，在给定条件下，根据最大水功率工作分析计算钻井水力参数。

二、设计要求编制的VB程序具有以下功能：1. 输入设计给定条件2. 根据已知条件进行水力参数设计3. 设计结果用列表输出三、给定条件1.钻井泵（缸套φ、额定泵冲x、额定排量Qs、额定泵压Ps）2.地面管汇承压Pe3.地面管汇当量直径de,当量长度Le4.喷嘴规范（d=7-16）5.流量系数c6.设计井段深度7.钻头直径Dh8.钻铤参数（外径Dc、内径Di、长度Lc）9.钻杆参数（外径Dp、壁厚δ）10.钻井液密度ρ、塑性粘度η四、问题分析1.设计依据（1）井身结构（按开钻次序分大段）（2）钻具结构（每次开钻的钻铤、钻杆规范及长度）（3）泥浆性能（密度、粘度，将井大段分成小段）（4）钻头进尺（将全井分成多个基本设计井段）（5）钻井泵输出特性（泵压、排量）（6）最低环空返速（限定最低循环排量）（7）地面管汇允许承压（限定钻进中的最高压力）（8）喷射钻井工作方式（决定钻进循环排量）2. 设计步骤（1） 确定最低环空返速182.37·Va Dh =ρ推荐取值范围Va=0.6-0.87m/s（2） 确定钻进循环最低排量()224Qa Dh Dp Va =-π （3） 求循环压耗系数K求出m 、n ，计算K=(n+m ·H)（4） 选择钻井泵缸套基本原则：缸套额定排量0.9Qs>Qa;缸套额定泵压Ps 接近Pe当Ps>Pe 时，取0.9Pe ，Ps<Pe 时，取0.9Ps（5） 按最大钻头水功率计算最优排量Qopt,由此定出钻进最优排量及泵冲（6） 计算钻达井深时的循环压耗及钻头压力降（7） 计算喷嘴面积，选择相应喷嘴组合（8） 计算实际的钻头压力降、钻头水功率、机泵工作压力和工作功率、实际环空返速、钻头水功率与机泵工作功率之比（9） 计算射流喷速、冲击力、钻头比水功率等水力参数（10） 编制程序，输出结果五、 程序设计1. 设计程序代码Private Sub Command1_Click()Dim Qa#, Dh#, Dp#, Va#, ρ#Dh = Val(Text1) / 1000Dp = Val(Text8) / 1000ρ = Val(Text10) * 1000π = 3.14Va = 182.37 / (Dh * ρ)：求最低循环返速If Va< 0.6 Then Va = 0.6Qa = π * (Dh ^ 2 - Dp ^ 2) * Va / 4：求最低循环排量Text19 = Format(Qa, "0.0000")Text18 = Format(Va, "0.0000")Dim Pg#, η#, ηe#, Le#, de#, B#, M1#η = Val(Text11) / 1000de = Val(Text13) / 1000Le = Val(Text14)ηe = η / 3.2B = (ρ ^ 0.8) * (ηe ^ 0.2)M1 = 0.164 * (1 / de ^ 4.8)Dim Dpi#, Lp#, Mp#Dpi = (Val(Text8) - 2 * Val(Text9)) / 1000Lp = Val(Text8)Mp = 0.164 * (1 / Dpi ^ 4.8) + 0.182 / ((Dh - Dp) ^ 3) * ((Dh + Dp) ^ 1.8)Dim Dc1#, Dc2#, Mc1#, Mc2#, Dci1#, Dci2#, Lc1#, Lc2#Dci1 = Val(Text3) / 1000Dci2 = Val(Text6) / 1000Dc1 = Val(Text2) / 1000Dc2 = Val(Text5) / 1000Dp = Val(Text8) / 1000Lc1 = Val(Text4)Lc2 = Val(Text7)Mc1 = 0.164 * (1 / Dci1 ^ 4.8) + 0.182 / (((Dh - Dc1) ^ 3) * ((Dh + Dc1) ^ 1.8))Mc2 = 0.164 * (1 / Dci2 ^ 4.8) + 0.182 / (((Dh - Dc2) ^ 3) * ((Dh + Dc2) ^ 1.8)) Dim PL#, K#, m#, n#, H#H = Val(Text16)m = B * Mpn = B * M1 * Le + B * Mc1 * Lc1 + B * Mc2 * Lc2 - m * (Lc1 + Lc2)K = n + m * H：求循环压耗系数PL = K * Q ^ 1.8：求循环压耗Text20 = Format(K, "0.00")Dim Qs#, Ps#, Pe#, φ#, Qz#Pe = Val(Text12)MN1:Qa = (Qa / 0.9) * 1000：选缸套If Qa>= 35.4 AndPe< 16.5 ThenQs = 40: Ps = 16.5: φ = 170ElseIfQa>= 31.1 AndPe< 18.6 ThenQs = 35.4: Ps = 18.6: φ = 160ElseIfQa>= 27.1 AndPe< 21.2 ThenQs = 31.1: Ps = 21.1: φ = 150ElseIfQa>= 23.4 AndPe< 24.3 ThenQs = 27.1: Ps = 24.3: φ = 140ElseIfQa>= 19.9 AndPe< 28.2 ThenQs = 23.4: Ps = 28.2: φ = 130ElseQs = 19.9: Ps = 33.1: φ = 120End IfIf Ps >Pe Then：确定设计泵压Ps = 0.9 * PeElsePs = 0.9 * PsEnd IfQz = Qs / 1000Qs = Qs * 0.9 / 1000Ps = Ps * 1000000Qa = Qa * 0.9 / 1000Dim Qopt#, Hr#, Ha#, Nbit#, Ho#Qopt = (Ps / (2.8 * K)) ^ (1 / 1.8)：计算最优排量Hr = Ps / (2.8 * m * Qs ^ 1.8) - n / mHa = Ps / (2.8 * m * Qa ^ 1.8) - n / mHo = Ps / (2.8 * m * (Qopt) ^ 1.8) - n / mIf Ho > Ha Then：确定最优排量Qopt = QaPL = K * Qa ^ (1.8)：实际循环压耗Nbit = Qa * (Ps - PL)：钻头水功率ElseIf Ho >Hr ThenQopt = QoptPL = K * Qopt ^ (1.8)Nbit = Qopt * (Ps - PL)ElseQopt = QsPL = K * Qs ^ (1.8)Nbit = Qs * (Ps - PL)End IfText21 = Format(Qopt, "0.0000")Dim x#, Pbit#, A#, c#, d1#, d2#, d3#, A1#, i#, u#, j#, g#c = Val(Text15)x = Int(Qopt / (Qz / 150))：计算泵冲Pbit = Ps – PL：计算钻头压力降A = ((ρ * Qopt ^ 2 / (2 * Pbit * c ^ 2)) ^ (0.5)) * 10 ^ 6Text23 = Format(A, "0.000")：计算喷嘴面积For i = 16 To 7 Step -1：选择喷嘴组合For j = 16 To 7 Step -1For g = 16 To 7 Step -1A1 = (π / 4) * (i ^ 2 + j ^ 2 + g ^ 2)u = A1 - AIf u > 0 Thend1 = i: d2 = j: d3 = gEnd IfNext gNext jNext iA1 = (π / 4) * (d1 ^ 2 + d2 ^ 2 + d3 ^ 2)Dim Va2#Va2 = 4 * Qopt / (π * (Dh ^ 2 - Dp ^ 2))：计算实际环空返速Text22 = Format(Va2, "0.000")If Va2 < 0.6 ThenQa = QzGoTo MN1End IfDim Vo#, Fj#, Ns#, φ0#, Ni#, Nii#Vo = (Qopt / A1) * 10 ^ 6：钻头喷射速度Fj = ρ * Qopt * Vo / 1000：冲击力计算Pbit = ((ρ * Vo ^ 2) / (2 * c ^ 2))：钻头压力降Nbit = Pbit * Qopt：钻头水功率Ns = Nbit + K * Qopt ^ (2.8)：实际泵功率Ps = Pbit + PL：泵工作压力φ0 = φ：缸套直径Ni = (Nbit / A1) ：钻头比水功率Nii = Format(Nbit / Ns, "0.00")：水功率分配比OLE1.object.Sheets(1).Cells(4, 1) = Text1：输出结果列表OLE1.object.Sheets(1).Cells(4, 2) = Text16OLE1.object.Sheets(1).Cells(4, 3) = ρOLE1.object.Sheets(1).Cells(4, 4) = Text11OLE1.object.Sheets(1).Cells(4, 5) = Format(φ0, "0.00")OLE1.object.Sheets(1).Cells(4, 6) = Format(x, "0.0")OLE1.object.Sheets(1).Cells(4, 7) = Format(Qopt, "0.0000")OLE1.object.Sheets(1).Cells(4, 8) = d1OLE1.object.Sheets(1).Cells(4, 9) = d2OLE1.object.Sheets(1).Cells(4, 10) = d3OLE1.object.Sheets(1).Cells(4, 11) = Format(A1, "0.00")OLE1.object.Sheets(1).Cells(4, 12) = Format(Pbit / 10 ^ 6, "0.00") OLE1.object.Sheets(1).Cells(4, 13) = Format(PL / 10 ^ 6, "0.00")OLE1.object.Sheets(1).Cells(4, 14) = Format(Ps / 10 ^ 6, "0.00")OLE1.object.Sheets(1).Cells(4, 15) = Format(Nbit / 1000, "0.00")OLE1.object.Sheets(1).Cells(4, 16) = Format(Ns / 1000, "0.00")OLE1.object.Sheets(1).Cells(4, 17) = Format(Fj, "0.00")OLE1.object.Sheets(1).Cells(4, 18) = Format(Vo, "0.000")OLE1.object.Sheets(1).Cells(4, 19) = Format(Va2, "0.000")OLE1.object.Sheets(1).Cells(4, 20) = Format(Ni / 1000, "0.00")OLE1.object.Sheets(1).Cells(4, 21) = NiiOLE1.UpdateEnd SubPrivate Sub Form_Load()Text1 = 215.9: Text2 = 177.8Text3 = 71.4: Text4 = 80Text5 = 159: Text6 = 71.4Text7 = 160: Text8 = 127Text9 = 9: Text10 = 1.4Text11 = 22: Text12 = 21Text13 = 100: Text14 = 150Text15 = "0.97": Text16 = 2600Text17 = 3100End Sub2.程序界面六、应用示例3NB-1000钻井泵，Pe=21Mpa，de=100mm，Le=150mC=0.972600-3100m井段，215.9mm钻头+177.8mm钻铤（内径71.4mm）长80米+159mm钻铤（内径71.4mm）长160米+127mm钻杆（壁厚9mm）钻井液1.4克/立方米，粘度22mPa·s。