FUNCTION FC70: VOID

TITLE =   '温湿度计算露点温度'

AUTHOR:   EBC_LW

NAME:     dewpoint

VERSION:      '0.01'

FAMILY:   EBC

KNOW_HOW_PROTECT

//**************************************************************************************

// 温度湿度计算露点温度

//LogEW＝0.66077＋7.5T／(237.3＋T)＋[log10(RH)－2]                 

//Dp＝[(0.66077－logEW)×237.3]／(logEW－8.16077)         

//Dp--dew_point露点温度  RH--相对湿度   T--空气温度                

 //**************************************************************************************

VAR_INPUT

 TE:REAL;

 RH:REAL;  

END_VAR

VAR_OUTPUT

Dp:REAL;

 //LogEW:= LN(2.718 281)+2;

  END_VAR

VAR_TEMP

    LogEW:REAL;;

END_VAR

VAR

  //**************************************************************************************

// 开始计算

//**************************************************************************************

 //LogEW:=0.66077＋7.5 * TE / (237.3＋TE)＋(log10(RH)－2)

 //Dp=((0.66077－logEW)*237.3)/(logEW－8.16077)    

END_VAR

LogEW:= 0.66077 + 7.5 * TE / (237.3 + TE) +  (LOG(RH)- 2)  ;

   Dp:=((0.66077- logEW)*237.3)/(logEW - 8.16077) ;

END_FUNCTION

//原创程序 欢迎交流 QQ275578306