Gnielinski公式的计算公式如下图所示，在excel中采用常规的计算方法，计算Gnielinski公式有点不方便，如果采用该代码可以直接简化excel中的操作，非常实用，而且也不容易出错，希望对大家有用。最后真诚地希望广大网友对该软件提出合理的建议，在此站长将对你的建议和意见表示衷心的感谢。
该软件是在参考我人生中第一个软件《热管空气预热器热力性能计算》的基础上编写而成，采用excel作为前台，VBA作为后台，其外观设计美观，并且其表格形式的编排可供初学者学习使用。
如你有其他需求或对软件有什么建议的话，可以随时联系渝石网络站长，站长将及时地给予回答。同时你也可以在网站下载其相关资料，网站地址：http://www.fishsting.cn/。
顺便做个广告，帮忙点击房屋出租。
其代码如下：
Public Function 烟气冲刷管束Nu数(雷诺数re, 普朗特数pr,长度ps, 管子直径d)
ps = 长度ps
d = 管子直径d
re=雷诺数re
pr=普朗特数pr
fk = (1.8 * Log(re) / Log(10) - 1.5) ^ -2
Nuf = (fk / 8) * (re - 1000) * pr
Nuf = Nuf / (1 + 12.7 * (fk / 8) ^ 0.5 * ((pr) ^ (2 / 3) - 1))
Nuf = Nuf * (1 + (d / ps) ^ (2 / 3))
烟气冲刷管束Nu数 = Nuf
d = 管子直径d
re=雷诺数re
pr=普朗特数pr
fk = (1.8 * Log(re) / Log(10) - 1.5) ^ -2
Nuf = (fk / 8) * (re - 1000) * pr
Nuf = Nuf / (1 + 12.7 * (fk / 8) ^ 0.5 * ((pr) ^ (2 / 3) - 1))
Nuf = Nuf * (1 + (d / ps) ^ (2 / 3))
烟气冲刷管束Nu数 = Nuf
End Function
学生：黄建春
2024年10月20日
2024年10月20日