630 B
630 B
FUNCTION "WaterDensity" : Real
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : 'Function'
NAME : 'Name'
VERSION : 1.0
VAR_INPUT
i_Temperature : Real;
END_VAR
BEGIN
(* classic code: #WaterDensity := 0.99985 + 0.000061577 * #i_Temperature - 0.0000081546 * #i_Temperature * #i_Temperature + 0.000000047799 * #i_Temperature * #i_Temperature * #i_Temperature ;*)
#WaterDensity := REAL#0.99985 + REAL#0.000061577 * #i_Temperature - REAL#0.0000081546 * #i_Temperature * #i_Temperature + REAL#0.000000047799 * #i_Temperature * #i_Temperature * #i_Temperature ;
END_FUNCTION