Construct this graph associated with the logistic equation

> restart;

> x:=0.7:

> a:=3.7:

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

> m:=[ ]:

> for k to 100 do m:=[op(m),[x,x],[x,y]]: x:=y:y:=a*x*(1-x): od:
plot(m,scaling=constrained,color=red);

maple