28 lines
729 B
Plaintext
28 lines
729 B
Plaintext
|
|
(* @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
|