(* @PATH := '\/Functions_Collection\/FillingHead' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION Cetrifugal_Head : REAL
VAR_INPUT
	i_Diameter			: REAL ;	(* Carousel Diameter [mm]*)
	i_NumValve			: REAL ; 	(* Filling Valve Number *)
	i_Speed				: REAL ;	(* Speed [BpH] *)
END_VAR
VAR
	Omega				: REAL ;
	Radius				: REAL ;
END_VAR


(* @END_DECLARATION := '0' *)
(* Filler Centrifugal Head [mm]*)

(* Head [m] = 1/2 *( Omega^2 * R^2) / g    *)
IF i_NumValve<>0 THEN
	Omega := ( i_Speed / i_NumValve / 3600 ) * 2 * gP_Greek ;
END_IF
Radius := i_Diameter / 2 / 1000 ;

(*Cetrifugal_Head := (( 0.5 * Omega*Omega * Radius * Radius ) / 9.8 ) * 100 ;*)
Cetrifugal_Head := (( 0.5 * Omega*Omega * Radius * Radius ) / 9.8 ) * 1000 ;
END_FUNCTION