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

pol[i_,n_]:= Graphics[{GrayLevel[0.65],Polygon[{{(i-1)/n,0},
					{i/n,0},
					{i/n,(i/n)^3},
					{(i-1)/n,((i-1)/n)^3}}]}];

vert[i_,n_]:= Graphics[{Dashing[{0.01,0.01}],Line[{{i/n,0},{i/n,(i/n)^3}}]}];
partit[n_]:= Show[Table[vert[i,n],{i,1,n}]];

pict[n_]:= Show[Table[pol[i,n],{i,1,n}],
			Plot[t^3,{t,0,1},PlotPoints->100], partit[n],
			PlotRange->{{0,1.05},{0,1.05}},
			PlotLabel -> "n ="OutputForm[n],
			AxesOrigin->{-0.08,-0.05},
			Axes->True,
			AxesLabel->{"x","y"},
			Ticks->{{0,{1,"t"}},{0}}];

Show[GraphicsArray[{{pict[1],pict[2]},
					{pict[3],pict[4]},
					{pict[5],pict[6]}}],PlotLabel->"Figure 11.3\n  y = z(x)"]