燃气水力计算

1、Excel在燃气管道水力计算中的应用摘要：利用Excel的控件和函数功能，制作了枝状燃气管道的计算程序。关键词：Excel燃气管道水力计算0引言在燃气管道设计中，水力计算是非常重要的一部分，它不仅能保证我们的设计安 全合理，同时可使我们的设计更为经济。但手工计算必须需要经过预选管径、判别 流动状态、选择计算公式和校核压力降这几步来反复试算，过程极其烦琐和复杂， 效率低下，也容易出错。很多同行使用各种计算机语言编写了水力计算程序，大多 采用VB、VC等高级语言。但以上程序制作过程复杂，需要懂得专业的计算机编程 知识，而且定制和更改过程复杂，一般设计人员难以操作。本文介绍了一种利用公 办软件Exc

2、el制作水力计算程序的方法，过程简单，界面友好，定制和更改方便。1制作思路1.1水力计算依据燃气管道水力计算的流程见图一：图一燃气管道水力计算流程根据城镇燃气设计规范（GB50028-93）（以下简称“规范”），低压燃气管道 的水力计算公式如下：pQ 2 T（1）= 6.26 x 107 人 p 0 由上式可以看出影响压降的参数有：L-燃气管道的计算长度，km；Q -燃气管道的计算流量，m3/h；d-管道内径，mm；p-燃气的密度，kg/m3；入-燃气管道的摩擦阻力系数；T-设计中采用的温度(K)； T0=273.15K。其中入按流动状态分为以下三种计算公式：当ReV2100时，属层流状态：入

3、=64/Re；当 Re=21003500 时，属临界状态：入=0.03+(Re-2100)/(65Re-100000)当Re3500时，属湍流状态，对于钢管和 PE 管 入=0.11(K/d+68/Re)0.25对于铸铁管 入=0.102236 (1/d+5158dv/Q) 0.284=0.102236 (1/d+1824.9Re) 0.284可见入又与以下参数有关V -标准状态下燃气的运动粘度，m2/s；K -管壁内表面的当量绝对粗糙度，mm。在计算低压燃气管道阻力损失时，还应考虑因高程差而引起的燃气附加压力。 规范中给出低压管道附加压力的计算公式为： H=10X(p k-p )Xh式中：H

4、-燃气的附加压力，Pa；可见影响压降的参数还有p k -空气的密度，kg/m3；取 1.29kg/m3p -燃气的密度，kg/m3； h -管道的终、起点高程差，m。综上所述，影响压降的参数有L、Q、d、p k、p、V、K。将这些参数分类， 其中p k、p、V、K这些是与气体性质及管材不同而变化的物性参数；而L、Q、d 是跟管段相关的参数，不同管段有不同的L、Q、d值。那么由公式可以知道，当物 性参数p k、p、V、K固定即选定气体及管材后，压降只与L、Q、d的值不同而不 同；当管段的L、Q、d值不变时，换用不同气种或选用不同管材会得到不同压降。 基于以上分析，我们的程序也应该做成参数驱动的参

5、数化的程序，即计算结果随着 参数的改变而自动改变。1.2程序制作 1.2.1界面制作图2为水力计算程序的界面:ABCDEFGHIJKLMK0PQ1低压水力计算程序物性参数使用说明：1、使用者请勿更改11行（包括11行）以上部分内容，除参数外.2、红色为自动生成结果的部分，黄色部分为使用者填写的部分，银 灰色是基本的物性参数及说明部分。3、公式均选自城燃气设计规范2002年版.2然气密度 Kg/Nm3运动粘度 一料杪: 10n-6管壁绝对 粗能度mm空气密度 Kg/Nm330.80212. 560. 21.2934层流区2100A =6倾出5过渡区21003500A =0.03-KRje-210

6、0X（55Rje-100000）6紊流区3500c 钢舀PE舀人=口.1 hXGMS：浒A. =0.102236 （l/d+5158dv/Q:水力计算11序号计耸流星Q（rn2：.iK：i管段长度LI m管径DNi：；rM局部阻力系数 &雷若数Re流速wITUS摩擦阻力系数，.D/A（米）当量长度岛（米）计尊核度 L（米）F/L管段高爰h米）附加压头 H（米）管段实际压 力损失c Pa）局部阻力系数计耸及其他说明121-2100. 000T800.0035216.T0.030.051.T060. 0007.000T.7153. 950.000. 00053.954132-3100. 0003.

7、5800.0035216.70.030.051.7060.0003. 5007.7126.980.000.00026.977143-4100. 0005800.0035216.T0.030.051.T060. 0005.000T.7138. 540.000. 00038.538154-5100. 0003.5600.0046955.60.030.041.3340.0003. 50031. 15109.030.000.000109.034165-650.0005600.00234TT.80.030.051. 1470. 0005.0009.0545. 2T0.000. 00045.2T3176-

