(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION FrictionLoss : REAL	(* Return the Friction Losses for a concetrate cause *)
VAR_INPUT
	i_Flow				: REAL ;
	i_K					: REAL ;
	i_Dens				: REAL ;
END_VAR
VAR
END_VAR
(* @END_DECLARATION := '0' *)
(*FrictionLoss := EXPT(i_Flow * i_K*i_Dens, 2) ;*)
FrictionLoss := (i_Flow * i_K * i_Flow * i_K )* i_Dens ;

END_FUNCTION