《水泵及水泵站》教案
图20 单泵多塔供水系统
CD?Q??Q??0.27853j11jj2.63?0.54l(Ha?Hj)0.54
c、列出节点A的连续性方程：Q-ΣQj=0
方程的求解：在Excel中输入有关参数和公式，设定Ha值，用VBA宏命令设置一定的步长来迭代求解。
计算所用的数据：已知清水池H0=4.5m，S0=200s2/m5、海曾公式中C=100、Z=0.001，各水塔标高、管径、管长如下表： 水塔序号 1 2 3 4 水塔水位标高（m） 70 108 79.9 60 管长（m） 150 900 500 800 管径（m） 0.2 0.15 0.15 0.10 所用的宏命令如下所示：
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 210
Range(\
If Range(\Range(\
Range(\Range(\Range(\Range(\Range(\
29
《水泵及水泵站》教案
Range(\Range(\
End If
Next i
End Sub
计算结果如下表： Di Li
Ha0 Qi Q dQ/dHa dQi/dHa Hx 100.83 0.09439 H0 4.5
H1
0.2 150 70 101 0.172515016 0.0109 -0.00301 H2 0.15 900 108 101 -0.01377381 0.001063H3 0.15 500 79.9 101 0.034328965 -0.00088 H4 0.1 800 60 101 0.013125222
-0.00017 Sum
0.206195397
-0.00299
计算
Ha 92.5 Q1 0.145100914 Q2 -0.02115827 Q3 0.025986529 Q4 0.01157765 Sum 0.161506823 Q 0.162478235
Fn -0.000971
(4)取水泵站调速运行的数解算例
通常取水泵站由于水源水位涨落，导致水泵流量的变化，为了保证水厂中净化构筑物均匀负荷，可采用调速运行的方法来实现均匀供水。调速泵站如图21所示。计算步骤如下：
a、 计算公共节点的水压值H3： H3=Z0+S3QT2
H23?Z0?S3QT
30
Fn
0.111805
《水泵及水泵站》教案
b、计算水泵的出水量：
定速泵：Q1?Hx?Z1?H3 Q2?Sx1?S1(n2)Hx2?Z2?H3n0
Sx2?S2c、列出节点的连续性方程：QT=Q1+Q2
方程的求解：在Excel中输入有关参数和公式，设定H3值，用VBA宏命令设置一定的步长来迭代求解。
计算所用的数据：已知泵的转速n=960g/min，Q—H特性曲线方程采用H=47.208-20.833Q2，其中2号泵可调速运行，Z0=60.5m，S1=5s2/m5、 S2=2s2/m5 S3=0.6944s2/m5 ，水位标高洪水位37.50m，常水位32.80，枯水位28.90m。
图21 调速泵站示意图
所用的宏命令如下所示：
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 300
Range(\
If Range(\Range(\Range(\Range(\Range(\Range(\End If Next i End Sub
Private Sub CommandButton2_Click()
31
《水泵及水泵站》教案
Dim i As Integer For i = 1 To 150
Range(\
If Range(\Range(\Range(\Range(\Range(\Range(\End If Next i End Sub
Private Sub CommandButton3_Click() Dim i As Integer For i = 1 To 150
Range(\
If Range(\Range(\Range(\Range(\Range(\Range(\End If Next i End Sub
Private Sub CommandButton4_Click() Dim i As Integer For i = 1 To 2000
Range(\
If Range(\Range(\Range(\Range(\Range(\Range(\Range(\End If Next i End Sub
Private Sub CommandButton5_Click() Dim i As Integer For i = 1 To 2000
Range(\
If Range(\
32