17 lines
393 B
Plaintext
17 lines
393 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION FrictionLoss : REAL (* Return the Friction Losses for a concetrate cause *)
|
|
VAR_INPUT
|
|
i_Flow : REAL ;
|
|
i_K : REAL ;
|
|
i_Dens : REAL ;
|
|
END_VAR
|
|
VAR
|
|
END_VAR
|
|
(* @END_DECLARATION := '0' *)
|
|
(*FrictionLoss := EXPT(i_Flow * i_K*i_Dens, 2) ;*)
|
|
FrictionLoss := (i_Flow * i_K * i_Flow * i_K )* i_Dens ;
|
|
|
|
END_FUNCTION
|