The array command is just what you are looking for! Have a look at what Maple does with these commands.
> sine := plot(sin(x),x=-Pi..Pi,xtickmarks=[-3.14=`Pi`,0=`0`,3.14=`Pi`],
ytickmarks=[-.95=`-1`,.95=`1`]):
> cosine := plot(cos(x),x=-Pi..Pi,xtickmarks=[-3.14=`Pi`,0=`0`,3.14=`Pi`],
ytickmarks=[-.95=`-1`,.95=`1`]):
> display(array([sine,cosine]));