《课程设计（论文）基于VB编程的水泵拟合实现》由会员分享，可在线阅读，更多相关《课程设计（论文）基于VB编程的水泵拟合实现（17页珍藏版）》请在金锄头文库上搜索。
1、基于VB编程的水泵拟合实现1条件综述1.1 拟合条件已知水泵的四个工况点流量、扬程、功率以及空调水系统管网的阻力系数，拟合水泵（并联）的特性曲线以及管网的特性曲线。1.2 样本条件本次编程选用南方泵业TD100及TD150系列四种型号的水泵。模拟的供热系统各参数分别为：供热面积：200000平方米；面积热指标：45W/m2；供回水温度：95/70；系统阻力：37米水柱。2 编程要求循环水泵特性曲线拟合：多台同型号水泵并联，根据水泵并联特性通过计算机编程计算，求水泵工作点。考虑单台或多台循环水泵运行时，比较其流量、扬程、效率、轴功率如何变化，画出水泵和管网特性曲线。3 水泵拟合求解思路从水泵性能
2、曲线图可看出水泵的扬程、功率和效率是流量的多项式。因此可以表示为：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求出。
3、从而确定GH、G、GN回归曲线方程。根据回归曲线方程则可以画出水泵的性能曲线。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
4、 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 = 37 系统阻力End SubPri
5、vate Sub cmdJs_Click()If txtMj.Text = ThenMsgBox 请输入数据ElseM = 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 = GS = Zl / (G * G) 阻力系数计算txtXs.Text = SEnd IfEnd Sub（3） 水泵选型及赋值：Private Sub cmdSb_Click
6、()If comSb.Text = comSb.List(0) ThentxtQ(0).Text = 40txtQ(1).Text = 80txtQ(2).Text = 120txtQ(3).Text = 160txtH(0).Text = 16.8txtH(1).Text = 17.1txtH(2).Text = 16.3txtH(3).Text = 15txtN(0).Text = 5txtN(1).Text = 6txtN(2).Text = 7.7txtN(3).Text = 8.9End IfIf comSb.Text = comSb.List(1) ThentxtQ(0).Text
7、 = 40txtQ(1).Text = 100txtQ(2).Text = 140txtQ(3).Text = 200txtH(0).Text = 34.6txtH(1).Text = 34.7txtH(2).Text = 34.4txtH(3).Text = 33txtN(0).Text = 12txtN(1).Text = 17txtN(2).Text = 20.1txtN(3).Text = 25End IfIf comSb.Text = comSb.List(2) ThentxtQ(0).Text = 40txtQ(1).Text = 100txtQ(2).Text = 140txtQ
8、(3).Text = 200txtH(0).Text = 42.5txtH(1).Text = 42.6txtH(2).Text = 42txtH(3).Text = 40txtN(0).Text = 15txtN(1).Text = 21txtN(2).Text = 27txtN(3).Text = 30.8End IfIf comSb.Text = comSb.List(3) ThentxtQ(0).Text = 20txtQ(1).Text = 40txtQ(2).Text = 60txtQ(3).Text = 80txtH(0).Text = 29txtH(1).Text = 28.5
9、txtH(2).Text = 27.5txtH(3).Text = 26.5txtN(0).Text = 4.2txtN(1).Text = 5txtN(2).Text = 5.6txtN(3).Text = 6.5End IfIf comSb.Text = 请选择 Then 提示选择水泵MsgBox 请选择水泵End IfIf comSb.Text = ThenMsgBox 请选择水泵End IfEnd SubPrivate Sub cmdOne_Click(Index As Integer)If comSb.Text = 请选择 Then MsgBox 请选择水泵End IfIf comS
10、b.Text = ThenMsgBox 请选择水泵End If（4） 方程求解及单台水泵曲线绘制：Dim c As Single, d As Single, ef As Single 定义变量Dim i As Integer, j As Integer, xk As Single, yk As SingleDim B1(1 To 4) As Single, B2(1 To 4) As SingleA(1, 1) = 4 最小二乘法A(1, 2) = 0For i = 1 To 4 A(1, 2) = A(1, 2) + Val(txtQ(i - 1).Text)Next iA(1, 3) =
11、0For i = 1 To 4 A(1, 3) = A(1, 3) + Val(txtQ(i - 1).Text) 2Next iA(1, 4) = 0For i = 1 To 4 A(1, 4) = A(1, 4) + Val(txtQ(i - 1).Text) 3Next iA(2, 4) = 0For i = 1 To 4 A(2, 4) = A(2, 4) + Val(txtQ(i - 1).Text) 4Next iA(3, 4) = 0For i = 1 To 4 A(3, 4) = A(3, 4) + Val(txtQ(i - 1).Text) 5Next iA(4, 4) =
12、0For i = 1 To 4 A(4, 4) = A(4, 4) + Val(txtQ(i - 1).Text) 6Next iA(2, 1) = A(1, 2): A(2, 2) = A(1, 3): A(2, 3) = A(1, 4)A(3, 1) = A(1, 3): A(3, 2) = A(1, 4): A(3, 3) = A(2, 4)A(4, 1) = A(1, 4): A(4, 2) = A(2, 4): A(4, 3) = A(3, 4)B1(1) = 0For i = 1 To 4 B1(1) = B1(1) + Val(txtH(i - 1).Text)Next iB1(
13、2) = 0For i = 1 To 4 B1(2) = B1(2) + Val(txtH(i - 1).Text) * Val(txtQ(i - 1).Text)Next iB1(3) = 0For i = 1 To 4 B1(3) = B1(3) + Val(txtH(i - 1).Text) * Val(txtQ(i - 1).Text) 2Next iB1(4) = 0For i = 1 To 4 B1(4) = B1(4) + Val(txtH(i - 1).Text) * Val(txtQ(i - 1).Text) 3Next iB2(1) = 0For i = 1 To 4 B2(1) = B2(1) + Val(txtN(i - 1).Text)Next iB2(2) = 0For i = 1 To 4 B2(2) = B2(2) + Val(txtN(i - 1).Text) * Val(txtQ(i - 1).Text)Next iB2(3) = 0For i = 1 To 4 B2(3) = B2(3) + Val(txtN(i - 1).Text) * Val(txtQ(i - 1).Text) 2Next iB2(4)
