20 lines
467 B
Plaintext
20 lines
467 B
Plaintext
|
|
(* @PATH := '\/Functions_Collection\/FillingHead' *)
|
|
(* @SYMFILEFLAGS := '0' *)
|
|
FUNCTION TankLevelToHeight : REAL
|
|
VAR_INPUT
|
|
Level_Percentage : REAL ;
|
|
Level_Perc0 : REAL ;
|
|
Level_Height0 : REAL ;
|
|
Level_Perc1 : REAL ;
|
|
Level_Height1 : REAL ;
|
|
END_VAR
|
|
VAR
|
|
END_VAR
|
|
|
|
(* @END_DECLARATION := '0' *)
|
|
IF Level_Perc1<>0 THEN
|
|
TankLevelToHeight := (Level_Percentage * (Level_Height1 - Level_Height0) / Level_Perc1) + Level_Height0 ;
|
|
END_IF
|
|
END_FUNCTION
|