【湿空气热学】纯源码无模块手打湿空气绝对含水量计算

wh78845069

直接贴源码，不用下载附件。希望更多的人用易语言做有意义的事，也希望帮到大家。
转载或使用该算法请注明出处且保证代码的完整性。
专业用途计算不容马虎，差之毫厘谬之千里，数据来源于热力学手册2004版饱和蒸汽压
通过当前环境温度与相对湿度，来计算出空气中的绝对含水量，用于制冷暖通/空调/或者加湿环境的数据判断。
附件为示例程序

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

标签A.标题 ＝ “饱和蒸汽压：” ＋ 到文本 (湿空气计算 (编辑框1.内容, 编辑框2.内容, “饱和蒸汽压”)) ＋ “   Pa”
标签B.标题 ＝ “饱和含湿量：” ＋ 到文本 (湿空气计算 (编辑框1.内容, 编辑框2.内容, “饱和含湿量”)) ＋ “   g/kg”
标签C.标题 ＝ “当前含湿量：” ＋ 到文本 (湿空气计算 (编辑框1.内容, 编辑框2.内容, “当前含湿量”)) ＋ “   g/kg”
标签D.标题 ＝ “湿空气焓值：” ＋ 到文本 (湿空气计算 (编辑框1.内容, 编辑框2.内容, “湿空气焓值”)) ＋ “   kj/kg”

子程序名	返回值类型	公开	备 注
湿空气计算	小数型
参数名	类 型	参考	可空	数组	备 注
干球温度	文本型
相对湿度	文本型
返回值类型	文本型				饱和蒸汽压/饱和含湿量/当前含湿量/湿空气焓值

变量名	类 型	静态	数组	备 注
饱和水蒸气数组	文本型		88	饱和水蒸气分压力数组
饱和蒸汽压	小数型			单位Pa
饱和含湿量	小数型			单位g/kg
当前含湿量	小数型			单位g/kg
湿空气焓值	小数型			单位kj/kg
返回值	小数型

