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]));