19 lines
363 B
Plaintext
19 lines
363 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION ValveFlow : REAL
|
|
VAR_INPUT
|
|
i_DeltaP : REAL ;
|
|
i_ValveOp : REAL ;
|
|
i_KFF : REAL ;
|
|
i_Dens : REAL ;
|
|
END_VAR
|
|
VAR
|
|
END_VAR
|
|
(* @END_DECLARATION := '0' *)
|
|
IF i_KFF<>0 AND i_DeltaP>=0 AND i_Dens<>0THEN
|
|
ValveFlow := i_ValveOp * SQRT(i_DeltaP / i_Dens) / i_KFF ;
|
|
END_IF
|
|
|
|
END_FUNCTION
|