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

G[n_,x_]:= ((1 + 1/(2 n^2))x^3)/3;
plotG:= Plot[(x^3)/3,{x,0,15},
			PlotStyle -> Dashing[{0.01,0.01}]];
plot[n_]:= Plot[G[n,x],{x,0,15}];
a11:= Show[plot[1],plotG, AxesOrigin -> {-0.4,-40}, Axes->True,
		   PlotLabel -> "n = 1", AxesLabel -> {"x","y"},
		   Ticks->{{0,3,6,9,12,15},{0,200,400,600,800,1000}},
		   PlotRange -> {{0,15.5},{-10,1125}}];
a12:= Show[plot[2],plotG, AxesOrigin -> {-0.4,-40}, Axes->True,
		   PlotLabel -> "n = 2", AxesLabel -> {"x","y"},
		   Ticks->{{0,3,6,9,12,15},{0,200,400,600,800,1000}},
		   PlotRange -> {{0,15.5},{-10,1125}}];
a21:= Show[plot[3],plotG, AxesOrigin -> {-0.4,-40}, Axes->True,
		   PlotLabel -> "n = 3", AxesLabel -> {"x","y"},
		   Ticks->{{0,3,6,9,12,15},{0,200,400,600,800,1000}},
		   PlotRange -> {{0,15.5},{-10,1125}}];
a22:= Show[plot[4],plotG, AxesOrigin -> {-0.4,-40}, Axes->True,
		   PlotLabel -> "n = 4", AxesLabel -> {"x","y"},
		   Ticks->{{0,3,6,9,12,15},{0,200,400,600,800,1000}},
		   PlotRange -> {{0,15.5},{-10,1125}}];
a31:= Show[plot[5],plotG, AxesOrigin -> {-0.4,-40}, Axes->True,
		   PlotLabel -> "n = 5", AxesLabel -> {"x","y"},
		   Ticks->{{0,3,6,9,12,15},{0,200,400,600,800,1000}},	   
		   PlotRange -> {{0,15.5},{-10,1125}}];
a32:= Show[plot[6],plotG, AxesOrigin -> {-0.4,-40}, Axes->True,
		   PlotLabel -> "n = 6", AxesLabel -> {"x","y"},
		   Ticks->{{0,3,6,9,12,15},{0,200,400,600,800,1000}},
		   PlotRange -> {{0,15.5},{-10,1125}}];
Show[GraphicsArray[{{a11,a12},{a21,a22},{a31,a32}}],
		PlotLabel->"                         Figure 10.4\n\n
		     G as the limit of a function sequence"]