ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
hor = Table[0.5(i-4),{i,7}]; vert = Table[2(i-4),{i,7}];
line1 = Graphics[{Dashing[{0.001,0.01}],Line[{{-Pi/2,0},{Pi/2,0}}]}];
line2 = Graphics[{Dashing[{0.001,0.01}],Line[{{Tan[-0.45Pi],0},{Tan[0.45Pi],0}}]}];

plot1 = Show[Plot[Tan[x],{x,-0.45Pi,0.45Pi},AxesLabel->{x,y},
			 PlotRange->{{-Pi/2,Pi/2},Automatic},
			 Ticks->{hor,vert},AxesOrigin->{-0.55Pi,-7.5},
		     PlotLabel->"y = tan(x)"],line1];
plot2 = Show[Plot[ArcTan[y],{y,Tan[-0.45Pi],Tan[0.45Pi]},
			 AxesLabel->{y,x},
			 PlotRange->{{Tan[-0.45Pi],Tan[0.45Pi]},{-Pi/2,Pi/2}},
			 Ticks->{vert,hor},AxesOrigin->{-7,-0.55Pi},
			 PlotLabel->"x = arctan(y)"],line2];
Show[GraphicsArray[{{plot1},{plot2}}],PlotLabel->"Figure 30.5"]