基于VB编程的水泵拟合实现.doc

基于VB编程的水泵拟合实现 1条件综述 1.1 拟合条件 已知水泵的四个工况点流量、扬程、功率以及空调水系统管网的阻力系数，拟合水泵（并联）的特性曲线以及管网的特性曲线。 1.2 样本条件 本次编程选用南方泵业TD100及TD150系列四种型号的水泵。 模拟的供热系统各参数分别为： 供热面积：平方米；面积热指标：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 程序代码及注释 水泵参考工作点数据库的建立 程序代码为： 主界面和开始界面的转换： Private Sub cmdJr_Click() Frm1.Hide 隐藏开始界面 Frm2.Show 显示程序主界面 End Sub Private Sub cmdTc_Click() End End Sub 赋值和管网阻力系数的计算： Option Explicit Dim 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 Double Private Sub cmdM1_Click() txtMj.Text = 面积赋值 txtZb.Text = 45 采暖热指标赋值 txtGs.Text = 95 供水温度 txtHs.Text = 70 回水温度 txtZl.Text = 37 系统阻力 End Sub Private Sub cmdJs_Click() If txtMj.Text = Then MsgBox 请输入数据 Else M = Val(txtMj.Text) z = Val(txtZb.Text) Zl = Val(txtZl.Text) Tg = Val(txtGs.Text) Th = Val(txtHs.Text) Dt = Tg – Th 供回水温差 G = M * z * 3.6 / (4187 * Dt) txtLl.Text = G S = Zl / (G * G) 阻力系数计算 txtXs.Text = S End If End Sub 水泵选型及赋值： Private Sub cmdSb_Click() If comSb.Text = comSb.List(0) Then txtQ(0).Text = 40 txtQ(1).Text = 80 txtQ(2).Text = 120 txtQ(3).Text = 160 txtH(0).Text = 16.8 txtH(1).Text = 17.1 txtH(2).Text = 16.3 txtH(3).Text = 15 txtN(0).Text = 5 txtN(1).Text = 6 txtN(2).Text = 7.7 txtN(3).Text = 8.9 End If If co