6.3. Стиль 3: Команда, похожая на функцию
В этом стиле используется функциональное представление для передачи вводимых данных в команду NEWT3(). Благодаря тому, как инициализируются переменные, эту команду нужно запускать из командной строки.
В противном случае встроенный экран ввода подскажет вам ввести аргументы, причем принимаются только данные в виде действительных чисел, а в переменной f алгебраическое выражение вводить нельзя.
Использование: NEWT3("X^2-5", 2.1, .0001, 100);
EXPORT NEWT3(f, guess, tol, maxiter)
BEGIN
LOCAL n, xold, xnew, err, N;
N := maxiter;
err := tol;
xnew := guess;
F1 := f;
CAS("F0 := id-F1/F1'");
L1 := {}; L1(1) := xnew;
FOR n FROM 2 TO N+1 DO
xold := xnew;
xnew := F0(xold);
L1(n) := xnew;
IF ABS(xnew-xold) < err THEN BREAK; END;
END;
EDITLIST(L1);
END;