ClearAll; Clear[f,sf];
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
tmean = Graphics[Text[FontForm[m,{"Symbol",9}],{1.5,0.95}]];
tmedian = Graphics[Text[FontForm[M,{"Times-Roman",10}],{1.4,0.7}]];
tmode = Graphics[Text[FontForm[m,{"Times-Roman",10}],{2.1,0.65}]];
plotmean:= Plot[Gamma[1+1/z],{z,1,8},
				AxesLabel->{"c",None},
				Ticks->{Automatic,Join[{0,{1,"s"}},Table[{0.1i," "},{i,1,9}]]},
				PlotPoints->100,PlotRange->{{0,8},{0,1.05}}];
plotmedian:= Plot[(Log[2])^(1/z),{z,1,8},
				AxesLabel->{"c",None},PlotStyle->Dashing[{0.01,0.01}],
				PlotPoints->100,PlotRange->{{0,8},{0,1.05}}];
plotmode:= Plot[(1-1/z)^(1/z),{z,1,8},
				AxesLabel->{"c",None},PlotStyle->Dashing[{0.001,0.01}],
				PlotPoints->100,PlotRange->{{0,8},{0,1.05}}];
plot = Show[plotmean,plotmedian,plotmode,tmean,tmode,tmedian,
			PlotLabel->"Mean, median and mode of Weibull versus shape parameter"];
	
Show[GraphicsArray[{{plot}}],PlotLabel->"Figure 26.5"]