(* @PATH := '\/Functions_Collection' *) (* @SYMFILEFLAGS := '0' *) aFUNCTION CVQ_0_6_Perc : REAL VAR_INPUT i_Temp : REAL ; END_VAR VAR a : REAL ; b : REAL ; c : REAL ; d : REAL ; END_VAR (* @END_DECLARATION := '0' *) (* CVQ Valve in 0 - 6 bar range. Min Actuator Temperature 91°C; max Actuator temperature 110°C *) (* 110 - 91 = 19°C *) a := 0.000429997 ; b := -0.014260836 ; c := 1.362579549 ; d := 93.71557018 ; CVQ_0_6_Perc := LIMIT(0, ((EXPT(i_Temp,3) * a + EXPT(i_Temp,2) * b + i_Temp * c + d) - 91) / 19 * 100.0, 100) ; END_PROGRAM