36 lines
997 B
Markdown
36 lines
997 B
Markdown
```pascal
|
|
FUNCTION "CIP CVQ" : Real
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
AUTHOR : 'Author'
|
|
FAMILY : 'Function'
|
|
NAME : 'Name'
|
|
VERSION : 1.0
|
|
VAR_INPUT
|
|
i_TempIn : Real;
|
|
i_TempOut : Real;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
(* classic code: IF #i_TempOut <= 0.5 THEN*)
|
|
IF #i_TempOut <= REAL#0.5 THEN
|
|
(* classic code: #"CIP CVQ" := 50.0 ;*)
|
|
#"CIP CVQ" := REAL#50.0 ;
|
|
ELSIF #i_TempIn-#i_TempOut <= 1 THEN
|
|
(* classic code: #"CIP CVQ" := 100.0 ;*)
|
|
#"CIP CVQ" := REAL#100.0 ;
|
|
ELSIF (#i_TempIn-#i_TempOut > 1) AND (#i_TempIn-#i_TempOut <= 5) THEN
|
|
(* classic code: #"CIP CVQ" := (#i_TempOut - #i_TempIn) * 12.5 + 87.5 ;*)
|
|
#"CIP CVQ" := (#i_TempOut - #i_TempIn) * REAL#12.5 + REAL#87.5 ;
|
|
ELSIF #i_TempIn-#i_TempOut > 5 THEN
|
|
(* classic code: #"CIP CVQ" := 50.0 ;*)
|
|
#"CIP CVQ" := REAL#50.0 ;
|
|
ELSE
|
|
(* classic code: #"CIP CVQ" := 0.0;*)
|
|
#"CIP CVQ" := REAL#0.0;
|
|
END_IF;
|
|
END_FUNCTION
|
|
|
|
|
|
```
|