ClearAll; Clear[f,sf];
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
plot:= Plot[Gamma[z],{z,0.041,5},AxesLabel->{"x",FontForm[G,{"Symbol",9}]},
				PlotPoints->100,AxesOrigin->{-0.2,-0.5},
				PlotRange->{{0,5},{0,24}}];
	
Show[GraphicsArray[{{plot}}],
		PlotLabel->"            Figure 26.3\n
		The Gamma function"]