给排水水力计算工具集
*********************************************************** ********************
版本号：1.1
更新日期：2004.7.28
版本更新说明：
1.修正了给水水力计算默认管材下改变温度时计算报错的bug；
2.修正了排水水力计算铸铁管和PVC-U排水管管径变化时无法
自动调整坡度的bug，修正了PVC-U管材计算内径。
*********************************************************** ********************
摘要依据国家最新规范及标准图等，并通过实际工程应用，设计开发的给排水计算工具。
关键词给排水设计计算软件开发Visual Basic
从事给排水设计过程中，使用过一些他人开发的计算软件，发现有些软件的操作不太方便，功能不全，毕业到现在2年来，机器上积攒了不少软件，存在功能交叉，管理不便，同时由于新规范的颁布，有些计算方法已不能满足新规范要求，为此决定开发一个功能相对集成的软件。部分版块参考相关软件进行界面设计，经过数月内部测试，目前v1版基本完成，主要包括如下版块：给水水力计算、满流非满
流水力计算、雨水水力计算、消火栓水力计算、灭火器配置计算、化粪池选型、钢制管件、防水套管、排水管件。下面将介绍各版块的设计依据及设计思路。 1. 给水水力计算
用于钢衬塑复合管、PP-R 冷、热水管、薄壁不锈钢管、衬树脂铸铁管、普通钢管、铸铁管、铜管的水力计算。
设计依据
《建筑给排水设计规范》 GB50015-2003 《给水排水设计手册》第二版
《2003全国民用建筑工程设计技术措施》给排水分册 沿程水头损失h i =k ·i ·L= k ·105C h -1.85d j -4.87q g 1.85·L, 流速v=
2g 4
1
q j d S
h i -沿程水头损失 i-单位长度水头损失
d j-管道计算内径
q g-给水设计流量
C h-海澄-威廉系数
L-管道长度
v-流速
k-温度修正系数，默认值为1.0
当输入流量、管长后，选择管材、管径，软件自动确定海澄-威廉系数、计算内径等。若该管材需要修改温度修正系数，则温度列表变为可选，可根据实际情况选择温度，系统自动确定修正系数。计算输出流速、水头损失等，同时还可将当前流量转换为对应的秒流量（L/s）或小时流量（t/h）。
2.满流非满流水力计算
用于建筑室内、外的排水流速、流量计算，包括排水铸铁管、PVC-U塑料管、混凝土管、聚乙烯双壁波纹管等。
设计依据：
《建筑给排水设计规范》GB50015-2003
《给水排水设计手册》第二版
满流计算公式采用：v=2/13/21i R n
Q=vA A=24D π P=πD R=4
D 非满流计算公式采用：v=2/13/21i R n Q=vA
当h<2
D
时，A=（θθθcos sin -）r 2 θρ2=r R=
r θ
θθθ2)
cos sin (- 当
h>
2
D
时，A=（θθθπcos sin +-）r 2
)
(2θπρ-=r
R=
r )
(2)
cos sin (θπθθθπ-+- 充满度=D
h D-管径 v-流速
n-粗糙系数，混凝土管满流0.013，非满流0.014，聚乙烯双壁波纹管0.01
Q-流量 i-水力坡降 A-水流断面 P-湿周（满流） ρ-湿周（非满流） R-水力半径 h-管内水深
3. 雨水水力计算
用于国内不同城市的暴雨强度计算、目前已集成了国内各省市的
一些较大城市的数据资料，可进行屋面（单雨水斗系统）、室外雨水流量、流速、管径的计算。
设计依据
《建筑给排水设计规范》GB50015-2003
《给水排水设计手册》第二版
《2003全国民用建筑工程设计技术措施》给排水分册
雨水计算流量Q=ψqF
q=
n
b
t P
c A
) (
) lg
1(
67
.1
+
+
Q-雨水流量ψ-径流系数F-汇水面积q-暴雨强度P-降雨重现期t –降雨历时
A、b、c、n-当地降雨参数
当选定城市后，软件自动载入当地暴雨强度公式，然后选择汇水区域形式（屋面、室外），可自定义重现期、降雨历时、径流系数等，输入汇水面积，以及雨水管道数量，即可确定该区域的暴雨强度、雨水流量以及每根管道的流量，流速、管径、坡度（标准坡度）等，点击校核可以查看该管径下的满流最大流量，以检验当前管径是否满足要求。
由管径确定流量在版块二“满流、非满流水力计算”中已经提到，而由流量反算管径相对较麻烦，这里先由版块二确定各管径在标准坡度下的满流流量：D300标准坡度为0.003，最大流量Q300；大于300的管道坡度均采用0.002，对应的流量分别为Q400、Q500……
软件计算出流量Q，管径D则通过条件语句来实现。
If Q < = Q300 Then
D = "d300"
ElseIf Q < = Q400 Then
D = "d400"
ElseIf Q < = Q500 Then
D = "d500"
……
……
……
End If
