ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];Needs["Graphics`Arrow`"];
ticktable = Table[0.5(i-1),{i,4}];
acline1 = Graphics[{Dashing[{0.001,0.01}],Line[{{0.81,0},{0.81,ac[0.81]}}]}];
acline2 = Graphics[{Dashing[{0.01,0.01}],Line[{{0.81,ac[0.81]},{0.81,Pi/2}}]}];
asline1 = Graphics[{Dashing[{0.01,0.01}],Line[{{0.81,0},{0.81,as[0.81]}}]}];
asline2 = Graphics[{Dashing[{0.001,0.01}],Line[{{0.81,as[0.81]},{0.81,Pi/2}}]}];

ac[y_]:= ArcCos[y];as[y_]:= ArcSin[y];
plot1 = Plot[Cos[x],{x,0,Pi/2},AspectRatio->Automatic,
			 Ticks->{ticktable,ticktable},
			 AxesLabel->{x,y},
			 PlotRange->{{0,1.7},{-0.025,1.6}},
			 AxesOrigin->{-0.05,-0.04},
		     PlotLabel->"y = cos(x)"];
plot2 = Plot[Sin[x],{x,0,Pi/2},AspectRatio->Automatic,
			 Ticks->{ticktable,ticktable},
			 AxesLabel->{x,y},
			 PlotRange->{{0,1.7},{-0.025,1.6}},
		     AxesOrigin->{-0.05,-0.04},
		     PlotLabel->"y = sin(x)"];
plot3 = Show[Plot[ac[x],{x,0,1},AspectRatio->Automatic,
			 Ticks->{ticktable,ticktable},
			 AxesLabel->{y,x},
			 PlotRange->{{0,1.7},{-0.025,1.6}},
		     AxesOrigin->{-0.05,-0.04},
		     PlotLabel->"x = arccos(y)"],acline1,acline2];
plot4 = Show[Plot[as[x],{x,0,1},AspectRatio->Automatic,
			 Ticks->{ticktable,ticktable},
			 AxesLabel->{y,x},
			 PlotRange->{{0,1.7},{-0.025,1.6}},
		     AxesOrigin->{-0.05,-0.04},
		     PlotLabel->"x = arcsin(y)"],asline1,asline2];

Show[GraphicsArray[{{plot1,plot2},{plot3,plot4}}],
	 PlotLabel->"Figure 30.2"]