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


a = 1;
c = 11/4.8;
b = 11/68;
xmin = 1; xmax = 10;
xh = 0.8 xmin + 0.2 xmax;
xg = 0.5 xmin + 0.5 xmax;

h[x_]:= (229 x^(-1/4))/60;
g[x_]:= 11.2 x^(3/4);

ell1a:= ParametricPlot[{xh,t},{t,0,h[xh]}, 
				PlotStyle -> Dashing[{0.01,0.01}]];
ell1b:= ParametricPlot[{t,h[xh]},{t,0,xh}, 
				PlotStyle -> Dashing[{0.01,0.01}]];

ell2a:= ParametricPlot[{c h[xh],c t},{t,0,xh}, 
				PlotStyle -> Dashing[{0.01,0.01}]];
ell2b:= ParametricPlot[{c t,c xh},{t,0,h[xh]}, 
				PlotStyle -> Dashing[{0.01,0.01}]];

ell3a:= ParametricPlot[{xg,t},{t,0,g[xg]}, 
				PlotStyle -> Dashing[{0.01,0.01}]];
ell3b:= ParametricPlot[{t,g[xg]},{t,0,xg}, 
				PlotStyle -> Dashing[{0.01,0.01}]];

ell4a:= ParametricPlot[{b g[xg],b t},{t,0,xg}, 
				PlotStyle -> Dashing[{0.01,0.01}]];
ell4b:= ParametricPlot[{b t,b xg},{t,0,g[xg]}, 
				PlotStyle -> Dashing[{0.01,0.01}]];
				
plota:= ParametricPlot[{x,h[x]},{x,1,10},
	AspectRatio -> a,
	PlotRange -> {{0,11},{0,4.8}},
	PlotLabel -> "y = h(x)",
	Ticks->{{{1,1},{2.8,"x"},{10,10}},
		{{0,"0"},{2.1,2.1},{h[2.8],"y"},{3.8,3.8}}}];
plotb:= ParametricPlot[{c h[x],c x},{x,1,10},
	AspectRatio -> 1/a,
	PlotRange -> {{0,4.8 c},{0,11 c}},
	PlotLabel -> "x = g(y)",
	Ticks->{{{0,"0"},{3.8 c,3.8},{c h[2.8],"y"},{2.1 c,2.1}},
	{{c,1},{2.8 c,"x"},{10 c,10}}}];
plotc:= ParametricPlot[{x,g[x]},{x,1,10},
	AspectRatio -> a,
	PlotRange -> {{0,11},{0,68}},
	PlotLabel -> "z = q(x)",
	Ticks->{{{1,1},{5.5,"x"},{10,10}},
		{{0,"0"},{11.2,11},{g[5.5],"z"},{63,63}}}];
plotd:= ParametricPlot[{b g[x],b x},{x,1,10},
	AspectRatio -> 1/a,
	PlotRange -> {{0,68 b},{0,11 b}},
	PlotLabel -> "x = r(z)",
	Ticks->{{{0,"0"},{11.2 b,11},{b g[5.5],"z"},{63 b,63}},
	{{b,1},{5.5 b,"x"},{10 b,10}}}];

plottl:= Show[plota,ell1a,ell1b];
plottr:= Show[plotb,ell2a,ell2b];
plotbl:= Show[plotc,ell3a,ell3b];
plotbr:= Show[plotd,ell4a,ell4b];
Show[GraphicsArray[{{plottl,plottr},{plotbl,plotbr}}],
	PlotLabel -> "Figure 1.2"]