21 lines
534 B
Plaintext
21 lines
534 B
Plaintext
|
|
(* @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
|