(495)240-8280ПН-СБ с 12:00 до 20:00
We speak English

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;