基于电子压焓图导出数据做的制冷剂性质cha询

wh78845069

我把数据导出为数据常量，然后做了cha询函数。可以便捷的cha询R22-R404-R507这三种制冷剂的热力学性质参数，送给有需要的人。

原理其实很简单的，只是把数据存在了常量里做个分割。调用起来比较方便。

  

窗口程序集名	保 留	保 留	备 注
功能函数

子程序名	返回值类型	公开	备 注
取制冷剂性质	小数型		R22 R404 R507已集成，数据源在系统常量表
参数名	类 型	参考	可空	数组	备 注
cha询温度	整数型				小数部分会被四舍五入
cha询类型	整数型
制冷剂型号	文本型				R22 R404 R507

变量名	类 型	静态	数组	备 注
返回值	小数型

如果真 (制冷剂型号 ＝ “R22”)
返回值 ＝ 到数值 (R22数据 [ (四舍五入 (cha询温度, 0) ＋ 60) × 8 ＋ cha询类型])
如果真 (制冷剂型号 ＝ “R404”)
返回值 ＝ 到数值 (R404数据 [ (四舍五入 (cha询温度, 0) ＋ 60) × 8 ＋ cha询类型])
如果真 (制冷剂型号 ＝ “R507”)
返回值 ＝ 到数值 (R507数据 [ (四舍五入 (cha询温度, 0) ＋ 60) × 8 ＋ cha询类型])
' 饱和压力：   ＝  cha询结果 [1] ＋ Bar
' 液态比体积： ＝  cha询结果 [2] ＋ mv3l/kg
' 气态比体积： ＝  cha询结果 [3] ＋ mv3/kg
' 液态焓值：   ＝  cha询结果 [4] ＋ kj/kg
' 气态焓值：   ＝  cha询结果 [5] ＋ kj/kg
' 该点焓差：   ＝  cha询结果 [6] ＋ kj/kg
' 液态熵值：   ＝  cha询结果 [7] ＋ kj/kg K
' 气态熵值：   ＝  cha询结果 [8] ＋ kj/kg K
返回 (返回值)

.版本 2<br /> <br /> .程序集 功能函数<br /> <br /> .子程序 取制冷剂性质, 小数型, 公开, R22 R404 R507已集成，数据源在系统常量表<br /> .参数 cha询温度, 整数型, , 小数部分会被四舍五入<br /> .参数 cha询类型, 整数型<br /> .参数 制冷剂型号, 文本型, , R22 R404 R507<br /> .局部变量 返回值, 小数型<br /> <br /> .如果真 (制冷剂型号 ＝ “R22”)<br />     返回值 ＝ 到数值 (R22数据 [(四舍五入 (cha询温度, 0) ＋ 60) × 8 ＋ cha询类型])<br /> .如果真结束<br /> .如果真 (制冷剂型号 ＝ “R404”)<br />     返回值 ＝ 到数值 (R404数据 [(四舍五入 (cha询温度, 0) ＋ 60) × 8 ＋ cha询类型])<br /> .如果真结束<br /> .如果真 (制冷剂型号 ＝ “R507”)<br />     返回值 ＝ 到数值 (R507数据 [(四舍五入 (cha询温度, 0) ＋ 60) × 8 ＋ cha询类型])<br /> .如果真结束<br /> ' 饱和压力：   ＝  cha询结果 [1] ＋ Bar<br /> ' 液态比体积： ＝  cha询结果 [2] ＋ mv3l/kg<br /> ' 气态比体积： ＝  cha询结果 [3] ＋ mv3/kg<br /> ' 液态焓值：   ＝  cha询结果 [4] ＋ kj/kg<br /> ' 气态焓值：   ＝  cha询结果 [5] ＋ kj/kg<br /> ' 该点焓差：   ＝  cha询结果 [6] ＋ kj/kg<br /> ' 液态熵值：   ＝  cha询结果 [7] ＋ kj/kg K<br /> ' 气态熵值：   ＝  cha询结果 [8] ＋ kj/kg K<br /> 返回 (返回值)

editabc

感谢分享

无极

        可否来个云盘链接

无极

        可否来个云盘链接

nywl2008

好东西，收下了。。。 感谢分享

a358498501

楼主辛苦了，谢谢楼主，感谢楼主分享，楼主好人一生平安！！

asd2168972

这个专业性太高了。哈哈

renjianhong48we

感谢分享

396384183

谢谢分享

夏亿

支持开源~！感谢分享