31 lines
507 B
Markdown
31 lines
507 B
Markdown
```pascal
|
|
FUNCTION "DeltaP" : Real
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
AUTHOR : 'Author'
|
|
FAMILY : 'Function'
|
|
NAME : 'Name'
|
|
VERSION : 1.0
|
|
VAR_INPUT
|
|
i_Flow : Real;
|
|
i_K : Real;
|
|
i_Valve : Real;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
|
|
|
|
(* classic code: IF #i_Valve <> 0.0 THEN*)
|
|
IF #i_Valve <> REAL#0.0 THEN
|
|
#DeltaP := SQR(#i_Flow) * SQR(#i_K) / #i_Valve / #i_Valve ;
|
|
ELSE
|
|
(* classic code: #DeltaP :=0.0;*)
|
|
#DeltaP :=REAL#0.0;
|
|
END_IF;
|
|
|
|
|
|
END_FUNCTION
|
|
|
|
|
|
```
|