SEIS with vd.nb

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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    206397,       4456]
NotebookOptionsPosition[    204335,       4384]
NotebookOutlinePosition[    204706,       4400]
CellTagsIndexPosition[    204663,       4397]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"eq1", "=", 
   RowBox[{
    RowBox[{"\[Mu]", " ", "n"}], "+", 
    RowBox[{"\[Gamma]", " ", 
     RowBox[{"i", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Beta]", " ", "*", " ", 
     RowBox[{"s", "[", "t", "]"}], "*", " ", 
     FractionBox[
      RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
    RowBox[{"\[Mu]", " ", 
     RowBox[{"s", "[", "t", "]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{
    RowBox[{"\[Beta]", "*", 
     RowBox[{"s", "[", "t", "]"}], "*", 
     FractionBox[
      RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "*", 
     RowBox[{"e", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"\[Epsilon]", "*", 
     RowBox[{"e", "[", "t", "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], "*", " ", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.16"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]", "=", "0.4"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"R0", "=", 
   RowBox[{"N", "[", 
    FractionBox["\[Beta]", "\[Gamma]"], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tf", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"szero", "=", "0.80"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ezero", "=", "0.18"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"izero", "=", "0.02"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", "eq1"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"e", "'"}], "[", "t", "]"}], "\[Equal]", "eq2"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", "eq3"}], ",", 
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "szero"}], ",", 
        RowBox[{
         RowBox[{"e", "[", "0", "]"}], "\[Equal]", "ezero"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "izero"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "e", ",", "i"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tf"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<S\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Blue"}]}]}], "]"}]}], "      ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"S", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot1a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Blue"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"For", " ", 
     RowBox[{"S", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"plot2", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"\"\<E\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Red"}]}]}], "]"}]}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"E", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot2a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Orange"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], " ", ";"}], "\n",
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"c", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Green"}]}]}], "]"}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"I", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot3a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Red"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowLegend", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"plot1a", " ", ",", "plot2a", ",", "plot3a"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<S(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<E(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<I(t)\>\""}], "}"}]}], "}"}], ",", 
      RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
      RowBox[{"LegendSpacing", "\[Rule]", "0"}], ",", 
      RowBox[{"LegendSize", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0.5"}], "}"}]}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotall", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "tf"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.05"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLegend", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<S(t)\>\"", ",", "\"\<E(t)\>\"", ",", "\"\<I(t)\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Orange"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
     RowBox[{"LegendSpacing", "\[Rule]", "0"}], ",", 
     RowBox[{"LegendPosition", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0"}], "}"}]}], ",", 
     RowBox[{"LegendSize", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0.3"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"GridLinesStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", "Dotted"}], "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Density \>\"", ",", "\"\<\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<time \>\"", "[", "t", "]"}], ",", "\"\<\>\""}], 
         "}"}]}], "}"}]}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"plotP", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"ParametricPlot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x1", "[", "t", "]"}], ",", 
            RowBox[{"x2", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", "t", "]"}], ",", 
           RowBox[{"\"\<E\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
      "\[IndentingNewLine]", "plotQ"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"ParametricPlot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x2", "[", "t", "]"}], ",", 
             RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\"\<E\>\"", "[", "t", "]"}], ",", 
            RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], "\n", 
       "plotR"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x1", "[", "t", "]"}], ",", 
              RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"S", "[", "t", "]"}], ",", 
             RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
        "\[IndentingNewLine]", 
        RowBox[{"h1", "[", "t_", "]"}]}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x1", "[", "t", "]"}], "/.", "sol"}], "]"}], "\n", 
         RowBox[{"h2", "[", "t_", "]"}]}], ":=", 
        RowBox[{
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"x2", "[", "t", "]"}], "/.", "sol"}], "]"}], 
          "\[IndentingNewLine]", 
          RowBox[{"h3", "[", "t_", "]"}]}], ":=", 
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x3", "[", "t", "]"}], "/.", "sol"}], "]"}]}]}]}]}]}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5638355904558997`*^9, 3.563835704468421*^9}, {
   3.563835950077469*^9, 3.56383606512805*^9}, {3.56383613822723*^9, 
   3.563836367357336*^9}, {3.563836441114555*^9, 3.563836444201731*^9}, {
   3.563836535058928*^9, 3.563836589524043*^9}, {3.5638366644783306`*^9, 
   3.563836665858409*^9}, 3.563836695909128*^9, {3.563836848841875*^9, 
   3.5638368525680885`*^9}, {3.5638372255084195`*^9, 3.563837265661716*^9}, {
   3.5638383151507435`*^9, 3.5638383180759106`*^9}, 3.563838362903475*^9, {
   3.5638384377487555`*^9, 3.563838575206618*^9}, {3.5638386112096767`*^9, 
   3.563838657701336*^9}, 3.5638386889021206`*^9, {3.5638388049467583`*^9, 
   3.5638388069938755`*^9}, {3.5638388495773106`*^9, 
   3.5638389667440124`*^9}, {3.563839052506918*^9, 3.563839071571008*^9}, {
   3.563839147339342*^9, 3.563839232596218*^9}, {3.563839314060878*^9, 
   3.56383942477421*^9}, {3.5638394696337757`*^9, 3.563839480051372*^9}, {
   3.5638395362795877`*^9, 3.5638395453271055`*^9}, {3.5638395986821575`*^9, 
   3.5638396665290375`*^9}, {3.563839704558213*^9, 3.5638397404972687`*^9}, {
   3.5638398239280405`*^9, 3.5638399312031765`*^9}, {3.563840014577945*^9, 
   3.5638400676949835`*^9}, {3.5638401105414343`*^9, 
   3.5638401221330967`*^9}, {3.5638401613373394`*^9, 3.563840168990777*^9}, {
   3.5638402066729326`*^9, 3.5638402331264453`*^9}, {3.563840302771429*^9, 
   3.563840436440074*^9}, {3.563840514500539*^9, 3.563840531504512*^9}, {
   3.5638405784992*^9, 3.5638405821144066`*^9}, {3.563840618338478*^9, 
   3.5638406387506456`*^9}, {3.5638407249235744`*^9, 
   3.5638408190029554`*^9}, {3.563840856229085*^9, 3.5638408646885686`*^9}, {
   3.5638410103198986`*^9, 3.5638410835630875`*^9}, {3.563904889849905*^9, 
   3.5639048947221837`*^9}, 3.563905146271571*^9, {3.563905177983385*^9, 
   3.56390518226363*^9}, {3.56390525411874*^9, 3.563905299470334*^9}, {
   3.563905472683241*^9, 3.563905489465201*^9}, {3.563905647569244*^9, 
   3.5639056597809424`*^9}, 3.563905703646451*^9, {3.563905742419669*^9, 
   3.5639057793877835`*^9}, {3.563905869972965*^9, 3.563905882011653*^9}, {
   3.563905928065287*^9, 3.5639059436801805`*^9}, {3.563906210805459*^9, 
   3.563906215908751*^9}, {3.563906296232345*^9, 3.5639063025807085`*^9}, {
   3.563906365490307*^9, 3.5639063658563275`*^9}, {3.563906424897704*^9, 
   3.563906433242182*^9}, {3.563906471104347*^9, 3.5639064759836264`*^9}, {
   3.5639065288356495`*^9, 3.563906529453685*^9}, {3.5639068329810457`*^9, 
   3.5639068636147976`*^9}, {3.563906895527623*^9, 3.563906897037709*^9}, {
   3.563907110560922*^9, 3.5639071121890154`*^9}, {3.563907274969326*^9, 
   3.56390743274035*^9}, {3.5639074760618277`*^9, 3.5639074793070135`*^9}, {
   3.5639075838239913`*^9, 3.5639075917484446`*^9}, {3.5639076912791376`*^9, 
   3.563907827329919*^9}, {3.56390786003179*^9, 3.56390792333441*^9}, {
   3.563908035557829*^9, 3.5639080787833014`*^9}, 3.5639084082481456`*^9, {
   3.563908463246291*^9, 3.563908492127943*^9}, 3.563908626086605*^9, {
   3.563908825166992*^9, 3.5639088270190983`*^9}, {3.563909238651642*^9, 
   3.563909240037721*^9}, {3.563909322232423*^9, 3.5639093344691224`*^9}, {
   3.563909382587875*^9, 3.563909606090658*^9}, {3.5639097046552963`*^9, 
   3.563909707405453*^9}, {3.5639097449105988`*^9, 3.563909747819765*^9}, {
   3.5639097912782507`*^9, 3.5639098366698465`*^9}, {3.5639098902499113`*^9, 
   3.563909890652934*^9}, {3.563909925842947*^9, 3.563909927602048*^9}, {
   3.5639099589818425`*^9, 3.563909959344863*^9}, {3.5639099995731645`*^9, 
   3.563910046916872*^9}, {3.563910148071658*^9, 3.5639101691978664`*^9}, 
   3.5639102340005727`*^9, {3.5639102721207533`*^9, 3.563910351650302*^9}, {
   3.563910421532299*^9, 3.563910510495387*^9}, {3.5639105664275866`*^9, 
   3.5639105760811386`*^9}, {3.5639106580418262`*^9, 
   3.5639106824562225`*^9}, {3.5639107247046394`*^9, 3.563910728398851*^9}, {
   3.563910840744276*^9, 3.563910862496521*^9}, {3.563910926792198*^9, 
   3.5639109604401226`*^9}, {3.563911036075449*^9, 3.563911037511531*^9}, {
   3.563911431340057*^9, 3.563911437320399*^9}, {3.5639114789257784`*^9, 
   3.563911493954638*^9}, {3.563911525254428*^9, 3.5639115374281244`*^9}, {
   3.5639115750762777`*^9, 3.5639115880030174`*^9}, 3.5639116582250338`*^9, {
   3.5639116984503345`*^9, 3.56391176008786*^9}, {3.5639119457344785`*^9, 
   3.563911983828657*^9}, {3.5639125210403843`*^9, 3.5639125490409856`*^9}, {
   3.5639125979987855`*^9, 3.5639126611083956`*^9}, {3.5639128670021715`*^9, 
   3.563912872138466*^9}, {3.5639130702837987`*^9, 3.5639131278820934`*^9}, {
   3.5639132526262283`*^9, 3.563913434192613*^9}, {3.5639134979902625`*^9, 
   3.5639135222086477`*^9}, {3.563913559982808*^9, 3.563913587937407*^9}, {
   3.563913643129564*^9, 3.5639136454726977`*^9}, {3.563913893811902*^9, 
   3.5639139485590334`*^9}, {3.5639139840870657`*^9, 3.563914064888687*^9}, {
   3.5639141429901543`*^9, 3.5639142000144157`*^9}, {3.563914269810408*^9, 
   3.5639142840542226`*^9}, {3.5639143487949257`*^9, 3.563914404738125*^9}, 
   3.563914455294017*^9, {3.56391451899066*^9, 3.5639146165662413`*^9}, {
   3.5639146469249773`*^9, 3.56391465099021*^9}, {3.563914684638135*^9, 
   3.5639146860572157`*^9}, {3.56391471638395*^9, 3.5639148044359865`*^9}, {
   3.5639148449423037`*^9, 3.5639148622662945`*^9}, {3.5639150099297404`*^9, 
   3.563915010347764*^9}, {3.5639151494727216`*^9, 3.5639152487053976`*^9}, {
   3.563915326603853*^9, 3.563915346531993*^9}, {3.5639157813918657`*^9, 
   3.563915788211255*^9}, {3.5639160749616566`*^9, 3.563916084421198*^9}, {
   3.563916863145738*^9, 3.563916867956013*^9}, {3.563916974604113*^9, 
   3.563916998251466*^9}, {3.5639170471642637`*^9, 3.5639170731837516`*^9}, {
   3.563917169124239*^9, 3.5639171692732477`*^9}, {3.563917225221448*^9, 
   3.563917281815685*^9}, {3.5639173866606817`*^9, 3.56391743454642*^9}, 
   3.5639174785899396`*^9, {3.563917530621916*^9, 3.563917555013311*^9}, {
   3.563917726810137*^9, 3.5639177280732093`*^9}, {3.563917953474101*^9, 
   3.5639180072371764`*^9}, {3.563918038582969*^9, 3.5639180432792377`*^9}, {
   3.563918079533312*^9, 3.5639182234085407`*^9}, {3.563918264612898*^9, 
   3.563918265321938*^9}, {3.563918306125272*^9, 3.5639183204030886`*^9}, {
   3.5639183512768545`*^9, 3.563918397598504*^9}, {3.5639186015911713`*^9, 
   3.5639186261025734`*^9}, {3.5639188701865344`*^9, 3.563918974285488*^9}, {
   3.564081080539436*^9, 3.5640811343645144`*^9}, {3.564880574348827*^9, 
   3.5648805849744344`*^9}, {3.5648807151418796`*^9, 3.564880717960041*^9}, {
   3.5648808318375545`*^9, 3.564880834966733*^9}, {3.564880887672748*^9, 
   3.5648809435619445`*^9}, {3.564881002612322*^9, 3.5648810078276205`*^9}, {
   3.564881058793535*^9, 3.5648810605646367`*^9}, {3.564882586727928*^9, 
   3.56488258833002*^9}, {3.5648826193637953`*^9, 3.564882626198186*^9}, 
   3.5648828797036858`*^9, {3.5668460139647665`*^9, 3.566846039283215*^9}, {
   3.5679698042792788`*^9, 3.567970064740176*^9}, {3.5679725677883425`*^9, 
   3.5679725728876343`*^9}, {3.5679726662889767`*^9, 
   3.5679726673010345`*^9}, {3.567973103120962*^9, 3.5679731107233963`*^9}, {
   3.567973168371694*^9, 3.5679732075859365`*^9}, {3.56797329802411*^9, 
   3.567973310597829*^9}, {3.567973369819216*^9, 3.5679733855401154`*^9}, {
   3.5679734907991357`*^9, 3.5679735486114426`*^9}, {3.5679735856015577`*^9, 
   3.56797358965279*^9}, {3.5679736388876057`*^9, 3.5679737353241215`*^9}, {
   3.567973792365384*^9, 3.5679737986407433`*^9}, {3.567973868360731*^9, 
   3.567973898430451*^9}, {3.5680504360721536`*^9, 3.5680504883531437`*^9}, {
   3.5680607069186125`*^9, 3.568060711435871*^9}, 3.5680610124290867`*^9, {
   3.5683871389194546`*^9, 3.5683872031381283`*^9}, {3.5683872412343073`*^9, 
   3.5683874117150583`*^9}, {3.5691130016227345`*^9, 3.569113055828835*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"\[Mu]", " ", "n"}], "+", 
       RowBox[{"\[Gamma]", " ", "i"}], "-", 
       RowBox[{"\[Mu]", " ", "s"}], "-", 
       RowBox[{"\[Beta]", " ", "s", " ", 
        FractionBox["i", "n"]}]}], "\[Equal]", "0"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Beta]", " ", "s", " ", 
        FractionBox["i", "n"]}], "-", 
       RowBox[{"\[Mu]", " ", "e"}], "-", 
       RowBox[{"\[Epsilon]", " ", "e"}]}], "\[Equal]", "0"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[Epsilon]", " ", "e"}], "-", 
       RowBox[{"\[Mu]", " ", "i"}], "-", 
       RowBox[{"\[Gamma]", " ", "i"}]}], "\[Equal]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", "e", ",", "i"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5683975458096952`*^9, 3.568397612836529*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"s", "\[Rule]", "n"}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"i", "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"s", "\[Rule]", 
      FractionBox[
       RowBox[{"n", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}], 
       RowBox[{"\[Beta]", " ", "\[Epsilon]"}]]}], ",", 
     RowBox[{"e", "\[Rule]", 
      FractionBox[
       RowBox[{"n", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "-", 
          RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "-", 
          RowBox[{"\[Gamma]", " ", "\[Mu]"}], "-", 
          RowBox[{"\[Epsilon]", " ", "\[Mu]"}], "-", 
          SuperscriptBox["\[Mu]", "2"]}], ")"}]}], 
       RowBox[{"\[Beta]", " ", "\[Epsilon]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]]}], 
     ",", 
     RowBox[{"i", "\[Rule]", 
      FractionBox[
       RowBox[{"n", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "-", 
          RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "-", 
          RowBox[{"\[Gamma]", " ", "\[Mu]"}], "-", 
          RowBox[{"\[Epsilon]", " ", "\[Mu]"}], "-", 
          SuperscriptBox["\[Mu]", "2"]}], ")"}]}], 
       RowBox[{"\[Beta]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]]}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5683976045300536`*^9, 3.568397613247552*^9}, 
   3.568405866414606*^9, 3.568406108889475*^9, 3.5684062940460653`*^9, 
   3.568410034930032*^9, 3.56842536932089*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5684058695757875`*^9, 3.568405872266941*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"s", "\[Rule]", "n"}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"i", "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"s", "\[Rule]", 
      FractionBox[
       RowBox[{"n", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}], 
       RowBox[{"\[Beta]", " ", "\[Epsilon]"}]]}], ",", 
     RowBox[{"e", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"n", " ", 
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]}], ")"}]}], 
        RowBox[{"\[Beta]", " ", "\[Epsilon]", " ", 
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]]}]}],
      ",", 
     RowBox[{"i", "\[Rule]", 
      FractionBox[
       RowBox[{"n", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]}], ")"}]}], 
       RowBox[{"\[Beta]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]]}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5684058728259735`*^9, 3.5684061109565935`*^9, 
  3.56840629500012*^9, 3.568410037400173*^9, 3.568425371600925*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"J1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Mu]"}], "-", "\[Lambda]"}], ",", 
       RowBox[{
        RowBox[{"-", "\[Beta]"}], "+", "\[Gamma]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "\[Epsilon]"}], ",", 
       RowBox[{
        RowBox[{"-", "\[Epsilon]"}], "-", "\[Mu]", "-", "\[Gamma]", "-", 
        "\[Lambda]"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lam1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Lambda]", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "\[Lambda]"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Det", "[", 
      RowBox[{"J1", "-", "lam1"}], "]"}], "\[Equal]", "0"}], "}"}], ",", 
   "\[Lambda]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.568406297170244*^9, 3.568406372818571*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Lambda]", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "\[Gamma]"}], "-", "\[Epsilon]", "-", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["\[Gamma]", "2"], "+", 
          RowBox[{"4", " ", "\[Beta]", " ", "\[Epsilon]"}], "-", 
          RowBox[{"2", " ", "\[Gamma]", " ", "\[Epsilon]"}], "+", 
          SuperscriptBox["\[Epsilon]", "2"]}]], "-", 
        RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", "\[Rule]", 
     RowBox[{
      FractionBox["1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "\[Gamma]"}], "-", "\[Epsilon]", "+", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["\[Gamma]", "2"], "+", 
          RowBox[{"4", " ", "\[Beta]", " ", "\[Epsilon]"}], "-", 
          RowBox[{"2", " ", "\[Gamma]", " ", "\[Epsilon]"}], "+", 
          SuperscriptBox["\[Epsilon]", "2"]}]], "-", 
        RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.568406373214594*^9, 3.5684100524600344`*^9, 
  3.568425374165964*^9, 3.5684261771707983`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"J2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Mu]"}], "-", 
        RowBox[{
         FractionBox[
          RowBox[{"\[Beta]", " ", "\[Epsilon]"}], 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[Mu]", "+", "\[Epsilon]"}], ")"}], 
             RowBox[{"(", 
              RowBox[{"\[Mu]", "+", "\[Gamma]"}], ")"}]}], 
            RowBox[{"\[Beta]", " ", "\[Epsilon]"}]]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Mu]", "+", "\[Epsilon]"}], ")"}], 
           RowBox[{"(", 
            RowBox[{"\[Mu]", "+", "\[Gamma]"}], ")"}]}], "\[Epsilon]"]}], "+",
         "\[Gamma]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "\[Epsilon]"}], ",", 
       RowBox[{
        RowBox[{"-", "\[Epsilon]"}], "-", "\[Mu]", "-", "\[Gamma]"}]}], 
      "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Det", "[", 
      RowBox[{"J2", "-", "lam1"}], "]"}], "\[Equal]", "0"}], "}"}], ",", 
   "\[Lambda]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.568406529524534*^9, 3.5684067166532373`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Lambda]", "\[Rule]", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[Gamma]", "2"]}], "-", 
        RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "-", 
        RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "-", 
        SuperscriptBox["\[Epsilon]", "2"], "-", 
        RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "-", 
        RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "-", 
        SuperscriptBox["\[Mu]", "2"], "-", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[Gamma]", "2"], "+", 
              RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
              RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "+", 
              SuperscriptBox["\[Epsilon]", "2"], "+", 
              RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "+", 
              RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "+", 
              SuperscriptBox["\[Mu]", "2"]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", " ", "\[Gamma]", " ", "\[Epsilon]"}], "-", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], " ", "\[Epsilon]"}], "+", 
              RowBox[{"\[Beta]", " ", 
               SuperscriptBox["\[Epsilon]", "2"]}], "-", 
              RowBox[{"\[Gamma]", " ", 
               SuperscriptBox["\[Epsilon]", "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], " ", "\[Mu]"}], "+", 
              RowBox[{"\[Beta]", " ", "\[Epsilon]", " ", "\[Mu]"}], "-", 
              RowBox[{"3", " ", "\[Gamma]", " ", "\[Epsilon]", " ", "\[Mu]"}],
               "-", 
              RowBox[{
               SuperscriptBox["\[Epsilon]", "2"], " ", "\[Mu]"}], "-", 
              RowBox[{"2", " ", "\[Gamma]", " ", 
               SuperscriptBox["\[Mu]", "2"]}], "-", 
              RowBox[{"2", " ", "\[Epsilon]", " ", 
               SuperscriptBox["\[Mu]", "2"]}], "-", 
              SuperscriptBox["\[Mu]", "3"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
     "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", "\[Rule]", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[Gamma]", "2"]}], "-", 
        RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "-", 
        RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "-", 
        SuperscriptBox["\[Epsilon]", "2"], "-", 
        RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "-", 
        RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "-", 
        SuperscriptBox["\[Mu]", "2"], "+", 
        RowBox[{"\[Sqrt]", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[Gamma]", "2"], "+", 
              RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
              RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "+", 
              SuperscriptBox["\[Epsilon]", "2"], "+", 
              RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "+", 
              RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "+", 
              SuperscriptBox["\[Mu]", "2"]}], ")"}], "2"], "-", 
           RowBox[{"4", " ", 
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], 
            " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Beta]", " ", "\[Gamma]", " ", "\[Epsilon]"}], "-", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], " ", "\[Epsilon]"}], "+", 
              RowBox[{"\[Beta]", " ", 
               SuperscriptBox["\[Epsilon]", "2"]}], "-", 
              RowBox[{"\[Gamma]", " ", 
               SuperscriptBox["\[Epsilon]", "2"]}], "-", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], " ", "\[Mu]"}], "+", 
              RowBox[{"\[Beta]", " ", "\[Epsilon]", " ", "\[Mu]"}], "-", 
              RowBox[{"3", " ", "\[Gamma]", " ", "\[Epsilon]", " ", "\[Mu]"}],
               "-", 
              RowBox[{
               SuperscriptBox["\[Epsilon]", "2"], " ", "\[Mu]"}], "-", 
              RowBox[{"2", " ", "\[Gamma]", " ", 
               SuperscriptBox["\[Mu]", "2"]}], "-", 
              RowBox[{"2", " ", "\[Epsilon]", " ", 
               SuperscriptBox["\[Mu]", "2"]}], "-", 
              SuperscriptBox["\[Mu]", "3"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}],
     "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5684067184753413`*^9, {3.5684100478817725`*^9, 3.568410054719164*^9}, {
   3.5684261741332517`*^9, 3.5684261790520773`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5684067208024745`*^9, 3.568406723883651*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Lambda]", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[Gamma]", "2"], "+", 
        RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
        RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "+", 
        SuperscriptBox["\[Epsilon]", "2"], "+", 
        RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "+", 
        RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "+", 
        SuperscriptBox["\[Mu]", "2"], "+", 
        SqrtBox[
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], 
            "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]}], ")"}]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["\[Gamma]", "2"], "+", 
             RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], "+", 
             RowBox[{"\[Gamma]", " ", 
              RowBox[{"(", 
               RowBox[{"\[Epsilon]", "+", 
                RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], "2"]}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]]}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[Gamma]", "2"], "+", 
        RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
        RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "+", 
        SuperscriptBox["\[Epsilon]", "2"], "+", 
        RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "+", 
        RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "+", 
        SuperscriptBox["\[Mu]", "2"], "-", 
        SqrtBox[
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], 
            "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]}], ")"}]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["\[Gamma]", "2"], "+", 
             RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], "+", 
             RowBox[{"\[Gamma]", " ", 
              RowBox[{"(", 
               RowBox[{"\[Epsilon]", "+", 
                RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], "2"]}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]]}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5684067244956856`*^9, 3.5684100578243413`*^9, 
  3.568426181447114*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"Expand", "[", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Gamma]", "2"], "+", 
      RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
      RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "+", 
      SuperscriptBox["\[Epsilon]", "2"], "+", 
      RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "+", 
      RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "+", 
      SuperscriptBox["\[Mu]", "2"]}], ")"}], "2"], "]"}]}]], "Input",
 CellChangeTimes->{{3.568406964862434*^9, 3.568406998435354*^9}, {
  3.5684101217839994`*^9, 3.568410122934065*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Gamma]", "4"], "+", 
  RowBox[{"2", " ", "\[Beta]", " ", 
   SuperscriptBox["\[Gamma]", "2"], " ", "\[Epsilon]"}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["\[Gamma]", "3"], " ", "\[Epsilon]"}], "+", 
  RowBox[{
   SuperscriptBox["\[Beta]", "2"], " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], "+", 
  RowBox[{"2", " ", "\[Beta]", " ", "\[Gamma]", " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], "+", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[Gamma]", "2"], " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], "+", 
  RowBox[{"2", " ", "\[Beta]", " ", 
   SuperscriptBox["\[Epsilon]", "3"]}], "+", 
  RowBox[{"2", " ", "\[Gamma]", " ", 
   SuperscriptBox["\[Epsilon]", "3"]}], "+", 
  SuperscriptBox["\[Epsilon]", "4"], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["\[Gamma]", "3"], " ", "\[Mu]"}], "+", 
  RowBox[{
  "4", " ", "\[Beta]", " ", "\[Gamma]", " ", "\[Epsilon]", " ", "\[Mu]"}], 
  "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["\[Gamma]", "2"], " ", "\[Epsilon]", " ", "\[Mu]"}], "+", 
  RowBox[{"4", " ", "\[Beta]", " ", 
   SuperscriptBox["\[Epsilon]", "2"], " ", "\[Mu]"}], "+", 
  RowBox[{"8", " ", "\[Gamma]", " ", 
   SuperscriptBox["\[Epsilon]", "2"], " ", "\[Mu]"}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["\[Epsilon]", "3"], " ", "\[Mu]"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["\[Gamma]", "2"], " ", 
   SuperscriptBox["\[Mu]", "2"]}], "+", 
  RowBox[{"2", " ", "\[Beta]", " ", "\[Epsilon]", " ", 
   SuperscriptBox["\[Mu]", "2"]}], "+", 
  RowBox[{"10", " ", "\[Gamma]", " ", "\[Epsilon]", " ", 
   SuperscriptBox["\[Mu]", "2"]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["\[Epsilon]", "2"], " ", 
   SuperscriptBox["\[Mu]", "2"]}], "+", 
  RowBox[{"4", " ", "\[Gamma]", " ", 
   SuperscriptBox["\[Mu]", "3"]}], "+", 
  RowBox[{"4", " ", "\[Epsilon]", " ", 
   SuperscriptBox["\[Mu]", "3"]}], "+", 
  SuperscriptBox["\[Mu]", "4"]}]], "Output",
 CellChangeTimes->{3.568406998962384*^9, 3.568410123822116*^9, 
  3.568410154675881*^9, 3.568410184800604*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"b", "=", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], 
     " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]}], ")"}]}], "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Gamma]", "2"], "+", 
       RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], "+", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Epsilon]", "+", 
          RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], "2"]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5684071070735683`*^9, 3.5684071208153543`*^9}, {
  3.5684101267032804`*^9, 3.568410127134306*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Gamma]", "4"], "-", 
  RowBox[{"2", " ", "\[Beta]", " ", 
   SuperscriptBox["\[Gamma]", "2"], " ", "\[Epsilon]"}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["\[Gamma]", "3"], " ", "\[Epsilon]"}], "+", 
  RowBox[{
   SuperscriptBox["\[Beta]", "2"], " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], "-", 
  RowBox[{"6", " ", "\[Beta]", " ", "\[Gamma]", " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], "+", 
  RowBox[{"11", " ", 
   SuperscriptBox["\[Gamma]", "2"], " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], "-", 
  RowBox[{"2", " ", "\[Beta]", " ", 
   SuperscriptBox["\[Epsilon]", "3"]}], "+", 
  RowBox[{"6", " ", "\[Gamma]", " ", 
   SuperscriptBox["\[Epsilon]", "3"]}], "+", 
  SuperscriptBox["\[Epsilon]", "4"], "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["\[Gamma]", "3"], " ", "\[Mu]"}], "-", 
  RowBox[{
  "4", " ", "\[Beta]", " ", "\[Gamma]", " ", "\[Epsilon]", " ", "\[Mu]"}], 
  "+", 
  RowBox[{"28", " ", 
   SuperscriptBox["\[Gamma]", "2"], " ", "\[Epsilon]", " ", "\[Mu]"}], "-", 
  RowBox[{"4", " ", "\[Beta]", " ", 
   SuperscriptBox["\[Epsilon]", "2"], " ", "\[Mu]"}], "+", 
  RowBox[{"28", " ", "\[Gamma]", " ", 
   SuperscriptBox["\[Epsilon]", "2"], " ", "\[Mu]"}], "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["\[Epsilon]", "3"], " ", "\[Mu]"}], "+", 
  RowBox[{"18", " ", 
   SuperscriptBox["\[Gamma]", "2"], " ", 
   SuperscriptBox["\[Mu]", "2"]}], "-", 
  RowBox[{"2", " ", "\[Beta]", " ", "\[Epsilon]", " ", 
   SuperscriptBox["\[Mu]", "2"]}], "+", 
  RowBox[{"38", " ", "\[Gamma]", " ", "\[Epsilon]", " ", 
   SuperscriptBox["\[Mu]", "2"]}], "+", 
  RowBox[{"18", " ", 
   SuperscriptBox["\[Epsilon]", "2"], " ", 
   SuperscriptBox["\[Mu]", "2"]}], "+", 
  RowBox[{"16", " ", "\[Gamma]", " ", 
   SuperscriptBox["\[Mu]", "3"]}], "+", 
  RowBox[{"16", " ", "\[Epsilon]", " ", 
   SuperscriptBox["\[Mu]", "3"]}], "+", 
  RowBox[{"5", " ", 
   SuperscriptBox["\[Mu]", "4"]}]}]], "Output",
 CellChangeTimes->{
  3.5684071218274117`*^9, {3.5684101275713305`*^9, 3.568410156250971*^9}, 
   3.5684101866807117`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"a", ">", "b"}], "]"}]], "Input",
 CellChangeTimes->{{3.5684076318795853`*^9, 3.56840786221976*^9}, {
  3.5684080031318197`*^9, 3.568408004582903*^9}, {3.5684094678455963`*^9, 
  3.568409497994321*^9}, {3.568409533453349*^9, 3.5684095337723675`*^9}, {
  3.5684101433852353`*^9, 3.568410182565476*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]}], ")"}]}], "<", 
  "0"}]], "Output",
 CellChangeTimes->{
  3.5684078682111025`*^9, 3.5684080053509464`*^9, {3.5684094597831354`*^9, 
   3.5684095342113924`*^9}, {3.568410150921666*^9, 3.5684101881637964`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Gamma]", "2"], "+", 
     RowBox[{"2", " ", "\[Gamma]", " ", "\[Epsilon]"}], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"]}], ")"}]], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5684081310731373`*^9, 3.568408167187203*^9}}],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], 
  RowBox[{
   SuperscriptBox["\[Gamma]", "2"], "+", 
   RowBox[{"2", " ", "\[Gamma]", " ", "\[Epsilon]"}], "+", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.5684081678832426`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]1", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", "2"], "+", 
      RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
      RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "+", 
      SuperscriptBox["\[Epsilon]", "2"], "+", 
      RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "+", 
      RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "+", 
      SuperscriptBox["\[Mu]", "2"], "+", 
      SqrtBox[
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"],
          " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "2"], "+", 
           RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], "+", 
           RowBox[{"\[Gamma]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Epsilon]", "+", 
              RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], "2"]}]]}], 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]2", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[Gamma]", "2"], "+", 
      RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
      RowBox[{"\[Gamma]", " ", "\[Epsilon]"}], "+", 
      SuperscriptBox["\[Epsilon]", "2"], "+", 
      RowBox[{"2", " ", "\[Gamma]", " ", "\[Mu]"}], "+", 
      RowBox[{"2", " ", "\[Epsilon]", " ", "\[Mu]"}], "+", 
      SuperscriptBox["\[Mu]", "2"], "-", 
      SqrtBox[
       RowBox[{
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"],
          " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]}], ")"}]}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "2"], "+", 
           RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], "+", 
           RowBox[{"\[Gamma]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Epsilon]", "+", 
              RowBox[{"2", " ", "\[Mu]"}]}], ")"}]}]}], ")"}], "2"]}]]}], 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Epsilon]", "+", "\[Mu]"}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   FractionBox[
    RowBox[{"\[Beta]", " ", "\[Epsilon]"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Mu]", "+", "\[Epsilon]"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"\[Mu]", "+", "\[Gamma]"}], ")"}]}]]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e1", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]", "+", "\[Epsilon]"}], ")"}]], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", "r0"]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]", "+", "\[Epsilon]"}], ")"}]], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", "r0"]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Zeta]", "=", 
     RowBox[{
      RowBox[{"4", " ", "\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"], 
       "\[IndentingNewLine]", "diff"}], "=", 
      RowBox[{
       RowBox[{"\[Beta]", "-", 
        RowBox[{"\[Gamma]", "\[IndentingNewLine]", "\[Delta]"}]}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Nu]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
           RowBox[{"4", " ", "\[Nu]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}], "]"}], 
         "\[IndentingNewLine]", "\[Lambda]1"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[Nu]"}], 
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "\[IndentingNewLine]", 
          "n"}], "=", "1"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Mu]"}], "+", 
      RowBox[{"\[Gamma]", " ", "i"}], "-", 
      RowBox[{"\[Mu]", " ", "s"}], "-", 
      RowBox[{"\[Beta]", " ", "s", " ", 
       FractionBox["i", "1"]}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s", "-", "i"}], ")"}]}], "-", 
      RowBox[{"\[Mu]", " ", "i"}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "1.3"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "0.33"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"e2", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "+", "1.2"}]}], "}"}], ",", 
   RowBox[{"VectorScale", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "Automatic", ",", "None"}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<Infected (\!\(\*\n\
StyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\))\>\"", ",", "\"\<\>\""}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<Susceptible \>\"", "[", "S", "]"}], ",", "\"\<\>\""}], 
       "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.565658124509137*^9, 3.565658245748071*^9}, {
   3.5656582796350093`*^9, 3.5656583781846457`*^9}, {3.5656584203400574`*^9, 
   3.5656584398001704`*^9}, {3.565658509662166*^9, 3.5656585999593306`*^9}, {
   3.5656586525263376`*^9, 3.5656586645560255`*^9}, {3.565658698216951*^9, 
   3.565658729194723*^9}, {3.565659251972624*^9, 3.5656593843011928`*^9}, {
   3.565659433853027*^9, 3.565659454761223*^9}, {3.5657188028221235`*^9, 
   3.5657188034091573`*^9}, {3.565718950375563*^9, 3.56571895136162*^9}, {
   3.565719026149897*^9, 3.56571907183751*^9}, 3.5657191162680516`*^9, {
   3.5657192007608843`*^9, 3.565719201699938*^9}, {3.565719407568713*^9, 
   3.5657194129880233`*^9}, {3.565719483283044*^9, 3.5657194884823413`*^9}, {
   3.5657195457726183`*^9, 3.5657196382689085`*^9}, {3.5657196686636467`*^9, 
   3.565719721795686*^9}, {3.565719872141285*^9, 3.5657199409272194`*^9}, {
   3.5657200764059687`*^9, 3.565720126157814*^9}, {3.565721225169674*^9, 
   3.5657212254276886`*^9}, 3.5657213654927*^9, {3.565721513162146*^9, 
   3.565721650479*^9}, {3.5657258281599503`*^9, 3.5657258541014338`*^9}, {
   3.5657258905655193`*^9, 3.5657259023331923`*^9}, {3.565725964755763*^9, 
   3.5657260187628517`*^9}, {3.565726052871803*^9, 3.5657260828625183`*^9}, {
   3.565726144282031*^9, 3.5657261452310853`*^9}, {3.5657262074026413`*^9, 
   3.5657262485949974`*^9}, 3.56572628867729*^9, {3.5657304128491793`*^9, 
   3.565730424073821*^9}, {3.5683949279159603`*^9, 3.568395008372562*^9}, {
   3.5683950621106358`*^9, 3.568395231218308*^9}, {3.5684016631151915`*^9, 
   3.5684020351164684`*^9}, {3.5684020660262365`*^9, 3.568402100693219*^9}, {
   3.568402138310371*^9, 3.5684021631877937`*^9}, {3.5684030768040495`*^9, 
   3.5684031121130695`*^9}, {3.5684048012136803`*^9, 
   3.5684048013636885`*^9}, {3.568404878777117*^9, 3.5684049220855937`*^9}, {
   3.568405097586632*^9, 3.568405219320595*^9}, {3.5684055931729774`*^9, 
   3.568405594461052*^9}, 3.5684056356184053`*^9, {3.568408726346185*^9, 
   3.5684087703397017`*^9}, {3.568408844897966*^9, 3.5684088976269817`*^9}, {
   3.5684090646495347`*^9, 3.568409068205738*^9}, {3.5684096018992643`*^9, 
   3.5684096428516064`*^9}, {3.5684096978927546`*^9, 
   3.5684097086503696`*^9}, {3.5684102866574297`*^9, 3.568410397054744*^9}, {
   3.568410596625159*^9, 3.5684106254858093`*^9}, {3.568426947813635*^9, 
   3.568426962907617*^9}, {3.5684270581653304`*^9, 3.568427202810052*^9}, 
   3.568427273119882*^9}],

Cell[BoxData["0.7499999999999999`"], "Output",
 CellChangeTimes->{{3.56840207325465*^9, 3.568402101068241*^9}, {
   3.5684021389824095`*^9, 3.5684021643048577`*^9}, {3.568403077625097*^9, 
   3.5684031125800962`*^9}, 3.568404802552757*^9, {3.56840488338838*^9, 
   3.568404922730631*^9}, 3.568405123969141*^9, {3.568405154070863*^9, 
   3.5684052202246466`*^9}, 3.5684055948730755`*^9, 3.568405636894479*^9, 
   3.5684089087666187`*^9, 3.5684091144873857`*^9, {3.5684096208243465`*^9, 
   3.568409643508644*^9}, {3.5684096982677755`*^9, 3.568409709408413*^9}, {
   3.56841028718746*^9, 3.5684102925787687`*^9}, {3.568410328113801*^9, 
   3.568410397444766*^9}, {3.5684105979622355`*^9, 3.5684106259108343`*^9}, {
   3.56842703601999*^9, 3.568427203240059*^9}, 3.5684272736211395`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.3333333333333335`", ",", 
   RowBox[{"-", "0.1333333333333334`"}], ",", 
   RowBox[{"-", "0.2000000000000001`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.56840207325465*^9, 3.568402101068241*^9}, {
   3.5684021389824095`*^9, 3.5684021643048577`*^9}, {3.568403077625097*^9, 
   3.5684031125800962`*^9}, 3.568404802552757*^9, {3.56840488338838*^9, 
   3.568404922730631*^9}, 3.568405123969141*^9, {3.568405154070863*^9, 
   3.5684052202246466`*^9}, 3.5684055948730755`*^9, 3.568405636894479*^9, 
   3.5684089087666187`*^9, 3.5684091144873857`*^9, {3.5684096208243465`*^9, 
   3.568409643508644*^9}, {3.5684096982677755`*^9, 3.568409709408413*^9}, {
   3.56841028718746*^9, 3.5684102925787687`*^9}, {3.568410328113801*^9, 
   3.568410397444766*^9}, {3.5684105979622355`*^9, 3.5684106259108343`*^9}, {
   3.56842703601999*^9, 3.568427203240059*^9}, 3.5684272736236396`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.049785948776168626`, -0.2525944264156208}, {
      0.016880717890498245`, -0.1474055735843794}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.05052705899250255, -0.16664254805987597`}, {
      0.016139607674164322`, -0.061928880511552785`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.05146199637977056, -0.08061193030850558}, {
      0.015204670286896312`, 0.023469073165648245`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.05267676983223131, 0.005541561526263623}, {
      0.013989896834435564`, 0.10874415275945049`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.054315591970448586`, 0.09190022902414885}, {
      0.012351074696218288`, 0.19381405669013668`}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.056637592678990295`, 0.17863372997359236`}, {
      0.010029073987676579`, 0.27850912716926457`}}]}, 
    {Arrowheads[{{0.051015500891969254`, 1.}}], 
     ArrowBox[{{0.06014874225245505, 0.26614221950814065`}, {
      0.006517924414211822, 0.3624292090632877}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.0659220442600203, 0.35556084873633603`}, {
      0.0007446224066465779, 0.4444391512636638}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.07609677211778161, 
      0.45095582561855196`}, {-0.009430105451114737, 0.5204727458100193}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.08823973852099884, 
      0.5667223081267715}, {-0.021573071854331972`, 0.5761348347303712}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.07392182582813364, 
      0.6944180033115512}, {-0.007255159161466761, 0.6198677109741632}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.054566618332608535`, 0.7937099682755748}, {
      0.012100048334058339`, 0.6920043174387109}}]}, 
    {Arrowheads[{{0.0510155008919693, 1.}}], 
     ArrowBox[{{0.044617351891139745`, 0.8825115172818214}, {
      0.02204931477552713, 0.7746313398610358}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.03923389464321257, 0.969076640734592}, {
      0.027432772023454306`, 0.8594947878368367}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.035954540891092866`, 1.0550453587129478`}, {
      0.030712125775574008`, 0.9449546412870521}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.12043739416513645`, -0.25214756726120074`}, {
      0.08480070107295899, -0.14785243273879944`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.12154548607145596`, -0.16604141129005548`}, {
      0.08369260916663948, -0.06253001728137328}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.12295038484274817`, -0.07979153176923695}, {
      0.08228771039534727, 0.02264867462637963}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.12478452122208607`, 0.00668937336967277}, {
      0.08045357401600937, 0.10759634091604134`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.1272670264576499, 0.09356881377134622}, {
      0.07797106878044555, 0.1921454719429393}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.1307778836779474, 0.18120116156029617`}, {
      0.07446021156014804, 0.27594169558256076`}}]}, 
    {Arrowheads[{{0.05101550089196926, 1.}}], 
     ArrowBox[{{0.13599094074898124`, 0.27043164955025034`}, {
      0.0692471544891142, 0.358139779021178}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.14394749834834702`, 0.3635469973086737}, {
      0.06129059688974842, 0.43645300269132614`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.1543392123604192, 0.46669096308065106`}, {
      0.05089888287767625, 0.5047376083479203}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.15602507420837572`, 0.585017484881749}, {
      0.04921302102971972, 0.5578396579753938}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.14114468110888578`, 0.6965463824813929}, {
      0.06409341412920966, 0.6177393318043215}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.127308427369178, 0.7921247465379778}, {0.07792966786891745, 
      0.6935895391763081}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.11875006124099903`, 0.8812653812076314}, {
      0.08648803399709641, 0.7758774759352259}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.11342994869891095`, 0.968322615221458}, {0.0918081465391845,
       0.8602488133499707}}]}, 
    {Arrowheads[{{0.05101550089196926, 1.}}], 
     ArrowBox[{{0.1099056127906662, 1.0546238795115992`}, {
      0.09533248244742924, 0.9453761204884007}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.19120937896002677`, -0.25161583095570145`}, {
      0.15260014484949724`, -0.14838416904429874`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.1927250515423271, -0.16530902057123315`}, {
      0.1510844722671969, -0.06326240800019563}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.19465302647769306`, -0.0787648415239057}, {
      0.14915649733183095`, 0.021621984381048363`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.197173581443981, 0.008169915593544921}, {0.146635942365543, 
      0.10611579869216918`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.20057283509227822`, 0.09579331572193017}, {
      0.1432366887172458, 0.18992096999235533`}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.20529989779713684`, 0.18473506075168575`}, {
      0.13850962601238717`, 0.2724077963911712}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.2119515768537868, 0.2764292107845121}, {
      0.13185794695573722`, 0.35214221778691623`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.22054572008330123`, 0.37409788749210676`}, {
      0.12326380372622278`, 0.4259021125078931}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.22689537139958613`, 0.48212330920562974`}, {
      0.11691415240993788`, 0.4893052622229416}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.22181957765156562`, 0.5947818027651681}, {
      0.12198994615795837`, 0.5480753400919747}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.2093081450795819, 0.6976132064368225}, {0.1345013787299421, 
      0.6166725078488918}}]}, 
    {Arrowheads[{{0.05101550089196924, 1.}}], 
     ArrowBox[{{0.19870081258731642`, 0.7910114148661342}, {
      0.1451087112222076, 0.6947028708481515}}]}, 
    {Arrowheads[{{0.0510155008919693, 1.}}], 
     ArrowBox[{{0.19142425279510764`, 0.880106384865964}, {0.1523852710144164,
       0.7770364722768932}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.1864694595512137, 0.9674339205335776}, {
      0.15734006425831032`, 0.8611375080378512}}]}, 
    {Arrowheads[{{0.05101550089196926, 1.}}], 
     ArrowBox[{{0.18297154926532436`, 1.053985076293491}, {
      0.16083797454419965`, 0.9460149237065089}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.26211413775507364`, -0.250981002654206}, {
      0.22026681462587894`, -0.14901899734579419`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.2640797664766966, -0.16441497355703313`}, {
      0.21830118590425596`, -0.06415645501439562}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.26658196760770997`, -0.0774808796878183}, {
      0.2157989847732426, 0.02033802254496097}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.2698413844270582, 0.010068578581025417`}, {
      0.21253956795389436`, 0.10421713570468868`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.2741761673381221, 0.09871185517646183}, {0.2082047850428305,
       0.18700243053782373`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.2799724177868984, 0.18942014186320313`}, {
      0.20240853459405417`, 0.26772271527965386`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.28731749516831806`, 0.28413342805206715`}, {
      0.1950634572126345, 0.34443800051936124`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.29442906148480774`, 0.3857692136283282}, {
      0.18795189089614486`, 0.4142307863716716}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.2956584770675601, 0.4940868077567744}, {0.1867224753133925, 
      0.477341763671797}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.2881472594627841, 0.6002716425135907}, {0.1942336929181685, 
      0.5425855003435521}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.27789066712362176`, 0.6982519586943217}, {
      0.2044902852573308, 0.6160337555913926}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.2693967879146257, 0.7901991561626421}, {
      0.21298416446632693`, 0.6955151295516435}}]}, 
    {Arrowheads[{{0.05101550089196926, 1.}}], 
     ArrowBox[{{0.2631819333631418, 0.8791010046266537}, {
      0.21919901901781078`, 0.7780418525162036}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.25867728718499355`, 0.9665453898122615}, {0.223703665195959,
       0.8620260387591672}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.25534011988049643`, 1.0532602086772427`}, {
      0.22704083250045615`, 0.9467397913227574}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.333164316449283, -0.2502206250929542}, {
      0.2877880645030981, -0.14977937490704604`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.3356220276904221, -0.1633219163785899}, {
      0.28533035326195905`, -0.06524951219283887}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.33874152269897956`, -0.07587822765182858}, {
      0.28221085825340164`, 0.018735370508971255`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.34276095510419297`, 0.012482402400294856`}, {
      0.27819142584818823`, 0.10180331188541925`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.3479546881699747, 0.10245634514824875`}, {
      0.27299769278240643`, 0.18325794056603675`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.3544269203020044, 0.1953269464326392}, {
      0.26652546065037674`, 0.26181591071021776`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.36133351878060077`, 0.2930632167268641}, {
      0.2596188621717804, 0.33550821184456425`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.3654877024066392, 0.3967448809508609}, {
      0.25546467854574195`, 0.40325511904913885`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.362968041937438, 0.5024912870872456}, {0.25798433901494316`,
       0.4689372843413257}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.3551790178869753, 0.6036546395470923}, {
      0.26577336306540583`, 0.5392025033100505}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.3466950217751035, 0.6986766807597462}, {0.2742573591772777, 
      0.6156090335259682}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.33968989726164633`, 0.7895842397148696}, {
      0.28126248369073487`, 0.6961300459994161}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.3343376348334884, 0.8782453021679334}, {0.2866147461188927, 
      0.7788975549749237}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.33028164053186687`, 0.9657114509648332}, {
      0.2906707404205143, 0.8628599776065955}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.3271639265145186, 1.0525202980838175`}, {0.2937884544378626,
       0.9474797019161825}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.40437235431870755`, -0.24930707877688596`}, {
      0.3551514552051021, -0.15069292122311423`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.40736057071516046`, -0.16198451807049047`}, {
      0.35216323880864925`, -0.06658691050093829}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.4111228155971069, -0.07388539459167973}, {
      0.3484009939267029, 0.01674253744882239}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.41586904226134225`, 0.015511896710809832`}, {
      0.34365476726246746`, 0.09877381757490428}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.42170705836952344`, 0.10711548181947915`}, {
      0.3378167511542863, 0.17859880389480637`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.42821371880552095`, 0.20231721060972171`}, {
      0.33131009071828876`, 0.2548256465331352}}]}, 
    {Arrowheads[{{0.051015500891969316`, 1.}}], 
     ArrowBox[{{0.4335620117102085, 0.30235211729029593`}, {
      0.32596179781360124`, 0.32621931128113246`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.4345480195813351, 0.4059450708902553}, {
      0.32497578994247456`, 0.39405492910974455`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.4300228955674899, 0.5083128486805198}, {
      0.32950091395631975`, 0.4631157227480514}}]}, 
    {Arrowheads[{{0.05101550089196923, 1.}}], 
     ArrowBox[{{0.42275072115337564`, 0.6059078972653444}, {
      0.33677308837043407`, 0.5369492455917984}}]}, 
    {Arrowheads[{{0.05101550089196932, 1.}}], 
     ArrowBox[{{0.4156307227711309, 0.6989793261563744}, {0.3438930867526789, 
      0.6153063881293399}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.40973006895288294`, 0.7891039955059507}, {
      0.3497937405709268, 0.6966102902083351}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.40508120832890765`, 0.8775182886523359}, {
      0.3544426011949021, 0.7796245684905213}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.401440898369402, 0.9649501345534334}, {0.3580829111544077, 
      0.8636212940179954}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.39856146360487016`, 1.0518019191942523`}, {
      0.3609623459189396, 0.9481980808057476}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.475749445598703, -0.24820658361400236`}, {
      0.4223457924965353, -0.15179341638599783`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.4792973978063249, -0.16034885714361446`}, {
      0.41879784028891337`, -0.0682225714278143}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.48369658778073765`, -0.07142363050586063}, {
      0.4143986503145006, 0.014280773363003305`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.489054920451576, 0.019244597561829994`}, {
      0.4090403176436622, 0.0950411167238841}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.49516175336919266`, 0.11268515484392372`}, {
      0.4029334847260456, 0.17302913087036179`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.5009356324772815, 0.21001081685680165`}, {
      0.3971596056179568, 0.24713204028605532`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.5040645888816032, 0.3111241837727436}, {
      0.39403064921363506`, 0.3174472447986847}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.5025537425364255, 0.41318927572304714`}, {
      0.39554149555881274`, 0.38681072427695273`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.497246943475703, 0.5124292135557431}, {0.4008482946195353, 
      0.4589993578728282}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.49070806312206916`, 0.6075016866865801}, {
      0.4073871749731691, 0.5353554561705627}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.4846505356929753, 0.6992058405277977}, {
      0.41344470240226305`, 0.6150798737579166}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.4796014286209573, 0.7887191856098829}, {0.418493809474281, 
      0.6969951001044029}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.4755322077659263, 0.876897703053537}, {0.422563030329312, 
      0.7802451540893203}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.472265751533847, 0.9642635150451508}, {0.4258294865613913, 
      0.8643079135262779}}]}, 
    {Arrowheads[{{0.051015500891969344`, 1.}}], 
     ArrowBox[{{0.4696231670092217, 1.051122490852635}, {0.4284720710860166, 
      0.9488775091473649}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.547303891435126, -0.2468782359754356}, {
      0.48936277523154076`, -0.1531217640245646}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.5514234432036699, -0.15835278672837866`}, {
      0.485243223462997, -0.0702186418430501}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.5564049390019544, -0.06841380659672966}, {
      0.4802617276647125, 0.011270949453872331`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.562155765483698, 0.02372943640620309}, {0.4745109011829689, 
      0.09055627787951101}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.5680218565780352, 0.11902621961320001`}, {
      0.4686448100886316, 0.16668806610108552`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.5723925917232028, 0.2178728853418436}, {
      0.46427407494346407`, 0.2392699718010134}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.5732538457908355, 0.31882438769358507`}, {
      0.4634128208758313, 0.3097470408778433}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.570149812434908, 0.41875939067278134`}, {0.4665168542317588,
       0.3812406093272185}}]}, 
    {Arrowheads[{{0.051015500891969316`, 1.}}], 
     ArrowBox[{{0.5647429644012433, 0.5154297427869685}, {0.4719237022654236, 
      0.45599882864160274`}}]}, 
    {Arrowheads[{{0.05101550089196924, 1.}}], 
     ArrowBox[{{0.5589413621108337, 0.6086824335599487}, {0.4777253045558332, 
      0.5341747092971941}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.5537274250618666, 0.6993817079275334}, {
      0.48293924160480034`, 0.614904006358181}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.5493546791581835, 0.7884042431832121}, {
      0.48731198750848337`, 0.6973100425310736}}]}, 
    {Arrowheads[{{0.05101550089196926, 1.}}], 
     ArrowBox[{{0.5457689434273165, 0.8763642056791558}, {0.4908977232393504, 
      0.7807786514637015}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.5428347073290473, 0.9636470849840663}, {0.4938319593376196, 
      0.8649243435873624}}]}, 
    {Arrowheads[{{0.05101550089196923, 1.}}], 
     ArrowBox[{{0.5404178254114417, 1.050488983496897}, {0.4962488412552252, 
      0.9495110165031031}}]}, 
    {Arrowheads[{{0.05101550089196931, 1.}}], 
     ArrowBox[{{0.6190386132657821, -0.24527331597606383`}, {
      0.5561994819723133, -0.15472668402393636`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.6237129316130913, -0.15592816598013895`}, {
      0.5515251636250041, -0.07264326259128981}}]}, 
    {Arrowheads[{{0.05101550089196932, 1.}}], 
     ArrowBox[{{0.6291540259833219, -0.06478893562502411}, {
      0.5460840692547735, 0.007646078482166779}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.6349667800086557, 0.028946146652801274`}, {
      0.5402713152294396, 0.08533956763291282}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.6400403590596788, 0.1258610153057764}, {0.5351977361784166, 
      0.1598532704085091}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.6426345557323956, 0.2253845630380057}, {0.5326035395056999, 
      0.23175829410485124`}}]}, 
    {Arrowheads[{{0.05101550089196931, 1.}}], 
     ArrowBox[{{0.6416199893766705, 0.3252748240853198}, {0.5336181058614249, 
      0.30329660448610846`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.6376803584873124, 0.42303752154744334`}, {0.537557736750783,
       0.3769624784525565}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.632504936581481, 0.5176848849728243}, {0.5427331586566144, 
      0.4537436864557471}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.6273759494551101, 0.6095894283541655}, {0.5478621457829854, 
      0.5332677145029774}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.6228448102577845, 0.6995221904483415}, {0.552393284980311, 
      0.6147635238373728}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.6190221406331612, 0.7881418863591756}, {0.5562159546049341, 
      0.6975723993551102}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.61584453637762, 0.8759020109599612}, {0.5593935588604755, 
      0.7812408461828961}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.6132044229847, 0.9630940210817571}, {0.5620336722533953, 
      0.8654774074896717}}]}, 
    {Arrowheads[{{0.05101550089196926, 1.}}], 
     ArrowBox[{{0.6109979571208742, 1.0499027938637042`}, {0.5642401381172212,
       0.9500972061362957}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.6909475997250432, -0.2433352909075271}, {
      0.6228619240844808, -0.1566647090924731}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.6961168821480187, -0.15300614650084252`}, {
      0.6176926416615052, -0.07556528207058624}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7018115592466947, -0.06051265267741026}, {
      0.6119979645628292, 0.0033697955345529315`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.7072717746869898, 0.03478158999868865}, {0.6065377491225342,
       0.07950412428702545}}]}, 
    {Arrowheads[{{0.0510155008919693, 1.}}], 
     ArrowBox[{{0.7110919796885944, 0.13282680518857584`}, {
      0.6027175441209295, 0.15288748052570972`}}]}, 
    {Arrowheads[{{0.05101550089196924, 1.}}], 
     ArrowBox[{{0.7118939421043458, 0.23218422608522002`}, {
      0.6019155817051782, 0.22495863105763697`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.7095588594430948, 0.33054634949230105`}, {
      0.6042506643664292, 0.2980250790791273}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.7053009299180519, 0.42635665317386423`}, {0.608508593891472,
       0.3736433468261356}}]}, 
    {Arrowheads[{{0.05101550089196925, 1.}}], 
     ArrowBox[{{0.7004970451638877, 0.5194274149839649}, {0.6133124786456363, 
      0.45200115644460637`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.695960697515738, 0.6103065361187305}, {0.617848826293786, 
      0.5325506067384124}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.6919919611830336, 0.6996369825216058}, {0.6218175626264903, 
      0.6146487317641084}}]}, 
    {Arrowheads[{{0.05101550089196925, 1.}}], 
     ArrowBox[{{0.6886253636315391, 0.7879200507858278}, {0.6251841601779848, 
      0.6977942349284579}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.6857961413179752, 0.8754985043433081}, {0.6280133824915488, 
      0.7816443527995491}}]}, 
    {Arrowheads[{{0.0510155008919693, 1.}}], 
     ArrowBox[{{0.6834165209494312, 0.9625970884874007}, {0.6303930028600927, 
      0.8659743400840281}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.6814039541150785, 1.0493624536053459`}, {0.6324055696944455,
       0.950637546394654}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7630111675216307, -0.241001206504124}, {
      0.6893697848593219, -0.1589987934958762}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.7685571352078585, -0.14952671950127003`}, {
      0.6838238171730939, -0.07904470907015873}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7742141518958245, -0.055600835088137485`}, {
      0.678166800485128, -0.0015420220547198472`}}]}, 
    {Arrowheads[{{0.05101550089196924, 1.}}], 
     ArrowBox[{{0.778889744898219, 0.041029219360932186`}, {
      0.6734912074827335, 0.07325649492478192}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7811998437475398, 0.13956598411441246`}, {
      0.6711811086334128, 0.14614830159987305`}}]}, 
    {Arrowheads[{{0.05101550089196931, 1.}}], 
     ArrowBox[{{0.7804669637401046, 0.23810689626698503`}, {0.671913988640848,
       0.2190359608758719}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.7773316421977546, 0.33481480058574126`}, {0.675049310183198,
       0.29375662798568714`}}]}, 
    {Arrowheads[{{0.051015500891969316`, 1.}}], 
     ArrowBox[{{0.7730690975238489, 0.4289699345318594}, {0.6793118548571037, 
      0.37103006546814044`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7686802356468369, 0.5208067718935032}, {0.6837007167341157, 
      0.4506217995350681}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7646599246784541, 0.6108869517542864}, {0.6877210277024984, 
      0.5319701911028563}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7611616286195261, 0.6997325359709737}, {0.6912193237614265, 
      0.6145531783147405}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7581792580993473, 0.7877300754210466}, {0.6942016942816053, 
      0.6979842102932392}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.7556504494634902, 0.8751436544109916}, {0.6967305029174624, 
      0.7819992027318655}}]}, 
    {Arrowheads[{{0.05101550089196931, 1.}}], 
     ArrowBox[{{0.7535021085887467, 0.962149447744772}, {0.6988788437922059, 
      0.8664219808266568}}]}, 
    {Arrowheads[{{0.05101550089196925, 1.}}], 
     ArrowBox[{{0.7516671657796262, 1.0488651259332875`}, {0.7007137866013263,
       0.9511348740667124}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.8351902406513765, -0.2382054507051125}, {
      0.7557621403010046, -0.16179454929488768`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.8409235613632446, -0.14545298436752468`}, {
      0.7500288195891365, -0.08311844420390409}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.8461881300008978, -0.050139030073227536`}, {
      0.7447642509514834, -0.007003827069629796}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.8497195613581022, 0.047420770933337}, {0.741232819594279, 
      0.06686494335237711}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.8505050080206595, 0.14580527524146622`}, {
      0.7404473729317215, 0.13990901047281934`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.8486227203401273, 0.2431422421492502}, {0.7423296606122537, 
      0.21400061499360679`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.8450896800775499, 0.3382724584264634}, {0.7458627008748313, 
      0.29029897014496486`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.8409965310788066, 0.4310605994198402}, {0.7499558498735744, 
      0.3689394005801596}}]}, 
    {Arrowheads[{{0.05101550089196925, 1.}}], 
     ArrowBox[{{0.8370200517012629, 0.5219216031985993}, {0.7539323292511182, 
      0.449506968229972}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.8334481735838849, 0.611365906639711}, {0.7575042073684963, 
      0.5314912362174317}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.8303487393653615, 0.6998133103730532}, {0.7606036415870198, 
      0.6144724039126611}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.8276944622578821, 0.7875655895792}, {0.763257918694499, 
      0.6981486961350858}}]}, 
    {Arrowheads[{{0.05101550089196924, 1.}}], 
     ArrowBox[{{0.825427088782234, 0.8748294650143971}, {0.7655252921701471, 
      0.7823133921284602}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.8234848130118133, 0.9617449526756735}, {0.7674675679405679, 
      0.8668264758957553}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.8218121629611161, 1.0484074250314062`}, {0.7691402179912651,
       0.951592574968594}}]}, 
    {Arrowheads[{{0.05101550089196926, 1.}}], 
     ArrowBox[{{0.9074205183183881, -0.23488703103356018`}, {
      0.8221032912054217, -0.16511296896644004`}}]}, 
    {Arrowheads[{{0.05101550089196933, 1.}}], 
     ArrowBox[{{0.9130781579114151, -0.14078858066824748`}, {
      0.8164456516123946, -0.08778284790318128}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.91758170018612, -0.04428548139818294}, {
      0.8119421093376897, -0.012857375744674389`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.9197607933344913, 0.05368099338496966}, {0.8097630161893183,
       0.060604720900744445`}}]}, 
    {Arrowheads[{{0.05101550089196923, 1.}}], 
     ArrowBox[{{0.9192051294089973, 0.1513892900033289}, {0.8103186801148123, 
      0.13432499571095663`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.9165647837873563, 0.2473683424024912}, {0.8129590257364533, 
      0.20977451474036576`}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.912911692499092, 0.3410898219142434}, {0.8166121170247177, 
      0.2874816066571849}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.9090753004732715, 0.43275950557358567`}, {
      0.8204485090505383, 0.3672404944264141}}]}, 
    {Arrowheads[{{0.05101550089196931, 1.}}], 
     ArrowBox[{{0.9054881225574128, 0.5228389059678425}, {0.8240356869663967, 
      0.4485896654607288}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.9023068834135296, 0.6117675950031077}, {0.8272169261102801, 
      0.5310895478540351}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.8995496371302786, 0.6998824865465424}, {0.8299741723935311, 
      0.6144032277391718}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.8971787670141883, 0.7874218069601566}, {0.8323450425096214, 
      0.6982924787541293}}]}, 
    {Arrowheads[{{0.05101550089196925, 1.}}], 
     ArrowBox[{{0.8951407925653562, 0.874549525756102}, {0.8343830169584535, 
      0.7825933313867552}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.8933828502795939, 0.9613782160516159}, {0.8361409592442158, 
      0.8671932125198129}}]}, 
    {Arrowheads[{{0.05101550089196932, 1.}}], 
     ArrowBox[{{0.891858395827652, 1.0479858564248035`}, {0.8376654136961577, 
      0.9520141435751966}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.9796084472517177, -0.23100118027196037`}, {
      0.8884867908435207, -0.16899881972803982`}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{0.9848692605047962, -0.13559352985878756`}, {
      0.8832259775904421, -0.0929778987126412}}]}, 
    {Arrowheads[{{0.05101550089196931, 1.}}], 
     ArrowBox[{{0.9882982838891984, -0.03825273060909892}, {
      0.8797969542060399, -0.018890126533758406`}}]}, 
    {Arrowheads[{{0.05101550089196924, 1.}}], 
     ArrowBox[{{0.9891013803262576, 0.05958122011268738}, {0.8789938577689806,
       0.054704494173026724`}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.9874982607500576, 0.15626949337804322`}, {
      0.8805969773451806, 0.12944479233624231`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.9844299100995957, 0.2508982508543215}, {0.8836653279956427, 
      0.20624460628853547`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.9808333693721539, 0.3434053951127467}, {0.8872618687230842, 
      0.28516603345868163`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.9772903296940381, 0.4341603603735095}, {0.8908049084012002, 
      0.3658396396264903}}]}, 
    {Arrowheads[{{0.05101550089196932, 1.}}], 
     ArrowBox[{{0.9740616690002191, 0.5236054199185926}, {0.8940335690950191, 
      0.44782315150997876`}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.9712222458203641, 0.6121091487254224}, {0.8968729922748742, 
      0.5307479941317204}}]}, 
    {Arrowheads[{{0.051015500891969275`, 1.}}], 
     ArrowBox[{{0.9687616203512197, 0.6999423940374496}, {0.8993336177440187, 
      0.6143433202482648}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{0.9666380070639046, 0.7872950642064355}, {0.9014572310313337, 
      0.6984192215078502}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{0.9648028223309387, 0.8742986602381242}, {0.9032924157642995, 
      0.7828441969047331}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{0.9632104592843169, 0.9610445743469562}, {0.9048847788109213, 
      0.8675268542244725}}]}, 
    {Arrowheads[{{0.05101550089196933, 1.}}], 
     ArrowBox[{{0.9618214116201478, 1.0475970449821848`}, {0.9062738264750904,
       0.9524029550178154}}]}, 
    {Arrowheads[{{0.05101550089196933, 1.}}], 
     ArrowBox[{{1.0516320501284115`, -0.22653481111383322`}, {
      0.9550346165382553, -0.17346518888616697`}}]}, 
    {Arrowheads[{{0.05101550089196923, 1.}}], 
     ArrowBox[{{1.0561557449563803`, -0.12999097057854042`}, {
      0.9505109217102865, -0.09858045799288834}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{1.058316748089281, -0.032270934845703834`}, {
      0.9483499185773858, -0.024871922297153494`}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{1.0578823552062413`, 0.06497014643142764}, {
      0.9487843114604254, 0.04931556785428646}}]}, 
    {Arrowheads[{{0.05101550089196933, 1.}}], 
     ArrowBox[{{1.0555502474585383`, 0.16047123165386853`}, {
      0.9511164192081285, 0.12524305406041697`}}]}, 
    {Arrowheads[{{0.05101550089196931, 1.}}], 
     ArrowBox[{{1.0523021326038944`, 0.25384827455540104`}, {
      0.9543645340627724, 0.20329458258745595`}}]}, 
    {Arrowheads[{{0.05101550089196927, 1.}}], 
     ArrowBox[{{1.0488666288926283`, 0.3453273192765624}, {0.9578000377740385,
       0.2832441092948659}}]}, 
    {Arrowheads[{{0.051015500891969295`, 1.}}], 
     ArrowBox[{{1.045625011201084, 0.43533095283216067`}, {0.9610416554655827,
       0.36466904716783916`}}]}, 
    {Arrowheads[{{0.05101550089196933, 1.}}], 
     ArrowBox[{{1.0427225355585712`, 0.5242545632555449}, {0.9639441311080956,
       0.4471740081730265}}]}, 
    {Arrowheads[{{0.05101550089196924, 1.}}], 
     ArrowBox[{{1.0401837975794916`, 0.612403021147153}, {0.9664828690871752, 
      0.5304541217099898}}]}, 
    {Arrowheads[{{0.05101550089196926, 1.}}], 
     ArrowBox[{{1.037982649775709, 0.6999947779279758}, {0.968684016890958, 
      0.6142909363577386}}]}, 
    {Arrowheads[{{0.05101550089196929, 1.}}], 
     ArrowBox[{{1.0360766375887904`, 0.7871825111165554}, {0.9705900290778764,
       0.6985317745977304}}]}, 
    {Arrowheads[{{0.05101550089196932, 1.}}], 
     ArrowBox[{{1.0344219255355354`, 0.8740726558052424}, {0.9722447411311315,
       0.783070201337615}}]}, 
    {Arrowheads[{{0.05101550089196928, 1.}}], 
     ArrowBox[{{1.0329789115294088`, 0.9607400137457034}, {0.9736877551372581,
       0.8678314148257252}}]}, 
    {Arrowheads[{{0.05101550089196931, 1.}}], 
     ArrowBox[{{1.0317137547146162`, 1.0472378442259889`}, {
      0.9749529119520507, 0.9527621557740111}}]}}},
  AspectRatio->1,
  Frame->True,
  FrameLabel->{{
     FormBox[
     "\"Infected \
(\\!\\(\\*\\nStyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\\))\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
      RowBox[{"\"Susceptible \"", "(", "S", ")"}], TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  Method->{"TransparentPolygonMesh" -> True},
  PlotRange->{{-0.02177439974377616, 1.058441066410443}, {-0.2551077330771097,
    1.0551077330771095`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.56840207325465*^9, 3.568402101068241*^9}, {
   3.5684021389824095`*^9, 3.5684021643048577`*^9}, {3.568403077625097*^9, 
   3.5684031125800962`*^9}, 3.568404802552757*^9, {3.56840488338838*^9, 
   3.568404922730631*^9}, 3.568405123969141*^9, {3.568405154070863*^9, 
   3.5684052202246466`*^9}, 3.5684055948730755`*^9, 3.568405636894479*^9, 
   3.5684089087666187`*^9, 3.5684091144873857`*^9, {3.5684096208243465`*^9, 
   3.568409643508644*^9}, {3.5684096982677755`*^9, 3.568409709408413*^9}, {
   3.56841028718746*^9, 3.5684102925787687`*^9}, {3.568410328113801*^9, 
   3.568410397444766*^9}, {3.5684105979622355`*^9, 3.5684106259108343`*^9}, {
   3.56842703601999*^9, 3.568427203240059*^9}, 3.568427273692391*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["1", "r0"], ",", " ", 
  RowBox[{
   FractionBox["\[Mu]", 
    RowBox[{"(", 
     RowBox[{"\[Beta]", "-", 
      RowBox[{"\[Gamma]", " ", "r0"}]}], ")"}]], 
   RowBox[{"(", 
    RowBox[{"r0", "-", "1"}], ")"}]}], ",", 
  RowBox[{
   FractionBox[
    RowBox[{"\[Mu]", 
     RowBox[{"(", 
      RowBox[{"\[Mu]", "+", "\[Gamma]"}], ")"}]}], 
    RowBox[{"\[Epsilon]", 
     RowBox[{"(", 
      RowBox[{"\[Beta]", "-", 
       RowBox[{"\[Gamma]", " ", "r0"}]}], ")"}]}]], 
   RowBox[{"(", 
    RowBox[{"r0", "-", "1"}], ")"}]}]}]], "Input",
 EmphasizeSyntaxErrors->True],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Syntax", "::", "tsntxi"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\\\"\[NoBreak]\\!\\(1\\/r0, \\(\\(\[Mu]\\/\\((\[Beta] - \
\\(\\(\[Gamma] r0\\)\\))\\) \\(\\((r0 - 1)\\)\\)\\)\\), \\(\\(\\(\[Mu] \
\\(\\((\[Mu] + \[Gamma])\\)\\)\\)\\/\\(\[Epsilon] \\(\\((\[Beta] - \\(\\(\
\[Gamma] r0\\)\\))\\)\\)\\) \\(\\((r0 - 1)\\)\\)\\)\\)\\)\[NoBreak]\\\" is \
incomplete; more input is \
needed.\[NoBreak]\\!\\(\\\"\\\"\\)\[NoBreak]\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5684045405527716`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Syntax", "::", "sntxi"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Incomplete expression; more input is needed \
\[NoBreak]\\!\\(\\\"\\\"\\)\[NoBreak].\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5684045406117744`*^9}]
}, {3}]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "1.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]1", "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "2"], "+", 
        RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], "+", 
        RowBox[{"\[Gamma]", 
         RowBox[{"(", 
          RowBox[{"\[Epsilon]", "+", 
           RowBox[{"2", "\[Mu]"}]}], ")"}]}]}], ")"}], "+", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "2"], "-", 
           RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
           RowBox[{"3", " ", "\[Gamma]", " ", "\[Epsilon]"}], "+", 
           SuperscriptBox["\[Epsilon]", "2"]}], ")"}], "+", 
         RowBox[{"4", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Epsilon]"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Gamma]"}], "+", "\[Epsilon]"}], ")"}], 
             RowBox[{"(", 
              RowBox[{"\[Gamma]", "+", 
               RowBox[{"2", " ", "\[Epsilon]"}]}], ")"}]}]}], ")"}], 
          "\[Mu]"}], "+", 
         RowBox[{"2", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"9", " ", 
             SuperscriptBox["\[Gamma]", "2"]}], "-", 
            RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
            RowBox[{"19", " ", 
             SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], 
          SuperscriptBox["\[Mu]", "2"]}], "+", 
         RowBox[{"16", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Epsilon]"}], ")"}], 
          SuperscriptBox["\[Mu]", "3"]}], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[Mu]", "4"]}]}], ")"}]}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]2", "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Gamma]", "2"], "+", 
        RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "2"], "+", 
        RowBox[{"\[Gamma]", 
         RowBox[{"(", 
          RowBox[{"\[Epsilon]", "+", 
           RowBox[{"2", "\[Mu]"}]}], ")"}]}]}], ")"}], "-", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Gamma]", "2"], "-", 
           RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
           RowBox[{"3", " ", "\[Gamma]", " ", "\[Epsilon]"}], "+", 
           SuperscriptBox["\[Epsilon]", "2"]}], ")"}], "+", 
         RowBox[{"4", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Epsilon]"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[Beta]"}], " ", "\[Epsilon]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Gamma]"}], "+", "\[Epsilon]"}], ")"}], 
             RowBox[{"(", 
              RowBox[{"\[Gamma]", "+", 
               RowBox[{"2", " ", "\[Epsilon]"}]}], ")"}]}]}], ")"}], 
          "\[Mu]"}], "+", 
         RowBox[{"2", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"9", " ", 
             SuperscriptBox["\[Gamma]", "2"]}], "-", 
            RowBox[{"\[Beta]", " ", "\[Epsilon]"}], "+", 
            RowBox[{"19", " ", 
             SuperscriptBox["\[Epsilon]", "2"]}]}], ")"}], 
          SuperscriptBox["\[Mu]", "2"]}], "+", 
         RowBox[{"16", 
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Epsilon]"}], ")"}], 
          SuperscriptBox["\[Mu]", "3"]}], "+", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[Mu]", "4"]}]}], ")"}]}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   FractionBox[
    RowBox[{"\[Beta]", " ", "\[Epsilon]"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Mu]", "+", "\[Epsilon]"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"\[Mu]", "+", "\[Gamma]"}], ")"}]}]]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e1", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]", "+", "\[Epsilon]"}], ")"}]], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", "r0"]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]", "+", "\[Epsilon]"}], ")"}]], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", "r0"]}], ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Zeta]", "=", 
     RowBox[{
      RowBox[{"4", " ", "\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"], 
       "\[IndentingNewLine]", "diff"}], "=", 
      RowBox[{
       RowBox[{"\[Beta]", "-", 
        RowBox[{"\[Gamma]", "\[IndentingNewLine]", "\[Delta]"}]}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Nu]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
           RowBox[{"4", " ", "\[Nu]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}], "]"}], 
         "\[IndentingNewLine]", "\[Lambda]1"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[Nu]"}], 
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "\[IndentingNewLine]", 
          "n"}], "=", "1"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Mu]"}], "+", 
      RowBox[{"\[Gamma]", " ", "i"}], "-", 
      RowBox[{"\[Mu]", " ", "s"}], "-", 
      RowBox[{"\[Beta]", " ", "s", " ", 
       FractionBox["i", "1"]}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s", "-", "i"}], ")"}]}], "-", 
      RowBox[{"\[Mu]", " ", "i"}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "+", "\[Delta]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "-", "\[Tau]"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "+", 
      RowBox[{"\[Tau]", "*", "10"}]}]}], "}"}], ",", 
   RowBox[{"VectorScale", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "Automatic", ",", "None"}], "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "\"\<Infected (\!\(\*\n\
StyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\))\>\"", ",", "\"\<\>\""}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"\"\<Susceptible \>\"", "[", "S", "]"}], ",", "\"\<\>\""}], 
       "}"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.565658124509137*^9, 3.565658245748071*^9}, {
   3.5656582796350093`*^9, 3.5656583781846457`*^9}, {3.5656584203400574`*^9, 
   3.5656584398001704`*^9}, {3.565658509662166*^9, 3.5656585999593306`*^9}, {
   3.5656586525263376`*^9, 3.5656586645560255`*^9}, {3.565658698216951*^9, 
   3.565658729194723*^9}, {3.565659251972624*^9, 3.5656593843011928`*^9}, {
   3.565659433853027*^9, 3.565659454761223*^9}, {3.5657188028221235`*^9, 
   3.5657188034091573`*^9}, {3.565718950375563*^9, 3.56571895136162*^9}, {
   3.565719026149897*^9, 3.56571907183751*^9}, 3.5657191162680516`*^9, {
   3.5657192007608843`*^9, 3.565719201699938*^9}, {3.565719407568713*^9, 
   3.5657194129880233`*^9}, {3.565719483283044*^9, 3.5657194884823413`*^9}, {
   3.5657195457726183`*^9, 3.5657196382689085`*^9}, {3.5657196686636467`*^9, 
   3.565719721795686*^9}, {3.565719872141285*^9, 3.5657199409272194`*^9}, {
   3.5657200764059687`*^9, 3.565720126157814*^9}, {3.565721225169674*^9, 
   3.5657212254276886`*^9}, 3.5657213654927*^9, {3.565721513162146*^9, 
   3.565721650479*^9}, {3.5657258281599503`*^9, 3.5657258541014338`*^9}, {
   3.5657258905655193`*^9, 3.5657259023331923`*^9}, {3.565725964755763*^9, 
   3.5657260187628517`*^9}, {3.565726052871803*^9, 3.5657260828625183`*^9}, {
   3.565726144282031*^9, 3.5657261452310853`*^9}, {3.5657262074026413`*^9, 
   3.5657262485949974`*^9}, 3.56572628867729*^9, {3.5657304128491793`*^9, 
   3.565730424073821*^9}, {3.5683949279159603`*^9, 3.568395008372562*^9}, {
   3.5683950621106358`*^9, 3.568395231218308*^9}, {3.5684016631151915`*^9, 
   3.5684020351164684`*^9}, {3.5684020660262365`*^9, 3.568402100693219*^9}, {
   3.568402138310371*^9, 3.5684021631877937`*^9}, {3.5684030768040495`*^9, 
   3.5684031121130695`*^9}, {3.5684048012136803`*^9, 
   3.5684048013636885`*^9}, {3.568404878777117*^9, 3.5684049220855937`*^9}, {
   3.568405097586632*^9, 3.568405219320595*^9}, {3.5684052559706907`*^9, 
   3.568405289095586*^9}, {3.5684053803758063`*^9, 3.568405382813946*^9}, {
   3.5684054198360634`*^9, 3.5684054916791725`*^9}, {3.5684106599997835`*^9, 
   3.568410741218429*^9}, {3.5684107844629025`*^9, 3.5684108482985535`*^9}, {
   3.568410895335244*^9, 3.5684110064335985`*^9}, {3.5684110415436068`*^9, 
   3.568411049977089*^9}, {3.5684111019250603`*^9, 3.568411120476122*^9}, {
   3.5684111665297556`*^9, 3.5684111741951942`*^9}, 3.568427345134738*^9}],

Cell[BoxData["1.2499999999999998`"], "Output",
 CellChangeTimes->{{3.568405257782795*^9, 3.5684052894426055`*^9}, {
   3.568405449757775*^9, 3.56840549198219*^9}, {3.5684106607688274`*^9, 
   3.568410741865466*^9}, {3.568410810370384*^9, 3.5684108489825926`*^9}, {
   3.5684108958602743`*^9, 3.568411006840622*^9}, 3.5684110425996675`*^9, {
   3.568411103368143*^9, 3.56841112079714*^9}, {3.5684111669957824`*^9, 
   3.5684111745852165`*^9}, 3.568427345752248*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.8000000000000002`", ",", "0.09999999999999992`", ",", 
   "0.09999999999999991`"}], "}"}]], "Output",
 CellChangeTimes->{{3.568405257782795*^9, 3.5684052894426055`*^9}, {
   3.568405449757775*^9, 3.56840549198219*^9}, {3.5684106607688274`*^9, 
   3.568410741865466*^9}, {3.568410810370384*^9, 3.5684108489825926`*^9}, {
   3.5684108958602743`*^9, 3.568411006840622*^9}, 3.5684110425996675`*^9, {
   3.568411103368143*^9, 3.56841112079714*^9}, {3.5684111669957824`*^9, 
   3.5684111745852165`*^9}, 3.5684273457547474`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.47772500849182015`, -0.21958153335970185`}, \
{-0.5222749915081796, 0.019581533359701628`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.4929060671119793, -0.06428858229325929}, \
{-0.5070939328880205, 0.17857429657897345`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.517389529017311, 
      0.09389666724279161}, {-0.48261047098268883`, 0.3346747613286369}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.555753983200986, 
      0.26332023814861055`}, {-0.44424601679901377`, 0.47953690470853233`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.5993118944702984, 
      0.4583356400867307}, {-0.4006881055297013, 0.5988072170561265}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.6203072956046877, 
      0.6677678935522605}, {-0.37969270439531205`, 0.703660677876311}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.6199338687608695, 
      0.8631496412591989}, {-0.3800661312391303, 0.8225646444550868}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.6138936523608096, 
      1.0427101196353037`}, {-0.3861063476391901, 0.9572898803646963}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.6079652628017232, 
      1.2131733880657547`}, {-0.3920347371982766, 1.10111232621996}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{-0.603133929082441, 
      1.3787784351103545`}, {-0.39686607091755877`, 1.2497929934610745`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.599316879798391, 
      1.5416573102358355`}, {-0.4006831202016088, 1.401199832621308}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{-0.5962861292999496, 
      1.702901097424319}, {-0.40371387070005016`, 1.554241759718539}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.5938450411161076, 
      1.8631030873929721`}, {-0.4061549588838922, 1.7083254840356001`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{-0.5918472975283714, 2.022606702756128}, {-0.4081527024716284,
       1.8631075829581587`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{-0.5901873432987047, 
      2.181622064884862}, {-0.40981265670129513`, 2.018377935115139}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.2870703049407193, -0.21855479687271756`}, \
{-0.3415011236307091, 0.018554796872717383`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.2981558000390385, -0.06342141714161674}, \
{-0.3304156285323898, 0.17770713142733086`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.3179276295828251, 
      0.09270177282831779}, {-0.3106437989886032, 0.3358696557431107}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{-0.3568768927700144, 
      0.25749038694827786`}, {-0.27169453580141395`, 0.485366755908865}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.4166561733890469, 
      0.46287357875638657`}, {-0.2119152551823814, 0.5942692783864706}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.43535335864642005`, 
      0.6974847511382433}, {-0.19321806992500828`, 0.6739438202903281}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.4239726382871152, 
      0.8954375296040832}, {-0.20459879028431316`, 0.7902767561102025}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{-0.41333322991324567`, 
      1.0706081299522998`}, {-0.21523819865818267`, 0.9293918700477003}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{-0.4060396838886161, 
      1.2369997756249567`}, {-0.2225317446828122, 1.0772859386607578`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.40100063823747717`, 
      1.399587767786125}, {-0.22757079033395117`, 1.228983660785304}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.3973730516714641, 
      1.5602678236400436`}, {-0.23119837689996423`, 1.3825893192171}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{-0.39465645472016997`, 
      1.7198756587547248`}, {-0.23391497385125837`, 1.5372671983881332`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.3925535464103612, 
      1.8788274685717905`}, {-0.23601788216106712`, 1.6926011028567822`}}]}, 
    {Arrowheads[{{0.042781085438853075`, 1.}}], 
     ArrowBox[{{-0.39088081816621395`, 
      2.0373511026052795`}, {-0.2376906104052144, 1.8483631831090073`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.38952014523113093`, 
      2.1955808493771967`}, {-0.2390512833402974, 2.0044191506228044`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.09523784517242445, -0.2169820096644292}, \
{-0.16190501197043244`, 0.01698200966442899}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.10054774028280625`, -0.06122348630851883}, \
{-0.15659511686005065`, 0.17550920059423294`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.11108259299207537`, 
      0.0939110533415384}, {-0.14606026415078152`, 0.3346603752298901}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.14010386192403584`, 
      0.25033802122619353`}, {-0.11703899521882105`, 0.49251912163094935`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{-0.24120573302607007`, 
      0.48264287724040966`}, {-0.01593712411678684, 0.5744999799024475}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{-0.2247440803450121, 
      0.7601907210356944}, {-0.03239877679784482, 0.611237850392877}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.20521060541441882`, 
      0.9373153608171265}, {-0.05193225172843806, 0.7483989248971591}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{-0.19680430768260476`, 
      1.1006985232043973`}, {-0.06033854946025215, 0.8993014767956027}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{-0.19227373575999734`, 
      1.2607668622102168`}, {-0.06486912138285954, 1.0535188520754977`}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{-0.18946023234110096`, 
      1.4195875278638541`}, {-0.06768262480175594, 1.2089839007075749`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.18754774475286567`, 
      1.577813309511692}, {-0.0695951123899912, 1.3650438333454515`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{-0.18616464333745636`, 
      1.7357112436742241`}, {-0.07097821380540055, 1.5214316134686339`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{-0.18511840449715916`, 
      1.8934099582410957`}, {-0.07202445264569772, 1.6780186131874768`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{-0.18429956675862627`, 
      2.050978801101621}, {-0.07284329038423062, 1.8347354846126664`}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{-0.18364137840040423`, 
      2.2084583744723347`}, {-0.07350147874245266, 1.9915416255276666`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.09817517964613753, -0.21450880698589853`}, {
      0.016110534639577005`, 0.014508806985898307`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.100933366900779, -0.05633978303831029}, {
      0.013352347384935535`, 0.1706254973240244}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.10679011381150987`, 0.10324037096766299`}, {
      0.0074956004742046806`, 0.32533105760376546`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.12694341593216618`, 
      0.2718102982049948}, {-0.01265770164645165, 0.4710468446521481}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.10617577437901803`, 0.6398894028373069}, {
      0.00810993990669652, 0.4172534543055503}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.04599155222314252, 0.8068405288077396}, {
      0.06829416206257202, 0.5645880426208318}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.03629191555729115, 0.9626951860752389}, {0.0779937987284234,
       0.7230190996390469}}]}, 
    {Arrowheads[{{0.042781085438853075`, 1.}}], 
     ArrowBox[{{0.03246273893540979, 1.119108396566377}, {0.08182297535030475,
       0.8808916034336229}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{0.030419318731374278`, 1.2758094946704999`}, {
      0.08386639555434026, 1.0384762196152146`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.029149750734709424`, 1.4326592939433773`}, {
      0.08513596355100513, 1.1959121346280517`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.02828471035362486, 1.5895942421254288`}, {
      0.08600100393208969, 1.3532629007317147`}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{0.027657518157907488`, 1.7465821617794282`}, {
      0.08662819612780706, 1.5105606953634299`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.02718197170406747, 1.9036051832045957`}, {
      0.08710374258164708, 1.6678233882239768`}}]}, 
    {Arrowheads[{{0.042781085438853075`, 1.}}], 
     ArrowBox[{{0.026809021576941313`, 2.0606526299829535`}, {
      0.08747669270877323, 1.8250616557313333`}}]}, 
    {Arrowheads[{{0.04278108543885307, 1.}}], 
     ArrowBox[{{0.02650870740532138, 2.2177177439352507`}, {
      0.08777700688039317, 1.9822822560647502`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.2937086920886842, -0.21049904211394369`}, {
      0.19200559362560177`, 0.01049904211394348}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.30704013608583897`, -0.04618410810606577}, {
      0.17867414962844702`, 0.16046982239177993`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.3324916402338502, 0.13205691612246723`}, {
      0.1532226454804358, 0.2965145124489612}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.3643722931088424, 0.3659525668034949}, {
      0.12134199260544358`, 0.3769045760536479}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.3251890709574792, 0.6181112073439273}, {
      0.16052521475680684`, 0.43903164979892983`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.28626973741549067`, 0.7993420332104826}, {
      0.19944454829879535`, 0.5720865382180889}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.26767627811576056`, 0.9619366494582428}, {
      0.21803800759852546`, 0.7237776362560431}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{0.257659829684962, 1.1207344144393985`}, {0.228054456029324, 
      0.8792655855606014}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.25152352529769006`, 1.2784722113105158`}, {
      0.23419076041659595`, 1.0358135029751987`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.24740821173846528`, 1.4358390200383118`}, {
      0.2383060739758207, 1.1927324085331172`}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{0.24446597664117267`, 1.5930564055012144`}, {
      0.24124830907311332`, 1.349800737355929}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.24226136972237647`, 1.7502084435862626`}, {
      0.24345291599190952`, 1.5069344135565956`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.2405494557252996, 1.907330867426849}, {0.24516482998898637`,
       1.6640977040017233`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.23918242429497028`, 2.0644400972991037`}, {
      0.2465318614193157, 1.8212741884151833`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.23806598620870878`, 2.221544079186595}, {0.2476482995055772,
       1.9784559208134063`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.49199981201076953`, -0.20379190017346688`}, {
      0.3651430451320879, 0.0037919001734666863`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.5165592931511132, -0.02684555904684173}, {
      0.3405835639917443, 0.14113127333255585`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.5452801718063924, 0.1800076218670536}, {0.311862685336465, 
      0.24856380670437495`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.5434841781125084, 0.41131564151721073`}, {0.313658679030349,
       0.33154150133993215`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.515935221995974, 0.6132088078185457}, {0.34120763514688346`,
       0.44393404932431146`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.4938535536398361, 0.7883503540036535}, {
      0.36328930350302135`, 0.583078217424918}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.4797116059862024, 0.9532229012305279}, {
      0.37743125115665505`, 0.7324913844837578}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{0.4704460387770375, 1.114203482378933}, {0.3866968183658199, 
      0.8857965176210669}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.4640402872116275, 1.2734952461776705`}, {0.39310256993123, 
      1.040790468108044}}]}, 
    {Arrowheads[{{0.04278108543885306, 1.}}], 
     ArrowBox[{{0.45938967837885764`, 1.4319553953686248`}, {
      0.3977531787639998, 1.1966160332028042`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.45587580978263564`, 1.5899629087912956`}, {
      0.40126704736022184`, 1.3528942340658479`}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{0.4531342380557596, 1.7477040721145964`}, {
      0.40400861908709784`, 1.5094387850282616`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.4509388941949265, 1.9052785565017107`}, {0.4062039629479309,
       1.6661500149268615`}}]}, 
    {Arrowheads[{{0.042781085438853124`, 1.}}], 
     ArrowBox[{{0.449143052708754, 2.0627434500306467`}, {
      0.40799980443410344`, 1.8229708356836403`}}]}, 
    {Arrowheads[{{0.04278108543885315, 1.}}], 
     ArrowBox[{{0.44764771628358335`, 2.2201333160054704`}, {
      0.4094951408592741, 1.9798666839945307`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.6934778880103002, -0.1923283162855361}, {
      0.5350935405611287, -0.007671683714464098}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.7236885411904215, 0.003973882800618216}, {
      0.5048828873810074, 0.11031183148509591`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.7356295524837491, 0.2227468784323398}, {
      0.49294187608767986`, 0.20582455013908868`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.7216529404123366, 0.42859671921404474`}, {
      0.5069184881590922, 0.31426042364309814`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.7036372244947221, 0.6111076387504557}, {0.5249342040767069, 
      0.4460352183924014}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.6899435503977583, 0.7809603365625495}, {0.5386278781736705, 
      0.590468234866022}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.6802517328060291, 0.9450550037345822}, {0.5483196957653997, 
      0.7406592819797035}}]}, 
    {Arrowheads[{{0.042781085438853124`, 1.}}], 
     ArrowBox[{{0.6732786344907365, 1.10637553164629}, {0.5552927940806922, 
      0.89362446835371}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.6680984285644291, 1.266230483156555}, {0.5604730000069997, 
      1.0480552311291598`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.6641276709700862, 1.4252438042170943`}, {0.5644437576013428,
       1.2033276243543347`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.6609997240456894, 1.583739388625723}, {0.5675717045257395, 
      1.3591177542314206`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.6584780515106796, 1.7418981937151579`}, {0.5700933770607494,
       1.5152446634277}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.6564050974769221, 1.8998277201860396`}, {0.5721663310945067,
       1.6716008512425329`}}]}, 
    {Arrowheads[{{0.042781085438853145`, 1.}}], 
     ArrowBox[{{0.6546726109801301, 2.0575951790210136`}, {0.5738988175912988,
       1.8281191066932734`}}]}, 
    {Arrowheads[{{0.04278108543885307, 1.}}], 
     ArrowBox[{{0.6532040889668592, 2.215244429277623}, {0.5753673396045698, 
      1.9847555707223778`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.8973107792338653, -0.17298308442539898`}, {
      0.7026892207661349, -0.02701691557460123}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.9205556769154699, 0.040948810990032766`}, {
      0.6794443230845303, 0.07333690329568136}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.9162595001426304, 0.2500578681757543}, {0.68374049985737, 
      0.17851356039567418`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.9024317006712048, 0.43703089657754524`}, {
      0.6975682993287956, 0.30582624627959765`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.890413165714103, 0.6099432777141212}, {0.7095868342858973, 
      0.447199579428736}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.8814934619622306, 0.776017851672433}, {0.7185065380377698, 
      0.5954107197561386}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{0.8749336692879268, 0.9386739658810491}, {0.7250663307120734, 
      0.7470403198332366}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{0.8700021397485038, 1.0994767249057684`}, {0.7299978602514966,
       0.9005232750942317}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.8661945756116551, 1.259192827877492}, {0.7338054243883452, 
      1.0550928864082223`}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{0.8631808842134147, 1.418228459281977}, {0.7368191157865857, 
      1.2103429692894518`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{0.8607432342865382, 1.5768144236847341`}, {0.7392567657134621,
       1.3660427191724094`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.8587344722816902, 1.7350898783026296`}, {0.74126552771831, 
      1.5220529788402284`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{0.857052533048909, 1.8931429915616997`}, {0.7429474669510913, 
      1.6782855798668728`}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{0.8556247984138472, 2.051032002084072}, {0.7443752015861532, 
      1.8346822836302148`}}]}, 
    {Arrowheads[{{0.042781085438853055`, 1.}}], 
     ArrowBox[{{0.8543983793275995, 2.208796758655199}, {0.7456016206724009, 
      1.991203241344802}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{1.099429490558304, -0.14318298918127284`}, {
      0.8719990808702677, -0.05681701081872736}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.106188894927758, 0.07392936667307545}, {0.8652396765008138, 
      0.04035634761263868}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.095562219423926, 0.26652889400392654`}, {0.8758663520046457,
       0.16204253456750192`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.0848421353124647`, 0.4419238748280731}, {0.8865864361161071,
       0.3009332680290698}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.0767874446434789`, 0.6092039163787938}, {0.8946411267850929,
       0.4479389407640634}}]}, 
    {Arrowheads[{{0.042781085438853075`, 1.}}], 
     ArrowBox[{{1.0708947053548061`, 0.7725486940856899}, {0.9005338660737656,
       0.5988798773428815}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{1.066495470114968, 0.9337984349865707}, {0.9049331013136037, 
      0.7519158507277152}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.0631195899944093`, 1.0938314298977079`}, {
      0.9083089814341624, 0.9061685701022922}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{1.0604608581321717`, 1.2531057055745534`}, {0.9109677132964, 
      1.0611800087111611`}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{1.058318940446171, 1.4118791693870207`}, {0.9131096309824007, 
      1.2166922591844083`}}]}, 
    {Arrowheads[{{0.042781085438853075`, 1.}}], 
     ArrowBox[{{1.0565596195641025`, 1.5703065620991703`}, {
      0.9148689518644693, 1.3725505807579734`}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{1.0550904696497732`, 1.7284857091818422`}, {
      0.9163381017787986, 1.5286571479610158`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.0538461295697092`, 1.886481196057946}, {0.9175824418588625, 
      1.6849473753706266`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.0527792391976893`, 2.0443372413081002`}, {
      0.9186493322308825, 1.8413770444061868`}}]}, 
    {Arrowheads[{{0.04278108543885306, 1.}}], 
     ArrowBox[{{1.0518547240691376`, 2.2020850663984457`}, {
      0.9195738473594343, 1.9979149336015551`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.2929271596251903`, -0.10583193223343779`}, {
      1.0499299832319529`, -0.09416806776656242}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{1.2859363441670706`, 0.0981780658034113}, {
      1.0569207986900728`, 0.016107648482302825`}}]}, 
    {Arrowheads[{{0.042781085438853124`, 1.}}], 
     ArrowBox[{{1.2757139060569735`, 0.2768995094812557}, {
      1.0671432368001699`, 0.1516719190901728}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.2682239201489296`, 0.44509388778200354`}, {
      1.0746332227082136`, 0.29776325507513934`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.2629516120228288`, 0.6086929076374625}, {
      1.0799055308343146`, 0.4484499495053946}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.2591324540139035`, 0.7699992033852741}, {1.08372468884324, 
      0.6014293680432974}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.2562666195571082`, 0.9300260820332454}, {
      1.0865905233000352`, 0.7556882036810403}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.2540473007131978`, 1.0892752145824396`}, {
      1.0888098421439458`, 0.9107247854175605}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{1.2522824459655428`, 1.2480195281850266`}, {
      1.0905746968916006`, 1.066266186100688}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{1.2508476082612134`, 1.4064189599461299`}, {1.09200953459593, 
      1.2221524686252994`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{1.2496592720886903`, 1.5645729531248065`}, {
      1.0931978707684533`, 1.378284189732337}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{1.2486595711948225`, 1.7225463775868572`}, {
      1.0941975716623211`, 1.534596479556001}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{1.2478072625457384`, 1.880383255871225}, {1.0950498803114048`,
       1.6910453155573473`}}]}, 
    {Arrowheads[{{0.04278108543885314, 1.}}], 
     ArrowBox[{{1.247072214044591, 2.038114466455526}, {1.0957849288125525`, 
      1.8475998192587613`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.2464319281608618`, 2.19576228300451}, {1.0964252146962816`, 
      2.004237716995491}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.475123075377134, -0.0703927969450105}, {
      1.2391626389085806`, -0.12960720305498974`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.4642793597623978`, 0.1147422336481646}, {
      1.250006354523317, -0.0004565193624504818}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.4569412570266707`, 0.2838284906753397}, {
      1.2573444572590442`, 0.14474293789608877`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.4522134687593544`, 0.4473067446683915}, {
      1.2620722455263607`, 0.2955503981887514}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{1.4489921786540287`, 0.6083186573965383}, {1.265293535631686, 
      0.4488241997463188}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{1.4466758809690798`, 0.7680535595262404}, {1.267609833316635, 
      0.603375011902331}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.4449366773645194`, 0.9270483745753773}, {
      1.2693490369211953`, 0.7586659111389086}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.4435853736193496`, 1.0855780913117272`}, {
      1.2707003406663653`, 0.9144219086882728}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.4425063855999993`, 1.2437972648593356`}, {
      1.2717793286857155`, 1.0704884494263789`}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{1.4416255126714708`, 1.401799137725668}, {1.272660201614244, 
      1.2267722908457608`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.440893089166301, 1.5596431790815355`}, {1.273392625119414, 
      1.383213963775608}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.4402746817288272`, 1.717369053023632}, {1.2740110325568874`,
       1.5397738041192262`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.439745695088454, 1.8750042041299755`}, {1.274540019197261, 
      1.6964243672985968`}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{1.439288107364679, 2.032568213708746}, {1.2749976069210356`, 
      1.853146072005541}}]}, 
    {Arrowheads[{{0.042781085438853145`, 1.}}], 
     ArrowBox[{{1.4388884192961326`, 2.19007542081829}, {1.275397294989582, 
      2.009924579181711}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{1.6506999706537642`, -0.04373417680176301}, {
      1.4350143150605221`, -0.1562658231982372}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.6431131459111836`, 0.12602429309605984`}, {
      1.4426011398031027`, -0.011738578810345693`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.639068858471732, 0.28871167847728135`}, {
      1.4466454272425542`, 0.13985975009414714`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.6366042289078409`, 0.44893600477757356`}, {
      1.4491100568064452`, 0.2939211380795693}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.6349539108019697`, 0.6080327632032085}, {
      1.4507603749123166`, 0.4491100939396487}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.6337740405301793`, 0.7665229243914569}, {
      1.4519402451841068`, 0.6049056470371146}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.6328894331983141`, 0.9246502052968756}, {
      1.4528248525159722`, 0.76106408041741}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.6322019469128413`, 1.0825434694909044`}, {
      1.4535123388014453`, 0.9174565305090956}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.6316524698774826`, 1.2402771356728228`}, {
      1.4540618158368035`, 1.0740085786128917`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.6312033230425405`, 1.3978971418180577`}, {
      1.4545109626717458`, 1.2306742867533715`}}]}, 
    {Arrowheads[{{0.042781085438853075`, 1.}}], 
     ArrowBox[{{1.6308293736520907`, 1.55543336281756}, {1.4548849120621958`, 
      1.3874237800395837`}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{1.63051322332276, 1.7129060592088619`}, {1.4552010623915261`, 
      1.544236797933996}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{1.6302424495689951`, 1.870329453020287}, {1.4554718361452912`,
       1.7010991184082855`}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{1.6300079477724254`, 2.027713819494668}, {1.4557063379418609`,
       1.8580004662196192`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.629802893968594, 2.185066766313365}, {1.4559113917456923`, 
      2.014933233686636}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.825034612611893, -0.025900253090024167`}, {
      1.6321082445309647`, -0.17409974690997604`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{1.8229293556352177`, 0.13390547804373326`}, {
      1.63421350150764, -0.019619763758019118`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.821890620496994, 0.29230780593741557`}, {
      1.6352522366458637`, 0.13626362263401293`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.821272325719658, 0.45018428255646603`}, {
      1.6358705314231996`, 0.29267286030067685`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.8208622916480421`, 0.6078072472390033}, {
      1.6362805654948158`, 0.4493356099038539}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{1.8205704988606608`, 0.7652887127198501}, {
      1.6365723582821967`, 0.6061398587087213}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{1.8203522603704552`, 0.9226831867377322}, {
      1.6367905967724024`, 0.7630310989765536}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.8201828830217581`, 1.0800203710366443`}, {
      1.6369599741210998`, 0.9199796289633557}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{1.8200476124107272`, 1.237317829282209}, {1.6370952447321305`,
       1.0769678850035054`}}]}, 
    {Arrowheads[{{0.042781085438853124`, 1.}}], 
     ArrowBox[{{1.8199370904591137`, 1.3945866121335728`}, {
      1.6372057666837438`, 1.233984816437856}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{1.8198450953136835`, 1.5518340197935352`}, {
      1.6372977618291742`, 1.3910231230636085`}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{1.8197673292261014`, 1.709065068513539}, {1.6373755279167566`,
       1.5480777886293189`}}]}, 
    {Arrowheads[{{0.042781085438853124`, 1.}}], 
     ArrowBox[{{1.8197007282116067`, 1.866283318936968}, {1.6374421289312509`,
       1.7051452524916042`}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{1.8196430490056765`, 2.023491368337564}, {1.6374998081371812`,
       1.862222917376723}}]}, 
    {Arrowheads[{{0.04278108543885306, 1.}}], 
     ArrowBox[{{1.8195926115317889`, 2.1806911557721396`}, {1.637550245611069,
       2.0193088442278615`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{2.0005823800156297`, -0.014274835367634159`}, {
      1.8279890485557997`, -0.18572516463236605`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{2.00371624279685, 0.1395934419653186}, {
      1.824855185774579, -0.025307727679604444`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{2.0052400647672854`, 0.2950521955500512}, {
      1.8233313638041435`, 0.1335192330213773}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{2.006139583578312, 0.45117056201900874`}, {
      1.8224318449931172`, 0.29168658083813415`}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{2.006732892171809, 0.6076248134973364}, {1.8218385363996201`, 
      0.4495180436455207}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{2.007153498499931, 0.764273136409091}, {1.8214179300714983`, 
      0.6071554350194804}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{2.0074671868104983`, 0.9210436605277739}, {
      1.8211042417609307`, 0.7646706251865119}}]}, 
    {Arrowheads[{{0.04278108543885314, 1.}}], 
     ArrowBox[{{2.0077101093389533`, 1.0778960896084224`}, {1.820861319232476,
       0.9221039103915777}}]}, 
    {Arrowheads[{{0.04278108543885307, 1.}}], 
     ArrowBox[{{2.007903776256529, 1.2348060842209003`}, {1.8206676523149004`,
       1.0794796300648142`}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{2.008061784688496, 1.3917580770169462`}, {1.8205096438829333`,
       1.2368133515544828`}}]}, 
    {Arrowheads[{{0.042781085438853075`, 1.}}], 
     ArrowBox[{{2.0081931500877306`, 1.5487416483847838`}, {
      1.8203782784836984`, 1.39411549447236}}]}, 
    {Arrowheads[{{0.0427810854388531, 1.}}], 
     ArrowBox[{{2.008304085669935, 1.7057495615470701`}, {1.8202673429014942`,
       1.5513932955957879`}}]}, 
    {Arrowheads[{{0.042781085438853145`, 1.}}], 
     ArrowBox[{{2.008399012460775, 1.862776633679808}, {1.8201724161106543`, 
      1.7086519377487643`}}]}, 
    {Arrowheads[{{0.042781085438853145`, 1.}}], 
     ArrowBox[{{2.0084811619143066`, 2.01981905560232}, {1.8200902666571228`, 
      1.865895230111967}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{2.008552950734655, 2.176873965031255}, {1.8200184778367743`, 
      2.023126034968746}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{2.177871053480894, -0.006554735822928023}, {
      2.0221289465191075`, -0.19344526417707217`}}]}, 
    {Arrowheads[{{0.04278108543885309, 1.}}], 
     ArrowBox[{{2.1853287918047903`, 0.1438314703309902}, {
      2.0146712081952107`, -0.029545756045276067`}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{2.1889931399624003`, 0.29720820464255104`}, {
      2.011006860037601, 0.13136322392887745`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{2.191154450865234, 0.45196914787799014`}, {2.008845549134767, 
      0.29088799497915274`}}]}, 
    {Arrowheads[{{0.042781085438853096`, 1.}}], 
     ArrowBox[{{2.1925757624945788`, 0.6074741951002036}, {
      2.0074242375054223`, 0.44966866204265354`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{2.1935801245862456`, 0.7634232211707038}, {2.006419875413755, 
      0.6080053502578676}}]}, 
    {Arrowheads[{{0.04278108543885306, 1.}}], 
     ArrowBox[{{2.194326966904462, 0.9196578048461618}, {2.005673033095539, 
      0.766056480868124}}]}, 
    {Arrowheads[{{0.04278108543885306, 1.}}], 
     ArrowBox[{{2.1949038198230753`, 1.0760866831340168`}, {2.005096180176926,
       0.9239133168659831}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{2.195362662874616, 1.2326536570115476`}, {2.004637337125385, 
      1.081632057274167}}]}, 
    {Arrowheads[{{0.04278108543885313, 1.}}], 
     ArrowBox[{{2.1957362805049963`, 1.3893222584653055`}, {2.004263719495005,
       1.2392491701061232`}}]}, 
    {Arrowheads[{{0.04278108543885311, 1.}}], 
     ArrowBox[{{2.196046361054567, 1.546067803039855}, {2.003953638945434, 
      1.3967893398172884`}}]}, 
    {Arrowheads[{{0.042781085438853145`, 1.}}], 
     ArrowBox[{{2.196307819061816, 1.7028729921815142`}, {2.003692180938185, 
      1.5542698649613436`}}]}, 
    {Arrowheads[{{0.04278108543885306, 1.}}], 
     ArrowBox[{{2.1965312453102146`, 1.859725346010746}, {2.0034687546897865`,
       1.7117032254178266`}}]}, 
    {Arrowheads[{{0.04278108543885308, 1.}}], 
     ArrowBox[{{2.1967243662156797`, 2.0166156362495804`}, {2.003275633784322,
       1.8690986494647066`}}]}, 
    {Arrowheads[{{0.04278108543885312, 1.}}], 
     ArrowBox[{{2.1968929499969514`, 2.173536892837782}, {2.0031070500030497`,
       2.0264631071622192`}}]}}},
  AspectRatio->1,
  Frame->True,
  FrameLabel->{{
     FormBox[
     "\"Infected \
(\\!\\(\\*\\nStyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\\))\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
      RowBox[{"\"Susceptible \"", "(", "S", ")"}], TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  Method->{"TransparentPolygonMesh" -> True},
  PlotRange->{{-0.6216384740423313, 
   2.2216384740423316`}, {-0.22163847404233156`, 2.2216384740423316`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.568405257782795*^9, 3.5684052894426055`*^9}, {
   3.568405449757775*^9, 3.56840549198219*^9}, {3.5684106607688274`*^9, 
   3.568410741865466*^9}, {3.568410810370384*^9, 3.5684108489825926`*^9}, {
   3.5684108958602743`*^9, 3.568411006840622*^9}, 3.5684110425996675`*^9, {
   3.568411103368143*^9, 3.56841112079714*^9}, {3.5684111669957824`*^9, 
   3.5684111745852165`*^9}, 3.568427345807248*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "This", " ", "is", " ", "example", " ", "of", " ", "Tunnel", " ", "Diode", 
    " ", "Example"}], "*)"}], 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   "\n", 
   RowBox[{
    RowBox[{"eq1", "=", 
     RowBox[{
      RowBox[{"\[Mu]", "*", "n"}], "-", 
      RowBox[{"\[Mu]", "*", 
       RowBox[{"s", "[", "t", "]"}]}], "-", 
      RowBox[{"\[Beta]", " ", "*", " ", 
       RowBox[{"s", "[", "t", "]"}], "*", 
       FractionBox[
        RowBox[{"i", "[", "t", "]"}], "n"]}], "+", 
      RowBox[{"\[Gamma]", " ", "*", 
       RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"eq2", "=", 
     RowBox[{
      RowBox[{"\[Beta]", "*", 
       RowBox[{"s", "[", "t", "]"}], "*", 
       FractionBox[
        RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], "*", 
       RowBox[{"e", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq3", "=", 
     RowBox[{
      RowBox[{"\[Epsilon]", "*", 
       RowBox[{"e", "[", "t", "]"}]}], "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}], "*", " ", 
       RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]", "=", "0.3"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Beta]", "=", "0.8"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Epsilon]", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"R0", "=", 
    RowBox[{"N", "[", 
     FractionBox[
      RowBox[{"\[Beta]", " ", "\[Epsilon]"}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "+", "\[Mu]"}], ")"}]}]], "]"}]}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tf", "=", "50"}], ";"}], "\n", 
   RowBox[{
    RowBox[{"num", "=", "10"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "0", "]"}], "=", "1.0"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "0", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "0", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "1", "]"}], "=", "0.9"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "1", "]"}], "=", "0.1"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "1", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "2", "]"}], "=", "0.8"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "2", "]"}], "=", "0.2"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "2", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "3", "]"}], "=", "0.7"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "3", "]"}], "=", "0.3"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "3", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "4", "]"}], "=", "0.6"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "4", "]"}], "=", "0.4"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "4", "]"}], "=", "0.0"}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "5", "]"}], "=", "0.5"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "5", "]"}], "=", "0.5"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "5", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "6", "]"}], "=", "0.4"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "6", "]"}], "=", "0.6"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "6", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "7", "]"}], "=", "0.3"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "7", "]"}], "=", "0.7"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "7", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "8", "]"}], "=", "0.2"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "8", "]"}], "=", "0.8"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "8", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "9", "]"}], "=", "0.1"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "9", "]"}], "=", "0.9"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "9", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "10", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "10", "]"}], "=", "1.0"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "10", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"sol", "[", "k", "]"}], "=", 
      RowBox[{"NDSolve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", "eq1"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"e", "'"}], "[", "t", "]"}], "\[Equal]", "eq2"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", "eq3"}], ",", 
          " ", 
          RowBox[{
           RowBox[{"s", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"szero", "[", "k", "]"}]}], ",", 
          RowBox[{
           RowBox[{"e", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"izero", "[", "k", "]"}]}], ",", 
          RowBox[{
           RowBox[{"i", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"rzero", "[", "k", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"s", ",", "e", ",", "i"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "tf"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "num"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", "\n", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pl", "[", "k_", "]"}], ":=", 
    RowBox[{"ParametricPlot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"s", "[", "t", "]"}], ",", 
          RowBox[{"i", "[", "t", "]"}]}], "}"}], "/.", 
        RowBox[{"sol", "[", "k", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pls", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"pl", "[", "k", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "num"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\n", 
   RowBox[{
    RowBox[{"line", " ", "=", " ", 
     RowBox[{"Graphics", "[", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.0", ",", "0"}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"arrow", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Arrowheads", "[", "0.03", "]"}], ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0.5", ",", "0.6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.45", ",", "0.55"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"pls", ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.1", ",", "0.9"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.1", ",", "0.9"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"GridLinesStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", "Dotted"}], "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Infected (\!\(\*
StyleBox[\"I\",
FontSlant->\"Italic\"]\))\>\"", ",", "\"\<\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<Susceptible \>\"", "[", "S", "]"}], ",", "\"\<\>\""}], 
         "}"}]}], "}"}]}]}], "]"}], "\n", "\n", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5642797797451224`*^9, 3.5642797797471223`*^9}, 
   3.564279880500885*^9, {3.5642799138787947`*^9, 3.564279944988574*^9}, {
   3.564279984054808*^9, 3.5642803995195713`*^9}, {3.5642804831243534`*^9, 
   3.5642805169372873`*^9}, {3.5642808324873357`*^9, 3.564280912251898*^9}, {
   3.5642811859325514`*^9, 3.564281186207567*^9}, {3.564281254972501*^9, 
   3.5642813653708153`*^9}, {3.56428142141302*^9, 3.564281476164152*^9}, {
   3.5642815081329803`*^9, 3.564281580818138*^9}, {3.564961744934519*^9, 
   3.5649617640906143`*^9}, {3.564961935539421*^9, 3.564961991142601*^9}, {
   3.564962048768897*^9, 3.564962054697236*^9}, {3.56496212137405*^9, 
   3.564962154644953*^9}, {3.5649621906510124`*^9, 3.5649622981421604`*^9}, {
   3.5649623327221384`*^9, 3.564962476952388*^9}, 3.5649629893806973`*^9, {
   3.56496309416269*^9, 3.564963110126603*^9}, {3.564963146472682*^9, 
   3.5649632579040556`*^9}, {3.5649634653809223`*^9, 
   3.5649635062312593`*^9}, {3.5649636530066543`*^9, 3.5649637357703876`*^9}, 
   3.564963843279537*^9, {3.5649638885131245`*^9, 3.564963952550787*^9}, {
   3.56496400715091*^9, 3.56496404037181*^9}, {3.564964083297265*^9, 
   3.564964094348898*^9}, {3.5649641320350533`*^9, 3.564964182960966*^9}, {
   3.5649642416773243`*^9, 3.5649642844207687`*^9}, {3.56496435506881*^9, 
   3.564964356707904*^9}, {3.564964391680904*^9, 3.56496443304827*^9}, {
   3.5649644778548326`*^9, 3.564964520397266*^9}, {3.569178713904708*^9, 
   3.5691788765310097`*^9}, {3.5691789836561365`*^9, 3.5691789847071967`*^9}}],