饱和水蒸气数组 ＝ 分割文本 (“10,8,9.1,10.2,11.5,12.8,14.4,16.1,18,20,22.4,24.9,27.7,30.8,34.2,38,42.2,46.7,51.7,57.2,63.3,69.9,77.2,85.1,93.8,103.3,113.6,124.9,137.2,150.7,165.3,181.2,198.5,217.3,237.7,259.9,283.9,310,338.2,368.7,401.8,437.5,476.1,517.7,562.7,611.2,656.7,705.6,757.7,813.1,872.1,934.9,1001.6,1072.4,1147.7,1227.6,1312.3,1402.2,1497.4,1598.3,1705.1,1818.1,1937.6,2064,2197.5,2338.5,2487.4,2644.5,2810.2,2984.9,3169.1,3363,3567.2,3782.1,4008.2,4246,4496,4758.6,5034.4,5324,5628,5946.8,6281.1,6631.6,6998.9,7383.6,7786.5,8208.1”, , 88)
饱和蒸汽压 ＝ 到数值 (饱和水蒸气数组 [到数值 (干球温度) ＋ 46])
饱和含湿量 ＝ 0.622 × 饱和蒸汽压 ÷ (101325 － 饱和蒸汽压)
当前含湿量 ＝ 饱和含湿量 × 到数值 (相对湿度) × 0.01
湿空气焓值 ＝ (1.01 ＋ 1.84 × 当前含湿量) × 到数值 (干球温度) ＋ 2500 × 当前含湿量
如果真 (返回值类型 ＝ “饱和蒸汽压”)
返回值 ＝ 饱和蒸汽压
如果真 (返回值类型 ＝ “饱和含湿量”)
返回值 ＝ 饱和含湿量
如果真 (返回值类型 ＝ “当前含湿量”)
返回值 ＝ 当前含湿量
如果真 (返回值类型 ＝ “湿空气焓值”)
返回值 ＝ 湿空气焓值
返回 (返回值)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 标签A.标题 ＝ “饱和蒸汽压：” ＋ 到文本 (湿空气计算 (编辑框1.内容, 编辑框2.内容, “饱和蒸汽压”)) ＋ “   Pa”<br /> 标签B.标题 ＝ “饱和含湿量：” ＋ 到文本 (湿空气计算 (编辑框1.内容, 编辑框2.内容, “饱和含湿量”)) ＋ “   g/kg”<br /> 标签C.标题 ＝ “当前含湿量：” ＋ 到文本 (湿空气计算 (编辑框1.内容, 编辑框2.内容, “当前含湿量”)) ＋ “   g/kg”<br /> 标签D.标题 ＝ “湿空气焓值：” ＋ 到文本 (湿空气计算 (编辑框1.内容, 编辑框2.内容, “湿空气焓值”)) ＋ “   kj/kg”<br /> <br /> <br /> .子程序 湿空气计算, 小数型, 公开<br /> .参数 干球温度, 文本型<br /> .参数 相对湿度, 文本型<br /> .参数 返回值类型, 文本型, , 饱和蒸汽压/饱和含湿量/当前含湿量/湿空气焓值<br /> .局部变量 饱和水蒸气数组, 文本型, , "88", 饱和水蒸气分压力数组<br /> .局部变量 饱和蒸汽压, 小数型, , , 单位Pa<br /> .局部变量 饱和含湿量, 小数型, , , 单位g/kg<br /> .局部变量 当前含湿量, 小数型, , , 单位g/kg<br /> .局部变量 湿空气焓值, 小数型, , , 单位kj/kg<br /> .局部变量 返回值, 小数型<br /> <br /> 饱和水蒸气数组 ＝ 分割文本 (“10,8,9.1,10.2,11.5,12.8,14.4,16.1,18,20,22.4,24.9,27.7,30.8,34.2,38,42.2,46.7,51.7,57.2,63.3,69.9,77.2,85.1,93.8,103.3,113.6,124.9,137.2,150.7,165.3,181.2,198.5,217.3,237.7,259.9,283.9,310,338.2,368.7,401.8,437.5,476.1,517.7,562.7,611.2,656.7,705.6,757.7,813.1,872.1,934.9,1001.6,1072.4,1147.7,1227.6,1312.3,1402.2,1497.4,1598.3,1705.1,1818.1,1937.6,2064,2197.5,2338.5,2487.4,2644.5,2810.2,2984.9,3169.1,3363,3567.2,3782.1,4008.2,4246,4496,4758.6,5034.4,5324,5628,5946.8,6281.1,6631.6,6998.9,7383.6,7786.5,8208.1”, , 88)<br /> 饱和蒸汽压 ＝ 到数值 (饱和水蒸气数组 [到数值 (干球温度) ＋ 46])<br /> 饱和含湿量 ＝ 0.622 × 饱和蒸汽压 ÷ (101325 － 饱和蒸汽压)<br /> 当前含湿量 ＝ 饱和含湿量 × 到数值 (相对湿度) × 0.01<br /> 湿空气焓值 ＝ (1.01 ＋ 1.84 × 当前含湿量) × 到数值 (干球温度) ＋ 2500 × 当前含湿量<br /> .如果真 (返回值类型 ＝ “饱和蒸汽压”)<br />     返回值 ＝ 饱和蒸汽压<br /> .如果真结束<br /> .如果真 (返回值类型 ＝ “饱和含湿量”)<br />     返回值 ＝ 饱和含湿量<br /> .如果真结束<br /> .如果真 (返回值类型 ＝ “当前含湿量”)<br />     返回值 ＝ 当前含湿量<br /> .如果真结束<br /> .如果真 (返回值类型 ＝ “湿空气焓值”)<br />     返回值 ＝ 湿空气焓值<br /> .如果真结束<br /> 返回 (返回值)

西瓜大大

大佬牛逼

BILLC090910

互联网+热力学

李泽勇2

没涉及到这个专业，有点蒙。

396384183

学习一下

一指温柔

感谢分享，很给力！~

nameliuhaobo

good6666666666

xjshuaishuai

好专业啊！谢谢分享！

pipicool

学习一下

sadamu999

专业！就应该多点这些东西，让易语言更深入到生活和工作当中！