FUNCTION FC1: VOID //Масштабирование XMIN…XMAX -> YMIN…YMAX
TITLE = ' Масштабирование.'

VAR_INPUT //Входные переменные.
X:REAL; //Вход.
XMIN:REAL; //Минимум входного диапазона.
XMAX:REAL; //Максимум входного диапазона.
YMIN:REAL; //Минимум выходного диапазона.
YMAX:REAL; //Максимум выходного диапазона.
END_VAR

VAR_OUTPUT //Выходные переменные.
Y:REAL; //Выход.
END_VAR

//Алгоритм.
IF (XMAX<>XMIN) //Деление на 0 может остановить процессор.
THEN
Y:=(YMAX-YMIN)*((X-XMIN)/(XMAX-XMIN))+YMIN; //Масштабирование.
ELSE
Y:=0.0;
END_IF;
END_FUNCTION