(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION DeltaP : REAL
VAR_INPUT
	i_Flow				: REAL ;
	i_K					: REAL ;
	i_Valve				: REAL ;
END_VAR
VAR
END_VAR

(* @END_DECLARATION := '0' *)
IF i_Valve<>0 THEN
	DeltaP := i_Flow * i_K * i_Flow * i_K / i_Valve / i_Valve ;
END_IF
END_FUNCTION