code for the above diagrams

> h:=x->1/3*(x^2-3*x):

> pl1:=plot(h(x),x=-3..3,y=-3..3,thickness=3,
labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],
title=`f(x)`,titlefont=[TIMES,BOLD,12]):

> pl2:=plot(h(x+1),x=-3..3,y=-3..3,scaling=constrained,
thickness=3,
labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],
title=`f(x+1)`,titlefont=[TIMES,BOLD,12]):

> pl3:=plot(h(x)+1,x=-3..3,y=-3..3,scaling=constrained,
thickness=3,
labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],
title=`f(x)+1`,titlefont=[TIMES,BOLD,12]):

> pl4:=plot(-h(x),x=-3..3,scaling=constrained,thickness=3,
labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],
title=`-f(x)`,titlefont=[TIMES,BOLD,12]):
pl5:=plot(h(-x),x=-3..3,scaling=constrained,thickness=3,
labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],
title=`f(-x)`, titlefont=[TIMES,BOLD,12]):

> pl6:=plot( h(2*x),x=-3..3,scaling=constrained,thickness=3,labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],title=` f(2*x)`,titlefont=[TIMES,BOLD,12]):
pl7:=plot( 2*h(x),x=-3..3,scaling=constrained,thickness=3,
labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],title=`2*f(x)`,titlefont=[TIMES,BOLD,12]):

> pl8:=plot(h(x/2),x=-3..3,scaling=constrained,thickness=3,
labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],
title=`f(x/2)`,titlefont=[TIMES,BOLD,12]):

> pl9:=plot(h(x)/2,x=-3..3,scaling=constrained,thickness=3,
labelfont=[TIMES,BOLD,12],axesfont=[TIMES,BOLD,12],
title=`f(x)/2`,titlefont=[TIMES,BOLD,12]):

> pl1;

> plots[display](matrix(1,2,[pl2,pl3]),thickness=1,axesfont=[TIMES,BOLD,11]);

> plots[display](matrix(1,2,[pl5,pl4]),thickness=1,axesfont=[TIMES,BOLD,11]);

> plots[display](matrix(1,2,[pl6,pl7]),thickness=1,axesfont=[TIMES,BOLD,11]);

> plots[display](matrix(1,2,[pl8,pl9]),thickness=1,axesfont=[TIMES,BOLD,11]);

>