【分享】干货！！空气湿球温度、露点、焓值计算SCL

//计算 露点、湿球温度、含湿量、比焓、饱和空气压力、水蒸气分压

#Td := (237.7 * (17.27 * #T / (237.7 + #T) + LN(#RH / 100))) / (17.27 - (17.27 * #T / (237.7 + #T) + LN(#RH / 100)));//计算空气含湿量(Td)

#Pv_Temp := EXP((18.678 - #T/ 234.5) * #T / (#T + 257.14));

#PV := 611.2 * #Pv_Temp;//计算饱和压力(Pv)

#d_Temp:=  0.01 * #RH * #PV/ (101326 - 0.01 * #RH * #PV);//计算含湿量(d)

#d := 0.6219 * #d_Temp;

#H := 1.01 * #T + (2500 + 1.84 * #T) * #d;//计算焓值(H)

#Tw_low_Temp := #Td;

#Tw_high_Temp := #T;

FOR #I := 1 TO 100 BY 1 DO

    #Tw_Temp := (#Tw_high_Temp - #Tw_low_Temp) * 0.5;

    #Tw_Guess := #Tw_Temp + #Tw_low_Temp;

    #Pvw_temp := 611.2 * EXP((18.678 - #Td / 234.5) * #Tw_Guess / (#Tw_Guess + 257.14));//计算湿球饱和压力(Pvw)

    #dw_Temp := 0.6219 * #Pvw_temp / (101326 - #Pvw_temp);//计算湿球含湿量(dw)

    #Hw_Temp := 1.01 * #Tw_Guess + (2500 + 1.84 * #Tw_Guess) * #dw_Temp;//计算湿球焓值

    IF (#H - #Hw_Temp) >= 0.0 THEN

        #Tw_low_Temp := #Tw_Guess;

    ELSE

        #Tw_high_Temp := #Tw_Guess;

    END_IF;

    IF ABS(#Tw_Temp) < 0.0001 THEN

        EXIT;

    END_IF;

END_FOR;

#Tw := #Tw_Guess;

Air parameter calculation.rar

转载请注明出处！

好复杂的算法

感谢分享，学习

变量名称只有数据类型，没有变量说明，理解起来很费力。比如你的变量RH是什么物理意义？

是相对湿度吗？

仅仅是一段代码而已！

建议找其他更简单的算法。
不建议用FOR这种老掉牙的算法了。

别人网站上的都不会用FOR的算法 http://www.ab126.com/Geography/1908.html

值得收藏，谢谢分享

无论如何，应该鼓励楼主。

现在plc的能力越来越强，这点复杂程度对它来说不算回事。

当然了如果大家有更优秀的算法也可以发上来。度娘来的就算了。

相对湿度百分百

感谢分享干货，收藏了

，正在找相关资料！

 感谢分享了