% Script slowroot.m

% slowly covergent iteration to find root of
% x - exp(-x) = 0

x0 = 0.5;
x = x0;
for n = 1:20
   x = exp(-x);
   fprintf(1, '%5d %25.15e\n', n, x);
end