Construct this graph associated with the
logistic equation
x ' = ax(1-x)

> x:=0.7;

> a:=3.7;

> y:=a*x*(1-x);

> m:=[];

> for k to 200 do m:=[op(m),[x,x],[x,y]]:x:=y:y:=a*x*(1-x):od:

> plot(m,scaling=constrained);

>