38 lines
984 B
Markdown
38 lines
984 B
Markdown
```pascal
|
|
FUNCTION "DeaireationValve" : Real
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
AUTHOR : 'Author'
|
|
FAMILY : 'Function'
|
|
NAME : 'Name'
|
|
VERSION : 1.0
|
|
VAR_INPUT
|
|
in_DeaireationFlow : Real;
|
|
in_InletPressure : Real;
|
|
in_FlowCoefficient : Real;
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
mAux : Real;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
(* Regime Sonico P2 < P1/2 *)
|
|
(* OV = Flow / 14.3 * kv * P1 *)
|
|
(* classic code: #mAux := #in_FlowCoefficient * 14.3 * (#in_InletPressure + 1.0) ;*)
|
|
#mAux := #in_FlowCoefficient * REAL#14.3 * (#in_InletPressure + REAL#1.0) ;
|
|
|
|
IF #mAux <> 0 THEN
|
|
(* classic code: #DeaireationValve := LIMIT (MN:="Blender_Constants".gRVN304_Min , IN:= #in_DeaireationFlow / #mAux, MX:= 100.0) ;*)
|
|
#DeaireationValve := LIMIT (MN:="Blender_Constants".gRVN304_Min , IN:= #in_DeaireationFlow / #mAux, MX:= REAL#100.0) ;
|
|
ELSE
|
|
(* classic code: #DeaireationValve := 0.0;*)
|
|
#DeaireationValve := REAL#0.0;
|
|
END_IF;
|
|
|
|
|
|
END_FUNCTION
|
|
|
|
|
|
```
|