ClearAll; Clear[f,sf];
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
upper = Plot[Exp[x],{x,-1.75,1.75},AxesLabel->{"x",None},
		AxesOrigin->{0,0}, PlotRange->{{-1.75,1.75},{0,5.05}},
		PlotPoints->100,
		Ticks->{Automatic,Table[0.5+i,{i,0,4}]},
		PlotLabel->FontForm["y = F(x) = exp(x)",{"Courier",10}]];
lower = Plot[Exp[x],{x,-1.75,1.75},AxesLabel->{"x",None},
		AxesOrigin->{0,0}, PlotRange->{{-1.75,1.75},{0,5.05}},
		Ticks->{Automatic,Table[0.5+i,{i,0,4}]},
		PlotPoints->100,
		PlotLabel->FontForm["y = F'(x) = exp(x)",{"Courier",10}]];

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