连续管钻井水力参数计算软件公式
钻井水力参数计算
钻井水力参数计算1.钻井水力参数的定义：2.钻井水力参数的计算方法：2.1循环压力（Pp）的计算：循环压力是指钻井液在井眼中循环时施加在井壁上的压力，其计算公式为：Pp=Pg+Ph+π/144*(ID²-OD²)/4*ρm其中，Pp为循环压力，Pg为气体压力，Ph为井斜段压力，ID为钻杆内径，OD为钻杆外径，ρm为泥浆密度。
2.2液柱压力（Pm）的计算：液柱压力是指钻井液柱在井眼中的垂直压力，其计算公式为：Pm=π/144*(ID²-OD²)/4*ρm*L其中，Pm为液柱压力，ID为井眼内径，OD为套管外径，ρm为泥浆密度，L为液柱长度。
2.3摩阻压力（Pf）的计算：摩阻压力是指钻井液在井眼中流动时受到的阻力，其计算公式为：Pf=2f*ρm*V²/(D*g)其中，Pf为摩阻压力，f为阻力系数，ρm为泥浆密度，V为流速，D 为井眼直径，g为重力加速度。
2.4泥浆柱液位压力（Ps）的计算：泥浆柱液位压力是指钻井液静止时产生的压力，其计算公式为：Ps=π/144*(ID²-OD²)/4*ρm*(H+h)其中，Ps为泥浆柱液位压力，ID为井眼内径，OD为套管外径，ρm 为泥浆密度，H为井深，h为液位高度。
2.5井底压力（Pb）的计算：井底压力是指钻井液从井口到井底的压力损失，其计算公式为：Pb=ρm*Ls*g/144其中，Pb为井底压力，ρm为泥浆密度，Ls为井筒长度，g为重力加速度。
2.6水柱效应（Pr）的计算：水柱效应是指钻井液在井眼中垂直上升或下降时，形成的压力差，其计算公式为：Pr=π/144*(ID²-OD²)/4*ρf*h其中，Pr为水柱效应，ID为井眼内径，OD为套管外径，ρf为井口液体密度，h为液位高度。
3.钻井水力参数的分析和应用：通过计算钻井水力参数，可以确定钻井液在井筒中的性能，评估井筒稳定性和泥浆循环能力，并根据计算结果进行钻井工艺设计和井筒优化。
钻井计算公式精典精选版
钻井计算公式精典 Company number【1089WT-1898YT-1W8CB-9UUT-92108】钻井计算公式（精典）1.卡点深度：L=eEF/105P=K×e/P式中：L-----卡点深度米e------钻杆连续提升时平均伸长厘米E------钢材弹性系数=×106公斤/厘米2F------管体截面积。
厘米2P------钻杆连续提升时平均拉力吨K------计算系数K=EF/105=21F钻具被卡长度l:l=H-L式中H-----转盘面以下的钻具总长米注：K值系数5＂=715（）例：某井在井深2000米时发生卡钻，井内使用钻具为壁厚11毫米的59/16＂钻杆，上提平均拉力16吨，钻柱平均伸长32厘米，求卡点深度和被卡钻具长度。
解：L=Ke/P由表查出壁厚11毫米的59/16＂钻杆的K=957则：L=957×32/16=1914米钻具被卡长度：L=H-L=2000-1914=86米2、井内泥浆量的计算V=D2H/2或V=3、总泥浆量计算Q=q井+q管+q池+q备4、加重剂用量计算：W加=r加V原(r重-r原)/r加-r重式中：W加----所需加重剂的重量，吨r原----加重前的泥浆比重，r重----加重后的泥浆比重r加---加重料的比重V原---加重前的泥浆体积米3例：欲将比重为的泥浆200米3，用比重为的重晶石粉加重至，需重晶石若干解：根据公式将数据代入：4×200（）/吨5.降低泥浆比重时加水量的计算q=V原(r原-r稀)/r稀-r水式中：q----所需水量米3V原---原泥浆体积米3r稀---稀释后泥浆比重r水----水的比重（淡水为1）r原---原泥浆比重例：欲将比重的泥浆150米3降至比重为，需加淡水若干解：根据公式代入数据：150（）×1/=115米36、泥浆循环一周所需时间计算T=V井-V柱/60Q泵式中：T---泥浆循环一周的时间，分V井---井眼容积，升V柱---钻柱体积升Q泵---泥浆泵排量升/秒备注：V井=井2V柱=（D外2-d内2）例题：井径81/2"，使用壁厚为10毫米的41/2"钻至1000米，泵的排量为升/秒，问泥浆循环一周需时若干解： V井=×（）2=36591升V柱=（）=3275升T= V井-V柱/60Q泵=36591-3275/60×=33316/1284=分7、泥浆上返速度计算V返=泵/D井2-d柱2式中：V返—泥浆上返速度米/秒Q泵---泥浆泵排量升/秒D井---井径厘米d柱---钻柱外径厘米例题：某井井径为22厘米，钻具外径为厘米，泥浆泵排量为25升/秒，问泥浆上返速度是多少解：V返=泵/D井2-d柱2=×25/=米/秒8、漏失速度计算公式：V漏=Q漏/t时式中：V漏—漏失速度米3/小时Q漏---在某段时间内的漏失量米3t时----漏失时间小时例题：某井在30分钟内共漏泥浆米3问该井在这段时间内的漏失速度是多少解：V漏=Q漏/t时==米3/小时9、泵压计算公式：P=ρQ2/式中：P---泵压 MPaρ---使用密度 g/cm3Q----泥浆泵排量 l/sD---钻头水眼毫米D=√d12+d22+d32+…..10.常用套管数据表11．接头扣型尺寸：（1：内平 2：贯眼 3：正规）12.常用单位换算表长度:1英寸(in)=毫米(mm)=厘米(cm)=米(m)1英尺(ft)=12英寸(in)=毫米(mm)=厘米(cm)=米(m) 1码(yd)=3英尺(ft)=毫米(mm)=厘米(cm)=米(m)1里=150丈=500米1丈=米1尺=米1寸=米面积:1亩=213.常规井身结构14.常用钻铤尺寸与钻头直径关系对照表公式：允许最小钻铤直径 = 2倍套管接箍外径 - 钻头直径有效井眼直径 =（钻头直径 +钻铤直径）÷20在大于(81/2in)的井眼中，应采用塔式钻铤组合，钻铤柱中最下一段钻铤(一般应不少于1立柱)的外径应不小于这一允许最小外径，才能保证套管的顺利下入。
连续油管钻井水力计算软件开发方案
连续油管钻井水力计算软件开发方案一、软件设计目的此软件定位为一款简单实用的计算软件，使输入数据无需再作任何计算，直接得出结果，并设计对外接口，同时兼顾界面的美观性，以及商业软件的保密性。
二、界面简介此软件分为四个界面，即欢迎登陆界面，工作界面、输出界面和打印界面。
登陆欢迎界面→→（转刀）工作界面。
1、登陆欢迎界面。
欢迎界面画面简介：整体图片式（ps制成），其中有软件名字，连续油管钻井水力系统图片，以及想购买此软件的联系方式。
（此界面按常用软件习惯短暂停留）登陆界面简介：欢迎界面自动转刀登陆界面，此界面中有登陆用户和密码正确，才能进入工作界面。
2、工作界面此界面分为三个部分：输入界面，输出界面，打印确定界面。
（i）输入界面此界面有七个窗口（ii）输出界面此界面有两小部分，第一部分有八个窗体，第二部分六个窗体（iii）打印确定界面此界面用于打印确认输入输出参数。
三、工作部分有哪些功能由于此软件是实际应用软件，得具有通用性，也得考虑人的因素，具体功能初步设计如下：1、有友好的人机交互界面，友好的界面，使使用者有亲切感，以及缓解疲劳。
2、方便直接的输入界面，设计无需鼠标即可方便进行输入，并可以具有自动检错的功能，弹窗口提示错误。
3、有傻瓜式的输出界面，数据输入完，即可完成计算，无需工程人员再进行繁琐的计算，并对结果有一定的纠错能力。
4、通用性方面。
可以从文本中读取数据，并将数据输出到文本，并可进一步形成标本文件，而且可以与打印机连接，实现轻松性。
5、由于不同的工作人员有不同的任务，可以同时使用此软件，登陆界面可以实现多用户登陆，工作完成后，即可为该人员生成标准文本。
6、此软件保留与其他软件交互的接口。
四、软件不足由于本人所学知识有限，可能会导致一些错误以及功能不够强大，界面有待完美等问题会在后续版本中不断的改进。
望大家提出建议与指导。
联系方式：948453545@ 。
流程图 打开软件进入欢迎界面登陆界面时隔两秒输入界面 输出界面 打印界面输入账号密码，正确后进入多个界面 多个界面 输入文本，选择性打印所需文本Development Program on Hydraulic CalculationSoftware of Coiled Tubing DrillingI.Design Goal of the SoftwareThis is a simple and useful calculation software which can directly give the result without doing any calculation of the input data. It is designed with an aesthetic external interface which also has the confidential of business software.II.Screen IntroductionThe software has four screens, that is welcome-and-login screen, working screen, output screen and print screen.Welcome-and-login screen→→ (transfer to) working screen1.Welcome-and-login screenWelcome screen introduction: The whole screen is made up of pictures (using Photoshop).And it contains the software brand, the picture of coiled tubing drilling system and the contact information for purchasing the software. (This screen will stop for seconds as the common software).Login screen introduction: Welcome screen can automatically transfer to login screen. But login screen can’t transfer to working screen without a user’s name and the right code.2.Working screenThis screen is divided into three screens: input screen, output screen and print-and-confirm screen.(i)Input screenThere are 7windows in this screen.(ii)Output screenThis screen is divided into 2 parts. There are 8 forms in the first part and 6 forms in the second part.(iii)Print-and-confirm screenThis screen is used to print and confirm the input and output parameters.III.FunctionsThis is a practical software which should be generic and should apply to humans. So it is designed with the following functions:1.It has a friendly human-computer interface. A friendly interface can make users feelcomfortable and relaxed.2.It has a convenient and direct input screen. People can input information without using themouse. It can also detect errors and pop up a window to prompt the errors.3.It has a very simple output screen. The calculation can be completed as soon as data is inputso engineers don’t need to do complicated calculation any more. And if the result is wrong, the software can correct it.4.It is generic. It can read data from text or output data to text, and then form a sample text. Itcan also connect to a printer so it’s easy for people to print the text.5.Different workers have different tasks but they can use this software at the same time. Loginscreen allows multi-user to log in and after completing tasks the software will generate a standard file for the user.6. It retains the interacting interface with other software.VI. DisadvantagesOwing to my limited knowledge, I may have made some mistakes. And further improvement is called for in subsequent versions, for example, the functions are not enough and the interface needs to be perfect. I hope you can kindly enlighten me with your suggestions and instructions. Email: 948453545@Comment: The central piece of this software is provided by Mr. Guan and students such as XiaZhongwei gave a lot of help and support during the process of making the software.Flow ChartOpen the software Enterwelcome screen Login screenTwo seconds Input screen Output screenPrint screen Input the account and thecode,if right,then enter.Multiple screens Multiple screens Input text, and then print selectivelyNeeded text。
连续油管钻井水力计算(中文版)
弯曲管计算
5576.74 6376.74 层流 0.00770 4038579.29 Pa
1.203
n 1.000 1.000
0.669 0.605 0.507 0.52564
K 0.0010 0.0010
0.0930 0.5110 2.1887 0.8213
直管段 弯管段 弯管层流相关参数psi= 狄恩数的幂phi=
几何尺寸 滚筒直径D = 连续油管外径OD = 连续油管厚度T = 管柱长度L = 滚筒外连续油管长度LOFF=
滚筒上的连续油管长度LON =
连续油管内径ID= 过流面积s=
层流状态下最大直雷管诺计数算 紊流状态下最小雷CR诺E1数= 2749.8732
CRE2= 3549.8732
流态,直管段= 紊流
a Re40.8b
189
154.63(D1/0.0254)5
lon (Qc2/0.2271) 2
Re Re1 Pc4 Pc3
pc Pc3 Re 2 Re 1
(Qc2/0.2271) 2
直管段范宁摩阻系数F1= 0.00640
直管段压力损失P1= 5951212.8 Pa
弯曲管计算 层流状态下最大雷诺数 紊流状态下最小雷C诺RE数3=
CRE4= 流态,弯曲管段=
弯曲管段范宁摩阻系数F2=
弯曲管段压力损失P2=
全部管柱压力损失P3 = 9989792.1 Pa
范宁摩阻系数弯直管段比 bi
Re Re 1 Ps4 Ps3
ps Ps3 Re 2 Re 1
流体流动和压力损失计算表
压力损失
(Pa)
层流
紊流
临界值1
临界值2
插值-f
########### ############ 2828674.11017 ########### ############ 1455857.43602
钻井各种计算公式
钻头水利参数计算公式：之马矢奏春创作1、2、 钻头压降：dc QP eb 422827ρ= （MPa ） 3、冲击力：VF Q j02.1ρ= (N)4、 喷射速度：dV eQ201273=(m/s)5、 钻头水功率：d c QN eb 42305.809ρ= （KW ）6、比水功率：DN N b 21273井比＝ (W/mm 2)7、 上返速度：D DV Q221273杆井返＝- （m/s ）式中：ρ－钻井液密度 g/cm 3Q－排量 l/scd e －喷嘴当量直径 mmd d d de 2n 2221+⋯++= d n ：每个喷嘴直径 mmD 井、D 杆 －井眼直径、钻杆直径 mm全角变更率计算公式：式中：a ∂b ∂ －A 、B 两点井斜角；a ϕb ϕ －A 、B 两点方位角套管强度校核：抗拉：平安系数 m ＝1.80（油层）；1.60～1.80（技套） 抗拉平安系数＝套管最小抗拉强度/下部套管重量 ≥10ν泥挤H P =查套管抗挤强度P c 'P c'/P 挤≥按双轴应力校核：式中：P cc －拉力为T b 时的抗拉强度（kg/cm 2）ρ－钻井液密度（g/cm 3）H －计算点深度（m ） 其中：⎪⎭⎫ ⎝⎛--=T T KPP b b ccc K 223T b ：套管轴向拉力（即悬挂套管重量） kg P c ：无轴向拉力时套管抗挤强度 kg/cm 2K ：计算系数 kg σs A K 2=A ：套管截面积 mm 2σs ：套管平均屈服极限 kg/mm 2分歧套管σs 如下：J 55：45.7 N 80:63.5 P 110地层压力监测：⎪⎭⎫ ⎝⎛⎪⎭⎫ ⎝⎛=D W NT R R d m n c 0671.0lg 282.3lg (d c指数)dR d Rcm cnp= （压力系数）式中：T –钻时 min/m N –钻盘转数 r/minW －钻压 KN D －钻头直径 mmR n －地层水密度 g/cm 3R m －泥浆密度 g/cm 3压漏实验：1、 地层破裂压力梯度：HP G Lm f 10008.9+=ρ KPa2、 最大允许泥浆密度：HP Lm 102max +=ρρg/cm 3为平安，表层以下[]06.0max-=ρρmg/cm 3技套以下[]12.0max-=ρρmg/cm 33、 最大允许关井套压：[]8.01000'max ⨯⎪⎭⎫ ⎝⎛--=gH m R a P P ρρ式中：P L －漏失压力（MPa ） P R －破裂压力（MPa ）ρm －原泥浆密度（g/cm 3） H －实验井深（m ）ρ'max －设计最大泥浆密度（g/cm 3）井控有关计算：最大允许关井套压经验公式：表层套管[Pa]=11.5%×表层套管下深（m ）/10 MPa 技术套管[Pa]=18.5%×技术套管下深（m ）/10 MPa 地层破裂压力梯度：HP G RR 1000=KPa/m最大允许关井套压：8.000981.01000max ⨯⎪⎪⎭⎫⎝⎛-=H H G P R a 套套ρ Mpa 最大允许钻井液密度：81.9'max G R=ρ－0.06 (表层)81.9'maxG R=ρ－0.12 （技套）套管在垂直作用下的伸长量：10724854.7-⨯-=∆LmL ρ式中：ρm －钻井液密度 g/cm 3L ∆ －自重下的伸长 mL －套管原有长度 m 套管压缩距：()ρρmL LLE L 总钢固自-⨯=∆10式中：L ∆ －下缩距 m L 自 －自由段套管长度 mL固－水泥封固段套管长度 m L 总 －套管总长 mρ钢－钢的密度 /cm 3ρm－钻井液密度 g/cm 3×106kg/cm 3）泥浆有关计算公式：1、加重剂用量计算公式：()rr r r r 重加原重原加加－＝-V W式中：W 加 －所需加重剂重量 吨V 原 －加重前的泥浆体积 米3r 原、r 重、r 加 －加重前、加重后、加重资料比重 g/cm 32、泥浆循环一周时间：QT V V60柱井-=式中：T －泥浆循环一周时间 分 V 井、V 柱 －井眼容积、钻柱体积 升 Q －泥浆泵排量 升/秒 3、井底温度计算公式：1680H T T += 式中：T 、T 0 －井底、井口循环温度 oC H －井深 米 4、配制泥浆所需粘土和水量计算：粘土量()r rr rr 水土水泥泥泥土－＝-V W水量 r土土泥水－＝W V Q式中：W 土 －所需粘土的重量 吨 V 泥 －所需泥浆量 米3r 水、r 土、r 泥 －水、土和泥浆的比重 g/cm 3Q 水 －所需水量 米35、降低比重所需加水量： ()rr r r r 水稀水稀原原水＝--V Q式中：Q 水 －所需水量 米3V 原 －原泥浆体积 米3r 原、r稀、r水－原泥浆、稀释后泥浆和水的比重g/cm 3。
钻井液常规计算公式
钻井液常用计算一、水力参数计算：(p196-199)1、地面管汇压耗：Psur=C×MW×(Q/100)1.86×C1Psur---地面管汇压耗，Mpa（psi）；C----地面管汇的摩阻系数；MW----井内钻井液密度，g/cm3(ppg);Q----排量，l/s(gal/min);C1----与单位有关的系数，当采用法定法量单位时，C1＝9.818；当采用英制单位时，C1＝1；①钻具内钻井液的平均流速：V1=C2×Q/2.448×d2V1-------钻具内钻井液的平均流速，m/s(ft/s)；Q-------排量，l/s(gal/min);d-------钻具内径，mm(in)；C2------与单位有关的系数。
当采用法定计量单位时，C2＝3117采用英制单位时，C2＝1。
②钻具内钻井液的临界流速V1c=(1.08×PV＋1.08(PV2＋12.34×d2×YP×MW×C3)0.5)/MW×d×C4V1c -------钻具内钻井液的临界流速，m/s(ft/s)；PV----钻井液的塑性粘度，mPa.s(cps);d------钻具内径，mm(in)MW----钻井液密度，g/cm3(ppg);C3、C4------与单位有关的系数。
采用法定计量单位时，C3＝0.006193，C4＝1.078；采用英制单位时，C3＝1、C4＝1。
③如果≤V1c，则流态为层流，钻具内的循环压耗为P p=C5×L×YP/225×d＋C6×V1×L×PV/1500×d2④如果V1>V1c，则流态为紊流，钻具内的循环压耗为P p=0.0000765×PV0.18×MW0.82×Q1.82×L＋C7/d4.82P p---钻具内的循环压耗，Mpa(psi);L----某一相同内径的钻具的长度，m(ft)；V1-------钻具内钻井液的平均流速，m/s(ft/s)；d------钻具内径，mm(in)MW----钻井液密度，g/cm3(ppg);Q-------排量，l/s(gal/min);C3、C6------与单位有关的系数。
连续管钻井水力参数计算软件公式2
A B C D E F G H I J1 油管层数油管增加的径向长度每层长度总长度弯曲半径r0/Rv管雷诺管f管管内摩阻21 0.0365 260.32260.321.3370.02373.172020310.0061590.5132 0.1059 273.83534.151.4060.02253.172020310.0061300.5343 0.1752 287.34821.491.4750.02153.172020310.0061030.5654 0.2446 300.851122.331.5450.02053.172020310.0060780.5865 0.3139 314.351436.691.6140.01963.172020310.0060550.6176 0.3833 327.861764.551.6830.01883.172020310.0060330.6387 0.4526 341.372105.921.7530.01813.172020310.0060120.6598 0.5220 354.882460.801.8220.01743.172020310.0059930.68109 0.5913 368.392829.181.8910.01683.172020310.0059750.701110 0.6607 381.893211.071.9610.01623.172020310.0059570.721211 0.7300 288.933500.002.030.01563.172020310.0059410.5513 总摩阻6.72A B C D E F G H I J K L14 清水15 套管直径套管壁厚S环空v环空摩阻1摩阻2雷诺环空f环空0.005004直段盘管段15 0.1397 0.012100.00631.5892.041.45679510.004870.0061755.580.05.5817 0.1778 0.016260.01240.8070.320.23586810.005030.0061163.981.955.9318 0.006033 0.06.726.7219 Nreg环空水基泥浆Nreg管20 4.97 3.551580 0.010130.0063954444521 1.55 1.11769 0.020810.0076108.360.08.3622 0.007532 5.972.818.7823 0.007416 0.09.699.691K L M N O P Q R S T1 狄恩数DECT直径DCT厚度TCT内径d筒芯直径TD绝对粗糙度ks相对粗糙度KSNRe1 Q(L/min)2 31548 0.0730.00480.06342.60.0000472440.0007451741015096003 299654 直段长度盘管段长度密度Pn k a b △Pg5 第1种情况3500 清水1006 1 0.001 0.07860.25 0.0246 第2种情况2501000 水基泥浆1180 0.52564 0.8213 0.07300.28990.1047 全盘在滚筒上0 35002A B C D E F1 油管层数油管增加的径向长度每层长度总长度弯曲半径r0/R2 1 B2=$L2/2 C2=2*PI()*31*E2D2=C2E2=$O$2/2+$L$2/2F2=$N$2/2/E23 2 B3=B2+$L$2*0.95C3=2*PI()*31*E3D3=C3+D2E3=E2+$L$2*0.95F3=$N$2/2/E34 3 B4=B3+$L$2*0.95C4=2*PI()*31*E4D4=C4+D3E4=E3+$L$2*0.95F4=$N$2/2/E43G H I J1 v管雷诺管f管管内摩阻2 G2=($S$2/60000)/(PI()*$N$2^2/4)H2=$O$5*$N$2*$G2/$Q$5I2=$I$15+(0.0075*(F2)^0.5)J2=C2*$O$5*G2*G2*I2*2/$N$2/10000003 G3=($S$2/60000)/(PI()*$N$2^2/4)H3=$O$5*$N$2*$G3/$Q$5I3=$I$15+(0.0075*(F3)^0.5)J3=C3*$O$5*G3*G3*I3*2/$N$2/10000004G4=($S$2/60000)/(PI()*$N$2^2/4)H4=$O$5*$N$2*$G4/$Q$5I4=$I$15+(0.0075*(F4)^0.5)J4=C4*$O$5*G4*G4*I4*2/$N$2/1000000 45N1 CT内径d2 N2 =$L$2-2*$M$26Q R1 相对粗糙度KS NRe12 Q2=$P$2/$N$2 R2=59.7/(2*Q2)^(8/7)7R S T 4 a b △Pg5 R5=(LOG10(P5)+3.93)/50 S5=(1.75-LOG10(P5))/7T5=0.0003767*($O5/1000)^0.8*($Q5*1000)^0.2*($S$2/60)^1.86 R6=(LOG10(P6)+3.93)/50 S6=(1.75-LOG10(P6))/7T6=0.0003767*($O6/1000)^0.8*($Q6*1000)^0.2*($S$2/60)^1.88 K1 狄恩数DE2 K2=H2*($N$2/2/1.3)^0.53 K3=H3*($N$2/2/1.441)^0.5C D E15 S环空v环空摩阻116 C16=PI()*(($A16-2*$B16)^2-$L$2^2)/4 D16=36/3600/$C16E16=2*$H$16*$L$5*$O$5*$D16^2/($A16-2*$B16-$L$2)/100000017 C17=PI()*(($A17-2*$B17)^2-$L$2^2)/4 D17=36/3600/$C17E17=2*$H$17*$L$5*$O$5*$D17^2/($A17-2*$B17-$L$2)/10000009E20 E20=2*$H20*$L$5*$O$6*$D16^2/($A16-2*$B16-$L$2)/100000021 E21=2*$H21*$L$5*$O$6*$D17^2/($A17-2*$B17-$L$2)/100000010F15 摩阻216 F16 =2*$H$16*$L$6*$O$5*$D16^2/($A16-2*$B16-$L$2)/100000017 F17=2*$H$17*$L$6*$O$5*$D17^2/($A17-2*$B17-$L$2)/1000000181920 F20=2*$H20*$L$6*$O$6*$D16^2/($A16-2*$B16-$L$2)/100000021 F21=2*$H21*$L$6*$O$6*$D17^2/($A17-2*$B17-$L$2)/100000011G19 Nreg环空20 G20=($O$6*$D16^(2-$P$6)*($A16-2*$B16-$L$2)^$P$6/($Q$6*12^($P$6-1)))*(4*$P$6/(3*$P$6+1))^$P$621 G21=($O$6*$D17^(2-$P$6)*($A17-2*$B17-$L$2)^$P$6/($Q$6*12^($P$6-1)))*(4*$P$6/(3*$P$6+1))^$P$612G15 雷诺环空16 G16=$O$5*($A16-2*$B16-$L$2)*$D16/$Q$517 G17=$O$5*($A17-2*$B17-$L$2)*$D17/$Q$513H15 f环空16 H16=(1/(2*(1.8*LOG10($G16)-1.53)))^217 H17 =(1/(2*(1.8*LOG10($G17)-1.53)))^215H20 H20=16/G2021 H21=16/G2115I14 清水15 I15=(1/(2*((-2)*LOG10($Q$2/3.7065-(5.0452/H2)*LOG10($Q$2^1.1098/2.8257+(7.149/H2)^0.8961)))))^216I16 I16=$I$15+(0.0075*($N$2/2/1.3)^0.5)17 I17=$I$15+(0.0075*($N$2/2/1.441)^0.5)18 I18=$I$15+(0.0075*($N$2/2/1.683)^0.5)19 水基泥浆20 I20=$R$6/$J$20^$S$621 I21=1.06*$R$6*($N$2/2/1.3)^0.1/$J$20^(0.8*$S$6)22 I22=1.06*$R$6*($N$2/2/1.441)^0.1/$J$20^(0.8*$S$6)23 I23 =1.06*$R$6*($N$2/2/1.683)^0.1/$J$20^(0.8*$S$6)J15 直段16 J16=2*$I$15*$L5*$O$5*$G$2^2/$N$2/100000017 J17=2*$I$15*$L6*$O$5*$G$2^2/$N$2/100000018 J18=2*$I$15*$L7*$O$5*$G$2^2/$N$2/100000019 Nreg管20 J20=($O$6*$G$2^(2-$P$6)*$N$2^$P$6/($Q$6*8^($P$6-1)))*(4*$P$6/(3*$P$6+1))^$P$621 J21=2*$I$20*$L5*$O$6*$G$2^2/$N$2/100000022 J22=2*$I$20*$L6*$O$6*$G$2^2/$N$2/100000023 J23=2*$I$20*$L7*$O$6*$G$2^2/$N$2/100000018K L15 盘管段16 K16=2*$I16*$M5*$O$5*$G$2^2/$N$2/1000000 L16=J16+K1617 K17=2*$I17*$M6*$O$5*$G$2^2/$N$2/1000000 L17=J17+K1718 K18=2*$I18*$M7*$O$5*$G$2^2/$N$2/1000000 L18=J18+K18192021 K21=2*$I21*$M5*$O$6*$G$2^2/$N$2/1000000 L21=J21+K2122 K22=2*$I22*$M6*$O$6*$G$2^2/$N$2/1000000 L22=J22+K2223 K23=2*$I23*$M7*$O$6*$G$2^2/$N$2/1000000 L23=J23+K23()Re18/759.72Nε=1.10980.8961Re Re1 5.04527.1492lg[lg(())]3.7065 2.82572SLN N fεε=--+22fL vP fdρ∆=eRdNρνμ=214318nn nReg nnnd vNkρ--⎛⎫⎪+⎝⎭=0.10.81.06CL bRegrafN R⎛⎫= ⎪⎝⎭2CT 1431-12n n nRegn n n d d v N k ρ--⎛⎫ ⎪+⎝⎭=外套内）（0.100.81.06CLb Reg r a f N R ⎛⎫= ⎪⎝⎭11.8lg 1.532Re SLN f =-。
连续管钻井水力参数计算软件
Dim t As IntegerPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End SubPrivate Sub Form_Load()t = 1End SubPrivate Sub Timer1_Timer()t = t - 1If (t = 0) ThenTimer1.Enabled = FalseMe.HideForm2.ShowEnd IfEnd SubVERSION 5.00Begin VB.Form Form1Caption = "连续油管钻井水力参数计算软件"ClientHeight = 8160ClientLeft = 120ClientTop = 450ClientWidth = 15435FillColor = &H000080FF&LinkTopic = "Form1"LockControls = -1 'TrueScaleHeight = 8160ScaleWidth = 15435StartUpPosition = 3 '窗口缺省WindowState = 2 'MaximizedBegin VB.Timer Timer1Interval = 1000Left = 9600Top = 7560EndBegin bel Label2Caption = " 欢迎使用 CT钻井水力参 BeginProperty FontName = "宋体"Size = 21.75Charset = 134Weight = 700Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyForeColor = &H8000000D&Height = 2535Left = 3480TabIndex = 1Top = 1680Width = 9015EndBegin bel Label1Caption = " 联系方式：948453545@"BeginProperty FontName = "宋体"Size = 15.75Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyHeight = 975Left = 10920TabIndex = 0Top = 7200Width = 4455EndEnd联系欢迎使用CT 钻井水力参数计算软件Private Sub Command1_Click()Text1 = ""Text2 = ""End SubPrivate Sub Command2_Click()Dim i As IntegerIf Text1.Text <> "201003471" Or Text2.Text <> "660328" Then i = MsgBox("密码或帐号错误", 5 + vbExclamation, "警告")If i <> 6 ThenEndElseText2.Text = ""Text2.SetFocusEnd IfEnd IfForm3.ShowForm2.HideEnd SubPrivate Sub Form_Load()Text1.Text = ""Text1.MaxLength = 9Text2.Text = ""Text2.PasswordChar = 6Text2.PasswordChar = "*"End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) ThenMsgBox "帐号必须为数字", , "警告"Text1.Text = ""Text1.SetFocusEnd IfEnd SubVERSION 5.00Begin VB.Form Form2Caption = "Form2"ClientHeight = 7785ClientLeft = 120ClientTop = 450ClientWidth = 15150BeginProperty FontName = "宋体"Size = 21.75Charset = 134Weight = 400Underline = 0 'FalseItalic = 0 'FalseStrikethrough = 0 'FalseEndPropertyLinkTopic = "Form2"LockControls = -1 'TrueScaleHeight = 7785ScaleWidth = 15150StartUpPosition = 3 '窗口缺省WindowState = 2 'MaximizedBegin mandButton Command2Caption = "登陆(&L)"BeginProperty FontName = "宋体"Size = 18Charset = 134Weight = 400Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyHeight = 735Left = 10560TabIndex = 5Top = 6780Width = 1935EndBegin mandButton Command1Caption = "重置"BeginProperty FontName = "宋体"Size = 18Charset = 134Weight = 400Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyHeight = 735Left = 10560TabIndex = 4Top = 4620Width = 1935EndBegin VB.TextBox Text2BeginProperty FontName = "宋体"Size = 18Charset = 134Weight = 400Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyHeight = 615Left = 7260TabIndex = 1Top = 6840Width = 1935EndBegin VB.TextBox Text1BeginProperty FontName = "宋体"Size = 18Charset = 134Weight = 400Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndPropertyHeight = 615Left = 7260TabIndex = 0Top = 4680Width = 1935EndBegin bel Label2Caption = " 密码"Height = 615Left = 3960TabIndex = 3Top = 6840Width = 1935EndBegin bel Label1Caption = " 帐号"Height = 615Left = 3960TabIndex = 2Top = 4680Width = 1935EndEnd帐号密码Dim s As DoubleDim t As IntegerPrivate Sub List1_Click() End SubPrivate Sub Command1_Click() i = 0Text1 = ""Text2 = ""Text3 = ""Text4 = ""Text5 = ""Text6 = ""Text7 = ""Text8 = ""Text9 = ""Text10 = ""Text12 = ""Text13 = ""Text14 = ""Text15 = ""Text16 = ""Text17 = ""Text18 = ""Text20 = ""Text21 = ""Text22 = ""Text24 = ""Text25 = ""Text26 = ""Text27 = ""Text28 = ""Text29 = ""Text30 = ""Text31 = ""Text32 = ""Text33 = ""Text34 = ""Text35 = ""Combo1 = ""Combo2 = ""Combo3 = ""Combo4 = ""Combo5 = ""Combo6 = ""Combo7 = ""Combo8 = ""Form5.Text1 = ""Form5.Text2 = ""Form5.Text3 = ""Form6.Text1 = ""Form6.Text2 = ""Form6.Text3 = ""Form6.Text4 = ""Form6.Text5 = ""End SubPrivate Sub Command2_Click() a1 = Val(Text1.Text)a2 = Val(Text2.Text)a3 = Val(Text3.Text)a4 = Val(Combo1.Text)a5 = Val(Combo2.Text)a6 = Val(Text6.Text)a7 = Val(Text7.Text)a8 = Val(Text8.Text)a9 = Val(Text9.Text)a10 = Val(Text10.Text)a12 = Val(Text12.Text)a13 = Val(Text13.Text)a14 = Val(Text14.Text)a15 = Val(Text15.Text)a22 = Val(Text20.Text)a23 = Val(Text21.Text)a24 = Val(Text22.Text)a25 = Val(Combo3.Text)a26 = Val(Combo4.Text)a27 = Val(Text36.Text)a28 = Val(Text24.Text)a29 = Val(Combo5.Text)a30 = Val(Combo6.Text)a31 = Val(Text25.Text)a32 = Val(Text26.Text)a33 = Val(Text27.Text)a34 = Val(Text28.Text)a35 = Val(Text29.Text)a36 = Val(Text30.Text)a37 = Val(Text31.Text)a38 = Val(Text32.Text)a39 = Val(Text33.Text)a40 = Val(Combo7.Text)a41 = Val(Text34.Text)a43 = Combo8.TextIf (a12 - 2 * a13) > 0 Thenb1 = a18 / (1 / 4 * 3.1416 * (a4 - 2 * a5) ^ 2)End IfIf a4 <> 0 Thent = Fix(a2 / a4)End Ifs = 0n = 0Do While s < a6n = n + 1d(n) = a1 + (1.9 * n - 0.9) * a4e(n) = 3.1415 * t * (a1 + (1.9 * n - 0.9) * a4)s = s + e(n)Loopt = Fix((n + 1) / 2)b11 = d(t)If (i = 0) ThenMsgBox "请选择牛顿流或非牛顿流"End IfIf (i = 1) Thenb2 = a16 * (a4 - 2 * a5) * b1 / a17End IfIf (i = 2) Thenb2 = (a4 - 2 * a5) ^ a19 * b1 ^ (2 - a19) * a16 / a20 / 8 ^ (a19 - 1) * (4 * a19 / (3 * a19 + 1)) ^ a19End IfIf ((b2 < 3470 - 1370 * a19) And (i = 2)) Then '非牛顿流层流b6 = "层流"b10 = "层流"b7 = 16 / b2b12 = 5.22 * (a4 / b11) ^ 0.3 / b2 ^ 0.6End IfIf ((b2 > 4270 - 1370 * a19) And (i = 2)) Then '非牛顿流紊流b6 = "紊流"b10 = "紊流"b7 = (Log(a19) / Log(10) + 3.93) / 50 / b2 ^ ((1.75 - Log(a19) / Log(10)) / 7)b12 = 1.06 * (Log(a19) / Log(10) + 3.93) / 50 / b2 ^ (0.8 * (1.75 - Log(a19) / Log(10)) / 7) * (a4 / b11) ^ 0.1End IfIf ((b2 < 4270 - 1370 * a19 And b2 > 3470 - 1370 * a19) And (i = 2)) Then '非牛顿流过渡流b6 = "过渡流"b10 = "过渡流"b7 = 16 / (3470 - 1370 * a19) + (b2 - (3470 - 1370 * a19)) * (((Log(a19) / Log(10) + 3.93) / 50) / (4270 - 1370 * a19) - 1 6 / (3470 - 1370 * a19)) / (4270 - 3470)b12 = 5.22 * (a4 / b11) ^ 0.3 / (3470 - 1370 * a19) ^ 0.6 + (b2 - (3470 - 1370 * a19)) * (((1.06 * ((Log(a19) / Log(10) + 3.93) / 50) / (4270 - 1370 * a19) ^ 0.6 * (a4 / b11) ^ 0.1) - (5.22 * (a4 / b11) ^ 0.3) / (3470 - 1370 * a19) ^ 0.6)) / (4 270 - 3470)End IfIf i = 1 Then ' 牛顿流直管b3 = b2 * Sqr(a4 / b11)b4 = 300 / Sqr(a4 / b11)b5 = 2100 / Sqr(a4 / b11)r3 = 59.7 / (2 * a15) ^ (8 / 7)End IfIf (b3 > 30 And b3 < 300) And i = 1 Thenb7 = 16 / b2b6 = "层流"r6 = b7End IfIf ((b3 > 2100 And b3 < 14000) And (b2 > r3)) And i = 1 Thenr4 = -2 * Log(a10 / 3.7065 - 5.0452 / b2 * Log((a10) ^ 1.1098 / 2.8257 + (7.149 / b2) ^ 0.8961) / Log(10)) / Log(10) b7 = 1 / (4 * r4 ^ 2)b6 = "紊流混合区"End IfIf ((b3 > 2100 And b3 < 14000) And (b2 < r3)) And i = 1 Thenr2 = 1.81 * logb2 / Log(10) - 1.53b7 = 1 / (4 * r2 ^ 2)b6 = "紊流光滑区"End IfIf (b3 > 300 And b3 < 2100) And i = 1 Thenb6 = "过渡流"r1 = 1 / 4 * 1 / (1.8 * logb2 / Log(10) - 1.53) ^ 2b7 = (b2 - b4) / (b5 - b4) * (r1 - 16 / b4) + 16 / b4End IfIf i = 1 Thenr5 = 2100 * (1 + 12 * (a4 / b11) ^ 0.5) '牛顿流盘管b8 = 300 / Sqr(a4 / b11)b9 = r5 / Sqr(a4 / b11)End IfIf (b3 > 30 And b3 < 300) And i = 1 Thenb12 = b7 * (0.556 + 0.0969 * Sqr(b3))b10 = "层流"End IfIf (b3 > 300 And b3 < r5) And i = 1 Thenb10 = "过渡流"b12 = 1.8 / b2 ^ 0.5 * (a4 / b11) ^ 0.25End IfIf (b3 > r5 And b3 < 14000) And i = 1 Thenb10 = "紊流"b12 = b7 + 0.0075 * (a4 / b11) ^ 0.5End Ifr8 = 1 + (a22 / a16 - 1) * c4 '磨粒摩阻梯度系数MIf i = 1 Thenr9 = 1 + 2.5 * c4 + 10.05 * c4 ^ 2 + 0.00273 * Exp(1.66 * c4)End IfIf i = 2 Thenr9 = (1 - c4 / 0.63) ^ (-2.5 * a19)End IfIf b6 = "层流" Or b10 = "层流" Thenb13 = r9 ^ 0.6 * r8 ^ 0.4End IfIf b6 = "过渡流" Or b10 = "过渡流" Thenb13 = r9 ^ 0.5 * r8 ^ 0.5End IfIf b6 = "紊流混合区" Or b6 = "紊流光滑区" Or b10 = "紊流" Thenb13 = r9 ^ 0.2 * r8 ^ 0.8End Ifb14 = 2 * b7 * a7 * a16 * b1 ^ 2 / (a4 - 2 * a5) '压力损失b15 = 2 * b12 * (a6 - a7) * a16 * b1 ^ 2 / (a4 - 2 * a5)b28 = b14 + b15b16 = 3.767 * 10 ^ (-4) * a16 ^ 0.8 * b1 ^ 0.2 * a18 ^ 1.8b17 = 0.844 * a16 * a18 ^ 2 / (a19 ^ 2 * a17 ^ 2 * a26 ^ 4)b18 = 2 * b7 * a7 * a16 * ((a4 - 2 * a5) ^ 2 / ((a12 - 2 * a13) ^ 2 - a4 ^ 2) ^ 2) / (a12 - 2 * a13 - a4)b19 = b14 + b15 + b16 + b17 + b18 + a31b23 = c5 * 1 / 4 * 3.1416 * ((a12 - 2 * a13) ^ 2 - a4 ^ 2)r10 = (a17 ^ 2 / a16 / (a22 - a16)) ^ (1 / 3)If c1 <= 1.225 * r10 Thenb20 = 9.8 * (a22 - a16) * c1 ^ 2 / 18 / a17End IfIf c1 <= 20.4 * r10 And c1 >= 0.915 * r10 Thenb20 = 1.195 * c1 * ((a22 - a16) ^ 2 / a17 / a16) ^ (1 / 3)End Ifb21 = b20 / (2 / 3 * (1 - c4) ^ 2 * Exp(Abs(-2.5 * c4 / (1 - 39 / 64 * c4)))) If b20 > b21 Thenr11 = b20Elser11 = b21End IfIf Check1.Value = 1 Thenb22 = 2 * r11 * 1 / 4 * 3.1416 * ((a12 - 2 * a13) ^ 2 - a4 ^ 2)Elseb22 = 6 * r11 * 1 / 4 * 3.1416 * ((a12 - 2 * a13) ^ 2 - a4 ^ 2)End Ifb25 = a35If b23 > b22 Thenb26 = b23Elseb26 = b22End IfIf b24 > b25 Thenb27 = b24Elseb27 = b25End IfIf i = 1 Or i = 2 ThenMe.HideForm4.ShowEnd IfEnd SubPrivate Sub Command3_Click()Me.HideForm5.ShowEnd SubPrivate Sub Label11_Click()End SubPrivate Sub Label47_Click()End SubPrivate Sub Text23_Change()End SubPrivate Sub Text11_Change()End SubPrivate Sub Command4_Click()Me.HideForm6.ShowEnd SubPrivate Sub Command5_Click()If (Combo8.Text = "北石5LZ95*7.0") ThenText26 = "95"Text27 = "4.21"Text28 = "107.95"Text29 = "11.04"Text30 = "3.2"Text31 = "7.0"Text32 = "710"Text33 = "1240"Combo7 = "21"Text34 = "40"Text28 = "117.48"Text29 = "10"Text30 = "2.4"Text31 = "7.0"Text32 = "800"Text33 = "1780"Combo7 = " "Text34 = " "End IfIf (Combo8.Text = "克里斯坦Mach3") Then Text26 = "95"Text27 = "5.1"Text28 = " "Text29 = "107.95"Text30 = "9.15"Text31 = " "Text32 = " "Text33 = " "Combo7 = " "Text34 = " "End IfEnd SubVERSION 5.00Begin VB.Form Form3AutoRedraw = -1 'TrueCaption = "Form3"ClientHeight = 8985ClientLeft = 225ClientTop = 870ClientWidth = 15900LinkTopic = "Form3"ScaleHeight = 2.27911e8ScaleMode = 0 'UserScaleWidth = 1.42472e9StartUpPosition = 3 '窗口缺省WhatsThisButton = -1 'TrueWhatsThisHelp = -1 'TrueWindowState = 2 'MaximizedBegin mandButton Command4Caption = "非牛顿流"Height = 1935Left = 5880TabIndex = 83Top = 7440Width = 2415EndBegin mandButton Command3Caption = "牛顿流"Height = 1695Left = 5880TabIndex = 82Top = 4920Width = 2535EndBegin VB.Frame Frame1Caption = " 连续油管(CT)的输入" Height = 9735Left = 480TabIndex = 56Top = 240Width = 4215Begin VB.TextBox Text2Height = 495Left = 2520TabIndex = 66Top = 1263Width = 1575EndBegin VB.TextBox Text3Height = 495Left = 2520TabIndex = 65Top = 2166Width = 1575EndBegin VB.TextBox Text6Height = 495Left = 2520TabIndex = 64Top = 4485Width = 1575EndBegin VB.TextBox Text7Height = 495Left = 2520TabIndex = 63Top = 5388Width = 1575EndBegin VB.TextBox Text8Height = 495Left = 2520TabIndex = 62Top = 6291Top = 7194Width = 1575EndBegin VB.TextBox Text10Height = 495Left = 2520TabIndex = 60Top = 8097Width = 1575EndBegin boBox Combo1Height = 300Left = 2520TabIndex = 59Top = 3069Width = 1575EndBegin boBox Combo2Height = 300Left = 2520TabIndex = 58Top = 3777Width = 1575EndBegin VB.TextBox Text1Height = 495Left = 2520TabIndex = 57Top = 360Width = 1575EndBegin bel Label2Caption = "滚筒宽度（m）" Height = 495Left = 720TabIndex = 76Top = 1224Width = 1575EndBegin bel Label3Caption = "滚筒缘直径(m)" Height = 495Left = 720TabIndex = 75Top = 2088Width = 1575EndBegin bel Label4Caption = "CT外径"Height = 495Left = 720TabIndex = 74Top = 2952Width = 1575EndBegin bel Label5Caption = "CT厚度"Height = 495Left = 720TabIndex = 73Top = 3816Width = 1575EndBegin bel Label6Caption = "CT总长度(m)" Height = 495Left = 720TabIndex = 72Top = 4680Width = 1575Top = 5544Width = 1575EndBegin bel Label8Caption = "CT内压极限（Mpa）"Height = 495Left = 720TabIndex = 70Top = 6408Width = 1575EndBegin bel Label9Caption = "CT外压极限（Mpa）"Height = 495Left = 720TabIndex = 69Top = 7272Width = 1575EndBegin bel Label10Caption = "CT相对粗造度"Height = 495Left = 720TabIndex = 68Top = 8136Width = 1575EndBegin bel Label1AutoSize = -1 'TrueCaption = "滚筒直径（m）"Height = 495Left = 720TabIndex = 67Top = 360Width = 1575EndEndBegin VB.Frame Frame4Caption = " 钻井液固相参数输入 " Height = 3015Left = 10560TabIndex = 49Top = 240Width = 4215Begin VB.TextBox Text20Height = 375Left = 2160TabIndex = 52Top = 360Width = 1455EndBegin VB.TextBox Text21Height = 375Left = 2160TabIndex = 51Top = 1260Width = 1455EndBegin VB.TextBox Text22Height = 375Left = 2160TabIndex = 50Top = 2160Width = 1455EndBegin bel Label23Caption = "密度（kg/m＾3）"Height = 375Left = 360TabIndex = 55Caption = "颗粒直径（m）"Height = 375Left = 360TabIndex = 54Top = 1260Width = 1455EndBegin bel Label25Caption = "固相比"Height = 375Left = 360TabIndex = 53Top = 2160Width = 1455EndEndBegin VB.Frame Frame5Caption = " 钻头参数输入" Height = 3135Left = 10560TabIndex = 44Top = 3660Width = 4215Begin boBox Combo3Height = 300Left = 2160TabIndex = 80Top = 480Width = 1575EndBegin VB.TextBox Text36Height = 375Left = 2160TabIndex = 77Top = 1790Width = 1575EndBegin boBox Combo4Height = 300Left = 2160TabIndex = 46Top = 1135Width = 1575EndBegin VB.TextBox Text24Height = 375Left = 2160TabIndex = 45Top = 2520Width = 1575EndBegin bel Label27Caption = "钻头类型"Height = 375Left = 240TabIndex = 81Top = 480Width = 1575EndBegin bel Label28Caption = "钻头水眼尺寸（m）"Height = 375Left = 240TabIndex = 79Top = 1160Width = 1575EndBegin bel Label30Caption = "流量系数"Height = 375Left = 240TabIndex = 78Caption = "Label26"Height = 375Left = 240TabIndex = 48Top = 360Width = 15EndBegin bel Label29Caption = "钻头水眼个数"Height = 375Left = 240TabIndex = 47Top = 1840Width = 1575EndEndBegin VB.Frame Frame7Caption = " 其他参数输入"Height = 2775Left = 10560TabIndex = 37Top = 7200Width = 4215Begin boBox Combo5Height = 300Left = 2160TabIndex = 40Top = 480Width = 1455EndBegin boBox Combo6Height = 300Left = 2160TabIndex = 39Top = 1200Width = 1455EndBegin VB.TextBox Text25Height = 300Left = 2160TabIndex = 38Top = 1920Width = 1455EndBegin bel Label31Caption = "工具名称"Height = 375Left = 240TabIndex = 43Top = 480Width = 1455EndBegin bel Label32Caption = "个数"Height = 375Left = 240TabIndex = 42Top = 1200Width = 1455EndBegin bel Label33Caption = "总压降（Mpa）"Height = 375Left = 240TabIndex = 41Top = 1920Width = 1455EndEndBegin VB.Frame Frame6Caption = " 螺杆钻具参数输入" Height = 9615Begin mandButton Command5 Caption = "确定选择" Height = 495Left = 2160TabIndex = 84Top = 960Width = 1455EndBegin VB.TextBox Text26Height = 375Left = 2160TabIndex = 25Top = 1680Width = 1455EndBegin VB.TextBox Text27Height = 375Left = 2160TabIndex = 24Top = 2400Width = 1455EndBegin VB.TextBox Text28Height = 375Left = 2040TabIndex = 23Top = 3120Width = 1455EndBegin VB.TextBox Text29Height = 375Left = 2040TabIndex = 22Top = 3960Width = 1455EndBegin VB.TextBox Text30Height = 375Left = 2040TabIndex = 21Top = 4680Width = 1455EndBegin VB.TextBox Text31Height = 375Left = 2040TabIndex = 20Top = 5400Width = 1455EndBegin VB.TextBox Text32Height = 375Left = 2040TabIndex = 19Top = 6240Width = 1455EndBegin VB.TextBox Text33Height = 375Left = 2040TabIndex = 18Top = 7200Width = 1455EndBegin boBox Combo7Height = 300Left = 2040TabIndex = 17Top = 7920Width = 1455EndBegin VB.TextBox Text34EndBegin boBox Combo8Height = 300Left = 2160TabIndex = 15Top = 360Width = 1575EndBegin bel Label34Caption = "公称外径(m)"Height = 375Left = 240TabIndex = 36Top = 1680Width = 1455EndBegin bel Label35Caption = "标准长度(m)"Height = 375Left = 120TabIndex = 35Top = 2400Width = 1455EndBegin bel Label36Caption = "钻头尺寸（m）"Height = 375Left = 240TabIndex = 34Top = 3120Width = 1575EndBegin bel Label37Caption = "最大流量(m＾3/s)" Height = 375Left = 120TabIndex = 33Top = 3720Width = 1455EndBegin bel Label38Caption = "工作压降（Mpa）" Height = 375Left = 120TabIndex = 32Top = 4680Width = 1455EndBegin bel Label39Caption = "最大压降（Mpa）" Height = 375Left = 120TabIndex = 31Top = 5400Width = 1455EndBegin bel Label40Caption = "输出扭矩（KN.m）" Height = 375Left = 120TabIndex = 30Top = 6360Width = 1455EndBegin bel Label41Caption = "最大扭矩（KN.m）" Height = 375Left = 120TabIndex = 29Top = 7200Width = 1455TabIndex = 28Top = 7920Width = 1455EndBegin bel Label43Caption = "最大钻压（Mpa）"Height = 375Left = 240TabIndex = 27Top = 8760Width = 1455EndBegin bel Label45Caption = "螺杆钻具选择"Height = 255Left = 120TabIndex = 26Top = 480Width = 1575EndEndBegin VB.Frame Frame2Caption = " 油套管输入" Height = 4335Left = 5520TabIndex = 2Top = 240Width = 4215Begin VB.TextBox Text12Height = 375Left = 2640TabIndex = 7Top = 240Width = 1575EndBegin VB.TextBox Text13Height = 375Left = 2640TabIndex = 6Top = 1000Width = 1575EndBegin VB.TextBox Text14Height = 375Left = 2640TabIndex = 5Top = 1760Width = 1575EndBegin VB.TextBox Text15Height = 375Left = 2640TabIndex = 4Top = 2520Width = 1575EndBegin VB.CheckBox Check1Height = 375Left = 2640TabIndex = 3Top = 3240Width = 855EndBegin bel Label12Caption = "套管外径（m）"Height = 375Left = 240TabIndex = 13Top = 240Width = 1575EndTop = 990Width = 1575EndBegin bel Label14Caption = "套管相对粗造度"Height = 375Left = 240TabIndex = 11Top = 2490Width = 1575EndBegin bel Label15Height = 375Left = 240TabIndex = 10Top = 2760Width = 735EndBegin bel Label46Caption = "老井套管长度（m）" Height = 375Left = 240TabIndex = 9Top = 1740Width = 1575EndBegin bel Label16Caption = "是否为老井加深"Height = 375Left = 240TabIndex = 8Top = 3240Width = 1575EndEndBegin mandButton Command2Caption = "转到计算（&C）"CausesValidation= 0 'FalseHeight = 495Left = 17880TabIndex = 1Top = 9960Width = 1815EndBegin mandButton Command1Caption = "重新输入"Height = 495Left = 15480TabIndex = 0Top = 9960Width = 1815EndBegin VB.Line Line1X1 = 0X2 = 3.5842e5Y1 = 0Y2 = 0EndBegin VB.Menu 连续油管钻井水力参数计算Caption = "文件&F"WindowList = -1 'TrueBegin VB.Menu NewCaption = "新建"Shortcut = ^NEndBegin VB.Menu openCaption = "打开"Shortcut = ^OEndBegin VB.Menu saveasCaption = "另存为"Shortcut = ^SEndBegin VB.Menu printCaption = "打印"EndBegin VB.Menu exitCaption = "结束"Shortcut = ^EEndEndBegin VB.Menu inputCaption = "参数输入&L"Begin VB.Menu 油管Caption = "油管的输入" EndBegin VB.Menu 套管Caption = "套管的输入" EndBegin VB.Menu 钻井液流体Caption = "钻井液流体" EndBegin VB.Menu 钻井液固体Caption = "钻井液固体" EndBegin VB.Menu 钻头Caption = "钻头"EndBegin VB.Menu 螺杆Caption = "螺杆"EndBegin VB.Menu 其他Caption = "其他"EndEndBegin VB.Menu outputCaption = "结果输出&O"EndBegin VB.Menu helpCaption = "帮助&H"EndEnd是否为老井加深老井套管长度（m）套管相对粗造度套管厚度（m ）套管外径（m ）Private Sub Command1_Click()Me.HideForm3.ShowEnd SubPrivate Sub Command3_Click()c1 = Val(Text21.Text)c2 = Val(Text22.Text)c3 = Val(Text23.Text)c4 = Val(Text24.Text)c5 = Val(Combo1.Text)End SubPrivate Sub Form_Activate()Text1 = b1Text2 = b2Text3 = b3Text4 = b4Text5 = b5Text6 = b6Text7 = b7Text8 = b8Text9 = b9Text10 = b10Text11 = b11Text12 = b12Text13 = b13Text14 = b14Text15 = b15Text16 = b16Text17 = b17Text18 = b18Text19 = b19Text25 = b20Text26 = b21Text27 = b22Text20 = b23Text28 = b24Text30 = b25Text31 = b26Text29 = b27End SubPrivate Sub Frame11_DragDrop(Source As Control, X As Single, Y As Single) End SubVERSION 5.00Begin VB.Form Form4Caption = "系统压力计算"ClientHeight = 7875ClientLeft = 120ClientTop = 450ClientWidth = 15180LinkTopic = "Form4"ScaleHeight = 7875ScaleWidth = 15180StartUpPosition = 3 '窗口缺省WindowState = 2 'MaximizedBegin VB.Frame Frame10Caption = " CT钻井合适排量推荐" Height = 2895Left = 15960TabIndex = 74Top = 4920Width = 3735Begin VB.TextBox Text31Height = 615Left = 2160TabIndex = 79Text = "Text31"Top = 720Width = 975EndBegin VB.TextBox Text29Height = 735Left = 2160TabIndex = 78Text = "Text29"Top = 1680Width = 1095EndBegin bel Label34Caption = "最大流量"Height = 735Left = 360TabIndex = 77Top = 1920Width = 975EndBegin bel Label30Caption = "最小流量"Height = 615Left = 480TabIndex = 75Top = 720Width = 1095EndEndBegin mandButton Command3Caption = "确认计算"Height = 735Left = 17640TabIndex = 71Top = 9000Width = 1695EndBegin VB.Frame Frame1Caption = " 流动基本参数"Height = 2415Left = 720TabIndex = 52Top = 360Width = 3855Begin VB.TextBox Text3Height = 375Left = 1680Locked = -1 'TrueTabIndex = 55Top = 1680Width = 1095EndBegin VB.TextBox Text2Locked = -1 'TrueTabIndex = 54Top = 1020Width = 1095EndBegin VB.TextBox Text1Height = 375Left = 1680Locked = -1 'TrueTabIndex = 53Top = 360Width = 1095EndBegin bel Label11Caption = "狄恩数"Height = 375Left = 360TabIndex = 58Top = 1680Width = 1095EndBegin bel Label10Caption = "雷诺数"Height = 495Left = 360TabIndex = 57Top = 960Width = 855EndBegin bel Label9Caption = "流速（m/s）"Height = 375Left = 360TabIndex = 56Top = 360Width = 1095EndEndBegin VB.Frame Frame3Caption = " 盘管CT压力损失摩阻系数" Height = 3615Left = 10560TabIndex = 44Top = 240Width = 4215Begin VB.TextBox Text12Height = 375Left = 2400Locked = -1 'TrueTabIndex = 49Top = 3000Width = 1455EndBegin VB.TextBox Text11Height = 375Left = 2400Locked = -1 'TrueTabIndex = 48Top = 2340Width = 1455EndBegin VB.TextBox Text10Height = 375Left = 2400Locked = -1 'TrueTabIndex = 47Top = 1680Width = 1455EndBegin VB.TextBox Text9Height = 375Left = 2400Locked = -1 'TrueTabIndex = 46。
钻井工程常用计算公式
钻井常用计算公式•、地层压力计算1、静液柱压力（MPa）=P（粘井液密度）*0.00981*H（垂深m）2、压力梯度值（MPa）=p（钻井液密度）*0.009813、单位内容积（r∩3Λn>=7.854*10-5*内径2（Cm）4、单位环空容积（m3∕m）=7.854*10^5*（井径2cm-管柱外径2cm）5、容积（m?）=单位内容积（m3∕m）*长度（m）管柱单位排音量（mVm）=7.854*10^5*（外径2cm内径2cm）6、地层压力（MPa）=钻具静液柱压力+关井立压7、压井钻井液密度（g∕c11p>=（关井立压Mpa/O.00981/11（m））+当前井液P（gcm3）8、初始循环压力=关井立压+底泵速泵压9、终止循环压力=（压力井液p/当前井液p）*低泵速泵压10、溢流长度m;钻井液增量m3/环空单位容积m3∕m11、溢流密度p（g∕cm3）=当前井液P-［（套压MPa-立压Mpa）/（溢流长度m*0.00981）］12、当量循环密度p（g/cm3）-（环空循环压力损失Mpa/O.00981/垂深m）+当前井液P13、当量钻井液P（g4zm3）-总压力Mpa/O.00981/垂深m14、孔隙压力MPa=9.81*Wf（地瓜水平均密度g∕cmυ*H（垂高m）15、上覆岩层压力（Mpa）=（岩石基质重量+流体重量）/面积［9.81*［（卜-。
岩石孔隙度％）*pm岩石基颓密度Hem3+4>*p岩石孔隙中流体密度g/cnP］16、地层破裂压力梯度（Mpa）=Pf（破裂地层压力Mpa）/H（破裂地层垂直深度m>Pf（破裂地层压力Mpa）=Ph（液柱压力Mpa）+P（破裂实验时的立管压力MPa）二、喷射钻井计算公式1、射流喷射速度计算相同直径喷嘴VOU1.2.73*Q（通过喷嘴液体排量1.∕S）∕n（喷嘴个数）*dc>2（喷嘴直径Cm）不相同直径喷喷Vo=12.73*Q（通过喷嘴液体排量1.∕S）/de?（喷嘴当量直径Cm）试中:de喷喷当量直径（cm）计算等喷嘴直径de-（根号n喷嘴个数）*d。
连续管钻井水力参数计算软件计算
每层长度 260.32 273.83 287.34 300.85 314.35 327.86 341.37 354.88 368.39 381.89 288.93
管内压降 狄恩数DE CT直径D CT厚度T CT内径d 筒芯直径TD 绝对粗糙度ks 0.51 31548 0.073 0.0048 0.0634 2.6 4.7E-05 0.10 29965 0.10 直段长度 盘管段长度 密度P n 0.10 第1种情况 3500 0 清水 1006 1 0.11 第2种情况 2500 1000 泥浆 1180 0.52564 0.11 全盘在滚筒上 0 3500 平均弯曲半径 0.11 第一种情况 1.3 0.11 第二种情况 1.441 0.11 第三种情况 1.683 0.12 0.09 进入混合摩擦区的雷诺数下限 1.56
Q(L/min) 600 b 0.25 0.2899 △Pg 0.024 0.104
a
lg n 3.93 50
b
1.75 lg n 7
NRe1
59.7
kg 3.767 104 ρ 0.8 μ 0.2 d pv
2
8/ 7
65
5.0452 1.1098 7.149 0.8961 lg( ( ) )] N Re 2.8257 N Re
a b NRe g
0.1
NRe
d
平均弯曲半径 1.3 1.441 1.683 平均弯曲半径 1.3 1.441 1.683
连续管钻井水力参数计算软件使用说明
目录1 软件介绍及安装 (2)1.1 软件简介 (2)1.2 安装环境要求 (2)1.3 安装及运行步骤 (2)2 软件主要功能 (5)3 软件的使用 (7)3.1 承载能力评估用到的数据库 (7)3.2 分析井架稳定性 (11)3.3 井架等级评定 (25)3.4 数据库管理 (29)3.5 使用帮助 (31)钻修机井架承载能力评估系统使用说明1 软件介绍及安装1.1 软件简介本软件由长江大学机械工程学院开发，系统综合井架整体稳定性和局部稳定性的计算方法，以及井架等级的评定方法，通过对Excel、Access数据库及APDL 等数据的处理，从而快速、准确地对井架的承载能力做出客观的评价。
1.2 安装环境要求WINDOWS XP，WINDOWS 7等WINDOWS环境；如想使用完整功能，需安装Ansys（推荐使用10.0）环境，否则只能使用现场分析模块。
1.3 安装及运行步骤1、运行安装程序AssessDerricks.exe，如果已安装再次安装时提示如下；图1.1 再次安装提示信息2、在安装时，请关闭所有的应用程序，包括防护墙或允许软件的相关操作；3、接受安装协议后根据提示安装即可。
由于用于开发软件的计算机系统与用户系统存在一定的差异，在安装时可能出现系统文件替换，用户只需要确定即可；同时，由于意外会产生系统错误提示，用户忽略即可，并不影响程序的安装。
安装完后，在桌面及开始菜单中生成快速启动图标（如图1.2所示）。
图1.2 开始菜单处的快启动方式4、单击桌面快捷方法启动程序，首次安装时需要进行注册使用（可联系开发者获取）。
图1.3 用户注册使用5、注册成功后即可在启动界面选择模块。
图1.4 欢迎界面2 软件主要功能该软件主要有四大功能。
第一大功能是根据现场实测数据对井架进行稳定性分析。
工程技术人员可以通过应变仪测量井架每根杆的应变，在软件运行界面调用每根杆的基本参数和特征参数，然后计算每根杆的等效安全系数，得到最危险杆的等效安全系数，从而完成井架局部稳定性计算，工程技术人员也可以在软件运行界面对数据库中的数据进行维护，包括修改、删除等操作，以确保计算结果的准确性。
连续管钻井水力参数计算软件公式
连续管钻井水力参数计算软件公式流体性质几何尺寸密度MW = 1180 kg/m^3 滚筒直径D = 2.54 m流型指数N = 0.52564连续油管外径OD =0.073025 m流变系数K = 0.8213 pa.s^n 连续油管厚度T =0.004776 m管柱长度L = 3500 m流动参数滚筒外连续油管长度LOFF= 2500 m流量Q = 36 m^3/h滚筒上的连续油管长度LON= 1000 m 流速V = 3.160327337 m/s雷诺数RE=4432.993792连续油管内径ID=0.063473 m系数A =0.073013768过流面积s=0.003164229 m^2系数B =0.289901656直管计算弯曲管计算层流状态下最大雷诺数CRE1= 2749.8732 层流状态下最大雷诺数CRE3=5576.74紊流状态下最小雷诺数CRE2= 3549.8732 紊流状态下最小雷诺数CRE4=6376.74流态,直管段= 紊流流态,弯曲管段= 层流直管段范宁摩阻系数F1= 0.00640 弯曲管段范宁摩阻系数F2=0.0077直管段压力损失P1= 5951212.806 Pa 弯曲管段压力损失P2=4038579.29 Pa全部管柱压力损失P3 =9989792.1 Pa 范宁摩阻系数弯直管段比bi 1.203几种典型流体的流变参数流体密度n K。
连续管钻井水力参数计算软件公式
流体性质几何尺寸密度MW = 1180 kg/m^3 滚筒直径D = 2.54 m流型指数N = 0.52564连续油管外径OD =0.073025 m流变系数K = 0.8213 pa.s^n 连续油管厚度T =0.004776 m管柱长度L = 3500 m流动参数滚筒外连续油管长度LOFF= 2500 m流量Q = 36 m^3/h滚筒上的连续油管长度LON= 1000 m 流速V = 3.160327337 m/s雷诺数RE=4432.993792连续油管内径ID=0.063473 m系数A =0.073013768过流面积s=0.003164229 m^2系数B =0.289901656直管计算弯曲管计算层流状态下最大雷诺数CRE1= 2749.8732 层流状态下最大雷诺数CRE3=5576.74紊流状态下最小雷诺数CRE2= 3549.8732 紊流状态下最小雷诺数CRE4=6376.74流态,直管段= 紊流流态,弯曲管段= 层流直管段范宁摩阻系数F1= 0.00640 弯曲管段范宁摩阻系数F2=0.0077直管段压力损失P1= 5951212.806 Pa 弯曲管段压力损失P2=4038579.29 Pa全部管柱压力损失P3 =9989792.1 Pa 范宁摩阻系数弯直管段比bi 1.203几种典型流体的流变参数流体密度n K清水1006 1.000 0.0010盐水 1018 1.000 0.0010 单元格颜色模式 水溶液(凝胶)1 1030 0.669 0.0930 绿色= 用户输入值水溶液(凝胶)2 1042 0.605 0.5110 蓝色 = 计算值水溶液(凝胶)310540.507 2.188711800.525640.8213流体流动和压力损失计算表过渡流压力损失(Pa)流量 (m^3/h)层流 紊流临界值1 临界值2插值-f直管段26.040051 30.964283 3353665.832715951212.80631 2828674.110174695625.99035 6756555.5528弯管段 42.064289 46.068147 4038579.28537 2863224.58722 1455857.4360210825082.39628 21167776.7648弯管层流相关参数psi= 4.318574 雷诺数 4433狄恩数的幂phi=(0.055065)狄恩数700.76883直 863.150479 psi 弯 585.7464281 psi110.51324Re 210031phin phin D psi n D -⎛⎫⎛⎫= ⎪ ⎪+⎝⎭⎝⎭21513022Q/0.2271154.63(/0.0254)Reoff s l P D ρ=（）22513022(Q/0.2271)154.63(/0.0254)off b s a l Re P D ρ⎛⎫⎪⎝⎭=2s135113022(Q /0.2271)154.63(/0.0254)Re off s l P D ρ=2s24513022(Q /0.2271)154.63(/0.0254)off b s a l Re P D ρ⎛⎫ ⎪⎝⎭=()()143321Re Re Re Re s s s s P P p P --=+-()21513022(Q/0.2271)154.63(/0.0254)Reon c psi Des l P D ρ=0.1120.822511.069189(Q/0.2271)154.63(/0.0254)on b c D al D ReP D ρ⎛⎫ ⎪⎝⎭=2c135133022(Q /0.2271)154.63(/0.0254)Re on c l P D ρ=()0.1212c20.84451(/0.2271)(/0.2271) 1.069189(Q /0.2271)154.63(/0.0254)on bc a D D l Re P D ρ=()()143321Re Re Re Re c c c c P P p P --=+-系号表示步骤1. LON=L-LOFF2, ID=OD-2*T3 S=ID^2*PI()/4 PI=3.1415926544 V=Q/3600/S5RE=(0.124*(Q/0.2271)^(2-N)*MW/(9.804^N*K*(ID/0.0254)^(4-3*N)))*(N/(1+3*N))^N6 CRE1 =3470-1370*N7 CRE2 =4270-1370*N8 psi=47.969-153.8*N+166.22*N^2-60.132*N^39 phi=0.875*N-0.51510 CRE3 =(4*N/(3*N+1))^N*(2100*psi*(ID/D)^(0.5*phi))^(1/(1-phi))11 CRE4=CRE3+80012 A=(LOG(N)+3.93)/50 LOG(N)= LOG(N)/LOG(10)13 B=(1.75-LOG(N))/7 LOG(N)= LOG(N)/LOG(10)14 F1=A/RE^B15 F2=(1.069*A/RE^(0.8*B))*(ID/D)^0.116 bi=F2/F117 L10=(A/RE^B)*189*LOFF*MW*(Q/0.2271)^2/(154.63*(ID/0.0254)^5)18I10=((((0.124*MW/(9.804^N*K*(ID/0.0254)^(4-3*N)))*(N/(1+3*N))^N)^(-1)*CRE1)^(1/(2-N))) *0.227119 M10=3022*LOFF*MW*(I10/0.2271)^2/(154.63*(ID/0.0254)^5*CRE1)20J10=((((0.124*MW/(9.804^N*K*(ID/0.0254)^(4-3*N)))*(N/(1+3*N))^N)^(-1)*CRE2)^(1/(2-N)) )*0.227121 N10=(A/CRE2^B)*189*LOFF*MW*(J10/0.2271)^2/(154.63*(ID/0.0254)^5)22 O10=M10+(RE-CRE1)*(N10-M10)/(CRE2-CRE1)23 K10=3022*LOFF*MW*(Q/0.2271)^2/(154.63*(ID/0.0254)^5*RE)24K12=(0.124*(Q/0.2271)^(2-N)*MW/(9.804^N*K*(ID/0.0254)^(4-3*N)))*(N/(1+3*N))^N25 K13 =K12*(ID/D)^0.526 K11=(psi*K13^phi)*3022*LON*MW*(Q/0.2271)^2/(154.63*(ID/0.0254)^5*RE)27L11=(ID/D)^0.1*1.069*A/RE^(0.8*B)*189*LON*MW*(Q/0.2271)^2/(154.63*(ID/0.0254)^5)28I11=((((0.124*MW/(9.804^N*K*(ID/0.0254)^(4-3*N)))*(N/(1+3*N))^N)^(-1)*CRE3)^(1/(2-N))) *0.227129 M11=3022*LON*MW*(I11/0.2271)^2/(154.63*(ID/0.0254)^5*CRE3)30 J11=((((0.124*MW/(9.804^N*K*(ID/0.0254)^(4-3*N)))*(N/(1+3*N))^N)^(-1)*CRE4)^(1/(2-N)))*0. 227131N11=((ID/0.0254)*(D/0.0254))^0.1*(1.069*A/CRE4^(0.8*B))*189*LON*MW*(J11/0.2271)^2/(154.63*(ID/0.0254)^5)32 O11=M11+(RE-CRE1)*(N11-M11)/(CRE2-CRE1)33 P1=IF(RE<CRE1,K10,IF(RE>CRE2,L10,O10))IF RE<CRE1 THENP1=K10ELSEIF RE>CRE2 THENP1=L10ELSEP1=O10END IF34 P2 =IF(RE<CRE3,K11,IF(RE>CRE4,L11,O11))IF RE<CRE3 THENP1=K11ELSEIF RE>CRE4 THENP2=L11ELSEP2=O11END IF35 P3 =P1+P2。
钻井水力参数计算
已知：某216mm 井眼，井深3005m ，钻具组合为216mmbit+177.8mmDC(309m ，内径71.44mm)+ +127mmDP(内径108.6mm ，2696m)，钻井液密度1.35g/cm 3，Φ600＝47，Φ300＝32，Φ3＝4，泵的排量为34.55l/s ，最大泵压 18MPa ，试设计本井段的水力参数。
流量系数C=0.981．流变参数计算钻杆内流型指数：5546.0)32/47log(322.3)/log(322.3300600==ΦΦ=p n钻杆内稠度系数：)(5146.01022/47511.01022/511.05546.0600nn p Pas K p=⨯=Φ=环空流型指数：4515.0)4/32log(5.0)/log(5.03300==ΦΦ=a n环空稠度系数：9786.0511/511.0511/511.04515.0300=⨯=Φ=an a K2．计算钻柱内压力损失钻杆内分两段，分别是177.8mm 钻铤（309m ，内径71.44mm ），2696mm 钻杆2800米，先分别计算钻柱内水力压力损失。
（1）钻杆内 1）钻杆内流速s m d QV ip /725.3)1086.0(*1415.310*55.34*44232===-π2）计算管内雷诺数5.116935546.0415546.035146.087.21086.01035.14138Re 5546.015546.05546.025546.0312=⎪⎭⎫⎝⎛⨯+⨯⨯⨯⨯=⎪⎪⎭⎫⎝⎛+=----pp pp n p p p n n pn i n n K V d ρ3）判别流态若n 13703470Re -<，则为层流若n 13704270Re ->，则为紊流若n n 13704260Re 13703470-≤≤-，则为过渡流 2.35105546.013704270137042702.21705546.0137034701370347021=⨯-=-==⨯-=-=p p n C n C由于Re ＝11693.5>C2，为紊流 4）计算范宁摩阻系数 层流：Re16=f紊流：b a f Re /=过渡流：800Re 1121C C G C a C Gf b -⎪⎪⎭⎫ ⎝⎛++= 其中： G=16（钻杆内） G=24（环空中）5093.3log +=n a7log 75.1nb -=n C 137034701-=nC 137042702-=按紊流计算公式，先计算a ，b ：07348.05093.35546.0log 5093.3log =+=+=n a 28657.075546.0log 75.17log 75.1=-=-=nb按照紊流摩阻系数计算公式：328657.01001647.55.11693/07348.0Re/-⨯===ba f5）计算钻杆内的压耗)(663.41086.02696725.31035.11001647.52223322MPa d L V f P ip p =⨯⨯⨯⨯⨯⨯==-ρ（2）钻铤内压耗计算1）钻铤内流速s m d QV ic /62.8)07144.0(*1415.310*55.34*44232===-π2）计算管内雷诺数2.311485546.0415546.035146.087.20714.0.01035.14138Re 5546.015546.05546.025546.0312=⎪⎭⎫⎝⎛⨯+⨯⨯⨯⨯=⎪⎪⎭⎫⎝⎛+=----pp pp n p p p n n pn i n n K V d ρ3）判别流态若n 13703470Re -<，则为层流若n 13704270Re ->，则为紊流若n n 13704260Re 13703470-≤≤-，则为过渡流 2.35105546.013704270137042702.21705546.0137034701370347021=⨯-=-==⨯-=-=p p n C n C由于Re ＝31148.2>C2，为紊流 4）计算范宁摩阻系数 层流：Re16=f紊流：ba f Re /=过渡流：800Re 1121C C G C a C Gf b -⎪⎪⎭⎫ ⎝⎛++=其中： G=16（钻杆内）G=24（环空中）5093.3log +=n a7log 75.1nb -=n C 137034701-=n C 137042702-=按紊流计算公式，先计算a ，b ：07348.05093.35546.0log 5093.3log =+=+=n a 28657.075546.0log 75.17log 75.1=-=-=nb按照紊流摩阻系数计算公式：328657.01078848.32.31148/07348.0Re/-⨯===ba f5）计算钻杆内的压耗)(2857.307144.030962.81035.11078848.32223322MPa d L V f P ic p =⨯⨯⨯⨯⨯⨯==-ρ钻具内的总压耗为Pp=Pp1+Pp2=4.663＋3.2857=7.95MPa3. 计算环空压力损失环空划分为二段，第一段是216mm 钻头与177.8mm 的钻铤组成的长为309米的流道，第二段为216mm 钻头与127mm 的钻杆组成的长为2696m 的流道。
钻井常用计算公式
第四节 钻井常用计算公式一、井架基础的计算公式（一）基础面上的压力P 基= 式中：P 基——基础面上的压力，MPa ；n ——动负荷系数（一般取1.25~1.40）；Q O ——天车台的负荷=天车最大负荷+天车重量，t ；Q B ——井架重量，t ；（二）土地面上的压力P 地=P 基+W式中：P 地——土地面上的压力，MPa;P 基——基础面上的压力，MPa;W ——基础重量，t （常略不计）。
（三）基础尺寸1、顶面积F 1= 式中：F 1——基础顶面积，cm2；B 1——混凝土抗压强度（通常为28.1kg/cm2=0.281MPa)2、底面积F 2= 式中：F 2——基础底面积，cm 2；B 2——土地抗压强度，MPa ；P 地——土地面上的压力，MPa 。
3、基础高度式中：H ——基础高度，m ；F2、F1分别为基础的底面积和顶面积，cm 2；P 基——基础面上的压力，MPa ；B 3——混凝土抗剪切强度（通常为3.51kg/cm 2=0.351MPa ）。
（二）混凝土体积配合比用料计算1、计算公式 nQ O +Q B 4P BPB配合比为1∶m ∶n=水泥∶砂子∶卵石。
根据经验公式求每1m 3混凝土所需的各种材料如下：2、混凝土常用体积配合比及用料量，见表1-69。
表1-69 混凝土常用体积配合比及用料量二、井身质量计算公式（一）直井井身质量计算1、井斜角全角变化率式中：G ab——测量点a和b间井段的井斜全角变化率，（°）/30m；△L ab——测量点a和b间的井段长度，m；αa——测量点a点处的井斜角，°；αb——测量点b点处的井斜角，°；△Φab——测量点a和b之间的方位差，△Φab=Φb-Φa，°。
2、井底水平位移式中：S Z——井底水平位移，m；N O——井口N座标值，m；N n——实际井底N座标值，m；E O——井口E座标值，m；E n——实际井底E座标值，m。
连续管钻井水力参数计算软件携沙
AB C D E F G H I J K L M N O P Q R S T1 ρl (k g/m 3)ρs (k g/m 3)ds (m )液体 粘度μ (p a.s)D 套外 (m m ) t套(mm)D 油外 (m m )t 油 (m m ) S油 (m 2) S 油套 (m 2) 井筒深度(m)井筒 容积 (m 3) 环空 容积 (m 3)Q (L /m in )v 管 (m /s )v 环空(m/s )雷诺 管 雷诺 环空总平均 含砂率 (%)颗粒 范围 （m ）21006 2300 0.000250.010 139.7 12.173 4.80.0032 0.00629 3511.049 22.22 600 3.168 1.589 202031 67951 5 0.0001121931006 2300 0.000250.010177.816.373 4.80.00320.012373511.04943.306600 3.1680.88202031 587020.00186833 41180 2300 0.000250.04550.101201012.2(2.65 3.32)0s sC C r r v v e--=R S T U V X Y 7环空沉降末速Vt(m /s) 颗粒群滑移速度Vr(m/s)考虑絮凝(球粒)干扰沉降速度Vts(m/s)非球形颗粒(0.8球粒度)干扰沉降速度Vts(m/s)干扰沉速/自由沉速竖直井筒正冲所需最低流量(L/s)水平井筒正冲所需最低流量(L/s)8 0.0354 0.0310 0.0517 0.0354 1.461 0.446 1.337 清水5-1/2"套管9 0.0354 0.0310 0.0517 0.0354 0.999 0.651 1.95310 0.0011 0.0009 0.0015 0.0011 0.876 2.628 清水7"套管1.280 3.840X Y130.013 0.040 泥浆5-1/2"套管140.019 0.058150.026 0.079 泥浆7"套管160.038 0.115I J1 S油(m2) S油套(m2)2=PI()*((G2-2*H2)/1000)^2/4 =PI()*(((E2-2*F2)/1000)^2-(G2/1000)^2)/43=PI()*((G3-2*H3)/1000)^2/4 =PI()*(((E3-2*F3)/1000)^2-(G3/1000)^2)/4L M1 井筒容积(m3) 环空容积(m3)2 =I2*K2 =J2*K23 =I3*K3 =J3*K3v管(m/s) v环空(m/s) 雷诺管雷诺环空=N2/1000/60/ I2 =N2/1000/60/J2=O2*$A$2*($G$2-2*$H$2)/1000/$D$2=P2*$A2*($E2-2*$F2-$G2)/1000/$D2=N3/1000/60/ I3 =N3/1000/60/J3=O3*$A$2*($G$2-2*$H$2)/1000/$D$2=P3*$A3*($E3-2*$F3-$G3)/1000/$D3颗粒范围（m）=1.225*(D2^2/(A2*(B2-A2)))^(1/3) =20.4*(D2^2/(A2*(B2-A2)))^(1/3) =1105*(D2^2/(A2*(B2-A2)))^(1/3)环空沉降末速Vt(m/s)颗粒群滑移速度Vr(m/s)考虑絮凝(球粒)干扰沉降速度Vts(m/s)非球形颗粒(0.8球粒度)干扰沉降速度Vts(m/s)干扰自由沉速=IF(C2<=$T$2,0.545*C2^2*(B2-A 2)/D2,IF(C2<=$T$3,1.195*C2*(( B2-A2)^2/(D2*A2))^(1/3),IF(C2 <$T$4,5.39*(C2*(B2-A2)/A2)^0. 5,5.39*(C2*(B2-A2)/A2)^0.5))) =R8*EXP(-(2.65*$S$2/100-3.32*K8^2.2))=1/((2/3)*(1-$S$2/100)^2*EXP(ABS((-2.5*$S$2/100)/(1-($S$2/100)*39/64))))*R8=1/((1-$S$2/100)^2*EXP(ABS((-2.5*0.8*$S$2/100)/(1-($S$2/100)*39/64))))*R8=T8/R8=IF(C3<=$T$2,0.545*C3^2*(B3-A 3)/D3,IF(C3<=$T$3,1.195*C3*(( B3-A3)^2/(D3*A3))^(1/3),IF(C3 <$T$4,5.39*(C3*(B3-A3)/A3)^0. 5,5.39*(C3*(B3-A3)/A3)^0.5))) =R9*EXP(-(2.65*$S$2/100-3.32*K9^2.2))=1/((2/3)*(1-$S$2/100)^2*EXP(ABS((-2.5*$S$2/100)/(1-($S$2/100)*39/64))))*R9=1/((1-$S$2/100)^2*EXP(ABS((-2.5*0.8*$S$2/100)/(1-($S$2/100)*39/64))))*R9=U8/R8=0.688*(B4-A4)*(C4^2)/D4 =R10*EXP(-(2.65*$S$2/100-3.32*K10^2.2))=1/((2/3)*(1-$S$2/100)^2*EXP(ABS((-2.5*$S$2/100)/(1-($S$2/100)*39/64))))*R1=1/((1-$S$2/100)^2*EXP(ABS((-2.5*0.8*$S$2/100)/(1-($S$2/100)*39/64))))*R10竖直井筒正冲所需最低流量(L/s) 水平井筒正冲所需最低流量(L/s)=2*$R$8*$J$2*1000 =6*$R$8*$J$2*1000 清水5-1/2"套管=2*$T$9*$J$2*1000 =6*$T$9*$J$2*1000=2*$R$8*$J$3*1000 =6*$R$8*$J$3*1000 清水7"套管=2*$T$9*$J$3*1000 =6*$T$9*$J$3*1000=2*$R$10*$J$2*1000 =6*$R$10*$J$2*1000 泥浆5-1/2"套管=2*$T$10*$J$2*1000 =6*$T$10*$J$2*1000=2*$R$10*$J$3*1000 =6*$R$10*$J$3*1000 泥浆7"套管=2*$T$10*$J$3*1000 =6*$T$10*$J$3*1000。