连续管钻井水力参数计算软件含颗粒摩阻计算

连续油管钻井水力计算软件开发方案一、软件设计目的此软件定位为一款简单实用的计算软件，使输入数据无需再作任何计算，直接得出结果，并设计对外接口，同时兼顾界面的美观性，以及商业软件的保密性。

二、界面简介此软件分为四个界面，即欢迎登陆界面，工作界面、输出界面和打印界面。

登陆欢迎界面→→（转刀）工作界面。

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。

管道水力摩阻系数的计算Черникин，A．B．Черникин，A．B．：管道水力摩阻系数的计算，油气储运，1999，18（2）26～28。

摘要介绍了计算水力摩阻系数λ的通用公式，在分析现有计算摩阻系数公式的基础上，借助于专门的过渡函数，求出了新的通用式。

推荐可实际应用于管道水力计算的公式λ＝0.11［（Z＋ε＋C1.4）／（115 C＋1）］1／4，该公式可完全避免确定液体流动区域的程序，适用于任一雷诺数Re和不同管子相对粗糙度ε，排除了由于自身连续性而导致不同区域边界上λ数值不一致的情况。

主题词管道水力摩阻系数计算方程一、管道水力摩阻系数计算的改进完善各种管道(原油管道、天然气管道、水管道等)的水力计算，可以通过提高计算精度或使计算公式通用化等途径来实现。

进行水力计算所需重要参数之一，便是水力摩阻系数λ，一般情况下它是以下两个参数的函数：雷诺数Re和管子相对粗糙度ε。

依据这些参数的数值，管道内流体流动划分为不同区域(状态)，对于每个区域都有计算λ的公式，以及确定区域边界的所谓雷诺数过渡值。

在分析现有计算系数λ的公式和寻求通用计算式的基础上，借助专门的过渡函数，求得以下形式新的通式：（1）这一公式覆盖所有的流动区域，即在管输液体和气体介质时，用于计算任一Re和ε时的λ。

公式中的参量具有如下数值：对于液体，α＝0.11，C＝1.4，γ＝68／Re，A＝（28 γ）10，B＝115，n＝4；对于气体介质，α＝0.077，C＝1.5，γ＝79／Re，A＝（25 γ）10，B＝76，n＝5。

比较式(1)和常用的斯托克斯公式、Aльтшуль公式、俄罗斯天然气科学研究院公式(做为特例，针对不同流动区域，由式(1)很容易求得这些公式)计算λ的结果，它们完全吻合。

最大的偏差(不超过1.7%)发生在层流与湍流过渡区边界上。

在其它情况下，偏差甚小。

二、计算管道水力摩阻系数的通式在进行原油、成品油、水管道水力计算时，摩阻压头损失计算起着重要的作用，并由达西—魏斯巴哈公式确定：（2）式中λ——水力摩阻系数；L——管道长度；D——管道内径；W——液体流速；g——重力加速度。

一、连续油管钻井水力参数计算软件开发要求1.连续油管的输入与选择：包含：滚筒直径，滚筒宽度，滚筒缘直径；连续油管外径、厚度、长度；滚筒外连续油管的长度；内外压承压极限；抗扭极限；相对粗糙度（若为旧管）。

2.油套管输入：包含：老井加深原套管外径、厚度、长度；相对粗糙度值。

3.钻井液流体参数输入：包含：密度、流型指数、流变系数、黏度、剪切力和流量。

4.钻井液固相参数输入：包含：密度、颗粒直径和固相比。

5.钻头参数输入：包含：钻头类型、钻头水眼尺寸、钻头水眼个数、流量系数。

6.螺杆钻具参数输入与选择：包含：公称外径、标准长度、配型钻头尺寸、最大流量、工作压降、最大压降、输出扭矩、最大扭矩、推荐钻压、最大钻压、允许固相比。

可对国内外各一种产品、三种规格进行选择。

7.其他井下工具组合参数输入：包含：工具名称、个数、最大压降。

