(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Wolfram 14.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       154,          7]
NotebookDataLength[    137442,       2996]
NotebookOptionsPosition[    133583,       2928]
NotebookOutlinePosition[    134028,       2946]
CellTagsIndexPosition[    133985,       2943]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
(*p3[N_, A_, B_] := (B*N^2)/(A^2 + N^2)
p2[N_, A_, B_] := (B*N)/(A + N)*)\
\>", "CodeText",
 CellChangeTimes->{{3.985818952929174*^9, 3.985819052650008*^9}, 
   3.985819097783641*^9, {3.985819313106573*^9, 3.9858193144312563`*^9}, {
   3.985819380569413*^9, 3.985819392275222*^9}, {3.985819926166575*^9, 
   3.985819927591164*^9}, {3.985820466970293*^9, 3.985820470960685*^9}, {
   3.985820775159882*^9, 3.985820852843687*^9}, 3.985820886113346*^9, {
   3.985821204346756*^9, 3.985821231874576*^9}, {3.985821265694471*^9, 
   3.9858212717813473`*^9}, {3.985831265902404*^9, 
   3.985831289946179*^9}},ExpressionUUID->"5e0598e5-2500-4adc-8464-\
cff05975d699"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[DifferentialD]", "N"}], 
    RowBox[{"\[DifferentialD]", "t"}]], "=", 
   RowBox[{
    RowBox[{"N", " ", "R", " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       FractionBox["N", "K"]}], ")"}]}], "-", 
    RowBox[{
     SubscriptBox["p", "2"], "(", "N", ")"}]}]}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.9858208785707827`*^9, 3.9858208941383266`*^9}, {
  3.985820946232589*^9, 3.985820946302106*^9}, {3.985820981622471*^9, 
  3.985820982238865*^9}, {3.9858210799978857`*^9, 3.9858210805495*^9}, {
  3.9858317221010227`*^9, 
  3.985831723507629*^9}},ExpressionUUID->"9f0e66a3-6155-4b5c-a4c0-\
256018bb6203"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"p2", "[", 
        RowBox[{"x", ",", "A", ",", "B"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "100"}], "}"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "100"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Epilog", "->", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"Blue", ",", "Dashed", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "B"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"100", ",", "B"}], "}"}]}], "}"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"\"\<B=\>\"", "<>", 
               RowBox[{"ToString", "[", "B", "]"}]}], ",", "Blue"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"98", ",", "B"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", 
              RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", "Red", ",", " ", "Dashed", ",", " ", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"A", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"A", ",", "9"}], "}"}]}], "}"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Text", "[", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{
              RowBox[{"\"\<A=\>\"", "<>", 
               RowBox[{"ToString", "[", "A", "]"}]}], ",", "Red"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"A", ",", "10"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "\[IndentingNewLine]",
          "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"p3", "[", 
        RowBox[{"x", ",", "A", ",", "B"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0", ",", "1000"}], "}"}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "100"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "->", "Green"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ListPlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Callout", "[", 
         RowBox[{"{", 
          RowBox[{"A", ",", 
           RowBox[{"p2", "[", 
            RowBox[{"A", ",", "A", ",", "B"}], "]"}]}], "}"}], "]"}], "}"}], ",", 
       RowBox[{"PlotStyle", "->", "Red"}]}], "]"}]}], "\n", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "A", ",", "5", ",", 
       " ", "\"\<Population at Critical Predation (A)\>\""}], "}"}], ",", "0",
      ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"B", ",", "5", ",", " ", "\"\<Maximum Predation (B)\>\""}], 
      "}"}], ",", "0", ",", "20"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.985821040263514*^9, 3.9858211596105022`*^9}, {
  3.98582124657544*^9, 3.985821340294147*^9}, {3.985821410997641*^9, 
  3.9858214461185617`*^9}, {3.985821628773389*^9, 3.9858216890110903`*^9}, {
  3.98582173037316*^9, 3.9858218467619658`*^9}, {3.98582191827089*^9, 
  3.985821955547806*^9}, {3.985822078279787*^9, 3.985822428086402*^9}, {
  3.985822459654554*^9, 3.985822469192135*^9}, {3.985822555975613*^9, 
  3.9858226867398767`*^9}, {3.9858227221723557`*^9, 3.9858228524149427`*^9}, {
  3.98582289304064*^9, 3.985822946733088*^9}, {3.985822988619626*^9, 
  3.985823100758049*^9}, {3.985826956528822*^9, 3.985826968340103*^9}, {
  3.985827017443091*^9, 3.9858270198901*^9}, {3.985827075967404*^9, 
  3.985827109424631*^9}, {3.9858317347104063`*^9, 3.985831749512567*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"93343324-5287-4ca6-aa69-d8e83459879e"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`A$$ = 3.7, $CellContext`B$$ = 
    15.700000000000001`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`A$$], 5, "Population at Critical Predation (A)"}, 0, 
      10, ControlType -> Manipulator}, {{
       Hold[$CellContext`B$$], 5, "Maximum Predation (B)"}, 0, 20, 
      ControlType -> Manipulator}}, Typeset`size$$ = {
    360., {111.50787105179899`, 117.23980464554899`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True, 
    Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`A$$ = 5, $CellContext`B$$ = 5}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, 
        Typeset`keyframeList$$}, "Body" :> Show[
        Plot[
         $CellContext`p2[$CellContext`x, $CellContext`A$$, $CellContext`B$$], \
{$CellContext`x, 0, 100}, PlotRange -> {{0, 100}, {0, 10}}, 
         Epilog -> {Blue, Dashed, 
           Line[{{0, $CellContext`B$$}, {100, $CellContext`B$$}}], 
           Text[
            Style["B=" <> ToString[$CellContext`B$$], Blue], {
            98, $CellContext`B$$}, {2, -1}], Red, Dashed, 
           Line[{{$CellContext`A$$, 0}, {$CellContext`A$$, 9}}], 
           Text[
            Style[
            "A=" <> ToString[$CellContext`A$$], Red], {$CellContext`A$$, 
             10}, {0, 1}]}], 
        Plot[
         $CellContext`p3[$CellContext`x, $CellContext`A$$, $CellContext`B$$], \
{$CellContext`x, 0, 1000}, PlotRange -> {{0, 100}, {0, 10}}, PlotStyle -> 
         Green], 
        ListPlot[{
          Callout[{$CellContext`A$$, 
            $CellContext`p2[$CellContext`A$$, $CellContext`A$$, \
$CellContext`B$$]}]}, PlotStyle -> Red]], 
      "Specifications" :> {{{$CellContext`A$$, 5, 
          "Population at Critical Predation (A)"}, 0, 
         10}, {{$CellContext`B$$, 5, "Maximum Predation (B)"}, 0, 20}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{409.1, {173.97829646683806`, 179.71023006058806`}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.985834224914112*^9},
 CellLabel->
  "Out[122]=",ExpressionUUID->"44f6e945-f1e3-4d6a-bd81-6cb8f1e7f6d1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"growth", ",", "sol"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"growth", "[", "n_", "]"}], ":=", 
       RowBox[{
        RowBox[{"n", "[", "t", "]"}], "*", "r", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"n", "[", "t", "]"}], "/", "k"}]}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"p2", "[", "x_", "]"}], ":=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", "x"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "+", "x"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"p3", "[", "x_", "]"}], ":=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", "*", 
          RowBox[{"x", "^", "2"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "+", 
          RowBox[{"x", "^", "2"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"sol", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"NDSolve", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"#", ",", 
             RowBox[{
              RowBox[{"n", "[", "0", "]"}], "==", "n0"}]}], "}"}], ",", 
           RowBox[{"n", "[", "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "15"}], "}"}]}], "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"n", "'"}], "[", "t", "]"}], "==", 
           RowBox[{
            RowBox[{"growth", "[", "n", "]"}], "-", 
            RowBox[{"predate", "*", 
             RowBox[{"p2", "[", 
              RowBox[{"n", "[", "t", "]"}], "]"}]}]}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"n", "'"}], "[", "t", "]"}], "==", 
           RowBox[{
            RowBox[{"growth", "[", "n", "]"}], "-", 
            RowBox[{"predate", "*", 
             RowBox[{"p3", "[", 
              RowBox[{"n", "[", "t", "]"}], "]"}]}]}]}]}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "plots", " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Column", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", "top", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{
               RowBox[{"n", "[", "t", "]"}], "/.", " ", 
               RowBox[{"sol", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"t", ",", "0", ",", "15"}], "}"}], ",", 
             RowBox[{"PlotRange", "->", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "15"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "2000"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"ImageSize", "->", "Medium"}], ",", 
             RowBox[{"PlotStyle", "->", "Green"}], ",", 
             RowBox[{"Frame", "->", "True"}], ",", 
             RowBox[{"FrameLabel", "->", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"\"\<Time (t)\>\"", ",", " ", "None"}], "}"}], ",", 
                " ", 
                RowBox[{"{", 
                 
                 RowBox[{"\"\<Number of Insects (N)\>\"", ",", 
                  " ", "\"\<Population\>\""}], "}"}]}], "}"}]}]}], "]"}], ",",
            "\[IndentingNewLine]", 
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"Evaluate", "[", 
              RowBox[{
               RowBox[{"n", "[", "t", "]"}], "/.", " ", 
               RowBox[{"sol", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"t", ",", "0", ",", "15"}], "}"}], ",", 
             RowBox[{"PlotRange", "->", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "15"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "2000"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"ImageSize", "->", "Medium"}], ",", 
             RowBox[{"PlotStyle", "->", "Blue"}]}], "]"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", " ", "bottom", " ", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"p2", "[", "x", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "0", ",", "2000"}], "}"}], ",", 
             RowBox[{"PlotRange", "->", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "2000"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "500"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"ImageSize", "->", "Medium"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"Epilog", "->", 
              RowBox[{"{", "\[IndentingNewLine]", 
               RowBox[{"Blue", ",", "Dashed", ",", 
                RowBox[{"Line", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"0", ",", "b"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"2000", ",", "b"}], "}"}]}], "}"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Text", "[", 
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{"\"\<B=\>\"", "<>", 
                    RowBox[{"ToString", "[", "b", "]"}]}], ",", "Blue"}], 
                   "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1990", ",", "b"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"2", ",", 
                    RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
                "\[IndentingNewLine]", "Red", ",", " ", "Dashed", ",", " ", 
                RowBox[{"Line", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"a", ",", "0"}], "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"a", ",", "500"}], "}"}]}], "}"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Text", "[", 
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{
                    RowBox[{"\"\<A=\>\"", "<>", 
                    RowBox[{"ToString", "[", "a", "]"}]}], ",", "Red"}], 
                   "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"a", ",", "500"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1.5"}], ",", "1"}], "}"}]}], "]"}]}], 
               "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
             RowBox[{"FrameLabel", "->", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 
                 RowBox[{"\"\<Insects Eaten (-\!\(\*OverscriptBox[\(N\), \
\(.\)]\))\>\"", ",", "None"}], "}"}], ",", " ", 
                RowBox[{"{", 
                 
                 RowBox[{"\"\<Insects (N)\>\"", ",", 
                  " ", "\"\<Predation\>\""}], "}"}]}], "}"}]}]}], 
            "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"p3", "[", "x", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "0", ",", "2000"}], "}"}], ",", 
             RowBox[{"PlotRange", "->", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "2000"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "500"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"PlotStyle", "->", "Green"}], ",", 
             RowBox[{"ImageSize", "->", "Medium"}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"ListPlot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"Callout", "[", 
               RowBox[{"{", 
                RowBox[{"a", ",", 
                 RowBox[{"p2", "[", "a", "]"}]}], "}"}], "]"}], "}"}], ",", 
             RowBox[{"PlotStyle", "->", "Red"}], ",", 
             RowBox[{"ImageSize", "->", "Medium"}]}], "]"}]}], "]"}]}], "}"}],
        "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r", ",", "1", ",", "\"\<Growth Rate (R) (1/Day)\>\""}], "}"}], 
     ",", "1", ",", "20", ",", "0.1"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "k", ",", "400", ",", "\"\<Carrying Capacity (K) (Insects)\>\""}], 
      "}"}], ",", "1", ",", "2000", ",", " ", "1"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "n0", ",", " ", "5", 
       ",", "\"\<Initial Insects (\!\(\*SubscriptBox[\(N\), \(0\)]\)) \
(Insects)\>\""}], "}"}], ",", "1", ",", "1000", ",", "1"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"predate", ",", "1", ",", "\"\<Enable Predation\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "5", 
       ",", "\"\<Population at Critical Predation (A) (Insects)\>\""}], "}"}],
      ",", "0", ",", "500"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "b", ",", "5", ",", "\"\<Maximum Predation (B) (Insects/Day)\>\""}], 
      "}"}], ",", "0", ",", "500"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.985824877845737*^9, 3.985824923611959*^9}, {
   3.9858249876878853`*^9, 3.985825004378914*^9}, {3.9858251487367487`*^9, 
   3.985825232071807*^9}, {3.9858253103597813`*^9, 3.9858253673381233`*^9}, {
   3.985825397817052*^9, 3.985825658388164*^9}, {3.985825702375876*^9, 
   3.985825776710731*^9}, {3.985825807949628*^9, 3.985825885994006*^9}, {
   3.985825932587346*^9, 3.985826104618363*^9}, {3.985826148588786*^9, 
   3.985826195826676*^9}, {3.985826249119173*^9, 3.98582625860292*^9}, {
   3.9858263439869537`*^9, 3.9858263744930077`*^9}, {3.9858264420243464`*^9, 
   3.985826442580385*^9}, {3.9858264851868267`*^9, 3.985826651900948*^9}, {
   3.985826718099555*^9, 3.9858267621356173`*^9}, {3.98582682681126*^9, 
   3.985826841111498*^9}, {3.985827147053318*^9, 3.9858271581066093`*^9}, {
   3.985827251224146*^9, 3.985827278114954*^9}, {3.985827381973168*^9, 
   3.9858274022999763`*^9}, {3.985827557852273*^9, 3.985827609671752*^9}, {
   3.985827719890623*^9, 3.985827748122686*^9}, {3.985828618061626*^9, 
   3.985828637720655*^9}, {3.9858286702752333`*^9, 3.985828764621449*^9}, {
   3.98582880382084*^9, 3.985828949557659*^9}, {3.98582907671095*^9, 
   3.985829105779307*^9}, {3.985829176924067*^9, 3.985829207592469*^9}, {
   3.985829249288126*^9, 3.985829314083356*^9}, {3.98582935276985*^9, 
   3.985829426841864*^9}, {3.985829475501388*^9, 3.985829631236742*^9}, {
   3.985829711455327*^9, 3.9858297948196487`*^9}, {3.9858298665332603`*^9, 
   3.985829930036532*^9}, {3.985829961802149*^9, 3.985830085697702*^9}, {
   3.9858301539754477`*^9, 3.985830161213337*^9}, {3.985830191383209*^9, 
   3.985830245094245*^9}, {3.9858302777441072`*^9, 3.985830291115127*^9}, {
   3.9858303551811*^9, 3.985830511817006*^9}, {3.9858306289989653`*^9, 
   3.985830643939636*^9}, {3.985830795568346*^9, 3.9858309993887777`*^9}, {
   3.985831041473505*^9, 3.98583110851663*^9}, {3.985831182187573*^9, 
   3.985831200020688*^9}, 3.985831259059523*^9, {3.985831313938736*^9, 
   3.985831344324334*^9}, {3.9858314006676273`*^9, 3.985831408055677*^9}, {
   3.9858315296604147`*^9, 3.9858315943004*^9}, {3.985831654135427*^9, 
   3.985831657959306*^9}, {3.985831704415783*^9, 3.985831716689734*^9}, {
   3.985831850108255*^9, 3.985832168635425*^9}, {3.985832402728142*^9, 
   3.985832480117131*^9}, {3.985832519761833*^9, 3.985832643427376*^9}, {
   3.985832936390462*^9, 3.985832992699155*^9}, {3.985833100143078*^9, 
   3.985833109398172*^9}, {3.985833141769986*^9, 3.985833171991358*^9}, 
   3.985833242491317*^9, 3.9858338629004593`*^9},
 CellLabel->
  "In[359]:=",ExpressionUUID->"5d7b4188-32a6-4729-9cd3-58a8177818db"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 350., $CellContext`b$$ = 
    219., $CellContext`k$$ = 1369, $CellContext`n0$$ = 
    69, $CellContext`predate$$ = 1, $CellContext`r$$ = 1., Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`r$$], 1, "Growth Rate (R) (1/Day)"}, 1, 20, 0.1, 
      ControlType -> Manipulator}, {{
       Hold[$CellContext`k$$], 400, "Carrying Capacity (K) (Insects)"}, 1, 
      2000, 1, ControlType -> Manipulator}, {{
       Hold[$CellContext`n0$$], 5, 
       "Initial Insects (\!\(\*SubscriptBox[\(N\), \(0\)]\)) (Insects)"}, 1, 
      1000, 1, ControlType -> Manipulator}, {{
       Hold[$CellContext`predate$$], 1, "Enable Predation"}, {0, 1}, 
      ControlType -> Checkbox}, {{
       Hold[$CellContext`a$$], 5, 
       "Population at Critical Predation (A) (Insects)"}, 0, 500, ControlType -> 
      Manipulator}, {{
       Hold[$CellContext`b$$], 5, "Maximum Predation (B) (Insects/Day)"}, 0, 
      500, ControlType -> Manipulator}}, Typeset`size$$ = {
    360., {242.69308958420777`, 248.42502317795777`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True, 
    Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 5, $CellContext`b$$ = 
        5, $CellContext`k$$ = 400, $CellContext`n0$$ = 
        5, $CellContext`predate$$ = 1, $CellContext`r$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, 
        Typeset`keyframeList$$}, "Body" :> 
      Module[{$CellContext`growth$, $CellContext`sol$}, $CellContext`growth$[
           Pattern[$CellContext`n$, 
            Blank[]]] := $CellContext`n$[$CellContext`t] $CellContext`r$$ (
           1 - $CellContext`n$[$CellContext`t]/$CellContext`k$$); \
$CellContext`p2[
           Pattern[$CellContext`x$, 
            
            Blank[]]] := ($CellContext`b$$ $CellContext`x$)/($CellContext`a$$ + \
$CellContext`x$); $CellContext`p3[
           Pattern[$CellContext`x$, 
            
            Blank[]]] := ($CellContext`b$$ \
$CellContext`x$^2)/($CellContext`a$$^2 + $CellContext`x$^2); \
$CellContext`sol$ = Map[NDSolve[{#, $CellContext`n[0] == $CellContext`n0$$}, 
            $CellContext`n[$CellContext`t], {$CellContext`t, 0, 15}]& , {
           Derivative[
             1][$CellContext`n][$CellContext`t] == \
$CellContext`growth$[$CellContext`n] - $CellContext`predate$$ \
$CellContext`p2[
               $CellContext`n[$CellContext`t]], 
            Derivative[
             1][$CellContext`n][$CellContext`t] == \
$CellContext`growth$[$CellContext`n] - $CellContext`predate$$ \
$CellContext`p3[
               $CellContext`n[$CellContext`t]]}]; Column[{
           Show[
            Plot[
             Evaluate[
              ReplaceAll[
               $CellContext`n[$CellContext`t], 
               Part[$CellContext`sol$, 2]]], {$CellContext`t, 0, 15}, 
             PlotRange -> {{0, 15}, {0, 2000}}, ImageSize -> Medium, 
             PlotStyle -> Green, Frame -> True, 
             FrameLabel -> {{"Time (t)", None}, {
               "Number of Insects (N)", "Population"}}], 
            Plot[
             Evaluate[
              ReplaceAll[
               $CellContext`n[$CellContext`t], 
               Part[$CellContext`sol$, 1]]], {$CellContext`t, 0, 15}, 
             PlotRange -> {{0, 15}, {0, 2000}}, ImageSize -> Medium, 
             PlotStyle -> Blue]], 
           Show[
            Plot[
             $CellContext`p2[$CellContext`x], {$CellContext`x, 0, 2000}, 
             PlotRange -> {{0, 2000}, {0, 500}}, ImageSize -> Medium, 
             Epilog -> {Blue, Dashed, 
               Line[{{0, $CellContext`b$$}, {2000, $CellContext`b$$}}], 
               Text[
                Style["B=" <> ToString[$CellContext`b$$], Blue], {
                1990, $CellContext`b$$}, {2, -1}], Red, Dashed, 
               Line[{{$CellContext`a$$, 0}, {$CellContext`a$$, 500}}], 
               Text[
                Style[
                "A=" <> ToString[$CellContext`a$$], Red], {$CellContext`a$$, 
                 500}, {-1.5, 1}]}, Frame -> True, 
             FrameLabel -> {{
               "Insects Eaten (-\!\(\*OverscriptBox[\(N\), \(.\)]\))", 
                None}, {"Insects (N)", "Predation"}}], 
            Plot[
             $CellContext`p3[$CellContext`x], {$CellContext`x, 0, 2000}, 
             PlotRange -> {{0, 2000}, {0, 500}}, PlotStyle -> Green, 
             ImageSize -> Medium], 
            ListPlot[{
              Callout[{$CellContext`a$$, 
                $CellContext`p2[$CellContext`a$$]}]}, PlotStyle -> Red, 
             ImageSize -> Medium]]}]], 
      "Specifications" :> {{{$CellContext`r$$, 1, "Growth Rate (R) (1/Day)"}, 
         1, 20, 0.1}, {{$CellContext`k$$, 400, 
          "Carrying Capacity (K) (Insects)"}, 1, 2000, 
         1}, {{$CellContext`n0$$, 5, 
          "Initial Insects (\!\(\*SubscriptBox[\(N\), \(0\)]\)) (Insects)"}, 
         1, 1000, 1}, {{$CellContext`predate$$, 1, "Enable Predation"}, {0, 
         1}}, {{$CellContext`a$$, 5, 
          "Population at Critical Predation (A) (Insects)"}, 0, 
         500}, {{$CellContext`b$$, 5, "Maximum Predation (B) (Insects/Day)"}, 
         0, 500}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{
      436.6020703125, {360.36351499924683`, 366.09544859299683`}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.9858326942256737`*^9, 3.9858328161006823`*^9, 3.985832860706318*^9, 
   3.9858329942261353`*^9, 3.985833109656453*^9, {3.985833142169497*^9, 
   3.985833172462088*^9}, 3.985833242900527*^9, 3.985834253717293*^9, 
   3.9858366447850857`*^9},
 CellLabel->
  "Out[359]=",ExpressionUUID->"c04c1fa0-2e07-42a7-adbf-9ec10af7ac69"],

Cell[BoxData[
 TemplateBox[{
  "Show", "gcomb", 
   "\"Could not combine the graphics objects in \
\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{RowBox[{\\\"Plot\\\", \\\"[\
\\\", RowBox[{RowBox[{\\\"p2\\\", \\\"[\\\", \\\"x\\\", \\\"]\\\"}], \
\\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"x\\\", \\\",\\\", \\\"0\\\", \
\\\",\\\", \\\"2000\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"PlotRange\\\", \
\\\"\[Rule]\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{\\\"0\\\", \\\",\\\", \\\"2000\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \\\"500\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]}], \\\",\\\", RowBox[{\\\"ImageSize\\\", \\\"\
\[Rule]\\\", \\\"Medium\\\"}], \\\",\\\", RowBox[{\\\"Epilog\\\", \\\"\[Rule]\
\\\", RowBox[{\\\"{\\\", RowBox[{\\\"Blue\\\", \\\",\\\", \\\"Dashed\\\", \
\\\",\\\", RowBox[{\\\"Line\\\", \\\"[\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \
\\\"FE`b$$7593\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"2000\\\", \\\",\\\", \\\"FE`b$$7593\\\"}], \\\"}\\\"}]}], \\\"}\\\
\"}], \\\"]\\\"}], \\\",\\\", RowBox[{\\\"Text\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"Style\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"\\\\\\\"B=\\\\\\\"\\\", \\\"<>\\\", \
RowBox[{\\\"ToString\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\
\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"Blue\\\"}], \
\\\"]\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"1990\\\", \\\",\\\", \
\\\"FE`b$$7593\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"2\\\", \\\",\\\", RowBox[{\\\"-\\\", \\\"1\\\"}]}], \
\\\"}\\\"}]}], \\\"]\\\"}], \\\",\\\", \\\"Red\\\", \\\",\\\", \
\\\"Dashed\\\", \\\",\\\", RowBox[{\\\"Line\\\", \\\"[\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"FE`a$$7593\\\", \
\\\",\\\", \\\"0\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\
\"FE`a$$7593\\\", \\\",\\\", \\\"500\\\"}], \\\"}\\\"}]}], \\\"}\\\"}], \\\"]\
\\\"}], \\\",\\\", RowBox[{\\\"Text\\\", \\\"[\\\", RowBox[{RowBox[{\\\"Style\
\\\", \\\"[\\\", RowBox[{RowBox[{\\\"\\\\\\\"A=\\\\\\\"\\\", \\\"<>\\\", \
RowBox[{\\\"ToString\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\
\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\",\\\", \\\"Red\\\"}], \
\\\"]\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"FE`a$$7593\\\", \
\\\",\\\", \\\"500\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"-\\\", \\\"1.5`\\\"}], \\\",\\\", \\\"1\\\"}], \
\\\"}\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]}], \\\",\\\", \
RowBox[{\\\"Frame\\\", \\\"\[Rule]\\\", \\\"True\\\"}], \\\",\\\", RowBox[{\\\
\"FrameLabel\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\
\", RowBox[{\\\"\\\\\\\"Insects Eaten \
(-\\\\\\\\!\\\\\\\\(\\\\\\\\*OverscriptBox[\\\\\\\\(N\\\\\\\\), \
\\\\\\\\(.\\\\\\\\)]\\\\\\\\))\\\\\\\"\\\", \\\",\\\", \\\"None\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\\\\\\\"Insects \
(N)\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"Predation\\\\\\\"\\\"}], \
\\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}], \\\",\\\", \
GraphicsBox[List[InterpretationBox[List[List[List[List[], List[], \
TagBox[Skeleton[2], Function[Annotation[Slot[1], Skeleton[2]]]]]], List[]], \
Annotation[List[List[List[List[], List[], Annotation[Skeleton[2]]]], List[]], \
Internal`ShallowAssociation[Rule[\\\"HighlightElements\\\", Association[Rule[\
\\\"Label\\\", List[\\\"XYLabel\\\"]], Rule[\\\"Ball\\\", \
List[\\\"InterpolatedBall\\\"]]]], Rule[\\\"LayoutOptions\\\", \
Association[Rule[\\\"PanelPlotLayout\\\", Association[]], \
Rule[\\\"PlotRange\\\", List[List[0.`, 2000.`], List[0.`, 500.`]]], \
Rule[\\\"Frame\\\", List[List[False, False], List[False, False]]], \
Rule[\\\"AxesOrigin\\\", List[0, 0]], Rule[\\\"ImageSize\\\", List[360, \
Times[360, Power[GoldenRatio, -1]]]], Rule[\\\"Axes\\\", List[True, True]], \
Rule[\\\"LabelStyle\\\", List[]], Rule[\\\"AspectRatio\\\", \
Power[GoldenRatio, -1]], Rule[\\\"DefaultStyle\\\", \
List[Directive[Opacity[1.`], AbsoluteThickness[2], RGBColor[0, 1, 0]]]], \
Rule[\\\"HighlightLabelingFunctions\\\", \
Association[Rule[\\\"CoordinatesToolOptions\\\", \
Function[List[Function[Identity[Slot[1]]][Part[Slot[1], 1]], \
Function[Identity[Slot[1]]][Part[Slot[1], 2]]]]], Rule[\\\"ScalingFunctions\\\
\", List[List[Identity, Identity], List[Identity, Identity]]]]], \
Rule[\\\"Primitives\\\", List[]], Rule[\\\"GCFlag\\\", False]]], \
Rule[\\\"Meta\\\", Association[Rule[\\\"DefaultHighlight\\\", \
List[\\\"Dynamic\\\", None]], Rule[\\\"Index\\\", List[]], \
Rule[\\\"Function\\\", Plot], Rule[\\\"GroupHighlight\\\", False]]]], \
\\\"DynamicHighlight\\\"]]], List[Rule[DisplayFunction, Identity], \
RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \
RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \
List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \
Identity], Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, List[0, \
0]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \
Automatic]]], Rule[GridLines, List[None, None]], \
RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \
List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[DisplayFunction, \
Identity], Rule[PlotRangePadding, List[List[0, 0], List[0, 0]]], \
Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \
RuleDelayed[PlotInteractivity, True], Rule[DisplayFunction, Identity], \
RuleDelayed[PlotInteractivity, True], Rule[DefaultBaseStyle, \
List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], Rule[AspectRatio, \
NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \
True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[0, 0]], \
RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \
List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \
None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \
Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
Directive[GrayLevel[0.5`, 0.4`]]], Rule[ImageSize, Medium], Rule[Method, \
List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \
Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \
Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \
AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \
Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \
Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[0.`, 2000.`], List[0.`, \
500.`]]], Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \
List[List[Automatic, Automatic], List[Automatic, Automatic]]], Rule[Ticks, \
List[Automatic, Automatic]]]], \\\",\\\", GraphicsBox[List[List[], \
List[List[TagBox[List[Directive[Skeleton[3]], PointBox[Skeleton[1]]], \
Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]], \
List[TagBox[List[Opacity[Skeleton[1]], PointBox[Skeleton[1]]], \
Function[Annotation[Slot[1], List[List[Skeleton[1]], Charting`Private`Tag, \
List[Skeleton[1]]]]]], TagBox[List[Opacity[Skeleton[1]], \
PointBox[Skeleton[1]]], Function[Annotation[Slot[1], List[List[Skeleton[1]], \
Charting`Private`Tag, List[Skeleton[1]]]]]]]], List[List[List[List[], \
List[List[Skeleton[1]]]], List[]], List[]]], List[Rule[DisplayFunction, \
Identity], Rule[DisplayFunction, Identity], RuleDelayed[PlotInteractivity, \
True], Rule[DefaultBaseStyle, List[\\\"PlotGraphics\\\", \\\"Graphics\\\"]], \
Rule[AspectRatio, NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], \
Rule[Axes, List[True, True]], Rule[AxesLabel, List[None, None]], \
Rule[AxesOrigin, List[0, 0]], RuleDelayed[DisplayFunction, Identity], \
Rule[Frame, List[List[False, False], List[False, False]]], Rule[FrameLabel, \
List[List[None, None], List[None, None]]], Rule[FrameTicks, \
List[List[Automatic, Automatic], List[Automatic, Automatic]]], \
Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \
Directive[GrayLevel[0.5`, 0.4`]]], Rule[ImagePadding, List[List[All, All], \
List[All, All]]], Rule[ImageSize, Medium], Rule[Method, \
List[Rule[\\\"AxisPadding\\\", Scaled[0.02`]], \
Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \
Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \
Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \
AbsolutePointSize[6]], Rule[\\\"DefaultPlotStyle\\\", \
List[Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]], \
Directive[Skeleton[2]], Directive[Skeleton[2]], Directive[Skeleton[2]]]], \
Rule[\\\"DomainPadding\\\", Scaled[0.02`]], Rule[\\\"PointSizeFunction\\\", \
\\\"SmallPointSize\\\"], Rule[\\\"RangePadding\\\", Scaled[0.05`]], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \
Automatic], Rule[\\\"HighlightStyle\\\", Automatic], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"IncludeHighlighting\\\", \\\
\"CurrentPoint\\\"], Rule[\\\"HighlightStyle\\\", Automatic], \
Rule[\\\"OptimizePlotMarkers\\\", True], Rule[\\\"CoordinatesToolOptions\\\", \
List[Rule[Skeleton[2]], Rule[Skeleton[2]]]]]], RuleDelayed[PlotInteractivity, \
True], Rule[PlotRange, List[List[0, 700.`], List[0, 219.`]]], \
Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.08`]], \
List[Scaled[0.02`], Scaled[0.12944271909999158`]]]], Rule[Ticks, \
List[Automatic, Automatic]], RuleDelayed[PlotInteractivity, True]]]}], \
\\\"]\\\"}]\\).\"", 2, 1024, 1810, 27221391809480065949, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{3.985949256388921*^9},
 CellLabel->"",ExpressionUUID->"ff4aa772-ba3a-44d9-9188-7e5949c427aa"],

Cell[BoxData[
 TemplateBox[{
  "FilterRules", "rep", 
   "\"\\!\\(\\*RowBox[{\\\"303.4492725295825`\\\"}]\\) is not a valid \
replacement rule.\"", 2, 1024, 1811, 27221391809480065949, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{3.98594928968491*^9},
 CellLabel->"",ExpressionUUID->"bd6a948f-f462-44cf-8a64-830a8028f7d6"],

Cell[BoxData[
 TemplateBox[{
  "FilterRules", "rep", 
   "\"\\!\\(\\*RowBox[{\\\"FilterRules\\\", \\\"[\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", \
RowBox[{\\\"303.4492725295825`\\\", \\\",\\\", \\\"94.62172604749622`\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"AxisPadding\\\\\\\"\\\", \\\"\
\[Rule]\\\", RowBox[{\\\"Scaled\\\", \\\"[\\\", \\\"0.02`\\\", \\\"]\\\"}]}], \
\\\",\\\", RowBox[{\\\"\\\\\\\"DefaultBoundaryStyle\\\\\\\"\\\", \
\\\"\[Rule]\\\", \\\"Automatic\\\"}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"DefaultGraphicsInteraction\\\\\\\"\\\", \\\"\[Rule]\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\\\\\\\"Version\\\\\\\"\\\", \\\"\
\[Rule]\\\", \\\"1.2`\\\"}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"TrackMousePosition\\\\\\\"\\\", \\\"\[Rule]\\\", RowBox[{\
\\\"{\\\", RowBox[{\\\"True\\\", \\\",\\\", \\\"False\\\"}], \\\"}\\\"}]}], \
\\\",\\\", RowBox[{\\\"\\\\\\\"Effects\\\\\\\"\\\", \\\"\[Rule]\\\", RowBox[{\
\\\"{\\\", RowBox[{RowBox[{\\\"\\\\\\\"Highlight\\\\\\\"\\\", \
\\\"\[Rule]\\\", RowBox[{\\\"{\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"}\\\"}]}], \\\",\\\", RowBox[{\\\"\
\\\\\\\"HighlightPoint\\\\\\\"\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \
RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"}\
\\\"}]}], \\\",\\\", RowBox[{\\\"\\\\\\\"Droplines\\\\\\\"\\\", \\\"\[Rule]\\\
\", RowBox[{\\\"{\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\
\[RightSkeleton]\\\"}], \\\"}\\\"}]}]}], \\\"}\\\"}]}]}], \\\"}\\\"}]}], \
\\\",\\\", RowBox[{\\\"\\\\\\\"DefaultMeshStyle\\\\\\\"\\\", \\\"\[Rule]\\\", \
RowBox[{\\\"AbsolutePointSize\\\", \\\"[\\\", \\\"6\\\", \\\"]\\\"}]}], \\\",\
\\\", RowBox[{\\\"\\\\\\\"DefaultPlotStyle\\\\\\\"\\\", \\\"\[Rule]\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"Directive\\\", \\\"[\\\", \
RowBox[{TemplateBox[Association[Rule[\\\"color\\\", RGBColor[0.24`, 0.6`, \
0.8`]]], \\\"RGBColorSwatchTemplate\\\"], \\\",\\\", \
RowBox[{\\\"AbsoluteThickness\\\", \\\"[\\\", \\\"2\\\", \\\"]\\\"}]}], \\\"]\
\\\"}], \\\",\\\", RowBox[{\\\"Directive\\\", \\\"[\\\", \
RowBox[{TemplateBox[Association[Rule[\\\"color\\\", RGBColor[0.95`, 0.627`, \
0.1425`]]], \\\"RGBColorSwatchTemplate\\\"], \\\",\\\", \
RowBox[{\\\"AbsoluteThickness\\\", \\\"[\\\", \\\"2\\\", \\\"]\\\"}]}], \\\"]\
\\\"}], \\\",\\\", RowBox[{\\\"Directive\\\", \\\"[\\\", \
RowBox[{TemplateBox[Association[Rule[\\\"color\\\", RGBColor[0.455`, 0.7`, \
0.21`]]], \\\"RGBColorSwatchTemplate\\\"], \\\",\\\", \
RowBox[{\\\"AbsoluteThickness\\\", \\\"[\\\", \\\"2\\\", \\\"]\\\"}]}], \\\"]\
\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"9\\\", \\\"\
\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"Directive\\\", \\\"[\\\", \
RowBox[{TemplateBox[Association[Rule[\\\"color\\\", \
RGBColor[0.9728288904374106`, 0.621644452187053`, 0.07336199581899142`]]], \\\
\"RGBColorSwatchTemplate\\\"], \\\",\\\", RowBox[{\\\"AbsoluteThickness\\\", \
\\\"[\\\", \\\"2\\\", \\\"]\\\"}]}], \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"Directive\\\", \\\"[\\\", RowBox[{TemplateBox[Association[Rule[\\\
\"color\\\", RGBColor[0.736782672705901`, 0.358`, 0.5030266573755369`]]], \
\\\"RGBColorSwatchTemplate\\\"], \\\",\\\", \
RowBox[{\\\"AbsoluteThickness\\\", \\\"[\\\", \\\"2\\\", \\\"]\\\"}]}], \\\"]\
\\\"}], \\\",\\\", RowBox[{\\\"Directive\\\", \\\"[\\\", \
RowBox[{TemplateBox[Association[Rule[\\\"color\\\", \
RGBColor[0.28026441037696703`, 0.715`, 0.4292089322474965`]]], \
\\\"RGBColorSwatchTemplate\\\"], \\\",\\\", \
RowBox[{\\\"AbsoluteThickness\\\", \\\"[\\\", \\\"2\\\", \\\"]\\\"}]}], \\\"]\
\\\"}]}], \\\"}\\\"}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \
\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\
\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"LegendsFunction\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"Automatic\\\"}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"ScalingFunctions\\\\\\\"\\\", \\\"\[Rule]\\\", \\\"None\\\
\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"MappingFunctions\\\\\\\"\\\", \
\\\"\[Rule]\\\", \\\"None\\\"}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"DomainMappingFunctions\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"None\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"MessagesHead\\\\\\\"\\\", \\\"\
\[Rule]\\\", \\\"Plot\\\"}]}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"]\\\"}]\\) \
is not a valid replacement rule.\"", 2, 1024, 1812, 27221391809480065949, 
   "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{3.9859492897186937`*^9},
 CellLabel->"",ExpressionUUID->"1ee4c10a-d265-4021-a2a5-7dc9f681f56a"],

Cell[BoxData[
 TemplateBox[{
  "FilterRules", "argrx", 
   "\"\\!\\(\\*RowBox[{\\\"FilterRules\\\"}]\\) called with \\!\\(\\*RowBox[{\
\\\"3\\\"}]\\) arguments; \\!\\(\\*RowBox[{\\\"2\\\"}]\\) arguments are \
expected.\"", 2, 1024, 1813, 27221391809480065949, "Local"},
  "MessageTemplate",
  BaseStyle->"MSG"]], "Message",
 CellChangeTimes->{3.985949289729171*^9},
 CellLabel->"",ExpressionUUID->"9210b574-56c4-4d76-8c3e-917f95e80048"]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"Converting", "  ", 
     FractionBox[
      RowBox[{"\[DifferentialD]", "N"}], 
      RowBox[{"\[DifferentialD]", "t"}]]}], "=", 
    RowBox[{
     RowBox[{"N", " ", "R", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["N", "K"]}], ")"}]}], "-", 
     FractionBox[
      RowBox[{"B", "*", "N"}], 
      RowBox[{"A", "+", "N"}]]}]}], TraditionalForm]],
  CellChangeTimes->{{3.9858208785707827`*^9, 3.9858208941383266`*^9}, {
   3.985820946232589*^9, 3.985820946302106*^9}, {3.985820981622471*^9, 
   3.985820982238865*^9}, {3.9858210799978857`*^9, 3.9858210805495*^9}},
  FontSize->18,ExpressionUUID->"fed66dcb-363f-4697-8117-bc8a0280c6f5"],
 StyleBox[" into the dimensionless form ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"\[DifferentialD]", "x"}], 
     RowBox[{"\[DifferentialD]", "\[Tau]"}]], "=", 
    RowBox[{
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", "-", 
        FractionBox["x", "k"]}], ")"}]}], "-", 
     FractionBox["x", 
      RowBox[{"1", "+", "x"}]]}]}], TraditionalForm]],
  FormatType->TraditionalForm,
  FontSize->18,ExpressionUUID->"14c09997-7ef4-43a8-b637-db04bf191989"],
 ".\n",
 StyleBox["First take a look at the predation term ",
  FontSize->18],
 Cell[BoxData[
  FractionBox[
   RowBox[{"B", "*", "N"}], 
   RowBox[{"A", "+", "N"}]]],
  CellChangeTimes->{{3.9858208785707827`*^9, 3.9858208941383266`*^9}, {
   3.985820946232589*^9, 3.985820946302106*^9}, {3.985820981622471*^9, 
   3.985820982238865*^9}, {3.9858210799978857`*^9, 3.9858210805495*^9}},
  FontSize->18,ExpressionUUID->"203b0d8c-da67-4fdf-a3fa-9d28899b7e97"],
 StyleBox["which will be turned into ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   FractionBox["x", 
    RowBox[{"1", "+", "x"}]], TraditionalForm]],
  FontSize->18,ExpressionUUID->"a1d4422f-56d4-4346-b30a-637d2a543fe3"],
 StyleBox[".\nLet ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   RowBox[{"N", "=", 
    RowBox[{"A", " ", "x"}]}], TraditionalForm]],
  FormatType->TraditionalForm,
  FontSize->18,ExpressionUUID->"13848176-195a-4c75-b8af-e61e47534677"],
 StyleBox[": ",
  FontSize->18],
 Cell[BoxData[
  FractionBox[
   RowBox[{"B", "*", "A", "*", "x"}], 
   RowBox[{"A", "+", 
    RowBox[{"A", "*", "x"}]}]]],
  CellChangeTimes->{{3.9858208785707827`*^9, 3.9858208941383266`*^9}, {
   3.985820946232589*^9, 3.985820946302106*^9}, {3.985820981622471*^9, 
   3.985820982238865*^9}, {3.9858210799978857`*^9, 3.9858210805495*^9}},
  FontSize->18,ExpressionUUID->"055adaea-4157-4c1a-b457-0ee212cb62a8"],
 StyleBox["\nSimplifying by eliminating ",
  FontSize->18],
 Cell[BoxData[
  FormBox["A", TraditionalForm]],
  FormatType->TraditionalForm,
  FontSize->18,ExpressionUUID->"89fa5fde-863d-4c5f-ae0d-356c1e8e7979"],
 StyleBox[": ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"B", "*", "x"}], 
    RowBox[{"1", "+", "x"}]], TraditionalForm]],
  FormatType->TraditionalForm,
  FontSize->18,ExpressionUUID->"79e8a276-d2ee-4cbf-be52-1ba0b85b4e44"],
 StyleBox["\nApply the transformation: ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"\[DifferentialD]", "N"}], 
     RowBox[{"\[DifferentialD]", "t"}]], "=", 
    RowBox[{"A", 
     FractionBox[
      RowBox[{"\[DifferentialD]", "x"}], 
      RowBox[{"\[DifferentialD]", "t"}]]}]}], TraditionalForm]],
  FontSize->18,ExpressionUUID->"3ce91b7a-d711-4d23-add3-670dd53800b5"],
 StyleBox["\nDivide by ",
  FontSize->18],
 Cell[BoxData[
  FormBox["B", TraditionalForm]],
  FormatType->TraditionalForm,
  FontSize->18,ExpressionUUID->"784c9944-7ead-4f63-b063-b5f302886222"],
 StyleBox[" on both sides: ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     FractionBox["A", "B"], 
     FractionBox[
      RowBox[{"\[DifferentialD]", "x"}], 
      RowBox[{"\[DifferentialD]", "t"}]]}], "=", 
    RowBox[{
     RowBox[{
      FractionBox["R", "B"], "A", " ", "x", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"A", " ", "x"}], "K"]}], ")"}]}], "-", 
     FractionBox["x", 
      RowBox[{"1", "+", "x"}]]}]}], TraditionalForm]],
  FormatType->TraditionalForm,
  FontSize->18,ExpressionUUID->"d9b5d88c-8292-40f8-b8c7-a8f4f8cac2c0"],
 StyleBox["\nFrom this, it can be determined: ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Tau]", "=", 
    FractionBox[
     RowBox[{"B", " ", "t"}], "A"]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "b8a3c59d-9aa2-40af-a7b8-73358598cf67"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Alpha]", "=", 
    FractionBox[
     RowBox[{"R", " ", "A"}], "B"]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "49221205-6691-4337-8c54-bed008598104"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{"k", " ", "=", " ", 
    RowBox[{"K", "/", "A"}]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "43d7dca8-33c9-498d-a5e1-a5aaaa9d3f59"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", 
    FractionBox["N", "A"]}], TraditionalForm]],ExpressionUUID->
  "ab9851da-8122-42fe-9b84-6812b559ff4a"],
 "\n",
 StyleBox["Plugging these constants in, ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   RowBox[{
    FractionBox[
     RowBox[{"\[DifferentialD]", "x"}], 
     RowBox[{"\[DifferentialD]", "\[Tau]"}]], "=", 
    RowBox[{
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"x", "(", 
       RowBox[{"1", "-", 
        FractionBox["x", "k"]}], ")"}]}], "-", 
     FractionBox["x", 
      RowBox[{"1", "+", "x"}]]}]}], TraditionalForm]],
  FormatType->TraditionalForm,
  FontSize->18,ExpressionUUID->"832715cf-9372-4ae4-a855-531fbea0c701"],
 StyleBox[" is obtained.",
  FontSize->18]
}], "Text",
 CellChangeTimes->{{3.9858234491675167`*^9, 3.985823572309134*^9}, {
  3.985823707026099*^9, 3.985823991295066*^9}, {3.9858240415621758`*^9, 
  3.985824148362864*^9}, {3.985824250834857*^9, 3.985824520850018*^9}, {
  3.985824597431614*^9, 3.985824721036716*^9}, {3.985833425759983*^9, 
  3.9858334262372093`*^9}, {3.985834164203374*^9, 
  3.985834203358379*^9}},ExpressionUUID->"1c43ee1b-714b-44a2-8fc0-\
92e09304a07b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  SubscriptBox["A", "u"], ":=", "\"\<Insects\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["B", "u"], ":=", 
  RowBox[{"\"\<Insects\>\"", "/", "\"\<Days\>\""}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["K", "u"], ":=", "\"\<Insects\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["R", "u"], ":=", 
  RowBox[{"1", "/", "\"\<Days\>\""}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["t", "u"], ":=", "\"\<Days\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["N", "u"], ":=", "\"\<Insects\>\""}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["\[Alpha]", "u"], "=", 
    FractionBox[
     RowBox[{
      SubscriptBox["R", "u"], " ", 
      SubscriptBox["A", "u"]}], 
     SubscriptBox["B", "u"]]}], ")"}], "==", "1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["k", "u"], "=", 
    FractionBox[
     SubscriptBox["K", "u"], 
     SubscriptBox["A", "u"]]}], ")"}], "==", "1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["\[Tau]", "u"], "=", 
    FractionBox[
     RowBox[{
      SubscriptBox["B", "u"], 
      SubscriptBox["t", "u"]}], 
     SubscriptBox["A", "u"]]}], ")"}], "==", "1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    SubscriptBox["x", "u"], "=", 
    FractionBox[
     SubscriptBox["N", "u"], 
     SubscriptBox["A", "u"]]}], ")"}], "==", "1"}], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   FractionBox[
    SubscriptBox["x", "u"], 
    SubscriptBox["\[Tau]", "u"]], "==", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Alpha]", "u"], 
     RowBox[{
      SubscriptBox["x", "u"], "(", 
      RowBox[{"1", "-", 
       FractionBox[
        SubscriptBox["x", "u"], 
        SubscriptBox["k", "u"]]}], ")"}]}], "-", 
    FractionBox[
     SubscriptBox["x", "u"], 
     RowBox[{"1", "+", 
      SubscriptBox["x", "u"]}]]}]}],
  TraditionalForm]}], "Input",
 CellChangeTimes->{{3.985833435906353*^9, 3.985833515790059*^9}, {
  3.985833552246745*^9, 3.9858337295731688`*^9}, {3.985833874469164*^9, 
  3.985834124306638*^9}, {3.98583421165934*^9, 3.985834213144943*^9}, {
  3.985834267490991*^9, 3.985834349114005*^9}, {3.9858345537688637`*^9, 
  3.985834695397812*^9}},
 CellLabel->
  "In[324]:=",ExpressionUUID->"3712f3da-c5af-447d-9eca-b87a7d983dd9"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.985833617124017*^9, {3.985833663796904*^9, 3.985833729870632*^9}, {
   3.985833874928646*^9, 3.985833876958879*^9}, {3.985833995715686*^9, 
   3.985834017226946*^9}, 3.985834124862484*^9, {3.985834204331025*^9, 
   3.985834213572233*^9}, {3.985834272414996*^9, 3.985834279443706*^9}, {
   3.9858343364723043`*^9, 3.985834350117465*^9}, {3.985834569922091*^9, 
   3.9858346105688334`*^9}, {3.985834642543232*^9, 3.985834695702688*^9}},
 CellLabel->
  "Out[330]=",ExpressionUUID->"6c0fe37d-3a72-4957-938d-947cd9420720"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.985833617124017*^9, {3.985833663796904*^9, 3.985833729870632*^9}, {
   3.985833874928646*^9, 3.985833876958879*^9}, {3.985833995715686*^9, 
   3.985834017226946*^9}, 3.985834124862484*^9, {3.985834204331025*^9, 
   3.985834213572233*^9}, {3.985834272414996*^9, 3.985834279443706*^9}, {
   3.9858343364723043`*^9, 3.985834350117465*^9}, {3.985834569922091*^9, 
   3.9858346105688334`*^9}, {3.985834642543232*^9, 3.98583469570465*^9}},
 CellLabel->
  "Out[331]=",ExpressionUUID->"aeb8a8ae-97ca-4b7a-9600-2b3abddb0af4"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.985833617124017*^9, {3.985833663796904*^9, 3.985833729870632*^9}, {
   3.985833874928646*^9, 3.985833876958879*^9}, {3.985833995715686*^9, 
   3.985834017226946*^9}, 3.985834124862484*^9, {3.985834204331025*^9, 
   3.985834213572233*^9}, {3.985834272414996*^9, 3.985834279443706*^9}, {
   3.9858343364723043`*^9, 3.985834350117465*^9}, {3.985834569922091*^9, 
   3.9858346105688334`*^9}, {3.985834642543232*^9, 3.98583469570573*^9}},
 CellLabel->
  "Out[332]=",ExpressionUUID->"70a50ed9-ab51-453c-8f97-7e8c724366c0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{
  3.985833617124017*^9, {3.985833663796904*^9, 3.985833729870632*^9}, {
   3.985833874928646*^9, 3.985833876958879*^9}, {3.985833995715686*^9, 
   3.985834017226946*^9}, 3.985834124862484*^9, {3.985834204331025*^9, 
   3.985834213572233*^9}, {3.985834272414996*^9, 3.985834279443706*^9}, {
   3.9858343364723043`*^9, 3.985834350117465*^9}, {3.985834569922091*^9, 
   3.9858346105688334`*^9}, {3.985834642543232*^9, 3.985834695706791*^9}},
 CellLabel->
  "Out[333]=",ExpressionUUID->"0a82810b-1d55-4455-afbc-e1d9fabf34ac"],

