6.4. Стиль 4: Смешение стилей 1 и 3

Использование: Поместите формулу в F1 в приложении Function, запустите программу NEWT3 из командной строки, из Каталога программ (Program Catalog), либо с помощью интерфейса [Toolbox].

EXPORT NEWT3(guess, tol, maxiter)
BEGIN
  LOCAL n, xold, xnew, err, N;

  N := maxiter;
  err := tol;
  xnew := guess;

  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;