22 lines
592 B
Plaintext
22 lines
592 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION DeaireationValve : REAL
|
|
VAR_INPUT
|
|
in_DeaireationFlow : REAL ;
|
|
in_InletPressure : REAL ;
|
|
in_FlowCoefficient : REAL ;
|
|
END_VAR
|
|
VAR
|
|
mAux : REAL;
|
|
END_VAR
|
|
(* @END_DECLARATION := '0' *)
|
|
(* Regime Sonico P2 < P1/2 *)
|
|
(* OV = Flow / 14.3 * kv * P1 *)
|
|
mAux := in_FlowCoefficient * 14.3 * (in_InletPressure + 1.0) ;
|
|
|
|
IF mAux <> 0 THEN
|
|
DeaireationValve := LIMIT(gDeaireationValveOV_Min, in_DeaireationFlow / mAux, 100.0) ; (* La valvola è stata tarata per cominciare ad aprire al 5% *)
|
|
END_IF
|
|
END_FUNCTION
|