ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
p0 = Plot[1,{t,0,1.4}];
p1 = Plot[t,{t,0,1.4}];
top = Graphics[{Dashing[{0.01,0.01}],Line[{{0.3,1.0},{0.7,1.0}}]}];
left = Graphics[{Dashing[{0.01,0.01}],Line[{{0.3,1.0},{0.3,0.3}}]}];
right = Graphics[{Dashing[{0.01,0.01}],Line[{{0.7,0.7},{0.7,1.0}}]}];
poly0 = Show[Graphics[{GrayLevel[0.65],Rectangle[{0.3,0},{0.7,1}]}],
			  p0,Axes->True,AspectRatio->Automatic,
			  PlotRange->{{0,1.4},{0,1.4}},
			  AxesLabel->{"  x","y"}, 
			  Ticks ->{{{0.3,"a"},{0.7,"t"}},{0,1}},
			  PlotLabel ->"(a)   y = g(x) = 1"];
poly1 = Show[Graphics[{GrayLevel[0.65],
			  Polygon[{{0.3,0},{0.7,0},{0.7,0.7},{0.3,0.3}}]}],p1,top,left,right,
			  Axes->True,
			  AspectRatio->Automatic,
			  PlotRange->{{0,1.4},{0,1.4}},
			  AxesLabel->{"  x","y"}, 
			  Ticks ->{{{0.3,"a"},{0.7,"t"}},{0,{0.3,"a"},{0.7,"t"},{1.0,"a+t"}}},
			  PlotLabel ->"(b)   y = h(x) = x"];
Show[GraphicsArray[{{poly0},{poly1}}],PlotLabel->"Figure 9.5"]