8.系统压力计算（1）流动基本参数计算流速计算、雷诺数计算、狄恩数计算。

（2）直管段连续油管压力损失摩阻系数计算层流状态下最大雷诺数、紊流状态下最小雷诺数、直管段流态判断、直管段范宁摩阻系数计算。

（3）盘管段连续油管压力损失摩阻系数计算层流状态下最大雷诺数、紊流状态下最小雷诺数、盘管段流态判断、盘管段平均弯曲直径计算、盘管段范宁摩阻系数计算。

（4）压力损失计算含磨粒摩阻梯度系数、直管段压力损失计算、盘管段压力损失计算。

（5） 地面管汇压力损失计算 （6） 钻头喷嘴压力损失计算 （7） 环空压力损失计算 要考虑相对粗糙度的值。

（8） 泵压计算 9. 合适排量计算（1）根据环空返速得到的最低流量1 环空返速输入；最低流量1计算。

（2）连续管钻井水平井筒携岩最低流量2岩屑直径、密度、固相质量浓度和体积浓度输入；环空沉降末速计算；考虑絮凝干扰沉降末速计算；水平井筒携岩最低流量2。

（3）根据连续油管内压承载极限反算的最大允许流量1 （4）根据连续油管内压承载极限反算的最大允许流量2 （5）根据所选螺杆钻具得到的最大允许流量3 （6）连续油管钻井合适排量推荐二、相关计算模型推荐（一）压降计算CT 内流体的摩阻损失通常表示为压力降低的形式，即：22f L v P f dρ∆=中L 和d 分别是管长和管径，v 是管内的平均速度，f 是范宁Fanning 摩擦因子，它与流体的雷诺数、管壁的粗糙度等因素有关。

