湿球温度的计算方法其实就是物料平衡和能量平衡的计算，但是估计很多人都没有理解物料平衡和能量平衡的真正意义，更没有理解湿球温度测量的物理过程，因此很多人对这个问题都不知道从哪里下手，这种简单的问题，站长遇到很多次，在此不用多述，例如本站的《
蒸汽喷射过程中蒸汽流量计算》及《
易拉罐除漆热解系统热平衡计算》就是如此，所以希望下面的图解及编程代码对大家有所帮助，编程代码只代表计算湿球温度的思路，并不能计算出湿球温度，在这里计算湿球温度，还需要另外的
两个函数，观察代码应该知道就是这两个函数，即：
求饱和湿空气的饱和压力(tk)和
求饱和湿空气的含湿量(t)这两个函数，如果你感兴趣的话，可来信来电联系站长。最后真诚地希望广大网友对该软件提出合理的建议，在此站长将对你的建议和意见表示衷心的感谢。
如你有其他需求或对软件有什么建议的话，可以随时联系渝石网络站长，站长将及时地给予回答。同时你也可以在网站下载其相关资料，网站地址：http://www.fishsting.com/。
Public Function 求湿球温度(空气温度t, 空气相对湿度ph)
Dim ijx, t As Single
tk = 空气温度t
ph = 空气相对湿度ph
i = 0 '计数器
t = 10 '假设湿球温度
pk = 求饱和湿空气的饱和压力(tk) '单位为kpa
d = 0.622 * (ph * pk / (101.325 - ph / 100 * pk) / 100)
hh1 = 1.005 * tk + d * (2501 + 1.836 * tk)
100 d1 = 求饱和湿空气的含湿量(t)
'混合前的焓值应该等于混合后的焓值 能量守恒
ijx = 1.005 * t + d1 * (2501 + 1.836 * t) '混合后的饱和湿空气的焓值
water = d1 - d '喷水量
h1 = hh1 + water * 4.1816 * t '混合前的湿空气焓值和喷水焓值之和
ix = h1
If Abs(ijx - ix) > 0.001 And i < 1150 Then
t = t * ix / ijx
i = i + 1
GoTo 100
end if
求湿球温度 = t
End Function
露点温度是空气因为冷却而开始结露的那个温度，衡量的是“空气中实际有多少水汽”。它和湿球温度不同，是未饱和的湿空气的一个降温过程，而湿球温度则是加湿过程，衡量的是“空气通过水分蒸发能达到多低的温度”。
Public Function 求露点温度(tk As Single, RH As Single)
Dim pk, ps, ts As Single
pk = 求饱和湿空气的饱和压力(tk) '干球温度, 单位是kpa
ps = pk * RH / 1000 '水蒸气的实际压力, 单位是Mp，这个压力在降温过程保持不变
ts = Temperature("water", "Pvap", "SI with c", ps) '求饱和温度
求露点温度 = ts
End Function
黄建春
2026/2/20
823
