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

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[{xg,t},{t,0,g[xg]}, 
				PlotStyle -> Dashing[{0.01,0.01}]];
ell2b:= ParametricPlot[{t,g[xg]},{t,0,xg}, 
				PlotStyle -> Dashing[{0.01,0.01}]];
				
plota:= Plot[h[x],{x,xmin,xmax},
	PlotRange -> {{0,xmax + 1},{0,h[xmin] + 1}},
	PlotLabel -> "Heart Rate (beats/sec)",
	Ticks->{{{xmin,xmin},{xh,"x"},{xmax,xmax}},
		{{0,"0"},{h[xmin],N[h[xmin],2]},{h[xh],"y"},{h[xmax],N[h[xmax],2]}}}, 
	AxesLabel->{"BODY MASS"," "}];
plotb:= Plot[g[x],{x,xmin,xmax}, 
	PlotRange -> {{0,xmax + 1},{0,g[xmax] + 5}},
	PlotLabel -> "Oxygen Consumption Rate (ml/min)",
	Ticks->{{{xmin,xmin},{xg,"x"},{xmax,xmax}},
		{{0,"0"},{g[xmin],Round[g[xmin]]},{g[xg],"z"},{63,"63"}}}, 
	AxesLabel->{"BODY MASS"," "}];

plot1 = Show[plota,ell1a,ell1b];
plot2 = Show[plotb,ell2a,ell2b];
array = GraphicsArray[{{plot1},{plot2}}];
Show[GraphicsArray[{{plot1},{plot2}}],PlotLabel -> "Figure 1.1"]