钻井液常用计算一、水力参数计算：(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------与单位有关的系数。

CDDM 钻井工程 R2003.11.CDDM钻井工程R2003.1概述 (1)2.定向井设计系统(COMPASS) (5)3．钻井工程设计和分析系统（Wellplan） (8)(1)Cement-固井计算 (8)(2)BHADrillahead-底部钻具组合分析 (9)(3)CriticalSpeed-临界转速分析 (11)(4)Hydraulics-水力计算 (13)(5)Notebook-电子工程手册 (15)(6)StuckPipe-卡钻计算 (16)(7)Surge/Swab-波动压力分析 (17)(8)Torque/Drag-扭矩和摩阻 (18)(9)WellControl-井控计算 (20)4．管柱设计系统（Tubulars） (23)(1)CasingSeat-套管下深设计软件 (23)(2)StressCheck 套管设计软件 (24)(3)WellCat高温高压井管柱设计软件 (26)5．钻井时效分析与成本预算系统(Drillmodel) (27)1.CDDM钻井工程R2003.1概述兰德马克的公共钻井数据模型（CDDM）是兰德马克下一代钻井工程软件和数据分析系统的基础。

CDDM通过提供一个完整的油井数据结构，为钻井工程和油井服务软件提供了无缝集成。

CDDM可支持定向井设计、油管设计、钻井施工日报和数据分析等应用软件。

在1998.7版的兰德马克钻井软件中，兰德马克加入了DEX™（数据交换）来实现应用软件的数据迁移。

如今，随著R2003.1版的释放，CDDM把我们带入了一个新的里程，CDDM包含了一个强健的数据集成平台，该平台拥有一个可管理各个钻井流程数据的数据仓库，包括设计、施工和完井分析。

CDDM数据平台通过高效的工作流程来缩短钻井设计周期，大大提高生产力。

CDDM提供了应用软件间的集成，确保公共数据只有唯一的输入点，在支持钻井设计与施工的同时保证数据质量。

CDDM也是实时钻井决策的数据基础。

给排水软件1给排水水力计算2金属材料重量计算器1 3水力计算表安装程序2 4水力计算器3建筑给排水软件4 1给水排水管道水利计算工具集5 2减压孔板计算小软件6 3流速流量管径计算软件7 43.0版CAD文字编辑（中英文）输入法自动切换破解版8 5用vb编写的平差计算软件9 6消火栓计算软件10 7给排水计算工具集11 8给排水水量及配管程序软件12 9超越CAD工具集6.2.0（2012版）13 10建筑污水量及非满圆管计算软件14 11水池构件计算软件15 12给水计算软件16 13给水管径快速计算表17 14水施计算书18 15网络计划图生成软件19 16给排水管道水力计算软件20 17给水管实用软件21 18水头损失计算软件22 19给排水管网设计计算软件23 20给排水计算工具集GPS_TOOLS V2010.7.424 21PP-R管径计算软件（附平方根法算q）25 22化粪池计算及选型软件(2009措施版)26 23排水设计软件-雨水管渠计算书27 24给排水水量及配管程序软件28 25北京某大型设计院给排水暖通设备计算表格29 26喷头流量计算程序30 27水管管径-流速-流量对照表31 28水管道阻力计算32 29穗明给排水 0.0933 30穗明给排水 0.0834 31建筑给排水计算程序 3.0 版35 32太阳能系统计算软件36 33灭火器计算软件37 34给水管道水头损失计算表38 35灌水试验快速计算表39 36给排水设计-旺旺2009021140 37穗明给排水 0.0641 38穗明给排水 0.0542 39穗明给排水 0.0443 40给排水设计-旺旺20094441CAD术语对照表45 42给排水系统图助手46 43选泵实用软件小合集47 44穗明建筑给排水软件48 45水管保温工程量计算Excel版49 46理正给排水演示50 47建筑给排水快速设计工具箱-旺旺200851 48给排水设计各种计算表52 49气体计算演示（兆龙软件）53 50喷头布置和智能估管径演示（兆龙软件）54 51水系统计算演示（兆龙软件）55 52法兰标准查询软件56 53节水管道水力计算软件v1.0257 54喷淋计算软件58 55全介质管道管径、流速、温降、压降计算软件59 56蒸气流速计算软件60 57矩形水池计算程序61 58海澄给水管水力计算表62 59给排水计算软件V2.463 60天沟计算软件64 61泵的扬程计算65 62给排水水量及配管程序66 63建筑给排水快速设计工具-2208.0467 64泳池热量计算软件68 65给排水设计程序69 66七氟丙烷灭火（或惰化）设计用量软件70 67钢管、塑料管水头损失计算表71 68管道保温层、保护壳计算表72 69消火栓流量压力计算软件73 70工程量计算软件74 71WPM建筑给排水设计软件使用说明75 72水工业设计手册之水力计算表76 73二次沉淀池77 74消防气体灭火管道支吊架计算表78 75水暖管道刷漆保温支架计算表79 76管线流量流速计算1.080 77排水程序81 78管道支吊架计算表82 79给水PP-R管道水力计算表83 80建筑设计研究院给排水设计84 81上海市消防给水水力计算85 82上海市消防给水水力计算86 83水和水蒸气流量计算程序87 84铸铁管水力计算88 85管道无压流水力计算表89 86DN管径标注lisp小程序90 87管道管径选择软件9188薄壁铜管理论重量92 89HG20615法兰查询软件93 90给排水计算工具集 v2.194 91水泵自动选型软件 v0.495 92消火栓流量压力计算96 93泳池热量计算97 94中危险级自喷计算软件98 95建筑给排水辅助设计工具V1.099 96建筑给排水计算程序100 97给排水CAD工具集第二版101 98换热器设计计算大师(单机试用版）102 99七氟丙烷系统的计算表103 100热工计算表104101蒸汽管道水力计算102变频供水水力计算EXCEL1 103建筑给排水计算程序2 104管道高程表3 105给排水设计计算小软件汇总4 106水泵计算选型表5 107给水计算软件0.96 108管材计算重量软件7 109管道水力计算8 110给水排水水力计算软件9 111给水计算软件10 112七氟丙烷用量计算表格11 113给排水计算软件12 114冷却塔计算小程序13 115减压孔板计算软件14 116给水排水计算软件15 117管道保温重量软件16 118水力计算软件17 119灭火器配置设计软件18 120管道保温层及支架计算表格19 121灭火器配置计算（新规）20 122灭火器计算21 123给排水水力计算程序22 124自动喷水管网水力计算软件23 125管道水力计算软件24 126水管风管水力计算软件25 127灭火器配置计算软件26 128水管计算程序27 129建筑给排水辅助设计工具28 130节点流量计算工具29 131建筑给水秒流量计算30 132室内给水枝状网水力计算31 133热水计算软件32134七氟丙烷管网压力计算33 135排水横管排水能力计算34 136排水管水力计算35 137排水当量、流量计算表36 138室内给排水设计秒流量计算表37 139灭火器计算软件38 140建筑给排水管道计算程序39 141蒸汽管道流速计算40 142消火栓计算工具41 143管道水力计算V2.042 144鸿业水力计算软件43 145管道水头损失计算表44 146各类给水管材水力计算表45 147给水水力计算表格1.046 148给水管径快速计算表47 149给排水水量和配管计算程序48 150给排水水力计算软件V1.1049 151室内给水管道水力计算50 152变频供水水力计算表51 153自喷（中危险二级）管径计算(excel)52 154住宅、宿舍、医院等单位设计秒流量及当量计算表53 155冷却水的最高温度计算54 156冷冻冷却水快速计算表55 157管道计算软件56 158水管管径-流速-流量计算表57 159水蒸汽及热力计算软件58 160孔板计算小程序59 161建筑给排水水力计算表60 162自喷管网水力计算61 163强力给排水水量及配管程序62 164PPR水力计算表63 165PPR水力计算表64 166自动喷水灭火系统管网水力计算电算程序65 167建筑给水管网水力计算电算程序66 168给排水管道水力计算电算程序6768697071727374757677787980 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105市政管道软件其它软件1电子印章软件给排水管网系统管压降计算器V1.0.02实用五金手册雨水计算软件3PDF转换成CAD软件管网平差计算软件4管道防腐保温工程量计算软件圆管非满流计算小软件5管道保温刷油计算程序管道水力计算软件6自动替换CAD缺失字体为HZTXT的软件暴雨强度及雨水流量计算软件7图片转CAD软件给水管径快速计算软件8去教育版印记软件给水计算0.9软件9dwg版本转换软件给水管网建模中数据转换工具10小写数字翻译成大写汉字软件室内给排水设计秒流量计算表11管道保温计算软件管网平差软件12单位换算器南京市政工程09最新版排水自动生成软件13沼气工程设计计算顶管施工管道强度验算表14太阳能系统管径选型表管道保温与管道零件取定表15太阳能热水系统采光面积计算表管道各项基本数据计算表16金属材料单重计算软件市政给排水管道挖方与回填量计算17单级离心清水泵效率管网平差小软件(Excel版)18减压孔板计算给水管计算软件19慧视小灵鼠管道水力计算软件20管道保温计算雨水管线计算表21无缝钢管计算公式 特殊符号室外污水及管道计算软件22TGO数据处理快速入门指南供水管网规划设计与平差计算软件23PDF转DWG格式软件管道水力计算24坐标正反算市政UPVC排水管道严密性试验渗水量自动计算表25自动计算五金手册软件排水管网高程计算软件26反渗透设计软件给水管径快速计算表27复合曲线坐标计算原程序排水管沟槽土方量自动计算---Excel版28曲线坐标计算软件给水管网平差计算软件29水工业工程设计手册之水力计算表城市给水排水雨水管网设计计算软件0.19绿色免费版30CAD字体大全1315款字体管道经济保温厚度计算软件31容器容积、体积、标高计算软件球墨铸铁管单位重量表32卡巴斯基key生成器水泵房计算软件33曲线、匝道坐标计算程序暴雨强度及雨水流量计算34去除CAD“教育版”戳记软件管道直埋敷设管网土方计算35喷泉反作用力计算排水管网高程计算软件36CAD表格转Excel表格工具暴雨强度及雨水流量计算37罐体容积计算公式室外污水设计软件38暴雨强度及雨水流量计算市政管道水力计算软件39钢管重量面积油漆重量架空管道推力计算表格40型材重量计算软件空压管网水力计算41水处理专业翻译软件watertreatment dict 有压短管闸门工作特性曲线计算42安全阀计算软件排水管道水力计算器2.043acad2009中文注册机排水管网高程计算44水泵性能数据生成系统污水管水力计算表45cad教育版专杀软件规划设计管网建模集46镀锌钢管参数查询及单价压力管道镇墩计算47型钢受力计算及重量解环方程法管网平差48金属材料常用规格重量表埋地钢管结构计算49水管除锈保温电子表格砼管水力计算50管道计算表预制混凝土圆形管道管顶压力计算51天正给排水在线演示教程支墩计算表52索佳全站仪模拟器管道沟槽土方计算器53CAD字体（860个）室外雨水流量计算表(郑州)54新五金手册矩形断面暗渠满流水力计算55n与修正系数的关系矩形明渠自动计算excel56CAD病毒专杀室外雨水管自动计算程序excel57CAD病毒专杀(杀acad.sys和acad.fas)WAD演示_市政58梦龙智能网络计划编制—资源演示WAD演示_市政59梦龙智能网络计划编制—其它演示线性规划助手60梦龙智能网络计划编制—模式演示道路、排水设计软件61梦龙智能网络计划编制—绘制演示矩形断面暗渠满流水力计算62压力管道计算表格矩形明渠自动计算excel63CAD-WORD-EXCEL-PDF-TXT转换工具大全规划工具包64ACAD光标指向的项目信息显示工具Pscope 3.11 汉化破全国主要城市雨量计算表65平面坐标标注CAD插件化粪池计算与标准图集选择66CAD专杀工具--KillCADVirus倒虹吸水力计算excel程序67管道除锈、刷漆面积，保温体积计算公式，EXCEL表雨水管道水力计算表68系统垃圾清理软件化粪池计算选型软件69坐标标注加载程序污水干管水力计算表70cad加速启动的小工具加速2倍软件哈工大给水管网平差软件71化学实用水处理软件小流域洪峰流量推理公式迭代试算法计算表72泵的轴功率计算软件化粪池设计软件73施工临时用水用电计算软件雨水流量计算软件74储罐内液体体积计算埋地钢管结构计算75文件加密锁室外污水计算76进制转换软件建筑污水量及非满圆管计算软件77计算工厂1.63版计算梯形小渠流量软件.78施工日志编写软件矩形明渠自动计算表79牛人十数年CAD经验分享深圳暴雨强度计算公式80工程项目网络计划程序U型渠道水力计算81cad字体乱码解决程序重力管道高程计算表82坐标正算计算重力管道高程计算表83Excel转换Access工具雨水及污水管道设计84卧式储罐计算混凝土圆管水力计算85金属材料单重计算管网平差软件86电厂化学酸碱耗统计分析系统给水管网流量计算及管网平差87欧陆调速器组态软件梯形明渠水力计算88广联达应用技巧无压混凝土管道水力计算表89任意管径及角度钢制弯头放样程序污水管网水力计算90施工网络图绘制软件污水主干管水力计算91315种cad字体污水管径计算软件92管道水力计算水力计算软件集合93金属材料单重计算小软件钢管、铸铁管、钢混管等管道水力计算94室外雨水计算软件道路排水设计软件95污染排放收费计算表城市污水SBR工艺计算(excel)96水流畅工具箱变压器水力计算表97单位换算软件铸铁管水力计算程序98capdesk绿色截图软件梯、矩形明沟水力计算程序99计算螺栓螺母垫片重量的程序纵断图计算水力计算表（Execl）100消火栓计算小工具管道水力计算软件101AUTOCAD哑图伴侣暴雨强度及雨水流量计算软件102AUTOcad外挂程序给水管道水力计算103标准曲线计算器室外雨水管自动计算程序104常用钢材理论重量表给排水管网平差计算105单位换算软件水处理软件106工程师计算器格栅设计计算器V1.0.0107图纸管理软件 DwgSee污水厂设计软件108优易管道支吊架设计软件AutoPHS用户指南SBR设计软件109文件切割器filecut2000A²O工艺设计计算表110格栅计算软件A²O污泥负荷法设计软件111带颈对焊法兰用螺栓规格查询表水处理设计中常用计算软件112焊材耗量计算表斜板沉降池的计算113CAD中常用的快捷键曝气量计算软件114高级AutoCAD工程师绘图技巧加药计算软件115七个命令让你成为cad高手水处理专业翻译软件116在CAD中输入钢筋符号及许多特殊字符字体竖流式沉淀池计算表格117cad中打印颜色设置接触氧化法处理污废水计算绘图工具118autocad使用心得SBR设计计算表119AUTOCAD的Vlisual lisp 教程接触氧化池计算小软件120AutoCAD 模型空间批量打印程序格栅计算工具20090304版121CAD简体繁体转换工具穗明给排水 0.07（最新版）122解决CAD汉字乱码程序普通曝气池基本计算公式123金额大小写转换程序气浮（平流-回流加压溶器浮）124报表转绘王PH值计算软件125施工日期计算小软件电镀废水处理工程投加药量计算系统126在CAD2004中自动生成剖面线的辅助软件沉沙池水力计算软件127直线转PLINE工具化粪池计算软件128常用五金辅材参数表水处理计算软件集合129钢管绝热刷油计算表陶氏膜设计软件130钢管基本参数表海德能设计软件131CAD与EXCEL互换水处理构筑物处理能力仿真软件132坐标计算表电镀废水处理投药计算133常用金属材料重量计算器水质化验统计数据库系统134AutoCAD文字处理水质和水环境容量计算模型135批量文本文件合并器化验室测定分析程序136批量文件一次性改名软件接触氧化计算软件137网络计划静态版气浮设计计算软件138PDG绿色浏览器ROSA膜系统设计软件139玻璃抗风压计算软件SBR设计软件140小型生活热水系统寿命周期成本分析示例STOAT水处理仿真软件演示版141型钢计算软件波纹规整填料塔流体力学及传质计算软件142建筑方面的计算汇总软件絮凝池辅助设计系统143直接切换成度分秒的坐标放线简易程序污泥产生量计算144工程实用计算器软件完全混合活性污法计算软件（FLASH）145-1水质和水容量计算模型146单位换算氧含量与毫伏关系计算147CAD版本转换器污水处理厂内构筑物计算公式表148建筑工程常用几何图形计算辐流沉淀池计算表149印章制作大师辐流沉淀池计算150高数计算器电镀废水处理投药计算151水和水蒸气热物性质查询华电力设计院的化水处理软件152管经选择软件化粪池计算器1.0版153法兰选择软件污水处理厂内构筑物计算表154鸿业市政管线6.0破解RO反渗透程序设计软件155设备工程计价软件污水处理厂堰计算程序156天正给排水7.5注册机格栅主体结构设计157天正给排水破解补丁纯水用软化器计算工具158CAD字体库（569个字体）UASB设计软件159算量软件软水处理计算V0.1160HPGLtoCAD软件C-Orbal氧化沟选型161土方精灵经典SBR计算162安装工程预算手册软件软水处理计算163计算簿V1.30免费版污泥负荷计算软件164风管风速计算软件气浮池配套设施计算软件165建筑物制冷供暖负荷表UASB工艺计算软件166鸿业给排水2007系列——屋面雨水forR15电镀废水处理计算公式167鸿业给排水2007系列——屋面雨水forR16格栅设计软件168纯水设计软件E-CALC 3.4.2污水处理设计软件169单位换算小精灵污水干管设计流量计算表170功能最齐全的五金手册（电子版和EXCEL版）软水处理计算171江苏2004预算软件有机物换算成COD表172焊条自动选取软件污水处理生物接触氧化法计算表格173潜水含水层单井抽水量计算软件氧化沟设计计算公式表174通用工程量计算表 ETOOLS2004完全混合法计算公式175出图比例计算表曝气量计算176AutoCAD速度训练教程软件A20工艺设计程序177金维达资料宝典免费版净水厂生产指标管理2005II版178一次性修改CAD所有字体样式东丽膜设计软件179CAD画回旋线软件世韩反渗透膜设计软件180风管局部阻力计算软件化验室测定分析程序181建筑给水、化工行业单线图绘制软件WEST-污水处理厂模拟软件182公式编辑器软件二次沉淀池主体结构计算软件183测量员伴侣软件水质化验统计数据库系统184临时用电、用水计算软件水质稳定指数计算185特殊字符输入软件水处理构筑物工程量估算186图案填充大全软件某净水厂生产指标管理软件187标书施工组织设计制作软件汅水接触氧化法设计188缓和曲线坐标计算程序水体化验室测定分析程序189图章制作软件曝气量计算软件190在CAD中画缓和曲线过程及程序普通曝气池计算191环评数据计算软件气浮池配套设施计算192管道焊材消耗软件普通幅流式沉淀池设计计算193提取cad图纸数据的安装算量软件污泥产生量计算194环境小词典--关于环境类词语化粪池计算小软件195傻瓜型五金数据及计算图式污水厂各构筑物设计表196工程测量数据处理系统V4.0试水口压力验收安装程序197cad审图软件消化池运行演示198休息提醒程序污泥产生量计算199雄智工程合同管理免费版电镀污水加药计算200SystemSafer-v2.1 U盘杀毒软件化粪池计算V1.01201PKPM2005快速操作入门完全混合活性污泥法计算软件202彩色文件夹KOCH阻垢剂计算软件203高质快速改变图片大小辐流沉淀池工艺水力计算表204五金手册（2007）废水PH调节计算表205施工总进度横道图CAD辅助设计软件（最新版）KOCH反渗透计算软件206全能放大镜平流式气浮池计算软件207网络计划编制与管理软件竖流式沉淀池计算软件208正版加密光盘复制格栅计算小程序209型钢截面特性普通曝气池基本计算210一个网页直接转TXT文档的绿色软件水解酸化池设计计算软件211十四位数仿真科学计算器（语音型）212型材重量计算软件213自编小计算程序214定时开关机程序215CAD简体繁体转换工具216隐身专家217工程量计算试用版218环境分析软件219按指定增量批量修改数字220预算通软件教程221铜管价格计算222将U盘变密钥盘223扫描图纸转化成CAD图224手写书法225文件加密软件226一次性修改CAD所有字体样式227坐标转换（给排水辅助工具）228宽度格式刷229平面管道cad辅助小工具230平面转轴侧图程序lr第七版231高效软件CAD TOOLS232绘制图纸部件明细表lisp程序233计算图块数量234施工图伴侣235史上最全的CAD字体文件[1]236史上最全的CAD字体文件[2]237史上最全的CAD字体文件[3]238史上最全的CAD字体文件[4]239数字字体软件240智能计算器241水龙英文字体242造价师模拟考试程序和题库243字体替换软件244DWG版本转换工具245材料计算器v1.0版246Acad字体247《房屋建筑制图标准》配套的标准字型248bctool-CAD的辅助绘图小工具软件249单位换算宝典 V1.1250各种数学计算公式输入程序251CAD to WORD转化软件252量和单位转换软件253锅炉小辞典254PDF 转换成 WORD软件255PCschematic绘图软件256建筑常用数据查询软件257Excel表格转换为CAD表格软件258重庆市《建设工程技术用表》和《重庆建设工程文件归259给排水常用资料260水电安装材料招标技术方案模板2614000x1200钢管三通有限元分析受力动画262安装造价计算表格263天正给排水II（FOR CAD14）264理正给排水计算软件265声环境影响评价计算软件266大气环境影响评价计算软件267美国地质调查局专用phreeqc软件268常压贮槽类设备购建成本估算工具表269量和单位转换软件270小流域推理公式计算设计频率的洪水271小流域洪水计算（推理公式法）272CAD2002平面转成轴侧软件273弯头放样尺寸计算274工程常用资料查询软件275水池承载力与裂缝验算配筋比较276某自来水厂构筑物计算表277水池承载力与裂缝验算配筋比较278污水处理厂内构筑物计算公式表279污水工程投资估算表280快速设计2000281线性回归计算软件282弯剪扭构件计算程序283水之窗辅助计算1.20284钢铁厂水喷雾演示285文件分割精灵286cad转化为word软件287图纸资料管理系统288超功能计算器289实用五金手册290雨水管计算EXECL版291罗茨风机选型软件292给排水CAD工具集293GPSZX计算工具集294计量堰的计算软件（EXCEL做的）295鸿业HY-GPS设计软件6.0简介296鸿业市政管线设计软件HY-SZ v3.0简介297天正给排水TWT软件简介298给AutoCAD 增加超级编辑命令t dict大全显示工具Pscope 3.11 汉化破解版温体积计算公式，EXCEL表户指南多特殊字符字体线的辅助软件析示例放线简易程序屋面雨水forR15屋面雨水forR16电子版和EXCEL版）（最新版）字型表》和《重庆建设工程文件归档内容一览表》分析受力动画简介。

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.径向井水力压裂摩阻的影响因素（1）压裂液的粘度压裂液的粘度决定了它在管道中流动的难易程度，从而影响压裂液的输送速度和能量传递效率。

当压裂液的粘度较高时，通过井筒注入的压力不容易扩散到周围岩石中，从而使压裂效果降低。

（2）管道内壁摩擦力在径向井水力压裂中，压裂液从井口经过管道向下运行，因此管道内壁摩擦力对压裂效果有很大的影响。

当管道内壁摩擦力较大时，压裂液注入压力容易消失，压裂效果也会降低。

（3）压裂液的密度压裂液的密度决定了它在岩石中传递能量的能力，从而影响压裂效果。

当压裂液的密度较低时，其在岩石中产生的能量也会降低，影响压裂效果。

（4）井筒中的摩阻在径向井水力压裂中，井筒的摩阻对压裂效果有很大的影响。

当井筒中的摩阻较大时，其会阻碍压裂液的流动，从而影响压裂效果。

2.径向井水力压裂摩阻的计算公式（1）压降计算公式压降计算公式可用于计算径向井水力压裂中井筒内压降的大小。

其计算公式为：△P=ρQ^2 L/2 f D^5其中，△P为井筒内的压降；ρ为压裂液的密度；Q为压裂液的流量；L为井筒长度；f为管道阻力系数；D为管道的直径。

（2）摩擦力计算公式摩擦力计算公式可用于计算径向井水力压裂中管道内的摩擦力大小。

其计算公式为：f=4f_0 [1+γ(ρ_1/ρ_0)]其中，f为管道阻力系数；f_0为干管道的阻力系数；γ为管道内流体的层流系数；ρ_1为压裂液的密度；ρ_0为管道内介质的密度。

3.结论通过分析径向井水力压裂中的摩阻影响因素，可以发现影响压裂效果的因素有很多，而计算公式的应用也非常复杂。

因此，在实际操作中，需要加强对径向井水力压裂摩阻影响因素的研究，进一步完善计算公式，从而科学地指导径向井水力压裂的实施，为油气田的高效开发做出贡献。