\(\(
 (*\ 
      This\ file\ shows\ the\ flow\ of\ the\ E - 
        stability\ equations\ for\ the\ conquest\ model
	in\ Chapter\ 14\ 
          \((Misspec)\)\ of\ the\ book\ \ *) \)\)

<<  Graphics`ImplicitPlot`

\(\(

eq1 = b0 - 5*\((1 + b1^2)\)/\((1 + b1*\((b1 + 1)\))\) == 0; 

    eq2 = b1 + 1 == 0; 
	
    gra2 = ImplicitPlot[{eq1, eq2}, {b1, \(-2\), 0}, {b0, 3, 15}, 
        PlotStyle -> {AbsoluteThickness[3]}, AspectRatio -> 1]\)\)

\(\(
<< Graphics`PlotField`\)\)

\(\(gra3 = 
      PlotVectorField[{\(-1\) - b1, 
          \(-b0\) + 5*\((1 + b1^2)\)/\((1 + b1*\((b1 + 1)\))\)}, {b1, \(-2\), 
          0}, {b0, 3, 15}, AspectRatio -> 1, 
	
        ScaleFunction\  -> \ \(( .2  #&)\), 
\ \ ScaleFactor\  -> \ None]

    \)\)

\(\(
\($DefaultFont = {"Helvetica-Bold", 16}; \)\)\)

\(\(


    Show[gra2, gra3, 	
      PlotLabel -> FontForm["Figure 13.1", {"Helvetica-Bold", 16}], 
      Frame -> True, Axes -> False, FrameLabel -> {"beta1", "beta0"}]
      \)\)