Miguel
/
Obsidean_VM
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O.../Source/source/CO2EqPress.md

1.5 KiB
Raw Blame History 

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