Cell[BoxData["0.4000000000000001`"], "Output",
 CellChangeTimes->{
  3.569178886816598*^9, {3.5691789775027847`*^9, 3.569178985371235*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7BlQwCh/lD/KJ4YPALDCP24=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1Ak0Vuv3B3DJVJRwzXPIVMYKxfkqIT9dCRHqigxXhPIzhF7vSZGSaDBU
km5XkQaVG6p7qTRJFxERkVBynld4Uyj/479+z1pnnfVZ65x99rP3Po9mQKRb
kKCAgEA9e83eG17MrmEI/G/NMShclNk4jIN+dl/b+FpYfHo4bH3LMN7H9IoM
Npvje1pn9uXOYcTe9x/NO2oHGdK6WWFoGCd5p/jiIu44sjFC4aEwA1+bFU7y
cwPguIB3TmUeA9PjBV5SgjuQbz+qEyXB4LquS0TIjx1Qkv4nXFiGwa7ze565
fQrCr8wcvyF1BnvM/+x2yw3FPrks9xJLBp7312hFGETBzsVeq2Q1g0rbTX6W
x6IgVNzz4A+KgWFxail3NAokKK4ofR2Do8fMMgtu74a40CddRVcGa5zP56Tq
RsPtOG22KZiBNudQRH19DCRuf9s+N5RBb3RMA0cpFhPjlFR5GAMf7UbtsZBY
tAgbqs9EsfH9gznLZmLRd19DLCSRweep1Xqu6vHg1wgWRxxj8O+CFfFx+glQ
PaNcI3WcwVbfQv74zgTwpHvsb5xkcNf0xQabKwmIrk+sfZfPYNPnyj5KLxGF
VtW35l1k0G2R3hX3SxKUsq+cP36HgWtlwLRg1T4ktJyI/1LFoLiRkzD1cR+s
rvL9N9xj8FLZZ8mkPAdLI1dmfa1hICmg2CUfzYHQ/D0eqs8ZjBQ39xuqJUPz
tJnivU62HzKjEUY6XDRq+Fv0dDF4XHn8F/mVXIiSe18EehhIL7Elpx240HQp
8rb8wCD1pmbc3mAuDj8sfJE8zOD0/AtRfxVxMaNy90I6Yesf7Ly+4Dr7fNGv
blkjDMzw4LH+fS5sJmW3nhxnYPD8e6dlGxem3kmdcdMMOGUf728UpdE/UW8X
+pOt98VdSw9K05ia/nbPS4Bgcci39FBVGmXLe6cNhQg8F93PtjOjEebxKPKm
OIHiPBXPrVtoSK5arnx0AUHxXPMCPX8aKd5vxIMkCa5bxu0vC6VhYsa8kpBh
n8/4OtS9l8ZgzfYiayWCPbs6j4jl0jil/039gzLBH6FaXJsCGpdN/ILSVQlc
52l1Wv1Bwy01zqtBg0BwIK/1yDUaUkdyFoQvJoidXvnj/S0a6ae3F4hpE6wP
fXtGqIrGuH3T1tW6BP3fMlxKH9AI/1J+qkmPQP764x7jJzTE3JdVBxkQnKiQ
bthfT2NRYGVr2jKCozqjS0+8opGnX9oia0ywqmtB16Y2GiuaJl8WmRAkRm/Y
3tNBY2g0qe6WOYFc+1rvyF4aailZz6xWEBSO7xff/YFGkeaT9vsr/3+/8+wH
adBvpCZgSXC2rnf08ycaLyr89WqsCKinhwKDh2lk116KolYTKNw1/nGb0OgS
bX1VbU1gW6fk2z5Co+ZEx+YVFEHDgkyVplEajlElk1dB0Ha34V3hOA3uZbPH
2mvYenxVtbP/SsN5Rci9/LUE3VE1H2onaFjyxHsl1rH5qv/uK/edRkzJPguO
PUHR9BoDu0kaW7vEHzIOBOruKU3rp2g4CYmk+a4nMA73b9KdppGbezf1iRNB
dLZUaQ/rC4uS6kydCQ5LPOuM/kHj0ccch9MbCGR17w/0st6S77tgjgvBLQMt
Z8OfNKrPKKoGbyQQ9jdJd2VtH6qx95krQamMkqYb682J/2gbuhHYZcieMGG9
ztlB64g7we5ftvgNs/F2uQnFf/IgaObLiaSyXjbfaYmDJ4FYQproTzafrs87
TIu8CG4Odfd5sO6Iunh2cgv7frab8hF2PxxpnzA3H3Ye7sgbFbH7let6df6y
L8HmGNezuWw9Hjga2/7Yys5DoklXxDcaCsGrNrj+RvDI2tdbl63fYp+/nxT5
sfn3JMTX8tn+2x+o+LKdICbD6oINW/8E580KtgEEpqFrqLNsfzozJkczdrDx
C6xvd7H9s3QeUFocTOByueLFfIbGeol/du0MIdjWkEZNDNHYlJ1lV/47gfMA
X+/pRxrRkWtTVoURWGa5iCiy81QoUTGaFM7uJ/Lo03x23j7z143c30Uw073o
gsA7GvNW9J5fHUWQIZ5ptf8NGz9yWntJDMFBl1H17Q004jMMV3nFElSb/7ly
2XMaRg9rZ1LjCLyUblAfHrPz92jq4vu9BNrte7ZJ1dBQEc86dZhDkJlhFBVV
TsPrY29YeTIbb0yr7NRV9vu7nIXauOw8L7/rcqmE/d+rbA6opRAcMP2vYHYR
jax16T/PpbH9XHn879QsGt/OhWrdO0QwklRcJ59B40ThJeX2dII3oxWnctNo
uMzcOSqRQWC1SSAzkMPOz9LDZSFZBFJK7fWrwmjkt4/Ffcwj2PjZpldyLY3J
1Tq3xvIJRCYatK9Y01jLL3r34zSBd53tEisLGobqhTKSBQRKgTauRktp7HWK
+kWniODfl/99u1+WRolBxVuNEoKq242r5gxw8Wb8VmBAJUHEnLrmK8lc9AdH
vQqoIvgU/XtuRDwXw+HrrAOqCfyjjMr1dnPhf2bh3N/uEWz493B5SgAX70WX
nHKqIfixJ2F/xzouSvUSl40+YfNzLPE3F+OiU7LG88RrgnOj/Bov2WTcrUoS
iG1j+ztY0u0rnIzKmLJmr3aCyIPSt7fwOfizw4Ov0EGwY+kI16aVgxOeXp7Z
XQQ/tQKSq09ycHBEI8/3A3se23G67khzENY298m2LwQ1B+qcDST2wYNRtFca
Zc+DK8Xb6qeTINDwXuc160n9tNthTBLmfedKbxgnMKC2lZa+TEJT5JkykwkC
I9MZYZ3sJFRYlKV3TbP1v6kzqSOXBM9rNo3PRXngeu05oqiZCH0bc085FR7e
zhdTP4i9yKjtFxFYy8Om+pP7uJEx2Ni4ky7dzsMSSZ1MDe09GMw3dsyP56Fa
cWXSxokIKO04mx2YyUNsYEOz4vydSDoYv4ZbyMPr/j94ZHEwxooEI+9d5aFe
TFjw67sAnI2RMq6v5uFppp+raK0f+oumuHJ1PLQXKh5SEvFFUmj6q5SXPKwy
OZ+jX+4J5RUx3s6veWgelp1wU3NHWuK2+Ki3PBAirj3j7Ap7tQ5h2fc8XAo4
yhHa6YxerhXSB3goS1Ic6HR3xBVpz7yCIR6uagwNLcyxQ5qr8M0phgczwer3
N5NtIXAlY/jiCA+BYTJqf6lZw1zKwUxujIe+IXe1gYsWeJFv8Hwun4cXj/tM
8lSWg3Qpzz3/lc2fZxuZom+K0l+Xaih/42Hf1pbAoIGlmOJOX3b4zkNG4YLQ
4AI9aDrxfLwneUh0MCniXNeGV3Grh/UUDxtXOS+KjNJEbGrwSx5rsWftw+V/
q6J7rXvFyWkeEk5JjNqLKkJg+3G+3A/2+4eiQ0p/lcVbscmXKaz5kScdWk2k
8UA5W+Aj6xwyMXGjeCECHUvMLH7yoPfM8pCM+nwkldX3JbPOlW1t6f4qjLx+
Eacq1h30JbnL1wRhOeVj+Yl1WfLjwfbeGcq0K8dZdoYHD0n/eUFtk5Skwjk1
S9YCN+xVmju/Uk8+ekhsYW3ix68XXjFGzdm7JmwP63JJdze+yQhlkmrjkMba
qJ8f8ujsZ6rO2zHiNGvfbRsklVYPUoZPNx8rYX1h8fmO1XV9VKCK9PK/WLfI
ZSoM9vRQO93b22pZ1xwMsq2KeEudNcwRr2ftfUCvdrFVO+WXEWo6a0fVXs9W
3XaqZErTa9bhAt04KddOnfnP2guz1jusMrxyvI0KPrLW4gXrM8xY48IbbZTa
RdetDaz7hB0G5hi0URszlU/8y/qa2Hqpv5e8pgIX3ayYtUfd2Wef5V5Tlk+M
22dNjY23a4u+pj7I96o0sq5O0+2qHGylHixR/XPWRa1vz4WUtFJyIvPLm1iX
yD3QfGPUSu3uU26etVS1T16leit1SUxubNYuAa8HLyxqpcIjHy5vZi1TTL7k
jrZQz48J3Zn1jPVQq+CdFiryqE/brBc6vV9pebmF4mzNn5j1da2rpvH5LdS5
W00Wr1in6Zu3yie1UDK/1XvN2tjRICJuVwtVqXYtbtZuCuF0728t1D8iCbmz
1sqRE/V0baG8dY3vzLqzynGiZU0L9X+EL1BI
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt0wk0Ff0bB3BEZUlatEivigqhssSb3C/JWrKWK2VXSousIbJnve4kJUtC
ylLIKy1C2ryW4vX22osiuvfOuNospfqPc/5zzpw5nzNnnt8zz7LW7ZSNp5CA
gEAzfc8+M6/MXhwI/P+a/0koRTaPg843KWM/vmlgg4jN8QtFHMRV50tMdRhi
ZZuqgf09DoItVRuyUmzhrxCqbPqaA1+RY+wpEXc0F6fGvhHnwqqiQ7BeyBdy
NQ38zMVceO2zYN4U9ANLwOu/PSu5SNFzqebM+EHd67ofawOXjqO0uOhjAEot
dNOT9LlYsXJAfdulYFBhJw5H+nJxxr/9rbpSBOZOzfciznAxytP2e5cSgeXb
Uy0vh3NBTDMfSHyKwCfm1PrYRC68KY8qXmUkNhqK6/LyuFBovpZkuj4aFWZ6
BZ9fceFySjZm89+x6LCryD72mouQK6LqFcviMLGt62FPDxcHM+7uHHePg3SO
ZnnOMBd3Yisza7/HIeRhb1jdNBfbtVclTqyMx+eJFbZ+63hYmm6tOHddIsp/
Gm5r38hD42fTOg33RGz6lv5DXpUHnaOjLcoFiTgq2BtZoc2Dw/zYjXFySZj+
/uGe8x4euna/bHERS4a451jVRn8eerm4/640BZ2SEhIzZ3igxglnv74U1Ki/
D/47jIfLAoOEqBgLYSUnBs3O85Cy62KblQcLhTkXGsev8BB+xEz25oJUBN4e
q3pTy8NJi277pavY+J50Nlj3CQ8Gm9116zexMfJNyPnCCx4UjQ/3Cu9gY1/k
98ZNbTxc38pL8HRk4+ojokxykIdWdqJXXjobJreGl2sP098/Pf3OuICNI3kq
Kxw+8rAuLSWNqGCD0KuRThznYZ+pV8qqZjZ0HeXC8wRI+AbmX1o3zcbbpOjV
GcIkhBvi5ZcIEwi9zXwcP5+E6sIy+0pJAoYJ00ZMKRIXXPodBeUJrNOMqLwj
R8LgTMuX3yYEjPt2vg6WJ5HiqBcQY0Xgh/88px0bSbjpPNr8mElgSPOv3go1
EnPOt51x9SLgPrSghalHQnC3zdsjMQTsFFWc7+uTSE95VshMJPC0xch9yS4S
4yWed6TYBLpM1AdqzEks1mmI68kk4Hj7o5foXhKj83c28XIJyCS5xtlYk8gK
DDf4+zoBsSbXa132JOq51c/e36bfV7eWLXEkoWsTbLquks5fq8F/txOJyhUx
X9SqCdScXmpe5kFCwdr7YmUtAdWU4KM9R0icHV7UrtxAgHi1wVXAm4SH4cEO
32cEWqdqpgxOk3BJKCzybyZwcsau6KA/ic1zEmo2vySQ5Zhh6RdEYv7JnsW1
bQQeFjhNxIaQMFsiund1B4HNbhHXL4aRsNqRKGH9moCbQqdrbgSJUPU2itlJ
4F6QzrYb0SSUYE5odRNI55xTKo4jca/0xKXRHrp+82INixJIxDSUZp/qI6AV
vyq5IJkEO/HNzlf9BAZFMsWyUklwNLbKCL8lEGQ1/Jx1gYT+RePiRQMERo/0
PwtPJ9F3hBM4SXvdHg9J7wwSv459EK0eJLD856Fi2yy6/g5zORbvCNwNKc3W
uUpicnx5Vj1t3jM1/so8Ekzyww3x9wRK+ppuThaQ9P7sSFOn/a7O6eU/N+jz
BEdGNGlHnGw7XFRMwiatXHEJ7QDuz5DQWyQ6QzwGXtLx7qi3Su0uJ7HIv53w
pK1gIrt5eSUJU936F710Ppr32/oHquh5ZI0Jq9HesPLsmsJ7JORPDzQ70/nP
mGsKHHlIoja+LNGH/l+zEqGo9bUkihyVql3eELia9ql0sJ6eL5/V9Vvo+rDc
xWMynpBQ38tc/q6XQGngASmL53T/Qm9u8aXrG6/E2f+rkZ6X8O6zw10EGgfH
lO1fksDaZQEn6X5ZXA159quNjveqVvg83c/+E6e2FHSQuH88jBXVTuDA3drL
77tIrL0UYq/QSuDEyKbcsF4Sz9VsQ1qaCFwanEtIvyHhesX3gH0jPS//BZnt
eE/v01OJzj+eENhbXCzTMkxizUqnrY71dD1cL/L2j5KY3sRvDntEYEdQa54n
SSJP77xOED2/xkssvzpPkFguzAo1KiZw9pjSTPMUiRzn19vaCwm89DIy1/hB
4u4ySymjfLr+8Vovf/wmseUXI26M3id54g/+cVEK8/rlHcySCEiKnrn1RJzC
mdYvMmrn6XnbznotLUmhNm59yO8oAilBMYFViykEMaf1j4bQ/ZXLP/vvKgqH
T57aObvfJzbwxKT/oGBUesDgL3cCnKAVG+3WUNh/yYDx1YnOP81IpkWBwtrJ
7P279hGYYnXZZ6tScDko8VXegMD6V2MxbQwKctaHspcvI9D2M/o5T59C5Ll9
9UFSBPSjSv8RMaTQR57uaRYjcN6WctQwodDWYkKZ/2bjxFyVbH9LCj7fWR33
R9nw3DSv6IIzheT930qCqtkw3dXkYhtO4WhHd0/3HjaCeMcf2kdQUJE3OOhp
xIaHb8BnhygKirL2LI4eG42Bn8WZcRRkkgte9qixcT7X2FSXRUE8eo2FsxQb
V968a7uWQ2HfWy0Pi+upaEgei/n5kIKvXKt/bAEL+tc2jDx9RCGVeUBZM40F
T1XD8/F1FLbzftr2R7GQbVGbJvGEwpIAZWEZNxZaX9fJCTRRSIy82m+9hoV3
XWmMy530+Zp/63zMSsEjF+uW9HEKf04OeS4jkiGdbiss+ZmCxO1FVmGRyRi4
bT4Z84VCf9lN6eHTyXjgnr7o1AQFDaOyyjs2ybBtWGCkOUNhPJq4Y7U0GXr+
qxbGzBvDsQRp2QeXk8AMKzpquHoMoqNMQW5uIsS6hPyTjMaQH3WvMuhhPLZ/
1+B6ssfAfVK3N/JjDLRak53YrWOo61b3TsuLhK9E0SGzH2OIrT7pXS4YDp+M
OKni9Xx016g1pCkF4/Rzc/s2Yz68mTp7u+0DQJlPH7B24yMpw/O3qLIvcoof
9oWF8hH4givmHnkSDWb7g/ek8tH31TP0E3kU0YXehl55fAxLdv4Sr/OEQ+I8
a7sKOt4np4qre9zgNHnNRuYRH+0/bFPJTc5Q4rzbPfqCD1lynUa9+gFsK781
7t3Gx9fAtc8zTPaDI7S3UbuLjx0sZVK30gaHnp51vvGGD5u7PgJjoZb42n6/
9+F7Pk44x+Yu7DDHizLuN/dRPv6bo1hln2SMg2NHQxbx+IhJuKLRu8kQ8m0V
qfJjfOTruDqoOuqjXHah9cQ4H0NH2lVSE3SR/mGu3tYvfCQfVI5w9NPGztKi
Bzu+8fGsfquWeZUGvC7/UqUm+Mg4VTyqkr0FsSkdKwyn+Oh9PBAuZqcCu21h
28Om+fignvMq/7+NCCczLQO+015GXZAzU8DMcU7mrh98/FDZbixusxZKXdPH
58zwkVpyN2BSbTWMBDk7M2lrTWVdGn27Aufyy28r/KR9efSgP2cpyhRPfiNo
e/sJFCg0LcLcAZ4uRVtcX9pZ6IAkGuN7lAx+8THZZzQvKkUUnZzBoGja4oW9
n849EYHG2oidj2mXlbMlPEyFsKbjwtnPtJl1YbleHb8YXw8s05D5zcfFtka3
WpPvjIjVDbcYtNVW60n1r5pgyIqVhjrSNnBMv+nT/pkx6WDA8qP9XdQqunTh
OCNzndjdBNo9o//mm0vyGJ49JduyaGs/VbX7c8EoozawIHzWLyoUVJ/OjDCi
SrxezJon4tbEJEcYbj4O+7JpX3hspXizZYQh81e3Tw7tkSrL+LbEEcbF+T5X
c2nX9AT/MhYfYZStHX9dQPtOxTW5zKUfGGHXGpZdp139qdIyWeQDY95SD+as
rzVV7UyYGGawnGT7Zu3ZPce2oHuYobLB6W0h7efF2ib2OcOMgULD/pu09/Zp
/3NPcZgxs0BzVRHtiatvsm1khhk95yYdZl3o5nlnUnyYsXDuVOesrWIuX3Lh
DzG0DIZeFc/G8xoLvVU9xFiYfUqihLaPh8SDjKIhhrJ4u9msSy+KCKVmDjFc
Sxc8m/VC1blXroQPMf6Q4wmU0j70vqXrts8Q45BKjt6szx/mzGl1G2Kc+Cof
MuuVg7XSX+2GGLkZ56pnfSOgSGSDyRDjf5rzY0Q=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1gk4Ffv/B3DLbdNCqGjRoqQ9ZU3OO1cuuUgKKdw2S9m1WVIoCSXLOc45
Y6lIuUIpISFEJeFGikoLdY4zc45ByFL5T7/n/32eeeZ5PZ+Z73fmPZ+ZZxYf
8LV1lZGSkmpgtt97t/8NAaT+f7gdTPG+5S/A3cKdJVP7jLBmts9IxykBKIFH
X3CZFeoTzSdOSxJg7dLB2kO7nNG3T+/Y5QoBVndvzP3vghdqOqkN2xWFoEai
WziyIeDV5r0Pni+EpVTggzfhp6DQzv7O0WAsyTBLHw2F5YOWEWKTEC0JJx1+
eoehTH3Mq2u/EKmbP438t+4sPExL86PyhFj9Ttqyz/ACrsfn6pYUCfFM6dxg
Q/MFTGo1kHr7SIhQPX/ZQ+7R0CrfVtv3Uoich8h+HR2DY0tllI4PCtF5Zv/6
uMKL0J76fUWnQTeWsSac8d4ZD/4Js4Mb/+zG1+RNpcvj4sE9/CXypEU3yiaF
FfQ+jQePxRG37elGjWzf3lL9BMhetxPIhHTj1Pc8uUD5ROwekeZOftCNWaK7
Pf1JSWjMWHJLp6obC81lfYmaJOj/a6dmV9eNuxa/KhwGkpDzxJzt2d4NYZDS
8MIdbOiFmHaMDHdDLtEs11CKg4+mSRPKpURgbRaMfF3BgcO5tV5HJ4tQktN7
ttyWAxzd6VI6R4SGl9uWjV/j4FpheNk9HREaWYqRKnrJ+G7zR7mSkQhfnepj
A/ckY35bXYP7VhHUFbM154Umo1RNI0JsK8JnDDdoVSaD/crlyxFfEfp4y927
jbjYdL0nx+aGCNx1oT6xqjzseOv060euCPefnpi5fgMPGUMj79LvMevfvtpj
aMHDwGKX+MeVIlSM+QwkBPJg4JC2KemtCMWvYg/5NvJgPfrnlp5PIvhsP1p4
vpMHX82KIAhFqKaj+5WHeAhfqfO25psIIRF0Sdo8PrIEyy47TyPxQcVczN7H
R8voen8vRRJEz3U1nh8ftcflVgSokDD09/22KIwPC1vjgweWkjhU+VRYl8bH
hnwv6TZDEkfPHCzKauFjTTov4YoxiZRd2kUyn/hQvFoT7WJGIlFbelE/xYdu
kc5YtS0JoxuunDgZArnVt9qXHyYxrmCYKVpJoH3LPtZ2HxJ7Xmvd895IIPFa
cqrvURJ9cz74pRoSyBw+HpwSSiKMKD7wy4LAiCtH+WYEiZeLOA0bbQm8zlTv
uBVFYkb+hZ0qjgTUzwStvZZAYsRdUe2bK4GEpOKXCckkpN/u5lOeBCLcdrSF
pJC43jErjetP4Hy9/NbNWSSqDAXEjFMExM9bqxRzSOi9lk58F0bA8WbSq858
Et/Hs+fuiyTw15MhoW8Jib0yzZlJlwiY9M6TWlNOIvwdHbk1gfET/fddVSQG
t74su8MmILt5+gX2ExLDrK0G7Vymbuooj3oSL+pmiysIAtWt70O7mkgUfJ39
5EAaAaPPDh/DX5EQJSqW1F4hcHRvDOa2kyh8+eZu9zUCS/W1c3I7SOzK0L75
IpPAVWnlVQadJCY3lUYGZBHQvOLZ8EhAIj51wbp3NwjssylK2UKRSN+n6jcp
m0DW9n1XH9IkLjX8MWuYsf2b1q/rB0jc5+iSef8SaF589sTVYRL+nhPKVuQQ
CDz8yknuJ4m50s/svRjf6NbJ9JGmMGVK6/kTjEvblXY1TKDA1zmrso2x0sm3
QRpyFNQNVrR9YeZTGBtUC55BYbx2QaIFY/mrzVbPFClExxUrhjDr+1x9rzBz
DoW5plYaJ28SuKQbFrBrHgW5VB0+mOtPqNcITVxIwVPGRa/1OoFo+5JN9eoU
XDv/Kddn7l/BMbjw13IKTVuOtB1h8mnenfNt9WoKqqw0HS8mv+B3kdL26ykU
japEGDH5FrpZCIO0Kczi/jzykcl/ZZhOPk+fQvZGzzRbHjN/3rl/7m6m8KE3
/AmXQ+DWHtMbr7dSGLVeVUBcJvDkq5b1Z3MKlet/vXC8SOBkSuAEoSUFSeFo
kuQC0x9pck+7dlGARt8bTjgBQfPrrre7KZidSbx9K5TAPZsP2g1OFJ7YEZ28
IALnihzYmYcoZB1RzhjzI6AaQ92N8qCwmLveKsCL6W/XZRruXhT2N9qyq90J
CKc1rVQ5RsHD4OfGfmcCpmOv4kzOUpgwScctzZx5vsYWXr3nmfztVgVMNyEw
S79Qjh9DYUXwni4nIwIt/g3ZHQkUnulnzEzVIqDmddtI5yqFCBVz0xwVAlA4
MVCZScFrd3u/uiLTX3kfs8xvUjhQr9YXNpV5vypLFC3zKVTc4SUKfvKhXWJZ
r15GYYfpFCuvz3zsJQanxz+iUCj6cXDaWz4eW4WcGa6mUH5pm1ZSMx+7lTdN
qaijoGBYec3+MR9c9naf+W8oNA91lVdm8uHmN1W4qo9Cl+Z9lWDm+6S59/0E
lwEKlw8ncO878NH48Pm9i98pJHOs33VY85FjE9zy8SeF7Ym98kOb+cj4GvrI
WU6MQJvjj61V+NDq3Tu7fIkYxqX6jlQ9Dw8jZf9ZvUOMsI1Hwxo0eSgO1tHS
2yWGqoy23c4FPCxYwi5gOYjxZvjwloaZPKRqbmg2cRZj3D41MH2UC+Kkp+by
w2I8uEJtrajnQmYorMk+TAzP6+woLS8u1h4JUDqVK4ZHXoIm92Yyyg5o+Wnc
FmN+hHquWkoyGqNalBsLxLjS9KH9WlwyPAtfms4qFqPmjYEw5XgyBIs1i89W
Meffdiw4aJIMXWMPxy+tYpQOe2sc/sCBb/QCovGHGLyNGRbOShzIhCzRlh4X
w1Tu3seISRwsarvRqiUtgVrYUHP2GBuRpnMNLk2QYIXf8KqhLjauSqk/XT1D
gjh/NXl+IRuJnGOrZi6UICEws0XRno3dh9vTz0ACr0Gl9v1EEryXCVs9QiRo
66/989WqRFxbN5VeQ0oQdT4+2CQlDj8q3I1v/9kDuYcqOw+VRMO0ZraaSlQP
jAfvqOm2RGJ2ea63oIapC3gX32+JgOBpOlQHexCy9oXHacFpKE9J5v6aTyPK
gTx+cEsw+m877PU2ppn/iHNXJsqcgEHVYIScC40RR4vLU/MD0Gpy3GVFII2Y
/4IfhP/tiy+X7ztmX6IxI7iOsrM5AtuAFA4/nUb/40+Wqq5uSL/lJFqUT6PM
kSWRbzqA4KxpD5xLaVSXpWabjPyDvq0PdS/X0lB+YWZg/3IP5Nu8v9U10tjg
GBmzPtEe/gHJq5Ve0xgNeFpUqr8TGzrv1Fe9pxFup5/Wq2GDeKzFpE4aj+sb
Y8Un/kaEslGat4CGWZz/DjtvMyQ6z5cKImnYitbevVVsgmkL1xbnSGj89dZF
a6BuC/KzxE68XhrC6HG7Rzqbkd1AsGW/0dDQfLRY5qkexoJmzJYM0IhWv1+7
7i9tKD1bVZk/RONnWUz5+Rla8ItS7pg5TKO0y9refvIaBLkKkjaN0HDzt4z9
t04Tkmev/v17lEbaFMWezM9LYcT+I0x9jIbLLAv/vfWLMcCN5YoYB8THtxiK
F6AmZslo5A8acdv+61h5VBU+vRL25J80FgTxHb8XzcIay8ScMMZVjwYnNZkp
4nx/duxHxotGb3ODlshjpcz3KN1fNJoJpQKJphw2XfJxPc24qDnj74ZpE9GR
XKhXzNh6+o64vhcy4Mf2u1OMLRKsJr67Ns7Kcam5ojxOo21egd90apTVrrx9
ph7jLvfGgdTRIVZDZXe1PWMF+5CYgj3fWN6yak2+jGn1s5HOob2s5/oqun6M
322/mJXs38ua+O1Z6m9/01NY0+bay9J9YH3Yn/HzBXpOx6x7WbM7e38FMI71
qEtXWNTLkt1ZOv8EY3FIxI2b0TRraG6x+inGq6YpvHmo2cMq8/wU/tvgGzps
UOphLdrz5ONvDxRYGJf8lLBeNz8jQhnfMPfX6G+WsK5E500/8/t4J78f808z
9QeLhOGMIzNLlEzfiFnrqlYaRzBed0/1e261mHUuYID4n3e3Jqjni1n6yU+t
zjIOX1pauTlSzPLWC7hzjvGuOc/rF2iLWeZfTk+OZOy4JF5rdKGYZVVlue+3
w828Br9MFbPoxtXy5xnzMmqOfO2iWHP2w+23Kx7QE8aaKFaEQKn8t4Pz4prV
yijW0OUcpSjGzj2BtTbZFEsvTvbIb8tKIlvi2RTr/wC6k4h1
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1gk0Ve33B3AqogyVlJkoEYVSyNv9liKRKBIqlHmMRkkvpcHQK1KU6d5j
7BoqIUOJVIqohJBXkcs95xruaygN0u/0X/9nrbPO+qxnrX32s5+91zrLDh/Z
4zFLQEDgFf38ea/7v9UPgf9fu8Ld72806ccby/e54l+3IqRnm5TW7n6UHvyh
MvPOFoajEn31gf3wqi3sSvzHDcIX2Pqjt/sx4yF764XQMXQZGsvJyHLAymhb
LDLrPLKslJ0fqXNwav6PxmaBSCwyCjpnqc9B49d7kryfkbgwNIdcZc2B8LbZ
Bjbci1g+lFgzFsnBsXP+z6cSo8HSSrv/kOKAEj1gXqUej4tC64QUv3KQ6bh8
SC82HvPeZhj4zRrAZ33hHLXReFRMmVS9lhtASm5f4+W7CRA5vzy1zGIAI+pd
Ok0qiRCZ616nmDcAqeTquVO1N3Aixj1h//0BEHqmTYskkyDocV0zqnoAlZYT
GkP7kyBT7at9p3UAUaL/KvaNJSHFeX6F7u8BtLMWFFpK3kTNkKqEpu0g6tY5
lOlJpUDDW83rL+dBvCjq2l5nm4Ketgpik88ghIv9ZWUTU3Dc8bzZvPBBsEj/
m5oSqVh0+LfsW/YgtGfi8sy+pkJFp87cvnQQndZHt51enQb1wSe+rx4PQnVb
qU+CWxqaFOzEIlsHIZPk+TmiKQ2iK5NctaYHERiYnVCXkI4bGZF12sJcNAfl
K16uTYdDipiC0gIuVi9OYFuNpuOzVdbaFjUuFBOd+CNmGdgQ3G0fZsGFYfLc
0I7hDKQ/LpcVvMEF89WGsyJzWVhyQsp8QQYXmTEHy42WsqBh1m61MI+L0qaJ
9DkrWVj0I9aWquBCyDZra4ApC9OGP6wmu7kwMRFxuXuWhUOzMrbd4HDRKXtH
rS2GBcqCMaIxwgUrPEc1PZmFWM3mxxozXNgejvqkco+FiQony3+USay+5P94
UQ8LHP3VFfUrSfwoLEkM47JgyvPLm9AhkWQQ7X99jIW8GO1Ajc0kGq5+iXk3
h4BN1eqTuuYkVvgkC/4UJ1BVeOuQtg2Jj9U9Pe1LCKi43dsq4Epi/L8AzbyV
BJ75ffDt9CKxuLuugalDILQ24H32ERLKDu/0rA0IiO441C0XTqLxcvW996YE
tpV9X/J3OonYEC6Z5UJgXL/OICybxP6zzEYJDwKb7MWqggpIDCZtYW72JWBb
Rq3aVEminhQ3mD5GYELCZZN0LQmfhYoXL4cQ+LBF7nt/PYnDOr3d/4YRUH0q
WOrRRmLzCk4ZeYFAkGJ5u0w3CUH/6nxWFIG1HUcG6vpIdD96FL3iCoHBrsAJ
N5KEgtL+X6euEpCQnJKcHiUhmbTw3s1rBDRdLS1jv5CYreW4M+oGgcoHd8oW
TpPY2p8ftv0mgfVydxzmiFL48N5mq0E6/f0fb4qDJCm8Ukpe48MkcPGi2Jk2
aQrGWa/2BRAEenJyn+koUDjp6+WzLYsAZ6g347wqBYu7HeL8bAI5CxNkmzUo
KNo5cwNyCQSsu7pVUodC187J6Cd5BAqM47V2rKcgf+taFO82gbeLd/SGGlOI
MFx7kmIT2MkODMreQiF3VdPA43wCV/vLeM+3U9A64ujrV0Dfx53Wg5+sKBQJ
tSbxaWtNhHX+Z0vh5YjejGUhAfd0T58fjhTkVh5Zd472imRT5WkXCibFkQ1X
afc0vhb56kGhJ9bbNoT2jGq5PulH4fKDJe7GtIeda4rfBVPIs+yN66LjC8dY
xpWdoiD50dHVlvaXj8kd8WcpJPYvt2fT+c00P01xj6TATE0e7qbz93kxytGN
ppBuKsIaos8XZmz49Esche8qzcOd9Pn/TqkxKblOQSngL+tsuj5ldtlBPikU
QnwKt+7KIeD1QchJhkUheO8xsw66vt2ps8VqcyicCOK2IpOAg2h1omsBBf53
Z+8oFoHlibtnvt+j66+nG1GcQd8Xu9fhygMKY3uLkx+mEah7FH1v6SMKu/MM
tfJSCAyl5MXKvqDQ33y/fHkSAb1lkprxTRT+cVHLKU+k+63V7evvFgqrnXnk
6gQCLo2i1q/+pZD6WlyyPpZAX8uJMfXPdP0/b6gh6X60dJszfoZLodXC6tB/
FwmcZj82XjROgbu/e8m9cAKSy4TSbKcoyOYpf/Om+1v3dlZU3DS9H8PzFDlN
oMRXaf2YMA8DrkVR08EE5vPOKPnJ83Czt0/x+WG6H7sWNrmq8GDzfOXSd84E
XnAa02xW8FAQr3uzwYnu35rRZiUdHh7U3zx6eg8BnfBvoSdNeDBQWWEzsJnA
mt2ZVoztPEjm9++y/ovAQzmBeIGdPPiORezLped7WlAl5vheHqSzPV4orKHn
f3a/i7w3D1LjjeQ6OQJGxr4Py/15yM8cmZSQJnC7xKllVzAPH6ZjT3ZJEnjX
rrArIJQHkQ6F/k1C9HxTBSf9r/BQtaWcaclnwWyLTG/oXR4aV/skl9ayMKX2
7l19CQ/2VSenc6pYqCTezJGo4OHT9ZWDMaUskDKa2+JqebgkrblM9zYLB5ku
v+1beDgTlK05GsdC0rR0r+Q4Dx3KfmreTiyMOubustEdgpiTq4t7OxNpzGhL
N/0hpF176VD2nImjUrYlwYZD6I+qMJoqY4I31NUbsXkIjdKXVlgnMRGofS7C
x2YIeyL1mxzt6f2YUgPfI0NI97IM12rLgNJrws4xfwi1QqWeQg3pyJx0e8uQ
HsawQr6zXm4qLpmo8jVlhrE5S95rXVIqPNlqTovkh+Fb3XZlw6VUhAY4q3Wr
DKN78L/8zZ6pqAgo6dupPQz2gg1aXuqpWLhPW6jUZBgNZ9tmSeeloLinUuN2
wDDmZT27kJ9/C0/iLp5ofjSMnr+HNTVrklF07f3mwF0jSGy/ObZsOBGBHq/M
l9WNYH7j+uIHd+NhLH3lwSr5UVgsFW0TZVxBx8Z9zD1+ozAXtzlXdPUygo/O
bslhj0LnF9tnIzcSAo9HlJV6RpF3WK0wtC8CG+++/iYsxodxyuHklyZh+GL7
fPy1Lh+cqPJwzy+ncLw+KsZ+Dx86q9xqVogdR/Sd9h8DAXyE1Sx1CegIQtge
j6BbkXwUprz5cCHHHy0cH53TyXz6f0e8yHS+N6527/yknMfHc4sQKbUAdzgu
jowNLOODmTF9haN8CINNIkJGT/h4Y/8kKu3tAZRNDo9dauRDPUR23pIoB0is
m10g0cpHrYajYmOqHeru57592cXHNaknZkEXdsPGroHy+MRHl1Fn7Lw+K3hb
/GTHcfg4vtHtUv3yHbAbvR1NkHxcv75vs5i3KcZMHI8eHKbjK7tuCP25BX/p
q48f5fPxi1156Yo1A25dbYL9Y3xsv+PAbegwAvugoJHKJB+dR1Szz1avxy8Z
px7OFz7WRZ5StopYC3/rEHGXKT7mbin/e1OyDlaxy5Y8/MaHu3D50wtpq/B0
Jl3r9Xc+Sua2my8vUgfVHpbR+IOP9PPalfUL1BAsq0Em/OTjzL+zgpYZqEBD
5uVew2k6n4eqScwCeSy4b3+ghbaqh6HMSsulKHqwz8TiFx9FhYFsifdS+OZK
ylbSbvMRz3yUvwCbvK2LFs/wIdvv49giI4a6bMbig7TFv3pZXJici93U/utM
2m2L1/a8Vp8Dx/gXcm20vZurAmTVBbEhV/bXb9p2XlJGt7b/YpivHzyg8ZuP
rJ4WT3H2N8apEJia0/YckQkomvWF0TXvxMs/Du86N6toYpJR3LXTcgft4Lbr
e8s5kwxnI461Be1OXoPUcP0k44lDpd1O2pOmXNH22EnGtU4DKxvaoUuzb6cv
nWQkhO/7uY92pVoh/+2GCYZgnN0xB9p6IgYPZDQnGGue/uT9seSHfyx95ScY
M7d2dDnSfqb54vkqgQmG8lOqeD/t6pLwNSqN44w7NkdtXWjLmtWde+8yzpD5
vKb+j0vvV7SW7xlnrD1zy9CV9kCq3LlM03FG2aPTCof+xHth3pKoNc7INAvo
PUx7usbj7MDUGMP4E8vGjXaB5ZveBUNjjJkjF2r/OEJ+0sP04xhjy9EDTHfa
zn7JFQ3PxhgfXXZLeNC26mGfkq0YY/Rvmgr7Y71TTOOjBWMMZ4tdQ3/8Xc/k
V2sG7af2jp60bwgfKGNcG2P8D7UYZEA=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw11Qk0Ff3/B/CoUI+SFCEhlNImiqh527cUUomyUwpRejxEiy1bT3qSdmW5
g4oWFVERKZJkKWTXve5c61i6lqJ+0/mf/5wzZ+Z15sz3vD/f7+c7o+jmt8tT
cMaMGR+Y88/1/45O/P+du/CB/ZULO/FNaMHepFEz9D9uKAhW6cTlj+0zisr3
wTnAvTbaohNGfMElI/5eoLVCvT0SO+ERXD4kU/4PHjTsV9dW6MJ+oyP6S8LP
QdIhxNNZvQuChVZvgl9H4/fUoIuvAeMV421GP2LA7khUJTy60LM0a8jSJR63
d/kfyMvowm7vSf+E8QTc3Knbv3TlN5youbitfd1lyJZroHjzN3BWXeu3yb6M
6s6mXRYm39AkZRzZujIJTh0Pt8l6fkNgpvZJS+kruFW3N/t+6jccYht8Vude
xQ3hh9vTJdkYuFuk/XTNTShXeTR1KrNh1lLydsmFm7BxnblmjgYbAmYjUdTA
TUhK62bJWLGh90BRtiHrFnJP7wk0OscGJ+veeJDobTTP2bP30xAbhPFAvKtp
CqpOFRe1/2Jj7drSx3F+KRgNlLzQKMqB4lvO8OCVFES9D/oVpcpB7c9c1nF2
CqZWjXo3O3FgE7I++X5AKjL7N9pu8eFAvM49YiQpFZ/i2r6GB3OQqC4iG5Of
Cm1VGceGRA5MdXIdsyZSwbkw6hhRzkH/yvejP4+nwcrFxkP3Mwf2jj5bxxPS
UBTYqd3RycFtZUFF2+w06Fc+aOud5ED05tlGTXYaUqqV5kiqdWP4ZZVmk3k6
REYeObXEdiMgwcfpwFQ6ZFJYcq5J3bBYnu5ntYCFsqNSXZ9TujGX1ugqUWKh
sj12+lx+NzateD+qZs7CWYUSA2lON3Q27p5lcoGFT+u/NS6ku/H0gQfX4zYL
tIleyM/JbtRbt91d8IAFnfOl3jfEuJh8Gyi0uIqFnf5mvgt1uHj0ZJ//lCAJ
rxeFA9FGXMgnP8/PESOxad3mkwM7udh84q3uhCwJyaPX18W6c7FFs+iskwaJ
Kbvw/4p9uaiL8ZoIJUi0a3EDuf9w4XMwd7mOOYnMlYoQOs+F39HMqSRHEolO
kwd+J3HxeljCXesQidivOwN67nDx7WFaT6g/CY22gN8Xn3DxqSKzbDKMRPiq
/XkbmrmY5os+ak8hkStb9VKCzYVlQveLXZnM80pZ794+Lj56FlifySHxNmTd
koBpLsIubxudXUBi2TxHQxUhCmU2bNq1iMkXpO/3YT6FfZJ+tiffkKir6VT8
Lk/hQYbzak4VCfJEdn2gKoVNjkoBWrUkHj3taxnYQKFZrL/c4gsJjtRiK/st
FKLe/Z4h/5XEBpU7+gX6FORiWWNPW0mcc59RMc+CQpyzQti8ThIN9g/H9u6i
8MSmIGgVm4RKXM3tcjcKjVkOCx7ySMyuW69PH6GQIke7yPSRSBvIa/srgMKb
j8/PWA6QGF7ZGiMXQkFeZcLIhCZx0i5zr3IEhYSQ5WEiwyRcz8xzUIincNtE
dTRxhMThO82keCIFwvStXc8oid35zZYTNyi4EM+85/BJdL/76vo5jcJY/5O+
74zbP6aPk/coDEucupw9RkKwapaiby4FgxNVy9XHSUiUVAytKqTQUu1oG8G4
PvtFcGsJhRxO/zfmTcxOuFsd+Z7C3cBNFxIZex9yElSqpVBiPCpuy/i4bMXK
/CYK3yU+rGEz40v/qLbR76SwYNmhW0aMd3669F8JRcHhdPbMICZPvtTPcS2a
Qu0/eoKnv5P4YUUnscYoHN9RoWXH1PPq+95Q4V8UdAx6DGcx9WaES790mc3D
iutm76KGSDgELjv4SJQHzaR4p9ZBEmctd8SPSfDgGmyXLcLM56uwf7dqyPJw
P8bG6i9mvvMvvYs7uJwHMSF5isOsh8RUx7mLq3iI0/SUuMIlEaRTov94Aw/S
du8D5DkkzlfaVFVo8fDi0VBmWBeJUdVgrUaCB+/Is1av2knsqVt2udWYB9XF
y+bWt5DwvbDRs8qWB21i+8YEpn+WqR+azHPgAc0OJZvrSBzzTy+65sqDpJ1m
ZmE1iaLENCkDPx7kauvD7MtJLHGWez8nkAfjbV0hfzP92pAkRlWE8rDSy7TR
r5gEsagyfW0cD/Oasl8K5JMwN7Rwqb/IY/bc6PYbuUy/ZD8u87/KQ2aroqnE
AxLzp8jXl1g8VKuXxWexSHgeUVf5u4gH++r+q0cvMus1uK6goIwH3xu3v2jE
k2hOepI/VsnkX9gT0R7F1LfmqIpDI5OnvOVN90kSq6O9ZStoHtyvGlS9cydh
tMlzfy2fByfxsthSZr/3l8h51f/k4eGL2S0ZdiQidlNLSoV7kOruWLl6O4mf
vnfWb5fvAW3t1bhanfne6NmsXarSA7dbLWsDV5NYautoz13dgwwNa40cJRIW
OVmHDm7uwRbL2ksdi0kU5wrGSe7ogYCkzkWnSRa+/Ppnh15wD5QutnFEX7EQ
qOqme/d0DyIWRR/d8owFlab7M0Uje1AT8fD13hwWsvN9thdf6EGwyb0uj2QW
euPMitvSe3D8337rhlAWdnPGjwt+7EH3hxDSdAsLV5wVRdRkezFkQIzI3UuH
0plkRVOFXnj/DimTTElHWqmPlaNKL04ttbwhdCUdz9UmxIPW92LxflvnqrB0
0JEDBl6GvYjNWfN5bF864iLEPXSP9KKEOyk1PjsdQvfND/U96cVBs8PnxQ+k
IdDbKUdtSx8Oal+oLxdIxfUXw6Ift/aBZ/JgLGc8BQJl46NH9PrQJr5jWdJA
Cmqqu7xvmfbh6Hjqh4NfU/AgsiG+YU8f1hRw66Qfp4AKarp+/1gfbvjrele7
pMC0cNHHsYw+dFi5CT+PuIMi6U8X+0T6ceKAoluwTDKK7E7wbV/2o9BzuibG
9hrmc9x2S1sMQIbdJOJmdRlqoW+Ti/MGsPT9tcDXyv/h1SVpu61LBnHCMLZ6
Q+x5/BiuOfzZfZD5T2ne8hSLwRfzcLZ82iDe3htsbHOOxNjV51MfmgexrfBK
Zp1wGEzWqemsFqaxJUxsEb8xFGuDyzYlrKex69T8AoulQSiW668tsKYxy/jU
O3rrCUzFlB2pPUKj02Rir6fGMXC/RsnmhtOImf3QPKjFBxcFj3JCk2i0e6jo
Cod5wcjHUD8rg8aLTFerLzEe2DUi0lH1lMaSrMohTWNX7Dkz1fG9mIbhseTp
EU9HxG4Tdl9XSUN4wjmz6dE+yOdcFSfqaByuSH/26OdufDY1rBxvohFRs3/o
b44NiHnmtSodNOZnh4pxZHei8u/9NUIcGt/dEs74pZrDdlZi6BkejQ3WheFm
0cbwjp5VtqGfhv+xm/UBygZwlfjYKUvTyPWe+1uNJhB8e6FY5TCNIqERqajZ
Ongead1GjdLIMDFeX6q8GYU7FKKz+TSW3ou/F0ltROnOIukd4zQcLUtFhL6u
h6VLn/WVCRrpzyzCtJXUYNjic7RskoY1Xyb8c80K/OL1D+b+oBFgsH172CEl
RKpzpE/+pHHzxbU3JhcUUJL1RUt9isaZ45Gbizpk4b0wk13CWDw5eXPESymI
3P8VZTJNo9BL8XDQsARmHoqXecqYs1LBXu/TAug5/Xw99xeTT7t8V/NdUYi6
3bR1YGy7o8asfakIDnfFq11nbHo9U6ghchYeJ2nmfGSslv5h78pIAZg5O0xP
M85J2rb9ddg00eVXqqb8m0ZajW9eu9Ik8VdXccUfw8LNqVd8kjhvtcNThbFs
rGqD4IxJotpKOnkFY4EjvIUOrROEgOhp4VWMd+p71aYkTRC7eS/K1zL+Hj/F
jp47QRxpXjSxmXFxqbTP2ekxopBKi9ZiPGm/L3DxwBhhZFkpqc04f5c9kdfK
2ISrsYWxUahLt8zLMeL6mv2HdRnHaOfd8QsZI+q0TpaAcelNCVNM8Yn2968t
9Bi7JxWtOt/PJxa7kPV/nEco63Na+YRRmTlHnzHvSVvfs1d8wvKGsIARY73H
uvrtZ/iEc6hJ9B8LPx78GuHPJ6QKVOYZM/43uslN05VP5Pq+kzJhbF81XynP
gE9ohMTc+mN3Ix3zaA0+cWV+v4Ip41cZDtvclfnE3ePDrD82COoYM1/MJ7aO
XFM1Y/x5m7avrhCf+B/ynHVX
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt0wk0VdsfB3CVqJThqStFiWcmZaqk+02vXnlFZWqQoSh6Ea+UIkmiHh6h
knnmnhP1EBKpKIUoT4MpXNxzXeGQIVP6n9b6/9baa6/P2vu3fnvv39prjnlY
HJ8rJCRUw4yfc1zsz2iG0P+j9TehhodVzbiQsZKSGzbDaMaOluiRZjxUrl3h
V2aHhIjo+4l7WiBpIiVvZuWOmif+a3umW9AY3W927MYlvFMfarHf24YtZWTW
1JxQ+LnU1b260IaKZI+NtH8YVpnUSXxLbYNK7bpqh4l/wO+32UGMtOFERp2O
j9tNfH4apn3s1mew1JaK79GOxmOLHbnWte3Ijw53O254F1KbHVOMh9vRsEh6
sOrNXfzzV93hAVYHGrLabFsdY1Fh3MbKPdqByDlGUhuvxuGK6Xe7nNEOhCmf
kvElE2C76d0DzxudeDHUuNNqdwqCC3Nmn8V2wjsw/WhSUAquPhnQnCA7wXp0
pnakPAW5euEZK+s68adziMSbtalYrm/HMZLkwnXqdFDAvDSIbB6WGY/k4r3J
0hDrwHQYF/v8IpPOxbfRa657CtJRPVr4Te4hFyPBrFTrrnTohB/TavrAhV2I
SNC9LRkY1r3Jk1zeheQt6tMlggwo+ca02ql1Qeyt0cG7v2RCtyRaInJjF+Kb
yvJTjDKh2mPdQh7sgsO8iOdGNzLRd9gp5t+YLris2d7Alc1Cf3QtSz+7C2F3
rrvYGWfB+06GYnJRF/hhq7yW22fhVeumIK0PTL44oX8gOQtn41Rn1KS6ccM+
dJAtm4077CCNN9e6cW3Rwss1/dlYWxEQ3RrVjf3+k5NHhTnY9WKV5IeUbvQ1
VRbZr+SgqmPv5+Cybuiaigjf3MkBNXhtTPC1G9l7NDQWxXJA1otomAv1QFnd
5/u8HA7q1YbTE5f0YEdes/LZcg4icm8L/VDtQZlhn1cJl4M9Q7ec39r2IGt6
PEdWkYCJ79H3ka49KL3f+fHrOgJVa357sPUcs35VZnYvCMQ6/TB0Du+BnVCv
beJhAmNvDbWa43rQ4oRVkS4E9GR05Ddn92D4lOuIhBeBL0sS/aqe9qDEcfxQ
YSiBjDyt9UO1PQgQtIh13CGwQyf3pGhTD7zuBqnGpRLYNJY6PEv3IKR8e1tN
IVNPsI3FWs2D47upaZNmAnJNa/78os7D87ljMimdBHiN/iF5+jzcHS5z4fAJ
OPs63pX8g4cPn5fIl40S0PxSVEJY8fDfq4qn1VMEDgzpSeg78HBuZ6JksBCJ
mW2m5XJePDR3rtggIUbiulXhbt/LPOjxBabtEiTuBNJetTd4OHbEMMhxKYmB
HK7lkmgeDm67LRqznERUlcxck0Qe+h7b86/KkRAZGow5kc3D5VjWr8oKJJY+
uq59OY+HYJXokstKJAJz57ZeL2Xqk2T6TRUScg5XHgW+5KHcXa/dVp0Eabum
/a+3PDQ+mnecq0lidL2Is0UzD6rvh/UU15Ko9Nx7TLmbB+0F739fvY4EN0t+
uK+fhwOJV2Kb15NgOUWqpY/zsLytTtVCj4Smfq2CuRCF7sVRA3/rkwh4rPv1
y0IKNo8L+wIMSKip/Si4JE3hAP1j4WZDEu3F2y4JyVOQ/aqlVMR4xUvxo94q
FBYP9y0ZZbzvntcFrg6F5BW9qWOMx18GNbE3Udia+F9RKeMAT8uYiG0UHLIP
/rqT8XERuqZxNwU3F7WKu0w92e6Tf4tZU3gvNuSSx5xH6tiHXkN7Cgsq7QYi
mfNWtm/7Ye1C4Xzpao3NuiQyHlZ2uXpSCFfqGctl7quOk4THRQpP1Q+pfWHe
41Xz9pN/XqXgPaMVO6LFvFeHy8ZDoRRUa5YovNYgcai8WMv4FoXSzrDIk2ok
vBUXfWzPpBBQOnc1i+nH6Jm0/KT7FNKCbdIUmX6dlmALWxZTmJi0751l+unX
SFrHvqbgzPIJVWeRSKuX8tNsoLCofe6+i7+Q4JVlu+Y3UxAN1cqKFydByYa1
JvVRUPnP/ONhERL6RzxDhEcoNIU8kZmcQ+L5xgd7HKYpzDtRUuL2nUCRi+vh
UTE+uM+2D34cIWCU7la3dikf4p8C+PWDBJ41vE21l+ODrX19NklAoOGZf2GS
Fh/PXxS3VrcTCJRTW/5An48BTtAbZeZ/LKsbUCw05uN3h/B1RxoJKDrd8E7b
w8e6G7ezD78iMKdjRkzYjY+yfIes+7nMfxBvqEs4y0egw6UnktkEdq00UtHy
5eOE1i1DyxQCnXrun9eG8CHE9w/wjSLgZW2wpiqbj7z5j0iXcwSCj7dZL3vA
xxMn3V9b3Rlf/JxgW8SH90MHSvcEgdPLtifWveDjo0sXK9KGQP7YDxFTLh+7
7n2llhoSEJ1tdLfo5eOTnodzsTaT33LfzpLm453ik3oTZQJXTcqljb/zkdE6
YCS5lMDBuVftyOW9GDO725I0xMGJv4rG5pv3wt7hceSnTA5evTKyCLfqRWFS
drhaAgfiP6LEJWx7YXKviXCJ4qDisGbrpEsvUrivi/Muc+CmU8I6H9ALIcNP
+y/bcPBnJdtauqAXFsYP8tjzOKiWLc1fJyXArv33Ztwts5HmabTBRkaAYJcl
Y0o7s1Hf3OnqJS/AXtHMR2+NsuEbfHdBvLoAL6iIvoWK2RBtrrwaZSLA++qN
VpJDWdgg5X1W31OAwdLU4cSQLCRfq3eOfi1AuPISC6/STBwh/m3ku/ThVNq8
kS+sDHj6eTQbu/Uhgu2V8mBRBqbTFBL+8ezDh5fm416z6SAF4R6KF/sw9qaG
FqbSURAjPiwb0odKJJ80LkzH0AL9Mzvu9eFi9ZPxlVbpSNjZNrewrw+2EytF
FG+loVVzckjE4QvGisJZxxVSsWh6zFFBrx9mPhcEZtcT4BDmONzR3I+xPl9e
R3kMDAq012geGoCbo8p339loxH6uOitaO4D7kwYfEHcTjzusPJYrDcL0kbiO
+9dQ5GY+twk+NYiM6ofEtdTryFeT8zTPHYSsax2/rSQQhdzoj6Wdg1iXcsn+
04MriH5jIHNFgkbY7fGQkXZfcHy/KbUZ0FAiZIJtHb0RsF7h4DwrGnd0FlRp
tZ5FjVNQ+B0PGjWivo+TMz1xyyF08c4gGrk+sy+ObHND2I9jIctiaew/9Sh4
aY4LGu6M+zkTNMxNJQqU+U6osgpI31rE1DOV4PnRjhCOjxBaWEHjUA/vW6vn
EZRf/i/UopbG/L/rT7prHMS/3n88lmqkYf+0wcM5zgqZZ5wydFpo9Kq4cw2s
9+OpmlxDXQezP7O+IDPADBG8+wUjPTQ4Pm2K0q93we2NB19PQKNF1cyxkbsd
Bvtv8CP6aUyWyA9vqDPBFeN9DzNpGnuKrc4Eft2CIgO33cu+0nCsmUvn+26C
4ZPkzatGaVDnis9qPTcAIWaR+n2MxhLOrOuohS564274XPhGY5++HVfBSAeO
yRfWvJ+gUdrvdObjVg247/CJoiZp7A43731rqQLrDL/y2ikatLn7BGexEo79
VueZNE3j495Ssc0LFfDReF3v9hka727dO3t770rw5XcHf2ZcEFfBXfuVhQ63
lwm232l4xh/tkj4gjTS51bufMi5rTDCy8ZMEd/d004pZGm5/CJYZl4uhoum0
qhNjQerpjNR4UQx41EUlMxb2qrZhqQrD2axc9RNj25PGwccnhdBcw5ee94MG
N0SloKl/hm2l5vH6pzUlFxzQa5ph+896XRJmbB2fU5tQOcMWj/reNZ/xUNzt
6fi4GbZWxWJyAeMY5Z3b/zCdYZtkn1cQZ7w6XrX/CDHNjg+VzlvOmIr/pC3u
NcUuSlK0kWVsaa/xQvvoFPuldNnUT+f0jNcdNp9iUykR21YyblpqJflZbYpt
XVD5Rp5xkuDyqoD2SXaZbEGtImOzmNuNW/ZMshvHb51UYqzLzQvUMZpk+2uI
iv7KmGWePqGtNsmu+CVpqzJjf9cj8/cLT7IXWabcV2WsE3z9wtonE2zBPglT
NcYr6nPkg+5NsP9Nlur+6Su9Vut6YyfYsrkNyzQYn3O7dqbx/AR7v8bN+z9N
mWwIsz0+wY451/27JuOE55V82nKCbThY2/7TV1Lhc3PbBPviiOl5LcZXY55t
3LJ+gv0/RgBniA==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt0wk0lVsbB3AqcylTl4ro3lKEBi4V569ZkilTZsmchEJS6vokFxUiQ4bI
MZ3zIpFkSipDSSIZynAGs0OKuod87/3Wt9faa6/f2s969rMnhdM+pi7LeHh4
Gsn+77j7f+0DeP7fujwySjvdPuDxphxl00AT3JMysta8/wGtXj+epFk5IbIj
jKW5ogMdYRcD2tf7IijM11v1fQfckna8aX14DWYBYlFc+4/guW6lX3T9Nggj
EVr87Y/QOHYI9zLugH0vq3m89iO2mTtmyV6Oxfzbu1f7Nnbhmhp3NGtrPASt
cq686OsCXWeXbKR9IpoeUVlN+t3Ip94vNtS5D2v7div/wG5Urta2vDNxH9dt
NSz7s7sxV40E+eQ0eC6UVi5xu7HF4FGBwVg60oY9hdzze6CbdpHyoTwTEueK
KwR+9kLOPsrMYykLgd09SbMKfajRi2ijHMxGn3Xk3Rz9PlQxFyq+h2ejWjzt
k21qH3QVXfSlBB/CX366aOPez+j3OvbrwtJDfNCyFdzh/QXlffdHL1ZTccWq
705twhc4P+eKK36noqqNOrO65gvmjud0PlfOhcGGK2nfVvVDhnfP2fqEXEQf
njbqKuiH0bKGDGO7PDSwHx0LfN+PVsdNDsXRefDe5DDYM9+PJp19oVLP8uBW
kbN1XmEAIubf4xYk83EjM2Up9+wAWvJWlyZU54OuXGotEjoAJaXaiCBWPtaP
yIybxA4g+cmzrksrCzCzaq9DZNkAolICTjItC3B9eCqYujAA6cnZ3jxmAbZ8
aw6rCx9E9NvwavtPhagSm5Q/mziIyfprR67OFiK09dnTReogtBIkVEdW0eDp
+zL6w+tBuE2zfj3UpaHKb9sVQ8EhOL2xYQik06Agx61UlSbtyzCtLaXhdut5
wznFIRQotVl3NNJgXl4kp310CIf+EOVunKEBI0ZL1P8MoXNvLCd4Lx3py9aG
v4ofgnVk+V3b43Q0dyuWtGYNoZrBb0W3oeO1bmt6ct0QJh13bH4YTMc6//Fi
23dD2N3VLWYYSYen5Jiw0JchzNXLcc7do+PkbKqmHHcIMhO/75d9REe8VZd1
hBADwlkVSUQNHfIhK9x6fmMguSaWWtNMh/OWTb0UdQZmnh7POT1Ix0y1RwDf
WQZYT5xCJwQJNDjse9UdxMD47Y+UtWIEKKNL/anhDHwdNLzbK01Ao75xcjSd
gXyfVckURQL7knnkAwoZUPbQkOxXIdA+didp+gkDele+VMmrE8iMKeksbmNA
jTvWEQ0Cf3byds71MZBSyq5+eojAjSOUWOVRBvjlXPqjjxF4zlehaPSdAc2w
ExcFDAms06wrc+Jl4qtyxDMlU7K+X7lWzquYWHT8OTlvTmD2Wp2KmQwTG7yi
9M6fItA9aG2qvpkJifg/BBJsCeQdbmQs38lEvgLNxc2BwCjNZ6lem4m+Nv8H
I04ELp76q95Xj4mj1JAZmTMEtArP6a0xY0JVrcFzwYUAj7s7Ld2BiagJKblY
NwL3zbOFZL2YsHDQ2dDtTqBnz8nLUQFM3BTkD+j0IBDZU7hh7DoT6zz2aUd4
EghYHBDcE8ME37L8UA5pX/ctNkFJTBwwW2ey2ovA0cEi1bxsJpoGrJ8Pk/NN
KiXpjQQT8Vv/HLxE+oWE/avup0yk0AKfvyLzrzg1VtfbwETn5JjfO3J96xeR
+a3vmIC3DX8CWV+HkE/qox4mVvcGRku7EhAXFSuJYDFh7bJOwIbcn36V+3LD
aSbGWi/b250mkPr8QCEfl4nqd6+D5B0JbGnxek7wsfBuo5J2jh0B4RvF9sfW
sCAb2HprwpqAW8bn1M51LOTEDFjMWxKwa6iNPbmZhdPro4NfmRFIYHUKb97L
gm+IvXfZCQJrtbNrgw6xUFXbJ9hF3m+RqdWdGkMWdlpnJ9UdJkC7QBuRd2Yh
6kKFCkebgGEP84GONwseZ+yXNLQIeLoMdRsEshDtPm6pt5uAWoezwsEoFvhi
Sx63byVQeOyLnVICC5IiKtoGvxOYkbrkvyKDhbg7dy3uypLntW8xLPYRmV/y
mX48+Z69ztcUiXWzIO/gbe80T4e1eaVS3BALzvHGhWem6XB9ULKLf4KFc9eO
JGmP0hEue+Zg0y8WsiVULb176BBPe1pR/TsbYubtV1mVdBj97N1ftJ2NB89D
1VrI/xfrZnQhQYONpO2JJtEFdPiJ5CjoHmWjal7VMDuZjkKPs2VrPNno03Jj
qwfQIWcUlJnvxwb1XGk/vzcdImvevNW8zEZQRIP4U2c6RjWctNSj2bCTvWFT
Z0zGv9+wo4jORrtP4F/u2+j4Epwo862MjWdvV7bobyTjgy63qdaw8UlmwEFM
io7Aq+bj4a1sCFeInjvBQ8dLgYnyqik2egrV1t/upGFBTnSHjcowgo03u2Zd
pmETe/HlCo1hZPEFZy07T8PifUuVHO1hjNfy+hqeoSFcSohoPj4MbZmVPgUG
NBy2tFAs8BjGtDAzPnQDDZIv28pfZw9j7PM092tFIbI5lJOfxUZgGFq4zmm4
AJ4pZ2ZFZEZgU+vsV/+pAP2fPr3cKT+CCiUJD+nmAgwmdcBZdQR0SmhaNq0A
bz6r7HPQH4FtcJbQft8C6HXzKDdeG8G3N869/T/yYb7TQqtqeARmiR6Rycvz
sTD/QbM9cxSpBm6zDyVyIe3/ba4rZxTchu4s8OVC4JNx1qeCUVyQjq3pm6Mi
aki4p/nxKGzcE1PleqiwuZMV7984ivMmF2JfZFLBbjRy7JsaBVtibVKuKhV6
h3S27dUaw0Boso/3iRy43vv41q9mDMot2WsvpmRDNFK2bcujcSjN69iaHM6E
gtmu6LbzE0hkxYnd5E1F3bpNnh28k1DzTdz7d1Ei9LIq57eFTaL/j7hb/7TE
wYAav3OOPYn3diN79ifehqzDllSG1hRCLK47DBX+DVOTpSDVsCkMUMRvumrf
wB6/92Nq1VPwsX2Ymdv8F3gFnYQGZ6YwFSsx/dImFBnK01OishzwhidJ2ugF
Y4ArcPMnhYPFKoGESaMA5Jkbv/xhx0Hd6we1Jo/8oJz08qdFAAeDjpZnO576
YFjHUSghmoOAJ7e8RWI9cVlbNomRzkEW3eQ3XzNXnLIlFk3oHGTfbeMTWDqN
E5nHlyIrOdideqZnFcsBi7WJT741cJBSsH4pRtoGg5Gh+Q/fclBWK7tro4wl
JONLAjI6OVDY7M8a9z4Jk4yc+vFeDtpCc/kokcYoo07zlwxyIM281Cr56jjE
tiuVXWBzEP5ufWeH61FsMH4aqTXGQUnfA8W3Xw9Cf+BwOn2Sg4iYm+KGr3UR
xBU84z7NQdMfF2SLY7RR+J8e+eKvHJwsuuU/5aCFxgXXY03fOBD04aq/ilDH
WbVNDb5zHLR6jtdrXd2JjBDXI/PzHBw8ONpa6qGCSLuUGqWfHHjGybEeLN+G
2V6Pq8r/cCDicKjynOVm3G2xuv0blwN5jTK1NfMK6I9rF2sn3S78XcQrSQ7S
tglCVxY4UDMWlU17LIO8FP+jwoscKNOXzdwokMLulddmL5Heanir7UeQOHaG
/vn3AOnUiZhXwxKrsVxnPmLnLzJf5YKgop8wdK547LhI2tFUahk9nh9Tij88
S0k3X3odUL5iOeSlU3KYpB+7rAzgV+dBhCbveRZp0wjafv+tPGg07trDJn1q
22eLkQ082CLY3jJMusEq7sg4Hw8y6StHx0gfTwpWyy1eohRPcgRnSIeE7Gky
WfxFoUpoDi6QNtwVGBmctUhxrTyQskg6yE11yChmkZIk1Wz6i7SwroqVetAi
Jfvaifol0iVFR7yVDBcpaQa7UpctcRBm2fyt6Z8Fiv7HN+qCpL32/a77xmKB
8jn0Betff77pMhtzYIGitk87UYj06pZlQvaqCxSHq2XfhUlP8MZv38a/QFG3
bidWkW4TmFjlWc6lcB8zbURJH28ajk7L4lIUjUMEV5PevLVxTf8tLmXhi7bj
GtKUuMs/oty4FKN0VxEx0rkCM4fmT3IppzR+K//XLVO33c7rcikcISNHcdLl
Iflm89u5FPZ1UWEJ0iHsWzzRMlzKfwFjuU/r
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1Ac0V/0fB/Afj0pKVkalZFXIKFHI7+0pVI9QiiaiEhXyoKeQVSISiSgN
yYiM+6MhshIhI2Xv37K5LRkZ/9s5/+8533PP63zv+Z7PulfW3tXiNC+NRvtA
7T/P+/f+rCrQ/r8uPFAsHBOphsEy9SbxXwfw35XQ/oIb1eCXPO4/8/kk3hms
jnj730dYHTxT7hPujgKnMAVz01r0VvNaOSy4Cr7eEhtj109Y0Fq6MZ4WhRiP
/D1yqZ8gIBfLXTUfhXztnw153Z9g8vrfiOGpO/BsDfgkbtoAE6Xn6QmcGHxq
HdwXue4z9sbWpfhG3IOjUd21mJovqE66YlQrm4Dzaa1BsrRG3JP6Gd4SlID1
T5rNnTQboax2IsdqIAFx9+fbNt5rhGB5FG/5sydYMDQhH2LXBLFMX692yadY
LRNz7SW3GT+T/l5yPycZbROkiKh4Czy+qQyPzSdD9/v4LlXDFowyC/unTVLw
bdXCuIQnLWh9Pii6qzcFB42iVQOOtKKMN3ez1HQqDs9HZNsWtsG2Jrno/Xga
rOT1kh1G2pDknO62Wisdj8K+uCiuagepdeawtns6Vlxs6fr4Xztk4wVpb4bT
UfFbrK5ctQNChXec3Oue4/DVuqUxRztgsOc4DXwZEJsfGFoT3AGjEKWrQ9sy
UL/zxMTJng4ISj8W+/ooA18l91wovNmJw8G366VtMlHpa1J17nUneBsXbDYP
y8SsrlRaC7MTKyVP1/q+zkTRsePeg1pdOE+qM1lLsxAmYdo5394F84K0mpUZ
WRCq1FQ1WdGDjcUOHrLF2ejt4CmZQw+EWM+MMrqyUWmg1+jp0INj3NkMh9/Z
2G+2n0bk9GDfqqdzuisJ5KjNOqsr9EKmOGVNqhmBoaBTFx9o98K17Hf056ME
JgVE347s7gVP6u8vCQ4EOPl6b7c692KhIg9X+QqB5eMK+T4veiEh/bB8RQoB
iYcmTfwVvfjVzffaL5vA47zYpMstvbDOWOgXlUdAyvu8pMB0LzzX+2qVVRHw
1O2QUF7CxNWXxp7sBgLqj/QC1aWZqFtmrvayjUDU1YcHh/WZaGK/z3IbIBBe
6iOZaMZExOrWchuSQPN29Vm6LRPctEYmzy8Cd2+STBV/Jmz5TQ1deBlYNmGn
4xNJ3d93Lk6Hn4Gxb5dO5SYwMTzMXlosyEDfe+u+5hImrl9T/HdGkoH8/Xs0
XtUzscVf3dRRmgGhG/oy/t1M9Ngpvbu/lgHi4lnvxt9MPMw4Uma1gQEXsV1q
tgIs7Fh7ppmpwgDLd7lokxQLUcyOB9rqDFRo5I0HarGw175zm4EWA8lZSroF
O1kwzGgN+bWVAfGz77b17GeB98jqgMu6DNTN1YuRtizUZLK6q7YzEMyfMDrk
zMIwecJ2gM7ApJz/wGdvFpJOfSpuMmCg2bN3XeoNFkTXWRRF7WBgxMaq+kws
CxXf8gTXGjIwv1Hxx/JkFkbFsyx8jRhUHtdLs3JYkL/ptSnLmIEjfrmWWiUs
CJidMSN2MaC/qK/+WS0LsCw0DdpNnXsf2re4gwX7+PIvqnsY8LH+e8JqgAWR
lVXX0il7qHdxbo9T91cLL5ihLOx+Siefl407qdxJuX8YWJMuLP5JiI2ktEi+
tZRdrFbFfZFmo7D6aM0P6v3aqULWeyU2fPnCfz6ifG/PJvEkbTZigk/IylHO
F5wxc9vJhsOCt2NXqHhC/VdmbdzHxmb3ssEcKt6jbgf3NR9nw4tj8aiUyudS
ttsBFyc2is4bx6VT+WoK6Db99GQjQMbrpAtVj/Z9nj+cAtnYIVwdJriTgUKL
4Y+1t9gItBB9GPI3A8o9J33WxrPxbkpNvhcMXChPkbNPZePaipm05VT9exq9
O6Ny2dhVblm4jurPh870DznFbIQLSw1KUP3TEdNOK2lhI/mL8Zs7VL/DKhZ2
ZLHZ2Jmx3UNWk4HPh9/k3iTZaPvNPROhwYA0IftBchEHidPGjYLU/MTH+G0r
F+Xg0pF/dWWo+UpfurzIfg0Hx95tfyGqyIDrVw13Fy0OIkXuFj5Zw0DiFbu2
TgMOglLjdOmrGLDtkirV28tBTYpsShE1z+cszwd+tOcg3iBL3lmYir/auEIr
goNG8n5sOI2BA5xGVZX7HDjMLjGymiHAp6o2JJLMwU3haOuFkwRyY3nLc/M5
uB/TabeG+t7s2R6FJlwOWrb/erGtk0BoR3TPPZKDW/U7i060EFhknZbaPsWB
5DOuksdnAg1vU4O3LOMi1T490aaSgDM6pky0uVhbujXOJJdAjFHwCelrXPRF
7yz8GERAQ3J40+NwLkrL9Jwb/AiE8O3jk4jlYrjzXOKHywTetArP9KRxET6t
lXfdmYC14fTB/jouNCOnhqwOEih2uhTbKNGHFJVKLS8ZAvRJVnSCTB/2uLhN
pUpR/zv+fyrsNvRhtKzCoVqEwIYtIwLvdfpALkqUGfuLAK/VXT6B430IkH16
yqU+G1b9tXPpj/pwY+9PUd5j2Zg7pvIqV7ofnGl9hWcOWVi8SzdxSKEfTpav
viRZZiHPL1lPUrUf7ou2HI4xzEL4q9mC/fr9kAh03X9ALgu0Hdmtptb9cP17
62rTrkwoZwcz3OL7YRBf2xqyPxPJFtL27cIDqLp7rfO0VgYGYgheS/YAFCpS
pHin0lD8LOUg/+AAkJoT7DKQhh9nhwtfjg1Arptl2t2SBjWxKxNzUwNIkcvZ
VfkqDcphQWMmwoM42ilVVemRhrl2c+UWvUFMFTuXRX17ht1L2u4O3RqEpf6g
1bexVPge7bgTuW4Ip3U8XN/OJENIxNa9etswdrPb5LZrJGKy6LrmoWUj8HJR
unhm5SPEKjVJaRIjkBOUUBzVvYfvPDmBSgajmAxVNXraGQ2P0aQMWvYoam4Z
fZXwv42VLmZKLYvHcPpym0Xt1XCciluiI3V8DBJb0n1K7oTAXz9qr/6DMage
l1i1o+QaTOiv1Nybx3B29OXrgr0BGPe5eVh6IYlbr6ZCSqZ98FK3/UKQCokn
hY7zBXcvYTzIQYZhSoLIt29Ui/PA/uWl0aGOJJr6YxR9/3OD6wXvgcUBJDov
y4ivpzvju/rznE0xJJI+ljfcjnKE7MTuH2LJJGrju21N+k4h356e+jiXROCG
S0IvQ+0w/0jeSbyYxJKFmZYjNdYwDA5Le1pJIjH8ybYAhyO4vVna/GwDCf6w
dQ5C1pYQztxkeKiVhCp3fZK2mgVsG95GZHeTkHtw8bFXiBm2M3ivjrBJeMdc
KY59swfFlxPEhAdIPNCLHfcaNYL8DWJh1zCJuH1eMzpuO8DPpyvTNUai4ntp
zmZ7ILTy3yKbbyQsAyNPqlfrgj1pp5D5g8TXSEuVQ5HaGBE59NxvnMQGX5/X
z3U0cdTdpEhlgsR37a2+cUoayBcpSb8ySSJ0w+c5nysqiJGba4+dItHSF3VD
yGM93m0R/Sd+mkRHrZGrWJE81FRp+o6/SUhsmD2eWb8WD81/yyjMkHj39oT0
A0gjoOjRsWLK5g7+wUvqJTFYkyilO0vVw+MbPPcuR1XzrQ/plPOcYpQixESw
+FlQwV9zJA4on3vZKSwITYV5UTPKr2Vc5m984gdP7UxYFOXJNTIb+fv48OnO
3YeVlFUXukXsruPBT2XSu4rybcP3wrdLeVA/n36kmrJxgdNt1gse8F8yFauh
PFJg55cQz4OlrnS/esrXxXYNBTvxwFxJUbeZsrsbZzFtEQ8u1r2jsylzG5vz
z++m4XWMogCHcm/ugfMft9MwJjjR+MePV9tf2LyJhsYn/Y59lIftvh5esZIG
XxOB0EHKtLJJkejWebqBcSaDpLz/BR6cVJiniy5T9vhK2Sb9eZfisnm6YtUq
7W+UtXRlBSYn5ujxabZ53ylvqUwc//hxjl6zyOPVOOUGvgMNGh7UufVTj1+U
zTVsFd1s5uh1H/7ZPEE5bavjotLdc/QfTn9lTFKe9hoyjlg9R1c7K+44Rfli
8NpwQf45uo3QE/lpygPCtZvjv8/S0wtTuv84xM9s47auWfqWtnX3flOO1/vL
hfNhlv4/ssc++g==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt1Hk0ld3bB/BjSCm/imQoCiFSCmUK31CISKSBepJIhpDMiZKhpB4SJUOG
lGQ8d+ZKQig8xpDpDMbCMUSoeO/Wevdae+31+Wfv717Xtbe4jauZHTuFQvlI
zr/rk7i/owSU/x906zP69hmlkL7t7NrlcQITnRFPthSWQcvg4pCl8UXcTI02
0218i9/mLv5Sy5449r1J5en8e4jpeJf9tAtByYnvgQGUangYVi3oH3gIZwmZ
TcMB1Vg8sOtGyD8x6Bndw/vmdzUSbHMfxfnEQklBSjBz7iM8l2n3ryY/Rule
xyeRzFrMiMZX7nyfAN7oBjbXlHqEM3+3PpNMhexOpbm7Ag2Y+jkyzhuTipWX
FCn8dxvAWxfNeM+RBluLWaadeyNSuoVnfnanoekMy3G1aBP4dNgbzX3Skaw3
EDf0pRmtEZHHhm0zULtRcaGTpwULQn16uWUZ2Hkl6G2QTgvYCpNDOXhfQsbo
zp4/WS241Vnde77oJTwqt44+CGgFz+Q+f+eZTKyVnX/hxt+OQMv9Kw/uzIbI
6e2WQobtKD8hz6NwNRvFizONLoHt6PA9GPa6OBvJuctGsqPtcJ/hCIlCDmJT
9tf0Fn+BNfeksJRmLvLeOrRwjn3BMl+svZ5vLiCvZ9m7pQOJnC8XxV/nIrxn
4uizWx145lbnxbMhD/uDkweiD3fi09PPTu+u52HKPHTS1K8THg1N5jOxebiq
+snhQ2YnJKTGmTG5edh+47RC1eou6J8LfCDXn4cz9Xws45ouFJ2M1W1UyUfk
Ham6ZsVuCLt+5rnflA+F+k3RnOe6IfbVRPsaPR+bKvg2TYd3I9fctGl6Kh/3
bm5bXKJ347CxeWkYLxUP47Utvkf0oPqdV5CHERUJB/PNlgt7cE+pcxP9FBXP
BEQMmmk9cNRx8B6wo0LQuaQ4T6kXDgV2NwoCqFhdrc3m8KUXChXWWpmvqDDk
X8njs9SLXYgXnCugIu3AlJ6BdB/0jdn4B8qpeCdvM7TLsw8HBh3qX7VQEckK
FDyY0Ie2475Kt7vJ8+9O8opW9oG1tXEDzwAVUZt//hJa3w+f738erPtBxSuh
ukIN5X6kTam9jfpFhdMfsSbJM/2YCxJze89OwNR2Okv3RT/aYhplZdYTeNVF
qFyr70f5u9B7FwQIiIjezfWZ6kdUxSclUxECJ/1C/C6I0pCV1sGms50AeyMf
/2l5Gr6uqbg5J0dA0i56pTJouCtxwt5xD4G0+j7/xaM0SERueZS0l8Dadu74
59Y0OKaPfItWJWD5QuyO+hUaKk2sNIw0CPg673YpvElDhI+oXTUIcF21K7mY
SsPMklzaCj0CZ7jSL8dTaTDb+9GpwYDAqT3/Kyj+QENqvJG7lRGBceHMwnct
NOiJX4jMMyawfiwsLptBQ0I+8bThKIHDu+qDQ6ZpOM+i+BHHCGwZe5qkx05H
adXXURtzAsNv+HmmeOkwvjuV1XOcQGK0ynSwOB1jqjU3xE8Q0LDd6MWuQMel
yl4JxZMEyiXK3jgcoOOhWJHpulMExCv3fS89Soe2XntNCemzag+k5/6h48CO
0kOKpwm4+PZGb3ahw/bDcJgv6aPekqfkrtMRwEkziiT9S9rjsVQEHdZDkke9
SV/27/JdHU9Hz1nVo7tJJzudF//6ko5K6wTuv/tvuzRKPCymo6i3U3Uj6Vnj
+uPqNWS+dveQg2Q+RmWG9Od2OnbUVETpk/mvy4sc0R+gY1ucJGWrBZlvunI4
Z5oOL4VF98/k/Td6aIqwszFg6JUSYWxGYL+QNI/2OgY+GPuy0k0JXNDd/NVJ
lAGOJJpmuwkBCcvSjCA5BpSMlTf1HCHAU5H8JESNAS/tLukyQwJFPU4tHvoM
TFrLcF0l61XEW+JuasFAbVSQJSdZz5QqqSShCwyIlep9dNUlyL69vcU1gIHK
yVUWHZoE9M65v/5zl4FSrXPRbeoEiBrWKd84BgK/Hdmdo0KgcO2UseprBmha
TZnzZL8pPxV07BxhYIHvWc+COIEReuZcyywDVmEMpVFRAlWH7R+UsTNhJ+av
VSJM4NrGa94nRZgw7GHF/iH7X8yb3+StCRMFO/rXSy1RYXuBQZWzYmJsso9H
ZoGKiYVPQnfsmdD8/eTJ3/c12MT2D+8NJni9J3Xvj1LR2Jq4yiqPieF12aUn
Wqn4njC0gvsNE55SBcEZDVR86Ba4/6KGiTjuehdmDRWP/IXSC/uY6DQ7LSrw
hoqrmr2FW3kGsMPFdb9vGhWbM4RzlGwH8GPGc8MdFyqaSrZqz7kMQN3LbvKx
PRXJjosTmb4DkBgZTXtkTcXxVZvnv90fQJFqS6ONGRV+n0MNa4sHwNPHOau6
jwpV6S/8PKsHMRyU4ig7n48NETGCvzYMYlxe3MloMh/vPebie0UHkaThOWs9
ko9LjcIB1xUGIVSeUGDfmY+0lGM/d5waRLf8wqHvRfmwqqp9ZZI2iDb1G2ns
nvmwXvNDQ0thCLk5ObsWR/JgOSi8xV99CExFqUQt8j/mSr/Fn6M7hOadY//6
t+dhSCYidsJiCG4quxmDFXlYDjc7NOA7hJ4kprPHkzzc5os0fF0+hLDdp5xz
DfPw2Z0p46Q7jPZM/0DiWC7CuIzrB+RHYOtgL8xZmwW1kvOWOvtGEMpVJaJV
kIXA3pltcftHcGPxnot/ahb0jMKjFQ1G4BF0O5Trehaamy+uEjg/Agu5YrXj
ilmYCezPexE1AvvevVoTia+Q7dthoDwxApF7I48afDPRqkE71xg7iqbbExNX
DTJQZ5Nf6//xG/44SE99WPEMl39YR0/kf0fGtf/atoUmQ1F8XrLhwhjozTOd
/6TFw7+VYhzHNo4Q3d2+nxtjEXs86myH3ziEZ75q+2yKxtJXrtE1feMIyJHd
9kkgEp4yFksVKhMosdDteVsZjj3aov1p1yfgEcx5cfXDUKRc/1aw/GYCV2ZZ
AbONQbh0mfd8++QEfkXku7/wD0R/y+z9AGEWnq8I9eF+7Qfuvn9lE7VYsOEq
ur/Cygs6zqNnq6xYePFewk3hhzvOP78rYuXFwiZb60OUEleU11skqkWwEFag
8dvguSNaDZVsPBJZcF8643Pu5UUI1u1/op7NQltsoZQb5wVIBZjef1HCgu3l
kpQSaWsstSQGclSxsG/nuarUMCucOuZaENrAwsKaYPqw9EkMlO3WWdXOwpKR
X78jYY7aLs1bI90srGzr/PAm3BSh6TlRMXQyX7QTz+F+IzDUytJ5h1jI4Ocb
L6rQR4n9vYbd31iw8uKSaFjUxdKJ/jnXcRb+TErPNi0fwM7gYt7tkyw8M6Nm
2K/QhLTMYMbzaRZiFp226V9RhXd7L0/yDxZEOk7kmrbuRYhoWa3rHAuCozfS
u24qwI9H+UvvTxYuz6uJ9X/chcrC0GvrFljwK0ri8LWXxQrXW9dkFlmINXfT
97KRQqsstx/XLxYs17eVx++TwEzpod/NpGuf+q1ZEbcF12iim/1+sxAep3xg
wydh1BxZuWqZ9Jxpkgvj90bs0dcR9f3Dwr1QWVWBQD58u60Z3EVaZjw/IdVv
Hbq1Evl2LLHwUKT61d7+1Sj4yKvgQdo/y9tfOZUL1cmPqnNIP8r/EE414MDo
2iuFuaS9jry1GVPnQI9r0vM80tuZKv/bs4sD5Z1zwVTS2XXe5W28HHAYy1Qr
JH2ZmU1/0M0OpmHIrbekf4WbnO9xY8e89c6Ez6SbXu9380plQ6+yrU896YLI
y0O9MWzg81gybyB9JNbzrMkdNrDNWHH/R9pwoEXJ0I0NzIwa5xbS1TPGn7K0
2KAtWSPQRXpKPIUh2EuB5DOr0b8WrJ4352mm4HH16bKvpIczjp3lrqagruzh
2R7Se+ebRUWzKdDYzBffTzpL9HFS5nUK0o0pDjTScvIhQswrFLx/Z6VMJ123
mntu20UKUuTO/McgLTzxtOKdCQU5a9njmaQzTz5OFdKlYHlJ4OIA6c3m0/V+
KhSouMXvGSTdESWmPihHwa/2fxf/2rg6hnlSjIL/A6uONyQ=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxd1Hk0ldsbB/Ackkp0RVKGJFFJZm50vxqQIVOTZAipLkIoVEJSRHWlImRI
KMpwvK9cN2MydBUyHg6O6Zq9ppI0/N7+/e219trrs/b07GfvtaUdPSydGUuW
LKmi66/2/8tmarPEnnovzAyUTyfPWuF7wd3zkVXXsPFQqWtp9VkQembXFoh7
6M1vjqzx9EPTqaZCtagn+Gg3LxxcdRObp1ryYg2YWBCXEesKfAjLUL46Ccd8
8F6TX9lUHIO982vvnbtMYMK//MOW+VhoWljibGYB1Plu1623iQdzmUnCi4Ui
JGVklN+bSsKETVOsbXY5BneekFCUe4rUG957S5Ur4GUhMPE59SlE1nYHBhEV
SJ2x0/ggmYZv+TdEpQvf4MI1OaJEIB2u+/dosl69RVarvT7aMzC0nFOz41Et
go1LtC3WZkEodQsjTOgddp4eYAZezMKDZOrN3oh3aOHZ4SHYkoVEG++XHZf+
hUvw2W2nb7+AnvIXvQTL94hMj9X0GnsJAZuARCuvBgQVbXS8pJSLJ2tHmmqz
GxCncT4k71gu3v6rm8IZbYDqudgZyau5ENnG3rHEsRGtQRaaGTW5OMn5Jrza
5CMaLoQeyD+ch1PHZ6sLQj/CzMWI038hD9b79yQuLf0Iz6PV/XYP82Bkwyvz
WKkJBut+j9vdkgft1uK5YsFmXDIVlegyYmJROZgvV78Z3vMhhimnmZAf6VE9
GNCMwC+W6yuCmeB87jW9NdKMhtVuzE0FTDAmqKL1JS3wSdFcGi+aj61HmN5T
x9rgHZ4qq1CaD3XlLM3K8DZcttjUmN+Yj1x7+1TDf9pwLWBKrbA/H8Wafttd
Jdpx5a6exR+8BBw1+laLdLdDpPS4oJceAc1A4y3XVrGQW22e+tthAsGDJcef
6rDQFabCr+NI4Mbw287lcSyoqc8UagYQ6OhwiHa26EC2Ji/P/EsCLOmtnJtX
O1DEO18p9jcB770/6hyzOtB7x2hN8xsCpTPyhvt5OuGo3R8k0k7Ap6W00Fip
EwOP/C4n9RI4pNsTtsqmEyE+Le1VowR0dQ8sr2B2YiIuy2Z2kcBWyY5YsqsT
soM3Dy1yk5gSCTVw5mPD/Nn0wfSVJOoGCsq+2rBh+1B1clSMxHWh+y69N9io
D29zvLmRxEMer+nQXDZWGDg71G0h0SMlbbyCuwv7NeU/HVYhYRlbG6C5tQvB
CnlS+zVJ5LgHBiiY0TaXNRnTJuEoKp464tOFhE92Aca6JNp5/Q084rqw3V2r
wHk/iaA8jzfFpV0I5Y9c2HWARFUEy6NloAsMGTWjOmMSG5sOFjsodkOu3WOD
nCWJVvnFVW2W3RBb5n5j5jCJzE2HJ9b6diNyiqch4BiJJ9G/5UnHd8NRTYNd
e5zEG9Px7PmSbvh7cd9tO0FijdxjnUd93SCN3OsybEkkUOwcXt4efLLx89O2
J+Fw+ZSd7tYerDeU8Y0+SeLPx+OP9U16sDTH80WuA4kiecVKMY8exCg6fot2
JGE91bulKKoHeWcWjP5won2MvUGe6IGhnO/lXNqnJ0o+O7X2QEZgw8kx2uZ5
65a7f+mB+U/7Uor2u1taljKrOPDyT7IvoX2kSm7VvAQHCosqy6xo36yUsGMq
ciDF7XOlmN4v8Y/uc0fAwaTg61CKjqdtQsGZY8aBdvKpkUk6XveI926HTnLw
XKX63Gv6PCkNIS+zPTlg6e1mWdmRyL64xnwmiAMPq40zlTYkGjV0AySjOOAf
qb3KRedHqey9rWoKB3OH/tITpPNn9HpBTDmPA60wyaXUUfo8Zy3aRcs52HZr
pUsKnX/GzxWlQw0cRFk9lvx1PwlFNnPJHA5UZ8TeB5mRIFquJO6b4qD9SLVU
jgmJ2lsp/fU/OdC/NlbGNKTzJcw1qifYC/2LddaR+iTG7hg2UTt6IZzLlq4E
ieG5RMbm3b04PxuTKqNDwlaML3KvSS+uLMhVn9Ai4SE8ogeXXsQ8Dk+wUiKx
UzjXTjutFxlL6gofSJL41vLIrSq/F8HDHkX/0u9bV6l1XqeiF4YchW09wvT8
TCvhie5etPv3xiWvICEazzhgK9oH8xfleY/nCGzy7Nl0QLYP0uf81tRPEhCW
OvtASrUPZoYZDn3DBPZ05FfeN+1DzTiHyGUTKIsy74u/3gcF/9MNCxUEnG+p
Hn4R1Yeb7/tWubym13tgtD4rsQ+SR1+Ll5ME5hkvJH0K+/D8pFqI7DMCsyr9
9ppjdL/zf9+bIgikcnctxB/sR8gG0kHajMCFJUVhScf7McZyUlI2IFDFb6oT
7dwPhnWLpSIIiMxEBRkH9KNSyGP1jCIBxdJFK8aLfujnXHj7bBWBL77635N4
B+C7xXtRvCYf69o95Zm/DeC65cqb2+j/sGMt19oC8QHkWpunbSug+/UnH0ar
DGBWWfYV99N86PP8XpVhO4B527ZvGwPzIRVOBBjmDSDsQrCsvmo+pHU8+/jN
BqEflTE1e5+JNT7bl5kfH8T1Y7PN8+FMXIyPSgp1GgRVoPB97ioT4bbJETW+
g3BtblzOPstEi3L0TE7SINLu1qQ76TChBXOW2MQgbvCpZ0T25cH4jI/H7NX/
4HoqQj1DIQ+E8ovLP68N4eHpDIGE4Bwc8n/+nvvWEGTdpu8nu+VAj7vnypKo
IZTqDtzIPJYDj5/1m/oTh+DoHoj6HTl4tf9Jp2nRED5sUPhh35GNoNfaLbXU
EI56xOkVqWXj0uizwpgjw9h9Leu6IPUCg9++/kwTGEFZyFRI2dVMdKu9nPvH
ehSMyAnWluo07Pq6YCZ5Ygz6dZdFO8dTILVeSEBdfBxtrZFvjo89hreHq+W6
6nHorjzsW/k0Fq5mJnc2G00gkEVMn0q4D3dPy7sa5AQ6ClnMm0ejkGle/25U
ZBKd5waN39ZHIiA5X3O7wyTeaAmGcxmGgWW70uZo2iTidx79uF3zOjSH2N2r
uyZx5gx/mcFIEIo9mU7lfBSk73tvLs26gs8F+gWJShQMLiuc3/nDF+/+kfca
NaOwLKHZbeiID9RvKbG93CjI13xV1eE+j+tV4XXDIRRiLk3ZVES7geW+2dnp
IYXZfYEGLOOzyBiLCTqYQaFydceH146nsG76VXkSQeH+iIZWmpkDzMatvYpK
KThxX0kZDrKF4ErxS+O19Hi25w3leitUmviVzDdSCN86r88nfgT2crWLR1gU
VA0YYWp/WyCsQmbEpYeC0J+V/n7sg7i72/ur1gAF3i6i9U9vQ0iq7bF+MkzB
f/35YdMzemhVMWFJjFOYu2dY+059L9olxQJ4KQqmxZXH7NYC0Vrnn+RPU9Dj
5/maoLgLCVEuXI2zFCS4Ty2kmGrAteVZcfknCkW/Cx16WqYC/e70VsN5CpNU
WOjcwE78lpjxe9QXCstHBZ+x1bdjX8OoWskChYuKjuuSh7ZAv2F4MesrhZqP
3WXTQTKIVEr/FLpIYTyE0cxy3AjXzuvLdn2jsO1gPP+upA2I6CVP19BWErqr
xooUxcfmQXnj7xRW3JHKCqlfA8uXQX8yaY+bfXV50Lkasr2fc/l+UMiJvOA5
Wc2PTt/ENVa0j2Yv1WnezYcVr840PqSduSxm1iGDB6P5Nk0xtJM2Oh5IieWB
s/Wj5ljaYsV/yYyF82D/o7HmONqqiXXmiW480L3H9T6RNtGQVRaswgMlAYf4
dNqnfdzfapRxI0nkBEHSNknV6pbrZ6D/m2ZyAW3tCKZRZgsDfhpuEa9o8w4o
ndCoYSDzAdv+b9otSylj15cMNL4aXVJMe2uHbbqBHwMb5bdtrqQtu89NoFKQ
AbGJgqVvaY8zD7h0MRgobn/y3y/vW/H1y89PXJAUi0uvpr379t17J9lcGJxe
I/UvbWHCa+rOcy6wkjIWf3l4Z7/4dAIX7LYlttXR5mqwNrT5iwthO8nbH2h7
XjTMPOjLhZGs1jP1tCteP2U3uXDhR73Nngbaus87BJzsuJAmfmB9I+3ZP7qw
aMGFUqFHM788HJTonqDHhf8BlfMp3Q==
      "]]}}},
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->{True, True, True, True},
  FrameLabel->{{
     FormBox[
     "\"Infected \
(\\!\\(\\*\\nStyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\\))\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
      RowBox[{"\"Susceptible \"", "(", "S", ")"}], TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  GridLines->Automatic,
  GridLinesStyle->Directive[
    GrayLevel[0.5], 
    Dashing[{0, Small}]],
  Method->{},
  PlotRange->{{0.1, 0.9}, {0.1, 0.9}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.569178886816598*^9, {3.5691789775027847`*^9, 3.56917898545924*^9}}]
}, Open  ]]
},
WindowSize->{900, 1578},
WindowMargins->{{Automatic, -908}, {Automatic, -228}},
ShowSelection->True,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 23462, 536, 1342, "Input"],
Cell[CellGroupData[{
Cell[24044, 560, 982, 26, 67, "Input"],
Cell[25029, 588, 1888, 50, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26954, 643, 129, 2, 31, "Input"],
Cell[27086, 647, 1874, 53, 77, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28997, 705, 1020, 33, 72, "Input"],
Cell[30020, 740, 1234, 32, 49, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31291, 777, 1489, 45, 69, "Input"],
Cell[32783, 824, 5112, 117, 143, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37932, 946, 129, 2, 31, "Input"],
Cell[38064, 950, 3536, 92, 263, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41637, 1047, 612, 14, 35, "Input"],
Cell[42252, 1063, 2035, 49, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44324, 1117, 1091, 32, 35, "Input"],
Cell[45418, 1151, 2078, 51, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47533, 1207, 352, 6, 31, "Input"],
Cell[47888, 1215, 627, 18, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[48552, 1238, 499, 14, 55, "Input"],
Cell[49054, 1254, 399, 11, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49490, 1270, 10148, 251, 682, "Input"],
Cell[59641, 1523, 784, 10, 31, "Output"],
Cell[60428, 1535, 913, 14, 31, "Output"],
Cell[61344, 1551, 37480, 705, 367, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98861, 2261, 604, 21, 48, "Input"],
Cell[99468, 2284, 548, 11, 42, "Message"],
Cell[100019, 2297, 276, 7, 21, "Message"]
}, {3}]],
Cell[CellGroupData[{
Cell[100329, 2309, 11112, 281, 797, "Input"],
Cell[111444, 2592, 464, 6, 31, "Output"],
Cell[111911, 2600, 566, 10, 31, "Output"],
Cell[112480, 2612, 37138, 701, 374, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149655, 3318, 11564, 329, 1582, "Input"],
Cell[161222, 3649, 139, 2, 31, "Output"],
Cell[161364, 3653, 42955, 728, 406, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)