黄建春 
2026/2/20
59
湿球温度的计算方法其实就是物料平衡和能量平衡的计算，但是估计很多人都没有理解物料平衡和能量平衡的真正意义，更没有理解湿球温度测量的物理过程，因此很多人对这个问题都不知道从哪里下手，这种简单的问题，站长遇到很多次，在此不用多述，例如本站的《蒸汽喷射过程中蒸汽流量计算》及《易拉罐除漆热解系统热平衡计算》就是如此，所以希望下面的图解及编程代码对大家有所帮助，编程代码只代表计算湿球温度的思路，并不能计算出湿球温度，在这里计算湿球温度，还需要另外的两个函数，如果你感兴趣的话，可来信来电联系站长。最后真诚地希望广大网友对该软件提出合理的建议，在此站长将对你的建议和意见表示衷心的感谢。
该软件是在参考我人生中第一个软件《热管空气预热器热力性能计算》的基础上编写而成，采用excel作为前台，VBA作为后台，其外观设计美观，并且其表格形式的编排可供初学者学习使用。
如你有其他需求或对软件有什么建议的话，可以随时联系渝石网络站长，站长将及时地给予回答。同时你也可以在网站下载其相关资料，网站地址：http://www.fishsting.com/。
2026年2月20日
其代码如下：
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)
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
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
i = i + 1
GoTo 100
end if
求湿球温度 = t
求湿球温度 = t
End Function
参考文献
- 黄建春，热管空气预热器设计及性能计算. 渝石网络，2010。
- 陶文铨 编著，传热学（第六版）. 高等教育出版社出版社，2024。
- 张志立 编著，除湿技术. 化学工业出版社，2005。
- 黄建春，干湿球温度计算. 渝石网络，2023。
- 黄建春，传热学第五版中Gnielinski公式计算程序. 渝石网络，2024。
- 黄建春，采用aspen计算流体的物性参数. 渝石网络，2025。
- 黄建春，空气湿度的表示与计算. 渝石网络，2024。