18 lines
311 B
Plaintext
18 lines
311 B
Plaintext
|
|
(* @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
|