\(\(
 (*\ 
      This\ routine\ plots\ the\ concentration\ ellipsoid\ for\ the\ 
        sotchastic\ dynamics\ of\ the\ 
	conquest\ model\ under\ constant\ 
        gain\  . \ The\ ODE\ path\ is\ set\ at\ the\ \(equilibrium . \)\ \ *) 
      \ 

\)\)

<<  Graphics`ImplicitPlot`

\(\(
V = {{ .3^2 + 25, \(-10\)/3}, {\(-10\)/3, 0.5}}; 
		
    Q = Inverse[V]; 
ggamm = 0.05; \)\)

\(\(
quadfo = {b0 - 10, b1 + 1} . Q . {{b0 - 10}, {b1 + 1}}; 

    quadfo[\([1]\)]; 
eq3 = ggamm*5.911 - quadfo[\([1]\)] == 0; 
	
    gra1 = ImplicitPlot[{eq3}, {b1, \(-2\), 0}, 
        PlotStyle -> {AbsoluteThickness[3]}, AspectRatio -> 1]; \)\)

\(\(

quadfo = {b0 - 10, b1 + 1} . Q . {{b0 - 10}, {b1 + 1}}; 

    quadfo[\([1]\)]; 
eq1 = ggamm*2.08 - quadfo[\([1]\)] == 0; 
	
    gra2 = ImplicitPlot[{eq1}, {b1, \(-2\), 0}, 
        PlotStyle -> {AbsoluteThickness[3]}, AspectRatio -> 1]; \)\)

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

\(\(


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