28 lines
649 B
Plaintext
28 lines
649 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection\/FillingHead' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION mmH2O_TO_Freq : REAL
|
|
VAR_INPUT
|
|
i_Head : REAL ; (* Request Head in mmH2O *)
|
|
i_K_Pump : REAL ; (* Freq to Head Pump Factor *)
|
|
END_VAR
|
|
VAR
|
|
END_VAR
|
|
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
(* Calculates the pump frequency to get an input head
|
|
|
|
Freq = Pump Frequency [Hz]
|
|
K_mBar = Freq to Head Pump Constant
|
|
|
|
(* Head [ mBar] = Freq^2 * K_Pump *)
|
|
|
|
(******* Pompa INOXPA Modello ______ Motore 4 Poli 960 RPM ********* *)
|
|
|
|
IF i_K_Pump<>0 THEN
|
|
mmH2O_TO_Freq := SQRT ( i_Head / i_K_Pump );
|
|
END_IF
|
|
mmH2O_TO_Freq := LIMIT(0, mmH2O_TO_Freq, 100.0) ;
|
|
END_FUNCTION
|