ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Graphics`Graphics`"];
K[u_]:= u/(1+u);
L[z_]:= z/(1-z);
hor = Graphics[{Dashing[{0.01,0.01}],Line[{{0,1},{19,1}}]}];
vert = Graphics[{Dashing[{0.01,0.01}],Line[{{1,0},{1,19}}]}];
plota = Plot[K[u],{u,0,19},AxesLabel->{"u = x/B","z = y/A"},
	PlotLabel -> "(a) z = K(u)",
	PlotRange->{{0,19},{0,1.05}}];
plot1 = Show[plota,hor];

plotb = Plot[L[z],{z,0,0.95},AxesLabel->{"z","u"},
	PlotLabel -> "(b) u = L(z)",
	PlotRange->{{0,1.05},{0,19}}];
plot2 = Show[plotb,vert];

Show[GraphicsArray[{{plot1},{plot2}}],
	PlotLabel->"Figure 4.1"]