ClearAll; Clear[f,sf];
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
F[m_,z_]:= 1 - E^(-(z)^m);
f[m_,z_]:= m z^(m-1) E^(-(z)^m);
plotrange = {{{0,5},{-0.01,1.01}},{{0,3},{-0.01,0.9}},{{0,2.5},{-0.01,1.2}},
			{{0,2},{-0.01,1.6}},{{0,1.75},{-0.01,2}},{{0,1.75},{-0.01,2.5}}};
tickmarks = {{N[Table[i,{i,0,4}]],N[Table[i/2,{i,0,2}]]},
			 {N[Table[i/2,{i,0,5}]],N[Table[i/4,{i,0,3}]]},
			 {N[Table[i/2,{i,0,4}]],N[Table[i/2,{i,0,2}]]},
			 {N[Table[i/2,{i,0,3}]],N[Table[i/2,{i,0,3}]]},
			 {N[Table[i/2,{i,0,3}]],N[Table[i/2,{i,0,4}]]},
			 {N[Table[i/2,{i,0,3}]],N[Table[i/2,{i,0,5}]]}};
			 
axesorigin = {{-0.2,-0.05},{-0.1,-0.05},{-0.1,-0.05},
			  {-0.1,-0.08},{-0.06,-0.1},{-0.06,-0.1}};

plot[m_]:= Plot[f[m,z],{z,0.001,8},
		   PlotRange->plotrange[[m]],
		   AxesOrigin->axesorigin[[m]],
		   AxesLabel->{"   x/s","s f"},
		   Ticks->tickmarks[[m]],
		   PlotLabel->StringForm["m = ``",m]];
Show[GraphicsArray[{{plot[1],plot[2]},
		{plot[3],plot[4]},
		{plot[5],plot[6]}}],
	PlotLabel->"  Figure 20.1\n\nWeibull p.d.f."]