水力参数设计及编程
第5章 PDC钻头水力参数优化设计方法
第5章 PDC钻头水力参数优化设计方法第5章pdc钻头水力参数优化设计方法第五章PDC钻头水力参数优化设计方法在机泵条件一定的情况下，水力参数优化设计的主要任务是确定钻头的喷嘴直径和钻井泵的压力和排量。
5.1泵压和排量对PDC钻头机械钻速的影响现场实践表明，泵压和排量对pdc钻头和牙轮钻头机械钻速的影响规律不同。
在泵功率一定的条件下，对pdc钻头来说，排量对钻速的影响更为重要；而对牙轮钻头来说，泵压对钻速的影响更为重要。
因此，pdc钻头趋向于使用较大排量和较低泵压，而牙轮钻头则趋向于使用较高泵压和较低排量。
在相同地层用相同尺寸钻头钻进，pdc钻头所用排量一般比牙轮钻头高5~10l/s，而泵压一般低2~3mpa。
图5-1和图5-2显示了通过现场数据统计分析得出的牙轮钻头和PDC钻头ROP和位移之间的关系。
可以看出，PDC钻头的机械钻速随排量的增加几乎呈线性增加。
对于牙轮钻头，当位移超过一定值（25L/s）时，机械钻速几乎不会增加。
1025820156410机械钻速/m/h2图5-1排量对牙轮钻头钻速的影响图55-1排量对pdc钻头钻速的影响00泵压和排量对牙轮钻头和pdc钻头的影响不同，是因为两种钻头的破岩机0510152025303540252627282930313233理和结构不同。
排量/l/s排量/l/s牙轮钻头主要以冲击压碎的方式破碎岩石，在井底形成裂纹发育的破碎坑穴（图5-3），故需要的较大的水功率来清除破碎坑内的岩屑。
而且，射流水功率越大，辅助破碎岩石的效果越好。
然而，牙轮钻头的喷嘴距井底较远，射流能量衰减严重，故需要较高的泵压（钻头压降）来补偿射流能量损失。
图5-3牙轮钻头的破岩作用图5-3 PDC钻头的破岩作用pdc钻头的喷嘴距井底只有30~40mm，一般小于射流等速核长度（等速核长度约为喷嘴当量直径的4.8~5倍），射流能量可以得到有效利用。
pdc钻头是以切削作用破碎岩石，岩屑直接被剥离井底，破岩效率高。
离心泵的水力设计讲解
离心泵的水力设计讲解离心泵的水力设计步骤如下：1.根据设计参数计算比转速ns；2.确定进出口直径；3.进行汽蚀计算；4.确定效率；5.确定功率；6.选择叶片数和进出口安放角；7.计算叶轮直径D2；8.计算叶片出口宽度b2；9.精算叶轮外径D2以满足要求；10.绘制模具图。
在设计离心泵之前，需要详细了解该泵的性能参数、使用场合、特殊要求等。
下表为本章中叶轮水力设计教程中使用的一组性能要求。
确定泵的进口直径时，应考虑泵吸入口的流速，一般取为3m/s左右。
大型泵的流速可以取大些，以减小泵的体积，提高过流能力；而对于高汽蚀性能要求的泵，应减小吸入流速。
本设计例题追求高效率，取Vs=2.2m/s，Ds=80.对于低扬程泵，出口直径可取与吸入口径相同。
高扬程泵，为减小泵的体积和排出管直径，可小于吸入口径。
本设计例题中，取Dd=0.81Ds=65.泵进出口直径都取了标准值，速度有所变化，需要重新计算。
本设计例题中，进口速度为Vs=2.05，出口速度为3.10.汽蚀是水力机械特有的一种现象，当流道中局部液流压力降低到接近某极限值时，液流中就开始发生空泡。
在确定泵转速时，需要考虑汽蚀条件的限制，选择C值，按给定的装置汽蚀余量和安装高度确定转速。
转速增大，过流不见磨损快，易产生振动和噪声。
汽蚀是液流中空泡发生、扩大、溃灭过程中涉及的物理、化学现象，会导致噪音、振动、甚至对流道材料产生侵蚀作用。
这些现象统称为汽蚀现象，一直是流体机械研究的热点和难点。
为了避免汽蚀带来的负面影响，需要计算汽蚀条件下允许的转速，并采用小于该转速的转速。
在计算汽蚀条件下的转速时，需要先计算汽蚀余量NPSHa，而NPSHa的计算需要知道泵的安装高度和设计要求中的数值。
例如，设计要求中给出的安装高度为3.3m，那么计算得到NPSHa为6.29m。
同时，还需要计算NPSHr，可以通过NPSHa除以1.3得到，例如计算得到NPSHr为2.54m。
比转速是一个综合性参数，它说明着流量、扬程、转数之间的相互关系。
水力计算器参数的确定方法及流程
水力计算器参数确定方法及流程
一、确定水力计算器类型
1.面积式水力计算器
2.速度式水力计算器
二、确定流量参数
1.测量管道直径
2.测量管道流速
（1）使用流速仪器测量
（2）使用流量计测量
三、确定压力参数
1.测量水泵出口压力
2.测量管道阻力
（1）考虑管道摩擦阻力
（2）考虑管道弯头、阀门的局部阻力
四、确定温度参数
1.测量水的温度
（1）考虑水温对水密度的影响
（2）考虑水温对水粘度的影响
五、确定水力计算器精度等级
1.根据实际测量需求确定精度等级（1）高精度要求
（2）一般精度要求
六、确定安装位置
1.考虑流体流速分布
2.考虑管道形态对测量精度的影响。
赫_巴模式水力参数设计与计算
pr= pc+ pb
( 2)
所以, 求出系统的循环压耗 p c 是关键。它由地
面管汇、管内和环空压耗共同组成, 见下式
p c = psp + p ci + p co
( 3)
根据水力 学原理, 决 定流 态 的因 素是 雷诺 数
R e。一般认为, 当 R e< 2100 时为层流; 当 Re > 2100
p
cop
t
=
2pm m+
ax
2
( 4)
当钻头水功率最大时, 循环压耗为
p
cop
t
=
p m
m ax
+1
( 5)
m 为在双对数坐标图上 p - q 直线的斜率, 理论
值为 1. 75~ 2, 无因次。要想使循环系统总的压耗 确定既满足最大水功率或最大射流冲击力的要求,
又能计算准确, 那么 m 的实际大小应该根据钻井现 场 2组一定排量值下计算出的循环系统压耗 ( p c1, q1 )、( pc2, q2 ) 来确定。
宾汉模式 幂律模式 赫 巴模式
5. 10 1. 75
4. 90 1. 30
5. 18 1. 84
6. 85 5. 62
6. 20 6. 48
7. 02 5. 20
32. 11 14. 70 157. 12 5616. 02 465. 32 13. 34
33. 20 14. 11 145. 64 5802. 97 468. 60 12. 70
在鄂尔多斯盆地北部工区, 已知某井的井深为 2800 m, 上部井段的平均井径为 217 mm, 钻头直径 为 216 mm, 钻杆外径为 127 mm, 内径为 108. 6 mm, 钻铤 外径 为 156 mm, 内径 为 60 mm, 泵 型为 F 1300, 额定功率为 956 kW, 额定泵压 21M P a, 缸套直 径 170 mm, 按钻头最大水功率设计, 其它参数见表 1, 计算结果见表 2。
钻井工程水力参数C语言源程序
#include"stdio.h"#include"math.h"void main(){ float m,n,Qa,Qr,t,Va,Qp,dc1=7.14,dh,dc[3],Kc[3],Kt=0.0,Kp,dp1,dp,de=8.8,Kg,Ps,Pb,PL,c=0.98,d,ds[3],PB,NB,PS,NS,Nbi,V o;double M,N,KL,Ao,As=0.0,R,Vk,Fj;int Lp,Le=100,Lc[3],i,H,Pmax=20;printf("W-4井钻井水力参数设计\n");printf("(1)确定返速：\n");printf("请输入钻井参数: 泥浆密度(g/cm3),粘度(pa*s),井径(cm):"); scanf("%f%f%f",&m,&n,&dh);Va=182.37/(m*1000*dh*0.01);printf("岩屑返速Va=%.1fm/s\n",Va);printf("(2)确定最小排量:\n");printf("请输入钻杆外径(cm)与内径(cm):");scanf("%f%f",&dp,&dp1);Qa=1000*Va*3.14*(dh*dh*0.0001-0.0001*dp*dp)/4.0;printf("携带岩屑所需最小排量Qa=%.1fL/s\n",Qa);printf("(3)计算压耗系数KL:\n");printf("(3.1)钻铤内外压耗系数:\n");printf("请输入各钻铤直径(cm):");for(i=0;i<3;i++)scanf("%f",&dc[i]);printf("请输入各对应的钻铤长度(m):");for(i=0;i<3;i++)scanf("%d",&Lc[i]);for(i=0;i<3;i++){ Kc[i]=Lc[i]*pow(m,0.8)*pow(n,0.2)*(0.51655/pow(dc1,4.8)+0.57503/(pow(dh-dc[i],3.0)*pow(dh+dc[i],1.8)));}for(i=0;i<3;i++)Kt=Kt+Kc[i];printf("钻铤压耗系数Kc=%.8f\n",Kt);printf("(3.2)钻杆内外压耗系数:\n");printf("请输入井深H(m):");scanf("%d",&H);Lp=H-(Lc[0]+Lc[1]+Lc[2]);printf("钻杆长度Lp=%dm\n",Lp);Kp=Lp*pow(m,0.8)*pow(n,0.2)*(0.51655/pow(dp1,4.8)+0.57503/(pow(dh-dp,3.0)*pow(dh+dp,1.8)));printf("钻杆压耗系数Kp=%.8f\n",Kp);printf("(3.3)地面管汇压耗计算:\n");Kg=0.51655*pow(m,0.8)*pow(n,0.2)*Le/pow(de,4.8);printf("地面管汇系数Kg=%.8f\n",Kg);printf("(3.4)M,N,KL值计算:\n");M=pow(m,0.8)*pow(n,0.2)*(0.51655/pow(dp1,4.8)+0.57503/(pow(dh-dp,3.0)*pow(dh+dp,1.8)));N=Kg+Kt-M*(Lc[0]+Lc[1]+Lc[2]);KL=Kg+Kt+Kp;printf("M=%.8f，N=%.8f，循环压耗系数KL=%.8f\n",M,N,KL);printf("(4)选择泵和缸套：\n");printf("请输入钻井泵排量(L/s)和工作压力(Mpa):");scanf("%f%f",&Qr,&Ps);printf("Qr=%.3fL/s,Ps=%.1fMpa\n",Qr,Ps);printf("(5)确定最优排量Qopt:");Qp=pow((Ps/(2.8*KL)),(1/1.8));printf("Qa=%.1fL/s,Qp=%.2fL/s,Qr=%.3fL/s,Ps=%.3fMpa\n",Qa,Qp,Qr,Ps); if(Qa<=Qp&&Qp<=Qr){ t=Qp;printf("最优排量为:");printf("Qopt=%.1fL/s\n",t);}else{ if(Qp<Qa){ t=Qa;printf("最优排量为:");printf("Q=%.1fL/s\n",t);}else { t=Qr;printf("最优排量为;\n");printf("Qopt=%.1fL/s\n",t); }}PL=KL*pow(t,1.8);printf("整个循环压降PL=%.3fMpa\n",PL);Pb=Ps-PL;printf("钻头压力降");printf("Pb=%.3fMpa\n",Pb);printf("(6)计算钻头上应装喷嘴面积Ao:\n");Ao=sqrt((1000*m*pow(t*pow(10,-3),2.0))/(2*c*c*1000000*Pb));printf("Ao=%.9fm^2\n",Ao);printf("选择三等径喷嘴，则理论喷嘴直径:");d=1000*sqrt(4*Ao/(3*3.14));printf("%.4fmm\n",d);printf("请输入三个实际喷嘴直径(cm):d1 d2 d3:");for(i=0;i<3;i++)scanf("%f",&ds[i]);for(i=0;i<3;i++)As=As+0.25*3.14*pow((ds[i]*1/1000),2.0);printf("实际喷嘴面积As:");printf("As=%.8f\n",As);printf("(8)计算实际水力参数:\n");PB=(1000*m*pow((t*1/1000),2.0))/(2*c*c*As*As*1000000); printf("实际钻头压降PB=%.3fMpa\\\\\\\\",PB);NB=PB*1000000*t/(1000*1000);printf("实际钻头水功率NB=%.3fKW \n",NB);PS=PL+PB;printf("实际泵压PS=%.3fMPa\\\\\\\\",PS);NS=(PS*1000000*(t/1000))/1000;printf("实际泵功率NS=%.3fKW\n",NS);R=NB/NS;printf("水功率匹配R=%.4f\\\\\\\\",R);Nbi=(NB*1000)/(0.25*3.14*pow(dh/100,2.0)*pow(10,6.0)); printf("钻头水功率Nbi=%.3fW/mm^2\n",Nbi);V o=(t/1000)/As;printf("实际喷速V o=%.3fm/s\\\\\\\\",Vo);Vk=(4*t/1000)/(3.14*(pow(dh/100,2.0)-pow(dp/100,2.0)));printf("实际环空反速Vk=%.3fm/s\n",Vk);Fj=(m*1000*pow(t/1000,2.0))/As; printf("实际冲击力Fj=%.3fN\n",Fj); printf("程序运行结束\n");}。
revit水力计算步骤_概述说明以及解释
revit水力计算步骤概述说明以及解释1. 引言1.1 概述：本篇文章将详细介绍Revit水力计算步骤的概念、应用和解释。
水力计算是工程设计中必不可少的一环，它对于确保建筑物内部水流的正常运行具有重要意义。
而Revit软件作为一款功能强大的BIM(Building Information Modeling)工具，在水力计算方面提供了便捷且精确的解决方案。
1.2 文章结构：本文总共分为五个主要部分。
首先，引言部分将概述本文的目的和结构。
之后，第二部分将简要介绍Revit软件及其在水力计算中所涉及的基本概念。
紧接着，第三部分将通过一个案例来说明基于Revit进行水力计算的实施步骤。
第四部分将总结出主要要点，并提出改进建议和未来发展趋势展望。
最后，在结论部分我们将总结出研究成果并讨论其对工程实践的推广应用意义。
1.3 目的：本文旨在全面介绍Revit软件在水力计算中所涉及的步骤，并通过实际案例来更好地说明其应用与效果。
通过阐述Revit软件的优势和局限性，以及提出改进建议和未来发展趋势，本文旨在为工程设计人员提供一个详尽的指南，以便更好地使用Revit进行水力计算，并推广其在实际工程项目中的应用。
2. Revit水力计算步骤2.1 Revit软件简介Revit是一款由Autodesk公司开发的建筑信息模型（BIM）软件。
它提供了一套强大的工具来帮助建筑设计师创建、分析和调整建筑模型。
在水力计算方面，Revit提供了一系列功能和插件，可以进行准确的水力分析和设计。
2.2 Revit水力计算基本概念在进行Revit水力计算之前，首先需要了解一些基本概念。
其中包括：- 水力系统：指建筑中与给排水有关的管道、阀门、设备等组成的系统。
- 流速：流体通过管道时的速度。
- 压力损失：流体通过管道时由于摩擦和阻力引起的能量损失。
- 压降曲线：描述流体通过管道时压力变化的曲线。
2.3 Revit水力计算步骤详解Revit水力计算包括以下步骤：步骤1: 创建或导入几何模型首先，在Revit中创建或导入建筑几何模型。
钻井水力参数设计表格-超强
1. 基本数据
1.1.
1.2.
1.3
注:打水泥塞的水泥量一定要小于等于所需水泥浆的最大容积
1.4
打水泥塞顶替量计算
1钻
注:所需水泥量、添加剂量、混合水量、水泥浆密度等由固井公司提供数据,监督进行确认,本表格只
套管环空
-9.8
注水泥塞安全施工措施
1、施工前要充分循环钻井液。
应采用低屈服点和低塑性粘度及适当加重的钻静液。
2、注水泥塞前在预计水泥塞下面垫稠钻井液，防止因水泥浆与钻井液密度差过大，水泥浆通过
4、水泥量应足够，水泥塞长度不得少于100米。
5、任何水泥塞作业，都应模拟井下温度试验水泥浆性能。
6、处理井漏的水泥塞，需要静切力高的稠水泥浆，以防止留入地层孔隙或裂缝中。
7、水泥浆的稠化时间等于预定的施工时间加30分钟的安全时间。
8、在注水泥前一定要泵入前置液，防止水泥受污染。
9、钻杆底部加一个扶正器，可以显著地改善钻井液顶替效率。
10、要有足够长的候凝时间（12~24小时），一般推荐水泥抗压强度为3.45兆帕（500psi ）
水泥浆量
3、水泥塞应座在足够硬的地层上。
如果打水泥塞目的是为了定向造斜，虽然不能选择硬地层，)，用于
20.79
18.01
15
11.998.98
据,监督进行确认,本表格只进行顶替量的计算
钻杆和深度-
差过大，水泥浆通过较低的钻井液向下沉降。
兆帕（500psi）
然不能选择硬地层，但水泥塞有必要延伸到硬地层。
0.32~0.48
4.42 4.170.5。
燃气管网水力计算数学模型及水力计算程序的编制
燃气管网水力计算数学模型及水力计算程序的编制摘要：利用VisualC++6.0和有限元节点法编制了燃气管网水力计算程序，水力计算全部实现界面化。
数学模型中采用了前苏联谢维列夫的摩阻系数公式。
采用高斯——赛德尔迭代法解线性方程组，提高了收敛速度。
探讨了利用矩阵调行技术解决多气源管网水力计算问题。
关键词：燃气管网水力计算1引言随着我国燃气事业的发展，用气城市越来越多，用气量也越来越大，燃气管网相应的变得越来越普及和庞大，其结构也越来越复杂。
在管网的新建和扩建中，准确、迅速的燃气管网水力计算是实现高质量的管网设计、施工以及运行调度的必要条件。
目前国内存在的大多数水力计算程序，原始数据的准备以文本形式为主，管网的编号也是人工操作，非常麻烦，容易出错；解水力计算线性方程组以雅克比法占多数，收敛速度慢，而且在处理多气源管网时也不是十分方便。
本文从水力计算模型出发，采用有限元节点法，利用VisualC++6.0编制燃气管网水力计算程序。
管网初始数据的准备通过界面直观输入；利用高斯——赛德尔求解管网线性方程组；通过矩阵调行的方法处理所选基准点不位于最大编号的问题；同时对于多个给定压力的气源点，通过调行和对方程组进行常数项修正来解决。
2数学模型在使用以下燃气管道水力计算公式时有如下假设条件：燃气管道中的气体运动是稳定流；燃气在管道中的流动时的状态变化为等温过程；燃气状态参数变化符合理想气体定律。
2.1燃气管道水力计算公式2.1.1对于低压燃气管道（1）2.2.2对于中高压燃气管道（2）（1）、（2）式中：——压力降（Pa），（注意：在高压管网中表示2次方量）；、——管道起点、终点的燃气绝对压力（Pa）；——管道计算长度（Km）；——管道计算长度（m）；——燃气的管段计算流量（）；——管道内径（cm）；S——燃气对空气的相对密度；λ——摩擦系数；——局部阻力系数，取长度阻力的10%，即=1.1；——温度产生的膨胀系数，即；——燃气的热力学温度（K）；——标准状态下的温度（273K）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
钻井水力参数设计报告石油工程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。