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

xstar = 2/3; ystar = 1/Sqrt[3];				  
solid = Plot[(1-x)^(1/2),{x,0,1}];
dashed = Graphics[{Dashing[{0.01,0.01}],Line[{{0, 2ystar},{2xstar,0}}]}];					  
plot = Show[solid,dashed,Graphics[Text["(x*,y*)",{1.08xstar,1.08ystar}]],
					  Graphics[Text[FontForm["D < 0",{"Symbol",12}],{1.4xstar,1.4ystar}]],
					  Graphics[Disk[{xstar,ystar},0.02],AspectRatio->Automatic],
					  AspectRatio->Automatic,AxesLabel->{"   x","y"},
					  Ticks->{{0,{xstar,"x*"},{2xstar,"2x*"}},{0,{ystar,"y*"},{2ystar,"2y*"}}},
					  AxesOrigin->{-0.05,-0.05},PlotRange->{{0,2.2xstar},{0,2.2ystar}},
					  PlotLabel->FontForm["a = 1,    b = 1/2",{"Symbol",9}]];
Show[GraphicsArray[{plot}],PlotLabel->"                Figure 17.2\nWhy u* is evolutionarily stable"]