% Try the following notebook, which produces the famous
% chaotic behaviour, which was investigated by Feigenbaum.
>function f(x,l)
$return l*x*(1-x);
$endfunction
% This function is iterated, starting from 0.5.
>l=3:0.005:4;
>x=0.5*ones(size(l));
% The niterate function is given an additional argument
% l.
>h=niterate("f",x,200;l); h=h[100:200];
>style("m.");
% xmark is a bit slow for that many points.
>xmark(l,h); wait(20);
>