ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
f[m_,b_]:= Evaluate[36 (m^(5/3) b^(-3/2))/1000];
xticks = {{0.1," "},{0.9," "},{1,1},{1.16,"x"}};
yticks = Join[Table[{0.1 i," "},{i,1,9}],{0.5,1,{1.16,"y"}}];
zticks = {0.25,0.75,{1.26,"z"}};


plottl = Plot[f[x,0.1],{x,0.1,1},
			  PlotRange -> {{0,1.16},Automatic},
			  AxesLabel -> {"x","z"},
			  PlotLabel -> "z = P(x,0.1)"];
plottr = Plot[f[0.1,y],{y,0.1,1},
			  PlotRange -> {{0,1.16},Automatic},
			  AxesLabel -> {"y","z"},
			  PlotLabel -> "z = P(0.1,y)"];
plotbl = Plot[f[1,y],{y,0.1,1},
			  PlotRange -> {{0,1.16},Automatic},
			  AxesLabel -> {"y","z"},
			  PlotLabel -> "z = P(1,y)"];
plotbr = Plot[f[x,1],{x,0.1,1},
			  PlotRange -> {{0,1.16},Automatic},
			  AxesLabel -> {"x","z"},
			  PlotLabel -> "z = P(x,1)"];			  
Show[GraphicsArray[{{plottl,plottr},{plotbl,plotbr}}],
				PlotLabel -> "Figure 24.2"]