下载后可任意编辑基于 VB 编程的水泵拟合实现1 条件综述1.1 拟合条件已知水泵的四个工况点流量、扬程、功率以及空调水系统管网的阻力系数，拟合水泵（并联）的特性曲线以及管网的特性曲线。1.2 样本条件本次编程选用南方泵业 TD100 及 TD150 系列四种型号的水泵。模拟的供热系统各参数分别为：供热面积：200000 平方米；面积热指标：45W/m2；供回水温度：95/70℃；系统阻力：37 米水柱。2 编程要求循环水泵特性曲线拟合：多台同型号水泵并联，根据水泵并联特性通过计算机编程计算，求水泵工作点。考虑单台或多台循环水泵运行时，比较其流量、扬程、效率、轴功率如何变化，画出水泵和管网特性曲线。3 水泵拟合求解思路从水泵性能曲线图可看出水泵的扬程、功率和效率是流量的多项式。因此可以表示为：H=H0+A1G+A2G2+A3G3 N=N0+B1G+B2G2+B3G3 η=(G*H*1000)/N*100*3600式中 G—水泵流量，m3/h； H—水泵扬程，mH2O； η—水泵效率，%； N—水泵轴功率，kW上面方程组的系数 A1、A2、A3和 H0可由最小二乘法得到：为 了 编 程 语 言 的 方 便 , 其 中 上 列 方 程 组 中 的 系 数 A1 、 A2 、 A3 和 H0 分 别 由下载后可任意编辑X1、X2、X3、X4代替，即：具体方程组的求解是利用高斯－赛德尔迭代法迭代公式为：解出 X(1)等各个系数，同理解出 B1、B2、B3、N0。再利用公式 η=(G*H*1000)/N*100*3600 求出 η。从而确定 G—H、G—η、G—N 回归曲线方程。根据回归曲线方程则可以画出水泵的性能曲线。4 程序代码及注释水泵参考工作点数据库的建立程序代码为：（1） 主界面和开始界面的转换：Private Sub cmdJr_Click()Frm1.Hide '隐藏开始界面Frm2.Show '显示程序主界面End SubPrivate Sub cmdTc_Click()EndEnd Sub（2） 赋值和管网阻力系数的计算：Option ExplicitDim G As Single, N As Single, H As Single, S As Single, z As Single, Zl As Single, Tg As Single, Th As 下载后可任意编辑Single, Dt As Single, M As Single '定义变量Dim X(1 To 4) As Double, Y(1 To 4) As Double, A(1 To 4, 1 To 4) As Double, B(1 To 4, 1 To 4) As DoublePrivate Sub cmdM1_Click()txtMj.Text = 200000 '面积赋值txtZb.Text = 45 '采暖热指标赋值txtGs.Text = 95 '供水温度txtHs.Text = 70 '回水温度txtZl.Text...