8、750.0002400.0035216.70.030.050.8110.0002.00064.85129.703.0014.730114.9721619合计388.74图2水力计算程序的界面此界面分为两部分。上半部分是物性参数输入的部分，在此用户要输入气体及 管材的相关参数；下半部分是水力计算部分，在此用户要输入不同管段的计算流量、 管径、管长等。首先要填上p k、p、v、K这几个参数，为使计算结果更为准确，这里把区分 流动状态的雷诺数分界区间的上下限也作为可变的参数由用户输入。在紊流区对于 不同管材有不同的公式，规范上介绍了钢管和铸铁管的，为使程序有选择公式的功 能，需要切换到Excel的设

9、计模式中（在此模式下我们可以插入Visual Basic的控件， 并写入代码以达到某些功能），插入两个Button控件“，”。通过点击这两个按钮 来选择计算公式，即改变水力计算部分中摩擦阻力系数入的计算公式。物性参数设定以后就需要在水力计算部分中输入不同管段的计算流量、管径、 管长、管段高差等数据了。水力计算中所需计算的值包括雷若数Re、摩擦阻力系数 入、D/入（米）、当量长度L2 （米）、计算长度侦米）、AP/L. AP、附加压头AH （米）、 管段实际压力损失（Pa）等，如图3所示：水力计算序号计耸流星管段长度LI m管径局部阻一力 系数2： &雷若数Re流速V mis摩擦阻内 系数人D/

10、A（米）当星长度 d （米）计算长度 L（米）AP/LAf管段高差 hi米）附加压头AH（米）管段实际压力损失 Pa）局部阻力系数计 耸及其他说明1-2100.0007800. 0035216.70, 030. 051.7060.0007.0007.7153.950. 000. 00053.9542-3100.0003.5800.0035216.70, 030. 051.7060.0003. 5007.7126.980.000.00026.9TT3-4100,0005800. 0035216.70, 030. 051.7060. 0005.0007.7138.540. 000.00038.53

11、84-5100.0003.5600. 0046955.60. 030. 041.3340. 0003. 50031. 15109 030. 000.000109.0345-650.0005600.0023477.80, 030. 051. 1470.0005. 0009. 0545 . 2T0.000.00045.2T36-750.0002400. 0035216.70, 030. 050. 3110. 0002. 00064.85129.703. 0014.730114.9T2合计388.748图3管道参数输入与计算界面1.2.2公式及代码编写在水力计算部分的首行中需要输入公式。在输入公式时

12、，凡是需要引用物性参数栏的数据时都必须使用绝对引用。如：在附加压头栏中M12格里的公式为“=10*M12*($E$3-$B$3) ”而不能写为 “=10*M12*(E3-B3)”。摩擦阻力系数入这一 栏，入的公式不是固定的需要判断雷诺数来选择公式，在这里我们可以使用Excel 的IF函数，例如： =IF(F12=$E$4,64/F12,IF(F12=$E$5,(0.03+(F12-2100)/(65*F12-10人5),0.11*($D$3/D 12+68/F12)人0.25)表示通过判断F12格里的雷诺数，来选择不同的公式。前面提到Button控件，通过它我们来选择不同管材在紊流区的摩擦阻力

13、系数入 公式，那么我们要实现此功能必须在程序代码里输入相应的代码，例如：Private Sub OptionButton1_Click()ActiveSheet.Cells(12, 7) =IF(F12=$E$4,64/F12,IF(F12=$E$5,(0.03+(F12-2100)/(65*F12-10A5), 0.11*($D$3/D12+68/F12)A0.25)”End SubPrivate Sub OptionButton2_Click()ActiveSheet.Cells(12, 7) =IF(F12v=$E$4,64/F12,IF(F12v=$E$5,(0.03+(F12-210

14、0)/(65*F12-10A5), 0.102236*(1/D12+1824.9/F12)A0.284) End Sub2程序扩展基本形式完成以后，可根据自己的需要再添加更多的功能。例如，我市现在使用的是液化石油气，以后天然气到来后将置换为天然气，所以 现在设计的管道不断要满足液化石油气的压降要求，也要满足天然气的压降要求。 如果每次计算液化石油气要输入一次液化石油气的物性参数及计算流量，在计算天 然气时又要重新输入天然气的物性参数及计算流量这样就很麻烦。为提高工作效率， 可以插入一个切换按钮控件，输入相应的代码使其具有在液化石油气和天然气之间 相互转换的功能。对切换按钮代码的编写要实现两种功能：1、点击时对物性参数重新附值；2、点击时对计算流量重新附值。对于第一点可以使用下列语句ActiveSheet.Cells（a,b） =c（表示对 a 行，b 列附 c 值）对于第二点，计算流量是没有固定的计算公式，但对于民用户计算流量是户数的 函数，计算流量和户数之间是一一对应的，所以需要另外做好一个表格将户数与流 量对应起来，如下表表1计算流量与户数对