Хорошее замечание.
Сделал функцию так как часто использую:
PHP код:FUNCTION LinearEquation : BOOL
VAR_INPUT
rArr : REFERENCE TO ARRAY[0..100] OF REAL;
iXn, iXk : INT;
rYn, rYk : REAL;
END_VAR
VAR
iX : INT;
END_VAR
PHP код:IF (iXk-iXn)<>0 THEN
FOR iX := iXn TO iXk BY 1 DO
rArr[iX] := rYn + (iX-iXn)*(rYk-rYn)/(iXk-iXn);
END_FOR
END_IF




Ответить с цитированием