//计算 露点、湿球温度、含湿量、比焓、饱和空气压力、水蒸气分压
#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
转载请注明出处!