采用aspen计算流体的物性参数

渝石网络主站：http://www.fishsting.com/
渝石网络分站：http://www.fishsting.cn/
渝石网络个人网站：http://www.huangjianchun.cn/
黄建春 2025/3/31 675
流体物性的计算一直都是各种计算的重要步骤，很多人一直以来都是采用查表得方法，但是有些流体的物性查表都不好找，本软件正是基于很多不好查的物性参数，采用aspen的物性计算的模型得出其相关的物性数据，然后在excel中采用VBA编写成函数，这样编写的代码非常容易实现表格的自动化，如果你有这方面的问题，可以直接联系渝石网站站长，站长将帮你免费计算，另外站长还免费公开了整理数据的代码，免得人工去敲数据，采用此代码将大大减轻你输入数据的麻烦。该软件是站长构思了很久所编写的一个软件，该软件包括3点插值函数，数据整理函数以及参数计算函数，三者互为统一，同时可以使得该软件的应用范围更为广阔。注：该软件配合aspen软件可以撰写一篇学术论文，其学术价值远高于其实际价值，估计发表在工程热物理学报没问题。
该软件采用excel作为前台，VBA作为后台，其外观设计美观，并且其表格形式的编排可供初学者学习使用。最后真诚地希望广大网友对该软件提出合理的建议，在此站长将对你的建议和意见表示衷心的感谢。
如你有其他需求或对软件有什么建议的话，可以随时联系渝石网络站长，站长将及时地给予回答。同时你也可以在网站下载其相关资料，网站地址：http://www.fishsting.com/。
顺便做个广告，帮忙点击房屋出租。

2025年03月31日
点击此处下载
其数据整理代码如下：
Sub 整理数据()
Dim i As Integer
Dim temp As String
For i = 1 To 49
temp = "yqt("
tempi = CStr(i)
temp = temp + tempi
temp = temp + ")="
tempd = Sheet1.Range("B" & i)
temp = temp + CStr(tempd)
temp = temp + ":"
temp = temp + " "
temp = temp + "yqi(" + tempi + ")="
tempd = Sheet1.Range("C" & i)
temp = temp + CStr(tempd)
Sheet1.Range("I" & i) = temp
Next i
End Sub

另外还有人给出了更好的代码：
Sub test()
[i1:i49] = ["yqt("&row(1:49)&") = "&(row(1:49)+1)*3&": yqi("&row(1:49)&") = "&c1:c49]
End Sub

参考文献
  1. 黄建春，热管空气预热器设计及性能计算. 渝石网络，2010。
  2. 黄建春，余热发电冷却风风量热平衡计算. 渝石网络，2018。
  3. 黄建春，化工原理学习笔记. 渝石网络，2011。
  4. 黄建春，水蒸气表使用说明书. 渝石网络，2018。
  5. 马后炮翻译，Aspen Plus热力学计算简明教程.华东理工大学出版社，2016。
  6. 陶文铨 编著，传热学（第六版）. 高等教育出版社出版社，2024。