with(plots):#Make sure you turn off legend to see a better array.

P:=array(1..2,1..3):

P[1,1]:=plot({x*(1-x),x},x=0..1,y=0..1,color=black,tickmarks=[3,3]):

P[1,2]:=plot({2*x*(1-x),x},x=0..1,y=0..1,tickmarks=[3,3],color=black):

P[1,3]:=plot({3*x*(1-x),x},x=0..1,y=0..1,tickmarks=[3,3],color=black):

P[2,1]:=plot({3.3*x*(1-x),x},x=0..1,y=0..1,tickmarks=[3,3],color=black):

P[2,2]:=plot({3.7*x*(1-x),x},x=0..1,y=0..1,tickmarks=[3,3],color=black):

P[2,3]:=plot({4*x*(1-x),x},x=0..1,y=0..1,tickmarks=[3,3],color=black):

display(P);

f:=x->r*x*(1-x);

g:=f@f;

g(x);

simplify(%);

g:=(r,x)->r^2*x*(1-x)*(1-r*x*(1-x));

M:=array(1..2,1..3):

M[1,1]:=plot({x,g(3,x)},x=0..1,y=0..1,tickmarks=[3,3],color=black):

M[1,2]:=plot({x,g(3.2,x)},x=0..1,y=0..1,tickmarks=[3,3],color=black):

M[1,3]:=plot({x,g(3.4,x)},x=0..1,y=0..1,tickmarks=[3,3],color=black):

M[2,1]:=plot({x,g(3.5,x)},x=0..1,y=0..1,tickmarks=[3,3],color=black):

M[2,2]:=plot({x,g(3.55,x)},x=0..1,y=0..1,tickmarks=[3,3],color=black):

M[2,3]:=plot({x,g(3.58,x)},x=0..1,y=0..1,tickmarks=[3,3],color=black):

display(M);

N:=array(1..2,1..3):

N[1,1]:=plot({x,g(3,g(3,x))},x=0..1,y=0..1,tickmarks=[3,3],color=black):

N[1,2]:=plot({x,g(3.2,g(3.2,x))},x=0..1,y=0..1,tickmarks=[3,3],color=black):

N[1,3]:=plot({x,g(3.4,g(3.4,x))},x=0..1,y=0..1,tickmarks=[3,3],color=black):

N[2,1]:=plot({x,g(3.5,g(3.5,x))},x=0..1,y=0..1,tickmarks=[3,3],color=black):

N[2,2]:=plot({x,g(3.55,g(3.55,x))},x=0..1,y=0..1,tickmarks=[3,3],color=black):

N[2,3]:=plot({x,g(3.58,g(3.58,x))},x=0..1,y=0..1,tickmarks=[3,3],color=black):

display(N);