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

top1 = Plot[u,{u,0,1},AspectRatio->Automatic,AxesLabel->{"u","x"},
					  PlotStyle->Dashing[{0.01,0.01}],PlotLabel->FontForm["a = 1",{"Symbol",9}],
					  AxesOrigin->{-0.05,-0.05},PlotRange->{{0,1},{0,1.05}}];
bot1 = Plot[Which[u<=0.4,u/0.4,u<=1,1],{u,0,1},AspectRatio->Automatic,AxesLabel->{"u","x"},
					  PlotStyle->Dashing[{0.01,0.01}],PlotLabel->FontForm["a = 2/5",{"Symbol",9}],
					  AxesOrigin->{-0.05,-0.05},PlotRange->{{0,1},{0,1.05}}];
top2 = Plot[v^(1/2),{v,0,1},AspectRatio->Automatic,AxesLabel->{"v","y"},
					  PlotStyle->Dashing[{0.001,0.01}],
					  AxesOrigin->{-0.05,-0.05},PlotRange->{{0,1},{0,1.05}},
					  PlotLabel->FontForm["b = 1/2",{"Symbol",9}]];
bot2 = Plot[v,{v,0,1},AspectRatio->Automatic,AxesLabel->{"v","y"},
					  PlotStyle->Dashing[{0.001,0.01}],
					  AxesOrigin->{-0.05,-0.05},PlotRange->{{0,1},{0,1.05}},
					  PlotLabel->FontForm["b = 1",{"Symbol",9}]];
top3 = Plot[(1-x)^(1/2),{x,0,1},AspectRatio->Automatic,AxesLabel->{"x","y"},
					  AxesOrigin->{-0.05,-0.05},PlotRange->{{0,1},{0,1.05}},
					  PlotLabel->FontForm["a = 1,    b = 1/2",{"Symbol",9}]];
bot3 = ParametricPlot[{Which[u<=0.4,u/0.4,u<=1,1],1-u},{u,0,1},
					  AspectRatio->Automatic,AxesLabel->{"x","y"},
					  AxesOrigin->{-0.05,-0.05},PlotRange->{{0,1},{0,1.05}},
					  PlotLabel->FontForm["a = 2/5,    b = 1",{"Symbol",9}]];
left = GraphicsArray[{{top1},{bot1}},PlotLabel->"Females vs investment"];
middle = GraphicsArray[{{top2},{bot2}},PlotLabel->"Males vs investment"];
right = GraphicsArray[{{top3},{bot3}},PlotLabel->"Fitness curve"];
Show[GraphicsArray[{left,middle,right}],PlotLabel->"Figure 17.1"]