(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION SyrupDensity : REAL
VAR_INPUT
	i_SyrupBrix				: REAL ;
END_VAR
VAR
END_VAR
(* @END_DECLARATION := '0' *)
(*
IF gDens_Sucrose<>0 AND ((i_SyrupBrix / gDens_Sucrose + 100) - i_SyrupBrix)<>0 THEN
	SyrupDensity := 1/ ((i_SyrupBrix / gDens_Sucrose + 100) - i_SyrupBrix) ;
END_IF
*)
IF gDens_Sucrose<>0 AND (gH2O_Density / gDens_Sucrose)<>1 THEN
	SyrupDensity := gH2O_Density / (1 + i_SyrupBrix / 100 * ((gH2O_Density / gDens_Sucrose) - 1)) ;
END_IF

END_FUNCTION