24 lines
648 B
Plaintext
24 lines
648 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION MaxCarboCO2_Vol : REAL
|
|
VAR_INPUT
|
|
i_Temp : REAL ;
|
|
i_Press : REAL ;
|
|
END_VAR
|
|
VAR
|
|
mAbsTemp : REAL ;
|
|
mAux : REAL ;
|
|
END_VAR
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
IF i_Temp<=0 THEN i_Temp:= 12.0 ; END_IF
|
|
mAbsTemp := i_Temp + gZeroAbsolute ;
|
|
IF (0.03275 * mAbsTemp - 7.9567)<>0 AND i_Press <>0 AND (0.000261 + mAux * (1 + 1.0332 / i_Press))<>0 THEN
|
|
mAux := (0.01898 - 0.0000476 * mAbsTemp) / (0.03275 * mAbsTemp - 7.9567) ;
|
|
MaxCarboCO2_Vol := i_Press * mAbsTemp / 1.0332 * (0.000261 + mAux * (1 + 1.0332 / i_Press)) ;
|
|
ELSE
|
|
MaxCarboCO2_Vol := -1 ;
|
|
END_IF
|
|
END_FUNCTION
|