SEIS without 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[    263033,       5350]
NotebookOptionsPosition[    261195,       5293]
NotebookOutlinePosition[    261580,       5309]
CellTagsIndexPosition[    261537,       5306]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"eq1", "=", 
   RowBox[{
    RowBox[{
     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[{"\[Epsilon]", "*", 
     RowBox[{"e", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"\[Epsilon]", "*", 
     RowBox[{"e", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Gamma]", " ", 
     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[{
  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"}], "]"}]}]}], "]"}]}], " ", ";"}], 
  "\[IndentingNewLine]", "\n"}], "\[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", "]"}], ",", "\"\<\>\""}], 
         "}"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", 
 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}}],

Cell[BoxData["0.4`"], "Output",
 CellChangeTimes->{{3.5683872259074306`*^9, 3.5683874123500943`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVlHs41GkfxsehpnU1W5RCNlLtRtaamtVu5PvNmSIm8evAltMMOQ7aEpPS
a8sIrU21lcOGdil6qRx6pbFS2uTQmd4VbfKbzDyOTWOavL/3j+d6rs91P899
f58/7mdZSBw/XJvFYkUw6/+7Ra7mYuFSqaNucm7R2bM0eDWxfYYEM2CQI1YF
GMugg2P3mW7QfLT7enLtnXsycMp1vX1pixHGrsyZehD5DsK/meZwOeaY8MLp
TKbqHXhbho8tcl+Bb9JCTAeOjEDN47Tk9u9WYXWyV0XE+AjYG1hV6x6yxnX7
vDYu2CkHgfrnC2WULUqGkmTFtXKIa3u7ttp7Der314p91XLI2jF7pSaah9z4
3cseOSog9O7BCK7QDi1W57/MT1aAlG3st3f7d7jri8Co3FIFcPXTC+ik9YjR
hWlzuxWwe2KDtU+0A14WvOG4TymgpPCOqfKEI5buKg/OW0ygNmd9Xw8fMaTC
9eALHoGkxg2+FzZvxPJI3mTrZgLN98vGj+90wlicpScOJRDp/n1TJOWMaVrL
d87bR+D879zre6NccOLpmNXlnwicnGg6HP+jK16R9l+7XUBgqCJ5n1Dkhpeb
YruNLhJodfv5zJEj7lhzkJ3wtIqA1pbewdx0DyxRdEWJ6gmwNt7QKj7giccP
jYdJbxM4tljp3fOTF37siNa9co9A/I7QFmXGJjRAaahVJ4GBw7wwOLUZ46Kr
2gKeEFiYf7b3eIk3LuxOMb3YS6B8vtWBu+d8UBpcEa/+m4BUZOb6VeUWlBsu
KDB7TaDQvNh0g78v7vgn+tTRIQJNqdMsYZcvtujgrGSawLJN7I/LA/0wyM8q
0XmEwLVOS8mLx35I5PCfPAWB7LZPtuZBfAzU6eG0jBLIT6Sjdr/k41WVy5qc
cQKphkvnWWzfino5jdmmkwT+sJx1P+nVVkx4tqTszBSB2ZNaxtJgf+xbN0fQ
9Z7AJdt/iwvf+mOYke0KlZKAZUiFjyZmG5bcUGuUHwj0eTbUbHu3DYdK0KJd
RaDnYsrXkBiAjTGJWXnTBD7U+jlYjAfghQ/iuTw1gZl60fXM2ECsLWdXShne
ZOvmmjoViPuf+w54fCRwN+ibyL2JFN6zlj+vY7jqarxyZobCVY1s8QoNgfsn
+xKGBQQ49sHy0G4azDV15zV2c9AkTtjcGSeD9Wzfq9cbKMxyNOGMMvfb12c0
jAj6wXD1PvO2GhoG5f/ds39KBzNOal0izjJIr2nOziugcGHW2bjHzHmjP1Oc
5SeUwJJk4ocJGiZ3vnrU+5JCn5LbDXpM/r3sHo8pQSfw5m08FFFGg8tQfOv1
x1qo1I5fHWMjgxXHlNOaoxR6cuXObYzfJ1ferdHiCUgRlFU4D9Jwmmvk5PEX
hcNmWoc1jH76tI+AnHgLfXyXX9KlNPhl/h4eo6Aw9amwfjGT12abIJgtbIaY
beUqzyIakkIak/1bWbj6y5jKnuUyeC9aUMNLpRAfCBc1M34i9smDoooxiPve
4NmNFzQITXkqcQuF9V0ZD98zuthkzuB48Wvg/+KN6gYaLBJaTUvfUFha5Yb6
TF76uewqOyWFwtmeFksZlu6vKl0lrIa31vhX6Hkass1/eLjcgYX5/UWNeUtl
ECws4XT9SKE97/KBm4y/tRB2rK0eBX7x1if/ekJDt36Lv8ktCldKq+ImGH2s
L6woqWIAHAbnuwXcoEESwd8PAxQece75xGHyhvNM9HrGKTz9uRkxYXhx+Sf+
OTWFOmqZ3zKG6+ZYmsUIi2DAeNFX6l9p4M6ETC0anYExz8AH40tkYBAqvHkh
mUKxR8cfDUzesTMF7fncUTgcWzAhekRD5tzj2sM3KYy++vLWGKNXOiwQf1v9
Cp6d+ixbco0G3GP8JaefmTeoaddcJu+8ZKCuaJTC2Fvf+hsz/KD4DitSRWFa
U1ajGcMhlevKOjTM+9lRwxYMlz4nvRIbC0xZkqn3p+MI7DpXUy+xWYNHM6dV
fe/lEOElz+h2tUfKPizc8JUC6j/mX5LYOOEel6equh8IbPDnnrBpdEPTzZnF
3HICLZUPRd2um1C7ZvJ1XgcBd51oKql7C3bMW6v6jfkvIq7oFkls+GiYUWOr
zfR91fZH+kFJ/rimRYMzTH9lur8dtWkMwM5f28ffMX38H0ThNu4=
   "], {{{}, {}, 
     {RGBColor[0, 0, 1], 
      LineBox[{1, 83, 74, 66, 59, 54, 88, 79, 71, 64, 51, 86, 77, 69, 62, 57, 
       2, 84, 75, 67, 60, 55, 52, 3, 4, 5, 93, 6, 7, 8, 9, 94, 10, 11, 12, 13,
        14, 95, 15, 16, 17, 18, 96, 19, 20, 21, 22, 23, 97, 24, 25, 26, 27, 
       98, 28, 29, 30, 31, 32, 99, 33, 34, 35, 36, 100, 37, 38, 39, 40, 41, 
       101, 42, 43, 44, 45, 102, 46, 47, 48, 49, 85, 76, 68, 61, 56, 53, 87, 
       78, 70, 63, 58, 89, 80, 72, 65, 90, 81, 73, 91, 82, 92, 50}]}}, {
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], 
      PointBox[{93, 94, 95, 96, 97, 98, 99, 100, 101, 102}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"S\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.8},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5683872259074306`*^9, 3.5683874123700953`*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVlHs81Ikaxqdi6KKjO47LuKyDOpqfQaX0vkvu5R4/lZJxGaE0OFSIlMhY
g0jrLpKyKbcJy5gxkdalZGuj1uV0Ye3IkibW5Dh/PJ/n/+/n+T6avmdc/VdS
KJRzy/l/a6VLbxWqC/ZvmSTUzNd0gn2LnOOHwCUwiBvmrFZshx4F09Uy3oqo
alIpd1DMB4t0q7YKJyVsazMAXXYz+O9cUCAUaMilJjTeeMWDQ/r+f2210cG3
kNI5w62DmoHYyK7derhyV2llmeQh7N1oUC1zcQfG3LnXM6pSDYF/ZxaUk3Q0
/TKyxXH1PTjT8ZFRfcgIfcwKttrxK+DaEep30hBjtP9kez3udhkwOy8EECxT
bJTlJXlrl4JATtkl2Gs3epb2vL3+pQiIDfE5ExFm+Htd8dGckTzwmTXf4Riy
DzV3rDI5zcmFksLHqpK0/egSy88o98+G2h/MhvpdERPVw3vs6jIhosncueDg
96jITW5XTOAC/2n5TMpRCwyLzPNuf8GBIJs9LUGkJV6M+O9VMSsF8u8Q9cGn
DmDxqDHxp0ESZMy2JIRFWeHO3TmlGn6J8OFu5H9YbGtcW1PgaKSeACLrzNxL
l2zw1GdVtJuIhRVOg2Pp8baYo7y/Yv2J80D5vmFF8Tk7NDBLCwxxioLkbZJD
/VftcWxPK9/NLwLCjjCFkkQH7EsseU+jsGE0wdgPsg+iW8nkVGT4GdicdXMw
peQQ1lbm67SkBsNtRYNznXmO6FznIOr3ZIGArWH1r3tOGFUaOeRm7w+FtGJV
c3dnfKXLF/O6fKElZoHCeuaM8i2G5TJFPqDpILeo7emC76TdN39W8Ya6Pv3U
1wMuOC4PkwP1XsDp+EanebviQp1Brs55D8gKnzjl88YVdYJ/el38wg1itqj/
Q8vLDbOe0eV2JbtApb7s04gRN6wh6/XPVDsC9fMKZcFxdxRtU73wdZsDVNAf
xhV+dMcP57wXn1TZgL7vXUdp6GFc9avzLs2WAzBk11hzePIwzprOn7Vzt4D+
W+f/DeEeuJ7r16onj/C11mWf1owH1rxhNj132AdLj9j1Sac9MXNSM/eU/B5w
oFtbxcx5Yt3JsI8//2ECnd47g4LDSWzy/xSid4wB9x+ESZaWSHSdCCyzHKLD
04yhs+OBn0DRNrRQdlgENCkvX2oqj3vmdcfn/QWQ3Nvy7rDHZqR6Fzakc1uA
KlGdkjFRxez62u1q3Ebwqqpe0jbQQr0OLytZrQYwk3N+UN9IomLvL28LFY2g
yyyx8c/AYbAUrvPT/fgYxsRvT0bPrUJxW/qadCMhGEzNf6ny2ojNG0pa7Bpa
QceS8PSwUMFomyC3yxeaYFg8kHT3n5qoOf7jS7GkAeJr+BxuDomrtqtxkmqN
QKn9vKU4TQIa5uYJ7eJ28F6X+epS9DqkzY0Nfq1og89HR14MviFRR9p40jKc
gCecftu5wD6I3er+RD6yAw58CBPVD6zAE/qjHNkiISxKt8WTRzegugzzyiUn
PjCCmtcu2SqjnVlC7PG5Jij9IfBp6HUaair72l4M4IFOsmRBepnEKWMbPzU5
BnyzMm6dLp6FtdpJakKmCFplvjNr81yDgxB010ZWADcIJQvbX0jczxi5YyEg
wCXpjn/oFIlL3EVqni4BHfSzgVQWH06mRt2439oBEb5Nke4iCubpPtw8/VII
72QrDhi+UcT4K+1vnhXwwSyGEuDWrYSbsseyfRnNIDNMD+lzpuGsz3bNxkIe
fGFvqjGOIbEzg/MtnGAAWy7jAvvuX9ANY9y6YhF8ij89edxmNYri5Jl0EwGw
VI3n44QkxlZtbRONE6B1VqRa9n55P3499aKDBMTnce6bSkikb7a78ZhCgCD6
fpkeqxp+P9oQvetdB3BoJ3q191FQwX6W4TErhN9SpnRv5iviVa1gG9ZjPrTK
amdJ05Tw0YKHSZVrMxhf3WJO2UlDy5cB5ZuaeXCcVaLwLIrEhouLwUJrBuxg
wRFG9TQwRQnMB3wRyMOmA4b8ZRF8Mq5FHxLA8w1Cd5VWEsu6VdpuLxKQGuAa
DaMkxrigz/wJAsa5Kmv6Z0i8uV7jRfkmArbd/uaa9zeJWbG8vQtiOvDk9TVC
WUVgPZnDNZB0ALHkO7d1egn8F45o3l7RDv0OG3N7Y5Z5r+m+5vyaD/H2dZX9
p5VQnJOpw/RthoNDV8uV1GnYfyw6yrmLBxuZrOaCSBInWtSi2S4MSM7N6coi
psEpPqjBqU8Emwv9p7dckEfLzuCVNV4CSFqXsnK8mcSXzIHVxVQjwJPKugrD
JOa4FtflBRGQnzrKK5omcWaU262mRkB38WNK0DyJtfOfHb0ldPC9t6u8R0pi
aG2XV/47OhzLq3mUamiEhftGsgpmKyDAXpz43Govvu9T1piJ+xEeLWZVpBpa
4K2oM79euZIG5u5EmmGTNa6ccug15MSD8F4v+7mVA+ZX2nlQb7DBZlUIGfHc
CYMYnyuiJ/wg4CeZolRDV6QqOU8pZHuCnteLDd4R7lhbla37NM0e/pApvWzY
tPxXnkavNebMoey3T4OphlpI7UUFgXoD/A8fV3LA
   "], {{{}, {}, 
     {RGBColor[1, 0, 0], 
      LineBox[{1, 99, 87, 76, 66, 57, 51, 105, 93, 82, 72, 63, 2, 100, 88, 77,
        67, 58, 52, 106, 94, 83, 73, 64, 3, 101, 89, 78, 68, 59, 53, 4, 102, 
       90, 79, 69, 60, 54, 5, 103, 91, 80, 70, 61, 55, 121, 6, 7, 8, 9, 112, 
       10, 11, 12, 13, 14, 113, 15, 16, 17, 18, 114, 19, 20, 21, 22, 23, 115, 
       24, 25, 26, 27, 116, 28, 29, 30, 31, 32, 117, 33, 34, 35, 36, 118, 37, 
       38, 39, 40, 41, 119, 42, 43, 44, 45, 120, 46, 47, 48, 49, 104, 92, 81, 
       71, 62, 56, 107, 95, 84, 74, 65, 108, 96, 85, 75, 109, 97, 86, 110, 98,
        111, 50}]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], 
      PointBox[{112, 113, 114, 115, 116, 117, 118, 119, 120, 121}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"E\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5683872259074306`*^9, 3.568387412379096*^9}}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVlnk01esXxo0hZM4xJEMDhYgkcfe+MhOZDyKJHGTMnFxzJJLM4znniwxd
SulKKUMTSZGrhFRXKjJEhnLwO78/3vWuvfZaz3rX3p/nWa+cR6CNFxsLC8tD
5vn/LX95jSiTaf9jdlPCjv+ic8CslctywnsDTHcVavruocMLfi0eDldBjOrw
vSlaSID+ZcO2a1Yk7Nz9THE8lg5e+37zq/PL4juXV9zezVQ4quT1Y6vxDpQx
SLcXci+FxoHzYV3aiqgVoChYMFAIh4X3NHD8pYz7vjodHvDOA+/V7NJKshqq
6dOSjaKuQuCTLxoNR/ejZo0pw1X8Clx03rRz7Ywmdmi1OejdzIBTT8+dVqdo
YYWsU1s2/0Vo55Kw9nPSxkLP0vrVmRRQF4rL+xaqg6YpCh9vrSaC+4KesuUZ
XQy8Xy7tnhsPtLLH0ssZf6BA82svHVos3MrUGe63QYyzc9st1RENoS16x0ot
/sTZqeo3+oUR8LC7cj7NRR9tRhX1QwtDwcf4UKsP+QgSjs1uEbtCoKRavcnP
1wAh2d50R3UgXFlojQ+KMMShwM+5PfV+MFEbFk4JMULutOcOXgEUeGSUXZCQ
YIzmHmaRDAcvYLV69+lynAk6K+Z+iHjpASx/3mGlRpkiH8vpPzrK3SFVfPlo
/wUzvCjtt7ta1BWCnE91LCeaY2/Xr4nbtU7wMV7TE3ItkDpi9TjFzwFErxa+
S6MdRfn4He0WdFuoEtwT9bTYEoNF6uSjnKyhPWS74e46K9zX2mdIJltCmSxV
Ws/uGPovB+d2PzGD1pjfLJRXxzB47YDf2wZjkDPnYig4WuNQqqxCy30DuP1S
KX1owBofKHYreVnrw6Un62qyrjaYqVJ64S92hKtnv/m6j9hgY0tM8CToQoyY
jIC8ky2OOfZsefBbG2qUOLtDP9hiX/3Qi5XhA7DpJ6tEu5sdVn7ifjZooQHX
1G7Gln2xwzMD8SkWo2qg5FFrueZvj1rnbLyL01Vg2PRuo/2UPU4SDJU70nug
n4hWgbMOGLR65WXT4C5YuWWtKz/vgJm29cU5u3fARnNIU0qAI9Y/P2YfPSAH
5mpGhjGLjsgQ2Gf8SXs7PHXd5+N3loxTk9VVmCMF9TeCljc2yJjYLhmhxk6C
7ivDwV+9Z0HerdfdfrgMZNf+KVnT4sYspVGKtB8Bqb2t4/YOohjSpHkkSIOA
TcvSMxwHpPHDNteFnxU00OE6dqPpLhm1BTfw4z0J6NJJvPvdewz80gdecQcU
wafp0ZORi+yoMX7Nq2uJDntmfi1ddxLGHhFR8z1nCdhxRN3RQV8Spxv9zrqJ
0SGu8eGlrDwyMtxNyuYJSSB1Rh+ZzliGAhf6vD8PDVz5st8kRPLhV92U1rfF
BHyuj+9ft9mKM7sGj1p/oMNPlw+v342QUa1z2rNlmATPLvWbLHq/hFteev9+
q80Hg4mgR00DrLh/7zkx8VI6MNbE48guQmhfvfNrbxoBGj73eDdMJNAg7b8s
JXM67Ehd/r2WRMba3LvP+KSkYN1Q88EcdQGsGFlj9y2o8IBjp06b42Y02iY+
0X+RgDsPyl1q7cSw+sc4/yIvAfnqJH2T52QUvBav/a+ZBOTnW3rPZnyBkIbF
oI2XJRC/aLahs3UTSt7MtsnUIcDp/bA/K1kEhSqi/cUdCFDH9mffolchPpr7
r5RrNGCIbIQaFm7Bh6rCMrxUAqxTqr38Z8i4lKPXlRJAgidqwd6bKA8hZTlS
wEIuD0I9WsLsHrEgK7vPkqg3HcY5rxmojgjil8vpzgHZBOjEsJy27SEhZ7b0
VisvOiyFiDRqxpBxRc3wu4ejFIRwXTkXUvsDpl5X5cV1lsNsXMCUmzEPav5R
eXs2hoDyJ6qycf+KYpC3bf2fsgRQpDV/xXaQ0edpRrJ0ogTESnJ/mqf+B+yR
49+jaouhMTjnxhAnJ56se+yqK8XM2wnf/W/eCqPwKw89dy8CKlhlUvySfoF8
zEKB6HEaKGeZ7BpP5cd1lXHP4HIC5IMfSVd8JuOg66LNeAUJ8nCpfiHjDZQ7
5VjZSBSCiO9uEfHPbGhh4f9ipIcOIkup9xLeCaHGWvgr8l8EpCe9YQnMXwT9
hWg++QYqZKYOp8pReJG6vcCbN5eAY1GsliW7uFBij1aciD0BQYMWNXvfiCD1
w/vtvoYEPIj15KUEr0HtleaXyt9p8Dy/qbOqRgAz1G7ThksJiCu+VK+1TMZ6
8S0JVG0StEfWVyhSGsApybi/2zoXLsme6FXQZcG695opxaZ0eJs2s6uwRBBD
H8m+Z8tj6nMqXF3LIGGKfn6ocggd3Cg0/lcRZEyWT+lqC5MCZQo4azTMwaf+
84c6rMuBG0QMVB9y49dkTd/UUAJyzMLZpnJF8d3eJuF1JQL6hDrsJB+Q0bkk
cHdguQT8GPYsD639CHv3vxrVECiG7n2HeGrOcyCbS7PpdR4CtHwbRfULhVE0
4ftE+BkC3Dx6PJXTVuDvpN6xeg0aGFhOx95i4cfDB1nNucuY8zxtEwkfyTi+
nKGFbSQ439mgtEx9DedvhX708yoAZcUev4njbKjl07f1XhMduKNflU4XCaEZ
xaq5J4kAg8/JY/tKfsIlCufJ37FUqDKK+zg3thldg1tU3LOYPB2sqvIr24QU
p3kNLxMCPJ1z0vPyRbDxEv/g1FECIseEJxXDGcCqIP79ejcNxu2dpcPlBLDJ
OEzFlMnL1yzJzf3zZPxhfaMvyZYExyvEtiVbsOKBlmm98QQ6zMWf8OiUEkKp
etEsl0wCBju6si+/5EEpn7gVZ+b7im7NOm7O5ETsXjiQtJcA0X7ihajQFqxT
PNwpyfRfeLeWms0cL6Ye9OYYKSBA+97xxZ56LkwUtmQh3AkYOpPaNEUSxCLj
bqdnzLwSr1q3KV4l41bR9ptD20jwD7fSdn9KOTz2SS4w+pID6hsei1vnNsA3
YnuTjg4d+s2FC3pjBHGkw8uzJJ/Jl9ntmv4AEobZv5bOiKSD8CnKvdIwMi4+
jQxnJElBakFe11X1OShUmRhSEC8H0TKvObFz3Fjd6pu+EEhAJl/RWdlwUbzA
uU5tUyUghS+N7es9Mu4LpupX/C0BdboisQcaPkBIQQnN9WERDGamN2Ud4kA7
8akPXiwEqCkPJkdECaNbVcThUabevWyFgUu8K3DDPfJmtwwNjv0Ne4vv8+Fq
9MEHPEw/4EmJXfxjZGxNGYr/9YIEc0l8XyJr+0DTx4XCylMA2hdkSL0kNmQP
/rG9qIYObLo/tyicE8KGf5bx+AUCaGKjllkyP+FngInL9tNUaKzsz3hbvBkn
5ei2dzIICM1bsbF13oTn/CsTyv9k8irdzHgeIYIVeyxy+WwIGBDwdUpbWYWy
1Spzq7s0mLt9/Znr6BY8HXmTvY3JR0n6x3/K58h4X25GjO0kCSjslK4z3KzY
19XErh5Gh8kjia9XVgVR7H5uRCiTx09y0hCRzoPfzrpbPIojoEpYn2PelBN9
aLY1qQoEyKovRTF6+PGELwt1lKmfoJQ2cug6L7oGLJVuYe7PQLKBdtuXC8dN
tTPXnZl+1z4l/nBaALXTE90nSgjooT5m8flFxobJc2cO7SXB+6fdTafuC6Lv
yrM6kxwCGGNt+UbsPLiz0kBqJJLJ22xR/3MDfsyfH9f5l+nHoi8qB3h28KJH
t9nFPma+v13iCsr0EsDibSdCrjH73Get5VTst2Dft9xKJSa/vn7jib6afCjE
mAoOLSLAVu/E2LKOIP4oWdBJYNYedQcrX6yR8Y7xD8d4QRJUvJ19l64qjzUM
ifb9nuVwvLixOV11P5rdmSkw1LsCp82mE/sMD6PyxVZKByMBmhlXr6Wr6qPd
2LrPMikM9OzUM1RbjJj/iySsKPWGjrrekD5Dc6yxCWuVSXAGY/Yz5NA+K9zy
a/aqdu9ROP03R3m6qg1+CrJ1knuBoOj0Wsg11A4T2TofnZrcD5Mc9CTVFgeU
0525ddVhJ/wPS4Vw5A==
   "], {{{}, {}, 
     {RGBColor[0, 1, 0], 
      LineBox[{1, 139, 105, 80, 65, 154, 120, 95, 56, 148, 114, 89, 74, 51, 
       144, 110, 85, 70, 157, 123, 98, 61, 151, 117, 92, 77, 161, 127, 102, 2,
        140, 106, 81, 164, 130, 66, 155, 121, 96, 57, 149, 115, 90, 167, 133, 
       75, 159, 125, 100, 170, 136, 52, 145, 111, 174, 86, 166, 132, 71, 158, 
       124, 176, 99, 169, 135, 179, 62, 152, 118, 175, 93, 168, 134, 178, 78, 
       162, 128, 177, 103, 171, 137, 180, 3, 141, 107, 173, 82, 165, 131, 67, 
       156, 122, 97, 58, 150, 116, 91, 76, 160, 126, 101, 53, 146, 112, 87, 
       72, 63, 4, 142, 108, 83, 68, 59, 54, 5, 182, 6, 7, 8, 9, 183, 10, 11, 
       12, 13, 14, 184, 15, 16, 17, 18, 185, 19, 20, 21, 22, 23, 186, 24, 25, 
       26, 27, 187, 28, 29, 30, 31, 32, 188, 33, 34, 35, 36, 189, 37, 38, 39, 
       40, 41, 190, 42, 43, 44, 45, 191, 46, 47, 48, 49, 143, 109, 84, 69, 60,
        55, 147, 113, 88, 73, 64, 153, 119, 94, 79, 163, 129, 104, 172, 138, 
       181, 50}]}}, {
     {RGBColor[0, 
       NCache[
        Rational[2, 3], 0.6666666666666666], 0], 
      PointBox[{182, 183, 184, 185, 186, 187, 188, 189, 190, 191}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"I\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5683872259074306`*^9, 3.5683874124010973`*^9}}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwVlHs41GkfxsehpnU1W5RCNlLtRtaamtVu5PvNmSIm8evAltMMOQ7aEpPS
a8sIrU21lcOGdil6qRx6pbFS2uTQmd4VbfKbzDyOTWOavL/3j+d6rs91P899
f58/7mdZSBw/XJvFYkUw6/+7Ra7mYuFSqaNucm7R2bM0eDWxfYYEM2CQI1YF
GMugg2P3mW7QfLT7enLtnXsycMp1vX1pixHGrsyZehD5DsK/meZwOeaY8MLp
TKbqHXhbho8tcl+Bb9JCTAeOjEDN47Tk9u9WYXWyV0XE+AjYG1hV6x6yxnX7
vDYu2CkHgfrnC2WULUqGkmTFtXKIa3u7ttp7Der314p91XLI2jF7pSaah9z4
3cseOSog9O7BCK7QDi1W57/MT1aAlG3st3f7d7jri8Co3FIFcPXTC+ik9YjR
hWlzuxWwe2KDtU+0A14WvOG4TymgpPCOqfKEI5buKg/OW0ygNmd9Xw8fMaTC
9eALHoGkxg2+FzZvxPJI3mTrZgLN98vGj+90wlicpScOJRDp/n1TJOWMaVrL
d87bR+D879zre6NccOLpmNXlnwicnGg6HP+jK16R9l+7XUBgqCJ5n1Dkhpeb
YruNLhJodfv5zJEj7lhzkJ3wtIqA1pbewdx0DyxRdEWJ6gmwNt7QKj7giccP
jYdJbxM4tljp3fOTF37siNa9co9A/I7QFmXGJjRAaahVJ4GBw7wwOLUZ46Kr
2gKeEFiYf7b3eIk3LuxOMb3YS6B8vtWBu+d8UBpcEa/+m4BUZOb6VeUWlBsu
KDB7TaDQvNh0g78v7vgn+tTRIQJNqdMsYZcvtujgrGSawLJN7I/LA/0wyM8q
0XmEwLVOS8mLx35I5PCfPAWB7LZPtuZBfAzU6eG0jBLIT6Sjdr/k41WVy5qc
cQKphkvnWWzfino5jdmmkwT+sJx1P+nVVkx4tqTszBSB2ZNaxtJgf+xbN0fQ
9Z7AJdt/iwvf+mOYke0KlZKAZUiFjyZmG5bcUGuUHwj0eTbUbHu3DYdK0KJd
RaDnYsrXkBiAjTGJWXnTBD7U+jlYjAfghQ/iuTw1gZl60fXM2ECsLWdXShne
ZOvmmjoViPuf+w54fCRwN+ibyL2JFN6zlj+vY7jqarxyZobCVY1s8QoNgfsn
+xKGBQQ49sHy0G4azDV15zV2c9AkTtjcGSeD9Wzfq9cbKMxyNOGMMvfb12c0
jAj6wXD1PvO2GhoG5f/ds39KBzNOal0izjJIr2nOziugcGHW2bjHzHmjP1Oc
5SeUwJJk4ocJGiZ3vnrU+5JCn5LbDXpM/r3sHo8pQSfw5m08FFFGg8tQfOv1
x1qo1I5fHWMjgxXHlNOaoxR6cuXObYzfJ1ferdHiCUgRlFU4D9Jwmmvk5PEX
hcNmWoc1jH76tI+AnHgLfXyXX9KlNPhl/h4eo6Aw9amwfjGT12abIJgtbIaY
beUqzyIakkIak/1bWbj6y5jKnuUyeC9aUMNLpRAfCBc1M34i9smDoooxiPve
4NmNFzQITXkqcQuF9V0ZD98zuthkzuB48Wvg/+KN6gYaLBJaTUvfUFha5Yb6
TF76uewqOyWFwtmeFksZlu6vKl0lrIa31vhX6Hkass1/eLjcgYX5/UWNeUtl
ECws4XT9SKE97/KBm4y/tRB2rK0eBX7x1if/ekJDt36Lv8ktCldKq+ImGH2s
L6woqWIAHAbnuwXcoEESwd8PAxQece75xGHyhvNM9HrGKTz9uRkxYXhx+Sf+
OTWFOmqZ3zKG6+ZYmsUIi2DAeNFX6l9p4M6ETC0anYExz8AH40tkYBAqvHkh
mUKxR8cfDUzesTMF7fncUTgcWzAhekRD5tzj2sM3KYy++vLWGKNXOiwQf1v9
Cp6d+ixbco0G3GP8JaefmTeoaddcJu+8ZKCuaJTC2Fvf+hsz/KD4DitSRWFa
U1ajGcMhlevKOjTM+9lRwxYMlz4nvRIbC0xZkqn3p+MI7DpXUy+xWYNHM6dV
fe/lEOElz+h2tUfKPizc8JUC6j/mX5LYOOEel6equh8IbPDnnrBpdEPTzZnF
3HICLZUPRd2um1C7ZvJ1XgcBd51oKql7C3bMW6v6jfkvIq7oFkls+GiYUWOr
zfR91fZH+kFJ/rimRYMzTH9lur8dtWkMwM5f28ffMX38H0ThNu4=
       "], {{{}, {}, 
         {RGBColor[0, 0, 1], 
          LineBox[{1, 83, 74, 66, 59, 54, 88, 79, 71, 64, 51, 86, 77, 69, 62, 
           57, 2, 84, 75, 67, 60, 55, 52, 3, 4, 5, 93, 6, 7, 8, 9, 94, 10, 11,
            12, 13, 14, 95, 15, 16, 17, 18, 96, 19, 20, 21, 22, 23, 97, 24, 
           25, 26, 27, 98, 28, 29, 30, 31, 32, 99, 33, 34, 35, 36, 100, 37, 
           38, 39, 40, 41, 101, 42, 43, 44, 45, 102, 46, 47, 48, 49, 85, 76, 
           68, 61, 56, 53, 87, 78, 70, 63, 58, 89, 80, 72, 65, 90, 81, 73, 91,
            82, 92, 50}]}}, {
         {RGBColor[0, 0, 
           NCache[
            Rational[2, 3], 0.6666666666666666]], 
          PointBox[{93, 94, 95, 96, 97, 98, 99, 100, 101, 102}]}, {}, {}}}], 
      GraphicsComplexBox[CompressedData["
1:eJwVlHs81Ikaxqdi6KKjO47LuKyDOpqfQaX0vkvu5R4/lZJxGaE0OFSIlMhY
g0jrLpKyKbcJy5gxkdalZGuj1uV0Ye3IkibW5Dh/PJ/n/+/n+T6avmdc/VdS
KJRzy/l/a6VLbxWqC/ZvmSTUzNd0gn2LnOOHwCUwiBvmrFZshx4F09Uy3oqo
alIpd1DMB4t0q7YKJyVsazMAXXYz+O9cUCAUaMilJjTeeMWDQ/r+f2210cG3
kNI5w62DmoHYyK7derhyV2llmeQh7N1oUC1zcQfG3LnXM6pSDYF/ZxaUk3Q0
/TKyxXH1PTjT8ZFRfcgIfcwKttrxK+DaEep30hBjtP9kez3udhkwOy8EECxT
bJTlJXlrl4JATtkl2Gs3epb2vL3+pQiIDfE5ExFm+Htd8dGckTzwmTXf4Riy
DzV3rDI5zcmFksLHqpK0/egSy88o98+G2h/MhvpdERPVw3vs6jIhosncueDg
96jITW5XTOAC/2n5TMpRCwyLzPNuf8GBIJs9LUGkJV6M+O9VMSsF8u8Q9cGn
DmDxqDHxp0ESZMy2JIRFWeHO3TmlGn6J8OFu5H9YbGtcW1PgaKSeACLrzNxL
l2zw1GdVtJuIhRVOg2Pp8baYo7y/Yv2J80D5vmFF8Tk7NDBLCwxxioLkbZJD
/VftcWxPK9/NLwLCjjCFkkQH7EsseU+jsGE0wdgPsg+iW8nkVGT4GdicdXMw
peQQ1lbm67SkBsNtRYNznXmO6FznIOr3ZIGArWH1r3tOGFUaOeRm7w+FtGJV
c3dnfKXLF/O6fKElZoHCeuaM8i2G5TJFPqDpILeo7emC76TdN39W8Ya6Pv3U
1wMuOC4PkwP1XsDp+EanebviQp1Brs55D8gKnzjl88YVdYJ/el38wg1itqj/
Q8vLDbOe0eV2JbtApb7s04gRN6wh6/XPVDsC9fMKZcFxdxRtU73wdZsDVNAf
xhV+dMcP57wXn1TZgL7vXUdp6GFc9avzLs2WAzBk11hzePIwzprOn7Vzt4D+
W+f/DeEeuJ7r16onj/C11mWf1owH1rxhNj132AdLj9j1Sac9MXNSM/eU/B5w
oFtbxcx5Yt3JsI8//2ECnd47g4LDSWzy/xSid4wB9x+ESZaWSHSdCCyzHKLD
04yhs+OBn0DRNrRQdlgENCkvX2oqj3vmdcfn/QWQ3Nvy7rDHZqR6Fzakc1uA
KlGdkjFRxez62u1q3Ebwqqpe0jbQQr0OLytZrQYwk3N+UN9IomLvL28LFY2g
yyyx8c/AYbAUrvPT/fgYxsRvT0bPrUJxW/qadCMhGEzNf6ny2ojNG0pa7Bpa
QceS8PSwUMFomyC3yxeaYFg8kHT3n5qoOf7jS7GkAeJr+BxuDomrtqtxkmqN
QKn9vKU4TQIa5uYJ7eJ28F6X+epS9DqkzY0Nfq1og89HR14MviFRR9p40jKc
gCecftu5wD6I3er+RD6yAw58CBPVD6zAE/qjHNkiISxKt8WTRzegugzzyiUn
PjCCmtcu2SqjnVlC7PG5Jij9IfBp6HUaair72l4M4IFOsmRBepnEKWMbPzU5
BnyzMm6dLp6FtdpJakKmCFplvjNr81yDgxB010ZWADcIJQvbX0jczxi5YyEg
wCXpjn/oFIlL3EVqni4BHfSzgVQWH06mRt2439oBEb5Nke4iCubpPtw8/VII
72QrDhi+UcT4K+1vnhXwwSyGEuDWrYSbsseyfRnNIDNMD+lzpuGsz3bNxkIe
fGFvqjGOIbEzg/MtnGAAWy7jAvvuX9ANY9y6YhF8ij89edxmNYri5Jl0EwGw
VI3n44QkxlZtbRONE6B1VqRa9n55P3499aKDBMTnce6bSkikb7a78ZhCgCD6
fpkeqxp+P9oQvetdB3BoJ3q191FQwX6W4TErhN9SpnRv5iviVa1gG9ZjPrTK
amdJ05Tw0YKHSZVrMxhf3WJO2UlDy5cB5ZuaeXCcVaLwLIrEhouLwUJrBuxg
wRFG9TQwRQnMB3wRyMOmA4b8ZRF8Mq5FHxLA8w1Cd5VWEsu6VdpuLxKQGuAa
DaMkxrigz/wJAsa5Kmv6Z0i8uV7jRfkmArbd/uaa9zeJWbG8vQtiOvDk9TVC
WUVgPZnDNZB0ALHkO7d1egn8F45o3l7RDv0OG3N7Y5Z5r+m+5vyaD/H2dZX9
p5VQnJOpw/RthoNDV8uV1GnYfyw6yrmLBxuZrOaCSBInWtSi2S4MSM7N6coi
psEpPqjBqU8Emwv9p7dckEfLzuCVNV4CSFqXsnK8mcSXzIHVxVQjwJPKugrD
JOa4FtflBRGQnzrKK5omcWaU262mRkB38WNK0DyJtfOfHb0ldPC9t6u8R0pi
aG2XV/47OhzLq3mUamiEhftGsgpmKyDAXpz43Govvu9T1piJ+xEeLWZVpBpa
4K2oM79euZIG5u5EmmGTNa6ccug15MSD8F4v+7mVA+ZX2nlQb7DBZlUIGfHc
CYMYnyuiJ/wg4CeZolRDV6QqOU8pZHuCnteLDd4R7lhbla37NM0e/pApvWzY
tPxXnkavNebMoey3T4OphlpI7UUFgXoD/A8fV3LA
       "], {{{}, {}, 
         {RGBColor[1, 0, 0], 
          LineBox[{1, 99, 87, 76, 66, 57, 51, 105, 93, 82, 72, 63, 2, 100, 88,
            77, 67, 58, 52, 106, 94, 83, 73, 64, 3, 101, 89, 78, 68, 59, 53, 
           4, 102, 90, 79, 69, 60, 54, 5, 103, 91, 80, 70, 61, 55, 121, 6, 7, 
           8, 9, 112, 10, 11, 12, 13, 14, 113, 15, 16, 17, 18, 114, 19, 20, 
           21, 22, 23, 115, 24, 25, 26, 27, 116, 28, 29, 30, 31, 32, 117, 33, 
           34, 35, 36, 118, 37, 38, 39, 40, 41, 119, 42, 43, 44, 45, 120, 46, 
           47, 48, 49, 104, 92, 81, 71, 62, 56, 107, 95, 84, 74, 65, 108, 96, 
           85, 75, 109, 97, 86, 110, 98, 111, 50}]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0.33333333333333337`, 0], 
          PointBox[{112, 113, 114, 115, 116, 117, 118, 119, 120, 
           121}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwVlnk01esXxo0hZM4xJEMDhYgkcfe+MhOZDyKJHGTMnFxzJJLM4znniwxd
SulKKUMTSZGrhFRXKjJEhnLwO78/3vWuvfZaz3rX3p/nWa+cR6CNFxsLC8tD
5vn/LX95jSiTaf9jdlPCjv+ic8CslctywnsDTHcVavruocMLfi0eDldBjOrw
vSlaSID+ZcO2a1Yk7Nz9THE8lg5e+37zq/PL4juXV9zezVQ4quT1Y6vxDpQx
SLcXci+FxoHzYV3aiqgVoChYMFAIh4X3NHD8pYz7vjodHvDOA+/V7NJKshqq
6dOSjaKuQuCTLxoNR/ejZo0pw1X8Clx03rRz7Ywmdmi1OejdzIBTT8+dVqdo
YYWsU1s2/0Vo55Kw9nPSxkLP0vrVmRRQF4rL+xaqg6YpCh9vrSaC+4KesuUZ
XQy8Xy7tnhsPtLLH0ssZf6BA82svHVos3MrUGe63QYyzc9st1RENoS16x0ot
/sTZqeo3+oUR8LC7cj7NRR9tRhX1QwtDwcf4UKsP+QgSjs1uEbtCoKRavcnP
1wAh2d50R3UgXFlojQ+KMMShwM+5PfV+MFEbFk4JMULutOcOXgEUeGSUXZCQ
YIzmHmaRDAcvYLV69+lynAk6K+Z+iHjpASx/3mGlRpkiH8vpPzrK3SFVfPlo
/wUzvCjtt7ta1BWCnE91LCeaY2/Xr4nbtU7wMV7TE3ItkDpi9TjFzwFErxa+
S6MdRfn4He0WdFuoEtwT9bTYEoNF6uSjnKyhPWS74e46K9zX2mdIJltCmSxV
Ws/uGPovB+d2PzGD1pjfLJRXxzB47YDf2wZjkDPnYig4WuNQqqxCy30DuP1S
KX1owBofKHYreVnrw6Un62qyrjaYqVJ64S92hKtnv/m6j9hgY0tM8CToQoyY
jIC8ky2OOfZsefBbG2qUOLtDP9hiX/3Qi5XhA7DpJ6tEu5sdVn7ifjZooQHX
1G7Gln2xwzMD8SkWo2qg5FFrueZvj1rnbLyL01Vg2PRuo/2UPU4SDJU70nug
n4hWgbMOGLR65WXT4C5YuWWtKz/vgJm29cU5u3fARnNIU0qAI9Y/P2YfPSAH
5mpGhjGLjsgQ2Gf8SXs7PHXd5+N3loxTk9VVmCMF9TeCljc2yJjYLhmhxk6C
7ivDwV+9Z0HerdfdfrgMZNf+KVnT4sYspVGKtB8Bqb2t4/YOohjSpHkkSIOA
TcvSMxwHpPHDNteFnxU00OE6dqPpLhm1BTfw4z0J6NJJvPvdewz80gdecQcU
wafp0ZORi+yoMX7Nq2uJDntmfi1ddxLGHhFR8z1nCdhxRN3RQV8Spxv9zrqJ
0SGu8eGlrDwyMtxNyuYJSSB1Rh+ZzliGAhf6vD8PDVz5st8kRPLhV92U1rfF
BHyuj+9ft9mKM7sGj1p/oMNPlw+v342QUa1z2rNlmATPLvWbLHq/hFteev9+
q80Hg4mgR00DrLh/7zkx8VI6MNbE48guQmhfvfNrbxoBGj73eDdMJNAg7b8s
JXM67Ehd/r2WRMba3LvP+KSkYN1Q88EcdQGsGFlj9y2o8IBjp06b42Y02iY+
0X+RgDsPyl1q7cSw+sc4/yIvAfnqJH2T52QUvBav/a+ZBOTnW3rPZnyBkIbF
oI2XJRC/aLahs3UTSt7MtsnUIcDp/bA/K1kEhSqi/cUdCFDH9mffolchPpr7
r5RrNGCIbIQaFm7Bh6rCMrxUAqxTqr38Z8i4lKPXlRJAgidqwd6bKA8hZTlS
wEIuD0I9WsLsHrEgK7vPkqg3HcY5rxmojgjil8vpzgHZBOjEsJy27SEhZ7b0
VisvOiyFiDRqxpBxRc3wu4ejFIRwXTkXUvsDpl5X5cV1lsNsXMCUmzEPav5R
eXs2hoDyJ6qycf+KYpC3bf2fsgRQpDV/xXaQ0edpRrJ0ogTESnJ/mqf+B+yR
49+jaouhMTjnxhAnJ56se+yqK8XM2wnf/W/eCqPwKw89dy8CKlhlUvySfoF8
zEKB6HEaKGeZ7BpP5cd1lXHP4HIC5IMfSVd8JuOg66LNeAUJ8nCpfiHjDZQ7
5VjZSBSCiO9uEfHPbGhh4f9ipIcOIkup9xLeCaHGWvgr8l8EpCe9YQnMXwT9
hWg++QYqZKYOp8pReJG6vcCbN5eAY1GsliW7uFBij1aciD0BQYMWNXvfiCD1
w/vtvoYEPIj15KUEr0HtleaXyt9p8Dy/qbOqRgAz1G7ThksJiCu+VK+1TMZ6
8S0JVG0StEfWVyhSGsApybi/2zoXLsme6FXQZcG695opxaZ0eJs2s6uwRBBD
H8m+Z8tj6nMqXF3LIGGKfn6ocggd3Cg0/lcRZEyWT+lqC5MCZQo4azTMwaf+
84c6rMuBG0QMVB9y49dkTd/UUAJyzMLZpnJF8d3eJuF1JQL6hDrsJB+Q0bkk
cHdguQT8GPYsD639CHv3vxrVECiG7n2HeGrOcyCbS7PpdR4CtHwbRfULhVE0
4ftE+BkC3Dx6PJXTVuDvpN6xeg0aGFhOx95i4cfDB1nNucuY8zxtEwkfyTi+
nKGFbSQ439mgtEx9DedvhX708yoAZcUev4njbKjl07f1XhMduKNflU4XCaEZ
xaq5J4kAg8/JY/tKfsIlCufJ37FUqDKK+zg3thldg1tU3LOYPB2sqvIr24QU
p3kNLxMCPJ1z0vPyRbDxEv/g1FECIseEJxXDGcCqIP79ejcNxu2dpcPlBLDJ
OEzFlMnL1yzJzf3zZPxhfaMvyZYExyvEtiVbsOKBlmm98QQ6zMWf8OiUEkKp
etEsl0wCBju6si+/5EEpn7gVZ+b7im7NOm7O5ETsXjiQtJcA0X7ihajQFqxT
PNwpyfRfeLeWms0cL6Ye9OYYKSBA+97xxZ56LkwUtmQh3AkYOpPaNEUSxCLj
bqdnzLwSr1q3KV4l41bR9ptD20jwD7fSdn9KOTz2SS4w+pID6hsei1vnNsA3
YnuTjg4d+s2FC3pjBHGkw8uzJJ/Jl9ntmv4AEobZv5bOiKSD8CnKvdIwMi4+
jQxnJElBakFe11X1OShUmRhSEC8H0TKvObFz3Fjd6pu+EEhAJl/RWdlwUbzA
uU5tUyUghS+N7es9Mu4LpupX/C0BdboisQcaPkBIQQnN9WERDGamN2Ud4kA7
8akPXiwEqCkPJkdECaNbVcThUabevWyFgUu8K3DDPfJmtwwNjv0Ne4vv8+Fq
9MEHPEw/4EmJXfxjZGxNGYr/9YIEc0l8XyJr+0DTx4XCylMA2hdkSL0kNmQP
/rG9qIYObLo/tyicE8KGf5bx+AUCaGKjllkyP+FngInL9tNUaKzsz3hbvBkn
5ei2dzIICM1bsbF13oTn/CsTyv9k8irdzHgeIYIVeyxy+WwIGBDwdUpbWYWy
1Spzq7s0mLt9/Znr6BY8HXmTvY3JR0n6x3/K58h4X25GjO0kCSjslK4z3KzY
19XErh5Gh8kjia9XVgVR7H5uRCiTx09y0hCRzoPfzrpbPIojoEpYn2PelBN9
aLY1qQoEyKovRTF6+PGELwt1lKmfoJQ2cug6L7oGLJVuYe7PQLKBdtuXC8dN
tTPXnZl+1z4l/nBaALXTE90nSgjooT5m8flFxobJc2cO7SXB+6fdTafuC6Lv
yrM6kxwCGGNt+UbsPLiz0kBqJJLJ22xR/3MDfsyfH9f5l+nHoi8qB3h28KJH
t9nFPma+v13iCsr0EsDibSdCrjH73Get5VTst2Dft9xKJSa/vn7jib6afCjE
mAoOLSLAVu/E2LKOIP4oWdBJYNYedQcrX6yR8Y7xD8d4QRJUvJ19l64qjzUM
ifb9nuVwvLixOV11P5rdmSkw1LsCp82mE/sMD6PyxVZKByMBmhlXr6Wr6qPd
2LrPMikM9OzUM1RbjJj/iySsKPWGjrrekD5Dc6yxCWuVSXAGY/Yz5NA+K9zy
a/aqdu9ROP03R3m6qg1+CrJ1knuBoOj0Wsg11A4T2TofnZrcD5Mc9CTVFgeU
0525ddVhJ/wPS4Vw5A==
       "], {{{}, {}, 
         {RGBColor[0, 1, 0], 
          LineBox[{1, 139, 105, 80, 65, 154, 120, 95, 56, 148, 114, 89, 74, 
           51, 144, 110, 85, 70, 157, 123, 98, 61, 151, 117, 92, 77, 161, 127,
            102, 2, 140, 106, 81, 164, 130, 66, 155, 121, 96, 57, 149, 115, 
           90, 167, 133, 75, 159, 125, 100, 170, 136, 52, 145, 111, 174, 86, 
           166, 132, 71, 158, 124, 176, 99, 169, 135, 179, 62, 152, 118, 175, 
           93, 168, 134, 178, 78, 162, 128, 177, 103, 171, 137, 180, 3, 141, 
           107, 173, 82, 165, 131, 67, 156, 122, 97, 58, 150, 116, 91, 76, 
           160, 126, 101, 53, 146, 112, 87, 72, 63, 4, 142, 108, 83, 68, 59, 
           54, 5, 182, 6, 7, 8, 9, 183, 10, 11, 12, 13, 14, 184, 15, 16, 17, 
           18, 185, 19, 20, 21, 22, 23, 186, 24, 25, 26, 27, 187, 28, 29, 30, 
           31, 32, 188, 33, 34, 35, 36, 189, 37, 38, 39, 40, 41, 190, 42, 43, 
           44, 45, 191, 46, 47, 48, 49, 143, 109, 84, 69, 60, 55, 147, 113, 
           88, 73, 64, 153, 119, 94, 79, 163, 129, 104, 172, 138, 181, 
           50}]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0, 0], 
          PointBox[{182, 183, 184, 185, 186, 187, 188, 189, 190, 
           191}]}, {}, {}}}]},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{
       FormBox["t", TraditionalForm], 
       FormBox["\"Density\"", TraditionalForm]},
     AxesOrigin->{0, 0.8},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{All, All},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], 
      RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.7, -0.31803398874989486`}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{
        RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.7, -0.31803398874989486`}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[
               {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"I(t)\"\>", 
              NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[1, 0.5, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"E(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[0, 0, 1], LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          
          PlotRange->{{-0.1, 3.1}, {-0.1, 
           3.1}}], {-1.2, -0.8180339887498949}, {
         Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.5683872259074306`*^9, 3.5683874129511285`*^9}}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwV0HlczHkcBvCJNOllFiGVVilXh9UwQuLzIV0oNTp+qJaSmdJ9ITVybKhU
RFi6Xh2oVFuKsh3TJld0yJndlJV+w/TtNDKm9rd/PK/n9f7j+edZ4BXE95nE
YrHcmfzf+smKnIz54g3KEcmZV67QcEfVUDdAmAndWhpL5L/TID5UnLtUWAKf
TPCJ9zUamkxDBCrCOghwyR+zy6ThYWK77aigBXjTNx7dn0fDI/MTVV8EXTDH
OFKvqYyGQotZolUl7+HVxamJCbdpGOzclxle0A0WPTOsXStpEGmr9gxlfQD+
BXuUV9Fw6ZKDgJz9BJ38zRdixTQ8PtcZ0icgwFnnKfVuo+H05bRHqdwBOBaY
Nhz6nAYTIexaWTIA/KwdL357QUMo+9yR0IJBCFqr/qryDQ3jVrzagaxhiBLk
FVj20KD5V5Sl9KwMWAlx+G2Yhi01bIdewQSoJ4nGXLUkwJ3wGtUYmIBBO7fm
oXkSSNT79ZmBBQtTuzKrU+ZLINyrOsK5kYXGiwMK2w0ksLk3uLGiQwllk4KN
A36RQI/0772HRifjiXNK14mlBPQUd64pzFRRO0hY1xIkgaccs6nKHjPQbNnI
yvsPJbAp2ar++nZNDFyUNNrs+xl8ln/ncDl6GPJm0+W4sc9gb+gzqGGzED/G
eOl0H/8CZR0xEY/WLMWSiC0F+4e+wDp1oxLloya4OnLLxlm7pSCQn0/Po0wx
oTdcklUuhaCmTytL7FfgzK5ykaNcCvG7VBYp/HnIDd6z4PmGfvB+cGQ/V2iG
+sap71Ij+kHM1nI6sHMNuv/s5pec2w/cmbFpdLg5on9GzLS2ftgzvN7Ewd8C
iwQfOTaj/ZCdcV9HdnYD5rrne6bMJVCeZN7Zzkf0KrA68oZHILx6vWP6to2Y
78sbadxGoO5x3tCZ3ZswEKeoibwJ+NqsrfGlLDFGyWD39EgC125wKw74bcbh
l4NGRacInBuuORZ80Apvibtu16cR6C2IiBSGWmNRTWCbZg6BRuvzl48ft8Gy
I+yQl8UElLa/7UmOtcXs/la/0LsEWBsrlbIO2+GZo0P7xPUETs+V2bef2oI/
nvor33pIIHiXd4PsxFZUR7G3UQuB7mO8fXBxGwb5Fze5viAwO/XK2zPZ9ji7
LUon5y2B/BlGhx9cdUCxZ0Gw/B8C4lBdqyWF21E6Z1aa7gcCGXpZOuudHXHX
v/4XT/YSqIn+zhK2OmLDZJwSQRNYsJX9w8DNCT2cjMIsvxC43WKY8KbDCYkU
/kzpJ5DYNG6q58FHt8ntnIYBAqlhtN+ed3wsHdu8ImmIQPSc+dP1d+5AtaTq
RJ0RAjcNpzwOf78DQ17Ny7s8SkBlRElL7OmMnatVBa1fCVw3/UOU8ckZ92ma
LhyTETD0KnBQBLhgdqVcIftGoNOuqszlswv2ZqP+ozEC7TlRyyDMFasDwuJT
vhP4Vu5koT/kiunfRNN4cgITd0Mr4gLdsDyfXShmvNXU2ip61A0PvXbstv1B
4IHHct8DYRQ+NJG+vsNY3Vt4Lz2CQpHt05tVjD2F2ZzWgxSu4xUdvsf4a+is
Ml40hdgs1KhjvPC07LviJIV2XKllE+PYsrrElDQKZ8dfCepgbM52LK2oojB+
gzZngHHctDOT+u5R6F/6rnaQcdvMBmftWgoXiYuDhhkLdXhjogYK77aeePaV
8SWu5ibbJxT26SodUzAe2f3++dt3FDpk11epKQjgXq3FnC5m71HjPo1xwn7+
Ieim8Lhl+ziHsX5Io07uRwpzi61xJmOnuBs+Af0URr8U3p3L+FpC953MAQoD
a1c5azHuS9FWax+i8NJPukSbcezVxGIzGYVCFTv9+Yybs+6zfMcojKmJr9Zl
PDd/nH9VTuFkucRpAWOvwtV5TxXMX2y/Pn3GxaXBsokJCpdWs0ULGf8HEZvl
uw==
        "]]}, 
      {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[CompressedData["
1:eJwVlGs81Ikeh6dyLx0lwnEZl3VQp+ZvXMqm32/d7/f4yyoZlxFKLodCkV2X
TGsQ6bhbl1In5TaLHWMYpCWtnDpR63JscezIkibWZDsvvp/nxfPqefPVDj7v
FbqdQqGc/7z/UydP/H2FJv+40iKhYSk3CBwZQ61oZiXYLRazjUQDwE+6X2vA
bIJfAtqTzOcGYIB2IVyKyYMzuYk373cPwCPWmMNa+CikKvs8kkkYgCGLjI7f
wqfAundXiP7bfnicP3lhPvwdKDhEV0hOCSC7pHiokFgG97SIdvdRARxkwkl6
0zIwBOmMBzwBxErnJ8c2/g7DMMturRLAJ1uT7uWqVdipm6nRyxCASt8la+F1
EWhZWqb3CfvAiSvt9iZ8C4wuT7FkFfqA2ApeU17egtCNk9r12/qART39RPcY
BeWdVum+q70QH9yZ4COgYKn+w33Lz3vB5k2MoG18G542nGFJVvbCrPD1maS1
HSjsyZPLM+4FqphTJjaTwaPr+vProXzYVxG6rJQsg9aDkdub/fkgA4o2h3gy
CEH515Jc+fAu7dziKXtZFFyWYdBM+dAt8YVFj58cTkBEo70kHwJ3Fby4mrQL
qWuzEx8bemBE3kxWIlAB1U3vSLsIeTDmvLfkSYoCpskNX/N4yYP/5Czp3ypT
wCydSHtmPw/mJBtsDr367L/te/W0nAeb4v1pZMAe1JRgfHvVnQdGS+sf7vnv
xa491VzH9m7IfsKdO+G7D6UCK9rz2FywyrPtaXBXwZ4eI9CP7YI0p9Y7Y+dU
UFhcoMcI7oJuSd1C8XUV/GHD1/SeVxdYpFDCvIdVULFotiiY3gX0iK6dWw6q
6GiRnnpqrRP0rAk/Xys1TLKP8P4muROkROpLEqbqWNTWckCD3QGhhzfkCXkq
sqXSO26+4IDLZFadiiYVx75OSvQY4oBJlpIl5TAVrZ+H1Sl2cUBiihY16kHF
1aAD2h0VHKj5Lvxx9A0qaqsGO1wJ48CUcDyz8a/aqD3/z+dCUTv432va0jXS
QYMBf1tJnXZwNQz9XdleD19DzuAKuxWax1MTho4Y4Hbzmju1oofw5V6jJokr
BzHl9t2RGbUmCP+joLyOpKHZh2klN9m7cH7gLb3J1RiDLMqVHXkNcO2k1Bfi
KBN0eudw43J9LTAGk8MIphl2SHIyA3VrgC+t6hnpfwT9akZe3/hQCcSetOKF
eAv8pbUqoHi6FIJWLQ+6RR1D7YM7TM+xSqC6ol9ddP04eqby8utCi6DlO4vJ
MS/EDM24EcfWAojvtPQod/kKFdjZfQrpbOA9rlvJCbDCmITSwL5nLIiwP8qN
IK3xSvx/s4TMHCi7TbRFnrXBqhkT4jejTMhf5abHJNri4SPFNVohGfCmMeEf
zFg73Nlc7masmQ4Cu4KSq1ft8ex7dXRcSIVt7hOzeWkOWKx6vGH36UtA+ap9
W9VFRzSyuB4e5Z4I2ftFrmNZTjh7tJvnHRIPMScZvaIMZxzNqP6VSomFmXST
EChyQe/qxaWEuPOwr/DWRE61K7bcKdPj5kZCvYLRxcFSN/RodRaM+TGBH6tl
+7e77phYkzDp7RQKFdQqdUsfD3yhzxNyhoKBm7JBYT71QBnuoTqJyiDQdpbe
1PXzxDnx8K0f1QKhddQw9+W4J87LwOJ4mz+wBj7RqIFeuNFqVKJ3yRcK4xbO
Br3yQr3If72seuYNKUqaf9Hx98bCpzRp82xPuGMo+Th+2hubyTbD801uIPV+
myr/lA8K9qsnf9zvDA20h5cr3vrgm4uBm4/u2YNhcKObOPoE7vi3h7k21wYm
HTuaTyyewFWz9QuOPlYw9v2lv0OcL+5mh3QbfL6Bjy2ex3RWfLH5FaPzZ+dj
sPVDbFvmOT8sWNQuOStzFJxpdrYpa37Yeibm7Y//M4XBwMMRkXEkdoa+izL4
mg57Gcyu8gQSF7gaSbGedDjFrJZ/mkhi+5XNyF47OnyIVWw2SSFxMJ/1KY6g
g162aEP8DYlLJvYhGtJ0SGvmsdjFJO44oMHKbDEGC2mPB20dJCo8+el1hYIx
ZO7K2T7fReJzxrhslZQx/Lyn10etm8TaYbWe+k0CmOom65d7SUy9p9wjmCfg
JqFi5fATicfp07et+AS8D5h+NvGKRD1xxxnrOALwjKq+/BSJxV5VraURBOSG
eSXBDIkpnhi0fpoAnQsC9dpfP/eFjLQJXAjwzLwdGr1E4hZ7U6pUn4Cy3BlO
5TKJKzPsYQ0NAubZanJjKyTe2q31rE6RgLRS1n0zEYm0fY43+ykEDFf1UyLW
SWxZf+8WKKLB/vpPXqV/kFiYyvlyQ0iD4LvmdSNiEqNbhvzL5mhw/0GMaGuL
RK+F8FrrSRr8CditKwg=
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwVkmk41G0bhy0JIdvIWMqaEEUkiee6kp0IYRBJJmNkzU6yR5Yk+zozfyT1
UEppIbSSFpISUj3SIiWyFPLO++E+7uP8cB/39Tuvn4J3kAOVi4ODo5l9/n8r
nl4mKjd0/PNjdZLyfzH5cJ1PTS6AVgX3/VKLzT7lQ0dUQ7UqrRFcU8z7uu0L
4IFWiO9q2h1Im48StlEohEdZfRazvs/gCtXo5Zf6IphKEfwUVd8Lun7uNE7+
Yjh+t1FtnvECjl8Je+9PLYZCnGuYyX4FVa75dg5SJdBlkHzjm+8o+Gf2P+cL
LIULhuLx2xvfQWhxOdPjTin8HPKpCqt/D5u3PR/RES6DeGm+D9OM/4A7auxb
dH0ZFBXZ+v7I/gShjbPBK8/KofvMUMhn3x+g6PnUy2moEtKLC7vOak9Bieb4
oJJkFWjQwE2ncQo+9B3f2WlfBaG8Z2JD63/CxIvawoS7VfDXVLdtijEDdku5
o7dtGMCUGLHN3fALfgVauMsdYYDJx9TRreW/IIvGc+hPPAMyU15xBBXNgvFM
jKBiIwPId2P2TGbPQ7E7azqAnwm38pT6swQW4JJX1OXuDUzw9O7x0chYgH9T
no426DChmnNDmn/Kb1CMmykmHWCCNnY8+hKzCIkxfCfSzjGhX5jumrGwCJWL
tdZ2N5gQNSr2VTViCTiVJL9d7GZCW7yPAC1kGerPtDzT+MYEq1Ze23HfFbBU
KdGlq7NAe8V7dt3UCtAj5ZoNDFiQJX/wqZIhB154q5tWZsmCMO+b4fvvcSAn
t98cyZcFNG5a11E+TuztaubWDmfBgWqJ9ak2nLj95qTRWBILTMaD7zX3c+K2
zbESkhUs0D+5gfyUzIXcIT/lSs+zQEO1x3/8ABfq+fWuu9XMAnH6JnHJj1xo
YxPwZLiHBR8mRw5FzXKjztg5atccCwZyMptzd67C/ZIT76gcBHRv3cl//vgq
5HJvsbzIT0BTSP6lQR4ePHThvoehDAG1Ysarpi150I/peD5diYDSKz9c1uTw
IHbPbE/ZTEDirNWKwbrVKH05zyHHgICwwgUHR7fVGBtQk1S1mwDajtpa/8rV
SHOd1qFaELAvmtO2XIUXpdT1EsSdCDCRbmRepfPimKV+zl83AvRvHZjtaeDF
ZDFbDsKLAPnl6+XLenyYqzZCk/UngFRJnZKI5cO6VnrmTBABfCBusuUOH35O
1aWnhxGwNNpeZMbNjxtrTGSGowj4kRA44WnOj7r/1Fz9EUfABwVZiMzkxy/H
vGzuJRAw0NmVd/oZP8r4JSy4pRDQtmqjQbvLGjRbLzned4rto6Yv+3XZGvyq
wHK8ls32YZbwfmp0DXqE3NT0ymX7+KS5nV9ZAL27rU715hGQkz6UrkATQIZc
sa9AAQFJahnDOy8KoEfgXMXaIgIiuvW0HKYEMH2H76rhYgLo/mPJdF1BFF2a
CAkrJcBDMO9VUpQgfjZMa31dxvb1L2wuuy2IizE72vgr2L5sJ+OvcAjhrh2c
1nyVbF8/Svsemwhh0fSYwUs2a+RaqIylC+FfzTGfkCq2P+256KUeITxI52CM
sJnURzwhia7FC6q77koz2P6O2StoOq3F3i8FNWpsXhJfCTMtWYt3tohtEGDz
1NWLjzxG1uKRqMvc7ez3Y05ushEKwthsHq5pyebXc7zBOVRhLFt/MPQc+//H
Rc13a88LY7bWVeYQe942/cOSdyaFUT8z2Wu8nIDBo+nNE2QRLDXvdn3Ezudo
dHB03kAEf5bPGCSx8z8R0uNf5SGC0Z30y6QSAvqsxYqfxongcCfVp5zt73XG
d5WSchEMuyf/lquQgLcPu5sP3xZB+sKjCxb57Pl4zplsGRbBT6cz3QLZ+/i6
J/nFwqIIStwuiAxj72sq8aD3XRlRlGkg5brnsPMuSyZQ3EXRqW7j56cZBHAZ
/lqrFCuKjdfn8cBJtp+Y5xWTpaJoRbNr6WH3Q3wu/VbSG1HUWY54TjlBgPr3
33MXXcWwR5xkrX6MAC2NgdTIaDH0rI3cNcLupx69iWRcIoakpG/jEUcJMB6n
b3v1WgzFnnsbeVEJcH07FMBJEUfR6pgASWcCPGVblh5HimO1uk2BoAMBPm75
mYVF4tiUJTQwsZeA4AGb85tfiSPj3Vs5uikB6U9bx5ycSRjarLsnWIfdP8HS
Y/IRJDzJ85fRvoWAfKsIrokCEr7Z3Cz2V42Aqgdb5BNekjDY17FhtzwB19qq
3Ov3S2DdzzGhWQECPjYk9v11WIffVQb22r9jgfFp0/ZzdmS8u+mR6lg8CxKs
rp7vCyRjuNML2ewoFrTxKJ1dziZjmnFRmEYoCwziOI449pCRJ092nR2VBTp+
twRWLKTQJOO/XDVrFijv0XZxNpbGySb/Y54SLFg9L/t91XZZfLfeY+ZXNROo
W/8IaQvJ4xv353y+LQzYq0b9uc5cGTeYZDqJelVAU//x8C59VdQLVBUp7i+B
XWLqjatOaODWz667+n0LwXcxr6KGooVaxsxUs+izEPTgk07j3m2oe95yyUPy
DJxyW71x+aguduq1OxtdzobDD2OPaNP0sFretT1P6BR08ErZ+7vqY4lPRcPi
9zTQFk0o/BJmgJZpSu+vLCaD14yRhu1RQwy6XSXrVZAIzMr7svPZ/6Bwywuq
ATMeruQYDPU5ICbs99wk0xkDYTeN9lXY7MYfE3WvjEsi4U53zXSGuzE6jKga
h5WEgZ/5zlY/yh4kXFo8I1VCobxOu9mfboKQ6mSpXBcEZ2ZaE4MjTXEw6GNB
T4M/jNeHR9BCzZAv47EzNZAG98zyipOSzNHa2ypqyZkKnHZvPpxOsEA31YJ3
kc+8gWP3NU5GtCUKchz5p7PKC9Il5/f2nbTCU7L+m+pIHhDsdrhzPtkan3b9
Hr9a7wrvE3V9oMAGGcN299P8nYF0tuRNBnMvKiYqd9iwHKFWRD36YZkthohf
UIx2tYeOUDnTTRfscGtrrymFYguV8gxZo/37MGA+pKD7gRW0xv3hoD3fhyHL
2/1fN5qDgjXvkpKLPQ6myyvdvG0CV5+pZQ7222Obarca1d4Ysh781ZL3cMAc
zYqTJ7gRzh77QvcadsCmm3EhX8EQ4iQ2CCu6OuKoS8/atj/6cF6NpzvsnSP2
Ngw+WRjaDqt/cUp1eO7Hmg98jwZsdOCc1uX4yk/78Wh/YprNiBaoedfbLgc4
oV6sg29ZpiYMWd5ocppwwq/EkuY1WXXoI2I04ZgzBi+eedY8oAILV+wNFaed
McexoSx/kzKstIQ2pwW6YMPjfU4x/QpgrWVmGjfrgkvCW80/6MvBQ4+tfv7H
KDjxta4W82VA7DDtVkU4BWcfRkUspciAJ40p9DySgqmKaV3t4TIwFyrepBtH
wQUt02/eLjKgnD7/ZzmFgvUFNx4JyshAQtOdrNxCCi55WVROE9JgwLvvUvMN
CuqLrOD7W1KQJpjB9fkWBbeGMIyr/5WCXtHO/dJtFHQrD9oUVCUFNFnd3/Gd
FPR7mJ0qmywFRdpkY4vHFBQ5l6j/0koKfrm/e/FmmIJadyd9bg6RAQ9JqQiN
UrA1bTDx9xMyZB5xiIL3FBybz9bDdjIohtyTrf5IwQGPWYexajLYp9VRA75T
cC7fqCstkAzlme+vV01R8LbCdwmuQ2T4nCu9pm+agj/tL/WmOJIhoSyrQW+e
gg2Sa5MY+mToYdzn8PtNwcavsUd3biaDZO1fh7JFCq4jdVweXE8G7ws7ap4s
U/Ca+U+XRBEyNFwKnl9ZoWByh3SkFjcZ/gdqbCfj
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->{True, True, True, True},
     FrameLabel->{{
        FormBox["\"Density \"", TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}, {
        FormBox[
         RowBox[{"\"time \"", "(", "t", ")"}], TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{{0, 100}, {-0.05, 1.1}},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], 
   GeometricTransformationBox[GraphicsGroupBox[{
      {GrayLevel[0], RectangleBox[{0.2, 0}, {0.4, 0.3}]}, 
      {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
       GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.3}], InsetBox[
          GraphicsBox[{{{InsetBox[
               GraphicsBox[
                {RGBColor[1, 0, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"I(t)\"\>", 
               NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[1, 0.5, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"E(t)\"\>", 
               NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[0, 0, 1], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"S(t)\"\>", 
               NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
               Automatic, {1, 0}]}}, {}},
           AspectRatio->1.5,
           FormatType->TraditionalForm,
           PlotRange->{{-0.1, 3.1}, {-0.1, 3.1}}], {0.2, 0}, {
          Left, Bottom}, {0.2, 0.3}]}]}}], {{{{1.0000000000000004`, 0.}, {0., 
      1.0000000000000002`}}, {0.3154389248291284, 0.07532869760504782}}}], 
   InsetBox[
    StyleBox[Cell[TextData[Cell[BoxData[
      FormBox[
       RowBox[{
        SubscriptBox["R", "0"], "=", "0.4"}], TraditionalForm]],
      FormatType->"TraditionalForm"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     TextAlignment->Center,
     Background->GrayLevel[1.]], {0.5083460540425979, 0.06921055345539001}, {
    Left, Top}, {0.23002158813760648`, 0.07667386271253551}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImagePadding->{{0., 101.872006}, {0.833333, 51.336612}},
  ImageSize->Automatic,
  PlotRange->{{-1.0291666666666666`, 
   0.4291666666666667}, {-0.6460339887498948, 0.32799999999999996`}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.5683874183564377`*^9, 3.568387420995589*^9}, {
  3.5684225543256483`*^9, 3.5684225926074867`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"eq1", "=", 
   RowBox[{
    RowBox[{
     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[{"\[Epsilon]", "*", 
     RowBox[{"e", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"\[Epsilon]", "*", 
     RowBox[{"e", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Gamma]", " ", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.6"}], ";"}], "\[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[{
  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.5683875139289045`*^9}],

Cell[BoxData["1.5`"], "Output",
 CellChangeTimes->{3.5683875160150237`*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVlHs01AkbxyeVafXOSbZ0WetWKSWMHWKi5yGXSq6RH122lcxMktu0EoZo
xSLhrPu1zAotliWRinWp1Iq0bfGeovObmZ8lIk1kmvf3/vGc53zO95zP8/zx
nEfPP8TzlAqDwQik6/9dP0NxvUS7Y0/qwD+5+fkUHGhnukp4SrhONjgPRlDw
hGXx1bJj6pg1IWoU21Bgl+Fwv9JtPTrfmxPOMik4ZbLAYrN0Ubc9LPboMxm4
GJ56r+m0GR2rDh9KKZRBw1DsuYeW21A1eTpKVSCD3Rrb65bFGeH9s/822nJk
wPucVSwmTNHKx2Z9jooMQnqk39W5mGFPgnfenr+l8LOf6hbFGQ7W9N0wCbgh
hZO90YFsvgVWPmcmNsVJoYO5wSPI1xK777YtH/KVAnt1fA4l5GLpg4/yOTMp
nJi1MXI9Y40lazniLnUplJd0a8nT92DF7q4nE5MSaLzCHR70RJzort1OPZGA
sNXGvfigLX51f/zm7O8SuPdIPJNyxA6b3n6eLv1FAgInq3YBsRefLeKlxRgJ
FN1gNwWdtsdRnTMfDAMkkDnbfjE00gF3rTz7Ic9FApLqcz/ywx1R3P76igZX
Al2OWXkJCU64Y6RqJMpAAkvcXo1lxO9DVtdyy6y1EmDYNi8pi9qP79Rf+Fup
SiB5ndxl8PIBlP6kTB/5SEKo38lOeaIzFnVGlVdSJIxe5ATALwfRcmK/JGaE
hDXZ+a9Syl1Qdyqm7/pTEn5V3x7VW+iKffz6iOgeEjrCdRy21rihTr1b2fE7
JJTolmnZeLnjj+URi82NJLTHLDD4T93Rnb2KS9WQoOfMXNzk44Hfa2j3bKkg
4Y9+w9SXQx6ob1Rcn1hMQlrPF1PdY56odmI2YyqHhOwI6vSJEU9s0rvA98wk
IWat9ip930N4u/+FqWMaCVWGyx8J3xzC8ZKjYvvLJKh+WLKh47gXXtPS3sFI
JKHS9HdRidQLszNE4l4RCYb+1a6KYG+0vZL2s0o0CcP7bzd4/+uNz1Oqwh9H
kjB4/cJOiDiMfzDaVpQKSfjU6GGtP3MYKyMLbo6HkaBsCW9KOuuDYjNXQWwI
Cc6mjg4xcz7oT/r6aQaT0HvMRBAUQeDJF0eYK4NIqK0PlSuVBPK2R4fI+SQ8
yhwOk/Gm4FBoXB47hQJdxa0ihcUKHPvbqCzDlwIu072+6TaBW+Z3Fi0ISHjI
Tbw9wXsNKoqHKzlZFIxN/veH83NLcUKg7bsQSEF8w720qzkEXmA91rl4moT1
f17YO5kuB0qzQk0uouDDkTfPXo0QGGTP5UfSvgdpg/vmeP3gWDv+QC+HAntJ
aFfT0BJs5pWNRwdTsDlZvqC4RCB/TYu4m/Z9ceDcnS6bhW/29yvML1GQy15v
t6+PQKZjXH4L7cvNdeVNpUshdo308ut0CjySbpwKfkegh6Jt+S467zEN46ny
78HeK7URk7kUCP1bz3l1MVC9z1x+M5SCj+FfN3BiCPw4RnJl9LxwZmZ0ePV7
0DKwG7qTRAFfizMv6iQw4G18/EvaJ9q4Ymym7C20GjR0rr1KgX5Yl1YFSSB0
HfzWh87jC9NqLeQEFhRz9dbR3HG+tmIbvw7MdArzevMoSNP9/q9N1gwcr+7c
ahtOwXF+OetpJIFLzc0K5un5Rnzw+65uGuJVktPnL1MwsLrTa+NdAn2Ud5jj
tO/9cECpsHoU7CuTGdsyKUgN9DwPowTqPfC05tG57OpGtcEZAtfs0mZtpXnd
r188Cz8TiHFMOybNt1YY6gTzS8Eqs7+MTf9HttJ/TnNaCdnN3G/V6P+ocZLf
VnyOwLZKNTcV+n6S83IeZrOn4WmXYEdOMgVJ/0lRkbURmISu7jO0r8b6a5F5
3Rvw83/XX0vvgz9sMGC9JnB1dZV7CJ0XpY7eKp0mMN7qOdOE5sdl3QzBPIGb
ClaarqLZv2aX+ImCwLuaO32U9H1W/DP1KtVYH/uObGm2vCWDo4UNLanGZkiw
NmkwXkoh8MBk4oDDbkwY5pzo3iyFlsXsylRjO9wt+mTnVSABGy92unGrI3od
NHKSciTQWfNX+ICDM8YKDT7JJkhwWnqGEA64obky5tqqNhICf1tWmmrsiaxO
HwuTfBK2+T5bfUzohVYjezK9E0gYX3btknHrYYxep7XwTQQJ/wMIXxmC
   "], {{{}, {}, 
     {RGBColor[0, 0, 1], 
      LineBox[{1, 83, 74, 66, 59, 54, 88, 79, 71, 64, 51, 86, 77, 69, 62, 57, 
       2, 84, 75, 67, 60, 55, 52, 3, 4, 5, 93, 6, 7, 8, 9, 94, 10, 11, 12, 13,
        14, 95, 15, 16, 17, 18, 96, 19, 20, 21, 22, 23, 97, 24, 25, 26, 27, 
       98, 28, 29, 30, 31, 32, 99, 33, 34, 35, 36, 100, 37, 38, 39, 40, 41, 
       101, 42, 43, 44, 45, 102, 46, 47, 48, 49, 85, 76, 68, 61, 56, 53, 87, 
       78, 70, 63, 58, 89, 80, 72, 65, 90, 81, 73, 91, 82, 92, 50}]}}, {
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], 
      PointBox[{93, 94, 95, 96, 97, 98, 99, 100, 101, 102}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"S\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.67},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5683875160320244`*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVlXk8Vdsbxo3HcMg85KokEklOSZK8byJTxgxHhkoyZkyGQhGig5RKhVRK
hV8KXRpMZZ8QzjHcBsNVKg1SIokMv3X/2J/9x95rred53u/nWcu9Qx338/Hw
8Dwmz39v1VNzRZeXNhrPRIsZbRF9Bla1QrbDfgswReuRVgynoF1cX0TAUxID
qr9a+DEpMDll1nDTThFVYhwOGz6hYP/aGXGGuArS5SbVRe3YYKO5/4e8uRrG
1zypUBxnQ0VP/KEWg1Vo9rfI5vb0Z7BZWqtc4Kg2LvPYzinWbAa/P2cKbjB1
8VxSKUY1NEMo++P6cpt1KIef3ZXMW+DkLpr63AE9HBDe1mjc1QL7nh3xZfjr
o01MkXquTSs0Ci12CHIzwANPH4W4NrQCQ+rY+c+RhihxzmBgesNz2DOxRdv2
gBFOfHqnvbvgOVy9TClPZRrjHKa63aC1QWWWYV+XI+J616JpK782iHy4xb5g
x1Zc+/W987VHbVDfemM83d0Epa6986FJtUOA+abaAOY2vBN+fNbYvR3ybzHu
BwWaor7arN30jXY4PVGbGBZthodFe5T+/dwOwyWHovwjtmOzci//WbUOaNp+
5kJSkjn6UeVrY3d3AK9d79CpYxbYyz+iuPVMB/Bs/Zv3SqwlaoYl9Dk3dECa
wpRN1wkrXHM2sDL8WweE7dr3ZOq4NTL3milJyXPgbaKeD5zbgTqzGVuztnBA
Nudib/pVGwxM4K+Q2cuBYkmt2Gd5tkjvXmaXcpQDjRHLzDRK7fCzbb1mVwEH
LqtcUd7iZI952f3i9dUcqI2b4fHn2iN6bRhdwuHAcmuh2RWuDvhPysRDj2EO
VHE0Wa97HHD8z2spgxkOZLDndVU8HXGxcIbNTxoXcg5+DtzT74iry3vyd0lw
IU5uqYSq204MsOtq+ijPhduagq2Rb3aiSO/EHZ+lXKD95F3c6OWEHQnmOWw1
LtzUvZdw+aMT7mo13ie/mgua3iW2c8HOqFCiEvZAlwt9lg8qnEecMTx57kTq
Bi50FR1eAwddcHVS6snthlz4XelgpDrugnuN+xMcjLmwUBNxPzXEFWtu0haP
b+WCte52s7hJV3zZN+SSbsaFZ55rA4IOMjElVSMg14ILd+6GTS0sMFHilmTv
PWsutJ7uC//k9x1Cbrt1G4xToDJXnT+nL4yvJNWjS80pSOuofe/sIotl3d08
+1MooE0pfxPYoIz6XwVX+NLYYChkf/f+AyaGlpqn6FhxocXw+IOvfoNQ94im
Rfdlw9DowN6YSX6c+vLi/QtHCrS+Tf8qc5NG5XeacvYHKFDbxnB1MVHCKNGV
AVnvKDhWUZ+RfZ6JY5nOR/dbckHx6eFto5lTkNc83xxdRIGn2JmXSTFi6GHc
FvPYioIPdxK75h3lMS7PtcDjGgU/3d909/YzMXxwz6Vxoqc5o8ti0o8DV/e9
lzK9xwbT4bCm+z28WHNBIdFgNwWzcwrHmO5SGL1iZqhgLwXrAx7RFywWI7dA
Trasi+hLm5qZS2bigR0eigskv3kzvbqxKxNwK9SxpYNNQZ2AumGDqyj29Kml
lZG8/q4rdC9xksOWyj+dh3IoyGUomlg8Z+KoD137NNGTm2vr9z3zI/zSymro
X8mGxEmrBUN5Gu6JOPl2vTUFbv/2BfMyZbCOv7baOoYCBjY2fz78BzSmM/kY
J4hemYVIs4uL8GT/5jWh9hQ4pN7aH/yNiblJmt2OZJ5s3XA/mn89dNaz+Eb6
2BDp/fCQUxMPLtJoiAjyo+C94E1TnX5J/Omd+5zjQYFhHI/vzjZFjD3YRvdp
peBXhEyFXhwTPdrFA58TvxFCp49ElPwAax9VTmgfBd+PhYx4mYtgflV8uQnx
W8jWUTn2jyyKs/qr7DMo8FfWm054wsSfnWMLu4nfBCXhofEr7yC8Tvcl3Yz0
ZfjZu68FBZEl0cWMsSV9Oxy47uUraXQ4qHBSI4KC67xLU4OSp6EyT2lJ4lkK
tLMtVr5PE0dnHq9ccxsKVMOblK9/YOLZFssBVeL3PP66M5H5Et63V1uInWSD
TKCGjMIHPnxRbhfjQ/qclfySJzR3EtyalVsYVRRkpfWlLfen4xwt++drCwru
yp77OnJ4BDoav2TZ0dlgH8trm79SCOuklMR+ke91CT50//A5qC1Tawg6QsHz
3PtPi29L4GtvM0rDifCal3FHf4qJjKxTcUlET2PMneur/MvBKab39SVyP2So
7O5YYcSDuc17eyUJ76/Sv628mC+JUr5hAVm7yP6CK3LmMhXR+D7Dzprw5OV/
VZwbzUQnxq+D90j+2v6wa335GHjVr5jLGKZAGGRMdeqFceeXhA53kv9Zqyi+
kXOyOB+10a87jYJOqSdOSnVMtHh3aIc5yf9Hn09hZMlbAF/HEB1nNrSu3SRy
O14AQypt1Y4TfvQDK2RNLkpjHyP/DSOUnO/d5qOd/hvu9pgPUHkUmNqOJlTy
iGNAolD1KOGT5esYA2+ZOP9XPCVK/MY/LdecutINoOs3tqWADdqr2oKGPfgw
5EGP3nV3sv5DyuDa/J/w1NRycGstBcXbj70dGxTFoQslj1eTfNVe/LgdnPwZ
tpitrGlSZIP/xuLioMs0LNhT6DZpSUHMoPSXVVGzcLnoSPHSRMKv8y7lqOUS
+Jf+9Owm0iefspVEu8aZOHTA+14g0eNxXW5Jyg5etPaKi1LbR8GLJy1nTnFE
sHFZtoEXyetS5XdX0SxBNNs5IlW1g4IvV0JvlhydARuzbbzFmRTIdhW1y0ot
QptnRueaCZ8zpUkPzYP58RZL0C3KmYKoVn1dxzE6zmvB3vtEn8Ejj8m2O0KY
Evvl5HriR6F43jHvDxOlDj7Vu0T0VAtrLgv2L4QPy9ZZ2syzgbHgPSk/tgA+
wQOCaSEUdFlLX+iIk0S1+LTEaDfCk1XV7a4QRdzwUvPd1iYKpPf5Pyo4xMQc
zsrw64SHtAvnW3IYY7CgcLvZ/ivRe3n/mNwRYYy3Sq6MI/6yxC4dVImSxcvh
irZKpC9SxdL5Pj1iIlvLZcSQ8FBqJJOwofwNjNaEqaV4suFFFut+9iYBlECt
uiIHCnS1X6REx0rjjJFaZF0wBY/OrOjJoP+GJ6+NJ7MLKbD/H6zOeyyGWpae
I3aEB9y7eKX4IBMjs90q5sn+Y8liH2NKOkGhSGpB/SYbDE4sVexQ5MN+1eqL
+zwpuCo3YJu99CdsrDwb87uRgoobXZmv8kRxc/nQimGi/1/9K2k66Z+g+LiE
yONlpL/O/3bcuYuGXrp+pzJI3/dIBLql//4D6n+oqr+SKRirKmv2HFiEEwY6
qvZEfz7rbXXhGBNvXLzV5EXy9+f3bzkgzIujkYc9jfZTMLRcGaJZIijNWjJn
Sc4rljYRGLcURIPJMlYm6RfzTrY8nW+G9JRCDu00uQ8Zv2Jn28RR/OQHK37C
A43+j+9aTX7U3aju886FgiTN9P5NZXT0GfRbYkJ4MFUqv1oVKISnT71iZhIe
2q5QPAHTTPQ9KuSeRfTMDjbkbucXQU/2EMuCnF/HHfZobBRAqkj5WaQd4fPj
mg0ianRsD7GSjyfrPV7tnDk+RMNzvOHjwWT/1n3RwzdlRLHMokj96H/zdioo
Ve0SxNWrnheMkHkEBr0/Hqgnhofrh0+tJ3lpe4hafhgXQm+/HOdP5H/v0o03
2ueY2PSQEikmeq6/+t7L0lHFMIay/+arbPDIq6hh6azDhTGa4WPjFvC1Gj3e
abYZa3wqkof2PIea2ZybLB0TNBmYFXjF1w5bnBiZOg+342KppwvKeh3wpLQj
otPMGi00Er7tEOOAOf8BZmSnHd6aFCqsvcoB3/8JFLJ0HJHeb9p7np8Lq9y6
pTwjndBUQ+cepc6FLwLXknUeumBStsuydCMu/B8O+HmS
   "], {{{}, {}, 
     {RGBColor[1, 0, 0], 
      LineBox[{1, 137, 104, 80, 65, 152, 119, 95, 56, 146, 113, 89, 74, 156, 
       123, 99, 51, 142, 109, 85, 70, 154, 121, 97, 61, 149, 116, 92, 164, 
       131, 77, 158, 125, 101, 2, 138, 105, 81, 161, 128, 66, 153, 120, 96, 
       166, 133, 57, 147, 114, 171, 90, 163, 130, 175, 75, 157, 124, 173, 100,
        168, 135, 177, 52, 143, 110, 170, 86, 162, 129, 174, 71, 155, 122, 
       172, 98, 167, 134, 176, 62, 150, 117, 93, 165, 132, 78, 159, 126, 102, 
       3, 139, 106, 82, 67, 58, 148, 115, 91, 76, 53, 144, 111, 87, 72, 63, 4,
        140, 107, 83, 68, 59, 54, 5, 179, 6, 7, 8, 9, 180, 10, 11, 12, 13, 14,
        181, 15, 16, 17, 18, 182, 19, 20, 21, 22, 23, 183, 24, 25, 26, 27, 
       184, 28, 29, 30, 31, 32, 185, 33, 34, 35, 36, 186, 37, 38, 39, 40, 41, 
       187, 42, 43, 44, 45, 188, 46, 47, 48, 49, 141, 108, 84, 69, 60, 55, 
       145, 112, 88, 73, 64, 151, 118, 94, 79, 160, 127, 103, 169, 136, 178, 
       50}]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], 
      PointBox[{179, 180, 181, 182, 183, 184, 185, 186, 187, 188}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"E\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.165},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.568387516055026*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwV1Hk41QkXB3AkS9zKVsjkhoRkGwyGzklk37efihmKK6WsJclO1rKlJFzh
Xm5Z7v0llZGxtCmKlKJRGpFBKRUK973vH+c5z/fP7+d5ztnif8w1QICPj+88
b/6/lc4tV5Ztbt85vDZJ5d+YQrBtFXYcp3FBPTNxMWblCvRQDEUFfdbjfm/f
KuEuBpifs/yb6SSLXA3f+yMnaiBA+wdFl0JF/qF1eevO1oKDesDnDVYqOJSR
yRWOZwFn4HTUQyM17GE8jTxgfRV+l9RoEIzXxK5K7RQbmWtA+5lfWk3ooGtS
7Mm7A9fg2L2JXxsc9DD2mYBYXXwdZO4V2rp8RB8FlWh8HTr1cOD+qUDdIEM8
0fXVyK63HtqF5VwOexvhDiGPST+/BtCVSCiajDTBqS1ssVsLDfDnnJmm4xFT
1Eu8EKsAjVBRdldhPmcnfqH3jTgmNwJ51mS43xXRWGl3M7WjESJvmzmX2u/C
A9veTv+y2Aht3dVfMvaZo1GZd/2cDhsOWRm3HiJ241rDz2Olfmy4XKPbdDjY
AvNuMv5qzWdD3lxrYugJS/TMm1CNbWPDOCvqeFD4HrR+5ZC4e5wNXXvyLyYl
WeFggUvLTgoH+J2G3p1LsMbJwZ+UaS0O8O26wU8/aYO7LtrqZThwIH3jvEP/
GVsMqdFSNzrCgdC9Bzrmk+3wqBqzjZ7GgdFE/YNw3h7Hqotsl+gckC4oHsqo
cMAdmRJ4+yYHGOs1Tt4vccRCKbMuuR4OtIcrWm676oQwuooVOMqBMipdwczd
GVWf1fJ1f+FAa+wPvqCnzih2a5NHjAAJW+yEl5S9XJDmp+YtK0nC9SfqWa8G
XJDC9PcKVyQh+96KDtXHFV3e6NtyNEkoiJgM/vO1K5IGr60FjEiIldm8Tsnb
Da9YLARom5NQq766O/KtG5bR7eSs7UkQ+sov1+7rjo8VP3uPuZPA1GHHlU24
I2XveqtDPiSo+7Mcl0M8sPG97NTqABKGbW5xPKY8kF7eapt0mIT+ypgdEOGJ
nZ8puTNhJCyQLqZKXzzR3qal/OAJErg3w5vSjnoh91GEi30sCXY6eyxjv3nh
pYDqvm2JJNz30T50OILAcY1kqm0qCfWNofNcLoFF4mObTmeQ0J03HPaB9gmO
syw8hKzLgbrcfHnZUATrHMuohHU1pPe2jnl4SmNYtXLGpxYmCM0rfBQ0UMCX
z/9y9qPUgve1Bq6yhhKO/9iZaiLGAhNh58amWwRqZISJhp0h4aFJ8q1p2huQ
SMo03JpxCd7N/OMX/W0VXmhqHVqxqAKNj4vfr3lLoum7/RvO2TBBZbeul6e5
PB7LdSqauFsDb2YG0libtuB3WWDK99ZCAqctO7eIwPj9NoJ+aSTIdsbsnsmZ
B5VjnbqNSRXgI54/mBQtjtK7ZmZ15Bjwvj6xf8V1A+bUuykVKtbA131vnw29
JnDal+Uek07Cg+x+62+0J0DIn3FjsC+AxXhoV9MAP37cUuLyx9VKWFremEDs
k8A9kRqMZFEm/HqoRYxrLYfFYXncJ+U1cOUsrTukkIpmjEeqcfW1oJI+/2M5
hUCF7b2hL3jeK5b6d2bpczDY0L58sIIOdwS3mvzttQal9qWZGd2ohht3yvex
3GUwwU3loc8nJlzQlTW3fkTgFtOXyd95fhcuONI+5UyAoty1FTVKKSR+s+Wa
bBBChRfrYKqnCrxHhkP4CSm0RMNdL1KYoIvtDyZjfsKwananr90VWJLiRloW
r8XsqKoHTeEMcEmrCQj5SKCKWEzqEq//PZ0wmlBQG2w1fhq1qFQEkf63o9y7
+PAL50p7klcljK1mWmi9Xo8mKhp68RMMMInlC3R7zPuP9Q2nN2TXgOAbnSNP
nKkY98PuiX9ZLXwPl+LoxxI4xSlOyOX1DxfOOxXO+gy/UdzjI1Tp8Cnh6JSv
lSgGk3237iRUQ/k9LWrCc2k0zgz2kX7BhCAF/cW4DgI3lhoskbz+cfIi777Q
/4USA4PZDwMlwAkrbHy1ejVqqFzyC8yqAvPxYL3Bl5LIn9yW2k5jQhX/5rTD
KYvw/vVG3w+TFaCZa606lk5B+fN3n4tbMUAprEuh6j2BLc3h9BZe/yL8Xj+X
MwhrbczD0tWKIaEku95wnsCIoelVZrz7aI+ur1ILagBLrwe/GLqeh2zqH73K
pnyoqe0oz9peCS8zPqoWX16PPjlgM/ecAXdWKxcs58hisGTpxJqkGtA/I2PG
p03F1MnQICyqBd+gCsrTEwRW55/3DeH5aAbB3l8bZsGuaTQg8HE5iICUhVab
CKrT99pNH6yGQtvjAlPnpZHv3W7XzQ+Z0CfR4S5/h0D9aMzN5/l8Hj5YHska
hZfvvWKzdUugW9tYtPa0IErPByqTQVVgGMyRNi+WRE5Iml4PwQRf/8cHNTMW
YJHhlbemuQIsHGfiSD4KDpe9fU3TYUBWoGs0jBIo6hQlXMLzOd3ZoD5PfwZB
x3RT5o9dhA+58mv6vxA4XJDSp8Dz2chYcS35SWC78Q0FH15uFlFXDAkqh55X
sZf9JgpBl+v/bcMsF2ijI9I7ZSqh307yYm/sehSe/rNStIcBCbbXa/uPymLz
jsKFhdgasB8+Uy27mYojj3f2q+fXguSBoJbSKAJnktd17uN5pV8seligOwvO
jDiH65nlIF0WMCtzSgSVoucGbntWw1nxSxHU49IY8YimcraDCWniGQIfWgjs
dDZ4msjzumoqFWfQ8BZKZ+pGlv65BC/OZjXlGguizn8ytYueVaCj+SL1xElJ
zF3rlPybCxNa8pUHssUWYLh7sYlSWgHOdbC95C9xXDXYvjCiwgD0k1OlvCGw
KcSencnzmk0Rn4hm9YHwVx3xTImLcDlrtLl8lsCwHrJenOfzmH6X79AigZ66
qVIOvOx/9bfqnmUCKX8kKIbw8v4Szs0sLT1kB5LfKFF1EGg7k9xn+Tvm7P36
dZ1sI9xcKmBmaZkj0818pG4bG8zcdXO0bu9B9VMb72fNsqHjam94n6UdJlOe
+m1O4IDVqiNEZJ8Trt0kUi88xoHAOsHyLC1XDI3XGtNQI0HN+5mET6Q7miU6
s009SfhP8EqK1m1P1BC4y/4ZSULVy09DWVpKeC7i1fft4iz4H7oBTOc=
   "], {{{}, {}, 
     {RGBColor[0, 1, 0], 
      LineBox[{1, 120, 101, 83, 67, 136, 117, 99, 57, 130, 111, 93, 77, 51, 
       126, 107, 89, 73, 63, 133, 114, 96, 80, 2, 121, 102, 84, 68, 58, 131, 
       112, 94, 78, 52, 127, 108, 90, 74, 64, 134, 115, 97, 81, 3, 122, 103, 
       85, 69, 59, 132, 113, 95, 79, 53, 128, 109, 91, 75, 65, 4, 123, 104, 
       86, 70, 60, 54, 5, 124, 105, 87, 71, 61, 55, 149, 6, 7, 8, 9, 140, 10, 
       11, 12, 13, 14, 141, 15, 16, 17, 18, 142, 19, 20, 21, 22, 23, 143, 24, 
       25, 26, 27, 144, 28, 29, 30, 31, 32, 145, 33, 34, 35, 36, 146, 37, 38, 
       39, 40, 41, 147, 42, 43, 44, 45, 148, 46, 47, 48, 49, 125, 106, 88, 72,
        62, 56, 129, 110, 92, 76, 66, 135, 116, 98, 82, 137, 118, 100, 138, 
       119, 139, 50}]}}, {
     {RGBColor[0, 
       NCache[
        Rational[2, 3], 0.6666666666666666], 0], 
      PointBox[{140, 141, 142, 143, 144, 145, 146, 147, 148, 149}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"I\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.02},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.568387516060026*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwVlHs01AkbxyeVafXOSbZ0WetWKSWMHWKi5yGXSq6RH122lcxMktu0EoZo
xSLhrPu1zAotliWRinWp1Iq0bfGeovObmZ8lIk1kmvf3/vGc53zO95zP8/zx
nEfPP8TzlAqDwQik6/9dP0NxvUS7Y0/qwD+5+fkUHGhnukp4SrhONjgPRlDw
hGXx1bJj6pg1IWoU21Bgl+Fwv9JtPTrfmxPOMik4ZbLAYrN0Ubc9LPboMxm4
GJ56r+m0GR2rDh9KKZRBw1DsuYeW21A1eTpKVSCD3Rrb65bFGeH9s/822nJk
wPucVSwmTNHKx2Z9jooMQnqk39W5mGFPgnfenr+l8LOf6hbFGQ7W9N0wCbgh
hZO90YFsvgVWPmcmNsVJoYO5wSPI1xK777YtH/KVAnt1fA4l5GLpg4/yOTMp
nJi1MXI9Y40lazniLnUplJd0a8nT92DF7q4nE5MSaLzCHR70RJzort1OPZGA
sNXGvfigLX51f/zm7O8SuPdIPJNyxA6b3n6eLv1FAgInq3YBsRefLeKlxRgJ
FN1gNwWdtsdRnTMfDAMkkDnbfjE00gF3rTz7Ic9FApLqcz/ywx1R3P76igZX
Al2OWXkJCU64Y6RqJMpAAkvcXo1lxO9DVtdyy6y1EmDYNi8pi9qP79Rf+Fup
SiB5ndxl8PIBlP6kTB/5SEKo38lOeaIzFnVGlVdSJIxe5ATALwfRcmK/JGaE
hDXZ+a9Syl1Qdyqm7/pTEn5V3x7VW+iKffz6iOgeEjrCdRy21rihTr1b2fE7
JJTolmnZeLnjj+URi82NJLTHLDD4T93Rnb2KS9WQoOfMXNzk44Hfa2j3bKkg
4Y9+w9SXQx6ob1Rcn1hMQlrPF1PdY56odmI2YyqHhOwI6vSJEU9s0rvA98wk
IWat9ip930N4u/+FqWMaCVWGyx8J3xzC8ZKjYvvLJKh+WLKh47gXXtPS3sFI
JKHS9HdRidQLszNE4l4RCYb+1a6KYG+0vZL2s0o0CcP7bzd4/+uNz1Oqwh9H
kjB4/cJOiDiMfzDaVpQKSfjU6GGtP3MYKyMLbo6HkaBsCW9KOuuDYjNXQWwI
Cc6mjg4xcz7oT/r6aQaT0HvMRBAUQeDJF0eYK4NIqK0PlSuVBPK2R4fI+SQ8
yhwOk/Gm4FBoXB47hQJdxa0ihcUKHPvbqCzDlwIu072+6TaBW+Z3Fi0ISHjI
Tbw9wXsNKoqHKzlZFIxN/veH83NLcUKg7bsQSEF8w720qzkEXmA91rl4moT1
f17YO5kuB0qzQk0uouDDkTfPXo0QGGTP5UfSvgdpg/vmeP3gWDv+QC+HAntJ
aFfT0BJs5pWNRwdTsDlZvqC4RCB/TYu4m/Z9ceDcnS6bhW/29yvML1GQy15v
t6+PQKZjXH4L7cvNdeVNpUshdo308ut0CjySbpwKfkegh6Jt+S467zEN46ny
78HeK7URk7kUCP1bz3l1MVC9z1x+M5SCj+FfN3BiCPw4RnJl9LxwZmZ0ePV7
0DKwG7qTRAFfizMv6iQw4G18/EvaJ9q4Ymym7C20GjR0rr1KgX5Yl1YFSSB0
HfzWh87jC9NqLeQEFhRz9dbR3HG+tmIbvw7MdArzevMoSNP9/q9N1gwcr+7c
ahtOwXF+OetpJIFLzc0K5un5Rnzw+65uGuJVktPnL1MwsLrTa+NdAn2Ud5jj
tO/9cECpsHoU7CuTGdsyKUgN9DwPowTqPfC05tG57OpGtcEZAtfs0mZtpXnd
r188Cz8TiHFMOybNt1YY6gTzS8Eqs7+MTf9HttJ/TnNaCdnN3G/V6P+ocZLf
VnyOwLZKNTcV+n6S83IeZrOn4WmXYEdOMgVJ/0lRkbURmISu7jO0r8b6a5F5
3Rvw83/XX0vvgz9sMGC9JnB1dZV7CJ0XpY7eKp0mMN7qOdOE5sdl3QzBPIGb
ClaarqLZv2aX+ImCwLuaO32U9H1W/DP1KtVYH/uObGm2vCWDo4UNLanGZkiw
NmkwXkoh8MBk4oDDbkwY5pzo3iyFlsXsylRjO9wt+mTnVSABGy92unGrI3od
NHKSciTQWfNX+ICDM8YKDT7JJkhwWnqGEA64obky5tqqNhICf1tWmmrsiaxO
HwuTfBK2+T5bfUzohVYjezK9E0gYX3btknHrYYxep7XwTQQJ/wMIXxmC
       "], {{{}, {}, 
         {RGBColor[0, 0, 1], 
          LineBox[{1, 83, 74, 66, 59, 54, 88, 79, 71, 64, 51, 86, 77, 69, 62, 
           57, 2, 84, 75, 67, 60, 55, 52, 3, 4, 5, 93, 6, 7, 8, 9, 94, 10, 11,
            12, 13, 14, 95, 15, 16, 17, 18, 96, 19, 20, 21, 22, 23, 97, 24, 
           25, 26, 27, 98, 28, 29, 30, 31, 32, 99, 33, 34, 35, 36, 100, 37, 
           38, 39, 40, 41, 101, 42, 43, 44, 45, 102, 46, 47, 48, 49, 85, 76, 
           68, 61, 56, 53, 87, 78, 70, 63, 58, 89, 80, 72, 65, 90, 81, 73, 91,
            82, 92, 50}]}}, {
         {RGBColor[0, 0, 
           NCache[
            Rational[2, 3], 0.6666666666666666]], 
          PointBox[{93, 94, 95, 96, 97, 98, 99, 100, 101, 102}]}, {}, {}}}], 
      GraphicsComplexBox[CompressedData["
1:eJwVlXk8Vdsbxo3HcMg85KokEklOSZK8byJTxgxHhkoyZkyGQhGig5RKhVRK
hV8KXRpMZZ8QzjHcBsNVKg1SIokMv3X/2J/9x95rred53u/nWcu9Qx338/Hw
8Dwmz39v1VNzRZeXNhrPRIsZbRF9Bla1QrbDfgswReuRVgynoF1cX0TAUxID
qr9a+DEpMDll1nDTThFVYhwOGz6hYP/aGXGGuArS5SbVRe3YYKO5/4e8uRrG
1zypUBxnQ0VP/KEWg1Vo9rfI5vb0Z7BZWqtc4Kg2LvPYzinWbAa/P2cKbjB1
8VxSKUY1NEMo++P6cpt1KIef3ZXMW+DkLpr63AE9HBDe1mjc1QL7nh3xZfjr
o01MkXquTSs0Ci12CHIzwANPH4W4NrQCQ+rY+c+RhihxzmBgesNz2DOxRdv2
gBFOfHqnvbvgOVy9TClPZRrjHKa63aC1QWWWYV+XI+J616JpK782iHy4xb5g
x1Zc+/W987VHbVDfemM83d0Epa6986FJtUOA+abaAOY2vBN+fNbYvR3ybzHu
BwWaor7arN30jXY4PVGbGBZthodFe5T+/dwOwyWHovwjtmOzci//WbUOaNp+
5kJSkjn6UeVrY3d3AK9d79CpYxbYyz+iuPVMB/Bs/Zv3SqwlaoYl9Dk3dECa
wpRN1wkrXHM2sDL8WweE7dr3ZOq4NTL3milJyXPgbaKeD5zbgTqzGVuztnBA
Nudib/pVGwxM4K+Q2cuBYkmt2Gd5tkjvXmaXcpQDjRHLzDRK7fCzbb1mVwEH
LqtcUd7iZI952f3i9dUcqI2b4fHn2iN6bRhdwuHAcmuh2RWuDvhPysRDj2EO
VHE0Wa97HHD8z2spgxkOZLDndVU8HXGxcIbNTxoXcg5+DtzT74iry3vyd0lw
IU5uqYSq204MsOtq+ijPhduagq2Rb3aiSO/EHZ+lXKD95F3c6OWEHQnmOWw1
LtzUvZdw+aMT7mo13ie/mgua3iW2c8HOqFCiEvZAlwt9lg8qnEecMTx57kTq
Bi50FR1eAwddcHVS6snthlz4XelgpDrugnuN+xMcjLmwUBNxPzXEFWtu0haP
b+WCte52s7hJV3zZN+SSbsaFZ55rA4IOMjElVSMg14ILd+6GTS0sMFHilmTv
PWsutJ7uC//k9x1Cbrt1G4xToDJXnT+nL4yvJNWjS80pSOuofe/sIotl3d08
+1MooE0pfxPYoIz6XwVX+NLYYChkf/f+AyaGlpqn6FhxocXw+IOvfoNQ94im
Rfdlw9DowN6YSX6c+vLi/QtHCrS+Tf8qc5NG5XeacvYHKFDbxnB1MVHCKNGV
AVnvKDhWUZ+RfZ6JY5nOR/dbckHx6eFto5lTkNc83xxdRIGn2JmXSTFi6GHc
FvPYioIPdxK75h3lMS7PtcDjGgU/3d909/YzMXxwz6Vxoqc5o8ti0o8DV/e9
lzK9xwbT4bCm+z28WHNBIdFgNwWzcwrHmO5SGL1iZqhgLwXrAx7RFywWI7dA
Trasi+hLm5qZS2bigR0eigskv3kzvbqxKxNwK9SxpYNNQZ2AumGDqyj29Kml
lZG8/q4rdC9xksOWyj+dh3IoyGUomlg8Z+KoD137NNGTm2vr9z3zI/zSymro
X8mGxEmrBUN5Gu6JOPl2vTUFbv/2BfMyZbCOv7baOoYCBjY2fz78BzSmM/kY
J4hemYVIs4uL8GT/5jWh9hQ4pN7aH/yNiblJmt2OZJ5s3XA/mn89dNaz+Eb6
2BDp/fCQUxMPLtJoiAjyo+C94E1TnX5J/Omd+5zjQYFhHI/vzjZFjD3YRvdp
peBXhEyFXhwTPdrFA58TvxFCp49ElPwAax9VTmgfBd+PhYx4mYtgflV8uQnx
W8jWUTn2jyyKs/qr7DMo8FfWm054wsSfnWMLu4nfBCXhofEr7yC8Tvcl3Yz0
ZfjZu68FBZEl0cWMsSV9Oxy47uUraXQ4qHBSI4KC67xLU4OSp6EyT2lJ4lkK
tLMtVr5PE0dnHq9ccxsKVMOblK9/YOLZFssBVeL3PP66M5H5Et63V1uInWSD
TKCGjMIHPnxRbhfjQ/qclfySJzR3EtyalVsYVRRkpfWlLfen4xwt++drCwru
yp77OnJ4BDoav2TZ0dlgH8trm79SCOuklMR+ke91CT50//A5qC1Tawg6QsHz
3PtPi29L4GtvM0rDifCal3FHf4qJjKxTcUlET2PMneur/MvBKab39SVyP2So
7O5YYcSDuc17eyUJ76/Sv628mC+JUr5hAVm7yP6CK3LmMhXR+D7Dzprw5OV/
VZwbzUQnxq+D90j+2v6wa335GHjVr5jLGKZAGGRMdeqFceeXhA53kv9Zqyi+
kXOyOB+10a87jYJOqSdOSnVMtHh3aIc5yf9Hn09hZMlbAF/HEB1nNrSu3SRy
O14AQypt1Y4TfvQDK2RNLkpjHyP/DSOUnO/d5qOd/hvu9pgPUHkUmNqOJlTy
iGNAolD1KOGT5esYA2+ZOP9XPCVK/MY/LdecutINoOs3tqWADdqr2oKGPfgw
5EGP3nV3sv5DyuDa/J/w1NRycGstBcXbj70dGxTFoQslj1eTfNVe/LgdnPwZ
tpitrGlSZIP/xuLioMs0LNhT6DZpSUHMoPSXVVGzcLnoSPHSRMKv8y7lqOUS
+Jf+9Owm0iefspVEu8aZOHTA+14g0eNxXW5Jyg5etPaKi1LbR8GLJy1nTnFE
sHFZtoEXyetS5XdX0SxBNNs5IlW1g4IvV0JvlhydARuzbbzFmRTIdhW1y0ot
QptnRueaCZ8zpUkPzYP58RZL0C3KmYKoVn1dxzE6zmvB3vtEn8Ejj8m2O0KY
Evvl5HriR6F43jHvDxOlDj7Vu0T0VAtrLgv2L4QPy9ZZ2syzgbHgPSk/tgA+
wQOCaSEUdFlLX+iIk0S1+LTEaDfCk1XV7a4QRdzwUvPd1iYKpPf5Pyo4xMQc
zsrw64SHtAvnW3IYY7CgcLvZ/ivRe3n/mNwRYYy3Sq6MI/6yxC4dVImSxcvh
irZKpC9SxdL5Pj1iIlvLZcSQ8FBqJJOwofwNjNaEqaV4suFFFut+9iYBlECt
uiIHCnS1X6REx0rjjJFaZF0wBY/OrOjJoP+GJ6+NJ7MLKbD/H6zOeyyGWpae
I3aEB9y7eKX4IBMjs90q5sn+Y8liH2NKOkGhSGpB/SYbDE4sVexQ5MN+1eqL
+zwpuCo3YJu99CdsrDwb87uRgoobXZmv8kRxc/nQimGi/1/9K2k66Z+g+LiE
yONlpL/O/3bcuYuGXrp+pzJI3/dIBLql//4D6n+oqr+SKRirKmv2HFiEEwY6
qvZEfz7rbXXhGBNvXLzV5EXy9+f3bzkgzIujkYc9jfZTMLRcGaJZIijNWjJn
Sc4rljYRGLcURIPJMlYm6RfzTrY8nW+G9JRCDu00uQ8Zv2Jn28RR/OQHK37C
A43+j+9aTX7U3aju886FgiTN9P5NZXT0GfRbYkJ4MFUqv1oVKISnT71iZhIe
2q5QPAHTTPQ9KuSeRfTMDjbkbucXQU/2EMuCnF/HHfZobBRAqkj5WaQd4fPj
mg0ianRsD7GSjyfrPV7tnDk+RMNzvOHjwWT/1n3RwzdlRLHMokj96H/zdioo
Ve0SxNWrnheMkHkEBr0/Hqgnhofrh0+tJ3lpe4hafhgXQm+/HOdP5H/v0o03
2ueY2PSQEikmeq6/+t7L0lHFMIay/+arbPDIq6hh6azDhTGa4WPjFvC1Gj3e
abYZa3wqkof2PIea2ZybLB0TNBmYFXjF1w5bnBiZOg+342KppwvKeh3wpLQj
otPMGi00Er7tEOOAOf8BZmSnHd6aFCqsvcoB3/8JFLJ0HJHeb9p7np8Lq9y6
pTwjndBUQ+cepc6FLwLXknUeumBStsuydCMu/B8O+HmS
       "], {{{}, {}, 
         {RGBColor[1, 0, 0], 
          LineBox[{1, 137, 104, 80, 65, 152, 119, 95, 56, 146, 113, 89, 74, 
           156, 123, 99, 51, 142, 109, 85, 70, 154, 121, 97, 61, 149, 116, 92,
            164, 131, 77, 158, 125, 101, 2, 138, 105, 81, 161, 128, 66, 153, 
           120, 96, 166, 133, 57, 147, 114, 171, 90, 163, 130, 175, 75, 157, 
           124, 173, 100, 168, 135, 177, 52, 143, 110, 170, 86, 162, 129, 174,
            71, 155, 122, 172, 98, 167, 134, 176, 62, 150, 117, 93, 165, 132, 
           78, 159, 126, 102, 3, 139, 106, 82, 67, 58, 148, 115, 91, 76, 53, 
           144, 111, 87, 72, 63, 4, 140, 107, 83, 68, 59, 54, 5, 179, 6, 7, 8,
            9, 180, 10, 11, 12, 13, 14, 181, 15, 16, 17, 18, 182, 19, 20, 21, 
           22, 23, 183, 24, 25, 26, 27, 184, 28, 29, 30, 31, 32, 185, 33, 34, 
           35, 36, 186, 37, 38, 39, 40, 41, 187, 42, 43, 44, 45, 188, 46, 47, 
           48, 49, 141, 108, 84, 69, 60, 55, 145, 112, 88, 73, 64, 151, 118, 
           94, 79, 160, 127, 103, 169, 136, 178, 50}]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0.33333333333333337`, 0], 
          PointBox[{179, 180, 181, 182, 183, 184, 185, 186, 187, 
           188}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwV1Hk41QkXB3AkS9zKVsjkhoRkGwyGzklk37efihmKK6WsJclO1rKlJFzh
Xm5Z7v0llZGxtCmKlKJRGpFBKRUK973vH+c5z/fP7+d5ztnif8w1QICPj+88
b/6/lc4tV5Ztbt85vDZJ5d+YQrBtFXYcp3FBPTNxMWblCvRQDEUFfdbjfm/f
KuEuBpifs/yb6SSLXA3f+yMnaiBA+wdFl0JF/qF1eevO1oKDesDnDVYqOJSR
yRWOZwFn4HTUQyM17GE8jTxgfRV+l9RoEIzXxK5K7RQbmWtA+5lfWk3ooGtS
7Mm7A9fg2L2JXxsc9DD2mYBYXXwdZO4V2rp8RB8FlWh8HTr1cOD+qUDdIEM8
0fXVyK63HtqF5VwOexvhDiGPST+/BtCVSCiajDTBqS1ssVsLDfDnnJmm4xFT
1Eu8EKsAjVBRdldhPmcnfqH3jTgmNwJ51mS43xXRWGl3M7WjESJvmzmX2u/C
A9veTv+y2Aht3dVfMvaZo1GZd/2cDhsOWRm3HiJ241rDz2Olfmy4XKPbdDjY
AvNuMv5qzWdD3lxrYugJS/TMm1CNbWPDOCvqeFD4HrR+5ZC4e5wNXXvyLyYl
WeFggUvLTgoH+J2G3p1LsMbJwZ+UaS0O8O26wU8/aYO7LtrqZThwIH3jvEP/
GVsMqdFSNzrCgdC9Bzrmk+3wqBqzjZ7GgdFE/YNw3h7Hqotsl+gckC4oHsqo
cMAdmRJ4+yYHGOs1Tt4vccRCKbMuuR4OtIcrWm676oQwuooVOMqBMipdwczd
GVWf1fJ1f+FAa+wPvqCnzih2a5NHjAAJW+yEl5S9XJDmp+YtK0nC9SfqWa8G
XJDC9PcKVyQh+96KDtXHFV3e6NtyNEkoiJgM/vO1K5IGr60FjEiIldm8Tsnb
Da9YLARom5NQq766O/KtG5bR7eSs7UkQ+sov1+7rjo8VP3uPuZPA1GHHlU24
I2XveqtDPiSo+7Mcl0M8sPG97NTqABKGbW5xPKY8kF7eapt0mIT+ypgdEOGJ
nZ8puTNhJCyQLqZKXzzR3qal/OAJErg3w5vSjnoh91GEi30sCXY6eyxjv3nh
pYDqvm2JJNz30T50OILAcY1kqm0qCfWNofNcLoFF4mObTmeQ0J03HPaB9gmO
syw8hKzLgbrcfHnZUATrHMuohHU1pPe2jnl4SmNYtXLGpxYmCM0rfBQ0UMCX
z/9y9qPUgve1Bq6yhhKO/9iZaiLGAhNh58amWwRqZISJhp0h4aFJ8q1p2huQ
SMo03JpxCd7N/OMX/W0VXmhqHVqxqAKNj4vfr3lLoum7/RvO2TBBZbeul6e5
PB7LdSqauFsDb2YG0libtuB3WWDK99ZCAqctO7eIwPj9NoJ+aSTIdsbsnsmZ
B5VjnbqNSRXgI54/mBQtjtK7ZmZ15Bjwvj6xf8V1A+bUuykVKtbA131vnw29
JnDal+Uek07Cg+x+62+0J0DIn3FjsC+AxXhoV9MAP37cUuLyx9VKWFremEDs
k8A9kRqMZFEm/HqoRYxrLYfFYXncJ+U1cOUsrTukkIpmjEeqcfW1oJI+/2M5
hUCF7b2hL3jeK5b6d2bpczDY0L58sIIOdwS3mvzttQal9qWZGd2ohht3yvex
3GUwwU3loc8nJlzQlTW3fkTgFtOXyd95fhcuONI+5UyAoty1FTVKKSR+s+Wa
bBBChRfrYKqnCrxHhkP4CSm0RMNdL1KYoIvtDyZjfsKwananr90VWJLiRloW
r8XsqKoHTeEMcEmrCQj5SKCKWEzqEq//PZ0wmlBQG2w1fhq1qFQEkf63o9y7
+PAL50p7klcljK1mWmi9Xo8mKhp68RMMMInlC3R7zPuP9Q2nN2TXgOAbnSNP
nKkY98PuiX9ZLXwPl+LoxxI4xSlOyOX1DxfOOxXO+gy/UdzjI1Tp8Cnh6JSv
lSgGk3237iRUQ/k9LWrCc2k0zgz2kX7BhCAF/cW4DgI3lhoskbz+cfIi777Q
/4USA4PZDwMlwAkrbHy1ejVqqFzyC8yqAvPxYL3Bl5LIn9yW2k5jQhX/5rTD
KYvw/vVG3w+TFaCZa606lk5B+fN3n4tbMUAprEuh6j2BLc3h9BZe/yL8Xj+X
MwhrbczD0tWKIaEku95wnsCIoelVZrz7aI+ur1ILagBLrwe/GLqeh2zqH73K
pnyoqe0oz9peCS8zPqoWX16PPjlgM/ecAXdWKxcs58hisGTpxJqkGtA/I2PG
p03F1MnQICyqBd+gCsrTEwRW55/3DeH5aAbB3l8bZsGuaTQg8HE5iICUhVab
CKrT99pNH6yGQtvjAlPnpZHv3W7XzQ+Z0CfR4S5/h0D9aMzN5/l8Hj5YHska
hZfvvWKzdUugW9tYtPa0IErPByqTQVVgGMyRNi+WRE5Iml4PwQRf/8cHNTMW
YJHhlbemuQIsHGfiSD4KDpe9fU3TYUBWoGs0jBIo6hQlXMLzOd3ZoD5PfwZB
x3RT5o9dhA+58mv6vxA4XJDSp8Dz2chYcS35SWC78Q0FH15uFlFXDAkqh55X
sZf9JgpBl+v/bcMsF2ijI9I7ZSqh307yYm/sehSe/rNStIcBCbbXa/uPymLz
jsKFhdgasB8+Uy27mYojj3f2q+fXguSBoJbSKAJnktd17uN5pV8seligOwvO
jDiH65nlIF0WMCtzSgSVoucGbntWw1nxSxHU49IY8YimcraDCWniGQIfWgjs
dDZ4msjzumoqFWfQ8BZKZ+pGlv65BC/OZjXlGguizn8ytYueVaCj+SL1xElJ
zF3rlPybCxNa8pUHssUWYLh7sYlSWgHOdbC95C9xXDXYvjCiwgD0k1OlvCGw
KcSencnzmk0Rn4hm9YHwVx3xTImLcDlrtLl8lsCwHrJenOfzmH6X79AigZ66
qVIOvOx/9bfqnmUCKX8kKIbw8v4Szs0sLT1kB5LfKFF1EGg7k9xn+Tvm7P36
dZ1sI9xcKmBmaZkj0818pG4bG8zcdXO0bu9B9VMb72fNsqHjam94n6UdJlOe
+m1O4IDVqiNEZJ8Trt0kUi88xoHAOsHyLC1XDI3XGtNQI0HN+5mET6Q7miU6
s009SfhP8EqK1m1P1BC4y/4ZSULVy09DWVpKeC7i1fft4iz4H7oBTOc=
       "], {{{}, {}, 
         {RGBColor[0, 1, 0], 
          LineBox[{1, 120, 101, 83, 67, 136, 117, 99, 57, 130, 111, 93, 77, 
           51, 126, 107, 89, 73, 63, 133, 114, 96, 80, 2, 121, 102, 84, 68, 
           58, 131, 112, 94, 78, 52, 127, 108, 90, 74, 64, 134, 115, 97, 81, 
           3, 122, 103, 85, 69, 59, 132, 113, 95, 79, 53, 128, 109, 91, 75, 
           65, 4, 123, 104, 86, 70, 60, 54, 5, 124, 105, 87, 71, 61, 55, 149, 
           6, 7, 8, 9, 140, 10, 11, 12, 13, 14, 141, 15, 16, 17, 18, 142, 19, 
           20, 21, 22, 23, 143, 24, 25, 26, 27, 144, 28, 29, 30, 31, 32, 145, 
           33, 34, 35, 36, 146, 37, 38, 39, 40, 41, 147, 42, 43, 44, 45, 148, 
           46, 47, 48, 49, 125, 106, 88, 72, 62, 56, 129, 110, 92, 76, 66, 
           135, 116, 98, 82, 137, 118, 100, 138, 119, 139, 50}]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0, 0], 
          PointBox[{140, 141, 142, 143, 144, 145, 146, 147, 148, 
           149}]}, {}, {}}}]},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{
       FormBox["t", TraditionalForm], 
       FormBox["\"Density\"", TraditionalForm]},
     AxesOrigin->{0, 0.67},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{All, All},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], 
      RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.7, -0.31803398874989486`}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{
        RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.7, -0.31803398874989486`}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[
               {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"I(t)\"\>", 
              NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[1, 0.5, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"E(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[0, 0, 1], LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          
          PlotRange->{{-0.1, 3.1}, {-0.1, 
           3.1}}], {-1.2, -0.8180339887498949}, {
         Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{3.56838751683107*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwVx3k4lAkcwPFJZYr1pIOOta5O0pMRYqLfj9Ah10Reuh3NTJI7OUJpRZHw
hHKNzeTqQaRLKnaQZEmqrexT9Lwz84rINUum2Xf/+D7f56PnE8TxV2IwGAfp
/r9+uvxmoXbT9suv/s65fp2C+wsMdAJ5RWCZ0SVg0W46U1WygVcNJjp5uW25
FLQah3CVeU9hx5WqsOEcCp6n9uya5HaBQ9Xgc71sCtrZiQ+HuJ9ASd6uappJ
QaXV0jiz6s/g7fOtqyqDgu8f/YrCK/rBrjSZsYF23KoFA2OCL/BoXW2zxlUK
cnKcuSNpEji7THLxUxoFLzI+hki5I7AvOD6XlUJBcm52exZrFLpF/I3ZyRQY
8cB7S/UoJCglp01fpCCUmRETWvEdtNbZ9j5OouCnvemTUcE4/Lq7S252gYIV
f0bvGE6TAaVZoiKLo2BPI9NZzFXATbLWsSeMApbCZ1JzVAFZ99i/qdBO1T3y
12orBg5WNK+3CaUg3OdRhLuIgeodZrLbwRTYiYNF9b1z8B5XMBgTSMHA8D/H
zkzOxSG+ttfMcQp05ffz5eYLcOCtkSDdi4JONfOF8w6pY+ZQXJ3QmgLbdPtn
pS4r0PHpZPg4kwL/zTNqLDVd1G0MOXvwtRScDPy/a+5cgw7l+/el5Emhtvds
RLvFBlROHo1S5kth2xLD6nnxRvjs1Nc6G1MpcH9kFggJY7T0tF6RrSSFoFbJ
lmonE2w975G7/a0ELnkrr5WfNMXKjrLNfmUS8G2LOc7imWPpG2ZifbwEmpgr
3QK8LLDlScP8Xi8JsBYnZFPhbCx6PiWbNJHA0XFrI+eTVlioYSoUqUuguLBF
S5a2HUu2iTqHhsVQd4X9sYeDONRSZUh1iiH8kbVrwV4bXPhs8Pb4HTE8fSEc
Szlgi/VffowWXRMDf6dlI5/Yga9n8cJsrBjyy1j1ASfssF/n5ISBnxgyxhvP
BUfa41bVUxO5TmIQV0Sc5oU6oLDx05UlbDGIHDJzz5/fiRv7yvui1olhjsuH
gfSEXagmmm+RqSEGhs29OYKo3fhN/Z2PpbIYkpfLnHou7kHJ74q0vikSgr19
m2WJjpjfHFVcSpHQf87UD67tRYuh3eLYPhKWZV3/kFLshLojsR03u0m4pW4Y
1ZbnjB28mrCYVhKaQnXs11e6oE6Ni+DwYxIKdQVa1u6ueLo4bPZeHQmNsTMM
XrcrurIWsalKEvQcmbOrPd3wyBLt1rUlJNztMrj8vtcN9Y0KahILSEht/Wms
e4iDKkfH00eyScgKo04c7eNgvV40j5NBQqyG9iJ9r334sOudsUMqCeUG81+E
f96Hg4UHhXYXSVCemLOy6bA7/qGlvZGRSEKp8Z24Qok7ZqXHCdviSDDwqXCW
B3qgzZXUS0oxJHzc/bDW46sHvkkpD30ZSULPzehNELYf7zIaFhSFk/BvnZuV
/th+LI28cXswhATFg9D6pFOeKDRx5p8NIsHR2ME+dtITfUgvb81AEtoObeYH
hBHo++4AUzWAhCW+vIaCCAIbSlVclGgf5hWrdUcSONfM5Mb0CRKmQpfWmsYS
ODVAsqW01yTLZuQXCOQteyBsoZ1Q+zT1ajaB0Wovdc7RZjNda+ofErh2elP+
DJ+EpF9SlKQNBCahs+sY7VeLm91XPSHQU/GYOUibp2U6HddMoN+XhIT3tHNY
K2x3dRDIdIi//oD2xIHPrz/0ERhgx+ZF0sZjK9epfSJwcUW5axDty8c5Z6Cf
QL3nHCsubf0QkVYJSSCI9v7mSdstqcw/8BuBbvKG+Vtp51/uv180SmCC5Rvm
ZtrSq6tUesYIXLZVW2097YS81CpzGYE3Cth6y2m/FLQw+NMErr6haryI9vJb
Pzl5PwjEeKYtk7ZP5VZhp5zAJ5qbPBU8EqpqgmUKBYFcw5ggGe3/AINs0Ig=

        "]]}, 
      {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV1Xk8ldv3B3DjMV+Z5apkKlJxk6SyVkqmjJFjLOMxhAyZQgiRIaVSGdJV
Kvwow9VkKs8J4ZwOtwFdhTRISSQyfPfvj+e1X+9/9n6ez1p7PWs9Q+x8eLi4
uGrI8/+r8pnF0uLVrYbzUaI7dwk/hQZBjTVBflfh/Zq/zCyXmNAaXXV9vV81
2Ef3v74yxQSmdiiD5tcMz5szecYHmNCexTGdYbDgmteoxN67TJhMEf0QXf4c
5EolltVuMiH+SbXGbEkvgDZjclcREy7iz6of2S9htLvBVPQ0EzoMTt7/whiC
poc0TRFfJlTslErYWv0WJu4dVU11Y8L3Ae+rEeXvAHztgjc5MCFBQXB4qmQE
Qpu0X4oYMyE/34rxLfsD/NTMaRlUZ8J/eiXpmzI+QtlJcaFHa5ig+uL77aCU
T7DLWP1emzwT7khf+DIeOw49rZ9zrEWY0Hl2IPQj4xsE33bq1Z+iIP3SxY48
nUlYlrvdbvOFAi0/cN5SPQnuzSqLWWMUhAmcPR5W/h0svJVZIQMULBnrNk2W
/IBbIXYdPUwKrsm8scpdPQ3bas9H/2qlYO/71KHNhdPwZK/Z0O5GCjJTXnKF
5M+AU7tih04dBfJPYvdMZM9CQftSe1QpBQ/PqfRlifyCx68NZ3KvUuDu2eWt
lfEL7vSZvKEKKLjOvTotMGUOagsUViWdp8DkOVNWhGceakLl8mhnKfhcEnKz
/MQ8WBrv4S7LpkAHW9s/xf6GdXPZPDqnKOgTD3DK+PUb1H5TdX+mUBA9JPl5
feQCFJceL1udREFTgreIX+giNFaqtgQep8C8UcBqjLEMs7Q+SflQst+y54zs
5DJ4B73hTw+mIEvpUI/KTi7Mb/foX3GEggjPB8fs27jwj3UtYYEMCvx4/TqO
CHLjRESs204fClyvy6xK3c+NFu5xkapeJJ+xo231fdx475Jckv4hCvRPrZbv
kefBQeWGy15uJP/1XYFjrjwYfL9P97oLBVIB66Tk3vPgi2rraG86BTSRf303
a/Ci9jY175GDFMxXJD8wCeLFW5n8TpEOFAxPvPGInuHF2c8vRl/YUfAiJ7M+
dzsfiqNmU6ktBZ2btwvdjufD4For1ZM25PvZY66trXxIlSo+jbCmSK7n77zm
58dMcQ492oqCMkkjvikzftSfqczMtqTgSu03R+EcfjQ+MC5Rt5+CHPuiCmUO
P25Y/6xo3IKCpBnzZQNZGh4OO/1uC3HExV92B5xp6K7NOJNlTvLZVlYWWEzD
osNXnWbMSD6vDsyfHKbhBe7QqSBimxhuq0J1AWySUBD9aUryUqi+VhcggGfP
vKJnE+s/dJ3pqhLA1JjPp7cQa7kKm72fEkBPRp7DRxMKlBYbChf1BPHVCrWo
CmLpYp9JmeOCGG+eUhtHLAhSezc1C+KBzwk9LsQLQy35+3iF0I05nGlK/C0x
eNzdRAgL6+KrjYiH1ypCVKYQSmauWjQjfvG449wZlhC2rsnVdyfu9Ioauykl
jJWmpWoniJv41AxaHIWxb0A1vZK45gYn+1WBMO6oHlYZIy7bl/huckgYhy+V
P9pA3v/Kh41bhVRFsDvYXDaeOCd9IH2tnwgu0nKnXxMna2QMbq8UQe8hxioj
kk9kp5623aQILmmCRz1xQODoyQBdUYxtHjuzheTrJnruZXK0KLoadkU/Irb5
P9hQ8EgUNc3cxq1JPfZaTSTUcomhf5JAwwSxVq6p+mi6GDpwueebkPoq6fyM
WegSQ7HT7815Sf2lOaXd0hJ/oOXTnRfaiRekliOML/+Bpwd3bAwh/TNZV9nu
9uYP/KG/SdmG9Neog7Ni5Fpx/FNvbmE76b9n+fVPym6L42tPY2qdPQXdYnpC
fG4r0L/hiymD9DPHQvJST9wKVI1PT4pyouBVxlf1y4UrUML3qH+OM9mP/+be
TYMrcNoz/xnLlZy/KJdId5HAKJX54SIPCjS/zv2sdJJExRENGRtyH7W1XqRG
xUji/E7ViKYgCvQCaqSNLkvigE7hW50QCozGAv56+UoSbcPlTq8Lo8Dpv4Eg
broUNvE2NlhEk3nY0zjqcFAaK3t7uXxSST1Er4QrRUpjcai8lQKZJ+fNI3nG
L0jjUuQ2Rm86BVeZm5QS/5VGsczBOpssCv5puupSbi+DHbW/nx/Lo+B9VRJn
yU4W4woci1z/JuefMW65aS2PStG2sQaPKUg0r7vNCZbHrS81Rna3kf7hV8lb
zJZHw3odawsyXw3iuHwPdMljTHiXiHcnBVv8H4osm65EdpGMdCWHAtU9Oo4H
jRQwUljdP2eEzIdZxa98WxVR7wu/ii+NCT6b58V0xJRQRGZGTdiaCZYaPt9l
TVQx/t7jGnnyf6vpiz/Wob8ejf8R2tGd8RR2SGpW853QwjWu+1hlGu3A+H2u
6AZdGy8kV2BkSzuEMD9sqbb8C2Xwk4uCSQecdqapLR7RxTeCe1oNOR3g9fS4
r46fHlpGl6rlW3ZCq8BK20AnfTzy5GGwY0sn6EgkXvwUYYDiF/TfzG19Bod/
7NKyOrITf3wc0TpU9AyuFVOKs9mGuIhpTjdoXVCbYzDAsUPc4lg6Z87ogogH
u2yK9u/GzV9GHf5+2AXNnTemMlyMUOLvEW+aRDf4m2xv9KfvwarQkwuGLt1Q
eEunPjBgL+qpLljP3eiGsz8ak45GGWOscJ/Cf5+6Yaz8WKRf2D5sV+znPa/a
A237zl1KTjZBBlW9OeZQD3Bb9w+fSTTFft5x+d3neoBr9z/cJTFmqHE0YcCh
pQfS5WYtOafMceP5gNrQrz1w1Nnr8exJC6R7GCtIyLLgXZKuN1zYj5sWsnbn
7GKBdN7l/oxrlhiQwFsj5cGCshWaMU8LrFCkd4116gkWtIatMV5XYY2frJo1
OEUsKFYqUdxlb4MFuYNizQ0saIyb5/Jj2yC6b51YxWLBWguBBRVHW/w39ccD
1zEW1LE0Ml/32eLU79cS+vMsyGIuaSu52eFKwSzLaRob8sI/BRwetMMN1X2F
zuJsiJNZLa7sdAD9rTltH2TZcFuDvzPi7QEU6v9R5b2aDbRp7pWt7vbYk2CS
x1Rlw03tuwnFH+zRudPQS3YDGzQ8y60WgxxQrlzp6H1tNgyY3a9xGHfA0JTF
U2lb2cApjd0I4QdxQ3La6X0GbPhVa7tTeeogehgOJtgasmH5Xlh9WrAj3rtJ
Wzm1mw0W2vuM42Yc8eXA8MEMYzY8ddvsHxhOx9S0df75pmyQ9PJ7WHSMjnks
9dDrxO5+18TYUXS01/kZfpf4Z5hUjW4cHV27xQKeEaumz84vptDxyH5X+WXi
xJrmrNyLdJzMdjjhY8YGAwGbO/X36RhSYZK6yZwNaaIZPB8f0pGpeXDcgPi5
xGN7hSY6mo4c229C7KeoO5fwmI7TzyeXDxHn68gbmT6j44S3iNZZ4mmXt739
g3QMHTp8ZYoYPVaqiw3RMSLXqWaJONPXLhre0XHpz3hK2IINyqFtitff0/F8
h9kbZWLbtFs+QV/pmJ+s0WtHXJj5ruHqJB1vXL7V5k78MVdBmDNFx+EjnncD
iBMLsqr0Zumok3MmLpm4q4Ti8p+jo+8JAZccYrmyJbuC33SUCH+ie4XYs2Lb
je5FOrY9oITKiKvuHJ1dXqaj+K0V/XeJ/wfaezEa
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwVzHk0lA0bBvBRIjEtlkLeTEiRMlMIX7rvRNlDlkdFEWZSKltJk+zZQ7Ik
jJgZprLMk1SS19KmtEgpepVekQ8lKlTMN98f17nO75zrXCt9jjr7zaFQKCni
/L81zs2UFq1o2tKzMEbr34hsqJuvox7IKob2t+xL3oPZ0BReWbaGVQWW7g//
MnK+APfpQUwpViOsMnkeNq2RAw9TO6x+MJ8BoXp2F68mF8bi5AbDBS9A+jtd
LnlJHpxuqdKZ5LwE1lFG3OTRPMjBn5UTaV2w0No8KHFNPjwyjb01wnwPS2KS
jVYlXYQrmxUiDas+QOHotd4//1yEbz2+xaGCPnjzyZ2dyiiASNX5H8c5/0KB
oeHY584CyM11YH5NGwR1lauza6iF0JbZE/SZ+RWOCyxcpayKITEv59F5xhg4
8iLtrycXgx4Ldm+sGgPb2j4//yfFECydeSpY8A02UV3OhGhzYNbS4O4YZwK6
qppmfEs4oNwSsW00bRK0jrYwqmNKoD5LszNVdgp62qZrqYUl4OXzxFcvaQqm
ee6ZC+pKoExiRcKhuGn49G6Z1+ehEmBg08OhiN/Qo53a4mV7GWwapB0GmCLQ
SY6ejpi9DAyRz4+lYyJg9vUqblEqhVTavqeamymop++gKlhbCqE+t8NcWik4
LrzcFONeChYDx1prOyXwy8oCp31XSuHj6D/e4T/mYm5tQ/esRRm8Tk+pzTCR
RPp/lSqm3cqgTd9EpuK0JCpO+muSrDIQBmVXv503D3W1Lnr7p5RB9A8bkelS
KVR7vQiG28uANlN3acZoPl5zKKIRVlxQLPIbUzo1HzXCJzpvu3FhPihYrG+c
jzqc3bYjvlz4GnVk2GuHDAaQL27djeLCXclVpn+7L0CFPQlmxje44CmX1RUT
LoeKW0fH6Co8cLwGawvuyOHcrqapXi0eWDiMRpIUKvYUfXjHpPNAL8NKuz+R
iqoX7r2S28GDPwqiUMv8hZgaVvawNpgH7VQjGUnPxbjXw6tMupUHHbbyeU/Z
i1F6ZH+pTDsP3iR90c6/tBg908B64hUP+ufxLda/W4ymWrobzgyK/2aWRRF7
luD2UF1erAwfdL9M/7zqIY+bP+5des6aD3S91/EnTspjxsKdsZuc+GAUIFQ0
z5dHYWDChnaCD+YDARu63sijRGxjfBOTDx69PYEShAJaotHW13F8SHza0O/q
pohBXM2kr/V8SJe7GEI7roghj5la6c18yLY5Pmf4giJSPm5zXvGID8X319Oi
XimiSXKAp+JrPty4W7xH4KKEUbu0Hnl+5cOnyuiOWeelmFa5SyNbvRzMz1n+
zd+pjCJdrwe9J8ohyuZ6RccRZaxblz01xS6Hu/M0z8+kKWOAfOHggphyMGVT
/Hc9Ee8rq04vTS2HjQfrZUVWKpgflCl6VlwOWtsY7m7mqng0Y2fO4L1ykJpU
+yJpqIZvXt1x9KZWgJ/+LyqDSkOJ7kWZi9IrwK7nLFd5BQ17n2zp0MmqAIOz
SmYUfRrGDx1jYU4FSL6nH37mSMPIX7bPfIoq4HI6sy0wm4ZmvMfakZUV8H60
M0GwfCX+VAa+6tMK8LhaJdLU1cCBX1viTWUFYK/j923pDi3sTkoWSZ8RgLDz
dNgj4zXYznseesDqCvxHXrdK8owetpbqx1krXQXm76xCLkFH5xj2yXudV+Ho
/cGNVfYbkP1yjuy1M9cgebfUqpnDBiipwaQ00yvhwINT/gyWEZ5o/W5s+7QS
mqRVnA55GOM6Kdchb+8qYCyJyhkKNcXhlTWyt6aqYP+EmZ7D4c24ITqXrQbV
UFJ0T20ybQuOc170OsRWA5lu2tPhjGiisa2O1lwNobfNHAvttuKB1R9G/pqu
hsY27njSHnM0LvKonKDXwMEdJg0HiW240Ohbf6F3DVwqZ9QeCrDAzJu8Ow1Z
NZA50RB97IQlumUOarMba2BAEHacFbwdrd7aR28bqIHW7Vl5MTE7sOu8U/0W
qhAkdnZ/PBdlhUNdv6kj64VA2XpDgnPSGrfm2WxIshdC4rJJ+46zNhhYvl7H
+LAQju0+0DwZa4tH1vAbOQlC6Is28IULdtjPzbH5wxGC4vn87qQSe1yXvARv
3xQCb7HuyQcFDpitYNaq0i6EpmB1y9VXdiL0zRX49wmhiMZRM3NxRO2XFZS2
cSE0sH9RWM8dUfbWcteIOSSstJX+o+nuhEzvNR7K8iRcf6aT8rbTCal8H/dg
dRJS78/SaZ7O6PTewEaoR8L5kKGA/e+ckTR8ZzXHmAS20opFGh678LLFlJ++
OQkVOvPaQj/swiKOrYqVHQlS3yVUmrxc8In6N49+FxL49JrIokEXpO5evOOg
Jwk6PgKHmUBXrP6kPDzPj4Qe61tC12FX5BQ32MQcIqGjNGIdhLhhyzdqxmgQ
CVOk02aNcTe0s64v9j1BguhmcG3CEXcUPQ5xsmOTYEvfbsn+4Y4X/bgvVkeT
8MBT/+ChEAIHdGNpNvEkyB9g1ReGETgau6hlj9herBLq8xMEcrMueAWK/TNY
QWjAJnBYmB+VIbZW4uSvmTgC1dY+PfZa7ChhY2pGDoFn9lpLeieQYCrtWF17
i0DdpCCZoLMkJMglzflcT2CLo+HzaLFfLGl2Ub1LoEE4ZmSJzVIzmI5sJnBZ
oeEfUuxchrK51WMCV25+E/tT7O97PrzsfkfgiJfAJSKRBPRW0aa+J7A20K4m
WewUf+dw6CNQZmeYdIHYGkGtamWfCKyvC+bUi+2UUO4X+IVALdmI+D9iX0rp
qyseIzConayUSyLhc4bqgo5xAnvOx71QEzuqILXSaJLAkO6RuWZiP+Hcoxyc
JtCNEa9gL/Yy3qxzwW8Cm0xuqHmK7XNlE7d9hkDqvij1QLErq49NikQE5sj1
Lz8t9v8AD3IFaQ==
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->{True, True, True, True},
     FrameLabel->{{
        FormBox["\"Density \"", TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}, {
        FormBox[
         RowBox[{"\"time \"", "(", "t", ")"}], TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{{0, 100}, {-0.05, 1.1}},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], 
   GeometricTransformationBox[GraphicsGroupBox[{
      {GrayLevel[0], RectangleBox[{0.2, 0}, {0.4, 0.3}]}, 
      {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
       GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.3}], InsetBox[
          GraphicsBox[{{{InsetBox[
               GraphicsBox[
                {RGBColor[1, 0, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"I(t)\"\>", 
               NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[1, 0.5, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"E(t)\"\>", 
               NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[0, 0, 1], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"S(t)\"\>", 
               NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
               Automatic, {1, 0}]}}, {}},
           AspectRatio->1.5,
           FormatType->TraditionalForm,
           PlotRange->{{-0.1, 3.1}, {-0.1, 3.1}}], {0.2, 0}, {
          Left, Bottom}, {0.2, 0.3}]}]}}], {{{{1.0000000000000004`, 0.}, {0., 
      1.0000000000000002`}}, {0.3107308809882806, 0.18173048095170563`}}}], 
   InsetBox[
    StyleBox[Cell[TextData[Cell[BoxData[
      FormBox[
       RowBox[{
        SubscriptBox["R", "0"], "=", "1.5"}], TraditionalForm]],
      FormatType->"TraditionalForm"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     TextAlignment->Center,
     Background->GrayLevel[
      1.]], {0.27025359937488036`, 0.39958072970167385`}, {
    Left, Top}, {0.22975256877836048`, 0.06402940441364145}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImagePadding->{{0., 101.872006}, {0.833333, 51.336612}},
  ImageSize->Automatic,
  PlotRange->{{-1.0291666666666666`, 
   0.4291666666666667}, {-0.6460339887498948, 0.32799999999999996`}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.5683875257125783`*^9, 3.568387528973765*^9}, {
  3.568422688482709*^9, 3.568422714138103*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"J1", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      FractionBox[
       RowBox[{"\[Gamma]", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "-", "\[Beta]"}], ")"}]}], 
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Gamma]"}], ")"}]], ",", "0"}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "\[Epsilon]"}], ",", 
      RowBox[{
       RowBox[{"-", "\[Epsilon]"}], "-", "\[Gamma]"}]}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"lam", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\[Lambda]", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "\[Lambda]"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"\[Lambda]", 
      RowBox[{"(", 
       RowBox[{"\[Epsilon]", "+", "\[Gamma]"}], ")"}]}], "-", 
     RowBox[{"\[Gamma]", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "-", "\[Beta]"}], ")"}]}]}], "\[Equal]", "0"}], 
   ",", "\[Lambda]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5683882028413076`*^9, 3.5683882561643577`*^9}, {
  3.5683897139897404`*^9, 3.568389876442032*^9}, {3.5683899585447283`*^9, 
  3.5683900127238274`*^9}, {3.5683946296439*^9, 3.568394636253278*^9}, {
  3.5683948371057663`*^9, 3.568394854415756*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"\[Gamma]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], "+", "\[Gamma]"}], ")"}]}], 
      RowBox[{"\[Gamma]", "+", "\[Epsilon]"}]], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "\[Epsilon]"}], ",", 
     RowBox[{
      RowBox[{"-", "\[Gamma]"}], "-", "\[Epsilon]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.568389844341196*^9, 3.5683898770370665`*^9}, {
   3.568389993109705*^9, 3.568390013196854*^9}, 3.568394644383743*^9, 
   3.568394854695772*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "\[Lambda]"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.568389844341196*^9, 3.5683898770370665`*^9}, {
   3.568389993109705*^9, 3.568390013196854*^9}, 3.568394644383743*^9, 
   3.5683948546997724`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Lambda]", "\[Rule]", 
    FractionBox[
     RowBox[{"\[Gamma]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "\[Beta]"}], "+", "\[Gamma]"}], ")"}]}], 
     RowBox[{"\[Gamma]", "+", "\[Epsilon]"}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.568389844341196*^9, 3.5683898770370665`*^9}, {
   3.568389993109705*^9, 3.568390013196854*^9}, 3.568394644383743*^9, 
   3.568394854702772*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.16"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]1", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Epsilon]", "+", "\[Gamma]", "+", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "\[Epsilon]"}], ")"}], "2"], "+", 
        RowBox[{"4", " ", "\[Beta]", " ", "\[Epsilon]"}]}]]}], "2"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]2", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Epsilon]", "+", "\[Gamma]", "-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "\[Epsilon]"}], ")"}], "2"], "+", 
        RowBox[{"4", " ", "\[Beta]", " ", "\[Epsilon]"}]}]]}], "2"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"r0", "=", 
  RowBox[{"\[Beta]", "/", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"diff", "=", 
    RowBox[{"\[Beta]", "-", "\[Gamma]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"e1", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     RowBox[{
      FractionBox["\[Gamma]", 
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Gamma]"}], ")"}]], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", "r0"]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Gamma]"}], ")"}]], 
      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[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "1"]}], "+", 
      RowBox[{"\[Gamma]", " ", "i"}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s", "-", "i"}], ")"}]}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e1", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     RowBox[{"e1", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{"e1", "[", 
      RowBox[{"[", "3", "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"e1", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "+", "\[Delta]"}]}], "}"}], ",", 
   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.568412516086946*^9, 
   3.5684125419254236`*^9}, {3.568412577997487*^9, 3.5684125984566574`*^9}, {
   3.5684126443032794`*^9, 3.5684126958512278`*^9}, {3.5684127605209265`*^9, 
   3.5684127667752843`*^9}, {3.5684128060615315`*^9, 3.5684129422363205`*^9}}],

Cell[BoxData["0.4`"], "Output",
 CellChangeTimes->{
  3.568395185561696*^9, 3.568395231638332*^9, {3.56841251668498*^9, 
   3.568412542546459*^9}, {3.568412579917597*^9, 3.5684125994947166`*^9}, {
   3.5684126468924274`*^9, 3.568412696381258*^9}, 3.56841277106853*^9, {
   3.5684128064585543`*^9, 3.5684129318537264`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.568395185561696*^9, 3.568395231638332*^9, {3.56841251668498*^9, 
   3.568412542546459*^9}, {3.568412579917597*^9, 3.5684125994947166`*^9}, {
   3.5684126468924274`*^9, 3.568412696381258*^9}, 3.56841277106853*^9, {
   3.5684128064585543`*^9, 3.568412931860727*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.5`", ",", 
   RowBox[{"-", "1.1538461538461537`"}], ",", 
   RowBox[{"-", "0.3461538461538461`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.568395185561696*^9, 3.568395231638332*^9, {3.56841251668498*^9, 
   3.568412542546459*^9}, {3.568412579917597*^9, 3.5684125994947166`*^9}, {
   3.5684126468924274`*^9, 3.568412696381258*^9}, 3.56841277106853*^9, {
   3.5684128064585543`*^9, 3.5684129318627267`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0., -0.05309310266899467}, {0., 0.05309310266899467}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{-0.017307856818612855`, 0.02123578665459415}, {
      0.017307856818612855`, 0.1216213562025487}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{-0.04145874787077444, 0.10969014456052328`}, {
      0.04145874787077444, 0.17602414115376241`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{-0.05282961169928693, 0.2090027531157856}, {
      0.05282961169928693, 0.21956867545564296`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{-0.05150787536377128, 0.2985912545552285}, {
      0.05150787536377128, 0.2728373168733429}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{-0.048234576877865004`, 0.37933076250667497`}, {
      0.048234576877865004`, 0.3349549517790392}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{-0.045526959942792725`, 0.45588760453710414`}, {
      0.045526959942792725`, 0.40125525260575284`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{-0.04349556446583509, 0.5304468951260845}, {
      0.04349556446583509, 0.46955310487391533`}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{-0.04196558751625899, 0.603951901753672}, {
      0.04196558751625899, 0.5389052411034705}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{-0.04078725127016994, 0.6768465189156176}, {
      0.04078725127016994, 0.6088677667986677}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{-0.03985770982898191, 0.7493604989352182}, {
      0.03985770982898191, 0.67921092963621}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{-0.03910827152679703, 0.8216227895707082}, {
      0.03910827152679703, 0.7498057818578627}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{-0.038492469362791194`, 0.8937107030375085}, {
      0.038492469362791194`, 0.8205750112482053}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{-0.03797814473877915, 0.9656731545854663}, {
      0.03797814473877915, 0.8914697025573901}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{-0.03754249293147971, 1.0375424929314794`}, {
      0.03754249293147971, 0.96245750706852}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.07857142857142858, -0.05309310266899467}, {
      0.07857142857142858, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.05984750653019525, 0.02174666028966469}, {
      0.09729535061266192, 0.12111048256747814`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.03416991302830345, 0.11374729970239489`}, {
      0.1229729441145537, 0.1719669860118908}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.02548115540494455, 0.21483384394967503`}, {
      0.1316617017379126, 0.21373758462175352`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.028354881646273172`, 0.3029530781874862}, {
      0.128787975496584, 0.2684754932410852}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.031914495700632, 0.3824807372063192}, {0.12522836144222516`,
       0.331804977079395}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.03459086556736474, 0.4583134464731442}, {
      0.12255199157549244`, 0.3988294106697127}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.03653239523396328, 0.5324283398753603}, {
      0.12061046190889388`, 0.4675716601246395}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.03797253916983428, 0.6056427166082703}, {
      0.11917031797302288`, 0.5372144262488723}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{0.0390728937151372, 0.6783359153165549}, {
      0.11806996342771998`, 0.6073783703977305}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.039936980325462834`, 0.7507035253093081}, {
      0.11720587681739435`, 0.6778679032621201}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.04063172100879295, 0.8228553161399764}, {
      0.11651113613406423`, 0.7485732552885946}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.041201573825331475`, 0.8948571980130884}, {
      0.11594128331752568`, 0.8194285162726255}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.041676969039103104`, 0.9667509572070467}, {
      0.11546588810375405`, 0.8903918999358099}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.04207933110725029, 1.0385642888393563`}, {
      0.11506352603560689`, 0.9614357111606432}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.15714285714285717`, -0.05309310266899467}, {
      0.15714285714285717`, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.13665147839814767`, 0.02244917833146092}, {
      0.17763423588756666`, 0.12040796452568195`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.1096839161090243, 0.1190553263935285}, {
      0.20460179817669005`, 0.1666589593207572}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.1044797441673084, 0.22102916167892478`}, {
      0.2098059701184059, 0.20754226689250377`}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.10859681971385328`, 0.307212187959904}, {
      0.20568889457186107`, 0.2642163834686673}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.11225582971585249`, 0.38549832081016006`}, {
      0.20202988456986187`, 0.32878739347555413`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.11482370284336146`, 0.460633348825772}, {
      0.19946201144235284`, 0.3965095083170849}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.11664042735728408`, 0.5343282789036259}, {
      0.19764528692843022`, 0.4656717210963739}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.11797285140873634`, 0.6072697237790378}, {
      0.19631286287697797`, 0.5355874190781048}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.11898503924277104`, 0.6797740561100716}, {
      0.19530067504294332`, 0.6059402296042139}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.11977735424357983`, 0.7520043667550761}, {
      0.19450836004213448`, 0.6765670618163522}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.12041320380774112`, 0.8240523883916822}, {
      0.19387251047797324`, 0.7473761830368889}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.12093416747557133`, 0.8959733650406245}, {0.193351546810143,
       0.8183123492450892}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.12136847958570612`, 0.9678024298512684}, {
      0.1929172347000082, 0.8893404272915881}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.12173591635897493`, 1.0395629384063803`}, {
      0.1925497979267394, 0.9604370615936191}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.23571428571428577`, -0.05309310266899467}, {
      0.23571428571428577`, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.21296580436335028`, 0.023455827633302118`}, {
      0.25846276706522125`, 0.11940131522384073`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.1853975702619671, 0.1259129492466223}, {
      0.28603100116660446`, 0.1598013364676634}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.1842545096104211, 0.2273535754098818}, {0.2871740618181504, 
      0.20121785316154672`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.1891793242087193, 0.3112754849955373}, {
      0.28224924721985223`, 0.2601530864330341}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.19276016249860703`, 0.38834895990806473`}, {
      0.27866840892996453`, 0.32593675437764946`}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.19515342163474922`, 0.4628306442095859}, {
      0.27627514979382234`, 0.39431221293327107`}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.19681674740900695`, 0.536136672021781}, {0.2746118240195646,
       0.46386332797821883`}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.19802717913492612`, 0.608825891502293}, {0.2734013922936454,
       0.5340312513548494}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.19894320773782057`, 0.6811555158704853}, {0.272485363690751,
       0.6045587698438002}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.1996588520685844, 0.7532585670891827}, {0.2717697193599871, 
      0.6753128614822453}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.20023258537532143`, 0.8252101904649852}, {
      0.2711959860532501, 0.7462183809635857}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.20070241215840334`, 0.8970558407588096}, {
      0.2707261592701682, 0.8172298735269042}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.20109400083029288`, 0.9688245455385848}, {
      0.27033457059827865`, 0.8883183116042718}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.20142526944891287`, 1.04053567459132}, {
      0.27000330197965866`, 0.9594643254086795}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.31428571428571433`, -0.05309310266899467}, {
      0.31428571428571433`, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.2885799194309639, 0.024973327785836164`}, {
      0.3399915091404647, 0.11788381507130669`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.26186049696765956`, 0.13446225511667}, {
      0.36671093160376905`, 0.1512520305976157}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.26480269457158967`, 0.2335291108412072}, {
      0.36376873399983906`, 0.19504231773022132`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.27004296483967966`, 0.3150648678631257}, {0.358528463731749,
       0.2563637035654457}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.2733935030553938, 0.3910058843512337}, {0.3551779255160349, 
      0.3232798299344805}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.2755602146964025, 0.46489240367643664`}, {
      0.3530112138750261, 0.3922504534664204}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.2770486781601934, 0.5378454844282254}, {0.3515227504112352, 
      0.4621545155717744}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.27812673929925563`, 0.6103053778682606}, {
      0.35044468927217304`, 0.532551764988882}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.2789409410968002, 0.6824756304512524}, {
      0.34963048747462855`, 0.603238655263033}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.2795765108714236, 0.7544621843816023}, {0.3489949177000051, 
      0.674109244189826}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.28008592324619574`, 0.8263252675279978}, {
      0.34848550532523287`, 0.7451033039005732}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.2805030957448727, 0.8981015221057728}, {
      0.34806833282655597`, 0.8161841921799411}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.2808508637251396, 0.969814468214651}, {0.3477205648462891, 
      0.8873283889282054}}]}, 
    {Arrowheads[{{0.044017335328517725`, 1.}}], 
     ArrowBox[{{0.28114513797415736`, 1.0414798716579288`}, {
      0.34742629059727137`, 0.9585201283420706}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.3928571428571429, -0.05309310266899467}, {
      0.3928571428571429, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.3631745979919906, 0.02740784811160822}, {0.4225396877222953,
       0.11544929474553463`}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.33978737980584606`, 0.14443124599849488`}, {
      0.44592690590843975`, 0.14128303971579081`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.3460212793321294, 0.23929130243889946`}, {
      0.43969300638215647`, 0.1892801261325291}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.351115200830575, 0.31852415963771086`}, {0.4345990848837108,
       0.25290441179086054`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.35411965440695414`, 0.39345104546989845`}, {
      0.43159463130733167`, 0.3208346688158158}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.35602355540950753`, 0.46680968672681267`}, {
      0.4296907303047783, 0.3903331704160443}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.35732309548773106`, 0.5394488152999402}, {
      0.42839119022655475`, 0.4605511847000596}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.3582623767968548, 0.6117036221703686}, {0.427451908917431, 
      0.531153520686774}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.3589714447777305, 0.6837305696365469}, {0.4267428409365553, 
      0.6019837160777385}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{0.3595250569547003, 0.7556118512986578}, {
      0.42618922875958554`, 0.6729595772727703}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.3599689859318739, 0.827394577040994}, {0.42574529978241193`,
       0.7440339943875771}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.3603327362812612, 0.8991076105426703}, {0.4253815494330246, 
      0.8151781037430434}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.36063614647695336`, 0.9707695913666048}, {
      0.42507813923733245`, 0.8863732657762518}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.36089303199132783`, 1.0423930792415255`}, {
      0.4248212537229579, 0.9576069207584738}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.4714285714285715, -0.05309310266899467}, {
      0.4714285714285715, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.4363092064910386, 0.031610136534608105`}, {
      0.5065479363661044, 0.11124700632253474`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.4197337342892162, 0.15496174380702712`}, {
      0.5231234085679268, 0.13075254190725857`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.42773157145914426`, 0.244442798771657}, {0.5151255713979986,
       0.18412862979977154`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.43231936440390234`, 0.32162177068499864`}, {
      0.5105377784532407, 0.24980680074357273`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.4349026603078228, 0.3956751211279849}, {0.5079544825493202, 
      0.31861059315772927`}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.4365231124652641, 0.468577509179022}, {0.5063340303918789, 
      0.38856534796383496`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.4376268641036057, 0.5409429130978458}, {0.5052302787535373, 
      0.45905708690215397`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.4384248074566868, 0.6130173813984242}, {0.5044323354004562, 
      0.5298397614587184}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.43902773786973814`, 0.6849173798478349}, {
      0.5038294049874048, 0.6007969058664506}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.4394990050502073, 0.7567048177876746}, {0.5033581378069356, 
      0.6718666107837534}}]}, 
    {Arrowheads[{{0.04401733532851781, 1.}}], 
     ArrowBox[{{0.4398773215984434, 0.8284155290823334}, {0.5029798212586996, 
      0.7430130423462376}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.44018763107130277`, 0.900071649306322}, {0.5026695117858402,
       0.8142140649793916}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.44044671037740474`, 0.9716875721469685}, {
      0.5024104324797383, 0.8854552849958879}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.44066625051241665`, 1.0432730535422667`}, {
      0.5021908923447262, 0.9567269464577326}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.55, -0.05309310266899467}, {0.55, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.5076561618482617, 0.03939925795482062}, {0.5923438381517384,
       0.10345788490232223`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.5016764332204757, 0.16485056107090074`}, {
      0.5983235667795245, 0.12086372464338496`}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.5097251814855052, 0.24888075070201116`}, {
      0.5902748185144949, 0.1796906778694174}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.5135827450457042, 0.3243492581177213}, {0.5864172549542958, 
      0.24707931331085012`}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.5157088639276561, 0.39767673850016616`}, {
      0.5842911360723438, 0.3166089757855481}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.5170395433446097, 0.4701945693477868}, {0.5829604566553903, 
      0.3869482877950702}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.5179472341109431, 0.5423260882893955}, {0.582052765889057, 
      0.45767391171060423`}}]}, 
    {Arrowheads[{{0.04401733532851781, 1.}}], 
     ArrowBox[{{0.518604849521256, 0.6142447141487817}, {0.5813951504787442, 
      0.5286124287083609}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.5191028018978187, 0.6860339966153193}, {0.5808971981021814, 
      0.5996802890989661}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.519492760214374, 0.7577389750572917}, {0.580507239785626, 
      0.6708324535141366}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.5198063309183562, 0.8293860145375024}, {0.5801936690816439, 
      0.7420425568910687}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.520063910362054, 0.9009915525420278}, {0.579936089637946, 
      0.813294161743686}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.5202792402142994, 0.9725663599701825}, {0.5797207597857007, 
      0.8845764971726742}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.5204619123660646, 1.0441177847353007`}, {0.5795380876339356,
       0.9558822152646987}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.6285714285714287, -0.05309310266899467}, {
      0.6285714285714287, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.5784174206324177, 0.054008667907769925`}, {
      0.6787254365104397, 0.08884847494937292}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.5849666809679548, 0.17314746371146442`}, {
      0.6721761761749026, 0.11256682200282128`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.5918086071801143, 0.25259201291101513`}, {0.665334249962743,
       0.17597941566041342`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.5948423254030182, 0.32671703135985347`}, {
      0.6623005317398393, 0.24471154006871793`}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.5965083942258398, 0.399461167359287}, {0.6606344629170176, 
      0.3148245469264272}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.5975551153403487, 0.4716627950451427}, {0.6595877418025087, 
      0.3854800620977143}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.598272176492237, 0.5435985421139514}, {0.6588706806506204, 
      0.45640145788604836`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.5987936321532498, 0.6153849178588412}, {0.6583492249896077, 
      0.5274722249983015}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.5991897216819776, 0.6870792284172199}, {0.6579531354608799, 
      0.5986350572970655}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.5995007182694754, 0.7587128608693099}, {0.6576421388733821, 
      0.6698585677021182}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.5997513414068342, 0.8303044205744267}, {0.6573915157360233, 
      0.7411241508541442}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.5999575938448944, 0.901865625541772}, {0.6571852632979628, 
      0.8124200887439419}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{0.600130288056387, 0.97340421877262}, {0.6570125690864703, 
      0.8837386383702366}}]}, 
    {Arrowheads[{{0.04401733532851773, 1.}}], 
     ArrowBox[{{0.6002769906066184, 1.0449255198219884`}, {0.656865866536239, 
      0.9550744801780109}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.7071428571428573, -0.05309310266899467}, {
      0.7071428571428573, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.6543008869964331, 0.07658645297672842}, {0.7599848272892815,
       0.06627068988041443}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.6687498232245191, 0.17952937346240805`}, {
      0.7455358910611953, 0.10618491225187765`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.6738303964111256, 0.25562767252449686`}, {
      0.7404553178745891, 0.17294375604693168`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.6760477360680389, 0.32874881831733366`}, {
      0.7382379782176757, 0.24267975311123777`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.6772760322278838, 0.4010387603744655}, {0.7370096820578307, 
      0.3132469539112487}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.678054132363931, 0.47298678224283686`}, {0.7362315819217835,
       0.38415607490002013`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.6785906442499535, 0.5447621345552097}, {0.7356950700357612, 
      0.4552378654447901}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{0.6789827724484109, 0.6164384279160343}, {0.7353029418373037, 
      0.5264187149411083}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.6792818126177209, 0.6880527150848375}, {0.7350039016679937, 
      0.5976615706294479}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.6795173609686458, 0.7596256471501222}, {0.7347683533170688, 
      0.6689457814213059}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.6797076805931533, 0.8311696334602546}, {0.7345780336925612, 
      0.7402589379683163}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.6798646481040148, 0.902692575722159}, {0.7344210661816997, 
      0.8115931385635546}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.6799963190806937, 0.9741997423936583}, {0.734289395205021, 
      0.8829431147491982}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.6801083495171293, 1.0456947803195817`}, {0.7341773647685853,
       0.9543052196804176}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.7857142857142859, -0.05309310266899467}, {
      0.7857142857142859, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.7398535838455741, 0.09818064751865341}, {0.8315749875829979,
       0.04467649533848944}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.7523781734410347, 0.18418003202919378`}, {0.819050397987537,
       0.10153425368509192`}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.755688630670761, 0.2580731278908549}, {0.815739940757811, 
      0.17049830068057367`}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.7571618041988564, 0.3304762489233705}, {0.8142667672297154, 
      0.24095232250520088`}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.7579915172354856, 0.4024233789915642}, {0.8134370541930862, 
      0.31186233529415}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.7585231718056953, 0.474173192522294}, {0.8129053996228766, 
      0.382969664620563}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.7588927544991456, 0.5458201158258646}, {0.8125358169294263, 
      0.45417988417413513`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.7591645157524944, 0.6174066886801113}, {0.8122640556760775, 
      0.5254504541770313}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.7593727301220206, 0.6889548651436072}, {0.8120558413065513, 
      0.5967594205706782}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.7595373426288667, 0.7604771117718601}, {0.8118912287997051, 
      0.6680943167995681}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.7596707455775207, 0.8319810293663419}, {0.8117578258510512, 
      0.739447542062229}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.7597810431735021, 0.9034715143901946}, {0.8116475282550697, 
      0.8108141998955193}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.7598737580589414, 0.9749518628246108}, {0.8115548133696304, 
      0.8821909943182458}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.759952783163535, 1.0464243743883321`}, {0.811475788265037, 
      0.9535756256116672}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.8642857142857145, -0.05309310266899467}, {
      0.8642857142857145, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.8288495949646204, 0.11096537704664818`}, {
      0.8997218336068088, 0.031891765810494674`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.8355196860485452, 0.18748217137790446`}, {
      0.8930517425228839, 0.09823211433638125}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.8373252930530001, 0.2600242455036601}, {0.8912461355184291, 
      0.16854718306776845`}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.8381594580899369, 0.3319343710475366}, {0.8904119704814923, 
      0.2394942003810348}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.8386394157036487, 0.4036309730442349}, {0.8899320128677803, 
      0.3106547412414793}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.8389511546448126, 0.47523016450396305`}, {
      0.8896202739266166, 0.381912692638894}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.8391698941924277, 0.5467768439728681}, {0.8894015343790014, 
      0.45322315602713165`}}]}, 
    {Arrowheads[{{0.04401733532851781, 1.}}], 
     ArrowBox[{{0.8393318373400598, 0.6182920068169584}, {0.8892395912313693, 
      0.5245651360401842}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.8394565585210241, 0.6897867771518306}, {0.889114870050405, 
      0.5959275085624548}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.8395555657074313, 0.7612675969886927}, {0.8890158628639977, 
      0.6673038315827354}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.8396360668588867, 0.8327384543167551}, {0.8889353617125423, 
      0.7386901171118158}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.8397028064935804, 0.9042019497340219}, {0.8888686220778487, 
      0.8100837645516918}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.8397590351404788, 0.9756598513643725}, {0.8888123934309503, 
      0.8814830057784842}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.8398070544205504, 1.0471134032121006`}, {0.8887643741508788,
       0.9528865967878987}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.9428571428571432, -0.05309310266899467}, {
      0.9428571428571432, 0.05309310266899467}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.9159594426139683, 0.11720401542039657`}, {0.969754843100318,
       0.025653127436746276`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.918073009579993, 0.18981056966201906`}, {0.9676412761342933,
       0.09590371605226664}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.9187153504650873, 0.26157261956740174`}, {0.966998935249199,
       0.1669988090040268}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.9190257712059299, 0.33315839257954516`}, {
      0.9666885145083564, 0.23827017884902627`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.9192086951152062, 0.4046784066865121}, {0.9665055905990803, 
      0.3096073075992021}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.9193292827290885, 0.4761667786469885}, {0.9663850029851977, 
      0.3809760784958685}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.9194147576463981, 0.5476375075612845}, {0.9662995280678882, 
      0.45236249243871524`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{0.9194785063692974, 0.6190973967443851}, {0.9662357793449889, 
      0.5237597461127574}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.9195278781764136, 0.6905501503160655}, {0.9661864075378729, 
      0.5951641353982198}}]}, 
    {Arrowheads[{{0.044017335328517794`, 1.}}], 
     ArrowBox[{{0.9195672436143197, 0.7619979574134432}, {0.9661470420999667, 
      0.6665734711579848}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{0.919599364751024, 0.8334421948303041}, {0.9661149209632623, 
      0.7379863765982668}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.9196260727713633, 0.9048837718145512}, {0.9660882129429229, 
      0.8094019424711626}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.9196486296586565, 0.9763233129964023}, {0.96606565605563, 
      0.8808195441464542}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{0.9196679334061693, 1.0477612616673726`}, {0.9660463523081172,
       0.9522387383326267}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{1.0214285714285718`, 0.05309310266899467}, {
      1.0214285714285718`, -0.05309310266899467}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{1.0006415019487154`, 0.12028320573750914`}, {
      1.0422156409084282`, 0.0225739371196337}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{1.000057174085372, 0.19145900420647272`}, {
      1.0427999687717715`, 0.09425528150781298}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{0.9998557510064568, 0.2627985061045283}, {1.0430013918506869`,
       0.16577292246690023`}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{0.999753751450693, 0.33418159149815363`}, {
      1.0431033914064505`, 0.2372469799304178}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.9996921340698679, 0.40558256030020057`}, {
      1.0431650087872757`, 0.3087031539855136}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.9996508805129047, 0.47699259883198786`}, {
      1.0432062623442389`, 0.3801502583108691}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{0.999621327417097, 0.5484078677452787}, {1.0432358154400465`, 
      0.4515921322547211}}]}, 
    {Arrowheads[{{0.04401733532851781, 1.}}], 
     ArrowBox[{{0.9995991152603293, 0.6198264266952996}, {1.0432580275968144`,
       0.5230307161618428}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{0.9995818110192548, 0.691247189464253}, {1.043275331837889, 
      0.5944670962500324}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{0.9995679498778106, 0.7626695005827249}, {1.043289192979333, 
      0.6659019279887034}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.9995565971916391, 0.8340929410697143}, {1.0433005456655045`,
       0.7373356303588566}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{0.9995471285302416, 0.9055172306034768}, {1.043310014326902, 
      0.808768483682237}}]}, 
    {Arrowheads[{{0.04401733532851771, 1.}}], 
     ArrowBox[{{0.9995391108360454, 0.9769421745444711}, {1.0433180320210982`,
       0.8802006825983855}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{0.9995322343280203, 1.0483676335228362`}, {
      1.0433249085291234`, 0.9516323664771632}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{1.1000000000000003`, 0.05309310266899467}, {
      1.1000000000000003`, -0.05309310266899467}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{1.0835631161972763`, 0.12191328596550978`}, {
      1.1164368838027245`, 0.02094385689163307}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{1.081538530739802, 0.19263717604089195`}, {
      1.1184614692601986`, 0.09307710967339375}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{1.0807566034445073`, 0.26376873399983897`}, {
      1.119243396555493, 0.16480269457158958`}}]}, 
    {Arrowheads[{{0.044017335328517766`, 1.}}], 
     ArrowBox[{{1.0803422541677905`, 0.33503416588259766`}, {1.11965774583221,
       0.23639440554597374`}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{1.0800856725987624`, 0.4063596948630593}, {
      1.1199143274012382`, 0.3079260194226549}}]}, 
    {Arrowheads[{{0.04401733532851777, 1.}}], 
     ArrowBox[{{1.0799111764689786`, 0.47771730042410676`}, {
      1.1200888235310222`, 0.3794255567187502}}]}, 
    {Arrowheads[{{0.04401733532851779, 1.}}], 
     ArrowBox[{{1.0797848114984343`, 0.5490940292180888}, {
      1.1202151885015663`, 0.450905970781911}}]}, 
    {Arrowheads[{{0.04401733532851776, 1.}}], 
     ArrowBox[{{1.0796890791636056`, 0.620483072198614}, {1.120310920836395, 
      0.5223740706585287}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{1.0796140457881755`, 0.6918805089379596}, {
      1.1203859542118253`, 0.5938337767763258}}]}, 
    {Arrowheads[{{0.04401733532851778, 1.}}], 
     ArrowBox[{{1.0795536535468229`, 0.7632839231074358}, {
      1.1204463464531778`, 0.6652875054639923}}]}, 
    {Arrowheads[{{0.04401733532851775, 1.}}], 
     ArrowBox[{{1.079503998250354, 0.8346917444407129}, {1.1204960017496466`, 
      0.736736826987858}}]}, 
    {Arrowheads[{{0.044017335328517745`, 1.}}], 
     ArrowBox[{{1.0794624504500983`, 0.9061029083019981}, {
      1.1205375495499021`, 0.8081828059837156}}]}, 
    {Arrowheads[{{0.0440173353285178, 1.}}], 
     ArrowBox[{{1.079427174457711, 0.9775166673616}, {1.1205728255422898`, 
      0.8796261897812564}}]}, 
    {Arrowheads[{{0.044017335328517815`, 1.}}], 
     ArrowBox[{{1.0793968498544917`, 1.0489324815955825`}, {
      1.1206031501455087`, 0.951067518404417}}]}}},
  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.05309310266899467, 
   1.1530931026689948`}, {-0.05309310266899467, 1.0530931026689947`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.568395185561696*^9, 3.568395231638332*^9, {3.56841251668498*^9, 
   3.568412542546459*^9}, {3.568412579917597*^9, 3.5684125994947166`*^9}, {
   3.5684126468924274`*^9, 3.568412696381258*^9}, 3.56841277106853*^9, {
   3.5684128064585543`*^9, 3.56841293192673*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]1", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Epsilon]", "+", "\[Gamma]", "+", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "\[Epsilon]"}], ")"}], "2"], "+", 
        RowBox[{"4", " ", "\[Beta]", " ", "\[Epsilon]"}]}]]}], "2"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]2", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[Epsilon]", "+", "\[Gamma]", "-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", "-", "\[Epsilon]"}], ")"}], "2"], "+", 
        RowBox[{"4", " ", "\[Beta]", " ", "\[Epsilon]"}]}]]}], "2"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"r0", "=", 
  RowBox[{"\[Beta]", "/", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"diff", "=", 
    RowBox[{"\[Beta]", "-", "\[Gamma]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e1", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     RowBox[{
      FractionBox["\[Gamma]", 
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Gamma]"}], ")"}]], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", "r0"]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Gamma]"}], ")"}]], 
      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[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "1"]}], "+", 
      RowBox[{"\[Gamma]", " ", "i"}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s", "-", "i"}], ")"}]}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "0.666667"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "+", "0.3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "-", "0.08"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "+", "0.95"}]}], "}"}], ",", 
   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.568395299169194*^9, 
   3.5683953328121185`*^9}, {3.568423430972863*^9, 3.5684234497794027`*^9}, {
   3.568423501507697*^9, 3.568423560004845*^9}, {3.569109375275319*^9, 
   3.5691094092662635`*^9}, {3.569109453669803*^9, 3.5691094930140533`*^9}, {
   3.569109843191083*^9, 3.569109856943869*^9}, {3.5691098997073154`*^9, 
   3.569109909022848*^9}}],

Cell[BoxData["1.5`"], "Output",
 CellChangeTimes->{
  3.568395336771345*^9, {3.568423436416697*^9, 3.568423450203159*^9}, {
   3.5684235121028595`*^9, 3.5684235604336023`*^9}, 3.569109413238491*^9, {
   3.5691094554619055`*^9, 3.569109493787098*^9}, {3.569109828036216*^9, 
   3.5691098577859173`*^9}, {3.569109900853381*^9, 3.5691099094698734`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.6666666666666666`", ",", "0.25641025641025644`", ",", 
   "0.07692307692307691`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.568395336771345*^9, {3.568423436416697*^9, 3.568423450203159*^9}, {
   3.5684235121028595`*^9, 3.5684235604336023`*^9}, 3.569109413238491*^9, {
   3.5691094554619055`*^9, 3.569109493787098*^9}, {3.569109828036216*^9, 
   3.5691098577859173`*^9}, {3.569109900853381*^9, 3.5691099094728737`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{
      0.0005102561464085666, -0.053523155046469324`}, {-0.0005109228130753265,
       0.04736930889262315}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{-0.016168603678926093`, 0.022706744973908573`}, {
      0.016167937012259333`, 0.11828226601510236`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{-0.0397334347581865, 0.11297954359189495`}, {
      0.03973276809151974, 0.17515232453997306`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{-0.05029465933564532, 0.21369226523485654`}, {
      0.05029399266897856, 0.2215824600398686}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{-0.048707405156906844`, 0.3043504872909316}, {
      0.048706738490240084`, 0.2780670951266506}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{-0.045523879444685396`, 0.38652164960876817`}, {
      0.045523212778018636`, 0.34303878995167114`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{-0.04296102227594327, 0.4647989965574402}, {
      0.04296035560927651, 0.4119043001458563}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{-0.041058277661902655`, 0.541237377683187}, {
      0.041057610995235895`, 0.4826087761629666}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{-0.03963259653631562, 0.616709353483109}, {
      0.03963192986964886, 0.5542796575059017}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{-0.03853779718718765, 0.6916227597904262}, {
      0.03853713052052089, 0.6265091083414415}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{-0.037675720348753675`, 0.766188044221801}, {
      0.037675053682086915`, 0.6990866810529237}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{-0.03698150875956918, 0.8405231567957584}, {
      0.03698084209290242, 0.7718944256218232}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{-0.036411561301210996`, 0.9146987750111183}, {
      0.036410894634544236`, 0.8448616645493204}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{-0.035935822073413046`, 0.9887596089050842}, {
      0.035935155406746286`, 0.9179436877982117}}]}, 
    {Arrowheads[{{0.0472559827853385, 1.}}], 
     ArrowBox[{{-0.03553303482856067, 1.0627352277380324`}, {
      0.03553236816189391, 0.9911109261081202}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.06953848664515558, -0.05352334779243249}, {
      0.06855613240246335, 0.04736950163858631}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.052946007397044255`, 0.022684139554003432`}, {
      0.08514861165057469, 0.11830487143500751`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.027958395449541554`, 0.11479505840872964`}, {
      0.11013622359807738`, 0.1733368097231384}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.018607285324337863`, 0.21857915895229}, {
      0.11948733372328108`, 0.21669556632243508`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.021893827502792257`, 0.30914289712003457`}, {
      0.11620079154482668`, 0.2732746852975476}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.02571366032771811, 0.39061194192358795`}, {
      0.11238095871990081`, 0.3389484976368514}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.028483950625271336`, 0.4683465968665312}, {
      0.10961066842234762`, 0.40835669983676526`}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.030448907355133975`, 0.544407632816105}, {
      0.10764571169248496`, 0.4794385210300485}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.031884888297780065`, 0.6196124988434883}, {
      0.10620973074983887`, 0.5513765121455223}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.03297067004016624, 0.6943300674752397}, {0.1051239490074527,
       0.6238018006566278}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.03381679784316463, 0.7687468360240242}, {
      0.10427782120445431`, 0.6965278892507005}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.03449312915199692, 0.8429659896925482}, {
      0.10360148989562204`, 0.7694515927250334}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.03504533434801963, 0.9170488219231367}, {
      0.10304928469959929`, 0.8425116176373021}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.035504301608613, 0.9910338675212133}, {0.10259031743900596`,
       0.9156694291820825}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.0358915765376702, 1.06494649591314}, {0.10220304250994872`, 
      0.9888996579330128}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.13856365398614193`, -0.053523561620510744`}, {
      0.1376262507757627, 0.04736971546666457}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.12207737187201469`, 0.02265602583448917}, {
      0.15411253288988996`, 0.11833298515452174`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.09529692876109047, 0.11735615690894824`}, {
      0.18089297600081417`, 0.1707757112229198}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.08814133804759325, 0.22468856371066304`}, {
      0.1880485667143114, 0.21058616156406207`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.09333104571822215, 0.3144741233971024}, {0.1828588590436825,
       0.26794345902047983`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.09765072675109335, 0.39493561125078674`}, {
      0.1785391780108113, 0.33462482830965257`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.10051558024094406`, 0.4720098391988234}, {
      0.17567432452096057`, 0.40469345750447316`}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.10246820652041963`, 0.547641671533323}, {0.173721698241485, 
      0.47620448231283063`}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.10386451255333082`, 0.6225533777216748}, {
      0.17232539220857382`, 0.5484356332673358}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.10490627410391512`, 0.6970606002148212}, {
      0.17128363065798952`, 0.6210712679170464}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.10571087688033468`, 0.7713201065358035}, {
      0.17047902788156996`, 0.6939546187389212}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.10634995373030026`, 0.8454176943076049}, {
      0.16983995103160437`, 0.7669998881099768}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.10686929507207187`, 0.9194039670433247}, {
      0.16932060968983276`, 0.8401564725171139}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.10729939204123468`, 0.993310583333763}, {
      0.16889051272066996`, 0.9133927133695328}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.10766127315546833`, 1.0671583126045339`}, {
      0.1685286316064363, 0.9866878412416188}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.2075849710618874, -0.05352379934466256}, {
      0.20670021941430294`, 0.04736995319081638}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.19123267410579997`, 0.022620113267488744`}, {
      0.22305251637039034`, 0.11836889772152218`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.1621876624330043, 0.12117189470998248`}, {0.252097528043186,
       0.16695997342188557`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.1588273388932649, 0.23215352693360244`}, {
      0.25545785158292544`, 0.20312119834112266`}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.16583323060856744`, 0.3201677175605538}, {
      0.24845195986762292`, 0.2622498648570284}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.17038458631515124`, 0.39933353802265287`}, {
      0.2439006041610391, 0.33022690153778644`}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.1731866516123472, 0.4756621953059227}, {
      0.24109853886384314`, 0.40104110139737387`}}]}, 
    {Arrowheads[{{0.047255982785338504`, 1.}}], 
     ArrowBox[{{0.17503478753193044`, 0.5508354362173427}, {
      0.23925040294425992`, 0.473010717628811}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.1763332744486726, 0.6254428317928191}, {0.2379519160275177, 
      0.5455461791961916}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.17729173419717653`, 0.6997354449636304}, {
      0.23699345627901378`, 0.6183964231682373}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.17802677850990434`, 0.7738362975482613}, {
      0.23625841196628597`, 0.6914384277264632}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.17860771216131, 0.8478121981526493}, {0.23567747831488034`, 
      0.7646053842649323}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.17907808156951843`, 0.9217023630232403}, {
      0.23520710890667187`, 0.8378580765371985}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.17946653839171772`, 0.9955312512300318}, {
      0.23481865208447258`, 0.9111720454732639}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.1797926703519754, 1.069314876015185}, {0.23449252012421495`,
       0.9845312778309677}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.2766013558375121, -0.05352406376640201}, {0.275779120352964,
       0.04737021761255583}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.2604238902923764, 0.0225726388937428}, {
      0.29195658589809964`, 0.11841637209526812`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.2286308625073492, 0.1272377192101563}, {0.3237496136831268, 
      0.16089414892171172`}}]}, 
    {Arrowheads[{{0.047255982785338504`, 1.}}], 
     ArrowBox[{{0.23135936420849615`, 0.24077339012898558`}, {
      0.32102111198197986`, 0.19450133514573953`}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.23954966808598668`, 0.3258866177113164}, {
      0.3128308081044894, 0.25653096470626585`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.24394440267158865`, 0.4035782753935234}, {
      0.3084360735188874, 0.32598216416691594`}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.24650031340547143`, 0.47913879575690427`}, {
      0.30588016278500463`, 0.3975645009463923}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.248145682542396, 0.5538585741227721}, {0.30423479364808004`,
       0.46998757972338157`}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.24928717251459645`, 0.6281712917360417}, {
      0.3030933036758796, 0.5428177192529688}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.2501234572858751, 0.7022585950140476}, {0.302257018904601, 
      0.6158732731178199}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.2507617079761588, 0.7762088312553143}, {0.3016187682143172, 
      0.6890658940194103}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.25126446407928926`, 0.8500698081970909}, {
      0.30111601211118677`, 0.7623477742204908}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.25167055695521084`, 0.9238695411441674}, {
      0.3007099192352652, 0.8356908984162713}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.25200532680636645`, 0.9976254903748053}, {
      0.3003751493841096, 0.9090778063284903}}]}, 
    {Arrowheads[{{0.047255982785338574`, 1.}}], 
     ArrowBox[{{0.25228599457978185`, 1.0713490846606153`}, {
      0.30009448161069424`, 0.9824970691855375}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.3456112789426004, -0.05352435706006035}, {
      0.3448644829621613, 0.04737051090621417}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.32967258141774425`, 0.02250696052772129}, {
      0.3608031804870175, 0.11848205046128965`}}]}, 
    {Arrowheads[{{0.047255982785338504`, 1.}}], 
     ArrowBox[{{0.2952205019372365, 0.13748225591481775`}, {
      0.3952552599675252, 0.15064961221705028`}}]}, 
    {Arrowheads[{{0.0472559827853385, 1.}}], 
     ArrowBox[{{0.30631040093615836`, 0.24972683631844195`}, {
      0.3841653609686033, 0.18554788895628316`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.3144381251010145, 0.33116449244201085`}, {
      0.3760376368037472, 0.2512530899755714}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.31825111864558225`, 0.40740412952273913`}, {
      0.3722246432591795, 0.32215631003770023`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.32038923212789544`, 0.48225640519119234`}, {
      0.3700865297768662, 0.39444689151210416`}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.3217459556787887, 0.5565684850686191}, {
      0.36872980622597296`, 0.46727766877753446`}}]}, 
    {Arrowheads[{{0.047255982785338484`, 1.}}], 
     ArrowBox[{{0.3226806353542524, 0.6306193732789964}, {0.3677951265505093, 
      0.5403696377100142}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.3233627673158622, 0.704525393201866}, {0.36711299458889946`,
       0.6136064749300016}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.32388216008736825`, 0.778343119472555}, {0.3665936018173934,
       0.6869316058021697}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.3242906812718438, 0.8521032118619138}, {0.3661850806329179, 
      0.7603143705556679}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.324620326988819, 0.9258236719759627}, {0.3658554349159427, 
      0.8337367675844759}}]}, 
    {Arrowheads[{{0.04725598278533848, 1.}}], 
     ArrowBox[{{0.32489188648200595`, 0.9995157418719756}, {
      0.3655838754227557, 0.9071875548313202}}]}, 
    {Arrowheads[{{0.04725598278533847, 1.}}], 
     ArrowBox[{{0.3251194451651276, 1.0731867944889644`}, {0.3653563167396341,
       0.9806593593571884}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.41461250586231263`, -0.053524679263687674`}, {
      0.4139585417567347, 0.0473708331098415}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.3990218740573216, 0.022410162743624555`}, {
      0.42954917356172573`, 0.11857884824538636`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.36493521723988476`, 0.15453638119223895`}, {
      0.46363583037916256`, 0.1335954869396291}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.38354535926939093`, 0.2576389289265425}, {
      0.44502568834965645`, 0.1776357963481826}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.39019638648203303`, 0.33553481611921354`}, {
      0.4383746611370143, 0.2468827662983687}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.393103286265409, 0.4105666351691404}, {0.4354677613536383, 
      0.318993804391299}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.39470924197397367`, 0.4848473708542313}, {
      0.43386180564507365`, 0.39185592584906526`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.39572403394200684`, 0.5588331410398542}, {
      0.4328470136770404, 0.4650130128062994}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.3964223464526874, 0.6326749030793106}, {
      0.43214870116635995`, 0.5383141079097}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.39693192341381045`, 0.7064361311823486}, {
      0.4316391242052368, 0.611695736949519}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.39732003782183223`, 0.78014794363511}, {0.4312510097972151, 
      0.6851267816396147}}]}, 
    {Arrowheads[{{0.047255982785338574`, 1.}}], 
     ArrowBox[{{0.3976254323815947, 0.8538273209546277}, {0.4309456152374526, 
      0.758590261462954}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.39787197568588845`, 0.9274842915093202}, {
      0.4306990719331589, 0.8320761480511184}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.39807516802556403`, 1.0011251492375945`}, {
      0.43049587959348323`, 0.9055781474657013}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.39824551015935195`, 1.0747540395272766`}, {
      0.4303255374596954, 0.9790921143188762}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.48360163761319197`, -0.053525024576315146`}, {
      0.483064695720141, 0.04737117842246897}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.46857238043961374`, 0.022253421224960476`}, {
      0.4980939528937192, 0.11873558976405046`}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.44422550710667247`, 0.17593557456095216`}, {
      0.5224408262266605, 0.11219629357091587`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.4619550048371275, 0.26333262736284735`}, {
      0.5047113284962055, 0.17194209791187778`}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.4663210193678931, 0.3387026841406927}, {0.5003453139654399, 
      0.24371489827688955`}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.46820861771445726`, 0.41290849671316543`}, {
      0.4984577156188757, 0.3166519428472739}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.46925627587109203`, 0.4867967117438202}, {
      0.49741005746224093`, 0.3899065849594763}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.4699216660325222, 0.560556549678808}, {0.49674466730081074`,
       0.4632896041673457}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.4703814803624341, 0.6342524468314696}, {
      0.49628485297089886`, 0.536736564157541}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.4707181557393469, 0.7079120651393945}, {0.4959481775939861, 
      0.6102198029924732}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.4709752811134853, 0.7815491780421965}, {
      0.49569105221984766`, 0.6837255472325282}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.47117805570871074`, 0.8551713922338782}, {
      0.4954882776246222, 0.7572461901837036}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.4713420570856122, 0.9287832432844608}, {
      0.49532427624772074`, 0.8307771962759779}}]}, 
    {Arrowheads[{{0.047255982785338574`, 1.}}], 
     ArrowBox[{{0.47147743135683196`, 1.00238760007898}, {0.495188901976501, 
      0.9043156966243159}}]}, 
    {Arrowheads[{{0.04725598278533859, 1.}}], 
     ArrowBox[{{0.4715910698141259, 1.0759863644509995`}, {
      0.49507526351920705`, 0.9778597893951533}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.5525732386259875, -0.05352537193893198}, {
      0.5521883804216312, 0.047371525785085807`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.5386255588718492, 0.02195713740512672}, {0.5661360601757695,
       0.1190318735838842}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.5310724356570229, 0.18979378361842605`}, {
      0.5736891833905957, 0.09833808451344198}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.5400991387812575, 0.26656837106058673`}, {
      0.5646624802663612, 0.16870635421413838`}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.5422799815747055, 0.34063607412303487`}, {
      0.5624816374729132, 0.24178150829454736`}}]}, 
    {Arrowheads[{{0.04725598278533856, 1.}}], 
     ArrowBox[{{0.5432533203642589, 0.41439646674816744`}, {
      0.5615082986833597, 0.31516397281227193`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.5438039334500165, 0.4880660347841176}, {0.5609576855976022, 
      0.3886372619191789}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.5441579524577355, 0.5616972433471669}, {0.5606036665898831, 
      0.4621489104989868}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.5444046827143562, 0.6353088048739166}, {0.5603569363332624, 
      0.535680206115094}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.5445864661004324, 0.7089090001046573}, {0.5601751529471863, 
      0.6092228680272103}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.5447259588149412, 0.7825020423432126}, {0.5600356602326775, 
      0.6827726829315122}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.5448363785979391, 0.8560902966346184}, {0.5599252404496796, 
      0.7563272857829634}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.5449259554646226, 0.9296751911951657}, {0.559835663582996, 
      0.8298852483652729}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.5450000812751024, 1.003257638694099}, {0.5597615377725162, 
      0.9034456580091966}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.5450624359460163, 1.0768382492629367`}, {0.5596991831016023,
       0.9770079045832161}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.6215180428306318, -0.053525659385114374`}, {
      0.6213388619312724, 0.0473718132312682}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.6106762604743129, 0.021204817011569267`}, {
      0.6321806442875915, 0.11978419397744167`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.6147960391359374, 0.19407687403000032`}, {0.628060865625967,
       0.09405499410186771}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.6170458433157977, 0.2678954541184775}, {0.6258110614461065, 
      0.16737927115624762`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.6176769756114251, 0.3415179299769095}, {0.6251799291504792, 
      0.24089965244067274`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.6179739847557667, 0.4151106248547731}, {0.6248829200061377, 
      0.3144498147056662}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.6181466484875191, 0.48869360684302143`}, {0.624710256274385,
       0.38800968986027506`}}]}, 
    {Arrowheads[{{0.04725598278533856, 1.}}], 
     ArrowBox[{{0.6182595339281206, 0.5622722673572973}, {0.6245973708337836, 
      0.46157388648885633`}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.6183391030183955, 0.6358486407969625}, {0.6245178017435088, 
      0.5351403701920482}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.6183982079240606, 0.7094236607826312}, {0.6244586968378437, 
      0.6087082073492366}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.6184438436381711, 0.7829978147023965}, {0.6244130611237332, 
      0.6822769105723281}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.6184801432908488, 0.8565713814425279}, {0.6243767614710556, 
      0.7558462009750538}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.6185097059114187, 0.9301445319525173}, {0.6243471988504855, 
      0.8294159076079215}}]}, 
    {Arrowheads[{{0.047255982785338616`, 1.}}], 
     ArrowBox[{{0.6185342477490638, 1.0037173767896528`}, {0.6243226570128404,
       0.902985919913643}}]}, 
    {Arrowheads[{{0.04725598278533848, 1.}}], 
     ArrowBox[{{0.6185549477372781, 1.0772899905927154`}, {0.6243019570246261,
       0.9765561632534373}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.6904188583800137, -0.05352570646645755}, {
      0.6905333320961762, 0.047371860312611376`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.7359156526111311, 0.048578081349936506`}, {
      0.6450365378650588, 0.09241092963907442}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.6932208622467079, 0.19444002736408203`}, {0.687731328229482,
       0.093691840767786}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.6925374135313932, 0.26804404858710346`}, {
      0.6884147769447968, 0.16723067668762168`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.6923112649869845, 0.34162421715695557`}, {
      0.6886409254892055, 0.24079336526062667`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.6921985085302734, 0.41519962392181003`}, {
      0.6887536819459164, 0.31436081563862933`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.6921309569888885, 0.4887733148664299}, {0.6888212334873015, 
      0.3879299818368666}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.6920859654104827, 0.5623461999875018}, {0.6888662250657072, 
      0.46149995385865183`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.6920538495683679, 0.6359186436905657}, {0.6888983409078219, 
      0.5350703672984449}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.6920297741880249, 0.7094908198195241}, {0.6889224162881649, 
      0.6086410483123434}}]}, 
    {Arrowheads[{{0.04725598278533848, 1.}}], 
     ArrowBox[{{0.6920110557152213, 0.7830628216623008}, {0.6889411347609686, 
      0.6822119036124239}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.6919960852390973, 0.8566347037135631}, {0.6889561052370926, 
      0.7557828787040186}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.6919838395139969, 0.930206499920049}, {0.6889683509621931, 
      0.8293539396403897}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.6919736367009538, 1.0037782325221933`}, {0.688978553775236, 
      0.9029250641811023}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.6919650049422871, 1.0773499166955116`}, {0.6889871855339028,
       0.9764962371506412}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.7592397908320415, -0.05352493984164651}, {
      0.7598076853584339, 0.047371093687800334`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.7822123757056911, 0.11555345294030817`}, {
      0.7368351004847843, 0.025435558048702754`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.7681850714075407, 0.1937656757835253}, {0.7508624047829349, 
      0.09436619234834273}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.7667050579187531, 0.2675724371555254}, {0.7523424182717225, 
      0.16770228811919968`}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.7661437801453518, 0.34122137027443034`}, {
      0.7529036960451236, 0.2411962121431519}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.7658485141409267, 0.41483099629281706`}, {
      0.7531989620495488, 0.31472944326762226`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.7656663962276973, 0.4884251021231809}, {0.7533810799627783, 
      0.38827819458011553`}}]}, 
    {Arrowheads[{{0.047255982785338504`, 1.}}], 
     ArrowBox[{{0.7655428501004137, 0.5620115318025322}, {0.753504626090062, 
      0.4618346220436214}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.7654535353160377, 0.6355936125370694}, {0.7535939408744379, 
      0.5353953984519414}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.7653859567029302, 0.7091729935938857}, {0.7536615194875453, 
      0.6089588745379819}}]}, 
    {Arrowheads[{{0.04725598278533859, 1.}}], 
     ArrowBox[{{0.7653330405484774, 0.7827505847104728}, {0.7537144356419981, 
      0.6825241405642519}}]}, 
    {Arrowheads[{{0.047255982785338504`, 1.}}], 
     ArrowBox[{{0.7652904820566689, 0.856326928500847}, {0.7537569941338065, 
      0.7560906539167348}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.7652555113215781, 0.9299023685492406}, {0.7537919648688973, 
      0.829658071011198}}]}, 
    {Arrowheads[{{0.04725598278533859, 1.}}], 
     ArrowBox[{{0.7652262652407283, 1.0034771329447871`}, {0.7538212109497472,
       0.9032261637585086}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.7652014445115816, 1.0770513790227076`}, {0.753846031678894, 
      0.976794774823445}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.8278913242742183, -0.05352115510058045}, {
      0.8292514376305428, 0.04736730894673427}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.8483323349490338, 0.11691204225254817`}, {
      0.8088104269557274, 0.02407696873646275}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.8411529951308044, 0.19292067801375729`}, {
      0.8159897667739567, 0.09521119011811073}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.8398006125917302, 0.2668205648341687}, {0.817342149313031, 
      0.16845416044055636`}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.8392312179441919, 0.34051853564992673`}, {
      0.8179115439605693, 0.2418990467676555}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.8389176086665636, 0.41415671817397337`}, {
      0.8182251532381976, 0.315403721386466}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.8387190635638574, 0.4877693330319206}, {0.8184236983409038, 
      0.38893396367137595`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.8385820792297872, 0.5613686929222816}, {0.818560682674974, 
      0.462477460923872}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.838481869513703, 0.6349603041640708}, {0.8186608923910581, 
      0.5360287068249397}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.8384053791287347, 0.7085469961140504}, {0.8187373827760265, 
      0.6095848720178173}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.8383450782363283, 0.7821303708601794}, {0.818797683668433, 
      0.6831443544145451}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.8382963190677497, 0.8557114032630485}, {0.8188464428370116, 
      0.7567061791545332}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.8382560774906005, 0.9292907204291189}, {0.8188866844141606, 
      0.8302697191313198}}]}, 
    {Arrowheads[{{0.04725598278533856, 1.}}], 
     ArrowBox[{{0.8382223009805498, 1.002868744027303}, {0.8189204609242112, 
      0.9038345526759929}}]}, 
    {Arrowheads[{{0.04725598278533848, 1.}}], 
     ArrowBox[{{0.8381935474386507, 1.0764457680217292`}, {0.8189492144661106,
       0.9774003858244236}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.8960706767643422, -0.05350197283366373}, {
      0.8991673708547048, 0.047348126679817554`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9163882888341501, 0.11732182350416107`}, {
      0.8788497587848967, 0.023667187484849868`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9129404797548897, 0.19213188884950502`}, {
      0.8822975678641571, 0.09599997928236301}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.912068171383597, 0.2659727032891541}, {0.88316987623545, 
      0.16930202198557096`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.91167082628498, 0.33966113757852684`}, {0.8835672213340668, 
      0.24275644483905537`}}]}, 
    {Arrowheads[{{0.04725598278533851, 1.}}], 
     ArrowBox[{{0.9114435827542977, 0.41329789276156276`}, {
      0.8837944648647491, 0.31626254679887655`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9112964788516944, 0.4869109960110998}, {0.8839415687673524, 
      0.38979230069219667`}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9111934789128281, 0.5605113181980032}, {0.8840445687062187, 
      0.4633348356481504}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9111173350980702, 0.6341039553360699}, {0.8841207125209766, 
      0.5368850556529408}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.9110587555785706, 0.7076916127914606}, {0.8841792920404762, 
      0.6104402553404069}}]}, 
    {Arrowheads[{{0.04725598278533847, 1.}}], 
     ArrowBox[{{0.9110122916059114, 0.7812758597284148}, {0.8842257560131355, 
      0.6839988655463098}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.9109745368915294, 0.8548576688100106}, {0.8842635107275174, 
      0.7575599136075711}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.9109432526097732, 0.9284376749995451}, {0.8842947950092737, 
      0.8311227645608936}}]}, 
    {Arrowheads[{{0.047255982785338595`, 1.}}], 
     ArrowBox[{{0.9109169067149578, 1.0020163103948128`}, {0.884321140904089, 
      0.904686986308483}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9108944154417118, 1.0755938792439146`}, {0.884343632177335, 
      0.9782522746022381}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.961701447711184, -0.053280803626799024`}, {
      0.9716318856221484, 0.04712695747295285}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.9849379058809524, 0.11751838069760223`}, {
      0.9483954274523799, 0.023470630291408688`}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.9839926511781945, 0.19144623885862583`}, {0.949340682155138,
       0.0966856292732422}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9837057567185149, 0.26512159614436026`}, {
      0.9496275766148176, 0.17015312913036484`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.9835670883108166, 0.3387425557324644}, {0.9497662450225158, 
      0.24367502668511778`}}]}, 
    {Arrowheads[{{0.04725598278533853, 1.}}], 
     ArrowBox[{{0.9834853579162163, 0.412342964089126}, {0.9498479754171163, 
      0.31721747547131335`}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.9834314707492325, 0.48593341340524054`}, {
      0.9499018625840998, 0.3907698832980559}}]}, 
    {Arrowheads[{{0.047255982785338525`, 1.}}], 
     ArrowBox[{{0.9833932696761577, 0.559518284384595}, {0.9499400636571748, 
      0.4643278694615586}}]}, 
    {Arrowheads[{{0.047255982785338546`, 1.}}], 
     ArrowBox[{{0.9833647758258254, 0.6330997171004933}, {0.949968557507507, 
      0.5378892938885173}}]}, 
    {Arrowheads[{{0.04725598278533852, 1.}}], 
     ArrowBox[{{0.9833427062973698, 0.7066788810843373}, {0.9499906270359627, 
      0.6114529870475304}}]}, 
    {Arrowheads[{{0.04725598278533855, 1.}}], 
     ArrowBox[{{0.9833251085426259, 0.7802564694728267}, {0.9500082247907065, 
      0.685018255801898}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9833107484745082, 0.8538329191516304}, {0.9500225848588242, 
      0.7585846632659512}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9832988078493293, 0.9274085191538276}, {0.9500345254840032, 
      0.832151920406611}}]}, 
    {Arrowheads[{{0.0472559827853385, 1.}}], 
     ArrowBox[{{0.9832887227206903, 1.0009834683261036`}, {0.9500446106126421,
       0.905719828377192}}]}, 
    {Arrowheads[{{0.04725598278533854, 1.}}], 
     ArrowBox[{{0.9832800917724317, 1.0745579079587504`}, {0.9500532415609007,
       0.9792882458874024}}]}}},
  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.05044914919200435, 
   1.0171154825253375`}, {-0.05352573893559406, 1.0773718927817477`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.568395336771345*^9, {3.568423436416697*^9, 3.568423450203159*^9}, {
   3.5684235121028595`*^9, 3.5684235604336023`*^9}, 3.569109413238491*^9, {
   3.5691094554619055`*^9, 3.569109493787098*^9}, {3.569109828036216*^9, 
   3.5691098577859173`*^9}, {3.569109900853381*^9, 3.569109909539878*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.16"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]", "=", "2.5"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]1", "=", 
   RowBox[{
    RowBox[{"-", "\[Gamma]"}], "-", "\[Epsilon]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]2", "=", 
   FractionBox[
    RowBox[{"\[Gamma]", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]", "-", "\[Beta]"}], ")"}]}], 
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "+", "\[Epsilon]"}], ")"}]]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"\[Beta]", "/", "\[Gamma]"}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"e1", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     RowBox[{
      FractionBox["\[Gamma]", 
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Gamma]"}], ")"}]], 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["1", "r0"]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"\[Epsilon]", "+", "\[Gamma]"}], ")"}]], 
      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[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "1"]}], "+", 
      RowBox[{"\[Gamma]", " ", "i"}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Epsilon]", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s", "-", "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", "]"}], "]"}], "+", "0.4"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "+", "\[Delta]"}]}], "}"}], ",", 
   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.568395299169194*^9, 
   3.5683953328121185`*^9}, {3.568424375597124*^9, 3.568424494708706*^9}, {
   3.568424529325488*^9, 3.568424654573662*^9}}],

Cell[BoxData["0.4`"], "Output",
 CellChangeTimes->{
  3.568424459759667*^9, {3.5684245014438095`*^9, 3.568424530248002*^9}, {
   3.568424561297229*^9, 3.5684246552261715`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.568424459759667*^9, {3.5684245014438095`*^9, 3.568424530248002*^9}, {
   3.568424561297229*^9, 3.5684246552274218`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2.5`", ",", 
   RowBox[{"-", "1.1538461538461537`"}], ",", 
   RowBox[{"-", "0.3461538461538461`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.568424459759667*^9, {3.5684245014438095`*^9, 3.568424530248002*^9}, {
   3.568424561297229*^9, 3.5684246552286716`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{-0.04414986417625182, -0.13473683742097844`}, {
      0.04414986417625182, 0.2424291451132863}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{-0.19088881102782734`, 0.171070905160244}, {
      0.19088881102782734`, 0.2366214025320638}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{-0.17647901256197648`, 0.43364535952635197`}, {
      0.17647901256197648`, 0.27404694816595576`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{-0.15832912609842217`, 0.6154017136849658}, {
      0.15832912609842217`, 0.3922905940073419}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{-0.1482174113604584, 0.7785231528140687}, {0.1482174113604584,
       0.5291691548782387}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{-0.1420547980938239, 0.9355017250938746}, {0.1420547980938239,
       0.6721905825984327}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{-0.13795152586934617`, 1.0897951575657834`}, {
      0.13795152586934617`, 0.8178971501265238}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{-0.13503511972734578`, 1.2426923692870584`}, {
      0.13503511972734578`, 0.9649999384052484}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{-0.13285978148496427`, 1.3947753331022903`}, {
      0.13285978148496427`, 1.1129169745900165`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{-0.13117654480083832`, 1.546343414157201}, {
      0.13117654480083832`, 1.2613488935351056`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{-0.12983615038863286`, 1.6975657737812933`}, {
      0.12983615038863286`, 1.410126533911013}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{-0.12874391357951687`, 1.8485450129234475`}, {
      0.12874391357951687`, 1.5591472947688587`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{-0.12783696285479823`, 1.9993468962157428`}, {
      0.12783696285479823`, 1.708345411476563}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{-0.12707195392811466`, 2.150015485879011}, {
      0.12707195392811466`, 1.8576768218132946`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{-0.1264180534948337, 2.3005813945097993`}, {
      0.1264180534948337, 2.007110913182507}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{0.28902990930879185`, -0.12746402634071458`}, {
      0.42525580497692245`, 0.23515633403302244`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{0.1781204662473585, 0.27776326052721995`}, {
      0.5361652480383559, 0.12992904716508785`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.2118005589981476, 0.48186322876999044`}, {
      0.5024851552875668, 0.2258290789223173}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.2249025329176509, 0.6453567603421093}, {
      0.48938318136806347`, 0.36233554735019835`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.23146190848003437`, 0.8012132269841302}, {
      0.48282380580567996`, 0.5064790807081773}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.23536588433724054`, 0.9544553301812659}, {
      0.4789198299484738, 0.6532369775110414}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{0.23794871217048924`, 1.106507579577564}, {0.4763370021152251,
       0.8011847281147431}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.2397820279986388, 1.257921430528113}, {0.47450368628707545`,
       0.9497708771641938}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.24115004173880986`, 1.4089539288823631`}, {
      0.4731356725469045, 1.0987383788099438`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.2422096524679765, 1.5597407129725154`}, {
      0.47207606181773787`, 1.2479515947197912`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.2430544453504579, 1.7103600171194389`}, {
      0.47123126893525635`, 1.3973322905728676`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.2437436625215914, 1.8608600951421066`}, {
      0.47054205176412284`, 1.5468322125501996`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.24431661710891955`, 2.0112723100650136`}, {
      0.4699690971767948, 1.6964199976272925`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.24480041625593596`, 2.161617922796144}, {0.4694852980297783,
       1.8460743848961616`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.24521435369962713`, 2.3119118529051192`}, {
      0.4690713605860872, 1.9957804547871867`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.5349912155151635, -0.019408455651527504`}, {
      0.8935802130562651, 0.12710076334383535`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.592184172513101, 0.3541923164137152}, {0.8363872560583278, 
      0.05349999127859259}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.60589508334264, 0.514358540364463}, {0.8226763452287885, 
      0.19333376732784469`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.6107906917164979, 0.6675578987071692}, {0.8177807368549307, 
      0.34013440898513847`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.6132949883769081, 0.8191145064804473}, {0.8152764401945205, 
      0.48857780121186023`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.6148149304091504, 0.9700337534347594}, {0.8137564981622782, 
      0.6376585542575479}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{0.6158352820588936, 1.1206402409607543`}, {0.8127361465125349,
       0.7870520667315528}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.6165675028057023, 1.2710702736590216`}, {0.8120039257657263,
       0.9366220340332854}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.6171185038326312, 1.4213910383243347`}, {0.8114529247387974,
       1.086301269367972}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.6175481376496714, 1.5716394682797938`}, {0.8110232909217573,
       1.2360528394125128`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.6178925184747384, 1.7218375432189055`}, {0.8106789100966902,
       1.385854764473401}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.6181747274021597, 1.8719991594758771`}, {0.8103967011692688,
       1.5356931482164289`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.6184102044242741, 2.022133532192985}, {0.8101612241471546, 
      1.6855587754993213`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.618609668405661, 2.1722470129496587`}, {0.8099617601657675, 
      1.8354452947426472`}}]}, 
    {Arrowheads[{{0.03595117964792507, 1.}}], 
     ArrowBox[{{0.6187807932524514, 2.322344121669124}, {0.8097906353189772, 
      1.9853481860231819`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.0096516521261991`, 0.23741185691606023`}, {
      1.133205490730944, -0.12971954922375237`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.9984655358843038, 0.383259504927412}, {1.144391606972839, 
      0.024432802764895817`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.9964292643990945, 0.5324178734636204}, {1.1464278784580482`,
       0.17527443422868735`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.9955756995908793, 0.6820569754480292}, {1.1472814432662635`,
       0.3256353322442784}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.9951063640424828, 0.8318564787201781}, {1.1477507788146601`,
       0.4758358289721294}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.9948094896362716, 0.9817289000790181}, {1.1480476532208712`,
       0.6259634076132892}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{0.9946047739350077, 1.1316405835696652`}, {
      1.1482523689221351`, 0.7760517241226419}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{0.994455070136004, 1.2815758227278682`}, {1.1484020727211388`,
       0.9261164849644388}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.9943408305043088, 1.4315263027126899`}, {
      1.1485163123528341`, 1.076166004979617}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.9942507877904356, 1.581487209952972}, {1.1486063550667072`, 
      1.2262050977393346`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.994177990574972, 1.7314555648012666`}, {1.1486791522821707`,
       1.37623674289104}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.9941179174401452, 1.8814294241221639`}, {
      1.1487392254169977`, 1.5262628835701424`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{0.9940675004953191, 2.031407466654155}, {1.1487896423618238`, 
      1.676284841038151}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.9940245847379452, 2.1813887626656645`}, {
      1.1488325581191978`, 1.8263035450266412`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{0.993987612014192, 2.3313726389322413`}, {1.1488695308429508`,
       1.9763196687600642`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{1.4062131948995304`, 0.24623343120386704`}, {
      1.4509296622433265`, -0.13854112351155917`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{1.3866006027399742`, 0.3929260440541465}, {1.470542254402883, 
      0.014766263638161303`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{1.3802465507239021`, 0.5414027087384381}, {
      1.4768963064189553`, 0.16628959895386958`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.3771152522093943`, 0.6905679174845687}, {
      1.4800276049334629`, 0.31712439020773897`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{1.3752524086461206`, 0.8400445351931607}, {
      1.4818904484967366`, 0.4676477724991468}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{1.3740174380753458`, 0.989686454166063}, {1.4831254190675114`,
       0.6180058535262443}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.3731387949394096`, 1.1394262665486175`}, {
      1.4840040622034478`, 0.7682660411436897}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{1.3724817474476367`, 1.289228738717204}, {1.4846611096952202`,
       0.9184635689751032}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.3719718710891329`, 1.4390737036189913`}, {1.485170986053724,
       1.0686186040733154`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{1.3715647078787325`, 1.5889487980679626`}, {1.485578149264125,
       1.218743509624344}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.3712320656873649`, 1.7388460256463534`}, {
      1.4859107914554923`, 1.368846282045953}}]}, 
    {Arrowheads[{{0.03595117964792508, 1.}}], 
     ArrowBox[{{1.3709552035999586`, 1.8887599870822789`}, {
      1.4861876535428988`, 1.5189323206100274`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{1.3707211780503334`, 2.0386869058914945`}, {
      1.4864216790925235`, 1.6690054018008118`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.3705207622489672`, 2.1886240617289925`}, {
      1.4866220948938902`, 1.8190682459633136`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{1.3703472015497635`, 2.3385694455279826`}, {
      1.4867956555930935`, 1.9691228621643229`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{1.775979841281888, 0.24728347106709084`}, {
      1.795448730146684, -0.13959116337478297`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{1.7633365711163533`, 0.3962311662338508}, {
      1.8080920003122183`, 0.011461141458456975`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{1.7578615887700118`, 0.5455150933615882}, {1.81356698265856, 
      0.16217721433071947`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{1.7548126288689356`, 0.6950472069453798}, {1.816615942559636, 
      0.31264510074692786`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{1.7528710554869136`, 0.8447232801087645}, {1.818557515941658, 
      0.462969027583543}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.7515266729484873`, 0.9944870787164884}, {
      1.8199018984800845`, 0.6132052289758189}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{1.7505408167445653`, 1.1443076517471122`}, {
      1.8208877546840065`, 0.7633846559451948}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.749786997189142, 1.2941668963869284`}, {1.8216415742394296`,
       0.9135254113053787}}]}, 
    {Arrowheads[{{0.035951179647925116`, 1.}}], 
     ArrowBox[{{1.749191945923565, 1.4440536032224909`}, {1.8222366255050069`,
       1.063638704469816}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{1.748710295969637, 1.5939604874589}, {1.8227182754589344`, 
      1.2137318202334066`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{1.7483124577705338`, 1.7438826197375887`}, {
      1.8231161136580378`, 1.3638096879547175`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{1.7479783104090227`, 1.8938165496182349`}, {
      1.8234502610195487`, 1.5138757580740712`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{1.7476936953327205`, 2.0437597916110013`}, {
      1.8237348760958512`, 1.6639325160813045`}}]}, 
    {Arrowheads[{{0.03595117964792507, 1.}}], 
     ArrowBox[{{1.7474483604865307`, 2.1937105108711212`}, {
      1.8239802109420409`, 1.8139817968211847`}}]}, 
    {Arrowheads[{{0.035951179647925116`, 1.}}], 
     ArrowBox[{{1.7472347001140984`, 2.343667323882792}, {1.8241938713144734`,
       1.9640249838095136`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.139249106070233, 0.24749464253786854`}, {
      2.1464651796440526`, -0.13980233484556068`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.133588959232604, 0.39730637165421556`}, {
      2.1521253264816815`, 0.010385936038092264`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{2.130686639798768, 0.5471454915515556}, {2.155027645915517, 
      0.1605468161407522}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.128922555704157, 0.6970263349800285}, {2.156791730010129, 
      0.3106659727122791}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.1277371644536074`, 0.8469371721642449}, {2.157977121260678, 
      0.4607551355280625}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{2.1268859258688697`, 0.9968686274857647}, {2.158828359845416, 
      0.6108236802065427}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.126245036313931, 1.1468145269497214`}, {2.1594692494003547`,
       0.7608777807425856}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.1257451163178365`, 1.2967708377250156`}, {2.159969169396449,
       0.9109214699672913}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.125344270516775, 1.446734863739788}, {2.1603700151975107`, 
      1.0609574439525187`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{2.125015706353784, 1.5967047503502694`}, {2.1606985793605014`,
       1.2109875573420372`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{2.1247414919882863`, 1.7466791860155368`}, {
      2.1609727937259997`, 1.3610131216767696`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.1245091734078705`, 1.8966572197089022`}, {
      2.1612051123064155`, 1.511035087983404}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.1243098313046858`, 2.046638146253039}, {2.1614044544095994`,
       1.6610541614392667`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{2.1241369102264245`, 2.1966214323242106`}, {
      2.1615773754878616`, 1.8110708753680955`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{2.1239854841836228`, 2.346606667439967}, {2.1617288015306633`,
       1.9610856402523387`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.5, 0.24752825188838606`}, {2.5, -0.1398359441960782}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.5, 0.39752825188838603`}, {2.5, 0.010164055803921768`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.5, 0.5475282518883859}, {2.5, 0.16016405580392173`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.5, 0.697528251888386}, {2.5, 0.3101640558039217}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.5, 0.8475282518883859}, {2.5, 0.4601640558039216}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.5, 0.9975282518883858}, {2.5, 0.6101640558039215}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.5, 1.1475282518883856`}, {2.5, 0.7601640558039214}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.5, 1.2975282518883855`}, {2.5, 0.9101640558039213}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{2.5, 1.4475282518883854`}, {2.5, 1.0601640558039214`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{2.5, 1.5975282518883853`}, {2.5, 1.2101640558039213`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{2.5, 1.7475282518883852`}, {2.5, 1.3601640558039212`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{2.5, 1.8975282518883851`}, {2.5, 1.510164055803921}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{2.5, 2.047528251888385}, {2.5, 1.660164055803921}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{2.5, 2.197528251888385}, {2.5, 1.810164055803921}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{2.5, 2.347528251888385}, {2.5, 1.9601640558039208`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.8595183130959594`, 0.24751368419405634`}, {
      2.8547674011897555`, -0.13982137650174847`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{2.8639989139395667`, 0.3974068667691051}, {
      2.8502868003461477`, 0.010285440923202743`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{2.866756507183464, 0.5472895120545389}, {2.8475292071022507`, 
      0.16040279563776885`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{2.8686236333153166`, 0.697187682961134}, {2.845662080970398, 
      0.3105046247311737}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.86997130459665, 0.8471029416647607}, {2.8443144096890647`, 
      0.46058936602754674`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{2.870989688874072, 0.9970326449707876}, {2.8432960254116426`, 
      0.6106596627215197}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.8717862717561387`, 1.1469738978668}, {2.842499442529576, 
      0.7607184098255071}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.872426368492218, 1.296924297049559}, {2.8418593457934964`, 
      0.9107680106427479}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.8729519505473062`, 1.4468819734956946`}, {
      2.8413337637384077`, 1.0608103341966122`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.8733912159846655`, 1.596845495650701}, {2.840894498301049, 
      1.2108468120416056`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.873763809513714, 1.7468137652329518`}, {2.8405219047720007`,
       1.3608785424593546`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{2.8740838362927468`, 1.8967859328640733`}, {2.840201877992967,
       1.5109063748282332`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{2.8743616855620027`, 2.046761334819328}, {2.8399240287237113`,
       1.6609309728729782`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{2.874605178490284, 2.1967394467186634`}, {2.83968053579543, 
      1.8109528609736427`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{2.874820315360237, 2.3467198497536392`}, {2.839465398925477, 
      1.9609724579386663`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{3.218342814574091, 0.24748575475281476`}, {
      3.2102286139973377`, -0.1397934470605069}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{3.226400714211709, 0.3971489781370421}, {3.20217071435972, 
      0.01054332955526574}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{3.2316321563051025`, 0.5467499019987204}, {3.196939272266326, 
      0.16094240569358734`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{3.2352949543503016`, 0.6963854146060035}, {3.193276474221127, 
      0.3113068930863042}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.237999954599001, 0.8460709959150302}, {3.190571473972428, 
      0.4616213117772773}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.240078261973301, 0.9958031792081455}, {3.188493166598128, 
      0.6118891284841618}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.241724516314319, 1.1455747830210263`}, {3.1868469122571104`,
       0.7621175246712808}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{3.2430604829775116`, 1.2953788345791668`}, {
      3.1855109455939172`, 0.9123134731131401}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.244166179870712, 1.4452094546079886`}, {3.1844052487007164`,
       1.0624828530843182`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{3.245096329830923, 1.59506189867844}, {3.183475098740505, 
      1.2126304090138667`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.2458896110086335`, 1.7449323878191108`}, {3.182681817562795,
       1.3627599198731957`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{3.2465741290622154`, 1.8948179145157908`}, {3.181997299509213,
       1.5128743931765154`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{3.2471707949638624`, 2.044716074396334}, {3.181400633607566, 
      1.6629762332959719`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.247695486705887, 2.194624932039308}, {3.1808759418655423`, 
      1.8130673756529978`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{3.248160476391316, 2.344542917306705}, {3.1804109521801127`, 
      1.9631493903856008`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.5767384777144513`, 0.24745545113653714`}, {
      3.566118665142692, -0.13976314344422927`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.5876967313853965`, 0.39684382759809317`}, {
      3.555160411471747, 0.01084848009421463}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{3.5951013656334556`, 0.5460761044692918}, {
      3.5477557772236876`, 0.16161620322301598`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.6004180623978144`, 0.6953464528417037}, {3.542439080459329, 
      0.31234585485060395`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.6044122983771785`, 0.8446990523272105}, {
      3.5384448444799648`, 0.46299325536509695`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{3.6075191176859787`, 0.994136005317226}, {3.535338025171164, 
      0.6135563023750813}}]}, 
    {Arrowheads[{{0.03595117964792508, 1.}}], 
     ArrowBox[{{3.610002832064864, 1.143648107256555}, {3.5328543107922794`, 
      0.7640442004357522}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.612032827091632, 1.2932242136210113`}, {3.530824315765511, 
      0.9144680940712957}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.613722470027114, 1.4428540405688428`}, {3.529134672830029, 
      1.064838267123464}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.6151504085580575`, 1.5925288400154558`}, {
      3.5277067342990853`, 1.2151634676768508`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.616372872262804, 1.7422413897852895`}, {3.5264842705943393`,
       1.365450917907017}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.617431105574299, 1.8919857880389834`}, {3.5254260372828443`,
       1.5157065196533228`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.6183560350151276`, 2.041757218617159}, {3.524501107842016, 
      1.6659350890751468`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{3.619171298377771, 2.191551740138876}, {3.5236858444793717`, 
      1.8161405675534297`}}]}, 
    {Arrowheads[{{0.03595117964792507, 1.}}], 
     ArrowBox[{{3.6198952681049223`, 2.34136611122489}, {3.5229618747522213`, 
      1.9663261964674157`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.934850677802102, 0.247426437271765}, {
      3.9222921793407557`, -0.13973412957945713`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{3.948198219152748, 0.3965312445862469}, {3.9089446379901096`, 
      0.011161063106060937`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.957499885377621, 0.5453556823006229}, {3.899642971765237, 
      0.16233662539168475`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.964308878303656, 0.69420263466222}, {3.892833978839202, 
      0.3134896730300877}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.9694903774127535`, 0.8431564671620475}, {
      3.8876524797301037`, 0.46453584053026}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.9735570527635575`, 0.9922315267339801}, {
      3.8835858043793006`, 0.6154607809583272}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{3.9768294254090217`, 1.1414199282477573`}, {3.880313431733836,
       0.76627237944455}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{3.9795171638944518`, 1.2907078330488122`}, {3.877625693248406,
       0.9169844746434948}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{3.9817627528466026`, 1.4400810542378204`}, {3.875380104296255,
       1.0676112534544864`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.98366619904804, 1.5895268511955825`}, {3.8734766580948174`, 
      1.2181654564967241`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{3.985299658354954, 1.739034336643189}, {3.871843198787903, 
      1.3686579710491174`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{3.9867164442247756`, 1.8885943940453844`}, {3.870426412918082,
       1.5190979136469218`}}]}, 
    {Arrowheads[{{0.03595117964792508, 1.}}], 
     ArrowBox[{{3.9879567702635703`, 2.038199445908292}, {3.869186086879288, 
      1.6694928617840137`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{3.989051522874899, 2.1878432008199677`}, {3.868091334267959, 
      1.8198491068723381`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{3.990024806428219, 2.337520423824371}, {3.8671180507146388`, 
      1.9701718838679347`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{4.29276578898731, 0.24739984511457522`}, {
      4.278662782441261, -0.13970753742226735`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{4.308110914029864, 0.39622896529804696`}, {4.263317657398707, 
      0.011463342394260834`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{4.319068906060393, 0.5446345822258852}, {4.2523596653681786`, 
      0.16305772546642247`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{4.327211803176075, 0.6930304849799698}, {4.244216768252496, 
      0.31466182271233795`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{4.333468622166909, 0.8415487868911126}, {4.237959949261662, 
      0.4661435208011949}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{4.338411142169756, 0.9902215718114862}, {4.233017429258815, 
      0.6174707358808211}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{4.342406093857815, 1.1390454896750328`}, {4.229022477570756, 
      0.7686468180172742}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{4.3456977095239235`, 1.2880057150155757`}, {4.225730861904648,
       0.9196865926767311}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{4.3484541266687575`, 1.4370849801331835`}, {4.222974444759814,
       1.0706073275591232`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{4.350794497650502, 1.5862668794131185`}, {4.22063407377807, 
      1.2214254282791879`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{4.35280542133257, 1.7355369203245017`}, {4.2186231500960005`, 
      1.3721553873678047`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{4.354551243954989, 1.8848826923741764`}, {4.216877327473582, 
      1.5228096153181299`}}]}, 
    {Arrowheads[{{0.03595117964792513, 1.}}], 
     ArrowBox[{{4.356080715766812, 2.0342937102820984`}, {4.215347855661758, 
      1.6733985974102077`}}]}, 
    {Arrowheads[{{0.03595117964792507, 1.}}], 
     ArrowBox[{{4.357431411357206, 2.1837611587555776`}, {4.213997160071365, 
      1.8239311489367283`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{4.358632737413712, 2.333277629635099}, {4.212795834014859, 
      1.9744146780572067`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{4.650538345300266, 0.2473758782583707}, {
      4.635175940414019, -0.13968357056606284`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{4.667575812182027, 0.3959444164329036}, {4.618138473532258, 
      0.011747891259404175`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{4.679984669618234, 0.5439364004624525}, {4.605729616096051, 
      0.1637559072298552}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{4.689315798958704, 0.6918736741065604}, {4.59639848675558, 
      0.31581863358574724`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{4.6965381992961, 0.8399404828345414}, {4.589176086418184, 
      0.4677518248577662}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{4.702269633234855, 0.988190698352247}, {4.583444652479431, 
      0.6195016093400603}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{4.706915654103746, 1.1366281612727862`}, {4.578798631610539, 
      0.7710641464195209}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{4.7107506821176, 1.2852386080131601`}, {4.574963603596686, 
      0.9224536996791469}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{4.713965761320698, 1.4340025289269294`}, {4.571748524393586, 
      1.0736897787653774`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{4.7166973675451045`, 1.582900269465069}, {4.569016918169179, 
      1.2247920382272375`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{4.719045272371065, 1.7319139050623984`}, {4.566669013343219, 
      1.3757784026299082`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{4.721083931027831, 1.8810277689040902`}, {4.564630354686454, 
      1.526664538788216}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{4.722869934632071, 2.0302284325887263`}, {4.562844351082214, 
      1.6774638751035797`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{4.724447006674842, 2.1795044847736955`}, {4.561267279039443, 
      1.8281878229186104`}}]}, 
    {Arrowheads[{{0.03595117964792512, 1.}}], 
     ArrowBox[{{4.725849428295826, 2.3288462557309946`}, {4.559864857418459, 
      1.9788460519613111`}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{5.008204468392453, 0.24735440121674546`}, {
      4.991795531607545, -0.1396620935244376}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{5.026692567637858, 0.39568009749257727`}, {4.973307432362141, 
      0.012012210199730505`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{5.0403781921941375`, 0.5432725424438729}, {4.959621807805861, 
      0.16441976524843485`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{5.0507676323867265`, 0.6907562996485872}, {4.949232367613271, 
      0.31693600804372046`}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{5.05885371272035, 0.8383698531399605}, {4.941146287279648, 
      0.469322454552347}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{5.065290740837549, 0.9861916343575301}, {4.9347092591624495`, 
      0.6215006733347772}}]}, 
    {Arrowheads[{{0.035951179647925095`, 1.}}], 
     ArrowBox[{{5.070517587677018, 1.1342346926457536`}, {4.92948241232298, 
      0.7734576150465536}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{5.074835502742162, 1.282486582168996}, {4.925164497257836, 
      0.9252057255233112}}]}, 
    {Arrowheads[{{0.03595117964792511, 1.}}], 
     ArrowBox[{{5.078456264958651, 1.4309262757988408`}, {4.921543735041347, 
      1.076766031893466}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{5.081532186762054, 1.5795312631293201`}, {4.918467813237945, 
      1.2281610445629865`}}]}, 
    {Arrowheads[{{0.0359511796479251, 1.}}], 
     ArrowBox[{{5.084175142009083, 1.7282803837719087`}, {4.9158248579909145`,
       1.3794119239203977`}}]}, 
    {Arrowheads[{{0.03595117964792508, 1.}}], 
     ArrowBox[{{5.086468891769353, 1.877154797191546}, {4.913531108230646, 
      1.5305375105007601`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{5.088477245321735, 2.0261381506490177`}, {4.9115227546782645`,
       1.6815541570432886`}}]}, 
    {Arrowheads[{{0.03595117964792509, 1.}}], 
     ArrowBox[{{5.090249579694007, 2.1752164210079212`}, {4.9097504203059925`,
       1.8324758866843844`}}]}, 
    {Arrowheads[{{0.035951179647925074`, 1.}}], 
     ArrowBox[{{5.091824648406872, 2.3243776437446315`}, {4.908175351593126, 
      1.9833146639476742`}}]}}},
  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.19368209804223213`, 
   5.193682098042232}, {-0.1398359441960782, 2.3475282518883858`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.568424459759667*^9, {3.5684245014438095`*^9, 3.568424530248002*^9}, {
   3.568424561297229*^9, 3.568424655278672*^9}}]
}, Open  ]]
},
WindowSize->{884, 1562},
WindowMargins->{{Automatic, -896}, {Automatic, -46}},
Magnification->1.4999996423721313`,
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[CellGroupData[{
Cell[579, 22, 23196, 531, 2322, "Input"],
Cell[23778, 555, 101, 1, 43, "Output"],
Cell[23882, 558, 3329, 61, 371, "Output"],
Cell[27214, 621, 3858, 70, 371, "Output"],
Cell[31075, 693, 5694, 99, 371, "Output"],
Cell[36772, 794, 13994, 250, 376, "Output"]
}, Open  ]],
Cell[50781, 1047, 11770, 218, 359, "Input"],
Cell[CellGroupData[{
Cell[62576, 1269, 23219, 531, 2322, "Input"],
Cell[85798, 1802, 75, 1, 43, "Output"],
Cell[85876, 1805, 3308, 61, 369, "Output"],
Cell[89187, 1868, 5557, 97, 371, "Output"],
Cell[94747, 1967, 4556, 81, 371, "Output"],
Cell[99306, 2050, 14574, 258, 376, "Output"]
}, Open  ]],
Cell[113895, 2311, 12196, 226, 359, "Input"],
Cell[CellGroupData[{
Cell[126116, 2541, 1413, 41, 163, "Input"],
Cell[127532, 2584, 630, 19, 67, "Output"],
Cell[128165, 2605, 355, 9, 43, "Output"],
Cell[128523, 2616, 467, 12, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[129027, 2633, 6605, 166, 814, "Input"],
Cell[135635, 2801, 322, 5, 43, "Output"],
Cell[135960, 2808, 372, 7, 43, "Output"],
Cell[136335, 2817, 451, 9, 43, "Output"],
Cell[136789, 2828, 36852, 698, 561, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[173678, 3531, 6777, 171, 926, "Input"],
Cell[180458, 3704, 350, 5, 43, "Output"],
Cell[180811, 3711, 465, 9, 43, "Output"],
Cell[181279, 3722, 36972, 701, 593, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[218288, 4428, 6160, 156, 858, "Input"],
Cell[224451, 4586, 176, 3, 43, "Output"],
Cell[224630, 4591, 228, 5, 43, "Output"],
Cell[224861, 4598, 305, 7, 43, "Output"],
Cell[225169, 4607, 36010, 683, 561, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)