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

xstar = 1; ystar = 0.6;				  
solid = ParametricPlot[{Which[u<=0.4,u/0.4,u<=1,1],1-u},{u,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 = 2/5,    b = 1",{"Symbol",9}]];
Show[GraphicsArray[{plot}],PlotLabel->"                Figure 17.3\nWhy u* is evolutionarily stable"]