ClearAll; Clear[f,sf];
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
upper = Plot[Log[x],{x,0.0001,20},AxesLabel->{"       x","y"},
		AxesOrigin->{0,0}, PlotRange->{{0,5.05},{-1.75,1.75}},
		Ticks->{Automatic,Table[{0.5i-2,StringForm["     ``",0.5i-2]},{i,1,7}]},
		PlotPoints->100,
		PlotLabel->FontForm["y = F(x) = ln(x)",{"Courier",10}]];
lower = Plot[1/x,{x,0.0001,20},AxesLabel->{"x","y"},
		AxesOrigin->{0,0}, PlotRange->{{0,5.05},{0,5}},
		PlotPoints->100,
		PlotLabel->FontForm["y = F'(x) = 1/x",{"Courier",10}]];

Show[GraphicsArray[{{upper},{lower}}],
		PlotLabel->"                  Figure 22.1\n\n
		The logarithm and its derivative"]