课程设计（论文）-基于vb编程的水泵拟合实现

《课程设计（论文）-基于vb编程的水泵拟合实现》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、基于VB编程的水泵拟合实现1条件综述1.1拟合条件已知水泵的四个工况点流量、扬程、功率以及空调水系统管网的阻力系数，拟合水泵（并联）的特性曲线以及管网的特性曲线。1.2样本条件本次编程选用南方泵业TD100及TD150系列四种型号的水泵。模拟的供热系统各参数分别为：供热面积：200000平方米；面积热指标：45W/m2；供回水温度：95/70℃；系统阻力：37米水柱。2编程要求循环水泵特性曲线拟合：多台同型号水泵并联，根据水泵并联特性通过计算机编程计算，求水泵工作点。考虑单台或多台循环水泵运行时，比较其流量、扬程、

2、效率、轴功率如何变化，画出水泵和管网特性曲线。3水泵拟合求解思路从水泵性能曲线图可看出水泵的扬程、功率和效率是流量的多项式。因此可以表示为：H=H0+A1G+A2G2+A3G3N=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代替，即：具体方程组的

3、求解是利用高斯－赛德尔迭代法迭代公式为：解出X(1)等各个系数，同理解出B1、B2、B3、N0。再利用公式η=(G*H*1000)/N*100*3600求出η。从而确定G—H、G—η、G—N回归曲线方程。根据回归曲线方程则可以画出水泵的性能曲线。4程序代码及注释水泵参考工作点数据库的建立程序代码为：（1）主界面和开始界面的转换：PrivateSubcmdJr_Click()Frm1.Hide'隐藏开始界面Frm2.Show'显示程序主界面EndSubPrivateSubcmdTc_Click()EndEndSub（

4、1）赋值和管网阻力系数的计算：OptionExplicitDimGAsSingle,NAsSingle,HAsSingle,SAsSingle,zAsSingle,ZlAsSingle,TgAsSingle,ThAsSingle,DtAsSingle,MAsSingle'定义变量DimX(1To4)AsDouble,Y(1To4)AsDouble,A(1To4,1To4)AsDouble,B(1To4,1To4)AsDoublePrivateSubcmdM1_Click()txtMj.Text=200000'面积赋

5、值txtZb.Text=45'采暖热指标赋值txtGs.Text=95'供水温度txtHs.Text=70'回水温度txtZl.Text=37'系统阻力EndSubPrivateSubcmdJs_Click()IftxtMj.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*D

6、t)txtLl.Text=GS=Zl/(G*G)'阻力系数计算txtXs.Text=SEndIfEndSub（1）水泵选型及赋值：PrivateSubcmdSb_Click()IfcomSb.Text=comSb.List(0)ThentxtQ(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="1

7、5"txtN(0).Text="5"txtN(1).Text="6"txtN(2).Text="7.7"txtN(3).Text="8.9"EndIfIfcomSb.Text=comSb.List(1)ThentxtQ(0).Text="40"txtQ(1).Text="100"txtQ(2).Text="140"txtQ(3).Text="200"txtH(0).Text="34.6"txtH(1).Text="34.7"txtH(2).Text="34.4"txtH(3).Text="33"txtN(0).Te

8、xt="12"txtN(1).Text="17"txtN(2).Text="20.1"txtN(3).Text="25"EndIfIfcomSb.Text=comSb.List(2)ThentxtQ(0).Text="40"txtQ(1).Text="100"txtQ(2).Text="140"txtQ(3).Text="200"txtH(0).Text="