ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];

xticks = {0, 0.25, 0.5, 0.75, 1};
yticks = {1, 1.5, 2, 2.5};
ph[n_,x_]:= (1 + x/n)^n;
plotexp:= Plot[E^x,{x,0,1},
			PlotStyle -> Dashing[{0.01,0.01}]];
plot[n_]:= Plot[ph[n,x],{x,0,1},
			    Ticks -> {xticks, yticks}];
a11:= Show[plot[2],plotexp, AxesOrigin -> {-0.1,0.9}, Axes->True,
		   PlotLabel -> "n = 2", AxesLabel -> {"x","y"},
		   PlotRange -> {{0,1},{0.98,2.74}}];
a12:= Show[plot[4],plotexp, AxesOrigin -> {-0.1,0.9}, Axes->True,
		   PlotLabel -> "n = 4", AxesLabel -> {"x","y"},
		   PlotRange -> {{0,1},{0.98,2.74}}];
a21:= Show[plot[8],plotexp, AxesOrigin -> {-0.1,0.9}, Axes->True,
		   PlotLabel -> "n = 8", AxesLabel -> {"x","y"},
		   PlotRange -> {{0,1},{0.98,2.74}}];
a22:= Show[plot[16],plotexp, AxesOrigin -> {-0.1,0.9}, Axes->True,
		   PlotLabel -> "n = 16", AxesLabel -> {"x","y"},
		   PlotRange -> {{0,1},{0.98,2.74}}];
a31:= Show[plot[32],plotexp, AxesOrigin -> {-0.1,0.9}, Axes->True,
		   PlotLabel -> "n = 32", AxesLabel -> {"x","y"},
		   PlotRange -> {{0,1},{0.98,2.74}}];
a32:= Show[plot[64],plotexp, AxesOrigin -> {-0.1,0.9}, Axes->True,
		   PlotLabel -> "n = 64", AxesLabel -> {"x","y"},
		   PlotRange -> {{0,1},{0.98,2.74}}];
Show[GraphicsArray[{{a11,a12},{a21,a22},{a31,a32}}],
		PlotLabel->"                                                  Figure 7.3\n\n
		     Monotonic convergence of compound-interest function sequence"]