SIS without vd.nb

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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    278675,       5596]
NotebookOptionsPosition[    276843,       5541]
NotebookOutlinePosition[    277322,       5559]
CellTagsIndexPosition[    277279,       5556]
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[{"\[Gamma]", "*", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"R0", "=", 
  RowBox[{"N", "[", 
   FractionBox["\[Beta]", "\[Gamma]"], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tf", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"szero", "=", "0.90"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"izero", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", "eq1"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", "eq2"}], ",", 
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "szero"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "izero"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "i"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tf"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<S\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Blue"}]}]}], "]"}]}], "      ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"S", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot1a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Blue"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"For", " ", 
     RowBox[{"S", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"plot2", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Red"}]}]}], "]"}]}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"I", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot2a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", "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]", "Red"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Red"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], " ", ";"}], 
  "\[IndentingNewLine]", "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowLegend", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"plot1a", " ", ",", "plot2a"}], "]"}], ",", 
    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[{"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[{"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)\>\"", ",", "\"\<I(t)\>\""}], "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
        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.2"}], "}"}]}], ",", 
     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]"}], "\[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.564274624437256*^9, 3.564274722470863*^9}, 
   3.5642747638122272`*^9, {3.5642747970531287`*^9, 3.5642748024324365`*^9}, {
   3.5642749052103148`*^9, 3.564274962159572*^9}, {3.5642750086032286`*^9, 
   3.56427508275747*^9}, 3.564275136914568*^9, {3.564275234073125*^9, 
   3.564275265760937*^9}, 3.5642753049601793`*^9, {3.5642753485936747`*^9, 
   3.5642753488586903`*^9}, {3.5642755120030217`*^9, 3.564275543131802*^9}, {
   3.5642757403530827`*^9, 3.5642757496856165`*^9}, 3.564277040585451*^9, {
   3.5642780252857733`*^9, 3.564278058153653*^9}, {3.5642782372008944`*^9, 
   3.5642782974883423`*^9}, 3.564278465501952*^9, {3.5642786024247837`*^9, 
   3.564278605454957*^9}, {3.5642788326109495`*^9, 3.564278851760045*^9}, {
   3.564957552972752*^9, 3.5649575726158757`*^9}, {3.564957828559515*^9, 
   3.5649578311986656`*^9}, 3.5649581785675344`*^9, {3.5649582463214097`*^9, 
   3.5649582480745096`*^9}, {3.5649582928020678`*^9, 
   3.5649583123031836`*^9}, {3.5649583613849907`*^9, 
   3.5649584176172075`*^9}, {3.5649584601716413`*^9, 
   3.5649585199930625`*^9}, {3.565205413893314*^9, 3.565205456988779*^9}, {
   3.5652054965510416`*^9, 3.56520559460565*^9}, {3.565205626407469*^9, 
   3.5652056380641356`*^9}, {3.5652056687088885`*^9, 3.565205776364046*^9}, 
   3.565205847304104*^9, {3.565211009007336*^9, 3.565211175587864*^9}, {
   3.5652680442214127`*^9, 3.565268078220357*^9}, {3.565268111401255*^9, 
   3.5652683648857536`*^9}, {3.565268399068709*^9, 3.5652684114434166`*^9}, {
   3.565268456068969*^9, 3.565268492771068*^9}, {3.565268570906537*^9, 
   3.565268636284277*^9}, {3.5652694812356052`*^9, 3.565269547792412*^9}, {
   3.565269593761041*^9, 3.5652696563066187`*^9}, {3.5652696908595953`*^9, 
   3.5652697156060104`*^9}, {3.5652697915233526`*^9, 
   3.5652697923624005`*^9}, {3.565269868986783*^9, 3.5652698836706233`*^9}, {
   3.565269983819351*^9, 3.565270014109084*^9}, {3.565270046430932*^9, 
   3.5652701314807973`*^9}, {3.565270162578576*^9, 3.5652701900931497`*^9}, {
   3.565389617101556*^9, 3.565389739684567*^9}, {3.565389820249175*^9, 
   3.5653900798300223`*^9}, 3.565390515397935*^9, {3.5684976211641216`*^9, 
   3.5684976258693905`*^9}, 3.568497659288302*^9, {3.568497711848308*^9, 
   3.5684977400989237`*^9}, {3.5684977859845486`*^9, 3.5684977880826683`*^9}}],

Cell[BoxData["0.7777777777777778`"], "Output",
 CellChangeTimes->{{3.5652685850513463`*^9, 3.5652686377083583`*^9}, 
   3.5652696587827606`*^9, {3.565269697437971*^9, 3.565269722190387*^9}, 
   3.565269886796802*^9, 3.565270017329268*^9, {3.565270077489709*^9, 
   3.5652700917365236`*^9}, 3.565270134431966*^9, {3.5652701801975837`*^9, 
   3.565270192356279*^9}, {3.5653897122129955`*^9, 3.565389740563617*^9}, {
   3.565389821115225*^9, 3.565389879871585*^9}, 3.5653899112033777`*^9, {
   3.5653899431612053`*^9, 3.565390081153098*^9}, 3.5653905161639795`*^9, 
   3.5684976274334803`*^9, 3.5684976598273325`*^9, {3.568497694503316*^9, 
   3.568497741366997*^9}, 3.568497789145729*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwdmHc4lW8Yx5FEVJJUUoSEn052st7bPBx7i6QyQyUjI6LsjJBKKSoaRvYO
URKKJKJSWck8xw4Zv+fxl+tzua7Due/v9/M+z3vgzAVjBwY6Oroqejo6/JP/
xkp66v465fbZ06MfPowTlOpN+kNOa4T3TtUwhW1UomWLLAujDTucdItoyfxE
JVRvaNQ+M9gN9O36b9iVaITDkaUtElv4QOlt7x3XIBqhJ+IwxUUWhF9vEmv0
XtCIwo5A7yY5YXA8Y8U/2EgjFDhE8xiDxKBCf/u34z00wulf4oMnluLw+PXj
vPxhGnGh4Y9Unp4k5DqpxlMmacR1K6aDK27SwN9UlfhqjkbYvbvsKOEsC3Qe
Wyp4FmlE3aY9Rq7H5aD2xhNPs380QmJ78O0RL3l4X/2hfXKZRpyaURLTd1OE
oJDNxbQVGvEo9S3P31hleDna+N+zVRpRFCf/vd0YIJcxlX/fGo3wqlQyfKCr
An92Zfg4In7V/GQ6yloVNltJX0pBfJZ8rPqspRpM9XaSqxDffy5R4uqiDjoE
88/PiBNmqq+6+2gA2d10wwDioSzvS84emmBafMNlHHG9ZmLytWtksDbZIzWD
mN7gW/+NYC1g8m2y/4uYTqWU/qGfNlDqOf9bQhy5669eewQFXiUqHF5G7G5l
9/pviA7YHR9zXUHcd1XanrilCxKBWUariDlv3v0W9UgPev799xvzU3ZRv3cp
+tAeEQlriOs8eDUOZRvAlseJ1zCn8j3kUTI1hMHTodmYqwOW6JzbDOHTkcgG
zAd0Ni0LWBhB7OLWb5iLP4pEf+0wggFezyHMMQ2r4nw2xuBQ7UvDfNNzxOVU
jzGULdLNYQ7YuX8b/3ETeGKSv4A5U2Rjs1evCWQ5y//DzDRLv6fupClUbX+1
jPmZeMGV1D+m0NjXvoJZ5EyW/so5Mzi5GrGK+bt2RaHZmBlwuK2sc3u6/2HC
0xz4pczWMC8UGSnyT5vD7vnodV4r9ygJP28B5TL566wjrqkRMGcB7wea1/md
zZGzrp6WsI+rZ51z893/rq1ZQp7KyDo3J3y/OOyEPjdN+Z9J+ATBt1J2f0WW
GWp7jl8UukIlIlurB83MOaFSL8qmcQv6Pn95qIwyPPDdhk926DSNOJ6TtyYg
yg/TvO0GK8lov0EXpSYJIVgodFuJqKIRl2ZMOP5Yi4Jw5wuJws80IpRReO5Q
MgkOR6+dJw3QiLFT1c6iJhIgpqO94+c4mie7j5i5jRTwkppLDWZoxDx7ncYd
FxlY5hJeSP5LIxKdmq1bTx0F7g7xWtMlGuEX88FT1OkYHB0qa5FDfdBisO1L
cVeAt7yTDQGoD3RNVzP4A5XA5NZfcTPUB8aTD8623iVgk1uT/jDiJMGqneUf
AQ5kspzUQPO49/riox0dKmBv0vo6BOctita1+FUVsq68CXiBmMFXpsKlTw2E
14pNmxBztfrspU6qQ3TMe4UexIof9wSMz2pA9sFMsWHEnQshEd5LmhAzUyw6
ibifUqoURa8FJUazwXO4D1pa07tWtMDpidHoAmL1nC+HKugosI9bhvwP8bLc
YebfG3Vgr6dWD+6HMFXnZgqbLsSyjY7ifvhvdkqz36sHbw33p+M+/PjUl/l8
vz5k6OrvWs9znaCtj4ABCDmv2q/nZfyO7TCnIWy/wXl3PQ/6LXHGiYYg7m1R
iZk2ELz6docRCFuZfMLsEpv8ZvWWEahPdvZi5tPh/Lm82xguFLmMYWbfN6tX
e98Y5pzDpzFH1m9QquM2gS8djH8xJ6YluL2/bwIWBM8S5u64kKl7vKagqsG5
3gfzxK/vj6SbAj2r+XofnJteDLWImgGfpsx6/hm+FARn5pjBmF3jOn+Z3+NO
OWIOB34cXs/v7/+GivMLzWFhxmOdA2T7fU3FLaB3MG2dn3idCKQvtAAxllfr
zPJOvstT2hJk+TrWWX6TYX5JhSVY+Aysc5N8SMW40y/iSskwZVh8guif+HHa
d24DDDPbBlZTqIQodXE+5zgHtPanGdyYohKCahIW5qrcoP5kxiDEkEb8mugI
z9p7ACbDzMWmY2iEkKlrYojaQSjLpdIblaA8DQ6rWVJEQC6kbWdyK/I3q4jx
7ejDMK4mKTfzC/mAJLxhuFMcfoaJrPWNov64Hsm/1ikJ+x5KDvRN0YjaEjuZ
5jFpyP3PjbN8Hu1/l0Bf0KAsXMvtM69Fz4t9zR79lF458NnOwdeCnhdVUbSX
r6flQfHrNpBHfRD/aetcPqsI+0UFDx1E+Te+IvGmfwcBfSP17k2IM45f9tVI
AKjf1q0gieYRUdPlaxmvAotRf/u9EY9mUn7X3VOFk3TPxjIQl9oeVRi9rwYF
SiWH3iA+/tJ0OOeFOpwoWlDvRuzYN3aFVKoBIXF+5b8R//y0vHq+VBOSVuTt
qYg/awmObXxNhsrWbOdZxME6CaOfa7TgqumyOO7D40sNSWLV2kC6nVyLnxeq
whzZ3xsosMy9NQr3QTejK0u7UQc6uF7m4j6QGlrojbt14VdQZADug2+hkuqe
Xj1wOBCwhvnw2UNuab/0wXP3SxO871NPDzEEjBpAlqVdHOanZaWdZE9D2HZR
p2g9n/nVa1zThhDfLfcBs+b4R9uES0Zw9+7tH+v92JImPTZvBOUvto1g3v3G
X20i9i/xmMfFsObjBGHDlth1zZcN3k050t5mUYnfuVfbV425gO6SXFGbEI0Y
zmIOKzq0H76cuC/scxHNw+W67wM5ARg+lnqrIp1GfM306TiheAj47vCyMb9B
/WF41et97j+QooQeVutGz5sVoeSKjCMg4yJqvHOIRry4adzq1iYBnc+kd2ZR
aURISc1zkd9SkGscaJk8SyPE3Pab24/IwFGDL0H2CzQiq+ziF54fRyGxTfH4
d+TTTn2hjZupx6Bui2z2XeTTDv9WJm+qAoiZJnFUoPy0FaX3xmxUhjQ2Nptg
lJdvqYzMP7YByCVJcjOi7x9KWy4U3aoCqaI9FeaIcxpYm1t3qUJD916leMTK
zknNEnvUYOuH00QJYoN4qaNjB9Xh4LMXfa2IO3rv6R+R1oBlJ+6WX4i3V5P9
sqQ0oX83q+Mo4g+8rOwBymRo0fN+M4V4Wlcrnk1FC35ZD16Zx/lRX1u0VtCG
+ubwxEV8PukbqtRQp0DwLoNa7NNSbS0HqroOJOs/P4TzwihXe3nCUBe8B9kO
4Hy806dT8jmpB8TQwFvMqlNh2+Vs9GE1YVxs3Rfc/MYGTigvorFemFuZeGoS
pQ3h3KW6x5hLfw+QbQoMQWigsnbdh7vUV7xkjKBjfqQT8w3S6UNuJUYgL9g4
sO6zyKiIrQrG8MskdgJzY0y71pzTR2JXdvx0P90EoT7kXl/SQQ8UAfHyXSQq
sbyyK9jSejscNKp9wd1PJaTOvmRd09oDlDB9OXYy6kucU/O5JD64v/+Yxelw
GlGpPKyi91YQyBYZ1i4F6Hx5oqgnvk4YUrgs/Nvfo/8/LjNYb+NhoHOLWZT8
if5+kk2b5h1xYHVmMW0bQfNNZp1OTpAEI96EvL3IPweZZV7Y5UjDxrzpMWXk
n/MXPqZbPpWFql8Xw92Rf2jDb/d8vy8HrBFivxKRfy61HBX5UiQP/Il+F7lQ
fhqH9Skh+YqwVn5bgBXlxz/uH228TRl4zx+sK0csNvtNhM0DQL1Oe+oQmseV
quuD/udV4Fa47+nziE3lF8YOXlaFc9Od+g8Rx5vILWf6q0GYrtPHV4iXJN7o
s8WoQ8ysAt8X/DwYNQ3+eFsD/EjOjoOIzyhXVLomaUJstMD5CZwn8ncV9cdk
MHCo+YTPq9BSMlSQpgV6H21b8Hn1k7WyjmOKNtyyb/XB/vmdFrps/owCnpVq
J7B/TgY9KOV7qgOMj6XicJ6YBemLGkt1oSoy2wnnp+Gxa9ynWj2IEH4+jXm0
6rlHUbU+RGnZUfC+42PS0z81G0DPnYeRmPnd/vN7bWcIwh7BeZivc50IJvoM
4YqLVxPmVQ3pmsmHM8T72I/L9jkTRA3jQflai83gvs35P6VbVKK0Js06y3Qn
+KmVZ2dz04i/bYnHTpD2wWmOBrffZ2nEbdZ9VacK+EFbtb3qWiqNcEuaDRGq
EYKGP7rPfryiEYcuR/nlDorC4DR/1+Yv6Hxz9VmD+/4j0L5hsTt7EPl2KSLl
fYIEHOmKbWqaQOeXgXujxCMpWLsR7baAzmsJNbSWlUwZEMxcUaNHfkndtv/u
XOpRyGr6mn8X+eXZOT/Fe1nHYH9veagL8ktcDZdXZJ4C2FM+ZKWgfDjXJL62
qFOCDG0OK1eUhx69z4r1PQT8/vghYR4x2/UT9lNUAFPSXlV9NI/0+hqZqTkV
SGw+JXodn78XVD7dWlSFPlropQJ8XgqVXsjaoA7KwTKkD4i9LVhK4jg0QEIm
gP0nYqGGfH8dTk24aWZkOILYMObde18eMhDJPsv4vDaqszZEOaAFDd7bN2C/
QIPA/DEebfhR4wvYLzvfnbwYxE8BZx6bMOyX43WVpWcP6kBe5x8GnAeuHeER
9SRdMIorZsL7f5gjRZ1Q1APV0blizPF9RTaTSvqQGHqKH+/377l0SzsNA0hf
W3DDPLT4Na5a0BBa81lSMUvesxzremQI6bseVGOuCuwPfCBoBG50uZ8x37mj
70SL/UOUSVkvq9tMEFfnKGvyXEzApf7A5qQDlTj+8/s5essdsI2uiHcPHcqn
+EUnJudXRK4Kjev0n3HC60ylt2k9HQQNmb2a2U8lBjc+Uyf1sENw5I8phm9U
Qj6AztHkw25QpM+9xa+K/PlL3O2jIR9wJ5D9Zq4hLn66RzJcEASi3VfO5KH8
Ju8WORwoDOVNN2NPNaPnQ9vILpHXYhBhkpqi/QM9L7UWZOd9xKF08amuKvJN
ft4iR8YFSTgy7R9ejO7HlgX7zubHSAME222mQ75xTjm4USNCFhh0avnJyDeW
vhdkBC7LgTo1OsEL+caU9v2XbZI83OmJ/bEB5YnzvOZL5zhFoCSG3VtBHHf7
FJNHnjJ0pCzvyEd5cq+7fu3CGQCy2o97/Gh+fgr23DE2KiC95Z+fC+4fgwHN
wlUVEv6Ijj7APmkp74k6qwaOdXnba/B969wSveJldQj/N87Qie97F1jo+SI0
YGx0cxm+H2d43dntEqIJDw5zUvH9WOud7Dm7RDJsETwbgn3Dt7VxkC9eC07v
LL+LfeOs7y8Ucl0bysgzRtg3pd+VniTdoUDBZhYN7Js/bsGKbLd0YMVfOxDn
a7b9HivjU114Fdp2Audp4t614sMFepD6YG0Mc6PjiHd1jj4Ylodr4Hw8Dzrt
tVxpAINy6WGYPTYlXPbImiK4tXkeld2dIGjB58dOklkgaadC9u8oKpHWQOIL
7uSE4K/D9405kX8Gum7mF/BA/PjKyIwDujdaD9m8PscPwyzfhJtT0P/LUmTN
GiQEwXuHbeVqaIR+GfUt5aEoeC5lZPd30IiW139sdL+TgE5To5iG7n/3X/Az
XPaQgMqtdvZmyCc1i5GsOkFScFmCLPkE+aTeqTuKcl0Griqfrm9B979kBa+l
vqCjsFhByfBBPmFf4bfsjzwG1fuurhghn7j2VopyxCuAiJrf2Ri072K161JK
aUpwbK+16ym070kzORPtlwS8dCAiaYgNLdiqTX8B7LQe+aGN5pGqluzK8FsF
UkQv00fg82ptcse7EVWw8x0PysN9Xy3uvj6tBjaWpg3N2O+J4FxDrwFSuxVE
fiAuoDj8S2HUhAUrci2+/yW+fiLiw0qGM+8XkrBPHN9bcbhs1wLK3bbX+P7H
t0l29jmbNqySx3Zin+RU3NO9v50CSeGFjtgnoiuets926sB0QCcN7z+N7uyW
/H268PDh6gLef6x1i6aImB6wzR3Kwfsu/docokvSB/OIYZ7188WuQetz0gYQ
9Yb57Pq+Z+T+tvMYApn9TgrmK9zM/dMPB4iu5a7aMPIEUXgxKf/rxo3w7dy1
fB1LKqE65CLZ1c0Bl8+vXZtcoBJ1vrkZws55RCx//VH5b+NEDJ9tq4AiHYQp
aaSI7qIS3VFUobv32SFya1nRz04qUbNR4OZK7G64z86vkUrQCOmInUp0R/gg
VLv3i+RVlEdqWFiGoyDcCybzWeWi+cvqGPyzEoauyqqc9CZ0Pp+KGrj9UAys
tRiut/eg+88jjVE9Z3FopjpMLw6j/b90T888KQmiXUZDQcgXUxs53n0JkIbZ
ICaG3jk074I2mZc+spArx7lNEvmCDdTVyC5ycEb/H48D8oUqHellRqg8VMxL
Oy2h/FSKv/a0DlSEhvsHiuZRfpK5byYUpyoDrdvmWTbKC8fzftIjK4BThYwD
vGh+80uGJZxmKnCJ8WiAM+6749Kku50qCEbsL7yP57158cPiKTVQldIlVeO+
br79/bOHOgwPuF/swPeXAjsVrSAN8D5ZZYN98fZGOHnEXxNCZ+tysC+YIgYZ
PK+T4a/FVWvsi3jSJzvLSC1gF3UJwr4oJu9O2n5NG4LHMpSxL9L87vkV3aDA
8Lj0MZyXnIGLa1djdKD3YKYXzotL1p+yRw90wZiebIHzQrcr7p11ph4chZRh
zGUvo3xUM/TBup9VDedDzJmwksqbJJij+wT2xU8QzMQOddIrZthn3UnZEUol
kiiXGMZucUJEX8OrHdtpxLVzS7VWnjzQ3xSaPmmHnr+M70kzOvzwzcXCwPEe
jbBWT3wXaCsEEYaFt09Xo/OY2YHx3VdEoZsSG6CD/PB8IEKksoIE/5qWym4g
P6hvci9pPyMBF98EcnMjP+zbSHff8LwUzPK+qvZHfrCp+vDH3V8GrnQ6RxYh
P9wy4v3P0v0o3CgL13NEfqiv/+vA5HsMasvn/DXQfq2m2JgsghVAIfxKRija
rxUT0/iROCWYLKvrskL7Xfrq8jM6iwC92FtTY4inlezPhncBVHz1fURG8+DZ
EMYU3aMCZS+H7MMQLwqqf+ntU4WPV2lBuYjZFOYal0bU4K5U7Vbsh/PiPSrm
i+pArtYpwu+H5mNeKdQva8Ajo/FL2A/FP5Is5xnQfnvFT2E/CEYzP/dj0QI1
R67H2A/xhwjPXkZtyLUCOuyHhUK5SlEWCvgHb7XAftiR0ibVsEUHbgXuH8L7
tvexaju4Uxf26tFNr99vpLhnGgT0QPNF1jO832azL7f9hfShu4qXG+936rt9
mldWH7GN9XSIieIE0XzkGEtmICN09brbJhlRCVmXQk7VuxzAbTWzjzxHJcqY
RXjPOacRVsdm/GI+jxMSa2fmuCbXCLeKhz1Hd1CJdh2O5NYAdjBYvWLV8JlK
BFOKM9vP74ZLvn05lsoo798jnuzezwezfa/YDIPRvKO9X/4wF4SK7PpTHS/Q
/sPsz/RrCwNdh7WSOup/K71VU8sNMbih+J/jbdT/JP3xN36nxGHkqOb5TtT/
WshxFTOXhOeBksYOqP/K4mzzI17SEPbJrOsj6r+9opD+/AVZ4Go/63YI9X8o
nUT5eloOavRm9W1Q/yuZu4TfBciDuH3jwzmUjy0cdG0dXorQzpIoO4Pycf+E
WJfZbWXwO+ntmonycCZl68ZKc4DRksGQ/Wh+JVbvGL4aqsD8dKO/E+LC3W0X
A21VYaL7CSfuP1V4z9uCE2oQu9HrJX6f3vjVrjHtvDosJy0dwv0/3x5/+sRl
DeiozxbH/Tfft/rz+SVNMKF/G437/9vxZYt/OBkYL9mQcf8ba8wEvEK1oFZe
0AP330r9T3N3oDZY8/2Wxv1PamwceB1NAZZJRSmch61po72KkTrAPa/njvMg
xLU1zv2uLpgJXDbFeYhMvt10U2KSKDDI81GOniA4Ux0md15mRuenUFm+q1Qi
ju2eJ98lTniUNPT4wjbUx8LoriOmPHCr2s9k/Aw6D1sq3WFV4IdupkfehXdp
RG7f1ZVSAyHQjHshOFeF7hcZ8mtrbqLgaMu9d+0zOg/PWmybek6Cg5tOKNmi
fu8u5rqxaiUBQnwVpOVxdB+7rmD/2UEK+DeU6DqgfmcNNXCFesiA8c0BylPU
76QeL7Wbzkchd7Y81gb1O1W43y35wjGQWC0RIdD+Pi2WePr5KsBx0dbyYLS/
F3/UtDLDlEBgzzsmS7S/tb2MgocfE8CpVXpgFLGaRDyR9hmglfI4WBPN4/uZ
fyYG3cjnIjFJodi/XXssJn6oQhx77Sp+/xtxfGdd4W81iJlhKcTvf1XXMkn8
c+qguaPGB/d7T+64dfeCBhyb+mOE+63uyjZZsqoJT29HaeB+b3D95XF1oxY8
OZmYgPvdWPZGcplOG76FGs3h912peZumphgpsBoibID7zTy6+qCTRQcybY/2
4X02SH4u6GXXhRySLxXv81UqNN3i1QMxe8cneJ/ZijuuyOT1Ei4nPfY/kZ0g
vsRFl8QfY4SC3qAxMX0qIS72JczHjwMKRI8wn5uhEsLHP2+38TIFuRrq+vvY
jG7at2gSP1g9rwsTQ/t0fMGYFk0yBrHb9eP496OMj0NJqACTf7zX35c6UiZC
PmkoQLG8sLAjmreSqUQsqVITDGo1AvH7vRMpheXRJEmIrbi2aYBGI8qXbz6L
JqnCrS0P6ZPQ719nt3p80tABM1KqMP4+5A1ull6fDMDnUWcU/vz/AYqwhH8=

   "], {{{}, {}, 
     {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl1WWUlWUYhtGRRlpppLsEpVsaaUbpHrpBwFZU7G7sbkpFUMLu7u7u7nbf
yx973vf6FotzDud5hoZFywqX7lZQULDLj5wH+9GZH903MJtb9Uo68J3uwHnu
Y9mTZ/TJFOMQ3YWf3Dcyh9v0Kjryve7I+e7jqMqz+hSKc6juys/um5jL7Xo1
nfhBd+IC9/FU4zl9KiU4THfjF/fNzKMzF3o2geo8r0+jJIfr7vyaz8l8unCH
Z+uYSA1e8Ox0SnGE7sFv+WwsoCsXeTaJmryoz6A0R+qe/J7PwkK6cbFnk6nF
S/pMynCU7sUf7ltYRHcu8WwKtXlZn0VZjta9+TPvm8X04FLPplKHV/TZbHff
3bnG2Ye/3LeyhJ5c5tk09uJVfQ7lOEbvx9/u21hKLy73bDp1eU2fS3mO1X35
x/1OltGbKzybQT1ezxxRgeN0P/51v4vl9OFKz2ZSnzcyN1Rkre6fgWW7Y0Ve
J+/ReZWziAa8mVmhEsfrAZlzduiD6MvVehYNeSuzQmVO0AMpxk69kn5co2fT
iLf1Oqpwoh5EcXbpVfTnWj2HxryTOWEPTtKDKcHdejUDuE7PpQnvZk7YkV3L
njmHUJJ7sq8M5Ho9j6a8l1mhavZK708p7s1+Mogb9Hya8X5mhWrZIz2U0tyX
fWQwN+oFNOeDzAnVs0d6GGW4P/vHEG7SC2nBh5kTamSH9HDK8kD2L9933qPz
ZuciWvJRZoWa2SM9InPLg9k/hnKLXkwrPs6sUCt7pEdSjoeyfwxjvV5Caz7J
nFA7e6RHUZ6Hs38MZ4POL8c2fJo5oU72SI+mAo9k/xjBRr2MtnyWOWFndil7
5BxDRR7N/jGSTXo5e/N5ZoW62SNdSCUey/4xis16Be34IrNCPQ7QlXk8u8fo
zLduz5eZD+pzoK7CE9k5xrCP/iozQYPMpn6y4P//E9Y6C9nX/evMAQ15KvuU
1+WbfN804unsTV6Hb/Od0ji7wdh8ZzTJ7DOOrf7e9c6mjKcZE2jORFowiZZs
8WcnO1sxhdZMpQ3TaMt0tuXf0zmDdsykPUX5rMzK5+E/9H3IFA==
       "]]}}, {
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], 
      PointBox[{435, 436, 437, 438, 439, 440, 441, 442, 443, 444}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"S\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.9},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5652685850513463`*^9, 3.5652686377083583`*^9}, 
   3.5652696587827606`*^9, {3.565269697437971*^9, 3.565269722190387*^9}, 
   3.565269886796802*^9, 3.565270017329268*^9, {3.565270077489709*^9, 
   3.5652700917365236`*^9}, 3.565270134431966*^9, {3.5652701801975837`*^9, 
   3.565270192356279*^9}, {3.5653897122129955`*^9, 3.565389740563617*^9}, {
   3.565389821115225*^9, 3.565389879871585*^9}, 3.5653899112033777`*^9, {
   3.5653899431612053`*^9, 3.565390081153098*^9}, 3.5653905161639795`*^9, 
   3.5684976274334803`*^9, 3.5684976598273325`*^9, {3.568497694503316*^9, 
   3.568497741366997*^9}, 3.568497789169731*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVl/c/Fm4bhpFVJDuJEpnZWzz3fdmyx4PHTJRNiKIoRYOyhZAts5IZIiuk
yCoNyciWUXbi/b6/XOfn+gPOz3GcJxwvml6gICMjC/jv/D95Y/7lZhxrRr5W
y6Upj2qxbgON4ZTLHm4rHCnRpn+Ouw/K76e0YwTB0xGCTpM5WC1Gs6nAiAOo
m/iTpu1S8AWJ7YNSB3nAhDS9L4o5FhsIX1hh1z4JqzRGNrGl4bh8MCTgraIQ
nHrf078YdQ0rM4s8p7whCkk5pA3mAV/s8jf+cT5JEuRtCHbGRi74Yvu0zHMD
afDKkLz2w/0sjrSm5v/nKQsZlV53voYSsVPHNWcpV3k4v6LQdTRKDzfTHDHx
sFKEudkmN6liNSzFFJo0638a3gUxpboFKWKHPwRRQ08V4Pk8UXL2liTOznjD
tRGFoH/VzFc9ih9XRJ/+1m8KMOXthkttuLB/HcH4sb4qeGhShNBJseDXXfm/
I2zUoOjZtVk/3v3YTVupwY2kDl7cLXcPLJLh9EKpKg93DViNtxz9y7iO4v40
3PS5ognelJUxJTsLaKo44LKrnxYMHi3Q83k4gdq04lNu3dKG+CvYqvvRF0Ru
9HU8JlQH7mbNHvKS70NkqtXkWUFnQM2vdbHUrAPdO7xh0H9XF17vG3LjS2pE
PtZOLRthelDwrEI2P6sSjd2UPY8f6gPd2B1R0mQxYk149DUi2wBOpo+owtNs
9IRRJKgjzRCEnixRLi0mo2a/45qCJUaQti1xzdImBmXwZHERiMaQwx95e/rY
bdQQvE3m2msMFHNkbDP1weiEHs0On6UJdO+bkg/b9EOVH4Tvfxk0AZa2Io7R
B27oQfuuJI+dKaxK8SWp3XVACZdm3R2GTWHrokgE/a45CmY7dojXygwS2JUt
XiADVCRM1eU/agaHHJfAjl0dUa+SH2m2J8L74I1lX5rTqEDyxfWMaSIYspES
VlylkLBjseE/L3PgkORvOxIqiL6dqS03nzeH9RW760iYB/XnXhXDlywg4Zfz
TqoVG9qsMFHh/W0BEfMWaYEUB9HeS7+qO96WkCfb3BD7ex/Sk9TSDF6zBAMG
21Mc0duEDjsJN49LJCg8n+a/tLpCeFbms7G3R4IBOtML+o1ThK64b74zLkvY
kIxOwKG7AvP8q0n/J08LjLKOcynchfheT8NPcwtWmNL5ZLiqlYGpN7gWKeW4
oERjVVmpNQFblT7f4xPhBbl9gXSlTRGY7IavzDIWgFTVgTyykVB8+Y8Z87SN
CJz3YBOeFriMwymF1gRTxGGs158srs8Tzzs0uIqYScGfvsrqhRNOOJjxiqiF
nQyUvMr1iHewwuuMzZrJ7nJwn6z/+aEeYxzv0mXT46AAo3efq+yVauGgB+8v
ibgoQSpnD8QrIaxDcXYszUcZ1IrIb3QekcVkb2/m8YYQYNij+M5yqQimtH/s
1vMIQ7YAdmO5dgInnnzF9vIDwAGab12IeBintvhmswyqQrsIv4f+oUOYNWJp
aOuLGriOmvF8yKLEFIFyte5j6vCY0i003/wvYu+5cnRxWQOkU2qUOMdXkMqH
I8ELq5ow5mb01WJgGn3cDLsbsK0Fo4LfOZKKf6Bx3WpCBLkOMLLctz28O4jI
dHR+H/6nA/1+Ju61Fu+RRuknwVoyXVj5eyn51EQL2lEUo52k0gMhkT/Or7hr
kdCiXkIavT7cinZIe15Yhq4ecMk8f9QAvFsIfzh78tH3vrGiwmOGwN732l2e
/TGqbD559gqfEbxScN6WdkhAewvJZ2dYjaFTSOL0cF0EembYHW0abwzpb5+X
87rfREsTobtvWEwg5fK9WVOLK8g9KqV196EJfCWzrzkkchHx6LGO7HCYgs0F
qij9h+cRI/eqQVO6KZx4vk0n/sca3WvbR2jmNAOvKpMzFusmKD4zzvNduhmE
6nTFUMRoo8/RYSupx4ngUH6s/aMdRhbxX95J5BKhJpOzs8BIDrm+fTrVLWIO
flthBY9LRBHFpxehRaXmsMrt9KspiA99Wj/ioythAdn9H4VtNDjR5KmpyrJy
C/jc/c86NJsJBcuPBxIlLcFRa/dLOzUtyve3DSEvt4SvjINvKghkaH/H6aFL
siSgyyweGl9aI5ymMS6rqiVBUqPIyfx7C4S3p8NqF1x+YDZiXWFDYDUe//X9
XODaPojwPSQiRCzBIotb66VWzMA3QE5NN52FT6pLWVqoccI9y/vkSUsP8Y9f
g3eKj56AxjD7Of/WB1iA6BEfps4PVKbE8NcltzDrzxl1kq4wEJwaD69VBGIH
OmHTpPti0EE7MuVE7YOFxYX2zXyUhPHjVz+RHbuAL3tIlN36KA0FTa9TlVRs
cVOVk1zXvCyspRUKDsWY4quH+cZu/JQHiVnNoLxdHczd5TeuO6oI2Qx1NTfe
AX4VsVTf8vs0EJflbu6JyWPJkbOuL1dVQKDcriHqqRg2vS7VOs6C4UDsuRd/
XPlwntW1QM04gMpn1LvhL4/gu41DgaRYVehcf82Qrc6E54p0J5tT1UCxdgqz
v6HG1WcVlOfS1aFG9eQ5fs9dZFVPnCl9qgGH+I2ehH3/g5zH5q+LV2uCbu4V
3zvac2ikb2fXu1oLeg+7ULxJG0MDOifnqVq0IUkv1LFQfAiF6sXNDTT+xwuJ
macMKh9QzuX2RNGGM1DCIl3w+F8bUhNiLvnWrgtlfkuCMTX1SD9vqPhMpx6I
qomeEYwsR+Lt3eSmn/VhiC6LPFChEAWWE9SOjBrA4Iz2LIE2C4m5CXpm/jAE
CG5eTr/3EDk8EaQInjMCwhOmQWGXB+hJTfVH7UvGIMC5XccnFoYsyhr22H8b
Q2GUbVXCRBDSWvhwNu6yCfhdG5askPVF7gczZefXTaDRW0LddNkZ9fgG4eVg
U0jYjlDPGLJDDOnrA7F/TYHSrCBh/08zdPfrUMP6VTOoPazAuCGti8C27TsN
GRFkJnTHx3RVkXirl99mKBHmWqns3eMUEG3Ic2n5/ebATy+acz5JArFzPXMx
izKHVzJ5Tdrn+REpy43J+KAFdK49GtkT4EbDLpIrG/EWEMWURDBwZ0Gn1x5Z
KzNZQhZNFLmJwwHUn+RyRCPWEt4pDqvKklGg4mvAsMlKAkbGi+oPRTYJoeWv
H8QmkSBUdO239L5lAkfrVfVfURuY/Ojz4IO3XmA7+vihW4H08HAidn+2WT6e
fHazf9eUHVhhJWWWPw3PFNPerhA8BuIX/Bc4++LwgHtk4GNFPsi/7ZuSynQX
fym6MmirIgiyF2WXt65dx58pXo8GeJ2C8smvBLeRS7jon0BKbZ4EUL19+PHp
nBt+mmDa49krBZNCpHdz5udwWFVjofCkDPx5bE1l9MECi3oeszg/KwfDzK1P
yLwNcXGN7yeu7wqwmdtAnxavgT8aClAdWFQC+w9xRk+klfHg1R7qgEVlYPGw
t/NQkMa9FbmjD6gQjOXLYYltQfw1g5L2+yGAbNnAp7XBx3H40k65CIMqXLYu
udomxIZL2+m6eg6rwUzt+/21y3QYuSZ2SR1Rh1tvth8IllFgo1gZhXl+Dagv
chcVjtlEg6OphhKymlB/cu+d35FlxNSgHVQsowU1uRzTq48m0fvjdIzBSBtu
0NqcZwsaRr/1dWLpVXXgY6iCjgLFAArV2NuyUT4DB3a/DP6seoumxqbqNDV0
QaN7Ort1twlVn9G5sKihBxy5B+83tFQjSsWma7+M9cFC/MxLqaWnqMOQjHDF
3gB+EIrSmrNzkdrKbSZFO0Mgt/F87eWYik5z8poauRiBx8y3ImvvONRDzdUY
L2sMAatmTjlGd1H15IS23Qtj6A/gcY/OufGfr2n885czgWqxqwmUdAEoRvyc
oGeVCVyF+83fFDzRp3sRdxmUTeFn5juuUj9HZNrpbRv7yhRYVLuU9UgkRPGL
8cmKkhl89ev5+0bWGGWc1zua1WgGC8p87m4KmuhisxqVOCaC6r2gO8vhKuj6
OU1+lzdEkGaUlxBRk0GdbKWpF/TNIWT/ye57W8JoMabq0d47c9gUee1R9/oE
Ihp09WiYWEDs1Ysj0cWH0eJSWqBbvwUMy5z1WNs5hBqviCR7GVnCPUmjQd0Z
KhRoajLWOGAJ+UEmCccs/hFcmeWylsxIgOoZZshG/hBWbUYHvg6TQHp7Izfd
Z5bQ+aBfZ83lAzYquOoxs1mDNaZ82qoGycH/3b/g8GNP8c6/w6EkGyao+bXN
Zz6SjWXc6un2dI7AoIXE+iZ3Ms6JdunySuSBDtJLqWKXaFyHZlQN3pyEYbE5
drf8MOxkWzEc2ywExS/8B1vYr+Ke6KJQAyoxGNt9qxQ25YM7E+16tZIlYWMl
eb1Ewhn/TqH7nRInDaWk5u9ZnXaYn1buqVOpLDxdyuYUumWGvS9+yCU9kQfJ
vVDFKYIuXpp5c+RbuiIcapgwCKtUxZe7FYQ/VZyGujfeMv76CrhzxlA3rEwF
2kouJrYbSOCr0X+XFnoRXKnkLvp16SQWXf0qTO8HsP3sU8cn8qP4+qvIn1e9
/+uHn+hSrwwzJp7enOe/pgbirE5hugs0ONZMcafoqjq07fsuKkBPhrelWg3p
H2iAg3IN1fjSKgqeI4Z+SNKEh3w3+5IfzSNHVFvnkagFmZte/sNx4+i99jdV
jRxtkC6wkAuz/Yygu2rqRaYOKCxan4MLvajPBuk5p52BY4JJXu087WgyM3zH
okAXTmZIiY5zNyD7G4+reZ7ogXh7/pJjdAWiPUle0VmtD3e2Pl3Svl2E2nM8
ovuaDKCuUPxKyMcsNPeq0K+iwRA00xkXkyqSUOyD3Ny+LiMgXn1A83UoCvF6
ngpqcTKG1Zc3/CeOh6NIdttQPGYM8l46jV2a11Bl2vzTr84mMGRzPHGcyQ/F
eP88Oz5pArM8FTu9cq5IjEtFkdbLFAIL+A1kXc+iXhqfzM15U6CgzLb0mSci
is2rzvTuZvAy4O6zzyV6aLXlP2gsmwE9ZRnVcxE1lPqt5s3wRSK0d3+/O/lG
EX22KCO5bxLhL3vWqzcJkogHi9oUhpgDU5WtLY2nAOIMYBo33TEHT5kbDrkV
x9DQbfOYo2EWYLv1/cKILSt6NBjw7hm5JeCHIjwmhXRoRtDL5cINS1DjGthz
/kOBts1bhU9TkSAuZLRAxXKLcPLexva/cBKIXXv+vGptmbCrKdu4nPUHN8SF
HfmcXo4bKflPN1kegAP7b5wRK32CqxszbYqJbEAVt3Evsjgdb/TGK9mKc8Nw
BcHFtDUeJ9Fxv3J4wQvhXhffGZ+9hz0TV8MEGgVAjqFdNIk2FAteiwh69lME
ZKPueCdu+2P2mwXtPsckYPzUDrUg0QPrb99NexcnBRs9Qn7y8o6YbCJ1DmfL
AMvfHzMCh0g4rnGp+1+RHPietdm/vG2EMw4de7SWoQB1Gl9SVB5p4gKvIJXU
YiUYndpV/FqigqMb2f3vPVcG7ZLSx0W8Mti1Mb7FspkA2mYXvtnrCuNhgwGV
tmEMjDrkMhNJPJg+0vb8yiJAVr5s6isFdpzb1ii3sqYKeMCq2yXgIC7aVO17
uKUGlStUbfY5+7BQuOxm8T4NmO35jidntlCA5f6qaGZN+JBxfrJ5YxkJtJdd
1WPVgop9rsXPnk8h4wcd7wK5tEGLFPiBkWYEzentTeme0AGGNFfW71sDCNr5
1pW4zkBbSgAl924XYuuw973BqwvU4VrR9+eakVVzXbUbvx6cVbUwbZ6pQews
d+62iesD/eBdzprE5yirVGbxl4oByPUF22SX5aHYsQq7ZYIhhJOPey5VpKEN
r1ySk6YRfKZrPjDqEI+mtr5EN5w0hgr7A+8SQu4h6VTS/FC2MTyyomSvSwlF
r0LGQx6fNAF9s6iOPaHLaOd7cEBVvgloSPLRphR4ob+zPeVUIqbAaXrim2uI
E3rhJ2VeWGoKl0MT7h95bIXekCJ9rUTMoLVzrWU/owniuLXYWvXUDMZsXO3O
22qhk0JO185LEIFu1Jfh1iQBzQXFBOpVEsH+No2tg5osSlkqbXqkbA55I4Kh
1/VOoc1ymSjiK3MIjfhatZXEi9h4/TK1wQLkf62vWy1yoLmDzexRLRYw4fs0
S+MdI+K2pKYdw5YwfO8ni8tvahQ9YSEx2mIJjSm3D70f3iW8XKipl9IgwZ00
y96hsVVCshSHms47EuQ1//g2uzRHSE42dFmKmsYGjgLcn9mq8M013b3T7NRQ
3nhKgLO4CFuNfPMiJ7GAwm7m/uGdTPxgLdel7xAREvdef1q7DOj78N1jfIX/
7ZOVz8E9pxcJJncKL3gtkkDN9VJww4EZQrukrwu162uc8Pu2zkbbS+zvWBdA
bCMDnpTsA22Mz/BPqgIN8WFGoA0UHO89m4NPB5M5m73ngNTPWPdpfTKm/CHp
+cGYB+xrjz47oR6DKSufHJG+cxKW5b/ngmA4jkzhEBYLEQJJvqPytR+u4vDe
2cPCLaIQp/xJUtrGF3PobMqvX5GERW1qq4oGZ1z2fIs576I0rKQdPfAnyR6T
XnC7lT2QhajAPcX5PTPsmsZPpXlXHkSnB3b9J3QxKfCiHN81RfjwVau3VkwN
E5e+/TibeBr4OY/GsYwpYFZvrXrXaBX4Eug1cIpFEkcnOVD7PUfg4aIm37R7
Evs0R9666AhwUCfJMq/0KA5SPs/5wE4VOJ+QMprKmHEkhdGSpYcaLHJzagXc
psXB3S+HI9zUYag971DiNTKs57VNrnJNAyInlW5FXF9D1Bf3k/Pc1YRo3kNs
azoLKM8/mcM9TAvale3755kmkE6HvJdTvDYYNH+tEdv6jHgYOn/yxOqAJo3M
x5j3vcjV8KpAWOQZCOw4OCb9sh1VfyPkJybrwi8e1eKaoQY07RmqQv9QD6xO
jAlWslWi1f5UOson+uC4k1GxIV2MfqXeqhR7YQDnF6v5qSEbdTrPBjSUGsKq
j+iakFEyKrxxzn+nzgiiI+6/kUqORg7tk117Nsbw+Hh+zcDjcJR3pqRp4LMx
JK/pburtXkPul7aIe/YmcADRjK+F+SHe43fX7L6bgL9AdQrLD1dk6/tYlvWC
KTyZeNlxhssBlTeI3hb9aQpbiSbk2pfM0es7708nnzOD999lT1D76SPD9dVo
qxkz8PYgkh3IVEO907ZLhi5EyPW5lbj/ghJqai3zoFwmgh8pKbVzRxLlGc8P
9geYg9ufRvk7qwLo6tkLuoN/zMHhsanH29DjaJDV1V7smgW0jzQVvPjCinTa
JsJmtizAelr893EzeuS/fJFh/bIlvFd9txvsuw/xtoYr2PyzhBjyhkmnlS3C
uh9LuWwwCR6oHH9Rf2mF4EcTd82veAWr1nBvqElX4KVQ73l77f3Q9cRQP/9c
Ac5sF+cJ/cgK7L0/HUsDHuPdiaGEshdcsO6l1nRLNQFv2kzZtXjxQsntkLcB
ByNw9f4KG7obApB4fItqxjcUG9YsvtHNEoGJN7fEiqMDcHfLtJ3+N3Go/1db
p8foidOf8lJc85OCMvWV9LRiR9y4dY9O74YMvNj32DetioTbXD5H6EbKgfT6
LcKV88Y4Rdl/e+yGAlTScXz0PqGFGf/xksbvKUHkAtMGiw8Be4zWiTDHKoNt
xJRcZboMrlSPlCFkEiCPWt9Qd0sYL5srmp2px6Axn7s/mOYENrakbyD+ALgT
nD6o1saOM9RTPCgmVWEkzlIuGzPgkaaUwY5ZNei5OTlGyUOJ2XYrP0f+VoeX
CT0DH9O3UXs8uDaSawJvx8QlR48V9EL3wt80Si1I9aHIf4mnUXxLvvAVOm1I
uC3txvBpBDm/s2Z2Z9KBHTGHbvurg4iHRn61kP4MxPxb/WFa+A6V1qbqpzPp
ArE+ZVLuQgsS+XfpbAGbHhxlV+Yg3nyJMsncDpZx64OSUOf2AcUyFGXTrSUs
agDNS0PPQgn5qPpLV5i+uCE8eRXKuuSYjj4d/mnjJWsEAslbUdMj8cjvj+JG
P5cxLHfULyhzRiCfVWYCW6oxXF+55CdAdhN9KpNqlOIygU8GHw+VNlxGFVWR
XF8fm0DAgPljL2dvFJ3qq3PzhClUXndfKqU5j0Y74k0q80zBs+G4zKymNXrC
oG0ZxWsG2qKExZ6bJugjI6RAvhmkv6xi2Pujha7bXKq+IUiE6VqTvIoMhHju
yOY0lBBh8rvQ3LkOWRRq+3RARsYczCd0Jzu3TqGQtt/UNyrN4c4g12Y/NR+6
TN9O81bBAiJ8j3azJB9BM+kDkxl1FkAymleXlWNC77X8mzgVLaHgXQuZ5jUa
xFlq9cmnzhIWDz06yFW0Rxi1CnprqkKCmc/He5Nc1giuXLJb11tIEPRls+FI
7TzhOift+O+sCWx4BLb6WqtwuW9i2RcqKrjM+2VD41oxVptylx76zAz2HPt7
N3yy8JRQZc4CDRFeCUfWXvwB6FlH7kerTBI4IvOLntxLBF7fNq68SRIk6gob
3qibIYSmPXgmv0ECE7NP4pbnpgnNgc/yhFyf49z5EVVx8Vr8gOdsD58KGXQI
lupZRD3DnyMWBR6lM0Lk4Zg21pwc3EjFl/AvigMSFhpsFOhTsOxdNgKZBA/M
ZvzS1q2IwYWLt2/nOZ8ExS/HF6+4heMMeT2jv9ZC0JqQky0sfg07rERMJGWJ
wpe+b7t1Sb64KVtzzsBVErxlmFIPUrtgxnqf3CJ7abiUb2IrQ3YWr1Axd3wK
loUwJrI/fzERO7/olau/Ig/9itzPWxX0MD1oqGu7KwK7UzvzAw81rEYmXp8X
fhpsDumS2kUVcZ1kyyWbEBXwzTryx1lXEqdwJsRVZiBIfurDG6nJj5kLx8Wz
rQF+KFe4Ze7jwuvbxlWs5qrQ5uRzPGiZGec5by/7OKkBhb2cfeAALfY7sPV+
y0EdLD+I/fGsJMOrB5K+DfhpwLkj+6O1O9aQ/gsnVZ0bmuC5eDtbPWcBvYm5
oz17VQs8hy7TIbMJRH33J8WlSG34q0Nj/E/nC4oV73Mi3dMBQ+WPJafI+1Cl
Nkci060z0H58xsSTqgNlBqUGVcTowhhHdApJvhGVTvju3XygB/NVb3qrrSuR
e/F0TfZjfdD7fHku5n4xIjsc3WFTZADx1JI7epezUU19xBW1PEPgnh2sCMtI
RrJBTcNMFUbg57gkX7QZjW78abl0jGQM6x0rVJvfw5HkRP/o40FjuPxTh/Ky
bTDSOhtayGRjAuYXBHzmG/yQxxVS09EvJnA3Lxg7y7mh1aM90pznTEH+DNeC
h4kDyuGgC9QaNQWP2txK1Zfm6JjhWp6tnRkwjHruezCkj3YOhYi6/DSDbtaJ
ZOJXNTTvJUFJ60SE6NkWxY9VSkh2WzKgb54I3h2PzQKlpZDzly6mGV9z2Ilj
cvmlJIiKiTG7iUvmwHVbNoxp9jgys13RlL9iAQ81BVMEj7AhnlecDlTrFiB6
aYROuZge1RFXzjX6WULETS2Bghf7UHXQhUaPLUsYkU908cTbBHvX7IO9V0jw
rjXt61LFCkHUFVvLPF/G3QV/RtlvVGBazKIh/poW5A2LTd81FuBE3csU8w9Z
4cwHPpp73x/jW17bTdaXuOBpq3PM/M0ELET5TvyPHi8YnuEX8XSOwDYa8R0h
ZwVg7buHWWpBKHY0P7HAcV0EXBOsa1W/BuDCibvCdbXiwLZPnkrHxxNr0PhU
9TtKgUmUyq3JSUfMTUWWbuwtA77MTTfDD1hhu1fvp32uysHXv0TxpRRj/NDk
+CmSjwIcLD8x+dZZC7e1bVygDlQCv0ElU6FBArZeoae2DFWGXxvddMNfZbA1
NfWCRDQBlDJDf4aZiuDtL+4j94sxiH8QKZiCE/g34bzbnSEA/9WOn710hzHX
vtvU94dVwdae0aT9CQPeOqnxaXRMDb5kRh6ndKDE9Mprnduz6nDSVnIqc3Mb
eUsOq1psaQD1HasT1k9W0PqD18ptO5qwf8DqGUvENKr8nkhap9CGe1q0KAP/
QCfv0xYG7dcBY52LMgP1gyhWEF8apTwDh9ulH+7uvvvP/xXrRPbrwszPvX9v
clsQS1qvTPtBPXD/eJKF/sNLdP6KdS8/mz5wRawm/btYhihlOP+08xlA2wPF
U+a381GX+aekqwKG8OoT33naV+nojWe43e9TRrBDpvuc73gCUvRxLfnOYQzR
RjkmdO4RKObE8qRMkjF0eHd598neRI66ViN/D5tAjBvvWMj+Kyg6m8ln4ZEJ
9Hiw4twObzT0W40Fc5sCfQhpmcHwPAr0azWqyzIFrgXG19tp1ijZjV+34JgZ
nHzfbV5Xb4JkP7tSUGebwXFO7SoWVW10KuCvWRQfEYzj63Lv/ENImZ6m5nIB
EfJfCBpx0cmh1Xix72QS5iBf2rataiqKwKBfPbHMHFyDztpOYz70hHy5PkLG
Am5M5Xfx/zqCnH/adhdU//dvbzUxeDChPFSSriBrCUX9l+cKmmiQA+M3YaVq
S6iPNxZvpiVD/ozWxk6K//FobkHao2SN0MfUQuRsJIFteTQZK88CYeXb+Uz/
4jEcU7Dx04m7GndJKO0vCqGEvN8rtHVTxVjevZxV7REzuNh38USXZOEENRXY
3vdfnytPvXnLqooON0hJraWSgLqcq447bolw39k0EI+R4OW9qHstrLOEmVjO
A/2/SSDYdmISVU0TDj/ZNU37S4Iptjgr6kPThBpa4eNerplYQc5ZMt2pFkvt
Oa6xL+9hU7dVuVvvn+F+PeaUnmBG4DrKSEptzcGhupVF/d4ccGGl12lONgXr
f7ubz3GMB2pu0fTuzMfg7fsB9d8tToID08ee6chwXHj7vOP4GSGw22MzHbO7
hnvIrd92x4jCXM25ufeVvjjRcKE1yEESclg7a+NEXHATlHqIWkhDbTFlmo3c
WYwk6ddn/WXBddGWaOJAxOdVBAzXL8qDTVINydBRD0/liut+OacID353irdF
quE62iGhjuDT0GIx8mrLVBEfZCbrHfRXgWL04qKesyROtxUdMk9C4M3KUazj
xo8d0xio/tML6JxWdQuT4MJV1h0UX4xV4Y5T1tgTRhZcztHrG3JWDYy4WyM+
bdPiRaEjb17YqkOmRNoubx8Z7vzi1JnprQECk9erKBbWkHd/7Dnba5rAuSGg
TPywgCy4d0cKL2uBx0LB7mn/CTTpXN999Y42eFQssGj6fkGdjeZ8/uE6UHU9
ILLmaB+y1pju+hxyBjTjr1/3EO1AiZ2dEy33dcGRGHqDw7kRMWTOjarc0wM9
/X+GsSGVSICdIdrnkT60DOh0GbwsRgc+svT55RvAlY4JibK4bCQ+ZbVJmWUI
OPAQU3J7MtpeW4rlem4EcqPnz3wRjkEMkVKdYhbGYNpafNpiNxytP59avtVv
DB6v7SxpHgQj2Y/q/ZxWJtCyta+P95sfiuVrzt/+ZAK2LyW2/zm4IfCdkuI+
awrr/O0PwNMBcWpd9TUbMQVCb8oj+m/mqPvFfmtsYwbvZJsb5w4YoH4u1b9e
42bw946SiOqmGtosS4n+6UCEhef2fhEjSsibbWWrZpYIIfF5LWkGUqjz8emy
3xfNgUF13/KcrSBSM8ojBfwyh08tY259DDyImay69nSABXDl6NxXVWJD9Iry
PSyrFvA2bixc7hM9GqYuv5/jYwmVC/soKfv3IbKPH8n9NyzBiuH02FPnbQKz
k2v94wAS0EvdV7IYXCHcS0l6myC1jMNv3Vajf1KBWTMuLLNdo4UM+fLknV8F
OJo+9RLPZVbY9BDLpWPOwBrl94ckiFxgZtAZG5CTgIFESKZT/m8vnWlMdkyI
wM/Gbv6rNhIAFe/0weqWUOyZd3pvz1MELuj3+vmRXcbsq5aHVgrFwf3zZm5L
lifmqGSP2bWWArLPP7T69jnh95HK5wcuyAB71dZDZzkrXDzVzh7uJwfe5l8U
3SuMceKwv3qCqwKMy4txvY3QwhlC454pF5Xgui6DcTk1wn1bVZeCApXh6P6n
0UrbMvjptLpO0W0CxLh7RSfcEMF7RylPiuVgyLC8nvbT7gRWl4rFmQMA0R75
1fMSh/E3x79mRp9VYbc1a234KwOmHjpi+eu7GkxVfv1rFEqJ71qxNZdPqgPj
QQXqvwJ/kdpekTjvmgacMLVe52lbQUeeLdh83tSEvsZmBo5n00jDg365alcL
9nKK+xf8f6B9Hj/8blLpwKOoYrVvw4Oos6ZVeofsDPy6ELZQK/IeZTynWVmh
1AW6wpUlu9YWRDu3+/jjfj1o8Amn0Fx/idqlB16MMupDyi/3SPSgDL3OgLcP
jxvA+4DeV4+K8tEgi21WHK8hoJLvuTsz6UglmThSKWgEzxJwQyxOQOnioVQT
7MYQUn/SwSw+Ah17aX9aPdEYnoeN8V4wuomEDnstjrKZQMJFraoOiSso+PDH
R2vJJsAewnyhfNMb7WSUbHIfNQU5z6y9ON/zqK3jm2FDhinkeHJNXeywRozJ
ieqVXGaQaMmEfn82QRPKITUzGWZQfeXA8JKLNqK49Zo38QQRLJSiyq6LYaRj
5KNqlk8Ej3zeWW0xOST+7Ne5aVFz0MlRvj5wXRRlM6mNZzwzh/pTZ27U2/Ih
tEPJ7i5lAcVi+xnSOTiRwL0TqqWVFsCN7Ypl7zCh2Lr2A1rSlrBp3OubPEGD
brWkmXFXWoKLE/MDXj4y1OjRleAhT4JXZQcfx3evEe7QR1DM1JOA4rdytTBx
gVCiwnJd7vkorqH3oh/Srcafou9XxSpRAvkauY4UdwmWFP10+0oQM2wSD4ZI
vM3C7kZkh8gpiHA2+T5To4Qqel+zOdKSQoIDr8f/RL9bIvwn8gIHf5CA7O+J
umC1WUL6/bGazGUSDHwoIr77MU14n/WGzG3rP14tMs/8VZgmOJYo5Hf/I8G1
LuOwy1NThLzPS1/vi/OC2OzDmJHKCOys+yusT1MZWKVFGht7ZDGBKBUlXqcF
6hkluO7WGLJNK395X1wa5H20Qja5HPDLnYSC++JqEL/v0U7y3gHcUtLj16ep
B2Zn+aMY6quR9j5Pkn+fEWxV1WYlR0YhIasBJjt/InhyHD/xyl8ROT+lzLwv
bgrqzCTSQ3knNEeZEy7+H0DYjvTfF1FmQv8DFT/2Og==
   "], {{{}, {}, 
     {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwl1ne4iAUYxuFDsooySoXslZEVIdl7k6yikFUZkSgjyh4pe5U9MsosKrTM
ylZGssqoEEp296s/bt/3/K7rPc5xnYNsrbs07JwoISHh1cQJCfFM5DnRSyE2
2m1po12xx5CXYlpRbbP3Vly2x5M4+GWS9iib7BfiY2hX7XfJR3GtmLbF+3P8
a0/gjqBP1gqz2W4XH0O7Zr/HIzymFde2en+eK/ZEkgR9ilaELXZ7SvCYvk1r
zVV7EncGfapWlK12B0rykl6C7/Q2XNMmkzTo0+LPgW12Rx6PO/17rS3X7Skk
C/r0+Lr5zu5EqbjRf9Be4IY9leRBfz++Tr63X6R03OjbtXbctKeRIugfaCX4
IT53ysSNvkNrzy17Ol20lJ4pPWfoJdluv8wTcafv1Drc/mbweXjcFfSZ9uPs
sDtTNm70XVpHEvGBdnfQZ9ml2Bm/L0/Gjb5b60RiZmipgj7bLs0uuyvl4kbf
o73IHczUUgd9jl2G3Xa3+Bq08nHnuVd/iSTM0u4J+lz7CfbYr1CB8vo+7WXu
ZLZ2b9Dn2WXZa3enYtzoP2rxg5OUOVqaoM+3n2Sf3YNKcaP/pHUhGXO1tEFf
YJfjx/gZpHLc6Pu1riRnXvx5aOk803ku1Mrzk92TKnGnH9C6kYL5Wvqgf2hX
YL/9GlXjRj+ovUJKFmj3BX2RXZEDdi+qxY1+SOvOXSzU7g/6YrsSB+3eVI8b
/WetB3fzoZYh6EvsyhyyX4/vJa1G3Hke1l8lFYu0B4K+1K7Cz/Yb1KSG/ovW
k9Qs1h4M+kd2VQ7bfagVN/oR7TXuYYn2UNA/tqvxi92X2nGjH9V6cS9LtYxB
X2ZX54jdjzpxox/TepOGj+L7UsvkmclzuVaDo3Z/6sadflx7nbR8rGUO+gq7
JsfsN6kXN/oJ7Q3SsUx7OOgr7VoctwdQP270X7U+pGe5liXoq+zanLAH0iBu
9N+0vtzHCi1r0Ffbdfg1fnbstzwbxp33k3o/7melli3on9h1+c1+m0Zxo5/S
+pOBVVr2oH9q1+OkPYin4kY/rb3JA6zWcgR9jV2fU/ZgGseNfkYbwIN8ouUM
+lq7AaftITwdN/rv2kAeiu/Z+Dz0XMH7Z1pDzthDaRJ3+h/aW2RkjZY76J/b
jfjdHkbTuNH/1N4mE2u1PEH/wn6KP+zhNIsb/aw2iMx8puUN+jq7MX/aI2in
XbfHkp/m8TG0c94H8zCfa/mCvt5+mrPxd5o90rMFzb2f14eQhS+0R4K+wW7C
OXsUz8SN/pc2lKys0/IH/Uu7Keft0TwbN/oFbRjZWK8VCPpXdjP+st+hZdzo
F7XhZGeDVjDoX8fXyQV7DK3iRr+U6P//y4zwzMGXeqGgfWO34KL9Ls/Fnf63
NpKcfKU9GvRv7We4ZL/H83Gj/6ONIhdfa4WDvtF+lr/tsbSOG/2yNprcfKMV
CfomuyX/2ONor92wx1GANvExtH+9v0MevtU6aDe9j6cgHe1bnhPodPs/Yf69
pKjX/wARvR4d
       "]]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], 
      PointBox[{620, 621, 622, 623, 624, 625, 626, 627, 628, 629}]}, {}, {}}}],
  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.5652685850513463`*^9, 3.5652686377083583`*^9}, 
   3.5652696587827606`*^9, {3.565269697437971*^9, 3.565269722190387*^9}, 
   3.565269886796802*^9, 3.565270017329268*^9, {3.565270077489709*^9, 
   3.5652700917365236`*^9}, 3.565270134431966*^9, {3.5652701801975837`*^9, 
   3.565270192356279*^9}, {3.5653897122129955`*^9, 3.565389740563617*^9}, {
   3.565389821115225*^9, 3.565389879871585*^9}, 3.5653899112033777`*^9, {
   3.5653899431612053`*^9, 3.565390081153098*^9}, 3.5653905161639795`*^9, 
   3.5684976274334803`*^9, 3.5684976598273325`*^9, {3.568497694503316*^9, 
   3.568497741366997*^9}, 3.568497789194732*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwdmHc4lW8Yx5FEVJJUUoSEn052st7bPBx7i6QyQyUjI6LsjJBKKSoaRvYO
URKKJKJSWck8xw4Zv+fxl+tzua7Due/v9/M+z3vgzAVjBwY6Oroqejo6/JP/
xkp66v465fbZ06MfPowTlOpN+kNOa4T3TtUwhW1UomWLLAujDTucdItoyfxE
JVRvaNQ+M9gN9O36b9iVaITDkaUtElv4QOlt7x3XIBqhJ+IwxUUWhF9vEmv0
XtCIwo5A7yY5YXA8Y8U/2EgjFDhE8xiDxKBCf/u34z00wulf4oMnluLw+PXj
vPxhGnGh4Y9Unp4k5DqpxlMmacR1K6aDK27SwN9UlfhqjkbYvbvsKOEsC3Qe
Wyp4FmlE3aY9Rq7H5aD2xhNPs380QmJ78O0RL3l4X/2hfXKZRpyaURLTd1OE
oJDNxbQVGvEo9S3P31hleDna+N+zVRpRFCf/vd0YIJcxlX/fGo3wqlQyfKCr
An92Zfg4In7V/GQ6yloVNltJX0pBfJZ8rPqspRpM9XaSqxDffy5R4uqiDjoE
88/PiBNmqq+6+2gA2d10wwDioSzvS84emmBafMNlHHG9ZmLytWtksDbZIzWD
mN7gW/+NYC1g8m2y/4uYTqWU/qGfNlDqOf9bQhy5669eewQFXiUqHF5G7G5l
9/pviA7YHR9zXUHcd1XanrilCxKBWUariDlv3v0W9UgPev799xvzU3ZRv3cp
+tAeEQlriOs8eDUOZRvAlseJ1zCn8j3kUTI1hMHTodmYqwOW6JzbDOHTkcgG
zAd0Ni0LWBhB7OLWb5iLP4pEf+0wggFezyHMMQ2r4nw2xuBQ7UvDfNNzxOVU
jzGULdLNYQ7YuX8b/3ETeGKSv4A5U2Rjs1evCWQ5y//DzDRLv6fupClUbX+1
jPmZeMGV1D+m0NjXvoJZ5EyW/so5Mzi5GrGK+bt2RaHZmBlwuK2sc3u6/2HC
0xz4pczWMC8UGSnyT5vD7vnodV4r9ygJP28B5TL566wjrqkRMGcB7wea1/md
zZGzrp6WsI+rZ51z893/rq1ZQp7KyDo3J3y/OOyEPjdN+Z9J+ATBt1J2f0WW
GWp7jl8UukIlIlurB83MOaFSL8qmcQv6Pn95qIwyPPDdhk926DSNOJ6TtyYg
yg/TvO0GK8lov0EXpSYJIVgodFuJqKIRl2ZMOP5Yi4Jw5wuJws80IpRReO5Q
MgkOR6+dJw3QiLFT1c6iJhIgpqO94+c4mie7j5i5jRTwkppLDWZoxDx7ncYd
FxlY5hJeSP5LIxKdmq1bTx0F7g7xWtMlGuEX88FT1OkYHB0qa5FDfdBisO1L
cVeAt7yTDQGoD3RNVzP4A5XA5NZfcTPUB8aTD8623iVgk1uT/jDiJMGqneUf
AQ5kspzUQPO49/riox0dKmBv0vo6BOctita1+FUVsq68CXiBmMFXpsKlTw2E
14pNmxBztfrspU6qQ3TMe4UexIof9wSMz2pA9sFMsWHEnQshEd5LmhAzUyw6
ibifUqoURa8FJUazwXO4D1pa07tWtMDpidHoAmL1nC+HKugosI9bhvwP8bLc
YebfG3Vgr6dWD+6HMFXnZgqbLsSyjY7ifvhvdkqz36sHbw33p+M+/PjUl/l8
vz5k6OrvWs9znaCtj4ABCDmv2q/nZfyO7TCnIWy/wXl3PQ/6LXHGiYYg7m1R
iZk2ELz6docRCFuZfMLsEpv8ZvWWEahPdvZi5tPh/Lm82xguFLmMYWbfN6tX
e98Y5pzDpzFH1m9QquM2gS8djH8xJ6YluL2/bwIWBM8S5u64kKl7vKagqsG5
3gfzxK/vj6SbAj2r+XofnJteDLWImgGfpsx6/hm+FARn5pjBmF3jOn+Z3+NO
OWIOB34cXs/v7/+GivMLzWFhxmOdA2T7fU3FLaB3MG2dn3idCKQvtAAxllfr
zPJOvstT2hJk+TrWWX6TYX5JhSVY+Aysc5N8SMW40y/iSskwZVh8guif+HHa
d24DDDPbBlZTqIQodXE+5zgHtPanGdyYohKCahIW5qrcoP5kxiDEkEb8mugI
z9p7ACbDzMWmY2iEkKlrYojaQSjLpdIblaA8DQ6rWVJEQC6kbWdyK/I3q4jx
7ejDMK4mKTfzC/mAJLxhuFMcfoaJrPWNov64Hsm/1ikJ+x5KDvRN0YjaEjuZ
5jFpyP3PjbN8Hu1/l0Bf0KAsXMvtM69Fz4t9zR79lF458NnOwdeCnhdVUbSX
r6flQfHrNpBHfRD/aetcPqsI+0UFDx1E+Te+IvGmfwcBfSP17k2IM45f9tVI
AKjf1q0gieYRUdPlaxmvAotRf/u9EY9mUn7X3VOFk3TPxjIQl9oeVRi9rwYF
SiWH3iA+/tJ0OOeFOpwoWlDvRuzYN3aFVKoBIXF+5b8R//y0vHq+VBOSVuTt
qYg/awmObXxNhsrWbOdZxME6CaOfa7TgqumyOO7D40sNSWLV2kC6nVyLnxeq
whzZ3xsosMy9NQr3QTejK0u7UQc6uF7m4j6QGlrojbt14VdQZADug2+hkuqe
Xj1wOBCwhvnw2UNuab/0wXP3SxO871NPDzEEjBpAlqVdHOanZaWdZE9D2HZR
p2g9n/nVa1zThhDfLfcBs+b4R9uES0Zw9+7tH+v92JImPTZvBOUvto1g3v3G
X20i9i/xmMfFsObjBGHDlth1zZcN3k050t5mUYnfuVfbV425gO6SXFGbEI0Y
zmIOKzq0H76cuC/scxHNw+W67wM5ARg+lnqrIp1GfM306TiheAj47vCyMb9B
/WF41et97j+QooQeVutGz5sVoeSKjCMg4yJqvHOIRry4adzq1iYBnc+kd2ZR
aURISc1zkd9SkGscaJk8SyPE3Pab24/IwFGDL0H2CzQiq+ziF54fRyGxTfH4
d+TTTn2hjZupx6Bui2z2XeTTDv9WJm+qAoiZJnFUoPy0FaX3xmxUhjQ2Nptg
lJdvqYzMP7YByCVJcjOi7x9KWy4U3aoCqaI9FeaIcxpYm1t3qUJD916leMTK
zknNEnvUYOuH00QJYoN4qaNjB9Xh4LMXfa2IO3rv6R+R1oBlJ+6WX4i3V5P9
sqQ0oX83q+Mo4g+8rOwBymRo0fN+M4V4Wlcrnk1FC35ZD16Zx/lRX1u0VtCG
+ubwxEV8PukbqtRQp0DwLoNa7NNSbS0HqroOJOs/P4TzwihXe3nCUBe8B9kO
4Hy806dT8jmpB8TQwFvMqlNh2+Vs9GE1YVxs3Rfc/MYGTigvorFemFuZeGoS
pQ3h3KW6x5hLfw+QbQoMQWigsnbdh7vUV7xkjKBjfqQT8w3S6UNuJUYgL9g4
sO6zyKiIrQrG8MskdgJzY0y71pzTR2JXdvx0P90EoT7kXl/SQQ8UAfHyXSQq
sbyyK9jSejscNKp9wd1PJaTOvmRd09oDlDB9OXYy6kucU/O5JD64v/+Yxelw
GlGpPKyi91YQyBYZ1i4F6Hx5oqgnvk4YUrgs/Nvfo/8/LjNYb+NhoHOLWZT8
if5+kk2b5h1xYHVmMW0bQfNNZp1OTpAEI96EvL3IPweZZV7Y5UjDxrzpMWXk
n/MXPqZbPpWFql8Xw92Rf2jDb/d8vy8HrBFivxKRfy61HBX5UiQP/Il+F7lQ
fhqH9Skh+YqwVn5bgBXlxz/uH228TRl4zx+sK0csNvtNhM0DQL1Oe+oQmseV
quuD/udV4Fa47+nziE3lF8YOXlaFc9Od+g8Rx5vILWf6q0GYrtPHV4iXJN7o
s8WoQ8ysAt8X/DwYNQ3+eFsD/EjOjoOIzyhXVLomaUJstMD5CZwn8ncV9cdk
MHCo+YTPq9BSMlSQpgV6H21b8Hn1k7WyjmOKNtyyb/XB/vmdFrps/owCnpVq
J7B/TgY9KOV7qgOMj6XicJ6YBemLGkt1oSoy2wnnp+Gxa9ynWj2IEH4+jXm0
6rlHUbU+RGnZUfC+42PS0z81G0DPnYeRmPnd/vN7bWcIwh7BeZivc50IJvoM
4YqLVxPmVQ3pmsmHM8T72I/L9jkTRA3jQflai83gvs35P6VbVKK0Js06y3Qn
+KmVZ2dz04i/bYnHTpD2wWmOBrffZ2nEbdZ9VacK+EFbtb3qWiqNcEuaDRGq
EYKGP7rPfryiEYcuR/nlDorC4DR/1+Yv6Hxz9VmD+/4j0L5hsTt7EPl2KSLl
fYIEHOmKbWqaQOeXgXujxCMpWLsR7baAzmsJNbSWlUwZEMxcUaNHfkndtv/u
XOpRyGr6mn8X+eXZOT/Fe1nHYH9veagL8ktcDZdXZJ4C2FM+ZKWgfDjXJL62
qFOCDG0OK1eUhx69z4r1PQT8/vghYR4x2/UT9lNUAFPSXlV9NI/0+hqZqTkV
SGw+JXodn78XVD7dWlSFPlropQJ8XgqVXsjaoA7KwTKkD4i9LVhK4jg0QEIm
gP0nYqGGfH8dTk24aWZkOILYMObde18eMhDJPsv4vDaqszZEOaAFDd7bN2C/
QIPA/DEebfhR4wvYLzvfnbwYxE8BZx6bMOyX43WVpWcP6kBe5x8GnAeuHeER
9SRdMIorZsL7f5gjRZ1Q1APV0blizPF9RTaTSvqQGHqKH+/377l0SzsNA0hf
W3DDPLT4Na5a0BBa81lSMUvesxzremQI6bseVGOuCuwPfCBoBG50uZ8x37mj
70SL/UOUSVkvq9tMEFfnKGvyXEzApf7A5qQDlTj+8/s5essdsI2uiHcPHcqn
+EUnJudXRK4Kjev0n3HC60ylt2k9HQQNmb2a2U8lBjc+Uyf1sENw5I8phm9U
Qj6AztHkw25QpM+9xa+K/PlL3O2jIR9wJ5D9Zq4hLn66RzJcEASi3VfO5KH8
Ju8WORwoDOVNN2NPNaPnQ9vILpHXYhBhkpqi/QM9L7UWZOd9xKF08amuKvJN
ft4iR8YFSTgy7R9ejO7HlgX7zubHSAME222mQ75xTjm4USNCFhh0avnJyDeW
vhdkBC7LgTo1OsEL+caU9v2XbZI83OmJ/bEB5YnzvOZL5zhFoCSG3VtBHHf7
FJNHnjJ0pCzvyEd5cq+7fu3CGQCy2o97/Gh+fgr23DE2KiC95Z+fC+4fgwHN
wlUVEv6Ijj7APmkp74k6qwaOdXnba/B969wSveJldQj/N87Qie97F1jo+SI0
YGx0cxm+H2d43dntEqIJDw5zUvH9WOud7Dm7RDJsETwbgn3Dt7VxkC9eC07v
LL+LfeOs7y8Ucl0bysgzRtg3pd+VniTdoUDBZhYN7Js/bsGKbLd0YMVfOxDn
a7b9HivjU114Fdp2Audp4t614sMFepD6YG0Mc6PjiHd1jj4Ylodr4Hw8Dzrt
tVxpAINy6WGYPTYlXPbImiK4tXkeld2dIGjB58dOklkgaadC9u8oKpHWQOIL
7uSE4K/D9405kX8Gum7mF/BA/PjKyIwDujdaD9m8PscPwyzfhJtT0P/LUmTN
GiQEwXuHbeVqaIR+GfUt5aEoeC5lZPd30IiW139sdL+TgE5To5iG7n/3X/Az
XPaQgMqtdvZmyCc1i5GsOkFScFmCLPkE+aTeqTuKcl0Griqfrm9B979kBa+l
vqCjsFhByfBBPmFf4bfsjzwG1fuurhghn7j2VopyxCuAiJrf2Ri072K161JK
aUpwbK+16ym070kzORPtlwS8dCAiaYgNLdiqTX8B7LQe+aGN5pGqluzK8FsF
UkQv00fg82ptcse7EVWw8x0PysN9Xy3uvj6tBjaWpg3N2O+J4FxDrwFSuxVE
fiAuoDj8S2HUhAUrci2+/yW+fiLiw0qGM+8XkrBPHN9bcbhs1wLK3bbX+P7H
t0l29jmbNqySx3Zin+RU3NO9v50CSeGFjtgnoiuets926sB0QCcN7z+N7uyW
/H268PDh6gLef6x1i6aImB6wzR3Kwfsu/docokvSB/OIYZ7188WuQetz0gYQ
9Yb57Pq+Z+T+tvMYApn9TgrmK9zM/dMPB4iu5a7aMPIEUXgxKf/rxo3w7dy1
fB1LKqE65CLZ1c0Bl8+vXZtcoBJ1vrkZws55RCx//VH5b+NEDJ9tq4AiHYQp
aaSI7qIS3VFUobv32SFya1nRz04qUbNR4OZK7G64z86vkUrQCOmInUp0R/gg
VLv3i+RVlEdqWFiGoyDcCybzWeWi+cvqGPyzEoauyqqc9CZ0Pp+KGrj9UAys
tRiut/eg+88jjVE9Z3FopjpMLw6j/b90T888KQmiXUZDQcgXUxs53n0JkIbZ
ICaG3jk074I2mZc+spArx7lNEvmCDdTVyC5ycEb/H48D8oUqHellRqg8VMxL
Oy2h/FSKv/a0DlSEhvsHiuZRfpK5byYUpyoDrdvmWTbKC8fzftIjK4BThYwD
vGh+80uGJZxmKnCJ8WiAM+6749Kku50qCEbsL7yP57158cPiKTVQldIlVeO+
br79/bOHOgwPuF/swPeXAjsVrSAN8D5ZZYN98fZGOHnEXxNCZ+tysC+YIgYZ
PK+T4a/FVWvsi3jSJzvLSC1gF3UJwr4oJu9O2n5NG4LHMpSxL9L87vkV3aDA
8Lj0MZyXnIGLa1djdKD3YKYXzotL1p+yRw90wZiebIHzQrcr7p11ph4chZRh
zGUvo3xUM/TBup9VDedDzJmwksqbJJij+wT2xU8QzMQOddIrZthn3UnZEUol
kiiXGMZucUJEX8OrHdtpxLVzS7VWnjzQ3xSaPmmHnr+M70kzOvzwzcXCwPEe
jbBWT3wXaCsEEYaFt09Xo/OY2YHx3VdEoZsSG6CD/PB8IEKksoIE/5qWym4g
P6hvci9pPyMBF98EcnMjP+zbSHff8LwUzPK+qvZHfrCp+vDH3V8GrnQ6RxYh
P9wy4v3P0v0o3CgL13NEfqiv/+vA5HsMasvn/DXQfq2m2JgsghVAIfxKRija
rxUT0/iROCWYLKvrskL7Xfrq8jM6iwC92FtTY4inlezPhncBVHz1fURG8+DZ
EMYU3aMCZS+H7MMQLwqqf+ntU4WPV2lBuYjZFOYal0bU4K5U7Vbsh/PiPSrm
i+pArtYpwu+H5mNeKdQva8Ajo/FL2A/FP5Is5xnQfnvFT2E/CEYzP/dj0QI1
R67H2A/xhwjPXkZtyLUCOuyHhUK5SlEWCvgHb7XAftiR0ibVsEUHbgXuH8L7
tvexaju4Uxf26tFNr99vpLhnGgT0QPNF1jO832azL7f9hfShu4qXG+936rt9
mldWH7GN9XSIieIE0XzkGEtmICN09brbJhlRCVmXQk7VuxzAbTWzjzxHJcqY
RXjPOacRVsdm/GI+jxMSa2fmuCbXCLeKhz1Hd1CJdh2O5NYAdjBYvWLV8JlK
BFOKM9vP74ZLvn05lsoo798jnuzezwezfa/YDIPRvKO9X/4wF4SK7PpTHS/Q
/sPsz/RrCwNdh7WSOup/K71VU8sNMbih+J/jbdT/JP3xN36nxGHkqOb5TtT/
WshxFTOXhOeBksYOqP/K4mzzI17SEPbJrOsj6r+9opD+/AVZ4Go/63YI9X8o
nUT5eloOavRm9W1Q/yuZu4TfBciDuH3jwzmUjy0cdG0dXorQzpIoO4Pycf+E
WJfZbWXwO+ntmonycCZl68ZKc4DRksGQ/Wh+JVbvGL4aqsD8dKO/E+LC3W0X
A21VYaL7CSfuP1V4z9uCE2oQu9HrJX6f3vjVrjHtvDosJy0dwv0/3x5/+sRl
DeiozxbH/Tfft/rz+SVNMKF/G437/9vxZYt/OBkYL9mQcf8ba8wEvEK1oFZe
0AP330r9T3N3oDZY8/2Wxv1PamwceB1NAZZJRSmch61po72KkTrAPa/njvMg
xLU1zv2uLpgJXDbFeYhMvt10U2KSKDDI81GOniA4Ux0md15mRuenUFm+q1Qi
ju2eJ98lTniUNPT4wjbUx8LoriOmPHCr2s9k/Aw6D1sq3WFV4IdupkfehXdp
RG7f1ZVSAyHQjHshOFeF7hcZ8mtrbqLgaMu9d+0zOg/PWmybek6Cg5tOKNmi
fu8u5rqxaiUBQnwVpOVxdB+7rmD/2UEK+DeU6DqgfmcNNXCFesiA8c0BylPU
76QeL7Wbzkchd7Y81gb1O1W43y35wjGQWC0RIdD+Pi2WePr5KsBx0dbyYLS/
F3/UtDLDlEBgzzsmS7S/tb2MgocfE8CpVXpgFLGaRDyR9hmglfI4WBPN4/uZ
fyYG3cjnIjFJodi/XXssJn6oQhx77Sp+/xtxfGdd4W81iJlhKcTvf1XXMkn8
c+qguaPGB/d7T+64dfeCBhyb+mOE+63uyjZZsqoJT29HaeB+b3D95XF1oxY8
OZmYgPvdWPZGcplOG76FGs3h912peZumphgpsBoibID7zTy6+qCTRQcybY/2
4X02SH4u6GXXhRySLxXv81UqNN3i1QMxe8cneJ/ZijuuyOT1Ei4nPfY/kZ0g
vsRFl8QfY4SC3qAxMX0qIS72JczHjwMKRI8wn5uhEsLHP2+38TIFuRrq+vvY
jG7at2gSP1g9rwsTQ/t0fMGYFk0yBrHb9eP496OMj0NJqACTf7zX35c6UiZC
PmkoQLG8sLAjmreSqUQsqVITDGo1AvH7vRMpheXRJEmIrbi2aYBGI8qXbz6L
JqnCrS0P6ZPQ719nt3p80tABM1KqMP4+5A1ull6fDMDnUWcU/vz/AYqwhH8=

       "], {{{}, {}, 
         {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl1WWUlWUYhtGRRlpppLsEpVsaaUbpHrpBwFZU7G7sbkpFUMLu7u7u7nbf
yx973vf6FotzDud5hoZFywqX7lZQULDLj5wH+9GZH903MJtb9Uo68J3uwHnu
Y9mTZ/TJFOMQ3YWf3Dcyh9v0Kjryve7I+e7jqMqz+hSKc6juys/um5jL7Xo1
nfhBd+IC9/FU4zl9KiU4THfjF/fNzKMzF3o2geo8r0+jJIfr7vyaz8l8unCH
Z+uYSA1e8Ox0SnGE7sFv+WwsoCsXeTaJmryoz6A0R+qe/J7PwkK6cbFnk6nF
S/pMynCU7sUf7ltYRHcu8WwKtXlZn0VZjta9+TPvm8X04FLPplKHV/TZbHff
3bnG2Ye/3LeyhJ5c5tk09uJVfQ7lOEbvx9/u21hKLy73bDp1eU2fS3mO1X35
x/1OltGbKzybQT1ezxxRgeN0P/51v4vl9OFKz2ZSnzcyN1Rkre6fgWW7Y0Ve
J+/ReZWziAa8mVmhEsfrAZlzduiD6MvVehYNeSuzQmVO0AMpxk69kn5co2fT
iLf1Oqpwoh5EcXbpVfTnWj2HxryTOWEPTtKDKcHdejUDuE7PpQnvZk7YkV3L
njmHUJJ7sq8M5Ho9j6a8l1mhavZK708p7s1+Mogb9Hya8X5mhWrZIz2U0tyX
fWQwN+oFNOeDzAnVs0d6GGW4P/vHEG7SC2nBh5kTamSH9HDK8kD2L9933qPz
ZuciWvJRZoWa2SM9InPLg9k/hnKLXkwrPs6sUCt7pEdSjoeyfwxjvV5Caz7J
nFA7e6RHUZ6Hs38MZ4POL8c2fJo5oU72SI+mAo9k/xjBRr2MtnyWOWFndil7
5BxDRR7N/jGSTXo5e/N5ZoW62SNdSCUey/4xis16Be34IrNCPQ7QlXk8u8fo
zLduz5eZD+pzoK7CE9k5xrCP/iozQYPMpn6y4P//E9Y6C9nX/evMAQ15KvuU
1+WbfN804unsTV6Hb/Od0ji7wdh8ZzTJ7DOOrf7e9c6mjKcZE2jORFowiZZs
8WcnO1sxhdZMpQ3TaMt0tuXf0zmDdsykPUX5rMzK5+E/9H3IFA==
           "]]}}, {
         {RGBColor[0, 0, 
           NCache[
            Rational[2, 3], 0.6666666666666666]], 
          PointBox[{435, 436, 437, 438, 439, 440, 441, 442, 443, 
           444}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwVl/c/Fm4bhpFVJDuJEpnZWzz3fdmyx4PHTJRNiKIoRYOyhZAts5IZIiuk
yCoNyciWUXbi/b6/XOfn+gPOz3GcJxwvml6gICMjC/jv/D95Y/7lZhxrRr5W
y6Upj2qxbgON4ZTLHm4rHCnRpn+Ouw/K76e0YwTB0xGCTpM5WC1Gs6nAiAOo
m/iTpu1S8AWJ7YNSB3nAhDS9L4o5FhsIX1hh1z4JqzRGNrGl4bh8MCTgraIQ
nHrf078YdQ0rM4s8p7whCkk5pA3mAV/s8jf+cT5JEuRtCHbGRi74Yvu0zHMD
afDKkLz2w/0sjrSm5v/nKQsZlV53voYSsVPHNWcpV3k4v6LQdTRKDzfTHDHx
sFKEudkmN6liNSzFFJo0638a3gUxpboFKWKHPwRRQ08V4Pk8UXL2liTOznjD
tRGFoH/VzFc9ih9XRJ/+1m8KMOXthkttuLB/HcH4sb4qeGhShNBJseDXXfm/
I2zUoOjZtVk/3v3YTVupwY2kDl7cLXcPLJLh9EKpKg93DViNtxz9y7iO4v40
3PS5ognelJUxJTsLaKo44LKrnxYMHi3Q83k4gdq04lNu3dKG+CvYqvvRF0Ru
9HU8JlQH7mbNHvKS70NkqtXkWUFnQM2vdbHUrAPdO7xh0H9XF17vG3LjS2pE
PtZOLRthelDwrEI2P6sSjd2UPY8f6gPd2B1R0mQxYk149DUi2wBOpo+owtNs
9IRRJKgjzRCEnixRLi0mo2a/45qCJUaQti1xzdImBmXwZHERiMaQwx95e/rY
bdQQvE3m2msMFHNkbDP1weiEHs0On6UJdO+bkg/b9EOVH4Tvfxk0AZa2Io7R
B27oQfuuJI+dKaxK8SWp3XVACZdm3R2GTWHrokgE/a45CmY7dojXygwS2JUt
XiADVCRM1eU/agaHHJfAjl0dUa+SH2m2J8L74I1lX5rTqEDyxfWMaSIYspES
VlylkLBjseE/L3PgkORvOxIqiL6dqS03nzeH9RW760iYB/XnXhXDlywg4Zfz
TqoVG9qsMFHh/W0BEfMWaYEUB9HeS7+qO96WkCfb3BD7ex/Sk9TSDF6zBAMG
21Mc0duEDjsJN49LJCg8n+a/tLpCeFbms7G3R4IBOtML+o1ThK64b74zLkvY
kIxOwKG7AvP8q0n/J08LjLKOcynchfheT8NPcwtWmNL5ZLiqlYGpN7gWKeW4
oERjVVmpNQFblT7f4xPhBbl9gXSlTRGY7IavzDIWgFTVgTyykVB8+Y8Z87SN
CJz3YBOeFriMwymF1gRTxGGs158srs8Tzzs0uIqYScGfvsrqhRNOOJjxiqiF
nQyUvMr1iHewwuuMzZrJ7nJwn6z/+aEeYxzv0mXT46AAo3efq+yVauGgB+8v
ibgoQSpnD8QrIaxDcXYszUcZ1IrIb3QekcVkb2/m8YYQYNij+M5yqQimtH/s
1vMIQ7YAdmO5dgInnnzF9vIDwAGab12IeBintvhmswyqQrsIv4f+oUOYNWJp
aOuLGriOmvF8yKLEFIFyte5j6vCY0i003/wvYu+5cnRxWQOkU2qUOMdXkMqH
I8ELq5ow5mb01WJgGn3cDLsbsK0Fo4LfOZKKf6Bx3WpCBLkOMLLctz28O4jI
dHR+H/6nA/1+Ju61Fu+RRuknwVoyXVj5eyn51EQL2lEUo52k0gMhkT/Or7hr
kdCiXkIavT7cinZIe15Yhq4ecMk8f9QAvFsIfzh78tH3vrGiwmOGwN732l2e
/TGqbD559gqfEbxScN6WdkhAewvJZ2dYjaFTSOL0cF0EembYHW0abwzpb5+X
87rfREsTobtvWEwg5fK9WVOLK8g9KqV196EJfCWzrzkkchHx6LGO7HCYgs0F
qij9h+cRI/eqQVO6KZx4vk0n/sca3WvbR2jmNAOvKpMzFusmKD4zzvNduhmE
6nTFUMRoo8/RYSupx4ngUH6s/aMdRhbxX95J5BKhJpOzs8BIDrm+fTrVLWIO
flthBY9LRBHFpxehRaXmsMrt9KspiA99Wj/ioythAdn9H4VtNDjR5KmpyrJy
C/jc/c86NJsJBcuPBxIlLcFRa/dLOzUtyve3DSEvt4SvjINvKghkaH/H6aFL
siSgyyweGl9aI5ymMS6rqiVBUqPIyfx7C4S3p8NqF1x+YDZiXWFDYDUe//X9
XODaPojwPSQiRCzBIotb66VWzMA3QE5NN52FT6pLWVqoccI9y/vkSUsP8Y9f
g3eKj56AxjD7Of/WB1iA6BEfps4PVKbE8NcltzDrzxl1kq4wEJwaD69VBGIH
OmHTpPti0EE7MuVE7YOFxYX2zXyUhPHjVz+RHbuAL3tIlN36KA0FTa9TlVRs
cVOVk1zXvCyspRUKDsWY4quH+cZu/JQHiVnNoLxdHczd5TeuO6oI2Qx1NTfe
AX4VsVTf8vs0EJflbu6JyWPJkbOuL1dVQKDcriHqqRg2vS7VOs6C4UDsuRd/
XPlwntW1QM04gMpn1LvhL4/gu41DgaRYVehcf82Qrc6E54p0J5tT1UCxdgqz
v6HG1WcVlOfS1aFG9eQ5fs9dZFVPnCl9qgGH+I2ehH3/g5zH5q+LV2uCbu4V
3zvac2ikb2fXu1oLeg+7ULxJG0MDOifnqVq0IUkv1LFQfAiF6sXNDTT+xwuJ
macMKh9QzuX2RNGGM1DCIl3w+F8bUhNiLvnWrgtlfkuCMTX1SD9vqPhMpx6I
qomeEYwsR+Lt3eSmn/VhiC6LPFChEAWWE9SOjBrA4Iz2LIE2C4m5CXpm/jAE
CG5eTr/3EDk8EaQInjMCwhOmQWGXB+hJTfVH7UvGIMC5XccnFoYsyhr22H8b
Q2GUbVXCRBDSWvhwNu6yCfhdG5askPVF7gczZefXTaDRW0LddNkZ9fgG4eVg
U0jYjlDPGLJDDOnrA7F/TYHSrCBh/08zdPfrUMP6VTOoPazAuCGti8C27TsN
GRFkJnTHx3RVkXirl99mKBHmWqns3eMUEG3Ic2n5/ebATy+acz5JArFzPXMx
izKHVzJ5Tdrn+REpy43J+KAFdK49GtkT4EbDLpIrG/EWEMWURDBwZ0Gn1x5Z
KzNZQhZNFLmJwwHUn+RyRCPWEt4pDqvKklGg4mvAsMlKAkbGi+oPRTYJoeWv
H8QmkSBUdO239L5lAkfrVfVfURuY/Ojz4IO3XmA7+vihW4H08HAidn+2WT6e
fHazf9eUHVhhJWWWPw3PFNPerhA8BuIX/Bc4++LwgHtk4GNFPsi/7ZuSynQX
fym6MmirIgiyF2WXt65dx58pXo8GeJ2C8smvBLeRS7jon0BKbZ4EUL19+PHp
nBt+mmDa49krBZNCpHdz5udwWFVjofCkDPx5bE1l9MECi3oeszg/KwfDzK1P
yLwNcXGN7yeu7wqwmdtAnxavgT8aClAdWFQC+w9xRk+klfHg1R7qgEVlYPGw
t/NQkMa9FbmjD6gQjOXLYYltQfw1g5L2+yGAbNnAp7XBx3H40k65CIMqXLYu
udomxIZL2+m6eg6rwUzt+/21y3QYuSZ2SR1Rh1tvth8IllFgo1gZhXl+Dagv
chcVjtlEg6OphhKymlB/cu+d35FlxNSgHVQsowU1uRzTq48m0fvjdIzBSBtu
0NqcZwsaRr/1dWLpVXXgY6iCjgLFAArV2NuyUT4DB3a/DP6seoumxqbqNDV0
QaN7Ort1twlVn9G5sKihBxy5B+83tFQjSsWma7+M9cFC/MxLqaWnqMOQjHDF
3gB+EIrSmrNzkdrKbSZFO0Mgt/F87eWYik5z8poauRiBx8y3ImvvONRDzdUY
L2sMAatmTjlGd1H15IS23Qtj6A/gcY/OufGfr2n885czgWqxqwmUdAEoRvyc
oGeVCVyF+83fFDzRp3sRdxmUTeFn5juuUj9HZNrpbRv7yhRYVLuU9UgkRPGL
8cmKkhl89ev5+0bWGGWc1zua1WgGC8p87m4KmuhisxqVOCaC6r2gO8vhKuj6
OU1+lzdEkGaUlxBRk0GdbKWpF/TNIWT/ye57W8JoMabq0d47c9gUee1R9/oE
Ihp09WiYWEDs1Ysj0cWH0eJSWqBbvwUMy5z1WNs5hBqviCR7GVnCPUmjQd0Z
KhRoajLWOGAJ+UEmCccs/hFcmeWylsxIgOoZZshG/hBWbUYHvg6TQHp7Izfd
Z5bQ+aBfZ83lAzYquOoxs1mDNaZ82qoGycH/3b/g8GNP8c6/w6EkGyao+bXN
Zz6SjWXc6un2dI7AoIXE+iZ3Ms6JdunySuSBDtJLqWKXaFyHZlQN3pyEYbE5
drf8MOxkWzEc2ywExS/8B1vYr+Ke6KJQAyoxGNt9qxQ25YM7E+16tZIlYWMl
eb1Ewhn/TqH7nRInDaWk5u9ZnXaYn1buqVOpLDxdyuYUumWGvS9+yCU9kQfJ
vVDFKYIuXpp5c+RbuiIcapgwCKtUxZe7FYQ/VZyGujfeMv76CrhzxlA3rEwF
2kouJrYbSOCr0X+XFnoRXKnkLvp16SQWXf0qTO8HsP3sU8cn8qP4+qvIn1e9
/+uHn+hSrwwzJp7enOe/pgbirE5hugs0ONZMcafoqjq07fsuKkBPhrelWg3p
H2iAg3IN1fjSKgqeI4Z+SNKEh3w3+5IfzSNHVFvnkagFmZte/sNx4+i99jdV
jRxtkC6wkAuz/Yygu2rqRaYOKCxan4MLvajPBuk5p52BY4JJXu087WgyM3zH
okAXTmZIiY5zNyD7G4+reZ7ogXh7/pJjdAWiPUle0VmtD3e2Pl3Svl2E2nM8
ovuaDKCuUPxKyMcsNPeq0K+iwRA00xkXkyqSUOyD3Ny+LiMgXn1A83UoCvF6
ngpqcTKG1Zc3/CeOh6NIdttQPGYM8l46jV2a11Bl2vzTr84mMGRzPHGcyQ/F
eP88Oz5pArM8FTu9cq5IjEtFkdbLFAIL+A1kXc+iXhqfzM15U6CgzLb0mSci
is2rzvTuZvAy4O6zzyV6aLXlP2gsmwE9ZRnVcxE1lPqt5s3wRSK0d3+/O/lG
EX22KCO5bxLhL3vWqzcJkogHi9oUhpgDU5WtLY2nAOIMYBo33TEHT5kbDrkV
x9DQbfOYo2EWYLv1/cKILSt6NBjw7hm5JeCHIjwmhXRoRtDL5cINS1DjGthz
/kOBts1bhU9TkSAuZLRAxXKLcPLexva/cBKIXXv+vGptmbCrKdu4nPUHN8SF
HfmcXo4bKflPN1kegAP7b5wRK32CqxszbYqJbEAVt3Evsjgdb/TGK9mKc8Nw
BcHFtDUeJ9Fxv3J4wQvhXhffGZ+9hz0TV8MEGgVAjqFdNIk2FAteiwh69lME
ZKPueCdu+2P2mwXtPsckYPzUDrUg0QPrb99NexcnBRs9Qn7y8o6YbCJ1DmfL
AMvfHzMCh0g4rnGp+1+RHPietdm/vG2EMw4de7SWoQB1Gl9SVB5p4gKvIJXU
YiUYndpV/FqigqMb2f3vPVcG7ZLSx0W8Mti1Mb7FspkA2mYXvtnrCuNhgwGV
tmEMjDrkMhNJPJg+0vb8yiJAVr5s6isFdpzb1ii3sqYKeMCq2yXgIC7aVO17
uKUGlStUbfY5+7BQuOxm8T4NmO35jidntlCA5f6qaGZN+JBxfrJ5YxkJtJdd
1WPVgop9rsXPnk8h4wcd7wK5tEGLFPiBkWYEzentTeme0AGGNFfW71sDCNr5
1pW4zkBbSgAl924XYuuw973BqwvU4VrR9+eakVVzXbUbvx6cVbUwbZ6pQews
d+62iesD/eBdzprE5yirVGbxl4oByPUF22SX5aHYsQq7ZYIhhJOPey5VpKEN
r1ySk6YRfKZrPjDqEI+mtr5EN5w0hgr7A+8SQu4h6VTS/FC2MTyyomSvSwlF
r0LGQx6fNAF9s6iOPaHLaOd7cEBVvgloSPLRphR4ob+zPeVUIqbAaXrim2uI
E3rhJ2VeWGoKl0MT7h95bIXekCJ9rUTMoLVzrWU/owniuLXYWvXUDMZsXO3O
22qhk0JO185LEIFu1Jfh1iQBzQXFBOpVEsH+No2tg5osSlkqbXqkbA55I4Kh
1/VOoc1ymSjiK3MIjfhatZXEi9h4/TK1wQLkf62vWy1yoLmDzexRLRYw4fs0
S+MdI+K2pKYdw5YwfO8ni8tvahQ9YSEx2mIJjSm3D70f3iW8XKipl9IgwZ00
y96hsVVCshSHms47EuQ1//g2uzRHSE42dFmKmsYGjgLcn9mq8M013b3T7NRQ
3nhKgLO4CFuNfPMiJ7GAwm7m/uGdTPxgLdel7xAREvdef1q7DOj78N1jfIX/
7ZOVz8E9pxcJJncKL3gtkkDN9VJww4EZQrukrwu162uc8Pu2zkbbS+zvWBdA
bCMDnpTsA22Mz/BPqgIN8WFGoA0UHO89m4NPB5M5m73ngNTPWPdpfTKm/CHp
+cGYB+xrjz47oR6DKSufHJG+cxKW5b/ngmA4jkzhEBYLEQJJvqPytR+u4vDe
2cPCLaIQp/xJUtrGF3PobMqvX5GERW1qq4oGZ1z2fIs576I0rKQdPfAnyR6T
XnC7lT2QhajAPcX5PTPsmsZPpXlXHkSnB3b9J3QxKfCiHN81RfjwVau3VkwN
E5e+/TibeBr4OY/GsYwpYFZvrXrXaBX4Eug1cIpFEkcnOVD7PUfg4aIm37R7
Evs0R9666AhwUCfJMq/0KA5SPs/5wE4VOJ+QMprKmHEkhdGSpYcaLHJzagXc
psXB3S+HI9zUYag971DiNTKs57VNrnJNAyInlW5FXF9D1Bf3k/Pc1YRo3kNs
azoLKM8/mcM9TAvale3755kmkE6HvJdTvDYYNH+tEdv6jHgYOn/yxOqAJo3M
x5j3vcjV8KpAWOQZCOw4OCb9sh1VfyPkJybrwi8e1eKaoQY07RmqQv9QD6xO
jAlWslWi1f5UOson+uC4k1GxIV2MfqXeqhR7YQDnF6v5qSEbdTrPBjSUGsKq
j+iakFEyKrxxzn+nzgiiI+6/kUqORg7tk117Nsbw+Hh+zcDjcJR3pqRp4LMx
JK/pburtXkPul7aIe/YmcADRjK+F+SHe43fX7L6bgL9AdQrLD1dk6/tYlvWC
KTyZeNlxhssBlTeI3hb9aQpbiSbk2pfM0es7708nnzOD999lT1D76SPD9dVo
qxkz8PYgkh3IVEO907ZLhi5EyPW5lbj/ghJqai3zoFwmgh8pKbVzRxLlGc8P
9geYg9ufRvk7qwLo6tkLuoN/zMHhsanH29DjaJDV1V7smgW0jzQVvPjCinTa
JsJmtizAelr893EzeuS/fJFh/bIlvFd9txvsuw/xtoYr2PyzhBjyhkmnlS3C
uh9LuWwwCR6oHH9Rf2mF4EcTd82veAWr1nBvqElX4KVQ73l77f3Q9cRQP/9c
Ac5sF+cJ/cgK7L0/HUsDHuPdiaGEshdcsO6l1nRLNQFv2kzZtXjxQsntkLcB
ByNw9f4KG7obApB4fItqxjcUG9YsvtHNEoGJN7fEiqMDcHfLtJ3+N3Go/1db
p8foidOf8lJc85OCMvWV9LRiR9y4dY9O74YMvNj32DetioTbXD5H6EbKgfT6
LcKV88Y4Rdl/e+yGAlTScXz0PqGFGf/xksbvKUHkAtMGiw8Be4zWiTDHKoNt
xJRcZboMrlSPlCFkEiCPWt9Qd0sYL5srmp2px6Axn7s/mOYENrakbyD+ALgT
nD6o1saOM9RTPCgmVWEkzlIuGzPgkaaUwY5ZNei5OTlGyUOJ2XYrP0f+VoeX
CT0DH9O3UXs8uDaSawJvx8QlR48V9EL3wt80Si1I9aHIf4mnUXxLvvAVOm1I
uC3txvBpBDm/s2Z2Z9KBHTGHbvurg4iHRn61kP4MxPxb/WFa+A6V1qbqpzPp
ArE+ZVLuQgsS+XfpbAGbHhxlV+Yg3nyJMsncDpZx64OSUOf2AcUyFGXTrSUs
agDNS0PPQgn5qPpLV5i+uCE8eRXKuuSYjj4d/mnjJWsEAslbUdMj8cjvj+JG
P5cxLHfULyhzRiCfVWYCW6oxXF+55CdAdhN9KpNqlOIygU8GHw+VNlxGFVWR
XF8fm0DAgPljL2dvFJ3qq3PzhClUXndfKqU5j0Y74k0q80zBs+G4zKymNXrC
oG0ZxWsG2qKExZ6bJugjI6RAvhmkv6xi2Pujha7bXKq+IUiE6VqTvIoMhHju
yOY0lBBh8rvQ3LkOWRRq+3RARsYczCd0Jzu3TqGQtt/UNyrN4c4g12Y/NR+6
TN9O81bBAiJ8j3azJB9BM+kDkxl1FkAymleXlWNC77X8mzgVLaHgXQuZ5jUa
xFlq9cmnzhIWDz06yFW0Rxi1CnprqkKCmc/He5Nc1giuXLJb11tIEPRls+FI
7TzhOift+O+sCWx4BLb6WqtwuW9i2RcqKrjM+2VD41oxVptylx76zAz2HPt7
N3yy8JRQZc4CDRFeCUfWXvwB6FlH7kerTBI4IvOLntxLBF7fNq68SRIk6gob
3qibIYSmPXgmv0ECE7NP4pbnpgnNgc/yhFyf49z5EVVx8Vr8gOdsD58KGXQI
lupZRD3DnyMWBR6lM0Lk4Zg21pwc3EjFl/AvigMSFhpsFOhTsOxdNgKZBA/M
ZvzS1q2IwYWLt2/nOZ8ExS/HF6+4heMMeT2jv9ZC0JqQky0sfg07rERMJGWJ
wpe+b7t1Sb64KVtzzsBVErxlmFIPUrtgxnqf3CJ7abiUb2IrQ3YWr1Axd3wK
loUwJrI/fzERO7/olau/Ig/9itzPWxX0MD1oqGu7KwK7UzvzAw81rEYmXp8X
fhpsDumS2kUVcZ1kyyWbEBXwzTryx1lXEqdwJsRVZiBIfurDG6nJj5kLx8Wz
rQF+KFe4Ze7jwuvbxlWs5qrQ5uRzPGiZGec5by/7OKkBhb2cfeAALfY7sPV+
y0EdLD+I/fGsJMOrB5K+DfhpwLkj+6O1O9aQ/gsnVZ0bmuC5eDtbPWcBvYm5
oz17VQs8hy7TIbMJRH33J8WlSG34q0Nj/E/nC4oV73Mi3dMBQ+WPJafI+1Cl
Nkci060z0H58xsSTqgNlBqUGVcTowhhHdApJvhGVTvju3XygB/NVb3qrrSuR
e/F0TfZjfdD7fHku5n4xIjsc3WFTZADx1JI7epezUU19xBW1PEPgnh2sCMtI
RrJBTcNMFUbg57gkX7QZjW78abl0jGQM6x0rVJvfw5HkRP/o40FjuPxTh/Ky
bTDSOhtayGRjAuYXBHzmG/yQxxVS09EvJnA3Lxg7y7mh1aM90pznTEH+DNeC
h4kDyuGgC9QaNQWP2txK1Zfm6JjhWp6tnRkwjHruezCkj3YOhYi6/DSDbtaJ
ZOJXNTTvJUFJ60SE6NkWxY9VSkh2WzKgb54I3h2PzQKlpZDzly6mGV9z2Ilj
cvmlJIiKiTG7iUvmwHVbNoxp9jgys13RlL9iAQ81BVMEj7AhnlecDlTrFiB6
aYROuZge1RFXzjX6WULETS2Bghf7UHXQhUaPLUsYkU908cTbBHvX7IO9V0jw
rjXt61LFCkHUFVvLPF/G3QV/RtlvVGBazKIh/poW5A2LTd81FuBE3csU8w9Z
4cwHPpp73x/jW17bTdaXuOBpq3PM/M0ELET5TvyPHi8YnuEX8XSOwDYa8R0h
ZwVg7buHWWpBKHY0P7HAcV0EXBOsa1W/BuDCibvCdbXiwLZPnkrHxxNr0PhU
9TtKgUmUyq3JSUfMTUWWbuwtA77MTTfDD1hhu1fvp32uysHXv0TxpRRj/NDk
+CmSjwIcLD8x+dZZC7e1bVygDlQCv0ElU6FBArZeoae2DFWGXxvddMNfZbA1
NfWCRDQBlDJDf4aZiuDtL+4j94sxiH8QKZiCE/g34bzbnSEA/9WOn710hzHX
vtvU94dVwdae0aT9CQPeOqnxaXRMDb5kRh6ndKDE9Mprnduz6nDSVnIqc3Mb
eUsOq1psaQD1HasT1k9W0PqD18ptO5qwf8DqGUvENKr8nkhap9CGe1q0KAP/
QCfv0xYG7dcBY52LMgP1gyhWEF8apTwDh9ulH+7uvvvP/xXrRPbrwszPvX9v
clsQS1qvTPtBPXD/eJKF/sNLdP6KdS8/mz5wRawm/btYhihlOP+08xlA2wPF
U+a381GX+aekqwKG8OoT33naV+nojWe43e9TRrBDpvuc73gCUvRxLfnOYQzR
RjkmdO4RKObE8qRMkjF0eHd598neRI66ViN/D5tAjBvvWMj+Kyg6m8ln4ZEJ
9Hiw4twObzT0W40Fc5sCfQhpmcHwPAr0azWqyzIFrgXG19tp1ijZjV+34JgZ
nHzfbV5Xb4JkP7tSUGebwXFO7SoWVW10KuCvWRQfEYzj63Lv/ENImZ6m5nIB
EfJfCBpx0cmh1Xix72QS5iBf2rataiqKwKBfPbHMHFyDztpOYz70hHy5PkLG
Am5M5Xfx/zqCnH/adhdU//dvbzUxeDChPFSSriBrCUX9l+cKmmiQA+M3YaVq
S6iPNxZvpiVD/ozWxk6K//FobkHao2SN0MfUQuRsJIFteTQZK88CYeXb+Uz/
4jEcU7Dx04m7GndJKO0vCqGEvN8rtHVTxVjevZxV7REzuNh38USXZOEENRXY
3vdfnytPvXnLqooON0hJraWSgLqcq447bolw39k0EI+R4OW9qHstrLOEmVjO
A/2/SSDYdmISVU0TDj/ZNU37S4Iptjgr6kPThBpa4eNerplYQc5ZMt2pFkvt
Oa6xL+9hU7dVuVvvn+F+PeaUnmBG4DrKSEptzcGhupVF/d4ccGGl12lONgXr
f7ubz3GMB2pu0fTuzMfg7fsB9d8tToID08ee6chwXHj7vOP4GSGw22MzHbO7
hnvIrd92x4jCXM25ufeVvjjRcKE1yEESclg7a+NEXHATlHqIWkhDbTFlmo3c
WYwk6ddn/WXBddGWaOJAxOdVBAzXL8qDTVINydBRD0/liut+OacID353irdF
quE62iGhjuDT0GIx8mrLVBEfZCbrHfRXgWL04qKesyROtxUdMk9C4M3KUazj
xo8d0xio/tML6JxWdQuT4MJV1h0UX4xV4Y5T1tgTRhZcztHrG3JWDYy4WyM+
bdPiRaEjb17YqkOmRNoubx8Z7vzi1JnprQECk9erKBbWkHd/7Dnba5rAuSGg
TPywgCy4d0cKL2uBx0LB7mn/CTTpXN999Y42eFQssGj6fkGdjeZ8/uE6UHU9
ILLmaB+y1pju+hxyBjTjr1/3EO1AiZ2dEy33dcGRGHqDw7kRMWTOjarc0wM9
/X+GsSGVSICdIdrnkT60DOh0GbwsRgc+svT55RvAlY4JibK4bCQ+ZbVJmWUI
OPAQU3J7MtpeW4rlem4EcqPnz3wRjkEMkVKdYhbGYNpafNpiNxytP59avtVv
DB6v7SxpHgQj2Y/q/ZxWJtCyta+P95sfiuVrzt/+ZAK2LyW2/zm4IfCdkuI+
awrr/O0PwNMBcWpd9TUbMQVCb8oj+m/mqPvFfmtsYwbvZJsb5w4YoH4u1b9e
42bw946SiOqmGtosS4n+6UCEhef2fhEjSsibbWWrZpYIIfF5LWkGUqjz8emy
3xfNgUF13/KcrSBSM8ojBfwyh08tY259DDyImay69nSABXDl6NxXVWJD9Iry
PSyrFvA2bixc7hM9GqYuv5/jYwmVC/soKfv3IbKPH8n9NyzBiuH02FPnbQKz
k2v94wAS0EvdV7IYXCHcS0l6myC1jMNv3Vajf1KBWTMuLLNdo4UM+fLknV8F
OJo+9RLPZVbY9BDLpWPOwBrl94ckiFxgZtAZG5CTgIFESKZT/m8vnWlMdkyI
wM/Gbv6rNhIAFe/0weqWUOyZd3pvz1MELuj3+vmRXcbsq5aHVgrFwf3zZm5L
lifmqGSP2bWWArLPP7T69jnh95HK5wcuyAB71dZDZzkrXDzVzh7uJwfe5l8U
3SuMceKwv3qCqwKMy4txvY3QwhlC454pF5Xgui6DcTk1wn1bVZeCApXh6P6n
0UrbMvjptLpO0W0CxLh7RSfcEMF7RylPiuVgyLC8nvbT7gRWl4rFmQMA0R75
1fMSh/E3x79mRp9VYbc1a234KwOmHjpi+eu7GkxVfv1rFEqJ71qxNZdPqgPj
QQXqvwJ/kdpekTjvmgacMLVe52lbQUeeLdh83tSEvsZmBo5n00jDg365alcL
9nKK+xf8f6B9Hj/8blLpwKOoYrVvw4Oos6ZVeofsDPy6ELZQK/IeZTynWVmh
1AW6wpUlu9YWRDu3+/jjfj1o8Amn0Fx/idqlB16MMupDyi/3SPSgDL3OgLcP
jxvA+4DeV4+K8tEgi21WHK8hoJLvuTsz6UglmThSKWgEzxJwQyxOQOnioVQT
7MYQUn/SwSw+Ah17aX9aPdEYnoeN8V4wuomEDnstjrKZQMJFraoOiSso+PDH
R2vJJsAewnyhfNMb7WSUbHIfNQU5z6y9ON/zqK3jm2FDhinkeHJNXeywRozJ
ieqVXGaQaMmEfn82QRPKITUzGWZQfeXA8JKLNqK49Zo38QQRLJSiyq6LYaRj
5KNqlk8Ej3zeWW0xOST+7Ne5aVFz0MlRvj5wXRRlM6mNZzwzh/pTZ27U2/Ih
tEPJ7i5lAcVi+xnSOTiRwL0TqqWVFsCN7Ypl7zCh2Lr2A1rSlrBp3OubPEGD
brWkmXFXWoKLE/MDXj4y1OjRleAhT4JXZQcfx3evEe7QR1DM1JOA4rdytTBx
gVCiwnJd7vkorqH3oh/Srcafou9XxSpRAvkauY4UdwmWFP10+0oQM2wSD4ZI
vM3C7kZkh8gpiHA2+T5To4Qqel+zOdKSQoIDr8f/RL9bIvwn8gIHf5CA7O+J
umC1WUL6/bGazGUSDHwoIr77MU14n/WGzG3rP14tMs/8VZgmOJYo5Hf/I8G1
LuOwy1NThLzPS1/vi/OC2OzDmJHKCOys+yusT1MZWKVFGht7ZDGBKBUlXqcF
6hkluO7WGLJNK395X1wa5H20Qja5HPDLnYSC++JqEL/v0U7y3gHcUtLj16ep
B2Zn+aMY6quR9j5Pkn+fEWxV1WYlR0YhIasBJjt/InhyHD/xyl8ROT+lzLwv
bgrqzCTSQ3knNEeZEy7+H0DYjvTfF1FmQv8DFT/2Og==
       "], {{{}, {}, 
         {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwl1ne4iAUYxuFDsooySoXslZEVIdl7k6yikFUZkSgjyh4pe5U9MsosKrTM
ylZGssqoEEp296s/bt/3/K7rPc5xnYNsrbs07JwoISHh1cQJCfFM5DnRSyE2
2m1po12xx5CXYlpRbbP3Vly2x5M4+GWS9iib7BfiY2hX7XfJR3GtmLbF+3P8
a0/gjqBP1gqz2W4XH0O7Zr/HIzymFde2en+eK/ZEkgR9ilaELXZ7SvCYvk1r
zVV7EncGfapWlK12B0rykl6C7/Q2XNMmkzTo0+LPgW12Rx6PO/17rS3X7Skk
C/r0+Lr5zu5EqbjRf9Be4IY9leRBfz++Tr63X6R03OjbtXbctKeRIugfaCX4
IT53ysSNvkNrzy17Ol20lJ4pPWfoJdluv8wTcafv1Drc/mbweXjcFfSZ9uPs
sDtTNm70XVpHEvGBdnfQZ9ml2Bm/L0/Gjb5b60RiZmipgj7bLs0uuyvl4kbf
o73IHczUUgd9jl2G3Xa3+Bq08nHnuVd/iSTM0u4J+lz7CfbYr1CB8vo+7WXu
ZLZ2b9Dn2WXZa3enYtzoP2rxg5OUOVqaoM+3n2Sf3YNKcaP/pHUhGXO1tEFf
YJfjx/gZpHLc6Pu1riRnXvx5aOk803ku1Mrzk92TKnGnH9C6kYL5Wvqgf2hX
YL/9GlXjRj+ovUJKFmj3BX2RXZEDdi+qxY1+SOvOXSzU7g/6YrsSB+3eVI8b
/WetB3fzoZYh6EvsyhyyX4/vJa1G3Hke1l8lFYu0B4K+1K7Cz/Yb1KSG/ovW
k9Qs1h4M+kd2VQ7bfagVN/oR7TXuYYn2UNA/tqvxi92X2nGjH9V6cS9LtYxB
X2ZX54jdjzpxox/TepOGj+L7UsvkmclzuVaDo3Z/6sadflx7nbR8rGUO+gq7
JsfsN6kXN/oJ7Q3SsUx7OOgr7VoctwdQP270X7U+pGe5liXoq+zanLAH0iBu
9N+0vtzHCi1r0Ffbdfg1fnbstzwbxp33k3o/7melli3on9h1+c1+m0Zxo5/S
+pOBVVr2oH9q1+OkPYin4kY/rb3JA6zWcgR9jV2fU/ZgGseNfkYbwIN8ouUM
+lq7AaftITwdN/rv2kAeiu/Z+Dz0XMH7Z1pDzthDaRJ3+h/aW2RkjZY76J/b
jfjdHkbTuNH/1N4mE2u1PEH/wn6KP+zhNIsb/aw2iMx8puUN+jq7MX/aI2in
XbfHkp/m8TG0c94H8zCfa/mCvt5+mrPxd5o90rMFzb2f14eQhS+0R4K+wW7C
OXsUz8SN/pc2lKys0/IH/Uu7Keft0TwbN/oFbRjZWK8VCPpXdjP+st+hZdzo
F7XhZGeDVjDoX8fXyQV7DK3iRr+U6P//y4zwzMGXeqGgfWO34KL9Ls/Fnf63
NpKcfKU9GvRv7We4ZL/H83Gj/6ONIhdfa4WDvtF+lr/tsbSOG/2yNprcfKMV
CfomuyX/2ONor92wx1GANvExtH+9v0MevtU6aDe9j6cgHe1bnhPodPs/Yf69
pKjX/wARvR4d
           "]]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0, 0], 
          PointBox[{620, 621, 622, 623, 624, 625, 626, 627, 628, 
           629}]}, {}, {}}}]},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{
       FormBox["t", TraditionalForm], 
       FormBox["\"Density\"", TraditionalForm]},
     AxesOrigin->{0, 0.9},
     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[0, 0, 1], LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          
          PlotRange->{{-0.1, 3.1}, {-0.1, 
           2.1}}], {-1.2, -0.8180339887498949}, {
         Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.5652685850513463`*^9, 3.5652686377083583`*^9}, 
   3.5652696587827606`*^9, {3.565269697437971*^9, 3.565269722190387*^9}, 
   3.565269886796802*^9, 3.565270017329268*^9, {3.565270077489709*^9, 
   3.5652700917365236`*^9}, 3.565270134431966*^9, {3.5652701801975837`*^9, 
   3.565270192356279*^9}, {3.5653897122129955`*^9, 3.565389740563617*^9}, {
   3.565389821115225*^9, 3.565389879871585*^9}, 3.5653899112033777`*^9, {
   3.5653899431612053`*^9, 3.565390081153098*^9}, 3.5653905161639795`*^9, 
   3.5684976274334803`*^9, 3.5684976598273325`*^9, {3.568497694503316*^9, 
   3.568497741366997*^9}, 3.568497789836769*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwd1nk4Fl0UAPCXJKKSUEklJCTZk+0e68tr30VSWUMlS5YUZc8SUilFRV+R
7LIUURKKJKJS2ZL1HXvI8t3x1zy/5zn3zpl7zpyZPSfPmjoxUiiUQgYKhbwK
XFvKSNtVo9o6fWL4w4dRVMoiuvu0azqyOTwVEPt5FNX452aKuOahOIHaQ4rf
RlGd5DkXZtdXKFeN4DnxZxTVx7bqzLh8RFufJkz2UsZQg2Jo+ajLL3SpZJA2
KDmGnipvuSSX143cjnnteiQ/hia+O6b7ZPegTWwnQs2Ux9AlXpbeyft9qGOx
ozqcOoZu3TJ0IeL+oFIZ20VNuzHUmPj93KALgebSVf+ZRYyhqJSbDdelxlGB
UZ6faswYEndFNjJ544glpkdwZ8IY8lqXeMErewLx6vI9KL09hpa1ZKvG70+h
93EfFx1zxtC2N4EaY3F/0UM+N+Oqj2OIVrnOcMBlBflyq4crbaIjqZWTMzzj
K8ij/H7XoS10FMtv3yyoTIFwFa1Usa105HOywte8lgLBAxavpnbRkeaAZ21J
GwPQBCXLtkrQUe/YjxP+M2tgkMX+YiWNjr7Ex5QkHGaCgu7gEXFDOmo8eJg1
6yITdHR72ieb0FHhueT8r2vXwrfTV/L1rOno8gxtRZGHGXg079kdc6Ij/qXS
u0vyLFDddeSc8CU64kpzGue+wAK3usLk+S/TEQvaoinxigV22rbTtoTRERFy
ZuQYlRWSuZWe/o6moyqmvYrVVuvBc5PrfpUbdGTHntRxxZ8d3k04E2+z6ahp
gzwrkx0HHPOIbMr6REetepwpzUEcYLR8yabuMx11RtOFb9/lgKiNpUU/2+mo
f+1jTYkuDgiJ+jHB+I2OFpe2hljbboa9JtXPeHvpSIw+P5tzhBOae9ONrk3Q
kaT4l3C/AE4oEDvIcnqKjuTdCrnUb3MCr83UTuoMHakPuEl3dHLChTMrV8bn
6OjIz++nGay3wCZK0e7tFAJFNVf2W1hyQYVBtF39BgLFs9/x5j/PBQ+SBx6e
3USgZNp5xpEbXBDZU/dqy2YCpddJ8Ie0c0HI18G7plwEel6Vbpttzg0BGmVP
n/IS6Hfu5dZlUx6gnFcoahEmkPo1rerHRtuAodXwDYcKgUJoxVmtZ7bBef+e
HGtVAlWtFby+FLcN7nIIaKUhAikGUZzNPmwDZYbcGwLqBJI59YJtRWc70MIN
FTioBBLSkLKyVOcFzUdTRqHGBGL+y0dnkuOD73b88gMnCKRZGNNx0JwPblQG
mI2eJNCV0wvVNt580NsQljHuQKDlvo7r+QV8kDC6NDTlRKC/LUmHj0rshBOc
dR6/TxFoMJslvGjfLvhy9K6I3zkCOR1c2CC1gR9U3nbfcg8mkP73yEfbdvHD
dM8rduMQAslGcqtQDvJDmG73F+nLBGL6Jenx0ZgfeBOpAVNXCPQw3qXxdDI/
3N112OpEBIF+jbVFZO/YA+PhluKTsQQ6kpO3IigmAJO7W42WUggE1iq32JQE
oJP5gW/hbQKJML2XmNITgG9uVkbOd/B7ajtg9/q0AAyyfhNpTCXQTbadL48X
CICueuvLK2kE+ux21f+egiAMHk67UZ5BIANRpwkeqhD8epNUZfCMQAsxvi9+
WApB+dPa423YT+jh4ZnOQnAnhMpvk4vzL/5vu3SEEAjGeC6dzCNQheqgmsFb
IaBaZdq6FRBI2Nw9KVRjL5Tm0hlMSghECT4nM46EYa7QYynyJYFyey4vPTcS
Bu34Z0Iz2LaaSe8u2gtDpHHhzROVuF9Yi2zZgoUhZMegvUIVgTySp0OFq4Sh
7o/+4x+vCPQ1y6/tqPI+4L+1m53lDYEK2y76NiiIgPNJG4H+epxvuOPJXl0R
oLTZqmg2EChNXs/on40IdFS8zMnAvpqyTfTARREoa7ged7yRQA5Hi7oSakQg
lccqsPU9gbj6BzWsaaKgENrCndJMoPNTZpx/bMVApP2ZVOFnnE+m4sqKhxg4
2/PuWME+abFndNslMeikxQXptRHIsJT+lnZfDLwXMp/2Yu+7EB2Q2y8G/ZMC
Heu/EKiT8VW37+n9IEMLO6DRSSAlTrE8pmBxKDfc/O1IF4GaGWwamq6JwzXl
/c43sY9PRPfdvC8OtjqMV1uxw1qGtoq+FodIs7RU3R84Pj4rxGDtAaB4xM5L
/8TxbKKmN2MOwKiGtMLULxzPJDKzL0UCDsSsnJHoIxDPtNWmiScSsHfdURV7
7Cd9kaIV5RLwr2Gh9Bp20+s/dvrfJYCirVVMkPGXH9d57joIrWvmO5/2Eyhr
STilPPMgyLmJmXIPEMjlX9K9R9aS8PD1w7z8QTwPDEffBByXhKFD2mfasasf
aA0buEpCI91pch57m86c/KyfJDyf/09ffYhA9cl2Ldq3JIHNldW8BVtUQmTN
YLsk/AwXXekZJtDI8UpXMTMpENfT3fJzFK8v5rm2bCMFwvzlEovYmus8S1pP
SsG5Nxd5eccIdPeZAOMFLymo2OjgaIGtvxCZ+j5RCg52xDU0YD+7btrs0SIF
7Y9lubPpBDpb90cmz0Aacl3UE2jjOF/IcRe3lIYnF6VNnbA5XnhmZB2TBrEO
k4Fg7Py8ec7Ms9JwcDIwohh7MoVtMiVRGkx2J+btmMD94n4w/0q7NOy8L93X
gx3E4SduaScDuyUanxtNEejDVSXHz04yILCmRN8Je+dayl3jMzIwvftVZSB2
1XwUm16wDFyQoko/wqb03RlGD2Rg5VqMxxx2aEnVE9HfMpBretE6ZRr3sw3z
3iUPWRBoeJn0aoZAqpLss0M+shD+yaLjI/bEWs53X4JkYTqYmbEb27pg56n8
WFmAEIf1lFkC7WWRe+aQIwtr8yZHVLGrSxzkGkdkIXe/B1cZ9ixHjdYtNzlY
5BGZS/lLoOyBOp4wLzkwvd5H+w/b7uWHP56BcnCp3TWqCLvWpTOadlUOLque
qG3CTqwimpay5EAoa0mDYY5A4h67LB2H5OCQ0ZdgR2yHdxecpVzlgeK1oZxv
nkCOysKGs2flgaf1lMc+bOeCFrkXfvKQq8C1SRrbNXXvWq1IeWDUqxagYp85
+zHD+j95ePnrXIQnduBWwZ7gfnm4kttjWY2d5NJo23z8EPC2SVabL+D+7PLR
uO56CHKny+LssG+Y7N5v7XkIrpVGGDhjpyj5LPQEH4L5clqmH3bapl23Z9IO
QXbD1/zb2Nml577w/TgESS3KR75j16zbbuJ+RAGqrz3ytvhHoIEMCdrXEwpQ
ZTBtaIfNDpoaVDcFOGn4j88J29r/rJzgBQXQpMck+mATg2+3f7+rAGyR4r+S
sHc2evXSuhXAbzMnfxN2QOwHbzGXw3BooLRJYRHnI9LrkXL2MEgtl4gi7Nra
v07M/oehumwmUAubY0nAujfqMFTuvLxkgv34dIDynezDsKu7LMwNu91QeO16
+mGo2SD/9Da21OaQm0M+ivC+8kPrOHYFS4fIuyBFkHSsvz+DrU6ReJEZpgjl
s7IuC9jmxPdf9smK+P8n7seaJdzvTYdEvxQpgkBSwDke7JfRxIvXk4qg/HUT
KGLrMNr3pHoqwdvd43VB2J/mS7wD/JXgiFhzWQi2zQQ7s1WIEihFXMoMw3bv
rhDjTFACUY2AU7HY8VU8PlF5SuBI+5Cdit0W2MzsS1cCcfNkznLs41Mq4oYe
yhAcur6YwN7ASWlp81GGVtYk+SnsCsnX3rYXlaHu7p6iWWyuM9ovXOOVgZYU
fmcJu37QkBaarwwrZTcF2ZYJJPnT3rVsWhl2iQnt24tNabicKXBRBcxu/JW0
wH72R0MnK1wFBLe/Y7bGtmFmHj0YrwLjpTUdNtjFGldlVNJV4PAOW/fj2K5V
Sa+talQgU5fTxh27pSijO3atKqSzs9uFYD9Ie8v3N04VXgzX73+MffeoeIfF
TVUIOObrnoWdwns9sThNFYhOu8dPseNvHmf2ylOFttTFLfnYgfH/iNEWVdh9
Zm9NGbbpJak3vVsQ9AzVejZgMx27d6r5NoJ1Hg2Gg9grO5iEDjxEwKXzfM8w
9sJXt58x2QgM4m5MjGCPWyiY6b5A8MIJRRHYXQaflWu7EPz++CFxFvtbGhPL
j00ACsnSvEwrBCqKV/zeagqQy5QmsBP7ZOrGtRWWAMMl/aG7sDmf9Eo8sAE4
XsjUtxvbs+bqlbMnAagaP+4IYItPfxNl9wLQrNGd2IedeeSCv1YiQO2mTiVp
7GShl9xlHwH2ZLEe08LWkEpA6Z8BmmkPQ7SxJ1UcT0V0AJR/9X9AxTa2Yq80
/wXAbTv0Qxeb/epRxwk6gLnEDnVD7DBisVBsoxqkiXWVW2L7VKgY39NXgz9b
M/2csUts3jF+NVaD2cn6QBfs2QXjEi4LNTjPdCjIFTtAyZE31k4NZDf8C3DD
vvTyan/gGTW4EeF/4gx2ZFWHv3WCGsxH/+31xb7z+tyDLW1q4GjW/DoU+/vJ
f2ZGnXg/0djkMGy+NeHMMV1qUPpiwDEcO00jxZ3xtxqkil1giMTOqK2Sm5hR
g6TG42JXsXPq2Bqbt6pDXecOlQTsV42PJqNt1WG9jez5VOzCbS3nLtqrw1jn
I6675Hk6L4x7OqiDUOSuQtJXGY0IK3d1SPwjNnwP21xxbmTvBXU4PdlueB97
OIv2u+aOOhyjPB7JxOaKJjrmv6pD9qU3Qc+wmTu2W439UId4jupl0vNCml+6
e9Th42UiOBf7Z3VK27shdXDwHw3Ow86aU/t0Y14deoiw8wXYqq7JjVLbNWDj
hxOoBPsU9XDlKWsNmOhup77Epotsf1twVAPi1vq8IO21fv7D/HENUJfRl6jE
Dmoq64o+pQHONXmbq7ATzBQWswI1IFzf5eMr7Of2h5SG72pAgUrJvjfYjP5y
5W49GiCyUmzeQNbnCHdN4W8NiJ1iLSTNrjRTvzCkAbdlqjc2YnMvF3dendQA
O2vzOtIiYbJz2Ws0QTVETuIDtlGCzKGRvZqw9/Gznmbsu0+kStzdNEEPsfz8
jF3/1aE+/YwmLCYv7GvDnl5/8/tnL00Y7PM8R1rv9AKD8gVNiPg3ytiOvSD1
xpA9VhNip5X4v2AfeWE+mPNME44WzWl2YvM0++2gj2tCTOx7pS5s9ZUsCYEZ
TdDeUuVH+oxkl5rlvCZQK/WKSNclgWsVgxbIbFMS/YHta8VaEs+pBVJyQRw/
sdu67xgelNWCRRfepl/YiVOVlz39tIDqab6mj9yvNeHE0Qta0Fb7VJK0foGD
mk6wFvgee2lHmvksKwN/pBaMDK8vJR00bB7y8aYWBEi4OvdjO/eMXJJ4rgWh
8QFlv7GVP24PGp3Wgqd7s8QHsbfnjtp2zmnB4Yk/JqRnY18p1S5qwQOT0fOk
C2hO/1KZtGHOhlpNWrguP1CPSxuuW5gYD2FvrqQGZMtoQ+82Nudh7IFs3/Ou
XtpgXnzNbRTbcufyzyfntcGM4W0M6bfXIqhDgdoQNl2TQzrT59Y2t1BtuHeA
i076pGp5hXuyNsTFCJ4ZI/v30+LymefakLyk6EjHbp8LjfRd0Mb9Uiw2jq3p
zj5esqwN/92M1iJd/CPZepaRCn+7JY+TTnr9SNSPjQon388lkzaOfffen48K
KMVvkfSH3WwcQapUaDLwfTOBXaudlHLlChVszbbLTGH/dn7RFBhBBabzdlTS
zJH9jN5X8f5Wl21J67yTP+2QRIUNQqdCSX+gflfTfEgFI6eqT6Q/6wiNrH1N
hYrmp67T2L205yrRDDpQYjIdMoO9xv2X1+W1OvDoWFIiaaEYlicBrDqg4czz
kLTzextOt806QLvd8pr0sN7KAG2PDtT5bl4zS85bfZ0EdjUd+GXbf4k0g9G3
3mshOsDs3+D4l+z/KgtBnzAdqFYU8iKdIPHJwTpKBzjE3IJJ82+s7+dP0IET
3GW3SUNTyUBBug4YfLRvIh2ilzj8uUoHLpsvSs5hU3R0Jrcu6YDLI5Nh0vWl
b6QXKbrwLcxkhnTCPuTdzaQLuTZAmSf3Xyc//YRdF5apI9ykoU5w9jCfLvyo
8gfSIZor87ZKulDbGJFEmqL2nOF+gC7Qarn2L2DbaP5p7LyoC7b8v2VJF1O3
JW++ogshI5mqpF0NA4VDr+pCKXXKhPQnW1U951RduOHY7Ef64fm6ZPFKXZC4
mVJNWjPny75yCg128spR/5HzPW/dxAQTDZZDRYxIzxUqVIix0iAwZKMV6Zzy
O/p3N9MgOaLQmTT3u2PnggVo4MpnF056oGegQkuTBiFbjapJR239a9AaSYNX
SUoHFsnvZX193+sYGrCOK8uQTg+4E1B0jQaDo7KHST//rvIo+RYNCtazapH+
nR62aPmYBt4VGkdJq4twPv1eR4NF3o3RpBcVDrD8XqsHO7x1ukizDC/fa2fV
gyz7Qz2kt6S2yNRt0IMbF3cNkBZb8rZ/zK0Hk0HtBOkjNRXPT+3Vg7z2P4xL
5P11dZzomnqQYvhkH2lPG4fXf0P1wOHIiDvpjenD3cpResA7a+BJOqfv3Mrl
WD3o3pvlQ/qPR4gy+w09WArUvUj6WPC95/z/6QHTQ5l40vqZHdm69XrQxvMi
l7QIXe96Krs+xLEPD5Ouk/5c0M2hDzkS/nTSjn42LXu59WGHAWWSdDrl1Ib8
nfpw//7yHGmeLRGRtRL6YBJfzLyMzaRQfWHMWB98+9n3kO65LOuIbuiD1MVs
E9LCPBvjPW/rg4XgBXPSbtl/Sh/c0wdTBqoV6enWO2xM/+nDq7CWo6RZhBiK
6p/rw8uopy6kJeqaGEw79eFXcFQQ6cD1LumOOwzgrfGuDNKv0qDhxm4DEHd0
frSajwzvVJ2gAWg/y35MOs62SVtU3ADYZ/blkL6fI0MfUzYA9eGZYtLvDCkq
fscMAA30vSXNdf32t+gHBtD1b/9v0pSt8e9sswzgEKQOkh67c6X4QIEBpN1b
GSFd99A9/lO1AUSKPJkk7V+oor692wCc9gStkP7xqSfryS5DyNQ33LqC3Wjx
5WagsCF0vtzNS/r518ZQfQlDsIwc5COd0FNkN65iCElhxwVIq0+Eb1awM4Tl
xFFx0v9xiAW8SzWE1sgoIF36ItpPPdMQbHvZNEjXOw/5VuYYgnFZhBbp4ZdP
vIoqDSFax4FG+sCpfR7pvwzBe9sLM9LFNUL2foJGIOy67Ej6y9Z+29OyRhD9
huUU6b+nM6wdtIwgY2XOg7Qir4CpkYsRZIvF+ZCu8dqtte+pEWx4mHSF9JPg
Ez6LFUbQr5ARvvo8sRkZnxqNoOvW/SjSx//bxxg0jNdbO8STXhm9ZT/IZQyb
r3HdJu01pfC3lc8YqBy3UkkPzH+NrxQyhuZ81jTSzcx8VUmyxnD6fM1D0mn8
9/lUzI2h/0TYU9ICHvsDXjsYg4hXSN7qeZU+b6d6G8Omc3pFpHMNm+JNk4xB
0teqgrT0HeuRjgfGkLH1XuVqPX73Ue0KjEG4r6KadGXQAsW1xRg+HYyqI32V
52gI6jGGS24+DaQt8ytXeCaNIaFT4QNpoi9k+e0WExCxMftE+uXF3ov3hEzA
g5L7eWV1Pmku+ciZQNvsUDvpPXrrFgWtTCBufuM30tqjH+0Tz5vA7ds3f5B2
i0t5s3zDBDTH27tJX5M4sc+jxAQUher7Vuv3UTTma5sJ9O32HliN35AuOzJr
AmXPNg2R5tfj+rm4zRTOFrmNrNY3Kjpyo5Ip/DKLGyMdW7csyW9nCk6V/gRp
jp3TBtV3TWHGNWKS9HXvIbfjXaZQOk+ZWc2/do1KDa8ZfGlj+ks6iHvXJoEj
ZvDILH+OdFJ6osf7u2ZghfgWSGeJrm306TaDbFfFf6Q740Mn7uw2B3UtrkXS
zNMM22uOmcPLza9WbZn09f3BDHNgYLNcIv1YsuBS2h9zqO9pXbVrw7OBJjEL
4NeWWyYtejLbcOm0BRxbjlw145eCkKwcCxhxqF/1d93yQosRC+D0WFr1l9nt
nrSDlrDnx4EV0q0ZgQeQtyUIyFis+vf+geL8QkuYm/Ja9VyRibLApCVsm41Z
dZB8r7+5pBV096eveqXMqyTijBWUyeWv+pHP0YsMhVYgzvpq1XqS2lpBM1bw
vq9x1azvFDu8Za1Bnr9t1e/sDp5y97aGnTxdq1ZcZ5xfUm4NVn59q87N98Tn
bA15akOr/h8RhC9m
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwVV3c0Fv4XRlaR7CRKlPWVPeP9fK4te7x4zWTvEEUoRYOyhZARMiuZIbJC
iqzSkIxsGWUnfv3+uffc8zznOfe5f9x77gn7C8ZOFGRkZB7/wv8zb+zf3Mxj
zcjXYrk09UEtrqEVOu7lmoXlZJzFMxxqcXPg0zxB12c4d35EWVS0FreL+7pQ
u77Cib9uam20vcCd9/q11lzeY4OCKx4zmzX4zZnw2gWX75iNWFfYEFiNS5RY
rso8G8U19F70Q9rVeOWrY5Z/8RiOLdj44cBdja9y0o7/yp7A+kdgq6+1Cqek
6LssRU9jPXt+7k9sVbgr/qvvjMsS1iej47frrsB3UpPfJEos44gbN1XoH1dg
EVdsKfVsGXcX/B5lv1aB/Wjig/2KV7ByDfeGimQF3lWXblzO/o0b4sOPfMoo
xxytV1R/Rm9g8qPPQg7eeI61G2j0p1z2cFvhSIkm/TMssWe/xr68h43dVmVu
vHuK7/Gc6+FTIoMOgVIds+in2N++LoDYRgY8qTkH2hifYrUpn7aqQXLwf/s3
JOLYEzz+89v5wLV9EOl7SFiQWII/xtytilOgBPI1ci0J7hLcJaawvyiUEvJ+
rdDWTRXjct+kss9UVHCJ9/OGWnAxvr6mvXeGnRrKG//j5ywuwjx/azL+ytIC
o7T9XCp3IWbNdFpmC6aFTNnylJ2fBZgWs6iJvqIFWf1i47eNBXgpzHveVnM/
dD3W180/X4AbKU+daTI/AAf2Xzt7uvQxtqFPGLoRSA/3J+L255jk4+6Dsvsp
bRhB4EykgMPkI9yvw5zaE8IIXEcZSWmtj/CnyEX+BxmMEHU4to310SP8g6pA
TXSYEWgDBcZ7zz3CO38Ph5GsmKDm5zaf6UgOFl7cWi+1YAa+AXJquulsLC7y
8eblIGbYJB4MFXuTjWXdy1lVHjCDi20XT0xJNlaZcpcc+sQMthz7ezd8srHF
yFcvchILyO1m7R/eycJ3ehp+mJqxwpTWR/1VjUwcQ592kecSK2x6nM6lY87E
SdqXKObvs8LZ93w0d749xFntojxhH1iBvfeHfWnAQ1zdmGVVTGQDqviNO1HF
GXjy6fX+XWN2YIWV1NlT6VglVr2pwIADqJtOJU/bpOIw7cqifm8OcFrpdZiT
TsWNVHyJf6M5IHGhwUqOPhWfCSFzNnnHAWmfsPaT+hQs5VZPt6d1BAbNxNY3
uVPwSVUJczMVTrhjfpc8eek+pt7gWqSU4YIStVVFhdZErFZ+d0iMyAUmep1x
AY8S8Q2v7SbLi1zwpNU5dv56It6dGEose84F614qTTeUE/FGb4KCtSg3DFcQ
XIxbE/BMMe3NCoFjIOrkv8DZF4+dxLYPShzkASPS9L5o5jis+/V2PscxHqi5
QdO7Mx+LpW+zEcjEeGA286emdkUspvwu7vnekAdsa48+PaEaix/FuHR5JfFA
B+mFRLFLDP7+c/BW8dET0BhuO+ffeg9blD7b4xPmBZl9gXSlTZEYSIQUOkVe
KDnbmGKfGIkFKd+K/tbhBf2zp4Q9nSPxptWUTYvXP/xm6JuAg5E4mY77pd1z
XojwuvDW8NwdPOAeFfhQng/yb/qmpjHdxnpCTivsmidhlcbAKq40Am/fDaj/
ZnYS7Jg+9ExHReDCxZs385xPgvzn44uX3SIwZeXjI5K3TsKy7LdcEIjAdWhG
We/1SRg+Pcfulh+O+YkeCeGqp4DKmBjxquQGJrvmK7WM+SFNeSCPbCQMPx27
/rfagB+UvDMGq1vCsJVaQkfoOX5Y++ZhklYQhqv3V1jRXeOHpONbVDO+Ydgz
aTWcv5EfZBjaRZJpw/DnosuD1koCIH1Benkr+CouHwwNeCMvCP+96+lfjA7G
hTcd7cfPCoLNHpvxmE0wzpTVMfhjKQitiY9yhESDcVQqh9DpUEEQ5zsqW/v+
CnawrhiOaxaE4uf+gy3sVzDrjxlVkrYQEBwaD69VBOJLv02Yp62EwdGDTWia
/xL2zDuzt+cpDE66vX5+ZJewvemJBY6rwuCaaFmr/CUA69csvtbOFoaJ1zdO
F8cEYIHgyKCnP4RBOvqWd9K2P/5E8Wo0wOs/KJ/8QnAbuYgVmYWfUV4TgeRH
pA3mAV/cQ275pjtWBOZqzs+9q/TFdiuRE8nZIvC57+tuXbIvjuidPSzUIgLx
ih/FJa3+8WOKwvSoTsPY7huF8CkfbEcnZJx89zR00I5MOVD74AhKwTWBVFEY
6/Uni+/zxOyr5odWCkXB/dNmbku2Jy6cuC1UVysKbPtkqbR8PHF3y7SN7ldR
qP9bW6fD+I9/vaDd55gYjP+3Qy1A9MBFf/lTa/PEgOrN/Q9P5tywy5+Eh/kk
cZC1ItgYGrjgJP2F1iA7cXjE2lkbL+yCm3LU5/RcxcFbiintILUL5tDalF2/
LA6LmtQWFQ3OuDPJplcjRRw2VlLWS8ScsZCo4L6ZD+IwfvzKR7JjTnjersFV
2EQCfvdVVi+ccMAcleyxu5YSQPbpu0bfPgesRuNT1W8vAUbRSjcmJ+1xxhNe
imA/CShTXclIL7bHutu309/GS8BGj6CfrKw9fpJo3OPZKwGTgqS3c6bn8YX2
aalnepLglSke/N39HG6CUg8RM0moLaZMt5I5hxnrfXKLbCXhYr6RtRTZOVz2
bIs574IkrKQfPfA72Rb/SqX7lRovCaWk5m/ZnTb4kodY2Y0PklDQ9CpNQcka
hzBeFjGzkYKSl7keCXYW+F2UouOAkxSwV23dd5axwNxUZBmG3lLgy9x0PeKA
BW7cukOnc00Knu976JteRcJkE2lzOEcKWP58n+E/RMLhVY2FQpNS8PuhJZXB
ezMcZUl96q+nNGRWet36EkbESJx+fdZfGlwXrYlGdkS8QsXc8TFEGsKZyH7/
wURMes7tVnZPGqID9+Tn90zwKVqZJw6l0vBkKYdT8IYJbqpykOmal4a19EKB
oVhjvM7YrJ7iLgN3yfqfHeoxxMVT7ewRfjLgbfpZ3r3CENu8fDftc0UGvvwh
ii6lGuI2l0+R2lEyILl+g3DZ0RDHNy51/y2SAd9zVvuXtw2wiOcxM8dZGRhm
bn1M5q2PHTqCnSVcZcFxRa7raLQOdlTi11+/IAtWyTUkfXsd7Py8V6b+siz0
y3M/a5XTwa7pp6jUb8uCyPTArv+ENva+8D6X9FgWxPfC5KcI2vjKYb6xaz9k
QWxWPShvVwsnuHRZ9djJwejtZ0p7pRo4adhfNdFVDsZlT3O9idTA942O/0fy
kYOD5Scm3zhr4FRF/+2xa3JQScfxwfuEBs48dOzBWqYc1Kl9TlV6oI6La3w/
cn2Tg83cBvr0BDXcTHPEyMNCHuZmm9wkilXwVK6o9ufz8nDvV6doW5QKpgc1
VU13eWB3aGe+56GCSYEXZPiC5eH9F43e2tMqeGnm9ZGvGfJwqGFCL7xSGXN3
+Y1rj8pDDkNdzbW3gIPuvbso7KIAaZw9kKCAcKbguGfqBQW4qs1gWE6NcFvb
hhN1oAL4DSoYCw4SMONfXtL4HQWIWmDaYPEh4AKvIKW0YgUYndqV/1KihD/o
81MdWFQA2/fxBo8lFbEEU1jyrP8ZeBvElOYWJI/raIcEO0LOQIvZyMstY3ms
QiZanxdxBqwOaZPaReQxcenr93NJZ+AU59F4ljE5fKlbTuhjxRmoe+0t5a8r
h19GLtW3/DoDxGWZ63unZbEWxbmxdB9FUCkiv9Z5RBr3bVVdDApUhKP7n8Qo
bEthyxV6avMwRfi50U03/EUKe4zWCTPHKYJ15JRMZYYUjmlk97/zTBE0S0of
FvFK4cErPdQBi4rA4mFr4yEnie1+E0T0PZWA59NEybkb4vggM1nvoL8SFKPn
F3ScxXGdeMtFq1Al8M0+8ttZWxyzemvUu8YowedAr4H/WMRx54y+dniZErSV
XEhq1xPD4iPnXF+sKgF/uU1D9JPTmOzN9TzeUAIMexTfWi4Vxk+mVbWKbhIg
1t0rJvGaMLakpl4QiyGAQlbYj3BjYVypGiVFyCJAHrWuvvaWEHZtTGgxbyaA
ponTV1ttIdxbkTt6jwrBWL4MFtsWwDmZr7k2ohH0r5r4qkafwhnWIkOmyQi8
WTmKtdxO4VTOxPjKTAQpT3x4o9RP4ZhkO2q/Zwg8XFRkm3ZP4isxf5YWehFc
ruQu+nnxJDa+KtE6zoLhQNz5579d+TCl7UO3ngcYcvixG0vwCbx3lPLk6UcY
Ms2vpv+wOYG3P7uP3C3GIPpeuGAKTuBlU3mTs/UY1OZz94fQnMDDegNKbcMY
GLXIpSaSefCXTErab4cAcqQDn9SGHMcVMWe+9hsDTHm74VIrLmyfzkBVZwbQ
Oa3sFi7GhZkLx0VzLAG+K1a4Ze3jwj7NUTcu2AMc1Eo2zys9ikVWvwjR+wFs
P/3Y8ZH8KM6zCA5UjweofEq9G/HiCE46+ZLtxXuAAzRfuxDxMFaViMNZAwAx
HvnV82KH8S+Co9utIQD/1Y4fvXSHsaE5fQPxO8CtkIxBlTZ2TB9l7biyCJCd
L532Uo4dRyztlAszKMMly5IrbYJs2L+OYPhQVxk81ClC6SRYcJVlB8VnQ2W4
5ZA99piRBa9vG1axmipDm4PP8aBlZhyk6Mh5z0YZOB+TMpvKmPHVl1E/rnj/
0/MTWeqVYsa3G4cCSXHK0Ln+iiFHlQmntfjmsAwqQ7vwKQ/dQ4fwV/s/Jgaf
lGG3NXtt+AsD5tp3k/rusDJY2zIatT9mwJmqqR4Uk8owEm8uk4MZcG5bo8zK
mjLgAYtul4CDuLSdrqvnsArM1L7bX7tMh1915f+KtFKBoqfBs368+3E5R69v
6DkVMOBujfy4TYvznLeXfRxUgMJWxjZwgBZHURgsmXuowCI3p0bATVpMPLM5
fypYBURZHcK1F2jwXJH2ZHOaCsjXTmH219SYNXJpaOuzCriOmvC8z6bE1ENH
zH9+U4Gpyi9/DMIo8dZJtY+jYyrwOSvqOKUdJR5pSh3smFWBnuuTY5Q8lLho
U7nv/pYKVK5Qtdk+2oeRa1KXxBFVuPF6+55AGQV201RocCOpghd3y+0Di2R4
UfDI6+fWqpAllr7L20eG/Q5svduyUwXz96d/e1aS4ZDuF8ORbqow1J53KCmY
DMeZyO8UXVGFtn3fRPjpyXD1OTnFuQxVqFE+ef6U5y6iCJSpdR9ThYeUbmH5
pn/QbQu25vJJVWA8KEf9h/8Poldc69yeVYWT1uJTWZvbiG238lPUL1V4kdgz
8CFjGwlGSG8W71OD2Z5veHJmCxnEScnNn1KD+iJ3EaHYTZRRKFHl4a4Gqwnm
o38Y11HnZ4fOLG814J+8WkWxsIZWDyR/HfBTg/NH9sdodqwhHa9tcqVgNYia
VLgReXUNbUu06tPfUwM7xRqq8aVVZFFPnCl9ogaHThk8Dv/2G7H3XD66uKwG
kqk1CpzjK0hlr0iUd00NThhbrvO0rSBv8WFlsy01oL5lccLy8QpqTwDXRnJ1
4O2YuGjvsYICzPdXxTCrw/tMx8nmjWU0OJqmLyatDvUn9976HVlG8b8brvtc
VgdvysrYkp0F5N0fd946WB04N/gVie8XkO5zB2Wta+rguXgzR/XRAqK+sJ+c
57Y6xPAeYlvTWkAhc8Sw98nqcJ/vel/Kg3nkPDZ/VbRaHbRzL/ve0pxDSu+P
hCysqsOYm8EXs4FpdOTpgtWnTXXoa2xm4Hg6jdbvvVJs21GH/QMWT1kip9Fz
bac/6ZQakOZDkf8CTyP+9rIrOqwaULHPtfjpsynE1KAZVCylATW5HNOrDybR
VHHAJVc/DRg8WqDjc38CmXHvjhRe0gCPhYLdM/4T6HXsLc3ZKxrgOXSJDplM
oDz/FA73cA1oV7Ttn2eaQPaots4jSQOyNr38h+PH0Ujfzq53tQb0HnaheJ0+
hj5sht8O2NaAUYFvHMnF35GaB/1y1a4G7D0q7l/w/44qvyWR1ik04Y4GLcrE
31FCS77QZTpNSLwp6cbwcQQZ3ut4G8ilCRqkwPeMNCPo3XE6xhCkCddorRzZ
goZRm0ZC6o0bmpBwGVt0P/iMJp3ru6/c0gSPigUWdd/PiPr2D4qLUZrwR4vG
8K/WZ6TVIevlkKAJes1fak5vfULvNL8qqz3SBMkCM5lw609oQOvkPFWLJiTr
hNkXig6hce1qQiS5FjCy3LU+vDuI9nl897tOpQUPootVvg4PopN3aQuD9muB
odYFqYH6QeT81pLZnUkLdk7bddteGURzOntT2ie0gCHdlfXb1gD6pasVR6+s
BR/C5LTkKAYQucGX8dgwLbidPXvIS7YPdTaa8vlHaEHV1YComqN9KE60z4F0
Rwv0FT+U/Efeh3gYOn/wxGmBOo3Uh9h3/w5Xd9XU8ywtkFu0PA9OvShMJ35u
oPGfntjMEwal94hMS+vX4b9a0O9n5F5r9g511rRK7pCdhZ9O4Qu1wu9QnAC+
OEp5Fg63S97f3X2LeGhkVwvpz0Ls39XvxoVvEbTzrStwnYW21ABK7t0uFKa2
t2WleBYO7H4e/FH1BpEpV5NnB50FFb/WxVKTDmSpNt31KfQsqCdcveoh0oEq
NTmSmG6chfbjM0aeVB3IVf8Kf3jUWQjsODgm+aId9VkhHef0s3BMINmrnacd
PbrUniTScBZKWCQLHv5tQ2qlHwVqybRh5c/FlP8mWlDmM5qVFUptoCtcWbJp
bUGb5fJ1wvu1YebH3t/XuS2otDZNN4NJG4j1qZMyTi2IrcPW9xqvNlBHaMTc
nWtGU2NTdepq2qDWPZ3TutuE7hze0Ou/rQ2v9g258SU3oqTOzomWu9pgTwy7
xuHciLKC0oIqYrVhjCMmlSTbiKq/EvKTUrThJ49ycc1QA5rMitgxK9CGk5kS
IuPcDUhFkLnka7s2lPktCcTW1KMd+dO0k1Q6ICj82/kldy2indt9+GG/DjT4
RFCor79ALOm9Uu0HdcD9w0kW+vcvkPDfi+cK2HTgKLsiB/H6C2TRXFftdkoH
zimbGTfP1KDqs1pOi2o6wJF78G5DSzXysXRo2QjXgYKnFdL52ZWIIWtuVOmO
Dujo/tWPC61EpRO+e9fv6cB81eveastKNO0ZpkR/XwcsTowJVLJVIttrD6t5
HuuAaHv+kn1MBdLNGyo+26kDIioiZwWiypHgok5iOr0u3IixS39WWIbaJQee
jzLqQupP9yh0rww5XrbsPcWmC1yRq8l/L5ShLDK3g2XcuqAg2Ll9QL4MsbPc
ut0mqgv0g7c5a5KeIUr5puCfhrpgJnr2hcTSEzR2XdoR39cFurFbIqTJYsTP
zhDj80AXWga0uvReFCP34umanIe6oPPp0lzs3WK02p9GR/lYF+x3Mis2JIsR
7Unyis5qXbi19fGi5s0iJNreTW78SReG6LLJA+UK0ZUDLlmOR/XAu4Xwm7Mn
H73KhDf3j+vBu4Delw+K8hGlFOfvdj49aLsn/5/pzXwUbdWtISSiB81LQ0/D
CPkou1Rq8aeSHsj0hVjllOWhDn0ywmVbPfhOKEpvzslFrIkPvkTm6MHJjBFl
eJKDDnxg6fPL14PLHRNiZfE5iOxwTIdVkR4kUIvv6FzKQT/TblSefq4HjovV
p6ghB7U/8ojpa9KDukLRy6EfslFgOUHlyKgeDM5ozhJos9G3vrGiwmP6wN73
yl2W/SEaZLHOjufVB1TyLXdnJgN1mX5MvsKvDy8/8jnSvsxA1Z+7wnVF9eHx
yzDWJfsMFDdWYbNM0IcI8nHPpYp0pLJyk0neRh/IrTxfedmnoceMwkEd6fog
+HiJcmkxBYlOWWxSZusDDjzElNKegmrqIy+r5OkD9+xgRXhmCup0ng1oKNWH
VR+RNUGDFDT3stCvokEf1DMYF5MrktFpNwHPrO/6ACHNyxl37qPK5pPnLvMZ
wEs5521Ju0SklEIcqRQwgKeJuCEOJ6LXnhE2v/4zgB0y7Wd8xxPRx8M/rLyk
DYA/ZSt6eiQBbXjlkhzUDeATXfOBUbsEdIaT19jAxQA8Zr4WWXrHo2a/4+oC
JQaQvi0WbG4Vi7bXluK4nhmAzKjj2c9CsUg6qGmYqcIA/OyXZIs2Y1DhtfP+
O3UGEBN597VESgyKu5eb29dlAMQr92i+DEUju8cCFCFzBkB4zDQo5HIP7S2k
nJthNYROQbEzw3WRKEM0jGqC3RBC60/amSREInkf15JvHIYQY/DIiM49Evn9
lt/o5zKE5Y76BUXOSDS19Tmm4aQhVNgeeJsYegf1UHM1JkgbQsCqicMjg9so
kyebi0A0hEenom5OH7uJGKIkOk+bGYJxa/EZs90IdO13y8VjJENY71ih2vwW
gezaJ7v2rAzh4fH8moGHEYjX87+gFgdDWH1xzX/ieAR6XFP9QfOiIfBzbtfx
nQ5HT/W7Y4wTDCHjzbNyXvfr6NgL2zOqSYbwLHyM18ngOoo9sTwplWwIHd5d
3n3S15HPKjOBLc0Qrq5c9OMnu44k00jzQzmG8MCCkr0uNQxVT05o2jw3hP4A
HveYR9dQQ8g2mWuvIVDMkbHN1Ieg9WdTyzf6DcHjlY05zb0QJD7RP/pw0BAu
/dCivGQdgvLOljQNfDKElDXtTZ3dYBTFbh2GxwxB1kursUs9GJmVNeyx/zKE
wmjrqsSJILQ0Ebb7msUIUi/dmTU2u4wED3stjrIZQeIFjaoOscvIXtti5M9h
I4h14x0L3X8ZfSyTaJTgMoKPeh8OlTZcQi9Dx0MfnjQCXZPojj3BS//2vdpf
fxkjqD59JZGSLgCd0KHZ4TM3gu59U7Lhm35I+oNqP6eFEbRs7evj/eqHNM6F
FTJZGYGpE7/PfIMfcr+4RdyzNYIDiGZ8LdwPVabPP/nibARDVseTxpn+8Rfe
n4u/ZAR+wcPiFdK+yD06tXX3vhF8IbOtOSR8AYUc/vBgLcUI2EOZnco3vVFM
DpPPwgMj6PFgxbkd3qiiKorry0MjCBgwfejl7I12voUEVOUbgZo4H21qgReK
FT0v4FllBFfgbvNXOU9U+V7o7udBI2BpK+IYveeG4via87c/GoH1C7Htv3Zu
yOMyqenoZyO4nReCnWXcEO/x22s234zAn786leW7K4r1/nFufNIIZnkqdnpl
XJH7wSzp+XUjaPQWUzVedkY8OqwjOxzGYOVEFa173xHtZJZsch81BhnP7L14
X0c09EuFBXMbA30oaZlB3xHFpPlqXT9hDJVX3ZdKaRzRn9meciphY+A0PvHV
NdQBfbwTeZtB0Rh+ZL3lKvWzR/fad8V5bIxhVYIvWeW2HQLfKQnuc8awfqr9
HnjaodWjPZKc541B9izXgoeRHbL2fSjN6mQMjydedJzlskOnuZTkab2MIbDg
lJ606znU4xuEl0OMIXE7UjVzyAYxcq/qNWUYw4ln23Sivy1RW8dX/YZMY3jk
yTV1ocMSBfq1GtRlGwPXAuOr7XRLNNqRYFSZZwyeDcelZtUt0XM/CdPCUmO4
FJZ498hDC2Tc6W0d99IYWJS7FHVIJJR4cdbdbtgYti4IR9LvmiJOjSu+JiPG
QOhNfUD/1RQ94qAL1Bg1Bo/a3ErlF6aovEHkpsiPf/wkI3LNi6aol8Yna3Pe
GCgoc8x95omIIWN9IO6PMVCaFCTu/2GC7rTtIzRzmoBXldFZs3UjxJiSpFrJ
ZQJJ5kzo1ycjlOJ2SrvgmAmcfNdtWldvhB4zaJpH85qApghhsee6EXpNivK1
EDaB1s61lv2MRojiJ+PjFQUT+OLX8+e1tCEKYTt2iNfCBBLZFc2eIz3U/Xy/
JbYygbfSzY1zB/TQMf21PGsbE2AY9dx3b0gXvbr17kzKeRN49036BLWfLqLY
vOJM724CLwJuP/1UooNufxlqWL9iArWH5Rg3JLVRQla859sMEwjT6oqliNVE
E4qhNTOZJlB9+cDwkosmkv7kSkGdYwLHOTWrWJQ10QdGSIV8E8h4UcWw91sD
cdxYbK16YgJjVq42jtYaKNNR52h2owksKPK5u8mpoyIhqi7/URM4ZL8ENuyq
qJ9L+Y/XuAn8uaUgrLypgnYOhYq4/DCBbtaJFOIXFaS/vhpjMWMC3h5EsgNZ
Kmi15d+Ql02AnrKM6pmwCgLrtm80ZESQmtAeH9NWRu4GZIfIKYhwLuUuU6OY
MkpUUYLtfUSIqfzv9RtWZTQlWPlogYYIL4Wiai98B3RvLdel7xARkvZefVy7
BOhTTPhK2nEi2JUfa/9ggxHFjVe8SSeIYKYQXXb1NEb/BfwxieYjgmFCXe6t
vwhdtbpYfU2ACNO1RnkVmQidFHQIdhQjAt2oL8ONSQK60KxCJYqJoHwn6NZy
hBKiXiU/0mxLhHchG8u+NGfQZllqzA87Iiw8s/WLHFFA815ilLQO//qdbZH/
UKWAeqetl/RdiJDrcyNpv5MCSvta83r4AhHau7/dnnwtj0Rbvfw2w4gw10pl
6x4vh8wSPr8VyyVCTRZnZ4GBDNIy8FE2ySeCRz7vrOZpGaRIT1NzqYAI+c8F
DLjoZBDPLelHDSVEmPwmOHe+QxrNBcUG6lQSwfYmjbWdijS6el79lMtrIkgy
yooJq0ihAvHnVzOniaDPRkpccZVA3mwrWzWzRAhNyGtJ15NA0tviAX3zRPDu
eGgSKCmBmlrLPCiXieBHSk7r3BFHn8zKSO6bRPjDnv3ydaI4og19Jim73xRO
0Ys8ckwWQ65vnkx1C5uC31Z4wcMSEST69Of5aRFT0HqkeHXgqghaTTj9jUzM
FGRL27aVjUVQmPWTASkpUzCd0J7s3PoPpS6VNj1QNIW8EYGwqzr/oU620jQn
XVMI3X+y+86WEBKyL9b/62UKHOKn2o6ECaDOh2fKfl0wBQblfctz1gLI+XMX
04yvKezEM7n8VBBAeYbzg/0BpuD2u1H21io/4sEiVoWhpsBUZW1N48mP2Lme
uphEm8JLqbwmTcdTiOLj87CiUlNY5Xb42RTEh3KYVMYzn5pC/X9nr9Vb8yHQ
61dNKjMF16Bz1tOYD4W2/aK+VmkKtwa5Nvup+f79R1LRxJemEBb5pWormRct
xlY92HtrCpvCrzzqXp1AX8/WlpvOm8L6is1VJMSDVAzySAE/TeFjy5hbHwMP
KibG7iYtmQLXTelwptnj6Mo5J+3B36Zg99DY403YccQZwDRuvGMKnlLX7HIr
jiFSthuT4UEz6Fx7MLLHz40+rh/x0RYzg5z+D0JWapwI7VCyu0uYQfHp/QwZ
HJzoMflyfaSUGVybyu869fMIukTfTvNGzgwifY92s6QcQWy8flmaYAayP9fX
LRY5EFGvq0fNyAzirlwYiSk+jPpzr5zGF80g8afzTpoFG2Imq649E2AGXI+0
7iorsCET6xV12ctmcF9dIFXgCBsaZHW1PR1sBu0jTQXPP7OioZumsUfDzcB6
65vTiDUrGnYRX9lIMINopmSCnjsLmvxvqrKs3Aw+df+1DMthQvx3TiiXVpoB
N7Yplr7FhJx/WHcXVP/rf3uricGDCc1kDExm1pkByWBeVVqGCc0dbGaPbjGD
Cd8n2WpvGdHiUnqgW78ZDEud81jbOYQ2K4yUeH/98ztvlh5IcRDRy8v2sKya
wZv4sQiZj/SI5yWnHdW6GYhcHKFTLKZHWm0T4TNbZmA5LfrruAk9ejAY8PYp
uTng+8I8RoV06MzaA0tFJnPIpokmN7I7gEJkxwOJ4uZgr7H7uZ2aFsXVtR/Q
kDSHTcNe35QJGpSHSjLkpM2hqP/SXEETDXqn4d/EKW8OBW9byNSDaRC3OTXt
GDaH4Ts/WFx+UaPGy8IpXgbmcEfcYFB7hgrtvfCruuVtDnnSzQ1xv/ahYery
u498zKFyYR8lZf8+VEdcOd/oZw6R1zX4C57vQ/7LFxjWL5nDO+W3uyG++9CM
gJeL0zVzUOEa2HP+TYH6k12OqMWZw1v5YWVpMgqU728dSl5uDl8YB19XEMjQ
jZZ0E+5Kc3BxYL7Hy0eG7Bi/CilUm0N9gqFoMy0Z4iy1+OhTZw6Lhx4c5Cra
I8RMmImNtphDY+rNQ++GdwmBxkZjjQPmkB9klHjM7C9BR1xDPWTNHPQYrP/j
iNkmkH34QO6/YQ4WDGfGnjhvE6qDnBo9tsxhRDbJxRNvE3hbI+Ss/ppDLHnD
pMPKFmHbtFXoDBUJ4kNHC5TMtwjFwcCwyUoCRsYLqveFNwn7O84MXZQmAV1W
8dD40hqh0aMr0UOWBC/LDj5M6F4j+DNaGjrIk2BmbkHSo2SNMGoR9MZY6V/9
6Xhvsssa4cVCTb2EGglupZv3Do2tElyZZbKXTEiA6hlmyEZ+EzpsxNw8LpKg
0DHdf2l1hcDs4Fr/MIAE9BJ3FcwGVwi2rjkHey+T4G1r+pelihXCuh9LuXQI
Ce4pHX9ef3GFcPLOxvbfCBKcDn72rGptmRBW/upeXDIJwkTWfknuWya8q9kc
aUklwYFX479j3i4RDjdISKylkYC6nKuOO36J8LQj94NFFgnskekFT+4lwrfh
28f4Cv/5XfkU0nNmkXCGxrCsqpYEyY3CJ/PvLBBu0UdSzNSTgOKXYrUQcYHQ
x9RC5GwkgXV5DBkrzwLBlUt662oLCYI+bzYcqZ0npEhwqGi9JUFe8/evs0tz
hFWr0YEvwySQ3N7IzfCZJcD5I/wHv5OA7M+JuhCVWcJdZ+NAPEaCF3ei77Sw
zhJ4fdu48iZJkKQtpH+tboZgdKvQyWuRBCquF0MaDswQMu6O1WQtk2DgfRHx
7fdpwkwc54H+XyQQaDsxiaqmCWHp957KbpDAyOSjqPn5acK77Ndkblv/8EXm
mT9y04TDj3eN0/+QYIot3oL60DTBvkQuv/svCYK7DMMvTU0Rnpb5bOzt/dOn
M3bSbZwi/A+NprDm
        "]]}},
     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.2}]}, 
      {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
       GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.2}], 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[0, 0, 1], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"S(t)\"\>", 
               NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
               Automatic, {1, 0}]}}, {}},
           AspectRatio->1.,
           FormatType->TraditionalForm,
           PlotRange->{{-0.1, 3.1}, {-0.1, 2.1}}], {0.2, 0}, {
          Left, Bottom}, {0.2, 0.2}]}]}}], {{0.29815155301120844`, 
    0.19394324322088308`}}], InsetBox[
    StyleBox[Cell[TextData[Cell[BoxData[
      FormBox[
       RowBox[{
        SubscriptBox["R", "0"], "=", "0.778"}], TraditionalForm]],
      FormatType->"TraditionalForm"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     TextAlignment->Center,
     TextJustification->0,
     Background->GrayLevel[1.]], {0.4644857736613286, 0.17514867346835739`}, {
    Left, Top}, {0.2865728519233943, 0.07526155707079042}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImagePadding->{{0., 101.641658}, {0.512821, 69.098424}},
  ImageSize->Automatic,
  PlotRange->{{-1.0291666666666666`, 
   0.4291666666666667}, {-0.6460339887498948, 0.228}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.570997293101198*^9, 3.570997334409561*^9}, {
  3.5709973988152447`*^9, 3.5709974366404085`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5653905225193424`*^9, 3.565390565217785*^9}, {
   3.5653913852256866`*^9, 3.5653914159404435`*^9}, {3.565565018388771*^9, 
   3.5655650331006126`*^9}, 3.5684977942510214`*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.565390487843359*^9, 3.565390499968053*^9}, 
   3.5653905812707033`*^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[{"\[Gamma]", "*", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"R0", "=", 
  RowBox[{"N", "[", 
   FractionBox["\[Beta]", "\[Gamma]"], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tf", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"szero", "=", "0.90"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"izero", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", "eq1"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", "eq2"}], ",", 
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "szero"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "izero"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "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[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Red"}]}]}], "]"}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"I", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot2a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", "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]", "Red"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Red"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], " ", ";"}], 
  "\[IndentingNewLine]", "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowLegend", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"plot1a", " ", ",", "plot2a"}], "]"}], ",", 
    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[{"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[{"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)\>\"", ",", "\"\<I(t)\>\""}], "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
        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.2"}], "}"}]}], ",", 
     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]"}], "\[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.564274624437256*^9, 3.564274722470863*^9}, 
   3.5642747638122272`*^9, {3.5642747970531287`*^9, 3.5642748024324365`*^9}, {
   3.5642749052103148`*^9, 3.564274962159572*^9}, {3.5642750086032286`*^9, 
   3.56427508275747*^9}, 3.564275136914568*^9, {3.564275234073125*^9, 
   3.564275265760937*^9}, 3.5642753049601793`*^9, {3.5642753485936747`*^9, 
   3.5642753488586903`*^9}, {3.5642755120030217`*^9, 3.564275543131802*^9}, {
   3.5642757403530827`*^9, 3.5642757496856165`*^9}, 3.564277040585451*^9, {
   3.5642780252857733`*^9, 3.564278058153653*^9}, {3.5642782372008944`*^9, 
   3.5642782974883423`*^9}, 3.564278465501952*^9, {3.5642786024247837`*^9, 
   3.564278605454957*^9}, {3.5642788326109495`*^9, 3.564278851760045*^9}, {
   3.564957552972752*^9, 3.5649575726158757`*^9}, {3.564957828559515*^9, 
   3.5649578311986656`*^9}, 3.5649581785675344`*^9, {3.5649582463214097`*^9, 
   3.5649582480745096`*^9}, {3.5649582928020678`*^9, 
   3.5649583123031836`*^9}, {3.5649583613849907`*^9, 
   3.5649584176172075`*^9}, {3.5649584601716413`*^9, 
   3.5649585199930625`*^9}, {3.565205413893314*^9, 3.565205456988779*^9}, {
   3.5652054965510416`*^9, 3.56520559460565*^9}, {3.565205626407469*^9, 
   3.5652056380641356`*^9}, {3.5652056687088885`*^9, 3.565205776364046*^9}, 
   3.565205847304104*^9, {3.565211009007336*^9, 3.565211175587864*^9}, {
   3.5652680442214127`*^9, 3.565268078220357*^9}, {3.565268111401255*^9, 
   3.5652683648857536`*^9}, {3.565268399068709*^9, 3.5652684114434166`*^9}, {
   3.565268456068969*^9, 3.565268492771068*^9}, {3.565268570906537*^9, 
   3.565268636284277*^9}, {3.5652694812356052`*^9, 3.565269547792412*^9}, {
   3.565269593761041*^9, 3.5652696563066187`*^9}, {3.5652696908595953`*^9, 
   3.5652697156060104`*^9}, {3.5652697915233526`*^9, 
   3.5652697923624005`*^9}, {3.565269868986783*^9, 3.5652698836706233`*^9}, {
   3.565269983819351*^9, 3.565270014109084*^9}, {3.565270046430932*^9, 
   3.5652701314807973`*^9}, {3.565270162578576*^9, 3.5652701900931497`*^9}, {
   3.565389617101556*^9, 3.5653897998650093`*^9}, 3.5653900972150164`*^9, 
   3.5653910157785554`*^9, {3.5653910523946495`*^9, 3.5653910711827245`*^9}, 
   3.565392744371425*^9, {3.565394073254433*^9, 3.565394074168485*^9}}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{{3.5653897729924717`*^9, 3.5653898010430765`*^9}, 
   3.5653901003751974`*^9, 3.5653910188567314`*^9, {3.56539105537182*^9, 
   3.565391072576804*^9}, 3.565392745136469*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVkXs01GkYx0fotk1FIa0jdKMLphyVwfM0rpHbGPmpHYUwrjGNKGql2DSD
1NZm3ZKismKnRLqOJEmK2sqlorMryfxeEbYk+9s/3vOez3nP9/N9nvMaBu7i
B09hsVhC5vx/G2VNFBfoK2y7rJ3ampsHwOXWNPfe0EkID1ocp6qthMdsyxlq
wrkoVu9y7PNVAi/L4W6pxwIUuUtarkuVEGz2lc1hG+BfWXYGwdVKcDMJ/qTt
tARnDOoOB3QrQf58f9zD9caoFetSU69CA1dzRYXaz6twqqzlaq4hDaHjx/PP
U+ZY/tQ/e4MNDbsa3q+tcFuDsa9HZvIENBzdOnXpRKQFzmw4IL8WTkPQg8QQ
jsgSlY1tWiX7aVBM0/WK8FuPHRFFV7IzaeBoJJ/6ILHClGrrdu9CGnYM26xy
j7RGV8cGo5JyGooK7uuNZdhia4feov4bNFzJtOps4yPW8e6VP2qkQVJr45m/
eSMuU+VafXxGw52m80Pp23hYxx421n9LQ5jThlthlB22PbJKedlHQ94FTlVE
uD2GeMbuvDREQ/bwrYMx8Q7YXmOgfnGcht5LcXtEYke8se3uH2mqBOodj59O
SXHCsgrHpiM/EFDx6HiXleyMvCP8nmOaBFgbr6mc2bsJC+rTX83TJXBEZ8yt
7RcXfJO3uePOIgIxW4Pqxg654uz8Ls3ipQR6DlrshJObUdaUU12+ksD8Ezkd
6UVuOJg7X9OVQ6Bk7oq9D3LdcU6k4o29JQGFeJHD8jIPDOnxKQvhEigwOKNn
I/DE1f5jq0aBwK2kryzRU0+UyC3tufYEDF2nfVvs64V5j2/LS50JXH1iIm1/
7oVu4/VmOZsJyBq+mxsI+fj9cHROhSeBE7s/hO/o4uMnn1OZWwQEkrT05xj5
eSOvX9egwZfARRP1Jkm3N67ceILrt43A1M8qugp/AVpmpvbK/AmUmv95oOC9
AAN0dr7vCSBgEnjJfSLKB2PesBvVgwl0brou9/nog8Fr6yJehhJoK963GnZv
QZO47KbGcAL/XvGyNhragmrPr7pERxGYrBFXpUX74qsieQbZRcDV3NEhacQX
KzyrBjPFBB4IzcIidlMo/Xiy7qOEwOXKmLHJSQq/FUQmxscTaMrujO1jemYO
OiXoDw+AwUR13oTldDSN+v104nolWE3zrKy6TmHf2ZIiiz0EHloduj4Q+hbc
Crk6Ed0D8E75OiBhRBUrCsRvSpcrIVl+R3bsFIVctmzkWByBz9u6n3V0UXgv
Pbr5BZNvlLU5j4Q+gTI77vbaFwNg3xtTX/VcBc+Nzakc1FfCkiNjXycOU1g9
bp9hy+R/4yzgOT+iUOjf1ZvK5L3SLgRH0RQqcLb3cmb+BvPY0KmiO6BQ3PR+
1DoAksDaOEE9Cysbw4aTFyphVDxPbpFEoXmqg4UW4xPpWXw5UEfhdrWNnkLG
ZxRbr3fuHwq1zmb/OMlwcq7ssuUYhTbpX8UejF+RcPmcsagC1PatVHV/MgAy
g+0ti61Z+K4rcNBugRL8RUXsp/EUftFPPcBi/K0adYKFtyls0h4Zd2Z80hB+
AvRQSDmNjvYz3Hds4cy2IQoz2SPBXMavU/KdnzvO9CUY7gtiuHq6yaIoUSFo
5s//m90yAJzJwBHtwUno2uBktERHCZpBohv5ccw+Um/DUeY/02alT+m7QWG/
X+YTW8aPAbrL2G+Zd8OYd90M50l7qgsHKTw+YSPkMP7mM/dZYV8onFWyKd6P
4cCydecfT1DoT6UkRjF87hXpkJoaYbuvtf3sZiX8lCuvkZquwaurfE4949MQ
4qI81OrAxU53ua/DeRpqvp0olZry0Mb8/QzeaxpsBJwM01pHvGd0P7ZYnUBd
WYu41cEVK6s/ZZstIeCkGklJWj3w5jqxuY41gZBytUKpKR+zD2ooN3kQMPZ7
piGUCDBaaP/rvO0E+tXOHjat3YKZ03OP2kUS+A+gJ8+d
   "], {{{}, {}, 
     {RGBColor[0, 0, 1], 
      LineBox[{1, 76, 69, 63, 58, 54, 51, 2, 77, 70, 64, 59, 55, 52, 3, 4, 5, 
       84, 6, 7, 8, 9, 85, 10, 11, 12, 13, 14, 86, 15, 16, 17, 18, 87, 19, 20,
        21, 22, 23, 88, 24, 25, 26, 27, 89, 28, 29, 30, 31, 32, 90, 33, 34, 
       35, 36, 91, 37, 38, 39, 40, 41, 92, 42, 43, 44, 45, 93, 46, 47, 48, 49,
        78, 71, 65, 60, 56, 53, 79, 72, 66, 61, 57, 80, 73, 67, 62, 81, 74, 
       68, 82, 75, 83, 50}]}}, {
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], 
      PointBox[{84, 85, 86, 87, 88, 89, 90, 91, 92, 93}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"S\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.9},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5653897729924717`*^9, 3.5653898010430765`*^9}, 
   3.5653901003751974`*^9, 3.5653910188567314`*^9, {3.56539105537182*^9, 
   3.565391072576804*^9}, 3.56539274514347*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVzms0lAkYwHFKkYNFJVqVSxRpmHaWIj2PcQu5TdQrjVDMyNjQiEqhbMj1
Na65i4gowhgdq5mKpJJLHYuiWEWbVETlsu2H//l9/at7n2D4LBMTE2P+7H81
kheu5m8U7tFQaQ3IzhaAbbOkwxhrCWpGRw+MOvLhiazhKgmmPHJ7N7U3Yz3Q
ky3vljkqY0sCM4FafBt89L/LUmXV0C1qZOGFRS3Y6/h8UrLejC0RBqyp+VtQ
23supH3nVmydJM7WjdwEE0XdmxIRelgL625bjFUB60dqXilhgFYzihO+ejfg
ROvb327a70BpnWKnoTsVcPnQSq0FDg1DC1b3pblch6NtZ32pbEM0D+opztcq
B6GkirO/204Mp48/GFUqA6pCZMY41xglY2kckfQ18PxiqufA2Y3cnJyePK1S
KMp/oDqbuAfl9++Q8zArgdtJxgPdDES53g5Ny5NXgdtk6pS3zwzbnzge3ics
hpZHpZ/j3Om4pNkZuEGuGPysdzX7Eea4SN8/GBNcBLnl1Hr/4xYo/DbR6Pa8
EMgvzVGBoZaYGDxddcKyEMYqQk6xg63wRew0Sze5AO5bpWZduGCNfdK6/LGk
fBB37H+THLkXJ2ern49U5YGYWYN44WkbPM1pm4x+mQux62btu2NskXOM0yAh
lQuBh46KZi/aYZgHpyTPLgdeR9GOQfo+rKtulbG5fAXW8LL744rs8dAFTnPe
i2y4Jq97ui3HAY+f795yzCgbhMGbLLdUOmJij3m6Li8L8tUKVU1dnLDAeI2X
sXgWNId/F2M/c8KGGp3TmWGZoG4nOa950Bnr92mXr3qfAXWdOvF/9zpjeYan
ZD8nAxJaFw3UmAxM8dTvlplIB97J8eOegwzcRP99OyUkHcLXbvxFw20/KjeK
5k0k0+G6zopH3OH9ONafmdiXlgYrp8VVhB4uSO5y0D9KSYMyg5rz+W9dUG/N
udX37vFAx7vCYSHAFc12WCxaHeHBgI2g1vW9K1byBDGKK3jQffXMdjh5AMG9
q2rsWirM3XberfH5AD6J8LluyEiFpcbg+kt/HES/B5U2cstSwc7AyjJ85iBe
nnAdV68moY2p7+d/ksC5JHpVjDcJ1bcCZ5eWCOxX46TKK5DwiBwIesf6CHUR
d01lWI2gtsDPXTCUQl6Gnonm7gYwlnS6VS8g0P3qtg7/XSS0G18U/MsaguwV
mlZl843w5sNLr7CZ5Rgr7S8jFDVAZG1LQkoGgcvdzju8tidh2n24p3+QwO9t
lGBtLRIeJnTvnWF1wvU3Wiu32wrAYizwfn2vOL6hR0ackeLD5tjZ7wvRBPLi
PA9SCBIyqcr0vR0Eimjczeb6JDhfKvcJmCSQ/s4of+2vJLQaBLFWslvg2ycV
79IgAXC9m0Jc7othVFPNsbltfPgavLqWFk7gkUOOoW5MEtiqtG/nRQTGcYdm
XWkkaATdVy35h8CHzR2JqmokROYkVBvOEvisr7pQQYkEYVh1yVb2TRjRLxlL
/lMACWpHnmruFsOvyuPhw6Z88GAXyT4LJdBG/bD+1BESuhRELuv/InDLFmbU
sCEJ8b6MMHhNoPdaI/UiDRLepayX7v5M4C0HDzOeMgnrri0ycn4Q2Dn37E7K
ahL4UjqbAtgFcGKd+1BKsgCoS94zSlNLoE5t/fDKig+KR9l38kII9L+S9NzE
i4RLMnHL3t0hkHqPJqe9kwT0UtGWHSIwqP9HzYgmCbnxr/kFUwRqOyDRq0LC
48IHYn7fCJza06HUtYYE70qj0icLP3+m65KdFEko6fvYH0/RQBOzDa8SC2rg
cE5tYzxlBw7Sqq60dleAr+2Hi12WJnhKcSC6orIUGud5ZfEUOtrMJ3gNbSsG
UxdqIqXJCkfL3NtIuwIQVT4N7rK0Qx3pdqHsmRywXs4huF2O+FhK8EnlXBb4
VkkUxFMYSHnayRQpZcBWtx4FJtcFIxnc0MQNaTAhURxNaTqAhZP5N5JCU+E/
8OivuA==
   "], {{{}, {}, 
     {RGBColor[1, 0, 0], 
      LineBox[{1, 76, 69, 63, 58, 54, 51, 2, 77, 70, 64, 59, 55, 52, 3, 4, 5, 
       84, 6, 7, 8, 9, 85, 10, 11, 12, 13, 14, 86, 15, 16, 17, 18, 87, 19, 20,
        21, 22, 23, 88, 24, 25, 26, 27, 89, 28, 29, 30, 31, 32, 90, 33, 34, 
       35, 36, 91, 37, 38, 39, 40, 41, 92, 42, 43, 44, 45, 93, 46, 47, 48, 49,
        78, 71, 65, 60, 56, 53, 79, 72, 66, 61, 57, 80, 73, 67, 62, 81, 74, 
       68, 82, 75, 83, 50}]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], 
      PointBox[{84, 85, 86, 87, 88, 89, 90, 91, 92, 93}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"I\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.015},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5653897729924717`*^9, 3.5653898010430765`*^9}, 
   3.5653901003751974`*^9, 3.5653910188567314`*^9, {3.56539105537182*^9, 
   3.565391072576804*^9}, 3.565392745165471*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwVkXs01GkYx0fotk1FIa0jdKMLphyVwfM0rpHbGPmpHYUwrjGNKGql2DSD
1NZm3ZKismKnRLqOJEmK2sqlorMryfxeEbYk+9s/3vOez3nP9/N9nvMaBu7i
B09hsVhC5vx/G2VNFBfoK2y7rJ3ampsHwOXWNPfe0EkID1ocp6qthMdsyxlq
wrkoVu9y7PNVAi/L4W6pxwIUuUtarkuVEGz2lc1hG+BfWXYGwdVKcDMJ/qTt
tARnDOoOB3QrQf58f9zD9caoFetSU69CA1dzRYXaz6twqqzlaq4hDaHjx/PP
U+ZY/tQ/e4MNDbsa3q+tcFuDsa9HZvIENBzdOnXpRKQFzmw4IL8WTkPQg8QQ
jsgSlY1tWiX7aVBM0/WK8FuPHRFFV7IzaeBoJJ/6ILHClGrrdu9CGnYM26xy
j7RGV8cGo5JyGooK7uuNZdhia4feov4bNFzJtOps4yPW8e6VP2qkQVJr45m/
eSMuU+VafXxGw52m80Pp23hYxx421n9LQ5jThlthlB22PbJKedlHQ94FTlVE
uD2GeMbuvDREQ/bwrYMx8Q7YXmOgfnGcht5LcXtEYke8se3uH2mqBOodj59O
SXHCsgrHpiM/EFDx6HiXleyMvCP8nmOaBFgbr6mc2bsJC+rTX83TJXBEZ8yt
7RcXfJO3uePOIgIxW4Pqxg654uz8Ls3ipQR6DlrshJObUdaUU12+ksD8Ezkd
6UVuOJg7X9OVQ6Bk7oq9D3LdcU6k4o29JQGFeJHD8jIPDOnxKQvhEigwOKNn
I/DE1f5jq0aBwK2kryzRU0+UyC3tufYEDF2nfVvs64V5j2/LS50JXH1iIm1/
7oVu4/VmOZsJyBq+mxsI+fj9cHROhSeBE7s/hO/o4uMnn1OZWwQEkrT05xj5
eSOvX9egwZfARRP1Jkm3N67ceILrt43A1M8qugp/AVpmpvbK/AmUmv95oOC9
AAN0dr7vCSBgEnjJfSLKB2PesBvVgwl0brou9/nog8Fr6yJehhJoK963GnZv
QZO47KbGcAL/XvGyNhragmrPr7pERxGYrBFXpUX74qsieQbZRcDV3NEhacQX
KzyrBjPFBB4IzcIidlMo/Xiy7qOEwOXKmLHJSQq/FUQmxscTaMrujO1jemYO
OiXoDw+AwUR13oTldDSN+v104nolWE3zrKy6TmHf2ZIiiz0EHloduj4Q+hbc
Crk6Ed0D8E75OiBhRBUrCsRvSpcrIVl+R3bsFIVctmzkWByBz9u6n3V0UXgv
Pbr5BZNvlLU5j4Q+gTI77vbaFwNg3xtTX/VcBc+Nzakc1FfCkiNjXycOU1g9
bp9hy+R/4yzgOT+iUOjf1ZvK5L3SLgRH0RQqcLb3cmb+BvPY0KmiO6BQ3PR+
1DoAksDaOEE9Cysbw4aTFyphVDxPbpFEoXmqg4UW4xPpWXw5UEfhdrWNnkLG
ZxRbr3fuHwq1zmb/OMlwcq7ssuUYhTbpX8UejF+RcPmcsagC1PatVHV/MgAy
g+0ti61Z+K4rcNBugRL8RUXsp/EUftFPPcBi/K0adYKFtyls0h4Zd2Z80hB+
AvRQSDmNjvYz3Hds4cy2IQoz2SPBXMavU/KdnzvO9CUY7gtiuHq6yaIoUSFo
5s//m90yAJzJwBHtwUno2uBktERHCZpBohv5ccw+Um/DUeY/02alT+m7QWG/
X+YTW8aPAbrL2G+Zd8OYd90M50l7qgsHKTw+YSPkMP7mM/dZYV8onFWyKd6P
4cCydecfT1DoT6UkRjF87hXpkJoaYbuvtf3sZiX8lCuvkZquwaurfE4949MQ
4qI81OrAxU53ua/DeRpqvp0olZry0Mb8/QzeaxpsBJwM01pHvGd0P7ZYnUBd
WYu41cEVK6s/ZZstIeCkGklJWj3w5jqxuY41gZBytUKpKR+zD2ooN3kQMPZ7
piGUCDBaaP/rvO0E+tXOHjat3YKZ03OP2kUS+A+gJ8+d
       "], {{{}, {}, 
         {RGBColor[0, 0, 1], 
          LineBox[{1, 76, 69, 63, 58, 54, 51, 2, 77, 70, 64, 59, 55, 52, 3, 4,
            5, 84, 6, 7, 8, 9, 85, 10, 11, 12, 13, 14, 86, 15, 16, 17, 18, 87,
            19, 20, 21, 22, 23, 88, 24, 25, 26, 27, 89, 28, 29, 30, 31, 32, 
           90, 33, 34, 35, 36, 91, 37, 38, 39, 40, 41, 92, 42, 43, 44, 45, 93,
            46, 47, 48, 49, 78, 71, 65, 60, 56, 53, 79, 72, 66, 61, 57, 80, 
           73, 67, 62, 81, 74, 68, 82, 75, 83, 50}]}}, {
         {RGBColor[0, 0, 
           NCache[
            Rational[2, 3], 0.6666666666666666]], 
          PointBox[{84, 85, 86, 87, 88, 89, 90, 91, 92, 93}]}, {}, {}}}], 
      GraphicsComplexBox[CompressedData["
1:eJwVzms0lAkYwHFKkYNFJVqVSxRpmHaWIj2PcQu5TdQrjVDMyNjQiEqhbMj1
Na65i4gowhgdq5mKpJJLHYuiWEWbVETlsu2H//l9/at7n2D4LBMTE2P+7H81
kheu5m8U7tFQaQ3IzhaAbbOkwxhrCWpGRw+MOvLhiazhKgmmPHJ7N7U3Yz3Q
ky3vljkqY0sCM4FafBt89L/LUmXV0C1qZOGFRS3Y6/h8UrLejC0RBqyp+VtQ
23supH3nVmydJM7WjdwEE0XdmxIRelgL625bjFUB60dqXilhgFYzihO+ejfg
ROvb327a70BpnWKnoTsVcPnQSq0FDg1DC1b3pblch6NtZ32pbEM0D+opztcq
B6GkirO/204Mp48/GFUqA6pCZMY41xglY2kckfQ18PxiqufA2Y3cnJyePK1S
KMp/oDqbuAfl9++Q8zArgdtJxgPdDES53g5Ny5NXgdtk6pS3zwzbnzge3ics
hpZHpZ/j3Om4pNkZuEGuGPysdzX7Eea4SN8/GBNcBLnl1Hr/4xYo/DbR6Pa8
EMgvzVGBoZaYGDxddcKyEMYqQk6xg63wRew0Sze5AO5bpWZduGCNfdK6/LGk
fBB37H+THLkXJ2ern49U5YGYWYN44WkbPM1pm4x+mQux62btu2NskXOM0yAh
lQuBh46KZi/aYZgHpyTPLgdeR9GOQfo+rKtulbG5fAXW8LL744rs8dAFTnPe
i2y4Jq97ui3HAY+f795yzCgbhMGbLLdUOmJij3m6Li8L8tUKVU1dnLDAeI2X
sXgWNId/F2M/c8KGGp3TmWGZoG4nOa950Bnr92mXr3qfAXWdOvF/9zpjeYan
ZD8nAxJaFw3UmAxM8dTvlplIB97J8eOegwzcRP99OyUkHcLXbvxFw20/KjeK
5k0k0+G6zopH3OH9ONafmdiXlgYrp8VVhB4uSO5y0D9KSYMyg5rz+W9dUG/N
udX37vFAx7vCYSHAFc12WCxaHeHBgI2g1vW9K1byBDGKK3jQffXMdjh5AMG9
q2rsWirM3XberfH5AD6J8LluyEiFpcbg+kt/HES/B5U2cstSwc7AyjJ85iBe
nnAdV68moY2p7+d/ksC5JHpVjDcJ1bcCZ5eWCOxX46TKK5DwiBwIesf6CHUR
d01lWI2gtsDPXTCUQl6Gnonm7gYwlnS6VS8g0P3qtg7/XSS0G18U/MsaguwV
mlZl843w5sNLr7CZ5Rgr7S8jFDVAZG1LQkoGgcvdzju8tidh2n24p3+QwO9t
lGBtLRIeJnTvnWF1wvU3Wiu32wrAYizwfn2vOL6hR0ackeLD5tjZ7wvRBPLi
PA9SCBIyqcr0vR0Eimjczeb6JDhfKvcJmCSQ/s4of+2vJLQaBLFWslvg2ycV
79IgAXC9m0Jc7othVFPNsbltfPgavLqWFk7gkUOOoW5MEtiqtG/nRQTGcYdm
XWkkaATdVy35h8CHzR2JqmokROYkVBvOEvisr7pQQYkEYVh1yVb2TRjRLxlL
/lMACWpHnmruFsOvyuPhw6Z88GAXyT4LJdBG/bD+1BESuhRELuv/InDLFmbU
sCEJ8b6MMHhNoPdaI/UiDRLepayX7v5M4C0HDzOeMgnrri0ycn4Q2Dn37E7K
ahL4UjqbAtgFcGKd+1BKsgCoS94zSlNLoE5t/fDKig+KR9l38kII9L+S9NzE
i4RLMnHL3t0hkHqPJqe9kwT0UtGWHSIwqP9HzYgmCbnxr/kFUwRqOyDRq0LC
48IHYn7fCJza06HUtYYE70qj0icLP3+m65KdFEko6fvYH0/RQBOzDa8SC2rg
cE5tYzxlBw7Sqq60dleAr+2Hi12WJnhKcSC6orIUGud5ZfEUOtrMJ3gNbSsG
UxdqIqXJCkfL3NtIuwIQVT4N7rK0Qx3pdqHsmRywXs4huF2O+FhK8EnlXBb4
VkkUxFMYSHnayRQpZcBWtx4FJtcFIxnc0MQNaTAhURxNaTqAhZP5N5JCU+E/
8OivuA==
       "], {{{}, {}, 
         {RGBColor[1, 0, 0], 
          LineBox[{1, 76, 69, 63, 58, 54, 51, 2, 77, 70, 64, 59, 55, 52, 3, 4,
            5, 84, 6, 7, 8, 9, 85, 10, 11, 12, 13, 14, 86, 15, 16, 17, 18, 87,
            19, 20, 21, 22, 23, 88, 24, 25, 26, 27, 89, 28, 29, 30, 31, 32, 
           90, 33, 34, 35, 36, 91, 37, 38, 39, 40, 41, 92, 42, 43, 44, 45, 93,
            46, 47, 48, 49, 78, 71, 65, 60, 56, 53, 79, 72, 66, 61, 57, 80, 
           73, 67, 62, 81, 74, 68, 82, 75, 83, 50}]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0, 0], 
          PointBox[{84, 85, 86, 87, 88, 89, 90, 91, 92, 93}]}, {}, {}}}]},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{
       FormBox["t", TraditionalForm], 
       FormBox["\"Density\"", TraditionalForm]},
     AxesOrigin->{0, 0.9},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     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[0, 0, 1], LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          
          PlotRange->{{-0.1, 3.1}, {-0.1, 
           2.1}}], {-1.2, -0.8180339887498949}, {
         Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.5653897729924717`*^9, 3.5653898010430765`*^9}, 
   3.5653901003751974`*^9, 3.5653910188567314`*^9, {3.56539105537182*^9, 
   3.565391072576804*^9}, 3.5653927455284915`*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwV02s0lAkYB/CxbmWbLgppHYauumxmc2wZPI+7XMctrxwKDeMaIoqsFMua
XOrUZt3ShcqKnZJkpZEkRE22iybh7ErMvO9EzEay7354zv/8zv/L/8tjGHLQ
i/cNg8Hwpu//NCqYv1SuL7KSWDiKe3qk0LjI2CCGXwGaZav+ZvZKQZRy4/Im
fh2oHN2i7N4nhQ6T+HA1fiuIRH96dz+TQqdA7DQd3gc1tpx9d19I4bH5iSZp
+Dtwq+DoRA1JoavoTfxYOAUacscU/SkpOLeou4+GL0Bk6NokZW0ZsBdCprXl
CyDZ5Wi0TkcGAta+3rUWDByRhMhtV8sgMeRukk87A+s7I6Yy1sjAbjSuvaFf
CS8rltXL9WUwInsbnDKtjHXlCYPVG2XAmm8snTdbhN/H/HY+dacMnjDNFqsE
LscEVYnDmJ8MbArs71d7rEa+e2JvU54MeNtnmWwmC/8qsGXxGmXgZsz7qO24
DhfLdaeCh2Qg7D+W9HjnJtSKd77TrkQCR3NzncpPW1FN0HurxJCE8LnTZVcI
E6x9GlS0y5KEgx3vd9S5/YDxb6c1bHxI+GWv2vr5aFPU6EgX3o4kIfRRahib
b4ayTrFW1TESROq6nlH+O3EgqvJmUT4J7BUZ5z4kmmNmo8Vr7woS9k9ZbnWP
tkAXhw6jqloSKssf6ilOWeGzAT2D8WYSbuabvxF7IbbZPKjt7iQh8a4lt8zV
Gjcoc8wnnpPQ2nVlMjfABtuYU5v035EQ4birJYKwRXG3eebLMRJKr7IboiLt
MIwbf+D6JAlFUy3H45Lt8fUdluq1ORJGrycd5ic4YHPA/d+zlSlodzh9PjPT
EWvqHLpyvqVAyWNgpCDDCW1yvIYLNSlgWN9WunBkN5a3575aqUtBjo7CTfyz
Mw6Wug60GlAQtze0TXHCBZeWSTQvradg+LjpATjrioKu4sbaLRSsOlM8kFvp
hvKSVZoubAqqlm8+8qjEHZdFiwbtzCgQJRjYb6zxwLBh35owDgXlrAt6lj5c
3Bak2DoDFLSkzTL4T7mYKDSz49hRYOii/mWtnyeWPrknrHai4Fafcd7rfk90
m2vfXuxKgaDjqwkr0Au/nowtruNScObQh8j9Ei/86Hsuf48PBWla+suM/L3R
ZlyX1eFHwTVj1a7EIW/cYn2G4x9AgdonJV1RkA+a5WeNCoIoqDb5I738vQ8G
6xx4PxxMgXHIdff5GF+MG2R2qvIoeLO7Seg74Yu8HW1RL+m/EF86ug0O7UHj
pKKuzkgK/r3paWE0uQdV+m85x8ZQsHAnoSE71g9fVQpPUQcpcDFxsE+b9sM6
boM8P4GCR4HbI6IOEZg3cbZtIpECzVB+c1kSgSZ53oYztIP4lcynyQR+1s9K
ZyRRMJOwUmiaRvdZ9qZatNflKGbnTxLYOGd3yop2hrBVUHiOQA5TMF1I21yd
W9/QRODYxapK08MUZC/J/WasmcBx//w+K9rPVrT5rLlHYJf29JwTbb6e6ef0
NgL3qVhzA2n/yl5t49RNYGCQZDSL9qeAoecDEgIf5Mb2vKCNwbobmO/oPYZx
I0O088K8UmCYQMJxZmactlF8u97lfwjUulj03QJtz+yrvBiSQBEu9d6YTEFp
3nBjhZzA0/OWgWzaY4VrNMSTBOYzp3kc2hklghtmCgItc2cTPGj3XHjIiPhM
4JKq3cn+tHWqvnqVzNF9iuHRUNohNT9eeTJPYBCRmRpD+0Z9nGJhgcAv5dGp
ybT/A2xmhpw=
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwVj2k41AkcgEcH8mBz5GhtrhAJ01rK0e9nHCWMO39ETDQjY92LsqTaUK6/
iZL7Jus+xtRjRUVlLUk9VrXOFdqsihw1bPvhfd5P74dXmRHs5L+FQqE4f+V/
q6TzSwv2dB1Rke8JysnhAVdYUzGIVQjBsp5jGek86IquK9vHqocp3bKZ9F94
0KMXyhRkdcLae3lGeSgPHqUMHVtmDkD1pJrggeM8eGx0ifcPcwxytqtaVX5p
hyfky9BZ5r/QEn/PVJTZDsc7hOgzzE1onJ4+MW3PBeomY1lmcROUqT3v/rLi
QorSqT9UTSj4SW4udtyUCxGMO5EuDyiYcKfRb3U/FyxmQh60DgvgJO1C/Dlh
Lky+e+0bvbwVk0QCRbu620CJz83jGwgjJ1vbWNWkDfrFDHZs89qJEcOKjzuw
FWjplvcq7eWwM8UrhVrSDP6662JUMSV0T5jiv7BoAjtN//cyR/diZ7wec/FL
AzQN/xz5+NA+7FkgzrdM1YOxpFb9tnhtbALZZouZWmB+zswvJ/TQally/oz2
rxDc8+b7eruDKKJZ4jB29zZc9RBU47P1MapQauS6SzWc7j1/hsoyQPPQZyUF
alXQJSTvGOh+CGNpcw+nZSqBKnEhey7CCIWS9NndIhXg89FUm842wYjc3Gf5
auVQXPBQYSX1CO50PijubVYGzWlGL4ecEMWH+1Qtw0sh4o6pQ76tGT7utz9p
21UCnU/KPyR70nBTdSDkO/ESCDh6uCOAMMcNmvOrxLBiyKuitgaetcCutfl2
9+dFQH7sSAiJssTUsKXaYMsimLkd+RMrzApfJC0xtdIL4YFV5s2LF4/iiIgW
dyatAATsRyfTLxzDhZW651O1+UAxaxMoirHGGHbvwuXXeZAku2I3lHgc2X7s
tm3CeRDicbp75ZINRnuzy/JtcmEiQd8Psmyxpa5H1PrqLZDm5IwmF9uhx0V2
R/6LHKjYqRXTm0vHs3FDGn6GOdAVpmipUWOPqc/Ms7Q4N6FAqUjB1MUBC42k
fY0EbkJH7DqFNeiAbY2aMTeib4CyjdAXVTdHbLVVr9rxNhtaBjSv/TnsiFXZ
PkKj7GxI6dnQU/Jywgwf3SHR+SzghM+d9XnlhIq0Hw7oRGZB7K4936i4O6Nc
e/cXY6EsqNbc/iRi3BlnRm+kjly/DoJLAvJd3i5IHqbrnta5DpV6jXEFb1xQ
W/pnqfv3OaDJuE3nB7mi2UGLDatTHHhpzWtyfeuKNRxeouR2DgyVnjsA4ScQ
PJ/WzlRkwmqzo4nKhxPYH+9fbeCUCZvtYa1XfnTDgIc11uJbMsFGz8oydtkN
r867zinXkdDrpRsQGE7gahqtNpFBguRp1t38SAIDb6U9N/YlwZtVLDYYRaC1
8kndxVMkfAqTatKPJfCUh32UuxcJe5NW1vmXCeQk+7jpECRcaOpMycgmcKt7
HH3CjgQjIYeGVh6BnqX7+wIPk3BFNHnL7F0Cqff1xdUPkfBUottl928Eamh4
JYwbkMBS0F+L6yYwOWJsxVWfhBtUOdqxPgK79SP2muuSsOQ5/mz0FYHrvTph
6mokoK+8utgYgaGjnxunVEm4dsYpGiYIZOwyVC5WIUEl9IFC2d8EPuroS1VQ
IsHxSpV/0AKBtFnDgl3fkpB3bYJbuEigOh2JYXkSZjN2iwx9ILCB7m3Gkfv6
k5tSZ7BC4OBIXZGEDAm/Fz2kBKwRuHikT+apNAmyFRtOuZ8JHFgdvJshRQKj
xrC8n/+1X2pJd5Akoa4hZGVzk8BRJXbmTgkS/gPCC2TJ
        "]]}},
     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}]],
     PlotRange->{{0, 100}, {-0.05, 1.1}},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.2, 0}, {0.4, 0.2}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.2}], 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[0, 0, 1], Thickness[Large], 
                LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          FormatType->TraditionalForm,
          PlotRange->{{-0.1, 3.1}, {-0.1, 2.1}}], {0.2, 0}, {
         Left, Bottom}, {0.2, 0.2}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.5653897729924717`*^9, 3.5653898010430765`*^9}, 
   3.5653901003751974`*^9, 3.5653910188567314`*^9, {3.56539105537182*^9, 
   3.565391072576804*^9}, 3.565392746099524*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwl13c4lt8bAHCEhJYWlciKQnb2uY2X12uWmVK+mUURKpRSyEgoKlvRQGWT
EYWsMorC+yJ7S1ZExu88fn891+c693Puc+5z3c84eM7lhB0DHR1dEz0dHXHl
C19JSTxQrmoU65hdXz+B3rGI8Fx0TEJ/u96U3aqeQOWeGc+FHTPRpFX3tPDH
CVQtcdmB2fED+rJKi7HKnUC1oc3kPw5NaNuu7NOGMROoTtGvaMKhG8l3pycY
2Uygzw86Lo84/Eb5j/YF5/weR0HRj+siJafQVuW36QdHxpGoI7KUzpxCt20a
7t3tGUduGx9cd0ufRuOZrOGS38bRKkmmbOrpLJoPnitmzxlHnJXeGr/uL6Da
o2qc1MvjiFK60WDIYQ0ZTRhP94+OIcm1c392T62hSxv5tp3oGUOhvGcb+ZXp
gO3g8Yq81jHkca74isknOriY7M1iUTmGNIdcP+V/p4d8/6SAPfFjqO9X13+e
fzaA4+x73ru6Y4h35V38ihwLTA2yiz5KHkUNm+U2MVptg1Ytzsd2ciNIPZz0
8ZUhJ+waqtwabj2IfCl5ac2XOEFjoC3d03QQlTHxR67c5wT/Df6H7CiDSPEG
nb1xPSdIrAkf05YZRNLnS9jWyFzwy1rzsxTLIBLQkDQ3U98LZOV/Dz5mDSDm
hf2TjLL7wXuuf4cH0wDSzLnXdtRkP5wM2iP0e6kf3bm49NHSfT+Mv9vh6DrV
j1b72yKzsvfD79rYloCOfrTw9aHCaXFu6K8zzVnN7kcj6SwBuYcOwGzlJpqS
dT+yO7q0WXIzLwSFCmi5VPQhvY7AF5wHeGFQ/IgbS2EfkgncpUJ3lBfOiJ0o
ef22DzF2Szg3GfHC5prg+W0xfSg5zOHzxShe+GYr/sHctQ91//p+N33fQeDZ
n9DWz9uHTr7JXOM/zAdqcuffGYf0IrBQecKmxAfSB90E9G73ImHGL+Kzunyw
MjAtZ+TZi/6eGrKquMgH2vtYrK/b96LHbNzvrbP5YBld0juj0YtaLoR4Jsjz
Q9r5D6mWaz1IX8Ruere2APT/U9ms4NuDlu5dKekyE4BahUY9Ua8elDoZEPDc
XgAebGlvEnHrQYx5L7mk7gqA7maPRxq2PahYdURNv0oAtG7cb54m9yAhE6eH
fhqCADYGpbI7exDdrcvSU0gI4sVS4p1su1FG7+2VAkMhaH4c6vbNohud0nxY
43NWCIKCAj0o+t2oYFPuKbZbQuDAdKbiilw3co6a8xMqEwKbGt/uzE3diJp2
7ftp5UNwy+sCf0ruT5Tz3edKnbwwqGlXvmbZ9ROlBtie69MRhkYnP5tx1p8o
UU7X8J+lMDAdt5nvpfuJQqI5RcR8hIFeo5LM+qsL2ZzO7YwoF4bJvOUuzeou
tHNgRMOCIgIP4xjqKTe6EOujJonLp0Sg5awJx1n3LkSnVcAd4iwC0WGx4QEX
utDEK7+FkjARSPrC8InlZBeqcjrwmqdFBC7xKxwalOtCV2eNOYZPHQb9XhX9
n386kfNzxbU158Ow1cbPedNkJzpnenCC8+ZhyLcL2Eka6kQG7yarKE8Pw0EJ
zchfrZ3o0PVgr4yBw5CcfvwUXVEnamf40HPl4hGgNv95vMu3EylxHM5kvCUK
/i9me7W4OlEjvWVdQ7go3D1Ou+m0oxNZTwf3P34qCrFvHgzGb+5E/l9H94hU
iILFsG2eIAOOD0vz1WcSg7oc1Zb68Q5kzSZy4vE9MfAqq5s5Xd6BZpYsnM/G
i8E+FkEbjfcdyH8s6K7wWzEQoVWIyb7rQGl1I8XFjWKwcH+Pj+JbHB+Yyt+9
XRy8/93Ir4vB8YzCfw5FiwP7ofk9Ix4daPec+dbpVHEQGovU9nbtQKn9gSLF
ReKgXvTj1m7nDtRQMWyl1yEOKnGbC5xtcPztV9WuB47CDni6NewEzrciFF30
/ChczTnSEinVgRz+PUx4YSEBYY/DDggv0lCUwUSll7UExGz3sto6T0Mfn5HG
9B0l4H6BmMXKDA1xkv/KzV+TgJ17ZCi/JmioNsrqq9YTCWiwdnq2r5eGRMSF
N4z8kAAXQz73l59pyOz2bZH3XRIQmLFHYraGhu58pxlGDEoA9y3rDlIVDdG8
78fL/5GAn8mODcsfaCikZkY2eKckhB0rbM7Mp6Fx61LHw8aSYP/m5gpPMs6f
tzt81VISBJ1PbqlOoiHNja75zeck4Q9Pp9HlBBqKf8vHcN1NEgoz7qu3RdOQ
3lJg3JcHktCwElrWHU5DbyNPNDp/lQRV1pNk2k0acqkels7Ul4KSBkr5UWu8
X3jjJGomBRZWshHqZ2hoW4lrStoZKXi669U2y9M0lJW5yPHcRQqkbZaWHlvQ
0Ew020z0AymwOXRSW/s4DV11Opp154cUXLE9d8JTg4aqB2eH17qk4D9fX6lv
ajS0x7qQx2dICgbr/bnFgYYKTdTCry1IAddVvalZZRpaVDG+5MwlDeM+R+9n
yNHQjW3XRM2spOEXC11N22Eaqg9Rsm2xk4YNqwsHLorQEDcTXbzRJWlQ5WaZ
YRKmobLFIDbdW9LAIR43qCZIQ3T9sWPomTQwUxP4+nhoyC+/LFVkUBoezpVf
LN2F623JLLjiLAPGbH1+rzfQkKoE+/yohwzQWF4cyWWgoWkmjprWGzLAf8R8
Ryk9DVlkc5/PCpUBkfLIsLY1KhJkkX1r80YGuM8XpwotU9HHfBvZz+MyIHhc
bIvIHyryuHee+d2sDAzXj5w5MUdFh/5zaUv5JwMDey2e+cxSURj7dS8fNlmI
l5geo05T0Smbh6USR2TB3ML+QNokFc1vKyc9uSALzzQELyeOUFH6UPVufzdZ
uK36cXpgmIqs3tcPu3rLQsOee3xi2J8c2oMpIbKQ52joXzFIRQ/KfjespMkC
i3dwK10/FYk6HzCzHZUFD42esNouKrKpuW4v6SgHrRfdmp2/U5GtspDBvIsc
RIsn8w22UJF99lfZkmtyEDtpk3YG2zFOkIkUKAfhtreNTJup6JJLU4rFSzw+
fbbM6CsVee/h7701IAcyHcF9PvVUdCO0oVZzQg6+vohwZsH2offM2jQnB1eM
ihijvlCR73j9rcgNx4BV1cQ04zMV3f1w9cArvmNQrjEh8buWih46fD7VaH0M
8gbmipOqqCiq00Mj0vEYGDfqb1TEfnSc54iF6zGYDypR+fGJiqKVPJZ6bx2D
6jMj1luwE7ceiPmTeAw2s7Hr3KvA9Xt3uXV/1zGQtEwaePuBiso3ch13OikP
R7ymmoKKqWgoRZxC/U8elMBTRg6bHTQ1tC/Iw2juP4eBIiqy8HSR5b8uD4u0
TTIa2L9Hqrg64uVh7P1XYdZCKuL+7NZH6ZGHl8+96kryqUjdPqijcEQevou4
SFzBdmRI/C40LQ+1N921j2LnKdZVMzAowFstr1sv8qhI9zXP62J+Bdi3S3wi
JpeKvELr3Q87KABXX5/Vs2y8H+E+52gXBSjvUGC3w/70acGO2VMBus72HRfB
3rbCZ9EXpADcBX/jc7Oo6NVFL+XYdAVw/+83c1MmFf0wEGJinVSAO2fpBngy
qEhyu+/jUQ9F8DKf5D74moqKWdqEa24owqq4MtPfdLx+OvGS5/6K8KLQSa8J
2+R3R/fZKEUozXs0fxP7asMxkdZcRZhXDU7pS6Oi98G/SypmFKFh91JecSoV
kW5rGTxdUoSBL94KT7AbPRN6fBiU4GWyznYP7G4HXSYFDiXo2PvpnTg2g9Yr
g0xJJfi7Uv/51SsqIjOc7Y1zVYLqFaszqS+p6NtivruXpxLEWia9D8a2nGZn
NvdVAqUB93NO2E49xYc5IpQgYcfVO0exw8p2ewRlKsHUktKGkhdU9N27kfnK
pBKgNwV3fj6nIutZFVEDZ2VoPediZpxCRZs56L5+91AGDrZzcYrYxRIV7qd8
lIG+UoKHD3vnJa0SxzBlSEph7p1OpqLaEQOKX5Yy3JvdrhKFLfHzrGPhnDIE
HnnU3P+MirqWD7KjFWUY9w0qa8QO2TeQWcWkAm8nRrqLsAcsHBead6uApMKT
jxHY0S2ud3/JqwBz5o1xwKaru/2cz0cFRjzUfNOfUtHbYQ1yWoAKuPJ+CYzG
tmRmnjgapgJfEw6U3sXO0wiRVklSAYqTXqYNtmPZwwrzchUI7Bp4zoP9NTel
J5RJFZ4tTV9KSqKiZ4lV+xfuq4KueUxFSSIVxZ8WbTN9rAqnYXEqAzt6b+SD
vETsZlOUjB322JrZLVMVlPrSFIOxvcP+/Z74qgpGwe7JFtgnbkpW9u1AsK2y
d2E5gYr0laN91PYjsCXN0c9gk5dWjz0VQPAlx+PQMLbq1fo3VrII3vZmVX7D
PnLJ4XG7GYLayGyFVGzGMwnnG2MQZDpm9JzEXtvHKCCWjKC4d+22EfYS9cLP
e+kIKt6nKGpjT5nKG+uUIKic3zotg92p36L8qRPBafZC5+3YtERGlq6tAIl6
0pcb46koN0yxo/kEwAN+azVz7HNxW5iKzQDkH9L/NMLmSO0Tf2YJIGofEkzB
di0PueNyDqBHuIFdFVt0jibC7gbwPsD9oyD285PXPUkPAIzXhD4sxFGRsb1h
sugjgCSdl4oz2Azu/PU7YgC+PP9bMYFtHfqFp+8pQGHMg8Ve7P0f9tXczAKg
1Dn8q8eOEni/q7AJgIN7SPEFtoZkBEpqARA643n1KfaMiu35u20AgjlipXHY
RubspSbdAKemYpweYrOHnLadngSYM07R8cX2/72cc3iLGszLNcxaYXsUqxgl
6KnBk/2Jp3mx8y1rGKhGahBkIHh7P/b8klH+TlM1SBa6ksmJ7aVkuzfUSg3u
NLCKbMe++T5kwPuSGqjtOHGfATuwrM3TIkINNqq4Mw7H4v4489+RqCg14GJr
L+rHZl0b62qKVgPZaf9rPdihaFVd+5kaeOU7s9GwIz4KbJbLUYO2X06RDdix
FZef7fiuBjOxwzsKsDvO/TM2bFeD5UBOUi72/g0BzPc61YCq5+iThZ2oEe3E
MKgGK5v3bniNnfKpTHb6jxpEqJRZP8V+U832uXGPOux+0mESiv3h84uZ4FPq
kBO5P88RO4fz62Wfs+rQURj8xR77uf3SlKuNOrwY9h62xQ5hMPxt7qQOP2Le
i/6HbaL4d1zwujq0tvqNn8QeS6MMlseqQ0v2BQk97M4FD9v8RHXgzpgNoWA3
kZL6U5PV4WDw6VEydl7vbG94ujoITL3JJmHf4kr4aVWsDqk7zrkg7J3Bv9sW
qeqwV2XsiTQ2cxuX+a8udeiNeiQqhb0ooNna06sOEQcSPklg//wY/b1mVB0u
dyatimGn/VX79mhRHeoj78cIY6s6Rn2W5NKATuEOmwPY57UVSs9baMD3wCUu
duxJYa6q7NMaUJVg+YcV2411sX7RWgPIp9NaNmHfaCjsDD6vgb+nZqM3Eudl
LL+c5q0BBv9sSBuwC84eUxqL14BnzlMH/sVQkZLaHg2pZxrg0PBCcAn7I98C
xfuFBuxJaxVfxK4bLLBkzdCA4uVI8gJ2p5Oc9+EPGpBC6oqexWbwlC260KsB
WX2vX01gB57cVZ4zqAE32ZxbxrHZlf7ULo1qgKaVHj3hXat57SEzGiD/ysxm
FFvYX+Zv+gZNOMk0g4awDSOkj40LasJO7ZNmPdjxqZL5Thc04Q+/UPsP7Fqq
TW3SJRx/cg0Iz7E+7mhx0wS9ENPX37F1Ly7RK1/HFj3v34K9JFlpwB6qCVlh
H7S/YZ8sMRl581YTjn8s2tqA7T9x919PtiZ8yLwfVo+dxV20ZVeBJqiOpGwh
zOLLLetTpgnNUqEcX7ALNYdu6zdpwgLfmnAd9u7Ga/smpzTBZydzWBW2+lqa
ON8fTbCzzeMhfEmiU81sURP65z1zPmFXPwTHMnoSbOhT6KjEvmK+KT+MgwRe
VfoKFdjfe2INjsqQwNfeVPAD9oPZ0tuu10hA61R5XUTM1xzx3+nrJHBR5rYm
rJdto0a+RYLcC293EWZ22UTPG0gCjwHqnULsG2Mmvk2PScAheMzuHbZ97/hN
8QISQPwzcj625seyM3uLSTCa9nUj4YNJD1SZy0gwTXlSk0ec9+ljq11VJND6
O0AmfLz9js/9HyRQaDc9kYut3MR1Y2KOBBNWTreysbkyJk61/8X3/7uoTXg+
9IPSp2USrC3NbiWcTbH7F8eoBYvPA5KzsIWqs7x1d2pBqd3Thkzs7aXaXunS
WmAeUKSYgT2UfuWqo5sWFF5Kd3yNbca9+jP1qha0RropEa4Kv6s96q0FTfRv
txB+7vGE84KfFnC99yhIxz6nWlTsFKUFXp+k2Qj//La8eqlACxoWImpTsQ00
Axwyi7Wgcx9zMuHSgs1ff5dpQc+TruuE4+MOPHOt0YLQuEwJwpZ2oOHWrgV9
45WJr7B//PULvLKkBSN+jfdeEvV0Yp/KX9WC29HTFwjndUVZzDNoQ/JOBwrh
hxUvRK6xacNBTm1WwkahNV8892tDqHfd/RfY9Txs226oakPxtELKc+xPWg+j
79zRhquNHQwp2IP2JQ3ed7XhV8L9iWTivAMHGNxDtIGy7N5KmFwjd9HmoTb8
2NuZTrheu0NNM1kbgizYzAi3kAXGmSq0Qd0wPP8Z0T+O+ryrVdrwpsA4mfDO
4Kum83XaUDtECidsVlf7YegbXv/WnPOEaToXo2p6tSE3OJGXcB+lQCWYngxL
+q6Pn2JvcOp2u81EhlmZvgDCAvdYUr02kaEx8foVwvZfLDkubCdD0Xl+U8Jj
umtDlINkkO9T2k14Ro8cwa5GhtBQ+aQkbHpDWl+4LxmO6VTVJRL9X2bK7+FP
BtEXb0sJR4h/s7EIIkP/z+xswrxbagd4I8hgwbk5ljA05A9lJ5EhoZPFmbCv
7oOxljIyhHsM7yRMLmE/UlhBhkPjHqyEtx0JcoqvJsPtmb10hJ+y3pqwbSSD
Yk/meALxfKxznvzTRQamywuVhOnI5Jk9K2SYl2zyJFz7rlJqmU4HxGbrXQhH
HELuPYw6IPi3254w70a5uVR2Hdi3pGlKGKr55xX268DnTEZpwr6aa4unlHTA
z2/fTDwxv1oB/VMvHXjFleRD2FJz+HO7jw4U5xhfJZynzRm1/Y4OFC7udSHs
aOAt5BeiA8cHeqwJfzulqmsfpwNbXEkkwslXq6NES3XA7o7udsLLXgtWduU6
IJm1m42wmY/wocQqHbBpm2YkzOofUrS1UQeabdv+xmG7PzD4OfNTBzZtsOwl
rPmm9VARHQXSZVjzCSdmbpyeZqTAxcLSTMJ/c+SLD2+iACngZjrhN0WxevHb
KVAecOgp4V01Zy7f4qNA1cyOUMJDvUPFJE0KtG9QsScctGdBvzmQAsPyjPyE
o2pr+yvuUSBD6AIP4SSvWK/ccAoU3mjfR7igQ+VF1BMKzDA07iQ8mOS/bPaK
AkOvODcSVhfmeN1RTYF30vt/xRL9T+2H+s8UkJtZGSV8MiS/9X0jBdpGh4YI
u05YMCS2UmCfQWMP4aSspJPWQxTYeGn6O+FleTGWQSZd2C/kU0aYZWw14ccm
XdDZU19CeEfcV+nqzbrA4XiwiPDhFfezr3bpwu6Zn7nr+cqLC84L6oLSkedp
hAt0yHaTmrrwWk/38Xp+S5uKBT9dMN+b7k74Tf/ltduhulC3ZulCeNjZV5n9
kS5sXjzoRPjMrYQC3pe6sBY+dY6w3vO2dJ1aXaATDzAmHCQ2NNzyVRdCIzoM
CVcWzAmcoepCdbumHmHFuu1JbmO6IONnQCIsPKkbGceuB24HpOUJ216z/Cq4
Sw+mQ3fJrteD7vzmLG49WMzZKEV49467gZ/E9SAyjEuUMKP8x+u/jPRgVWSM
l3DvbRlb9EgPDAV5NxOea45lY3ypB0Uvy1jW6ydAn1tboAd3PIMYCYtXN9Cf
aNeDmIKo5RhstT0yabtH9SD+WvNfwiaOsUYdi3pgLyX1h7A3q0OS7T59eK9q
MEn4/qkGLRFRfVgeYBon/PSN9OQvZX0Y7aUOE64xoFO5dkYfdp/t7iW8MzKG
FvxMH+x+oTbC1clOYd8+6oNATmszYc8cFXWuHn0IdylpJHy4Yuu89Zo+MD4a
+ky461tvWuoBA8hpN6ohHNGbazWlYgAbH/6rJKw+HbBd3soA7JoGPxJ+ue2w
V02cAWQZOpQQFjt/yDmp2wBKn5sUEM4rFzh7jd8QXA/S5RBW3Mt3wtDBELYy
QQbhcjce0qHXhvBhcutrwmsTT86O7DSCN8b4dUT0I+/T/SomRjCoophCOMOg
IezEQyPY6jrxlHDpjSU6x684fsPhJMK/+31Xq3YcBw7/DwmED+puXOY3Pw5z
PenxhC/cj65cfXQc/psajVtfX5PIPer348BsbbpuXt2dP5c5T0AjpTuWcGj1
qgSv1QnI+hO47m3cc/of409AoJ/euiPdRy9Yd56AxEqedQd92qBSvtcYvLYs
xRC+sevAVr6TxnD3Qcu6HyY9cP4SbwxVjenrThNh+uzRYwyfOALW3R7mNx3L
YwI37OzXzTxHz1V+xgSGm/TXbfaQ+uVoign8t6y07lcS2TcTh00gw0523Y51
b4caDpvCyuj/x0XOpRusXDSFGw5G62ZozfZNe2MK/qRz6+7QKcoxHTcFIyaX
dbfOc7lSjpoB6bXXuptTvMWQuxnM1fute/DIUF5Wjhk8OR6+7r+5x5X5Zszg
nmzS//cr1+dpImEO7zTy171W6JZ/95I5/j/8vO4XHqd96HPM4Vhl+7p1JbRI
N/6YQ4Jnz7o31Si2uctYQLVr/7prrI6ed3K3gJ0cA+tW3GiUlV9kATs4/++M
LNeFtTUL2JQxuO7/ASQKPJU=
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwl1nc4lt8bAHBkZEtlJFtC9t7ntl/va5WZEVFGJKEyQ4pIGamvSlKpUIlC
IaLsrIYiCe8bLWVkZ/zO4/fXc32uc1/3Ofd9rnPOI+59ZM9BBjo6utf0dHTE
VyJ95XaeSIPhGYWa8KtXqtDTjbKih/1vIAueK2wMHVWoIaKkQMb/EbrMw3T0
2WoValY+6sfs/wI9ZJVR2XywGrWmvSXN+nWjROcT285o1KA23cSqcb8hZMpc
xBs9+hy1Zw4c/e43gVSKMgc0jOrR2ZzLbRdVJlEbN8Ux0rMeyfsjV7VHk4gu
tL1nNLYehbJkRocWTyEX6H2lU1OPVs3U6ybz/yLZPoUtnVoNSOBVlMnv8/OI
Bv/yrmm/RORaFpsxvzXUYlOqG+LSiFTWvGf5JteQDfXEi6cnG1GamGeXpD4d
9EfXzMnfaUTh3tXHHBrpYM/xrV9uTDci07GQxor39KD6O+HHzfQmRP09uD9i
dgMcUOWI/famGYmtPM1d0dwI5v4dtvePtaFOTk1WRg8eePQ1716AdDcyTjer
v2crAP1qEcMjhr0onlxe9DZYAGK07Iq5HHtRHZPkxZXzArC8MF+qEdiLdGPo
fO07BOAWfUnm0f96kVpADfsaSRBkDE8EXp3oRVImKs5OxtsgNJn188m8D4h5
fvsfRo3twMmv3cc/+xGZPj73UclhO9hN9DwRZ+tDpw4v1buGbQf5jD4lUdE+
tEr7eLG0bDtIBbe7zJD60HxPlo67ojDoBzlcY8jtQ9+LN555slMERCLGKWdR
PzqotMSpwikG02OVYeLRn5DVQPIdAREx0LlVJDSR/gmpJ281oFMSA9Idt5TC
gk+IcUg5qNtODH4eHef90vkJ3brg1344Wwy8NG8n2IkOoKHf75OKhcShqaXJ
TrtuAO198GhNUk4CEi8qZLr8+ozAxeA/dj0JuF4r9NRv5TOSYXyt+JciAaya
27M8uQfRgtuYx8vDEnC8bQKxqg2iy+zCz73KJIAjXtLPJHIQvTuUGnFdWxJK
5RNKyPRfkLXswSk+Cykw2Hh69PzaF7R07ljNoJMUhKb5+N7jHEKFf86cKfCV
ghGqrdcDoSHEWH5XUDVJCoJG+XsjtIZQteF3I+smKTjBMuq6PXgISTsEZiWa
7IDTOj5nsj8OIbq4o2qTSBrUAkpU2q2HUclIwkqlrTTklFeZ/2c/jNxMs1pi
PaWhTu95k+veYVTJ+sSNPU4abFZ6RJoODKOg7JlE6TppsMtFPDLRw6i/6MR7
d/2dYPyKHKx4dxg9fh97rE1bBva7ixRHzw6jwjMHvKmWMiBENrRJXRpGeZoU
23+uMhDn3MWYvjaMUnMEZBViZSBhX95AFOsI8nF/8jmjQQbO3aHPHNw+grZ8
/W7iQpYFncerVz4ZjSC2S93KR91kQaCn97id+QiiM68UTg2Shcpnqtq15BE0
fi9xvuaCLKhdXb0ebT+CmgJF7ou+kwVKsE/Q+QMj6Phfe95vbnLgzr2/n+fM
CAoq0F1bC5KDaJs6y39nR5C3o/i4wEk5kLGuPTaYNoJsnv5pIufLwfQ3D82U
7BG0MzolsuSrHJTJOb+Nuz2C+hheDB87vAsu851Rn30xgvR45R4xxskDUmBO
d/87grroXds607E/ZgF5bgR5TaXQLufLQ7ms1nmVxRF0uucHv+xLeXBK69zx
exXHXyiKt2ZSgOt3vS4LslGRF7vsnsvnFKBJ7FrSblEqml5yCfLMVYCZ6MM2
X8Sp6PTPs0kyDxXgd5ZIwEEpKipq+15d3aUAzDrhDd6yOD65UHJokyKYnTLa
IaSG4xllZnfmKELMOOPMOTMq4ptx5p4qVIQJNs3PLy2oqJCWLFtdpQj7JbfW
z1hSUefLbx5WA4rgo7pYYGmD4xPuNYeIKMHikNLCMyc834p0TlWBErRKH+Kr
9KUiv39Z1++4KMPz8meTgYlUlG0z/irSSxk0T5jsXjhNRfU3zX5a++NxqR/2
CUlUJEBa0Jw7oQyRM6OuKSlU1Jrt0WP+nzLk2pKVQtOpSFZRZsP3XmWg9AU3
P7hKRU4JCbLPB5XhhcyMH3MuFZ16/8k2Y1QZwutteT2uU9GnqPO52rPKcLGE
coU+n4pSW6Y1UraogN7X23wyd6jol1etv5y9CnQXAf1kCZ6/nC991VUFJizf
LWwvpSJTlpCKt94qwDKZ6WxRRkW5DyUYokNV4I5M1b7sJ1RktZR87XWmCggl
VInxPKOihxf3dAX1qAAt6t1AVj0VHWn+pvbIWhWkrriKfu/G9cKDQHknVXDa
Pfr0Sw8V8dSE3C7apwqqxx7Mv31DRaWPFnkLjqiCf9epU+Xv8H7lsE/nZKqC
XZC9u/tHKjoeqFR6qlcVWjq7Pph8oaLm0b/f1gZV4c2LF778Q1TE7/VMNHZM
FdKvGEx9x37mYJR+Yl4VZhv7WZJGqGjRwD44SFANOIz8qwq/UlEMzwl5Jw81
SP0Xtz37JxV1pOodeHdQDejoT4dY/qIiYSa6XLtgNfCe+se8gl23eJadEqcG
C/6qnJ6/qYiOdvUnuqkGJzeX/eGapKLEirpC2VE1eMokaik+i/vtyrxjJUgd
nJe4DOVWqchQmWPuR7g6ZEcrHLqLPcXE2/IhRh2OHHI4Lr5GRS5lwgGlaeoQ
JFqpvYWOhnZs1Hjo80AdQl/fuj9OT0P1FT4a7b9wvPOPiEAmGgo/F8D89K86
XLhyrucD9s79Rz7e/qcO6dP2SkbMNHSBIzoyll0Dnvgls21moSE3n6xa5V0a
8OFdR8j9jTQ0x9Ng9t8hDVDed7illJ2Gisea+U6HakD9sGgyJwcNeTzv+BYS
pQHbwquDA7Ab/fpSyKkacI/SVyvCSUOZdROdK0UasGJckx3HRUPyQSJOB35o
gMWX9GdCm2jIpyXaV8VfE/jami+3baWhA/rSNnNHNKHie0kwJx8N+Zb1aNSc
0ITyjTb37bD9r+1gMkvWhGrrF8692MFHum+73NUEdZae/I/8NBTFLzkS91UT
/HhruBoEaSgmrbPVdFwTBB8+bfuHHUsfUco6owktzrdXNLbRUPyvjriLG7Rg
edixtxA76cVxkXsSWiD+JcXvrBANZfm1u3V5aUHh+TMSysI0lP053OSivxb0
Cexd9sa+tFt0l0uIFiTpSey/hJ2jF740EqcFeT3nuhew87hFrszmaUH0UqRb
tQju39OjH7YPasGPPaWcsmI01MAiuDtwrzYEvWLJqZGgobHbiuT+/drwdejV
6FdsDjA1sTikDZzSDB2ckjTkEnFEQzJaG87w/ju4D3vie5PgQK42pN3879cS
tnB7KJU8rA0lCiZCEjtoyNj37MCz79rAH9jqZ4btz5D3XnpKG66Dubs/drlu
WzMDgw7cdzeBh9iU+6L3qyV1IHz2O6uaNA1FpnWEyfnpwOwFrt1KO3E9MtSg
nCM6IM5Li7TGbmycP8gcoQObe7icA7F5ViRcqGd14G9Bospd7HuHI/WvFusA
yfZsjIAMDfXaSDOx/dEB6FnjnMRW2RR/+Ue4Lpi+33j0iBwNVW/8KNMSowun
vu9fScQ2plOsKTitC48k2/fmYDtMDAx5ZuvC7R0Vp+uxj3dqyX54ogtJXnol
XLto6HnKRM3LaV24NnPqzi1sswRzm/wlXeC+auxTjt0VcX04lkEPShTd5puw
h/woTDq8enBxWrjgOzaD+T2bRyp6wJRwZZu8PA2RGDxHroXogQj9m5772G8W
K8IiI/SgfE+peA226xQHs3O8HnzlbLZpxw4crpbjzdAD1blGw+/YF+r4ws8+
0oMUBu+TEgo09D6qi/nYHz2gFhXUZWB7/TWQtwnSh8s2rQ5OijTEyUvX8z5c
HyKWbB57Y1crvwxzi9WHhDy/yWDsLcHmNf4X9EG1JIY7Gbv1uw05sVQf9JlP
jFRgK3/x9H82ow8Ghyr4uJRoaHBZnAOt6MO5FzX5AtipQl8fNTEZQHEKO48k
9lcX//m3fAYQ4FN+Qws7511I0m9tAzhZaJTqiU3XllAgEWsA582GXhRjP/xm
Qio6YwBtR7Y9f4Ltysw8rnTBAATLQm4+xy43SVUzuGEA7u17Zbqw/euyXjo3
GIBh5nmFSeyeJ7eH05gMoYwhmaSsTEM385q2z583BHeHJyK3sHPd5T86XjaE
956JyYXYOdsuZpbnYfM5DpdgX7jsxRz6yBC+ct33rsGOuvBvYrzHEFz1mkve
Ye85qfKKuhlBlAj3aXoVGrLWz4k12o7AbpBpjRmbtLSqlS+FIPeuWRAHtuHx
jgceGgh2pe8U4cfeFex3uc8JgYjmTtoubMZ91wO6riAofl3IbY+9JsQopXAL
wQ5uuhfO2Ev9h76cK0ZwU7zE2x170lHb3rIGmzEi+SD2Z+t3+o34t/f94m3L
E9if8hg3DnIDPNnr25KD/eSC7sDbPQC6f2w932N7X+NiqnYCGNNcy/iIzVtI
VbzpCjDeoVvzCTukIfXUEW+ArMAri8PY8jOfZDlCAaQMmkV/YxfsjY4wywTY
Gx8kxqhKQ/a+trfkLwGoDTygMmMzhEl2bL4CkPswMY8V2yvttSg1H0BaTWsD
N/b2F0ItJ0sBPISsTgliZ0s93/qsGyByKs1bAdtEJQPdeAcw0fOqUQl72uBA
QNJHgEnpAHFVbDtnjlqHIYBeFrV2TWyOVPcDU38ANjopDiDs0xPLj+W4jCD5
gCDzbuzwagO761ZG8HSq9M0R7ArXFoZ+OyOoczn84ij23JJdxRZHIygLMisM
w47UO7AtzcMIjK5EBZ7APvk89WtUsBHsn3OqOomdXPcxwiXDCE7ub45Nw27d
t39XdrYRHFvaLHkBm23t52B3jhH4Jxs0pmOnoVVji5tGYH7HcikLO6NeilPz
sRHws5I1r2BffXn05ub3RpCiyjFXgD3g/c/ets8IGJ+Hedwl+rXhDPO5z0Zw
qZ/ScA87zyQnkGHUCDYshp4sxr7dWKcxNWsEuiP53Y+wHzSzt3fxG8Nx9aze
KuwX7XemU9yMQbZy6s5r7McCPUdjPY0hW1Lvagd2ge/SZIiPMSilGad1Yqcy
2E44BxoD/5ObAd3YDroLv3ZEG8N/WwzZ3mH/LCKPNlw1BoF77d/6sT/Phx+o
yDOGGZmk6k/Y3WY3aIW3jCG0Zve5Aezykb8j6cXGMJksu3MQO07w+hePamNQ
nLMhDWNvSZn4uNhvDMdG2NTHsJk/Cjr/HjSGLI2KH4QXpUw/DI8YQ3VI2fVv
2F/qc963/DCG9k2ldD+wixaM3lxaNAZhTZ0nv7AN/bPbVQRNIDuQt2sSO8BC
pzbAxQQEnzP8XcT+IyPYVIbfIvGyPWeWsEPZFjsWvUxgaPcuvn/YMZ3PPqcE
mED85iS1ZWK/7LWXi6JMwJ3BxmMVu9JTS+9nrgk8bksOYVCjIT0jfhPVmyZg
J6jwm3C9xDw56o4JRNzP9t+A3TZa6cpWYgJ36SvdGLE/B2pGyb0wARWPTDVm
bIYIjapDIyZwn0vuASt28t6tDY9HTcB0yZKPDZtDb7Z16YcJ7H+zN47w1tXy
vtRpE/B74GDDji1zWn2heIMpOK8wD3Ng22aoaf3aYQqR7u/ec2PnFqpUBB4y
hY1/xjdvxW7t92m9EWwKTvbxnoRn2C4PvAs1hc+6jsWEKYeX6PWjsQNeG/Bh
L6m8suFIM4VibTF3fuy9NQ7fHzw0hX5RyQhB7NPjSf+Gy0xBUqbqGeFS4Squ
rZWmQGMvWSC8MV5YI7bOFK6MVR3fhv3MdCzButsUkoLjA4Ww+bpOCP2ZNIVX
s8vawtjGa0WKErOm0N25I4RwsPJnI6dFU8g4/eou4eYs8K+jNwM6bh9eEexj
zqwVF3jNwFx4L43w++GrNkrqZvDSyvGwGHbm39qEkBNmcGnTfjlJIt/bjP3u
0Wbwev+ULWGrMh8jUpwZFJFljxFmPsJKL5ZsBq2cF+sIx/x0iO++bAaRhw9Y
S2H7jvw6qVhpBlSVR247sE3r6/ZtqzYDzvv8MYTFb2QaMteZQYqrei7hz+5a
q4NNZjCUeH6A8O6+U7Hne81gdHOvkzS2frdgzPiMGXDsJsNObMGScbe+BTNg
ZbB0JzyX9kKvcdkMTjEwRxAuIx/8d43RHM4o1JYQlm4ujaJsMQfJTiVBGexN
tRaRxWrm4GRwm0p4rPjYcf9Qc7jbWkyRw3YSXv1SeNwc+CvNvQk3pSdZ/Igy
h21xRRGEC8L/EziUaA6zN5sKCHsbVlUHZptDk7DvEuEvb5ZXgyvNQej002u7
sG1Mz/g9qjaHLdPLJYRrKzl7JurMgVd900vCuddEboa0mIOeauE3wq4HwSS0
zxx42PKU5bF7FxKTjy2ZA2edQDVh00COyYpVc2hQS24nXD6Y7TLHYAGlxzo+
Ec56eUf2BLsFTIV9XiJsl9byOmK7BTw3FtJRwO4QZeeJMbQAKRafEsKN5lk5
p05ZQItA1klF7FHfms6oJAtgV6lKIcyc/JUhLNUCPtM3ZxMmtWge9smygP+m
M4sJd1gMGJnesoBa+6X3hN+RpH4xvbQALxftHUrE+fG3FlttsoD7Uh8UCW9J
Oe4412YB1zk8tAk7tbW+GHtjASoL0hTCnywPZ7eMWIBMTekRwlRypUEKPQkY
+1vKCW8IHApNYCLB2VGuWsJS5zYWRrKS4JqycRNh39euvIc2kWAHJbiX8E/K
2hhZnASjXNQZwtNWpAwOIxLUVPkoK2PT236ipseTwNdN+Brh1jpHyfDTJAhS
kL1JOEPxjY/LWRJk8Oy8R1iMq/WrWAYJPoQtPiYMnRVjZTdI8CTzXxvheErm
z3d1JKg2S5slTKrh2PXsJQmCU5uWCPPsOhuY20yChqTpNcL5bHHjB7rw+rhl
2FSI+7Et6M/sIAniLBhFCNORSNP8KyRg8csxIdz69JXqMp0lBCUJkghn7ERh
w4yWMLEhw4qwGIvmTCGHJcye8nAkDM2SczrbLUG4MNaXcLzp2qKbniWA4XTS
en6jSvr8SEtQClNuIOxq+q29L9YS7kh/aCRcbiGQvemUJUgnhrYS9reJkk5M
tYRP59O7Cb9xM6T4XrOEfxYeg4RvHW/Olq+1hB5D13nCy5HzHgcbLOHnvfAl
wk6xMjvzmixh95bkFcJsp1OruLss4ap19gZV7LBMmy/TXyzh5OoebsKmDz7s
rKIjw8PRqB2E8x6xTE0xkqFDUlyG8MJj7Wo5VjJ41dbLEX5QddUqdxMZJAzG
lQhvbdl3NE6CDPnMczqEx0bGqs1MycB/csSK8Fn+eeu3yWRIp8UGE85ubaW9
PEeG++PkEMI3Iq9GPkknw92GzaGEKwcM7mT/R4bU1ZxjhEdvnF52ukcG7gdh
MYSNZXjvDzTju2rsaArhvakVH5534fnOpaURDhl3Ycj7QIbZvpz09fylN/Z6
jZFhjZR8ifCytsLGUSYKzAY15BPefK1HrZmTAouUI7cJy62Eed7bSoGFJJ67
6/kbqisDdlDg4E+F++vrsyQd/GNKgYd7P5Wvz+fq83I+kQIfp+Wa1/tDO7qW
kEYBkfg9rYS/BcXrc1yiQMyGI+2E98VdrxS7S4ENz5K7CFsVfCy2bMUOMPiw
3i+FsW/veihQq8XbR/hV5YzUvn4K5F8c7Ces27bpRuhPCgTUuQwSlvlDuXiN
wwraQ8Zo6/XSBXCWCltBkvTyGGG+zUnJjYpWUKX99wdhRu366N92VsD4K3WC
8EiC+gF0yQrcfh9ZJDzz9io7410ruPsg/x/hjVL0T1orreDlq5oVworNnfR7
+qzgaUEFvRq2Eb96Ed8PK9BovLyBsIP/VbuBRSvoGfNlIhzF5nfjgJA13Bnu
20j4vFunuay8NZzhjGUjnP9A7c9vfWvg5t7MQbjFhs7gxD5riLDj4Sa85eKV
Tyk3rcGO1WsL4eZbgRfe1FvD1N1sPsIRjw2MBYetQZ90S4Cw3EvuOa81a0io
SNtGePDNSFGhiA0UX3TeTth46swmbQ8b2C1wXpTwXR65yJZrNrDLxUqCsELA
zqAbQzZw52GvFOHyBinPE5K2QJlYkyasu01ij62fLcSsDMkQbggVNdt53xZu
b8TPF/ba+H+e37fYgYITfk6I8ySWv93AwQ42jXgrEi6x6bywJ8sO/rWkKBGu
jVmi8+/B8auHlAlP0OJXmzbvhiUDMRXC4hSWZUnn3ZCSXrzuQ+dzXq1e2g1v
WdhV19fXLXuu//1uoLNzXLcYZcuXZYE9kOuase605lVlMY89IMf0fN08wjPW
9bl7ANX1r/ti2I9DXp/3gJrI5LrPNm4waNhmD80LDGqEY7aKcEvstQekxbfu
rBuZQa9z7eFGjty6i2SZ2sOH7SH/uMG6+y4kTl0VdQDTTqt1M8/QCzbscwAu
gb3rdsrqf6102wHe0Huv+55y2cm8bw6wy/rguv3bHo51yjnCBvb/j8t6F9us
HHYEkw7ndTN8KIsveuAIMGiz7gHLqseOvxzBNZa07g9zgiFkJSfwlDNZ99vb
UQoozAmSBQ3XPbprrLz0sRNoOmuve+HJbn2JaSfQO6j8/3o1qREOys4gvW/H
uteehVYkBTsDy4dt674T7h5L/9gZfPM2r5uibG4WM+sMj19xr5u1RfdjmLoL
5FlwrbvFQykgMMwF5uc4163LYldaUYX99/8uKQ2ZX1tzgWWZ//t/BRUBOg==

        "]]}},
     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}]],
     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.2}]}, 
      {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
       GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.2}], 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[0, 0, 1], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"S(t)\"\>", 
               NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
               Automatic, {1, 0}]}}, {}},
           AspectRatio->1.,
           FormatType->TraditionalForm,
           PlotRange->{{-0.1, 3.1}, {-0.1, 2.1}}], {0.2, 0}, {
          Left, Bottom}, {0.2, 0.2}]}]}}], {{0.30560615530564905`, 
    0.2751903750794795}}], InsetBox[
    StyleBox[Cell[TextData[Cell[BoxData[
      FormBox[
       RowBox[{
        SubscriptBox["R", "0"], "=", "2.5"}], TraditionalForm]],
      FormatType->"TraditionalForm"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     Background->GrayLevel[1.]], {0.5032095427343235, 0.25883805157491113`}, {
    Left, Top}, {0.21435886483114036`, 0.060831569749377666`}, {{1., 0.}, {0.,
     1.}},
    Alignment->{Left, Top}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImagePadding->{{0., 101.825936}, {0.769231, 69.049138}},
  ImageSize->Automatic,
  PlotRange->{{-1.0291666666666666`, 
   0.4291666666666667}, {-0.6460339887498948, 0.228}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.565391076470027*^9, 3.56539112443377*^9}, {
  3.5709975570262938`*^9, 3.570997626956294*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.565391027869247*^9, 3.5653910616741805`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"max", " ", "=", " ", "0.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"arrow", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Arrowheads", "[", "0.03", "]"}], ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "0.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"aa", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"r0", "<", "1"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox["1", "r0"]}], ")"}], "*", "1"}], ",", 
          RowBox[{"r0", ">", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"r0", ",", "0", ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", " ", "Magenta"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", "}"}], ",", 
        RowBox[{"{", "max", "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLinesStyle", "\[Rule]", " ", 
      RowBox[{"Directive", "[", 
       RowBox[{"Dashed", ",", " ", "Gray"}], "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Infected Fraction\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"I\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"t\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Basic Reproduction Ratio (\!\(\*SubscriptBox[\(R\), \(0\)]\))\>\
\"", ",", "\"\<\>\""}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"aa", ",", "arrow"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.565391658011289*^9, 3.5653917426531305`*^9}, {
   3.5653917753289995`*^9, 3.565391843905922*^9}, {3.5653918780218725`*^9, 
   3.565391885678311*^9}, {3.5653919259466143`*^9, 3.5653919749364157`*^9}, {
   3.565392025672318*^9, 3.5653920463294992`*^9}, {3.5653921032077527`*^9, 
   3.5653924430801926`*^9}, {3.565392531421245*^9, 3.5653925627430367`*^9}, {
   3.5653926087056656`*^9, 3.565392616982139*^9}, {3.5653940251006784`*^9, 
   3.565394048915041*^9}, {3.5653940837670345`*^9, 3.565394126771494*^9}, {
   3.5653941909411645`*^9, 3.565394199154634*^9}, {3.5653945183518915`*^9, 
   3.565394542434269*^9}, {3.565394669372529*^9, 3.5653947072756968`*^9}, {
   3.5653947387224956`*^9, 3.565394756420508*^9}, {3.565394861408513*^9, 
   3.5653949010297794`*^9}, {3.5653949534497776`*^9, 3.565395052290431*^9}, {
   3.565395146842839*^9, 3.5653951724373026`*^9}, {3.5653952231782045`*^9, 
   3.565395234066828*^9}, {3.5653952666476912`*^9, 3.565395329533288*^9}, 
   3.565395387191586*^9, {3.5653954208425107`*^9, 3.5653954323781705`*^9}, {
   3.565395473738536*^9, 3.56539548273005*^9}, {3.5653955227833414`*^9, 
   3.565395689706889*^9}, {3.565395722734778*^9, 3.565395729463163*^9}, {
   3.5653957781289463`*^9, 3.565395791148691*^9}, {3.565395861732728*^9, 
   3.565395881819877*^9}, {3.5653959617604494`*^9, 3.5653959953653717`*^9}, {
   3.5653962994877663`*^9, 3.5653963121754923`*^9}, {3.565397264369954*^9, 
   3.5653973223932734`*^9}, 3.567362467014311*^9}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {RGBColor[1, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQA2IQPbcuic0wpduOAQqOXFbwCVfItIfx/x/b16ygUAnn
zz3QK8+q0Ann59iW5n6XnwnnX/6dMeWD/Eo4n/32I/W38jvh/IWn5he+lj8J
569b33k7R+8WnJ9uf3Hmm6LHcH7eU83HW9a9hPMfxN3kOHgSwQ++0aF39gmC
b3H6eeVTqVdwPvPGpQJi7Qj+jBpFu/L413D+QWHJmZYCb+F8k94T+1y1Efxl
bBVPAt0Q/J6f1/SzahD8sPtTjs16geC/WiXw5feBd3B+jMoBSY47CP75ufn2
It8R/C0TznXp6L6H8+vLehRjZyL4n95bu2duQfBTMl/nlJ5H8K8/mjWp8RVu
PgB+EoAF
       "]], LineBox[CompressedData["
1:eJwV1Xtcy/sfB/CtG6eLo6IjalZf7FSjcpBLvD+5llIThSgaKkLlJ0d0O10U
6VgkKeqXQtFIFyrdrevWxZmydF33tu+htZZtuvz2++P1eD2ef73+fBnR/ZzP
KhEIhBBF/t+9gplvDosnIPyEcswZa39IfvGZyDVUOKDie1tqCKgbRVH6Nk8A
mno1M6BxBxqsE8xD9yi8xUz/2NIEuHk0zcrQeQKq4t9qqZITQYlRvO+47wSQ
E1CuCyUF5HO495cnE9C/vUQzYv4pCLtdsluVREA+/ehU1cXXwEmmmFRxRBDe
WEt8NFACtws3WJ7sFEEer3MTLboUbNtstswNi8D2PH/CiPIBWAtO2FnPi+Co
zXyogU8ZlF1lnCu2nIRrje25GX0VwDwsy8lLmoQTHscSrbnV8PditmnGKTEg
lw/xPk51UGJlWOR4SQyrXhR7tDyqgyEPP5i5IQYqKfEDe7AOtjF1Dx95KAaa
rlIU42o9jNmdCNFqEUPhtEPJsYcNsCvy39agbVPAW8BPSqtrAqnk10BnPQlk
BVXWYvwWwAzp8/OYBKgrqd9lK1vBcXfhLaalBHxm3s+GerTCs3tH0xYekMDE
VuNtyV9bwdk8o74iUgKXk6J+xnm3AdNn/XIzkQSki6Fu5PAnoHcdrlTmTMOY
byRzbAkX1FP5FwM6p2HvfFS6ozkX8t0uGfSNTAPNIfLxAzsuKH+NCSol/gDy
PTtGfQgXsnilfwRY/YD9Fq6W1UNcGGknZ/c+/QFZR1xObmZ+hvNtOKMkSApJ
whcBMSYdoMMIAkqMFCJMq0z8UAeUOql9S0yUQtmqxV3bj3SARutKe/83UsjP
LOIwojogt9lZlTIsBZ7fGZp2bwd8ayoOSqTJYGvduqG0O18goDaK7keRw7tF
kZY4jwekob1q03/IYWuf9v1MIQ/YSr+8DEZy8D+wZ5ndHA9Wo3jRrWNyWPc1
WOyBdUJn6YPwrDg5UB16XxVf6ASbvOdpnd/lsON+WfiWmU7QTm34uqv4J0w9
HmLo/NoFb/01Dy2zm4Wd0+aWbxb2ACdFN4jpOgvTai8d+pb1wAhrefrOM7NQ
tUEcQDDpgeX6JsILYbMQ/CmNqmfXA1HVeyKri2ZhB974OCG2B1x1wgrOG8/B
12+nPnaq9IK8QKRb/nMOHmeT+9aLeyHjhq/A4ggBLSFQmSdd+sGi6hdpjDsB
vbN66xtwvB+qVLJV+04TkK+r2bVQz37ojx8ix/sT0H6LEsbti/1A+q/7kfFb
BBRrFu3qG90PKSwnVkYZAfntCeEcKuyHe1ob0nSMiUiZpRUzuIgPEekzB6dw
InoTR9ImFPOBZlEcYCYmoojzZ+dEZXwgVf8ngS4jIrbH2vD+aj6UDgja2lSV
UHaat1MBmw+TqzudmCQltNkmJtSijw/03KIDXjQlpCMcX3lHdQBsSi7Z8QqU
kJZTbGSf0wAQuP2o7LoyKtdoz8joGoA1V7yuHTZVRTtDJ93TRgdhSPLQVaNc
DWUGHQxvLx+C/cPnQ+4FLERNL7s4QzeHwXGIYUYiqaNG/wVY+foREHykhzcw
NVByqOfBPVUjsE67w3DXSS2Uo0/PY9mOgjpIPLvFi9DvI7ae+aWjsO9ftx/G
LouRU+GNpAKTMeDVnCG6UbURTyc/XBA3BkWxLA+yRBuZMtwF0DcGXqqB/S0t
OujKOe+4SstxOH35RpFmii6i0c+tpl0bB3NvsxYHzyUoPE+PRSkeh1Ydqkbg
lqVo4yeNdJJ0HD68jkilKuuhZQmBvnRzAdwgmtI4PXqoaht/Su4lAPXu67aX
Cn9DpKC9S18+EsDwc6PE9OBliCqO9G6tFUDi7/oqJS76aJNo4knKpAAYKV71
nuTlyMXT2J6tLwS3RPcWzdHlKLdaslu2XQjS3c9k6RUrUNxokL2ILoTB4Z3X
amIMkL6zftKfkUJ4ut1yRbOnIWrX6KqsyRICMzpQ23stCclTcnQpNUKIcTlt
rywhIXO17gfhPULY2J2RE9O8Ei1kmE8+lwkh2SSV2WxPRm5jXrtTdXAIq4pP
ti8hIz2P8qyDVBwOrHB51rTKCNGi4DZtNw42l+qPa98yQq+Jzuk5x3BIN6Cv
4kiM0FiLpUaNHw6rPr5IcjxujL6sNkq5GokDY22N6T8Vxujnw1Cu9AEOXmKV
T42mGDLY+JK6IQcH+ttJ8q27GLpidbLZqxSHCxGHZvYnYGjE6L1qvsKBhwq/
aN7H0Kbn8RazCsdKAv9mJGGIrlbrfv8DDq+3yH4+fIKh8owavcoyHGTV8x3P
X2FoQEBWW1Kp2P9HM55Vj6E1706LCz7ikJJ50edmI4YIx/+KmFU480rLLls2
hnr+vKuyj4XDOz2GnN2CoSXEOH6nwt1uuj7cdgyxTp2an6vFgTKov2tgEEO+
TbHNextwsCi8TsoaxpBttEP8XYW3RnfJzo5iSLfBCvEUdqA8yRsXYEgWei/s
XCMOl33JJJEIQzUZ78/ENeEQbP2XLF+MIdNEvQquwtFaA5+vSDAUYlysbsDG
IflNZpxUiiG7m20huQo/DVfxLpVjKFTHMWtK4VcHz+4MnsHQb9krKqw5OBQa
1xnumMNQWLo1O0rhCvEameJwkMSpkM1R+H9oVuBT
       "]]}, {}}, {{}, {}, {}}}, 
   {Arrowheads[0.03], ArrowBox[{{2, 0.1}, {1, 0}}]}, InsetBox[
    StyleBox[Cell["bifurcation",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     FontSize->12,
     FontSlant->"Italic",
     Magnification->2.1999993324279785`,
     Background->GrayLevel[
      1.]], {2.1184033665191357`, 0.17903583690321923`}, {
    Left, Top}, {1.7689024082820233`, 0.08032469230442915}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}], GeometricTransformationBox[InsetBox[
     StyleBox[Cell["stable EE",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left],
      FontWeight->"Bold",
      FontSlant->"Italic",
      Magnification->2.1999993324279785`,
      Background->GrayLevel[1.]], {2.8031397885282106`, 0.7994748433713119}, {
     Left, Top}, {1.3980035109314377`, 0.06924542440036996}, {{1., 0.}, {0., 
     1.}},
     Alignment->{Left, Top}], {{{{0.8949924898719387, -2.2974445629479736`}, {
      0.08661294652415684, 0.8949924898719387}}, {
      1.639934907627604, -0.26733265197578926`}}}], InsetBox[
    StyleBox[Cell[TextData[StyleBox["unstable DFE",
      FontWeight->"Bold"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     FontWeight->Plain,
     FontSlant->"Italic",
     Magnification->2.1999993324279785`,
     Background->GrayLevel[1.]], {7.7532134445813625`, 0.08486206355949388}, {
    Left, Top}, {2.025678556655757, Automatic},
    Alignment->{Left, Top}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->{True, True, True, True},
  FrameLabel->{{
     FormBox[
     "\"Infected \
Fraction\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\
\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"I\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
     "\"Basic Reproduction Ratio (\\!\\(\\*SubscriptBox[\\(R\\), \\(0\\)]\\))\
\"", TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  GridLines->{{}, {0.}},
  GridLinesStyle->Directive[
    Dashing[{Small, Small}], 
    GrayLevel[0.5]],
  ImagePadding->{{30.888899, 17.55556}, {30.00001, 17.111116}},
  Method->{},
  PlotRange->{{0., 10.}, {-0.1, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.567363516299953*^9, 3.567363610664519*^9}}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {RGBColor[1, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQA2IQPbcuic0wpduOAQqOXFbwCVfItIfx/x/b16ygUAnn
zz3QK8+q0Ann59iW5n6XnwnnX/6dMeWD/Eo4n/32I/W38jvh/IWn5he+lj8J
569b33k7R+8WnJ9uf3Hmm6LHcH7eU83HW9a9hPMfxN3kOHgSwQ++0aF39gmC
b3H6eeVTqVdwPvPGpQJi7Qj+jBpFu/L413D+QWHJmZYCb+F8k94T+1y1Efxl
bBVPAt0Q/J6f1/SzahD8sPtTjs16geC/WiXw5feBd3B+jMoBSY47CP75ufn2
It8R/C0TznXp6L6H8+vLehRjZyL4n95bu2duQfBTMl/nlJ5H8K8/mjWp8RVu
PgB+EoAF
       "]], LineBox[CompressedData["
1:eJwV1Xtcy/sfB/CtG6eLo6IjalZf7FSjcpBLvD+5llIThSgaKkLlJ0d0O10U
6VgkKeqXQtFIFyrdrevWxZmydF33tu+htZZtuvz2++P1eD2ef73+fBnR/ZzP
KhEIhBBF/t+9gplvDosnIPyEcswZa39IfvGZyDVUOKDie1tqCKgbRVH6Nk8A
mno1M6BxBxqsE8xD9yi8xUz/2NIEuHk0zcrQeQKq4t9qqZITQYlRvO+47wSQ
E1CuCyUF5HO495cnE9C/vUQzYv4pCLtdsluVREA+/ehU1cXXwEmmmFRxRBDe
WEt8NFACtws3WJ7sFEEer3MTLboUbNtstswNi8D2PH/CiPIBWAtO2FnPi+Co
zXyogU8ZlF1lnCu2nIRrje25GX0VwDwsy8lLmoQTHscSrbnV8PditmnGKTEg
lw/xPk51UGJlWOR4SQyrXhR7tDyqgyEPP5i5IQYqKfEDe7AOtjF1Dx95KAaa
rlIU42o9jNmdCNFqEUPhtEPJsYcNsCvy39agbVPAW8BPSqtrAqnk10BnPQlk
BVXWYvwWwAzp8/OYBKgrqd9lK1vBcXfhLaalBHxm3s+GerTCs3tH0xYekMDE
VuNtyV9bwdk8o74iUgKXk6J+xnm3AdNn/XIzkQSki6Fu5PAnoHcdrlTmTMOY
byRzbAkX1FP5FwM6p2HvfFS6ozkX8t0uGfSNTAPNIfLxAzsuKH+NCSol/gDy
PTtGfQgXsnilfwRY/YD9Fq6W1UNcGGknZ/c+/QFZR1xObmZ+hvNtOKMkSApJ
whcBMSYdoMMIAkqMFCJMq0z8UAeUOql9S0yUQtmqxV3bj3SARutKe/83UsjP
LOIwojogt9lZlTIsBZ7fGZp2bwd8ayoOSqTJYGvduqG0O18goDaK7keRw7tF
kZY4jwekob1q03/IYWuf9v1MIQ/YSr+8DEZy8D+wZ5ndHA9Wo3jRrWNyWPc1
WOyBdUJn6YPwrDg5UB16XxVf6ASbvOdpnd/lsON+WfiWmU7QTm34uqv4J0w9
HmLo/NoFb/01Dy2zm4Wd0+aWbxb2ACdFN4jpOgvTai8d+pb1wAhrefrOM7NQ
tUEcQDDpgeX6JsILYbMQ/CmNqmfXA1HVeyKri2ZhB974OCG2B1x1wgrOG8/B
12+nPnaq9IK8QKRb/nMOHmeT+9aLeyHjhq/A4ggBLSFQmSdd+sGi6hdpjDsB
vbN66xtwvB+qVLJV+04TkK+r2bVQz37ojx8ix/sT0H6LEsbti/1A+q/7kfFb
BBRrFu3qG90PKSwnVkYZAfntCeEcKuyHe1ob0nSMiUiZpRUzuIgPEekzB6dw
InoTR9ImFPOBZlEcYCYmoojzZ+dEZXwgVf8ngS4jIrbH2vD+aj6UDgja2lSV
UHaat1MBmw+TqzudmCQltNkmJtSijw/03KIDXjQlpCMcX3lHdQBsSi7Z8QqU
kJZTbGSf0wAQuP2o7LoyKtdoz8joGoA1V7yuHTZVRTtDJ93TRgdhSPLQVaNc
DWUGHQxvLx+C/cPnQ+4FLERNL7s4QzeHwXGIYUYiqaNG/wVY+foREHykhzcw
NVByqOfBPVUjsE67w3DXSS2Uo0/PY9mOgjpIPLvFi9DvI7ae+aWjsO9ftx/G
LouRU+GNpAKTMeDVnCG6UbURTyc/XBA3BkWxLA+yRBuZMtwF0DcGXqqB/S0t
OujKOe+4SstxOH35RpFmii6i0c+tpl0bB3NvsxYHzyUoPE+PRSkeh1Ydqkbg
lqVo4yeNdJJ0HD68jkilKuuhZQmBvnRzAdwgmtI4PXqoaht/Su4lAPXu67aX
Cn9DpKC9S18+EsDwc6PE9OBliCqO9G6tFUDi7/oqJS76aJNo4knKpAAYKV71
nuTlyMXT2J6tLwS3RPcWzdHlKLdaslu2XQjS3c9k6RUrUNxokL2ILoTB4Z3X
amIMkL6zftKfkUJ4ut1yRbOnIWrX6KqsyRICMzpQ23stCclTcnQpNUKIcTlt
rywhIXO17gfhPULY2J2RE9O8Ei1kmE8+lwkh2SSV2WxPRm5jXrtTdXAIq4pP
ti8hIz2P8qyDVBwOrHB51rTKCNGi4DZtNw42l+qPa98yQq+Jzuk5x3BIN6Cv
4kiM0FiLpUaNHw6rPr5IcjxujL6sNkq5GokDY22N6T8Vxujnw1Cu9AEOXmKV
T42mGDLY+JK6IQcH+ttJ8q27GLpidbLZqxSHCxGHZvYnYGjE6L1qvsKBhwq/
aN7H0Kbn8RazCsdKAv9mJGGIrlbrfv8DDq+3yH4+fIKh8owavcoyHGTV8x3P
X2FoQEBWW1Kp2P9HM55Vj6E1706LCz7ikJJ50edmI4YIx/+KmFU480rLLls2
hnr+vKuyj4XDOz2GnN2CoSXEOH6nwt1uuj7cdgyxTp2an6vFgTKov2tgEEO+
TbHNextwsCi8TsoaxpBttEP8XYW3RnfJzo5iSLfBCvEUdqA8yRsXYEgWei/s
XCMOl33JJJEIQzUZ78/ENeEQbP2XLF+MIdNEvQquwtFaA5+vSDAUYlysbsDG
IflNZpxUiiG7m20huQo/DVfxLpVjKFTHMWtK4VcHz+4MnsHQb9krKqw5OBQa
1xnumMNQWLo1O0rhCvEameJwkMSpkM1R+H9oVuBT
       "]]}, {}}, {{}, {}, {}}}, 
   {Arrowheads[0.03], ArrowBox[{{2, 0.1}, {1, 0}}]}, InsetBox[
    StyleBox[Cell["bifurcation",
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     FontSize->12,
     FontSlant->"Italic",
     Magnification->2.1999993324279785`,
     Background->GrayLevel[
      1.]], {2.1175056362560705`, 0.18946566084747674`}, {
    Left, Top}, {1.8802654240925583`, 0.14439571658234612`}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}], InsetBox[
    StyleBox[Cell[TextData[StyleBox["unstable DFE",
      FontWeight->"Bold"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     FontWeight->Plain,
     FontSlant->"Italic",
     Magnification->2.1999993324279785`,
     Background->GrayLevel[1.]], {7.802222330365723, 0.08699459958665301}, {
    Left, Top}, {2.1094612008266282`, 0.07512337833562084}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}], GeometricTransformationBox[InsetBox[
     StyleBox[Cell["stable EE",
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left],
      FontWeight->"Bold",
      FontSlant->"Italic",
      Magnification->2.1999993324279785`,
      Background->GrayLevel[1.]], {2.6020078333338654`, 0.8383008493433044}, {
     Left, Top}, {2.8936778441965387`, Automatic},
     Alignment->{Left, Top}], {{{{0.3319980591985481, -8.321336981386253}, {
      0.028531061983530785`, 3.65046752963325}}, {
      9.043461371295441, -2.377178304388358}}}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->{True, True, True, True},
  FrameLabel->{{
     FormBox[
     "\"\\!\\(\\*\\nStyleBox[\\\"Infected\\\",\\nFontSlant->\\\"Italic\\\"]\\)\
\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"Fraction\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"I\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
     "\"Basic Reproduction Ratio (\\!\\(\\*SubscriptBox[\\(R\\), \\(0\\)]\\))\
\"", TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  GridLines->{{}, {0.}},
  GridLinesStyle->Directive[
    Dashing[{Small, Small}], 
    GrayLevel[0.5]],
  ImagePadding->{{31.384619, 18.307694}, {34.461542, 17.538463}},
  Method->{},
  PlotRange->{{0., 10.}, {-0.1, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.5673624905859523`*^9, 3.5673625190404024`*^9}, {
  3.567362599099743*^9, 3.5673626011121464`*^9}, {3.5673626694402666`*^9, 
  3.567362756223219*^9}, {3.5673631092362385`*^9, 3.56736310990704*^9}, {
  3.567363169483545*^9, 3.567363201994002*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"min", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"max", " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", "1.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"arrow", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Arrowheads", "[", "0.03", "]"}], ",", 
      RowBox[{"Arrow", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.9", ",", "0.2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.9999", ",", "0.01"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"aa1", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Piecewise", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"r0", "<", "1"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              FractionBox["1", "r0"]}], ")"}], "*", "1"}], ",", 
           RowBox[{"r0", ">", "1"}]}], "}"}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"r0", ",", "0", ",", "2"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.0", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Thick", ",", " ", "Magenta"}], "}"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "}"}], ",", 
         RowBox[{"{", "min", "}"}]}], "}"}]}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", " ", 
       RowBox[{"Directive", "[", 
        RowBox[{"Dashed", ",", " ", "Gray"}], "]"}]}], ",", 
      RowBox[{"Frame", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<Infected Fraction\!\(\*
StyleBox[\",\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\" \",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"I\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"(\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"t\",
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\")\",
FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Basic Reproduction Ratio (\!\(\*SubscriptBox[\(R\), \
\(0\)]\))\>\"", ",", "\"\<\>\""}], "}"}]}], "}"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"aa1", ",", "arrow"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5668625522657037`*^9, 3.566862554461829*^9}, {
   3.566862722071416*^9, 3.566862872048994*^9}, {3.566862937597743*^9, 
   3.566862957745896*^9}, {3.5668629960820885`*^9, 3.5668630829040546`*^9}, {
   3.5668631757273636`*^9, 3.566863205459064*^9}, 3.566863236140819*^9, {
   3.5668632817464275`*^9, 3.5668633232878036`*^9}, {3.5668633830112195`*^9, 
   3.5668634485079656`*^9}, {3.56686351816895*^9, 3.566863522343189*^9}, {
   3.566863556692154*^9, 3.5668635870398893`*^9}, {3.566863742289769*^9, 
   3.566863805174366*^9}, {3.5668638410284166`*^9, 3.566863847123765*^9}, 
   3.5668638848569236`*^9, {3.566863995211235*^9, 3.566864000828557*^9}, {
   3.566864031059286*^9, 3.5668640312312956`*^9}, {3.5668640942208986`*^9, 
   3.566864096804046*^9}, {3.5668647506154423`*^9, 3.566864782011238*^9}, 
   3.566865767981632*^9, 3.5673630130932703`*^9, {3.5673630446521254`*^9, 
   3.5673630648853607`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {RGBColor[1, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQ7ZX64uKBl6l2DFDA4ixVcF/SxR7GN54/Y85myRA4
3/vs9U1zJVPg/PCU73snSZbA+Xf12517JVvg/AWi/m1dklPg/EaOzeqdkkvg
/IjIhes/fNwC53P/b4xxl9sP56sGvntxuPsInF9+ztJ+xpeTcL74FsF7jIzn
4fxtj5zPnLe5BOcfyporHfnmCpz/Vc2Wf23udTif6edqAWnVW3C+2f+EbcHr
7sD5Z1pMzh3Tug/ny094/XPluwdw/uvv9+9dNXgE5y95tfsUX99jOJ9Pdvn7
J0+ewPk9mVvTFqg8g/O/Oax+klH/HM4vMTqyRezwCzj//roj3RcVX8H5v7Ou
zNaseg3nazuy/0vb/QbOd1+kmL5R/B0ivGTjlR7GvIfzkwIMwu4kIvh+zYxd
19MQfLWXiz+eLUDwr2x5cWBXC4Jv4FMUP2UNgv+iqnWO+x/cfABFcp7Q
       "]], LineBox[CompressedData["
1:eJwdz3kwnHcYB3DX1q3OTJKJ6EpME1lHDepo8p3RVJ1Rd6YttlKpopSoqbTF
GptiYsnYCJZ060plxVHR7sQGTUzSmKSEiMXan7iKyliy64r19m3/eOY7n3me
med5mPFpYQlaGhoa3nT9l2yFhZaNtgIarHKRyys/PC/aFdQwaEfkepUnRSHw
yLzbQT3aNpGO3iw2+iRPBq8Z0NYO2VfHTIB71G9fWhnTls8Z5Volwbbox1pT
cwXyrpzWDNlNx1DE4xS1Hd0XT9S+MZwP1kqk4ViwAuxQR97E/nKII4J6iz9S
QJgbwvLrLcf7d30unApX4K3jrp05CXx8zHOabDxLO5K36NtxFUXO+qLMcwpM
r3OWfX0rsZApCTDPpvub96SHztdCqLYtDm5QQFGyVLXSUw+LNxV6/Tv0vs86
Oq8U3YJOr6DtSM0aPFpiB9hf/I5k1+5x/cB1vCeqZAoM+yDyjxf2bKyjMIvT
7K/ZD9U/B00XKl5BSJ3Z55r5EF3hH2rzTyuRKB2OslQOINeP+9PtBSVk1W3y
F9p/gTkVIK3nqiAtq+qQJA/B690C/gGXDVw2vL+eMvUUnx4e3NYc2YCpm1om
sh2BaqBk5mvOJhKzeDmCtGeo1InNDDu6hWljYf+lq6OwkHfVafVvYeVk5QTj
xnMwfuBEeKZvI1E4+Q23bwwazbFtM+Y7qLZgtJjekSKjuq3E/N4OlC0Jac7d
47h7olDPLPU1PE58d95ONAGzgAxWvskuZkxdPYV5k5A5DI1kS3ZxzGo9jR8j
Q/t1HJ2LVePixUBGne0UYtrczaz31JheXfMRT04hj/szR3ZzD/YWTT36NXLc
WrQWmARRqLAXM3T8CApruWz5GQom4W97KgMIPg97adcaSsE+p3B+NpjgkETS
HhxNYQG/Nv8RTlBc+smDy/EUUkOrZ7PiCBLdq9YMsinMsfxP/plFYFtg6afb
RKHYep6j20iw5/G98dgvFIx4xgf+vkEw/nJ2uElEoam12uHBTYKy6M4Y3w4K
jw1SB/PbCSj7sAtcCYXWh/e3Vd0Esqel17VHKLgsRuv2DxOIL22eGxmlIHVV
FwhGCfjeccfrpRR6hhzyM6QEgY2Ot33ktFXi14flBHe+ffKIs0T/G8paTV8i
qHBwKw1dodDw6EXKBysE6TM1EcxV+v6z7yTvXyU4FpRC+pQU5KfsliVKAh3N
Zw1lmxSWxUbJvE2C6S7vJPYOPV9m+VXcDoEkqd7JWU1hyytW4aQmuGZjqKIo
Cvz/k+Bfna/liQ==
       "]]}, {}}, {{}, {}, {}}}, 
   {Arrowheads[0.03], ArrowBox[{{0.9, 0.2}, {0.9999, 0.01}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->{True, True, True, True},
  FrameLabel->{{
     FormBox[
     "\"Infected \
Fraction\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\
\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"I\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
     "\"Basic Reproduction Ratio (\\!\\(\\*SubscriptBox[\\(R\\), \\(0\\)]\\))\
\"", TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  GridLines->{{}, {0}},
  GridLinesStyle->Directive[
    Dashing[{Small, Small}], 
    GrayLevel[0.5]],
  Method->{},
  PlotRange->{{0., 2}, {-0.1, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5673630227808867`*^9, {3.5673630576781483`*^9, 3.5673630654469624`*^9}}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.5673629961984406`*^9}],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.05"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.02"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"\[Beta]", "/", "\[Gamma]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e1", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"e2", "=", 
    RowBox[{"{", 
     RowBox[{
      FractionBox["1", "r0"], ",", " ", 
      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]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "1"]}], "+", 
      RowBox[{"\[Gamma]", " ", "i"}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Beta]", " ", "s", " ", 
       FractionBox["i", "1"]}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e1", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     RowBox[{"e1", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{"e1", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "-", "0.02"}], ",", 
     RowBox[{
      RowBox[{"e1", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "+", "\[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.5659862997684703`*^9, 3.565986346904166*^9}, {
   3.565986387213472*^9, 3.5659864763165684`*^9}, {3.565986530978695*^9, 
   3.565986644117166*^9}, {3.5659866843334665`*^9, 3.56598668789367*^9}, {
   3.565986722767665*^9, 3.5659869171817846`*^9}, {3.5659872619605045`*^9, 
   3.565987319312785*^9}, {3.5672764904739404`*^9, 3.5672765330273743`*^9}, {
   3.567276573568693*^9, 3.567276595146927*^9}, {3.5672766426166425`*^9, 
   3.567276685324085*^9}, {3.5672775027258377`*^9, 3.5672775109303074`*^9}, 
   3.5672775819093666`*^9, {3.5672776291060667`*^9, 3.567277635867453*^9}, {
   3.5684955131685505`*^9, 3.568495520999999*^9}, {3.568495584819649*^9, 
   3.568495591746045*^9}, {3.5684956317713346`*^9, 3.568495701725336*^9}, {
   3.56849574848401*^9, 3.5684957526142464`*^9}, 3.568495788888321*^9, {
   3.5684965848308463`*^9, 3.5684965853398757`*^9}, {3.568496634169668*^9, 
   3.568496659966144*^9}, {3.5684967770948434`*^9, 3.5684967935697856`*^9}, {
   3.568497572240323*^9, 3.568497575055484*^9}}],

Cell[BoxData["2.5`"], "Output",
 CellChangeTimes->{
  3.5672765986811295`*^9, {3.5672766431706743`*^9, 3.567276685779111*^9}, {
   3.567277505318986*^9, 3.5672775127344103`*^9}, 3.5672775825274024`*^9, 
   3.5672776366004953`*^9, {3.568495662276079*^9, 3.5684957021113577`*^9}, 
   3.5684957548813763`*^9, 3.5684957895253572`*^9, 3.568496587261986*^9, 
   3.568496660736188*^9, {3.568496779001952*^9, 3.568496794018811*^9}, 
   3.568497575440506*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{
      0.03607319656204703, -0.056073196562047026`}, {-0.03607319656204703, 
      0.016073196562047025`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{-0.03607319656204702, 0.08893033941918987}, {
      0.03607319656204702, 0.01678394629509583}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{-0.03607319656204703, 0.16178748227633274`}, {
      0.03607319656204703, 0.0896410891522387}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{-0.03607319656204703, 0.2346446251334756}, {
      0.03607319656204703, 0.16249823200938154`}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{-0.03607319656204703, 0.30750176799061846`}, {
      0.03607319656204703, 0.23535537486652439`}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{-0.03607319656204703, 0.3803589108477613}, {
      0.03607319656204703, 0.30821251772366726`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{-0.03607319656204702, 0.45321605370490414`}, {
      0.03607319656204702, 0.38106966058081004`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{-0.03607319656204702, 0.526073196562047}, {
      0.03607319656204702, 0.4539268034379529}}]}, 
    {Arrowheads[{{0.04629201105784239, 1.}}], 
     ArrowBox[{{-0.03607319656204703, 0.5989303394191898}, {
      0.03607319656204703, 0.5267839462950958}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{-0.03607319656204703, 0.6717874822763327}, {
      0.03607319656204703, 0.5996410891522386}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{-0.03607319656204702, 0.7446446251334755}, {
      0.03607319656204702, 0.6724982320093814}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{-0.03607319656204703, 0.8175017679906184}, {
      0.03607319656204703, 0.7453553748665243}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{-0.03607319656204702, 0.8903589108477612}, {
      0.03607319656204702, 0.8182125177236671}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{-0.03607319656204702, 0.963216053704904}, {
      0.03607319656204702, 0.89106966058081}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{-0.03607319656204703, 1.0360731965620469`}, {
      0.03607319656204703, 0.9639268034379528}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.10750176799061845`, -0.056073196562047026`}, {
      0.035355374866524396`, 0.016073196562047025`}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.08893033941918987}, {
      0.10750176799061847`, 0.016783946295095824`}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.16178748227633274`}, {
      0.10750176799061847`, 0.0896410891522387}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.2346446251334756}, {
      0.10750176799061847`, 0.16249823200938154`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.30750176799061846`}, {
      0.10750176799061847`, 0.23535537486652439`}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.3803589108477613}, {
      0.10750176799061847`, 0.30821251772366726`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.0353553748665244, 0.45321605370490414`}, {
      0.10750176799061845`, 0.38106966058081004`}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.526073196562047}, {
      0.10750176799061847`, 0.45392680343795294`}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.5989303394191898}, {
      0.10750176799061847`, 0.5267839462950958}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.0353553748665244, 0.6717874822763327}, {
      0.10750176799061845`, 0.5996410891522387}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.0353553748665244, 0.7446446251334755}, {
      0.10750176799061845`, 0.6724982320093814}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.0353553748665244, 0.8175017679906184}, {
      0.10750176799061845`, 0.7453553748665244}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.8903589108477612}, {
      0.10750176799061847`, 0.8182125177236671}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 0.963216053704904}, {
      0.10750176799061847`, 0.8910696605808099}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.035355374866524396`, 1.0360731965620469`}, {
      0.10750176799061847`, 0.9639268034379528}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.17893033941918987`, -0.056073196562047026`}, {
      0.10678394629509583`, 0.016073196562047018`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.08893033941918987}, {
      0.17893033941918987`, 0.01678394629509583}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.16178748227633274`}, {
      0.17893033941918987`, 0.0896410891522387}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.2346446251334756}, {
      0.17893033941918987`, 0.16249823200938154`}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.30750176799061846`}, {
      0.17893033941918987`, 0.23535537486652439`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.3803589108477613}, {
      0.17893033941918987`, 0.30821251772366726`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.45321605370490414`}, {
      0.17893033941918987`, 0.3810696605808101}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.526073196562047}, {
      0.17893033941918987`, 0.45392680343795294`}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.5989303394191898}, {
      0.17893033941918987`, 0.5267839462950958}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.6717874822763327}, {
      0.17893033941918987`, 0.5996410891522386}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.7446446251334755}, {
      0.17893033941918987`, 0.6724982320093814}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.8175017679906184}, {
      0.17893033941918987`, 0.7453553748665243}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.8903589108477612}, {
      0.17893033941918987`, 0.8182125177236671}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 0.963216053704904}, {
      0.17893033941918987`, 0.8910696605808099}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.10678394629509583`, 1.0360731965620469`}, {
      0.17893033941918987`, 0.9639268034379528}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.2503589108477613, -0.056073196562047026`}, {
      0.17821251772366722`, 0.016073196562047025`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.08893033941918987}, {
      0.2503589108477613, 0.016783946295095824`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.16178748227633274`}, {
      0.2503589108477613, 0.0896410891522387}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.2346446251334756}, {
      0.2503589108477613, 0.16249823200938154`}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.30750176799061846`}, {
      0.2503589108477613, 0.23535537486652439`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.3803589108477613}, {
      0.2503589108477613, 0.30821251772366726`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.45321605370490414`}, {
      0.2503589108477613, 0.38106966058081004`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.526073196562047}, {0.2503589108477613,
       0.45392680343795294`}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.5989303394191898}, {
      0.2503589108477613, 0.5267839462950958}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.6717874822763327}, {
      0.2503589108477613, 0.5996410891522387}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.7446446251334755}, {
      0.2503589108477613, 0.6724982320093814}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.8175017679906184}, {
      0.2503589108477613, 0.7453553748665244}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.8903589108477612}, {
      0.2503589108477613, 0.8182125177236671}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 0.963216053704904}, {0.2503589108477613,
       0.8910696605808099}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.17821251772366725`, 1.0360731965620469`}, {
      0.2503589108477613, 0.9639268034379528}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], 
     ArrowBox[{{0.32178748227633275`, -0.056073196562047026`}, {
      0.24964108915223868`, 0.016073196562047025`}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.08893033941918987}, {
      0.3217874822763327, 0.01678394629509583}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.16178748227633274`}, {
      0.3217874822763327, 0.0896410891522387}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.2346446251334756}, {
      0.3217874822763327, 0.16249823200938154`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.30750176799061846`}, {
      0.3217874822763327, 0.23535537486652439`}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.3803589108477613}, {
      0.3217874822763327, 0.30821251772366726`}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.45321605370490414`}, {
      0.3217874822763327, 0.3810696605808101}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.526073196562047}, {0.3217874822763327,
       0.45392680343795294`}}]}, 
    {Arrowheads[{{0.04629201105784238, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.5989303394191898}, {
      0.3217874822763327, 0.5267839462950958}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.6717874822763327}, {
      0.3217874822763327, 0.5996410891522386}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.7446446251334755}, {
      0.3217874822763327, 0.6724982320093814}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.8175017679906184}, {
      0.3217874822763327, 0.7453553748665243}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.8903589108477612}, {
      0.3217874822763327, 0.8182125177236671}}]}, 
    {Arrowheads[{{0.04629201105784238, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 0.963216053704904}, {0.3217874822763327,
       0.89106966058081}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{0.24964108915223868`, 1.0360731965620469`}, {
      0.3217874822763327, 0.9639268034379528}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.3932160537049041, -0.056073196562047026`}, {
      0.3210696605808101, 0.016073196562047018`}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.3210696605808101, 0.08893033941918987}, {0.3932160537049041,
       0.01678394629509583}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.32106966058081005`, 0.16178748227633274`}, {
      0.3932160537049041, 0.0896410891522387}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.3210696605808101, 0.2346446251334756}, {0.3932160537049041, 
      0.16249823200938154`}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.32106966058081005`, 0.30750176799061846`}, {
      0.3932160537049041, 0.23535537486652439`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.3210696605808101, 0.3803589108477613}, {0.3932160537049041, 
      0.3082125177236672}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.32106966058081005`, 0.45321605370490414`}, {
      0.3932160537049041, 0.3810696605808101}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.32106966058081005`, 0.526073196562047}, {0.3932160537049041,
       0.45392680343795294`}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.3210696605808101, 0.5989303394191898}, {0.3932160537049041, 
      0.5267839462950958}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.3210696605808101, 0.6717874822763327}, {0.3932160537049041, 
      0.5996410891522387}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.32106966058081005`, 0.7446446251334755}, {
      0.3932160537049041, 0.6724982320093814}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.3210696605808101, 0.8175017679906184}, {0.3932160537049041, 
      0.7453553748665244}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.32106966058081005`, 0.8903589108477612}, {
      0.3932160537049041, 0.8182125177236671}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.32106966058081005`, 0.963216053704904}, {0.3932160537049041,
       0.8910696605808099}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.3210696605808101, 1.0360731965620469`}, {0.3932160537049041,
       0.9639268034379528}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.39249823200938144`, 0.01607319656204703}, {
      0.46464462513347554`, -0.05607319656204703}}]}, 
    {Arrowheads[{{0.04629201105784241, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.46464462513347554`, 0.016783946295095824`}, {
      0.3924982320093815, 0.0889303394191899}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.4646446251334755, 0.0896410891522387}, {0.3924982320093815, 
      0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.4646446251334755, 0.16249823200938154`}, {
      0.3924982320093815, 0.2346446251334756}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.4646446251334755, 0.23535537486652439`}, {
      0.3924982320093815, 0.30750176799061846`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.46464462513347554`, 0.3082125177236672}, {
      0.3924982320093815, 0.38035891084776124`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.4646446251334755, 0.38106966058081004`}, {
      0.3924982320093815, 0.45321605370490414`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.4646446251334755, 0.4539268034379529}, {0.3924982320093815, 
      0.526073196562047}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.46464462513347554`, 0.5267839462950958}, {
      0.3924982320093815, 0.5989303394191899}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.46464462513347554`, 0.5996410891522387}, {
      0.3924982320093815, 0.6717874822763328}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.46464462513347554`, 0.6724982320093815}, {
      0.3924982320093815, 0.7446446251334756}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.46464462513347554`, 0.7453553748665244}, {
      0.3924982320093815, 0.8175017679906185}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.46464462513347554`, 0.8182125177236672}, {
      0.3924982320093815, 0.8903589108477613}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.4646446251334755, 0.89106966058081}, {0.3924982320093815, 
      0.963216053704904}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{0.4646446251334755, 0.9639268034379529}, {0.3924982320093815, 
      1.0360731965620469`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.4639268034379529, 0.01607319656204702}, {
      0.536073196562047, -0.056073196562047026`}}]}, 
    {Arrowheads[{{0.0462920110578424, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.016783946295095824`}, {
      0.4639268034379529, 0.0889303394191899}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.0896410891522387}, {0.4639268034379529, 
      0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.16249823200938154`}, {
      0.4639268034379529, 0.2346446251334756}}]}, 
    {Arrowheads[{{0.04629201105784238, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.23535537486652439`}, {
      0.4639268034379529, 0.3075017679906184}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.3082125177236672}, {0.4639268034379529, 
      0.38035891084776124`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.38106966058081004`}, {
      0.4639268034379529, 0.45321605370490414`}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.4539268034379529}, {0.4639268034379529, 
      0.526073196562047}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.5267839462950958}, {0.4639268034379529, 
      0.5989303394191899}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.5996410891522387}, {0.4639268034379529, 
      0.6717874822763327}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.6724982320093815}, {0.4639268034379529, 
      0.7446446251334756}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.7453553748665244}, {0.4639268034379529, 
      0.8175017679906185}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.8182125177236672}, {0.4639268034379529, 
      0.8903589108477613}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.89106966058081}, {0.4639268034379529, 
      0.9632160537049042}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], 
     ArrowBox[{{0.5360731965620469, 0.9639268034379529}, {0.4639268034379529, 
      1.0360731965620469`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.5353553748665243, 0.01607319656204702}, {
      0.6075017679906184, -0.056073196562047026`}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.01678394629509583}, {0.5353553748665243,
       0.08893033941918987}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.0896410891522387}, {0.5353553748665243, 
      0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.16249823200938154`}, {
      0.5353553748665243, 0.2346446251334756}}]}, 
    {Arrowheads[{{0.04629201105784238, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.23535537486652439`}, {
      0.5353553748665243, 0.3075017679906184}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.3082125177236672}, {0.5353553748665243, 
      0.38035891084776124`}}]}, 
    {Arrowheads[{{0.046292011057842385`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.38106966058081004`}, {
      0.5353553748665243, 0.4532160537049041}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.4539268034379529}, {0.5353553748665243, 
      0.526073196562047}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.5267839462950958}, {0.5353553748665243, 
      0.5989303394191899}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.5996410891522387}, {0.5353553748665243, 
      0.6717874822763327}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.6724982320093815}, {0.5353553748665243, 
      0.7446446251334756}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.7453553748665244}, {0.5353553748665243, 
      0.8175017679906185}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.8182125177236672}, {0.5353553748665243, 
      0.8903589108477613}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.89106966058081}, {0.5353553748665243, 
      0.963216053704904}}]}, 
    {Arrowheads[{{0.04629201105784237, 1.}}], 
     ArrowBox[{{0.6075017679906183, 0.9639268034379529}, {0.5353553748665243, 
      1.0360731965620469`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.6067839462950957, 0.01607319656204702}, {
      0.6789303394191898, -0.056073196562047026`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.016783946295095824`}, {
      0.6067839462950956, 0.0889303394191899}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.0896410891522387}, {0.6067839462950956, 
      0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.16249823200938154`}, {
      0.6067839462950956, 0.2346446251334756}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.23535537486652439`}, {
      0.6067839462950956, 0.3075017679906184}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.3082125177236672}, {0.6067839462950956, 
      0.3803589108477613}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.38106966058081004`}, {
      0.6067839462950956, 0.4532160537049041}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.4539268034379529}, {0.6067839462950956, 
      0.526073196562047}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.5267839462950958}, {0.6067839462950956, 
      0.5989303394191899}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.5996410891522387}, {0.6067839462950956, 
      0.6717874822763328}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.6724982320093815}, {0.6067839462950956, 
      0.7446446251334756}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.7453553748665244}, {0.6067839462950956, 
      0.8175017679906184}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.8182125177236672}, {0.6067839462950956, 
      0.8903589108477613}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.89106966058081}, {0.6067839462950956, 
      0.963216053704904}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.6789303394191897, 0.9639268034379529}, {0.6067839462950956, 
      1.0360731965620469`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.6782125177236671, 0.01607319656204703}, {
      0.7503589108477612, -0.05607319656204703}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.01678394629509583}, {0.678212517723667, 
      0.08893033941918987}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.0896410891522387}, {0.678212517723667, 
      0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.16249823200938154`}, {0.678212517723667,
       0.2346446251334756}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.23535537486652439`}, {0.678212517723667,
       0.30750176799061846`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.3082125177236672}, {0.678212517723667, 
      0.3803589108477613}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.38106966058081004`}, {0.678212517723667,
       0.45321605370490414`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.4539268034379529}, {0.678212517723667, 
      0.526073196562047}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.5267839462950958}, {0.678212517723667, 
      0.5989303394191899}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.5996410891522387}, {0.678212517723667, 
      0.6717874822763328}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.6724982320093815}, {0.678212517723667, 
      0.7446446251334756}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.7453553748665244}, {0.678212517723667, 
      0.8175017679906185}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.8182125177236672}, {0.678212517723667, 
      0.8903589108477613}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.89106966058081}, {0.678212517723667, 
      0.963216053704904}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.7503589108477611, 0.9639268034379529}, {0.678212517723667, 
      1.0360731965620469`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.7496410891522385, 0.01607319656204703}, {
      0.8217874822763326, -0.05607319656204703}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.016783946295095824`}, {
      0.7496410891522384, 0.0889303394191899}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.0896410891522387}, {0.7496410891522384, 
      0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.16249823200938154`}, {
      0.7496410891522384, 0.2346446251334756}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.23535537486652439`}, {
      0.7496410891522384, 0.3075017679906184}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.3082125177236672}, {0.7496410891522384, 
      0.38035891084776124`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.38106966058081004`}, {
      0.7496410891522384, 0.45321605370490414`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.4539268034379529}, {0.7496410891522384, 
      0.526073196562047}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.5267839462950958}, {0.7496410891522384, 
      0.5989303394191899}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.5996410891522387}, {0.7496410891522384, 
      0.6717874822763328}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.6724982320093815}, {0.7496410891522384, 
      0.7446446251334756}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.7453553748665244}, {0.7496410891522384, 
      0.8175017679906185}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.8182125177236672}, {0.7496410891522384, 
      0.8903589108477613}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.89106966058081}, {0.7496410891522384, 
      0.9632160537049042}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.8217874822763325, 0.9639268034379529}, {0.7496410891522384, 
      1.0360731965620469`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.8210696605808099, 0.01607319656204703}, {
      0.893216053704904, -0.05607319656204703}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.01678394629509583}, {0.8210696605808098,
       0.08893033941918987}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.0896410891522387}, {0.8210696605808098, 
      0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.16249823200938154`}, {
      0.8210696605808098, 0.2346446251334756}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.23535537486652439`}, {
      0.8210696605808098, 0.30750176799061846`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.3082125177236672}, {0.8210696605808098, 
      0.3803589108477613}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.38106966058081004`}, {
      0.8210696605808098, 0.45321605370490414`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.4539268034379529}, {0.8210696605808098, 
      0.526073196562047}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.5267839462950958}, {0.8210696605808098, 
      0.5989303394191899}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.5996410891522387}, {0.8210696605808098, 
      0.6717874822763328}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.6724982320093815}, {0.8210696605808098, 
      0.7446446251334756}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.7453553748665244}, {0.8210696605808098, 
      0.8175017679906184}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.8182125177236672}, {0.8210696605808098, 
      0.8903589108477613}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.89106966058081}, {0.8210696605808098, 
      0.963216053704904}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.8932160537049039, 0.9639268034379529}, {0.8210696605808098, 
      1.0360731965620469`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.8924982320093813, 0.01607319656204703}, {
      0.9646446251334754, -0.05607319656204703}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.016783946295095824`}, {
      0.8924982320093812, 0.0889303394191899}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.0896410891522387}, {0.8924982320093812, 
      0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.16249823200938154`}, {
      0.8924982320093812, 0.2346446251334756}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.23535537486652439`}, {
      0.8924982320093812, 0.3075017679906184}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.3082125177236672}, {0.8924982320093812, 
      0.38035891084776124`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.38106966058081004`}, {
      0.8924982320093812, 0.45321605370490414`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.4539268034379529}, {0.8924982320093812, 
      0.526073196562047}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.5267839462950958}, {0.8924982320093812, 
      0.5989303394191899}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.5996410891522387}, {0.8924982320093812, 
      0.6717874822763328}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.6724982320093815}, {0.8924982320093812, 
      0.7446446251334756}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.7453553748665244}, {0.8924982320093812, 
      0.8175017679906184}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.8182125177236672}, {0.8924982320093812, 
      0.8903589108477613}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.89106966058081}, {0.8924982320093812, 
      0.9632160537049042}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{0.9646446251334753, 0.9639268034379529}, {0.8924982320093812, 
      1.0360731965620469`}}]}, 
    {Arrowheads[{{0.04629201105784239, 1.}}], 
     ArrowBox[{{0.9639268034379527, 0.01607319656204703}, {
      1.0360731965620467`, -0.05607319656204703}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.016783946295095824`}, {
      0.9639268034379526, 0.0889303394191899}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.0896410891522387}, {0.9639268034379526,
       0.16178748227633274`}}]}, 
    {Arrowheads[{{0.046292011057842426`, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.16249823200938154`}, {
      0.9639268034379526, 0.2346446251334756}}]}, 
    {Arrowheads[{{0.04629201105784242, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.23535537486652439`}, {
      0.9639268034379526, 0.3075017679906184}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.3082125177236672}, {0.9639268034379526,
       0.3803589108477613}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.38106966058081004`}, {
      0.9639268034379526, 0.45321605370490414`}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.4539268034379529}, {0.9639268034379526,
       0.526073196562047}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.5267839462950958}, {0.9639268034379526,
       0.5989303394191899}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.5996410891522387}, {0.9639268034379526,
       0.6717874822763328}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.6724982320093815}, {0.9639268034379526,
       0.7446446251334756}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.7453553748665244}, {0.9639268034379526,
       0.8175017679906185}}]}, 
    {Arrowheads[{{0.04629201105784244, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.8182125177236672}, {0.9639268034379526,
       0.8903589108477613}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.89106966058081}, {0.9639268034379526, 
      0.963216053704904}}]}, 
    {Arrowheads[{{0.046292011057842405`, 1.}}], 
     ArrowBox[{{1.0360731965620467`, 0.9639268034379529}, {0.9639268034379526,
       1.0360731965620469`}}]}}},
  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.05101520381619741, 
   1.0510152038161975`}, {-0.07101520381619741, 1.0510152038161975`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Input",
 CellChangeTimes->{{3.5684981489593096`*^9, 3.5684981603269596`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.9"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "=", 
   RowBox[{"\[Beta]", "/", "\[Gamma]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e1", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     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]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "1.3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "1"]}], "+", 
      RowBox[{"\[Gamma]", " ", "i"}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Beta]", " ", "s", " ", 
       FractionBox["i", "1"]}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "1.0"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "+", "0.2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "+", "0.25"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "+", "\[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.5659862997684703`*^9, 3.565986346904166*^9}, {
   3.565986387213472*^9, 3.5659864763165684`*^9}, {3.565986530978695*^9, 
   3.565986644117166*^9}, {3.5659866843334665`*^9, 3.56598668789367*^9}, {
   3.565986722767665*^9, 3.5659869171817846`*^9}, {3.5659872619605045`*^9, 
   3.565987319312785*^9}, {3.5672764904739404`*^9, 3.5672765330273743`*^9}, {
   3.567276573568693*^9, 3.567276595146927*^9}, {3.5672766426166425`*^9, 
   3.567276685324085*^9}, {3.5672775027258377`*^9, 3.5672775109303074`*^9}, 
   3.5672775819093666`*^9, {3.5672776291060667`*^9, 3.567277635867453*^9}, {
   3.5684955131685505`*^9, 3.568495520999999*^9}, {3.568495584819649*^9, 
   3.568495591746045*^9}, {3.5684956317713346`*^9, 3.568495701725336*^9}, {
   3.56849574848401*^9, 3.5684957526142464`*^9}, 3.568495788888321*^9, {
   3.5684965848308463`*^9, 3.5684965853398757`*^9}, {3.568496634169668*^9, 
   3.568496659966144*^9}, {3.5684967770948434`*^9, 3.5684967935697856`*^9}, {
   3.568496936554964*^9, 3.5684970242259784`*^9}, {3.5684970658683605`*^9, 
   3.568497156938569*^9}, {3.568497313151504*^9, 3.568497313636532*^9}, {
   3.5684973488945484`*^9, 3.5684973607632275`*^9}, {3.56849787219448*^9, 
   3.5684978869883256`*^9}, {3.5684980433622694`*^9, 3.56849805211177*^9}, {
   3.568498099292469*^9, 3.5684980996684904`*^9}}],

Cell[BoxData["0.7777777777777778`"], "Output",
 CellChangeTimes->{{3.568496960368326*^9, 3.568497025029024*^9}, {
   3.5684970551657476`*^9, 3.5684971578916235`*^9}, 3.5684973140485554`*^9, {
   3.5684973495115833`*^9, 3.568497361398264*^9}, {3.568497873284542*^9, 
   3.568497887341346*^9}, {3.5684980437822933`*^9, 3.5684980526277995`*^9}, 
   3.568498099997509*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.2857142857142856`", ",", 
   RowBox[{"-", "0.2857142857142856`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.568496960368326*^9, 3.568497025029024*^9}, {
   3.5684970551657476`*^9, 3.5684971578916235`*^9}, 3.5684973140485554`*^9, {
   3.5684973495115833`*^9, 3.568497361398264*^9}, {3.568497873284542*^9, 
   3.568497887341346*^9}, {3.5684980437822933`*^9, 3.5684980526277995`*^9}, 
   3.5684981000005093`*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.3259820438706416, -0.07598204387064159}, {
      0.2454465275579296, 0.004553472442070418}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.07955347244207041}, {
      0.32598204387064156`, -0.0009820438706415885}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.1545534724420704}, {
      0.32598204387064156`, 0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.2295534724420704}, {
      0.32598204387064156`, 0.1490179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.3045534724420704}, {
      0.32598204387064156`, 0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.37955347244207044`}, {
      0.32598204387064156`, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.45455347244207045`}, {
      0.32598204387064156`, 0.3740179561293584}}]}, 
    {Arrowheads[{{0.043342302752243586`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.5295534724420704}, {
      0.32598204387064156`, 0.44901795612935846`}}]}, 
    {Arrowheads[{{0.043342302752243586`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.6045534724420704}, {
      0.32598204387064156`, 0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.6795534724420703}, {
      0.32598204387064156`, 0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.7545534724420703}, {
      0.32598204387064156`, 0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.8295534724420702}, {
      0.32598204387064156`, 0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.9045534724420702}, {
      0.32598204387064156`, 0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 0.9795534724420701}, {
      0.32598204387064156`, 0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.2454465275579296, 1.0545534724420702`}, {
      0.32598204387064156`, 0.9740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.41169632958492736`, -0.07598204387064159}, {
      0.33116081327221536`, 0.004553472442070418}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.07955347244207042}, {
      0.4116963295849273, -0.0009820438706415954}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.33116081327221536`, 0.1545534724420704}, {
      0.4116963295849273, 0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.33116081327221536`, 0.2295534724420704}, {
      0.4116963295849273, 0.1490179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.3045534724420704}, {0.4116963295849273, 
      0.2240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.37955347244207044`}, {
      0.4116963295849273, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.45455347244207045`}, {
      0.4116963295849273, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{0.33116081327221536`, 0.5295534724420704}, {
      0.4116963295849273, 0.44901795612935846`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.6045534724420704}, {0.4116963295849273, 
      0.5240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.6795534724420703}, {0.4116963295849273, 
      0.5990179561293583}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.7545534724420703}, {0.4116963295849273, 
      0.6740179561293582}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.8295534724420702}, {0.4116963295849273, 
      0.7490179561293582}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.9045534724420702}, {0.4116963295849273, 
      0.8240179561293581}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.3311608132722153, 0.9795534724420701}, {0.4116963295849273, 
      0.8990179561293581}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.3311608132722153, 1.0545534724420702`}, {0.4116963295849273,
       0.9740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.4974106152992131, -0.07598204387064159}, {
      0.4168750989865011, 0.004553472442070418}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.07955347244207042}, {
      0.4974106152992131, -0.0009820438706415954}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.4168750989865011, 0.1545534724420704}, {
      0.49741061529921304`, 0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.4168750989865011, 0.2295534724420704}, {
      0.49741061529921304`, 0.1490179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.3045534724420704}, {
      0.4974106152992131, 0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.37955347244207044`}, {
      0.4974106152992131, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.45455347244207045`}, {
      0.4974106152992131, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.5295534724420704}, {
      0.4974106152992131, 0.44901795612935846`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.6045534724420704}, {
      0.4974106152992131, 0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.4168750989865011, 0.6795534724420703}, {
      0.49741061529921304`, 0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.7545534724420703}, {
      0.4974106152992131, 0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.8295534724420702}, {
      0.4974106152992131, 0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.4168750989865011, 0.9045534724420702}, {
      0.49741061529921304`, 0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 0.9795534724420701}, {
      0.4974106152992131, 0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.41687509898650105`, 1.0545534724420702`}, {
      0.4974106152992131, 0.9740179561293582}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.5831249010134988, -0.07598204387064159}, {
      0.5025893847007868, 0.004553472442070411}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.07955347244207041}, {
      0.5831249010134989, -0.0009820438706415885}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.1545534724420704}, {0.5831249010134989, 
      0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.2295534724420704}, {0.5831249010134989, 
      0.1490179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.3045534724420704}, {0.5831249010134989, 
      0.2240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.3795534724420704}, {0.5831249010134989, 
      0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.45455347244207045`}, {
      0.5831249010134989, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.5295534724420704}, {0.5831249010134989, 
      0.44901795612935846`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.6045534724420704}, {0.5831249010134989, 
      0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.6795534724420703}, {0.5831249010134989, 
      0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.7545534724420703}, {0.5831249010134989, 
      0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.8295534724420702}, {0.5831249010134989, 
      0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.9045534724420702}, {0.5831249010134989, 
      0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 0.9795534724420701}, {0.5831249010134989, 
      0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5025893847007868, 1.0545534724420702`}, {0.5831249010134989,
       0.9740179561293582}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.6688391867277845, -0.07598204387064159}, {
      0.5883036704150725, 0.004553472442070418}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.07955347244207042}, {
      0.6688391867277846, -0.0009820438706415954}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.1545534724420704}, {0.6688391867277845, 
      0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.2295534724420704}, {0.6688391867277845, 
      0.1490179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.3045534724420704}, {0.6688391867277846, 
      0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.3795534724420704}, {0.6688391867277845, 
      0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.45455347244207045`}, {
      0.6688391867277846, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.5295534724420704}, {0.6688391867277845, 
      0.44901795612935846`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.6045534724420704}, {0.6688391867277846, 
      0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.6795534724420703}, {0.6688391867277845, 
      0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.7545534724420703}, {0.6688391867277845, 
      0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.8295534724420702}, {0.6688391867277845, 
      0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.9045534724420702}, {0.6688391867277845, 
      0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 0.9795534724420701}, {0.6688391867277846, 
      0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.5883036704150726, 1.0545534724420702`}, {0.6688391867277846,
       0.9740179561293582}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.7545534724420703, -0.07598204387064159}, {
      0.6740179561293582, 0.004553472442070411}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.07955347244207041}, {
      0.7545534724420704, -0.0009820438706415885}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.1545534724420704}, {0.7545534724420704, 
      0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.2295534724420704}, {0.7545534724420704, 
      0.1490179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.3045534724420704}, {0.7545534724420704, 
      0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.37955347244207044`}, {
      0.7545534724420704, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.45455347244207045`}, {
      0.7545534724420704, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.5295534724420704}, {0.7545534724420704, 
      0.44901795612935846`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.6045534724420704}, {0.7545534724420704, 
      0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.6795534724420703}, {0.7545534724420704, 
      0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.7545534724420703}, {0.7545534724420704, 
      0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.8295534724420702}, {0.7545534724420704, 
      0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.9045534724420702}, {0.7545534724420704, 
      0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 0.9795534724420701}, {0.7545534724420704, 
      0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.6740179561293583, 1.0545534724420702`}, {0.7545534724420704,
       0.9740179561293582}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.840267758156356, -0.07598204387064159}, {0.759732241843644, 
      0.004553472442070418}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.07955347244207042}, {
      0.8402677581563561, -0.0009820438706415954}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.1545534724420704}, {0.840267758156356, 
      0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.2295534724420704}, {0.8402677581563561, 
      0.1490179561293584}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.3045534724420704}, {0.840267758156356, 
      0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.37955347244207044`}, {
      0.8402677581563561, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.45455347244207045`}, {
      0.8402677581563561, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.5295534724420704}, {0.8402677581563561, 
      0.44901795612935846`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.6045534724420704}, {0.840267758156356, 
      0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.6795534724420703}, {0.8402677581563561, 
      0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.7545534724420703}, {0.840267758156356, 
      0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.8295534724420702}, {0.8402677581563561, 
      0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.9045534724420702}, {0.840267758156356, 
      0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.7597322418436441, 0.9795534724420701}, {0.8402677581563561, 
      0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.7597322418436441, 1.0545534724420702`}, {0.8402677581563561,
       0.9740179561293582}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.9259820438706418, -0.07598204387064159}, {
      0.8454465275579297, 0.004553472442070411}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.07955347244207041}, {
      0.9259820438706419, -0.0009820438706415885}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.1545534724420704}, {0.9259820438706419, 
      0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.2295534724420704}, {0.9259820438706419, 
      0.1490179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.3045534724420704}, {0.9259820438706419, 
      0.2240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.3795534724420704}, {0.9259820438706419, 
      0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224362, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.45455347244207045`}, {
      0.9259820438706419, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.5295534724420704}, {0.9259820438706419, 
      0.44901795612935846`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.6045534724420704}, {0.9259820438706419, 
      0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.6795534724420703}, {0.9259820438706419, 
      0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.7545534724420703}, {0.9259820438706419, 
      0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.8295534724420702}, {0.9259820438706419, 
      0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.9045534724420702}, {0.9259820438706419, 
      0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243635`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 0.9795534724420701}, {0.9259820438706419, 
      0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.8454465275579298, 1.0545534724420702`}, {0.9259820438706419,
       0.9740179561293583}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.0116963295849275`, -0.07598204387064159}, {
      0.9311608132722156, 0.004553472442070411}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.07955347244207041}, {
      1.0116963295849275`, -0.0009820438706415885}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.1545534724420704}, {1.0116963295849275`,
       0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.2295534724420704}, {1.0116963295849275`,
       0.1490179561293584}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.3045534724420704}, {1.0116963295849275`,
       0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.37955347244207044`}, {
      1.0116963295849275`, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.45455347244207045`}, {
      1.0116963295849275`, 0.3740179561293584}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.5295534724420704}, {1.0116963295849275`,
       0.44901795612935846`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.6045534724420704}, {1.0116963295849275`,
       0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.6795534724420703}, {1.0116963295849275`,
       0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.7545534724420703}, {1.0116963295849275`,
       0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.8295534724420702}, {1.0116963295849275`,
       0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.9045534724420702}, {1.0116963295849275`,
       0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.9311608132722156, 0.9795534724420701}, {1.0116963295849275`,
       0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{0.9311608132722156, 1.0545534724420702`}, {
      1.0116963295849275`, 0.9740179561293582}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.0974106152992131`, -0.07598204387064159}, {
      1.0168750989865012`, 0.004553472442070411}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.07955347244207041}, {
      1.0974106152992131`, -0.0009820438706415885}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.1545534724420704}, {
      1.0974106152992131`, 0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.2295534724420704}, {
      1.0974106152992131`, 0.1490179561293584}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.3045534724420704}, {
      1.0974106152992131`, 0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.37955347244207044`}, {
      1.0974106152992131`, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.45455347244207045`}, {
      1.0974106152992131`, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.5295534724420704}, {
      1.0974106152992131`, 0.44901795612935846`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.6045534724420704}, {
      1.0974106152992131`, 0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.6795534724420703}, {
      1.0974106152992131`, 0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.7545534724420703}, {
      1.0974106152992131`, 0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.8295534724420702}, {
      1.0974106152992131`, 0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.9045534724420702}, {
      1.0974106152992131`, 0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 0.9795534724420701}, {
      1.0974106152992131`, 0.8990179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.0168750989865012`, 1.0545534724420702`}, {
      1.0974106152992131`, 0.9740179561293582}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.1831249010134988`, -0.07598204387064159}, {
      1.1025893847007868`, 0.004553472442070418}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.07955347244207041}, {
      1.1831249010134988`, -0.0009820438706415885}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.1545534724420704}, {
      1.1831249010134988`, 0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.2295534724420704}, {
      1.1831249010134988`, 0.1490179561293584}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.3045534724420704}, {
      1.1831249010134988`, 0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.37955347244207044`}, {
      1.1831249010134988`, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.45455347244207045`}, {
      1.1831249010134988`, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.5295534724420704}, {
      1.1831249010134988`, 0.44901795612935846`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.6045534724420704}, {
      1.1831249010134988`, 0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.6795534724420703}, {
      1.1831249010134988`, 0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.7545534724420703}, {
      1.1831249010134988`, 0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.8295534724420702}, {
      1.1831249010134988`, 0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.9045534724420702}, {
      1.1831249010134988`, 0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 0.9795534724420701}, {
      1.1831249010134988`, 0.8990179561293581}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{1.1025893847007868`, 1.0545534724420702`}, {
      1.1831249010134988`, 0.9740179561293583}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.2688391867277844`, -0.07598204387064159}, {
      1.1883036704150725`, 0.004553472442070411}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.07955347244207042}, {
      1.2688391867277844`, -0.0009820438706415954}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.1545534724420704}, {
      1.2688391867277844`, 0.07401795612935841}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.2295534724420704}, {
      1.2688391867277844`, 0.1490179561293584}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.3045534724420704}, {
      1.2688391867277844`, 0.2240179561293584}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.37955347244207044`}, {
      1.2688391867277844`, 0.29901795612935844`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.45455347244207045`}, {
      1.2688391867277844`, 0.37401795612935845`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.5295534724420704}, {
      1.2688391867277844`, 0.44901795612935846`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.6045534724420704}, {
      1.2688391867277844`, 0.5240179561293584}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.6795534724420703}, {
      1.2688391867277844`, 0.5990179561293583}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.7545534724420703}, {
      1.2688391867277844`, 0.6740179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.8295534724420702}, {
      1.2688391867277844`, 0.7490179561293582}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.9045534724420702}, {
      1.2688391867277844`, 0.8240179561293581}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 0.9795534724420701}, {
      1.2688391867277844`, 0.8990179561293581}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.1883036704150725`, 1.0545534724420702`}, {
      1.2688391867277844`, 0.9740179561293583}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.274017956129358, 0.004553472442070418}, {
      1.35455347244207, -0.07598204387064159}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, -0.0009820438706415954}, {1.274017956129358,
       0.07955347244207042}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.07401795612935841}, {1.274017956129358, 
      0.15455347244207043`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.1490179561293584}, {1.274017956129358, 
      0.2295534724420704}}]}, 
    {Arrowheads[{{0.043342302752243586`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.2240179561293584}, {1.274017956129358, 
      0.30455347244207037`}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.29901795612935844`}, {1.274017956129358, 
      0.3795534724420704}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.3740179561293584}, {1.274017956129358, 
      0.45455347244207045`}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.44901795612935846`}, {1.274017956129358, 
      0.5295534724420705}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.5240179561293584}, {1.274017956129358, 
      0.6045534724420705}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.5990179561293584}, {1.274017956129358, 
      0.6795534724420704}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.6740179561293583}, {1.274017956129358, 
      0.7545534724420704}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.7490179561293583}, {1.274017956129358, 
      0.8295534724420703}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.8240179561293582}, {1.274017956129358, 
      0.9045534724420703}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], StrokeForm[RGBColor[1, 0, 0]],
      EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.8990179561293582}, {1.274017956129358, 
      0.9795534724420702}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], StrokeForm[RGBColor[1, 0, 0]], 
     EdgeForm[GrayLevel[0]], EdgeForm[None], 
     ArrowBox[{{1.35455347244207, 0.9740179561293583}, {1.274017956129358, 
      1.0545534724420702`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.3597322418436437`, 0.004553472442070418}, {
      1.4402677581563557`, -0.07598204387064159}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{1.4402677581563557`, -0.0009820438706415954}, {
      1.3597322418436437`, 0.07955347244207042}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.07401795612935841}, {
      1.3597322418436437`, 0.15455347244207043`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.1490179561293584}, {
      1.3597322418436437`, 0.2295534724420704}}]}, 
    {Arrowheads[{{0.043342302752243586`, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.2240179561293584}, {
      1.3597322418436437`, 0.30455347244207037`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.2990179561293584}, {
      1.3597322418436437`, 0.3795534724420704}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.3740179561293584}, {
      1.3597322418436437`, 0.4545534724420704}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.44901795612935846`}, {
      1.3597322418436437`, 0.5295534724420705}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.5240179561293584}, {
      1.3597322418436437`, 0.6045534724420705}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.5990179561293584}, {
      1.3597322418436437`, 0.6795534724420704}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.6740179561293583}, {
      1.3597322418436437`, 0.7545534724420704}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.7490179561293583}, {
      1.3597322418436437`, 0.8295534724420703}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.8240179561293582}, {
      1.3597322418436437`, 0.9045534724420703}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.8990179561293582}, {
      1.3597322418436437`, 0.9795534724420702}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{1.4402677581563557`, 0.9740179561293583}, {
      1.3597322418436437`, 1.0545534724420702`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.4454465275579294`, 0.004553472442070418}, {
      1.5259820438706413`, -0.07598204387064159}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{1.5259820438706413`, -0.0009820438706415954}, {
      1.4454465275579294`, 0.07955347244207042}}]}, 
    {Arrowheads[{{0.04334230275224361, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.07401795612935841}, {
      1.4454465275579294`, 0.15455347244207043`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.1490179561293584}, {
      1.4454465275579294`, 0.2295534724420704}}]}, 
    {Arrowheads[{{0.043342302752243586`, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.2240179561293584}, {
      1.4454465275579294`, 0.30455347244207037`}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.2990179561293584}, {
      1.4454465275579294`, 0.3795534724420704}}]}, 
    {Arrowheads[{{0.04334230275224359, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.3740179561293584}, {
      1.4454465275579294`, 0.4545534724420704}}]}, 
    {Arrowheads[{{0.04334230275224363, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.4490179561293584}, {
      1.4454465275579294`, 0.5295534724420705}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.5240179561293584}, {
      1.4454465275579294`, 0.6045534724420705}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.5990179561293584}, {
      1.4454465275579294`, 0.6795534724420704}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.6740179561293583}, {
      1.4454465275579294`, 0.7545534724420704}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.7490179561293583}, {
      1.4454465275579294`, 0.8295534724420703}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.8240179561293582}, {
      1.4454465275579294`, 0.9045534724420703}}]}, 
    {Arrowheads[{{0.043342302752243614`, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.8990179561293582}, {
      1.4454465275579294`, 0.9795534724420702}}]}, 
    {Arrowheads[{{0.04334230275224358, 1.}}], 
     ArrowBox[{{1.5259820438706413`, 0.9740179561293583}, {
      1.4454465275579294`, 1.0545534724420702`}}]}}},
  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.22876707600320711`, 
   1.5426614954253641`}, {-0.09266149542536406, 1.071232923996793}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Input",
 CellChangeTimes->{3.568498515439271*^9}]
},
WindowSize->{1904, 945},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
Magnification->1.9499993324279785`,
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, 14531, 370, 1789, "Input"],
Cell[15113, 394, 686, 9, 58, "Output"],
Cell[15802, 405, 11111, 190, 482, "Output"],
Cell[26916, 597, 16054, 271, 482, "Output"],
Cell[42973, 870, 27673, 477, 489, "Output"]
}, Open  ]],
Cell[70661, 1350, 24391, 424, 467, InheritFromParent],
Cell[95055, 1776, 224, 3, 58, "Input"],
Cell[95282, 1781, 120, 2, 58, "Input"],
Cell[CellGroupData[{
Cell[95427, 1787, 14444, 370, 1789, "Input"],
Cell[109874, 2159, 223, 3, 58, "Output"],
Cell[110100, 2164, 3204, 59, 482, "Output"],
Cell[113307, 2225, 3232, 60, 482, "Output"],
Cell[116542, 2287, 7424, 141, 489, "Output"],
Cell[123969, 2430, 5958, 114, 467, "Output"]
}, Open  ]],
Cell[129942, 2547, 20770, 363, 467, "Input"],
Cell[150715, 2912, 94, 1, 58, "Input"],
Cell[150812, 2915, 4134, 102, 329, "Input"],
Cell[154949, 3019, 5981, 124, 496, "Input"],
Cell[160933, 3145, 6370, 129, 504, "Input"],
Cell[CellGroupData[{
Cell[167328, 3278, 3878, 102, 477, "Input"],
Cell[171209, 3382, 3171, 64, 496, "Output"]
}, Open  ]],
Cell[174395, 3449, 89, 1, 96, "Input"],
Cell[174487, 3452, 11634, 329, 2963, "Input"],
Cell[CellGroupData[{
Cell[186146, 3785, 5592, 133, 732, "Input"],
Cell[191741, 3920, 450, 7, 58, "Output"]
}, Open  ]],
Cell[192206, 3930, 38981, 725, 729, "Input"],
Cell[CellGroupData[{
Cell[231212, 4659, 5893, 136, 732, "Input"],
Cell[237108, 4797, 368, 5, 58, "Output"],
Cell[237479, 4804, 452, 8, 58, "Output"]
}, Open  ]],
Cell[237946, 4815, 38893, 724, 729, "Input"]
}
]
*)

(* End of internal cache information *)