ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];Needs["Graphics`Arrow`"];
line = Graphics[{Dashing[{0.001,0.01}],Line[{{-8Pi,0},{8Pi,0}}]}];
plot1 = Show[Plot[Cos[x],{x,-8Pi,8Pi},AxesLabel->{x,y},
			 AxesOrigin->{-26,-1.05},
			 PlotRange->{{-8Pi,8Pi},{-1.05,1.05}},
		     PlotLabel->"y = cos(x)"],line];
plot2 = Show[Plot[Sin[x],{x,-8Pi,8Pi},AxesLabel->{x,y},
			 AxesOrigin->{-26,-1.05},
			 PlotRange->{{-8Pi,8Pi},{-1.05,1.05}},
		     PlotLabel->"y = sin(x)"],line];
Show[GraphicsArray[{{plot1},{plot2}}],PlotLabel->"Figure 30.4"]