25 lines
860 B
Plaintext
25 lines
860 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION CO2EqPress : REAL
|
|
VAR_INPUT
|
|
i_CO2Vol : REAL ;
|
|
i_Temp : REAL ;
|
|
END_VAR
|
|
VAR
|
|
mAbsTemp : REAL ;
|
|
mAux : REAL ;
|
|
END_VAR
|
|
(* @END_DECLARATION := '0' *)
|
|
(***************************************************************************************************************************)
|
|
(* The following Formula is supplied by Coca Cola Company, used in QC Labs *)
|
|
(***************************************************************************************************************************)
|
|
|
|
mAbsTemp := i_Temp + 273.16 ;
|
|
IF (0.03275 * mAbsTemp - 7.9567)<>0 AND (0.000261 * mAbsTemp + mAux)<>0 THEN
|
|
mAux :=(0.01898 - 0.0000476 * mAbsTemp) / (0.03275 * mAbsTemp - 7.9567) * mAbsTemp ;
|
|
CO2EqPress := (i_CO2Vol - mAux) * 1.0332 / (0.000261 * mAbsTemp + mAux) ;
|
|
END_IF
|
|
|
|
END_FUNCTION
|