ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
plot:= Plot[Gamma[z],{z,1,2},AxesLabel->{"x",FontForm[G,{"Symbol",9}]},
				AxesOrigin->{0.92,0.87},
				PlotPoints->100,PlotRange->{{1,2},{0.88,1}}];
	
Show[GraphicsArray[{{plot}}],
		PlotLabel->"                                   Figure 26.4\n
		The Gamma function restricted to subdomain [1,2]"]