42 lines
1.5 KiB
Markdown
42 lines
1.5 KiB
Markdown
```pascal
|
|
FUNCTION "CO2EqPress" : Real
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
AUTHOR : 'Author'
|
|
FAMILY : 'Function'
|
|
NAME : 'Name'
|
|
VERSION : 1.0
|
|
VAR_INPUT
|
|
i_CO2Vol : Real;
|
|
i_Temp : Real;
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
mAbsTemp : Real;
|
|
mAux : Real;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
(**************************************************************************************************)
|
|
(* The following Formula is supplied by Coca Cola Company, used in QC Labs *)
|
|
(**************************************************************************************************)
|
|
|
|
(* classic code: #mAbsTemp := #i_Temp + 273.16 ;*)
|
|
#mAbsTemp := #i_Temp + REAL#273.16 ;
|
|
(* classic code: IF (0.03275 * #mAbsTemp - 7.9567) <> 0 AND (0.000261 * #mAbsTemp + #mAux) <> 0 THEN*)
|
|
IF (REAL#0.03275 * #mAbsTemp - REAL#7.9567) <> 0 AND (REAL#0.000261 * #mAbsTemp + #mAux) <> 0 THEN
|
|
(* classic code: #mAux :=(0.01898 - 0.0000476 * #mAbsTemp) / (0.03275 * #mAbsTemp - 7.9567) * #mAbsTemp ;*)
|
|
#mAux :=(REAL#0.01898 - REAL#0.0000476 * #mAbsTemp) / (REAL#0.03275 * #mAbsTemp - REAL#7.9567) * #mAbsTemp ;
|
|
(* classic code: #CO2EqPress := (#i_CO2Vol - #mAux) * 1.0332 / (0.000261 * #mAbsTemp + #mAux) ;*)
|
|
#CO2EqPress := (#i_CO2Vol - #mAux) * REAL#1.0332 / (REAL#0.000261 * #mAbsTemp + #mAux) ;
|
|
END_IF;
|
|
(* classic code: #CO2EqPress := (#i_CO2Vol - #mAux) * 1.0332 / (0.000261 * #mAbsTemp + #mAux);*)
|
|
#CO2EqPress := (#i_CO2Vol - #mAux) * REAL#1.0332 / (REAL#0.000261 * #mAbsTemp + #mAux);
|
|
|
|
END_FUNCTION
|
|
|
|
|
|
```
|