23 lines
478 B
Plaintext
23 lines
478 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION CIP_CVQ : REAL
|
|
VAR_INPUT
|
|
i_TempIn : REAL ;
|
|
i_TempOut : REAL ;
|
|
END_VAR
|
|
VAR
|
|
END_VAR
|
|
(* @END_DECLARATION := '0' *)
|
|
IF i_TempOut<= 0.5 THEN
|
|
CIP_CVQ := 50.0 ;
|
|
ELSIF i_TempIn-i_TempOut<=1 THEN
|
|
CIP_CVQ := 100.0 ;
|
|
ELSIF (i_TempIn-i_TempOut>1) AND (i_TempIn-i_TempOut<=5) THEN
|
|
CIP_CVQ := (i_TempOut - i_TempIn) * 12.5 + 87.5 ;
|
|
ELSIF i_TempIn-i_TempOut>5 THEN
|
|
CIP_CVQ := 50.0 ;
|
|
END_IF
|
|
|
|
END_FUNCTION
|