Cell[BoxData[
 RowBox[{"1", "\[Equal]", 
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], "+", 
   RowBox[{"1", "[", "0", "]"}]}]}]], "Output",
 CellChangeTimes->{
  3.985833617124017*^9, {3.985833663796904*^9, 3.985833729870632*^9}, {
   3.985833874928646*^9, 3.985833876958879*^9}, {3.985833995715686*^9, 
   3.985834017226946*^9}, 3.985834124862484*^9, {3.985834204331025*^9, 
   3.985834213572233*^9}, {3.985834272414996*^9, 3.985834279443706*^9}, {
   3.9858343364723043`*^9, 3.985834350117465*^9}, {3.985834569922091*^9, 
   3.9858346105688334`*^9}, {3.985834642543232*^9, 3.98583469570787*^9}},
 CellLabel->
  "Out[334]=",ExpressionUUID->"4d072868-0f2d-495d-9bd0-ffb112bdb942"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "sol", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sol", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], "==", 
            RowBox[{
             RowBox[{"\[Alpha]", "*", 
              RowBox[{"x", "[", "\[Tau]", "]"}], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{
                 RowBox[{"x", "[", "\[Tau]", "]"}], "/", "k"}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"x", "[", "\[Tau]", "]"}], "/", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{"x", "[", "\[Tau]", "]"}]}], ")"}]}]}]}], ",", 
           RowBox[{
            RowBox[{"x", "[", "0", "]"}], "==", "x0"}]}], "}"}], ",", 
         RowBox[{"x", "[", "\[Tau]", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Tau]", ",", "0", ",", "30"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"x", "[", "\[Tau]", "]"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Tau]", ",", "0", ",", "30"}], "}"}], ",", 
        RowBox[{"PlotRange", "->", 
         RowBox[{"{", 
          RowBox[{"0", ",", "10"}], "}"}]}], ",", 
        RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "->", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<Scaled Population (x)\>\"", ",", "None"}], "}"}], ",",
            " ", 
           RowBox[{"{", 
            
            RowBox[{"\"\<Scaled Time (\[Tau])\>\"", ",", 
             " ", "\"\<Dimensionless\>\""}], "}"}]}], "}"}]}]}], "]"}]}]}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "x0", ",", "10", 
       ",", "\"\<Initial Scaled Population (\!\(\*SubscriptBox[\(x\), \
\(0\)]\))\>\""}], "}"}], ",", "0", ",", "10"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Alpha]", ",", "1", 
       ",", "\"\<Growth vs Predation Strength (\[Alpha])\>\""}], "}"}], ",", 
     "0", ",", "5"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", "0.5", ",", "\"\<Scaled Carrying Capacity (k)\>\""}], 
      "}"}], ",", "0.5", ",", "3", ",", "0.25"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.985834864054346*^9, 3.985834888460353*^9}, {
   3.985834925901101*^9, 3.98583501839675*^9}, {3.985835431615985*^9, 
   3.9858355637104607`*^9}, {3.985835634919031*^9, 3.985835677137528*^9}, {
   3.9858359823602324`*^9, 3.985836098632554*^9}, {3.985836130373713*^9, 
   3.985836147050453*^9}, {3.9858362561115026`*^9, 3.985836292310277*^9}, 
   3.985836433775395*^9, {3.985836469531592*^9, 3.98583649573335*^9}, {
   3.9858365563241262`*^9, 3.985836584350699*^9}, {3.985836795678513*^9, 
   3.985836808541792*^9}, {3.985836858947791*^9, 3.985836865005423*^9}, {
   3.985836955836069*^9, 3.985836959843774*^9}, {3.985837057493023*^9, 
   3.985837059784778*^9}, 3.985837155911371*^9, {3.985837202203514*^9, 
   3.9858372080627728`*^9}, {3.985837239564268*^9, 3.98583725605399*^9}, {
   3.985837333385293*^9, 3.985837413160982*^9}, {3.985837620597924*^9, 
   3.985837621371007*^9}, {3.985912555056888*^9, 3.9859125551021347`*^9}, 
   3.985945915636835*^9},
 CellLabel->
  "In[1013]:=",ExpressionUUID->"59dd4fd0-30b0-4d07-9e0d-177a2896e4ab"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 1, $CellContext`x0$$ = 
    1.3800000000000001`, $CellContext`\[Alpha]$$ = 4.62, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x0$$], 10, 
       "Initial Scaled Population (\!\(\*SubscriptBox[\(x\), \(0\)]\))"}, 0, 
      10, ControlType -> Manipulator}, {{
       Hold[$CellContext`\[Alpha]$$], 1, 
       "Growth vs Predation Strength (\[Alpha])"}, 0, 5, ControlType -> 
      Manipulator}, {{
       Hold[$CellContext`k$$], 0.5, "Scaled Carrying Capacity (k)"}, 0.5, 3, 
      0.25, ControlType -> Manipulator}}, Typeset`size$$ = {
    360., {123.00377548953236`, 128.73570908328236`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True, 
    Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k$$ = 0.5, $CellContext`x0$$ = 
        10, $CellContext`\[Alpha]$$ = 1}, "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, 
        Typeset`keyframeList$$}, "Body" :> 
      Module[{$CellContext`sol$}, $CellContext`sol$ = 
         NDSolve[{
           Derivative[
             1][$CellContext`x][$CellContext`\[Tau]] == \
$CellContext`\[Alpha]$$ $CellContext`x[$CellContext`\[Tau]] (
               1 - $CellContext`x[$CellContext`\[Tau]]/$CellContext`k$$) - \
$CellContext`x[$CellContext`\[Tau]]/(
             1 + $CellContext`x[$CellContext`\[Tau]]), $CellContext`x[
             0] == $CellContext`x0$$}, 
           $CellContext`x[$CellContext`\[Tau]], {$CellContext`\[Tau], 0, 30}]; 
        Plot[
          Evaluate[
           ReplaceAll[
            $CellContext`x[$CellContext`\[Tau]], $CellContext`sol$]], \
{$CellContext`\[Tau], 0, 30}, PlotRange -> {0, 10}, Frame -> True, 
          FrameLabel -> {{"Scaled Population (x)", None}, {
            "Scaled Time (\[Tau])", "Dimensionless"}}]], 
      "Specifications" :> {{{$CellContext`x0$$, 10, 
          "Initial Scaled Population (\!\(\*SubscriptBox[\(x\), \(0\)]\))"}, 
         0, 10}, {{$CellContext`\[Alpha]$$, 1, 
          "Growth vs Predation Strength (\[Alpha])"}, 0, 
         5}, {{$CellContext`k$$, 0.5, "Scaled Carrying Capacity (k)"}, 0.5, 3,
          0.25}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{409.1, {241.43420090457144`, 247.16613449832144`}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.985835016156179*^9, 3.985835020254738*^9}, 
   3.985835470803776*^9, {3.985835540910604*^9, 3.985835564124696*^9}, {
   3.985835640227271*^9, 3.985835677475032*^9}, {3.985836032679599*^9, 
   3.985836060521324*^9}, 3.985836099394451*^9, {3.9858361308540916`*^9, 
   3.985836147435124*^9}, {3.985836260372422*^9, 3.9858362925699263`*^9}, {
   3.98583647037428*^9, 3.98583649621452*^9}, {3.985836556662354*^9, 
   3.9858365847612762`*^9}, {3.985836797579299*^9, 3.985836808866308*^9}, 
   3.985836865295912*^9, 3.9858369605568666`*^9, 3.9858370600266047`*^9, 
   3.985837156318255*^9, 3.985837212873362*^9, {3.9858372436698303`*^9, 
   3.9858372563491364`*^9}, {3.9858373675413733`*^9, 3.98583739489985*^9}, 
   3.985837621827552*^9, 3.985885581514185*^9, 3.985912555460457*^9},
 CellLabel->
  "Out[1013]=",ExpressionUUID->"f129ed40-c3f6-41e0-a245-da2c22aeef86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "sol", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"sol", "=", 
       RowBox[{"NDSolve", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], "==", 
            RowBox[{
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"\[Tau]", ">", "15"}], ",", "\[Alpha]2", ",", 
                "\[Alpha]1"}], "]"}], "*", 
              RowBox[{"x", "[", "\[Tau]", "]"}], 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{
                 RowBox[{"x", "[", "\[Tau]", "]"}], "/", "k"}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"x", "[", "\[Tau]", "]"}], "/", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{"x", "[", "\[Tau]", "]"}]}], ")"}]}]}]}], ",", 
           RowBox[{
            RowBox[{"x", "[", "0", "]"}], "==", "x0"}]}], "}"}], ",", 
         RowBox[{"x", "[", "\[Tau]", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Tau]", ",", "0", ",", "30"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"x", "[", "\[Tau]", "]"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Tau]", ",", "0", ",", "30"}], "}"}], ",", 
        RowBox[{"PlotRange", "->", 
         RowBox[{"{", 
          RowBox[{"0", ",", "3"}], "}"}]}], ",", 
        RowBox[{"Frame", "->", "True"}], ",", "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "->", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<Scaled Population (x)\>\"", ",", "None"}], "}"}], ",",
            " ", 
           RowBox[{"{", 
            
            RowBox[{"\"\<Scaled Time (\[Tau])\>\"", ",", 
             " ", "\"\<Dimensionless\>\""}], "}"}]}], "}"}]}]}], "]"}]}]}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "x0", ",", "10", 
       ",", "\"\<Initial Scaled Population (\!\(\*SubscriptBox[\(x\), \
\(0\)]\))\>\""}], "}"}], ",", "0", ",", "10"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Alpha]1", ",", "1", 
       ",", "\"\<Growth vs Predation Strength (\[Alpha]1)\>\""}], "}"}], ",", 
     "0", ",", "10"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Alpha]2", ",", "1", 
       ",", "\"\<Growth vs Predation Strength (\[Alpha]2)\>\""}], "}"}], ",", 
     "0", ",", "10"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", "2", ",", "\"\<Scaled Carrying Capacity (k)\>\""}], 
      "}"}], ",", "0.5", ",", "3", ",", "0.25"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.98594593110643*^9, 3.985945971075059*^9}, {
  3.9859464775272818`*^9, 3.985946482081949*^9}, {3.9859465235690527`*^9, 
  3.9859465242735786`*^9}, {3.985946746149151*^9, 3.985946749107168*^9}, {
  3.986333702783255*^9, 3.986333702993322*^9}, {3.986333752242841*^9, 
  3.986333752443841*^9}, {3.9863338235628643`*^9, 3.986333823765647*^9}, {
  3.9863346485379257`*^9, 3.986334648769381*^9}},
 CellLabel->
  "In[1030]:=",ExpressionUUID->"50db24b4-cc03-4b7b-9798-f94c13608ae4"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 2, $CellContext`x0$$ = 
    10, $CellContext`\[Alpha]1$$ = 1, $CellContext`\[Alpha]2$$ = 1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`x0$$], 10, 
       "Initial Scaled Population (\!\(\*SubscriptBox[\(x\), \(0\)]\))"}, 0, 
      10, ControlType -> Manipulator}, {{
       Hold[$CellContext`\[Alpha]1$$], 1, 
       "Growth vs Predation Strength (\[Alpha]1)"}, 0, 10, ControlType -> 
      Manipulator}, {{
       Hold[$CellContext`\[Alpha]2$$], 1, 
       "Growth vs Predation Strength (\[Alpha]2)"}, 0, 10, ControlType -> 
      Manipulator}, {{
       Hold[$CellContext`k$$], 2, "Scaled Carrying Capacity (k)"}, 0.5, 3, 
      0.25, ControlType -> Manipulator}}, Typeset`size$$ = {
    360., {122.14522729715274`, 127.87716089090274`}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True, 
    Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k$$ = 2, $CellContext`x0$$ = 
        10, $CellContext`\[Alpha]1$$ = 1, $CellContext`\[Alpha]2$$ = 1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, 
        Typeset`keyframeList$$}, "Body" :> 
      Module[{$CellContext`sol$}, $CellContext`sol$ = 
         NDSolve[{
           Derivative[1][$CellContext`x][$CellContext`\[Tau]] == 
            If[$CellContext`\[Tau] > 
                15, $CellContext`\[Alpha]2$$, $CellContext`\[Alpha]1$$] \
$CellContext`x[$CellContext`\[Tau]] (
               1 - $CellContext`x[$CellContext`\[Tau]]/$CellContext`k$$) - \
$CellContext`x[$CellContext`\[Tau]]/(
             1 + $CellContext`x[$CellContext`\[Tau]]), $CellContext`x[
             0] == $CellContext`x0$$}, 
           $CellContext`x[$CellContext`\[Tau]], {$CellContext`\[Tau], 0, 30}]; 
        Plot[
          Evaluate[
           ReplaceAll[
            $CellContext`x[$CellContext`\[Tau]], $CellContext`sol$]], \
{$CellContext`\[Tau], 0, 30}, PlotRange -> {0, 3}, Frame -> True, 
          FrameLabel -> {{"Scaled Population (x)", None}, {
            "Scaled Time (\[Tau])", "Dimensionless"}}]], 
      "Specifications" :> {{{$CellContext`x0$$, 10, 
          "Initial Scaled Population (\!\(\*SubscriptBox[\(x\), \(0\)]\))"}, 
         0, 10}, {{$CellContext`\[Alpha]1$$, 1, 
          "Growth vs Predation Strength (\[Alpha]1)"}, 0, 
         10}, {{$CellContext`\[Alpha]2$$, 1, 
          "Growth vs Predation Strength (\[Alpha]2)"}, 0, 
         10}, {{$CellContext`k$$, 2, "Scaled Carrying Capacity (k)"}, 0.5, 3, 
         0.25}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{409.1, {214.21565271219185`, 219.94758630594185`}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.985945927344164*^9, 3.985945971973528*^9, 
  3.985946482430499*^9, 3.985946524607802*^9, 3.985946749291788*^9, 
  3.9863337033781567`*^9, 3.986333752780341*^9, 3.986333824179675*^9, 
  3.986334649080695*^9},
 CellLabel->
  "Out[1030]=",ExpressionUUID->"058b3f1d-0e52-4698-816c-396efab76e96"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Bifurcation Points (",
 Cell[BoxData[
  FormBox[
   RowBox[{"k", "=", "1"}], TraditionalForm]],ExpressionUUID->
  "f2382a7a-d07a-4e55-b971-b0684b562b0e"],
 ")"
}], "Section",
 CellChangeTimes->{{3.985837843794874*^9, 3.985837922533309*^9}, {
  3.985837978654976*^9, 
  3.985837982865192*^9}},ExpressionUUID->"741fa8e9-34af-4451-a583-\
5e1ad0c49801"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"a", ",", "\[Alpha]", ",", "xs"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"xs", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"0", "==", 
     RowBox[{
      RowBox[{"\[Alpha]", "*", "x", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}]}], "-", 
      FractionBox["x", 
       RowBox[{"1", "+", "x"}]]}]}], ",", "x"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"x", "/.", 
       RowBox[{"xs", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Alpha]", ",", "1", ",", "5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "->", "True"}], ",", 
     RowBox[{"FrameLabel", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<x\>\"", ",", "None"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\"\<\[Alpha]\>\"", ",", "\"\<Bifurcations (k=1)\>\""}], 
         "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"x", "/.", 
       RowBox[{"xs", "[", 
        RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Alpha]", ",", "1", ",", "5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", "Thick"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"x", "/.", 
       RowBox[{"xs", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", "Thick"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"x", "/.", 
       RowBox[{"xs", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"\[Alpha]", ",", "1", ",", "5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "->", "Dashed"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "[", "Large", "]"}], ",", "Green", ",", 
      RowBox[{"Point", "[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "}"}], "]"}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzk0ogwEcBvBtb1s2DkpNjcMWUcMmsRo5SKPGxagpDrPZ1MznieEgoa2Z
UkPS2pQy4c1akhpSlrVQvppC1mTILrNa1jJ73sO/3+H/9PQI1EMKLYNGoxVm
DnJFe4ked7Sho+76Dxr9O4Q6o2dsigntn7xc2L/eSbldkVMAJw0HlKfkPR/K
b/IEcGkxVQL5RZ5SGEmnxVCxwqyEpEdYS/1dgnp42Orrhk01ITXVIzH3weJp
iZ7qXw7Mwo+Nh3k459+1wKCDsEJVudMG8zVJJ7ywPm1Se0fetuDE1zgJZUrd
PhyUs47gybDWB2Mm+iW1R1b2CKv48WdIDIQj8NbL/oEcriwJX9rjdE3GX5GJ
Db91CSE0d0XFkKc3VsMgp6UNMvzSUeiyKWeg9+7VBO2qBQs0Ws5WYWpN4oDv
pPsKGkJZ11QuFCB6oYGVDc+l4UYYO9Y2w39G7++o
  "],
 CellLabel->
  "In[840]:=",ExpressionUUID->"ef5cb16f-3c67-4a9b-84c8-2b943ad049ec"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Alpha]"}]], 
       SqrtBox["\[Alpha]"]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     FractionBox[
      SqrtBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Alpha]"}]], 
      SqrtBox["\[Alpha]"]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.985839894740884*^9, 3.9858399288412523`*^9}, 
   3.985839979770368*^9, {3.9858400391672363`*^9, 3.985840082649699*^9}, {
   3.985840144205941*^9, 3.985840204832273*^9}, {3.9858405041024313`*^9, 
   3.9858405116901407`*^9}, {3.985840558964294*^9, 3.985840699986228*^9}, {
   3.985840738933367*^9, 3.985840779546283*^9}, {3.985841042815127*^9, 
   3.9858411423336773`*^9}, 3.985841179080613*^9, 3.985841241377307*^9, {
   3.98584135808851*^9, 3.985841410007955*^9}, {3.985841777845972*^9, 
   3.985841784530818*^9}, {3.985842215117758*^9, 3.9858422645055733`*^9}, {
   3.985842719445668*^9, 3.985842747479377*^9}},
 CellLabel->
  "Out[841]=",ExpressionUUID->"fe2483e8-1c6f-451e-95be-543d4e10b707"],

Cell[BoxData[
 GraphicsBox[{
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], 
          LineBox[CompressedData["
1:eJwV0Hk41PsXwHGSsm/fUbilXdyruGML1efDVZKlsiSK0G7JaFGUKITbIhJl
Ka4o0p1IytV1JkXIvmS9RJGZ+Wq+M8MoxG9+f5znPK/neT/nj7PKL9j5yAIJ
CYkb4vn/bmOx1SUkKJQwlhIaUU6HpEX95xZJU+jilOFjEzIHdjs09SjIUag6
QFOU7VoAysksS0KZQo2ce93LJZnQ1FWSpUmj0PrY6ATm52K4sTxvfoUmhXZl
XJpZ9vM5OBxK89XRplA3a3mWxvALqPt2YZ2RLoXsakNmBzaXQ7zxyTjzDRRq
CS8/ns36B7aH+7ARnULM3ByjFxtfwzvpbU8dNlPo8NtXu1mdlRBtb6bsYkWh
id7SMzdlWWCdpBfisZ1C9t26AVM5LGAtUzI5uptCVmTL17CqNxDpJ5EW6Eah
6cXEtjv2VbD1seD7KU8KmW7KNw9rqYLXRl2vIw9T6B/JtGay6S283Jltc+88
hUp11rEK8qoh9FZy/oMICjFClmcl0WrA+GOMTP4VCtnsXXJa/XINlPieaCi5
TqHAD8FFoS7v4e/zdNeGbAq5yR23LvpUC0GVa8va8ij0659Sd9JRHegvXKrR
U0ihs1HJGvzMOihMnOkbKaVQdjh3QsulHvLy3x2ar6WQqk9roSTzA2R27D1N
51No1MyV7mXQBPu17Do3iSi07M9cBhneBFo+lmZoRvyfJ7rqqdVNkMZdMWMv
zUfP6reVO+9rhuQF7CtHNPnoeIj0uLxFCyQYXki+a8VHymPDdpk2rXCGlqAr
b8tHiSEj3HXHWsH7e2plhAMfGexLkdmb0ArGrBKOnzsfqfwYli9paIWBXRzr
DUF8FF7/cUfirjagB3sI39zlo5ezHTbutu3Q+9TMlcvjozSX2A92Mp3wLmkb
x2tSfN9ix5Hk1Z3APOsS1TLNR70eTY8KN3dCzJbgohfSApS48M1KR0YnbGzM
Xxj1iwDptfcUBnV2QjSp/oJmK0AWOldPPk37CPq/TahvvS9AoYWnPwnnuyAy
Y6eVa64AKdc8W8sjuqFNPifQ/7EAXY+fl21e3w3nSce3qSUCVFeg+3XLrm54
+/QRg1cjQI5hxeRgZjd4Gu7/kM0ToLt37uuEGPVAvElVlJSVEPGZNysYu3qh
L0+jSHO7ENlEPQyK8OmFjUuCuwzshejb92b90JBe6BD9svGAmxA9M0Vx+rd7
YcWrs32lJ4QoKvdaeHFnL5RZ6JkeTRai2EmJduzeB5/RLW7tZyGy3eSlEuHY
D8bj9deqx4Rok3Nqm+KBfriaLq1fNS5E4WEyPYn+/fDrZHhgxZQQXev6ZfXx
uH5gFB4Zfyo/gToO+T0IZPXDT5olL9loAnlq7VzSb/AfLOWMCA5ET6CDp22q
ZxcOgH2K5TS1ehLFRbP3sa4PQu1gUpOH7iTKdYzTdLo3CNt/G/urasMkYvYx
wlryBgFXpdinbJpEZgYBPs8rB8GUGs80c5pEtp/G3wh5g7DSIRtdCptECk5r
5kx1P4FISjpWvmUS3Qo0Ku6P+QTZp5uUdSJE6Iqnoayf4RBctQ8Ko18RoZpW
gr7aZAgC1ih83honQv7XfLkD5kNg2m5X5p4kQhfYliud/hiCRnr1gYQ8EerY
aiSzcO8QTPMrCshGEdJ55OTXGj4EroyCP55rT6H1dUwnxaohkAmKOYdZUyiH
3BXbaDsMXvxVo8e0f6C1WRdbWmw/w+EXTTf0Q6eRu8eysE/aX+DS7ftxH8tm
kEI53WG88QvEzrrF31D7iY499peyPDsCDyIN+/Tc59DbvVM6P+ZHIMBa69ih
O/OIXubv5hg+Cqq1k7Ou5yRwKtO4QVYwClMzwTx/DUnMfRXmucf9K7hMeh1Z
/F4S6/3Ro+hU8RXib7afO3VqAc63lWnrp43B+1JPo91qUliR5hNQ5DsGF7Pd
TpWCFE60j6T9+fcYWGr6eV7zXYitzn3o51BjwHAfrh5TkcZGqfEX8ozYcMmE
00j7VxrHrls7F8pgQ2q2VORzr0W4di4ylZHHhrWtt553yy/GAzc87m/oY8Pr
mwZJjL8X44P6IRnGchzYQLrJdznKYI3fZ59lm3CApkzJvJuWwTHmSTDnywFp
yGCuyZTFmTH/PpRP4ECgcUWPrL0cHjrjGyxdzIEiO7/sSpEcjt+hZrPkIwdE
XC2V0VR5HGvvRRsQcaDMxVYqxUYBVygFKGVpcCFqR+yD0lEFvCNv2drrplxY
/d/O7txYRfzNarV7nDMXLM1iUjTpSnjW5E3J+WAueGk3/5BsV8LhLRETlglc
ENXfGGZcVsY2l4kvo7lccFhgYKGnpoL7019mlFRwQY7nuUfSTwXPcw6mK7Vx
IboSF2a+UsF6RqGcnWwuXHZluofIquIpyaEp2hwXLBq7tsv6quJrg91JxQQJ
g+o2MTIvVXHG3le/y+mSILvOfInVYjWs573lnJ0FCd+WjLE3e6thiUizrj2O
JOxrXqF2iqmGc8rNGwK8SWC6Z8Qrzavh+ktD1ndPkvCmqgWfdCOwTo4bLzpS
3E/cdFycT2APvYN6cJOEmiZrw+BHBBbE281JJpJgXCBS63pM4OhWmTobsZW9
vbvznxBYMUgZ14td837Doe3FBKa1RZR23CLBJKPhfOxrAmetGXn1NZkENWu5
h1LtBL4a/RUtSiMhalnl1YAOAv+n/6XdVuxvopAT7Z0EVv0y55Ugdt2Tno25
3QR2P5XmqnBX3KsXlFsPEPjow9sfVO+RwBuzbb7MJvD9j4XDWhkkHHg7U8zm
ELi2/XbPfrHrs5gpe0gC55yorMkUO995qecqHoGLfh2K1s4kwfv16BfWBIGb
AtITVmWR0JCa/l5XROCBzEa6n9gWIU6Ft6YI/I3r0vaX2Oo6ZcE+0wQ2T/eb
WHOfhCsS/s61M+LemRd6WGyqd7mJ4U8C+/R38R6K7f2idendOQJ3+GofHBG7
ITF2en6ewPmK1e/WPSDhf5eLpTo=
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               Thickness[Large], 
               RGBColor[1, 0, 0]], 
              Line[CompressedData["
1:eJwV0Hk41PsXwHGSsm/fUbilXdyruGML1efDVZKlsiSK0G7JaFGUKITbIhJl
Ka4o0p1IytV1JkXIvmS9RJGZ+Wq+M8MoxG9+f5znPK/neT/nj7PKL9j5yAIJ
CYkb4vn/bmOx1SUkKJQwlhIaUU6HpEX95xZJU+jilOFjEzIHdjs09SjIUag6
QFOU7VoAysksS0KZQo2ce93LJZnQ1FWSpUmj0PrY6ATm52K4sTxvfoUmhXZl
XJpZ9vM5OBxK89XRplA3a3mWxvALqPt2YZ2RLoXsakNmBzaXQ7zxyTjzDRRq
CS8/ns36B7aH+7ARnULM3ByjFxtfwzvpbU8dNlPo8NtXu1mdlRBtb6bsYkWh
id7SMzdlWWCdpBfisZ1C9t26AVM5LGAtUzI5uptCVmTL17CqNxDpJ5EW6Eah
6cXEtjv2VbD1seD7KU8KmW7KNw9rqYLXRl2vIw9T6B/JtGay6S283Jltc+88
hUp11rEK8qoh9FZy/oMICjFClmcl0WrA+GOMTP4VCtnsXXJa/XINlPieaCi5
TqHAD8FFoS7v4e/zdNeGbAq5yR23LvpUC0GVa8va8ij0659Sd9JRHegvXKrR
U0ihs1HJGvzMOihMnOkbKaVQdjh3QsulHvLy3x2ar6WQqk9roSTzA2R27D1N
51No1MyV7mXQBPu17Do3iSi07M9cBhneBFo+lmZoRvyfJ7rqqdVNkMZdMWMv
zUfP6reVO+9rhuQF7CtHNPnoeIj0uLxFCyQYXki+a8VHymPDdpk2rXCGlqAr
b8tHiSEj3HXHWsH7e2plhAMfGexLkdmb0ArGrBKOnzsfqfwYli9paIWBXRzr
DUF8FF7/cUfirjagB3sI39zlo5ezHTbutu3Q+9TMlcvjozSX2A92Mp3wLmkb
x2tSfN9ix5Hk1Z3APOsS1TLNR70eTY8KN3dCzJbgohfSApS48M1KR0YnbGzM
Xxj1iwDptfcUBnV2QjSp/oJmK0AWOldPPk37CPq/TahvvS9AoYWnPwnnuyAy
Y6eVa64AKdc8W8sjuqFNPifQ/7EAXY+fl21e3w3nSce3qSUCVFeg+3XLrm54
+/QRg1cjQI5hxeRgZjd4Gu7/kM0ToLt37uuEGPVAvElVlJSVEPGZNysYu3qh
L0+jSHO7ENlEPQyK8OmFjUuCuwzshejb92b90JBe6BD9svGAmxA9M0Vx+rd7
YcWrs32lJ4QoKvdaeHFnL5RZ6JkeTRai2EmJduzeB5/RLW7tZyGy3eSlEuHY
D8bj9deqx4Rok3Nqm+KBfriaLq1fNS5E4WEyPYn+/fDrZHhgxZQQXev6ZfXx
uH5gFB4Zfyo/gToO+T0IZPXDT5olL9loAnlq7VzSb/AfLOWMCA5ET6CDp22q
ZxcOgH2K5TS1ehLFRbP3sa4PQu1gUpOH7iTKdYzTdLo3CNt/G/urasMkYvYx
wlryBgFXpdinbJpEZgYBPs8rB8GUGs80c5pEtp/G3wh5g7DSIRtdCptECk5r
5kx1P4FISjpWvmUS3Qo0Ku6P+QTZp5uUdSJE6Iqnoayf4RBctQ8Ko18RoZpW
gr7aZAgC1ih83honQv7XfLkD5kNg2m5X5p4kQhfYliud/hiCRnr1gYQ8EerY
aiSzcO8QTPMrCshGEdJ55OTXGj4EroyCP55rT6H1dUwnxaohkAmKOYdZUyiH
3BXbaDsMXvxVo8e0f6C1WRdbWmw/w+EXTTf0Q6eRu8eysE/aX+DS7ftxH8tm
kEI53WG88QvEzrrF31D7iY499peyPDsCDyIN+/Tc59DbvVM6P+ZHIMBa69ih
O/OIXubv5hg+Cqq1k7Ou5yRwKtO4QVYwClMzwTx/DUnMfRXmucf9K7hMeh1Z
/F4S6/3Ro+hU8RXib7afO3VqAc63lWnrp43B+1JPo91qUliR5hNQ5DsGF7Pd
TpWCFE60j6T9+fcYWGr6eV7zXYitzn3o51BjwHAfrh5TkcZGqfEX8ozYcMmE
00j7VxrHrls7F8pgQ2q2VORzr0W4di4ylZHHhrWtt553yy/GAzc87m/oY8Pr
mwZJjL8X44P6IRnGchzYQLrJdznKYI3fZ59lm3CApkzJvJuWwTHmSTDnywFp
yGCuyZTFmTH/PpRP4ECgcUWPrL0cHjrjGyxdzIEiO7/sSpEcjt+hZrPkIwdE
XC2V0VR5HGvvRRsQcaDMxVYqxUYBVygFKGVpcCFqR+yD0lEFvCNv2drrplxY
/d/O7txYRfzNarV7nDMXLM1iUjTpSnjW5E3J+WAueGk3/5BsV8LhLRETlglc
ENXfGGZcVsY2l4kvo7lccFhgYKGnpoL7019mlFRwQY7nuUfSTwXPcw6mK7Vx
IboSF2a+UsF6RqGcnWwuXHZluofIquIpyaEp2hwXLBq7tsv6quJrg91JxQQJ
g+o2MTIvVXHG3le/y+mSILvOfInVYjWs573lnJ0FCd+WjLE3e6thiUizrj2O
JOxrXqF2iqmGc8rNGwK8SWC6Z8Qrzavh+ktD1ndPkvCmqgWfdCOwTo4bLzpS
3E/cdFycT2APvYN6cJOEmiZrw+BHBBbE281JJpJgXCBS63pM4OhWmTobsZW9
vbvznxBYMUgZ14td837Doe3FBKa1RZR23CLBJKPhfOxrAmetGXn1NZkENWu5
h1LtBL4a/RUtSiMhalnl1YAOAv+n/6XdVuxvopAT7Z0EVv0y55Ugdt2Tno25
3QR2P5XmqnBX3KsXlFsPEPjow9sfVO+RwBuzbb7MJvD9j4XDWhkkHHg7U8zm
ELi2/XbPfrHrs5gpe0gC55yorMkUO995qecqHoGLfh2K1s4kwfv16BfWBIGb
AtITVmWR0JCa/l5XROCBzEa6n9gWIU6Ft6YI/I3r0vaX2Oo6ZcE+0wQ2T/eb
WHOfhCsS/s61M+LemRd6WGyqd7mJ4U8C+/R38R6K7f2idendOQJ3+GofHBG7
ITF2en6ewPmK1e/WPSDhf5eLpTo=
               "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-1.5, 1.5}}, 
            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
            "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
            "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               Thickness[Large], 
               RGBColor[1, 0, 0]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-1.5, 1.5}}, 
           "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
           "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              Thickness[Large], 
              RGBColor[1, 0, 0]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           Thickness[Large], 
           RGBColor[1, 0, 0]], 
          Line[CompressedData["
1:eJwV0Hk41PsXwHGSsm/fUbilXdyruGML1efDVZKlsiSK0G7JaFGUKITbIhJl
Ka4o0p1IytV1JkXIvmS9RJGZ+Wq+M8MoxG9+f5znPK/neT/nj7PKL9j5yAIJ
CYkb4vn/bmOx1SUkKJQwlhIaUU6HpEX95xZJU+jilOFjEzIHdjs09SjIUag6
QFOU7VoAysksS0KZQo2ce93LJZnQ1FWSpUmj0PrY6ATm52K4sTxvfoUmhXZl
XJpZ9vM5OBxK89XRplA3a3mWxvALqPt2YZ2RLoXsakNmBzaXQ7zxyTjzDRRq
CS8/ns36B7aH+7ARnULM3ByjFxtfwzvpbU8dNlPo8NtXu1mdlRBtb6bsYkWh
id7SMzdlWWCdpBfisZ1C9t26AVM5LGAtUzI5uptCVmTL17CqNxDpJ5EW6Eah
6cXEtjv2VbD1seD7KU8KmW7KNw9rqYLXRl2vIw9T6B/JtGay6S283Jltc+88
hUp11rEK8qoh9FZy/oMICjFClmcl0WrA+GOMTP4VCtnsXXJa/XINlPieaCi5
TqHAD8FFoS7v4e/zdNeGbAq5yR23LvpUC0GVa8va8ij0659Sd9JRHegvXKrR
U0ihs1HJGvzMOihMnOkbKaVQdjh3QsulHvLy3x2ar6WQqk9roSTzA2R27D1N
51No1MyV7mXQBPu17Do3iSi07M9cBhneBFo+lmZoRvyfJ7rqqdVNkMZdMWMv
zUfP6reVO+9rhuQF7CtHNPnoeIj0uLxFCyQYXki+a8VHymPDdpk2rXCGlqAr
b8tHiSEj3HXHWsH7e2plhAMfGexLkdmb0ArGrBKOnzsfqfwYli9paIWBXRzr
DUF8FF7/cUfirjagB3sI39zlo5ezHTbutu3Q+9TMlcvjozSX2A92Mp3wLmkb
x2tSfN9ix5Hk1Z3APOsS1TLNR70eTY8KN3dCzJbgohfSApS48M1KR0YnbGzM
Xxj1iwDptfcUBnV2QjSp/oJmK0AWOldPPk37CPq/TahvvS9AoYWnPwnnuyAy
Y6eVa64AKdc8W8sjuqFNPifQ/7EAXY+fl21e3w3nSce3qSUCVFeg+3XLrm54
+/QRg1cjQI5hxeRgZjd4Gu7/kM0ToLt37uuEGPVAvElVlJSVEPGZNysYu3qh
L0+jSHO7ENlEPQyK8OmFjUuCuwzshejb92b90JBe6BD9svGAmxA9M0Vx+rd7
YcWrs32lJ4QoKvdaeHFnL5RZ6JkeTRai2EmJduzeB5/RLW7tZyGy3eSlEuHY
D8bj9deqx4Rok3Nqm+KBfriaLq1fNS5E4WEyPYn+/fDrZHhgxZQQXev6ZfXx
uH5gFB4Zfyo/gToO+T0IZPXDT5olL9loAnlq7VzSb/AfLOWMCA5ET6CDp22q
ZxcOgH2K5TS1ehLFRbP3sa4PQu1gUpOH7iTKdYzTdLo3CNt/G/urasMkYvYx
wlryBgFXpdinbJpEZgYBPs8rB8GUGs80c5pEtp/G3wh5g7DSIRtdCptECk5r
5kx1P4FISjpWvmUS3Qo0Ku6P+QTZp5uUdSJE6Iqnoayf4RBctQ8Ko18RoZpW
gr7aZAgC1ih83honQv7XfLkD5kNg2m5X5p4kQhfYliud/hiCRnr1gYQ8EerY
aiSzcO8QTPMrCshGEdJ55OTXGj4EroyCP55rT6H1dUwnxaohkAmKOYdZUyiH
3BXbaDsMXvxVo8e0f6C1WRdbWmw/w+EXTTf0Q6eRu8eysE/aX+DS7ftxH8tm
kEI53WG88QvEzrrF31D7iY499peyPDsCDyIN+/Tc59DbvVM6P+ZHIMBa69ih
O/OIXubv5hg+Cqq1k7Ou5yRwKtO4QVYwClMzwTx/DUnMfRXmucf9K7hMeh1Z
/F4S6/3Ro+hU8RXib7afO3VqAc63lWnrp43B+1JPo91qUliR5hNQ5DsGF7Pd
TpWCFE60j6T9+fcYWGr6eV7zXYitzn3o51BjwHAfrh5TkcZGqfEX8ozYcMmE
00j7VxrHrls7F8pgQ2q2VORzr0W4di4ylZHHhrWtt553yy/GAzc87m/oY8Pr
mwZJjL8X44P6IRnGchzYQLrJdznKYI3fZ59lm3CApkzJvJuWwTHmSTDnywFp
yGCuyZTFmTH/PpRP4ECgcUWPrL0cHjrjGyxdzIEiO7/sSpEcjt+hZrPkIwdE
XC2V0VR5HGvvRRsQcaDMxVYqxUYBVygFKGVpcCFqR+yD0lEFvCNv2drrplxY
/d/O7txYRfzNarV7nDMXLM1iUjTpSnjW5E3J+WAueGk3/5BsV8LhLRETlglc
ENXfGGZcVsY2l4kvo7lccFhgYKGnpoL7019mlFRwQY7nuUfSTwXPcw6mK7Vx
IboSF2a+UsF6RqGcnWwuXHZluofIquIpyaEp2hwXLBq7tsv6quJrg91JxQQJ
g+o2MTIvVXHG3le/y+mSILvOfInVYjWs573lnJ0FCd+WjLE3e6thiUizrj2O
JOxrXqF2iqmGc8rNGwK8SWC6Z8Qrzavh+ktD1ndPkvCmqgWfdCOwTo4bLzpS
3E/cdFycT2APvYN6cJOEmiZrw+BHBBbE281JJpJgXCBS63pM4OhWmTobsZW9
vbvznxBYMUgZ14td837Doe3FBKa1RZR23CLBJKPhfOxrAmetGXn1NZkENWu5
h1LtBL4a/RUtSiMhalnl1YAOAv+n/6XdVuxvopAT7Z0EVv0y55Ugdt2Tno25
3QR2P5XmqnBX3KsXlFsPEPjow9sfVO+RwBuzbb7MJvD9j4XDWhkkHHg7U8zm
ELi2/XbPfrHrs5gpe0gC55yorMkUO995qecqHoGLfh2K1s4kwfv16BfWBIGb
AtITVmWR0JCa/l5XROCBzEa6n9gWIU6Ft6YI/I3r0vaX2Oo6ZcE+0wQ2T/eb
WHOfhCsS/s61M+LemRd6WGyqd7mJ4U8C+/R38R6K7f2idendOQJ3+GofHBG7
ITF2en6ewPmK1e/WPSDhf5eLpTo=
           "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-1.5, 1.5}}, 
        "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           Thickness[Large], 
           RGBColor[1, 0, 0]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], 
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.24, 0.6, 0.8], Thickness[Large], Opacity[1.], 
          LineBox[CompressedData["
1:eJwV0Hk01fkfx3GSsm9fClPaxYxirKHp9WGUZKksiYlQTWUJNSkaUQjTIhJl
KUYUaW4kZTS6KUL2JesQRdz7le+1XBPid39/vM/7PM55nvcf7zVe/vZHFgkJ
CV0VzP93M3tESUiIQexwYlBoiS7il/ScWSLK4PdpnQcGdCb22NR3SkkwqPBR
4Wc45kI2gW1KyTKo49zuWCnMQn17YbqKIoONURGxrI8FuLoye2GVCoPdqedn
V3x7AptDyZ7qagw62CvTlQeeovrLuQ16GgysqgLnereWIEb/RLTxJgaNISXH
Mth/Y0eIxwh0GbCyMvWebn6BN6LbH9lsZXD49fM97LYyRFgbyTqYMZjsKvrt
mjgb5vGagS47GFh3aPhMZ7LBXiFj8OseBmZ04+fg8lcI8xJK9nViMLOU2n7T
uhzbHoz/d9KVgeGWHOPgxnK80Gt/EXaYwd/CyQ10/Ws825VhcfssgyL1Dezc
7AoEXU/IuRvKICBwZXq8YiX030eK5VxkYLFv2SmlC5Uo9DxeW3iFge87//wg
h7f466yuY20GAyeJY+b5H6rgV7a+uDmbwfd/iNxMQTW0Fi9X7sxjcDo8QZmX
Vo28uNnuwSIGGSHcSVWHGmTnvDm0UMVA3qMpT5j1Dmmt+07p8hgMGTnqumnX
4xdVq7YtfAYr/sgKoEPqoephaoRZwX8eaiglVdQjmbtq1lqUh8c120vs9zcg
YdHIxSMqPBwLFB2VNGlErM65hFtmPMgOD1ilWTThN8VYDUlLHuICB7kbjjbB
/b+kslAbHrT3J4rti22CPruQ4+XMg9zXAcnC2ib07uaYb/LjIaTm/c643c3Q
9XeZeHWLh2dzrRbOli3oemTkyB3jIdkh6p2VWBvexG/nuE0J7pvsPJKwtg2s
0w7hjTM8dLnU38/b2obIn/zzn4qOI27xq9W2AW3YXJezOPy7cWi2dOb5tbUh
glZ6qmg5DhP1SyceJb+H1g+TStvujCMo79SHiYV2hKXuMnPMGods5eP1Y1QH
miUzfb0fjONKzIJ4w8YOnKVtXycVjqM6V+PzT7s78PrR/YCxynHYBhfQfWkd
cNX55V3G2Dhu3byjHqjXiRiD8nARswnwWNdKA3Z3oTtbOV9lxwQswu/5hXp0
YfMy/3Zt6wl8+a9BKyiwC6387zYfcJrAY0NEa93owqrnp7uLjk8gPOtySEFb
F4pNNA1/TZhA1JRQC3Huxkdc51Z9nIDlFje5UNse6I/WXK4YnsAW+6Rm6QM9
uJQiqlU+OoGQYLHOOO8efD8V4ls6PYHL7d+tPRbdg4C8I6OPJCfResjrri+7
B98UTccS9CbhqrprWY/2v1jOGRw/EDGJg6csKuYW98I60XSGWTuF6IiR/ewr
fajqi6930ZhClm20it3tPuz4YfjP8k1TYHUHBDdm94GUJ1onbpmCkbaPx5Oy
Phgyo2lGdlOw/DD6amKsD6ttMnA+eApSduvmDTU+gC8iGiXZOIXrvnoFPZEf
kHGqXlY9lI+LrjriXjr9uGTtF6x7kY/KJkp3rUE/fNZJfdwWzYf3ZU9ur3E/
DFusip3j+Tg3Yrra7ud+1OlWHIjN5qN1m57Y4n39mOGV5tJ1fKjft/NqCumH
Y0Duz0/UprGxmmUnXd4PMb/IM4Q9jUx6d1Sd5QDceGuGjqp9xfr03xsbLT/i
8NP6q1pBM3B2WRH8Qe0Tzt+4E/2+eBZSJbo2o3WfEDXnFHNV4RuOPvAWMT09
iLthOt2azvN4vW9a/evCIHzMVY8eurkA3WJvJ9uQIchXTc05nhEiSSz9WvHx
IUzP+o95KwsT7vNg173On+Ew5XZk6Vthovlzp7Rd6WfEXGs5c/LkIpJjKdbc
oziMt0WuensURIi0oodPvucwfs9wOln0UoTEWYcp/vHXMExVvFwvey4mZmfe
9XCYYQQ4D1QMy4kSvaSYc9l6IzhvwKlT/EeURG1YPx8UMIKkDJGwJ25LSNV8
WFJA9gjWN11/0iG5lPRedbmzqXsEL65pxwf8tZQc1ApM1ZfgYBPtJNluK0aU
f5x7nGHAgaIsI/ZmRoxEGse/nPfkQPRlKmtdmjhJi/znnmQsB776pZ3i1hKk
/zdPf9ECDvKtvDLK+BIkZqeCxbL3HPC5qnJDSZIkytpNsZfPQbGDpUiihRQp
lfGRSVfmInxn1N2iISmyM3vF+iuGXKz9d1dHVpQ0+WK21jnangtTo8hEFV0Z
MmfwqvCsPxduag1fhVtkSEhj6KRpLBf8mqsDARdkicUF6tNQFhc2i7RNNBXk
SE/Ks9TCUi4kxlz3CnvJkQXOwRSZZi4iykhe2nM5oqkXxNk1wsUFR5ZzoLg8
mRbun1ac58Kkrn2HuKc8udzXEV9A0ehTsogUeyZPUvc9/1FCg4b4BuNlZksV
iKb7T2esTGh8WTY8stVdgQiFGbXvtaWxv2GVwkmWAsksMa71cafBck6NkVlQ
IDXn+81vnaDxqryRnHCiiHqm01hEmKCfvGa7NIciLpoHNV9eo1FZb67jf58i
4zFW88JxNPRz+QrtDygS0SRWbSGwrLt7R85Dikj7yZIagSvfbjq0o4Aiis2h
Ra3XaRik1p6NekGR9HWDzz8n0FAwl7gn0kKRSxGfsSSZRviKsks+rRT5V+tT
i6XAX/iBx1vaKCL/ad4tVuDqh52bszoo4nwy2VHqlqBXyi0x76XIr/duvJO/
TWNs2LLhwghF7rzPG1BNpXHg9WzBCIciVS03On8RuCadlbiXpkjm8bLKNIFz
7Je7rhmjSP73/RFqaTTcXwx9Yk9SpN4nJXZNOo3apJS3GnyK9KbV6XoJbBJo
l3d9miJfuA7NfwqspF7s7zFDEeMUr8l1d2hcFPK2r5oV9PZjQYcFZrpWGuh8
o4hHT/vYPYHdnzYtvzVPkVZPtYODAtfGRc0sLFAkR7rizYa7NP4HzvBeug==

           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               RGBColor[0.24, 0.6, 0.8], 
               AbsoluteThickness[2], 
               Thickness[Large]], 
              Line[CompressedData["
1:eJwV0Hk01fkfx3GSsm9fClPaxYxirKHp9WGUZKksiYlQTWUJNSkaUQjTIhJl
KUYUaW4kZTS6KUL2JesQRdz7le+1XBPid39/vM/7PM55nvcf7zVe/vZHFgkJ
CV0VzP93M3tESUiIQexwYlBoiS7il/ScWSLK4PdpnQcGdCb22NR3SkkwqPBR
4Wc45kI2gW1KyTKo49zuWCnMQn17YbqKIoONURGxrI8FuLoye2GVCoPdqedn
V3x7AptDyZ7qagw62CvTlQeeovrLuQ16GgysqgLnereWIEb/RLTxJgaNISXH
Mth/Y0eIxwh0GbCyMvWebn6BN6LbH9lsZXD49fM97LYyRFgbyTqYMZjsKvrt
mjgb5vGagS47GFh3aPhMZ7LBXiFj8OseBmZ04+fg8lcI8xJK9nViMLOU2n7T
uhzbHoz/d9KVgeGWHOPgxnK80Gt/EXaYwd/CyQ10/Ws825VhcfssgyL1Dezc
7AoEXU/IuRvKICBwZXq8YiX030eK5VxkYLFv2SmlC5Uo9DxeW3iFge87//wg
h7f466yuY20GAyeJY+b5H6rgV7a+uDmbwfd/iNxMQTW0Fi9X7sxjcDo8QZmX
Vo28uNnuwSIGGSHcSVWHGmTnvDm0UMVA3qMpT5j1Dmmt+07p8hgMGTnqumnX
4xdVq7YtfAYr/sgKoEPqoephaoRZwX8eaiglVdQjmbtq1lqUh8c120vs9zcg
YdHIxSMqPBwLFB2VNGlErM65hFtmPMgOD1ilWTThN8VYDUlLHuICB7kbjjbB
/b+kslAbHrT3J4rti22CPruQ4+XMg9zXAcnC2ib07uaYb/LjIaTm/c643c3Q
9XeZeHWLh2dzrRbOli3oemTkyB3jIdkh6p2VWBvexG/nuE0J7pvsPJKwtg2s
0w7hjTM8dLnU38/b2obIn/zzn4qOI27xq9W2AW3YXJezOPy7cWi2dOb5tbUh
glZ6qmg5DhP1SyceJb+H1g+TStvujCMo79SHiYV2hKXuMnPMGods5eP1Y1QH
miUzfb0fjONKzIJ4w8YOnKVtXycVjqM6V+PzT7s78PrR/YCxynHYBhfQfWkd
cNX55V3G2Dhu3byjHqjXiRiD8nARswnwWNdKA3Z3oTtbOV9lxwQswu/5hXp0
YfMy/3Zt6wl8+a9BKyiwC6387zYfcJrAY0NEa93owqrnp7uLjk8gPOtySEFb
F4pNNA1/TZhA1JRQC3Huxkdc51Z9nIDlFje5UNse6I/WXK4YnsAW+6Rm6QM9
uJQiqlU+OoGQYLHOOO8efD8V4ls6PYHL7d+tPRbdg4C8I6OPJCfResjrri+7
B98UTccS9CbhqrprWY/2v1jOGRw/EDGJg6csKuYW98I60XSGWTuF6IiR/ewr
fajqi6930ZhClm20it3tPuz4YfjP8k1TYHUHBDdm94GUJ1onbpmCkbaPx5Oy
Phgyo2lGdlOw/DD6amKsD6ttMnA+eApSduvmDTU+gC8iGiXZOIXrvnoFPZEf
kHGqXlY9lI+LrjriXjr9uGTtF6x7kY/KJkp3rUE/fNZJfdwWzYf3ZU9ur3E/
DFusip3j+Tg3Yrra7ud+1OlWHIjN5qN1m57Y4n39mOGV5tJ1fKjft/NqCumH
Y0Duz0/UprGxmmUnXd4PMb/IM4Q9jUx6d1Sd5QDceGuGjqp9xfr03xsbLT/i
8NP6q1pBM3B2WRH8Qe0Tzt+4E/2+eBZSJbo2o3WfEDXnFHNV4RuOPvAWMT09
iLthOt2azvN4vW9a/evCIHzMVY8eurkA3WJvJ9uQIchXTc05nhEiSSz9WvHx
IUzP+o95KwsT7vNg173On+Ew5XZk6Vthovlzp7Rd6WfEXGs5c/LkIpJjKdbc
oziMt0WuensURIi0oodPvucwfs9wOln0UoTEWYcp/vHXMExVvFwvey4mZmfe
9XCYYQQ4D1QMy4kSvaSYc9l6IzhvwKlT/EeURG1YPx8UMIKkDJGwJ25LSNV8
WFJA9gjWN11/0iG5lPRedbmzqXsEL65pxwf8tZQc1ApM1ZfgYBPtJNluK0aU
f5x7nGHAgaIsI/ZmRoxEGse/nPfkQPRlKmtdmjhJi/znnmQsB776pZ3i1hKk
/zdPf9ECDvKtvDLK+BIkZqeCxbL3HPC5qnJDSZIkytpNsZfPQbGDpUiihRQp
lfGRSVfmInxn1N2iISmyM3vF+iuGXKz9d1dHVpQ0+WK21jnangtTo8hEFV0Z
MmfwqvCsPxduag1fhVtkSEhj6KRpLBf8mqsDARdkicUF6tNQFhc2i7RNNBXk
SE/Ks9TCUi4kxlz3CnvJkQXOwRSZZi4iykhe2nM5oqkXxNk1wsUFR5ZzoLg8
mRbun1ac58Kkrn2HuKc8udzXEV9A0ehTsogUeyZPUvc9/1FCg4b4BuNlZksV
iKb7T2esTGh8WTY8stVdgQiFGbXvtaWxv2GVwkmWAsksMa71cafBck6NkVlQ
IDXn+81vnaDxqryRnHCiiHqm01hEmKCfvGa7NIciLpoHNV9eo1FZb67jf58i
4zFW88JxNPRz+QrtDygS0SRWbSGwrLt7R85Dikj7yZIagSvfbjq0o4Aiis2h
Ra3XaRik1p6NekGR9HWDzz8n0FAwl7gn0kKRSxGfsSSZRviKsks+rRT5V+tT
i6XAX/iBx1vaKCL/ad4tVuDqh52bszoo4nwy2VHqlqBXyi0x76XIr/duvJO/
TWNs2LLhwghF7rzPG1BNpXHg9WzBCIciVS03On8RuCadlbiXpkjm8bLKNIFz
7Je7rhmjSP73/RFqaTTcXwx9Yk9SpN4nJXZNOo3apJS3GnyK9KbV6XoJbBJo
l3d9miJfuA7NfwqspF7s7zFDEeMUr8l1d2hcFPK2r5oV9PZjQYcFZrpWGuh8
o4hHT/vYPYHdnzYtvzVPkVZPtYODAtfGRc0sLFAkR7rizYa7NP4HzvBeug==

               "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-1.5, 1.5}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               RGBColor[0.24, 0.6, 0.8], 
               AbsoluteThickness[2], 
               Thickness[Large]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-1.5, 1.5}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.24, 0.6, 0.8], 
              AbsoluteThickness[2], 
              Thickness[Large]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.24, 0.6, 0.8], 
           AbsoluteThickness[2], 
           Thickness[Large]], 
          Line[CompressedData["
1:eJwV0Hk01fkfx3GSsm9fClPaxYxirKHp9WGUZKksiYlQTWUJNSkaUQjTIhJl
KUYUaW4kZTS6KUL2JesQRdz7le+1XBPid39/vM/7PM55nvcf7zVe/vZHFgkJ
CV0VzP93M3tESUiIQexwYlBoiS7il/ScWSLK4PdpnQcGdCb22NR3SkkwqPBR
4Wc45kI2gW1KyTKo49zuWCnMQn17YbqKIoONURGxrI8FuLoye2GVCoPdqedn
V3x7AptDyZ7qagw62CvTlQeeovrLuQ16GgysqgLnereWIEb/RLTxJgaNISXH
Mth/Y0eIxwh0GbCyMvWebn6BN6LbH9lsZXD49fM97LYyRFgbyTqYMZjsKvrt
mjgb5vGagS47GFh3aPhMZ7LBXiFj8OseBmZ04+fg8lcI8xJK9nViMLOU2n7T
uhzbHoz/d9KVgeGWHOPgxnK80Gt/EXaYwd/CyQ10/Ws825VhcfssgyL1Dezc
7AoEXU/IuRvKICBwZXq8YiX030eK5VxkYLFv2SmlC5Uo9DxeW3iFge87//wg
h7f466yuY20GAyeJY+b5H6rgV7a+uDmbwfd/iNxMQTW0Fi9X7sxjcDo8QZmX
Vo28uNnuwSIGGSHcSVWHGmTnvDm0UMVA3qMpT5j1Dmmt+07p8hgMGTnqumnX
4xdVq7YtfAYr/sgKoEPqoephaoRZwX8eaiglVdQjmbtq1lqUh8c120vs9zcg
YdHIxSMqPBwLFB2VNGlErM65hFtmPMgOD1ilWTThN8VYDUlLHuICB7kbjjbB
/b+kslAbHrT3J4rti22CPruQ4+XMg9zXAcnC2ib07uaYb/LjIaTm/c643c3Q
9XeZeHWLh2dzrRbOli3oemTkyB3jIdkh6p2VWBvexG/nuE0J7pvsPJKwtg2s
0w7hjTM8dLnU38/b2obIn/zzn4qOI27xq9W2AW3YXJezOPy7cWi2dOb5tbUh
glZ6qmg5DhP1SyceJb+H1g+TStvujCMo79SHiYV2hKXuMnPMGods5eP1Y1QH
miUzfb0fjONKzIJ4w8YOnKVtXycVjqM6V+PzT7s78PrR/YCxynHYBhfQfWkd
cNX55V3G2Dhu3byjHqjXiRiD8nARswnwWNdKA3Z3oTtbOV9lxwQswu/5hXp0
YfMy/3Zt6wl8+a9BKyiwC6387zYfcJrAY0NEa93owqrnp7uLjk8gPOtySEFb
F4pNNA1/TZhA1JRQC3Huxkdc51Z9nIDlFje5UNse6I/WXK4YnsAW+6Rm6QM9
uJQiqlU+OoGQYLHOOO8efD8V4ls6PYHL7d+tPRbdg4C8I6OPJCfResjrri+7
B98UTccS9CbhqrprWY/2v1jOGRw/EDGJg6csKuYW98I60XSGWTuF6IiR/ewr
fajqi6930ZhClm20it3tPuz4YfjP8k1TYHUHBDdm94GUJ1onbpmCkbaPx5Oy
Phgyo2lGdlOw/DD6amKsD6ttMnA+eApSduvmDTU+gC8iGiXZOIXrvnoFPZEf
kHGqXlY9lI+LrjriXjr9uGTtF6x7kY/KJkp3rUE/fNZJfdwWzYf3ZU9ur3E/
DFusip3j+Tg3Yrra7ud+1OlWHIjN5qN1m57Y4n39mOGV5tJ1fKjft/NqCumH
Y0Duz0/UprGxmmUnXd4PMb/IM4Q9jUx6d1Sd5QDceGuGjqp9xfr03xsbLT/i
8NP6q1pBM3B2WRH8Qe0Tzt+4E/2+eBZSJbo2o3WfEDXnFHNV4RuOPvAWMT09
iLthOt2azvN4vW9a/evCIHzMVY8eurkA3WJvJ9uQIchXTc05nhEiSSz9WvHx
IUzP+o95KwsT7vNg173On+Ew5XZk6Vthovlzp7Rd6WfEXGs5c/LkIpJjKdbc
oziMt0WuensURIi0oodPvucwfs9wOln0UoTEWYcp/vHXMExVvFwvey4mZmfe
9XCYYQQ4D1QMy4kSvaSYc9l6IzhvwKlT/EeURG1YPx8UMIKkDJGwJ25LSNV8
WFJA9gjWN11/0iG5lPRedbmzqXsEL65pxwf8tZQc1ApM1ZfgYBPtJNluK0aU
f5x7nGHAgaIsI/ZmRoxEGse/nPfkQPRlKmtdmjhJi/znnmQsB776pZ3i1hKk
/zdPf9ECDvKtvDLK+BIkZqeCxbL3HPC5qnJDSZIkytpNsZfPQbGDpUiihRQp
lfGRSVfmInxn1N2iISmyM3vF+iuGXKz9d1dHVpQ0+WK21jnangtTo8hEFV0Z
MmfwqvCsPxduag1fhVtkSEhj6KRpLBf8mqsDARdkicUF6tNQFhc2i7RNNBXk
SE/Ks9TCUi4kxlz3CnvJkQXOwRSZZi4iykhe2nM5oqkXxNk1wsUFR5ZzoLg8
mRbun1ac58Kkrn2HuKc8udzXEV9A0ehTsogUeyZPUvc9/1FCg4b4BuNlZksV
iKb7T2esTGh8WTY8stVdgQiFGbXvtaWxv2GVwkmWAsksMa71cafBck6NkVlQ
IDXn+81vnaDxqryRnHCiiHqm01hEmKCfvGa7NIciLpoHNV9eo1FZb67jf58i
4zFW88JxNPRz+QrtDygS0SRWbSGwrLt7R85Dikj7yZIagSvfbjq0o4Aiis2h
Ra3XaRik1p6NekGR9HWDzz8n0FAwl7gn0kKRSxGfsSSZRviKsks+rRT5V+tT
i6XAX/iBx1vaKCL/ad4tVuDqh52bszoo4nwy2VHqlqBXyi0x76XIr/duvJO/
TWNs2LLhwghF7rzPG1BNpXHg9WzBCIciVS03On8RuCadlbiXpkjm8bLKNIFz
7Je7rhmjSP73/RFqaTTcXwx9Yk9SpN4nJXZNOo3apJS3GnyK9KbV6XoJbBJo
l3d9miJfuA7NfwqspF7s7zFDEeMUr8l1d2hcFPK2r5oV9PZjQYcFZrpWGuh8
o4hHT/vYPYHdnzYtvzVPkVZPtYODAtfGRc0sLFAkR7rizYa7NP4HzvBeug==

           "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-1.5, 1.5}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           RGBColor[0.24, 0.6, 0.8], 
           AbsoluteThickness[2], 
           Thickness[Large]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], 
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.24, 0.6, 0.8], Thickness[Large], Opacity[1.], 
          LineBox[CompressedData["
1:eJxF0H0s1AEYB/A7rlHW6fRiPzp2ovIWk5RUKhZ5qXmbLG8T0vWGbKXVdM1J
XmLtJuX9JaUbR+6scmLctMz7EYo7ziXceducGy1XbfU8z/bdd5//vnsYUTf9
Y7RIJJLvn/xtr5iZ/tbZoBOkf0dxM4qXEo6u/32wJL+wgXAHe3cPvy0iAsHB
0ermp0Q0eNzukVs2kQQu3Xk+LYNIBbN0G/Y9JjjgCyFlvKXlSrCehhXqYcID
W/gtzLRn8sG3e5xd81fegw35NAmZ3AJulLl19R5rA7cxi4xDlCKwau9x/Zrr
n8Baa9xtxhadYCdNZGNAbRe4K9Wxp8OqF2yaq1irXugDK9RSyZD9ALhyrqmT
+kQMptJfLcrlg+CsK4LYUvMv4NWTXHlcyjA4yUHE39U+ApbWijL7GV/BP5mD
BZZ3v4GtT+lsxDaNgT3KGZfrDSX4L3qE2WSoFGyjDNIb9p0Ab9df0hWtoykt
Bbw9hZPgq45No5u9ZWDu2ajSj6tolcJo23TeFFgQ4KHNcZeDUzzZJfxpNGPc
a6SC/R189HAqh3CYBoea9K6RxWhVZ7YsnvUDnE8JT/I3n8H9EkG5lgi96T4r
0DlhFkyqDufJDObAiS942QZt6GbrdF3aDQWY5pVo85CqBI/Z9omThei6Yldz
efg8OIznRKNvoB+wy1hjbxbANTP0AqrPIji9iB0pOYeO9p+3qPVD7xYK63yD
0Rk5FzuyotBxTs+XtySjzVJ3eOpUoTeO3Ns6/Bo9Oj81UMVF5wY3hJ2pR2us
/G+xheix/pxibTH6XZr6kngIzXGJsKwYQXu/PMA/LUF/uNP9mTWLzrM9lOOn
RCfICgMZi+j9PtekrStoCnmwMleNnhC4MCPX0UJmhZ39L/QzUz2VRoP+DRRC
Ph8=
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               RGBColor[0.24, 0.6, 0.8], 
               AbsoluteThickness[2], 
               Thickness[Large]], 
              Line[CompressedData["
1:eJxF0H0s1AEYB/A7rlHW6fRiPzp2ovIWk5RUKhZ5qXmbLG8T0vWGbKXVdM1J
XmLtJuX9JaUbR+6scmLctMz7EYo7ziXceducGy1XbfU8z/bdd5//vnsYUTf9
Y7RIJJLvn/xtr5iZ/tbZoBOkf0dxM4qXEo6u/32wJL+wgXAHe3cPvy0iAsHB
0ermp0Q0eNzukVs2kQQu3Xk+LYNIBbN0G/Y9JjjgCyFlvKXlSrCehhXqYcID
W/gtzLRn8sG3e5xd81fegw35NAmZ3AJulLl19R5rA7cxi4xDlCKwau9x/Zrr
n8Baa9xtxhadYCdNZGNAbRe4K9Wxp8OqF2yaq1irXugDK9RSyZD9ALhyrqmT
+kQMptJfLcrlg+CsK4LYUvMv4NWTXHlcyjA4yUHE39U+ApbWijL7GV/BP5mD
BZZ3v4GtT+lsxDaNgT3KGZfrDSX4L3qE2WSoFGyjDNIb9p0Ab9df0hWtoykt
Bbw9hZPgq45No5u9ZWDu2ajSj6tolcJo23TeFFgQ4KHNcZeDUzzZJfxpNGPc
a6SC/R189HAqh3CYBoea9K6RxWhVZ7YsnvUDnE8JT/I3n8H9EkG5lgi96T4r
0DlhFkyqDufJDObAiS942QZt6GbrdF3aDQWY5pVo85CqBI/Z9omThei6Yldz
efg8OIznRKNvoB+wy1hjbxbANTP0AqrPIji9iB0pOYeO9p+3qPVD7xYK63yD
0Rk5FzuyotBxTs+XtySjzVJ3eOpUoTeO3Ns6/Bo9Oj81UMVF5wY3hJ2pR2us
/G+xheix/pxibTH6XZr6kngIzXGJsKwYQXu/PMA/LUF/uNP9mTWLzrM9lOOn
RCfICgMZi+j9PtekrStoCnmwMleNnhC4MCPX0UJmhZ39L/QzUz2VRoP+DRRC
Ph8=
               "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-2., 2.}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               RGBColor[0.24, 0.6, 0.8], 
               AbsoluteThickness[2], 
               Thickness[Large]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-2., 2.}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.24, 0.6, 0.8], 
              AbsoluteThickness[2], 
              Thickness[Large]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.24, 0.6, 0.8], 
           AbsoluteThickness[2], 
           Thickness[Large]], 
          Line[CompressedData["
1:eJxF0H0s1AEYB/A7rlHW6fRiPzp2ovIWk5RUKhZ5qXmbLG8T0vWGbKXVdM1J
XmLtJuX9JaUbR+6scmLctMz7EYo7ziXceducGy1XbfU8z/bdd5//vnsYUTf9
Y7RIJJLvn/xtr5iZ/tbZoBOkf0dxM4qXEo6u/32wJL+wgXAHe3cPvy0iAsHB
0ermp0Q0eNzukVs2kQQu3Xk+LYNIBbN0G/Y9JjjgCyFlvKXlSrCehhXqYcID
W/gtzLRn8sG3e5xd81fegw35NAmZ3AJulLl19R5rA7cxi4xDlCKwau9x/Zrr
n8Baa9xtxhadYCdNZGNAbRe4K9Wxp8OqF2yaq1irXugDK9RSyZD9ALhyrqmT
+kQMptJfLcrlg+CsK4LYUvMv4NWTXHlcyjA4yUHE39U+ApbWijL7GV/BP5mD
BZZ3v4GtT+lsxDaNgT3KGZfrDSX4L3qE2WSoFGyjDNIb9p0Ab9df0hWtoykt
Bbw9hZPgq45No5u9ZWDu2ajSj6tolcJo23TeFFgQ4KHNcZeDUzzZJfxpNGPc
a6SC/R189HAqh3CYBoea9K6RxWhVZ7YsnvUDnE8JT/I3n8H9EkG5lgi96T4r
0DlhFkyqDufJDObAiS942QZt6GbrdF3aDQWY5pVo85CqBI/Z9omThei6Yldz
efg8OIznRKNvoB+wy1hjbxbANTP0AqrPIji9iB0pOYeO9p+3qPVD7xYK63yD
0Rk5FzuyotBxTs+XtySjzVJ3eOpUoTeO3Ns6/Bo9Oj81UMVF5wY3hJ2pR2us
/G+xheix/pxibTH6XZr6kngIzXGJsKwYQXu/PMA/LUF/uNP9mTWLzrM9lOOn
RCfICgMZi+j9PtekrStoCnmwMleNnhC4MCPX0UJmhZ39L/QzUz2VRoP+DRRC
Ph8=
           "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-2., 2.}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           RGBColor[0.24, 0.6, 0.8], 
           AbsoluteThickness[2], 
           Thickness[Large]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], 
   InterpretationBox[{
     TagBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.24, 0.6, 0.8], AbsoluteThickness[2], Opacity[1.], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxNzwlI03EUB/C/Lt2hOf3nNMUMLUVJc6gj0sg5RCs1vMZitJEzk7SaLmiC
5VGujNC0pkheA8NSw2EeFZmucyo6s1WbnaAxnIqbpRM3dRXU7+3B4/GBL194
fgJhWrY9hmHJf/bvfafQ0zDMGIP9mxrHL2JHB3BKkmrKmQJWaR42ebmDRxaL
AiKCwAofF8apFHBXYXjGmAx8nV50qz52CTlkzzLtYPNP5JmY6vnhmV/IidJo
s9F/BVl2XkUNvGRCJp0tFzMVq8i8JT9dju8a8sk+VWXIBTNy8e3max/7LciS
dXZFJb6B3FJC/xzM2UTOY3nnZNVakd2GV9YzxBjzv1ctQkPudjvk9BVeNlEJ
rqhSi0Uie2RlLzciBScgX5SxRb1D4GgvAfdG5hbkfM7061lXB+Rixty4+zNw
nYxQ0sNzRN49Wd2jdSIiD1SF1eR3gUMX2E6aZBKyO9VIemUGOww1yHc1kpHP
RD6dIidSkB8cFsgGTWDTvLerrs4JuT89gSCNc0YuPSRp6dWB/b8e0bZKtsK/
+8qlXuEuyDzfiTU7Ndg0WjmdX0ZFTrIPiwrGXZEpBm6qnQB8ZZDZ0fgYXJYh
5xSQ3ZCjxjXx5Ezwd1pcOekRmByw3yOWiCMveszqD/DBxyZ24iI5WM5pqHCx
gp+/eMs8x94G+eWqZGIb+I2KRRfeA0e2m3DNfTCVz9e2ddrklaFZ8d1gRsNY
oWQAjLModwlqcKnP4NW89+BFU8Fp9QfwSOfU3latTZ7W/oT1DWyYTZgo04OP
v7R06+fAo01yaeoCuC3Nk+tnAPMHdD8Uy+CxujvKIBM4quBoR/UqmBbYLzxh
Bl/GctOGLWDjpx0M+oZNf9+kZ/2mTf9NidlqBf8GW0kScw==
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
      {"WolframDynamicHighlight", <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
     StyleBox[
      DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
        Slot["HighlightElements"], 
        Slot["LayoutOptions"], 
        Slot["Meta"], 
        Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
            Annotation[{
              Directive[
               Opacity[1.], 
               RGBColor[0.24, 0.6, 0.8], 
               AbsoluteThickness[2], 
               Dashing[{Small, Small}]], 
              Line[CompressedData["
1:eJxNzwlI03EUB/C/Lt2hOf3nNMUMLUVJc6gj0sg5RCs1vMZitJEzk7SaLmiC
5VGujNC0pkheA8NSw2EeFZmucyo6s1WbnaAxnIqbpRM3dRXU7+3B4/GBL194
fgJhWrY9hmHJf/bvfafQ0zDMGIP9mxrHL2JHB3BKkmrKmQJWaR42ebmDRxaL
AiKCwAofF8apFHBXYXjGmAx8nV50qz52CTlkzzLtYPNP5JmY6vnhmV/IidJo
s9F/BVl2XkUNvGRCJp0tFzMVq8i8JT9dju8a8sk+VWXIBTNy8e3max/7LciS
dXZFJb6B3FJC/xzM2UTOY3nnZNVakd2GV9YzxBjzv1ctQkPudjvk9BVeNlEJ
rqhSi0Uie2RlLzciBScgX5SxRb1D4GgvAfdG5hbkfM7061lXB+Rixty4+zNw
nYxQ0sNzRN49Wd2jdSIiD1SF1eR3gUMX2E6aZBKyO9VIemUGOww1yHc1kpHP
RD6dIidSkB8cFsgGTWDTvLerrs4JuT89gSCNc0YuPSRp6dWB/b8e0bZKtsK/
+8qlXuEuyDzfiTU7Ndg0WjmdX0ZFTrIPiwrGXZEpBm6qnQB8ZZDZ0fgYXJYh
5xSQ3ZCjxjXx5Ezwd1pcOekRmByw3yOWiCMveszqD/DBxyZ24iI5WM5pqHCx
gp+/eMs8x94G+eWqZGIb+I2KRRfeA0e2m3DNfTCVz9e2ddrklaFZ8d1gRsNY
oWQAjLModwlqcKnP4NW89+BFU8Fp9QfwSOfU3latTZ7W/oT1DWyYTZgo04OP
v7R06+fAo01yaeoCuC3Nk+tnAPMHdD8Uy+CxujvKIBM4quBoR/UqmBbYLzxh
Bl/GctOGLWDjpx0M+oZNf9+kZ/2mTf9NidlqBf8GW0kScw==
               "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
           "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-2., 2.}}, 
            "Frame" -> {{False, False}, {False, False}}, 
            "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
            "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
            GoldenRatio^(-1), "DefaultStyle" -> {
              Directive[
               Opacity[1.], 
               RGBColor[0.24, 0.6, 0.8], 
               AbsoluteThickness[2], 
               Dashing[{Small, Small}]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                (Identity[#]& )[
                 Part[#, 1]], 
                (Identity[#]& )[
                 Part[#, 2]]}& ), 
              "ScalingFunctions" -> {{Identity, Identity}, {
                Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
            False|>, 
          "Meta" -> <|
           "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
            Plot, "GroupHighlight" -> False|>|>]]& )[<|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-2., 2.}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, 
           "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> 
           GoldenRatio^(-1), "DefaultStyle" -> {
             Directive[
              Opacity[1.], 
              RGBColor[0.24, 0.6, 0.8], 
              AbsoluteThickness[2], 
              Dashing[{Small, Small}]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), 
             "ScalingFunctions" -> {{Identity, Identity}, {
               Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> 
           False|>, 
         "Meta" -> <|
          "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
           Plot, "GroupHighlight" -> False|>|>],
       ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
        4.503599627370496*^15, -4.503599627370496*^15}}],
      Selectable->False]},
    Annotation[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.24, 0.6, 0.8], 
           AbsoluteThickness[2], 
           Dashing[{Small, Small}]], 
          Line[CompressedData["
1:eJxNzwlI03EUB/C/Lt2hOf3nNMUMLUVJc6gj0sg5RCs1vMZitJEzk7SaLmiC
5VGujNC0pkheA8NSw2EeFZmucyo6s1WbnaAxnIqbpRM3dRXU7+3B4/GBL194
fgJhWrY9hmHJf/bvfafQ0zDMGIP9mxrHL2JHB3BKkmrKmQJWaR42ebmDRxaL
AiKCwAofF8apFHBXYXjGmAx8nV50qz52CTlkzzLtYPNP5JmY6vnhmV/IidJo
s9F/BVl2XkUNvGRCJp0tFzMVq8i8JT9dju8a8sk+VWXIBTNy8e3max/7LciS
dXZFJb6B3FJC/xzM2UTOY3nnZNVakd2GV9YzxBjzv1ctQkPudjvk9BVeNlEJ
rqhSi0Uie2RlLzciBScgX5SxRb1D4GgvAfdG5hbkfM7061lXB+Rixty4+zNw
nYxQ0sNzRN49Wd2jdSIiD1SF1eR3gUMX2E6aZBKyO9VIemUGOww1yHc1kpHP
RD6dIidSkB8cFsgGTWDTvLerrs4JuT89gSCNc0YuPSRp6dWB/b8e0bZKtsK/
+8qlXuEuyDzfiTU7Ndg0WjmdX0ZFTrIPiwrGXZEpBm6qnQB8ZZDZ0fgYXJYh
5xSQ3ZCjxjXx5Ezwd1pcOekRmByw3yOWiCMveszqD/DBxyZ24iI5WM5pqHCx
gp+/eMs8x94G+eWqZGIb+I2KRRfeA0e2m3DNfTCVz9e2ddrklaFZ8d1gRsNY
oWQAjLModwlqcKnP4NW89+BFU8Fp9QfwSOfU3latTZ7W/oT1DWyYTZgo04OP
v7R06+fAo01yaeoCuC3Nk+tnAPMHdD8Uy+CxujvKIBM4quBoR/UqmBbYLzxh
Bl/GctOGLWDjpx0M+oZNf9+kZ/2mTf9NidlqBf8GW0kScw==
           "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
       "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 2.}, {-2., 2.}}, 
        "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
          Directive[
           Opacity[1.], 
           RGBColor[0.24, 0.6, 0.8], 
           AbsoluteThickness[2], 
           Dashing[{Small, Small}]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), 
          "ScalingFunctions" -> {{Identity, Identity}, {
            Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
      "Meta" -> <|
       "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
        Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], 
   {RGBColor[0, 1, 0], PointSize[Large], PointBox[{1, 0}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox["\"x\"", HoldForm], TraditionalForm], None}, {
     FormBox[
      TagBox["\"\[Alpha]\"", HoldForm], TraditionalForm], 
     FormBox[
      TagBox["\"Bifurcations (k=1)\"", HoldForm], TraditionalForm]}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotInteractivity:>True,
  PlotRange->{{0., 2.}, {-1.5, 1.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.985839894740884*^9, 3.9858399288412523`*^9}, 
   3.985839979770368*^9, {3.9858400391672363`*^9, 3.985840082649699*^9}, {
   3.985840144205941*^9, 3.985840204832273*^9}, {3.9858405041024313`*^9, 
   3.9858405116901407`*^9}, {3.985840558964294*^9, 3.985840699986228*^9}, {
   3.985840738933367*^9, 3.985840779546283*^9}, {3.985841042815127*^9, 
   3.9858411423336773`*^9}, 3.985841179080613*^9, 3.985841241377307*^9, {
   3.98584135808851*^9, 3.985841410007955*^9}, {3.985841777845972*^9, 
   3.985841784530818*^9}, {3.985842215117758*^9, 3.9858422645055733`*^9}, {
   3.985842719445668*^9, 3.985842747518765*^9}},
 CellLabel->
  "Out[842]=",ExpressionUUID->"c2d5350f-b070-4933-b51a-574ecf4217b1"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Bifurcation Points (",
 Cell[BoxData[
  FormBox[
   RowBox[{"k", "=", "2"}], TraditionalForm]],ExpressionUUID->
  "b2073b0e-1182-49b0-88f4-db2fdebde1f0"],
 ")"
}], "Section",
 CellChangeTimes->{{3.9858424684859333`*^9, 
  3.985842494104775*^9}},ExpressionUUID->"dd12752b-431a-4816-8a5f-\
a6061e4b85f7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"a", ",", "\[Alpha]", ",", "xs"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"xs", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"0", "==", 
      RowBox[{
       RowBox[{"\[Alpha]", "*", "x", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox["x", "2"]}], ")"}]}], "-", 
       FractionBox["x", 
        RowBox[{"1", "+", "x"}]]}]}], ",", "x"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", "alpha_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"alpha", "*", "x", "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"x", "/", "2"}]}], ")"}]}], "-", 
    RowBox[{"x", "/", 
     RowBox[{"(", 
      RowBox[{"1", "+", "x"}], ")"}]}]}]}], ";"}], "\n", 
 RowBox[{"bifPoint", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"x", ",", "alpha"}], "]"}], "==", "0"}], ",", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{"x", ",", "alpha"}], "]"}], ",", "x"}], "]"}], "==", "0"}], 
      ",", 
      RowBox[{"x", ">", "0"}], ",", 
      RowBox[{"alpha", ">", "0"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "alpha"}], "}"}]}], "]"}]}], "\n", 
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "alpha"}], "]"}], "==", "0"}], ",", 
   RowBox[{"{", 
    RowBox[{"alpha", ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "4"}], "}"}], ",", 
   RowBox[{"FrameLabel", "->", 
    RowBox[{"{", 
     RowBox[{"\"\<Growth Rate (\[Alpha])\>\"", 
      ",", "\"\<Population Density (x)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "->", "\"\<Bifurcations (k=2)\>\""}], ",", 
   RowBox[{"GridLines", "->", "Automatic"}], ",", 
   RowBox[{"ContourStyle", "->", 
    RowBox[{"{", 
     RowBox[{"Thick", ",", "Blue"}], "}"}]}], ",", 
   RowBox[{"Epilog", "->", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
      RowBox[{"Point", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"alpha", ",", "x"}], "}"}], "/.", " ", "bifPoint"}], "]"}]}],
      "}"}]}], ",", 
   RowBox[{"PlotRange", "->", "Full"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.985842600991832*^9, 3.985842604389065*^9}, {
   3.985842642957406*^9, 3.9858426430892363`*^9}, {3.985842679912773*^9, 
   3.9858427166770897`*^9}, {3.9858427511955976`*^9, 3.985842942571274*^9}, {
   3.985842978809053*^9, 3.985842994654687*^9}, {3.985843043248273*^9, 
   3.985843101920579*^9}, {3.985871458177825*^9, 3.985871460780343*^9}, 
   3.985891401472124*^9, {3.985896657594833*^9, 3.985896665541417*^9}, {
   3.9859030119964237`*^9, 3.985903044860929*^9}, {3.985905580937097*^9, 
   3.985905585663206*^9}, {3.985909414818392*^9, 3.9859094770159388`*^9}, {
   3.9859473231598053`*^9, 3.985947327836069*^9}},
 CellLabel->
  "In[1019]:=",ExpressionUUID->"366d2dfe-86eb-4ee7-8ecc-4242b36b8553"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], "-", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"9", " ", "\[Alpha]"}]}]], 
       RowBox[{"2", " ", 
        SqrtBox["\[Alpha]"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox[
         SqrtBox[
          RowBox[{
           RowBox[{"-", "8"}], "+", 
           RowBox[{"9", " ", "\[Alpha]"}]}]], 
         SqrtBox["\[Alpha]"]]}], ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.985842604732457*^9, 3.9858426436253347`*^9, {3.9858426822659683`*^9, 
   3.9858427913460283`*^9}, {3.985842846681978*^9, 3.985842853137617*^9}, {
   3.985842885315753*^9, 3.985842995136218*^9}, 3.9858431022747087`*^9, 
   3.9858714610457*^9, {3.985891402510191*^9, 3.985891412696828*^9}, {
   3.985896661443386*^9, 3.9858966658100843`*^9}, {3.985903019012689*^9, 
   3.985903045134336*^9}, {3.9859055811734657`*^9, 3.985905586119898*^9}, {
   3.985909417769726*^9, 3.985909477222136*^9}, 3.98594732810865*^9},
 CellLabel->
  "Out[1020]=",ExpressionUUID->"cec3769b-fa0a-4ecc-877c-decd7f2c64aa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     FractionBox["1", "2"]}], ",", 
    RowBox[{"alpha", "\[Rule]", 
     FractionBox["8", "9"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.985842604732457*^9, 3.9858426436253347`*^9, {3.9858426822659683`*^9, 
   3.9858427913460283`*^9}, {3.985842846681978*^9, 3.985842853137617*^9}, {
   3.985842885315753*^9, 3.985842995136218*^9}, 3.9858431022747087`*^9, 
   3.9858714610457*^9, {3.985891402510191*^9, 3.985891412696828*^9}, {
   3.985896661443386*^9, 3.9858966658100843`*^9}, {3.985903019012689*^9, 
   3.985903045134336*^9}, {3.9859055811734657`*^9, 3.985905586119898*^9}, {
   3.985909417769726*^9, 3.985909477222136*^9}, 3.985947328110731*^9},
 CellLabel->
  "Out[1022]=",ExpressionUUID->"873ce6ec-ba5a-48db-ae97-557ef7dfd02c"],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxVlQs0lGkYx6eIkK3dFKntYkgUadtcstu/pmIsuWUllD1WpZg2Cm21tguy
1Ua2i2RPFxLd3VrkFt2MUy5bh4wiRh3MTG7zXcxtx/TVOfuc7zv/c97zfM/z
Pr/n+d53XugvvlvGs1isMPU7pkrVmH0Ai7GWC9ypOUIJ7ujM2ni9vQDFPME9
nkCCqR88uEmlhYgLtYwNtZQgzdxN/dQAZ7VS5VIxrGS3s204DxE55n5PjNi3
/2ZaND1B4tf/ePcdEUOzzKuHvJU4xLcWo8nUrbvTpBHpjZs5+/XETLxmpAdd
1jPji9DNvmimL3+Jimrj/Vo3RZjlMThlA6cFR76zeLr+sIiJJ0Czdq0Nb5cI
9yU15ql7O5B7TXvl4xgRSM7MuglOnTjM+H+M3wX2mKSJkFH2fLONrAvxKct6
l+eLsLPc/cIWPyFyPQaPbqkWYbG3d/8hifDz/j6me4faA1wrf4ihu7AEe/nv
P9fb4JyjQ5zshVgl5MSzJGjlfbkkqq0PsQyvj/vtx/mAnnMfRBLkTMi60fKX
GJ/4yxhVMfr/vgx81gW32AJ2xgBW8ce1txsNgqspbBD9tufKTFoH8UzqYOPD
GUTyJjN+juEQaqZHPpgeOcjUPwSBaZSISwxC7kC/FkiGcIpZN9DvdsLyYdhH
HA+1KlL73TdMQPkwhL3cfRtdh+F4hxt6cu0I2jR1DMPEokjYvXUEKbo/TvPf
P4yya7V39eNGkHF+zIahCZs2giyLWYu2eozAPDV+2uTZUoa/2u/BMnHPGilm
i5Wm2mwpaizG88lSKW4fXOsbaSmFUwn1e0q5lOErhUGW0GnEiEB1sFa4Si6F
8RuvUPZqAsF9yWmp4wi0eDnwtFwIpGoSE4gL5pokRRD4Nr88cftuAjv9Rhq6
kwiYafITMCeLL+aeI3Ap+egE26cE/sxa6icpIph5V3/XXWadW0VA3NsidHtH
wCWmK7D4EYEvJo8ZycwDwfAgYWfqe3uRHonXt3Z4Zp0gUR70MtNlBomGhFPB
YY0kjMJKFNnLSaavar1ZFnV5HYmu96n1LFcK9nZvwpVRJBRO2/QjPCgUv82r
X72HZPZL4Rln7uSDKSROT7Wb7VBFwTTi4STzHBLr/azHc3RoGCcYRIfUknDV
NJpGxFZekPg5iRlfpG9zdqQRNHFG7a1WEuma/tDMnJGYu/JokFUBjbP2IeZh
ehTDm8bQ0w6den0KK7eV7/i7gsY1Y4PRI4YUYqvKj4fbjGIp38RwrwPF8B7F
qBe7a+0qCgLzma51u0ZxhpW93c2LwpzAY5XBeaOwtrwyMC+MQpGG2yiydCsK
dkRTqD8T/X2SmQy23raGS05S6HGWViosZOiRDjhGp1BovzRyzMdWxswThVca
3jJUWXk+r8uhEDAvVactSwaPio4h9xIKCJt2KbtRBn6g1x+CRxTDW4a88hc6
dc0U9pUK8kLM5PCew5M2d1AIPxZ5I+Y3OV4YvfLvH6UY3nJc0U18HTGOhnXf
xNYDl+Vw8nboslZzPqM5DxTMf0fDRaMK/Pwkk9W2kEaCtJ8lWKDAw4DCErYN
jSo9oVLnigIXl/HnO3uq+6Lhq8Din6oXhvjS4N0YCK5sUsD9m3TLgEB1nxT2
mzzZShR0cgtX7KIZvkqY+ljFZMTROO0Zk/foVyU83x2Ie5FIw9tg5l2jq0p8
teGq/5pTNDOXSkxcV2qeeYHG+2gfR8VcFfIyp3jk36ExqSky3s9She5N87U2
5NPMuaTCD5Hxe3ZX0iC1p7hvv65CYLJ2YVUDjfiz+7RWPVbhhM+K8zkv6U/3
xMoFBnY5tp00/gM8dzpF
    "], {{}, {}, 
     TagBox[
      TooltipBox[
       {RGBColor[0, 0, 1], Thickness[Large], 
        LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
         18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 
         35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 
         52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 
         69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 
         86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]},
       RowBox[{
         RowBox[{
           RowBox[{
             TagBox["alpha", HoldForm], " ", 
             RowBox[{"(", 
               RowBox[{"1", "-", 
                 FractionBox[
                  TagBox["x", HoldForm], "2"]}], ")"}], " ", 
             TagBox["x", HoldForm]}], "-", 
           FractionBox[
            TagBox["x", HoldForm], 
            RowBox[{"1", "+", 
              TagBox["x", HoldForm]}]]}], "\[Equal]", "0"}]],
      Annotation[#, 
       HoldForm[$CellContext`alpha] (1 + 
          Rational[-1, 2] HoldForm[$CellContext`x]) HoldForm[$CellContext`x] - 
        HoldForm[$CellContext`x]/(1 + HoldForm[$CellContext`x]) == 0, 
       "Tooltip"]& ]}], {}},
  AspectRatio->1,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  DefaultBaseStyle->{"PlotGraphics", "Graphics"},
  DisplayFunction->Identity,
  Epilog->{
    RGBColor[1, 0, 0], 
    PointSize[0.02], 
    PointBox[
     NCache[{{
        Rational[8, 9], 
        Rational[1, 2]}}, {{0.8888888888888888, 0.5}}]]},
  Frame->True,
  FrameLabel->{{
     FormBox[
      TagBox["\"Population Density (x)\"", HoldForm], TraditionalForm], 
     None}, {
     FormBox[
      TagBox["\"Growth Rate (\[Alpha])\"", HoldForm], TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{Automatic, Automatic},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "GridLinesInFront" -> 
    True},
  PlotInteractivity:>True,
  PlotLabel->FormBox["\"Bifurcations (k=2)\"", TraditionalForm],
  PlotRange->{{0, 2}, {0, 4}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.985842604732457*^9, 3.9858426436253347`*^9, {3.9858426822659683`*^9, 
   3.9858427913460283`*^9}, {3.985842846681978*^9, 3.985842853137617*^9}, {
   3.985842885315753*^9, 3.985842995136218*^9}, 3.9858431022747087`*^9, 
   3.9858714610457*^9, {3.985891402510191*^9, 3.985891412696828*^9}, {
   3.985896661443386*^9, 3.9858966658100843`*^9}, {3.985903019012689*^9, 
   3.985903045134336*^9}, {3.9859055811734657`*^9, 3.985905586119898*^9}, {
   3.985909417769726*^9, 3.985909477222136*^9}, 3.985947328126741*^9},
 CellLabel->
  "Out[1023]=",ExpressionUUID->"cb1fb53a-988f-4f9e-aa0f-6fe183a90d5d"]
}, Open  ]],

Cell[BoxData["\[AliasDelimiter]"], "Input",
 CellChangeTimes->{
  3.9859094482219353`*^9},ExpressionUUID->"5970a538-c370-4465-bc5b-\
95ccf9ca064e"],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    TemplateBox[{
      FractionBox[
       RowBox[{"B", " ", "N"}], 
       RowBox[{"A", "+", "N"}]], "N", "A"},
     "Limit2Arg"], "=", 
    FractionBox["B", "2"]}],
   FontSize->48], TraditionalForm]], "Input",
 CellChangeTimes->{{3.986330870523946*^9, 3.986330913355377*^9}, {
  3.98633104229143*^9, 
  3.986331056207396*^9}},ExpressionUUID->"a1415be4-70a4-4d1c-bc38-\
ed946b3dc0c9"],

Cell[BoxData[
 FractionBox["B", "2"]], "Output",
 CellChangeTimes->{
  3.986330898510742*^9, {3.9863310455312443`*^9, 3.986331050965612*^9}},
 CellLabel->
  "Out[1026]=",ExpressionUUID->"0ee0dd8c-4c77-4d12-85fd-d001e06852bd"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1512, 846},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"14.3 for Mac OS X ARM (64-bit) (July 8, 2025)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"8bc9345c-974c-4928-992b-c3633bcdf035"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[554, 20, 668, 12, 56, "CodeText",ExpressionUUID->"5e0598e5-2500-4adc-8464-cff05975d699"],
Cell[1225, 34, 688, 18, 44, "Input",ExpressionUUID->"9f0e66a3-6155-4b5c-a4c0-256018bb6203"],
Cell[CellGroupData[{
Cell[1938, 56, 4411, 109, 254, "Input",ExpressionUUID->"93343324-5287-4ca6-aa69-d8e83459879e"],
Cell[6352, 167, 3058, 62, 370, "Output",ExpressionUUID->"44f6e945-f1e3-4d6a-bd81-6cb8f1e7f6d1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9447, 234, 12929, 296, 680, "Input",ExpressionUUID->"5d7b4188-32a6-4729-9cd3-58a8177818db"],
Cell[22379, 532, 6597, 133, 743, "Output",ExpressionUUID->"c04c1fa0-2e07-42a7-adbf-9ec10af7ac69"],
Cell[28979, 667, 9819, 145, 291, "Message",ExpressionUUID->"ff4aa772-ba3a-44d9-9188-7e5949c427aa"],
Cell[38801, 814, 360, 8, 26, "Message",ExpressionUUID->"bd6a948f-f462-44cf-8a64-830a8028f7d6"],
Cell[39164, 824, 4664, 71, 76, "Message",ExpressionUUID->"1ee4c10a-d265-4021-a2a5-7dc9f681f56a"],
Cell[43831, 897, 436, 9, 26, "Message",ExpressionUUID->"9210b574-56c4-4d76-8c3e-917f95e80048"]
}, Open  ]],
Cell[44282, 909, 6220, 186, 240, "Text",ExpressionUUID->"1c43ee1b-714b-44a2-8fc0-92e09304a07b"],
Cell[CellGroupData[{
Cell[50527, 1099, 2360, 72, 331, "Input",ExpressionUUID->"3712f3da-c5af-447d-9eca-b87a7d983dd9"],
Cell[52890, 1173, 573, 9, 33, "Output",ExpressionUUID->"6c0fe37d-3a72-4957-938d-947cd9420720"],
Cell[53466, 1184, 572, 9, 33, "Output",ExpressionUUID->"aeb8a8ae-97ca-4b7a-9600-2b3abddb0af4"],
Cell[54041, 1195, 572, 9, 33, "Output",ExpressionUUID->"70a50ed9-ab51-453c-8f97-7e8c724366c0"],
Cell[54616, 1206, 573, 9, 33, "Output",ExpressionUUID->"0a82810b-1d55-4455-afbc-e1d9fabf34ac"],
Cell[55192, 1217, 692, 14, 45, "Output",ExpressionUUID->"4d072868-0f2d-495d-9bd0-ffb112bdb942"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55921, 1236, 3736, 90, 151, "Input",ExpressionUUID->"59dd4fd0-30b0-4d07-9e0d-177a2896e4ab"],
Cell[59660, 1328, 4103, 75, 519, "Output",ExpressionUUID->"f129ed40-c3f6-41e0-a245-da2c22aeef86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63800, 1408, 3561, 93, 172, "Input",ExpressionUUID->"50db24b4-cc03-4b7b-9798-f94c13608ae4"],
Cell[67364, 1503, 3900, 75, 483, "Output",ExpressionUUID->"058b3f1d-0e52-4698-816c-396efab76e96"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71301, 1583, 367, 11, 66, "Section",ExpressionUUID->"741fa8e9-34af-4451-a583-5e1ad0c49801"],
Cell[CellGroupData[{
Cell[71693, 1598, 4119, 116, 227, "Input",ExpressionUUID->"ef5cb16f-3c67-4a9b-84c8-2b943ad049ec"],
Cell[75815, 1716, 1236, 30, 54, "Output",ExpressionUUID->"fe2483e8-1c6f-451e-95be-543d4e10b707"],
Cell[77054, 1748, 44735, 869, 259, "Output",ExpressionUUID->"c2d5350f-b070-4933-b51a-574ecf4217b1"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[121838, 2623, 320, 10, 66, "Section",ExpressionUUID->"dd12752b-431a-4816-8a5f-a6061e4b85f7"],
Cell[CellGroupData[{
Cell[122183, 2637, 3110, 83, 145, "Input",ExpressionUUID->"366d2dfe-86eb-4ee7-8ecc-4242b36b8553"],
Cell[125296, 2722, 1378, 37, 68, "Output",ExpressionUUID->"cec3769b-fa0a-4ecc-877c-decd7f2c64aa"],
Cell[126677, 2761, 830, 17, 59, "Output",ExpressionUUID->"873ce6ec-ba5a-48db-ae97-557ef7dfd02c"],
Cell[127510, 2780, 5195, 113, 409, "Output",ExpressionUUID->"cb1fb53a-988f-4f9e-aa0f-6fe183a90d5d"]
}, Open  ]],
Cell[132720, 2896, 147, 3, 29, "Input",ExpressionUUID->"5970a538-c370-4465-bc5b-95ccf9ca064e"],
Cell[CellGroupData[{
Cell[132892, 2903, 435, 14, 124, "Input",ExpressionUUID->"a1415be4-70a4-4d1c-bc38-ed946b3dc0c9"],
Cell[133330, 2919, 225, 5, 59, "Output",ExpressionUUID->"0ee0dd8c-4c77-4d12-85fd-d001e06852bd"]
}, Open  ]]
}, Open  ]]
}
]
*)