由于直接蒸发式空气冷却器外表面温度低于湿空气干球温度，所以，湿空气向蒸发器外表面放热;如果蒸发器外表面温度低于湿空气露点温度，湿空气中部分水蒸气将在外表面上凝结，形成一层水膜，这样二者之间就要同时进行热、湿两种交换过程。
进风状态1、出风状态2和空气冷却器外表面饱和空气层的状态s,三者可近似视为直线关系，如图所示。这样，当给定状态1和状态2以后，利用湿空气的焓湿图，找出所要求的表面温度和边界层饱和湿空气的比焓h，从而根据公式求得直接蒸发式空气冷却器应具有的冷却效率。
如你有其他需求或对软件有什么建议的话，可以随时联系渝石网络站长，站长将及时地给予回答。同时你也可以在网站下载其相关资料，网站地址：http://www.fishsting.com/。
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
黄建春
2026/3/5
800
