0 引言
1 程序设计目标
2 设计计算思想
3 程序流程
3.1 输入参数
Fig. 1 Main interface of the software图1 软件主界面 |
Fig. 2 Parameters setting interface图2 参数设置界面 |
3.2 程序计算流程
Fig. 3 Computational program flow chart图3 计算程序流程图 |
3.3 换热系数计算
4 结果与讨论
Table 1 Comparison of calculation results of the two methods表1 两种方法计算结果比较 |
项目 | Excel表格计算结果 | VB 6.0程序计算结果 | 偏差 / % |
---|---|---|---|
冷却水出水温度 / ℃ | 40.070 | 40.100 | 0.07 |
管内对流传热系数 / [W/(m2∙K)] | 9 361.800 | 9 280.400 | -0.88 |
液膜侧界膜传热系数 / [W/(m2∙K)] | 5 167.800 | 4 731.100 | -8.50 |
总传热系数 / [W/(m2∙K)] | 1 343.000 | 1 309.700 | -2.50 |
管内流体流速 / (m/s) | 1.580 | 1.580 | 0.00 |
管内流体压降 / kPa | 66.800 | 67.100 | 0.45 |
管片间空气流速 / (m/s) | 17.770 | 19.270 | 7.80 |
补水量 / (m3/h) | 0.251 | 0.257 | 2.30 |
换热器长度 / mm | 1 760.000 | 1 760.000 | 0.00 |
换热器宽度 / mm | 152.000 | 152.000 | 0.00 |
换热器高度 / mm | 1 400.000 | 1 400.000 | 0.00 |
换热器重量 / kg | 143.860 | 143.860 | 0.00 |
管外换热面积 / m2 | 19.300 | 19.300 | 0.00 |
换热量盈余 / % | 25.050 | 22.500 | -11.30 |