渝石网络--管壁平均温度的计算方法详解及编程方法

由于直接蒸发式空气冷却器外表面温度低于湿空气干球温度，所以，湿空气向蒸发器外表面放热;如果蒸发器外表面温度低于湿空气露点温度，湿空气中部分水蒸气将在外表面上凝结，形成一层水膜，这样二者之间就要同时进行热、湿两种交换过程。

进风状态1、出风状态2和空气冷却器外表面饱和空气层的状态s,三者可近似视为直线关系，如图所示。这样，当给定状态1和状态2以后，利用湿空气的焓湿图，找出所要求的表面温度和边界层饱和湿空气的比焓h，从而根据公式求得直接蒸发式空气冷却器应具有的冷却效率。

该软件是在参考我人生中第一个软件《热管空气预热器热力性能计算》的基础上编写而成，采用excel作为前台，VBA作为后台，其外观设计美观，并且其表格形式的编排可供初学者学习使用。

如你有其他需求或对软件有什么建议的话，可以随时联系渝石网络站长，站长将及时地给予回答。同时你也可以在网站下载其相关资料，网站地址：http://www.fishsting.com/。

顺便做个广告，帮忙点击房屋出租和杜梅一路走好。

2026年3月5日

点击此处下载

其代码如下：

Function 计算管壁平均温度(tempC_DB1 As Single, RH_1 As Single, tempC_DB2 As Single, RH_2 As Single, temp_eva As Single)

Dim a, b, c As Single, tx As Single
Dim han1, d1, tl1, han2, d2, tl2, ts, rhs, hans, Ds As Single
Dim k1, k2 As Single
If RH_1 > 1 Then
MsgBox "wrong RH"
End If
If tempC_DB1 < tempC_DB2 Then
MsgBox "not cooling mode"
End If
d1 = 求含湿量(tempC_DB1, RH_1)
tl1 = 求露点温度(tempC_DB1, RH_1)
d2 = 求含湿量(tempC_DB2, RH_2)
tl2 = 求露点温度(tempC_DB2, RH_2)
If d1 <> d2 Then '如果空气进出口含湿量不等

k1 = (tempC_DB1 - tempC_DB2) / (d1 - d2) '1，2点热湿比
tx = 1 '相对湿度为100%
a = tl2 '右边界
b = temp_eva '左边界
Do

c = (a + b) / 2
'hans = SI_Enthalpy_BY_DBHum(c, tx)
Ds = 求含湿量(c, tx)
ts = 求露点温度(c, tx)
k2 = (tempC_DB2 - ts) / (d2 - Ds) '2点和假定点的热湿比
If k2 = k1 Then

a = c
b = c

Else

If k2 > k1 Then a = c
Else b = c
End If

End If

Loop Until Abs(a - b) <= 0.02
ts = (a + b) / 2

Else
ts = tl1
End If
计算管壁平均温度 = ts

End Function

参考文献

黄建春，热管空气预热器设计及性能计算. 渝石网络，2010。
陶文铨编著，传热学（第六版）. 高等教育出版社出版社，2024。
张志立编著，除湿技术. 化学工业出版社，2005。
彦启森等编著，空气调节用制冷技术(第四版). 中国建筑工业出版社，2010。
黄建春，干湿球温度计算. 渝石网络，2023。
黄建春，传热学第五版中Gnielinski公式计算程序. 渝石网络，2024。
黄建春，采用aspen计算流体的物性参数. 渝石网络，2025。
黄建春，空气湿度的表示与计算. 渝石网络，2024。