SIRS 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[    479384,       9463]
NotebookOptionsPosition[    476090,       9364]
NotebookOutlinePosition[    476726,       9388]
CellTagsIndexPosition[    476639,       9383]
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[{"\[Nu]", " ", 
     RowBox[{"r", "[", "t", "]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{
    RowBox[{"\[Beta]", "*", 
     RowBox[{"s", "[", "t", "]"}], "*", 
     FractionBox[
      RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
    RowBox[{"\[Gamma]", "*", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"\[Gamma]", "*", 
     RowBox[{"i", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Nu]", " ", 
     RowBox[{"r", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.95"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "1.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"R0", "=", 
  RowBox[{"N", "[", 
   FractionBox["\[Beta]", "\[Gamma]"], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tf", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"szero", "=", "0.90"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"izero", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rzero", "=", "0.0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[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[{
          RowBox[{"r", "'"}], "[", "t", "]"}], "\[Equal]", "eq3"}], ",", 
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "szero"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "izero"}], ",", 
        RowBox[{
         RowBox[{"r", "[", "0", "]"}], "\[Equal]", "rzero"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "i", ",", "r"}], "}"}], ",", 
      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[{"plot3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"c", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"r", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<R\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Green"}]}]}], "]"}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"R", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot3a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"r", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Green"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowLegend", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"plot1a", " ", ",", "plot2a", ",", "plot3a"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<S(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<I(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Green", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<R(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[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"r", "[", "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)\>\"", ",", "\"\<R(t)\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Green"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
     RowBox[{"LegendSpacing", "\[Rule]", "0"}], ",", 
     RowBox[{"LegendPosition", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0"}], "}"}]}], ",", 
     RowBox[{"LegendSize", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0.3"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"GridLinesStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", "Dotted"}], "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Density \>\"", ",", "\"\<\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<time \>\"", "[", "t", "]"}], ",", "\"\<\>\""}], 
         "}"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"plotP", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"ParametricPlot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x1", "[", "t", "]"}], ",", 
            RowBox[{"x2", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", "t", "]"}], ",", 
           RowBox[{"\"\<E\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
      "\[IndentingNewLine]", "plotQ"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"ParametricPlot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x2", "[", "t", "]"}], ",", 
             RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\"\<E\>\"", "[", "t", "]"}], ",", 
            RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], "\n", 
       "plotR"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x1", "[", "t", "]"}], ",", 
              RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"S", "[", "t", "]"}], ",", 
             RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
        "\[IndentingNewLine]", 
        RowBox[{"h1", "[", "t_", "]"}]}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x1", "[", "t", "]"}], "/.", "sol"}], "]"}], "\n", 
         RowBox[{"h2", "[", "t_", "]"}]}], ":=", 
        RowBox[{
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"x2", "[", "t", "]"}], "/.", "sol"}], "]"}], 
          "\[IndentingNewLine]", 
          RowBox[{"h3", "[", "t_", "]"}]}], ":=", 
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x3", "[", "t", "]"}], "/.", "sol"}], "]"}]}]}]}]}]}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5638355904558997`*^9, 3.563835704468421*^9}, {
   3.563835950077469*^9, 3.56383606512805*^9}, {3.56383613822723*^9, 
   3.563836367357336*^9}, {3.563836441114555*^9, 3.563836444201731*^9}, {
   3.563836535058928*^9, 3.563836589524043*^9}, {3.5638366644783306`*^9, 
   3.563836665858409*^9}, 3.563836695909128*^9, {3.563836848841875*^9, 
   3.5638368525680885`*^9}, {3.5638372255084195`*^9, 3.563837265661716*^9}, {
   3.5638383151507435`*^9, 3.5638383180759106`*^9}, 3.563838362903475*^9, {
   3.5638384377487555`*^9, 3.563838575206618*^9}, {3.5638386112096767`*^9, 
   3.563838657701336*^9}, 3.5638386889021206`*^9, {3.5638388049467583`*^9, 
   3.5638388069938755`*^9}, {3.5638388495773106`*^9, 
   3.5638389667440124`*^9}, {3.563839052506918*^9, 3.563839071571008*^9}, {
   3.563839147339342*^9, 3.563839232596218*^9}, {3.563839314060878*^9, 
   3.56383942477421*^9}, {3.5638394696337757`*^9, 3.563839480051372*^9}, {
   3.5638395362795877`*^9, 3.5638395453271055`*^9}, {3.5638395986821575`*^9, 
   3.5638396665290375`*^9}, {3.563839704558213*^9, 3.5638397404972687`*^9}, {
   3.5638398239280405`*^9, 3.5638399312031765`*^9}, {3.563840014577945*^9, 
   3.5638400676949835`*^9}, {3.5638401105414343`*^9, 
   3.5638401221330967`*^9}, {3.5638401613373394`*^9, 3.563840168990777*^9}, {
   3.5638402066729326`*^9, 3.5638402331264453`*^9}, {3.563840302771429*^9, 
   3.563840436440074*^9}, {3.563840514500539*^9, 3.563840531504512*^9}, {
   3.5638405784992*^9, 3.5638405821144066`*^9}, {3.563840618338478*^9, 
   3.5638406387506456`*^9}, {3.5638407249235744`*^9, 
   3.5638408190029554`*^9}, {3.563840856229085*^9, 3.5638408646885686`*^9}, {
   3.5638410103198986`*^9, 3.5638410835630875`*^9}, {3.563904889849905*^9, 
   3.5639048947221837`*^9}, 3.563905146271571*^9, {3.563905177983385*^9, 
   3.56390518226363*^9}, {3.56390525411874*^9, 3.563905299470334*^9}, {
   3.563905472683241*^9, 3.563905489465201*^9}, {3.563905647569244*^9, 
   3.5639056597809424`*^9}, 3.563905703646451*^9, {3.563905742419669*^9, 
   3.5639057793877835`*^9}, {3.563905869972965*^9, 3.563905882011653*^9}, {
   3.563905928065287*^9, 3.5639059436801805`*^9}, {3.563906210805459*^9, 
   3.563906215908751*^9}, {3.563906296232345*^9, 3.5639063025807085`*^9}, {
   3.563906365490307*^9, 3.5639063658563275`*^9}, {3.563906424897704*^9, 
   3.563906433242182*^9}, {3.563906471104347*^9, 3.5639064759836264`*^9}, {
   3.5639065288356495`*^9, 3.563906529453685*^9}, {3.5639068329810457`*^9, 
   3.5639068636147976`*^9}, {3.563906895527623*^9, 3.563906897037709*^9}, {
   3.563907110560922*^9, 3.5639071121890154`*^9}, {3.563907274969326*^9, 
   3.56390743274035*^9}, {3.5639074760618277`*^9, 3.5639074793070135`*^9}, {
   3.5639075838239913`*^9, 3.5639075917484446`*^9}, {3.5639076912791376`*^9, 
   3.563907827329919*^9}, {3.56390786003179*^9, 3.56390792333441*^9}, {
   3.563908035557829*^9, 3.5639080787833014`*^9}, 3.5639084082481456`*^9, {
   3.563908463246291*^9, 3.563908492127943*^9}, 3.563908626086605*^9, {
   3.563908825166992*^9, 3.5639088270190983`*^9}, {3.563909238651642*^9, 
   3.563909240037721*^9}, {3.563909322232423*^9, 3.5639093344691224`*^9}, {
   3.563909382587875*^9, 3.563909606090658*^9}, {3.5639097046552963`*^9, 
   3.563909707405453*^9}, {3.5639097449105988`*^9, 3.563909747819765*^9}, {
   3.5639097912782507`*^9, 3.5639098366698465`*^9}, {3.5639098902499113`*^9, 
   3.563909890652934*^9}, {3.563909925842947*^9, 3.563909927602048*^9}, {
   3.5639099589818425`*^9, 3.563909959344863*^9}, {3.5639099995731645`*^9, 
   3.563910046916872*^9}, {3.563910148071658*^9, 3.5639101691978664`*^9}, 
   3.5639102340005727`*^9, {3.5639102721207533`*^9, 3.563910351650302*^9}, {
   3.563910421532299*^9, 3.563910510495387*^9}, {3.5639105664275866`*^9, 
   3.5639105760811386`*^9}, {3.5639106580418262`*^9, 
   3.5639106824562225`*^9}, {3.5639107247046394`*^9, 3.563910728398851*^9}, {
   3.563910840744276*^9, 3.563910862496521*^9}, {3.563910926792198*^9, 
   3.5639109604401226`*^9}, {3.563911036075449*^9, 3.563911037511531*^9}, {
   3.563911431340057*^9, 3.563911437320399*^9}, {3.5639114789257784`*^9, 
   3.563911493954638*^9}, {3.563911525254428*^9, 3.5639115374281244`*^9}, {
   3.5639115750762777`*^9, 3.5639115880030174`*^9}, 3.5639116582250338`*^9, {
   3.5639116984503345`*^9, 3.56391176008786*^9}, {3.5639119457344785`*^9, 
   3.563911983828657*^9}, {3.5639125210403843`*^9, 3.5639125490409856`*^9}, {
   3.5639125979987855`*^9, 3.5639126611083956`*^9}, {3.5639128670021715`*^9, 
   3.563912872138466*^9}, {3.5639130702837987`*^9, 3.5639131278820934`*^9}, {
   3.5639132526262283`*^9, 3.563913434192613*^9}, {3.5639134979902625`*^9, 
   3.5639135222086477`*^9}, {3.563913559982808*^9, 3.563913587937407*^9}, {
   3.563913643129564*^9, 3.5639136454726977`*^9}, {3.563913893811902*^9, 
   3.5639139485590334`*^9}, {3.5639139840870657`*^9, 3.563914064888687*^9}, {
   3.5639141429901543`*^9, 3.5639142000144157`*^9}, {3.563914269810408*^9, 
   3.5639142840542226`*^9}, {3.5639143487949257`*^9, 3.563914404738125*^9}, 
   3.563914455294017*^9, {3.56391451899066*^9, 3.5639146165662413`*^9}, {
   3.5639146469249773`*^9, 3.56391465099021*^9}, {3.563914684638135*^9, 
   3.5639146860572157`*^9}, {3.56391471638395*^9, 3.5639148044359865`*^9}, {
   3.5639148449423037`*^9, 3.5639148622662945`*^9}, {3.5639150099297404`*^9, 
   3.563915010347764*^9}, {3.5639151494727216`*^9, 3.5639152487053976`*^9}, {
   3.563915326603853*^9, 3.563915346531993*^9}, {3.5639157813918657`*^9, 
   3.563915788211255*^9}, {3.5639160749616566`*^9, 3.563916084421198*^9}, {
   3.563916863145738*^9, 3.563916867956013*^9}, {3.563916974604113*^9, 
   3.563916998251466*^9}, {3.5639170471642637`*^9, 3.5639170731837516`*^9}, {
   3.563917169124239*^9, 3.5639171692732477`*^9}, {3.563917225221448*^9, 
   3.563917281815685*^9}, {3.5639173866606817`*^9, 3.56391743454642*^9}, 
   3.5639174785899396`*^9, {3.563917530621916*^9, 3.563917555013311*^9}, {
   3.563917726810137*^9, 3.5639177280732093`*^9}, {3.563917953474101*^9, 
   3.5639180072371764`*^9}, {3.563918038582969*^9, 3.5639180432792377`*^9}, {
   3.563918079533312*^9, 3.5639182234085407`*^9}, {3.563918264612898*^9, 
   3.563918265321938*^9}, {3.563918306125272*^9, 3.5639183204030886`*^9}, {
   3.5639183512768545`*^9, 3.563918397598504*^9}, {3.5639186015911713`*^9, 
   3.5639186261025734`*^9}, {3.5639188701865344`*^9, 3.563918974285488*^9}, {
   3.564081080539436*^9, 3.5640811343645144`*^9}, {3.564880574348827*^9, 
   3.5648805849744344`*^9}, {3.5648807151418796`*^9, 3.564880717960041*^9}, {
   3.5648808318375545`*^9, 3.564880834966733*^9}, {3.564880887672748*^9, 
   3.5648809435619445`*^9}, {3.564881002612322*^9, 3.5648810078276205`*^9}, {
   3.564881058793535*^9, 3.5648810605646367`*^9}, {3.564882586727928*^9, 
   3.56488258833002*^9}, {3.5648826193637953`*^9, 3.564882626198186*^9}, 
   3.5648828797036858`*^9, {3.56564819568624*^9, 3.565648236749589*^9}, {
   3.5656482701985025`*^9, 3.5656483646979074`*^9}, {3.565648398269828*^9, 
   3.5656485926029425`*^9}, {3.5657198291658273`*^9, 3.565719836679257*^9}, {
   3.5657199970814314`*^9, 3.5657200092301264`*^9}}],

Cell[BoxData["0.95`"], "Output",
 CellChangeTimes->{
  3.5656482391777277`*^9, {3.5656482762828503`*^9, 3.5656483654439497`*^9}, {
   3.5656483987248535`*^9, 3.565648463977586*^9}, {3.5656484954793873`*^9, 
   3.565648593639002*^9}, 3.5657198376133103`*^9, 3.5657200115412583`*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwNV3k0Vm8QtkdEKVJJQkL6rAmpmUIkO/EhQmWXvSJrWUOEUKn8ZK8sSYVK
lha0aY82Jcv9vu9eKUsKv/vHPe+ZM2fOPPPOc+d5Z61nkO1BHi4uLh5u+qNP
uazZyxdl2rYlqq0JevKEDWZ3F1gOec9DydVLQpBKwNNFOkJ8roux0LhcZu1m
FuzIMr5fYSWF6Vq8hwx2s+Gg2swijUWyWLCkJKZ0AwcslA/+lDRRwJ7H3Btm
+jhw/XVMRJeuEq5Wqlc4bEHCFnGVWr44Vayun92dV0aC99+cC2VMddS+4m61
a5CEoIfDWrUWmhijVThWt5iCk84C62YDtHF50TJ5ax0K9j865qXho4Nf8nfk
utlS0LZghY2/ky5Wls0V/PWhQGNJfP5ouD6+WvXRmBlDgfuvraqWAQboFJz3
wzSTgv8uPpCeytyGr+ZktrHPU9BwSr//pS2i0vEX1fKVFIQ3b7W+YL4d76SL
NkzUU9DaXTae5rID8xapRKq3UOBronfXl2mIqhKDH2raKSiq1Gj09zPCqw0p
cw+6KDj9625C8BFjfCWhlvzhOQVD1RGHfUJ3opERcebdawo6d+YUHj9ugq0l
ix5d/EABt1Xft6x4U9Tq2RKe/YkCru03uYsjd+H+nCgGzwAFqcunLF6mmGH3
uY4u+0EKgp33t0+d2I2VR7j0lw9TMJCgfQDOmOOCvDabtlEKluWe7Uv7zwLb
vpueXMamoHyxSuSj85aYEd26mJ+k7yt0jfH6K1Y45vVjeIii4KJssfRWe2us
lkoIjfxJwd3oGS6fF9boojda+nGcgrW7F/yTd7TB7JKnjTq/KbjxXDn9w2sb
tDoplc2coCDj4Zy6rKstElHNZaGTFOSGjfq5f7TFT6sZy/dNURAtISMm52SH
DpFWRurTFFQp83eHf7VDFRvf0H+0LfCbe0Wbmz1OAtlX8YeCCvX62IvD9gh1
paOWMxQoe1ZbzgbuQStFq7kB2u7f1XR9D2sPTpnZlLj+peDl5aiNEOaAEo/9
fN7S9nSDjYHcuAMmShuSW/5RMH87tDH5kCNOrFX+d4a2d6vvNI6ecESPIF5Z
krYfuar5+ocx8eQ9DRPdWQpq6oKn5ueZuMj3R+dx2u4+3R8y4k2B0QrzzyDI
AtnZW0WzOoJYE9hpMnOTgNRndwf3OCzD9Rumazd1sEBgSprk2ySN6eJV7U4d
bHC6WjsvryKHc9t2eDmmc4ArLkRrDBRxU3BYlsQKEg7/shMfdlFBlLu2eWcM
CYl8ShPrCxkokyKoYvqIBJb7XR8VOw1UvKwm9PUvCdGLj6g6uGqhMeO8bJkC
BZOL24wL/Dahr4funJgxBTne3S7P3Ddjo1dhsJYbBZEZT8JUvPXQufPZx8th
FJjy7Bs4H7wFRVkiMqVJFOgvsK5rbGLitLVBlhtdb5f+iSa29xf4IhT4mbeR
Bd84nzyOTvAizx7bqo9ZBKiQfyavOoljXvD7scpoFigYajg67FiJ655PmGmn
seEL53Vy9aq1aJF+w7DClQOK9v45JwzXYYoVzwa3vxxYNjhiyDRTxuZpwQ5f
LxLchZVt89M34rTm3bplt0hQZijxjrxRx9OCD7Iixuj78VerO/5GE1/X9jyY
WUnB/cb9m7pZ2mjz6sPNga0URC2XH4gb1MF8Lfv3AUwKVneHfjP7qotDJt36
wYcouJNGtbSP66OO3DbMS6Ag/nprRnY+E/urfGp30/VKdUQZcjKnQK801cj8
CgGuIjnvjh8VwZmPcifP/CRgpFowqWG9DBrEpDLi/rDhld/Joxd05VEzou03
dyMHPlQdeb3XYD0aeQxb7dMm4T1P69eIwA3YbWh9zTCHhKpZxcKmUjUsvfRr
2OotCddybZ8FvNDAmztN4s4KUPDb5eurvo9MdCo6QQTTeB5nvDSd8H4OY+Gh
cFGDDUZDwZ2Nr7mRf02BjXYKAf9ml8czXZZgMP+F0XwnFmj5tgjPm65AUbel
sdf82FByyrs7ME8WueTGz2gbc6B528h2iwcK2JAa/TKJxYH9exs+Zrcp4aGN
kud1nEl4dqoq3oJ/I640mmXG15DwOM/1xc4CdbS23v74KEHCeKHweOFpTZx6
FHqDkKBgneCma/uvauNk2b3n6/QpOBT0/DKzXAdjq99MHdpDATXyYEV/kS5G
F2da3fOn4PDTzcpvG/RRKKGWOhZHgULq1MxsIhNt9c6J7KDrnTPWvjdW/Ase
7/Gy3tVLwD2+dfr3HRdia5Ygb9hLAqZe5OjtZazGs01PHDmf2ZAvvPqOe70c
7i2q3FZZzIGAvN8nFO8p4orkNW5860lYfywtsmZQBedAMH02hQTJhIqHwTJq
eODPtnzqGQnmMynne05rICXdQNhwU1CgIbXDtIeJc+Kbn3rTeAoKLL2pzGHo
PhonKWHHgoQJs3l9SQFU1JfZZFdMgAa2PR6N+gtKFRn5jbkE2CRXHgwkmSj0
MH84ko5/qB7iLeDTCpk9qtJrj7Eh3LM5wr6TC5fqWgx5JBMwyF9hxPi4GCUn
Vbq2m7JAP5rLy+6JFIY83rd3iQsb+L6oBzy3pvvnrHYjW5cDfDfKV2gmK2B/
ViHp8J0DJwullDfGKKHXItfUETt6XrwYXa7cror3ry7NlagmQcp0WmfyiDrq
igWkeA+TUFf7R7w0SBNTbDzX2y2lgFm/2rcuQxt9V1hs36ZLgc/5dfzGKToY
Mx8oO2pH+48GbZI/posX70hJ7vOjwJ7q/7IvTx9z/fTS/WPpeRO69Lp2NBPd
WcjYStcbuuD0sdDqn+BRGSkaSRBAxR9iuZkIodbe5eLqnQTMfX+XW1cvjRNC
Hu2GvWyYdhlybQ+Uw04FynVNPgduCjW4CMcpovIpk+E1siRY3iIfmBWrYMQd
1YC64yQ8bR92Ne9n4KXt4XMKPSQUXZPjORaqga/MMj0uzpHgI639J7adicUP
HTT303hiVwp+Gy/+Dl8nbmuOx7Pgekhe3Qd+fnQl+kv0Cggo5ZZJ9k/8Ayk9
XbZ9FwiQC+mULv3BxHyxRYERdHw+Ttb8ynwHg7OXl7RSLFjqt37p8h88+OGN
qXLoSQLSE99xBRVMgF9U9DWHOwTULTvDZkWxwMShc/6fCgusI7ktixQXYFaC
x+RUNc3n2APCPiGzIEQlDRdkEBB/PqNGZ4qJL5zVnGPpfG1Ha0qVfGphxHdC
f7SEDRmy+57JG3DhTpFT8pM0X96nkYpnixZjloovTzWw4B6/fO5sphTyUopf
N9qxQTtFYiuXmizeVDlcL6/JgUoyKanUSwHF1KucGF84cFFnt9VfZyW0j80c
a7Cm5+3PtO/5xaqoecWg610FCff/MyYsfNTRPG6DWN8PEha3BF+uctPEh+NK
B3nFKfjJL/7obbQ2qggtFjDdTIFX/YtNLUd0cK3YSIgCzRcRNDI08dNFP4+m
r9d8KdjBxWgpTdTH+oU2xt/o95ebz3+LXhxhYoFAb4s+Xa+qDzhr1Y7BHdFb
tzumCRCEpUaMVkG0vJSkH3KXgOOBM/edw6TxtcqrJw7dbFDi62H82i2HgheS
nTqyOeBilPMoZp8iNsWcSb4kTYLnnrVsqVgVrD07xj0fR0Ll9xTl5iYGHgvR
+q7bRYLRguDGl54aWLdbMxdnSehd0m6/8h4TK5p7B9xpPD/7D1wKrx6A3LwS
k43nWNCtpidUFcOH5r1Fptb0/+3m+eSAato0mL8N41pXSvffy/YoDDDRcHOX
ahgdH9NRqzxV/AocRZIt2sXYoKr0xH9oLw8q71rzIo1+Pxv9SPqiVvQb5qPV
eyweEqDw9mdVYOIozBiIazhuY4HP5vJy/4sC6Hvm28YjZQQc/SJOKB3+B0rP
Vst203o7kr1y4ctxJo6ZfV0bTefbWyqxOsmcG02fCidH0vy4Xf6tqL5sHJqi
JATtPxGw0OmKQkjBD6jo26pt5MuCcw2U48JT/Bh9xoU75zwBRHFQRXXcDPxI
833uWUjAzJXjzSaBvNhtPl/8g+bnS3lluZqcScgs7yhwaiCAT+amakXAHCR7
YKckzf/l5XO25/8yUbQrKTuexnNLUHlNoM8lCOHl8sy/xQaNec8JybF5MA/e
fOgErVcvd4sXPotejETqQN7+LSyIN7tR9fKQFE4+EB7QsWKDeX9KmZSMLPb5
B+wbYnBgJj2i5ZODAp7TrLol8Ynmc9IBz2+7lPAYZ7WWpBWtV9zOXU+zVNGO
ZdV+s5yEPEt2R6S7Og6uei8lTvP3Pl71V3XQxPD31xKcl1CwTV1kcjRcG1lC
T3c9ofeHAwaKlpNBOpi0sbOyjd4fhi4zzD546OK7bOKzPc3fZsF3So+i9VHd
5tPeCzR/xff7tFyIYGJ94KMEPbre1ML8rlyNMXAUCP7kzMWCZRcPjkkcE8S3
oqFRqs10v6+nv1Ozl8b1z8d29T1kAzK3FghvkcPjk9buYqc4UDOQMHvTShFz
b95v7V9JQkCp/vx8gAp+6ow6eTmW1qvfjmI/Kxmo4Gqyavtjep7fkMyac9bA
z2yF8ux/JCSLpPGMtDDxLqPr9j4azxWDpbGbar8C+Tlc/0AFC96eSm/M1uPD
+Ffv7VJOE9CSI/86Q3ga+orXHS2qIAA9Vigu+sJEx9Yh4VA6fixRZPhodS9U
rL3HCJdlg26KjNQzKR4cyXyg94Tu338SnyyzZX6DbNgFZnUPAZ91ilMZaSPg
svDam1Rav8Lzp23tnAVQwXhQ70MJAa/F/JzSpv/C/OmwDZV0/qL0gVuXxpho
93uG7xidz4fXpytAkBs/Xy1+wKT5K/FOT0RcaRx6f8ZktX8noLPJiVezaBDK
zESPEOEsKBffwTe+ix8zzIMcmGcJMOl9KCnMMwPXmz7d46P5LCD8xktNmRef
torPnksngGEff1pUYhI6b8mlNN0iwMNyUdECahZMfE7VbKf9T4ofcPn+YSIn
9WxEHI0nvk1EziCeC0su6M2dofFwa0ZM9Aj8gdQ7e2sGab2X7YpsnSvmQVHX
tasD0ghYVdsS9fjXP0hWadi/8hQB1sYdwReyubHAz2tJBx1PmquLutfzYlpD
moIN7a/guN3dScwBJ3uVtiQd73llc9nTWSZe2vO7OoHOf/tfbkU6YwdqlNos
q2yiYKu9RiajeSd6vGnesvItBe1XnoX2Gu9GTtbSlb5DFJjwBjDDe62w7W5K
p/wYPY+v8V1KZ9ii0eEIfXF6/1JyerXENdweLZcbbWmn9ymCrySR0eyAMiu7
lcXofaf0PdWXzpDDTZbEY5EMDniZcU70Gm/BjhUV6TsS6fly/vrtdIYmBl19
fpMhSsH/96rRTw==
   "], {{{}, {}, 
     {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl0mO4EAYUBuCbW64t825hLduuZd1qWTfbtt1Wy9aW27Jt27Zt996nH+/5
/n7POScwuE1Q61ABAQGhjZDczWQ6U4PrrGYshbnMckbzgC205xbrGE8WTrGA
QdxnM824yVrG8YQdVOQqK3nBXzxiGx25wwZeMZGn7ORtSG/2MIXndOEem3hN
TW6whpf8zWO284YiXGEFf/KQrXTgNuuZQFZOs5DBNCeIMOxlKl2pRVGyEZZ9
TKMbtSlGds6wiCG0oBLh2M90ulOH38lByHHOisUMpSWVCc8BZtCDuhQnJ+dY
wjBaUYUIHGQmPalHCXJxnqUMpzV/EJFDzKIX9SlJbi6wjBG0oSo/cJjZ9CaY
UuThIv8xkrZUC/j+d5HkEebQhwaUJi+ROcpc+tKQMuQjCseYRz8aUZb8ROU4
/9CfxpSjANE4wb8MoAnlQ1asS0EZnRjEJBbv+ZGfiE0c4vKBeMQnAQn5SCIS
k4SkJOMTgfzMLyTnMylISSp+JTVf+I00pCUdX0lPBjKSiZPMZyBNqUAhLvE/
o2hHda6xijF04i4bmcQzdvGOzHwDnHGBPQ==
       "]]}}, {
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], 
      PointBox[{249, 250, 251, 252, 253, 254, 255, 256, 257, 258}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"S\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.8300000000000001},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5656482391777277`*^9, {3.5656482762828503`*^9, 3.5656483654439497`*^9}, {
   3.5656483987248535`*^9, 3.565648463977586*^9}, {3.5656484954793873`*^9, 
   3.565648593639002*^9}, 3.5657198376133103`*^9, 3.56572001156626*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVlPk7FAobQOlaS4XEYIqGhGsbJAnvi0ZFlH1kybVnzz6WsmUnIUuyZN+y
ptAtS1IRSVQiEkkpWYpUY777/XCe8w+c5+yz9zZ22sLExNTzH/836TK9pGBv
l+bGRoRQbm4b6N1jN5xzYcD1O+18RlmNMLBdhZPFhhsznq4ZlraWg/ZlSmfF
KQKeTbI5s5O1CJzkf20nbxfFZ7wOl77x54CBlNMy/zFxnDVokzW8kg5NI+EB
T1Ql0eLJgw92AqlwhFe6nuWiDG5sXlPekhYPLr/T88uoCjjZNVb1LTwGvHs/
KtUbKGJAqPnyrehISDzDtp/uoYwqmR8ntr4OB4dHoc5kVxWcIbrTlWZp0MUu
aORuqYoTzH/s9SsCgcwTkfXJXw2TLyg4ijT7gd2qhoyhhzr6VF+YZFifhxsF
D4nrKZqoUuPLYeHsBc2pauPDxoiybAcLIx64gX+7xun8k1oovFDOJPbCBTr6
ylYSrLSRzSPq/FMuJzh37PC9c1QdLBPfljnwxB6uV5Jb3N2O4oOR7xKkUju4
snov0ieIgmYh/5bZZtvAXHVAoKuvLmp67VwippyBHt30nKioY2j7ro9ws9gC
mE+9eX854jj6OAQV2x42Ayat28xFtBN4Y2Ii1XuPCcQLrBsMx+nho7wfXwZ3
GYHPGYfu9Wh9HLb53cvdYwjTkcqOcPUkjt1tTPEP1we+jNw3CTcMsJJ3gD5T
dBzKuaVpj/IM8fGugkgtDV3o8hWhHKg5he8FPbvUF3SgQLSIqGF6GrczrPYV
/tKCe2G/mFyHTmMikcfiwFGEffrsf8QsjPD3jHJsMFkDbj2TShobMUKuNRQj
OqlBcu+mgqiNMRIrpzrSag5Bht8nN7sJY8xsjtattT8IYbv37iRZmuDiXv3H
O2yUoEqKtc//nQkalzkyKhzIwPadWbDL1hSjVAnuAYHyUKHQeKHgoykq08JT
P6jJgJR9tSHd0wyr2lxVpOylYPxEW5PZghlWqhbG0OgSMFwSIgt+5jj0fnVw
vFwcfjYbqZNWzPHo3Mq11HoSMFp9W2K9LLCBTT+Ec1kU9BV0KWE/LFCDtUPp
RdBeeGQjf87dj4p2i/y2R3KEoa7BZ53BoGIufW7yUAsB+q6Mn593+QYR7Yol
hiktIEq/c52uwoGlFVLHycK1ED94b9bMnA9ntNnIPF+LgW2duMhykIi0EhZn
ibw8sKytZ4hJk/AmfrIHzqvAdPG80hJIoKhuiftUZRoErprwfrSSxm4tquks
MQliWCR/HMiRQxYXzoFgx1hYsLvnKm1CRo0BgfDehSgI4w6SMbdRQtXSBfLA
/ghY4+6iZLsdxD/RdqPevaGQ7tJnNWh3CD3tb0v9VAoGNfbTDS1tVDSx0+/0
JwrBE7Xoti8uU9DzoTUys+QOvP/69p/gH3+hg/jGP2Lu9SC9uLFWa8mLbUkL
C0uNpSCuQ7Yw1xZCVHs+n9eQD1NfR2Krhffh2luOMbeQLJAwdU+P1tmP8poT
LiHpV4Bvdl6HqieFRxxv6vUnJoPdNinjrCRZNBGR8bvvEwdScpJ/zY8qoG1T
pI5UfTQEuss3RI0qYq4Hi+/0swjobHE42LegjBH5BY5fHodBiIDY9MVZFQw0
5NKxY6dBRFNHcloWFWv2xa03vxICwoMQna8p6+DhoO/1IaIZbLjSX0UFc+GR
2JetrqpV8KEucnjTmB//vAvkHbW7AfPVHJeaD+xFnX+UdzJ35sILt8TgfFUx
tCUETWndy4CxqqARa/UD2MHMublRchleb+l4F+D5N2atjeyg9CXAd6t3L95M
UPFs3IqXhbMgPE4ePv7D5RkY3NCtECpvhaNzPj0tI8wYLDvW+6GgAf7QBSKo
VjxI2VJ/0b+2DJTO3d3GOC6I0aV8FPmRAihOdenzzBTFhNELiS+0s6Fdc17L
4KE4HqgOIfPsTAcH6+aJtC5JzKg2OcZikAKDqVURBqyyuMqecHCaHgePM22G
dLMVsPOiZhf37hhYydm2knNFEXWXc+tiJSNhP8fBmw61yni1cF//mGE4eHk/
K6GWq6Az7/eWDH8aiMev/6LHULGAK1705CFh2KQo318qWoWzfbcatsTcgvss
+9U6LbZiBG/s5Zbr1XD7fqFVtelu3PXmxrqLaDGsD6UftpbbgyW0jlej5dcg
a9uef+0aSXjsHqVnxTYTPDK/R0vcl8Bbv3gpR46kwYHQBFrdrDRyO2uq2vgk
QjaZoH28n4qHiOp7ejoFIfKHHkONnw13yYaLbG+5CZaT457M1F3oEZ7y99Sj
EjCKrXTyXPyvZ90/CtLbBaFX4bwLm2sHhNDYlIDUBv727QGmPUyYbj1i9I7Q
CLOsFUflJrhxcaTttbZCOaiFMTmbPCVgzN+6Pj0ehcAypeDx7LQoarXWi1vX
ZAPLrXJBxVhxNBz/PON/Kh0ScwhSsuGSeHbnKrtEYwrEDH0SkOqWQUrC7FsD
3XggHP+pshakgDM6yidFTsRAQ/0Gb6m3Ig5+Yd3WbxYJ1MY95xqSlXH/XL40
R0Y4uObtZ6XEqeCxut6tu2tpsOa7q0k5jIqk2twrOS7C4Mt+JdS3ehnOq+V6
7uJogW8RXgu2xziR9nF5LYdaA4W9cqIRo3z40VaOwnmpGDZnXmU0NBIxlD7N
0BDJg59WczbdniTUt7qj87spE25zNlttuyiB0eLTzmHn08DwzuJDvSJp5DeL
5xp4mAiuROWNC91UrHg/U+G3KAhN5zMbxlhZUZfZpCkuuQ6059wUX73mxXqZ
SuavaqVAOt9DLP1ARUGSsnTuYUGIyEuuU1mnYlHlvyuc0wToCq4rlXSth/yW
Rrts2zZIFj07KKbOhE47Tmj+bdEIrxMWJXKvc2Nk/+XqSb9yuM8qlkFPIeBI
42f6aHshKMft1mCSF0XDvsHw7nfZULl46VKpszh+4rDaoeiTDgUq+qd+n5FE
JO02ZMykgN1ywkxWkQwOjnOlbLrFQ+cNymcDVwVMmYja9HKIAe67PiVVtopo
OVbGX+MRCcusvI9ehimj+xdGt1dLODg3Dh28G6SCtk/qKrkf08DW9cb2oSAq
5puziU1dFAYZVzijVL8EloP7etP1WoADdh2V6+BA+oaNAFdbDWTqBW5ZuMqH
J1WHDQtaiyHK81fnGT8iKpItNzus80CSpV9uVZ+EJI6x8JG3mWB1NP1R+FkJ
DGGdJnKmpIG92b4vhAvSKFJ69idpORGe83SbCt2n4uRD841zrELQJ3+Ysyqc
BeUOer5Y+lUHKm5NfNq5vPg8yn/8a0ApJDkbB8M0FUcLBM8snhKE+TShrcMr
VPQxjdXhXieAQPmmcd5vKl6kpcgI9BPgDoeUiKdrIcx4TllSwtqAzLD/wb/E
gG9KxVtKAhthWJ83ZzCMG/PeiywLZ5VDhN6tqmEvAvI/uMVt8r4QTo7HlRH2
iuJ78sRCx+9s+JUUcPetuThuZQqVuBWRDpWXHO3fn5BE8yn+bwX0/37FfObJ
wGUZnJ3M+RYQHg+Zhl8e0OwU8O2FSzJVPjHQibXuMub//Z9CeiAdHAmaClxr
n/yVUauBSrjdGw6O6hKGa94q+Npb3WLPSxrwOrjezQ+gYkqmbOLWZGGIz8l6
kkFeAmK/FPdn9xbgK3Ba2h3KgaOlVaLzn2ogleuan2ggH44nneu8O1wMR5uS
XsmbEtHb2vHsy9A8QKpG9rYjJJzcuJkatJoJddOR9NunJPDzVuXNz9fSwKNU
jcHwkMZZOy6RNbYkiOVK2DJ/l4o5HYynX7iF4GVqUkvaYRYkMYd+GFKsBwWZ
l5eCaLzIw1MxNJhRCviPoMT2KSqyJ/Q6i1oJwvWk6TuFS1TcWpn4UGiLIDwt
esh0boOKOyd9RXa8JIB9zaGyAToV72v1CezvJICz3tfo55Qj+N3+p8fHdl9o
/ZNRkSSnjWveN4x7opxAw5ScIteui16+Xc2qjy2hu2bQ9zlFH5+T1Ufnck/B
sb88qP7PT+Fh7tlPEkU64HyTpTBJzhg/r1fv2MxVBUnLFzw2/qZolMnL6F+V
g88sxTFy7eboUtcudiFFDEpff3uTJEdCVspXlfS/roJ1XlNrkpwirrUNnQhs
iIT/AUKkihw=
   "], {{{}, {}, 
     {RGBColor[1, 0, 0], 
      LineBox[{1, 160, 134, 109, 85, 64, 51, 173, 147, 122, 98, 77, 2, 161, 
       135, 110, 86, 65, 181, 155, 130, 106, 52, 174, 148, 123, 99, 78, 3, 
       162, 136, 111, 87, 66, 182, 156, 131, 107, 53, 175, 149, 124, 100, 79, 
       4, 163, 137, 112, 88, 67, 54, 176, 150, 125, 101, 80, 5, 164, 138, 113,
        89, 68, 55, 195, 177, 151, 126, 102, 81, 6, 165, 139, 114, 90, 69, 56,
        178, 152, 127, 103, 82, 7, 166, 140, 115, 91, 70, 57, 179, 153, 128, 
       104, 83, 8, 167, 141, 116, 92, 71, 58, 9, 168, 142, 117, 93, 72, 59, 
       196, 10, 169, 143, 118, 94, 73, 60, 11, 170, 144, 119, 95, 74, 61, 12, 
       171, 145, 120, 96, 75, 62, 13, 14, 187, 15, 16, 17, 18, 188, 19, 20, 
       21, 22, 23, 189, 24, 25, 26, 27, 190, 28, 29, 30, 31, 32, 191, 33, 34, 
       35, 36, 192, 37, 38, 39, 40, 41, 193, 42, 43, 44, 45, 194, 46, 47, 48, 
       49, 172, 146, 121, 97, 76, 63, 180, 154, 129, 105, 84, 183, 157, 132, 
       108, 184, 158, 133, 185, 159, 186, 50}]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], 
      PointBox[{187, 188, 189, 190, 191, 192, 193, 194, 195, 196}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"I\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5656482391777277`*^9, {3.5656482762828503`*^9, 3.5656483654439497`*^9}, {
   3.5656483987248535`*^9, 3.565648463977586*^9}, {3.5656484954793873`*^9, 
   3.565648593639002*^9}, 3.5657198376133103`*^9, 3.56572001157226*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVl3c4FnwXx5E9SjxZCSHzdhtlPnJOmRGV1W0m886IJCNCZWZlZCSyN9nr
lhAJESoVlcIjKRllpOT1/nX+/F3Xub7f8/n8Dtp7GjvRUFFRsVBTUf1/Cids
5WcLdGpQCZ47RXCM0dB/yGA067INWtO62Y3irTDIpsREa8OO4+7G0wXzrXA8
Qbuj+BQPTmc1TaXkN4CT7CabPJsQ+lalygtlVYOhpNMyl64oMj+jV21kKIXa
l9eu9KlIYEZMUGBPXj78yyH1gDaEgF/0/zhdobsPLr+TsgpJcsjfvKXxQTkD
PJ98PvzAUAH3Gxv5MEjcgVuW9Ie23I9gUJrC7MajRHDoDXSWJyuhXEuB3DHf
eOhk4D3jZqGCFilvjHw8boH83tDULz5qaDDwccx2OALsfhwlGLmr43ZyQbnO
9k3Ize7hX4/TwOb7Io2WbtehLl5tYtQY0dFFVM81Nhh8Wo+ezjp5DFXLnTdS
9gfCo/7ClWir47h3W1nB5pMfXNBVfXiBpIkXxhY1KzSvwL0S+QY3Vy1kbC8v
Wez3hsQfD697+Wnj/BodOFV6wWzZFV+ytw5y76rPmvjkAd06Sek3buii8/N1
p6kEV6A+NT6VEKqH5ry/vN+NugDVsUbqnIATGCyz/ZDX0wmiuNcNRyP1scp5
vsfooAN4WTp0rd80QOngvsFO5fPw6foRR7hzEq33bCvmtdvCP8kZ49G5hsi2
dMYzIMIKitilAnozjfDaa+WOo69J0OktqC1efgrZ4wNfJqqbQ7ZQDv9R09MY
XijkMbDHFB4GbVKRh0/jcgPtjTxRYzhowPBH5OwZFMmV0VTSOQ31zyVj3r48
g5vqSrHyboYQ++SvnJCNMd69KtqYc04fki9/cbV7Z4zzpTqihqO6ELRPYI+w
hQm271m1cbmtDaWSdP0+H03Q4i+jlb21JtD/pObttDXF4r1q39ZuHINiuZrg
7M+mKKUKnOgGIGlfZrTlYYa/uTK+bmiow8SJllqzr2aIyaQ6uRRVGM2/KgOX
zXHhhHaX0S8l2Kg7oy68Yo5CRnkZT54ege1m74aIi2exsbn/V8ZrBTCQ09EO
Wj2L/Tx3uFmW5aDXRvaC22USSlayKHo+IEJVtdf69jYJ59x/t+wLkIb+xIlL
cy6LoBfo7lorVwtCW033tpQYsbK998AdtTaIGno4Y2b+D+qEUz73eTYD/Tr/
d1pFfiw9rnSG/LcWLCoebItICWOsp8v8l54KoAq5dHgJxPCsxbqxMl8R+P4w
4fhsJYVmA9xeDo65EEYrsSqeTkQvsiupfSYTvto9JEuZyCNPfUjm/t1pEMTu
RzC3OYxdjgUmV0jJsMbeqZ3mqohuNZmaju63Icml32rIThk3hFh6xC1iISD2
2WUpF1VsjxXsaoiKAj2ac58yvf7FduXwCAopHNQYTlc3tJDwT3L/+AijDPSp
3Wz55jIJLqkP92WQC2Fq4f15/9VdWN/jRRs9QAGp77/WKiw40K1BZ1dHZwuI
asqfNT/Oh0SVA1VK+vUwufAyomz/QZybUCCZz1WBmKlb0k3NQyg2923/x9Bi
+GdmTpOkL4kC+3v+VPvmgR2LpHFqjAxO3X5cxeyUBZJEiV1zr+RQ959spxbe
dPB1k62+8UoBHw5FxjWqpEBHg4Ni/9cj+HchiyV+byJc5Rb5FDKjhGEr7n28
5+PgQL/3lP5HFfT3p0oXuxINbdGLlK4VNZRxNL+YwB4BobWPYm+nkjAlJDtA
9q0M8Dy+qrkQtw7dVz09mkWbwIY16fUNf1b8+/KaseBrCsyVMYbXiQtg7dZ3
XfruGnjhess/S0UEHYVkumGkDN6W+r20VhdHunKGG6wjBfCG5tHHKx7SGBKu
8/nwhRwo3RJLbymQxXnB33Gnr9+FymTjIfdhefTbnlGx5UyFn1YfX4y/IyHX
QsduggYBnsaO6q26PIfYd6k+g4fTQGvWq7vhJTWajntU+IlT4M8WdyjJai/q
muDl3TatcPgChWVbjxctZgU1olbrIS/epd8jRQiD1J57FNFVQ6vG3DHDHlF0
EbwKfFgCDtZ17253SqCqxlN1M6Z8GIovDTWkk0GLjSRtWvlseJpiM6yTJofN
DUpptkXpsJLOspKeqICsjJZ8zlUpcIhRsdKh4giOvLG/k+CSCBc9n+eTipSw
0jxTduNLHCzO9fBO3FPB0gTP1O7FaPAdVJYcq1NDqr4AOi/PCBCNWt/cCiNh
dYrYyduaRPirfaR9KecHGEfyPKtdrod22kNqHWeZsdV/Q5BNoA3Wh5NUrYkH
sMK0bGDSthZSWQ602dUIo5GVSR3Nk3JwT/l5U6xdDJ8LBQfyexeCeGB0QNWM
FDo7u1Ozz+QA1/XiJ14Csji1LdGWKZsJJzcjMwcS5dHJa96/JT4V0uR5jusN
kHBlRD60P48AaWlGLotxn6GEtYztV2YlXF/V31bjosej6ad6J4XbQB47n365
+hvqPNqzpyea4Q/nto92xm4cC1Y2g4sUOBNR4uTxfed+7D0YuDwuDU/kLrnQ
kx/BydMZ1o8ORYGPfesV024qHJjqDGSvb4UZumIt4jv2nT4b6A8XtoJaEJWz
yTMejJRfotI62QC0k3Luz08LYf8xC7P809VAW1/EqxAhiudSrheM5ZXArXQe
SZlrEhjtpLAhY5YPYcNfuCW7CEgrkl4ldjcbePQ2lNb85DBnzcE95Hs6VD/4
xVHgqYBSbxTiG+ZTgFRz4EJ17BEcJzUMXElOBHLmITrtSCX88ZT/XKVsPJD8
PRVFAlVQg8CSpEK8BaaLE5PnUtSwbkavtOB+BKx5c9YeCSJhzH9BJacCiODN
kBjoXbYMvjcyBEQL6mAx9OJXW10mvC/17IeCQhv8nX6dXF3Dj2Ny2+4cVbWw
YTVr0+UhjIN0CiGxWhXQyFRnxRIihjO3uEiaPYVg1PS9Rz9HClVEODbDRXJh
sOuzzckJIvrRHz5zMjoT7lUK0wR6y+NIjHLr7GAqkPmP/AruIiF/f/6jnFcE
COZjnFrJmYa3n/6eH6zd8ZFLKdVv6ejQg7C+Z3GbAgXUAhFuYb+As0VJoml3
MxBu64nNRLFh+C7Lae8iCghf6uYv+I+EYQbfMuxZCZCKa1U/4l7Dnag/+neb
coDTVZyT+z8aJPc6hf++SYGYsNdUnmmr8FGnQ7xvfyPER01EHSSzoFK8LKPp
znvV/9z59vXqV+Db/BD9NqUaTgdQG90TY0Dq35Su74pt0B7syEK+tAXMY10V
EN8CA2kNj4tK9+Cr7cw1O1kKhGbGVimtk/CN00/2N6XS0OlfVSBBfgDF1bJX
v+X6Q6zQuSERdSq0S9ApFLnUCm+iv4tl3GPHmp6LaR1PW6GdTiR5K44HbScM
Qyb8GuBI5L6jVLJCmL0+/rLGtxpKvoeHFziLouFVsKV+VQLZSganfltK4MxI
nkhnYD7YLUdPp+YQMFR6JjHyeTZ05GrPG5Ll8FmxUSY9ZwawU7zyS20VcLMl
/vlRpjuwTMfROxZ0BPkmNeLySxPBuWZYkeKnhDqjBfITxvHAilqauq4qOH5J
SPOh4S04TkWkFISpoRtKLC41RYAtOZdt2I+E4uKctiYpRCCQwfLwgyWooxzy
ObVYC4zAqUV8xIihjKJCS8ptcMNjs8PyMj+uWQ9n8I7VggTtAPGHgTBKl5dK
fAyrACutpN5r58TQO1eZ8eZiIdibHfzGEyyFTwM/CPdq5kLJdKRkawsRlzcY
PZ41ZoIWg1fDqL08rgUtvJhcSIWRvV2mfO0kJH4u/SyzSIDlCcf7PmWfgGA6
FCB7txj6ZVWZSq/R4q4J+zN0cxSwtX/mSIjeAIGKwLzLWU2gZbQQXEfFhnLn
JJ8/fbSTF2djf/hEwuLOYFA/RIBrjx9Irue8gPqbFvYXPe4BQeKZ26w1DVL3
ltX6kiig9V/4pOy9n+B/S1CbIaYBinRCPy1NMuN8kbL68p42EB1bLvUI+wIe
F7QuffN4AGTloiK3bHoUoBn4pk9sA/9JjnkJ3z/gheQTJ1VaYMbMkt/34B4c
m7gO6ad2eHebj3l0ZSdfaXFvLbqkwbpg34Hwk9TIdYkw0rHUCmNdfUkJz5nw
Dgx+DJNsg7t1i2eZ4+lQ4n3I+SDONpjP8SwuC9mEZ3WMk0/8m2Gz/Earrscu
tBxsZdUso4Bvv5Kc8RILFnBoc5O+UUCFYr36rIoBdwftrt9QbQPuor/Gmb9J
mC8kweaeKA1NjJKCHuT78HV4d/fKRzLIb9uvci1tQ9GJvJhjhq0wasCRPhTE
jga9Dnav3rZCqH596ehFHgy873O4Pq4BTk5EFvIICGFGSiHT++hq2Iy5Qnlv
LopU5rLe+t9LoCTc0X7qxA4Pvaw4FBN2eEht2TeYQMDBQ0rt7vPZkGL07XGA
nRwmP24xIh/KgA6scCOYKyD/UB35Ls8d0JBjXfvis+Mjd/Swrz4RHNXFjNY8
lVDC2Vwk0jEeZvOJ+m/Pq+CHDhq/JJtb0Mr4WqI3SA2JS6NlIt0RwOFApmRd
IaHCJJvWh1wiRKWn9iXLLwEfjTktJNbCjgYt7QtkxLeNfPwlO/vRqo15LWvK
jzGeOTwq87WApKNpLP8KY+HdjMNGhRVQ9en6VuMpMeRJHA8boi0C9wK17W13
KWzKuD3MZJoLXD/P7lkuIeJ+SN/bNJgJPPVcCX8t5VHRKcBsdSsVIlijaeYo
JJzdl0K/9ZsA5eqcwYoPPsLC1Muh+LAiGIuPabitSosXpgO/W49TgJIk8jKW
ZQO+7zCMyb4JTleCdGYbKxod05pu2PFFPM8rxjZJwi3mYrsaeQIshbF+9i8b
Aa6ZpOSa1xmgEinAM8RDg2X2IVplSIHcfe+Nbgv8hLu8SWuXoQFqC0fj3mQy
46LO2etnuNvgg1JOFDF6DmiYDfQeR1aBT+qGsYklPbLFndfdu5PHl3tcLaI3
fkMHA1/0PHMLLNVXPLV5vxtN3tr5C56jwL2YT033l0gorbS6kDckDeRd5D53
Rmq83nSInvCiFaYO8oNfDBO6acklK+/0pYjjOO3KCTrsXZhj12BuA92RJ1ws
NJvA7aBpkqu14/ssr5xlJXchqYFK9HEaBW5IRr9TrWDBaCOhdsG1nb7yPcit
d2XAy4YSCo4qbfAsp4fqwi8Sng1sOns/Sxr+THak6exiwmjDdj7v/9//4Vnr
zk5alA6pZY/+SQGhvoBHf3NoUKd6NXlmxy/ufpZRZBJlQYIiff4SQxtYvzHZ
vDlFjyHVkuNJO3ztd/CbLeZkxt6O8G5B0TaIN80qFx6lQ6EECeXq/W1AsGY+
8d/KTt+sdr+s2fm/2JcrFw5ukdCorIOoES4NzX+Si2OIx7Gc+L4y2dUfjprK
xxFbdbBh+sTXYmoP6Cof8h7RNsBu2oPK7tXnQXeXO8ln5BTu8UoKdJgzA+dK
2vsxRGNkJI8Ic7sagITFi702Pqb4gvfDoqDaMZinzQsjtpqjRdqZrJVHilDw
ZnE8hiiMiwEzZq4PK8BZf+HmiPa/6K37oUI9LRysM2ubY4gKeOrNkF2U/R34
Hyx7oIU=
   "], {{{}, {}, 
     {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwl0lW0FlUABeCf7k4puYA0SLeogLR0d4vEvXSHCtLSrXSjdHdIgwWCdHe3
gtQ3i4dv9lp7HuactSesRUSN8EihUCiOR5CHmUFPGnCTzUykFFdYxxi6cJft
TCU/p/mFIXzNbbYymepcYwPjeMo+unGfnUwnMkeYSS8e8SsNucUW/mcSz9hP
aa6ynpeM5Ql7eUtX7rGD10zjXw4SXLyAOMMyXjCUx+zhDe24wzZeMYXnHKAG
19nIeLrzgF38SBR+Yxa9aUQZChKV35lNHxrzBYU4y3KG0Z6aROMP5tCXJpSl
MLHc45xcwXA6UIvo/Mlc+tGUchThPCsZQUdqE4O/mEd/mlGeolxgFSMJpw4x
Ocp8BtCcChTjIqsZRQR1g3NyjAUMpAUVKc4l1vADnagXev9vxpZ/s5BvaEkl
SgTvOc4ivqUVlfmEuJxgMd/Rmi8pSTz+YQmDaEMVPiU+J1nKYL6iKrGd5TOZ
gIQkIjGR9UlkUpKRnBTB9vqU8gNSkTrYXJdGpiUdH5I+2FYfJjOQkUzBdrqP
ZGaykJVswUb67DIHOckV7KDLLT8mD3k5xc98T1uq8TmXWctoOlOfG2xiAj14
yG5+4j8OEck38sl3cpSBjg==
       "]]}}, {
     {RGBColor[0, 
       NCache[
        Rational[2, 3], 0.6666666666666666], 0], 
      PointBox[{258, 259, 260, 261, 262, 263, 264, 265, 266, 267}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"R\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.5656482391777277`*^9, {3.5656482762828503`*^9, 3.5656483654439497`*^9}, {
   3.5656483987248535`*^9, 3.565648463977586*^9}, {3.5656484954793873`*^9, 
   3.565648593639002*^9}, 3.5657198376133103`*^9, 3.5657200115802603`*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwNV3k0Vm8QtkdEKVJJQkL6rAmpmUIkO/EhQmWXvSJrWUOEUKn8ZK8sSYVK
lha0aY82Jcv9vu9eKUsKv/vHPe+ZM2fOPPPOc+d5Z61nkO1BHi4uLh5u+qNP
uazZyxdl2rYlqq0JevKEDWZ3F1gOec9DydVLQpBKwNNFOkJ8roux0LhcZu1m
FuzIMr5fYSWF6Vq8hwx2s+Gg2swijUWyWLCkJKZ0AwcslA/+lDRRwJ7H3Btm
+jhw/XVMRJeuEq5Wqlc4bEHCFnGVWr44Vayun92dV0aC99+cC2VMddS+4m61
a5CEoIfDWrUWmhijVThWt5iCk84C62YDtHF50TJ5ax0K9j865qXho4Nf8nfk
utlS0LZghY2/ky5Wls0V/PWhQGNJfP5ouD6+WvXRmBlDgfuvraqWAQboFJz3
wzSTgv8uPpCeytyGr+ZktrHPU9BwSr//pS2i0vEX1fKVFIQ3b7W+YL4d76SL
NkzUU9DaXTae5rID8xapRKq3UOBronfXl2mIqhKDH2raKSiq1Gj09zPCqw0p
cw+6KDj9625C8BFjfCWhlvzhOQVD1RGHfUJ3opERcebdawo6d+YUHj9ugq0l
ix5d/EABt1Xft6x4U9Tq2RKe/YkCru03uYsjd+H+nCgGzwAFqcunLF6mmGH3
uY4u+0EKgp33t0+d2I2VR7j0lw9TMJCgfQDOmOOCvDabtlEKluWe7Uv7zwLb
vpueXMamoHyxSuSj85aYEd26mJ+k7yt0jfH6K1Y45vVjeIii4KJssfRWe2us
lkoIjfxJwd3oGS6fF9boojda+nGcgrW7F/yTd7TB7JKnjTq/KbjxXDn9w2sb
tDoplc2coCDj4Zy6rKstElHNZaGTFOSGjfq5f7TFT6sZy/dNURAtISMm52SH
DpFWRurTFFQp83eHf7VDFRvf0H+0LfCbe0Wbmz1OAtlX8YeCCvX62IvD9gh1
paOWMxQoe1ZbzgbuQStFq7kB2u7f1XR9D2sPTpnZlLj+peDl5aiNEOaAEo/9
fN7S9nSDjYHcuAMmShuSW/5RMH87tDH5kCNOrFX+d4a2d6vvNI6ecESPIF5Z
krYfuar5+ocx8eQ9DRPdWQpq6oKn5ueZuMj3R+dx2u4+3R8y4k2B0QrzzyDI
AtnZW0WzOoJYE9hpMnOTgNRndwf3OCzD9Rumazd1sEBgSprk2ySN6eJV7U4d
bHC6WjsvryKHc9t2eDmmc4ArLkRrDBRxU3BYlsQKEg7/shMfdlFBlLu2eWcM
CYl8ShPrCxkokyKoYvqIBJb7XR8VOw1UvKwm9PUvCdGLj6g6uGqhMeO8bJkC
BZOL24wL/Dahr4funJgxBTne3S7P3Ddjo1dhsJYbBZEZT8JUvPXQufPZx8th
FJjy7Bs4H7wFRVkiMqVJFOgvsK5rbGLitLVBlhtdb5f+iSa29xf4IhT4mbeR
Bd84nzyOTvAizx7bqo9ZBKiQfyavOoljXvD7scpoFigYajg67FiJ655PmGmn
seEL53Vy9aq1aJF+w7DClQOK9v45JwzXYYoVzwa3vxxYNjhiyDRTxuZpwQ5f
LxLchZVt89M34rTm3bplt0hQZijxjrxRx9OCD7Iixuj78VerO/5GE1/X9jyY
WUnB/cb9m7pZ2mjz6sPNga0URC2XH4gb1MF8Lfv3AUwKVneHfjP7qotDJt36
wYcouJNGtbSP66OO3DbMS6Ag/nprRnY+E/urfGp30/VKdUQZcjKnQK801cj8
CgGuIjnvjh8VwZmPcifP/CRgpFowqWG9DBrEpDLi/rDhld/Joxd05VEzou03
dyMHPlQdeb3XYD0aeQxb7dMm4T1P69eIwA3YbWh9zTCHhKpZxcKmUjUsvfRr
2OotCddybZ8FvNDAmztN4s4KUPDb5eurvo9MdCo6QQTTeB5nvDSd8H4OY+Gh
cFGDDUZDwZ2Nr7mRf02BjXYKAf9ml8czXZZgMP+F0XwnFmj5tgjPm65AUbel
sdf82FByyrs7ME8WueTGz2gbc6B528h2iwcK2JAa/TKJxYH9exs+Zrcp4aGN
kud1nEl4dqoq3oJ/I640mmXG15DwOM/1xc4CdbS23v74KEHCeKHweOFpTZx6
FHqDkKBgneCma/uvauNk2b3n6/QpOBT0/DKzXAdjq99MHdpDATXyYEV/kS5G
F2da3fOn4PDTzcpvG/RRKKGWOhZHgULq1MxsIhNt9c6J7KDrnTPWvjdW/Ase
7/Gy3tVLwD2+dfr3HRdia5Ygb9hLAqZe5OjtZazGs01PHDmf2ZAvvPqOe70c
7i2q3FZZzIGAvN8nFO8p4orkNW5860lYfywtsmZQBedAMH02hQTJhIqHwTJq
eODPtnzqGQnmMynne05rICXdQNhwU1CgIbXDtIeJc+Kbn3rTeAoKLL2pzGHo
PhonKWHHgoQJs3l9SQFU1JfZZFdMgAa2PR6N+gtKFRn5jbkE2CRXHgwkmSj0
MH84ko5/qB7iLeDTCpk9qtJrj7Eh3LM5wr6TC5fqWgx5JBMwyF9hxPi4GCUn
Vbq2m7JAP5rLy+6JFIY83rd3iQsb+L6oBzy3pvvnrHYjW5cDfDfKV2gmK2B/
ViHp8J0DJwullDfGKKHXItfUETt6XrwYXa7cror3ry7NlagmQcp0WmfyiDrq
igWkeA+TUFf7R7w0SBNTbDzX2y2lgFm/2rcuQxt9V1hs36ZLgc/5dfzGKToY
Mx8oO2pH+48GbZI/posX70hJ7vOjwJ7q/7IvTx9z/fTS/WPpeRO69Lp2NBPd
WcjYStcbuuD0sdDqn+BRGSkaSRBAxR9iuZkIodbe5eLqnQTMfX+XW1cvjRNC
Hu2GvWyYdhlybQ+Uw04FynVNPgduCjW4CMcpovIpk+E1siRY3iIfmBWrYMQd
1YC64yQ8bR92Ne9n4KXt4XMKPSQUXZPjORaqga/MMj0uzpHgI639J7adicUP
HTT303hiVwp+Gy/+Dl8nbmuOx7Pgekhe3Qd+fnQl+kv0Cggo5ZZJ9k/8Ayk9
XbZ9FwiQC+mULv3BxHyxRYERdHw+Ttb8ynwHg7OXl7RSLFjqt37p8h88+OGN
qXLoSQLSE99xBRVMgF9U9DWHOwTULTvDZkWxwMShc/6fCgusI7ktixQXYFaC
x+RUNc3n2APCPiGzIEQlDRdkEBB/PqNGZ4qJL5zVnGPpfG1Ha0qVfGphxHdC
f7SEDRmy+57JG3DhTpFT8pM0X96nkYpnixZjloovTzWw4B6/fO5sphTyUopf
N9qxQTtFYiuXmizeVDlcL6/JgUoyKanUSwHF1KucGF84cFFnt9VfZyW0j80c
a7Cm5+3PtO/5xaqoecWg610FCff/MyYsfNTRPG6DWN8PEha3BF+uctPEh+NK
B3nFKfjJL/7obbQ2qggtFjDdTIFX/YtNLUd0cK3YSIgCzRcRNDI08dNFP4+m
r9d8KdjBxWgpTdTH+oU2xt/o95ebz3+LXhxhYoFAb4s+Xa+qDzhr1Y7BHdFb
tzumCRCEpUaMVkG0vJSkH3KXgOOBM/edw6TxtcqrJw7dbFDi62H82i2HgheS
nTqyOeBilPMoZp8iNsWcSb4kTYLnnrVsqVgVrD07xj0fR0Ll9xTl5iYGHgvR
+q7bRYLRguDGl54aWLdbMxdnSehd0m6/8h4TK5p7B9xpPD/7D1wKrx6A3LwS
k43nWNCtpidUFcOH5r1Fptb0/+3m+eSAato0mL8N41pXSvffy/YoDDDRcHOX
ahgdH9NRqzxV/AocRZIt2sXYoKr0xH9oLw8q71rzIo1+Pxv9SPqiVvQb5qPV
eyweEqDw9mdVYOIozBiIazhuY4HP5vJy/4sC6Hvm28YjZQQc/SJOKB3+B0rP
Vst203o7kr1y4ctxJo6ZfV0bTefbWyqxOsmcG02fCidH0vy4Xf6tqL5sHJqi
JATtPxGw0OmKQkjBD6jo26pt5MuCcw2U48JT/Bh9xoU75zwBRHFQRXXcDPxI
833uWUjAzJXjzSaBvNhtPl/8g+bnS3lluZqcScgs7yhwaiCAT+amakXAHCR7
YKckzf/l5XO25/8yUbQrKTuexnNLUHlNoM8lCOHl8sy/xQaNec8JybF5MA/e
fOgErVcvd4sXPotejETqQN7+LSyIN7tR9fKQFE4+EB7QsWKDeX9KmZSMLPb5
B+wbYnBgJj2i5ZODAp7TrLol8Ynmc9IBz2+7lPAYZ7WWpBWtV9zOXU+zVNGO
ZdV+s5yEPEt2R6S7Og6uei8lTvP3Pl71V3XQxPD31xKcl1CwTV1kcjRcG1lC
T3c9ofeHAwaKlpNBOpi0sbOyjd4fhi4zzD546OK7bOKzPc3fZsF3So+i9VHd
5tPeCzR/xff7tFyIYGJ94KMEPbre1ML8rlyNMXAUCP7kzMWCZRcPjkkcE8S3
oqFRqs10v6+nv1Ozl8b1z8d29T1kAzK3FghvkcPjk9buYqc4UDOQMHvTShFz
b95v7V9JQkCp/vx8gAp+6ow6eTmW1qvfjmI/Kxmo4Gqyavtjep7fkMyac9bA
z2yF8ux/JCSLpPGMtDDxLqPr9j4azxWDpbGbar8C+Tlc/0AFC96eSm/M1uPD
+Ffv7VJOE9CSI/86Q3ga+orXHS2qIAA9Vigu+sJEx9Yh4VA6fixRZPhodS9U
rL3HCJdlg26KjNQzKR4cyXyg94Tu338SnyyzZX6DbNgFZnUPAZ91ilMZaSPg
svDam1Rav8Lzp23tnAVQwXhQ70MJAa/F/JzSpv/C/OmwDZV0/qL0gVuXxpho
93uG7xidz4fXpytAkBs/Xy1+wKT5K/FOT0RcaRx6f8ZktX8noLPJiVezaBDK
zESPEOEsKBffwTe+ix8zzIMcmGcJMOl9KCnMMwPXmz7d46P5LCD8xktNmRef
torPnksngGEff1pUYhI6b8mlNN0iwMNyUdECahZMfE7VbKf9T4ofcPn+YSIn
9WxEHI0nvk1EziCeC0su6M2dofFwa0ZM9Aj8gdQ7e2sGab2X7YpsnSvmQVHX
tasD0ghYVdsS9fjXP0hWadi/8hQB1sYdwReyubHAz2tJBx1PmquLutfzYlpD
moIN7a/guN3dScwBJ3uVtiQd73llc9nTWSZe2vO7OoHOf/tfbkU6YwdqlNos
q2yiYKu9RiajeSd6vGnesvItBe1XnoX2Gu9GTtbSlb5DFJjwBjDDe62w7W5K
p/wYPY+v8V1KZ9ii0eEIfXF6/1JyerXENdweLZcbbWmn9ymCrySR0eyAMiu7
lcXofaf0PdWXzpDDTZbEY5EMDniZcU70Gm/BjhUV6TsS6fly/vrtdIYmBl19
fpMhSsH/96rRTw==
       "], {{{}, {}, 
         {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl0mO4EAYUBuCbW64t825hLduuZd1qWTfbtt1Wy9aW27Jt27Zt996nH+/5
/n7POScwuE1Q61ABAQGhjZDczWQ6U4PrrGYshbnMckbzgC205xbrGE8WTrGA
QdxnM824yVrG8YQdVOQqK3nBXzxiGx25wwZeMZGn7ORtSG/2MIXndOEem3hN
TW6whpf8zWO284YiXGEFf/KQrXTgNuuZQFZOs5DBNCeIMOxlKl2pRVGyEZZ9
TKMbtSlGds6wiCG0oBLh2M90ulOH38lByHHOisUMpSWVCc8BZtCDuhQnJ+dY
wjBaUYUIHGQmPalHCXJxnqUMpzV/EJFDzKIX9SlJbi6wjBG0oSo/cJjZ9CaY
UuThIv8xkrZUC/j+d5HkEebQhwaUJi+ROcpc+tKQMuQjCseYRz8aUZb8ROU4
/9CfxpSjANE4wb8MoAnlQ1asS0EZnRjEJBbv+ZGfiE0c4vKBeMQnAQn5SCIS
k4SkJOMTgfzMLyTnMylISSp+JTVf+I00pCUdX0lPBjKSiZPMZyBNqUAhLvE/
o2hHda6xijF04i4bmcQzdvGOzHwDnHGBPQ==
           "]]}}, {
         {RGBColor[0, 0, 
           NCache[
            Rational[2, 3], 0.6666666666666666]], 
          PointBox[{249, 250, 251, 252, 253, 254, 255, 256, 257, 
           258}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwVlPk7FAobQOlaS4XEYIqGhGsbJAnvi0ZFlH1kybVnzz6WsmUnIUuyZN+y
ptAtS1IRSVQiEkkpWYpUY777/XCe8w+c5+yz9zZ22sLExNTzH/836TK9pGBv
l+bGRoRQbm4b6N1jN5xzYcD1O+18RlmNMLBdhZPFhhsznq4ZlraWg/ZlSmfF
KQKeTbI5s5O1CJzkf20nbxfFZ7wOl77x54CBlNMy/zFxnDVokzW8kg5NI+EB
T1Ql0eLJgw92AqlwhFe6nuWiDG5sXlPekhYPLr/T88uoCjjZNVb1LTwGvHs/
KtUbKGJAqPnyrehISDzDtp/uoYwqmR8ntr4OB4dHoc5kVxWcIbrTlWZp0MUu
aORuqYoTzH/s9SsCgcwTkfXJXw2TLyg4ijT7gd2qhoyhhzr6VF+YZFifhxsF
D4nrKZqoUuPLYeHsBc2pauPDxoiybAcLIx64gX+7xun8k1oovFDOJPbCBTr6
ylYSrLSRzSPq/FMuJzh37PC9c1QdLBPfljnwxB6uV5Jb3N2O4oOR7xKkUju4
snov0ieIgmYh/5bZZtvAXHVAoKuvLmp67VwippyBHt30nKioY2j7ro9ws9gC
mE+9eX854jj6OAQV2x42Ayat28xFtBN4Y2Ii1XuPCcQLrBsMx+nho7wfXwZ3
GYHPGYfu9Wh9HLb53cvdYwjTkcqOcPUkjt1tTPEP1we+jNw3CTcMsJJ3gD5T
dBzKuaVpj/IM8fGugkgtDV3o8hWhHKg5he8FPbvUF3SgQLSIqGF6GrczrPYV
/tKCe2G/mFyHTmMikcfiwFGEffrsf8QsjPD3jHJsMFkDbj2TShobMUKuNRQj
OqlBcu+mgqiNMRIrpzrSag5Bht8nN7sJY8xsjtattT8IYbv37iRZmuDiXv3H
O2yUoEqKtc//nQkalzkyKhzIwPadWbDL1hSjVAnuAYHyUKHQeKHgoykq08JT
P6jJgJR9tSHd0wyr2lxVpOylYPxEW5PZghlWqhbG0OgSMFwSIgt+5jj0fnVw
vFwcfjYbqZNWzPHo3Mq11HoSMFp9W2K9LLCBTT+Ec1kU9BV0KWE/LFCDtUPp
RdBeeGQjf87dj4p2i/y2R3KEoa7BZ53BoGIufW7yUAsB+q6Mn593+QYR7Yol
hiktIEq/c52uwoGlFVLHycK1ED94b9bMnA9ntNnIPF+LgW2duMhykIi0EhZn
ibw8sKytZ4hJk/AmfrIHzqvAdPG80hJIoKhuiftUZRoErprwfrSSxm4tquks
MQliWCR/HMiRQxYXzoFgx1hYsLvnKm1CRo0BgfDehSgI4w6SMbdRQtXSBfLA
/ghY4+6iZLsdxD/RdqPevaGQ7tJnNWh3CD3tb0v9VAoGNfbTDS1tVDSx0+/0
JwrBE7Xoti8uU9DzoTUys+QOvP/69p/gH3+hg/jGP2Lu9SC9uLFWa8mLbUkL
C0uNpSCuQ7Yw1xZCVHs+n9eQD1NfR2Krhffh2luOMbeQLJAwdU+P1tmP8poT
LiHpV4Bvdl6HqieFRxxv6vUnJoPdNinjrCRZNBGR8bvvEwdScpJ/zY8qoG1T
pI5UfTQEuss3RI0qYq4Hi+/0swjobHE42LegjBH5BY5fHodBiIDY9MVZFQw0
5NKxY6dBRFNHcloWFWv2xa03vxICwoMQna8p6+DhoO/1IaIZbLjSX0UFc+GR
2JetrqpV8KEucnjTmB//vAvkHbW7AfPVHJeaD+xFnX+UdzJ35sILt8TgfFUx
tCUETWndy4CxqqARa/UD2MHMublRchleb+l4F+D5N2atjeyg9CXAd6t3L95M
UPFs3IqXhbMgPE4ePv7D5RkY3NCtECpvhaNzPj0tI8wYLDvW+6GgAf7QBSKo
VjxI2VJ/0b+2DJTO3d3GOC6I0aV8FPmRAihOdenzzBTFhNELiS+0s6Fdc17L
4KE4HqgOIfPsTAcH6+aJtC5JzKg2OcZikAKDqVURBqyyuMqecHCaHgePM22G
dLMVsPOiZhf37hhYydm2knNFEXWXc+tiJSNhP8fBmw61yni1cF//mGE4eHk/
K6GWq6Az7/eWDH8aiMev/6LHULGAK1705CFh2KQo318qWoWzfbcatsTcgvss
+9U6LbZiBG/s5Zbr1XD7fqFVtelu3PXmxrqLaDGsD6UftpbbgyW0jlej5dcg
a9uef+0aSXjsHqVnxTYTPDK/R0vcl8Bbv3gpR46kwYHQBFrdrDRyO2uq2vgk
QjaZoH28n4qHiOp7ejoFIfKHHkONnw13yYaLbG+5CZaT457M1F3oEZ7y99Sj
EjCKrXTyXPyvZ90/CtLbBaFX4bwLm2sHhNDYlIDUBv727QGmPUyYbj1i9I7Q
CLOsFUflJrhxcaTttbZCOaiFMTmbPCVgzN+6Pj0ehcAypeDx7LQoarXWi1vX
ZAPLrXJBxVhxNBz/PON/Kh0ScwhSsuGSeHbnKrtEYwrEDH0SkOqWQUrC7FsD
3XggHP+pshakgDM6yidFTsRAQ/0Gb6m3Ig5+Yd3WbxYJ1MY95xqSlXH/XL40
R0Y4uObtZ6XEqeCxut6tu2tpsOa7q0k5jIqk2twrOS7C4Mt+JdS3ehnOq+V6
7uJogW8RXgu2xziR9nF5LYdaA4W9cqIRo3z40VaOwnmpGDZnXmU0NBIxlD7N
0BDJg59WczbdniTUt7qj87spE25zNlttuyiB0eLTzmHn08DwzuJDvSJp5DeL
5xp4mAiuROWNC91UrHg/U+G3KAhN5zMbxlhZUZfZpCkuuQ6059wUX73mxXqZ
SuavaqVAOt9DLP1ARUGSsnTuYUGIyEuuU1mnYlHlvyuc0wToCq4rlXSth/yW
Rrts2zZIFj07KKbOhE47Tmj+bdEIrxMWJXKvc2Nk/+XqSb9yuM8qlkFPIeBI
42f6aHshKMft1mCSF0XDvsHw7nfZULl46VKpszh+4rDaoeiTDgUq+qd+n5FE
JO02ZMykgN1ywkxWkQwOjnOlbLrFQ+cNymcDVwVMmYja9HKIAe67PiVVtopo
OVbGX+MRCcusvI9ehimj+xdGt1dLODg3Dh28G6SCtk/qKrkf08DW9cb2oSAq
5puziU1dFAYZVzijVL8EloP7etP1WoADdh2V6+BA+oaNAFdbDWTqBW5ZuMqH
J1WHDQtaiyHK81fnGT8iKpItNzus80CSpV9uVZ+EJI6x8JG3mWB1NP1R+FkJ
DGGdJnKmpIG92b4vhAvSKFJ69idpORGe83SbCt2n4uRD841zrELQJ3+Ysyqc
BeUOer5Y+lUHKm5NfNq5vPg8yn/8a0ApJDkbB8M0FUcLBM8snhKE+TShrcMr
VPQxjdXhXieAQPmmcd5vKl6kpcgI9BPgDoeUiKdrIcx4TllSwtqAzLD/wb/E
gG9KxVtKAhthWJ83ZzCMG/PeiywLZ5VDhN6tqmEvAvI/uMVt8r4QTo7HlRH2
iuJ78sRCx+9s+JUUcPetuThuZQqVuBWRDpWXHO3fn5BE8yn+bwX0/37FfObJ
wGUZnJ3M+RYQHg+Zhl8e0OwU8O2FSzJVPjHQibXuMub//Z9CeiAdHAmaClxr
n/yVUauBSrjdGw6O6hKGa94q+Npb3WLPSxrwOrjezQ+gYkqmbOLWZGGIz8l6
kkFeAmK/FPdn9xbgK3Ba2h3KgaOlVaLzn2ogleuan2ggH44nneu8O1wMR5uS
XsmbEtHb2vHsy9A8QKpG9rYjJJzcuJkatJoJddOR9NunJPDzVuXNz9fSwKNU
jcHwkMZZOy6RNbYkiOVK2DJ/l4o5HYynX7iF4GVqUkvaYRYkMYd+GFKsBwWZ
l5eCaLzIw1MxNJhRCviPoMT2KSqyJ/Q6i1oJwvWk6TuFS1TcWpn4UGiLIDwt
esh0boOKOyd9RXa8JIB9zaGyAToV72v1CezvJICz3tfo55Qj+N3+p8fHdl9o
/ZNRkSSnjWveN4x7opxAw5ScIteui16+Xc2qjy2hu2bQ9zlFH5+T1Ufnck/B
sb88qP7PT+Fh7tlPEkU64HyTpTBJzhg/r1fv2MxVBUnLFzw2/qZolMnL6F+V
g88sxTFy7eboUtcudiFFDEpff3uTJEdCVspXlfS/roJ1XlNrkpwirrUNnQhs
iIT/AUKkihw=
       "], {{{}, {}, 
         {RGBColor[1, 0, 0], 
          LineBox[{1, 160, 134, 109, 85, 64, 51, 173, 147, 122, 98, 77, 2, 
           161, 135, 110, 86, 65, 181, 155, 130, 106, 52, 174, 148, 123, 99, 
           78, 3, 162, 136, 111, 87, 66, 182, 156, 131, 107, 53, 175, 149, 
           124, 100, 79, 4, 163, 137, 112, 88, 67, 54, 176, 150, 125, 101, 80,
            5, 164, 138, 113, 89, 68, 55, 195, 177, 151, 126, 102, 81, 6, 165,
            139, 114, 90, 69, 56, 178, 152, 127, 103, 82, 7, 166, 140, 115, 
           91, 70, 57, 179, 153, 128, 104, 83, 8, 167, 141, 116, 92, 71, 58, 
           9, 168, 142, 117, 93, 72, 59, 196, 10, 169, 143, 118, 94, 73, 60, 
           11, 170, 144, 119, 95, 74, 61, 12, 171, 145, 120, 96, 75, 62, 13, 
           14, 187, 15, 16, 17, 18, 188, 19, 20, 21, 22, 23, 189, 24, 25, 26, 
           27, 190, 28, 29, 30, 31, 32, 191, 33, 34, 35, 36, 192, 37, 38, 39, 
           40, 41, 193, 42, 43, 44, 45, 194, 46, 47, 48, 49, 172, 146, 121, 
           97, 76, 63, 180, 154, 129, 105, 84, 183, 157, 132, 108, 184, 158, 
           133, 185, 159, 186, 50}]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0, 0], 
          PointBox[{187, 188, 189, 190, 191, 192, 193, 194, 195, 
           196}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwVl3c4FnwXx5E9SjxZCSHzdhtlPnJOmRGV1W0m886IJCNCZWZlZCSyN9nr
lhAJESoVlcIjKRllpOT1/nX+/F3Xub7f8/n8Dtp7GjvRUFFRsVBTUf1/Cids
5WcLdGpQCZ47RXCM0dB/yGA067INWtO62Y3irTDIpsREa8OO4+7G0wXzrXA8
Qbuj+BQPTmc1TaXkN4CT7CabPJsQ+lalygtlVYOhpNMyl64oMj+jV21kKIXa
l9eu9KlIYEZMUGBPXj78yyH1gDaEgF/0/zhdobsPLr+TsgpJcsjfvKXxQTkD
PJ98PvzAUAH3Gxv5MEjcgVuW9Ie23I9gUJrC7MajRHDoDXSWJyuhXEuB3DHf
eOhk4D3jZqGCFilvjHw8boH83tDULz5qaDDwccx2OALsfhwlGLmr43ZyQbnO
9k3Ize7hX4/TwOb7Io2WbtehLl5tYtQY0dFFVM81Nhh8Wo+ezjp5DFXLnTdS
9gfCo/7ClWir47h3W1nB5pMfXNBVfXiBpIkXxhY1KzSvwL0S+QY3Vy1kbC8v
Wez3hsQfD697+Wnj/BodOFV6wWzZFV+ytw5y76rPmvjkAd06Sek3buii8/N1
p6kEV6A+NT6VEKqH5ry/vN+NugDVsUbqnIATGCyz/ZDX0wmiuNcNRyP1scp5
vsfooAN4WTp0rd80QOngvsFO5fPw6foRR7hzEq33bCvmtdvCP8kZ49G5hsi2
dMYzIMIKitilAnozjfDaa+WOo69J0OktqC1efgrZ4wNfJqqbQ7ZQDv9R09MY
XijkMbDHFB4GbVKRh0/jcgPtjTxRYzhowPBH5OwZFMmV0VTSOQ31zyVj3r48
g5vqSrHyboYQ++SvnJCNMd69KtqYc04fki9/cbV7Z4zzpTqihqO6ELRPYI+w
hQm271m1cbmtDaWSdP0+H03Q4i+jlb21JtD/pObttDXF4r1q39ZuHINiuZrg
7M+mKKUKnOgGIGlfZrTlYYa/uTK+bmiow8SJllqzr2aIyaQ6uRRVGM2/KgOX
zXHhhHaX0S8l2Kg7oy68Yo5CRnkZT54ege1m74aIi2exsbn/V8ZrBTCQ09EO
Wj2L/Tx3uFmW5aDXRvaC22USSlayKHo+IEJVtdf69jYJ59x/t+wLkIb+xIlL
cy6LoBfo7lorVwtCW033tpQYsbK998AdtTaIGno4Y2b+D+qEUz73eTYD/Tr/
d1pFfiw9rnSG/LcWLCoebItICWOsp8v8l54KoAq5dHgJxPCsxbqxMl8R+P4w
4fhsJYVmA9xeDo65EEYrsSqeTkQvsiupfSYTvto9JEuZyCNPfUjm/t1pEMTu
RzC3OYxdjgUmV0jJsMbeqZ3mqohuNZmaju63Icml32rIThk3hFh6xC1iISD2
2WUpF1VsjxXsaoiKAj2ac58yvf7FduXwCAopHNQYTlc3tJDwT3L/+AijDPSp
3Wz55jIJLqkP92WQC2Fq4f15/9VdWN/jRRs9QAGp77/WKiw40K1BZ1dHZwuI
asqfNT/Oh0SVA1VK+vUwufAyomz/QZybUCCZz1WBmKlb0k3NQyg2923/x9Bi
+GdmTpOkL4kC+3v+VPvmgR2LpHFqjAxO3X5cxeyUBZJEiV1zr+RQ959spxbe
dPB1k62+8UoBHw5FxjWqpEBHg4Ni/9cj+HchiyV+byJc5Rb5FDKjhGEr7n28
5+PgQL/3lP5HFfT3p0oXuxINbdGLlK4VNZRxNL+YwB4BobWPYm+nkjAlJDtA
9q0M8Dy+qrkQtw7dVz09mkWbwIY16fUNf1b8+/KaseBrCsyVMYbXiQtg7dZ3
XfruGnjhess/S0UEHYVkumGkDN6W+r20VhdHunKGG6wjBfCG5tHHKx7SGBKu
8/nwhRwo3RJLbymQxXnB33Gnr9+FymTjIfdhefTbnlGx5UyFn1YfX4y/IyHX
QsduggYBnsaO6q26PIfYd6k+g4fTQGvWq7vhJTWajntU+IlT4M8WdyjJai/q
muDl3TatcPgChWVbjxctZgU1olbrIS/epd8jRQiD1J57FNFVQ6vG3DHDHlF0
EbwKfFgCDtZ17253SqCqxlN1M6Z8GIovDTWkk0GLjSRtWvlseJpiM6yTJofN
DUpptkXpsJLOspKeqICsjJZ8zlUpcIhRsdKh4giOvLG/k+CSCBc9n+eTipSw
0jxTduNLHCzO9fBO3FPB0gTP1O7FaPAdVJYcq1NDqr4AOi/PCBCNWt/cCiNh
dYrYyduaRPirfaR9KecHGEfyPKtdrod22kNqHWeZsdV/Q5BNoA3Wh5NUrYkH
sMK0bGDSthZSWQ602dUIo5GVSR3Nk3JwT/l5U6xdDJ8LBQfyexeCeGB0QNWM
FDo7u1Ozz+QA1/XiJ14Csji1LdGWKZsJJzcjMwcS5dHJa96/JT4V0uR5jusN
kHBlRD60P48AaWlGLotxn6GEtYztV2YlXF/V31bjosej6ad6J4XbQB47n365
+hvqPNqzpyea4Q/nto92xm4cC1Y2g4sUOBNR4uTxfed+7D0YuDwuDU/kLrnQ
kx/BydMZ1o8ORYGPfesV024qHJjqDGSvb4UZumIt4jv2nT4b6A8XtoJaEJWz
yTMejJRfotI62QC0k3Luz08LYf8xC7P809VAW1/EqxAhiudSrheM5ZXArXQe
SZlrEhjtpLAhY5YPYcNfuCW7CEgrkl4ldjcbePQ2lNb85DBnzcE95Hs6VD/4
xVHgqYBSbxTiG+ZTgFRz4EJ17BEcJzUMXElOBHLmITrtSCX88ZT/XKVsPJD8
PRVFAlVQg8CSpEK8BaaLE5PnUtSwbkavtOB+BKx5c9YeCSJhzH9BJacCiODN
kBjoXbYMvjcyBEQL6mAx9OJXW10mvC/17IeCQhv8nX6dXF3Dj2Ny2+4cVbWw
YTVr0+UhjIN0CiGxWhXQyFRnxRIihjO3uEiaPYVg1PS9Rz9HClVEODbDRXJh
sOuzzckJIvrRHz5zMjoT7lUK0wR6y+NIjHLr7GAqkPmP/AruIiF/f/6jnFcE
COZjnFrJmYa3n/6eH6zd8ZFLKdVv6ejQg7C+Z3GbAgXUAhFuYb+As0VJoml3
MxBu64nNRLFh+C7Lae8iCghf6uYv+I+EYQbfMuxZCZCKa1U/4l7Dnag/+neb
coDTVZyT+z8aJPc6hf++SYGYsNdUnmmr8FGnQ7xvfyPER01EHSSzoFK8LKPp
znvV/9z59vXqV+Db/BD9NqUaTgdQG90TY0Dq35Su74pt0B7syEK+tAXMY10V
EN8CA2kNj4tK9+Cr7cw1O1kKhGbGVimtk/CN00/2N6XS0OlfVSBBfgDF1bJX
v+X6Q6zQuSERdSq0S9ApFLnUCm+iv4tl3GPHmp6LaR1PW6GdTiR5K44HbScM
Qyb8GuBI5L6jVLJCmL0+/rLGtxpKvoeHFziLouFVsKV+VQLZSganfltK4MxI
nkhnYD7YLUdPp+YQMFR6JjHyeTZ05GrPG5Ll8FmxUSY9ZwawU7zyS20VcLMl
/vlRpjuwTMfROxZ0BPkmNeLySxPBuWZYkeKnhDqjBfITxvHAilqauq4qOH5J
SPOh4S04TkWkFISpoRtKLC41RYAtOZdt2I+E4uKctiYpRCCQwfLwgyWooxzy
ObVYC4zAqUV8xIihjKJCS8ptcMNjs8PyMj+uWQ9n8I7VggTtAPGHgTBKl5dK
fAyrACutpN5r58TQO1eZ8eZiIdibHfzGEyyFTwM/CPdq5kLJdKRkawsRlzcY
PZ41ZoIWg1fDqL08rgUtvJhcSIWRvV2mfO0kJH4u/SyzSIDlCcf7PmWfgGA6
FCB7txj6ZVWZSq/R4q4J+zN0cxSwtX/mSIjeAIGKwLzLWU2gZbQQXEfFhnLn
JJ8/fbSTF2djf/hEwuLOYFA/RIBrjx9Irue8gPqbFvYXPe4BQeKZ26w1DVL3
ltX6kiig9V/4pOy9n+B/S1CbIaYBinRCPy1NMuN8kbL68p42EB1bLvUI+wIe
F7QuffN4AGTloiK3bHoUoBn4pk9sA/9JjnkJ3z/gheQTJ1VaYMbMkt/34B4c
m7gO6ad2eHebj3l0ZSdfaXFvLbqkwbpg34Hwk9TIdYkw0rHUCmNdfUkJz5nw
Dgx+DJNsg7t1i2eZ4+lQ4n3I+SDONpjP8SwuC9mEZ3WMk0/8m2Gz/Earrscu
tBxsZdUso4Bvv5Kc8RILFnBoc5O+UUCFYr36rIoBdwftrt9QbQPuor/Gmb9J
mC8kweaeKA1NjJKCHuT78HV4d/fKRzLIb9uvci1tQ9GJvJhjhq0wasCRPhTE
jga9Dnav3rZCqH596ehFHgy873O4Pq4BTk5EFvIICGFGSiHT++hq2Iy5Qnlv
LopU5rLe+t9LoCTc0X7qxA4Pvaw4FBN2eEht2TeYQMDBQ0rt7vPZkGL07XGA
nRwmP24xIh/KgA6scCOYKyD/UB35Ls8d0JBjXfvis+Mjd/Swrz4RHNXFjNY8
lVDC2Vwk0jEeZvOJ+m/Pq+CHDhq/JJtb0Mr4WqI3SA2JS6NlIt0RwOFApmRd
IaHCJJvWh1wiRKWn9iXLLwEfjTktJNbCjgYt7QtkxLeNfPwlO/vRqo15LWvK
jzGeOTwq87WApKNpLP8KY+HdjMNGhRVQ9en6VuMpMeRJHA8boi0C9wK17W13
KWzKuD3MZJoLXD/P7lkuIeJ+SN/bNJgJPPVcCX8t5VHRKcBsdSsVIlijaeYo
JJzdl0K/9ZsA5eqcwYoPPsLC1Muh+LAiGIuPabitSosXpgO/W49TgJIk8jKW
ZQO+7zCMyb4JTleCdGYbKxod05pu2PFFPM8rxjZJwi3mYrsaeQIshbF+9i8b
Aa6ZpOSa1xmgEinAM8RDg2X2IVplSIHcfe+Nbgv8hLu8SWuXoQFqC0fj3mQy
46LO2etnuNvgg1JOFDF6DmiYDfQeR1aBT+qGsYklPbLFndfdu5PHl3tcLaI3
fkMHA1/0PHMLLNVXPLV5vxtN3tr5C56jwL2YT033l0gorbS6kDckDeRd5D53
Rmq83nSInvCiFaYO8oNfDBO6acklK+/0pYjjOO3KCTrsXZhj12BuA92RJ1ws
NJvA7aBpkqu14/ssr5xlJXchqYFK9HEaBW5IRr9TrWDBaCOhdsG1nb7yPcit
d2XAy4YSCo4qbfAsp4fqwi8Sng1sOns/Sxr+THak6exiwmjDdj7v/9//4Vnr
zk5alA6pZY/+SQGhvoBHf3NoUKd6NXlmxy/ufpZRZBJlQYIiff4SQxtYvzHZ
vDlFjyHVkuNJO3ztd/CbLeZkxt6O8G5B0TaIN80qFx6lQ6EECeXq/W1AsGY+
8d/KTt+sdr+s2fm/2JcrFw5ukdCorIOoES4NzX+Si2OIx7Gc+L4y2dUfjprK
xxFbdbBh+sTXYmoP6Cof8h7RNsBu2oPK7tXnQXeXO8ln5BTu8UoKdJgzA+dK
2vsxRGNkJI8Ic7sagITFi702Pqb4gvfDoqDaMZinzQsjtpqjRdqZrJVHilDw
ZnE8hiiMiwEzZq4PK8BZf+HmiPa/6K37oUI9LRysM2ubY4gKeOrNkF2U/R34
Hyx7oIU=
       "], {{{}, {}, 
         {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwl0lW0FlUABeCf7k4puYA0SLeogLR0d4vEvXSHCtLSrXSjdHdIgwWCdHe3
gtQ3i4dv9lp7HuactSesRUSN8EihUCiOR5CHmUFPGnCTzUykFFdYxxi6cJft
TCU/p/mFIXzNbbYymepcYwPjeMo+unGfnUwnMkeYSS8e8SsNucUW/mcSz9hP
aa6ynpeM5Ql7eUtX7rGD10zjXw4SXLyAOMMyXjCUx+zhDe24wzZeMYXnHKAG
19nIeLrzgF38SBR+Yxa9aUQZChKV35lNHxrzBYU4y3KG0Z6aROMP5tCXJpSl
MLHc45xcwXA6UIvo/Mlc+tGUchThPCsZQUdqE4O/mEd/mlGeolxgFSMJpw4x
Ocp8BtCcChTjIqsZRQR1g3NyjAUMpAUVKc4l1vADnagXev9vxpZ/s5BvaEkl
SgTvOc4ivqUVlfmEuJxgMd/Rmi8pSTz+YQmDaEMVPiU+J1nKYL6iKrGd5TOZ
gIQkIjGR9UlkUpKRnBTB9vqU8gNSkTrYXJdGpiUdH5I+2FYfJjOQkUzBdrqP
ZGaykJVswUb67DIHOckV7KDLLT8mD3k5xc98T1uq8TmXWctoOlOfG2xiAj14
yG5+4j8OEck38sl3cpSBjg==
           "]]}}, {
         {RGBColor[0, 
           NCache[
            Rational[2, 3], 0.6666666666666666], 0], 
          PointBox[{258, 259, 260, 261, 262, 263, 264, 265, 266, 
           267}]}, {}, {}}}]},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{
       FormBox["t", TraditionalForm], 
       FormBox["\"Density\"", TraditionalForm]},
     AxesOrigin->{0, 0.8300000000000001},
     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[0, 1, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"R(t)\"\>", 
              NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"I(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[0, 0, 1], LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          
          PlotRange->{{-0.1, 3.1}, {-0.1, 
           3.1}}], {-1.2, -0.8180339887498949}, {
         Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{
  3.5656482391777277`*^9, {3.5656482762828503`*^9, 3.5656483654439497`*^9}, {
   3.5656483987248535`*^9, 3.565648463977586*^9}, {3.5656484954793873`*^9, 
   3.565648593639002*^9}, 3.5657198376133103`*^9, 3.565720011947282*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwV1Hk0Fv8XB3B7RJEilWRLSPaE1L2FSHbiQYTKrqwVWStbiBAqJNkrS1Jf
qWSrLG3aSaUU5nmeGSlLCr/5/TFnzuucO2fufd/PjIznEdtDXBwcHDP09f+7
bMbc1SKp1u2n1dYd6e1lwR1+pXWBPpchmJvDM/cOC1qP15Qq+tTCqO+k/lgJ
Cx6pB3vz+bRAeo+KpMwJFjxJ6zOd9H4O42EhUKTBgvHTQiPHq19ChcwD1TBp
FkS31ypNF78CR6FEizZhFuTiVM2v9HcwPHd1WQvFhC79U00s78/wWSDwE3cj
E64ZLI/ZXPsFyE9h+gcrmPBz4ODlsOohyM4pMdl0kQkxq/m/ThR/gy+T/2lO
xDGho8mJW7NgGMrMlh4jwpiw2OmafHDed6jo36Zt5MuEvDxLbyp9BLqPx4qL
2THhk05xsmrKKLgsvvEm2ZQJ8m9/VgWeHoNZA1ENx+1MqFtxnsWMZIKJQ8fC
P2UmdJ8bCB71psBolfkn4GdCcn5uV7bGODjyBQ06czBBxQectWrH4d7SO/+1
zxAQsujciZDqn+BRGbE0giBA7J2ekKjiBLz8GZ3R9o2A/8q/FtSXTUBTpBi/
/SAB88baD8aLf8GTvV7Wu18ScEVs0DJT6jdIhxYyqnsIMPqe8Fmt4DcsRKn3
WDwiIPX0O44jeZPgFxl1w+EeAar2ceeWik1Bxx3ZpKY7BPTJKcnWZE1Benl7
nlMDARLtkYbs9GnQK002Mr9GQHOW3Os0wRnoL15/vKCCADfP3oMqKTNg/jaU
Y30pAZya4ZM9fH8g+d6+muFiAko5pRL9T/+BpJ4u2/5CAkxePhIX5JqFm02D
D3guEUAUH6mojp2F7ym+zz3zCdDA1idjkX9BsSIttzGbgNfCfk4pM39h4Vzo
xspzBBz/LEooHv0His/WSndnELCmtjnyya9/kKjccGD1WQIexBwU9AmeAwEq
YSQvjQAPyyUFi6g5MPE5W7MjlQAeqdsqFQHzkOiBHeJnCKhgu93fRcwDO3ON
tngKAWb3F1n+8F6AkuuXBSCZ7mfBc1J8fAHMg7YcPpVEQJr0/mdyBhy4S+is
3FQiAXGtQrIGcRxYUqg3f552mOfdcPsODlyua/HDg7YPt09XAD8nfrpe3Mmg
va9UbG2COSeaPhVMjKBtbdweVJjJiXl+XsvaaRv9COpofM2JvOvybLTp9+km
SUk8k+DC0fROvV7aKoq9/j/2caHS7nUvUuj+pLsiWuaLuXCpq8zaALr/5X4b
lq/8zoUf3pgqhdDz8Qm+8VJT4sanLaJzF+n5Z6+dvGsSyI3d5gvF3+l8SHP1
pe713JjSkCJvQ+f3lT3ocXySG7n22lZ9pPN9eza1MVOPB+NevbdLovPvVtMT
qIrmQfOXBabW9H5uBufUfeDlRVdioEQvj4By0Z08E7t5Mc38iAPjAgEXGyjH
xWd5Meq8C2cWve/4SbMFfXE+VNCX2mxHn4+w3BlbO2c+lDce1vtQQue1pbzc
v4gPfc9/3XSsjM4ngtOyQGERZsR7TE1X0/PO3SmY0+HHmsAOk9nbBKwoOjQu
doIf3y4NiVS5SwA/LDdSbeFHy8sJ+sH3CaDiDjPdTARQa99KUfUO+nzwrNd/
6LgYWzL4uUP7CHAVynp38rgQzn6UPXP+JwFPl+gI8LiKYL5xuZTMFib07RHN
fxYlgkTyUM6BrUx4n0IqXCgQwQxlX65qYMIwb4WR6kcRFJ9S7tpB/w/+za2M
Y7gswyDewrFcJyYok3+mrjuJYk7Q+/HKKPr7f3Z/eK/DCtywcaZ2czsTdmYY
P6ywksBULe7DBntYEGd2q6rvsAROdQoO6Vix4AGvXPZcugRyUwpfNtmxQD+K
w8uuVwKDn+zft8yFBVq+zYILpqtwqdvymBt+LJA31HB02Lka1z+fNNNOYQHf
tCTJs1kSU0Wr2pzaWWB0M/Wdmr0kbng+vrv/EQtOBs4+dA6VxNfKr3odulkw
/+1ddl29JE4KeLQZvmTB9IssvX2qa/FCU68j+xMLRqv5Exo2SKFBdLJq7B8W
HFKbXaKxRBrzlpVEl25kg/lAUpmElDT2+wfs/6HKBu0ksW0catJ4W/lovZwm
G3g+qwc8t5ZGDme1W5m6bCg5690dmENbduK8tjEbPrNfJ1avkUGL1FuGFa5s
cLpeuyCnLIvz23d6OaayARnb8gS3yuLJKWt34bNsUOTpUf21Rxb5CxOd2jPZ
MOPyw7UtUBY75CnXdblsyBVce8+9Xhb3FVRuryxmwyu/M8cLdeVQM7z1N2cj
GyyUDv0UN5HHniecG2f72TCbGt486CCPFzWr7ogNsqGSTEgo9ZJHYfUqJ9XP
dP+3yldpJsrjQEY+6fCNDXe3j+6w6JTHhuSovgQmGxTs/bNOGa7HJCuujW5/
2cARG6w1Dgq4OSg0Q2wVCTVD8XO3rRQw+/bDloHVJLgYZT2O3q+ATdHnEy9L
knBboMFFMFYBlc6ajKyTJiEg5/cphQcKuCpxnRvPBhI+VB17vc9gAxp5jFjt
1ybh5uvo8C5dRVyrWC9/1IKEyoSDnl93K+IJ9lotcSsSinT2WP11VkT7mPTx
BmsSzuRLKG2KVkSvJa7Jo3YkHNjX8DGzVREPbxK/pONMworhUUOGmRLeneFv
9/Ui4egvO9ERF2VE2RtbdkXT/ZTqLywEKONgR+SZqzEkeO6VYUnEKGPthXHO
hVgSLO+QnWbFyhh+TyWg7iQJG06kRNQMK+M88KfOJZHwnqvlS3jgRuw2tL5h
mEXCVlHlWp5YFayun9uTU0bCM07nrqcZKmjHtGq7XU6C+8+Ub7nFKqh5zaDr
XQUJp1+MrVRqU8GH15dni1XT9Wer4ix4N+FqozlGXA1dL6hkm5u6CWc079et
uEPX8yhObshXRakkfmXTxySI/3YU/lmpivKuJmt2PKHz+pakdLdJFU8Ea33T
7SLhaduIq/mAKl7eETYv30PXx1c8CpJSw4N/tudSz0iomlPIbypVw9LLv0as
3pLg/TersIyhjtrX3K12D5OQY8lqj3BXx+E17yVEv5Pw8IoxYeGjjuaxG4X7
aUuYzuhMHVNHXeGAJO8REp7kuL7YlaeO1tY7nhwnSFBSVeQefaOO5/g7M8LH
SWC63/dRttNAhatqAl/+0s/fEs+Yd9bATyz58sx/JBgtCmrs89TAuj2a2ThH
QsENWa4TIRr4yizdo2ieBPPZpEs95zSQkmwgbDgpuJFt+yzghQbe3mUSe4GP
giOPRrRqLTQxWit/vE6Egod43V/FQRPD3t+Id15GgUhz0NUqN018NKF4iFuU
grraP6KlRzQxycZzg91yCibyBSfyz2ni9OOQW4QYBUf91epOvtHE17U9nbOr
KYgSOabi4KqFxqqXpMvkKTjjzLd+LkAbVxaskLPWoWC7utDUWJg2MgWe7u6l
/ZNX9PHbKG1UFhDhM91CAaN+rW9dmjb6rrLYsV2XgvX8m28cuK6NU2UPnq/X
p/ttPLC5m6mNNq8+3B7aRsGUSKtxnt9m9PXQnRc2puDA4xNeGj46+Dl3Z7ab
LQUHDRQsp47oYMKmjspW2l71LzY3H9NBGeHRYHk7Cnwurec1TtLB6IVA6THa
h488v8oo18GY6jfTh/dSELlSbih2WAdztezfBzAoyPLudnnmvgUbvfKDtNwo
aF20ysbfSRcry+bz/vpQ8OOqqtkHD118l0l8svelQAiNDE38dNHPo+nLDdqM
40c2y53QxaJ7EuL7/SigRjtXDRToYlRxutUDfwrWdod8Nfuiiz9MuvWDDlMQ
kdYbquyth84dzz5eDaVAY1lc7liYPr5a89GYEU3BXf53io+j9FHdZnBfIe2d
HKrNpaf1sX6xjfFX2vbUwOf9OfqY7aeX6h9D7+vpFqW3DfooEF9LnYil4F4K
1dw2oY86stsxJ54CU679Q5eCtuJSppBUaQIF7r+2qVgGGKBTUM5303QKrhR1
Sk6nb8dX81LbWZcoaDirP9Bni6h48kW1XCUFYXe3WRea78B7qUsbJuspaOku
m0hx2Yk5S5Qj1Jsp8DXRu+/LMEQVseEPNW0UFFRqNPr7GeH1hqT5zi4Kzv26
Hx90zBhfiaklfnhO51kdftQnZBcaGRHn372moGNXVv7JkybYUrLkcdEHCjit
+r9mxJmiVs/WsMxBCjh23OYsjtiNB7IiVbmGKEheOW3Rl2SG3Rfbu+yHKQhy
PtA2fWoPVh7j0F85QsFQvPZBOG+Oi3JabVrHKFiRfaE/5YoFtn4zPbOCRUG5
iHLE40uWmBbVIsJL0vsOWWe84ZoVjnt9H/lBUVAkXSy5zd4aqyXiQyJ+UnA/
apbD54U1uuiNlX6coEBmz6J/co42mFnytFHnNwW3niulfnhtg1ZnJDIZkxSk
PZpXl3a1RSLyblnIFAXZoWN+7h9tcXCt6sr90/T3JCYlLOtkhw4RVkbqMxRU
KfF2h32xQ2Ub35B/tPl+c65qdbPHKSD7K/5QUKFeH1M0Yo9QVzpmOUuBkme1
5VzgXrRSsJofoj2wu+nmXuZenDazKXH9S0Hf1chNEOqAYk/8fN7SnmmwMZCd
cMDTkobk1n8ULPwX0ph42BEnZZT+nae9R32XcdSkI3oc4ZYmaT92VfP1D2Xg
mQcaJrpzFIge8GkuDGdgfeDjeD3abj5Xlrw4xsA8vpfN+rSnQpbf1I5ioDsT
VbfRlk+enp07zUBbvYtCO2nH3WxJy8xl4ECVT+0e2vqLrOsamxg4Y22Q4UY7
USiFa7SZgfdVu/7bT/vlsjb71Q8YWHH35ZA7bR9J7T8xbQwsfuSgeYB2nobE
TtMeBs6LbnnqTfu3y5dX/R8Z6FRwigiijR6rFJZ8ZqBjyw/BENqpXrbHYYiB
hlu6VEJpywZ3SJZ+Z2Cu8JLAcNo2iZWHAkkGCjzKHYmgXZA6dOfyOAPtfs/y
nKA9mrl6cd8EA8fNvshE/X+eS2k1OtMMfOGs5hxDu7e4k8P3DwPZyRfCY2mv
LJ+3vfSXgUu7EjLjaHte21L2dI6Bl/f+ro6nXVMXNL2wwMAlvt87TtL+Hx1A
hx0=
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwVjmk4FIrbh/G3lkoSgykaEo5tGJLieRAVmco6iByE7DuDqbFkJ+FYkiX7
ll2lTqGkUuSIyiGyVErJUqQa8573w++6v9z3df32OPuZn+Xi4OC4/d/+n6RL
rLKi3d166+tMifz8DrjJryDl41EMMz6TtkZRHdAd3lAu79EIhe3NTrmOHdCr
FuDO69EJEXReDSB1wOPUoaPf3Z+D2TXjKonKW/BEJ7bjs/sk9Ly7FZ1ddhP6
Lo8FzLl/BeZt9TJqWjsk5uU8ySIvAvGpgtAnr3ZQ8gA7jcZFsB3Y05tp0g6B
fJcjA2uXIEAn32cHfztsGFHuLZaswJm+tiauuDYgPIgw/JK2Bt4upr7vmK1g
cpeP+t6dDVdv3hY5ldMMZLbzd9FFNnzVKOUqC22GVOkzAzKHOPDs1mN6f9g0
Q7Dz7RDLHg7MPD186i2hGQ6/9+9pH+bEcOXR3ndFTTD95c2f4d//hy6y63/K
eDXCy/SU9owD3EjijHw3qN4IfaoHBGoY3Kii6fNi8WcDtARkN43y8KAxp0VL
QmoDRH83YeuI8uIOZYbUlvbrIM26eZWlxY/lVQpHyZL1IFJ0dnFnJD+OlNdI
z32sA37YcVilkx9Z6w5igh118JXpO+94RADpH5ZW82h1cI97r06XzSZkCsdf
ar9aCw6Cma9iwgXxYPzLWx7aNdC/RUuA20EIs56tUstvVcKQqXDeQJQQFkxL
LUnmVMLrpAW5/KtCGP30Uu1EUCXM8lQdVhkXwoXhjtcGapXwmyXGpNlvRyOu
xgvB9RWguLC+Wm8rjB0p8/OLzeWgpvTyYhhdGLdvrxocyCoHLc8WEYN8Yfwn
JnjsS0g5GLz3VH/1Whgblao5v+iUg+3EmA8nbQd6M9L+mHxUBokDd2etrEVw
xoCXvP1LKaQLXgmSDhXBsZRzXXeGSiHbJJRr/i8RPK49RC26VQrFvSrSzBER
/OCoYiRwsRRu3Cu2r7XciTv+vbbmLl0K7xqihzbMRfH321DhEadrYHDJqKvq
BAHPpDjYbeMpAaZJW82QLwFFH7QJWUwXwz0emSxWGgGHmz+xRm4Xg04Uh5vF
MwLG/WHs3+NdDBrn7mxmHxXH2HIRI9XhIpA1JNtYG0gg6vwzV9BUCLxrxAVu
TSLSy7jd5AoK4HBLyitVSyL6nXY98zKyAGJ8fnbZBRFRnWy70Xm6ADZmXmU1
NRMxkjXF1pUqgLXBzAOnVXZhGb3z1UjlFZir5b/Yum83Gv5J2cbZlQ9nVX9u
IW+RxufCLhe/iubB8bGECsJuaZwmj893/soFSsJOXQ5VaaT2DTDuv80F7kk1
7+cnpVH/VqPs6bpcKE137/PJlsakkfPJLwxyYfLLcHyt5B5cfcM/6hmRA7b1
jWwZRRJex4/OIPAXIE03d/NBEk6sX08PW8kGee6nKiumJCTxjzKG32TDD/v3
Dvd9SGhqf9PwV0s25Gze9bdTMwmP3DXqWXbMhheeyeGF2jLoSAib1L+bBWYK
Z5dEj8jirFmHMvVyJvxMCbnzxloWN3FEyrUxM6F64eLFcjdZ/Mhvv1XdPxO4
2yrF1eNlkTr2aSb4RCbc1pvTN3soi/tqI8jbt2WCnKVXZqzhXlTVG3ePyLwM
HBcCNBZBDqWNy7wmqzOgYSqadeOEHH7aRNn4dCUD7A9nPmKckcMInimiQFoG
3BBotd98QQ5jZafcogIywDv7W6zcPTls+ylsdPBgBozWhA2fPrQPOzkFNtbL
LkHLMCPkibY82jx58M5JLB2qL7o6Tx+TR+tJ0a9FrDQo0jI98ctOHpG0k8qe
SYPkPIKCMkMez2xb4ZNrTgOX063jGd3ymFVrcYTbLA1EZucMaSYKeND1usnT
5FQIXbEQ/mCviPf1aZazxBTwLtdhs70VcdZJUGqVNwWcrfZ8JpxXRKnyMz9I
S8lAvbnw0KREEUWtEgX7HybDvsgkesOsIgq56Wk7+CfDa67OtyE+f2DO6vBW
o74kOCis2Mh9QQnXN65QuDISYYDT7kn/JSWcncj7GsJIBKelpJmcEiUcGBNM
2/BMhLjBj2IK95XQKGn2jZnxf356DdOMRxlX+JI0p1gJ4LRZwTwnRRktpJSC
7vknQBy3/Pd9eSrI7S7QH+4aD+6/MgsraGo40T1a85URB9nUzw/oTmr45vxF
pRr/OOi6ZvTJzEMN08ZjNnxd4oBw9IfWapgazhhSjksdi4PH2Q6Dxrlq2HVB
r1toZxwoqMj/b25EDR1bog0VGmNh3umuh6IFGXX7xRi98zHg1/tBo9FMHUMi
rZfaYqOhC+u9lKzVMd+I9EAxPBqE7viX1Tiqo+1ohWiddzQ0Na4Ll/up48Bn
ns1PraJhOW/zct5ldTReym+Il4+GUC/VppiR/3pv7sCp50yIEgpTsnbQQO3y
eXL/XiYk2/HuZXlTUCv7w/im1wzQUxNc/RhMQf0mGuFGLwOWeIQfvYyioNdn
9n3fdgbQmneda0ql4N73hYr8WQzYy6953aWegn8V73k6SmVAV7uLZt88BZmF
Ra6fH0fBqlC3Ua6nJv6OdRrx640El0eRbmQPLZwherE0ZungekiOuuqnha/9
DtnsekkHt+ZBzTthWuj4pKFa6DEdPAr28hglaOGRht5NO+vp4Ov3vIxWqYVu
wt/as4LpECEmM3VhVgtDqYKGTnx0yHTvsx9w2o8+zjcUfmiEQzef+CkvW20c
5/ztbFoVCuTtzJyPwTqYel7NVao1CJxWdJWo3ofQv/b8BPt0AFwrekhcS9ND
rbpAfhs3X2hN1xkbMkdU5tUsZj7whODbuicLj+uj5Hwlh8wLd+jsq1hOsjdA
Xu+YgGeCZ+HckQN3z9EMsUJ2c3b/E2e4Wk1u9/I8jA+Gv8mRyp3g8srdaP8w
I7SK+LvCMdcB3teGhHoEGqOe77ZFYpod9Bhn5sXEHEHHt32E66U2wHni3+lL
zKPo7xJW6njACjj0b3CW0I/htfHxdL9dFpAotmY2lGCCjwq+fx7YcQr87Vzu
r8Wa4pDDr16hHipMRVNc4a/jOHqnOS2YYQoiWfn/Jl0zw2rhftZMyVGoFFKk
Pyqg4uMdRdH6usbQHShltK/uBE6L+3QfmjeEIukSoq7lSdzCtt9T/FMf7kb9
5PAYPInJxO02+w4j7DHl+y1jcwp/zVDiw8m60PZcIWV0+BQKrqIM8awOpPZu
qEk7mCOxerIzo24/ZAV99HQaN8fs1ljjemdNiNq5exvJ1gIXdps+3uqgATUK
PH3Bby3QvMKVXeVCBt5vnOLdjpYYo03wCglVhSq15vNFHyyRQmekv9NRAgXn
WirLxwprOjy0FJwVYOxYR4vVvBVWaxfH0VlyMFQWoQxB1jg4vTIwVikLP1pP
HSItW+Ph98tX0htJwL4V2B7va4NNvKYRAkvSYKpmbBT13QZ1eTo1XoTthkcO
que8gmjotCDqeDBPEoRdPO4UhtAwLVs5eVOqJDh6XNsyGEbDQmtemckLkrAa
uKOFEkVDUn3+5Tx3SZBNXPvJiqNhkWCi9PH9ksBs6UzNyKFh3Z6EtdZXEqDD
d7KpvYOGFk6mXcFECYgXTOKau0PDvE72s89CEvDP9vuWEvdoOPHQev0cjwR4
ECnr5+/TsGp6pipoQRxyyQSDo09puJ94aFdPlzh8s3/74t9xGp5JWPa1cRMH
/FNcbsskDfmSet2k7cUhxc08HKZoOFIkbrdwQhxIAT3E8nc0FCdRFPMPiMOp
+OqzPgv//TH+raa4RRyupkzdLF6k4abq5IcSXOIwlyGxaWiZhv6W8YZCawRg
FqQ2aK3RsKT672WBKQI8K3nIcW6dhtsmAqW2viSAWOWGecEvGl6gpymJPSWA
c93+in4WDe/p94nt7SJAQ5P/GptNw3zW+4n97QT4P1EHPp8=
        "]]}, 
      {RGBColor[0, 1, 0], Thickness[Large], LineBox[CompressedData["
1:eJwVVHc4FY73RvYo8SkjIWRe1yjX+Mo5ZWbcyuqaybwZkWREqMysjIxE9kqy
xZVQkpl8pKJS8pGUWUZKfn5/ned9nvc855z3vOcccPQ2dWGgo6Ojp6ej+/8o
lrRZmCvcoUUncuYEwTlOq4lVRsSLehe+De18uvyRCh2BVUXS1AdQWq1w+Xt+
IDxTvODGTH0MxiezbB8fjIHn8cMGK24vIP5dut/AoQxYjOD8EljxEvZOpaTW
vM6CK08eyKzl/Qv1160cz3vdgXRcrfqR8BpuxfwxvN2UBz0a15u/u02AW/qj
PVnUYrinyRuq8uAjzE2ODCZGlMDSuPNdv4pPQDAfDFK4XQqhgqyTy3mf4e2n
v2cHasshI4PstpDwBco4K7h+Zd+HD6S8GGLsDDCwGxk8ia4CidGlcq+Ir+B1
TufCd68HUP3Pre/fLn8DwY0PsW/TqqE3efzCjNsCGAR7utcq1kJMZnpPqtIi
CDJYMkJyLRCoYH3owSLU0Q76nVioBV+W5GDfiiXwv5YlLFFUB391D7ct5v0A
02j+/tqlesjf8558U/gn3BZIWb0IDaDzX+SEwp2fEHhDRJclrgHiIl7TeWes
wEe9dqmefY3A/+Sy9lzCGjy97O31UKIJaCniI/Ec6zD/jhvZHJvA3rHfmRC7
DsKVwQUXc5qgiF44yiPiF/A2k6Sbdj4E/ZfP9nIwbACfk7ZZvs5DmM3zLq0I
24D+OtaJZ4EPQQk7nn+9/BvqvNpyP48/hJFd7lax67+hnUUwdpa9GQIneGal
/f+AD1KPG6s1Q1uoMwf1wiawj3ZWQmIzGD5iIU+7bYHOZ/3cRqkWUNpyXNm7
uAUlxwvijpq0QLzomUFxTTp0SNIrFr/QAn6OLZfMn9Jh32RHMHd9C1B3UHs8
WenxatNBZsK/LWBbtGd/pDE97r1AeNm+2AI60z5PG0bo0XzMqzJAigZq0cL8
g/wMWOEYplOBNCBI93tM2zIgfXdFrT+FBqI9QY//5jGgXvVK6tR5GvC6S/Hy
/ceA1G6XyN/XacDM8cpVQWYHUhroJJ5k0GDj3rUWfa8daD3QwqldQYPJufdn
A1d2YH2XD2NsHw1GE+Mabqoz4rnPwfO2YzToVVBnK7/CiDvGHU8xzdCgbWja
tqODEeXCarljf9Kg9kJa9VsmJvQirO1a2KJBCc8xxuXjTNg9N8Otxd4Kt+sW
TrMnMqH0+7CzIbytkGiec09smAlFk6RVq/e1wtUVwy2Nvcx4JPNE94RYK/il
r5uaWTMjV8JZ/d0yrUBVLSnxyGVGYYa+74bEVrB9Y7ZxfZIZw6plxlKUW+Fk
ED35jiQL0v+mdc6rtIKO4IP8encWvGgireys1gpqNNuV/ioW3Bmys35dvRUI
tuzH/1vexjY7R2o0WkF0s+nOJokV77d177+1jf/JdVncE8yKbxsFhcq2+azA
q0N8zIrhrBKii6qt8GeiPUNvBxvGmrQJ+m7XWwg//81enw3vyvb/UN7uZ/KA
EATEsaGHjmKq6na/o509KUkv2PAWDHyM2J6n1ylgupSXHbvbI5+KSLRCG+NB
jfbT7NgSuC7CJdwKtcXDCW+y2XFB7/TVU3ytUKIX/mlxgh1nS1Q1l3Zt6/lF
XoVNggMJKsyFiyzbesaMxxygciApUYHVfFv/azKx79QrOTCWLNomskoD/16S
oukiBxbx6PJRvtPAjjPl9bVATvw7csVU5DUNTt4HuexWTiQf1fncsL1/HfJc
aB0dFyqekXnx/PG2324aSE7FcGHkDuvPviU0+MO75aebtRNHQ1UtYNtvi/WV
z+3e70Sztw6BImdoMGVhLeR/YBeOjl+FzBM06MtoeFJSvgtfbWWvOijQYICL
xMZox41jnqafi2ZbYNiIJ3MwhBuNup0cXr1tgTex85JZd7ixput8RvvzFphi
KtUhbt9+p7OR4VBxC/zZ5Aun2OxGfTO8uNOuBWTnf61WWvGgR4PejvaOZogZ
fDRlYfkP6kXSvvR4P4RjSbrtpSf48XNO02RaYQOEG9aXD5/nx+C7fofqExqg
jUk8dTOBH+3HTcLGAxpAI4TO1ayfH6OVFul0jBvg0Dkax5aBAFpNi2jFrNSD
hLbSactjgkhU219FMqwH5jWheUYVISw/RjpF/VsLOrVxrxXMhTDOO49fbbYW
rnlttFtfFMJV26EsgdFa+Pv5dWp1jRCOKm558lTVwtpQirotcT9Wmlf0TdjX
wkwFa2SdlDDWbs7rMz+tAReFDS4lLlH0r0pXEs2pBuPx6GJ+YVHMSitmex9b
DYej9xyhUxDF3LWxkRr/amCcUPR8cVIUe49aWRSerIaCRLderzRRDNF44VXC
VA0TcyNRFfsO4My4MsVypgqsKh9sicuKYby32+zXrkpAypEMjv+JYfHtrEPk
4kqQZuwj/jASQ7l75dIfIyph3WbartNLDAeYlMPidSohnWN/q0ONGJJtzOoY
nt2Df91vBOaoiaOzqPxTeFkBJjIuS3v1JZC9n1m9kaUcNuIu0d5bSiCdpYKv
4XwZlM1HRha5SqDJZbCnf1UGjPUlAspREngm7WrRaEEZtGjNHDXpkkA3kcsg
iGUgae6Rcl37IErOfN/3MbwU6MIuHFoESTxttWaqKlgCVZ+ubjaekET+5LGI
QcYSsNFJ6b5yRhJ981VZry8UQyNbnQ1HmCRO3dhL0e4qBs+0n9cl2yTxhWho
sJBvMbwtDxix1ZRCpnss1zhfFkHtyJVLPWrSmBUXEtxVUAhlkc6Ok8elUd3H
hkclqRBySUYnfltL49TLAvGO4EK4kckvI39FGmNdlNflLQrBybbu3c2Obb7W
c00LtkL4Z2pGm2Iog8L7uv5U+xeA/w8zni82smjRx+fj5JwPnkUaW1uestiU
dXOIzTwfHC0OfOcPlcXnwR/EurXzgdw032WYJ4tq4jwbkeL5IBUcG1Q1JYuu
rp703FN58Ibh8cdLXnIYFqn35dC5PPgfj+wDxjACfjX843KJ6S4M0lv3DCQR
cOAgqc1zNhcclmI/p+cRMFxuKjn6RS5EDH3lk+kkIKN4ZpXk7VwYTCwPN2GS
R6v1FF1GpW0+h4xpepw8Tt58UsXukgMRjNIrUplE9KG6U9qmsmHvz9O7lsqI
uA8ydzcNZEPZ52iZlmYiLq2zevU3ZsNA5xc743EiBjAfOmUcu82/WvrMR1gB
J7ekW7MVsqF8UzKzuUgBZ0V+J5y8ehvcfqfkFFMUUejhptYH1SxII39/EuSg
iKlPmsnUg1nQnq87a0JVxP5ScjYzbxbwG6yTVgMUMW/VyTNsPhOep9kN6WUo
4sMGUoZ9SSbIEKV3zLxSRP3tR98skAnfHB5RZc2UkL8+LHvfzgzgr9+b9Nda
CVVcgixWNtNBh8WnYdhRCVdD5v6dmEuHO/fFGIJ9lfBlnGrL9EA6GG9EZ/cl
K6GLz2xgc2I63E81HfQcUsKArSk1e9508H725dADE2XcZ0r2Y5G+Be1Y6UGw
VEahwTrqbf5bwE3zKSy3V8aN5sQXR9huQfWDXzxF3soo+0Y5sWE2DZYzOZYz
k5WRk9Va0LUqDfw9FKqvvVLGR4PRCY1qaRDCHUCwtDu0/R+LzC5RUuGGNfPB
Tc/DGJKhPL3+OBm0FDlXv/odxr+3DLCnPhmWmHi6R0MOo+CEVkJheTJQavaf
q44/jGOUhr5LqclwkFXlvlPlYXz5xvFWklsytDc4qfR+286fy+FI3J0Mq9wd
uhnuKuhRk63t7HkTnLqDXZWoJFRsLlI86p8IzpqS5FVvEkq7WopHOyeCa82Q
Ci2AhHrDRUrjpolAzT7IpBtNwh/Phc7cV0iE894vCiklJLxvma2w/jUBLvOJ
fwqbImHEsmePwNkESHHrtRl0UMV1UY4uKat46GAROOVhpYZWaW/Ifl43YLqQ
aPj2rBp+aGcISLG7AZyoo63vroZjF0S1H5ncAEqgt4p4sBpqEThS1Ig3YGGm
S2D8jhqWJ3mnP12Ihf29vpOGH9UwMJAuU/JSLATF91+UdVPHtniRzoaYGFDa
HZ7+1U8Djfo+jtoPRUEL62vp7hANJC4OV4g/jYJjdERaUYQGeqD0wmJTFJgv
jE+cSdPAuimD8qK7UeA/oCozWqeBdD1BTD7eUdAau0DrXNZAeWfL80ncUWDA
cOZTts//sE01MopGiQSHH0cIZE9N3Eotuqe3dR3yc7uE1hK08OFd8UZrj6tQ
l6gxPmyK6OwmYeAeHwp+LUdO5hgfRfV7rutp+4LhcW/xcqzNMdy9paps9ykA
zumrPzpH0cZzowvaldqX4E6ZUoOHuw6ytt0rW+j1heQfj676BOji7CoTuNz3
gemKS/5UXz3k21GfM/7JC57qpWReu6aPri/WXCaT3IH+xNhkUrgBWgr88n03
7AZ0Rxvp84KOY6j81iMBbxeI4VszGY42xCrX2S7yASfwsXbqXLtuhHKhPQMd
qmfh09XDznDLGG13bakUtNnDP6lZY7H5Jsi1eMo7KMoGSrhlg7qzyXjltWr7
kdcU6PAV0ZW6dwK5E4NHkjUtIVc0T+iI+UmMLBb16ttlDo9CNuioQydxqYHx
WoGEKRwwYvkjfvoUiufLa5P0TkL9C5m4tyOncEOTFK/kYQLxz/4qitqZ4u3L
Eo15Zwwh9eJXd4d3pjhbridhMqwPIXuEd4lZmWHbrhU7t5u6UC7D1Ov30Qyt
/rLaONpqA/NPeoEOe3Ms3a3xffXaUShVrAnN/WKOsurAix4AMo4V5E0vC/y9
N+vbupYmjB9vrrX4ZoGYSqlTTFOH4cLL8nDREueO63aSf5Fgve6UptiyJYqS
C7KePT8MWw99G6LOn8bGh72/sl4rg5Ginm7Iymns5b/Fx7GkCN12Cuc8LlJQ
5j6HivcDIvA4UWk5lyioPMGl8yGfCPbUfK6hAApKSfHam6URYdWXt/ZwCAXj
/gspOxFEBImYtY3NCApWp0ka39QmQnjt4/ib6RRMC8sNUngrDxosJ6sbmin4
J7V37CWrPERxxjLM0Cg4vSeNefM3AV7u7jQXbKMg8Uv5F/kFAlCFDv8K7aSg
UG/h47xXBMhQ4j9m0EfB5ZdK4b0FBPhp8/HfsXcU3DvXvpOgRQA8KyDJNUHB
TfZShxolAsS5mgbCJwqWdoSC5kECiF14KlT0HwUjjL5nOXIS4FRUmYvXPAVn
dh8IXhqTgztxn5ruLlJQjrQyVzAoBzM3BdmHlyn4JiPhrVWnHIRnx1eR1rax
y0/uN+Vy0J/XRXfuFwVPBzedvpsjB3wlf02zf1OwUFSayzNZDhzvqRYPbFKQ
XNFO1IqUg6pqn7Wtre16nr+b9wTJwf8BXkVYSg==
        "]]}},
     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.3}]}, 
      {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
       GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.3}], InsetBox[
          GraphicsBox[{{{InsetBox[
               GraphicsBox[
                {RGBColor[0, 1, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"R(t)\"\>", 
               NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[1, 0, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"I(t)\"\>", 
               NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[0, 0, 1], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"S(t)\"\>", 
               NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
               Automatic, {1, 0}]}}, {}},
           AspectRatio->1.5,
           FormatType->TraditionalForm,
           PlotRange->{{-0.1, 3.1}, {-0.1, 3.1}}], {0.2, 0}, {
          Left, Bottom}, {0.2, 0.3}]}]}}], {{0.31330047686850393`, 
    0.10564783522310073`}}], InsetBox[
    StyleBox[
     RowBox[{Cell[TextData[Cell[BoxData[
       FormBox[
        RowBox[{
         SubscriptBox["R", "0"], "="}], TraditionalForm]]]],
       GeneratedCell->False,
       CellAutoOverwrite->False,
       CellBaseline->Baseline,
       TextAlignment->Left], "0.95"}],
     TextAlignment->Center,
     TextJustification->0,
     Background->GrayLevel[1.]], {0.4972624008670907, 0.08979481008131973}, {
    Left, Top}, {0.24043990085257272`, 0.0728605760159311}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImagePadding->{{0., 101.736769}, {0.645161, 51.363507}},
  ImageSize->Automatic,
  PlotRange->{{-1.0291666666666666`, 
   0.4291666666666667}, {-0.6460339887498948, 0.32799999999999996`}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.565648606247723*^9, 3.565648659319759*^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[{"\[Nu]", " ", 
     RowBox[{"r", "[", "t", "]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{
    RowBox[{"\[Beta]", "*", 
     RowBox[{"s", "[", "t", "]"}], "*", 
     FractionBox[
      RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
    RowBox[{"\[Gamma]", "*", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"\[Gamma]", "*", 
     RowBox[{"i", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Nu]", " ", 
     RowBox[{"r", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Nu]", "=", "0.85"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"R0", "=", 
  RowBox[{"N", "[", 
   FractionBox["\[Beta]", "\[Gamma]"], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tf", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"szero", "=", "0.90"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"izero", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rzero", "=", "0.0"}], ";"}], 
  "\[IndentingNewLine]"}], "\[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[{
          RowBox[{"r", "'"}], "[", "t", "]"}], "\[Equal]", "eq3"}], ",", 
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "szero"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "izero"}], ",", 
        RowBox[{
         RowBox[{"r", "[", "0", "]"}], "\[Equal]", "rzero"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "i", ",", "r"}], "}"}], ",", 
      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]", "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"plot3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"c", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"r", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<R\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Green"}]}]}], "]"}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"R", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot3a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"r", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Green"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowLegend", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"plot1a", " ", ",", "plot2a", ",", "plot3a"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<S(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<I(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Green", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<R(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[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"r", "[", "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)\>\"", ",", "\"\<R(t)\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Green"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
     RowBox[{"LegendSpacing", "\[Rule]", "0"}], ",", 
     RowBox[{"LegendPosition", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0"}], "}"}]}], ",", 
     RowBox[{"LegendSize", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0.3"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"GridLinesStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", "Dotted"}], "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Density \>\"", ",", "\"\<\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<time \>\"", "[", "t", "]"}], ",", "\"\<\>\""}], 
         "}"}]}], "}"}]}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"plotP", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"ParametricPlot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x1", "[", "t", "]"}], ",", 
            RowBox[{"x2", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", "t", "]"}], ",", 
           RowBox[{"\"\<E\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
      "\[IndentingNewLine]", "plotQ"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"ParametricPlot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x2", "[", "t", "]"}], ",", 
             RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\"\<E\>\"", "[", "t", "]"}], ",", 
            RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], "\n", 
       "plotR"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x1", "[", "t", "]"}], ",", 
              RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"S", "[", "t", "]"}], ",", 
             RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
        "\[IndentingNewLine]", 
        RowBox[{"h1", "[", "t_", "]"}]}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x1", "[", "t", "]"}], "/.", "sol"}], "]"}], "\n", 
         RowBox[{"h2", "[", "t_", "]"}]}], ":=", 
        RowBox[{
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"x2", "[", "t", "]"}], "/.", "sol"}], "]"}], 
          "\[IndentingNewLine]", 
          RowBox[{"h3", "[", "t_", "]"}]}], ":=", 
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x3", "[", "t", "]"}], "/.", "sol"}], "]"}]}]}]}]}]}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5638355904558997`*^9, 3.563835704468421*^9}, {
   3.563835950077469*^9, 3.56383606512805*^9}, {3.56383613822723*^9, 
   3.563836367357336*^9}, {3.563836441114555*^9, 3.563836444201731*^9}, {
   3.563836535058928*^9, 3.563836589524043*^9}, {3.5638366644783306`*^9, 
   3.563836665858409*^9}, 3.563836695909128*^9, {3.563836848841875*^9, 
   3.5638368525680885`*^9}, {3.5638372255084195`*^9, 3.563837265661716*^9}, {
   3.5638383151507435`*^9, 3.5638383180759106`*^9}, 3.563838362903475*^9, {
   3.5638384377487555`*^9, 3.563838575206618*^9}, {3.5638386112096767`*^9, 
   3.563838657701336*^9}, 3.5638386889021206`*^9, {3.5638388049467583`*^9, 
   3.5638388069938755`*^9}, {3.5638388495773106`*^9, 
   3.5638389667440124`*^9}, {3.563839052506918*^9, 3.563839071571008*^9}, {
   3.563839147339342*^9, 3.563839232596218*^9}, {3.563839314060878*^9, 
   3.56383942477421*^9}, {3.5638394696337757`*^9, 3.563839480051372*^9}, {
   3.5638395362795877`*^9, 3.5638395453271055`*^9}, {3.5638395986821575`*^9, 
   3.5638396665290375`*^9}, {3.563839704558213*^9, 3.5638397404972687`*^9}, {
   3.5638398239280405`*^9, 3.5638399312031765`*^9}, {3.563840014577945*^9, 
   3.5638400676949835`*^9}, {3.5638401105414343`*^9, 
   3.5638401221330967`*^9}, {3.5638401613373394`*^9, 3.563840168990777*^9}, {
   3.5638402066729326`*^9, 3.5638402331264453`*^9}, {3.563840302771429*^9, 
   3.563840436440074*^9}, {3.563840514500539*^9, 3.563840531504512*^9}, {
   3.5638405784992*^9, 3.5638405821144066`*^9}, {3.563840618338478*^9, 
   3.5638406387506456`*^9}, {3.5638407249235744`*^9, 
   3.5638408190029554`*^9}, {3.563840856229085*^9, 3.5638408646885686`*^9}, {
   3.5638410103198986`*^9, 3.5638410835630875`*^9}, {3.563904889849905*^9, 
   3.5639048947221837`*^9}, 3.563905146271571*^9, {3.563905177983385*^9, 
   3.56390518226363*^9}, {3.56390525411874*^9, 3.563905299470334*^9}, {
   3.563905472683241*^9, 3.563905489465201*^9}, {3.563905647569244*^9, 
   3.5639056597809424`*^9}, 3.563905703646451*^9, {3.563905742419669*^9, 
   3.5639057793877835`*^9}, {3.563905869972965*^9, 3.563905882011653*^9}, {
   3.563905928065287*^9, 3.5639059436801805`*^9}, {3.563906210805459*^9, 
   3.563906215908751*^9}, {3.563906296232345*^9, 3.5639063025807085`*^9}, {
   3.563906365490307*^9, 3.5639063658563275`*^9}, {3.563906424897704*^9, 
   3.563906433242182*^9}, {3.563906471104347*^9, 3.5639064759836264`*^9}, {
   3.5639065288356495`*^9, 3.563906529453685*^9}, {3.5639068329810457`*^9, 
   3.5639068636147976`*^9}, {3.563906895527623*^9, 3.563906897037709*^9}, {
   3.563907110560922*^9, 3.5639071121890154`*^9}, {3.563907274969326*^9, 
   3.56390743274035*^9}, {3.5639074760618277`*^9, 3.5639074793070135`*^9}, {
   3.5639075838239913`*^9, 3.5639075917484446`*^9}, {3.5639076912791376`*^9, 
   3.563907827329919*^9}, {3.56390786003179*^9, 3.56390792333441*^9}, {
   3.563908035557829*^9, 3.5639080787833014`*^9}, 3.5639084082481456`*^9, {
   3.563908463246291*^9, 3.563908492127943*^9}, 3.563908626086605*^9, {
   3.563908825166992*^9, 3.5639088270190983`*^9}, {3.563909238651642*^9, 
   3.563909240037721*^9}, {3.563909322232423*^9, 3.5639093344691224`*^9}, {
   3.563909382587875*^9, 3.563909606090658*^9}, {3.5639097046552963`*^9, 
   3.563909707405453*^9}, {3.5639097449105988`*^9, 3.563909747819765*^9}, {
   3.5639097912782507`*^9, 3.5639098366698465`*^9}, {3.5639098902499113`*^9, 
   3.563909890652934*^9}, {3.563909925842947*^9, 3.563909927602048*^9}, {
   3.5639099589818425`*^9, 3.563909959344863*^9}, {3.5639099995731645`*^9, 
   3.563910046916872*^9}, {3.563910148071658*^9, 3.5639101691978664`*^9}, 
   3.5639102340005727`*^9, {3.5639102721207533`*^9, 3.563910351650302*^9}, {
   3.563910421532299*^9, 3.563910510495387*^9}, {3.5639105664275866`*^9, 
   3.5639105760811386`*^9}, {3.5639106580418262`*^9, 
   3.5639106824562225`*^9}, {3.5639107247046394`*^9, 3.563910728398851*^9}, {
   3.563910840744276*^9, 3.563910862496521*^9}, {3.563910926792198*^9, 
   3.5639109604401226`*^9}, {3.563911036075449*^9, 3.563911037511531*^9}, {
   3.563911431340057*^9, 3.563911437320399*^9}, {3.5639114789257784`*^9, 
   3.563911493954638*^9}, {3.563911525254428*^9, 3.5639115374281244`*^9}, {
   3.5639115750762777`*^9, 3.5639115880030174`*^9}, 3.5639116582250338`*^9, {
   3.5639116984503345`*^9, 3.56391176008786*^9}, {3.5639119457344785`*^9, 
   3.563911983828657*^9}, {3.5639125210403843`*^9, 3.5639125490409856`*^9}, {
   3.5639125979987855`*^9, 3.5639126611083956`*^9}, {3.5639128670021715`*^9, 
   3.563912872138466*^9}, {3.5639130702837987`*^9, 3.5639131278820934`*^9}, {
   3.5639132526262283`*^9, 3.563913434192613*^9}, {3.5639134979902625`*^9, 
   3.5639135222086477`*^9}, {3.563913559982808*^9, 3.563913587937407*^9}, {
   3.563913643129564*^9, 3.5639136454726977`*^9}, {3.563913893811902*^9, 
   3.5639139485590334`*^9}, {3.5639139840870657`*^9, 3.563914064888687*^9}, {
   3.5639141429901543`*^9, 3.5639142000144157`*^9}, {3.563914269810408*^9, 
   3.5639142840542226`*^9}, {3.5639143487949257`*^9, 3.563914404738125*^9}, 
   3.563914455294017*^9, {3.56391451899066*^9, 3.5639146165662413`*^9}, {
   3.5639146469249773`*^9, 3.56391465099021*^9}, {3.563914684638135*^9, 
   3.5639146860572157`*^9}, {3.56391471638395*^9, 3.5639148044359865`*^9}, {
   3.5639148449423037`*^9, 3.5639148622662945`*^9}, {3.5639150099297404`*^9, 
   3.563915010347764*^9}, {3.5639151494727216`*^9, 3.5639152487053976`*^9}, {
   3.563915326603853*^9, 3.563915346531993*^9}, {3.5639157813918657`*^9, 
   3.563915788211255*^9}, {3.5639160749616566`*^9, 3.563916084421198*^9}, {
   3.563916863145738*^9, 3.563916867956013*^9}, {3.563916974604113*^9, 
   3.563916998251466*^9}, {3.5639170471642637`*^9, 3.5639170731837516`*^9}, {
   3.563917169124239*^9, 3.5639171692732477`*^9}, {3.563917225221448*^9, 
   3.563917281815685*^9}, {3.5639173866606817`*^9, 3.56391743454642*^9}, 
   3.5639174785899396`*^9, {3.563917530621916*^9, 3.563917555013311*^9}, {
   3.563917726810137*^9, 3.5639177280732093`*^9}, {3.563917953474101*^9, 
   3.5639180072371764`*^9}, {3.563918038582969*^9, 3.5639180432792377`*^9}, {
   3.563918079533312*^9, 3.5639182234085407`*^9}, {3.563918264612898*^9, 
   3.563918265321938*^9}, {3.563918306125272*^9, 3.5639183204030886`*^9}, {
   3.5639183512768545`*^9, 3.563918397598504*^9}, {3.5639186015911713`*^9, 
   3.5639186261025734`*^9}, {3.5639188701865344`*^9, 3.563918974285488*^9}, {
   3.564081080539436*^9, 3.5640811343645144`*^9}, {3.564880574348827*^9, 
   3.5648805849744344`*^9}, {3.5648807151418796`*^9, 3.564880717960041*^9}, {
   3.5648808318375545`*^9, 3.564880834966733*^9}, {3.564880887672748*^9, 
   3.5648809435619445`*^9}, {3.564881002612322*^9, 3.5648810078276205`*^9}, {
   3.564881058793535*^9, 3.5648810605646367`*^9}, {3.564882586727928*^9, 
   3.56488258833002*^9}, {3.5648826193637953`*^9, 3.564882626198186*^9}, 
   3.5648828797036858`*^9, {3.56564819568624*^9, 3.565648236749589*^9}, {
   3.5656482701985025`*^9, 3.5656483646979074`*^9}, {3.565648398269828*^9, 
   3.5656485926029425`*^9}, {3.565648870439834*^9, 3.5656488787373085`*^9}, {
   3.5657263377410965`*^9, 3.5657263452695265`*^9}}],

Cell[BoxData["3.`"], "Output",
 CellChangeTimes->{3.5656488807814255`*^9, 3.565726345865561*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwtmXc8198XxyWjQsOKjITs8bG3e6wS2bJX2SJCZWaFjFRIKEJKiUKp7FSI
KOFjJiUaKN8iJON33z6/vzyej/d9cM7rnvu651z7jvmbu1NTUVH1bKKiIn7y
X1y9mc/brDl7puhyZ+cMMmigN/7iuY64OiJJd9W+oy4mxa00jjvBPeyK4dfS
CaR9Ue9ZiQkHmOwVkN9+9SNyl15mkmHiA0bBoZ0vTowgI1H3X+wHBcFf33aq
dG4AVfVFnmpXFoGcQtujIyf6kRqz2AOaKAnQvcA2daaBjDz/pefdsiFB1a6x
MVI4Gfm3fpV7YCQLcnl5os9dySjZjm7/qq88tO020Ta3IyPXtnAPGS9F+Gxx
BcSsyaiZntPsuK0yTEfurd9sRUYyu6KzvgerQszr+PxLR8jIZU5DwthXHSzE
Gr/5YC7Mb+FevKAJaa9a4x0wP0xTHekxB5CIEWmxxhxcq2Gad1gLgs/eVrbC
3NRx63eSvTbwbLpQeASz90GVBm8bHbj35UoAwdfvyFQf99EFw7qtTgRfnmuI
CTijB2cSHG0I/lJ66rRX4AGQ7Q61IvjlgfTs2NiDoMdTcYTgTSbD4xej9aH2
gsAGU2k93lQQeggO2b23JPj87kWjnkQDuFrIvPE9wM71+WKcIXy9sWeDP8XI
u6Erh+G8CcMGs2bkDCcVGoFZsuwG394pFtp2zRhmRLQ3uDlwr57wPRMI6aBw
Pl8Bt4alKagZG21wQ8QylVe3KTA/stjgfYb0KwLWZsDx2nKDH70VTRnqMwNe
C8r31NY1Ep+jOVz1NN/gjKDvPi7vzWFegLI+go13B7+tBZC4jmzwXVHajuCP
FhCiTmG6+U2czU6WsLJCWV9Cqjyb/9USWj5QWPRYqfGq3xFol6CsHzlUU3Vk
+ghMmFO452aYJAqyAm1XCi89NFPn/20FzqcovP40sDrhhDVIpFLYkHRAL+KP
NUT9n9scpb2PB9kAfyyF71cELK6v24BNGIU7Lo+c/OY5i/R27v4Zxz6Nzr9p
mDhixQqN19mHWRPHEd0i908aBW74VNu8XPF3FNmWPVgXEOOHP4ubeIWODSGq
qJNy/yEh+Dswf3V92wA6PWfB/NVeDCJly5TPbepH52hE/ghnS4HQM01z60wy
mnZp8BKzkIErtFV8z3yxfjvPSFg5ykHXD+/zfY5ktLCzWe+qjwL47OSat7ch
o3TPDvs3LkpAp0IfH4TrPzS1M0jMUwUs/wFbHY5fn9r507UANRjWnuQOJeqr
PaaYP1IDFOgfdRzFTOOU5/0mB4GVn1O8LeZMwXq2p28BJMWru4j6z31+spCl
TwvMAjoGN+oraXbg75A2dDuJxhFMHaJQ4/NJB0zvv3YjmP3NGa6f/+lCu7CP
HcHqbzkjZub14HmEnDXB5KW4xFPLB8A1lmrjPIwbPNZI2qQP5pPulPrX1/+9
e1UfjFTmNupft6xfuIbKADgKpzZ4RVlyyyStITT18m6sF/lpmHGN8TDENe7Y
4LBtnjfcuIwgXIRyPkbffbp7h9cY3tBpUuq3WdD5jIAJ9AVR6n995qrzN1ZT
+Ml/kLL/xl1p5ummwHLEbINnP0evtbCYgX0XpR59LmS/WLtiBmISFOYzZP2w
wmEOfy5S6n8nz7zRs+vmkCFNOR/nX27WaN5jAfzNlPXpNy77vr5uAZValPoa
TIv7lbvXEiz5KGyVPvRa+qYljI5R1nu1l3/pEjsCt+ko36n7K6Pvlh0BKV0K
9y9wBhhIW0GsA4Unxb88qqiyAhsfCkcojodYkqxhMI7Ct4IdIjdVWUNTGoW3
tqkOBMnbQEsihVXpTSuqa2zgcQSF21XjamY8x9C1PZWFS3PTSOzn34UyW2Z4
1Rm11pL5GQnqyFhbae+BiYk/CQJRY2jsR19CKdc+2Lf/oo2f+TASsjyeHqez
Hyrtqmr3BA8g1olvOjYGonCwmCtyUKYfuTCImmelSMLnyuIv3rfxeZcS2fyN
TALO3/GTe4PI6PRx6YpYsiyY3hoje7mQ0bNqV4WOaXk4K/lPTNkW7/dugU9R
E4qQYGJc9wLXP09H4LjBR3wfvFq7PIzjr0+arXv+WxX8HiW4x2EmfXD2ejqv
Dl1z87XumM3PyrwYZ0Ew956jxw5zsW14iN5lgGtbJlSI+yCxcSDE5pIWCC2T
qInzMHXXYLI5VxsuP064ROjz2FlJbeq6DohFDHlv6H8/pmfNnB0CXoaopCR8
Qt9Kt8Q/FOaFD9y/shlvvEe9PskhecoCMGeQOx+ZM4iG7p7pc1AXBjsjtqzZ
R/1okLrp4yk/cXASCUvyHMF+uSqUXVMsDU+vHRVWTCCj8gzzN77dMmDL0Vvw
1JOM4qob74hOysGsAm3moD0ZSfjyWrl9VwDZ38LiFfh+LH1ysp97VAnmJHpb
5bE+ZGMh2m0/VSDz4Sr1TRxvX9gbulM/1WDJ+CHvSczdD29+TKXVBN7Wg51O
mIfzabaM7gDQCQhOtMF8bnalSmy7FmSvk0MJPcpaGTre7NYGlrfuNUT+ml6Z
HTKcOsBypjqEYJNLckrT+3XhluekC8GvUnv0/3i+RbHBh+XiXGbQyuruaBv7
XTD9IeMv594JJOddx7Cuzwnsghlpr0U+oqI0zw6/TD6wTddn6B8eRrWa37SM
WgTBlw55DVcMIFeHh+8vNYvA8/43W7ON+9GbtLvRRrSScHaZOV6zEv+9TMfu
A1dJMNAc2Dt9mox+ZzP8zr4sCyhJreDvUTLav0Wh3LVMHmLMfkbV43o64f/2
ps1tRbj0qnl4Dus1+62Fc+S6MqwJlLT8wPGf7lIS7X+oCqxhQVeTiHy+GRvE
VajDa4Ojgl6E/6T9m53p1gQ/WtU8e8wS88OijIEAm3y5wol6OlufPBF2Qgv2
G2ZxEfpZqi5N7w/XBs++yGxCn0sWyit3w3SgMW3Jd6O+Gm/Yl1qywf0dh9a+
0Iyjxe50FQcpHjjemLROfXAUZTHw1LtU8gNq8BsR/TuIfDPn44QaheB6n8OJ
9tF+JByeFHp/Qgz4D3z5Z/YD+3NMSWsArzQ8SHFY6k8lo8PLiddeX5aBkTBh
QXYf7L+fc6dQoRyw2YV+bnHA/UzjbNfqXQXoE/j8lArfN/k7eHP+5CuBgpWr
ijnWp8QvVD23VAU8A+c07uN40xrZg88/UAPfU+2jwYR/NaY/t27WgC07HGRc
ML836lV/+R4Bz7bhVaKeGJMd3H79BGj2FSwk9Lj5slHh1x8tqDuy6dVGv7Ck
9e7KX21Q+pQdSTAbT0lRuRoX0OWAN+eTD4jbSFvna9E+qAnPimQgD6EM75/j
Nc37IcHVaO+i+gBqOc57b2+vKJSTqtO0OfrR78Q7AmO7pADV0Aj0Xsf9Zdtv
hSRWGWjxudff5E9GfzUsTvhyysEB2htcW53JyN41vYEkrgANtP7qL3D+CU2n
eUv4laBM1UgkB+dveG/vvVoBFRC7/OZlO+HPB0qMH8ioAemN5s9IzNm9AQk/
lDWALiuwwBWz+AnPrEErBMK0V/gIv+Fu4mo7WwHwx9qBiqiPS88EmRSrtCD/
8I4ZIt8ozrwPjrXa4BcbkkTw++OKYWJNOmAmL+S5cd90LMoPNwmA/KHuQ4na
g+hA07JgRq0wdEVlebNc6kfJyfMHNRbEQW9H0UrCazLi1eiVj2EjwcP4qkT7
aDLaLsmzafsOWThrts57wx33Y+fHPVhE5aHPjDltC/aTV5xGHzpEFAHd69/q
bU34XQuLLpcyvNuc/mwPzn8zqbcrVEYVGu055HJwPHuUEnKOSqrDvwdp7/ww
K999tNZ8CPfbydRXHDG3Zt34ZS0DkOzftpfY/xXLvE1uklpQMCVpTez/41c2
TmUq2qDofa+MyK9v4MuLLmUdsFnwCCa4lXTSk86rCc2U89jlZ82gCdoSXan3
OyFuRX9hxG0CqUZQeVh0ckCerD3JxPkjohkj+b415QMS92iZpcAIonl0m1M2
QRCGJe12hr4bQMnZHKKSkSKAeLW9dJxwP9b9fbfocwm4k5DMIfGEjDj0lxQX
zpDgZHuX41oIGVU8+Mtc7C8L3PnZZ/qPkZFNJY93Rao81GvtY6bF84nXtf20
eomKkKIBytuxXjYh/goC4cqg/cjj2BJx3mdHxpwzVaFjMmstleinThyo80pT
hzeqAWHexPnJcqELfKAJmrRZTMR8EtCcHOt/DMD71+98oj5C1dz2pDpqgYNY
kSihVzK1yaz1cW3IOD12ndDnRqsUXzSZFbj+iVxO0RtHa58HMioquaFFWJeB
+sYoWrL/4vjcjx+S3nEfDpYYQo+3PrRniBKCexOGTT1z/cj4yc8WgwIxONrW
McuzSEZdz786Hh6Rgjb5D1dCL+F5p5yfOjxQBlivaG49epyMGv+eZzCMkoN7
3Uwv9XF/+tJzMMkgWQGubb89LYHPS7Za8PKnKCVIV9Z2PIbrZecqv834eRXY
wUcOfITjPf6xVoz5khrc6TKYOU30ZzrJcho3NECtgmqR8Iv/jihbHKpDMCxu
goj+1NSascFyDMC9/fFjIv98nezj1JNaYOXN1U3k/+FZdl/bd22YXz4UTTA3
aWZlU9MeiJOWE+jiHENn8xgm9Z33AWl292Y35mH0/kNZbX7sfpg0nU5/bz2A
ZkriFuvSROH24cGicsF+dLf9W23tG0mQ9D/FH1qI78OwC9eV/5AgPoJeyPUk
GT211Lp4ZlEWXnHqqj3EfpHGGB4ayYD78yq3iX84/+jpzqiMzUpQJ6zWUY7z
f6Ta3kpNrQKye20/v8PxjXka0qowq4FT0lRGNOYJG6/FHnYNYOm5XOxG3Ken
O8scFRB8rnc+TfiFS+rrveMFAH0JStxEPaSiNe2DhVpQxNS4sNHffpr7dLFU
G66fnEwlOHBPc79ahABca0yp+OM7iC7J16ycCRcG+s/uSfRF/aiy1TZzqFIc
qEvDSlV68f1Y94Xqw1dpyLyqkCoTR0ZOH594NszKwCBkj970wPub353ISy8P
U6dmBP2wPyw/V8jdvVURaoxLzqbgeq9I4TpFWlGC+3bzDsI4X9+miO/NO1Sh
Qv7pf3k4nkUbMdNpJnWYv1nv40/0E1Jl/iXCmiAZeFCc6De69/RE5PIBiCdO
mBH+APxGdm08WsAY/8eT2O/Kg7KZDSLaoIneVRH57Tby/n5SXxL47W1YSu+R
kXwsz7sLD2UhuKG4Sgzf77+dDv9i75QHRv2th0Lw/R6sE6rt26IIN8zebR/B
8SXYcq+lNyrDyYxrQ5/x78u5lxF4uFcVTE/muCcQ/bOr9VBejzpMRWyf9MDs
kZA15PlbEy4tKMsT9/s3IfF3d2IAVHeE2xL7EatRed87SgvOvw3eTsRLhQQl
mUXFgetF++juCbx/yFP6ylFpiDjdq+qbhP3vwA957koZmCgTdPzgRUbanWXt
8i/kgF/ylaUhvn+d2OiZK9sVoNMzUmYA61v8uU1pa6MSoKYWBh0cv+aHt3zm
nSqgdJg+4A6hz/XAhrU3+Dz5CM0GEvWvcs0s8LMGmGTWhzgT/YreCSG0huBp
btkzQt9X9WUMaWsApJ0fU4l47+hNro/RaQNXSeAzQt9g0nSX61YdsGZkCd94
Pwi5Xyzi9QAZsU8WV1TOoMGkn0I513eCHINs21DiBGqkFchYvcABucInq+nD
PyL5RDYNKmk+mF9V4CjXH0F3fsbHF3sIAnfGo1tO4wMoX9HQ5J+dCMw5PqI/
6YHngV9Jn7MKJKC9XnVMrxb3+4V6U0ZeJNhxtfkcSxj2j7qAm3edZEE6mNrD
wJWMftEyt/VHyINnrDqzOPZfj8puhbozimDlE07LjfViBF2dgz7KYJI/trCK
49emkqorPqcK823qbWmYa0nPg+wj1aFD8IwU8T6UvSfj8qN8TRDTLNMn/Jf5
zrhUoR0AU3pTJbG/C8um1axHtEBwbbMMoVemwWnq6SusYGjcUi7vMY5i/Zaf
2QVxg+u2+6GbO0eRCM1rqTlDfhhsqmJdPzCE7HXT2yKdhSAgrek/nfV+dOzI
vhmOs2Kg+yBVS2MF6/85UbS2RgqUuhOHXNLx/EsfUN1zTAbuP+JbZfLF8w0t
1XXTE3LAcvFC9AXst471nV8DwhQgji2eWRf7zRWzveI2AUrANFny1gfXx8uX
i+50ISrQoNtf/QTHa/eLkc46Wg3CoiSpQgimo5uRTtOATf30zsR7wPKQz4eU
UgQdRxuPEn77W8PNO2EAoIVM95zIl3tzPF3Key2IqXbuI+qhoGa7WFn0Hoh8
XBoteHgM3df7rzpUYx+elzOid8kOoxjOVKFdrvuBWd2n/K37AKI68Jgn2VcU
5izPhYiJ4/t26nyCSLkkaBtrTn69ic9P37DJpUkSqN78T0szEJ9vl6d7I7/I
wl0JxQuMeP4TPuo/cPOfPER2Jl/ixOc5clNIxdZ5RZgqK7v6FOfrRZ3fJ/RL
GZAer0g/ju9NSN7HSGo18P/GshhD3JdcEw9aaDVg6IWbJDH/6S+vKRUIIjjF
dOYm4a/UQQKdLDkA6tt6xIj93rY+Nfo2G/djsk4rRL5Fz2+V+NoJQMTVXuc/
sYNI3j/ba8peGF5cd7RzuNePXrql1pZcFAeGy5lNMID//vuETsNWaTBcyn1f
fg73V6q0XGwfZeBpVx5JAs9vgqUHOQQX5MC3mG65EPtpxm6xJY2/CtDG1Z+S
h+u3vLD11u0ZJdjzzG5REufHl2i2OLmmAsI2EycKcDxfvCPESWtq8O+2jlYA
ZrFfwiK57JrQkOcWRvgp2eH4czUOAGNJNV/ivI9vuUX3l00LZnObA4j9lKLf
K32ATxu27GZ6TOT3229r9ZiQJKw6vD7lfR/HcyHzaEaRLNgUeYVdwn6a+hBM
NOrlwTdKZTQH63/SVjBovBr3O9YSul9xfKr7fjE8KVcGB2mT2m/E+0f9pNHl
F6q4v2ZbSsTML9R7+VKzOvheWIrxJPqbbe1upZ804VoT2ZPw02SmuMjhUIDT
s3Q+hP5Uq3mHfp/WghrG76xEvKyjVhYf6cRh23SCys1vZKTmQv+PGqSBRLPY
vScF+2OB6regQhk4V8f584w3GRUOCNipVmF9v2XnJmI/XfL+5z9QowBic95F
01jfwr+BXlH3lWCk+tY5Axz/71vFUqfrVMBFKMrgHlHf5S+zdZrU4EVn1ngQ
5uf/2Le592hA4UB4L+GnPe0FlTE/ECzENn0g9PW5SfO0aQHg2vehLCJeIdqe
XK81LagSE31J6Ptki+heP68bqEOmn02jaQb1GDJnv4nYCYz1sg1OORMo2uDR
3Z4THJChXqWzKekjOjySeIuDlw+U5l8aFNiPoOWUU3WjVoJwMe2/3sWpAXQn
3u3Y+CERuH7cKC7fB8+/m+zauy5KQHL4qe6ROuxPxjMvQl1IkMKgL1KI/fMZ
lB2XsJKFLi+t1/HYPzVJjAvfg+WBVFMep4n9001dyHjBXxE0FzjZBLA+X25K
GQwdVYYlQeNeKqxP7ZYBkbYIVXD5RFt5EefDxEzV3ResDsfy3yYT/nndQWLg
SJYm3GJd8iD889i17bS1VgA75FzqiP2stmujHjLVAr8fnfKEPmmMuUF8p1lB
JU+VNv/0ONKtShmQtuSGkldq9S/HRxHYaFxlUOOH4jGZ6bOWQ+j+p5jVxyZC
0Nnp5sBBO4B8i1XX133FwGvgxJORNTzfzlvv+HVHCiqCw4XtMnD//oj94pqd
DJ7H4zw8sH92Jqu59brLwb+z32sqsH+WfmllPxeoAAK3i6dNsH9mvg/WyfBS
Aqkf7/b543zzRcZ9s/1VYInmx9EaHO+7v9VBoSFqYNHjfYHwz/KvOvp34zXA
SMkzk/DPdS4aQckiBNR3PIMI/9SRuYRu9ALM0/S0EfkeW7sBMUf3wJRKH+9F
9zHUmnOMN11iH4R7D50V1R5GfY/DHQws9sO9jh8cU74DaNuVt6ST9qLg4JMM
4VJ4fl228XW+LgmvJT2DhW6RkVVMjGj9KAm+2w6i+9gvWyfnvq6PysLKFLuZ
KvbL4BRvuidz8sBveLFJBJ/XiNSuV7ozuP9huszbiPPT9jg/8vSbMnSX29kM
4vj0Yg4YFyyrwvB/Y2WxmEdX9jGiVXWwkEoPIvzSSD07UosbgXPllVrCLy08
TIokrgDc/WooS+zvK6ej4pmZWpAlorVO1HstO8fO+EMCsIPptodI2iBKYDyf
L3BYGNZpv7DwVuB6fXirK+2sOGgedd9rOkRG6j+sqmKrpaHc8VVEQDzut7/c
m4dBGfjbJvj5JPbLPum4j7d/yMG+tQCmBuyXH7UEhc1+KYCawuKr27heyyS4
Gz9NKMGORFsbGZzf8pTa2pkFFVjcJ/y4EMfjGLg/x3xBDb6u7XlA+GVkj/s5
lu2aoES1UkT45eCqkjsjK4AaT10ocZ7lVrrf72LWgvVC7VPE/rmcHcplZ5cE
Tx8uzXcPsH4s3aLsubIgVTt74yX2x8FR1bOmj/B58tRkvIf1DpgITeG5rwhu
MjxxP3A8rPEjzIduKYMAa5rqNFEvL9PqHtapQpz4vtbzmE/R7/q5tUYdWnaG
9RD+eOrwsVLDIU2YXzOKJfxxhOqBxdwpAL6GqEBC7yYH1quPA7XAKFCZg4iP
VyLAo+2PGKRKc/AsTOF+ImDgo4q0NGxuZZNYxP4YYvSp+UaODMw1WgW2Yn80
dXTmb7grB7KuJZG3sT/qZv7Jn6pUAP/DBRwLWM+Cc6+ia28rwcEiP2tjHH/n
1osKWx6qAMQwNZcR/fdjPzqPJ2qwJVHemXjvYRu19PjQrgG007TUxPw2wKC6
yD+JoEdS/CehZ10WKW3wN0DK/Pw1Il4NS5kLUrUHoOmdysb/Aw5u9rUJfmcC
o3t0Ke/7tr27HIMtoWOO8h5ePDg7nCLFD6xOf2SvOg2h5/feBL7TMwStKu6N
7x7lNDdSpMyBFEd5j5+iKTonhQ3o1nHKe7aHwY+4d3pqcEE/zzUCs8O1qqcp
UrJw4Fr14QdueJ5byShJkdIG5arqCmL9/wAePWS0
   "], {{{}, {}, 
     {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl1GWUVWUUBuChQbo7hk7pbpBOh5YeUhQRJZRuUVRQlFbCIgywwKC7wwSx
RZCyW+LZyx/P7Pe955sFd59zJjF5VNI9KRISEk75EfMBP0pyRJ7LIKqTklQ8
6FopjsoPM5gakX1Wky/k5YwjNRN8Vppj8iMMYYnegh/ll6kZ1/RafCmvYDxp
mOizMhyX5zGUpXpLfpJfoRZH9HnU5iv9mfguvKR35Ya8lbRM0styQn6UYSzT
W/Gz/Cq145peh6/lZ+O7s1bvFotim5GOyXI5TsqPMTx2oLfmF/k16sQ1vS7f
yCvZJt9NXibo68zucR/YrqdnilyeU/LjvCknk5k7Y1dmG36VN1I3zun1+FZe
xXZ5JPmYqK83e5CSHXoGpsoV+ECez4jYod6W3+RN1Itren2+k1ezQ44HKD+T
9A1mT1KxUz9p3mJOMyvyobyAt+RBZOGu2K/Zjt/l16kf5/QGnJPXsFMeRQEm
x7Nj9iI1u/SMTJcr8ZH8BG/Lg8kau469m+35Q36DBnFOb8j38nPsku+lIFPi
GTPvIA279UzMkG/lY/lJNstDyBa7jr2bHfgz7hkN45zeiPPy8+yWR1OIqfHc
mb1Jyx49MzPlynwiL2SLPJTssfe4B2ZH/oqd0ijO6Y25IL/AHvk+CjMtnkez
D+nYq2dhllyFT+WneEceRo7Yeezf7MTfsVNOxL8RZ80m/CC/yF75foowPZ5J
sy/p2adnZbZcldPy07wrDydn7D3ugdmZf2KvNIlzelMuxjvNPnkMRZkRz6fZ
jwzs17MxR67GGXkR78U7Q67Ye9wD83b+jb3SNM7pzbgU7zr75bEUY2Y8m2b/
eKY5oGfnIbk6n8mLeV8eQe7Ye9wDM4n/Yq80i3N6cy7He88BeRyJzIpn0xxA
Rg7qOZgr1+CsvISt8e6QJ3Ye+ze7cC12SnNu06/EO894uTiz5YFmphT//90/
pOfkc5Yyhuuxr/h9rsZ7TQln55iHycUyxsb3pUXsgdy0JA+tyMtBv9fazEcb
8tOWArSjIO05Gu+C2YHCdKQInShKZ4pxKO6bmUgSxekS/z+6UpJuHHOulNmd
0vSgDD0pSy/KxfeJ99ssT28q0IeK9KUS/Tge77zZn8oMoErskqokU42beE3Z
ZQ==
       "]]}}, {
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], 
      PointBox[{457, 458, 459, 460, 461, 462, 463, 464, 465, 466}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"S\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.34},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5656488807814255`*^9, 3.565726345885562*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwtmXc41d8fwG2JIrOsr5W997rO20yyyUykMkoRkoYimiShQpFSoRSVZIuM
yE5k3ytSUlYoGb/zcX9/9byep+e57/k653yIegfaH6SjoaHppKWhIf4Vu76S
lSFcbdBrl/EuLbUEWVQwW3/1XUMMk1vue/o2oJZNmiwMHhywHCes7yb2ERld
N32bbbMVdliGOR141osOKi1tUtkkAhsetJ99LzKErGQOzvDukIA++4PGfO5k
9LIr4nijtjTsl39TemGMjPQ4ZfMZzsmD0RDpcrwYBfn+S0x/5KIMtLODxRXa
FBRYP66Wb6UKK1a7Xx8FCrrqxrR9JUAd+ES/lp0xpqD9Dad9VPw0QbDhWNI5
EwqqZt5md9hVG96EFaFBzCpbIm99D9WFNfqkJ7SmFOQ1R5K3DtCHyOdscZsw
38+oE1y8ZgDfK6Y5ODG/itft77QHyIjQjOfCHFpKsk23NIQKLpON3Jirmh7N
XnE3Ap7+0zoE++/QqfB3MYb50Vpzgu/mqLw+fMgEVK7FWxN8Y64iKuiEKRQK
OtgS/PXJ8TC/YDPQnP6+zrVmiSnnz++ATS3SdgTT2vSNXI80h5wMx3WmMSyi
zTy5E6Y7Dq3zZb5Fq85LFtBJdl3nILf9NYvRu6Dby3mdKVHqB9BNS3gstWed
uZNS+67ctwLRSZt1fswhe7LhjjXobNq1ztXB/5lKPbUByX6Ldc4QyRQkOdpC
aPKOda44s0Tj124LArdM11l0F/OyuLMdqCEqF7bJxPZ22YF/IZXj6leVRTzs
oX+Fykkh3w95DdhDQAiVz/AIs4u5OoCPJJVzZRibQskOwCJIZabftNuq9zpC
hxKVs5VfnM0YdwSSDpVlvJ9YrxzZDdMiVO7fWfJy94/dsIWHyp1ZpxRQiBP8
Yafyn1d2+mKzTuC4kcprxcGvLx51Bl16Ku9SNjM9M+8MIv/nBg8l/8MhLuDO
ROXnBUGLa2su8H4DlZtu9B/75juFyH+d5qpvVyORlTd3VzQ3wMuiB99qMlrR
5daK0d1O3FDcI5nTcLsbMS0K/mLQEIRXvf898FUcQK55+WvismKQzekWW5c7
jGjOHVObRpKQWVsVdfU5GYXNOXCOu8vCe5bk+r2sFBTDID0vlaIIxg8Wvu9T
pqAfXhV+sg4qkP+5vfwsCdeT44S8k4ca6JcmcLkbUdACR7Xp7UMawGFrMyaE
5z/Rt8m91UsLwh5m1pRgPhnXHCLrqwMHx0vgN2ZzOk/KnSA98HPO5GIh5q0x
6qFYBAkuxCb6c2Bm2Jvu35qKIO7fJ1piH5IlynmK2wCctHP6CU6rOXafq8sQ
Wrh1pdfn7cpUz99eI8g+/ceIYLpwjZJDFGMwpwuxJJi39YTAr2kTIKfn2xCs
37btzORvU3jCUrC+D5/+RF86vmQG7G/Z1+s9YlFEukJrDmenEHUfzM1n+VbM
Ib5g/zqb5HVLldBYQOEen3Ve1lbYMMa4CyhbnNZZ+teupDtslhBU57bOpzb6
3jsgYAU3LlL3ZbCDkpsjbA2yzpbUea6W8DwhbgPz89R9WJu87fmN2xZuRe6k
zoN1S7x9oi2QHMzWeepL5Godlx2cNKDOx6FrKe9Wb9rB2yAqi+ziHlreag+G
M1TmEPpt9fauPVyvovLlWnpSNb8DhBpROfHejYAPdx3Al5/Kn+OjZ9L+c4RW
CSo7JfZ+UMpyhDFtKvs1PvvaIrsbOuSpTNf9IjI3bzc83kbl7oVtQRZKTsDJ
SeUxua+FBS+d4N2m/++j5ki4o7IzdDJS+VHongjal85whI7KLA26PSHqLpDK
QGVdZtuC1yUuwPr/fWjUjS6Z9B1G/7rnrgaLVqKRn4P7wufp4Zufx2W1H01I
9tffhTxXTnjUnZVnO9aFJIxVnJ2M+CGYy7e3YK0PDf/suvhEQBQMg9hKxhaG
kKTj4cRo4+3QrK7zduMVMuIe/WbsYiEDH+IC9IuXyMiLVcb+VqwCvLM8veAg
i32gKE3/7ZMymIUHN/noUVDYYaWC859U4U2uL1wwpKC3r/drNP1Qh4g8ecce
fF6c4hOnnBvVhEfsogaZeP6FmoJHLMjaAJ7WFhOYy69MldXM6oK5vVA3I85P
ecjTr/i3Pnh86ZFnx2x/VuXdCBcCFf/rqcR58dD1dLjpDQCekNYSYh8uVfaE
uyQYwmjLTgGiPhO5FmPVaUawFNVsQPDWd6eMf15bRCYdLc3vvWrR2POozlV7
Xphq320xrPIZfXuy4cIrKWGoKHd2E9AZRB8PXQ1P1xYHfu/xwTJhMurNPdG1
R18KfOff/VtoJqPPdFXk40fk4IivzsTBrdinK5IpJQ+VIMKl9xOvBgU9S7Jv
DWhXAWMehn/iiIKiX1fmyIypwYcNXVvWsC/kA4SdDnzXgIGbHV2OOP8nb451
Cw5qwTbmlYIWzJ+sJRk3/tIB8j6FgX+Yu061Mh3/pQd7jvTcZsX5tL/KIscx
GsA7WgW3LZj7Mhg2DLIDpG3ztCPqETO1/FJ2syE8kvsyT3BePWtTK58R+Cqx
qBL1MPBLblLZZgzfSvXMCH4f12k+79uGnqnZPe1uLkMmX4NqX3fRAmlzjZSJ
WCNaXuGLdHHfApvLdyy5MnYhNf8y1jXzbVBmaivw1a0PPYj3bTqSLAKrVamz
pxOGUKnBN0OrOgmw93bi1Qoho/17Xg0kVEvDf5fSZaqnyag1PjfSilEBXH2j
559L4t9P9mg3u60MoXmuqZK6FDSbwjqbckMVAsYzpOjxPG3foPFsf5467L/N
1Z+H5+loYFuWy2NN6G44OpGA6zP1rW5b/11tEBC4ojGKOaxFS6b7lS64hXKP
0BP5fbO2iC7QB/YfDYc2Ez6K/zc12W4AbUHDrsQ8yf/uk2ELBjizeOARUa+z
5VdHTx01hP3VrlxEfRx1//zYftoI6mZs9AleNVWvnM6cQyXFz+y0ftegosp7
7k8ceaClmr7Lyq8HLbYn6uxRFILrPkLHdIoH0C1WoXKvF2IgVbiZw3BxGAUk
/46WrJQEPmHL2vhKMpI6feXk81FZaHvUbryTE/s6Krs+SFgJtj5oDRhRpSDL
pUt3PtxQgeeHYzj2GmAff0mbQPfVYKuSS/RLPE83KqdaVnI1QEf5Fo8ezj+D
XTh1PkML/kXJONdizj5yUj/tiQ4ga7LNH8zxlbyhl/P1oLFlxn8j4bPKxBrn
ahLM0G6dIM6fAauP+rUDCBamd8oT9WC7uufAzC+Aq1kp3wnOqq3UmJk3hFef
whWIevAIZT94picAae7igdfv9CNBKyPj8Qei4MoaInHWcRgl+f8aKaneDhPt
H7bW3CWjusPCT//7KAMgPCt9jR73+1KO+PAWRQiytzoZq4Dvmw2zGle4VWCV
d6LvvD4F/SU5HA3YpgZ2DeL6i3ge3PcnVijLacDjFu+OZTwPF6vChLPFtMAv
L7vpGc5v19P/npaK60B6e9qdKcx0ZtnW+Sp6YH+A/zozjjflY9DFn9okkC1k
6Sb8InfU99ZnJwSRoNZBzINglUDD2QIAd4O2D0S+CW8lNmm+NITMC+piRL7n
tqUPeZQagaodjeH6+dK0qN5XJQ5ZFuOc4QZkZFa1JJFUKgX3hbqcvvWS0dWr
v3eQFuRAxK8m/IMQBQmTPqpH8ShDroMz4wYtCtqsIES7mV0VNBk3uH/EvmC6
POLDJaMOj0bf8Rjh/N5vsxpqktaEU3YxsYdxPkWedVwmAtifL3nnPmGmV/7Y
clJFFxq0nOZXMfNrXUzdp6AP0ZV199lwfNq5havVOw3AbHtfGeGL+lv3ZpxV
cD8ru48R+S07ptMeUDCE2vliGiKfovcue/N0jCBjhU6T4HrlY75MflXobeYi
cOeXolDv0uOOtTSw24qRfc7oPRplzDZRHOAAh3ajr9LJH5HuGRofh+atwNuq
k6HF2IcYhpUD2mxFIKOS7V6n6xBiKHy8TfWiBDRwjDSF+OL6pGyVUYiQhj0e
VzSsf5BRTPt3PpkaeZhrVOHOl8D+Nv+juXBCGdpifa+c0KGggvy/nA8DVUEy
jG1fGX6fuLwQ8i+IU4cr0/KxN3G9/O5sZzS9hM+bH4HRl3E9XMIDNcRPawNp
rfgzGbPjVP+wZ7IuhKXbtdER96ejZmV+8fpg16e/RrxP4m95MQXnG4CHQJYm
MQ9B1VfPB3oDxJfKpxH1Oql3gD/OwxAMa+c3E/UJZr5xOvjJDPp+/WjttHEN
ulevKBL5iRvAubRigKYHrX7pSSp4IQijPz7dCgodQH/cv3rUHBGDvcd37g3t
GEZFLK/cWc9Jwr9Sjzs1RWRk/eZXnUWmLFh31FlObaaglppxD8t+ReBd7UN5
Kvi980yM7nSwCnx9fq9mBt9HK/9eZt11Tg3oLbTRZeyDWt/PVyyuakCCzclZ
eZxvil7oEuWcFmwZPqxZhZljRcxl5LIO5Onluy5gPkwuleVM0IO2I3K1xH20
0PiqGukeCQxDWPMIH0zv1nbYWYbAr+09H5G/rTNbheMwgNTZ3hGCM4xTDtON
GQKlalqWqIeg8uQybRU/jDm1fqqy7kdn01nHzD1FoUhSXrVWchgNDOWVZpzf
Dui1HZtUEhlNZkcvlsXLwHsPuQWTNTLKbfxWWtqqAI4VywnLcvh8O3Xtrva8
MmQEJnH9xfeNYkfD6ycWVUHxr53IW+yDeLbTJyNYNSA8NT1nAvc/8kfzuSR6
LRg5xqGbjfMr1G2sp6PTgVPXh1h+Yh723cWow6kHkkXxJUw43lEXv8VOXhLM
7bWLIXxgENac56GBQKbTpojov1fch/9GMgFcavneEfnGoVWjHfcNQbx7UHi9
//zV3XpnxEGg/VI+rRIZJaiXLJ84LQUK9cGmdz+S0Yt61+TeF3LweTgMKQpg
35V9pRkaVwIXiwhbPk0K2kt+41sxpQIbuWrszuL9r81ovyTMrA4WPNMFojif
pRqNND4WTaC3OR3rheMviBU4rrysBe37O2Y7MAdUnfleza4LNAnyYSuYF11k
bX9s0ofDURtEif2PUcwLzJYygJYrr+KI/W/n7zyTJgKg4bjdm8gHxKzcGoQM
wYn51D+CX+xQTa6QNgKtQ3zq6+8FEeuE34wy4FN0jePLPBnxWfl/P2auAE1n
G2kTpCkonFLjf7tIGXrqTkV8wOe3+nmhjmuvVMHz7JCrGe7P7F7LGd5mdcj3
OFldg/MJNT5pFFCnCXKhGe0pON6LroKriZXa8H2Ix20cc+rTpGDLj7qQJfn3
CwNxX97v3JveqQ8VstJtxPntc/FWr++sARzibj5F9OebpFxHThRAtu+PfCL+
86QXz/3PGUJoUCjf+vsFSShwyshBi1RaeyAP7ifyVbq5TwlsG0WTGdWx/8x+
qgu+UAErdWWGWny+GjXnNaq/U4NRTgeOPrxPe3mYOV80agBpOGiPOY7v4ZcG
LZZKLRhV05VpxGww1CZi36wD9hIHty9hfnE3uGK1VQ/aI3MYifuaoM4du+Av
JLA1ZpMg6v/e9KgkWkXg4BmCiHjfl+exxq8ChIpMTRGcYzq2NsxkBMV2n5TW
vxeEP38o7ZePhm1tcmzES1GciGeruD4NnLKe1Xre1YA+X/klmXqXA58HLXP2
+ASpZBRPWrm2FW7YnqVJ7O1F6pd4SDRKIlDY3XQqjTSEcn5duPDQRwIS7Z5y
uu4jowzNXTb/3KTBa5P/Qug3fN+fufLlVqY8dAlJM2SJ4/v8fdMJKz9leFoU
SyeI/ctRFpSVu1cVbrLM593E/p1h5GzoPqMOQWufHa/g/vq8aNcoO6EJc++4
hGJwPdjAxHjHIW34/HeZaxizEY1i2cMYXZh8YIwI/5Yq14S4R+B5ZbtfT/g3
hT/pRmGGAdCzC0gQ/eXMGVG87wZQKGiRTNRnYcn2NfduQ/DbkM1G1EfeD7mp
5U8jB9mJhN0/q1GyRRjdj5vcMJr9aTmmuRudP7L01i1EEK6wj9sX2g0gaYYP
inO7xOCisKx5X8UwcjdJbIjwlISj+e/2FL4kI+/dopNbz8oCb+iPTYqbcD++
XJIpLVGEmVD9ZyzYvybMQa87vVWA9X6uYAn2rxAjzV3bo2ogGrmfJRjPi0d5
83jQKQ3Yk0Z3dTvO96bdf3IuQVqwV033Ujnm2trFg0zhOnD5vzd285jdZtiY
nCP1YH7N4gjhXzcmpkmleBKc6NwXS/h3qffQUOwTBK/11tiI/GdJB/wv9gAM
P7AZJjizZLNsXiQ/dB8tp42U6kfPTadfnySJgn2j/0V+9mEUtS1Ocsv+7bCc
evCQTDwZ0ZgVCV0NkIEW0sODzCv4vJ24fFH6mQI8MVNMksO+Pd/VZ5Mwpgwz
KQVML7Bv+byK/4v4qgqjccPyWXifpfYF9mT9U4cq9mkJCu53BG14ActvTcja
Mt6YhfPxo8vokpzRhnqNlfwfmFvD08kRdHrAxXBvJ+HbqwKj+XWMJJCpdXAl
fGu+tKqVKYFgMVkhh+g3XYh4M1cqQEvXhUoiv41rE4NtKYbwpVxAiOj3g5pH
2QFu4rDjO0XnryQZqQem+E24S8GJgBj23e1kVHsgrjT7On6flQw8aNuGf3/g
YvOueiW4an2XPxW/z5h0GQV4yCrQ4P2hyw77VuLJjq0SC2pQUi70lAPnk8Qn
+4f0VwP+vs1tcMPxP7tf/+jxpBZUb/Lsa8MscslucWxVB6xGHuctY/7qf0ZO
eVUP3DgvDRL7LjsjJZ3GawB/xodDiH3/tOdwjd5WAKHKMVcin5ENj5j+8hiC
xY+SP+vnaWVkUc0XafgVmPLXfY6MZo+wvB6WVICq4kDdLCn8e3ocQlOPlYGF
nLrjFPZr0rXkfUkPVGHv6CXr7bgfca/AhlSuDhsLti29wfEfc5UIGXmtCaHn
hX4m4/h0RWdY3zzThtKFlNYxzJfLx6xuvNMFtWKOg4RfxSQ/3kio1gfft5/S
Cb8GbWw88IRiANn26YeIflzdFB3RdxKAKbXiCREvzUr6ztkwQxinC+JZ//40
6ORAZpKD6grfuhEuCtLzYv5HB0pAuyhnE6aGfZmp+y3kvgqUeXxou4H9er9H
3E33pRrMcX5Or8f78sf/X2BPiQacEcr/aIjju/832O/ccy2wuFbdWI959tFD
xbAyHfgRk2rwF3Pms9oU4yo9GClmKiHeLzX/eDce7CTBQ/YEZqLenY2ZL6J+
IkhdZdYk4j2UxVBctQDgFtM+SfCbDTL/HfG7hxIDK86oDZUglTXved7pNeTV
r/JmPL0Bde7iTGk9wwGKnkGP+ww+okiLwtzOo1sh8pIzf9y7XmTZf+nRVmER
uD3Q2W6iNISWYo+XDTpJwBG2w/ykvWSUc+GA98hOadBUEBWjGcfvXVq3xpbr
8uDx9lvPNuzTZOvJdye9lGHhp4nWT23sV8g7LO+kClVSum7nsU8NlNkWvoeq
g0nxGHc07ucBfUnrhUBN8CCXDUQR85alaNG7Txukv3bKDWEu3dAj3XBGFwy+
RM0T39s3cdK0d4Xqw8bRW7mET+/uke/ZfQv79EQaP9FP7zubGUudAA5cMLtB
1ONyyq3GJJVp9FBJpOhQTTW+T6WFiIRxwwtrzw+qL7uRycvYHiVHQbjD85RF
BPDD0IV0m1VPDDLOR3kNvxpGzylRK0U2knDrU+fkgwIyCniou7YWIAu3b6ap
mLPh9+xvZ/aZHEXoUD0aWqSM7/OFvNdX3VQgXbZV4i72Z/NVvQMfD6pBbXr/
Yx88D0++1vPGBGvAdm7LKlGcX/JAqHGSnxa0dDyWKiPet9IjASmBOnC8ZG8T
8T214+/rkJPhetAd3Q6EP5+NG5vnXiBBTdy9U4Q/1wQYJBQeIFCsC2Mm8jVW
SUD3PgKY558bJNh79R5E7eMHJN5q84SrH9WnegsnyovCy/eTWVvoh1FX0ek9
Fg7b4T4Hj1FGLBltvNmmfMxdBobe1bOO/MP7uuQS4HlXAdQ15e6+laUgp6go
mfJBZUi+EaEUh/1ZPzY3vjaoCrDf2ikZ72torD/Tmzl1+NTiYDaA+3smruW9
yaQmuG6OYX5AnI8+l/uLv2mDQsnDVeL7mGmUmXXmki4kVNpxEP4cXBZlQyv6
wHfDzJjwp5V+SoShIIK8nb8yif46+Ng8kL8JsEJRLCfyK+XdynFhpzjcntqn
QxEjo4tslzPELaXAq8l9IqcVz+erRy3xZ+XAWNZDSRD7Uv+n08vzr5Vg9zmp
My7Yl31fn/6GzypQXyDNrYd92aUUTX78Uw2EJnVmmHH8ZEMJKbsZDaD3Ue9y
xvHmyQtWUka1wK6qq6EV89KE3uqJBR2IjLY0JXzpEbw91X5BD+7yL5QSvozo
PBjDtdkAVjrEfIn9/byidZANP5/YDz/dTcTvtimtMbdTGpJqPbdsmcX3k7O9
aby8CsBcIskqi/34e7xogf+eMmivPX9ri/1oxNUuw5umCt6THJ7cuN6fB3XP
2haqw/dNb46/xPEGjZ6MFXquCSEG5VOJOB7uC/2cOx9pw3nTD/SEH9dq48te
lemCsiWfBOHH48xbfrGU6EOB1qUYwo/HLb2f7Oo1gJhEW2+i3v00+Q5zx/F5
XMWbQ8QrLB/k0zAvC2Ze6al82Ic5QT1kHSUlfL5OzMljH4ZbUarvpaqA/oSB
WDj2oa2Hp1hFrhrMmv58VI7n3yR5PmPihQa4ivmfNiB8F/M+svSxFrCojSTW
YW5mua6x4ZUOJEQbvCe+5/AVHWHyeaMHhws/3CB8yDPo6DPUSII7wr//EPPf
w6q7KDaGYH+UmgoRX9kt5fjPswCbGrR+EExyVLmmWGoGnSMr638P2EEf4BLa
YQNuwdTv8dKuH7d4hDpCvir1+/PDz1N9sYr4/dpXGOabN4xqnrYGd5jugjdl
1O//Ps8Y7sUq2oPBPPX/TzA8iFHEwnH///dvH4uf0R2mesD//RDrBsx77rws
jlVUhbqhreGi2H/Fy0nZsYpGcGG6av398T9F2C+D
   "], {{{}, {}, 
     {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwl1WWUVmUUBtChuxskhk7p7u6UlpChQxBFQKRbaUxAwVZQwgATpbtVUBBQ
AQMwUbEA91n+2PM8567h+945995FYtKYLqOTJSQknPAjcqIfxTioP8QgqkZ3
rTpn9aeYQHIecK04h/SHGUw1UjDJ9RIc1hcwhOrxe67V4Jz+dHwnKXnQtZIc
0RcylBXm5vyor6dGfJa5Juf11XEGUjHZtVIc1RcxjJXmFvykb6Amh8wLqcWX
5jVxVl42d+WGvpXUTDGX5pi+mOGsMrfkZ30jteL7zLX5Sn8m/hZeMXfjpv4h
aZhqLsNxfQlv6gPIwIjYrWzFL/omasf3muvwtf5sfJZ+N3mYbF4ru3NL/4i0
TDOX5YS+lLf0JDIyMvYuW/Or/jp14jzmulzQn4vP0uPhyMsU8zrZIx4Stol0
TNfL8bG+jM36QDIxKu6PbMM1/Q3qxnnM9bioP882fQz5mGp+VfaM55Ht5uMy
vZwhy/OJvpwt+iAyxz7iPsq2/BZ7pV6cyVyfS/oLbNfvIT/TzK/JXiRnhzkD
M/UKfKo/wtv6YLLEPuL+ynb8HnulfpzH3IBv9BfZoY+lANPj2ZW9ScFOc0Zm
6bdzUn+Ud/QhZI19xL2W7fkj9kqDOI+5Id/qL7FTv5fbmBHPuLyTlOwyZ2K2
XpFT+mO8qw8lW+wi7rXswPXYKQ3jPOZGfBfvBbv0+yjIzHjuZR9SsducmTl6
JT7TH+c9fRjZYxdxr2VH/oydciy+I84kG/N9vDPs1sdRiFnxHsi+pGaPOQtz
9cp8rj/B+/pwcsQ+4l7LTvwVe6VxnMnchMvxzrBHv5/CzI73QPYjDXvNWZmn
V+G0/iQf6CPIGfuIey0783fslSZxHnNTrsQ7w159PEWYE++B7E9a9pmzMV+v
yhl9BVv1keSKXcS9ll34J/ZK0ziPuRlX451hnz6BROaa75Lp2K9np5r+hVzJ
KD13/P36HfLf2CHN+CHeC4q6Pk+mT/b//w8H9BysYnzsguZxdnLSgly0JDet
yMN+/7a1zEsb8tGW/LSjAO05HM+x7EBBOlKIThSmM0U4ELuQiXH2OCddKUY3
itOdI36vhOxBSXpSil6UpjdlOBjvjCxLH8rRl/L0owL9ORrva+yVigygEklU
ZiBV+A8ewdll
       "]]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], 
      PointBox[{457, 458, 459, 460, 461, 462, 463, 464, 465, 466}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"I\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.1},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5656488807814255`*^9, 3.5657263459065633`*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwtmXc81t8XwCVS0ZJE9p7Z8zHusSIysiLEVzJCJJE0rGRVViUJFRmhjJL9
kBFJVkVJVoiyUrJ/9+P5/eX1fj3P6/Occ+4573s/F4+jl+kpaioqKvImKiri
L++t1cepnLXqVDPSH6t+nFLXr6IzGnVZR+9sS8f6jB+gdzsUttHY7YZfs8Wn
ytTzkOYtHXKWMQsEdu+gXY0rQackl3ZI7+CGsjGr2o7aMmQocmqWWZcfQnS9
VZKtqlBR9+XzzUrC8JB5IMOJpQapMIo+o7kqDjS95fvy/tQgl+X4B5lWUpDL
1GKbJUhGXo1jss8MZaDihtcnsgIZRR3fIrDqIQcCR5qjXdXI6GRToLO0qwJ8
UNkpnY/IqJaO9ai7tRLYiIxFhAIZSe8JuvPDlwQM1tksPZgdfquJG3mowslZ
k7XfmB+mNrAv3FAHHf9nz9cwF98kfek0BZCk+6BKrUFGvuVqJg+OaABPyaNT
mzHXtGTORdpowvm4vx8JdtNVrnKz0oKeVPIywSnZ0i/cT2vDE/OibTSY435X
BXv764B60L8dBI/mnvdz9TkENalOuwiuPxSfFBKiCxpxKxu8yfjz0K0gPfjh
5rybYCqNl5vSAw5DzuaUDY7Yv2DYeV0friuf22Dv4yfrFkINoFvVc4MHg+Wc
0O0jcLTuwgYzJdz7HPnQELpINhv8ZLdoQNN9I1ANMN7gWh8uHaGnxuC9ZrTB
qdzp7GrmJlC4R3eDqy4tUbm2m4A70txgHgO6Fb5jR2HFQ2ODS96LRPd2HwW2
CMrnMY1rUtx2pvCfstYGJ5z7cdqhzxScJijfv7SPcxevtRlslqJwjghti++A
GYwyU3jL/CbW2hPmUH6IwllShVdSx8zhoh2FRRxzjVY9LeAJL4W/HC4rspi0
gAlaCnc+vngQnbOE+EXY4H/FR1V55yzhxySF11/5vAg/cwxefaawgdQhnUt/
jkHA/7nJTtLN/ZwV6A1RuOC598L6uhUIjVO4Je7L2XGXaZQk7PzI52wsimir
GrGwZALNimc3Sa6FaMsC+xSNPDtU5QfEPLAvRdZ5z9b5RHkh5cOt40fbKxDV
1bOyM0gQJAIl4vPtq5HfbzPGMRtRmB4rGP+XWoPCaIT/CCVJwMu/WcXN+8ho
0qHKVdRMGiTird6GSeH67fYXt7SThUiVH+kTJDL6u7tW5+5peVhIjQlpVyej
eJcWmzYHRRBbOTMpjfs5IKb1nKiLMrS73+l8hVmP2n7wvrcKvGQv8f+Bmao5
OIP3shpEvTasX8JMc+KBW9s9BPyKk7+ocL6J/JX7Xr0HMHgz/4eYh+S6sw/3
dmuAYGtIPtHvTJHTnxZ7NaHB7O0vgqkvyJedHtQC9eQUGqJezG3+bFMz2jCp
5MlAsOp71ks/53Wg/VvPToI//Au9fn7pEKwu1Wz0/5D+S7XITXpg7y9H6X89
vbn9q3og9jZqg7XzPgqVUenDqn7cBq8oHdz6ndYAlnef3mDhKYOE+wxHQNbz
/AZf3O6S5sRmCNWJlPn42jGYk81pBCW3TSn9W8tv789nDJeBMg/rP+/ajzOZ
QGOpAWX9jd7dNI03gW9btTd4ejhorWHvUXBwp/Tb6RtJr9duH4UnIxTmNmDq
X2ExhV1slP7fzTFvSE4xheRHlPmIqN+sVnvADMbPUb4fnxbn8TbFDJYYKdxz
M3Q2mcscDohT2DK+963kY3PItaWwa3P+6DtRC3BFFKb+WBiUk2cB1Hso/PEv
q7e+pCXkrFH69bvYaMnzIksgzVP4ksLQBXOpY0A1SOFMX9vLm4qOQVMPhbc1
kT6dk7OCbf0UJtGZPH9RZgUnRincTAot++nyDdU9PKCq9TcYiU4t/s2zZgSP
KyNFByKfIX4t6WOWmgegnDPmSgHNS/TtV3d4LhsPhObGlRV/LkeC5u7xoVoC
MDPlsReNVSGmkXEtK30ReLr1oHCfYw1yoBcxvRN9ENTdmq36tuF5lxDePP5B
ClpIovQC4mTk5y75POSDDCTvfGTKqkxG5Bcn5Vsm5YDrt6W1DO7/i/v5Bq+O
KIAn77fYBbwfcLT4DOkPKIHs7Juih7i/KyOnK+rmSLDL6HLfIGapfnvXV/Oq
sBj18uMCZtMr0q+H9iKwehj7Zx1zhnXgBZ04AF/etQyi/69Xf7pgFasB3N1+
N4l+n8jR/16brAn/osjDBL+0V1SZSNECHe52KqJeLK8vav26sYCM3/Zd8WS8
i74XBHeumTJDX9LQdhGaYjSeu/VasRAnZN3rk3FIe4W6TkddeKDEBx6vbdRF
MipRb45/t62qEFzgim6OrK9GPdQ1A+c9xeAw35EImfc1KGdVMKksQxLynD9Z
K3GRUX6CaZtHuzRYXDzcuSZLRqEvqrNFvsvCtrOZsaaqZCTuwWnp9EMeFOvd
LI/g+uSWnv3I/lUR6iJPFdjjfD8YCdJun1KGk3uMI1swd19s23J+SgVy8lRO
TmNuL348EEOrDlUelWsrmD+n0mz9ugtgb1ny000437DplSLRnRpAMm2SI+qR
10jf0rZfE1QydjUQrO6a2CLNqgVqgk/+EGwcK6s4KaANigHRdES93sR06v1x
eY8Mw4oylmd80Mrq/iArmz3wTyosMXY4H8m6VdCv67GC/xsBTnqjF+jRTZcW
z0RuyHvpt/WVaTkqVx/XMGzgh3ddJnlfH1Whk7bFfbG1wnDAoyf6DqpBbTdz
ggxpD0KxZytXEzX+vUS79kN3pSChpfj3DREymkuin0uKk4EJ4x08VEpkJLBV
Pv9knhxcWe9O6MLnjTNe7x9bPVGAeOPa9G5cv+nxBtYvKUqQYXAjNQHXw++d
osjHYhL4k5r0vmJ+M26kH/pcFZSqORj+Yr54c3n6Z7s6/JTeeYLoL/H5zyIM
PgA79OV9if66Uhk1cvGMBgg4eQQS9TEn/ZsUCNQErtj6rwSv6chVz6T/RvKq
aitG3QnoZXWaTa75PvAKzK6KVSxCC+3xyrYSHCDocVJt5+ZX6A49R6VDIS+c
J+00NVevRB6J86GC1YLws1KM3ymxGgkFRgYUjIiCQNngrOerGsQcnNXozSkJ
Rx0YbN8cIKMjS9fvv42ThiybtPM2MtjHw8kT6KEsRNzKE8tVweeb6ul3qzny
ELQwoMiI65G6i/Pen1RFKDVIkNLH+WV5Bqgm5yoDDN3VrsN8s5rZN+KZCuzo
z0z5idm1Or7uWK0ayHwem1/G3GfYpVrfh2BaiN+M6CeGKFun2SkAsyTz/UT+
j+ur5Wf/aED1Kms5wTn/NDpuL2rCMnlxluC7d41cpm+MIZpNUryuJZGI3VBT
a+wRDzQM9/r3WlegBLepobJaAciacK9kFKxGDe6cT7m6RMDXIPlyTEgNmrue
zfdtjwR0aNV2i+3G582mOflIJmmIbaMa85Ugo0U1szMerLKg0yPTsxvvvzYn
46ukxORhueqORjj2T3iNH2cWryLs620MY8b5GDzlelrOpww69xfoCjBTH8oy
eiatAvadLGPfMSd1eYf/UlIDs83zzouYxc643OmxRPDy99aLxP7LXsPWdOU5
QK7l9naiP2LJ/DsUijRAy2RXGpHvVdYH/XblmmD/cscPgg/VLPEnlAvBwF7a
x14z1Sgqal5X7a8Y0Ic46UYM1yBOtS654H1SsOWJ2hdhPjLaeZBj085dMqCh
N2jhK4/PXxFDzntF5KC7+W3MKPbFG1bD/hZhBXhyUqP6KiL81rBXm00JPCSD
i3xwvJulut4FSJPA182vvgPzAcXwe/8dVMXPf/thFrNSTsla7WF16LCIH13F
3HgnbfaYNECjIPMisb4r5g82OR3UgAIzstGGP99YnchT1gROxQdtBHd/Gn39
TkkLvt4e+kdwo9RZly2uNShuxe41x9WTaIQ2S1uibzcYv7B2W9ydj0iXqJzN
WlngvQyiyZ4pQTTfpDzem3BDV6JVuyN9OaIpecIqE84PbnXhLpevVKGoJBaR
g5eFQTMlryhIHJ+/2n/sF6kTh1+3dVc+rtYgFr1/Cn/9pWBerZFTQJiMnj9b
ZMzwkgG9yZSYU4pkZFXI4fY8Rg58yrc9S8N+cL0vQKtzXQEcP9YE1+J6WV3w
kucLVILEZKOeaJy/+fSXb/aJJEitjm74jJnpzKEK15uqIMojvvMPMR93HLb4
PFOHPRG62wk/eNdGhXg5AvyRcbEm1j9AxelAjJ0GoOQRb6IeUdTG08fcNSGK
5uJngn3o4gJ9cmdRoHaMzAnheJTWKMEd9IEJVFvarkq1F6K14U8JzwvZwb3w
rr98USn6ZzNqV+fJC94jzpZ2WyvRy23FNvRXBeH27SGh9IvVyKh0qkE/XRQU
rJ583pFXg97Vjdkd+SIBIqmfum1Y8PtOPi91oI80mB6gGfaTJqPqxQh6g6uy
UKiwOdAQ+6HepSdSP0oeEjPaTszh+UhS8V0avKoITxhb3dVxfrtXea2GIpRB
tSOpuAqz+0C5KGOsCgTmVzJPYi7RipJVS1ODmM72/wg/zFgomR2uQFBwWp2X
6B+TYwxV5t8AknzF6Yj8U7WS3Km/a8C7g1tKCL5yYOvQXPow2rfUwrlj4hq6
8oD+u549D5zPnha1Z6tAff155akhAnCNseGoBV01+pkVulBxUwT0vmm95jmH
99fm8fLytoPgJM7rz7YD73cXb6Qo/ZGCWL3HpywOktErc41b/gsy0DYmufUe
Po/cZAgMuEwvDzby5EQ7nG/QZOvVhM2KsPOHbigdkQ+puZGaWhmqQ7v2ZGP+
5mJAq8yoAqVMM7PDmEesXBc6mdWAeeBO5j/M6n6teXbyCJLUNpEIHzjEvOUa
Sgf4NyBdQfRDDFrT1H2oARIxDHeJfGPlylb8A4XgrmZnwfrnalTYaJ3YWygG
J6xPHM/qxX6rGKXqH5OEyKy0TMRDRicGSl2qpqVBVaZptVoOr1dq+3VOOjnY
V+M8l4rnf6lOPnn/NgW4IVjf7Yz7+Xk023mpFUU4U9Fx0Q3H51Fz6UftLhI8
tfyq04Z5wUrUZHKHKvgWOT2ZwRwmkeeVJaQO/vOP/Ij5bz/QeSmZG+Bj+sMu
Yv2A1/B4E4cGRPeIaxLxF+rKJFYJa0J2z3ozwXIhHB03imWgOFpVNg7vx3Mn
jswyt8oBaZHOlQbX11crQNOjQQH4Y4bTRnF84dbsa/HVShBud3YkGf/evacJ
Pke6SNAXMp7xDfOlk8d6H3SqAthoLhL7sXP4nV6XOXVQrbXLI+ZtXFCsIzsY
YEbT9gZR3xC1wgK3qxrAnqZ9jYjHAblI3v5PEnp+dSjv4SAjzda8ZrnXsqB6
nG/fJlyvE/voGAub5SG4WENMCseTMdykuK1aEVYLo7UsiPXsf89t2qoMxz7a
RjViLkzxqVprU4ELQnvopzCzK98/6jOsBsItFleI89UbnTOCaA3BIcPeIKJe
byrz6G+uAbTahQoS8WTrfF//tkUTxk831BBce6EgQ9j1GRqRWudpbTFDPZFT
gvdSdsNM+dmpt1l5qJqWL2H1BgssB102vVhbguSu71OjkuQGt/yV4sHRMpQ9
de1ahjM/bBfq6qp0r0KpCgbGy8eFwYBj9GAiLz6fz0YO30kXByfO7v/aF2sQ
+aHOhKGrFBxeMPzpKoTnucL7cc4JGXCcFQxiwn6cpWVs+nhJDq6u8kaEYT86
F7bLV/grQAJbeVAprg8DaGvpnlYChr4jdddxvppUEhUZYSTsI3/fXszlUnXn
bC6rQnPYjYh5Yr88kBBXkqoOj3VV+on7GsbsIYmHxwH2uVkZEOv1d8nkBZOF
BuwdsnEn6iHuio7LPptBdz3+NLgYxaFEfT/qydtMIDp1JfVQSiEK8VwiHz/H
DjZJT99xR5YiYZq3Er8NeCEhPCYm+WcFstGOb7psLwij+iOWhp7VyNGC5yfL
FVFwfXQ2KjmzBmUPXxcpL5OA/ui1u/v34/dTOu8XnY7SEMXIkrCO39c5aKlS
TM7IgtugZS879qFdZeuY90V5uOs+WTSI+/f2US4xK29FuOTapKWE86mvXzi1
5YIynPvnZ1iB+fgsw5ZjQSoAmwL0JwjesuWn5E01ENruxkT4cKn3dH90LvaD
YfhWoj/m1Jzcwj9hP7wpXiPqwb752pboPg3gGup8TtRj9otTmm/uIDojbbWl
9E8oKtCZeRGgxgPHM7eNGC+Xo2DWGME9JwVgAokunF+oQlSHXnJEeYjARFXr
zAF3vD9ORIQL5x+EYb2W8WB6PB/dn41jv0vBFwvb/2rw+9l+h1dcl0dlQPbc
Ppnj2IdC/3l9erwsB6zCogZ6ON/Lmy483zavAHn223PW8fq7Uqd2C84qwbnU
tukMnE/bhQcDl6lVoJ/TdnIIcxTbyLMGWjV47jKGCB/qLa0ppvMjUI+zYSF8
SH2Or3XvPQDzJO3nRL7b1ye+vk/SAIWs7vgNf3gluU7YCMExEecDo++rUb1T
THnWLTGInWmauNqN3wf6wlsNGiXB+INVH+LG5x8SLdu+AWmI6L1j4IB9yJ+r
y8L/VxbM6gPtA/B8J+wX/ae2KA/J9XnN1jj+/IeNmU9+KkK3XluWE46P+/rR
he9ryhDTeN+rFfOo2yUxqTX8/uRqS0f4UHRWSDiZWR0K+EtVCB9+sHWvU2HB
vsmbqyHWb2hr5pbFfRqwwH5bhYg/4UbifwmPZGBaZFfHYey/mGIwVquUg10a
gnY/8TydteY/N/RCAfh0pV9/xfGQeGbpS/OVwL1x1eQufn5E5XfDuNckKDkc
H9iPmVewKy62VhXihkvDCP95b292yh1UBymFb9cI/0XtCL38OQBguXI5iKgn
1eqDw3N+GjD12TOIiEfFgW6ZGiQhl82RZ5aNjB5+4jtOKpIF92FPs4+4v/+5
LXt9KpOHN4+9PHhwPA8XfVyvFiiCtH3Be2P8/LnMDAm/CmV4mHbfux5zen59
klaNCiyHlFr+wly3zLz9VKcayDO+IRH+62xOLwz+haBw3eE0UZ/Tj2le1fwF
cGDbzkXEU7pVhMvTNQ3F7AnWm5jVQp0GjEltl3bDpM7RRfVzeShIvySn8wwL
BK3uCmjIKUFHvlzPZOHkhu7K9Dj37jK0FH2+4qslP7g4fu9TdKxC2decHIcO
C8PiGHkwjAP3x6bjze9uicP+XSNrtQs1KNHo5+sAByngk7bt3Ip9R4Y8d3FL
Gbh6K5FqUgH7XYrh7w9fOUjN25Hph9fHSVXQ6K+XArDH9zkW4XqMPpbQ7/1P
CQI5WHKvEX7b+km46RIJTJ//bCLup3cwUrV3+6oCuyytNuG7FFvxTxZ31CF/
KbOJ8J3j/Z205ZYAJmEC2sT6RCTdaU6QnkGc3v5cRwdi8fkj+Ry3HxOEfsnP
1g4pRNpF0Z8kzdmB5rrTuIdvKQIrtbv0KrywyV+mI7y/AhUMBq++NBYESe6P
Qtedq5FHBml93UMU2v543TZ+hN8H54/tms2WAE8Dk29nmcmIpYT51tpxaWjQ
r02rw35rjVJx6jolCwzR1TOb8frnjjYyh/nIg+zJcLFePO+Jfb5aCa7Yb/1k
Dnkcf6rwkEeSlzIc3v2UsRxzx+KLcwEXVGDbkYlB4j4yf0xLL+eaGpw6UfyT
uI9cZ6PhP/gIge59i2Vi3rWkY1FaF8C8kt0Skf9T1b1X5J8NIL/kZSvPhRDU
eM+RM16cB44pjvnunSxH3S8DbfXNBMDOJD361HQV2n77vdRZGxEgK6anUbvg
89CSlYd9ykHIexv25Pl2MrIMDhap/CoFM7TWdT7YZ43ff4+tf5UB7gdJNCTs
M99oty2lv+XATybeRQ3ndynm3Rvtnwrg8fRdxjJeX03niC+vxpXgRU2p+WMc
v07wIaP0JRLs5V90Inz2dYWHAa2qAo19LT3hM0PVpMsa7AgS/NjoiPzMnI0f
id8GqMzOyyXyC2eISOU7IgSctyPtoKUatRVnvrt5RQz2igTT9XfUINVflkUh
LyTBSbdjXxUXPp+OPp2HHmmgz9/7QxL7q1sydODJL1k4bqbA7Yz9NaDBL3R0
Vh4iVxGHGY43T5y9enBEEZ7OL0o6EvvJhMqa/19l4Cq4euUtZjsfgXumf1Wg
5e7sC+L+53LnqbC9O/H+W3qJg/BXz6riKQYmAFPWvhfEfMqutPftYdQAbUZ5
JWI+Nfe2izAny4DC5z4tAeyvnq+kKyYlcrB96cnuATwf3iMB0RwFCuD3uJvU
i+NhuvaF8XCmEtTUvgy8Tax//c2K4goS6FxwGCbuU87T7ZnaVqYKNetTeoS/
zh9xzDXoVQeGVzw+hL++UD0z+30eQCc88yJRv2zvTwPKkpJw0lqsxw77ysTO
nrcqRxZGeFY8yLhftRP/pE4UYl99PTDIin8/PexNUPkTRTg+fZ/WED+vddst
+a3FynBkesL2Neb9Lz23OJeqgAG36xJxf7Hvq7lzf7MaxD7jYyF89YmetMD7
HUFX6pcTRD0q7kjd7JkDKF5SYCPqoWYufUOi/BAodyRu3Hfrbvaw8u0who9U
lP+/CFt37bHzNYcsQ8p9bkbP9OdoCV44xHnMmra7AtU9bfPp0DHAfnHf+Nw5
nyYtWsIUsvgp980TNI/CJLAg0G/Kfa2z/q/QDh0VCG9hpR/D8dneL3oVLSED
F4ykw9mwr16tJGRFS2hCYG/iWyK+/wHNYJoN
   "], {{{}, {}, 
     {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwl1GW0VVUYBVAalO7uDukOpZGQ7u6SxhaRVsBusTuxE0Wxu7u7u1uZa/hj
vm+t+y57nLf3PtSfvXz0soIFChTY40fmEj9q85S8lTmcoB/At/JOOrBGb807
8nkcRiEKs9TndXha3sZcOnKMz9rwrnw+h1OEPEBdnpG3M49OrPVZW96TL+AI
irLcZ/V4Ns/GfE7Ue/OdfAOd2aUfSzve1y/kSIqxwmf1eS7/lgWcpPfhe/lG
urBOb88H8kUcxQ59OP/IuynOSr0Bz2cdFnKy3pcf5Jvoynq9Ax/KF3N09k8f
wb/yfZRgld6QF7IOizhF78eP8s10Y4PekY/kS/K3y3OoyJrsszmS/+T72YfV
eiNezJos5lS9Pz/Jt9CdjXonPpYvzfnlHPRRuSjsyZrmvuYhZmNeylpcKU/O
7zhYP80cwM/yrfRgk96ZT+TLsufyXCqxNudljs695AG9JIfKTXg5a3KVPIWS
LNFPNwfyi3wbPdmsd+FT+fKchTyPyrkfOVdzDIV4UC+V+yw35ZWsydXyVEqx
VD/DHMSv8u30Yovelc/kK3JG8nyqsC7nbY6lMA/ppfMOyM14NWtyjTyN0izT
zzQP5Df5DvbnOL0bn2efc17yAqqyPvfAHEcRHtbL5N2Rm/Na1uRaeTplWK6f
ZQ7md/nO3MO88+bxZne+yF7n7OSFVGND7oU5nqI8opfNOya34PWsy3XyDMqy
Qj/bHMIf8l30Zqvegy+z1zk7eRHV2Zj7YU6gGI/q5fIuyi15I2tyvTyTcqzU
zzGH8qd8N33Ypvfkq+x1zk5eTA025X6YEynOY3r5vKNyK97MmuyUZ1GeVfq5
5jD+knfRl+16L77OXufs8h5Qk825H+YkSvC4XoH95LeyHrPlCqyWDzL/Nu+h
X+6A/k32lVrylrzXBf//P/wJuSJvsyPvJffSP/uTu8OTVMq7xICcMZUZSBUG
UTX3IHfPrMZgqjOEGgylJsPyXL5XK89JbYZThxHUZST1cta+N8qsz2gaMIaG
jKUR4/K8vtfYHE8TJtCUiTRjEs1zpr432WzBFFoylVZMy34ynd2+19qcQRtm
0pZZtMte0569/c/LFg==
       "]]}}, {
     {RGBColor[0, 
       NCache[
        Rational[2, 3], 0.6666666666666666], 0], 
      PointBox[{439, 440, 441, 442, 443, 444, 445, 446, 447, 448}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"R\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5656488807814255`*^9, 3.5657263459275646`*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwtmXc8198XxyWjQsOKjITs8bG3e6wS2bJX2SJCZWaFjFRIKEJKiUKp7FSI
KOFjJiUaKN8iJON33z6/vzyej/d9cM7rnvu651z7jvmbu1NTUVH1bKKiIn7y
X1y9mc/brDl7puhyZ+cMMmigN/7iuY64OiJJd9W+oy4mxa00jjvBPeyK4dfS
CaR9Ue9ZiQkHmOwVkN9+9SNyl15mkmHiA0bBoZ0vTowgI1H3X+wHBcFf33aq
dG4AVfVFnmpXFoGcQtujIyf6kRqz2AOaKAnQvcA2daaBjDz/pefdsiFB1a6x
MVI4Gfm3fpV7YCQLcnl5os9dySjZjm7/qq88tO020Ta3IyPXtnAPGS9F+Gxx
BcSsyaiZntPsuK0yTEfurd9sRUYyu6KzvgerQszr+PxLR8jIZU5DwthXHSzE
Gr/5YC7Mb+FevKAJaa9a4x0wP0xTHekxB5CIEWmxxhxcq2Gad1gLgs/eVrbC
3NRx63eSvTbwbLpQeASz90GVBm8bHbj35UoAwdfvyFQf99EFw7qtTgRfnmuI
CTijB2cSHG0I/lJ66rRX4AGQ7Q61IvjlgfTs2NiDoMdTcYTgTSbD4xej9aH2
gsAGU2k93lQQeggO2b23JPj87kWjnkQDuFrIvPE9wM71+WKcIXy9sWeDP8XI
u6Erh+G8CcMGs2bkDCcVGoFZsuwG394pFtp2zRhmRLQ3uDlwr57wPRMI6aBw
Pl8Bt4alKagZG21wQ8QylVe3KTA/stjgfYb0KwLWZsDx2nKDH70VTRnqMwNe
C8r31NY1Ep+jOVz1NN/gjKDvPi7vzWFegLI+go13B7+tBZC4jmzwXVHajuCP
FhCiTmG6+U2czU6WsLJCWV9Cqjyb/9USWj5QWPRYqfGq3xFol6CsHzlUU3Vk
+ghMmFO452aYJAqyAm1XCi89NFPn/20FzqcovP40sDrhhDVIpFLYkHRAL+KP
NUT9n9scpb2PB9kAfyyF71cELK6v24BNGIU7Lo+c/OY5i/R27v4Zxz6Nzr9p
mDhixQqN19mHWRPHEd0i908aBW74VNu8XPF3FNmWPVgXEOOHP4ubeIWODSGq
qJNy/yEh+Dswf3V92wA6PWfB/NVeDCJly5TPbepH52hE/ghnS4HQM01z60wy
mnZp8BKzkIErtFV8z3yxfjvPSFg5ykHXD+/zfY5ktLCzWe+qjwL47OSat7ch
o3TPDvs3LkpAp0IfH4TrPzS1M0jMUwUs/wFbHY5fn9r507UANRjWnuQOJeqr
PaaYP1IDFOgfdRzFTOOU5/0mB4GVn1O8LeZMwXq2p28BJMWru4j6z31+spCl
TwvMAjoGN+oraXbg75A2dDuJxhFMHaJQ4/NJB0zvv3YjmP3NGa6f/+lCu7CP
HcHqbzkjZub14HmEnDXB5KW4xFPLB8A1lmrjPIwbPNZI2qQP5pPulPrX1/+9
e1UfjFTmNupft6xfuIbKADgKpzZ4RVlyyyStITT18m6sF/lpmHGN8TDENe7Y
4LBtnjfcuIwgXIRyPkbffbp7h9cY3tBpUuq3WdD5jIAJ9AVR6n995qrzN1ZT
+Ml/kLL/xl1p5ummwHLEbINnP0evtbCYgX0XpR59LmS/WLtiBmISFOYzZP2w
wmEOfy5S6n8nz7zRs+vmkCFNOR/nX27WaN5jAfzNlPXpNy77vr5uAZValPoa
TIv7lbvXEiz5KGyVPvRa+qYljI5R1nu1l3/pEjsCt+ko36n7K6Pvlh0BKV0K
9y9wBhhIW0GsA4Unxb88qqiyAhsfCkcojodYkqxhMI7Ct4IdIjdVWUNTGoW3
tqkOBMnbQEsihVXpTSuqa2zgcQSF21XjamY8x9C1PZWFS3PTSOzn34UyW2Z4
1Rm11pL5GQnqyFhbae+BiYk/CQJRY2jsR19CKdc+2Lf/oo2f+TASsjyeHqez
Hyrtqmr3BA8g1olvOjYGonCwmCtyUKYfuTCImmelSMLnyuIv3rfxeZcS2fyN
TALO3/GTe4PI6PRx6YpYsiyY3hoje7mQ0bNqV4WOaXk4K/lPTNkW7/dugU9R
E4qQYGJc9wLXP09H4LjBR3wfvFq7PIzjr0+arXv+WxX8HiW4x2EmfXD2ejqv
Dl1z87XumM3PyrwYZ0Ew956jxw5zsW14iN5lgGtbJlSI+yCxcSDE5pIWCC2T
qInzMHXXYLI5VxsuP064ROjz2FlJbeq6DohFDHlv6H8/pmfNnB0CXoaopCR8
Qt9Kt8Q/FOaFD9y/shlvvEe9PskhecoCMGeQOx+ZM4iG7p7pc1AXBjsjtqzZ
R/1okLrp4yk/cXASCUvyHMF+uSqUXVMsDU+vHRVWTCCj8gzzN77dMmDL0Vvw
1JOM4qob74hOysGsAm3moD0ZSfjyWrl9VwDZ38LiFfh+LH1ysp97VAnmJHpb
5bE+ZGMh2m0/VSDz4Sr1TRxvX9gbulM/1WDJ+CHvSczdD29+TKXVBN7Wg51O
mIfzabaM7gDQCQhOtMF8bnalSmy7FmSvk0MJPcpaGTre7NYGlrfuNUT+ml6Z
HTKcOsBypjqEYJNLckrT+3XhluekC8GvUnv0/3i+RbHBh+XiXGbQyuruaBv7
XTD9IeMv594JJOddx7Cuzwnsghlpr0U+oqI0zw6/TD6wTddn6B8eRrWa37SM
WgTBlw55DVcMIFeHh+8vNYvA8/43W7ON+9GbtLvRRrSScHaZOV6zEv+9TMfu
A1dJMNAc2Dt9mox+ZzP8zr4sCyhJreDvUTLav0Wh3LVMHmLMfkbV43o64f/2
ps1tRbj0qnl4Dus1+62Fc+S6MqwJlLT8wPGf7lIS7X+oCqxhQVeTiHy+GRvE
VajDa4Ojgl6E/6T9m53p1gQ/WtU8e8wS88OijIEAm3y5wol6OlufPBF2Qgv2
G2ZxEfpZqi5N7w/XBs++yGxCn0sWyit3w3SgMW3Jd6O+Gm/Yl1qywf0dh9a+
0Iyjxe50FQcpHjjemLROfXAUZTHw1LtU8gNq8BsR/TuIfDPn44QaheB6n8OJ
9tF+JByeFHp/Qgz4D3z5Z/YD+3NMSWsArzQ8SHFY6k8lo8PLiddeX5aBkTBh
QXYf7L+fc6dQoRyw2YV+bnHA/UzjbNfqXQXoE/j8lArfN/k7eHP+5CuBgpWr
ijnWp8QvVD23VAU8A+c07uN40xrZg88/UAPfU+2jwYR/NaY/t27WgC07HGRc
ML836lV/+R4Bz7bhVaKeGJMd3H79BGj2FSwk9Lj5slHh1x8tqDuy6dVGv7Ck
9e7KX21Q+pQdSTAbT0lRuRoX0OWAN+eTD4jbSFvna9E+qAnPimQgD6EM75/j
Nc37IcHVaO+i+gBqOc57b2+vKJSTqtO0OfrR78Q7AmO7pADV0Aj0Xsf9Zdtv
hSRWGWjxudff5E9GfzUsTvhyysEB2htcW53JyN41vYEkrgANtP7qL3D+CU2n
eUv4laBM1UgkB+dveG/vvVoBFRC7/OZlO+HPB0qMH8ioAemN5s9IzNm9AQk/
lDWALiuwwBWz+AnPrEErBMK0V/gIv+Fu4mo7WwHwx9qBiqiPS88EmRSrtCD/
8I4ZIt8ozrwPjrXa4BcbkkTw++OKYWJNOmAmL+S5cd90LMoPNwmA/KHuQ4na
g+hA07JgRq0wdEVlebNc6kfJyfMHNRbEQW9H0UrCazLi1eiVj2EjwcP4qkT7
aDLaLsmzafsOWThrts57wx33Y+fHPVhE5aHPjDltC/aTV5xGHzpEFAHd69/q
bU34XQuLLpcyvNuc/mwPzn8zqbcrVEYVGu055HJwPHuUEnKOSqrDvwdp7/ww
K999tNZ8CPfbydRXHDG3Zt34ZS0DkOzftpfY/xXLvE1uklpQMCVpTez/41c2
TmUq2qDofa+MyK9v4MuLLmUdsFnwCCa4lXTSk86rCc2U89jlZ82gCdoSXan3
OyFuRX9hxG0CqUZQeVh0ckCerD3JxPkjohkj+b415QMS92iZpcAIonl0m1M2
QRCGJe12hr4bQMnZHKKSkSKAeLW9dJxwP9b9fbfocwm4k5DMIfGEjDj0lxQX
zpDgZHuX41oIGVU8+Mtc7C8L3PnZZ/qPkZFNJY93Rao81GvtY6bF84nXtf20
eomKkKIBytuxXjYh/goC4cqg/cjj2BJx3mdHxpwzVaFjMmstleinThyo80pT
hzeqAWHexPnJcqELfKAJmrRZTMR8EtCcHOt/DMD71+98oj5C1dz2pDpqgYNY
kSihVzK1yaz1cW3IOD12ndDnRqsUXzSZFbj+iVxO0RtHa58HMioquaFFWJeB
+sYoWrL/4vjcjx+S3nEfDpYYQo+3PrRniBKCexOGTT1z/cj4yc8WgwIxONrW
McuzSEZdz786Hh6Rgjb5D1dCL+F5p5yfOjxQBlivaG49epyMGv+eZzCMkoN7
3Uwv9XF/+tJzMMkgWQGubb89LYHPS7Za8PKnKCVIV9Z2PIbrZecqv834eRXY
wUcOfITjPf6xVoz5khrc6TKYOU30ZzrJcho3NECtgmqR8Iv/jihbHKpDMCxu
goj+1NSascFyDMC9/fFjIv98nezj1JNaYOXN1U3k/+FZdl/bd22YXz4UTTA3
aWZlU9MeiJOWE+jiHENn8xgm9Z33AWl292Y35mH0/kNZbX7sfpg0nU5/bz2A
ZkriFuvSROH24cGicsF+dLf9W23tG0mQ9D/FH1qI78OwC9eV/5AgPoJeyPUk
GT211Lp4ZlEWXnHqqj3EfpHGGB4ayYD78yq3iX84/+jpzqiMzUpQJ6zWUY7z
f6Ta3kpNrQKye20/v8PxjXka0qowq4FT0lRGNOYJG6/FHnYNYOm5XOxG3Ken
O8scFRB8rnc+TfiFS+rrveMFAH0JStxEPaSiNe2DhVpQxNS4sNHffpr7dLFU
G66fnEwlOHBPc79ahABca0yp+OM7iC7J16ycCRcG+s/uSfRF/aiy1TZzqFIc
qEvDSlV68f1Y94Xqw1dpyLyqkCoTR0ZOH594NszKwCBkj970wPub353ISy8P
U6dmBP2wPyw/V8jdvVURaoxLzqbgeq9I4TpFWlGC+3bzDsI4X9+miO/NO1Sh
Qv7pf3k4nkUbMdNpJnWYv1nv40/0E1Jl/iXCmiAZeFCc6De69/RE5PIBiCdO
mBH+APxGdm08WsAY/8eT2O/Kg7KZDSLaoIneVRH57Tby/n5SXxL47W1YSu+R
kXwsz7sLD2UhuKG4Sgzf77+dDv9i75QHRv2th0Lw/R6sE6rt26IIN8zebR/B
8SXYcq+lNyrDyYxrQ5/x78u5lxF4uFcVTE/muCcQ/bOr9VBejzpMRWyf9MDs
kZA15PlbEy4tKMsT9/s3IfF3d2IAVHeE2xL7EatRed87SgvOvw3eTsRLhQQl
mUXFgetF++juCbx/yFP6ylFpiDjdq+qbhP3vwA957koZmCgTdPzgRUbanWXt
8i/kgF/ylaUhvn+d2OiZK9sVoNMzUmYA61v8uU1pa6MSoKYWBh0cv+aHt3zm
nSqgdJg+4A6hz/XAhrU3+Dz5CM0GEvWvcs0s8LMGmGTWhzgT/YreCSG0huBp
btkzQt9X9WUMaWsApJ0fU4l47+hNro/RaQNXSeAzQt9g0nSX61YdsGZkCd94
Pwi5Xyzi9QAZsU8WV1TOoMGkn0I513eCHINs21DiBGqkFchYvcABucInq+nD
PyL5RDYNKmk+mF9V4CjXH0F3fsbHF3sIAnfGo1tO4wMoX9HQ5J+dCMw5PqI/
6YHngV9Jn7MKJKC9XnVMrxb3+4V6U0ZeJNhxtfkcSxj2j7qAm3edZEE6mNrD
wJWMftEyt/VHyINnrDqzOPZfj8puhbozimDlE07LjfViBF2dgz7KYJI/trCK
49emkqorPqcK823qbWmYa0nPg+wj1aFD8IwU8T6UvSfj8qN8TRDTLNMn/Jf5
zrhUoR0AU3pTJbG/C8um1axHtEBwbbMMoVemwWnq6SusYGjcUi7vMY5i/Zaf
2QVxg+u2+6GbO0eRCM1rqTlDfhhsqmJdPzCE7HXT2yKdhSAgrek/nfV+dOzI
vhmOs2Kg+yBVS2MF6/85UbS2RgqUuhOHXNLx/EsfUN1zTAbuP+JbZfLF8w0t
1XXTE3LAcvFC9AXst471nV8DwhQgji2eWRf7zRWzveI2AUrANFny1gfXx8uX
i+50ISrQoNtf/QTHa/eLkc46Wg3CoiSpQgimo5uRTtOATf30zsR7wPKQz4eU
UgQdRxuPEn77W8PNO2EAoIVM95zIl3tzPF3Key2IqXbuI+qhoGa7WFn0Hoh8
XBoteHgM3df7rzpUYx+elzOid8kOoxjOVKFdrvuBWd2n/K37AKI68Jgn2VcU
5izPhYiJ4/t26nyCSLkkaBtrTn69ic9P37DJpUkSqN78T0szEJ9vl6d7I7/I
wl0JxQuMeP4TPuo/cPOfPER2Jl/ixOc5clNIxdZ5RZgqK7v6FOfrRZ3fJ/RL
GZAer0g/ju9NSN7HSGo18P/GshhD3JdcEw9aaDVg6IWbJDH/6S+vKRUIIjjF
dOYm4a/UQQKdLDkA6tt6xIj93rY+Nfo2G/djsk4rRL5Fz2+V+NoJQMTVXuc/
sYNI3j/ba8peGF5cd7RzuNePXrql1pZcFAeGy5lNMID//vuETsNWaTBcyn1f
fg73V6q0XGwfZeBpVx5JAs9vgqUHOQQX5MC3mG65EPtpxm6xJY2/CtDG1Z+S
h+u3vLD11u0ZJdjzzG5REufHl2i2OLmmAsI2EycKcDxfvCPESWtq8O+2jlYA
ZrFfwiK57JrQkOcWRvgp2eH4czUOAGNJNV/ivI9vuUX3l00LZnObA4j9lKLf
K32ATxu27GZ6TOT3229r9ZiQJKw6vD7lfR/HcyHzaEaRLNgUeYVdwn6a+hBM
NOrlwTdKZTQH63/SVjBovBr3O9YSul9xfKr7fjE8KVcGB2mT2m/E+0f9pNHl
F6q4v2ZbSsTML9R7+VKzOvheWIrxJPqbbe1upZ804VoT2ZPw02SmuMjhUIDT
s3Q+hP5Uq3mHfp/WghrG76xEvKyjVhYf6cRh23SCys1vZKTmQv+PGqSBRLPY
vScF+2OB6regQhk4V8f584w3GRUOCNipVmF9v2XnJmI/XfL+5z9QowBic95F
01jfwr+BXlH3lWCk+tY5Axz/71vFUqfrVMBFKMrgHlHf5S+zdZrU4EVn1ngQ
5uf/2Le592hA4UB4L+GnPe0FlTE/ECzENn0g9PW5SfO0aQHg2vehLCJeIdqe
XK81LagSE31J6Ptki+heP68bqEOmn02jaQb1GDJnv4nYCYz1sg1OORMo2uDR
3Z4THJChXqWzKekjOjySeIuDlw+U5l8aFNiPoOWUU3WjVoJwMe2/3sWpAXQn
3u3Y+CERuH7cKC7fB8+/m+zauy5KQHL4qe6ROuxPxjMvQl1IkMKgL1KI/fMZ
lB2XsJKFLi+t1/HYPzVJjAvfg+WBVFMep4n9001dyHjBXxE0FzjZBLA+X25K
GQwdVYYlQeNeKqxP7ZYBkbYIVXD5RFt5EefDxEzV3ResDsfy3yYT/nndQWLg
SJYm3GJd8iD889i17bS1VgA75FzqiP2stmujHjLVAr8fnfKEPmmMuUF8p1lB
JU+VNv/0ONKtShmQtuSGkldq9S/HRxHYaFxlUOOH4jGZ6bOWQ+j+p5jVxyZC
0Nnp5sBBO4B8i1XX133FwGvgxJORNTzfzlvv+HVHCiqCw4XtMnD//oj94pqd
DJ7H4zw8sH92Jqu59brLwb+z32sqsH+WfmllPxeoAAK3i6dNsH9mvg/WyfBS
Aqkf7/b543zzRcZ9s/1VYInmx9EaHO+7v9VBoSFqYNHjfYHwz/KvOvp34zXA
SMkzk/DPdS4aQckiBNR3PIMI/9SRuYRu9ALM0/S0EfkeW7sBMUf3wJRKH+9F
9zHUmnOMN11iH4R7D50V1R5GfY/DHQws9sO9jh8cU74DaNuVt6ST9qLg4JMM
4VJ4fl228XW+LgmvJT2DhW6RkVVMjGj9KAm+2w6i+9gvWyfnvq6PysLKFLuZ
KvbL4BRvuidz8sBveLFJBJ/XiNSuV7ozuP9huszbiPPT9jg/8vSbMnSX29kM
4vj0Yg4YFyyrwvB/Y2WxmEdX9jGiVXWwkEoPIvzSSD07UosbgXPllVrCLy08
TIokrgDc/WooS+zvK6ej4pmZWpAlorVO1HstO8fO+EMCsIPptodI2iBKYDyf
L3BYGNZpv7DwVuB6fXirK+2sOGgedd9rOkRG6j+sqmKrpaHc8VVEQDzut7/c
m4dBGfjbJvj5JPbLPum4j7d/yMG+tQCmBuyXH7UEhc1+KYCawuKr27heyyS4
Gz9NKMGORFsbGZzf8pTa2pkFFVjcJ/y4EMfjGLg/x3xBDb6u7XlA+GVkj/s5
lu2aoES1UkT45eCqkjsjK4AaT10ocZ7lVrrf72LWgvVC7VPE/rmcHcplZ5cE
Tx8uzXcPsH4s3aLsubIgVTt74yX2x8FR1bOmj/B58tRkvIf1DpgITeG5rwhu
MjxxP3A8rPEjzIduKYMAa5rqNFEvL9PqHtapQpz4vtbzmE/R7/q5tUYdWnaG
9RD+eOrwsVLDIU2YXzOKJfxxhOqBxdwpAL6GqEBC7yYH1quPA7XAKFCZg4iP
VyLAo+2PGKRKc/AsTOF+ImDgo4q0NGxuZZNYxP4YYvSp+UaODMw1WgW2Yn80
dXTmb7grB7KuJZG3sT/qZv7Jn6pUAP/DBRwLWM+Cc6+ia28rwcEiP2tjHH/n
1osKWx6qAMQwNZcR/fdjPzqPJ2qwJVHemXjvYRu19PjQrgG007TUxPw2wKC6
yD+JoEdS/CehZ10WKW3wN0DK/Pw1Il4NS5kLUrUHoOmdysb/Aw5u9rUJfmcC
o3t0Ke/7tr27HIMtoWOO8h5ePDg7nCLFD6xOf2SvOg2h5/feBL7TMwStKu6N
7x7lNDdSpMyBFEd5j5+iKTonhQ3o1nHKe7aHwY+4d3pqcEE/zzUCs8O1qqcp
UrJw4Fr14QdueJ5byShJkdIG5arqCmL9/wAePWS0
       "], {{{}, {}, 
         {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl1GWUVWUUBuChQbo7hk7pbpBOh5YeUhQRJZRuUVRQlFbCIgywwKC7wwSx
RZCyW+LZyx/P7Pe955sFd59zJjF5VNI9KRISEk75EfMBP0pyRJ7LIKqTklQ8
6FopjsoPM5gakX1Wky/k5YwjNRN8Vppj8iMMYYnegh/ll6kZ1/RafCmvYDxp
mOizMhyX5zGUpXpLfpJfoRZH9HnU5iv9mfguvKR35Ya8lbRM0styQn6UYSzT
W/Gz/Cq145peh6/lZ+O7s1bvFotim5GOyXI5TsqPMTx2oLfmF/k16sQ1vS7f
yCvZJt9NXibo68zucR/YrqdnilyeU/LjvCknk5k7Y1dmG36VN1I3zun1+FZe
xXZ5JPmYqK83e5CSHXoGpsoV+ECez4jYod6W3+RN1Itren2+k1ezQ44HKD+T
9A1mT1KxUz9p3mJOMyvyobyAt+RBZOGu2K/Zjt/l16kf5/QGnJPXsFMeRQEm
x7Nj9iI1u/SMTJcr8ZH8BG/Lg8kau469m+35Q36DBnFOb8j38nPsku+lIFPi
GTPvIA279UzMkG/lY/lJNstDyBa7jr2bHfgz7hkN45zeiPPy8+yWR1OIqfHc
mb1Jyx49MzPlynwiL2SLPJTssfe4B2ZH/oqd0ijO6Y25IL/AHvk+CjMtnkez
D+nYq2dhllyFT+WneEceRo7Yeezf7MTfsVNOxL8RZ80m/CC/yF75foowPZ5J
sy/p2adnZbZcldPy07wrDydn7D3ugdmZf2KvNIlzelMuxjvNPnkMRZkRz6fZ
jwzs17MxR67GGXkR78U7Q67Ye9wD83b+jb3SNM7pzbgU7zr75bEUY2Y8m2b/
eKY5oGfnIbk6n8mLeV8eQe7Ye9wDM4n/Yq80i3N6cy7He88BeRyJzIpn0xxA
Rg7qOZgr1+CsvISt8e6QJ3Ye+ze7cC12SnNu06/EO894uTiz5YFmphT//90/
pOfkc5Yyhuuxr/h9rsZ7TQln55iHycUyxsb3pUXsgdy0JA+tyMtBv9fazEcb
8tOWArSjIO05Gu+C2YHCdKQInShKZ4pxKO6bmUgSxekS/z+6UpJuHHOulNmd
0vSgDD0pSy/KxfeJ99ssT28q0IeK9KUS/Tge77zZn8oMoErskqokU42beE3Z
ZQ==
           "]]}}, {
         {RGBColor[0, 0, 
           NCache[
            Rational[2, 3], 0.6666666666666666]], 
          PointBox[{457, 458, 459, 460, 461, 462, 463, 464, 465, 
           466}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwtmXc41d8fwG2JIrOsr5W997rO20yyyUykMkoRkoYimiShQpFSoRSVZIuM
yE5k3ytSUlYoGb/zcX9/9byep+e57/k653yIegfaH6SjoaHppKWhIf4Vu76S
lSFcbdBrl/EuLbUEWVQwW3/1XUMMk1vue/o2oJZNmiwMHhywHCes7yb2ERld
N32bbbMVdliGOR141osOKi1tUtkkAhsetJ99LzKErGQOzvDukIA++4PGfO5k
9LIr4nijtjTsl39TemGMjPQ4ZfMZzsmD0RDpcrwYBfn+S0x/5KIMtLODxRXa
FBRYP66Wb6UKK1a7Xx8FCrrqxrR9JUAd+ES/lp0xpqD9Dad9VPw0QbDhWNI5
EwqqZt5md9hVG96EFaFBzCpbIm99D9WFNfqkJ7SmFOQ1R5K3DtCHyOdscZsw
38+oE1y8ZgDfK6Y5ODG/itft77QHyIjQjOfCHFpKsk23NIQKLpON3Jirmh7N
XnE3Ap7+0zoE++/QqfB3MYb50Vpzgu/mqLw+fMgEVK7FWxN8Y64iKuiEKRQK
OtgS/PXJ8TC/YDPQnP6+zrVmiSnnz++ATS3SdgTT2vSNXI80h5wMx3WmMSyi
zTy5E6Y7Dq3zZb5Fq85LFtBJdl3nILf9NYvRu6Dby3mdKVHqB9BNS3gstWed
uZNS+67ctwLRSZt1fswhe7LhjjXobNq1ztXB/5lKPbUByX6Ldc4QyRQkOdpC
aPKOda44s0Tj124LArdM11l0F/OyuLMdqCEqF7bJxPZ22YF/IZXj6leVRTzs
oX+Fykkh3w95DdhDQAiVz/AIs4u5OoCPJJVzZRibQskOwCJIZabftNuq9zpC
hxKVs5VfnM0YdwSSDpVlvJ9YrxzZDdMiVO7fWfJy94/dsIWHyp1ZpxRQiBP8
Yafyn1d2+mKzTuC4kcprxcGvLx51Bl16Ku9SNjM9M+8MIv/nBg8l/8MhLuDO
ROXnBUGLa2su8H4DlZtu9B/75juFyH+d5qpvVyORlTd3VzQ3wMuiB99qMlrR
5daK0d1O3FDcI5nTcLsbMS0K/mLQEIRXvf898FUcQK55+WvismKQzekWW5c7
jGjOHVObRpKQWVsVdfU5GYXNOXCOu8vCe5bk+r2sFBTDID0vlaIIxg8Wvu9T
pqAfXhV+sg4qkP+5vfwsCdeT44S8k4ca6JcmcLkbUdACR7Xp7UMawGFrMyaE
5z/Rt8m91UsLwh5m1pRgPhnXHCLrqwMHx0vgN2ZzOk/KnSA98HPO5GIh5q0x
6qFYBAkuxCb6c2Bm2Jvu35qKIO7fJ1piH5IlynmK2wCctHP6CU6rOXafq8sQ
Wrh1pdfn7cpUz99eI8g+/ceIYLpwjZJDFGMwpwuxJJi39YTAr2kTIKfn2xCs
37btzORvU3jCUrC+D5/+RF86vmQG7G/Z1+s9YlFEukJrDmenEHUfzM1n+VbM
Ib5g/zqb5HVLldBYQOEen3Ve1lbYMMa4CyhbnNZZ+teupDtslhBU57bOpzb6
3jsgYAU3LlL3ZbCDkpsjbA2yzpbUea6W8DwhbgPz89R9WJu87fmN2xZuRe6k
zoN1S7x9oi2QHMzWeepL5Godlx2cNKDOx6FrKe9Wb9rB2yAqi+ziHlreag+G
M1TmEPpt9fauPVyvovLlWnpSNb8DhBpROfHejYAPdx3Al5/Kn+OjZ9L+c4RW
CSo7JfZ+UMpyhDFtKvs1PvvaIrsbOuSpTNf9IjI3bzc83kbl7oVtQRZKTsDJ
SeUxua+FBS+d4N2m/++j5ki4o7IzdDJS+VHongjal85whI7KLA26PSHqLpDK
QGVdZtuC1yUuwPr/fWjUjS6Z9B1G/7rnrgaLVqKRn4P7wufp4Zufx2W1H01I
9tffhTxXTnjUnZVnO9aFJIxVnJ2M+CGYy7e3YK0PDf/suvhEQBQMg9hKxhaG
kKTj4cRo4+3QrK7zduMVMuIe/WbsYiEDH+IC9IuXyMiLVcb+VqwCvLM8veAg
i32gKE3/7ZMymIUHN/noUVDYYaWC859U4U2uL1wwpKC3r/drNP1Qh4g8ecce
fF6c4hOnnBvVhEfsogaZeP6FmoJHLMjaAJ7WFhOYy69MldXM6oK5vVA3I85P
ecjTr/i3Pnh86ZFnx2x/VuXdCBcCFf/rqcR58dD1dLjpDQCekNYSYh8uVfaE
uyQYwmjLTgGiPhO5FmPVaUawFNVsQPDWd6eMf15bRCYdLc3vvWrR2POozlV7
Xphq320xrPIZfXuy4cIrKWGoKHd2E9AZRB8PXQ1P1xYHfu/xwTJhMurNPdG1
R18KfOff/VtoJqPPdFXk40fk4IivzsTBrdinK5IpJQ+VIMKl9xOvBgU9S7Jv
DWhXAWMehn/iiIKiX1fmyIypwYcNXVvWsC/kA4SdDnzXgIGbHV2OOP8nb451
Cw5qwTbmlYIWzJ+sJRk3/tIB8j6FgX+Yu061Mh3/pQd7jvTcZsX5tL/KIscx
GsA7WgW3LZj7Mhg2DLIDpG3ztCPqETO1/FJ2syE8kvsyT3BePWtTK58R+Cqx
qBL1MPBLblLZZgzfSvXMCH4f12k+79uGnqnZPe1uLkMmX4NqX3fRAmlzjZSJ
WCNaXuGLdHHfApvLdyy5MnYhNf8y1jXzbVBmaivw1a0PPYj3bTqSLAKrVamz
pxOGUKnBN0OrOgmw93bi1Qoho/17Xg0kVEvDf5fSZaqnyag1PjfSilEBXH2j
559L4t9P9mg3u60MoXmuqZK6FDSbwjqbckMVAsYzpOjxPG3foPFsf5467L/N
1Z+H5+loYFuWy2NN6G44OpGA6zP1rW5b/11tEBC4ojGKOaxFS6b7lS64hXKP
0BP5fbO2iC7QB/YfDYc2Ez6K/zc12W4AbUHDrsQ8yf/uk2ELBjizeOARUa+z
5VdHTx01hP3VrlxEfRx1//zYftoI6mZs9AleNVWvnM6cQyXFz+y0ftegosp7
7k8ceaClmr7Lyq8HLbYn6uxRFILrPkLHdIoH0C1WoXKvF2IgVbiZw3BxGAUk
/46WrJQEPmHL2vhKMpI6feXk81FZaHvUbryTE/s6Krs+SFgJtj5oDRhRpSDL
pUt3PtxQgeeHYzj2GmAff0mbQPfVYKuSS/RLPE83KqdaVnI1QEf5Fo8ezj+D
XTh1PkML/kXJONdizj5yUj/tiQ4ga7LNH8zxlbyhl/P1oLFlxn8j4bPKxBrn
ahLM0G6dIM6fAauP+rUDCBamd8oT9WC7uufAzC+Aq1kp3wnOqq3UmJk3hFef
whWIevAIZT94picAae7igdfv9CNBKyPj8Qei4MoaInHWcRgl+f8aKaneDhPt
H7bW3CWjusPCT//7KAMgPCt9jR73+1KO+PAWRQiytzoZq4Dvmw2zGle4VWCV
d6LvvD4F/SU5HA3YpgZ2DeL6i3ge3PcnVijLacDjFu+OZTwPF6vChLPFtMAv
L7vpGc5v19P/npaK60B6e9qdKcx0ZtnW+Sp6YH+A/zozjjflY9DFn9okkC1k
6Sb8InfU99ZnJwSRoNZBzINglUDD2QIAd4O2D0S+CW8lNmm+NITMC+piRL7n
tqUPeZQagaodjeH6+dK0qN5XJQ5ZFuOc4QZkZFa1JJFUKgX3hbqcvvWS0dWr
v3eQFuRAxK8m/IMQBQmTPqpH8ShDroMz4wYtCtqsIES7mV0VNBk3uH/EvmC6
POLDJaMOj0bf8Rjh/N5vsxpqktaEU3YxsYdxPkWedVwmAtifL3nnPmGmV/7Y
clJFFxq0nOZXMfNrXUzdp6AP0ZV199lwfNq5havVOw3AbHtfGeGL+lv3ZpxV
cD8ru48R+S07ptMeUDCE2vliGiKfovcue/N0jCBjhU6T4HrlY75MflXobeYi
cOeXolDv0uOOtTSw24qRfc7oPRplzDZRHOAAh3ajr9LJH5HuGRofh+atwNuq
k6HF2IcYhpUD2mxFIKOS7V6n6xBiKHy8TfWiBDRwjDSF+OL6pGyVUYiQhj0e
VzSsf5BRTPt3PpkaeZhrVOHOl8D+Nv+juXBCGdpifa+c0KGggvy/nA8DVUEy
jG1fGX6fuLwQ8i+IU4cr0/KxN3G9/O5sZzS9hM+bH4HRl3E9XMIDNcRPawNp
rfgzGbPjVP+wZ7IuhKXbtdER96ejZmV+8fpg16e/RrxP4m95MQXnG4CHQJYm
MQ9B1VfPB3oDxJfKpxH1Oql3gD/OwxAMa+c3E/UJZr5xOvjJDPp+/WjttHEN
ulevKBL5iRvAubRigKYHrX7pSSp4IQijPz7dCgodQH/cv3rUHBGDvcd37g3t
GEZFLK/cWc9Jwr9Sjzs1RWRk/eZXnUWmLFh31FlObaaglppxD8t+ReBd7UN5
Kvi980yM7nSwCnx9fq9mBt9HK/9eZt11Tg3oLbTRZeyDWt/PVyyuakCCzclZ
eZxvil7oEuWcFmwZPqxZhZljRcxl5LIO5Onluy5gPkwuleVM0IO2I3K1xH20
0PiqGukeCQxDWPMIH0zv1nbYWYbAr+09H5G/rTNbheMwgNTZ3hGCM4xTDtON
GQKlalqWqIeg8uQybRU/jDm1fqqy7kdn01nHzD1FoUhSXrVWchgNDOWVZpzf
Dui1HZtUEhlNZkcvlsXLwHsPuQWTNTLKbfxWWtqqAI4VywnLcvh8O3Xtrva8
MmQEJnH9xfeNYkfD6ycWVUHxr53IW+yDeLbTJyNYNSA8NT1nAvc/8kfzuSR6
LRg5xqGbjfMr1G2sp6PTgVPXh1h+Yh723cWow6kHkkXxJUw43lEXv8VOXhLM
7bWLIXxgENac56GBQKbTpojov1fch/9GMgFcavneEfnGoVWjHfcNQbx7UHi9
//zV3XpnxEGg/VI+rRIZJaiXLJ84LQUK9cGmdz+S0Yt61+TeF3LweTgMKQpg
35V9pRkaVwIXiwhbPk0K2kt+41sxpQIbuWrszuL9r81ovyTMrA4WPNMFojif
pRqNND4WTaC3OR3rheMviBU4rrysBe37O2Y7MAdUnfleza4LNAnyYSuYF11k
bX9s0ofDURtEif2PUcwLzJYygJYrr+KI/W/n7zyTJgKg4bjdm8gHxKzcGoQM
wYn51D+CX+xQTa6QNgKtQ3zq6+8FEeuE34wy4FN0jePLPBnxWfl/P2auAE1n
G2kTpCkonFLjf7tIGXrqTkV8wOe3+nmhjmuvVMHz7JCrGe7P7F7LGd5mdcj3
OFldg/MJNT5pFFCnCXKhGe0pON6LroKriZXa8H2Ix20cc+rTpGDLj7qQJfn3
CwNxX97v3JveqQ8VstJtxPntc/FWr++sARzibj5F9OebpFxHThRAtu+PfCL+
86QXz/3PGUJoUCjf+vsFSShwyshBi1RaeyAP7ifyVbq5TwlsG0WTGdWx/8x+
qgu+UAErdWWGWny+GjXnNaq/U4NRTgeOPrxPe3mYOV80agBpOGiPOY7v4ZcG
LZZKLRhV05VpxGww1CZi36wD9hIHty9hfnE3uGK1VQ/aI3MYifuaoM4du+Av
JLA1ZpMg6v/e9KgkWkXg4BmCiHjfl+exxq8ChIpMTRGcYzq2NsxkBMV2n5TW
vxeEP38o7ZePhm1tcmzES1GciGeruD4NnLKe1Xre1YA+X/klmXqXA58HLXP2
+ASpZBRPWrm2FW7YnqVJ7O1F6pd4SDRKIlDY3XQqjTSEcn5duPDQRwIS7Z5y
uu4jowzNXTb/3KTBa5P/Qug3fN+fufLlVqY8dAlJM2SJ4/v8fdMJKz9leFoU
SyeI/ctRFpSVu1cVbrLM593E/p1h5GzoPqMOQWufHa/g/vq8aNcoO6EJc++4
hGJwPdjAxHjHIW34/HeZaxizEY1i2cMYXZh8YIwI/5Yq14S4R+B5ZbtfT/g3
hT/pRmGGAdCzC0gQ/eXMGVG87wZQKGiRTNRnYcn2NfduQ/DbkM1G1EfeD7mp
5U8jB9mJhN0/q1GyRRjdj5vcMJr9aTmmuRudP7L01i1EEK6wj9sX2g0gaYYP
inO7xOCisKx5X8UwcjdJbIjwlISj+e/2FL4kI+/dopNbz8oCb+iPTYqbcD++
XJIpLVGEmVD9ZyzYvybMQa87vVWA9X6uYAn2rxAjzV3bo2ogGrmfJRjPi0d5
83jQKQ3Yk0Z3dTvO96bdf3IuQVqwV033Ujnm2trFg0zhOnD5vzd285jdZtiY
nCP1YH7N4gjhXzcmpkmleBKc6NwXS/h3qffQUOwTBK/11tiI/GdJB/wv9gAM
P7AZJjizZLNsXiQ/dB8tp42U6kfPTadfnySJgn2j/0V+9mEUtS1Ocsv+7bCc
evCQTDwZ0ZgVCV0NkIEW0sODzCv4vJ24fFH6mQI8MVNMksO+Pd/VZ5Mwpgwz
KQVML7Bv+byK/4v4qgqjccPyWXifpfYF9mT9U4cq9mkJCu53BG14ActvTcja
Mt6YhfPxo8vokpzRhnqNlfwfmFvD08kRdHrAxXBvJ+HbqwKj+XWMJJCpdXAl
fGu+tKqVKYFgMVkhh+g3XYh4M1cqQEvXhUoiv41rE4NtKYbwpVxAiOj3g5pH
2QFu4rDjO0XnryQZqQem+E24S8GJgBj23e1kVHsgrjT7On6flQw8aNuGf3/g
YvOueiW4an2XPxW/z5h0GQV4yCrQ4P2hyw77VuLJjq0SC2pQUi70lAPnk8Qn
+4f0VwP+vs1tcMPxP7tf/+jxpBZUb/Lsa8MscslucWxVB6xGHuctY/7qf0ZO
eVUP3DgvDRL7LjsjJZ3GawB/xodDiH3/tOdwjd5WAKHKMVcin5ENj5j+8hiC
xY+SP+vnaWVkUc0XafgVmPLXfY6MZo+wvB6WVICq4kDdLCn8e3ocQlOPlYGF
nLrjFPZr0rXkfUkPVGHv6CXr7bgfca/AhlSuDhsLti29wfEfc5UIGXmtCaHn
hX4m4/h0RWdY3zzThtKFlNYxzJfLx6xuvNMFtWKOg4RfxSQ/3kio1gfft5/S
Cb8GbWw88IRiANn26YeIflzdFB3RdxKAKbXiCREvzUr6ztkwQxinC+JZ//40
6ORAZpKD6grfuhEuCtLzYv5HB0pAuyhnE6aGfZmp+y3kvgqUeXxou4H9er9H
3E33pRrMcX5Or8f78sf/X2BPiQacEcr/aIjju/832O/ccy2wuFbdWI959tFD
xbAyHfgRk2rwF3Pms9oU4yo9GClmKiHeLzX/eDce7CTBQ/YEZqLenY2ZL6J+
IkhdZdYk4j2UxVBctQDgFtM+SfCbDTL/HfG7hxIDK86oDZUglTXved7pNeTV
r/JmPL0Bde7iTGk9wwGKnkGP+ww+okiLwtzOo1sh8pIzf9y7XmTZf+nRVmER
uD3Q2W6iNISWYo+XDTpJwBG2w/ykvWSUc+GA98hOadBUEBWjGcfvXVq3xpbr
8uDx9lvPNuzTZOvJdye9lGHhp4nWT23sV8g7LO+kClVSum7nsU8NlNkWvoeq
g0nxGHc07ucBfUnrhUBN8CCXDUQR85alaNG7Txukv3bKDWEu3dAj3XBGFwy+
RM0T39s3cdK0d4Xqw8bRW7mET+/uke/ZfQv79EQaP9FP7zubGUudAA5cMLtB
1ONyyq3GJJVp9FBJpOhQTTW+T6WFiIRxwwtrzw+qL7uRycvYHiVHQbjD85RF
BPDD0IV0m1VPDDLOR3kNvxpGzylRK0U2knDrU+fkgwIyCniou7YWIAu3b6ap
mLPh9+xvZ/aZHEXoUD0aWqSM7/OFvNdX3VQgXbZV4i72Z/NVvQMfD6pBbXr/
Yx88D0++1vPGBGvAdm7LKlGcX/JAqHGSnxa0dDyWKiPet9IjASmBOnC8ZG8T
8T214+/rkJPhetAd3Q6EP5+NG5vnXiBBTdy9U4Q/1wQYJBQeIFCsC2Mm8jVW
SUD3PgKY558bJNh79R5E7eMHJN5q84SrH9WnegsnyovCy/eTWVvoh1FX0ek9
Fg7b4T4Hj1FGLBltvNmmfMxdBobe1bOO/MP7uuQS4HlXAdQ15e6+laUgp6go
mfJBZUi+EaEUh/1ZPzY3vjaoCrDf2ikZ72torD/Tmzl1+NTiYDaA+3smruW9
yaQmuG6OYX5AnI8+l/uLv2mDQsnDVeL7mGmUmXXmki4kVNpxEP4cXBZlQyv6
wHfDzJjwp5V+SoShIIK8nb8yif46+Ng8kL8JsEJRLCfyK+XdynFhpzjcntqn
QxEjo4tslzPELaXAq8l9IqcVz+erRy3xZ+XAWNZDSRD7Uv+n08vzr5Vg9zmp
My7Yl31fn/6GzypQXyDNrYd92aUUTX78Uw2EJnVmmHH8ZEMJKbsZDaD3Ue9y
xvHmyQtWUka1wK6qq6EV89KE3uqJBR2IjLY0JXzpEbw91X5BD+7yL5QSvozo
PBjDtdkAVjrEfIn9/byidZANP5/YDz/dTcTvtimtMbdTGpJqPbdsmcX3k7O9
aby8CsBcIskqi/34e7xogf+eMmivPX9ri/1oxNUuw5umCt6THJ7cuN6fB3XP
2haqw/dNb46/xPEGjZ6MFXquCSEG5VOJOB7uC/2cOx9pw3nTD/SEH9dq48te
lemCsiWfBOHH48xbfrGU6EOB1qUYwo/HLb2f7Oo1gJhEW2+i3v00+Q5zx/F5
XMWbQ8QrLB/k0zAvC2Ze6al82Ic5QT1kHSUlfL5OzMljH4ZbUarvpaqA/oSB
WDj2oa2Hp1hFrhrMmv58VI7n3yR5PmPihQa4ivmfNiB8F/M+svSxFrCojSTW
YW5mua6x4ZUOJEQbvCe+5/AVHWHyeaMHhws/3CB8yDPo6DPUSII7wr//EPPf
w6q7KDaGYH+UmgoRX9kt5fjPswCbGrR+EExyVLmmWGoGnSMr638P2EEf4BLa
YQNuwdTv8dKuH7d4hDpCvir1+/PDz1N9sYr4/dpXGOabN4xqnrYGd5jugjdl
1O//Ps8Y7sUq2oPBPPX/TzA8iFHEwnH///dvH4uf0R2mesD//RDrBsx77rws
jlVUhbqhreGi2H/Fy0nZsYpGcGG6av398T9F2C+D
       "], {{{}, {}, 
         {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwl1WWUVmUUBtChuxskhk7p7u6UlpChQxBFQKRbaUxAwVZQwgATpbtVUBBQ
AQMwUbEA91n+2PM8567h+945995FYtKYLqOTJSQknPAjcqIfxTioP8QgqkZ3
rTpn9aeYQHIecK04h/SHGUw1UjDJ9RIc1hcwhOrxe67V4Jz+dHwnKXnQtZIc
0RcylBXm5vyor6dGfJa5Juf11XEGUjHZtVIc1RcxjJXmFvykb6Amh8wLqcWX
5jVxVl42d+WGvpXUTDGX5pi+mOGsMrfkZ30jteL7zLX5Sn8m/hZeMXfjpv4h
aZhqLsNxfQlv6gPIwIjYrWzFL/omasf3muvwtf5sfJZ+N3mYbF4ru3NL/4i0
TDOX5YS+lLf0JDIyMvYuW/Or/jp14jzmulzQn4vP0uPhyMsU8zrZIx4Stol0
TNfL8bG+jM36QDIxKu6PbMM1/Q3qxnnM9bioP882fQz5mGp+VfaM55Ht5uMy
vZwhy/OJvpwt+iAyxz7iPsq2/BZ7pV6cyVyfS/oLbNfvIT/TzK/JXiRnhzkD
M/UKfKo/wtv6YLLEPuL+ynb8HnulfpzH3IBv9BfZoY+lANPj2ZW9ScFOc0Zm
6bdzUn+Ud/QhZI19xL2W7fkj9kqDOI+5Id/qL7FTv5fbmBHPuLyTlOwyZ2K2
XpFT+mO8qw8lW+wi7rXswPXYKQ3jPOZGfBfvBbv0+yjIzHjuZR9SsducmTl6
JT7TH+c9fRjZYxdxr2VH/oydciy+I84kG/N9vDPs1sdRiFnxHsi+pGaPOQtz
9cp8rj/B+/pwcsQ+4l7LTvwVe6VxnMnchMvxzrBHv5/CzI73QPYjDXvNWZmn
V+G0/iQf6CPIGfuIey0783fslSZxHnNTrsQ7w159PEWYE++B7E9a9pmzMV+v
yhl9BVv1keSKXcS9ll34J/ZK0ziPuRlX451hnz6BROaa75Lp2K9np5r+hVzJ
KD13/P36HfLf2CHN+CHeC4q6Pk+mT/b//w8H9BysYnzsguZxdnLSgly0JDet
yMN+/7a1zEsb8tGW/LSjAO05HM+x7EBBOlKIThSmM0U4ELuQiXH2OCddKUY3
itOdI36vhOxBSXpSil6UpjdlOBjvjCxLH8rRl/L0owL9ORrva+yVigygEklU
ZiBV+A8ewdll
           "]]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0, 0], 
          PointBox[{457, 458, 459, 460, 461, 462, 463, 464, 465, 
           466}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwtmXc81t8XwCVS0ZJE9p7Z8zHusSIysiLEVzJCJJE0rGRVViUJFRmhjJL9
kBFJVkVJVoiyUrJ/9+P5/eX1fj3P6/Occ+4573s/F4+jl+kpaioqKvImKiri
L++t1cepnLXqVDPSH6t+nFLXr6IzGnVZR+9sS8f6jB+gdzsUttHY7YZfs8Wn
ytTzkOYtHXKWMQsEdu+gXY0rQackl3ZI7+CGsjGr2o7aMmQocmqWWZcfQnS9
VZKtqlBR9+XzzUrC8JB5IMOJpQapMIo+o7kqDjS95fvy/tQgl+X4B5lWUpDL
1GKbJUhGXo1jss8MZaDihtcnsgIZRR3fIrDqIQcCR5qjXdXI6GRToLO0qwJ8
UNkpnY/IqJaO9ai7tRLYiIxFhAIZSe8JuvPDlwQM1tksPZgdfquJG3mowslZ
k7XfmB+mNrAv3FAHHf9nz9cwF98kfek0BZCk+6BKrUFGvuVqJg+OaABPyaNT
mzHXtGTORdpowvm4vx8JdtNVrnKz0oKeVPIywSnZ0i/cT2vDE/OibTSY435X
BXv764B60L8dBI/mnvdz9TkENalOuwiuPxSfFBKiCxpxKxu8yfjz0K0gPfjh
5rybYCqNl5vSAw5DzuaUDY7Yv2DYeV0friuf22Dv4yfrFkINoFvVc4MHg+Wc
0O0jcLTuwgYzJdz7HPnQELpINhv8ZLdoQNN9I1ANMN7gWh8uHaGnxuC9ZrTB
qdzp7GrmJlC4R3eDqy4tUbm2m4A70txgHgO6Fb5jR2HFQ2ODS96LRPd2HwW2
CMrnMY1rUtx2pvCfstYGJ5z7cdqhzxScJijfv7SPcxevtRlslqJwjghti++A
GYwyU3jL/CbW2hPmUH6IwllShVdSx8zhoh2FRRxzjVY9LeAJL4W/HC4rspi0
gAlaCnc+vngQnbOE+EXY4H/FR1V55yzhxySF11/5vAg/cwxefaawgdQhnUt/
jkHA/7nJTtLN/ZwV6A1RuOC598L6uhUIjVO4Je7L2XGXaZQk7PzI52wsimir
GrGwZALNimc3Sa6FaMsC+xSNPDtU5QfEPLAvRdZ5z9b5RHkh5cOt40fbKxDV
1bOyM0gQJAIl4vPtq5HfbzPGMRtRmB4rGP+XWoPCaIT/CCVJwMu/WcXN+8ho
0qHKVdRMGiTird6GSeH67fYXt7SThUiVH+kTJDL6u7tW5+5peVhIjQlpVyej
eJcWmzYHRRBbOTMpjfs5IKb1nKiLMrS73+l8hVmP2n7wvrcKvGQv8f+Bmao5
OIP3shpEvTasX8JMc+KBW9s9BPyKk7+ocL6J/JX7Xr0HMHgz/4eYh+S6sw/3
dmuAYGtIPtHvTJHTnxZ7NaHB7O0vgqkvyJedHtQC9eQUGqJezG3+bFMz2jCp
5MlAsOp71ks/53Wg/VvPToI//Au9fn7pEKwu1Wz0/5D+S7XITXpg7y9H6X89
vbn9q3og9jZqg7XzPgqVUenDqn7cBq8oHdz6ndYAlnef3mDhKYOE+wxHQNbz
/AZf3O6S5sRmCNWJlPn42jGYk81pBCW3TSn9W8tv789nDJeBMg/rP+/ajzOZ
QGOpAWX9jd7dNI03gW9btTd4ejhorWHvUXBwp/Tb6RtJr9duH4UnIxTmNmDq
X2ExhV1slP7fzTFvSE4xheRHlPmIqN+sVnvADMbPUb4fnxbn8TbFDJYYKdxz
M3Q2mcscDohT2DK+963kY3PItaWwa3P+6DtRC3BFFKb+WBiUk2cB1Hso/PEv
q7e+pCXkrFH69bvYaMnzIksgzVP4ksLQBXOpY0A1SOFMX9vLm4qOQVMPhbc1
kT6dk7OCbf0UJtGZPH9RZgUnRincTAot++nyDdU9PKCq9TcYiU4t/s2zZgSP
KyNFByKfIX4t6WOWmgegnDPmSgHNS/TtV3d4LhsPhObGlRV/LkeC5u7xoVoC
MDPlsReNVSGmkXEtK30ReLr1oHCfYw1yoBcxvRN9ENTdmq36tuF5lxDePP5B
ClpIovQC4mTk5y75POSDDCTvfGTKqkxG5Bcn5Vsm5YDrt6W1DO7/i/v5Bq+O
KIAn77fYBbwfcLT4DOkPKIHs7Juih7i/KyOnK+rmSLDL6HLfIGapfnvXV/Oq
sBj18uMCZtMr0q+H9iKwehj7Zx1zhnXgBZ04AF/etQyi/69Xf7pgFasB3N1+
N4l+n8jR/16brAn/osjDBL+0V1SZSNECHe52KqJeLK8vav26sYCM3/Zd8WS8
i74XBHeumTJDX9LQdhGaYjSeu/VasRAnZN3rk3FIe4W6TkddeKDEBx6vbdRF
MipRb45/t62qEFzgim6OrK9GPdQ1A+c9xeAw35EImfc1KGdVMKksQxLynD9Z
K3GRUX6CaZtHuzRYXDzcuSZLRqEvqrNFvsvCtrOZsaaqZCTuwWnp9EMeFOvd
LI/g+uSWnv3I/lUR6iJPFdjjfD8YCdJun1KGk3uMI1swd19s23J+SgVy8lRO
TmNuL348EEOrDlUelWsrmD+n0mz9ugtgb1ny000437DplSLRnRpAMm2SI+qR
10jf0rZfE1QydjUQrO6a2CLNqgVqgk/+EGwcK6s4KaANigHRdES93sR06v1x
eY8Mw4oylmd80Mrq/iArmz3wTyosMXY4H8m6VdCv67GC/xsBTnqjF+jRTZcW
z0RuyHvpt/WVaTkqVx/XMGzgh3ddJnlfH1Whk7bFfbG1wnDAoyf6DqpBbTdz
ggxpD0KxZytXEzX+vUS79kN3pSChpfj3DREymkuin0uKk4EJ4x08VEpkJLBV
Pv9knhxcWe9O6MLnjTNe7x9bPVGAeOPa9G5cv+nxBtYvKUqQYXAjNQHXw++d
osjHYhL4k5r0vmJ+M26kH/pcFZSqORj+Yr54c3n6Z7s6/JTeeYLoL/H5zyIM
PgA79OV9if66Uhk1cvGMBgg4eQQS9TEn/ZsUCNQErtj6rwSv6chVz6T/RvKq
aitG3QnoZXWaTa75PvAKzK6KVSxCC+3xyrYSHCDocVJt5+ZX6A49R6VDIS+c
J+00NVevRB6J86GC1YLws1KM3ymxGgkFRgYUjIiCQNngrOerGsQcnNXozSkJ
Rx0YbN8cIKMjS9fvv42ThiybtPM2MtjHw8kT6KEsRNzKE8tVweeb6ul3qzny
ELQwoMiI65G6i/Pen1RFKDVIkNLH+WV5Bqgm5yoDDN3VrsN8s5rZN+KZCuzo
z0z5idm1Or7uWK0ayHwem1/G3GfYpVrfh2BaiN+M6CeGKFun2SkAsyTz/UT+
j+ur5Wf/aED1Kms5wTn/NDpuL2rCMnlxluC7d41cpm+MIZpNUryuJZGI3VBT
a+wRDzQM9/r3WlegBLepobJaAciacK9kFKxGDe6cT7m6RMDXIPlyTEgNmrue
zfdtjwR0aNV2i+3G582mOflIJmmIbaMa85Ugo0U1szMerLKg0yPTsxvvvzYn
46ukxORhueqORjj2T3iNH2cWryLs620MY8b5GDzlelrOpww69xfoCjBTH8oy
eiatAvadLGPfMSd1eYf/UlIDs83zzouYxc643OmxRPDy99aLxP7LXsPWdOU5
QK7l9naiP2LJ/DsUijRAy2RXGpHvVdYH/XblmmD/cscPgg/VLPEnlAvBwF7a
x14z1Sgqal5X7a8Y0Ic46UYM1yBOtS654H1SsOWJ2hdhPjLaeZBj085dMqCh
N2jhK4/PXxFDzntF5KC7+W3MKPbFG1bD/hZhBXhyUqP6KiL81rBXm00JPCSD
i3xwvJulut4FSJPA182vvgPzAcXwe/8dVMXPf/thFrNSTsla7WF16LCIH13F
3HgnbfaYNECjIPMisb4r5g82OR3UgAIzstGGP99YnchT1gROxQdtBHd/Gn39
TkkLvt4e+kdwo9RZly2uNShuxe41x9WTaIQ2S1uibzcYv7B2W9ydj0iXqJzN
WlngvQyiyZ4pQTTfpDzem3BDV6JVuyN9OaIpecIqE84PbnXhLpevVKGoJBaR
g5eFQTMlryhIHJ+/2n/sF6kTh1+3dVc+rtYgFr1/Cn/9pWBerZFTQJiMnj9b
ZMzwkgG9yZSYU4pkZFXI4fY8Rg58yrc9S8N+cL0vQKtzXQEcP9YE1+J6WV3w
kucLVILEZKOeaJy/+fSXb/aJJEitjm74jJnpzKEK15uqIMojvvMPMR93HLb4
PFOHPRG62wk/eNdGhXg5AvyRcbEm1j9AxelAjJ0GoOQRb6IeUdTG08fcNSGK
5uJngn3o4gJ9cmdRoHaMzAnheJTWKMEd9IEJVFvarkq1F6K14U8JzwvZwb3w
rr98USn6ZzNqV+fJC94jzpZ2WyvRy23FNvRXBeH27SGh9IvVyKh0qkE/XRQU
rJ583pFXg97Vjdkd+SIBIqmfum1Y8PtOPi91oI80mB6gGfaTJqPqxQh6g6uy
UKiwOdAQ+6HepSdSP0oeEjPaTszh+UhS8V0avKoITxhb3dVxfrtXea2GIpRB
tSOpuAqz+0C5KGOsCgTmVzJPYi7RipJVS1ODmM72/wg/zFgomR2uQFBwWp2X
6B+TYwxV5t8AknzF6Yj8U7WS3Km/a8C7g1tKCL5yYOvQXPow2rfUwrlj4hq6
8oD+u549D5zPnha1Z6tAff155akhAnCNseGoBV01+pkVulBxUwT0vmm95jmH
99fm8fLytoPgJM7rz7YD73cXb6Qo/ZGCWL3HpywOktErc41b/gsy0DYmufUe
Po/cZAgMuEwvDzby5EQ7nG/QZOvVhM2KsPOHbigdkQ+puZGaWhmqQ7v2ZGP+
5mJAq8yoAqVMM7PDmEesXBc6mdWAeeBO5j/M6n6teXbyCJLUNpEIHzjEvOUa
Sgf4NyBdQfRDDFrT1H2oARIxDHeJfGPlylb8A4XgrmZnwfrnalTYaJ3YWygG
J6xPHM/qxX6rGKXqH5OEyKy0TMRDRicGSl2qpqVBVaZptVoOr1dq+3VOOjnY
V+M8l4rnf6lOPnn/NgW4IVjf7Yz7+Xk023mpFUU4U9Fx0Q3H51Fz6UftLhI8
tfyq04Z5wUrUZHKHKvgWOT2ZwRwmkeeVJaQO/vOP/Ij5bz/QeSmZG+Bj+sMu
Yv2A1/B4E4cGRPeIaxLxF+rKJFYJa0J2z3ozwXIhHB03imWgOFpVNg7vx3Mn
jswyt8oBaZHOlQbX11crQNOjQQH4Y4bTRnF84dbsa/HVShBud3YkGf/evacJ
Pke6SNAXMp7xDfOlk8d6H3SqAthoLhL7sXP4nV6XOXVQrbXLI+ZtXFCsIzsY
YEbT9gZR3xC1wgK3qxrAnqZ9jYjHAblI3v5PEnp+dSjv4SAjzda8ZrnXsqB6
nG/fJlyvE/voGAub5SG4WENMCseTMdykuK1aEVYLo7UsiPXsf89t2qoMxz7a
RjViLkzxqVprU4ELQnvopzCzK98/6jOsBsItFleI89UbnTOCaA3BIcPeIKJe
byrz6G+uAbTahQoS8WTrfF//tkUTxk831BBce6EgQ9j1GRqRWudpbTFDPZFT
gvdSdsNM+dmpt1l5qJqWL2H1BgssB102vVhbguSu71OjkuQGt/yV4sHRMpQ9
de1ahjM/bBfq6qp0r0KpCgbGy8eFwYBj9GAiLz6fz0YO30kXByfO7v/aF2sQ
+aHOhKGrFBxeMPzpKoTnucL7cc4JGXCcFQxiwn6cpWVs+nhJDq6u8kaEYT86
F7bLV/grQAJbeVAprg8DaGvpnlYChr4jdddxvppUEhUZYSTsI3/fXszlUnXn
bC6rQnPYjYh5Yr88kBBXkqoOj3VV+on7GsbsIYmHxwH2uVkZEOv1d8nkBZOF
BuwdsnEn6iHuio7LPptBdz3+NLgYxaFEfT/qydtMIDp1JfVQSiEK8VwiHz/H
DjZJT99xR5YiYZq3Er8NeCEhPCYm+WcFstGOb7psLwij+iOWhp7VyNGC5yfL
FVFwfXQ2KjmzBmUPXxcpL5OA/ui1u/v34/dTOu8XnY7SEMXIkrCO39c5aKlS
TM7IgtugZS879qFdZeuY90V5uOs+WTSI+/f2US4xK29FuOTapKWE86mvXzi1
5YIynPvnZ1iB+fgsw5ZjQSoAmwL0JwjesuWn5E01ENruxkT4cKn3dH90LvaD
YfhWoj/m1Jzcwj9hP7wpXiPqwb752pboPg3gGup8TtRj9otTmm/uIDojbbWl
9E8oKtCZeRGgxgPHM7eNGC+Xo2DWGME9JwVgAokunF+oQlSHXnJEeYjARFXr
zAF3vD9ORIQL5x+EYb2W8WB6PB/dn41jv0vBFwvb/2rw+9l+h1dcl0dlQPbc
Ppnj2IdC/3l9erwsB6zCogZ6ON/Lmy483zavAHn223PW8fq7Uqd2C84qwbnU
tukMnE/bhQcDl6lVoJ/TdnIIcxTbyLMGWjV47jKGCB/qLa0ppvMjUI+zYSF8
SH2Or3XvPQDzJO3nRL7b1ye+vk/SAIWs7vgNf3gluU7YCMExEecDo++rUb1T
THnWLTGInWmauNqN3wf6wlsNGiXB+INVH+LG5x8SLdu+AWmI6L1j4IB9yJ+r
y8L/VxbM6gPtA/B8J+wX/ae2KA/J9XnN1jj+/IeNmU9+KkK3XluWE46P+/rR
he9ryhDTeN+rFfOo2yUxqTX8/uRqS0f4UHRWSDiZWR0K+EtVCB9+sHWvU2HB
vsmbqyHWb2hr5pbFfRqwwH5bhYg/4UbifwmPZGBaZFfHYey/mGIwVquUg10a
gnY/8TydteY/N/RCAfh0pV9/xfGQeGbpS/OVwL1x1eQufn5E5XfDuNckKDkc
H9iPmVewKy62VhXihkvDCP95b292yh1UBymFb9cI/0XtCL38OQBguXI5iKgn
1eqDw3N+GjD12TOIiEfFgW6ZGiQhl82RZ5aNjB5+4jtOKpIF92FPs4+4v/+5
LXt9KpOHN4+9PHhwPA8XfVyvFiiCtH3Be2P8/LnMDAm/CmV4mHbfux5zen59
klaNCiyHlFr+wly3zLz9VKcayDO+IRH+62xOLwz+haBw3eE0UZ/Tj2le1fwF
cGDbzkXEU7pVhMvTNQ3F7AnWm5jVQp0GjEltl3bDpM7RRfVzeShIvySn8wwL
BK3uCmjIKUFHvlzPZOHkhu7K9Dj37jK0FH2+4qslP7g4fu9TdKxC2decHIcO
C8PiGHkwjAP3x6bjze9uicP+XSNrtQs1KNHo5+sAByngk7bt3Ip9R4Y8d3FL
Gbh6K5FqUgH7XYrh7w9fOUjN25Hph9fHSVXQ6K+XArDH9zkW4XqMPpbQ7/1P
CQI5WHKvEX7b+km46RIJTJ//bCLup3cwUrV3+6oCuyytNuG7FFvxTxZ31CF/
KbOJ8J3j/Z205ZYAJmEC2sT6RCTdaU6QnkGc3v5cRwdi8fkj+Ry3HxOEfsnP
1g4pRNpF0Z8kzdmB5rrTuIdvKQIrtbv0KrywyV+mI7y/AhUMBq++NBYESe6P
Qtedq5FHBml93UMU2v543TZ+hN8H54/tms2WAE8Dk29nmcmIpYT51tpxaWjQ
r02rw35rjVJx6jolCwzR1TOb8frnjjYyh/nIg+zJcLFePO+Jfb5aCa7Yb/1k
Dnkcf6rwkEeSlzIc3v2UsRxzx+KLcwEXVGDbkYlB4j4yf0xLL+eaGpw6UfyT
uI9cZ6PhP/gIge59i2Vi3rWkY1FaF8C8kt0Skf9T1b1X5J8NIL/kZSvPhRDU
eM+RM16cB44pjvnunSxH3S8DbfXNBMDOJD361HQV2n77vdRZGxEgK6anUbvg
89CSlYd9ykHIexv25Pl2MrIMDhap/CoFM7TWdT7YZ43ff4+tf5UB7gdJNCTs
M99oty2lv+XATybeRQ3ndynm3Rvtnwrg8fRdxjJeX03niC+vxpXgRU2p+WMc
v07wIaP0JRLs5V90Inz2dYWHAa2qAo19LT3hM0PVpMsa7AgS/NjoiPzMnI0f
id8GqMzOyyXyC2eISOU7IgSctyPtoKUatRVnvrt5RQz2igTT9XfUINVflkUh
LyTBSbdjXxUXPp+OPp2HHmmgz9/7QxL7q1sydODJL1k4bqbA7Yz9NaDBL3R0
Vh4iVxGHGY43T5y9enBEEZ7OL0o6EvvJhMqa/19l4Cq4euUtZjsfgXumf1Wg
5e7sC+L+53LnqbC9O/H+W3qJg/BXz6riKQYmAFPWvhfEfMqutPftYdQAbUZ5
JWI+Nfe2izAny4DC5z4tAeyvnq+kKyYlcrB96cnuATwf3iMB0RwFCuD3uJvU
i+NhuvaF8XCmEtTUvgy8Tax//c2K4goS6FxwGCbuU87T7ZnaVqYKNetTeoS/
zh9xzDXoVQeGVzw+hL++UD0z+30eQCc88yJRv2zvTwPKkpJw0lqsxw77ysTO
nrcqRxZGeFY8yLhftRP/pE4UYl99PTDIin8/PexNUPkTRTg+fZ/WED+vddst
+a3FynBkesL2Neb9Lz23OJeqgAG36xJxf7Hvq7lzf7MaxD7jYyF89YmetMD7
HUFX6pcTRD0q7kjd7JkDKF5SYCPqoWYufUOi/BAodyRu3Hfrbvaw8u0who9U
lP+/CFt37bHzNYcsQ8p9bkbP9OdoCV44xHnMmra7AtU9bfPp0DHAfnHf+Nw5
nyYtWsIUsvgp980TNI/CJLAg0G/Kfa2z/q/QDh0VCG9hpR/D8dneL3oVLSED
F4ykw9mwr16tJGRFS2hCYG/iWyK+/wHNYJoN
       "], {{{}, {}, 
         {RGBColor[0, 1, 0], LineBox[CompressedData["
1:eJwl1GW0VVUYBVAalO7uDukOpZGQ7u6SxhaRVsBusTuxE0Wxu7u7u1uZa/hj
vm+t+y57nLf3PtSfvXz0soIFChTY40fmEj9q85S8lTmcoB/At/JOOrBGb807
8nkcRiEKs9TndXha3sZcOnKMz9rwrnw+h1OEPEBdnpG3M49OrPVZW96TL+AI
irLcZ/V4Ns/GfE7Ue/OdfAOd2aUfSzve1y/kSIqxwmf1eS7/lgWcpPfhe/lG
urBOb88H8kUcxQ59OP/IuynOSr0Bz2cdFnKy3pcf5Jvoynq9Ax/KF3N09k8f
wb/yfZRgld6QF7IOizhF78eP8s10Y4PekY/kS/K3y3OoyJrsszmS/+T72YfV
eiNezJos5lS9Pz/Jt9CdjXonPpYvzfnlHPRRuSjsyZrmvuYhZmNeylpcKU/O
7zhYP80cwM/yrfRgk96ZT+TLsufyXCqxNudljs695AG9JIfKTXg5a3KVPIWS
LNFPNwfyi3wbPdmsd+FT+fKchTyPyrkfOVdzDIV4UC+V+yw35ZWsydXyVEqx
VD/DHMSv8u30Yovelc/kK3JG8nyqsC7nbY6lMA/ppfMOyM14NWtyjTyN0izT
zzQP5Df5DvbnOL0bn2efc17yAqqyPvfAHEcRHtbL5N2Rm/Na1uRaeTplWK6f
ZQ7md/nO3MO88+bxZne+yF7n7OSFVGND7oU5nqI8opfNOya34PWsy3XyDMqy
Qj/bHMIf8l30Zqvegy+z1zk7eRHV2Zj7YU6gGI/q5fIuyi15I2tyvTyTcqzU
zzGH8qd8N33Ypvfkq+x1zk5eTA025X6YEynOY3r5vKNyK97MmuyUZ1GeVfq5
5jD+knfRl+16L77OXufs8h5Qk825H+YkSvC4XoH95LeyHrPlCqyWDzL/Nu+h
X+6A/k32lVrylrzXBf//P/wJuSJvsyPvJffSP/uTu8OTVMq7xICcMZUZSBUG
UTX3IHfPrMZgqjOEGgylJsPyXL5XK89JbYZThxHUZST1cta+N8qsz2gaMIaG
jKUR4/K8vtfYHE8TJtCUiTRjEs1zpr432WzBFFoylVZMy34ynd2+19qcQRtm
0pZZtMte0569/c/LFg==
           "]]}}, {
         {RGBColor[0, 
           NCache[
            Rational[2, 3], 0.6666666666666666], 0], 
          PointBox[{439, 440, 441, 442, 443, 444, 445, 446, 447, 
           448}]}, {}, {}}}]},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{
       FormBox["t", TraditionalForm], 
       FormBox["\"Density\"", TraditionalForm]},
     AxesOrigin->{0, 0.34},
     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[0, 1, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"R(t)\"\>", 
              NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"I(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[0, 0, 1], LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          PlotRange->{{-0.1, 3.1}, {-0.1, 3.1}}], {-1.2, -0.8180339887498949},
          {Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{3.5656488807814255`*^9, 3.565726346293586*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwt1nc8V98fB3ApVKi+VmQkZI+PvZ23VSJbtqjsiFCZWSEjZSSEKCVCCIWQ
yowSPmZSooFSEZLxO5ffX5/H83Fe73POfd977uceOOll4kRJQUHRtoWCgvjl
ubp6J4erSW32wu2kzs4Z9Hi70H5P11uoQ7KfWbVxBjX5l+YLuj5E+iyT+WXl
M6iFdNaF2rURzZRwWuekzaC2hB6dPy5vUITfUelIhxnUrhRZM+Myhm7uK89b
mptGHUkjZ7+6zCLtPXt/RLJMI916GoPPLuuIvSOEVKj8DXXRy+3YZrcHnAKv
630pmkA9egzpr4P3AN1TqfrjGRNoMPYHf0bWHpCmlWodiplAE1QFWuLv9kDk
is7CiOMEWlndG2Zp8x9Mv0/5y7Z/Agn/+LtQbMUAbZ2ha82pn9Dl1/UTx8yZ
oCGLZZgpZhwl0mX6cp9nAsVsJaqc8+MoVfc85fR1JtAzaC6RcR5Ht1rEucPI
TMD+TzApXnscVTfcsikyY4bS3UfWPm8bR5Ol4T1rJizg/dJfMT76I9K4qv2s
wJAVDPfzyuy68QGF6VYW9pxhhRSVCs0tsR9QAxVvyuoVVsgUOFtFE/QBKQVT
OJt2skK2lA3J0P4Dknaro13XYQMWvpTEV4IfEJ+mpIW5xj6YmPgTzRs6hk6u
3YLwE/tgSrGP66rTGMqt2SVcHLYPQqqLwviOjiEO0szKlsZ9ECkhzdvFNoaY
OQtulyizA3UGuLE9fo+oFzl+bJPlgI+1Tctlf0eRVkX8gIQZBxS0KT99OT6K
IjyXn1n7csCpnaUBWztH0dqngZSycg5oFtCipbw1iha7kxVtxTnhdEPsOuXh
UfS1aHvUIwEueM/xK53u1jvkJLFML0nPDXR8Q3tenBlBR0di7rJycYP8/Evd
XJsRJBPDrEohwQ3zq7KsJTojaNsYyeONETeQOEaLzXhH0O1Elw7PVG6wStah
7R8eRmPf+6KL2A/AgYNXLT1NhlFLxkmuZNEDEOQ2dFFIYxiVav+sClA9ADZd
KWH/SQ2ji9m0kzr2B4A0u3erI8Mw4tDX0Pxy+wDUBKWF0JKHkFXxw3VeYR74
s7iFi//kEAJL1Ru0yjyQPyY5fdFsCAlueyU+p8cDg40VTOuHhtCSzWe75548
EPuW46if6BBKo+V86lDOA6jec0To7yDqdY/zz1bghTndzPmQjEFUy8K6J+oI
L+ymv+csmDiIbj+/W+BhzQvBN3rt/0QMIp99Tf3KwbxwsyG+7I/HINrTsSgz
3MgLMke6j8RoDCJ9IadfLIf5wEvHaqpobgAtx5+rGzXng6uJP3sXpwbQ/R9R
UfnOfMCRUnn3+PgA2lZ5j00qmg+Gxaz3BLwdQLVqX9X1m/nAgxq5DpcNIH6z
08mRmgeh3Lqidp/fAOqrDrLVNT0IDzq+s055DKBwtgT+/04dBAYV95I3TgPo
3fvi2pyIgzBpNJ38zmIApbj9GK9pOgjRp/T3L6oMIIrQs9I/ET/8HZi/sb5z
AJV+DF+tNuSHzk5HW1aqAWSjldwaYs8P3omNPzXX+1H1jkc2tKH88GBCr7Fn
rh95pM5H8jfwQ1af7Zn20X40VHihz1ZFAKz1mdNmK/tRNN3lHN6jArBO9ZmR
q6wfyXilu07ZCMCLLDtr2wf96JpMzcqFIAGg+eQUS3O7Hx1qXOZLqRWArtA0
N8Zr/aiiL+Rcu4IgZORZnRg504/uRzmeHD8iCFmn9SNz3PtRjpye4T9rQZiz
q6Q569yP4tJZhcRCBAFxabhqHu9Hp2wfvbvWJAjP+1/vSDfoR0wTXzUtdYXg
cD57yKBkP9p5/Q3prI0Q2LrHQZB4P6I4VM0Z5yEEc2aX/IVF+tFMQeRiXaIQ
3Ds6eLuErx81n+Z6sL9XCEpIVYkarP3o/JwpwxcbYQiRKla4tAX3I19pfd1D
GFwHzjweWSOjk8cOzLBeFAathwnqqitkZPD4R7NurjCcaO2Y5VwkI4Gg2IDS
CWHgOfT5n/F3MuIS9XZu/SMMCRKsnAtTZMQ0am76gVoEdk5HK975SkYUiE+M
QUgE2F+0j+6dIKNBysYP5zxF4LhgYKzLCBm9fnS3K/GiCKidcNpvNERGLx0T
aguuigBtUmojDJBReYtV6lC5CFAWBRYp9pJRXNz8YdUFEdDefXsl+hUZKTMI
P9wWKgpaV5inLtTj+bZYt3ddFYW4oHPdI3Vk5PAr9lNarii0P1Ua064lo0vd
3/YKPReF+9FxrKKPcT6xMEyfSgwuLjNEqZXj/MWhTBYWMXBxZ1d7+5CMfnvu
qBrjF4NV21fn3ErJaK++27ezOmLAY2PJWPQA52mFTNLixeBTef5nt3s4v2zp
YZ8lBq/EXPz47+L1pi5HC5aIgYaB2uSXO2RU2P61tva1GIh5neMJyMP5mPu8
Y/+JA6rZxtubhfPbBP8IpIsD/zM1E4tUMmKZt9j96744lPkFCVinkNH9TzFC
tTXiIN8dM+SQTEZdz7/YHR0Rh1aZ99cDruF8eEGLN5cEPIy3XepPwHnvgQ+K
EhKwtYVZdDEe98uB5h8lSABp22L3PmwH5CJx/YQEBJ/vVfKIxftb5U+vyZeA
JzdPCMhFk5HKd/OKiCoJKLFrC/aOwv16F92p1yIBekuZ70ou4f3XfaZ4/0UC
Um/IJkhG4udBtVcmnJkEj6IqYmzCyMjlX3L2XUsSVPw3NkYKIqNUg5kXAQ4k
iKfVEcwLJKNnedpT+q4k2H2j6RIjNqvOktzCBRKcbe+yW/Mno7ZUu+5DN0gw
0OTTO32ejITEBbd+JZOA7XfU5H5fMjIPDxd6OkqCb1aDqNSHjCL6hg2vTZJA
6c5PdTXs4cArWQp/SBAVTMN/6ix+flp/y8YySUKz+4P+Ri8ymnaodxU2lYTr
VBXczzzw+pUsV9esJcGTKtLZGVuLxruq56QklFZyr9JjZ5XwUAb5SALTdbUd
J06T0dHlmJuvkiRhJFCAj8WdjPz1PzbdypCEuQZznxY3MsrPVfrqmycJl+rY
flzAXjn0XYajXBImivns3ruSUUmKyWuPbkmwYu3NfeKC9/v5wTwMSsLfVr5P
Z7GplajYmT9IwpOubJIo9vEPj13qZyVhENJH7ziT0S4xzi27dkvBReN1rltO
ZOTV8kX6ob4USGdnCz0/hfsLxadFzaWgy1X9VRT2njrvO4XHpUDCj9JZF7vs
4V+GfC8p4MhJv9B/Et/PdNrf6UlSgGKVc/+eICMNxm4hlkwpEK+dvfUSO+VK
6omU21Jgeds18Bq2TATn2yuPpMCvPr9CGPv8aYmyCLIUGN0dI7s6kFHL5NyX
9VEpWJliMVbC3uvwZH/IZykoFJW7Qof9xEz96oVFKWhj01J+ZE9Gf1VNz3iw
ScMhqlvsO7CD91wQNbeThq7vbpf77MioM07ZsddJGv5d/FZThs1JRZFldEYa
GK9eCbuC3fD3Mq1eqDQ86KZ/qYNN8SlzCuVJA7N1wKdmWzIysrPnqS+UBqlT
BSH3sPMGeK2VKqTB42t6Zgy2Rmdxu8wLaeARazPTw46sargvNCkNs7JUqYM2
ZNQnEfnh3ndpOLDmTV+PzVd0mJVvAdfnUy/nYb/M6Y7hopGBqXMzfJ7Y1JfH
nRmFZKDPmCFxO3acNfXBVQ8ZaN1rqGFiTUZqJLqFb34yQKopiVTD/kXF0Nof
LAMuESoMItiW5ZxuZQky8FT9AAMV9sHtsiWnimUg3PhH6FMr/D4dVbpoVInr
XdToHmAnPAJD1acy4BGqOJqB/fv40V8snTJAp7PjiD/2s6pTsh3TMnBR7J+w
ArZfvBv14zkZ4NG72iiILXDCa+DOPxkI6Yy7xoadSBcUEEIrC+4VjhP/LMnI
5lRyPUlEFuqpvFReYC/sadK+4Y7H97DP22AXfW5hueQjC7z38qcNse2edn7x
DpSFSOYoBi3sly6DsbpxsnBz171pUeykhtmu1UJZ6OP99IQCWyv1T85UuSx4
Hc1lXbAgoyW3f14DNbIgPOd2exr7ODMNQ3m7LHS6hEgOYIt6cJk7fpMFqd8C
ImXYH9T5BIx/yYKy7GLbPeyUvcJLqn9loZW9Pz4be/m5bObeHXJQY1BwMR67
jU3/fYegHKAH/TvcsE+1BjlLusrBJ9PrIIztqMJvsOAlB2oLbMy82M7l3bJ1
F+TA3D2IigPb9eZBKu0YOYhXBYVd2Ge83tyxvCcH19qahufMych7IiCes1QO
HCU5I79jn7Xi8x2vwnkLUa0v2H6aARoezXJwy/jtrhHswL28H0Mn5CDa0KDu
BXZwQleb1gwep0/iasAO2eJftmNeDqaKi288wQ6b7gxN2SoPdQLKHSXY0Y3n
uQp45KFYSV8wAzvZpcPmtYM8UCvSRPlip77z00xxlQfx728PeGFfN94vYukt
D/STBW/csdOV/ZY/hspDsoKG3UnsnN1cGX9y5EHW/JSiCXbupbaw2nvycPi2
p4UBdt5fH9fQUnkYqbp7SRc7/1Or/I4GeUCNzbSa2EWPz/ZzjMrDnGhviwx2
sShHw8cJedgdY2UpiV2S13L33ow87HtmvSiGXRbPfo60Ig+l1vO2AtjV9s2M
WuwK8HZr8rN92E00bManrRRgOmT/063Yn++I6w6dUIAlPoNeCmw60NI87K4A
hjljC6vH8Pnx95LlDVIAjUrnk0vYs1+b2UayFGCNt6D5OzZT1AjDkbsKwMuU
qDSNrXTgF+3jEgWwlTCs/YodbcWxltygAGdTbg59wubs8BnX/YDXb1tLGsbW
cL488uSrAnSXWFsOYrtS5vTx/1IApM0l2I9dqdTeQkmpCFL7rT69xdZ7sP9B
La8iCCe9ftmOHZDQ6Svsoghm/4C5DjtHcNwj3UsRlrZ9P1GD/fLlohO1vyLU
a/VXPcbes8pjOX5ZEXZzk30qsQs8A1QyixTBxWdOtRS7c8dV2e2PFAHC6ZuK
sX/fzRc/X6cIDvyhug+w1d6/4TbpVAT5ozTe97HJBvxUO38oQuqjVco72MtT
ymsXFhRh8YBAdR42d4zx4uSaIghYTpzJxfZoDP7WtFsJymSe/MzG3krq7QqQ
VIIGG1bpDGzJ/8LSvvkpQfirqJxr2LXbBwRbg5XA4SNV+VWiXxTidfmXlGC+
VaU1EdtsdmTMPlUJOibT1hKwz3fJC/U/UgKmQN8bsdjrLxPrHtUpQaTIgZbL
2JefTuonvVDC/9/MSzHYGQ9SfI72KoHR2QynaOynsbN1z38rgWdltFMktnb4
IYPcZSUY/jlWHIH92j/7QwilMnh9ZVwMxx5z0aNSZFCG47FTKWHYlIcKDB5K
KgPptdqPEGwdSvuPN72VYVhjkiMA++3fKt8Af2Uw7XG74o9t/YuO2iJMGQJD
xSgIn/5QK8xwTRnud+nOnMdObGDxu/xQGTzOtY/6Ye+t9qR2fqwM22Nk7Ann
lrxM12xUhhedaeO+2OVZPvVrr3G9O/+sD3Zf4Gvqcz+UYcngEddZbDufgxkm
C8rwZW3fQ2/sz27BIqQ1Zfh3T1Od8KKlsNE0vQrM33nq7oW9Tz4644SYCvx7
mPjWE9thTlXUwEMFTIUbvrpj0zNQdPf5qcDJnDdxhGtJz31tQlSgg++COGGm
M4fqXBNV4LWSd6AbdttXA93IMhV4pXuCzxX7HM1/P3bUqEDznsAeF2we/t6k
a00q4HFlKZxw8CmLoeweFZgK3jXpjE16b+/6ZF4Fuubma52wR1cO0KFVvB/x
ZF/CcewTD5upVGHohaMY4QlL18UeFlVg7EnKd8RO7/WO/q6gCtRpPrmnsCna
w/N5QlRBlqay4wR2yRdNncIoVdCXd0klbE1NPSORqApb+mnsCVdqxkmr3lIF
5TKKRQfivDYkP7doUoXtu20lCTOPmjm/b1cFqmkqSsLP/7HsdOpRhbyBoF57
bA7Fm8Y+n1TBMPWpP+HuR3c+JFCpAVfL4c7j2CE9TpcYd6mBPMXKbcLCvwQE
M1nUoD7bMZDwJfFirwIBNRDzOSxCWKGwcq3piBokxlFet8POy2nmWLyC3dYS
ZYudZSs6cCxNDe4yLTkTTt+XklSZowbCasU6hBPTHKh9HqqBGlUaPeHAxH+z
M91q+PtVKduGuD9HTxbpDanB/Jp+BGHvne2ORR/V4GYj2YWwc3TakMtvNbi2
oCBD2OSi5ItxRgRz71h7rLH1VdJD1DkQ2JdfryWss7wmn8uH4Bz9hTuE1c53
FtvJIvj01P48YZEzLmmD5ggEqK5zE952PNvtdQYCc8/jUVbEeWbfxid2GwHl
fRdfwstD7u/jixB0nGg4QfjnMQXTI3UIhkUMEeF3+r0qL98h4Nw5vGqJPUCr
tMgziaBHTOQH4Z723PLw7wgWIhrfE27TPsOP1hA8ySx+Rng4Z9v20d0Amt5+
MYQHV+Wd6JgAlDnrAgiTbU8/V2YFMBBT9iDcva8nOJMbQCRmwphwS9qtXxaS
AHFerfsJP0pUGukxARANF2y2wD55cxdVrTnAbmmHOsIM98fF86wB6JMbywl7
N8VFeJ0EcPv1O4ew6PywEJ0PwBYP9iDCIxQPTefOAXDXh/oQjqOPDBkOADg/
S+1O+Cu/yNv74QBKu4OsCOdbBflrJwHc3D6hSNjU2fC26HWAwi96UoQpfXk7
GTMAVHb2CBN2SHi1fzwXoC9anoMwRyN768UygD8WthSEU/meMj95AyAmUtVl
jq0peQ3d6gWY39bTSvi3qqNb9ABAM5n6OWEjC7p6szEAp/bqasJ0cbaOv34A
NHnw5RGuSyMlDv4GiJ+fv0nY/c62J40LeL/fhtIItz0tpk1cAyDt+ZBA+NLs
SoXwLnVIXycHEJZe6X73H4M6rOdpnCM8vv0u9V9mdZjNbPImDDz61q2c6kAX
9ceF8IpZ9hZHMXXInRKzIOxXq2qUfVQd/C7eUyBcZd1KOWSkDp7fO2UILywb
VTEdUwe+ta2ShAOUHfcl2KmDrfBtIcIXn8ZNBJ5Rh4N6aeyEG22ZblT7qIO+
jwIrYYrV7CO/z6tDDd03JsIRquWlbqHqcPmN3y7CMQ0D/pbX1IF/mUS5cb3H
T4ikpqpDmqD6+jHsnetTo2/S1SFH6vgK4QS0pnE4Tx1u0zcsEL72jI9ergKP
H909Qzjz+dk8xj51MPbuGCTMsTWKOv6dOoRX2fcRztFMP005qQ7mbuzdhO+8
bJD99Ucd6o5taSPMT9WT6bqmDhXCQi8J39eeXB+j1gD2Ap9nhItbaDte79UA
xjdONYTFafZLHOLWgO176asJlx+WSq0X1AA19LaCcHWb5fFiRQ2Qc3tQTLix
4+7vWBsN4NxyJY9wHKXhrMVpDUg5P5ZF2ExpafpgkAa49IWkE54q1J1sytSA
pOroa4QrP859vFqkAVlnJxMIh7Jlv7er1QDPCP9YwkyxswN/hzSg+7hQJOH3
z9L7Wr9pwPzykTDChUvqb6//1QD5j+khhP1I012ndmiCBR1jEGE119QOSTZN
YLxQ5U+4b+Dziy4FTbBccPYj7HZYsd7NUhMefL7uvdF/U4WVwkBNaEhc8ti4
Xnt55aksTRAOHnIj/O60XKBwoyYYy/C7EKb0l61x/6gJRqWvHAkbXpOWnz6o
BXddJh0IZ92XrDrtrgV6dTuOE2Z5fYH9x08taBdwtyacNFcf7n1BGy5E21kS
VnnDFjwzrw3Pg6UtCH8uOnfe1ecQSHXj40G8r5YiY84tH4JTERQbfnkoOT0i
4jBoc5YdIzyuW60au0UHTCadNrzFcHj8apgO1F7h3TCFjs7vvas6oK84Z7Zh
9eotuQFH4Ij1uw1rFfcL1FDoAmve1IYv713U74nRhRt5DBv1Kwpi2yep9KCx
l2vD3tanni9G6sGXW/s2LPhDL+Um3VGIbNi94Y/hMo7o+lG4bEi74cCdLrcc
2fUhSHAzz5SSMRybpw/GcVIbHn37sfA+lwG8plbb8L09wgGtNw1gRlBjw5VN
fPYXeA2hz3fTTT77tQUeGIJ/x6bXZ27Yf2Uygh88hzecw53LoWpmBMoG+hsu
NehKNEk2AsZjxhuuD16mcO02AoZK0w3Pfgpba2Y0Bpsusw0f0KNZ4bUwBtZX
m3a/kv5i7boxCItuuvKNUPxQnzFwmW7Wc+sxvV9hNYE/V002nNCyRuK2M4Eb
Lpvewzmv/yzLBFIkNvMpvt/cHd6ZwDzv5nyXX25VbdpnCjxNmw5m5trNY2UK
JPZjG06+leTxKssUytU3XShE1eH3wRT8VTY9mBj5K3O/GZhxb5p6fgtb03Ez
WFnZnM88eeiVxB0zGB3bdAGp/GLOFzNofr9p1/aSz13Cx+Ae9Wa90Mkig1XP
Y9AuumnK/vKwwuJjIK616ZEjNRXHpo/BhMmm+xfYvHUlzCHCdtM9dwLFkK85
aJza9KTI58qyCnOwdN/00iNjFZ7f5mB/btPBcuP+ZiQLGIzc9PoTn6roMxYg
mrDpu362IVsqLKAxcdN6pEPawX8sIPT/4ztalQZ8ZSyhOWbTrXYSbqd9LYEn
YtNKNEZlVTWWUB286dIy78X1dUuwDNz0/wBJeR0j
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwt13c8V98fB3BkJERmZlb23uvjvM0km8xEGihFSCqKaMlXQoWQUqEUlWSL
RGQnsj8fEUlZoWT8zuX31308H+d1z33f9znn8bhXxMvf7jANFRXVB2oqKuIq
emMlK0OoWr/HNuNdakoJerNZesdxn3sowb8iTHWwBFWHPn8o5ZOPhmysc6zF
SlGd0klvep8q9DZzETjzS9GH2A6zee9W9EzV9mlXUxlq0IkqmfQeQv+65mIC
RSpR482+k+PeU4j813Gu+k41upp8uyFReRo9VBQuOlpTjeR8kKtq/jSyl5mI
3/uzGgUy3DwX+GQGfb9xonbaqAatmqhVTmfOoZLiZ7aav2vQ9ndnjX7+t4iM
25ubPnjWIvMKBqtv3muIdnLbfQ/veqS85jXPPb2GPPuU34yl16NYYY8WMT0q
OGs1q/m8sx4Fe5Wecqilgr2WdKxzhh+Q8beA2ted1EDaWiNpLNqAhn8OHAid
3wTjPu5XVX80IuGVN2krGpvhZdGD8ZqMFtTMosFI684Gy7FCeq6in1DHHvbk
ljA2UPAIeNyr/wl9ufZLIiWNDeBl85yd2yc0QpdtrNDPBvZtht+kkj6h5RWe
CGe3bbC1fNeSC10nkvn1dyHPhR0edWXl2Yx2oqstFSN7HTmhuFsip/5OF4pj
Tg0SDuGEF1YeH1VedqEk8xCaH7c4YST783J0Uxe6V6cgHPGZE8CptKKfqhsV
Vd5ze+LABc3VmzotfbrR6PPIjlU7bphq22s+pPwFGd4weZttvR12WYQ4HnrW
gyLMC3M7TmyHiCtOfLHvelAlnVjiyn/b4abNeaqEnh6kE0Z1xL5pO3C3aGdo
0vUiVd8ypjUzXigzseH/5tqLxI2UnRwN+SCQw7unYK0Xea3eg8gDfIDEWqyf
cPShzJKtMnkRfNB1opw6QrIPCShNLlNX8cGoY8vnKqs+xCWY/eCZLj+kuon5
37jbh+gXBX7RqgvAq54dD7wV+pHxy+vdig4CcJfrKaMw9KOLx5feugYJwDXW
MbtC2360+rU7seCFAIz8+Hw7ILgfLbYlaO9TEIQbRwRPahf3o/Enmy+9khSC
inInV37tAXRYcYlFmUUYNj9oO/9BeBBZ9F15tF1IGO70d7QZKw4itStcJCpF
YSjsajybShpEtENKfq02wpBRyXyvw2UQPYjzbjyeJAyrVSmz5+IH0dDPzstP
+EXAIIC5ZHRhENWleAklyInAyw+TWds2DaHnJtOvz5BEwK7B9zIf6xA6n840
auYhAkUSciq1EkNIwNLQaOyBCLgwBYmfdxhCLnn5a2IyopDN7nr9fe4QAmfS
HSZdUci4GOk59GoISdF+VJjbIwqXhWTMeiuG0B+3b+41x0Vh/6nd+4Pbh9Bt
JsFyzxeiIFm4lc1gcQh9OhoTmq4lBnxeYwNlQmRUyr2d7dJuMbgzdUCbIkpG
D2oeZfu5isGu7xTtvxJkFMhX3aUbJgb8bVfyqRXJiK1xUa23SgyyzMfYQ/XJ
yFL68Az3LnHotTtsxONGRkvXT5UNOIrDceZjfKT9ZJTz69Klh0fEIcH2KbvL
ATKiLXzMq3JZHOrZhhuDvPHz9ccNLN+Lg52XI7dmEBlJOBxLiDLaCU1q2m+3
XCOjzqJz+8ztd8J9Ni7DjOtkFMkbK7Ht4E5YTjl8VDqOjPoH80ozLu4E9NqW
WTKRjBJ9fw2XVO+EibaP22vSyIjqwknVaSQBmbVVkTHPyeg5JXKlyFoCbn/u
mHxQQEZuxgn14R4ScCL/3b7Cl2RUxPjKjemCBPwrdb9bU0RGfkm/oyQqJYBH
yKI2rpKMenJPd+7TkwTv+Xf/FprI6DLz1QwxC0nwbHSbyGkhIzX/ZJ8JN0k4
7RfNureNjOLVSpZPn5ME+bpAk7RPZGRatSSeWCoJ9wU7Hcd7yOhlZ/ipBi0p
OCj3pvTSKO7XpUNew7ulQENeRJRqjIwyNPZY/3OVAk8W34XgcTKKSd4uLR8u
Bfvcr6lb/SCjg/te9cdXS8GOK+nS1dNk5MqS2pDbIQWJtR7bts2SkU1lRFHN
Vyn45Z/8122OjPSEreJ/00nDkaL/2L7OkxHnyLiRs7k0fIz10yteIqMtt1qV
TrpJw+C7Oqbhf7h/pkWCMX7S0Ex6eJhhhYwms6MWy+Kk4YO77ILxGhm9Pyb0
dMcnaQChWan/NlFQyJw9+5ibDHxgTKrbz0RBfg911tb8ZODOrVRlM2YK8tor
Mrn9vAxwB/9gUWChIKs3v96bZ8qAVft7i6mtFCR57tqZ5yMy0PqozWg3OwUJ
yQUcqZ+XAVPP9BQeDgriHHC0J9PLQnWF9/thbCokLs8uLQvNkqlt/lwU9IWm
inzquCwc99aeOLydglpePWqOOy8LRjLuigK8FFR7KLY0+wYeL+l/0Ir9os4l
qeeFLHwZCkEK/BQUE/N7F2lBFoR9akI/ClKQLrtMPu0FOTAcJF2NE8XzUbs2
NN+QA/e34928YhTkOXPt6+1MOegUlKLNwo5u+84jXSMHcw3KnPniOB+XG2FJ
Jw8u3lHzzyVw/nxPKje3PDCUSDDJSFLQ7HHG10MS8lBV7K+Thc1j6fv9pJk8
NJ5voI6Xwnkmabvb1+XhncW5BXsZnF9y9vNIkwc1Ddm0t9jRE1cvSz2Thyem
ComyshSU2zBeWtoiDw4Vy/HL2LNXcsSGtilAgJ3lmevyOE8rNS+ZrABGDxa+
H1CiIO7fTqwzOQrQrnIiuAg75+sV6dISBZgJ1nvGqExBzTVj7hZ9CsC92ovy
sLkjs+sChBRh+4MWv2EVnA/oJmsrKuLnT8zJqeJ+eTL8owFFoF6UtQ7B9kTe
ircOKIJNg0gSnRqub0UiueShIoQ793zmVqcgvZ+OLy++VoS9FyTDnLFb+i83
7alThBirNL4U7Nmyb1SDY4rgbB5uw6OB9wPpk1oklxLk2jvRbdakIO9/CemP
nJWAenaguEKLgpKsJt+d8VSChZ/Gmj+x3943mbD0UYKnRddpBLQpaLvZH42F
00rQet372mnsD0nubaZ3lCA4zyVFQoeCfo8VLfDdUwKttedvbbCFddkEpx4r
ASM5ZddZ7FBKje+dIiXofn82/CO2tILUpvHPSmAaGth4RJeCHCMjpcsHlCDp
ZrhiLPbFzl7r+FElmEkuoH+B3Xv2vzSteSXI8E/k+IsdUz+rfo1TGVa5J3ov
6lHQD88KHxl7Zcj/0lZ+noTrLeS+seqqDOkyLeJp2MYMAa87vJSB6X6uQAl2
2jNRmnOByvDt+b2aGWyLpSt3P95UhufHotn26+N6LSnV91KUQW9CXzQU+2Gm
znjQfWUoc//YehN72fSnmsALZbBUU6KtxX6WaNfi16YMRly0/8QQrvfb09/w
RRnqCqQ4dbHpdej4ucjKUO/1sdMWez/5jXfFlDJs4aixPY+9VV6QeiurCmjQ
bcZfOxTkXzemmm+pAiuWe1+fALwekHdMzlEFqiR1XC9is5UFZOXuV4FbjPN5
t7AL8v+yP/RXAYkQ5gNl2LPJTLPJN1XAbyxDcpMBBRlytElzp6qA1ySbByd2
4n9JBxIfqMD+kStWO7HVLgq2//dKBTzOD7qYYoccUyy4+FkF3uR6wyXsutG5
sbUBFYCDVo5J2DyexTvCv6nASOyQXBZ2sYPBjdOLKqDw11b4LfZfkv0JP15V
sK0X01vEDmM7Leforgp6pfEcboYU1BSje+jTYVWoTe97fARbkI4qzeaEKohE
HGQMxK78e5VpzwVV2GSuha5iU31NnUD3VWG7onPUS2wbdw/RilxVmDX5+agc
+363mKvOS1WYY/+SXodt2JTXoPZOFUbY7dl6saNeV+ZIj6rCx82d29awOxWj
yI9/qoLgpPYMgxEFiT/ZtV18QRVKygWfsmHXZrRdEWJQA3Ou6QIRbPqrw0c4
pNXg0cg7LkPsGFf6nSt+asAj8q0sDFtfiXnhe7AaGBePckZhz9Cx13eFqUHA
2heHa9jOLwR9C2LV4Nq03PVb2Ds3qz87mKcGB+9w9OVhfxnQOW9TqAbfWd6c
eokd+wqsSeVqsKWAd+kN9ux+ixnuJjXIdz9TXYP99vVB9cYfahCeJ+fQjR18
3Zf+zZwafG62N+3Hljzg3531Tw2qWKfFKdhxzOfOhDOpQ2hKes4EttvBhAol
WXV43OzVvoy9wFZtcueoOrDZWI8KGlPQk2913NGB6rCT06JKBNu9vGks4Kw6
7EulidmJXev95Zp5jDrEW5+ZlcO+WTnVvJKrDtpKt7l0sY2T5jMmXqiDi6jv
OX3sP77//LtL1CFMMP+TAfZ+Lgb2Fw3qQBoK2GeGLecn5Hjouzr032rvdMAm
G4hL2s6ow6Yjap1O2Ik8Mn9If9Xh79vcelfspRr1VB5GDdhkfe66J/YHXsvB
RikNOGsbff0Y9sH6c0eUfTRAoP5k4gXsQ3oSVgv+GuBOLuuPxD7yok297LQG
zL3jEIzG9rm7k87kigY8+uEfdRX7hH9rlvNjDeiqPzERjx0wcua64HMNCNIv
n0rAPukiHjT8WgOCLwr+TMIONjpj6PdeA2SDM9qSsc/yiFEujOD5WEX0M7HD
Yps/GE9qgMvWaIYH2OHUoQWMvzUga9tYQxZ2xI+mC4mbNGH4JJtONvblqhCh
bFFN8MnLbnyGneDd6NbiqQkhDzNrSrCT+oONEn00obn9sWQZ9i3bHbLOAZqw
X1XnSjl2sm7wEuWCJmwbOqZRhZ3BKpQyn6EJ/yKlnWqxM6M/RJQ+1gRG1eGE
99j3/wb6XHiuCeb/VTfUYT/8Wq/JWKkJI6o60g3EfnhzsktgQBN4GVYKmrHz
5AQqKSOaYFvVWd+C/ex+3aPHk5pQzeLR24pdcJ3/lNKyJrQdbJ9txy7yeM9h
zK+F/+e45z5jVzPw2h5z0YI3IUVoAPtbloJ5zwEtkPrWITuIzQzGRruOasGX
v8scQ9jOof7qYue0gLRW/IWMPTX+nrcvTQv4+a+pj2BzXupj3/1ICy6afNw0
iq0jMsP05pkWlC4ktxC+7CKwmlCpBd8HuVzHsAUbA4fNybgeDyvzCWzDI1f7
ise1QL7k4SphH5qMTokZLahTX8n/gV2o01BHQ6MNZ28MMv7E3vN0x9NSMW1I
b0u9O4V9JrYpSMZbGw6PlcBvot9Sw37J/tpwqmR/I+Ha2sXD9KHacHXHG9t5
bLYVUefhq9qQp5vvsoCdffyMXuoTbUBWZOs/2E2MN9Q3v9KG+Cj9D4RnHz1U
CCnThh/RKfp/sfUHW4XtmrTBTvzwziXsz1YSdFt+aQP5gHz/P+J8TOiunl7Q
hogoC5NlbOErtoujq9pgOfw4j7BfVdj3alYdoIqXC1nB3qT0qfmMsg7UazrO
r2Irb4u4/T1YB9Y2JT6hNqGg0s3dUvVhOqD/NXKesCGVQtnDaB2YfGCEaLAd
pvqGPJJ0ICTdtpVwSLOmdNcrHXAN5hzehL1WG1f2qkwHlCx4xGmxr5aPWt58
pwOqxWyHCac8TQy0+KQDWRJ/vxIuvzZVVjOrA2Z2gl102CaRplaZSzoQX2nL
Ro/dEppODqfRBQ7ae7sJD3nvodNm1wWJorgSwjSm2Vb5yrpgd4jvBgO2GY0H
5W6ALvg4ZXIwYrf/fR10JlQXuqLagLDrDDO9U4QuzK+ZHyd8jFwqwx6vC63H
ZWsJx1VyB1/N14WG5hnfLdg8Rcfpj7zRhWOFH28SznxWm2xUpQvDxfQlhF+k
BVastuhCW0QOHRN259kW+lO/dGHf8e47hN0Dd6bYLehCGt9CKeFvvmGySqu6
4Mp+ZYDworOMzQ8WPTgWuVmEGZtP83LKAXk9iKp8f5+w5xxJzspPDyKeM8ey
YLOwU7V1BuvBlpHbuYRLlWqC3MLx/cz36whznjAt84nTA9tevTXCH8atzKMK
9ID1R/3RrdinGLb9YizRgwLNK9GERSU+3Yyv1gPvt5/TCYcddOpJ79CDChmp
VsJKgx4+xb/1wP1rtxwr9sCyCDNa0QOem6ZGhGP4R/Lf05FAutbehfCIs89i
BzcJ5vbbRhNO/hRw+acWCWQKGbsIUzVEPhQNJ8Gl6wm+bNjPxozMci+RoCb2
3lnCrvT0k4pxJDjdceA64UKjGFXSPRIYBDHlEfapTKhxqibBDPX2CcJcAw5H
BhtIcFfo9x/CNf+4txzuIMFD1niGbdgC2ndtA7+SwMaIWZxw26ssciydPryj
lnclHN5xOJpjqz6stIt6E5aZkZRK5daHP2NDQYSjFfL8syX1ofnaq1jCWrmF
q9W79cF0Z28Z4fsZ7wUW/9OH7xXTbOzYafvkuvfe1odNp1P5CCfzJd4szMBm
5RcnHHfbkz4wXx/c+bM0CJ+N+zc12aYPrQFDLoRPWXg92dOjD9EJNl6EA7Y0
HHpC0Ydsu/SjhI9cvt3jPasPRzmbzhK2O6/8bpgDgbLvjRTClnrJ4QYCCPJ2
/8okbLa0qpkpjmAxST6HsH5IU567OgLpDusiwrInvG9/cUQQAarthGn3p/u2
pCCI/feZmoM4z/y04vIPECi8D2EgvNRzdPD6EwSvddeYCU/v1bLfXYbAp/UD
D+F+y096tf0IFqZ3yxHuZtJZFB1FcDBSVZlwR0Pmi8ifCFJWGTQIfzA5IYFW
Edh7BCHCvRm0mwdYAVJ5PWwJf1nRPMzMCcB67Olewp/3HavR3Q4gWDnqQriN
ryMsVRhA3WGnF+G62/dmnJQBYiq7ThJ+FafT12EHkBGuEUfY6+5WulJHgEOX
TG8SZs8ZVrjvClAoYJ5EOKA65qK/F0BcqVwqYbnfvdLMgQBhi4ceEe6jyref
OwUwVMWdQziGJSq89wwAfUrFE8LjErLtOZEA2d4/8gk/dDkXanITgCuopYSw
/RHrB3K3AFYoCuWEaYLEmjhSAJo7L1US9oz9uGM4E8C5lucdYYEq/vrzBQBu
+q0fCSeJl3MVtwI4auX0ETZSjkf3PgGY5V8YIDxLOuR7uRvX98B6iLCNE3OF
wxCA5PmeYcLMMfsOzfzC/clK/k647LZS3JdZAJZ6zR+Ej2bRFlctALhGt02u
r095HlPcKkCw8NQU4eip5ZcyWw3gkezXecLDmx/R/+UyAPMfJX8Ig6ila72g
ATgynP1HeNkhnfqQvAHUzhdTcWIHl5Js0i0MoILDeAvhhSWb15x7DcBnczYz
4TO6h/hi3Q3AoHZ+K+Hz5TEjZ08YwMFqFw7CVCvpu2dDDGCMJoCL8EXSi+e+
FwwgOCCYh/CVyu5Q53gDGGnezU94y9rEQGuyAXwt5xckHItWDXfdNwCxrgEh
wvFvxVk0XhpA5iU1UcKpNSfvc3QaQDOnjhThDKPkYzSjBkCpmpYhnFVbqT4z
bwCvPofKE84xGV0bojeEYtvPioTz6pgaW3gMwVuRUYXwi10qSRVShqB5lEeN
cNEH5/152oaQsUKjQbiq8dHsNTdD4Oo7p03YQefPj53nDOH9jLUe4Ylc89Hq
VENYimzSJ3yBN33QvdQQVGypDAhzXpvq/ttjCNnn/hgS1vdJalTmNYLxUl1T
wr67tCt8nY1gfqTWjDBNqHrJUYoRmNEEWRBOy1F+feyoMSj/F2dFmLvlNP+v
aWMgp+dbE745VxEZcNoEnw97G8J6rbxhk79N4Aljwbq/PTkV4hNoChrT39f9
+U/UlVNLpsD6ltWWcK1pQvLFi7uApVlq3cPmRaRr1GZwfgqtm9q6d/hGhBnk
ZDism8rMbJZnxQziCg5u2KCIOvPMbphuP7pu47wuyRIqcyjcd2TdV3kWLTuu
mEMH2WXdy1rym0fp9gBlm+O6A1wP1ixG7YEuT6d1S/3ak3iX2QIC3ruumxKp
dgjdsoDHkvvWfXaL971D/JZw8/JGnjMxpffafUsQmbRe90A7JTdHyApknCzW
/ZhN5kz9XSvQZtmz7sJqcY/TYtYwP2++7urAHSaST61Bom/Da5N3PMY5beB2
xO51ZwhnCpAcbCA4ade6n1s1x9kl2ADJ3nTdFWFLVD5tNsB/22TdU18jVt9z
2MIZ/Q2L7GFYFnOyBVW04aP/Jb9bvWULbwM2XNgqfb2n0xZ8CzcsvIdzcHm7
HRjMbDi2blVJ2N0O+lY2zCb42/Jtmh3cqNpwYtD3o579duAXtOGrtZtI1Xz2
EGy44TAuIVZRF3s4IrHhhHs3/T6m2YM334Zzpekag8n2wCiw4S9xUTOpOxyg
RXzD9L+peav3O0C74oYdE3o+KmY5wKjWhrOVXpzPGHMAkvaGfRqefWuW2Qvt
chuW9npitXJ8L0wLb5im60VEbt5eeMy74b7dJS/3/tgL27g23LXAG2Cu6Ajs
7BvuyDorj4Ic4Q/rhkdlvxUWvHSEdywb/vPKVk901hEctvz/fTWGQx2UnKCD
bsNrxYGvL59wAp1NG34UvC+c+qUTHKfZ8B4lU5OweScQ/v84Y71Od5CaM6TQ
brjeXdH3WJAzuNFvWIfBpuB1iTMwbd7w84KAxbU1Z/jwf/8P94vpuA==
        "]]}, 
      {RGBColor[0, 1, 0], Thickness[Large], LineBox[CompressedData["
1:eJwt13c8V98fB3DJqGgpUkb2zp4f47ytiIysZMRXMkIkkURWspJVSUJFRigj
Mj8fMiJJqCjJClGhlOzfufz+uo/n477OOe977jn3cS63g6fJaWoqKqryTVRU
xJXnxsrDdM56NaoZqfe1306rVWwRPujhkoFid4foTs5qovqLRVlCLk/QqOQa
d3ubKWqWPOdM50JGCcu2LziunEIvY7t0/zi/QQbhJVlLM96olRRW+d35C2q4
f0BF828IeqyyJ0juySDyTV2y9JgPRbOfHDN88ofQWSlLuoo/YSjowJbhX5kj
iHmxjXP75FV0+7ah8/T1cUSzSZLHpSwKtSV8OjfhPI1ShJweeJ+LR5Ept1qT
pGYQp5ffwWOD8UjMBVnJPJlBt93/NDkbJiBv+oQA7/xZFKAVK31SKBGtasvW
zWT+RnIqqsuGPUmI9cUlzR/X55HRq/4gD6bbSK+W3nDMeQ29tqkY7ze6h15v
l99KY7sLfsyWnq5UK0Bd+kwpHZd3wZT2sQW18wWoN+qnwJ20XTBTde7nq5wC
NEqboyXevwuMnp1wXdhViJZX9gVbWu+Gf5LhyfEjhUjk58LfghNM4B40WnIg
6gmK7KgdNbfYCxrVT+JILsUojjH1PJfvXgj7VJirFVqMkvV8qadu7gWRn0Hp
h9OKUUazOFfwu72g0tZxRbKzGJXXZVjnmzGDZ0BubbxCCfpaFNK1asIC/SnD
24RpSpHGDW1KjhErBPRsp11JKEPBemV5XWdZIXhlp39TXhmqo+VNWrnOCkvB
gSaX6ssQ6TKVk2k7K7yRRjS5M2VIxrWaYU13P/i95OdkMHyG+DSljltoHIAq
ztigIppyRDfP/pNGjh1qC/1j79lVIK2SmA8SZuxAc81xwt2nAoV6LFKszrOD
dcrj11xRFWh15EPS02J2cCu+7SdXUoHmOxOVbMQ5QMD9lOqOzc/RRP6Wq6WC
nJBzp1/aPuM5Oi2xuF1qOxdUjlvWv62vREc/Xctm5eSCnprMBLeeSiR7jVmV
SoILXAuXS4fGKhHNF0n3N8Zc0J1s2enAUIUexDm3eSRzQUG575bnJlXoy4+e
iHw2bgjLT6gs/ViFmu84cCaKccNxhXGfPVNVqEh75pm/KjdYZW8dNVqqQkH3
GL7q2nHDhdxpETu2asRuoKE5/oAbmkb6/PpOVKMTBU/WeEV4IO3dDatjndUI
LFVvMyjzwCY/6bcRA9VIiOaV+G99HkiKiI1N/V6N/lmP2TZ48IDXqJOF7ZYa
dIuBo8a+mAcukHaYmKnVoO4z0RfvKfKC+wtrNeGsGmQgfHqWRYcPQnW8lFMt
a9FizIXqzxZ84OzwtV/BoRbl/rx6NcuJD7YJdnfXuNUimrJH+6Uj+MC1IcI5
MKgWValNqBs08cHrbuOCzw9qkYCZW2KYJj/M/HTfg8ZrUU95gI2eKT/YGmfG
nJ6uRSH7YwV2n+KHSSQyf2G+FvUPFFSlh/LDVaamY+b0dSjJ9edwZT0/5Ey6
1TAJ1CGqK+dkZpAAiAeIJxba1aGioZCVciMBkOB6L3jNqQ5ZayW2BNoJwJje
qIWBRx0q31pqzXBFAG7eHBbMvFSH3JPnwgTqBOB7jSifY3Id6svz67FREYSL
B2NaoxrrUARjZDrvUUHgvBllC211SNYzxWXSWhCOCzsdGHtTh+JlK5f9AgTh
tkZX0drHOnSYvMiXVCUIg3toH3rO1KGSnsALrYpCcJ9lMMuRlYxyrzo6DB8R
goVxylA4Bxmly+sbLVkJgT7H2KFkHjKKTmEVPhQoBBppBSXBYmR0yqa0P75e
CA6498bcQmS0d3RC01JPGB5vOSTU70BG226+kTxnLQwUhcwMamcyojpczhHt
LgyTte0zB9zI6HtO2Hx1nDDoftF8wX2ejJrcOB8f7BYGH/3UwNhQMvL9bco0
bi0C0+NFE//Sycg9i7S25i4CHX88bxo9ICMHc+7vrEEi4PLgXHRqNhkZVvxs
0ssUAXnLRx+3F5CRYECUf9GoCPBXDs16PCejXmry4AUPUTjCezRS+g0ZdZRm
v44LEoU9wiH0A2/JqNExtirnhijEz7RMXukho+LmE8l9xaJw8sRJq5w+/PzR
czqqf0WBIdRRJ3KEjJSZRJ7QXBEDmr4q5oI/uL9NVq2vb4jBvp2jq/XzZGQ/
GzVyK1MMHDl7/utcIKPwzm/7hBvE4MdNneX3KzgflxdsQHsISj3aD7ZQU5A9
g7DJrZhDoObaatm/lYJ+LVq626UdgoJX4Y+ebqOg8MnICKHCQzCi2zYRwkBB
ea0TVVUdh8BRjMePbTvOX8vl/bJbHN5q1veI7sJ5GqE/giniUP43p7SVmYJY
5o7vnM0VBw994y/nWCgod+SacFWlOAzErN7et4+CXjeM2x79JA7C6R96rFlx
PiSn2YtTAo7ZM9q8PIDzXh8GlSQk4NQJ0V5bNgpStqdfogYJyGdz4J7FtkfO
Ejf/k4DeH2+VdnPg+lYEUiqzJKDA6cMJxYMUpPLDoiT0mQQ46rxlrsXu6I9o
12+WAKN3lv2IC9dfPUY1MC4BUTkZ2YibgjhVu2VDmCWB7pHqJyFeCnJeSryX
bSkJ+XvbbHIEKCjZ8PsLf3tJ4JWy6doiSEGU+9qTBi6ScGTe4LsLNqvuP/m/
fpIwp9rMyS9EQS+TbTsP35aEpLbS39eFKUhYXGjzxDtJaCOJMPCLUZBFSIhw
zWdJmKE90eCNHdrz0Sj+qyR8Mrf5j4z98dL1NMU/khCv+/C0+SEKim75JRe1
VwriO6jGfcQpaMq+1kXEVArEEy1fhUvi8ctYbqxaSUGTXn1GA7YWvdezLgcp
iGZiTVrDTivkoQ7wlgKTAzQjvlIUdHTx2t1XCVKQY51xwVqaggqTTDrcO6XA
/NKRrlUZPP7Y4znolQKGwj3fJGQpiI5Ey8Y8KAWRfbf07bFPDlY4105LgYp0
y0od9o5DHJt27JQGdd0hcx85CvJsHpd5YiAN1dc9P1Dk8XxBgZuYhTRcuZFM
NYW9q9rrYd5JaXCYFQjeq0BBT58sMGV5SoPuVFrsaexfKQy/UhKkYdJoOzeV
IgVp7OkUZkmVBvmP/Zr82EnXk/9LeiAN08I73x7Blg3leHu9VBpKY1RkErB9
3SSehr6ThtQdD0z2K1FQ89ff42ufpYHrXgoNCXuf/fODgWPSIHOeWdoK+7mZ
+g2/eWnoGJfYcgd7QdX0rPt+GdDule7dRaKgy7v8xCxsZSBK+VvmJHZ7tLJj
92kZYIypm9msTEEctFRpxmdlwHXIoo8du24hkkH/igwUy28OMMCmGkmdRPdl
IPJGgWg+trGtHU9tngyMci+7U7Dvf+C1IpXIgNuIh+l7bI32glbZFzKgYsXL
vEmFgsKe1eUKf5WBreey402weyTCBh/9kAErU3kuJ2y+fB1Wvr8yYNoYYOeP
3ZjeeY2TXhaYyU6/0rHpIoed9gjLQk/rq9gx7GgrOv4Vd1ngP9oa46JKQWqS
jH+/+chCesH2bF/sWVqmlveXZeHKCk9kOLZlMYfr01hZ8K7a+iQDm3+LXOGp
AlkIWutJ6sbu/UwKMi6ThW2Lj3YNYseWgpFqjSzsVBew/Y796+TRWZZ2WSAt
0LvQqOH18OyUXNuULBz8bXFCGtsnxpWu4rcs+EonOqtiC/7n+eHhkizsFxLR
18WOYwzwD2SQA2s5SrIttvWpxFpJUTlYqr2lHoH9d1e99u0zcjCfHhvaiZ0/
1swS7i0HMqciRPuwbWvax70uycFtt6mSIexG594ovWg5SM7qOPkLO6Fu+vVK
nhwEzw8qMCG8f5L/pE8Wy8HLzweG9mP/c13y/FCJ/dDTnRv7JDM9U3GrHISU
qotKYou5c1o4fpMDhUZXi6PYg+p8gsdm5SBqBXGYYiftE/mnuiAHqY0FrSew
FxvkUvdtlYfrAo09Ttgv9xsMtAnJw6NT6nVXsE+1BDhJucjDO+UdUoXYjioC
hn895YE9sd+hBNupuFOu2k8ektiqgiuwXe7y02pfkweH9+SQeuyznm8eWj6S
h0Sj+swebK9R/xiOInnwfdhD6sM+d4Lv/PAzeeDVkXrxGdtH01/DvUke+GJH
MsawL+3jHboyKg8ePF/i57Evx75+qfVdHtwfv85awg7cdPHp1jl5KLDblreG
HTzVfiVpswLs+KYTRg8UFEH25czhUQDmvuZwFuxE5zbrDnsFEF0+OyWFndzv
o5nkogCXBygcctg3jx0UtfTCdmnRVMROUfZZHLqiAI+Y2t3UsNN3ct75k64A
FfpJknrYmeEvg6seKYDV9F1aA+z7C94uV4oUQMqu6I0RdtZIi8LWOgVYKY7R
NMfOrzj3nv2zAjREnS6ywy4QY68bGlWAx3MLEg7Yhfebsx99V4Ae3Y4cR+yn
MWwXJJcV4Gz120uu2OV2TXu02BTBXSKkxBu7nn7/MbcTimAtPB4Zhj32UFyv
7z9FCOBgzb+KzQhamjpnFIGx/2jDNWzLi55yvAGKkJxq2BuDPT3RtP9TmiJk
6V9PT8Lee/UT05FsRSDXlwfcxCZxzzJUFCqCW/OK8W1iPk+wrybWKUKE7bnR
VGyONu9hvUFFkJl9WXIfW8Mp8tPzCUV4Rq4we4jtQp3eIzCrCOfTO6azsMtI
rc3U1EpQF9a9Oxdb//HBx1W8SqB9d56+CNs/tv28iLMSdLrd6npOzLfQsHuK
pxIc2fWYqQq7sXH+NN1FJTj/z9egGnvXCo/lcKQSqLxNKa3FzvHwV0nNVwIY
vq3VgN2+9YbcllIlODo9afMC+1d2lrhvtRLcz7jr1YitNvCGy6RdCY6/t4lu
xn5nKEC77acSnNptFNWGvTipvOr3VwkOFl0JeoXNde3Y/NdVJYhtvuvZju1O
vvytficJHlt81u7A3izZ/dpfigQ+rr6Nb7Gldgff+uZDAsYTuay92FVbPgi1
XCaBydPvLYQ1qMSrs8JJ+Pzv59OHbTb96YtdMgnS62KaPmL7vlYQfl9KAj9S
i+5n7LXGuOrSahJoX7QfIRxZ89Ug4QUJyo4kBgxg33mc5H20mwT9oRNZX7Br
oqarG36RYKdhYP8QtnbIYcPMRRLs4VtwHMbuuHhvMJBaGQY4baYIf3HWp1Vi
UoaKvTOzI9jUh3MMn0gpg10X6/hXbF1qu6G7XspQzl7m9w377cKz8/4XlWHr
0ckhwlazjHTHg5UBNvnrTWK7DVaJMMUrQ0BhDcsUdlwdi0/kE2XYPpCd9h17
X7kHnVOFMuhzuSwSzixsTNEkK8NSaIXFD+ziNO/a1Q5luCi4m+Ends+lDroL
P5Uhr0D51DS2rTf/HZO/ytB2e/YZ4THXy6KSq/i+iw39DPa8pYjx1HYV8Clx
fET4gELEnf8OqeDz1at3s9j2v1XFDN1V4NSs8epv7O1MVJ09PirALkOrNUe8
L8mG89aBKtAafj2S8N6zh6td4lRAhFtsxx/slxOGemFPVUCxjoPxL/YF+t0/
t1aqAHntpy5hHoHuhPh6FUgYqQgnfPnU8b57XSoA1hoLhCUH7Fyez6nAQnT5
+3nsz8vcjGhFBWjs6hn+YUezjT5polWFp87jiPCopct8F4sqsAzeyiac0u0V
8UNRFUw3zzktYFO1hmTxBKpC9AuDxkXiezKuqZt3VRVOnyz9TtiKju67RJwq
CG5z3btE7EfNaBnVDFWI7er8j7BLXWLD8XpVkP44PkeY+bOZ00CrKsQ/4WVd
xm5YYtl2uksV5JhekgizK9095j2iCkJt5kGEO0sfDsbSqkGte80q4cCu0+F7
dqjBw4rLHCvYIrOCQqksalDEV6FMOFy8wDNHUA385h74ElbMK1utP6IGb80T
xwjfT29in7+uBtp+T56uYqfZiH0wv6UGhYvZLYRTDiQllKXj/nWUBwjH3bKn
836iBrsjdbatYV+KW5r+3qkG36V2nCR84ahDvn6fGjA+5/Ym7LWt1TF/SA0k
5b9cJewUcavP+ZcaqNTbFhA2CZJ6MbwH/8bfj/9D2EAlJVCdHUGSLxs9lTre
D4urCpl8CNQSrFkJq/m2F9jKIUhR3UQiLHrW+VavBYLy31suEaY5ec+14w4C
PoWpH4TX2Gj4Dj1AoHPXfInwYt+ZgZh83N4gYssm7BlzRdMj1QiKzqjxEO43
6FZp7EcwLchnSvgDA2me5yuC7vRPJwl3tWYWh/xAULxmf4bwS+2zAmgVwWGD
vmDCH9NptnzeCbCnMvUx4d4VhdOMewFM9vc/I/zOxq1BmRVgpuAXmXDnga7L
qVwA7zPvdxNuvpUxe1wKoFmAZYFwaRzpU5cJgAT9OxVqbIe7O2irLACMw/m1
CDPlDovftwJgdrXUJ+xVHx3q6QDwR9r5BGGxuY/CjN4A2/XkfAh/onpi+vsC
gHZE9iXC0dvDAj/6AyzVLAUTnhAQfZsbguvTsLlOOOtEwEXtBAAfntUswqZO
Rg/EbgLU5BbkE6Y+z9u+5w6AWYrWU8L2sa8ODmcC/BuUqibMTmZrCXoKkG+x
rZNwMl8N8/M3APov5/4Q1pSKRxndAHOKtouEf6k6ukZ8wO1flq4SNj7OWGv2
BSDFR4x+MzZjtI3j7E8A0xSzfYSrb0nG9f4CKF2UZyN85iHNc/JfAHu2bQcJ
v6wpYIhbBWi3DRMgHD69XCKyQx1IJi2yhGWWO/t3M6mDFpOcIuHhLdl0C8zq
MM9+U5kw8BhYtXCoQ0yvmAbhZbN7mxwPqUORKcWQsE+VqvG9o+rAXfbgNOG/
i8bP9pqrw55hazfC/sqOB2Jt1QGljnoRDqqJHr10Vh34Hd0DCFOt3Dvyy1cd
fn70CCYcqlpc5HpFHdgztK4Svlb34aJlvDpw9fjGEd62Nvn5TYo6yOf0JBKO
RasaOvfVQTyW8TbheArfdvkSddA03plBOLXh3P09Peog0B5aSJh981W6mH51
ODjc9ZRwumaKG/VXdXh9iK6M8MPGOrnZP+pQt7K/inCu9te1L3QaMHGmiUy4
oJmhrWOfBihn7WwiXKwjnVwrpAG5vWuthMtfWp4sUNIAToV7HYTJbdm/oqw1
4ELC3/eEo6mNpo+7aUA0zaWPhM1I/6b4AzTgYHzjZ8KTeXpf61M14F80ZYTw
lf33BmyrNMCufPs3wnujpj8s9GlAk+mrH4Tz/qm/vbmgAUuUhVnCai7JbVL7
NUFV4NEfwj0fxl68VtSEzzeH/xF21VGqdbXUhN50ytJ6vXYKypNpmqDN1UlF
Q6zni3KVZ4Y0QS01jYawUbyMwhS/Fij4x9ATTsuVeuZ2RgsemZVsJczS4cf2
c0YLphQ9GAkn/K4N8fLTBrXgf9sJq7zZf/n7nDZ0fundQXgs/4Kvi/dhIKc7
7iT87l/YtQuLh2FlkbzuxsOJKaGhOqCesLzuYb1y1ahNumDnJ7uL8Cajj8M3
gnXhm6vTuql0dX/tW9EF0VfRG1Yv35TpfwTyNqetW6vgvWAllR6s6CWsO3Lf
vEHXNT24pnR+3cuKh7Z8pdWHpV1n1u1ldaphPkwfelQ81i30Uz/pLuNRkPG4
sO6hEFlHdPMoHGu4uO5L25wzHNkMoC55I7836c7HqPsG0E2yXvfnt0N5uZyG
UHbTZN2Pdon4t9w1BBV/o3WX1fPZ+fEaQSBsuN77oLbgYyPwWjVc99r323YT
e42huUJ/3elcmeyqZsZQvFtn3UWGr+NMEo3hyxatdddeXqRy6TQGN6Sx7umR
4NWmPcfA3k193dz69Mu8x4/BsvuGz1xPebF68xg8Gt1w2RvhmL6eY8AWudGe
S3/vwDKrCexk01x3bPOqJJetCfyntOFdHHMGlDQTSH2wkU86/+2Mfb8JOE5u
9BfZuFm1/oApTJzf8GVmzp08J0xhs+SGEzMS3F+lmcIi04bzhGnbfAZNYYxl
w71xYbOpB83ggNiG6eY27a8/aQZVhzdskdj3SuKhGeTbbDhHsjgofdwMLtlu
2KW1cOy1iDm4oA0LO+QbrniYwyOeDVO/Lw7OKzAH6t0b/nSkssR8yhwmaTf8
/u9+Lz0JC8hbhXV3Pbx0CJ23gMSFDX8VHSt7WmIBpLkN/ys9psLzywK+TW34
svzwRTPJ40A1tOG1597PIs4eh+cfN5ztYxO4qeQ44MP6uvUlD2tf/nMc/P9/
f2sL6cN5WUvYOrDhFlsJV7fzlqA7vGESvfHTZ5WWcHJsw0VPvebX1ixBcGLD
/wN7wlmM
        "]]}},
     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.3}]}, 
      {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
       GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.3}], InsetBox[
          GraphicsBox[{{{InsetBox[
               GraphicsBox[
                {RGBColor[0, 1, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"R(t)\"\>", 
               NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[1, 0, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"I(t)\"\>", 
               NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[0, 0, 1], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"S(t)\"\>", 
               NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
               Automatic, {1, 0}]}}, {}},
           AspectRatio->1.5,
           FormatType->TraditionalForm,
           PlotRange->{{-0.1, 3.1}, {-0.1, 3.1}}], {0.2, 0}, {
          Left, Bottom}, {0.2, 0.3}]}]}}], {{0.3242295632708936, 
    0.18579446884062412`}}], InsetBox[
    StyleBox[Cell[TextData[Cell[BoxData[
      FormBox[
       RowBox[{
        SubscriptBox["R", "0"], " ", "=", "3"}], TraditionalForm]]]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Center,
      TextJustification->0],
     TextAlignment->Center,
     TextJustification->0,
     Background->GrayLevel[1.]], {0.5336926888750562, 0.17358447249963938`}, {
    Left, Top}, {0.20400961284460714`, 0.06557451841433799}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImagePadding->{{0., 101.736769}, {0.645161, 51.363507}},
  ImageSize->Automatic,
  PlotRange->{{-1.0291666666666666`, 
   0.4291666666666667}, {-0.6460339887498948, 0.32799999999999996`}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.5657263731971245`*^9, 3.5657264597010717`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5656488920630713`*^9, 3.5656489601349645`*^9}, 
   3.56572646631645*^9}],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{3.5656490913854713`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "This", " ", "is", " ", "example", " ", "of", " ", "Tunnel", " ", "Diode", 
    " ", "Example"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq1", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", "*", " ", 
       RowBox[{"s", "[", "t", "]"}], "*", 
       FractionBox[
        RowBox[{"i", "[", "t", "]"}], "n"]}], "+", 
      RowBox[{"\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"n", "-", 
         RowBox[{"s", "[", "t", "]"}], "-", 
         RowBox[{"i", "[", "t", "]"}]}], ")"}]}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"eq2", "=", 
     RowBox[{
      RowBox[{"\[Beta]", "*", 
       RowBox[{"s", "[", "t", "]"}], "*", 
       FractionBox[
        RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
      RowBox[{"\[Gamma]", "*", 
       RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Beta]", "=", "0.95"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]", "=", "1.0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Nu]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"R0", "=", 
    RowBox[{"N", "[", 
     FractionBox["\[Beta]", "\[Gamma]"], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"St", "=", 
     FractionBox["n", "R0"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    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[{"s", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"szero", "[", "k", "]"}]}], ",", 
          RowBox[{
           RowBox[{"i", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"izero", "[", "k", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"s", ",", "i"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "tf"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "num"}], "}"}]}], "]"}], "\n", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pl", "[", "k_", "]"}], ":=", 
    RowBox[{"ParametricPlot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"s", "[", "t", "]"}], ",", 
          RowBox[{"i", "[", "t", "]"}]}], "}"}], "/.", 
        RowBox[{"sol", "[", "k", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pls", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"pl", "[", "k", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"k", ",", "0", ",", "num"}], "}"}]}], "]"}], "]"}]}], ";"}], 
   "\n", 
   RowBox[{
    RowBox[{"line", " ", "=", " ", 
     RowBox[{"Graphics", "[", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1.0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.0", ",", "0"}], "}"}]}], "}"}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"arrow", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Arrowheads", "[", "0.03", "]"}], ",", 
        RowBox[{"Arrow", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0.5", ",", "0.6"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.45", ",", "0.55"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"pic1", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"pls", ",", "line", ",", "arrow", ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.0", ",", "1.0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.0", ",", "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 (\!\(\*\n\
StyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\))\>\"", ",", "\"\<\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\"\<Susceptible \>\"", "[", "S", "]"}], ",", "\"\<\>\""}],
           "}"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "\n", 
   "\n"}]}]], "Input",
 CellChangeTimes->{{3.565554774177836*^9, 3.5655548263928223`*^9}, 
   3.5655549318198524`*^9, 3.5655549690719833`*^9, 3.5655550007557955`*^9, {
   3.5655550510096693`*^9, 3.565555168414385*^9}, {3.5656498152898765`*^9, 
   3.565649897085555*^9}}],

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

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7BlQwCh/lD/KJ4YPALDCP24=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Qk0VdsfB3CJlEqRwlP/VF6mRyQvqXxlSpOpa0ilKClPipRS9xnCNSVU
lKFB4pnvvbguGTKWKCUZUqQUzr2c1Csi/Pfba5111mets87Z+7e/v31WuZ6y
dRMVERFpJtd/92fN/w0hkm79N0phyvvfVaUaIUJuWZpPRpaCN5xTm1AihE+u
RrvZpVI8qopMGkoTghH+5W2icykyO1LPrrooBEdMtQyrS5FXduGfIG8h1L/9
6zUuUwqDpVv0RY8LIdP/6srt2aUoc/Y9dMROiN/kDhgX9/Nx+Xxz7G0dIRpV
D+soZvBh/EeE64SqENUZ+f+zTOAjVLInwFdJCOP3qzJ9wvjY/MgqqWaREFh5
LTz+GB/B0y4HqmgBRuOVXxus5WPWi7hVYsUC+EpVLbhxvwRv5A4rqOQLEHYm
4onCtRIc1ve7cDRTgJVWXk6JwSVw3UqzNJMEUOj+efVvlxKYJTWc+RooQN/x
X+vmriyBeaCT6Qd/Aa5vdo9wliqBbWd7DuUrwBrlXU/ZUzzMT9F0MT0hgPXM
pUM73/IQe7fNeuleAf7cF+i6/xYPPmaadbV7BFhhnxOcFM5Dd2+JdIQFcege
004/HgJs/3Z1MBTA8XXPhLU9DwuMJdSn1AVQP35uL5bwsETy6QzmCiAu3Jpg
daUYki2VFSOzBdDMazHacLEYZlJb44pmKAznLo5ZfqIYHU2TwSFjFHbEHjT7
aVoMh2GfLq1BCltqAxMFv4rQe9gv9mo/hd9Xdj38ThWh5VWOv3gfhU/K7S/F
u4owfW9ITPsNhRv7bzzTLy6Clnky78IzCueLJd9/OVmExN5Zz5hPKaiV+p/U
OVCEBYbK1jceU5Cb9O67sLMIn1oHn0xVUwiSmr97jUoRSoqb6vJLKNgpv7z3
7n0hUrbPMC2KKVS9TqFcWwqhI/Nz+huXwmBbc85oRSGYCf9jBeRT+MAMcv4j
uRBDcSd3HMmg4DHv5lpF+0Ikn6urC02nkFFxRHzUtBCsclMmP43CojiJ7Je6
hZB4Z9q/5w6FM4eGegulC3Hcas56diqFP5vfVhaLFGJOUs6vVSkUBhRHp2po
LhzNt9rr3qJgrsSXFXnOxTGmS3RrIgWbzey12hVcmF+OvxKYQOGyyFUpz1wu
tDIiMfc6hWX2UW0SUVzE3IxI7Iun8Hr3iNDdnwsfMfF5jXEU/MpqrNpOcJHB
1g2vvkqhUe/f460WXMj0iRi3xlAYG1S2OarPhQl9yPPLFQqn9PoGRFW5MKoq
6FEkFs+UNs6X42KRntVpRjSFmMbbvsckuOBtSB2/FUWhR9X7usYYB5vSxi2F
kRSeWHvzpj5z8MV+by0vgtRXLZXR2MDBhefDV7WIW3KmJmp4HAScyQrnhlPo
4tI/GjM4aN59KdyY+JJYgX1PAgfym+569LBIPRK6VERYHNKnVpJhxPUHF55f
58dBRH2N8SZilvUgw9Odg+Vr9OixMArLj85t5jlwECn1nqomlomZL5Cy4GDJ
VsPYW8Q2A9GizE0cRG989cqfeB9DID+mzsG9tQWJbsTOeVs2MZdzML3+Q8U+
4utPE7wWSXEgJcdUdSB2EVlQlzfDRtZ8ZtlBYv+J7m2Oo2x4DXxyPEms5G0/
LPWRDdePPwZDiT2SGc0v29iI1qetMolPswv67zaw8WWl1JmXxDsGjLZc4rOR
2Bq/UYysZ6FfX+eRbDZCI8qDQdyW4PHIIYWNaubTTZeJi5nF4w4xbFgPTm5r
IX7smsw6GsjGJtHYwDWkfquZ332YPmxcFmt4E0DcMzv1UdpRNtarvtPrJ5bR
+utcmz0b9TrL/KzJfpxkaSfJ7CDztX4YUkeswYrQOriZjVyJIXMjsp/m4u90
izTZmE29e1BLbKHDyJFTYqMhojPCkux/iYF8AkuGDZldXUH+JB/j2x2uK9AF
OBB34Nh/+amtT9IwbStAfE/v6VridP9qLqu0ANs73t9UJXkUiIsm7QspQMu8
+BRTkt/wbJ95aooFMJO3Wb78GoWLMTM2irPI807rJSeIB5fKR60dyAdvQPPt
kxsUvt6IKWcV5iNl3dP5bNI/v0nOTvHdk4/2vv0F/CQK2qXOg5ob8vH7gyL5
x8lkPQpRIiKK+WD6xA7+S/ox9vZA0MhgHlLH46zjSf+GGTK/fgvNw9KYitGG
+xT2yhzq8DmZB6UC9wqRBxQS/PPNJO3yIBjoibicSUGr2ygxWDkPNoHCkdpc
Us87vROJdbnoDpc1UOJT2Lm7ZHrXvFzkW/8MSSylYLC6+lr11xyMLrR9KPOQ
goLGtTmWb3PQsrUgV7aSnF8fem1yCnLgE3X0m2kdhR+BzYvOOeQgSjqjeedL
8r2/5MYMc7IxO99z9kQrqe9kF0cxIRusfR/MctsoLB6mnKSCsqH9vYGv0En6
PyVdX88hG/F8z4/Lein0aTkeY4llY0o3pOLqMMn7vNthWkey0N9e9uYETc7H
UhkrV6ssjG2QNjMfpWDE6RjN3pwF91fJbeLfKRhW2/ztL5uFXK87mbd/Ufiy
f9bDxY//wfNS/QnNBQLIXiqqnKf9D4zLD0oG/yGAgdvloqzFmZAqU3Cv0hLg
xZblt95NZWDvzTm/TWsLoOizxFhFkIGKxXr7A/QEkFZDwGR9BhZk6+rHkv+R
5bqLP9MvZaC1U1v6ozV5v3dq9OfhB7iqwTi35JwAu5ylRS/2puP32gSn36oF
WDtTOdrwMw05Mx5/WtQKIPX92fhdYRqMntnWnK0XYOOL2OHw3jT84d7xtqVR
gF8Rpw4E16dhLGNBZUCrAP8yDM8qxKeB5TO6remjABL7Pj1p1EyDeq1t2JS4
EO9th6xrvO6hIev1c0sLIUxMx4tqltxFmAU75X6TEAaGfLamTTKa1lZum28w
DGeH/TLydxJxh1E1SzJuGBl6urJ3uq9jhUnFHvH3wzjxVsLxxol4dBvOS01c
MYKY8Ya1J0Jj4a3C04ixHsF5cxcR+89X8Mr3WKhpwAi2274e7PoVieWWB8ot
00cge/u1bGN6OD5PP/dkN4zAiWuiw/AKg3RH05HCjyNQY7PkOlkhqI6tYu+a
HMGMN+9Y2fdgiKbttKmXpiFZ0YBPp4NgYjh/oaUyjQNuK7c91wiEX2RAp8qf
NJTWj2Zlv2NCSkZ5fr0ZDXM9iYqh3Ivg78hue29LY3jsYVL+ywu4Fbs0hX+I
JrkLqV//yw9NS1d8SvSgsUvx2+SLv85B/dSQlZ0vjfK90z/7Rc/C+PnZJdNM
GnoOT1yESWfww9zEziiMRrFZ8IJ4Nx94lH5MPR9DQ90tLdBM2xsRO/ec7LtB
w7v9psMu+dO4NmvM2CSFRuPHjfEhu72Q9CJ4RXYaDdFn/DkH3Txh2ef0Zf0/
NDZu79YarfRASfWndOTR6PkQaR+y5QQMt9WrOXJpuD/1qbxZ7A7kByyt59Ew
WbQ2z9blGOKKch23PqRhqaZtJ5jrBv14buyqKhpBaTsmLr09gqE96ZOFNTQG
h3yXGT1xhd4jqbt7G2iIrdm7LabABfebzCuYjTS8HNcVzC87jA6typzCZhql
eb371gcdQpybvWVGCw1K1EAnjHcQsqr90watNJQv5n09q3wAyeUxKd1tNLqu
3ZPMjnTCTkG8k1oHjYpBs8yx1fuQm6akvrOLRsbp/ntO7Q7wfNTkfa6bRnOM
ToxnsD2keLMWHnpHo25hb32igx10DYS27sSmp9Uplq0d2l8VJpwi3pkR6nhh
jx00vd7JBRLfeLNC5rCJHcrsc0TuEbOrF9Fb1tlhx65izw/EO2w9RTZI2EHF
NYV7pIfG6arbYkv5DAw72xf/RVwvebhcs5ABfZYI7wxxe2Afd3s+AzyuCucy
sYRJqVNAOgOvel/G3CcuP/80aiqWgWuf5Qc/EBd5f16j58GA3Q/FpxRx9vkF
qS5uDMy9Jp/9lbh1lqnV1cMM3G0SOSraSyP6y8WDI/YMLE1PrVpFzLu5Qu6h
CQOfQplxasS6kj2Wo4YMOD/Y76JDfDOrs1zVgIEH32UnjYjHHy82SNZm4J7t
aJ0F8QfvmxbtGsRmz6OtiePvjETJqDBQfjTX1pE48Bh/tvVqMh/z6GWHiVe/
TSqIWcHA/wFbLG/3
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1Ak0VdsfB/CSElKUoclUJJUhU6R8SZMGj1f3miNPylB6UpLUNRUpKZJL
KGSoJPO913RdQ2hSL9QrCa9z7xUOnqRL+Z+3/mets/b6rLPP2r/9++3fVvcM
+P2I2KxZsxqp978xlfnfI8T/x1Z02HyWenBJiLtKPbK+4a0YWJ+uIx0kxOJU
rWfLfFoRNNQSXv2bENqRm16tNG2Fae+wTZOUEIGeF2PfvW2BSczv0TtEAlyd
P1rYVtUCCZsTprIDArjmRqvnZbVAo8B5NLxNAI+0MhWNky1Im6n3ro8XIGax
vZG9VAtsibUyDIYAmhYCHmvkKfwXuKhHBgqwRDHFQb7rKQLTpfIOOAhAKyFG
H2Y/RWVzwWtJDQGyaP/OCd3yFFITG1w2tPKxJyPlxJnjzVia7Gv/sZaPz8+n
LqQcaIbzrjORTWV8/Pyx+WeNWTMWLePOsbrHh8Znkb3ivGYIfibQ2s7zYfrb
ULlcZhOcLMMVDIL44Egs8vaKpuyrNvHCj49Qn8MuXL8muCTK5GS68LF4T2pR
smkTplynUplb+ZD52vH65ZtG6J1NdbxhwkeiVrptGLsR13Sc/Vl6fExw9/WY
3W1Etvgq65ur+Nj2dbl/z/FGtM9VbfeS4mNr7+LfBiQbccXnCf2pOB/91vYF
SqMNqN6pxz44Q+C0U/Ek/V0DxCtKiaFxAmsnrYxl8howR8nKUbqPwLb+wjLP
HQ3wHi4Mdu4m8FFd1mzV+gacZo2Jdb0j8Gthd7BItgEZuW39tHYCwRH77098
5OEPs4DZDs8JqBfF7lnRwMOiv0ilyBYCWYPvlJ0LeAiczKtzqifwjOit0jrD
w19jI0vn1BJosTHaWunKQ8oUbfoth4pniR/d05qHSvv6FSNlBG4x+9wWyPHQ
Kdm02bSEQGAgr1V6sh7c6F/3c4sIJLW/fanVUw9jkZLW+AMCOuGfMysK6+Ee
J1J9k0+AHx0u1L5VjxzL/evf5hLwzv3ezDlfD2nJBO6PHAKTA9U+Pl71mHDO
c9uWTeD7Wq0fxvvqsfzTM0bhPep/4yN31IzqsWGzSf7muwT28e+f015Zj15F
1d+FGQQeLl5aZSdej6EVddOsdAKx1waikge5EB+1XVNwh8AxnX0zordcKOrM
389OI2Ag8La/UMMFa9aPUUEqATnmljtquVxs2TuWvomyo+Xj8d54LgLnyX/I
YRIQHUg4wQvmYt2GC4b6lIdsKpV5HlwYV9htfJ9CQDPlu0KvDReeGQ8PZVJO
LtP0UzXkIuLT4x0RlE0UFDeGreTC6+S5k+GURXrpoaK5XFyZu8z3DuXGJ7ps
3Z465BRda3xD2WnBloq8kjowSyUUNKj15L25E+6X6hA7jzNynXKdu2Gkg3Md
bqd3DSpQ8WqkLfCK161D3/HEjHLKMpyGe+Jz6nDNXy3tBLXfnYfat3O6alER
XxxsSeXjtvYDWtGjWujfympdR+WrP1jqY394LfLZY+t0qHymvKl87eBAzee1
b96VSZ1HJ7c10jq1KGstSjlL5V+Cw2n9KVaLIZOt1apUvUJ4aVV3i2rw6dVr
bhJVz8DmDKHdpRpseG54Q5Wqt4qbo6alWw3c/LuXnC4g4KspF/5BugYjhU9k
8JCAv0un7+X+aoilb/BSLqTO007mxJ9V1Ui8lPxSoZhAgaOyu5h/NeIjLE30
SgnwZA6P5m2vxrSudJZLOQF6Ul5CnHI11t45pzPIpvZrsO3wgvYqvIu36exr
oPrFbl8fuakKojgPplszAQ+PgDCRfBW08kO4BNUfPTf+/ddsjAMna5H16pcE
3t/S49ELOdDfuOmwxXsCxPH3C+as4aBz37YYzY8E4jp5+UXiHBy4LtJb1kNA
jHxTfL2fDQ+HRdqaX6h+y91pIrzHRjNzSVfrKIHtp1KMptXYWHrz9dJF3wgo
pv91xGI2G562Z9a5TxLQPzLuVNLLwqc/LgtUqPshV1pYrJvNwlHnHVFKMnxM
m5O1gWtZaAjy62tYx0fT4FDOuHklPodans3U5UMuHXWbVCtx/rnseIQBH4Hb
nQT5YpXQOn9p0mMzHztocSfk2ypgdGr6SdAePiRizzEkXSqQ2d3l+o66Dy96
uE0aRZdDzujuY9WTfLzomc0y9ysHqfWG4U/dnwqfT6f625cjONxOSTGMD5X0
jra9KuVotqSduR/Px8OJBSOT7DJ4bTJhM0v4KJ46ur9rshSnw4qmF1fyITmY
qPKutxSGQyaF16v4CF5x4tHPtlK4s1aO3Wyk5ldUKlWkl0JafOpAbScfIY4+
PR3bS9FZliO4OcXHsTSD3gxmCbY5xK9O2ymAzHKG0WuXYtSEatTR9gpgoMM6
P727GOazzNTl7ATg9wdk7jAphpjHi2+xTgJc7FPK05crhqLISDrCX4AnxW6r
vFqegFZnp37hpgDZbdoD8lueoMi0sGnnJwFCdBeezTrxGHuX/5T16hegK1qN
pbD/MehRhTYMgQBmvEd29esfQyLh0N7yMQG2SuFFnbAQK0tvqclKCJFiZShj
e6wQya/NDS7qCaFVocanBTyC1YSqv+iCEKvi91i5ZT1A1DnlN6WKAzBcGCY3
HJMH1+qOb9+WD0DbKKB1YVAesvpnooxVB/BxkJ613z0P+duXdj/SGsDsQYZA
wyQP5Iyb6XnTAbz/nqhm9CUXep2eVWlOAzAXuS7O352LW99W4jVzAHfTH6Rd
WX0f/meF7/rkvsL7wprfs1WzIZZUc81/5CsuuXoEewZlYn/XL5WE9EEMa++J
33I7FZKMAPcC5SFcdr7/K031NjJecta+jBvC+IHu6qPrktAbf/75o+4hbLeL
4OqP3sCTPz9s7lQZxoFZzQvnrkpAYdjuZ3GOw/DL3yrz6PtVGHvvZU5HDWPK
bum+OscrSHgZamxZOIzf/rFLbfxyGTe7FGtjXw5jlXro5+pX0TBIK1ihJxxG
b8GmF2rLojDGtJK3ECOxzIDcZ3YqAnddMr2LFUlY6p03l5IPx9AnR47ZOhJq
AdNRr8IuQuMOqbHRnARvYWqcvUYYmvbnki42JLpufNf6oRWK8YjeizoOJCLV
PiXPGITgNLtlXocnCZfJooTSmGBYrDF6vvU4ibcDcX4akmeQ2FQSERtMwmlj
I806LgiaXLs+ewYJwmLX9zTrU9BxmbdaOpaE+KsPU2HTf2LsujnjnwQS97ZF
eD57exIfbzYk5twmUZx8X/nbgwDM1PlFHc0gkUIQ83MLjsPN0WquRQ41v7x0
95whP2RNSSxJKKDWT9+jlEP3hZmsx8qhxySivi63FVQdg8rz8ENJpSSSTt4S
L6IfxdOceaE7WSTGGiKivIeOwM9/i65rNRVfuPzfZ0u8ILM0aO8KLomWKRll
pRt/4Ijh6RR+A/V9t2OKqZ8nDNjr15g+JVEe5exA9z2MZcm7riS1kbBP8b0Y
csQDu/78MFPwgkTf8pSJK18PYTpq5IVrOwmNfm9u+C43KKiya1b8RYIRSj+a
lOaCKB/W08gOElonrIvVNJwhOtmeXd1F4oucrrd8qyPEfjhZzP6bxPuUYxHR
3g740vFq5tcHEnkDtxaO6tIREyV2T+IjCau6cfUH2nT0xExAlrKWEvu6lwYd
d/Q1g9UpK80XnO1eRsd826I2a8q0UcXgHnE6YCspEUO55/vZ56s/0CBsP/Z+
YTeJeVdstR/G0PCQJWWkRHnvVc+2+EgaWr5EXFWlPPIsln3qAg1SjydN9Cmn
cS4zrIJo8Ni9INCespNjSO6gOw3DG73DEynPevTvFGMTDapjHHYa5ZW/5tmF
GNDACBghsynn+ooPBurQ0IxZ9DLKFnsMRT6raVCIaZrfQZm+hul1dBENwZEG
+t2Us22Nh3ykaBgLjqZ9ofx5JpdzfC4N6wZ6mN8oB5QxVoVMHURfhYD1k/Lh
xNXVjImDyF/+d8fcTyRiS+SYsaMHMVVdNiJDufyigJU4eBD0HSGSipQrju1Y
kck/iP8BtpAtzw==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1Qk0Vvn/B3CkrGMkOy2kmBaRVJa8W8yvsa+P/AohayjZIhUVUUJMWaJk
qeSRiOz7vj2PLWUso9xnGQ3uJDKl+N//73vOPfe8zrn3fL6f7/uez1VyPW/t
zsfDw9NMXf9/9/jf4kDrf2sIzRyjwXQzDtxilFe4ckPYf1cnxFqbg+0nedtj
eIaw1ZGXabqOg2VRiauJjEFY5I3+cqCIDa7K2T9Ij0FI5c2KeKSz8dgpXGK3
2SC0P3is+SmaDXXnJ+WuWoOgiXq/r3VkY7cKR7NudQB77F/QQyXZaInaN2CX
NoBAs5Zb+mvYYG6Z9Yq4OoAqsT1qvvMs0BNrLtLdBsD917tbcJAFk9sSdRKa
A/jjpLvEzymUjTjqBt39mDE9FiAYy8KVqg/Pcor7EVKxR9X1EgvGD6vPb0jt
x+RMhLSmMwuM/7IHNrr1o+mcoKisBgsBZc1bJn70YU0prWJOhQVm+GDPw54+
zCTx6irIs5DPEpmISu+DsuiJXv+1LISoDwj3alOOajydukxArOi0xB7+PljT
7o2KzRN41vBDu36QicGDou/+niRwU1kuz92fiVn7Ml6LdwTeTyzSIsHE3u0n
3FeYBGZjhz/3iDGRYG5idKiBwC++QrRvLxhI9+95rZhLYFLHa4Y514t8hmxS
cyaBOIanSnxDL8zFf56jpxDgzbjfd+NuL56EbhP7NY5Aht3nuI1avWjzMGia
jyYgmHlUpZm/FyccMDEZScD4a49qztseRH8Pjwy6SCB7Yj5HOrwHaZd4lOQD
qfolTpqFZj3I+WrusHyOwKFcnZMRW3rAHB8f9vUksF67P/99ezeqz8buXT5D
QJ0uPXz+QTfKza8FNzkTqJXpiDY4143wjzd1508SYJbtbMuQ7ob+1MPH2+wJ
EDWIusntwqiX2P0UGgGlaferdZVdgIXFyjEbAnx/sTYdud0FmdzYtl1W1PkY
CnWtd+jCDXxnWVgQeK0iVbVHvQvh25McC80ISI9/3ZLB0wXeNE2NI6YEFrbU
7bUd6oTCmw7Hn0wIaD5323LqaScY8gbcn40JFO/4olAc1gnFwquM40YEbE5d
PGFj1gnpFB/Jst8IJHdp/DBU6oTj6YU+G8rBkh0y0YsdMNNxlttO+dlLa/qG
7g7wl38R2kG5U+lrzT+POpDnuVrtRDn006SZYhD1/PumX1so2z/Z5Z5i1IEt
r6Jb7Kh6wq38605v7oBgVaelLLUf3iaD3SGL7ZjaMSMrQO137LfW+rGedoRe
SjRRpvqJ/vPBg8Scdsw2W8l6U/2OLTMeJ4W1w2vzYNGoOYE6ee+SD5bt+In+
0iDEksr79cXCCLV28Fy7taRrTX0PhmsDfHjaoerpI6pmS2Cbo8tY3kgbvv8i
XK9vRyCeM1K0s6QNcj7+lqFUPpWbc4pXb7XB+2G+wCiVn0TZQt6WM20Y0apT
dXEksNZC0DJBvw0W2ZULolTeqxmSIb9Jt0HR98vTPncCU3Zih7O7W3Gk950K
24uAZJ8TDU9asbueE6XoS51v6aNOtchWtPnwmc8FEGgacrg6vr8VuSVGXjEh
BNJkf1d4KtGKkodaHbhE9TOu1ls114K6tM+vRa5TDlZWrH/WgiiHNL5NNwmI
F+8WLopqga3JFymz2wT0oqVzOS4t8HDLMlxNJlB1P/OYxsYWtGXO03OfEEgN
1jsqn9qMyl95FO8UEDhRyx9rGNKMHPAy7rwkYHRA0riM1oy86JrZN1UE3Liv
YlylmuHpqfJTQB+V9zd612xqE/ozDnuJDRMghVQGD4Q1ofdDE3/DKFWvwmK8
5WQTdsYt6p/iEEC1ncrjTU0o1Ck0DVwhoOtc0O3wvBGKNlGlevwsSOcR6xMT
GsH9g14uIcyCbZFZ41JgIxLu/MfobykW2uyFB86iEXF+NwcOqbPwMPbglQcl
DXilk2C+1YWFpWe1QU476uGR8sG72JOF1X7tYe3lOhjXCzoeP0fNr5sFgud6
63Dg8L5XSeEsJIuJz/04X4cOvQ7eJGp+pj133xxTUwtVN9sKfiYLVaHp+Zln
apBt0FKyfpgFdpk//RfdGhgHshtVxllw82r4KrK+BjJ0FROHjyzwaTqXMBqq
4Vyy3UpEgI1PFfZye5Wq8Vm8qszgCBuMlfdx3PlKuFadetlXwUZJhu3vNxjl
0MwW1FZqYONSt2zRhqJyuF/hvRPYzkZi+pL+VEI5OHv5dOSH2WgbuZ9+0Koc
Yxf8HH3n2UhQNI6sGXmN0eNS7SK7OZjOSJ19Ol8GesK1nUnZHAge/NRSaV6K
KNerF3vyOfBPKShU2l+KcQ2JF2uKOUjNipms2liKz63ffver50BhKjkmZPYV
dPjKbm0b42Dwok6mVOIrhJvSrGQluVCNPS6RPFqCrfHleS9ucGEjduvul8Ri
vEo0NtwUx0V8rWHb9KViWPifjb+dzIUpv72wgEcxGi6bzdCyuVjwP6Jar18M
66dD98vruXjc//LT9pGX2OZ8PCT1Xy6aJoTnxfOK0PekbCXL6y+kvhmIdrlQ
iH+cx3NfH5yGgOI/OUmN+VAS0qwPMJjGlbBkhc35+Xia4bp2p+E0gpmGusOJ
+VitGJOLt5hG/7oS0erT+dB9f/+EjMc0pFbIUAfefLSJX/A2TJ4GPfKtRq3J
M1wbibYV4E7D3eneg3ffnqAg/vJI7PWPODS+s2ymNBfHHJcuMNP+xm6fPzzj
FrIg4WnR5ec1g5uuhSq1XQ8gKmf679j3GbgoVJis25MKMb/e4y2hszCXqn5b
pXoP3PtDPTcGZ/E87UvMGm4SVERfiYfJzsFEL6eOJXkXdOmJBFvaHMw7csW5
Y3cg6c9/4fqNOfgRruyGQ7dR1lIVN1E4h4W55a2PemOQzA7ormPOoVtr35r6
ymiQyRNaRdNzaLojU72NPwqelgcCWHwk/M6ZTJo6X8e95uAQdxkSP5ymZsb5
riG76UDB3A4SGsdrp0acIvDS0fnOpB4JkW2WIiaCV3DX3eo7jzGJhellARex
cPyJxtX2EyQ2Xu1cqlMIw3wQf/SZMySebbhDdwm8iOnF4JEmPxJVw/JfoxaD
oVr/kcMXSgK8S6ZGYUGwVGqVao4k4a10fhufViDiog4cDLhFUv9bIWW92QvI
u2wTdCyJhNnYul0V7f7Y0x6T/T2Ver9qj2Dv3fPQluW0VT4ikdc8IB6U5IeC
hZvXb+WROHosyOzyWx+YC2x0f/uchOXukfOZR85S83aHjfpLEkqD/8Q75Hsh
YuKB3kApif38ykWehp6QD3vHF1FJwurPh1Wu4+5YMF7lTaolYe6fwrid4wb5
9J+7TBtJZBrp0VWun0HWpGmDVCuJ8m92O486ukJJYMn3TAeJrMiPzjqOLui4
99en2m4SrR9aOvf/1xlZpVxGH4OEaP3w+6Q3TjiyIu0Q2U9Cc734p0lNR2jF
NgsdGiLxVfSFsGnMKaxb+r4xd5hE8uKbGf71J6HuHaox+o6EBwZkRCrsUaFd
saw4SiLsHdc3mXYCtw3/UpMbJ/F6e7Xxp0122Ddu2qJEeb3Vj4tFcnaYlQ4+
tYOyyIz5iq+kHawFNkTrUW4uSJecE7KDeX9KnSPlop69jjyLNJhzzFqzKatn
ZQm599Dgov91l9oEid8LWtR2hdFQOCB+TYPy6vXVmg1BNGil8QwdpOxzY2fm
93M01Br7+BtR3qXVf2TQjQbloxFJZykPMktk4i1pCHfU9Cuk7PCNN/2wGg0V
CnJZZZQDmpkM/a00/MeaYNZS1k24bKS7iQaVaiU1BuUez6UNOpI0HLtg3zRL
2Tm37+OvPDREzrlPLVIOERI2NV22RabAKd4VytIfNn6y+WKLfVkrB8X+JDGh
YL7Wc8YW9zyKrKQphz/IDwzg2iLt1G9emygnNdmrREzZokSZcXk75ZFHP6Tj
J2xh7XwoUZ2yyOH9Jpkjtvg/5oQE0A==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1Ak0VWsbB3CRKTQITRpIk1KmopJ/qusWSeqcMuscJFEokjEpESVS0ahy
laGEIxki8zwe42nQPoN52ArJTfr2/d619trrt9717PdZ//W8W4npdsRRWEhI
6AP1/PfW+v/i48H9/xYHjyKidIcV+JhzkJhtc5YDQvV7N+MXD4qjjEOL9nIQ
vGQ43K2ChzuFXqcDhjohHrF3pMaBhwrLqcuO6AS3gzSTPMRDVVexwja5Tpgk
Dj0d1OHB8SdDSr6/A9pdjXrRMjx4NolvlojpQMq8rk2LirjIqQ6eI9rXDv2m
7hMb07i4H/xFKKKgHSH13j0Nj7jwyHc/phHTjnHTSoM8Py5+cJSf9+i347fk
VqffLlwEFF6aOyXXjrxPKqcqrLl4r/t9QnOwDavlnWsIcJEyO6hwdVwb2AO6
xWqaXPjVSoZ9OduGsuYTiZMqXIjOZzaV/dUGj6Drl6akuIjwL/NQGm/Fn9wt
Fn5fCQwTjAvaR1sRu7VkwLONwJ7yhXIBG1vRQc4V/1RLoOrrb8a0SCtmUnJ3
decSeLtHIen52xYUB0lGhmQQ8Dp+7kRtZAuGy2UHw5Op72kYrtl8qgUyZ6Xe
FDwg0LiqIfqfZS34KOEc1htDYIShHps7wQY9WYzpdpPAxZjug1JNbGzMqvS6
fZmAq+pg1ckQNjxEyROq/gR80nNuepxgQ15M8HqJN4F/FRl/8nayEaAwteXn
GQKaRSxLqbFmZHNUrQXOBLI+mnJlG5sx++FgtdJJAjpHFjMsU5tx4Rd7PI1J
QFLCaz0vtBnNBj4W4XZU/Q79qykOzfBPDgjNtCYwkMZ5yTJoxi4b2sq1lgRS
1gxl/l7RDK/SWSX84wQy9dPKwqabELYnfP4AncCBB+bTtI9N6Nj9PVWHRiC9
c7UPM6cJXNX9W2uPEHjWv90y414T8v/SO55gRuVj4cky8GpC7RsFduFhAsp7
rS8vpDVBtHqWsyJly7LSgrVaTbD5tu5rnil13rQ/00+2CVVhrMk4ytcVstjK
gkbsIBu83lK2XmEZ15zQCLE6RZclVH3l4qZfKbaNSE6RbiqlbMM3iV++tBG9
4kxdFnX+S1mJ9RvaG+CYztfpofqLo+vtrL/dgHp3c6YV1b+K1fpAycMNKJcP
NV5wjIA+W/LeF5kGHNu9+qaYOQGZqV7FA3X1eKlb3Lmdyoc2yAkxjqhHfQS/
O5nK71nObj2BUT3sY6Rd6VS+F4ICU2Wl6iGSXKi8k8qfzpzQb6+tg4bJpWIL
RwLrdP8wNt+sw1RbqXj6KQKbfl06v9S0DsIOM9V6rgR2nM3Lvr+gDnKfXihN
nCcQr7iBfSiuFvnOBSdXXCQgnbVX9Yp1LdpFt4X6UPNSQ7BYfyvVYunz1u9F
IQSeGoQoBL6qwecIvbWp4QTGjYQ1R87VQJQ9b7zkFoHeMxy5we01iPqSrulN
zeufayGZodXV4C0LjVnwlED/E+LFmtvVMNj78GpbIoE3V1UrDlpVQ8qz1rGd
mv9fngcTNckqJCm7H3hO3RfzK7KlBsur4NPfbu/GJtA6Ev9VZqASmitXfbbl
EPjs5GJk9a6Suv/K6c96qX43zRr2OloJhT4J16eiXFzWU7h7M7oCPEW5eadl
uBB7OGX8N7MCbnROs6k8F+WRtZK+WhUwYUwPuq7hYt76QSfDjnKkdw8PcAy5
UB5zMbFRKcc19tzFHqZclLAKPxb/LIOVu9avFeZcaOdAOra+DLzk1gvvnbkw
VbyjeetiGXynyk2Gb3JhcMzO9X5LKcrjqw4mcbiYeyyvZsvjEjguU1Eu4nGx
Rzzw0R3fEjRH/dkgGOTirndPkIl5CQLrftJMZ7i4o+JkmSNXgtjj21gvV/Ow
6fTMLuvoYszPzJ2Qdefh1r9meer3i8AUaEWU+vCgYbSd5+NXhFnGkUO+V3iI
qywbn2NbhCPlu6em71H/Z0bCPGGVIpz/ui7UsJCHmQNTqoyTH8AqtJbKkuFD
Ld0lYSC/ACstzgZmLOKDU3PtTVtYAeqeNadmKPHxc2Sp/M5jBTCSmWOUu5UP
8aP8Orfv7/HppzHnqw0f12jP5tupv8d1Tvw72zQ+3I5lPDMpzkO/zvEC8pAA
o6v+PZq9JQdJGdNm78wFkFZvqfSak4NRmrOjP1OAjobz9693v4Orr8qjGS8B
8uWWiqQ+egezbz/NiEcCXNG0Sy2Y+w5PROJEhAcEKPJ5n+cyKxseGw5EqVzu
RqySjV7GsiwYtdyafTa8G05VC2X9/7AwOTrXNDOmG9m8lNYrfBaEOj3UN77o
xui8Hx/+fsWC/rX+pM813UiMZ0RE7WbBNKmxQ3NhDza7Hd74/HwmatQc9znE
98CQae+6QCgDNcmet1OTelBxuiohpi8dEZNtxwczeqB9Ubr/QHM6DFquq9LK
evDsZLX94YR0nCdfL6/p60GeyYOwtwfSkd7Fkt+j3ovS6HG7Tv03MKxI5v6d
24vJjKvGV9pfwS/g0opzrD6E79Hw8/ychCxyX/a+vD5470eQY0kSTtMlIuYX
92HsfPfVkKQkMOaHT8Y09IHGtO467JUE8c4gdaP+PiSkJkhJLkiCw7YXrReW
9yNw5Vyj54df4rTj24yBoH4oPefadg8nIszW3mrd1gHsq1/LzoxMgILNTIOb
+yCWuy+aKA2MR1by7wJj+hAM9z3+YWv6AC7V4V47JoYgWhFk8OT9PXDK+CEr
Lw6j1P9K1kBxDM7FvlAzaxtG24duvt7NaOhIHhUeVxwBW2n9j56IWyhmzv50
3XIESsOuwnFHbiBaeriuJWwEZUt3jxFl18FctNLsV8YIHqot2tjFDIX+5Te6
wS1UvbXpRJBVCLZOqybLjozAN+W3emf6FdTFzhr7KkZiTMXJRUshGG5P6qZF
lpHIMS1Zo1wUhEz+7Tr1zSRUwz27NvQG4sx+131N+iTUXlefNX7kj3NPHYZe
HyTBPZbf05fqi+n92mmaliTuSsVftCi5iDtTAu37jiRcia8B3kreWLnFz6LK
jcShUbWHq1O8IJwW2/XJh8SLin03dmh7gtWludkrmIR8zkuDnWPnIAhgJwpF
kCCqJQSxmR6IuZuWl3GbhOg/2RqPotwRvHxFn+l9Eo/firvu2uSGy9+zn3yL
J7FjRaXQWe0zCFZjzXmVSML81F/0T5dcoLnq9x9BCon58jvCc0ad4bx3zc4N
6SS0UpNjNtqcgp3GkHV+FolA25XBCjMnoaHIuGqeS8I2LP3g4ANHvDIMOmRd
QMJhiVadnqMDrDNm9KSKSfR4fxR+vN8exdlvbCvLSHybEHofvI4Jz9BpkTlV
JOIME7cXqDJgSZ+8ZF5LYlK8rFxI9QTMlhraMBpI+JpF2S/2t6X2cw0lm6l+
6nXUI7ussUOhxaCghYSke42o2nYrbCm9Ub2snQSOpp10qbTAPbuuceNOKt/S
SNt7HuYon06qDP1IIvKZtM5hueN4EOXeG/CZRLOAx6Jz6YjJ+sfpGmU1p10p
yp/pWD2W0B1JuW1KdmK0nY6XZmKf4ilPjr65Fl1Hx+NbrqnFlHFz6y3eOzp+
9h/iz/5CIp91m1saSYfbSD/rOmVbp7ShoF10GI58GImmvGkgJ8dbl45Xd73W
PaD84+reejctOopcg2+nUHZLsGiw30DHSR1t01rKhQMya63k6Ti9JMxeuotE
Umdux7VhGkqeJ/rLURbJ6ZyJ7qNBZenrGEXK2lq+p57waUhw8M/fRFniSfms
fA4N/fabvx+kvP2V8B6RChp6zF//S6M81pR3bnExDRvtls2yoXym5Qdv83sa
NmhUip+hHCfrF2SXSUPGX2ISXpRL40Ve+7ymYdXvbWIB//WTGrXobhINX35Z
CIdQvmxb8iEjgYbDPW7TNyjfIHQTG5/Q8D8Tkxdu
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw11gkw1tsbB3CRKKmEiqzFtYVUWhRfW7RYohfZ0i1ZkpStwiVCuFFZK2lD
aJElS3YJJdn33/u+9iXL+0O2uuX+f//5z//MnDnzmTPnec7zzJyZI3nWzfQ8
OxsbWyU1/7v+b/Th/2vV9Y9yOtW9uJV7yFGorBcOTNUvtrd7YSZk7HXCrxdb
Bi/7zYv3Yrrpq4f8DyaEeoOyzkwycd+HO7ijgIkdrvrDAUVMRFQcOJ7jzYR5
+pbjhdZMXKvfJr96ngFW5txAhRITCzOjzL/fMaDuemSfDQcTMkrc8YaeDIzb
WrsrZDOgzePhnzhHRwYqNMzFGFiE8lL+EoELzudaRH/TkZB/Iy2siMCsj4vH
IQYdaSuMLLP8CAR0y2mfe0YHQs9MrGEnwEvSSdsQOuT33ebTru7BnUbugdgL
dHxu1ovvDOvBwZNnNj/eT0d9kcGgFF8Pvh/xrT0nSccdtcMCfe3d6J/awzDg
oWMhRWAPW2I3Xkh0Pb4yQOCNBG+a5x/dOBe8Mu9ZI4EKlVUBXya7cHIhW4lZ
St1DwE7xdm4XulbWHXdIIvBs62kxY+0unD2epJUWReB5hrX0yTVdSKl/rNt7
g8C1+aHwjy2dMHoovXO1JwGNU8JcKYmdsFJdzSbhRCDzQJ/GrH0nlHiGBsRs
CWzPW5P5VqkT5ov5PCtOEtCTDW6gL3Ug1iYip/IogchYy00+VR1Q+fFO00aL
QHphatetqA7s3XrpYP0BAvGpyuarrDqQ3g9Z3t0EvNniG+elO6AjkpskrEhA
uiPnuvlsO2yeLNhPyxAwoP12ki1vR1dc/ImI7QTWRQS9drndjrU70pSHxAkw
Lg3SJKzasYnh3fdDhKqf09FRT7YdbWENd2uFCRgO1pcyFtqw8Or71aNCBHqS
JnaMVLdhR5XCV98tBHLrHoTbxbVB5nhJrRXlC/++ST96vg1xFeOPByhHNS+f
TlFtw/dl9tj1VLwBle8+bqvaIDzQtYu5lYDU2D/PX3a2ov8Bm+xxMQJBJmsv
m2W04uwlaYmTkgQOH1P1dfNtRVHabO2sFJUv85btkmErVkXx1/8hR0DAWiCL
lGiFfsXu7gmq/urpCR6zuRbMWG3M1qD6Yx3xhE32UwtErG9ailD9e1D5e4XT
oxbEZBcOB4KAsKhygMCVFogbDzld1CPgt91mdIdeCyKk9i90GVLnrd9kZG1t
gctG2qCnOQHaxt6dwqxmLBY4+j+3IyCyR+cGW2UzKt3ndU87E+Bhvf5yNrYZ
Pd8iJ1M8CPwKe7pX06kZV4eNFD38CZxy1BhKONSMJkXz8upwArcnXiw68TXD
9CVX4fgzAskuKnSPkia88adl52cSiFGK//YquglqrFybn8WU2R59snRugnoA
4wCjk8DcvLAC/5Ym3H6xKblCgI7WO8KuVfMNuGN71OGnFPU+yj93WWU04OAZ
obo4VTr0dL+YNNg2IDJeWXvUgg6+rfRzWp+/giUeH5r1lA6/0hRT8Zf11Lv+
ozsnl44f7MdunLavh0etZR9HLR07P7Z4O4vXQ9CV+2A4iw6T6KqInoQv2PL2
4dSYJgNXyh3Ep+/VITPakk/GnAEV79lTNNM6cOX/+pjswkDln4Zcnvx1aKw9
WWaSwMD8XEIBI+Ezpjyfs5+YYcD1iP/nbRmf0OxgKGjKzYTr8myLvNsnHAsw
3BwizkRhoLcbU/UTLHD5+1UjJjhSmss1q2uRoXLL0jGTiQ+hay1LJmogKKx6
qraGCa05x+cT+TXYZ9mbbdDLRKiEjH1BUA3GboTrf9jQixVLNvyiIjWQeltN
3+PVC5WQ9bdYZtW4YlZ8N0GyD3pv1h6WGqqCgtuA/xfFPqQaWwvuKK6Cj7t0
KZdaHz7elAxNia6ClZhSdIJpH2ZeGogMaFdhUulhx+rgPmxjnA+4mP4Bnhqa
NeOjfXhRbzHzNrQSYf0xitfmqPiuR7iU7CtR6ObgzL2iH6/u3k9ZrV0JvWN5
CjuF++F6gsnRvlwBz0Ti31iDfhissDV77FeBeYUC+Gb3YzbNKXHXhnK8ibWZ
FyzrB79viv1IexmKIzt839b1I8lg53bVR2V4fyZEnjnYD6VUF7tH8mUw6/ax
lNo0AJYOwbIzKkV5aSNNzmcAibnmUQezijHbFhy4pDGImxIVTldaCrH30cpT
PccG4dB1UE0loxDHhw30880HEc6XeMTiRiFqcvbx2lwahCCbbnCzciH+8vQN
tEkaxP0sNpPTMQWga8o4i/4cxDoxr7ghl3yobq6tF88cAuZvlZRYv4OmrJuX
6PshjHKGlmipv0Ne1F/s/B+H8PpQ5wyv+DuUGd9+Otw9BNbvpb5rg7lQVcz4
IsM5jFsJ3RtuuuVifWgKudlqGHQOfv8PMTkIq/do9fk9jNIdak/0ubNxNTBm
+RD3CFoFTOScyCwYTLUXzG0cQY+9SmlVRxZiu4VrdGVH8HP5vJzciyyw+fBy
OJqOoKizoO+BfhbUBDyjc1NGsPqZb6GA3Fu4JJfkX9YahRjzfYd+6msksHx3
KtmMwaJ4733DiHScEcx/13ZuDJxTA4ceuaVjzGJ9m7vLGEaCHPNFzdIRbcr1
T5zPGIJSHygXSKRjdJ1DxLX7YygyZLu8tygN0+qxRG7LGCqXIip+zb9A3zcP
U2Wtb9go7ba2MDIVlx4epL/iGodTruXjHLlk7JGolte1ncCcT8v4x9LHmOTM
cjY9MYlxDptE/tQHKC1NGLNenITQ/rDpGtl4BPglkQL+U7C3O7xpnW4MpCcO
baihT6E74TCDIXEP2ZzysQ1SLGyPaBL42RiFr3rm+1XOspCxybAkKetvNMvE
ybDfZcE82Xjlj73h0BVitN0qZGEm5ezp9aOh4H4rx7rQzQKN1XDKjxWM8/g1
5PydhYljyyo+xjeRuOZo0wseEoJpxjOx5YE4vLigbCpOYpvnmgUh9xsIz7Zy
4tlFYku6Sr+ktT8+7K8P0tcmYSQ1b0CI+sHr5fM3rcYkOOqcC+7s98HrbV5V
a2xJXFFXEY+2vAaPJjlvFScSCq8U8x0qvSFjIS4g505CI+Qzb7aJF0aLpaW4
/EiYaMX0yA56QPcvCT7PYBLOJr6HaenuiF4Ufth2m4Rdu7p1jusVBHFsW3cm
loqfLHSMw+QyUjdNPmc+JHHzR6okW/4ldIRlXfjzGQl3ld2+7LUXse+Ket6K
NBKreSveTQm5YEr+qsn21yTeXVvcHnLPGYteVt4nskn8rMs7mrbSCXNPnk41
5JGI423TPPbKASbXPWJPFZGYPuQx0mR4HlG6PZnHy0g0ThCRq0Tt8VYiLHyi
kgTfeOeajpXnsM15b+L9ahLLP7UeKo79iWGHe0cbPpFQfyh1UYM8g3Yx3fr1
9SRq2xNjC4bssE5j97e1jSQmEjTUvvKfRuTOX+kvm0nwGAr6nvSzwZ0nTs60
NhIxY7vcNjCswDvqvvFlB4n0ndbvn1y2BMfAecmWLhItKavuZoifgufCp3JO
gsRMMs+waa055nWMS+boJESCtGNS75uBuzuP+v6RiFasEw2JMUP162k/TgaJ
+z+cFs9HmcEgbnjPJspR0p7xCsFm+M3LjNhH+dsOn+s1bmagvY9vvE7ZZXF9
oJo+5dY7Fb8oZ18sWim0SINadj5jJZOEfKBYieQsDUcWqpfWUlY9QuQrTNEw
pvZUVpSypsSop84gDZkmZm7qlH9YrFgd1EhDcZPRg78orx9ag4PpNEwV6seF
UFbjnP7XIpmGEJHddyIp//PMaNnrMQ1LPYN+SZR9b7Dl5MXScLKrDKX/zacy
Pa4TSIMUbBWqKX+Osoq84EeDj8J3ga+U3euNLkRfpaFWiHuATllH2LZl2JWG
w6fDqoco/61TbMPnTIPlG/a0ScoKAQoSGvbUfvrV0DnK2d3GIhftaDCeHj33
i3KmXd2JRCsa/gPWz/5c
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd03k41GsbB3BJ78kSUkQLhVOdHKKaFkvfoxNtthjES5YU2UrJdpI4CClk
S5QiTLLFZEklxpKlrPMzYwxjRER+abN04p3z3tf1XM/1ue7n/ue+vs8m53Pm
p4WFhIRqBeff+07av8XGzv/XMDRUa8PdnNiYVBTblSAyjOmDsT/s1dg4sHhx
ToXgQztL6FVMAwsj3edDvwTy8ajrW8ajZBYa643qKUZ8OKwotn3pyoLdyYHq
CkU+lL7+DExfycJY5/pd4fVDYGT9HW083ovbr1IkulOHMPythPm6rhdLuauM
3D2GsGCXrTAd1AuZTEOrwFVD4Flfp0fb9GImUjLg63sexO/uzarb14ukaPem
l8950EmWp5MLBA53yP9u6MpD+jaOaucwAY+1fs3L9HiYzawqUG8hsL6xI15h
FQ8XEJZJSSdw9L54ftjVQeReOjzZHkEg9feLRkUagxCiUh0ZPgTu0MSMorkD
iHKN2JFiTEAzod/CXG8AO2Ujv5/WI1CiXFZ2YIoLJ09P4fMaBJasZfSPZnKR
tpi1WLCRAK3T+B7MuRgghcpkVxNYvKXxxHgZF2Llf+7NXk7gElEZu7KqH4oU
/ecmC0y0lqRnXPfqx37vtL9WfmNCPqbyj+fK/Zi2V1o6MsnEGg3z+9ksDqgj
P2brRpjo0Rrv1I/jQFh4XDxnkAldxshIiiEHlvwAzYg+Ji6HWL7MWuiDkqdu
sD3BhL3OH1tPV/ShY0BmxdZuwXx+50fu+T7oOKzeNdjBxK/GZU8l1Pqw2vzU
+eB2JmbOGEtOj7DhY1W9/+dbJiJCgyJjHrAxV7Run42g7yBFv8OyZ2PUe5ga
K5h/y7O93beWDTWjyoSELib833Ca4lgsVP8D8hSTicWCbJ+ZFBYi36l6LbCY
+Ci1bkDaigW1JVw1Oy4Teudz/+TIsnCNFvI4gC/ozzx9bEn0ItlMJdh0jAmL
jYkKIam9MDs3oNU/xUSj87V4K0EuyoOabNd+Z+Le3v5VnHW9yFZPjV8m2CfL
Oi1bfJBAT25/Rdp/COgM7FZ+n0UAjTt4XVIE3igPOXu6EjhlUaBQqEBgTrRg
753fCQTl/CNE2U6ArHxEfqhkIichdK5Pm8DdOL6b+FUmnpXP98ocIlCzn5nc
foiJF/msg9ucCMzP1PfosXuwe+5gl/A5AgPuJcdGsnpQwM877hBMwMbCUFfN
qwfSDnK+qYL8RU0sF7uxtAelRapHmwoIHDmBMNPWbhxN7FD9+yUBC0WpjIbE
boRvczsdJ8jzkZKc2w2bu1EU2pnA+k5gWUtX/7HpLmy67y2RKdaLDa7vb155
3oU1G542Ju8U7KGYPzdE7YJnlqpuzeFePM+rkJBS7kLdtpqQEyd7UXoh/sAQ
2Qly12+v38T0IsZAv9HrRid4cvRir7Fe/JXmuvxrewckNUZVXwmxcEbzovya
rA7Qtkm1uyuw0B6m9bzDtwMt/s7cF8dY+Cf+boTQ+g7oXhbJlKWzYMDtpujz
3yL1+H4H/lsWpnkWZGzcW9gyzkV/GWfh1HjY9XG9t3DyaU/p28iGzJzt+6a7
b2DvqqpxNYENUcUVdc/OtsHL48lmShEbD/29jLcrteHV3PRmxVbB+zLrDXeY
rZjOkewMX9YHxaD0FwYGrSiy2ily4XIf8g/lHMvY3oIeSUpb0p0+VJTKJ7tP
NmNTbHMlt7IPdpw1JnL5zVgvJxbN+daH1CXHxea3NGPPrE+4vQ8H9z0N5LPU
X0OGdlb0WjwHtolrAsSmm6BYVf6ppZiDggkZx31Pm3D+4bOmjCkOds+rKfPQ
hLz3vHYDwT9mzzzds/xkI8SMOsfyvLjYWRWVfaO6Hhui6bYN17mg0J4e9LpR
jx/de7U/POJiSDSttdehHtqBvjg0yoXplevOhv+ph5lCl/M+hwEcy3Yvt7Zh
ICWxnuZ6fBCJjz9rMOXqsHH7hDbt3CAmKwuNUj7VYnvVB/rIjUFoevnNN7XU
IumCNtWyZRCPH2o4+V+thX7FgUuXN/HQYqjGGvj0CgRnVu9CGg9b/Jbq6zbX
gP62y9OOxoPP8Dnja9E1MM0NOKFfwYOd+d3ZqKM1GJ3sy5jv4cGXbLue+/Yl
VurFim2WHsK0aXKExOALRJRdEdOJGEKDyeTGdMXnMIsPrnE+ywcjRGnXnFgV
DDbcI2T8+VDlSajPDFRiu6zki6pwPjpOfEg5W1aJBTn1vIlMPoq2CUvl2lfC
zMKlmsvkg3bD+bVlRQWEP+bmTGAY5cknZs5cKceSdbpBphLvcLLhjtZXczrU
jpIm1fLvsFHTREhyJx3qOvnG6399h8Sui9f9VtGxP7io/IXeO8R/vmyvySzD
dHQ1Pdj7HXKypu9p2JUhipJhP/XmHQIZ7MRE/1I8WHZ74Wr4CDRlhKvDBkoQ
uDN0Iih+BFW+SRx+fQmeRtp2uGaMwDfvy/ewxyU4vN0kei19BJFy+BwSWAJK
7ilymD+Cz9FRY1byJdjRfapZdP8oCg6lipfVFiGYMfdLw4dRrA0yKzHXKoD0
HDc2XmkMzb88U7AXp2GNTkPfwJYx/PEgbSL2Ux5O7khyVNEcg5yDaek0Mw9x
jI+UuD/G4DwXIH3iQR66fYa/fXYcg1O70IoY7Tw8VBjS+5w5BtpvopKr/HKh
Em4TKLFmHAmJFQEhkjkwq62JS58Yx81TLudXFmehqNsv6h11AjKMxocVY3ex
T/bgnyLmk8hUCZ3VnL6NoAa9deU/J+FcJdsiGp+MmGUzX25HfkTor9Q3dYxb
UJDvYXSPfESt9hNya1k8VLq/LXmsPoUrXVbNHjI3IX3sUeYl9ykkGHkWRq24
jl9qzYKTUqfgbmdDUaNFQSbA6JN5zRQ85CXW+bhHYhexmHZ5cAqSozSLoqvh
yPlt/xB3dgpL4/RbqB/DMPtd3TFMmoS/UfoXTbdQaDfrZ5SokFAV/bhgrHIV
bjHC+l8oJJS0DDTS3gTDFua/thiQcClstfh69y/sDi4uXWpBwmIs+EwLIxA8
fVP9SQcSBa17nnuQ/riUk3Kty51EbPGq70sd/dB8LnT9LV8SY3tPus/P+MLM
zu2A9hUStKnVIvz4i1B8edAjKJJE2Igfz8DuAjZ/uHW/+CYJ0bmso/QtPjiS
t1VWNoWE3LzqCUfp8xDOCHh5MYNEZrt34Ws9b7Rnm+v3ZpHYaynOqLD2RBHP
fIM9jcQtt9lN+0rdUUdLknMtJKHfNtHyQPMsMgKvsi+XkjDmlFbG5LtitbLG
6fflJKofatnOW52BuqP4IftqEhrWUkqHF11wyfmHD2pIsF/au13qPgVhbwuh
jjoS8Q8/tzfUOKPg9JVmr0YS3REntzzIc0LjzKhRSjOJy1V20bdLHfHJw+tB
SxsJ7eysY7jogDSjptbqdhJGBL/C55E9lqhbU0y7SHz/rkxXkbcDO20ibqqH
RL6PDWVtiC3oZst36/SS2CEy7LBS3gbuoYdE/ssm4UE+c5Fus8ZwRffhSA6J
zVwXoZoAK7QerPrpxRX4XCt8TSxx36URfgI/MYmtOHPEEv+seRJyReBQbflA
24OW0CjbNHdTYBGDdSwDbUtESYd2FQt8KCrph9pmS3RKMZSmBb7BjYykLFAR
dubR1gsDJKg+SxV1iqkwXEzfEiTwTKHIWqt8KqLnQ1TDBC5x3US9kEOF2y1F
+VsCBznuCS1KpyIno2n0icC7WtLplCgq3jAslKcFFkoK1AhxoiK+LVdoTuCV
Rxx5hXZUGCt96xcaJJFVFtPCtaYiYX1knLTA9hW7DPVNqLBpjenfLvA4J7tD
ToeKnwHN+XsELsz01jbdTcUJl+X+EFiVksCO0qJipXe0qKnAhsOu5YtbqHBo
bmu3EnhB2OmLrgoV+v0ySScFvias6/KXIhVaBnZWZwR2OZ2+vFqBitysR3Le
Am8o3sT7sZqK/wHSOxts
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1Ak01N0bB/CytCBZUomitCppsUTLN+1RqjF4U/56ZZeKyFK2sbwRhVIq
S/YsoUijphSylcxvLEODMRip8Iuylfj/3vc55557Pufec+9znnOfu9z6As1W
ZMaMGS+p8e+89b9ogN1/0Yvo4xq794s0INjvePLrNb1QUJvOym/goCvLfEXY
FyFsnC+WGPty4J6x5GPAeSF4vTtbbEw5+Pn+zMnCzULQE7mmdzSp/Xn1w9Yj
PTje6Tgg95XAIbfGOgO/Hhj6/8ndU0ugpDmM7763BykfHOXNcwlYO25M2TC3
BxZ2CQ57owgkxt687lTfjSqfvRt+exAont43pnmnG8t8ws3cLAnYXXWR8rPs
xs615nsTDhBwP+f4znRVN24sjXDtXEpA1MuxOr24C6a88Z4uSQJFs1Y6qQR0
YXfG9CyX32xkL10as8qwCzI1M/zd+9lQMBV9wlzQhUTlSn+yg42bXpIirXwB
9l6wP9zIYUOzNpAVmiPAK8s7UKxmQ1oqZ26ZpwBbXAppz16z8Sw7kB++TwD1
ZXGxScVspJqkrxXICiCwZa+pz2fjtuHP2gp+Jxrfjsdvz2bjxL6rwdp5nVjz
LKqyLZ2N2NT26S2+nejySfXOTmGDSA/pZR3pRBz0efEP2VgXsLaao9yJDTdf
2OUmsVEvs0mn7xMfBjo+DwjKL80ssnb78hE2s3WheDIbRr3MN49V+dBuXj6K
VDaaOQPSG991wIjm6XYlgw26npbiG6cOEPKTFQVUPiydKhtr2Q6YzpDd0krl
6y8deVG+pB3P3ihcHHzGxg/BSwbxdzseH17h+ZXFRgmrq+K+ZDv0i6R3V1Ww
kVd84YxLcRsu1QjK/erYUKW98Dto3Ybc6Np1klw2fHOjdNbMb0NBZKWIvYCN
k1XJlyVe8fBxtv9gBFX/76Y+a0lnHmiGCRGe49T9kpnaDUo8lEuWBy8XJ9Bw
qjK46MMndM92bQyRI9A1/44gyu8TkpmzDJw0CbTf1GVtFrbC38u5rHMXgTMZ
7c+G7rVi5Cw/dMqYQJpDcU7qsVZo83oYy1wJqK8VLGl81YJ1CkzVxUEEkvYG
tx693IK4/d7VmbEEbruuVinQbMHCg38MvVkEDL4SD1amc8G5UnS+kE2gVnvB
5Oa/uTiweoO4u5BAqqSa3rJlXLyvkan2luFAPZMWHXa/GXmPTcJ0znFw/45G
rH1CExz237t8JJQDX9V4TYlTTVCf9DzU+ZCDcLOBrAeKTbizvvaHK5fqL+OT
o373GpHxary26XADhOo274dSG+DVF57vZt8ATRnxncUODeBNZ726GNIArSJP
+xMbG7At3XY8qKwBfKbHvhksDlZEX5Iq3N0Im+6MErKTQOZQp4T4343IHztt
q0j1nVVH2vDDwEbMjObLiXoRmND5MJxT3gjG4iaGJFXncBPusWrDJmxr4z5O
N6be3esDk8pnm7FOUf1RcH0dplNSbYZCm1Ee511qf6UOSq7HDPuzmxHrX23p
s7YOencPmhn/aEbgH56scugHEOvZwzEhXERD17PJ+D31r6hXOmVz4SBjPsAU
fQ9uqEreqXouZOMjt2aV1KI1mihmKLagTauxM2ltLSK+7V9cmteChoVuhLdc
DcT7eY26jS345vG7wbS+GtWRPYzXEy3Y03HogUpkNYKMBsa+72vFgnjdi+cl
q+H2PG2qhteKP28leHFyVSAfHGkxk+Dh5LG0ZzqH3uEDGT6ZqcHDFb1fq/sU
3mFEpvrJ6HEe7ga7ktt7KvCXnaxG+F0e1ALl094yKmAsFjB2eWUbNDJl3GZX
laN89k5B2452KG6POpfoVAabEXfipVU7bmTMM79kUIbFnin1NxjtmPwpZluz
uAxnKqVXzq9uR/5su8Gh6re4Z2Jw6RytAzt/dzWJar7FGe+7uXo2fNjO/KT9
VOYNnPXso1aF8jHE/Bgf314KWrLS6FQmH/qu8+pS7peilnZa2vsbHxcIhS3S
i0oxUXR+9M22TvwRI9wWKL5GhcgG8QZWJ1TTb/AjwYIaR2y7MUuAsBApgiNe
guDmE+tuvhdgo9zva1+5TKiavyTKPwnwv/Sbg4HZTNwps1ScMyGAacdK2roT
TBhMaE//0uqCwS1Te4205xBM8Eb9srvwrWqH5mOrYijz5HzKr3fDdbbe+I8V
RQi6xPSzv9eNkw/DyU0iRfBzKtg2ldGN6IpI1zJBIaRn5dWIlnUjSebEEn5y
IWK++xpdGOuGxFk7le5VhQg+GO9cZdUDZVfBZv0dT5HXb7702mohPIaLLKTi
C2AzJdb/z1YhlAq29s1nFGDxQl9rr91CzCM3F5k5UOvnes+utxDi1ZhZQbZ2
AZp3pd37FCHE3Jw4z9yMfHwMXdluQwohZakiXKSVh/7MR5qOWb0osCjx/p6U
A9cISW7Cj8/YNcla5XAlExnzB/rdJz9DVt5r+s2ZTGgpERIG4n1QG5mSPn4g
E4KU52HMhX1wGPMPlpbLBN3jVdkqvT6M7UveNJWTgcjEM7dErvYhRCFIXetL
OnKf9JrL/urD7SmGZ0xIGiZOR7F4rV9Q4Lwox1kzBQGJchOetG8YDhkW5ckn
QGhr/1navB/ZpVfFRQ3ioJC/ced38QF8MC9I+fz7Nj4eTFWSiBqAd7DHI9FD
MSgqjvhlRA7A+vSNydjDUWjdFG36SGcQ7aobnq48HYm+/gRhvtsgdg2W3X18
MRwV7YcS5yQNIoJxLIC57BpkH7oEjr4bhN+1b9FWwyFYvt3orI1wEPtqpT5X
LAxGTpSr+LqpQWQ61DCjbjDg5Ws0qqtAwn4kad5z+UBM+ebv719DYmPRQJFK
nj/sapp+vtQjwbuifDZ4ny+uZs6ctfkwCSl9M+Wx5Vdw4aZz8xIzErcmXbIC
ad7YtGRH6nNrEtEbjDdZXvOEol1nlZULCaax2SaHmZdxnRdN+3KZROHCRWnv
HrpDQzPogmUACdla/Sne7kug0QYs3K6RqDn458ZeOTfMEZ/M940iYXVfoBbV
fRHOpafsXt8l8ev6klBuygUElo6oTyWQkOHu0MqodkFJZYjt3jQSOSLCtzu+
OWPsWk1afhYJjR27bJccdcJcd/milDwS6l1pI6ocB/xj21aZXEjiq/fnt4k0
e4z4TY+NPydhELqN/UTMDuFeX9JPsUgEPfSoS3hqg/OijpYab0hUZ9CfJ10/
i12+qhL55ST4Ggn6tKvWcJN3GNpZRYKVUWF8y+FvhGo/TDtZS51v0LzA3PMM
Lh5XUgusI/Hm3ZTz/8SsIH/rSY4dm8QTxiGVAANLjBh9Ef3OIbH1gVGOdvEp
aIso64Y0kYgJ6o6DmgXcw/hSNVwSav+Mbgp4+xdKNWcRna0kfm+ovW3qYw7m
Vp9h0TYS84P3nO5fbwbdtWbRPe0k9hgOkZ/FTXGwn1XUT7kthCHon2GKuZoS
zT8ph603WfTjNx1HuBZy4h0kcg9sNRYdpuP8rl7XVZRrM8X5Wzro8NTXqLOl
zPS8t+tjMR1ep1+M91C2VX3G+OFAx4Fzyz/1U95/w+Goqg0dZACj5CflFxoq
J4yt6Ehepe0mxiexvEVTJM+UDnMzl/dqlLe/kJ95dQ8dNmpPllpTrn8coUZT
piPDYCbfkXKilQ89ZhEdcotNE10pz03kMBvk6NCzkFgUSPnc3dNLLObSEavB
+p5EOf+UpK7HqAkGZ21PyaR86wRj4vWQCRTdyk7k/+vAu/1zB0xQ7DSQ/Zpy
hp3O2dRuE9zaGEOvpLx49rzeoQ4TKAwZTNZRdmIqxRl8MoHr0T/JTZQPfZ/j
HdNkgraOiv3tlG1WXrnWwzbB/wE9/vEZ
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl0wk01dsXB3ClRw9PokRowKMMUUSIb6NkKHVvKaFMRcpU4aEMzZFCvJBS
hswzGTMU917zeDNnutcV+ZXp0ZP+v7f+Z62z9vqsc87aa++9zlYbl5P2K7m4
uIrI/V+MjvpvMfD/OA6NTfkHk48zsI1BjfjbYBzX75VX+PIxUNytxbRe4EDz
e0fENIMOzgnuwB/JHMzLJW5gP6bjTuO7AFtzDsIUKwV2n6Zjv72fw0sBDup6
72x4L02Hxeq90ekVY+BqbixcptHAx9queGTbGCrzK4e94mh4ypZW6uxnI+qQ
47lcXxoendlYpvWMDWvLC7khFjSI6O1Sv2HEhpNXzYtp0FDEzC+4z83G3jUR
BR/kaNhBjVB3K2Phn5y9w2NCNEgHHozc6cFC/MHFAP3lWjymB/vSVVk46qvi
RpuqBTNL6MbuyVGEGZYRJ4drUd8wteiZPArRB1EpbV21mIwO1n9iPwpe+aIY
1bZa9LMlgrxlRvGkMHCnWVMtBDhWrD3DI2jn3yKyq7EW1S6xBxivR1DBdNia
QZ7PNZ9/oGAzguJinfJ88r3PsZ8PzsmMQMqzzkyjuxZe3k+/m7OGcVlp0/3N
ZP7qqneX5ZOHkXfqlavV11ogdOZhhdMwdHUeSA3/qIWn9SXGVtVhPLzZnhrF
R4Pd/MrXxnNDKHGvL70uSYMQ5Z6XXukQ+KZs5m1VaZBqq4udCxiC9GfZjWf0
aXANuWbhenQIB5fnJvdb0VBhbfsrfS15X3lmVtiLhqhWwYqUnkHEbb3+rDyc
hnjT8iq7hEGIGJRrqefQcCKAT7nPeRB/Rj4+49hCw5U5RTlB7UFE7rPhM/1O
w6+sGNrCb4OYsL8i3ydCR0lo2j71xM9Yy5ZTy7ekg/imYDPdOwDdUO97nDt0
LAua/LT/awAz5nnp4Rl0TBvkndQUG0D7+2pxGW4GMvI/aY2c7YfD5VX7p1UY
qBBPqC9Y6kOfrdcdQSsGFEzfr2fG9cGxIsSf9z0DkroJ5cRkL2wdf+i3Egws
KEwJDT3rxfXjtqXV0nUQ4n3BL6TXi1GaVfliUB3ezL2aFX3Wgwe3aAd2VNdB
0Jw6xt7XA7s0/waHxTp8+9AZNjrVje/lh51bLtdjsmuvydlj3Ti3+ci6qYR6
VDFi/ei/ukAfbbab+VyP6A7/j6dyu7D98/W1UWcacCSXolS6sQsStpEpoZRG
LKrNNeovMJGraxiRFNUIR/3t6bbpTNgpWXx8PNgIFrN/fYY1E96RGusKXJsQ
G2shntfciQl/ty9JUc0QrYvgCBZ3wDczQPYhqxm5rCQZYY8OBHAFd3OLt6BP
XiV8k3oHTpSxuy9cbMGt1J0HDuS1w1BM/e2hVa1QMM53OFDehjqz8eTTSq0o
/al9RzKwDdO/BWfEUVtxJN4r+fORNpzqeX60PbEVvFKj+sLMVuiVJD12M2zD
pUrLy9VLLYjnSch8F90ONa1Z9dDBJtzXL0k6WNOO0OrwiI13mnA7Qq+RTbRj
79Ws7t+3N2G+esT0yuEOMFWUpbg9ybpfDkoYfO+AEuPs80rpBmjk6R7kMmKC
IfitLi+fATef2kYTD7IPX7WN+K8w4OFgTn3xmom7quy567IMVDqNFmqSfXTd
GES58pyOZIZqrGHiJ2TKC3S5B9PQFScvyrPcBc9UZvaR1zVIPeXEIyLXjW2B
9pNhTjUovDZQKkLOMa+eLyVCowYGuXz/fo3txvaxUxcLmz5Cd+WDidm9Paha
UV6/gfcjROpSGZ2evfhCY+vJRlZjVll6bd/LXtRm3mjIuFyNPaq/tTbW9GLQ
mOsPGqphzAoWcBfpw4LdzaVXE1Vg6IWM52T0welSxcuso1VQbpPlquzvB72R
0h8qVYkaP4cPptwD4Dv3Kt5gtgI6840etG0DCL7tde94ZgWSFtzi7K+R/+KV
tcS8bAWGNje9teT9DHdj4yFDyffoi86cWbV+EHcub+Z3Vi1D+W6HFUFKQ5jL
mQvr6S2C2o6bmoq6Q9jbEi32Nr0IAy7+hmUmQwgMmlq7dLMITsdWj2c7D+Fn
1d+We6SL0GS/YfdI1hDUBHeeZbi+Q7qycom9yjC0dedlGLKFsPKTeUmXHsHj
FuFj4f152OAjnum9cwSnfFR+nCzLw4yFxh6pfSPQ1FTzd4rJg4VweZWa5Qi6
aiqN35jnoVJyh+jbyBF0X5WT/L0/F49OLVxL5RmFtWKNZ9u3HDwSfShu1DuK
7oWj17JMsmEbOsdQGB/F7smOpxFq2aAaxmxYnB+FkNYZzyrxbMh9SS6wFmZh
h1pcTGNjFjyZPtp2Biyck7PUfrE6C04cmqFWDgubbLTVMiMyoC2166efBxvG
VhNiYtxp4ApZm53TNob3OzzaFceS0OFtM/Ojdwzpxvx2nQ1JuGDH1NjDGsO0
+ZXBgtwkJMpEfg/5ZwwhBatPivslgf+PWy8zJTjYaTUmaL4xCe0OjSLV1hwE
Kf0bftg8EQWZX5LCWBy4XFQ9aLQUD//A4ejwpnHMzPOavct5jS5bmsdNygRK
IiwaWPovMIc9rGbLSUyLWDmrRv0NZdFdt74JfoW2pJnETZdncBBtUM6K+org
9xNCP9pCUbd7d1rWwlcklFySeVr/BAOOlruuYgobNJihVVnB6GQGLMV5T4ET
4yy1q+8haHpdhSpJU+i/vUXI88V9XHqiZHW8YQq1WYYprv53YeCS38kzMYWk
QyOSsrm3kd7WOafOTeDZvQ8/ndQDYfrt5I98cQIaP1cYHvrgj7LDu/fPKRLg
yXjk8EHSD/IuWhVmugTCpL5eKazyhS7deoWrMYFYellmcJo3XkUcUBE8S2Dl
uqBlHbYXFv6I2GJrTyCEI6BW/6cn0gS9jVpcCAi+mfDtS7qBMPG2ALm/CAj4
LVccNLkOk1tHtzkGEmigBFNUZ93hNXNjlvqIQOYL66sn692wYzHReU8YAVbx
+WGNN654Kf1g6+koAkas9Ld8Ci6QXeXk5vWKwFb/3qvaZ64iJt60Ni6RwDDf
KH39bSdMEkJPZ1MJLC7bjCxNOMLI711xaxaBpey6cTNPB7hn6kiW5hNo39Sl
Jb18Ef7ty/W/ighIJ+xbGVNgjykz5w2m5QTqwyt/chzsYCjMs0a4ikDWnt7s
IH1bLNfP+9z9SGC1h0qxm44NoreKb+WhE3jYk3Dpi6I13HxFH62vJ7BedPYo
Re8CBPL3Fas2EdisGSKYEmUFPYPz4vytBPI15YTc+y3wMP5lzaN2AiccJa4S
Zudw7Yu/jiiTrF85+ntT3VncCl4df6KLQIbk29nNzmdwxakyxbqHnFe2wvAL
RTM8GqQu+PYR4F3w8B0fOoU2cH88PUBgjYPZ6pWVVNCDlxhWpA8tVZaKlVJx
kZ/VeJG0N79PpmohFZ9W3Gv2IH0/1sfULp2K86FiJZGkY8j59Tyn4vJ2HmUm
6cCPLttXulPhlL0rhPKZ7BePyYW9f1Kxvlqbco50yP5eU+8tVFyXPyxqS1rs
j7AbxRJUhJ2wjXQnLWe2zlxHmIqNQ523QknnMJLvmvyioKRX/HsT6dNli2Jp
3RTYcUIimaQbDHSklzooYHSv0R4gPe2y1vxYCwW/N2v6fCXNeSpKna+lQL5K
lc0/SOCHStUlaj4F3jnrfUVIn04Y7c3MokDgOL+QBOmkojYfvjQKVOYVdimQ
rv2QolvzmoKhnacrd5Lm6AxaycZSIOL3zFiLdOJp39Q7zyn45MFm7iMd3yG7
hR1OgW6u8XkD0kEe/hUGTyj4H1sz03I=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Wk01A0UBnC0SKhEKRVRIi2WEiUeLUqLkhmyRLK+siRKKlH2kK2SJVSW
JL1EzDCMfZc9y9gZRmH+KSlS3nmfc+6553fO/XA/3StpcU3PmoeLiyubU//3
2Jj/k4+PDf9nEgNiuX3QzscGE/NUcdtJHLyXG9y5SMXDGPUNVJ5JtIhsviRS
QoXUrxiBmMQJJHffMMsIpEJ62nZbqfoELrOHXxkaUXGlSDhbvu8L3sRUVLUr
UvFembtt5N4XDMqeet8vRAVJbYV9r8QXFNXv4lOZo8CLN0hyQ/ln2P4SuPmC
RcHfwjmXp7afUaUuMT7QS0H9btd0PcHPSDntF17YRYHERhWWzodxlJW9G1lk
UKBXGiXmd2kcBwQfkG+MUGAs4ik1u2wcM+KlbqxpCtRXR6cmZLFQM6QSL7Oc
ivj380c9LrEgv4opuWwrFYb0804hfCzIHS9L0AMVkbSN9xooYzh4gU92xJIK
EXfeooO2YyhZ60EOeUSF4/MnF1tEx/B07FXN9kIq5Kok7cJrRyHb8kLBl6BC
XO4a1w2PUSxZdcDRVyYfgQNDa28rjIJ/eW7lomU+0tZ/jHg+yoSjJVu1NTkf
5cuaLvXEMSHtU7m2+3M+SnpvayuRmFjCkpqZViqAg366dAI/E06i0nyM5gLU
nf2Q+9prBIbO/mlXpWmo2RgyrKE2gu1bat+G36NhVXv2dN/PYYS1bd20R7UQ
qsrC13fcGMaah9MCDrGFeHxqnUbtvmEcE7gm3LZYiGZT81SbmSFs5LGZym0r
wrIXvxZ93IfA48CO5zpKB6t4TueP2hC4vxg1r82hw/B40Kwl1xBWauoX748v
ho/6OcXJ4EH4y1wPFuAvAcO67gAvaRBvlk8nUrRL4HF9tz/PpkGcEghMDq8u
gX6QxSExkwG8DAhN124tRWRsZoZSfh92yDYxbouWQUGM9wyN3IeTYy9K40zL
IKDUf6x1uhfhjVfCIibLkHRRkeexQi9wqemmm0gFDlH1FWnFDCiaRwobm1fg
6q2r3WtsGbjg+CNhJqMCuDipX7WaAbvZk1rK2pVIoSh2HrLuxra6LT0H/aug
vdmcki3RBd1AUs1iXxXGHGRXfq7rxHI3xoLVgWrYfQx6EnSrE5lPnHW/j1cj
hDalNdvegVlqg5MLuRZ06hurysRP0E+qOembVYvj7H6FdP1PUK+KurVMsA4T
G1dcrhP4BDMYS2pW18EtLVQ31bMd4pFqUys1G5DceK7/gHMbZJ9GlK5IbABX
xPDqy/JtuH0lte/c3wZo1BPe0UQrmiSWJr0q+gjJnvu0Xa6tiK/a5jej0YT3
297ZnfdvgbVDaLzX9hbc8XGgObxvglVMaO9F/RZkmc2vzNBpgmdt/RkVzlyy
X3ez70QjjmQ78i4fb4Fb7rWR0V2NKF+y/SPtbSvK+RL4EukNMO2DvbNSO1Ly
jsvt31EHcrHKIwnLdjSZBTYOd9Ui8vpl67LH7QiIm7peEVKLYKHzXgMz7ci0
+0bl/1WDqOwCD9O8Twi6+27Xht5qiHmKR2YodyJvl9JD1qdKfNvWpbHSohMn
/cwEHeMrIT1xa6leaCfIjisohdaVYJh0pMePdeKMDO1Pxq8KeC3mXRCN6kKz
0yEjd5kK5LDlmxS+dsOCdjNsd2oZ4h4UJf4UY0DpZ8wcy70M/fMHnr3UYuBw
tMFdnC1DQLhyWHwsA1O/+VKpM6XovDttv/tYD87Kei+GnS1F1HtmpU1oL+5+
8ncYXVcCGff9pWqUXnSYmCzGDxcjW/HeXWKgF/sOs4stY4sRPlKo+02hD/Xt
71opAsWo06oYvdzSh7Hvio6bFoqgY+t2Io9/AO114a+YPIXQ3Sf9LT97EA/k
plTT4qj46v5gRUTFIOyd5oWi7alYSLA1NegYxL6o829ED1ORuFuG8nZuEMrL
PI/Q+ykQzqrruo8hsINfmbnIUeDLrFrSVj2EhZYGxcbuXLx1OcGQqB9Gl4rz
2saQHIgJRzrQGcP4U6Ccp2ufg12Kp13PfBkGL7+6h/zpHGyXX/9bgW8EFlwt
OQsrciChmF8sd2IE5Cqd7A9B2UhpUGYNFI4A40Gs2Pj34I/LroqMZ8IrcM9S
r5lMrIqjFe/PYKLRVSztSkkmfNVGPcsLOHfKiirSFpKJiVc7Ql93MjGonVht
LJOJZEIlNXjNKA5UagrVWvwLxdGsyhbPUYgJUvdGTGcg2WSTfoPOGPZcNVjb
bZmO4Yt/Llrks+DMpSROJafihHpKjUA5Cxf/lamsOZQK+mWTC+kNLGyY2Bm2
RjIV4c0yY/QBFj6T9m4/xk4BTwCVdp7zB9gdObe3BafAzPTkzOZz41DWSbqv
15iM9ghVofqOcTx7FG3Y65YEi2WZ6/yrP0OHHi80pPoS39QSDMINJkB/FjL9
zDcOh0JEB+ysJyGofPqNyO8oRBs0tu3cMIWv17dI+U88hsavx0zFpCmY2oUV
ClpHwGxkdG8NNxt5zKWh3GvC4ORS69pxko1PDxICEwVDsCmF+lXJm40myeck
U92HMJD5fup3BhtpVgV5SZIB6OE/zktuZYM2OT3OEPGDxjKja6Zf2ZBPmo36
q+eDW4ONlAVeAlecbYdEBx7Ayq8x+scWAkcPa2Tx3roPRRUF2xp5Aq9INw4M
RXri68bm6XJNAje1h4X8tDzAxwym+Z4nsLGk33C52h183qMW02NCQLNJK/WE
lzvahxLKJ20JHHs5Uvy32g3TQaOaUi4EdMU9RlN0b+LG7Ka5k3cJ0FXtZnL/
uGKzo2GfiS+BpUcD8ze9dQHr5gr61hACZrc7x94GXEelXIlb/2MCa/K0avot
neHB3jzPiCWQpmFlXZznBJ/YDsOhFwSqj65uZk46gIshAHYqgdaOGI3nEvaI
9tzaIJdBYJWEXtP+MDuozvlIf8/i2Nqu9+nWf/Dl7HJWdS6BJX8Pul5+ZwPb
mZfz8/kE/CtldBbsrHHtQ1rFQTpnP6EhL3spK8RpGxVMlhIQWMiVcl9qiais
5Ei9SgKCQSQu8z9XIDLr8qKyhkBFV5xN/7Q52rRzL9TWE9jfp+1dymuOvbfv
lnU1EvBV+v3Ge58Z0s+W3k5rIRBo6FP9+t4l/OhnToq3E9gcZyn55o8xfvDZ
rH/ZQSAsxvCfTW5G0HnH7djeRWAOtIjj4oaIKwhf3ccgYOzjErRv0AA/phaH
vvYS4FVWOM8Tp4+dn3R3VvQTSDlEj+S7R0bVj53CDRz/E+N0QtGdDFnu3/Nt
HE/3PNhv7EpGj15AxQjHCxIW9Ew7MhwPG2PJAIHyPdxedgZkhCw4tx/hOHHd
IytRBTLu/NW+X8TxPq5GC2MmCa5PNOUqOfbN56akDZAwpHe0tYHj7UYvDv1i
kOBx32ZzL8dGH8obY1tIOCt1JGae4+J8WUk2nYSJIJqyyiCB58qFUh9jSOiW
jC7R4Pj78x1ae5+SsL4+4NQJjqcOJ0eEh5PA9/qVvj7Hf8uCXhsGkFBY1WHg
yvGFPYNFszdIWKp0qfUOx+aJxTJXnEmgkufOeHMc7L0uv8GehG9r7x2M4PiG
aofuawsSijut3kVzrNcdY7DejISAVBuJFxyHBPh5+xuRMCXsE/aaY8V0rfaf
ZBKefij48y/Humn+Z67qkvAfu9mnCA==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxV1Xk01AsbB3BbkZIllTdUowghMolUX3UlqbSMLdkj+xKTUjeabHGFe6Wk
oshYypItIs1YI1vWGcIYW8byq9StLrfeef98n3Oe85zPOd/z/fchufifdhMS
EBB4yt//3f+fj9isxpAkB61GSWyFr1U4gdJpjpGUjBZ8Dch9yWIEzmxRO08u
M4Jd0o2flQnzGLhtdkLE5jh40oOeNXLz6PwoNBVNt0Kru6dXWuYcWIfMHfwV
nWDZSVO31J5DuqeFlla+Gyp2eRQO1cxiwZ/ZRV30htqCw8jOE7OQnSlYYly/
ACdpi/ATozNI4xKZ3nYXEflE5JjWxRkY3uyzuX8rBMXpv/c2i8+gLMJ+xEY6
FA+b12YqZPBgHR5Btg+kIekttEmGPCznxjykCUVgTaLx5LveaRhVK+mwEmMg
VjVnQZKaRqXQZExMXBz0WE4vSgs/4F8fefnM3AQIeuhkDJ38ANsl2kITKQk9
jNW/se9OYcJO+pn8yG2Ioi3p0b4pWHgfM1vMu4O57V+yJscnoZXe0uLmkwrP
PVGurN2TsKW2TAg6P4C55Ma2y2MT+KjEvmvqkgaWr6kPLXECqd9eRdw2fowE
FSOtsvlxmJgmLYQXZOHDbNl1iaoxuMzwfnJ76UhTPu5odWEMv3ISXaSFcrBs
9tSe96pjyLnRFKHrkQfl0g2k2PtcxLLpQSbuhdAwf687Gj8K5i/qPjebIvTk
fXkfbj6K1E9Nmd9+FoHOmck0lBwFadX4oWOnihFmLVHXn8TBvsnqJdEVZTgQ
n0WJPD0CtSFZt/svy1A8tnuDAncYLoldm276lkNSNvdwctAwMg3O7TLsf4H3
8f48iQdDkN7st72g4iWia7UdyELvUfTHwaLSoCr0TjhbLKYPwlo+frxsRzVI
pcq73DCIfkNe9rW8V1CRFRsQDh9Ao46TuZglA371Q3N0BTZkelX2ytYwUCS+
e2vSaxaox7JHI7cx0Xm0NVrNlYXV1NW0iEUmXBOuftQt7keeQGCPQ3YdYkQE
9nGd+hAQul5OdE09Pp9USD4g1YecDZq6c6H1IGWVUyWYvSgqPVfgbN2A2TM6
0h0qvdhyV2xDsHgT/uYw0wyFepD+QWbh7qUm5O2bfHqguht3yMUG/eNN6HSj
+4Zd6sZ0VIbCo9dvoJVz7c/YT13oD199Z+liCxgxGrz9C+/wJFD/yraxNqic
CF4foNoJszTurUcn2+HULLSbOdkB9dw3W0Rr2kHfSkr2Du2Aj6eEQFJKB/At
Z+57cTsi+0aCdemd2HYkiCul3QZKvd1SslUXznl8j/ALakEeg2y0L64LvIft
8tuVWpCcpkp+y+S7qeiTflczHBR4nLsa3RDMTSjU0msGr0xXbUSgB74Ke2gD
q97g+0lCOi6zFxoRrS2Ujw0w17eeHOzuBWNlot/tsgak95LOrxLpQ/fwv/sL
rzbA3cVkQMK1D+KjcY5u4g24x+nsiFbqR89+UeFAnXqUbq18vfweC1fSZz8r
ZtaC+u588K4mFipU5hR9qbWw1y6zx1cWMmV9a1xMaqGVe7Bx7CQb5P/os/Vm
mdBZORHpsXwAYbSJm3vAxFnj6FU6XoNgaQpn3xBgQO4oz+978iCSR6vkN5S/
Rmbrhvq7zEHoybks3+HzGj8+V7+0l3uPoEvFskcGaxAlkhIrXP8eOcc2n+2u
f4VrPB45bc0w6NnddoK1VTj1XGak5QgHSYbCR7aYV6A8npX2wo4DmSeq0dGK
FWhLvrMz0Z+DVaZbPGhzLxClVM4WSeZg4y0BsmbCC4xYapssDXNQe+Wr/TZ2
Oc6Ljr5R8R+F1bYFobnIMozrWZQkXeeCHEYv8NUrgZrn9SbhP7n4eI85zpEt
gbDj2ctOj7koqi0tK14oRrfNWvYIkwvfDyvbfYqLsfzPnNpvgmPYXFBfvo5c
jK7wyyV3QscQXOmsvv/wc9wb+uQ24zkOkX9SPn01K8RBlWk1/ZBxrAwUNlde
XwjNGquVATfHIXuyKnVirADuvIULj+njsBF9fksqrADVpis/reKOAzs0Nw1U
5UP6lqeSnOUE9g7/zHt6/BkU4h963NKYhO/ZKC92Yy5cuZz2G1lT2HJgx2Ne
YxaUW6WO0wqn8PzF9hHf/Cyco/uuDaycgnRIN0n1dhZOyt1vVG+bgugSzRou
Wehyw+V/FqYwzZn8MiWQBV2nS1dI+IDoL7S36Yef4EZs3dWfbz+gmWWvLv0t
A3VxeVKUumlknKi5J9T4CBU+svdGbGfAkOMZxLelwi914oyLL/9vmA9Si8/f
QTr7ryQKaQ6K7oWGHf5JYK6/cNrr2Ry8dx7w+effRFyXzHsRJj6PyO+uEj8c
42HM2P2WdWIe1gWzPOOLf0Al94Cic8w81qsyYxpbb8IhTEnCq2Qe+y10hyfy
oxBOv7huGWseCdtml1sWRsDRR/+B59d5TFQZTK//cQOc3v4VN1YRyPCwDXeO
p6HlYVbJIokA45iSS5/WdfTFHwly1yWQujFQU0cqFMbNxHYhYwL5ploGJR1X
oZoemhZwmoCo0tmX2p0hOBpHsY1wIDD82ecrVfEySnYaZFh6Edit4bK8yy8Y
RtoLaVZUAmkNBWaZP6koHcj+y/wagZYRk9W/ngeBrBZ0WC+KgGXIRaNIt0C4
i/rZ9t0i0PxdUmzP4QuIlL95JiCZgPmSoAlVNQBus4t+xx8QiCsN9ug29YPW
QclTBhkEjNc+GYqK8oH+XK+2Rg4BxahBvTKGF7aOaxeezifwc3ZRKk/PE5a6
VBPRYn6/+3xdfZs7Hrzq9H1TTiBHwOjSQafzOPVZvZb3kkA06V5LHckNm1Ts
J+VeE1iZoLZm7cg56FBIya9qCYRra1RYNrjAKaA5dF0jP78udrNkrTNCWjxT
fm8mEOxj43TupRN6ft+y8WIrATNyp/SObEccD7GyD+kgcJr2a4D9zh5HJyLn
9ncR8NmMAUklO5w7KH/nWQ8Ba1q8q0W2LWoTmVzlfn6/9+Fl65TPoFbszfVT
bAIzliLxnHfWYP6RvZYySKCQXBgikWKFZB3ReschAo2CqVfVrS3BThLq0Rgh
ELTiwdmFvRZwYCzLJPNNMVE1265vgSFvsYC9fLPHr/i56lqgIXa1yDG+HQ/J
Wg+oWWDdV01Zb743xoam9ayzAI1r0JvD97tOj0qhTxTUX40ZVuIQkLBOqDlI
p0CImuKnznd3u8yrR48pKFWuXNLh2/lQwuSvBxQwvuisOcD3bedNlcwkCoqW
pNQc+c6tPEWh0Chw9BT8kcq3tKm6TIEdBeKDfl4ZfB/Nz0/ZaEOBxvDf7Fy+
f7OZN06kUGDdaFNSwffTOnuJS2YUPLILOtHH96H2jxan9SnwT6l/PsS3MWwF
WnUpyGeQZSb4jg2dazfZQcFXYWrbAt/bnx3ugQoF1buMVRf5zqv2FK8hUeBH
20UTGiVQNuLtsk+RAu9AU9YKvh3oi4Ov5CiQvn1NU5rv0seNwZCl4L/JEDNb

      "]]}}, LineBox[{{0, 1.}, {1., 0}}], 
   {Arrowheads[0.03], ArrowBox[{{0.5, 0.6}, {0.45, 0.55}}]}},
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->{True, True, True, True},
  FrameLabel->{{
     FormBox[
     "\"Infected \
(\\!\\(\\*\\nStyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\\))\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
      RowBox[{"\"Susceptible \"", "(", "S", ")"}], TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  GridLines->Automatic,
  GridLinesStyle->Directive[
    GrayLevel[0.5], 
    Dashing[{0, Small}]],
  PlotRange->{{0., 1.}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.565649906072069*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "This", " ", "is", " ", "example", " ", "of", " ", "Tunnel", " ", "Diode", 
    " ", "Example"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"eq1", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", "*", " ", 
       RowBox[{"s", "[", "t", "]"}], "*", 
       FractionBox[
        RowBox[{"i", "[", "t", "]"}], "n"]}], "+", 
      RowBox[{"\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"n", "-", 
         RowBox[{"s", "[", "t", "]"}], "-", 
         RowBox[{"i", "[", "t", "]"}]}], ")"}]}]}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"eq2", "=", 
     RowBox[{
      RowBox[{"\[Beta]", "*", 
       RowBox[{"s", "[", "t", "]"}], "*", 
       FractionBox[
        RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
      RowBox[{"\[Gamma]", "*", 
       RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Beta]", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Gamma]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Nu]", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"R0", "=", 
    RowBox[{"N", "[", 
     FractionBox["\[Beta]", "\[Gamma]"], "]"}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"St", "=", 
     FractionBox["n", "R0"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    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"}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "3", "]"}], "=", "0.7"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "3", "]"}], "=", "0.3"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "3", "]"}], "=", "0.0"}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "4", "]"}], "=", "0.6"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "4", "]"}], "=", "0.4"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "4", "]"}], "=", "0.0"}], ";"}], 
   "\[IndentingNewLine]", "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"szero", "[", "5", "]"}], "=", "0.5"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"izero", "[", "5", "]"}], "=", "0.5"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"rzero", "[", "5", "]"}], "=", "0.0"}], ";"}], "\n", 
   "\[IndentingNewLine]", 
   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[{"s", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"szero", "[", "k", "]"}]}], ",", 
          RowBox[{
           RowBox[{"i", "[", "0", "]"}], "\[Equal]", 
           RowBox[{"izero", "[", "k", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"s", ",", "i"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "tf"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "0", ",", "num"}], "}"}]}], "]"}], "\n", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pl", "[", "k_", "]"}], ":=", 
    RowBox[{"ParametricPlot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"s", "[", "t", "]"}], ",", 
          RowBox[{"i", "[", "t", "]"}]}], "}"}], "/.", 
        RowBox[{"sol", "[", "k", "]"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], 
   "\[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[{"pic1", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"pls", ",", "line", ",", "arrow", ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.0", ",", "1.0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.0", ",", "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 (\!\(\*\n\
StyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\))\>\"", ",", "\"\<\>\""}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\"\<Susceptible \>\"", "[", "S", "]"}], ",", "\"\<\>\""}],
           "}"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "\n", 
   "\n"}]}]], "Input",
 CellChangeTimes->{{3.565554774177836*^9, 3.5655548263928223`*^9}, 
   3.5655549318198524`*^9, 3.5655549690719833`*^9, 3.5655550007557955`*^9, {
   3.5655550510096693`*^9, 3.565555168414385*^9}, {3.5656498152898765`*^9, 
   3.565649897085555*^9}, {3.565649975367032*^9, 3.565649982071416*^9}, {
   3.565656342562215*^9, 3.5656563493706045`*^9}, {3.565719351200489*^9, 
   3.565719354623685*^9}}],

Cell[BoxData["0.2`"], "Output",
 CellChangeTimes->{3.5656499826074467`*^9, 3.5656563505386715`*^9, 
  3.565719356409787*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQDQEf7BlQwCh/lD/KJ4YPALDCP24=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0wk0VdsfB3BERb0myk2RVJJbpp4h1fkWr0EqVF4SoUH0jye9SkgaEOKl
W5QoMnRDhotrSoMhyVSKCpUy3Idz7iW3R4b8991r7XXWZ+219lrn9/3uxQf/
2nVERkpKKpVsybeuVrJoxN6WrCI8/sjfkFNDo3rgP+9gryIY2U0g8RUNxZGk
23lbihB0ys8v6SWNT/9zVHj3XyE2qsn/nV9Fg73nQERFfSHkgmz9G1/QmJk9
T/FHaiFSR92MVlXS2N9dEqtkVwj1+4rcYxU0LC3YrTL6hXDKT33AKyf3nS68
patQiEOzN8yVI9Y+1Ocd21EA9vXx1y5lNDbLbJc3Ly1AvuJ48cvnNCy2HhzV
iilAq7lD7hri0Tn8fy1PFGBid/OuNc+Io7au2aJZgNNWLU+qntJw9HzaoSZd
AK6G9XMn4lVLRUoGbXxk5feskyaWv1LjFVjAR3K/nVLGExrXPbfekefwkVBi
pe1M7Jaxz6TOk48nv867qBKz5w32vdrGR5g4Iq6jlIbyDhV7meV8nA1a9ZRH
LM0a1To5iY+T0iszw4iv1h2TUm3Px5mlDjv/R2xlv+nKxON8hKRdu7yH+HOa
q5tKbD4SrOIMNxPXp6dt9TiTj8oGm80biPkWzOuhPfkQd1+6Y0a84oTCwyKD
fHRny6nsIO7K6PPhzSLnbX89cCI+YWbS+1WYh85V17R9iZl5SdwtdXm4p2wZ
Fkf8/I8xp470PMycEfToBbFtt+LjvLA8qARp+A0Tz5lX7Fbinof0/ikt+uR/
nYVPZg9tzcPDivk53sQPQr8fPKqVB7NrawXFxBEay6ZOn5qHpAjuIQUyz4t2
czM7BbnofcbMcCHuNZSRHajKxVSXtjdPiMNvXi/S4+ZCmLzp5hKSl/Yuj4Ck
K7mIKB/Z+A/xP5vXyFi456J5sPaZNMk3cEe8WH1bLkqOR4z4Epdt3CDHZudi
SByy8QLpR+aNMuodw8OlsT/VZ5D+dE9dVOXdwENuQ5RTInHuzG36Zjk8WJfy
0ltI/wqPNfh7n+LhW3VtZCDpZ1XotKrGvTy4BRcHrCT9Zb35WHHQlIeYQR/9
aNJvHc/+jFlS5Dz63KvdpP/VkSpSOh058KkrXahcTWO3R+yHsy9ywG2zu51J
3kvnzwN9dyJy4Lb29HO1etKPZVmXpdVy0H1RvXZBA40zrs+i10vlIE4l4YPa
a5Kf6+EHj75l49BB1dtGjTRSjvg7aXGzsd19kmZaM8nv3nW3AMNspP9r8+jd
e5I/W5BhPT8bIQ59frIfaXhM9FpzR7Kwcqgr7mQrjeivFeKW8Cwcvd6YGdFO
5m++Sf45LxPRM87qt3+l4aSpMOR6LhNRLxbsNe6gsbfJlH1sayYa+Ow1g100
1BxXvw368giVsrOX3+ujcTi61lZqDnGQ8cOCIRqtp9j7/ELSsW533THLnzTS
pi3NSt+bDoeKc6nfRmj81voiWlcrHU0ljtsX/KKhdMf2q+6rNLjHOdzJlWVg
y2uSnTQnDfeD82O85zBQS7PP88nmYtW6+VwjJQaTru7dlxDEhZnGBozPJR4W
M3P2c/FO26Ymaj4DedaXL82TudD5+LatWZ2B/sJZJTUuD5BhxTOu1GUgWKxi
/nNpKnx4a1aH6zNg3ZtsqyqdityD8rxdqxnUs+XH/D6lwP62lVK3EYN5n+2u
CqJTkNHOOqpKMUCko6XH9BQ4BgQavNjO4H3T7C3t0slQsO5Y9PIYgxMGbY3j
ivehYeow9ug4g7Uza2sr/ktEVfgn+xueDNgGHw+XfEyEoH1n8EFvBmWJ4k1G
CYn4km02MMmXQXjYmzR73USktCzutQ1l0HhLR7zwzwTImZ19PIPLwMPJQH9e
SDw2vYs36H/IwNMkYYWzXTyK0p8Gvkln4PRPUaF4RTwEfj4cThYDYz+3jNG6
OKx/foE1t4DBoy2ebifnx0H5/mErhRcMfFw4zimlsdB31y1P6SDzyARf2eQW
WOamLL8uBr3bUos/zL4FJe3iD1YCBjXfX/Ga+2IQdvlT1FAvA3OftPGQhBhM
0psdj+8Muno2n82fHoOi4/dbsqSEsHlzs08gugnj5emnpFWFsOa8qtD/wgGr
b8i/S02IT6LGWpNSDq78+HjppboQfucu7vO9w8HmgpTg8KVCTNtKW6bbcZC7
/IOO3EohsiOOjxQ1XccN/eTkSlMhan/Gp5i0RGFugIDltVcIS9OZfjoK1+Bs
mZ3OjhCieV1jm7IgFDsMJ2c9jBRC66yMQVdpKEwjpt/SvCaERkRvtPhGKJZZ
TFFR5QhRuvDv1vfmoXiKJ01jt4RYOOHunJx8BXVGi8TByUK4/XLcOXQiBI0u
K2Iri4VYukpc2mkShM5Im9SBDiH0QuX5DocvIK51yhTzLiG8p2izfTZfwB8T
l5ZwuoXQXs1BldYFrHMdi9LtEaJn7efBX0wgOMLVe/YJhVDLeWRR4xsIlyqR
wGtYiIp19RYL1p5HRZLM73nTRIi/HB/WruCPpW5tetk6Imw4yQ8Wxp1GUJ1C
Ra+rCBwZrwUnuR4okltiURIpQuI+wQ8FucM4Z/NTZzRThDOTBmxPa9lD2UFh
/5JKEfjXvQeab9qgL57Xq98kQvaZvqyypi1wTmofb/0qQlZ32dpcM6BdXtfa
sVeE7u6JGsE8Q4yz6n+J+0Wwj4m+G3CFjb/3R+y++EOEemnFcldVDdxvfhMQ
PCyCyw1RJSuIhehqu4HmERFKwqqd7WfMAq/yN7f9YyI4bTuvoZMoBw9d08kX
x0XQjG7M9tMfo1rWhJ63+CXCdt0o9dOXv1PV/Zt8a4jzc7+aj8r2UGtd7JJW
TYgQJPY6Em7fTt0c0FPxIA70fGviO95EPRk0brpFPOXAxjlX6+qo4116L4uI
jYIyXV+FllPu3ILJDcTK9ZcGtfYWUz5UbPdn4vDDZv4WOjnU2w2DAT3EmuJr
x8/FpFL/WQ9b9ROr+4Y1dofdpf5c8PvRH8Q7/RkneoRD+dNp3GHibZX/LvPs
CaOUpLq+jRAbFq9OUzW5SHm97gwfI3ZfLCv6q/0MpZj5LXacWBBuGN+j6UXd
7Rw+9IvYOsD40jntI9RDxZ8dEr+8UG1YeNKBStYLMZ0gXjzsf9d7+25K61up
r8R5D54KrwZaUJ/1lJIl/nrIcb0DtZEy8ewqk1j3zdjY2x1G1Lsk4/cSH5h8
b9HOipXUJwf1TolZDbZdOcpLKB3zm4zEn+utRAsSWVQEy2lQ4r4tv91bnTWL
+uP2wiGJs36/ZNPgMoUKfNn3U2LZdRr3+8sn1pePlY1KvMi8vNqv5cd6FV7k
mMTTpWZV5kUOrA/dbzgucVtWU7+LJr3+/6RubJE=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl0gk4VOsfB3BLCiEqRCmKSqWyXNTN+Uq2ilCWtMhVslQk7dEVZYSyZE3q
Ngo1SkMk2c2MUdG9pWiKQpYzYwxXEW78zzz/8zzneZ/Pc867/H7vV8cneKev
lISExH3qFY83M8UPif+PjVCJt8ulp5NYY2cSHx3cCP8Tmsl1qSQ+v87oe2bT
iBVsQ1XbZBIyNq2M3n+5qOmz1HmQSOJ+hp5tdyMXBU53pJcmkPix9PzbpXe5
IN96W7nGk/ip/GJNgDMXWjEumopxJDx9j6wPXsnFDltGNe8qCZYwP6lUgouj
PJOhihgSSXQ3AfGxAdtn8gOKaSQisxPbZhU1wJUbJayMJuGTFj2qHNcAnb5r
Fp+vkHAaCe72PNQAA5+sRUqUJc1oFl0WDfjXHI67LpP47dvMnAfqDSADFZIZ
USRywvWLCoc5SBhLfaRGeWa0vtz3Vxxohhz0SYkkYdfvZHs6l4PZ546f1KU8
cMBHzvQSBx9MjB9yLlH1bCgaMdrHwZWh7S/PU17lQM89asaB9s89WZaUbY6m
1nfN5YCZLvFNnbLc8UFByiAbWNgeKEHZ1EC5NvIlG6zkxNHxCBKOzr7fGLls
SFkM7ZhBfY+wZ/ycE8WGJmFLLKE8VBZIf3yADaMsnYRtlIv+doimbWIj1FNF
IZryp6oJ+5sabMy4eO/Pf8Tzi7QSekdZUFQKfLqGOv8zntevIy0s8NSHTqZT
Xmrmb76qiAU7h5PxKlT9vZacHu1EFs7nFXFvUiYfLnzkFMTCaHb/mBHVv/ta
u01LHViwvLer/yPl1M1H9F1XU+utNfRPoPptXG29Vl+eBYWcDU561H0dDpBT
PMOth1ug1E4Z6j6HKpebivLqccvFcvEI5fPKC+dm0+rh7ey1fyyWxIXTHckZ
dvUw+u/AKUUqL7QbbQk9K+ph+E7j7vprJHbmT4sOy1L/rx4Pz6by5fh6VazM
yzr0WFq29FL5U+7xXLSUUYfNDyNjNlH5fC6rUBcSX4f2rBE3BSq/jnte/cx3
qsNl5a4F0WnU+QL1exMM65D2+95rszOovOWf/St/Xh2W87v7zLOoPK1StAxq
q4V5TFDY11skwhgHaZovatGhcn7JjdskhO+bDoxl10JJS35wAZ1E091p2uZD
teiNV7KgPyAxP71Fbc5IDWqJH9KNDKr+i+kdnS01KH2yzH3yEYlafvRnfmkN
rr6x7b5URGJX/ZDE7Qs1sH23NkmlgsRdhlraxVk1sErj0xOqqPXn8U4Mv6+G
QZTq3+q11P1VnrFyyK6GS6Z7qw2HxCFp3VIjg2r0fmepzf+HxLklE9cLXapg
KSQiOt5R/Wtll7EWVuHtfrUXzA8keAVFnRt7K6EeJCd54jOJ5VUPguzCKmHe
Ff3QrZ/EioYbk80FFdAsc/vjqiQf3rRywcwlL7A3onjrmxl8NKyf5dw+WI4v
DinVC2X5SAo1DZSvLkf53j/+aVDi47HkMdfD3uVgPjoz6b+Ij40X8xXm5z1H
YbKL3VNzPuK9ku3qt5RB/ck2T9dNfLAV5FWrFpShlb1FbRx8bL6ywGPm4DMQ
qQHaznZ8lM75NRWW+Qzt4Qd9Dd35YD7Q9hgZKYVfvX/Tw5N8LAnN+iuhtASb
zBRS7c7ysdjrayojuQQ91e5z+y7wsW/L81bp4BI8t5DuNIjiw6b9QrbfyhLo
WkXXtCXx0dq8rGMo+ykyhfoyqYV81NF5r0puFMPKcaRlwwAfh5uDI87nMWG1
XDdUcYgPRt2o6uFYJr7q/P2xc4QP0YCZX+QxJt78CHkVP8nHk8I9fdtNmLCv
1eCR8gJMSXSZa7CeQHfZHF6pvgBxB+WHmG2FqNP62ePiJ4DPjuw1T8sLML7G
7InqEQFe/uW89Vx8ASIr9SbbggTYVHxaPdarAGNh54f3nxZgRqhhVbx0AXKK
aJHeVwTwTW7xlHVhoFm5eJ1VjgDN5WHGIeMPsL92VebWDgE4+TXBHWF5SN6/
W3uoU4CvCm40E488nJKS35/aI8DWNp8FXMM8vFjg0vVpQIDqO5ayuX25oO1u
ids9KcC+115cQ/dcbKukKSosGIAyI3jGeuI+ZNzYOZbOA0g3WqRibZaD5Olc
SwnXARzSH9MeVc0B3Z1dU+kxgPITeo1d3+mYal7lZXRgAM8jFrsFFtMRvrWi
RDJoAOPLvoevMKbD4+h8DdO4AXS7ly+XtrgLtWtTFp31A4jgC3YYim6j/UWt
w3sDIUwsDh3l8TOwrvD4TvZ6IWKWZt1oqstAo6bRwmJjIRpjLkhKZWWAZ2X6
g7ZBiMXz8hQMHDJQtHYrR81GCFQUeEcw07HajPWUu1eIgK0J09W0NNh7lN0N
pwkxdXljefeBFGS2n91JtFHrTa68r8tIRMRyA+t3PCHMlBsit1xPxEjV4ce+
7UJUODZ2poQkYnC1y3BklxDG2Qc+NJknotBafdedAWo/Jdbg4hsJmNEjn+4t
MQiPnIPyKv3XEOFzs1Jx+SAk5PaxNd/HQqe36oN34CDkzo3eP5N1BbD0tea3
DuJD+y2tpXZh+Phm+zYrPRHYzBSux5xQ6Gl8sak/KMKuHf8GqXz1x9E1W8zu
XBdhUeREfWWJN2o8iwV3H4mg0+Hr1Ex3h7SX5G0ljggZEyVXPxc4Qu67R/Hx
DyIw7ymF3JO2Rs+fDuu0u0WImu8ZU7BkI6SwzverQAS7vjvhe9YZIlc+7yZj
WARLvyu99lYrEGB1uW7RqAjGF98f9Du1GPYF9H6ZcRGePvJLex01HxE60s83
TopwJX1hzXSFPJivrAbL/hPhxz2TuNoESVinVnxk/hLhNzn5zafKx4giRl3V
sSkR2n3murrKiIgjsmXr+ijzYunKOz59I27v//Vh47QIp9IvG7/f8pk446TX
do7yj5syy/Ri3hL3eppC6ZRVv6V8pP3iEmlSk401lFVuKduddKwhclc3z3ov
nv+g1t76eAnRK5hS6KIsT1MKOTZVQOw9+4UtoDxhJDv79U86cXju2V/DlCNk
A0y0YjOJmsePfx+lvPOl3bPVO5MIjQlNv3HKnt43RSUV0YSc1K1jk5QXZfZv
//70IhHAKxv8j3KoxsjInRknCcc2re5flJM/DrFTvwYSKVl3YqYo+8zpT2my
8CEO5WdKT1M+a+B2oXXYgzCwf+kiNiP8W1KnrjOx1sI5TuwLs+fVNy22IVpu
mTDFXqFU4s6Z+J2Qk3veKDbvxMNTKzuMiOLtPZ/ELtEd6qzyX0lwOlz6xN5m
ykheSWgTcR5GIrFVpz6xQlJUCa5043exHcY6fOMcFYjTyhY/xf5y3S/+/l5p
wiq5YFzsNwOxm4b3TVt4zm2dELt/RNM31H/c4n8KO0Yj
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd0Qk01GsfB/Ch5RIl3C5ZypZJ27WUpZf/tyi3BbnjTSn71iUvSlKk6JZL
bqSblFKkRSNUCCWyNVnGzNhCIpP+Y8xoqBQK7999znnOcz7nOc/y+321vUMY
ftI0Gi2bmrOr/7+DhMm/oxUp0dXr23xIaK8rU/ug1Irn7eYDPl4kQpNYhU2f
WjA8QHgJXEmsdPIf+09hC454LN3XvY9ER9ycqep/WqCePZY+vJdEYvalhJNH
WqDPaHEN201i4tP45xTTFjzT5St+cCJh4DRjLFRpwevVShHhDBLxxp5lYRM8
yCvcouv9TsLsywZzozc8JOqfqBnZRaL35Vsv7ec85N+/Jup2IPFjcmDQ5iYP
PM73TXx7Egr9naeuxPJgx03znU85rd62a5kvDyf4gd9s7Ugsnld+r8OWhw0z
AenZO0mkrurMqDTgoWylcESdcm7EjpAueR6ejmRmFewgUR+UwtUd4YJeEOnk
TjnskeHRG61cfHzmkUenvGo49+ftJVxMBVs4y1EOZcV56l7jwnB45IsMZeb3
LYvWnuLi2w0zIy3KAv2hFj8fLtyVsp44Uk682+XL/o0Lh5WvjdIpmxYXRPqs
4eJx1Z+7flA+c16mka7IRVilY/lR6n8r2mhL14s5iJYe1JOl6qHJHRCFPeHg
4SDNtJCy21Rm5KJYDlTVmTeOUPV3F7iYzrHj4Kla02J7ql/2nosu/K7CQQ0i
CEuqnypW2ybG+c3w5D/r2uxIIuPIhffj+c0o38e85Eb132ZD6AvHqGbEfGRo
J1P5ON8MlaJta0bxZq5hB5Wf/LHTKvOXNIPw+OuYMZXvb/YeEd58NiwHlC4a
UPkfUiZH1E+ysWrzzbYaF6o/Ki/HI+zYcHNqNzy8n4Qq8VZ/pTobsafzVRZ4
kDi9VLPldFkTRJdklT97Uu/1R1mtSWgCkXlKVuJNQv95dC7dpQkWzgfalx0g
sYl7MVxpshG7luevZASQsEg430RrbMTCg/7BaQdJ3NUKVMH1RtiadrOdQ0m4
0pNi7qMRvmPX67IiScyfT/rTzzVgiN6X5hZNor+Tr/eXWwP06vjuBjEkLsRx
2MZGDfi7rbtfcpbK46zs54Nd9ZBzsd1nfJEEI+2b/N619SgN6qfnpZJIVg8f
iZ55Baurln+bXyXBaRg5Ps57hViTHdIxmST2lRpoCiNeoXRen2NDAQmdS5Pu
OSwWfO2mD1QXkvAd0pHzuc6C9RLm5KsSEteepj/+3yEWFseVJdBekCg9kZId
qsHCpuiYVCUedb9FSKzm0ZfYwchjRrSTqO0u2LXN/iUM5SodhF0kqq1F9yr0
XmKlFIsxyqfqVXtTm9hWhwQhn5Y0RsI2vLD4ilkd/CwrYhs0BBjIzI2WlatF
U/uKvb3aAiyQKWvII2sg99Mc7+/6Ahz5o9IvtboG8mqWDEcjAeRtFqaviarB
O8/IME9bAZSzZM79T1INP6eQTaOHBHDz7j7HeV+FssDgnNMRAijsyZkOqanC
jP5ktFq0AD07WPvtsqtQ3xPMcY0XwGzdU4USnyoEfnyaQb8pwHj4Z8Vtghco
+K9mcDFbgOQyG+HYaCW0XHuTzFoF2C+7/L1GeSV8Tj7b+bxTgKa+Ow2ZcZUI
L9M2aH0vwJsZjbpyjUq4leYnrZgU4NGc/AoT+woUj34e2UUfhLHR9O20inLs
pPML1P4cRPzx8+Z6fWXwkGnV4ccPwkGU2F9VWIYVn676MZMGsUjXfCkzvgyb
86t+sUofRK9O/Ma9JtR+8HK7gEeDsFQ9F6z5dykuHqswbO4bxOu0g7Jvd5Qg
Tljzwt1SiI5PLFnRRBF+mdQ6OddaiOLq1HUZr4ugE7nY8v5vQqhd8e6NLy6C
qcJ0koQhRNs71n65w0XQiDrqHxwgRA7L3+zxcCGcYzclrL4sRG/15CtjyWO8
msd28f5InS/ZnnNG9RFUfS/92v5ZCAn3mGvRj4e4fB/9WyeEmH/9uJdS/0Os
nnvyudbcIQQ2uentZT7E1qC3j58tHYLjH00B0niIPWVa+2O3DMF6YW+pdn8+
Fn9Pv6x7ZQi0LrtTqz7kQqAipfgkYwh+8tvVjIpy4a7IsdqaPYTHUStqkv/M
RQhvyVWX/CFo3+m9zdDNxfe485UutUNQ0egM7/Fn4qdPGT2FkiFoJZoEREzl
YI+6m+UTGxFeeap2sn3v4qt5Me2PdyJsZn+4pTSTheDaukMVAyIEjKmY9vRn
oYMRGK0oFGH49r0VHbVZyN6Q6ps3KgKfx+91SczCP4gMK5cWw32oV+OKGrXP
qr5mpifGOrtbfczNmcCuZNtsXzFYtxaU63hmQNpKpfDoGzE0WRnK5tNp8Fc0
NbbuE8N8d9I657Y0vNj9flD2vRh3S3sjK5hp8Ev/dW7SkBgqATfiDu5NA7M6
blXAhBgns67XGZRcRoyMZDTol2FMZm+dqo9NRZBNTXCp/TC2/5SpunHbP1hr
77/0zaNhMAKub70+JxletyNXSjM+ot7sXm/npjMQ62mbNFZ/RJ6v8he2TRQS
91g2PdeUwGuDTUhN3SEcOHTLaWq/BE9fHjNb03MAqYpahl/jJSjaKu+vTPdE
Zkm8gvMDCV7E3dHqWLUb0sIiL9laCVbpW4REJdphwJx5w71DgooUQYhGpjXk
0y5bSL2XwG77gcndMeZolYpa5iaSwGTewJItlwxh5ed8p3ZUgoW7XD7nFa/A
ab1sx69jEgTsCD+yntCEcX1Rvu6EBL/f1cmJX6QM9vMmzvbvEkS2iyIXy8ji
tcZ9ccEPCWjW89oNhTRYb3TUrZiSQDAsb/SX+lfiJselNGhagh6Nwx7mT4eJ
5hwf8QDlJaGHBz/oDRAWS46HYkaC2LlrM0MDuokFyt5VxykH5WZ7PODwiBr/
NIc7lEsuMoMbrVhEkpSXazVlbtXhLZ4XKog1UYZy7ZSZRs3D+Q+KiEv3nKb5
lJUViteeWphLmCukCEWUbyU41L1bf4vQ9b06M0q5VS+pU1B4hXgS+GviV8oM
pzELuw0XiOykgsMTlGktRW9Y/WcJ4ZcPV79TzggZluFcOUHUbOCP/6D8s2tH
vt+6MCL7XCE5RVnd4Vt630gAYfOt+fI05eWlzXOYc72IKtWi+TOUj632PyJF
20OUynm7zPrLyebANpoDoZ+Slzxrl9xPwxpVNsRZC4PHs1ZaEOT4hNxITMz0
N8664SW7PDPXiHiY4NUza9GnZY7rr9GJenGqYNZnEiOqlA4tJx4psyWzfmSd
PGpi8zOxs+vbl1mL6WLBmrlyhNcZpW//uunByAhzHnG+7MX4rK1z55vlhEkR
/wcvZjKk
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1Hk41NsfB3BkuZWQlDUx1tIiLZb0fVOyhIsKFa2WW7dEl5CUJVdESlEk
QkLLDYkyKNtNKtlmbOlK35kxxmhI9tLv63ee5zznef1zzvm8z+c56kd9d3mJ
CAkJZVFzbt3w/0Hidurc6IJdlxRrhz6JYNZj3Us+Xfi9rUr+7zUkFPOls16Z
d4HGSrUZXkXivqZ/3rZlXZiw1ONG65II0DvxTnqwE+P+Dt7W2iQ0+HvTtas6
4blzufFGTRLT50SeRCd3It9vcVGMGokdB7M+qJl34tkuL7NhVRJ/T9CE9st3
wmK7/nTYchKhJ4WfdQ91oKp5qZuhCgkDk97Q7LoObNpn2bdUmYT28fihwrQO
FJp8W6CsRKJHuCtFzL8DRJuNi6UiCYZk8uLMnR2QDTpvfkuBhEPSNV4YrQOP
RJ1tF1Fe5aj6PGe6HU4iXRN58iRc10lISrW1o0Z+YaM35T9OOlwof9SOCj7f
0YYyz3wm+3FUO2Z1w+c7UPbnSUn3HWjHjoDXoUGUEzMTXPcatsNvX+L6GsqB
gaKysovbkV9WXLyWOs8oJ525aJAJC5WaaxWU48IajW3/ZeKMspPLCeq++10l
2hvuMnHSaSzRhKonPuSleWwIE257t7espOpdYOQtF+vMhGJVULYRlccz4372
G30mesx8U7ypvFzFuA7Wkkw4/eyxKqbyvFLhxxfnMtCQGrBDlcr7jUess2gd
Ayn0Aa08dRJnfxlrmWUyICM6fN5eg4RM0uWxslAGcg4f7pPRIuF93/bw6X0M
XCQO6g9R75u2h37m1hIGdL2qnMX0SIg0wU1spA2cRdljRlR/hOVscij40IZL
P9IURtaT8Fyt01lyuQ3d9teYARtJZFn8zFt8vA0aRhXhsoYkMi5OzuRZtSHN
ka5225TE1u+KDyPF2pDHKExvtqbyXB9fx77YipgRbqGiHYmQC8LbFnq2orS+
uuOsAwmdnFnbYxat2N09NXnehcRx4k58vVgr/pFP2BPvRfWXxOsXMnEt0FOZ
zY86TtVHk4jinmxBtcnjvxJ9qPwvpQqP/d6CZfPmreg/Q2K5ufujh0takLIj
wCjkEgmx8vXiYXebcXmL6JBfPJVHIm1rQngz8guyWkITSTj3ymh2HmnGYGVq
UWsaVU/bUzslrWb0+bY9OVlE4t7zYs8U9yYo7C9rEXlO3d/04cadtCbYHul0
fVRBgmzOrPyT+wH3+ExDgzckHnQxy7+f+YDN931lpD6TuODr82npzUZEKt3U
XMshYfzt7A/tQ42g/bNV5iCfxKHTnPBM3UZMv0004k+S2FZukNtQ8R7VpWeO
lsmysOpFFfu/gXcY+bpvotOaheTWiFd+Lm8xqjm6muHAQs2IV8YTrbew3u9U
3+3CguGKeeo2Yw14r5RrNN+LhQfTk4cTkxvQPbMmgRXBwtLqGT337jc4ZXln
y5FKFn5zi99hGVAPUmaj5EQdC+xjBk2z1vXQbSl+nPSeBV1Rn2vzVetRE8W6
yvnIQuUUYbmk4TUSRt3MeqdZUI8ocOXQXqNI4VbwlDEbp1kymWLsOnhUDF/x
MWdDh2bmrFFdh2P5pf+xrdlovRaYHJ5eB4NSi+wvrmx8f3a8b8KlDgGfIwW/
BbKh3cTWbXxfC2mbK9uGnrJBFFTeK66twSERk0TLtRw4GMtp3PhYBVO5/cHi
mzlIDrXwaX1ZBUWdZaL1WzmYuCF80CK7ClIbFAps7DnQvKXT8PJ4FaKUtn7c
dZKD6IJrVRLjr9Dn7WFx5CEHRz4yW4TtX6L925ZjXK1+lBBx9aJEOa5PizSe
WtMP+jZ+Z71MOQb9F8aNbuxHlEp1TCdJx12mWs/E9n5UGLFzPl+mw1FSdTfv
SD+U/xCMh/aUYdxdufzP9H5sfh762ffKCxCsngWxslw4vxqWaqeVwuqPmYIa
RS4WrBpR2T1bgp4Cg+1TalwM8q/YS3WXIG2nptyBdVwssVbw3Xq9BOYlmRGz
tlys/dqq6i9Wgi3axbeyoriIDA680jteDKVhs1HDUS72CrYnzIo8RYaW5O6k
aS6aaMemZ74U4W7JdkW+8ABoIp9GN9QWYfdYWN0VmQFYFPpxnaKK0P3SSiJ1
zQB6Xex3mcwvQgOD9/qt9wCu61tPHV5eiP4fb8hzzAFYcaa6IjofY0G12sGQ
ezwcnHye46Geh0dZbrKrH/AwvDAw/sJMLtTLT23qesKDXeEi/S5mLoqdXtZr
0XmQ5N9h28blImH5MaWYZh5cvwvnKk3dx10p7p3TP3joONUoOtubA9UXsaaf
HAfRXy3ir9uZjdKm9lJn/iDEH4vHmlVkYJFCzXnbkUHs0fvd2Sg6A0r7jsJ0
fBDffSv0Ex0z8DiwqEJKiA8eO2mjBycdGlPy7KAlfEw08uwClqXD2mObxQFj
Pp5VPr349FIa7pWIJcRE8BFREDRp9jAFRUcvyUmJDuGc04Oet003wD9Vre/C
GMK6mROhMW2x6DtcQs/1/gpa5ukof/cIpK50nfLs+YrLvnTGvjuB8GtMi+xY
LaD+1W9B9c6nMCj0yrXPWwDNaeP459GeuPs3veRskgBkFjc0gdyPjPyr534+
FWCvXNBtE7VdONGv4nH9rQB6ZSFajrlWWKAqe6ipm9pvPEvKTRmIOb8lPI4t
QIb7r3wpyU0YPX/7Ye2QAAb0vrWjCXrw+kvmjeaoAH92fWHsu0rDpyT6WcMJ
AXhCee9c9RVwa52a2+QUdb4rR6nkX2kcpP8Uqp0RQNZFfHgiUAwXSy98U/kp
QJCHZG2k9A8iPqb7wA/KNXorrj769I2ocFmmc3NWAOUWmqVz4gCh53ObN/+X
ADTDPfM21H4miJzcc3sor18VrRad1k4Ex+3SjqdcGJO58XV4I7FhosmqiPKS
hkfSF71qiTGJwzoNlC+bRNktMqUT/fvvT3ZTrgg+lFu9qojwT/Vz51D+h1G/
t0Mpj0jTqlX/Srn5ZueY+t67hHzvSsEo5WP8kOY715MI9jrlnAnKLwsTexf+
G0eUNed6TFPezFvoC41IQsclj/aDslxISnnMkWDinXz8rp+UnX9h7GyIH/Hw
ZN6GWcrzxK8ucE30IrJMPWrm7Fbol35c7QBhP1Wg94vyl+Tr2VYSu4n2+4qn
52x2Q0GjTNSG0JeST5+zZfMXH/aYGeH9NLZyzlnCXwKWe24m7GzOtM45OPI/
xmvFtYT/tmef58zzFOlNM9AkusMMB+fsM7ZSPn6eEqH9kTkyZ7dl94hou8WE
wYpL3+dsTzPc7khfSKSrlIzP2UOakDMzFSf+BywuFT4=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw10Qkw1XsbB/AjleUmEleFRCq6SilJ8f8qshSVNV3Z6u12kiVlKVuLpSSq
GylbUZEobigU2UKRnazn/z/nODi4jkuES95j3nmfmd8885nfzPN8Zx7Fkx4W
pxfRaLRk/lvo/ysK/++PPSaP86ZJbP5keyW9isSil0JrTb+TsNWK+5F7h4Ry
w/MxKR4JWoD4oKItid8cr9CNB0nExSuX89aRuFjlJMfhkLBokhiVH2Tgi/+H
TC6TRNbFDYyMHAbmRxbnWzFIaDfnzDwMZIB5P7NbuYuEr4FYTq8RAzUnnxfa
tpNItP7qFSXJQMW+lPmRVhL/7hh/HdPTg3q1W059zfxcqU0N0y96MHrG4k/d
JhIwLDYp9OqBqtaoyXgDiX1ZwuFtej34Wm2hs5Tvkd4lP83EekAZKSp615Pw
VuSsWtfZDQU/7yKC75tqeodM07oRXvm2w5nvJa8+LW3y6oZitCnRw3etiXJR
9v5ucE2ScrL48wrTRal+iW4wYnYvam8kYc7Yx/QhuyCVdWTGip9PW1Vpp/3r
Lry3c/XZwM9vfH65WVxgFwQlKs2Nv5GIpJ99ssWsC3J60Wc+dJBYVRWT8qt8
F3Y5Lb9/tZvElN5kldXfnUgr9su+T5JYfcAytL+oEyutu1K/s0hoyPiY10V1
Yo+N+KmUPhL0kLdPhZ06EU0JNMXz7xHmcm48ZnsnHkomUeQIiWNpQ++8BTtR
WjwVpT9FQkY0LWDziw746w1LO8+RiHCLc//p14F1eYybJwUoPL+cXaB0uAO1
Lcd3bRWioAtv498n2nFdTrbfUJTCRYsP110/t0PqzYuWq2IUPpbaCH5NbAdt
2fhZGykKm3uXfPIxakfA/cXy/8hQaLrlTvso1w5RN3PlDFn+v4LKJcuxbyhQ
eWrvv56CU9zytY5J3zCQVVl0ZSeFI+81Do9Pt4Hua3FCWJvC+1NfLt1pbMOD
pD8/ZOpSuOySx72Y3oY2qbnVRkb8eYR+7srf21ARJZ/11o6Ch4N7SHJxK8Zu
qH5a4UxhLGGb/4WHrbB5EWcb+geFlx9Z3BsXWiH7r4p3rieFvSns40GbWqGv
7jC+KZzCJY+xrNvRLTik33Ko5A4Fm6vLDru7tcCAp8/0fEBhfbWBRIJhC+JL
by5SeEZhUNmismO6GfmdPzqjSyiciH5vX3eqGdbT8l2DVRSi2M+DBdCMJwfx
zKaeQnS6l1PAmmZYue+YdmNQ2LRCVMGoqQl+/rnBd+corNDKblQ80ATpkrSn
4UuYqDym1xis1ASmQyw9RoyJqFM5R1VpTbC5NO/FlmfCWu1uvc6HRuS/m3ty
BEw0ShrW+2o14sBOT9k1oUyUtYqvqtduAD1+rnxlFBPiQkFtW2QbsH6FT9aa
WCbW2a96cXe6HmFd1RJH0pkwj2A721+rh+Hph4EmdUzQR7m69Ad10H+VIGG0
hoXETN63q6210NTpNhtbzwJp9tLj0ONarGcmnUjdwsKoK2KunK1F65rC2U37
WEg5v8tOcb4GScuT02/RWVB/ujhip3oNjijcK3mUz8LzgMUK3OTPCOoQSBYt
Y8HXaJXtau/PyFl5R+ZqDQu0ubWcOOPP2NM2JXuJwUKeYN2DO6PV+M1DsS92
MRv0G/8UbTWoRk+m6Rpvczbklzldr5yuhN90mNvrYTZmBCrCHsVVQKdvWMRl
ko0Bd8cAlk8FPokuHdxA60VqpF3zOcsKHPyjUzRpZS9SRLfX64pVgLSq5Nze
04txFQ+lpuByzMcuGTC72QudjYw664AylEY4nPygxMFQqotUY2wJHsmIayuq
ceBi7L2k278E1s7KicGaHKy4PDEu41SCGc3Cr3rGHAQMcF0UVUtwZhUhGe/G
gb2x9TGW30d8XaJuW/qOg6OtP4979BThV61ETx+TPkxrfeJZswuxPiNI2NOi
D7VntNbR3xZidGpT2Bm7PryL/OVwdXghdsjPihu79SE5X/Ty+e2FOE1vsGq7
24cTXu9HjoYUYJJ9wl3hWx8OZiq1d2jlY75DQXeLUz9kHUQ23W7Kg+Y44Xnw
bD8SlKoSjmbkQXImKtf5Qj9ebxPc6RCSh8Clr48EhfQjyys9zkIrD1p/2qt4
vOjH1pcxkvee5EJLQ2tGldePZda3/Iau5EC4JyON7TuA77bkvkfufyEtubGx
2psL0Qydry2cDGwom6LVBHBh53MtsOBdBhz6ZtyqgrmYynLLGQ7PgOvYY4Gs
e1w0BG87qaOeAdMOrrL2Ky4EXA6uvRD4Er1VzTp72FzoT3VHVm5Kh2WfsMaP
g4NQcN0m+Sg7FWG/2NUWigyBqq3xovmlYLBu2LhefAjqz+pjzI6nQLXWJ7RH
egiNDZ9F2nanYINFvWm/4hCUzTlE7FQyLiVKX87WHkLRfMxv9X7JKPog7ipH
H8LJlMrAd+FP4HldmelVMoRjwiHQT0yEkMJzZRGnYTTsDBiml8XCZmnf7g0O
f8PONE3w02AULL/pvdorMYLor3JZUmUh2Py9wtrg8QjkJ56EnFrkj+b7tiqt
NB6CAiYLjspeQE3cX5brjHiYYPckawTRcUhbM9s4iAcVwzL7QBEnKAjoDqs8
5WE2njZYlWiNyaG4+OSPPEj/0Nw8qWEKlv9p/93NPJSWxh8XjtgPoSQ1D1WK
BweGVaS6jDZWa1n4SAzyoPZz0I3tug1Lw33jbo3yEBLovf6uwkas+KHp6znB
Q1XCOrmBFjnc3k1ZlU7x4Cj7bAOdJ4nYN7MNAzM8/v3HVV1jRMAqbnl4c5YH
zcbNQrP5NPwtPSkUM8dD+VOP/1wLmCQ8pbuKzH7ycKMo7MvtyyPED3JxcTvf
V/Y/2Ns8wybKLSP1NOZ5CCiOcNw61klszORJePPda9Z5MTm6kdh1ipWQzPcb
iwLOo7VVxLUoAxTzHfNt7a+hhh8JkcBtic18FxTp1h32zSV2jz07wOTbzrnS
/XFEBiEy//jBIN/5MtL7TbJSCLHjshH/8H3h7HtyR9hDIuF90OzEwv4dLGmD
yLtEQEKY0TTfanLlW6MehxLHHu51/JfvzrabjAmxQOK6gUHNLN87bgXqT6Rc
JErM29rn+Naqnb56Pu8s8deX1OCffIfryS53cXQmzn0pE5jnO2tWLXzsjQ1R
9KjLasFcBmFR3mFGnPO9Eb7g72pc2k0YEDcEf89e8IjOmN1c6R7CjuP9ecHb
VdRtG39sJ85YRHYuWOPc2KKilSpEXI1i/4JTamY8twsoEPnSErwFSyjWOOkk
SBHhcsZjC95YoL28OlSCiDVhf1/wmPBHN/NrosR/AXKtIpc=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1Hk01G0bB/CWKfFWytNCpe0torL10P77qtBUT3lkibJVQkKoED2WrE+S
pCRLmixJg0RJRSH7mv03M4yZQUMYe0ny/rzXOfe5z+fc59z39b3+uDecu3zy
wpxZs2YxqDWzRz+aKRI7/l8CqO0sX9IQQSJsg9LK5CUCuD/qMw69Q+JlTOl1
owE+dPJopSX/kggcLBbTquJjvdzzJ/8EkBCbTD7vmMrHZ9oNjZe+JD5x5VWa
gvnYuc6TNPUiEZMstsTdho+bexNZvp4kfE/NSzbS4SPaIzNE9jqJkRMj9502
8zHOfHNMyY3E54oDPsU0Pnaobwt4dY1END3mP4adPFy71/k05SqJs2dTWGs/
89B56JWkJOUF6UvDNyby8P6Lo0bnFRLxsnfqLfx5YETr3pKjzuX87h5qtuIh
a3V0SCNllv1gcIA2D16Kt9/3UfcvPHzzsIMcD2Gx52McqPcXea3aFCrGg1Xs
JaYh1R874X5Rp7ADpnGybglU/5ySgMorFR1QG1wVbkjlU1WQ4+9mdmDhGrNw
Oyq/W2l6msadDkiltC3m+ZM4+ti48aJTB2xdHzzJCSZR1m/+q/5kBzztAvl9
t0kcsIitclbvQM7AUi/vcBLi9Jo+bekO7DmVtdYxkpqH3D/ij8e52PCj63JO
DAlZE0d3mTwuzgXJyJ5mkHhqN8d1yo+L5iM76wyekXDWrtM7cowLhdgureQ0
Ks/DSPNfUlxUNMb70N+TiGNyTj9IaIdWmm9NZCGJEDet4ev27RifiP+mUUFi
T+lViSL1dpxSesCwYVHWnF7oU94GtUKP6jE+CX8XKcZwRBtiKwWTdd9IZL6e
s6jUvA13vY40X/xNwjiD2XBvjIPG0qP7Ny9g4b+B07zgAg5Wl7SuUZBi4Vr6
WeX2UA6+jZ/MmyfPwuKA+wMJ8hzsv7DRZVSfhX3ZWfK3LNjwKd6i1mTBggc9
/IitEhsbxrO6xy6xcNSG9ujJFAt7TqZKjPiz4J05Cdk4FnQmrXs+5bIwB58j
1TtInL/MexBQykKLgvNYQyYJizPpzjebWLDmBCaU+pHYbyw2vH6YhcebZYKY
W0jY3xnVbt3Ohn6h9gpT11aMGcRFRxBsbNG0ce7RaUWlSPpOsC4bDfUSQU0r
W2HpW/djlQsbV74Xjpe8a0HIsWx6cS4bLo+KVk/SWpC//p6TShUbD0wLT9i1
NmO6wnZWdTsbhgV2d9WYzXir4HUtksZBUsnjG5UGzdina6Gpd5KDruhUw4Wp
TQh9OsrYbs1B8u6S9ao+TegvT5T604MDy9rO+OdGTch/puH7/ikHj1cULI2g
NYH2YjEvlpo7KTNRp27ViHydzMZxRhtaneWjlNUaoDJlvnzp2zY4sF6UHVrU
AJ4wIZte0wYr3Z4yhrAeF/P1DiyabMPFm83CXU/qITG8b7TFsB3r4h+5F0nV
wy9UNZQryYVigeW9KtoXeMdMrPKW5+Ln8SeSezrrIK7r+VQVXKye/9FXWFSH
KulY42pHLt7p+2jM96+DzbeC43U1XLgtGx7SEKtD3Fy+Qwm9A6niivenVGuQ
lDttut+gA/dlJYqO/arGtGLgxFuLDpBP5r6aKqGsI+mW59qBLQnMun/NqkG6
haqNJ3bgxKNaOaWwKsxheBRNz+bB5vianQtolWDxBX8b5fHQpEpK05XLUGX/
rlKynIc5sQaRr2ll2Hd5/0hZIw/p78krzqxS6OfX1u/u4+FtWcqi+sBSmKY2
xUmt5qO/STQsJyiB7pDjm0B36t/ylzvMeF6MZX4m8z+pChC4LL5W1q4Ir0YL
LszaL8A7Vs2xEXoRjAoeWu+nC0CHjBRtSxHSHWXmpZkLIN0tqmjqLkSY0qkC
yxABduYdlFSyKcRQuMYniU4BfLd7Oei7FGC1kDZvOrwTWe8Gg2wtPsLQvv/v
7NhOaB7tHjNU/IhNLoXWVs868TrMiWCM5WOia0Fx9odO0JOWMU+E5qM9+avs
8q+diCEN/hj+lIeD8X7KlXu68FkiwrRk1weUVF8e/NLWhbmKG/eaWufCycyy
O1nYhXTr/hbVXbmI9kzxuzrSBTOVpFkWErlglshFTSzohpZHsmZexltcO6Fs
lbqjG38Z+Ae6/s6Bkl9M2pOgbpyNLU3TefEG6wYZLh8VvsK9697EOiIbtiND
aipGQuhfFzLOKr6Eg2TEDXdzIRoddVc4S76EAduuIddaCEdNRRnzngx49hek
ybsJsflHu6uddwbWdm/e9fKhEG8mAyOLMtKh5uP/4VqLEAcyxMZ61qdha2Jd
TpteD2SL9ip/0UzF3esxgYlqvcg2U0lRM0mCWcvDxqrdvTg4n71daUcS4nZn
Mvs1eyEhMnK5vCgJe5UNFsro9iLEad6ygsJEfPKUnL3yUi+CbPi54SqJ+K0n
/y6L0QuR6ZJMd+kEjFmPcsPFv+FKMIMpt4KB0wrTmt8/f4Ns18of0+dicICI
WF080Icde23oreXhOBQh/mbux358uHAqWIIThLrQ8I3jFwZg8PO22VmaNxZc
Z7WntAzAeEiTM116FSVn7NnuCiI0t2olmcrYY9MYNzjqogg6vjFfLlmdw6Ds
MUP7+yJkeVVbbi43hn3/KQnX1yLIVe8YE1P8G0Nb4+O3VYlwv114++4BbTxc
2EvfyhZhm7yp7ZXCfag9qlj3tFsEmZ/ap281qGHfhwbBhgERjKy25qqfUcCw
zI2A6hER5M8mmTEC1iPte6uA8V0E/fF0J4+s5XgZFaiz7qcIHzJWaWw/uQh/
tKSnTU+KEGoRLFBVnIvFKVNZ6lMibN79ao1h8QQR/GXip8RvEcy3n1D1ch0i
7IIsnV9Q9vls0O3f1U28TA97LzUtwkppseAgXjvRPBhWa0F57cq+vUvlGomY
nW6qEZS3XRJfa+JdQRyVZalnU9Z/Wz47rq+AkObFkVWUDz7UIi9ezSGiJjWi
OJTd1Hf9iAvPIHorvht8pcw1cWgPtEsiDinPNhFRtljFDAldFUusyL3hNkr5
2dZwYt2Pe4Tq+YCDPyj72lpyJ8uDiZ4GJvMn5SNHFrxYw/AhBt6d0f1F2fpp
69HIf1yJqHkqAVOUl1RU2z7wdSDW0AeP/KbcaPjvmuTB88Q2MUP2jLX20LK7
5p4mdI6X7ZmmfKrSJKBgvR5Rm27sNuOYtct7bukdJpR+uSXOeLdulGpOMkHc
krtWMON8ZeVLf3n8SXSZKjbN+LTYiSEnra3E8/cPBDM+9H22DO3eBsKoJqVv
xh/2SR7ytV1JLNU0GZyx73ONbv9iKWJX218jM3by3BQ2unMx8T+LqTBV
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwd0Xs01AkbB3B6SylUVu5LF9JFEXJp9fumIqIoqeRWFoXEVhIhilRESxsi
SrlkXFtbLq1IUq7xmxmDsWNumJSJJjahd+xzznOe8/njuZzzrPIMPOg9T0JC
IkOcc9XwvyDh818MorM7rt94M4mILS45JtsHYVDq9bhtPYnhTsNhR4VB/JRF
xH/VJnEu1aK9eoSP7SWPE4pWk0jSoAz4N/Dx0MKc8lmTRI3uM4pPBh9hO4oE
L38mEZNQUFN4jg9th8q9yuokyjpbM03s+LgZPdM7qUrC6AK3T0abj51N8pWu
Yjv7SEltmOXhk7expKXYFkV2BYndPKzLyaOViL3kYJv9tnIe/h60d0pTI3H6
3psbuvE8FP+IKf4hnu+vasvz8uah/7WBIleDxHRd2icOeCgfiWrasYpEpcGI
YZ4qD1Hb735T1BLfFxRpWfKVixKz/uFfdUgckV5cPvWeizDr72ztjSTUErSl
4ou46DO13+qiR0JUep7qfp2L5h4Tw3lGJBbqZlCCvbioVLfVVTEjYbbcVq1j
Bxcyw3fDsggSpdtWVvj9zMVPKbfLP+0l8Wvzrjyfbg4cGztPVRwgcXJWafWb
Cg6W51Ys5R4lsenVEhmfZA4clBsWnT1FYoOyR7D3fg44sjjeEURiT/CM2mtd
DrZbV+QkhpK493hF5IklHDSxE77oJoj3J5g0HH7HRu3q74uk74rvq09qKy5g
Y3iB7nqLByT+oNzmWlxnozNMUq7uLxK8bMVETWs2rLPHFObXk9h3JNTh1Do2
fq9XomS1kjhA0Qv7uIiNw+c0FnfxSORctPfIbR5AVKmR1qkxEtUdV216KAPQ
TL4fYT8r/tfF9imrWwPY1B0yJKNCBbfwrVq7wwDq3c6e0TxIxXiwZJDEXyxo
eqmFqZ+goqFA6vJoGAtZp6+OHQ+i4u7ezg4bCxaO391zrSaJitgcrrZlxz8I
8khRSe2kgqoXYGz2uR/Xww9Hl3KoSLuy68ulqn4sZPp6SomoiOLX8rWv9kO+
/sAhfyUaOmZeXSxS6gdH8WyW6DgNIe/zmwMtmfA/nENGBNOglRCiGyvLBN9W
osXqJg0nnfWmZeh98CmrkUmpoGE1/ejeoFN9SPN1mx5fQsdQVUnB6eReSD0T
3Di6mo5dD9OSp916caixPlxkSodjYejQ5PpeXC17otbiQ4eBkqnPpoYeqH9r
cqK+piMm4A7/0hQDmWxz73YmHYuOnQ+0f8cAdZ/b8QkRHbEMoiYujQGepopO
q3Y3WtN6PdeYMjBrddLl3I1u9DSsifh8qRtP06oT2EcYSIn8M8toBR1N4RuN
bc4yYJQufXJCQMOA41vz9wkM7LZfQ1n2kgaO5UM7s1fiObkavbZ+NJSJmvgn
NvdgsOuW+bvXVOysVjjptaQXMxZWAZY3SPyTWtgfQvYht04nodq2E41SF65F
j/bBzCXjzxDdTpD1583uSDPxy8Bj8yDZTmx3XStNgonm2ojs5e/fY2/2ZffC
Iia0TUnmoqPvQXto5Xkqrh//Ym1rB68dX1dUS+YRLMh8SfGQy2yB6MbuScVj
LEhqzPq/8GvBbtXbjbHBLCTPcNc2mbVA1UWly6WIBTnNoBYhoxn6E4PHxmQG
YG/lzQtTa8aWMh8V+bAB7IwUObHL3uLeUWnn0QNspJ+e99BP+Q3WG7vUSnmw
UaJp9XLjeCOcah1eqJ5mY/7j4XiD1kZ0Fi4w2nqNjdJjNtpLoxsRNVUi3FLN
Rp3S+SUTn15DbizzldkqDm5axSlIUxsgqhapLxvhwMS8Q36qrR4pU8uyQyc5
6BinpUeV1kPpy0A1839cFL8Jn9z+ez3mmZQmJalzgYSuZBenetA0rrjn7eMi
bkFiu+JAHaLXrl2VVMLFKyfbbL/Zlzi+81nXUn8elpVTn8o2vMDNpfJhKSE8
PG/yuPxL4gtEzXc7KBfDQ3XMKtkO5xfYc/XyRUEmD44NK/W1xmvgk6PfbtTO
w0LZr6OBOjWQYhW1qujxYZmh08Z8VAXZvXHpMwI+0mMMni9kPQPzXwnLwl1D
WC1xyrpz21NcSXar27xvCBpOyYsM1Z9iJltamXJ4CCyrAefmmXIoeAZ7xvsO
YfD9fe20+nLsufMg8UPiEH7Tz07PtS2Hv3tIrRZjCJMvIgwNfcvQpN6PdK9h
rGKKAtySirFegyR1fQTYdGzn/ADJApAVB564nxGgZORK5ml6Pn6+dZ8ed0EA
0WKb1hpKPk5EztrVXRNAPuSBu9WRfMzIMcyb8wRgqyqxpsrz4JzcvnEPX4Ad
mZVBPsG56Fq5M0PW9QNOuuePXtd/BI+qYBU1gxFg2+3Zmqos1LHYZ7JjP6L3
bsAvPR9TwBzs9bx+9hPUBsKWej69CW4ehbtSfxT3LqjVpB6OhtGZLpFc+SjC
20aOu5qG4Elg+OBzWSEEd6KfB3kGwsRgXHL3YSFiHL7t97nhhd2BrGNF14RY
9LfiRALFBeufxStNU4TgXE1bJlh8ENuaQ1j3G4VQiG2NtavaAy1ryYVxdCGs
/3KhOcjsgN3oQMM5rhA9BVqcX+dtxfdwvwL+iBBFt4/IldnqIkDTVc96XAgd
RmNtX+Bq6H96kp46IYSqRCTNykQZ+WMaVV7fhOiI6KVxXJbhW/ydedHfhVAe
N956z3MBHpS8Te2fFiJ0ZMP4ofppInHafn/bjBDV6eOmm8O/EOOMD/eiZ8X9
6uf2pyYIiDO+5KOvYj9yDA0s3sYmyitbjOx+CHFNJDlVdolOmNle5sWK7V6S
k7kpuY1QMFKfLBS7JNBqC+tHA2E6+CHrjdjO+i0qWRuriYJd/jYMsTu+zPRc
v19OhJbRnHhi++7vzdvDzydi3hU7fhL7X8+1IZmu2cTTnujlX8TerH1I4azu
H0ROctvBSbE1ktapuefHE+v0nkpNiV1p3mXFTLlCLK7v7Psu9iHj3RHjG0KJ
Xf4U0xmxM3T6/DKDg4jI/cIVs2In5jaXTuj4EDerL1fOmUqV+lNxzJU4si9x
zQ+xJ0SGzwh5R2L81duTc/68zs6J1mxDxH2bSp+zTaYMnzG0g7joW1g15988
mNEmH42Ji70HOuasfnu+W5CRHkHPTWbN+W/TebMP7LUIr+3DgjlbpTVd//5V
legLURidc7vDYm/i0Qoi2ey3sTlnjZOR5v7Lif8DCzT6KA==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwl1Akw1esbB3COZCnKtZWUm1uSre1Kkt83S8g9JXFTrhJFKhElSaSQIiqX
SqWUkFMphJIsWc+COLbbwXGcleRooZTlf8z/mXnnmc/MO+/zPPPOPEu9A3f6
kKSkpFIlZybfTpsJKv6fB+Aesd3bNJmKuuZ8v8uHB1DpYnZ54RUq1qXV8FrN
B5AfNO+kVRwVvpsexYcoDuBr0WjU42gqhNvUGo+zRLA5cmKB43kqpiMFS2qe
ivBPl0rm0igqvkcNfQmIFMHv5q9rBhKz00zKju8Q4dj6I+H7JfePKlgON+iK
kNlvoFAhea839enEqVEhijCXM1PPbljlnzMNQtwtpj3hJVDBuWsc0XpHiGi9
i6szr1MxTr7ZGRkoRN8lLXLYLSq0UxXZkTZCFHBrWN4ZVOj0bZZv1RTiliDn
7T+5VCTXyTeEDglw/Pk5kWchFfpO2imBVQJQZV2OHS2ngpqU2//qhgAeC3z3
naFRMVLFWuniL8DNLzpNlzol893gsS2tBShT3sdO5lMRcL82/PQCAdbohzNT
vlGxV9MthCTmg3RLURw/iwan16dsWbV8nOmZptiuoGHqJcc69CQfSa9aJqQ2
0nCviX/AnMyHfZnB8MNtNGzRPUs4LOPDPPfaq8uhNLBqFyk6tvNg1mB0oz6R
hv5NMiMWeTy8jtZY3POIBv/EDWGn43h4MMClnm+n4bY036d5Iw/6nlZnFcU0
kLh7a0VqPMTWW9D3KtBR0EF76yjmYlHNiIfbZjr0ezSDBY+4ULU8YEaU0DEW
5MsIUOWCFRLXXd1BR3P6FKtc3I/aI+uTfo3R4WJre9GF0Q/ZkUibEHMGgv2Z
BQ4X+9Fus9jSpo4B/5H3QtdJDn6+a6MofGSg+ImyRRmLg5Myhi1H5zfiK0Vl
x8FSDg7lVFN+eDRCO7G5++RpDhJa3s0anmhE+PLE9PjvfQgbMni6dFczKrZJ
C3Wl+9Aad4bkFNeM74o+Hu+q2FBSeMuXfd2MvNJw7brzbOxd3dxOmvce6/37
hPtk2Pg5bLpDOvQ9LqhYZZfM7YUy+Xrmf84tuGy+VVPLrBu0DN+6pQEtCP7c
/nvCFAuljHmU2/EtwJbB8uA6Fnw3DOzXqmnBrO7AvgduLJgId2v9ad4Kxo2c
dT7nPkDNbfaBAQMmlDSq1PO4XXgir25ftZUJ9d/2lGkWdIGj/ojz2o+JR6ZO
ZgNRXWBov4pVyGFC0OOlW6nThTjP7GzF5W3YclHZVM+7E4w3ysbdy9tBeXMn
UWu8HXJ6j3ViTDuxO3ul46ojTEReib1V7NqJdSHSRfF2TMQ0Pt75+UQnPqud
dTD8g4kDTyxKIwo6Mdu0t9q8pxXnjg4/5K/qwqbxb7IRrq2o9vMYTDL8DwVV
sz31nFrgepCp+O8fLFxODYtbxW3CAYdXLiQbFsqbT7RvfNKEd5ZZ+ce8Wfj3
LiUk/0QT3H7aHzZ7wMIR3RUmPbJNaDz+7HLSkm64wndUY1Ujiotmpc9f0IO0
rUl53il0OA4/GHgyi430D7WGslkNsLC4+yZGlw1GZEBTa1gDVvyghu7czEZk
yo7kke0NKC2IlmeES/61QkdT62c9tlTSp9d+YcPjTZSdmms9ls/ZZLsroA+n
vOOFOhp1eDn7CvmZCwdL77iqlTRV42qNoXONFwdcqw93A55W49Myt+fMQA6K
brezD8ZXo4jkbMdK4IDVsYMyx74aUrmtUVeqOYjPceb/Wf0OqgYBK4+t6YfJ
+dPkpLoq7P4uHyOazUV64tNa+lAFHvLkWCrqXIQfTqlLza+AzL0gzuo/uNB6
f/oK81QFQqf3sZ3AxdwjUpnZpArALoU5P5SLTLmE9Gs65dg9mD0vjceFswtX
//GxMpCHqDeySniYmKIZqf/9Gv435+k5WgrwbPynIHHFS8ioy5KlHQRomnv6
3gnZlzBM5C56vlMAH3+lvFRuISbrJyuHDwmQvUyGlJhRiIlsnz1T1wXYNWT5
wWJxIeYUm6314glQWXor3XJpAWoUPKT/uiAEI+RLj5zzC0zYfLeLzRRBW8eT
XhZKQaM7R1Qs2dsHG7ZpzHOg4FObZ1FvkWQvU+j+pQso+LY5QzC/QQQz87Ht
C9/kQjW1fK/UkAg97krhPJlcvJOvjVdZO4DYkor85Vk5uLe2f49RyQBowfpX
lXWzMJy1toeePQjPJR0XeIIM+OrTsk10h2Ado5RygJsKf79SJS+DT8j51Fmo
Sk6ErdavNyGTn6Ch7zNbSyYauxLXt9OvDGP1WG5+W3AY6Az/tBdfhyGKeftx
+Zog1Lb1NxjYihGwck/H+khflJTHLmoJE+PrDZ2NH8n7cC/9dp9uphh9z7Dd
tsoFXYUTq6MqxOgiT3z8bXwrrFfIfVvXKsZFT42RiOtWII8LNSP6xNBeaSL1
bHo9dLojzrUMiNHOfRHrOG4i6fdpcO+IGB7WJrwgk2X4RpP3yBiVeFAumXle
C8nzi++X/BDjYLJ1kLJIBXs0Ta/P+SVGxbRvh5+fHHSiFw0mTIixP8l9c1PY
NGE/x8o4ZVIMzq60aa7LKFH/59/97lNinPyWvUIw9pGQv5Na+kFibS+/hS9Y
/cSo8Vf1jdNiRGmfky2+00VoS5HuhUmcYLeQlWnynpiu3hTwUGLGpULXSW4t
Udor7q2UONZoymhTdhnx6mWDU5vECj+2LSvaWkh4mPGvcSQO9klNUDOmEM9/
ZIR8lFh18e8p7cYPiLaRobrPEo/qbFFOX3OT2LBEJ2RM4vDcKLtCchLxPWtD
wLjEctmCZRfcYwjDtK/BvyQ2ej7WcPZSOJFXaf9lQuLOoP/MBKRggihZyJ+U
eKVDqFWuox/BCsy6OSVxogGPJKjzJA7p3VaalrjLuD6lRuBKrHMJ3z3jgPsv
5f4ikwmSSerVGftnuXuZ3rcmjkcfLphxr1pcIN3JnHAuTabNuMOM8jNMfQ3h
NvZv94wf1e1x/CyrR3gptAtnbDSH75Rmv5iojLccnLHmc9Vjthu0iK6Kg0Mz
nhgR79oQrUnED7oMz5gdYpc3sFCdKCGrjcxYistVbfz0G/E/ELLP9Q==
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV03k41AkYB3BHKR1KlEhWSSKkkkj7+xYjSinHIlaHK4p0abdcS1okOXKT
UptyhDBqxjkyWCGbcU7OjDGjZsqxyGJnvs/zPu/zed6/3ud53y3OPlZuYiIi
InGCEvbUFGEoaG4S5gtifQPHZ2MpuMfIv5qW8AVNVR7T6lEUHM1UiWo78wVn
fGb0f4qk4Pjq2cAbOwS+fZz0QeCtJesfBYyPIY8UVLwrmgJn/ws/88rHIOd4
ZqteAgUHpUfI9LAxyIzEuXc9ouAvmqSTuPUYjJQb0lZlUxAeEB6RpTSGSKOW
wYZSCr77yMblc7kIVaE6iNdTcLbOv1nhDRfjnF3ORd0UJI95POTe4ULHSzey
iUeBXlmV4WZLLmZC3180k6Ci1sJVqUiJi4OS0+mKylRYFV55+PILB751V8UO
HaRCXVV6cpHKQWYr6Wm2AxXF9wtT3kQI5r8x75zyoyLK5m1viz0H2puTqTsz
qFBb5Mmb7OAg4NHB3F+5VFSm72SbN4yitv3kiUyZMrwQe6rNTB5FvFTzxDRR
hm89//XUeY5CU9mfSk0rwzqWVlfhqlFwL2a0bWgug6KHLOtVHxtGXXGlriLl
SGw0aFnymg3/yhUdZK9yGNL9X1XYslHiP/WnnWMF3m5YrXEsawTFsvGfPNMq
4M0LSFriNwIrpcf2u3srsHz6xajMqREU8NXc37lVIqT5CV17jgWV4PGLuveq
0Gqank76hYXOH88Oa3dWQStiEylBkwWicNCpbV01dNQvi+stYWHsRs/uAJdq
pF+4fdOtZBhlHXfViNU0HKXoj13aOAzr5olhJwMaSnbdXK81/hl6/YaO29xp
GImLrjBo+oyvnU0fUmg0MII0zfYGf0bUtq4HHUE1cGB7P0/iDeG47KWXB+Rq
8cwurj23YxDiYhN2c6dqcSlWJEuqaBCF+aUNJyJrsdWzRKw6ahByzg+D00Tp
cJw6X7nyyCA8Iqy2h03SQfZ7uXcfdQDERN2/u7/XI9Q3yyniXD+WS2jjzZ4G
TLlwe8KV+0G6IOfy9EYDPrgsyZEe7IPSsjz7J7MNKJUtfEB16UPo9FTC9LJG
LKE+UT3q04tvLuu6lHWb0Bsvo+CcwUSijHo3/3YTDosq1vm4M2ETwbglWtOE
vq7mfVPaTMivflExfKoZhvzswy60HvAfT2/xvdoC2qGkmwVj3bB1sJaQO9OK
RJbSfu1fuiCzeeln29KPWLnCOt3Gtx07bN32VXR/REjufardiXYcuuFzU2P+
I5KDLv+brdoOuSnjDjlSGypNpI4YdDLgLEWT3f2xDXq+z3aO/8yAVbvf/BSP
AX6NmA9Jvg2mhu6NPWqdSDFJLHEW/weib1fsNzXvxIs1x/NUh1vxaqlt5qvL
nYiViiKr0luhH83bcoHciboW7fmesFb4yTEa7xh1YSax5vqqta3Yr6GfruLY
jTvaYyQT2xZk7A2x1w5lQtqlNm/luvdwZf7hmPWcifF22nmJoUacSL39z9p6
JmS7gosdixqh8Ptyz3LJT7Bav8dDxqYR0d5aEZ4PPsHCqKDoWdrfmFcX0/03
vhcW4jF/vzrQgOqFqp96E/oRHHBLZaqYDjVl4z/tyf3QCjb4PB9FR8sG7iKN
0Q+TQi+dEx50kOJ4rgWSA3i0tO1IxWY6VB/6hvSZDsCwSlOLIbijcyfNm/1q
BuDqZBbjduMdKJfnT14vHITfuPts/nUauuY2XTGoHoS3vs9zMWsaXEQ5JRMf
BuHF+aGQtIeGir6wGBJ/EMZydYZ/jFcjlpbz3lZrCGreFiSSbzXCbYb19V8M
IXF6ZgqrqpC891e19tjPGFLw0Mt7VgYrkQIpAyMWXp8OlIqdIMN2gFwqb8GC
1EzGCvUWMpZ5PG3nn2Zh6+wEUzybjG/xeiH+V1nwHo7vDzpLRkJ9+rzcExYe
9GyLD/1QgpRmmXcOgr9W1/Epdigrhme23XaNnBFs6fA0Wlv1Gu0zi8smOWxU
TdgZpFbnAXMBpoqTbPxKP20bfj8Prq7JEQYLbHTnlCZ22efBQqJwj/W6Uehq
zZDSx3Px2F6aLX5gFAPv7+9K1ciFl+5o7vmwUajavznXlpuNM5Y2RSYKHKyx
398ayMuCfMPdO9e2cqFwfEk51eoplLaJMObejcFYbeh2x+skzA1dztYZ+QI5
y/KQQwXRcJrxGMlv/oqfpUrdWyJDsXK8hpZzkYf9keP1ywL8ILe/MsGQyQP3
U6ebacw1qE3ZbtTZy0fGxum4BVMPWDi/T6V78yEZ5HFprcM5cMVPuDNT+WB0
sJKyLH8BJerv7w0UPlYlhix8kjgO9rE0M40WPqqifd8OTBqhyV0qnNLLR2hb
R3lkqz56nTvCBtl8hDw+k5RJ1oG27pukKD4fWmtj5jTrVLH5boIddZIP93K1
PdtTFBE6KZ+zYYaPI/pVK6iWMrhiFXkt4wcfcQ4pKiKHJRG+vVvm0H98LPLd
X+f8EIFTX/f2s/N8zK75yytWbJpo7NaZ1FsQ7BN0TjRhJ4+YvxpeQxPYqs38
2H37YUI5eb2p+iIf8Rmsksj7PQSdTTO8LPAMhRu93vcf4kvns9BUgZXJmYri
GfXE6YGd98oEHo0sVDHjVBKWMUcyWwV+zDB6l9BSQqyRUBTrF/jaYOJSacM8
omfBspwj8PfS9pjAsKfE96+MxG8C+/nKqUeIphAD7yuypwT2uiLrNWYTQ+wI
VByaEVgpfigpb/IuwflqLj0nsBqjtEmqIoCYP2BX8J/A0Y/7IrRCrhNnmSid
F7i8wS3mjsNFIubrzO8LArecvBRornmeuNUSOCt0obyRhmSwLWH70Nd8UeCj
/h21oSYWREzpcLjQAT6aEvb+xoTUPuN8oVV+o7zwMDtAWNdn1Amtv/t2h4nJ
HkLqZWOX0LIP5ddsatxBxOkGDwt9zGDROF9/C3FymS5b6JfP6bxbHCWCcMjl
CL27yGdR5/UmIimSPSY0ESlh9rFhI2GfNvpV6FGdew1OOhuI/wFhEbKt
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxV1Xk41QkXB3BbMjSjTHJFiTAlZEndZH7fGYTslZjXMrbUuMlSypLJki1b
1ytLjYpoipDcsmSprjuJUpauna5crv1HTKTivf58z/Oc5zyf5/x1/jjnKHr4
HfESEhAQSOXnav3/mMGmmEuL+kmLhFxmM+v0cxIvnf02WXhTYDwys3zsEokZ
M1W6zJFdkD6uMVVxkIQZpeCOzU4qAndns/4rRuKysUx4fYMhQlScngy/mgZb
7eYZ6VFz/HSuVrj0yjRqhBXtRKhHUGb6oGPm6DRinaoV1xU7QClxh/ddyjTe
vJd67driAspntdm2/ilM/Rs4lGfjgUrP0Dtn8qYgZxIQd0XiBPbRXWtjvKfw
9GLnrtzNNBgkKfhLaE1B4Ifk+PgLvhgos/hXaGESYbveRYdnBCB/182YU3WT
CBydHjStO49w15D7SdaTaD/UtlE6KQRcdjfDSGYSKQv5h0vCw0D/SbTkD84E
rleOENO0SDzUsvT8fHYC+U71p3LkLmGWKE73JCaQfePAR/GBaBgKihVSv5uA
q275XV5GPKjaz/235YyjVPGqcmNSAgJG1G5p+4zDwMd6vWFaEsiEzruF1HEY
jl3tD/yDDiuVMKvWtjHUBe0WHRBOR5vWzb19EmMYPel4NPznDMxWT4TI9I7C
d+1OpeMXM3FLbhfjUeEo3MVMaGHS12E2u6AiZTEKavS9pKT0W+jL2v3RmM6D
v2B32ueoHJgG1b+74MHDG891Wx2IXAicfPLtBz0eLCRDSx3qbkNST8LBtHcE
pXpeveTgHSjM6UxP7hrBQL1m5seHf8OkkXjyUWAE3H08VUb0XaSlsexsOoZx
pj2SfkCnAB3J12zEo4axHH7wmFRRET5pLkuc6+fi8unm2F/FymA95nQvOW8I
+918w14ll+E/2+VV4kKH0HDpr+vRGxkwDNa+3XN4CH5uXZ00lUcQ2Xs1K0lw
CKrHh8SO2ZXD1Oe13VqvD/i9ZjHKYvAJPC6XzJUdGEQxU8xn+Hw1GCa1CXMy
g1h/vCHZ5vsabBWxjYqa54B8g3URBrXIDqvmxpdw8OmGLsnMe4oKpy9lyqoc
BK+YDzaYMfHYKXfN9yYDMEoXNSWzmDgSWf+yZu0AEq86cH8bY8LXzZg539iP
GGRfG0+ox8pfWbcWbfphn37o6ZsWFkTq6hY0PfqQbGNgOebVgGLLPQb2N3tg
I65FsS14DS3Ord+kfDvxsCnoYvriazRpjWs2/NoJKwvzgmHTZvR9GjjPlu5E
brf4UO5IM6Zy7Oy/1HXAV5reeEr5Ldq2VIc5SHcgsZ6hva+lBaX6S7THre/g
ol71ePlQOzyzlLju0W1YJ5rx1iugHUqX5JVn3dsgsyAUxcpqx4XMH0gW2pCR
8q/LSV47OAL53H1fW2F1Sq50f/Q7KNB+jD0Q3Ip4DcHGV9Vs0EMN9H8Ja0FB
+CKXta0Ly3J/3wxwb8b90sP0toNd2HQ4L6hKvRkTTpHftdC6sLup/sQJ/lwM
bnXFtUddOJuqQJukv4Y5RcTY07QbGQxZatqLVzALctxX4N2D2I/bntwwasKS
2xaTL7f6MHo+ZPFKeAOUSsaMy5l9EKssIr6zb4DWpEq283AfUiuL2lrUG6A6
ZjZPU+vHgGzfObPeFygqYBQnMvqhbhF85+WBF4jcr7/08vkAesIsRWPF/8Fo
+GN2zwkO+m80W8j2MlGoHb20J5iDY2GCb0IrmMj6u+Bh5GUO3itKcrdfZaKY
fF/z8T4HKftlXc2tmajfYUPXmeGgNDY3q/Of5+jYVl6ufH4QtkZhAmeeP8ON
htK+2qAPYHE8ynubayH+daWccZiL27QEm0u5FZjr0lN5/DsX2pSFzM/BFUi1
/9RbeIqLMr2TalW2FZiI2aR1NoYL62Ut9gbBCmScvt4SVMmFBDG3RPEqR4Rm
FcdOfhi6hOxOCf3HcLcWpkf0DsOINrKXwt8bITeZoFYqD95uCc8EOCUoTbHM
4xnxoGpl+a35bgmexwc9mLXm4YPmSxVR/xJERL2/PHich7/iZ5sZgiW4J2K5
V5t/J5oyleMmdxaDpdr9LZPLA/vHG5WU5PugqucpM6NHkX5w9p3utXvQ28BO
jMsfQ01a/k21vDyQuppV2bQJCGxbPyTmfA12CloB+Xcm8ZVLVObM0BGqPuad
kjMFo1Ona83mYyDmTyj8aT6NeY1ND9lOfyLAQLlVjzWNKDs/46XWs1CPoL7S
307iQcnnsa0T3rispGES5EEifa4pLuusO37pyA2lpJFoFE0JFXhmD1v29299
H5H4dFyksJNnha9nqV6eTSTws2TZ0H5j7JiwPqDcS2KH/J6ohhB9nGY4+kuN
kJC3L3TuaNdG7UW6/dFpEk9Zhg++6P+EPVKpH4bmSKyzYqUyo7Yi/Y1hRcQC
ichpRTnv7I2QdhFjU5dInJSav390Vhxmm2WjPn8h0c0e9DbeIoRu97WdGt9I
pO19P36Q/0djlHSSpJdJRJ971S1JmSHG/d7SC/n+Q3E3tfHRMCE3plsou0Ji
b51GlPrRPiLC3f+eJ9+WmpntW3PaCKUTS2ppfHOy/VYe6TQSPf8kZpXznUL+
yu4Oe0YcdRWlNvN9p8+OaqldTny5qJrXx7e5xtyVjfIlROmEhPIo3y9r2MJC
zDxikVZ4geQ7NIty26PoOrEgUTkxz7e6KIPX4pNKxH1adFvk29n9Z5lSzzjC
KsWlcmm1H1O1P/JeOHHIfXvgV74/RcX6rGEFEraS1JRvfNs6JhTpCfkQqms4
LsurfZeeoWBTD+Jroe7Iqq+s7xJ23vobobFQY7DCt6JjW0Y7zZbQ6V75c9Un
zsknrnE8SOgZR99ddcIG53hBGwNiRvlI/aqFexddJYd1iNlwma5Vt2y+Pqmi
u4PQfFLFXfVKcNdaM+NtxAWHQN6qxUMKxOI1thBOL0bGVu3YNRrtprWZeC26
YXLVLEm/aNlUGeItZW5q1W4KBmsZNtLE/wDr0I/F
      "]]}}, LineBox[{{0, 1.}, {1., 0}}], 
   {Arrowheads[0.03], ArrowBox[{{0.5, 0.6}, {0.45, 0.55}}]}},
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->{True, True, True, True},
  FrameLabel->{{
     FormBox[
     "\"Infected \
(\\!\\(\\*\\nStyleBox[\\\"I\\\",\\nFontSlant->\\\"Italic\\\"]\\))\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
      RowBox[{"\"Susceptible \"", "(", "S", ")"}], TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  GridLines->Automatic,
  GridLinesStyle->Directive[
    GrayLevel[0.5], 
    Dashing[{0, Small}]],
  PlotRange->{{0., 1.}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5656499826074467`*^9, 3.5656563505386715`*^9, 
  3.5657193564977922`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.12"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]", "=", "0.4"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"\[Zeta]", "=", 
  RowBox[{"4", " ", "\[Nu]", " ", 
   RowBox[{"(", 
    RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], 
    "2"]}]}], "\[IndentingNewLine]", 
 RowBox[{"diff", "=", 
  RowBox[{"\[Beta]", "-", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Delta]", "=", 
  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]", 
 RowBox[{"\[Lambda]1", "=", 
  RowBox[{
   RowBox[{"-", "\[Nu]"}], 
   RowBox[{"(", 
    RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "n"]}], "+", 
      RowBox[{"\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"n", "-", "s", "-", "i"}], ")"}]}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Beta]", " ", "s", " ", 
       FractionBox["i", "n"]}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.56565616064181*^9, 3.5656563019528923`*^9}, {
   3.5656566318437614`*^9, 3.56565670455392*^9}, {3.5656567607711353`*^9, 
   3.5656568579136915`*^9}, 3.565658072618169*^9}],

Cell[BoxData[
 RowBox[{"-", "0.768`"}]], "Output",
 CellChangeTimes->{{3.5656562470787535`*^9, 3.5656563024169188`*^9}, 
   3.565656705344965*^9, {3.565656768510578*^9, 3.565656791395887*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.48`"}]], "Output",
 CellChangeTimes->{{3.5656562470787535`*^9, 3.5656563024169188`*^9}, 
   3.565656705344965*^9, {3.565656768510578*^9, 3.565656791397887*^9}}],

Cell[BoxData["0.811264`"], "Output",
 CellChangeTimes->{{3.5656562470787535`*^9, 3.5656563024169188`*^9}, 
   3.565656705344965*^9, {3.565656768510578*^9, 3.565656791399887*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.025929339947926813`, 1.}}], 
     ArrowBox[{{-0.02854859882062257, 0.}, {0.02854859882062257, 0.}}]}, 
    {Arrowheads[{{0.024236991804635837`, 1.}}], 
     ArrowBox[{{-0.0265094131905781, 0.07448734987363813}, {
      0.0265094131905781, 0.06836979298350472}}]}, 
    {Arrowheads[{{0.022909158730253527`, 1.}}], 
     ArrowBox[{{-0.024470227560533638`, 0.14897469974727626`}, {
      0.024470227560533638`, 0.13673958596700944`}}]}, 
    {Arrowheads[{{0.022011906235150393`, 1.}}], 
     ArrowBox[{{-0.02243104193048916, 0.22346204962091437`}, {
      0.02243104193048916, 0.20510937895051418`}}]}, 
    {Arrowheads[{{0.021598961985921688`, 1.}}], 
     ArrowBox[{{-0.020391856300444697`, 0.2979493994945525}, {
      0.020391856300444697`, 0.2734791719340189}}]}, 
    {Arrowheads[{{0.021697994884796658`, 1.}}], 
     ArrowBox[{{-0.018352670670400226`, 0.3724367493681906}, {
      0.018352670670400226`, 0.3418489649175236}}]}, 
    {Arrowheads[{{0.022302185667758427`, 1.}}], 
     ArrowBox[{{-0.016313485040355753`, 0.4469240992418287}, {
      0.016313485040355753`, 0.41021875790102824`}}]}, 
    {Arrowheads[{{0.023372391180296694`, 1.}}], 
     ArrowBox[{{-0.014274299410311289`, 0.5214114491154668}, {
      0.014274299410311289`, 0.478588550884533}}]}, 
    {Arrowheads[{{0.024848471457970804`, 1.}}], 
     ArrowBox[{{-0.01223511378026682, 0.5958987989891049}, {
      0.01223511378026682, 0.5469583438680377}}]}, 
    {Arrowheads[{{0.026663103317084116`, 1.}}], 
     ArrowBox[{{-0.01019592815022235, 0.6703861488627431}, {
      0.01019592815022235, 0.6153281368515424}}]}, 
    {Arrowheads[{{0.028752257365023518`, 1.}}], 
     ArrowBox[{{-0.008156742520177883, 0.7448734987363811}, {
      0.008156742520177883, 0.6836979298350471}}]}, 
    {Arrowheads[{{0.031060589322463465`, 1.}}], 
     ArrowBox[{{-0.006117556890133414, 0.8193608486100192}, {
      0.006117556890133414, 0.7520677228185518}}]}, 
    {Arrowheads[{{0.03354287994373847, 1.}}], 
     ArrowBox[{{-0.004078371260088947, 0.8938481984836573}, {
      0.004078371260088947, 0.8204375158020564}}]}, 
    {Arrowheads[{{0.036163324807994425`, 1.}}], 
     ArrowBox[{{-0.0020391856300444777`, 0.9683355483572954}, {
      0.0020391856300444777`, 0.8888073087855611}}]}, 
    {Arrowheads[{{0.03889400992189019, 1.}}], 
     ArrowBox[{{-9.508593519432531*^-18, 1.0428228982309335`}, {
      9.508593519432531*^-18, 0.9571771017690659}}]}, 
    {Arrowheads[{{0.024077244237360615`, 1.}}], 
     ArrowBox[{{0.04491915823799332, 0.}, {0.09793798461914953, 0.}}]}, 
    {Arrowheads[{{0.02235383209597491, 1.}}], 
     ArrowBox[{{0.04700204070296732, 0.0744436530387086}, {
      0.09585510215417553, 0.06841348981843424}}]}, 
    {Arrowheads[{{0.021019750199920455`, 1.}}], 
     ArrowBox[{{0.04908492316794131, 0.1488873060774172}, {
      0.09377221968920155, 0.1368269796368685}}]}, 
    {Arrowheads[{{0.02015246777299415, 1.}}], 
     ArrowBox[{{0.0511678056329153, 0.22333095911612583`}, {
      0.09168933722422755, 0.20524046945530272`}}]}, 
    {Arrowheads[{{0.019813378964693873`, 1.}}], 
     ArrowBox[{{0.0532506880978893, 0.2977746121548344}, {0.08960645475925355,
       0.273653959273737}}]}, 
    {Arrowheads[{{0.0200293281075046, 1.}}], 
     ArrowBox[{{0.05533357056286329, 0.372218265193543}, {0.08752357229427957,
       0.34206744909217124`}}]}, 
    {Arrowheads[{{0.02078302077803101, 1.}}], 
     ArrowBox[{{0.05741645302783728, 0.44666191823225154`}, {
      0.08544068982930557, 0.4104809389106054}}]}, 
    {Arrowheads[{{0.022019307224900534`, 1.}}], 
     ArrowBox[{{0.05949933549281128, 0.5211055712709601}, {
      0.08335780736433157, 0.47889442872903965`}}]}, 
    {Arrowheads[{{0.02366266676542482, 1.}}], 
     ArrowBox[{{0.06158221795778527, 0.5955492243096687}, {
      0.08127492489935757, 0.5473079185474738}}]}, 
    {Arrowheads[{{0.02563493077854933, 1.}}], 
     ArrowBox[{{0.06366510042275926, 0.6699928773483773}, {
      0.07919204243438359, 0.6157214083659082}}]}, 
    {Arrowheads[{{0.027866351095415916`, 1.}}], 
     ArrowBox[{{0.06574798288773326, 0.7444365303870859}, {0.0771091599694096,
       0.6841348981843424}}]}, 
    {Arrowheads[{{0.03029972508963496, 1.}}], 
     ArrowBox[{{0.06783086535270724, 0.8188801834257945}, {0.0750262775044356,
       0.7525483880027766}}]}, 
    {Arrowheads[{{0.03289025885310748, 1.}}], 
     ArrowBox[{{0.06991374781768124, 0.893323836464503}, {0.07294339503946161,
       0.8209618778212107}}]}, 
    {Arrowheads[{{0.0356036639143202, 1.}}], 
     ArrowBox[{{0.07199663028265522, 0.9677674895032116}, {
      0.07086051257448761, 0.889375367639645}}]}, 
    {Arrowheads[{{0.03841391168061148, 1.}}], 
     ArrowBox[{{0.07407951274762922, 1.0422111425419203`}, {
      0.06877763010951363, 0.9577888574580792}}]}, 
    {Arrowheads[{{0.02222514852679441, 1.}}], 
     ArrowBox[{{0.11838691529660922`, 0.}, {0.16732737041767648`, 0.}}]}, 
    {Arrowheads[{{0.0204723395509178, 1.}}], 
     ArrowBox[{{0.12051349459651273`, 0.07439995620377908}, {
      0.16520079111777297`, 0.06845718665336377}}]}, 
    {Arrowheads[{{0.019139070156765643`, 1.}}], 
     ArrowBox[{{0.12264007389641625`, 0.14879991240755816`}, {
      0.16307421181786946`, 0.13691437330672754`}}]}, 
    {Arrowheads[{{0.018317182817525278`, 1.}}], 
     ArrowBox[{{0.12476665319631977`, 0.22319986861133723`}, {
      0.16094763251796593`, 0.2053715599600913}}]}, 
    {Arrowheads[{{0.01807656566948525, 1.}}], 
     ArrowBox[{{0.12689323249622328`, 0.2975998248151163}, {
      0.15882105321806242`, 0.2738287466134551}}]}, 
    {Arrowheads[{{0.018439987162774913`, 1.}}], 
     ArrowBox[{{0.12901981179612682`, 0.37199978101889536`}, {
      0.15669447391815888`, 0.34228593326681883`}}]}, 
    {Arrowheads[{{0.01937348411749726, 1.}}], 
     ArrowBox[{{0.13114639109603032`, 0.4463997372226744}, {
      0.15456789461825537`, 0.41074311992018253`}}]}, 
    {Arrowheads[{{0.02080044488144557, 1.}}], 
     ArrowBox[{{0.13327297039593383`, 0.5207996934264535}, {
      0.15244131531835187`, 0.47920030657354634`}}]}, 
    {Arrowheads[{{0.0226277039888875, 1.}}], 
     ArrowBox[{{0.13539954969583734`, 0.5951996496302325}, {
      0.15031473601844833`, 0.54765749322691}}]}, 
    {Arrowheads[{{0.024766819102963078`, 1.}}], 
     ArrowBox[{{0.13752612899574088`, 0.6695996058340116}, {
      0.14818815671854482`, 0.6161146798802738}}]}, 
    {Arrowheads[{{0.02714416197410782, 1.}}], 
     ArrowBox[{{0.13965270829564438`, 0.7439995620377906}, {
      0.14606157741864131`, 0.6845718665336376}}]}, 
    {Arrowheads[{{0.02970258558108756, 1.}}], 
     ArrowBox[{{0.1417792875955479, 0.8183995182415696}, {
      0.14393499811873778`, 0.7530290531870012}}]}, 
    {Arrowheads[{{0.032399220843325534`, 1.}}], 
     ArrowBox[{{0.14390586689545143`, 0.8927994744453487}, {
      0.14180841881883427`, 0.821486239840365}}]}, 
    {Arrowheads[{{0.03520231941839702, 1.}}], 
     ArrowBox[{{0.14603244619535494`, 0.9671994306491277}, {
      0.13968183951893076`, 0.8899434264937287}}]}, 
    {Arrowheads[{{0.0380883831862504, 1.}}], 
     ArrowBox[{{0.14815902549525845`, 1.0415993868529068`}, {
      0.13755526021902723`, 0.9584006131470926}}]}, 
    {Arrowheads[{{0.020373052816228206`, 1.}}], 
     ArrowBox[{{0.1918546723552251, 0.}, {0.23671675621620342`, 0.}}]}, 
    {Arrowheads[{{0.01859302029464523, 1.}}], 
     ArrowBox[{{0.19402494849005816`, 0.07435625936884956}, {
      0.2345464800813704, 0.0685008834882933}}]}, 
    {Arrowheads[{{0.017269970403089117`, 1.}}], 
     ArrowBox[{{0.1961952246248912, 0.1487125187376991}, {
      0.23237620394653732`, 0.1370017669765866}}]}, 
    {Arrowheads[{{0.01651410618811323, 1.}}], 
     ArrowBox[{{0.19836550075972426`, 0.22306877810654865`}, {
      0.2302059278117043, 0.20550265046487987`}}]}, 
    {Arrowheads[{{0.01640402024148977, 1.}}], 
     ArrowBox[{{0.2005357768945573, 0.2974250374753982}, {
      0.22803565167687126`, 0.2740035339531732}}]}, 
    {Arrowheads[{{0.016952298027003668`, 1.}}], 
     ArrowBox[{{0.20270605302939032`, 0.37178129684424777`}, {
      0.22586537554203823`, 0.3425044174414665}}]}, 
    {Arrowheads[{{0.018099206837088728`, 1.}}], 
     ArrowBox[{{0.20487632916422335`, 0.44613755621309725`}, {
      0.22369509940720517`, 0.4110053009297597}}]}, 
    {Arrowheads[{{0.019740681834458183`, 1.}}], 
     ArrowBox[{{0.2070466052990564, 0.5204938155819469}, {
      0.22152482327237216`, 0.479506184418053}}]}, 
    {Arrowheads[{{0.021765112034380026`, 1.}}], 
     ArrowBox[{{0.20921688143388945`, 0.5948500749507963}, {
      0.2193545471375391, 0.5480070679063462}}]}, 
    {Arrowheads[{{0.024076088467006897`, 1.}}], 
     ArrowBox[{{0.21138715756872248`, 0.6692063343196458}, {
      0.21718427100270604`, 0.6165079513946394}}]}, 
    {Arrowheads[{{0.026599028578040005`, 1.}}], 
     ArrowBox[{{0.21355743370355554`, 0.7435625936884954}, {
      0.21501399486787304`, 0.6850088348829328}}]}, 
    {Arrowheads[{{0.029279189847771715`, 1.}}], 
     ArrowBox[{{0.21572770983838857`, 0.8179188530573449}, {
      0.21284371873303998`, 0.753509718371226}}]}, 
    {Arrowheads[{{0.03207718732075098, 1.}}], 
     ArrowBox[{{0.2178979859732216, 0.8922751124261944}, {
      0.21067344259820692`, 0.8220106018595192}}]}, 
    {Arrowheads[{{0.03496474347255324, 1.}}], 
     ArrowBox[{{0.22006826210805466`, 0.966631371795044}, {0.2085031664633739,
       0.8905114853478127}}]}, 
    {Arrowheads[{{0.037921405264238095`, 1.}}], 
     ArrowBox[{{0.2222385382428877, 1.0409876311638935`}, {
      0.20633289032854085`, 0.9590123688361059}}]}, 
    {Arrowheads[{{0.018520957105661998`, 1.}}], 
     ArrowBox[{{0.265322429413841, 0.}, {0.30610614201473035`, 0.}}]}, 
    {Arrowheads[{{0.0167166073215257, 1.}}], 
     ArrowBox[{{0.26753640238360354`, 0.07431256253392003}, {
      0.3038921690449678, 0.06854458032322282}}]}, 
    {Arrowheads[{{0.015416663460067757`, 1.}}], 
     ArrowBox[{{0.26975037535336616`, 0.14862512506784006`}, {
      0.30167819607520524`, 0.13708916064644563`}}]}, 
    {Arrowheads[{{0.014755050247507735`, 1.}}], 
     ArrowBox[{{0.2719643483231287, 0.22293768760176008`}, {
      0.2994642231054427, 0.20563374096966844`}}]}, 
    {Arrowheads[{{0.014817521622678851`, 1.}}], 
     ArrowBox[{{0.27417832129289127`, 0.2972502501356801}, {
      0.2972502501356801, 0.27417832129289127`}}]}, 
    {Arrowheads[{{0.015595378480088884`, 1.}}], 
     ArrowBox[{{0.2763922942626538, 0.3715628126696001}, {
      0.29503627716591757`, 0.3427229016161141}}]}, 
    {Arrowheads[{{0.016990649090086917`, 1.}}], 
     ArrowBox[{{0.2786062672324164, 0.4458753752035201}, {
      0.29282230419615496`, 0.4112674819393368}}]}, 
    {Arrowheads[{{0.018866847291858523`, 1.}}], 
     ArrowBox[{{0.280820240202179, 0.5201879377374401}, {0.29060833122639246`,
       0.4798120622625597}}]}, 
    {Arrowheads[{{0.021096045616009116`, 1.}}], 
     ArrowBox[{{0.28303421317194155`, 0.5945005002713601}, {
      0.2883943582566299, 0.5483566425857824}}]}, 
    {Arrowheads[{{0.023578333236209746`, 1.}}], 
     ArrowBox[{{0.2852481861417041, 0.6688130628052802}, {0.2861803852868673, 
      0.6169012229090052}}]}, 
    {Arrowheads[{{0.0262419873376494, 1.}}], 
     ArrowBox[{{0.28746215911146666`, 0.7431256253392001}, {
      0.28396641231710473`, 0.685445803232228}}]}, 
    {Arrowheads[{{0.02903713905204057, 1.}}], 
     ArrowBox[{{0.2896761320812292, 0.8174381878731202}, {0.2817524393473422, 
      0.7539903835554509}}]}, 
    {Arrowheads[{{0.031929272351438234`, 1.}}], 
     ArrowBox[{{0.2918901050509918, 0.8917507504070401}, {
      0.27953846637757956`, 0.8225349638786735}}]}, 
    {Arrowheads[{{0.03489428126675889, 1.}}], 
     ArrowBox[{{0.29410407802075433`, 0.9660633129409602}, {
      0.27732449340781706`, 0.8910795442018964}}]}, 
    {Arrowheads[{{0.0379150727418745, 1.}}], 
     ArrowBox[{{0.29631805099051695`, 1.0403758754748802`}, {
      0.2751105204380545, 0.9596241245251191}}]}, 
    {Arrowheads[{{0.01666886139509583, 1.}}], 
     ArrowBox[{{0.33879018647245684`, 0.}, {0.37549552781325735`, 0.}}]}, 
    {Arrowheads[{{0.014844202797155051`, 1.}}], 
     ArrowBox[{{0.34104785627714895`, 0.07426886569899051}, {
      0.37323785800856524`, 0.06858827715815234}}]}, 
    {Arrowheads[{{0.013585614083207258`, 1.}}], 
     ArrowBox[{{0.34330552608184106`, 0.14853773139798102`}, {
      0.37098018820387313`, 0.13717655431630468`}}]}, 
    {Arrowheads[{{0.013057817589981757`, 1.}}], 
     ArrowBox[{{0.34556319588653317`, 0.2228065970969715}, {0.368722518399181,
       0.205764831474457}}]}, 
    {Arrowheads[{{0.01334778735481126, 1.}}], 
     ArrowBox[{{0.3478208656912252, 0.29707546279596203`}, {
      0.36646484859448897`, 0.27435310863260937`}}]}, 
    {Arrowheads[{{0.014406227514026855`, 1.}}], 
     ArrowBox[{{0.35007853549591733`, 0.3713443284949525}, {
      0.36420717878979686`, 0.3429413857907617}}]}, 
    {Arrowheads[{{0.016082117148036618`, 1.}}], 
     ArrowBox[{{0.35233620530060944`, 0.44561319419394296`}, {
      0.3619495089851048, 0.411529662948914}}]}, 
    {Arrowheads[{{0.018205733426617753`, 1.}}], 
     ArrowBox[{{0.3545938751053015, 0.5198820598929335}, {0.3596918391804127, 
      0.4801179401070663}}]}, 
    {Arrowheads[{{0.020639333906393015`, 1.}}], 
     ArrowBox[{{0.3568515449099936, 0.594150925591924}, {0.3574341693757206, 
      0.5487062172652186}}]}, 
    {Arrowheads[{{0.02328593170690672, 1.}}], 
     ArrowBox[{{0.3591092147146857, 0.6684197912909144}, {
      0.35517649957102854`, 0.617294494423371}}]}, 
    {Arrowheads[{{0.02608076424644203, 1.}}], 
     ArrowBox[{{0.36136688451937776`, 0.7426886569899049}, {
      0.35291882976633643`, 0.6858827715815233}}]}, 
    {Arrowheads[{{0.028980977360311334`, 1.}}], 
     ArrowBox[{{0.36362455432406987`, 0.8169575226888953}, {
      0.3506611599616443, 0.7544710487396755}}]}, 
    {Arrowheads[{{0.03195789371501024, 1.}}], 
     ArrowBox[{{0.365882224128762, 0.8912263883878858}, {0.34840349015695227`,
       0.8230593258978278}}]}, 
    {Arrowheads[{{0.034991942351083126`, 1.}}], 
     ArrowBox[{{0.36813989393345403`, 0.9654952540868763}, {
      0.34614582035226016`, 0.8916476030559802}}]}, 
    {Arrowheads[{{0.03806946578511168, 1.}}], 
     ArrowBox[{{0.37039756373814614`, 1.039764119785867}, {
      0.34388815054756805`, 0.9602358802141325}}]}, 
    {Arrowheads[{{0.014816765684529614`, 1.}}], 
     ArrowBox[{{0.41225794353107276`, 0.}, {0.4448849136117843, 0.}}]}, 
    {Arrowheads[{{0.012977541858920185`, 1.}}], 
     ArrowBox[{{0.41455931017069436`, 0.07422516886406098}, {
      0.4425835469721626, 0.06863197399308187}}]}, 
    {Arrowheads[{{0.011787199457637386`, 1.}}], 
     ArrowBox[{{0.41686067681031597`, 0.14845033772812197`}, {
      0.440282180332541, 0.13726394798616373`}}]}, 
    {Arrowheads[{{0.011449933642277497`, 1.}}], 
     ArrowBox[{{0.41916204344993757`, 0.22267550659218294`}, {
      0.4379808136929194, 0.20589592197924558`}}]}, 
    {Arrowheads[{{0.01203766259600751, 1.}}], 
     ArrowBox[{{0.4214634100895592, 0.29690067545624393`}, {
      0.43567944705329775`, 0.27452789597232746`}}]}, 
    {Arrowheads[{{0.013429485922491899`, 1.}}], 
     ArrowBox[{{0.42376477672918084`, 0.3711258443203049}, {
      0.4333780804136762, 0.3431598699654093}}]}, 
    {Arrowheads[{{0.015409032887038304`, 1.}}], 
     ArrowBox[{{0.42606614336880244`, 0.4453510131843658}, {
      0.4310767137740546, 0.4117918439584911}}]}, 
    {Arrowheads[{{0.01778108342845218, 1.}}], 
     ArrowBox[{{0.42836751000842405`, 0.5195761820484268}, {
      0.42877534713443294`, 0.480423817951573}}]}, 
    {Arrowheads[{{0.02040923791496527, 1.}}], 
     ArrowBox[{{0.43066887664804565`, 0.5938013509124878}, {
      0.42647398049481133`, 0.5490557919446548}}]}, 
    {Arrowheads[{{0.023206647488468977`, 1.}}], 
     ArrowBox[{{0.43297024328766726`, 0.6680265197765487}, {
      0.42417261385518973`, 0.6176877659377367}}]}, 
    {Arrowheads[{{0.026118985700880518`, 1.}}], 
     ArrowBox[{{0.43527160992728886`, 0.7422516886406096}, {
      0.42187124721556807`, 0.6863197399308185}}]}, 
    {Arrowheads[{{0.02911178062977027, 1.}}], 
     ArrowBox[{{0.4375729765669105, 0.8164768575046706}, {0.4195698805759465, 
      0.7549517139239004}}]}, 
    {Arrowheads[{{0.03216258011779009, 1.}}], 
     ArrowBox[{{0.4398743432065321, 0.8907020263687315}, {
      0.41726851393632486`, 0.8235836879169821}}]}, 
    {Arrowheads[{{0.03525632963362738, 1.}}], 
     ArrowBox[{{0.44217570984615373`, 0.9649271952327925}, {
      0.41496714729670325`, 0.892215661910064}}]}, 
    {Arrowheads[{{0.03838264490158337, 1.}}], 
     ArrowBox[{{0.44447707648577534`, 1.0391523640968534`}, {
      0.41266578065708165`, 0.9608476359031459}}]}, 
    {Arrowheads[{{0.012964669973963372`, 1.}}], 
     ArrowBox[{{0.4857257005896886, 0.}, {0.5142742994103111, 0.}}]}, 
    {Arrowheads[{{0.011119517453242675`, 1.}}], 
     ArrowBox[{{0.4880707640642397, 0.07418147202913146}, {0.5119292359357601,
       0.06867567082801139}}]}, 
    {Arrowheads[{{0.010038973819561998`, 1.}}], 
     ArrowBox[{{0.49041582753879087`, 0.14836294405826292`}, {
      0.5095841724612089, 0.13735134165602278`}}]}, 
    {Arrowheads[{{0.009974700416776387, 1.}}], 
     ArrowBox[{{0.49276089101334203`, 0.22254441608739436`}, {
      0.5072391089866577, 0.20602701248403416`}}]}, 
    {Arrowheads[{{0.010944616373209813`, 1.}}], 
     ArrowBox[{{0.4951059544878932, 0.29672588811652584`}, {
      0.5048940455121066, 0.27470268331204556`}}]}, 
    {Arrowheads[{{0.01271420201218818, 1.}}], 
     ArrowBox[{{0.4974510179624443, 0.3709073601456573}, {0.5025489820375555, 
      0.34337835414005696`}}]}, 
    {Arrowheads[{{0.015003118480983606`, 1.}}], 
     ArrowBox[{{0.49979608143699544`, 0.4450888321747887}, {
      0.5002039185630043, 0.4120540249680683}}]}, 
    {Arrowheads[{{0.017610011970462715`, 1.}}], 
     ArrowBox[{{0.5021411449115466, 0.5192703042039202}, {
      0.49785885508845323`, 0.48072969579607966`}}]}, 
    {Arrowheads[{{0.020413422181078587`, 1.}}], 
     ArrowBox[{{0.5044862083860977, 0.5934517762330516}, {0.4955137916139021, 
      0.549405366624091}}]}, 
    {Arrowheads[{{0.023342652265408232`, 1.}}], 
     ArrowBox[{{0.5068312718606488, 0.667633248262183}, {0.4931687281393509, 
      0.6180810374521023}}]}, 
    {Arrowheads[{{0.02635578400507728, 1.}}], 
     ArrowBox[{{0.5091763353352, 0.7418147202913145}, {0.4908236646647998, 
      0.6867567082801138}}]}, 
    {Arrowheads[{{0.02942705578814356, 1.}}], 
     ArrowBox[{{0.5115213988097511, 0.8159961923204458}, {
      0.48847860119024866`, 0.7554323791081251}}]}, 
    {Arrowheads[{{0.03254000922391455, 1.}}], 
     ArrowBox[{{0.5138664622843022, 0.8901776643495772}, {0.4861335377156975, 
      0.8241080499361364}}]}, 
    {Arrowheads[{{0.03568373739288077, 1.}}], 
     ArrowBox[{{0.5162115257588534, 0.9643591363787087}, {0.4837884742411464, 
      0.8927837207641479}}]}, 
    {Arrowheads[{{0.03885077031994884, 1.}}], 
     ArrowBox[{{0.5185565892334045, 1.0385406084078401`}, {
      0.48144341076659525`, 0.9614593915921592}}]}, 
    {Arrowheads[{{0.011112574263397205`, 1.}}], 
     ArrowBox[{{0.5591934576483044, 0.}, {0.583663685208838, 0.}}]}, 
    {Arrowheads[{{0.009275321221493648, 1.}}], 
     ArrowBox[{{0.5615822179577852, 0.07413777519420194}, {0.5812749248993575,
       0.06871936766294091}}]}, 
    {Arrowheads[{{0.008372435900322672, 1.}}], 
     ArrowBox[{{0.5639709782672658, 0.14827555038840387`}, {
      0.5788861645898769, 0.13743873532588183`}}]}, 
    {Arrowheads[{{0.008699862308616293, 1.}}], 
     ArrowBox[{{0.5663597385767465, 0.2224133255826058}, {0.5764974042803962, 
      0.20615810298882273`}}]}, 
    {Arrowheads[{{0.010139099940995832`, 1.}}], 
     ArrowBox[{{0.5687484988862271, 0.29655110077680774`}, {
      0.5741086439709154, 0.27487747065176366`}}]}, 
    {Arrowheads[{{0.012306051892417411`, 1.}}], 
     ArrowBox[{{0.5711372591957078, 0.37068887597100963`}, {
      0.5717198836614348, 0.34359683831470456`}}]}, 
    {Arrowheads[{{0.014886245358887117`, 1.}}], 
     ArrowBox[{{0.5735260195051884, 0.44482665116521153`}, {
      0.5693311233519541, 0.4123162059776454}}]}, 
    {Arrowheads[{{0.017699873184061337`, 1.}}], 
     ArrowBox[{{0.5759147798146691, 0.5189644263594134}, {0.5669423630424735, 
      0.48103557364058636`}}]}, 
    {Arrowheads[{{0.020651744302103654`, 1.}}], 
     ArrowBox[{{0.5783035401241498, 0.5931022015536154}, {0.5645536027329928, 
      0.5497549413035272}}]}, 
    {Arrowheads[{{0.023690238429526955`, 1.}}], 
     ArrowBox[{{0.5806923004336304, 0.6672399767478172}, {0.5621648424235121, 
      0.618474308966468}}]}, 
    {Arrowheads[{{0.026785893173776176`, 1.}}], 
     ArrowBox[{{0.5830810607431111, 0.7413777519420192}, {0.5597760821140314, 
      0.687193676629409}}]}, 
    {Arrowheads[{{0.029920972101969073`, 1.}}], 
     ArrowBox[{{0.5854698210525917, 0.8155155271362211}, {0.5573873218045508, 
      0.75591304429235}}]}, 
    {Arrowheads[{{0.03308426955635299, 1.}}], 
     ArrowBox[{{0.5878585813620725, 0.889653302330423}, {0.5549985614950702, 
      0.8246324119552907}}]}, 
    {Arrowheads[{{0.03626840270495498, 1.}}], 
     ArrowBox[{{0.5902473416715531, 0.9637910775246249}, {0.5526098011855896, 
      0.8933517796182316}}]}, 
    {Arrowheads[{{0.039468329070292525`, 1.}}], 
     ArrowBox[{{0.5926361019810338, 1.0379288527188268`}, {0.5502210408761089,
       0.9620711472811725}}]}, 
    {Arrowheads[{{0.009260478552831013, 1.}}], 
     ArrowBox[{{0.6326612147069204, 0.}, {0.6530530710073651, 0.}}]}, 
    {Arrowheads[{{0.0074552222506639185`, 1.}}], 
     ArrowBox[{{0.6350936718513305, 0.07409407835927241}, {0.6506206138629548,
       0.06876306449787044}}]}, 
    {Arrowheads[{{0.0068474910529046406`, 1.}}], 
     ArrowBox[{{0.6375261289957407, 0.14818815671854482`}, {
      0.6481881567185447, 0.13752612899574088`}}]}, 
    {Arrowheads[{{0.007725273313345366, 1.}}], 
     ArrowBox[{{0.6399585861401509, 0.22228223507781722`}, {
      0.6457556995741345, 0.2062891934936113}}]}, 
    {Arrowheads[{{0.00969306354800308, 1.}}], 
     ArrowBox[{{0.6423910432845611, 0.29637631343708964`}, {
      0.6433232424297243, 0.27505225799148175`}}]}, 
    {Arrowheads[{{0.012235809464797527`, 1.}}], 
     ArrowBox[{{0.6448235004289713, 0.37047039179636204`}, {
      0.6408907852853141, 0.3438153224893522}}]}, 
    {Arrowheads[{{0.015065142040667721`, 1.}}], 
     ArrowBox[{{0.6472559575733815, 0.4445644701556344}, {0.638458328140904, 
      0.4125783869872226}}]}, 
    {Arrowheads[{{0.018046769663450105`, 1.}}], 
     ArrowBox[{{0.6496884147177916, 0.5186585485149068}, {0.6360258709964937, 
      0.481341451485093}}]}, 
    {Arrowheads[{{0.021116278199512697`, 1.}}], 
     ArrowBox[{{0.6521208718622018, 0.5927526268741792}, {0.6335934138520835, 
      0.5501045159829634}}]}, 
    {Arrowheads[{{0.024240305976745986`, 1.}}], 
     ArrowBox[{{0.654553329006612, 0.6668467052334516}, {0.6311609567076734, 
      0.6188675804808339}}]}, 
    {Arrowheads[{{0.02740021134638901, 1.}}], 
     ArrowBox[{{0.6569857861510222, 0.740940783592724}, {0.6287284995632632, 
      0.6876306449787043}}]}, 
    {Arrowheads[{{0.030584876147219664`, 1.}}], 
     ArrowBox[{{0.6594182432954324, 0.8150348619519963}, {0.626296042418853, 
      0.7563937094765746}}]}, 
    {Arrowheads[{{0.03378729990970289, 1.}}], 
     ArrowBox[{{0.6618507004398426, 0.8891289403112687}, {0.6238635852744429, 
      0.825156773974445}}]}, 
    {Arrowheads[{{0.037002872058383665`, 1.}}], 
     ArrowBox[{{0.6642831575842527, 0.963223018670541}, {0.6214311281300327, 
      0.8939198384723155}}]}, 
    {Arrowheads[{{0.04022843975452539, 1.}}], 
     ArrowBox[{{0.6667156147286629, 1.0373170970298133`}, {0.6189986709856223,
       0.9626829029701859}}]}, 
    {Arrowheads[{{0.00740838284226482, 1.}}], 
     ArrowBox[{{0.7061289717655362, 0.}, {0.722442456805892, 0.}}]}, 
    {Arrowheads[{{0.005682423209131854, 1.}}], 
     ArrowBox[{{0.7086051257448759, 0.07405038152434289}, {0.7199663028265523,
       0.06880676133279996}}]}, 
    {Arrowheads[{{0.005581428830831987, 1.}}], 
     ArrowBox[{{0.7110812797242156, 0.14810076304868577`}, {
      0.7174901488472125, 0.13761352266559992`}}]}, 
    {Arrowheads[{{0.007174355659949615, 1.}}], 
     ArrowBox[{{0.7135574337035553, 0.22215114457302865`}, {
      0.7150139948678728, 0.20642028399839987`}}]}, 
    {Arrowheads[{{0.009656450049221272, 1.}}], 
     ArrowBox[{{0.716033587682895, 0.29620152609737155`}, {0.7125378408885331,
       0.27522704533119985`}}]}, 
    {Arrowheads[{{0.012509168359511574`, 1.}}], 
     ArrowBox[{{0.7185097416622348, 0.3702519076217144}, {0.7100616869091935, 
      0.3440338066639998}}]}, 
    {Arrowheads[{{0.015529590323506644`, 1.}}], 
     ArrowBox[{{0.7209858956415744, 0.44430228914605724`}, {
      0.7075855329298537, 0.41284056799679975`}}]}, 
    {Arrowheads[{{0.01863635359347813, 1.}}], 
     ArrowBox[{{0.7234620496209142, 0.5183526706704001}, {0.705109378950514, 
      0.48164732932959964`}}]}, 
    {Arrowheads[{{0.021792562767654997`, 1.}}], 
     ArrowBox[{{0.7259382036002539, 0.592403052194743}, {0.7026332249711742, 
      0.5504540906623996}}]}, 
    {Arrowheads[{{0.024979482095893547`, 1.}}], 
     ArrowBox[{{0.7284143575795936, 0.6664534337190858}, {0.7001570709918346, 
      0.6192608519951995}}]}, 
    {Arrowheads[{{0.028186696802779063`, 1.}}], 
     ArrowBox[{{0.7308905115589334, 0.7405038152434287}, {0.6976809170124949, 
      0.6880676133279995}}]}, 
    {Arrowheads[{{0.03140799013945927, 1.}}], 
     ArrowBox[{{0.733366665538273, 0.8145541967677715}, {0.6952047630331551, 
      0.7568743746607994}}]}, 
    {Arrowheads[{{0.034639434603133915`, 1.}}], 
     ArrowBox[{{0.7358428195176128, 0.8886045782921144}, {0.6927286090538155, 
      0.8256811359935994}}]}, 
    {Arrowheads[{{0.037878432276495594`, 1.}}], 
     ArrowBox[{{0.7383189734969524, 0.9626549598164572}, {0.6902524550744756, 
      0.8944878973263992}}]}, 
    {Arrowheads[{{0.04112319845173981, 1.}}], 
     ArrowBox[{{0.7407951274762922, 1.0367053413408}, {0.687776301095136, 
      0.9632946586591992}}]}, 
    {Arrowheads[{{0.005556287131698628, 1.}}], 
     ArrowBox[{{0.7795967288241521, 0.}, {0.791831842604419, 0.}}]}, 
    {Arrowheads[{{0.004019996010513826, 1.}}], 
     ArrowBox[{{0.7821165796384213, 0.07400668468941336}, {0.7893119917901497,
       0.06885045816772949}}]}, 
    {Arrowheads[{{0.00478438346363593, 1.}}], 
     ArrowBox[{{0.7846364304526905, 0.14801336937882673`}, {
      0.7867921409758803, 0.13770091633545897`}}]}, 
    {Arrowheads[{{0.007145781853483705, 1.}}], 
     ArrowBox[{{0.7871562812669598, 0.22202005406824007`}, {
      0.7842722901616113, 0.20655137450318847`}}]}, 
    {Arrowheads[{{0.010033742444170065`, 1.}}], 
     ArrowBox[{{0.789676132081229, 0.29602673875765345`}, {0.781752439347342, 
      0.27540183267091795`}}]}, 
    {Arrowheads[{{0.01310464393038593, 1.}}], 
     ArrowBox[{{0.7921959828954982, 0.3700334234470668}, {0.7792325885330726, 
      0.34425229083864745`}}]}, 
    {Arrowheads[{{0.01625513191630139, 1.}}], 
     ArrowBox[{{0.7947158337097675, 0.4440401081364801}, {0.7767127377188034, 
      0.4131027490063769}}]}, 
    {Arrowheads[{{0.01944656398077606, 1.}}], 
     ArrowBox[{{0.7972356845240367, 0.5180467928258934}, {0.7741928869045342, 
      0.48195320717410634`}}]}, 
    {Arrowheads[{{0.022661648299900312`, 1.}}], 
     ArrowBox[{{0.7997555353383059, 0.5920534775153068}, {0.7716730360902649, 
      0.5508036653418358}}]}, 
    {Arrowheads[{{0.02589157532183448, 1.}}], 
     ArrowBox[{{0.8022753861525752, 0.6660601622047201}, {0.7691531852759957, 
      0.6196541235095653}}]}, 
    {Arrowheads[{{0.02913140843817855, 1.}}], 
     ArrowBox[{{0.8047952369668444, 0.7400668468941334}, {0.7666333344617265, 
      0.6885045816772947}}]}, 
    {Arrowheads[{{0.03237817410703749, 1.}}], 
     ArrowBox[{{0.8073150877811136, 0.8140735315835468}, {0.7641134836474572, 
      0.7573550398450242}}]}, 
    {Arrowheads[{{0.03562997720160906, 1.}}], 
     ArrowBox[{{0.8098349385953829, 0.8880802162729601}, {0.761593632833188, 
      0.8262054980127537}}]}, 
    {Arrowheads[{{0.0388855539787802, 1.}}], 
     ArrowBox[{{0.8123547894096521, 0.9620869009623734}, {0.7590737820189188, 
      0.8950559561804831}}]}, 
    {Arrowheads[{{0.042144029909988126`, 1.}}], 
     ArrowBox[{{0.8148746402239213, 1.0360935856517868`}, {0.7565539312046496,
       0.9639064143482126}}]}, 
    {Arrowheads[{{0.0037041914211323845`, 1.}}], 
     ArrowBox[{{0.853064485882768, 0.}, {0.8612212284029458, 0.}}]}, 
    {Arrowheads[{{0.002681723698928597, 1.}}], 
     ArrowBox[{{0.8556280335319667, 0.07396298785448384}, {0.858657680753747, 
      0.06889415500265901}}]}, 
    {Arrowheads[{{0.004701283412007818, 1.}}], 
     ArrowBox[{{0.8581915811811655, 0.14792597570896768`}, {
      0.8560941331045483, 0.13778831000531802`}}]}, 
    {Arrowheads[{{0.007645410731429958, 1.}}], 
     ArrowBox[{{0.8607551288303642, 0.2218889635634515}, {0.8535305854553495, 
      0.20668246500797705`}}]}, 
    {Arrowheads[{{0.010781575051639222`, 1.}}], 
     ArrowBox[{{0.863318676479563, 0.29585195141793535`}, {0.8509670378061508,
       0.27557662001063604`}}]}, 
    {Arrowheads[{{0.013981138428097143`, 1.}}], 
     ArrowBox[{{0.8658822241287617, 0.36981493927241915`}, {
      0.8484034901569519, 0.34447077501329504`}}]}, 
    {Arrowheads[{{0.017208774468471584`, 1.}}], 
     ArrowBox[{{0.8684457717779605, 0.44377792712690295`}, {
      0.8458399425077532, 0.41336493001595404`}}]}, 
    {Arrowheads[{{0.020451196089164195`, 1.}}], 
     ArrowBox[{{0.8710093194271592, 0.5177409149813867}, {0.8432763948585544, 
      0.482259085018613}}]}, 
    {Arrowheads[{{0.023702336172997565`, 1.}}], 
     ArrowBox[{{0.8735728670763581, 0.5917039028358706}, {0.8407128472093558, 
      0.5511532400212721}}]}, 
    {Arrowheads[{{0.02695904068114731, 1.}}], 
     ArrowBox[{{0.8761364147255568, 0.6656668906903543}, {0.838149299560157, 
      0.6200473950239309}}]}, 
    {Arrowheads[{{0.030219510661943918`, 1.}}], 
     ArrowBox[{{0.8786999623747556, 0.7396298785448382}, {0.8355857519109582, 
      0.68894155002659}}]}, 
    {Arrowheads[{{0.033482646111927104`, 1.}}], 
     ArrowBox[{{0.8812635100239543, 0.813592866399322}, {0.8330222042617594, 
      0.757835705029249}}]}, 
    {Arrowheads[{{0.03674773697080369, 1.}}], 
     ArrowBox[{{0.8838270576731531, 0.8875558542538058}, {0.8304586566125607, 
      0.826729860031908}}]}, 
    {Arrowheads[{{0.040014304568539195`, 1.}}], 
     ArrowBox[{{0.8863906053223518, 0.9615188421082896}, {0.8278951089633619, 
      0.895624015034567}}]}, 
    {Arrowheads[{{0.043282014550409836`, 1.}}], 
     ArrowBox[{{0.8889541529715506, 1.0354818299627735`}, {0.8253315613141632,
       0.9645181700372258}}]}, 
    {Arrowheads[{{0.0018520957105661923`, 1.}}], 
     ArrowBox[{{0.9265322429413838, 0.}, {0.9306106142014727, 0.}}]}, 
    {Arrowheads[{{0.002320292168289348, 1.}}], 
     ArrowBox[{{0.9291394874255121, 0.07391929101955431}, {0.9280033697173445,
       0.06893785183758853}}]}, 
    {Arrowheads[{{0.005365404884290031, 1.}}], 
     ArrowBox[{{0.9317467319096404, 0.14783858203910863`}, {
      0.9253961252332162, 0.13787570367517707`}}]}, 
    {Arrowheads[{{0.00858147423229325, 1.}}], 
     ArrowBox[{{0.9343539763937686, 0.22175787305866293`}, {
      0.9227888807490878, 0.20681355551276562`}}]}, 
    {Arrowheads[{{0.011829883643877251`, 1.}}], 
     ArrowBox[{{0.9369612208778969, 0.29567716407821726`}, {
      0.9201816362649595, 0.27575140735035414`}}]}, 
    {Arrowheads[{{0.015089761782640768`, 1.}}], 
     ArrowBox[{{0.9395684653620252, 0.36959645509777156`}, {
      0.9175743917808313, 0.3446892591879427}}]}, 
    {Arrowheads[{{0.018354999070744445`, 1.}}], 
     ArrowBox[{{0.9421757098461535, 0.4435157461173258}, {0.914967147296703, 
      0.4136271110255312}}]}, 
    {Arrowheads[{{0.021623167846507255`, 1.}}], 
     ArrowBox[{{0.9447829543302818, 0.5174350371368801}, {0.9123599028125747, 
      0.4825649628631197}}]}, 
    {Arrowheads[{{0.024893113528653435`, 1.}}], 
     ArrowBox[{{0.9473901988144101, 0.5913543281564344}, {0.9097526583284465, 
      0.5515028147007083}}]}, 
    {Arrowheads[{{0.028164217212336064`, 1.}}], 
     ArrowBox[{{0.9499974432985383, 0.6652736191759887}, {0.9071454138443181, 
      0.6204406665382968}}]}, 
    {Arrowheads[{{0.031436117410040904`, 1.}}], 
     ArrowBox[{{0.9526046877826666, 0.7391929101955429}, {0.9045381693601898, 
      0.6893785183758852}}]}, 
    {Arrowheads[{{0.034708588865770905`, 1.}}], 
     ArrowBox[{{0.9552119322667949, 0.8131122012150972}, {0.9019309248760616, 
      0.7583163702134736}}]}, 
    {Arrowheads[{{0.037981483921634314`, 1.}}], 
     ArrowBox[{{0.9578191767509232, 0.8870314922346515}, {0.8993236803919333, 
      0.8272542220510622}}]}, 
    {Arrowheads[{{0.0412547017602434, 1.}}], 
     ArrowBox[{{0.9604264212350515, 0.9609507832542058}, {0.896716435907805, 
      0.8961920738886507}}]}, 
    {Arrowheads[{{0.04452817119942047, 1.}}], 
     ArrowBox[{{0.9630336657191798, 1.03487007427376}, {0.8941091914236768, 
      0.9651299257262392}}]}, 
    {Arrowheads[{{0.003276691802876123, 1.}}], 
     ArrowBox[{{1.0026509413190574`, 0.07387559418462479}, {
      0.9973490586809419, 0.06898154867251806}}]}, 
    {Arrowheads[{{0.006553383605752321, 1.}}], 
     ArrowBox[{{1.0053018826381153`, 0.14775118836924958`}, {
      0.9946981173618841, 0.13796309734503612`}}]}, 
    {Arrowheads[{{0.009830075408628482, 1.}}], 
     ArrowBox[{{1.0079528239571731`, 0.22162678255387436`}, {
      0.9920471760428263, 0.20694464601755416`}}]}, 
    {Arrowheads[{{0.013106767211504717`, 1.}}], 
     ArrowBox[{{1.010603765276231, 0.29550237673849916`}, {0.9893962347237684,
       0.27592619469007224`}}]}, 
    {Arrowheads[{{0.016383459014380795`, 1.}}], 
     ArrowBox[{{1.0132547065952886`, 0.3693779709231239}, {0.9867452934047106,
       0.3449077433625903}}]}, 
    {Arrowheads[{{0.019660150817256944`, 1.}}], 
     ArrowBox[{{1.0159056479143465`, 0.44325356510774866`}, {
      0.9840943520856529, 0.4138892920351083}}]}, 
    {Arrowheads[{{0.02293684262013317, 1.}}], 
     ArrowBox[{{1.0185565892334043`, 0.5171291592923735}, {0.981443410766595, 
      0.4828708407076263}}]}, 
    {Arrowheads[{{0.02621353442300932, 1.}}], 
     ArrowBox[{{1.0212075305524622`, 0.5910047534769982}, {0.9787924694475373,
       0.5518523893801444}}]}, 
    {Arrowheads[{{0.029490226225885544`, 1.}}], 
     ArrowBox[{{1.02385847187152, 0.664880347661623}, {0.9761415281284793, 
      0.6208339380526624}}]}, 
    {Arrowheads[{{0.03276691802876163, 1.}}], 
     ArrowBox[{{1.0265094131905776`, 0.7387559418462477}, {0.9734905868094216,
       0.6898154867251804}}]}, 
    {Arrowheads[{{0.03604360983163778, 1.}}], 
     ArrowBox[{{1.0291603545096355`, 0.8126315360308725}, {0.9708396454903638,
       0.7587970353976985}}]}, 
    {Arrowheads[{{0.039320301634513964`, 1.}}], 
     ArrowBox[{{1.0318112958286934`, 0.8865071302154972}, {0.968188704171306, 
      0.8277785840702165}}]}, 
    {Arrowheads[{{0.04259699343739012, 1.}}], 
     ArrowBox[{{1.0344622371477512`, 0.960382724400122}, {0.9655377628522482, 
      0.8967601327427346}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{1.037113178466809, 1.0342583185847467`}, {0.9628868215331903, 
      0.9657416814152525}}]}}},
  AspectRatio->1,
  Frame->True,
  Method->{"TransparentPolygonMesh" -> True},
  PlotRange->{{-0.05050762722761054, 
   1.0505076272276106`}, {-0.05050762722761054, 1.0505076272276106`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5656562470787535`*^9, 3.5656563024169188`*^9}, 
   3.565656705344965*^9, {3.565656768510578*^9, 3.5656567916709027`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.95"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "1.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]", "=", "0.5"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]1", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Nu]"}], 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}], "+", 
      SqrtBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
        RowBox[{"4", "\[Nu]", 
         RowBox[{"(", 
          RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}]]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]2", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Nu]"}], 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}], "-", 
      SqrtBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
        RowBox[{"4", "\[Nu]", 
         RowBox[{"(", 
          RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}]]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"r0", "=", 
  RowBox[{"\[Beta]", "/", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{"diff", "=", 
  RowBox[{"\[Beta]", "-", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Xi]", "=", 
   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]", 
 RowBox[{"\[Xi]", "=", 
  RowBox[{"\[Sqrt]", "\[Xi]"}]}], "\[IndentingNewLine]", 
 RowBox[{"e1", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     RowBox[{"\[Gamma]", " ", "\[Nu]", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"r0", "-", "1"}], ")"}], 
       RowBox[{"\[Beta]", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], "}"}]}], 
  "\[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]", "=", "\[Xi]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "1"]}], "+", 
      RowBox[{"\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s", "-", "i"}], ")"}]}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Beta]", " ", "s", " ", 
       FractionBox["i", "1"]}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "+", "\[Delta]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     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}}],

Cell[BoxData["0.95`"], "Output",
 CellChangeTimes->{
  3.5656582827021847`*^9, 3.5656583820688686`*^9, 3.5656584404992104`*^9, {
   3.5656585387838316`*^9, 3.5656586007233744`*^9}, 3.565658665173061*^9, {
   3.565658709509597*^9, 3.5656587299627666`*^9}, 3.565659305971712*^9, {
   3.5656593563815956`*^9, 3.5656593852442465`*^9}, {3.5656594348950863`*^9, 
   3.565659455674275*^9}, 3.565718806933359*^9, 3.565718952807702*^9, {
   3.5657190275789785`*^9, 3.5657190730955825`*^9}, 3.565719116680075*^9, 
   3.565719202660993*^9, 3.565719414126088*^9, 3.565719488938367*^9, {
   3.5657195466726694`*^9, 3.565719638736935*^9}, {3.5657196697017064`*^9, 
   3.5657197227277393`*^9}, 3.5657198877961807`*^9, {3.565719918501937*^9, 
   3.5657199419562783`*^9}, {3.5657200876526117`*^9, 3.5657201271228695`*^9}, 
   3.5657212261087275`*^9, 3.565721366404752*^9, 3.565721520658575*^9, {
   3.5657215508693027`*^9, 3.5657216518160768`*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.050000000000000044`"}]], "Output",
 CellChangeTimes->{
  3.5656582827021847`*^9, 3.5656583820688686`*^9, 3.5656584404992104`*^9, {
   3.5656585387838316`*^9, 3.5656586007233744`*^9}, 3.565658665173061*^9, {
   3.565658709509597*^9, 3.5656587299627666`*^9}, 3.565659305971712*^9, {
   3.5656593563815956`*^9, 3.5656593852442465`*^9}, {3.5656594348950863`*^9, 
   3.565659455674275*^9}, 3.565718806933359*^9, 3.565718952807702*^9, {
   3.5657190275789785`*^9, 3.5657190730955825`*^9}, 3.565719116680075*^9, 
   3.565719202660993*^9, 3.565719414126088*^9, 3.565719488938367*^9, {
   3.5657195466726694`*^9, 3.565719638736935*^9}, {3.5657196697017064`*^9, 
   3.5657197227277393`*^9}, 3.5657198877961807`*^9, {3.565719918501937*^9, 
   3.5657199419562783`*^9}, {3.5657200876526117`*^9, 3.5657201271228695`*^9}, 
   3.5657212261087275`*^9, 3.565721366404752*^9, 3.565721520658575*^9, {
   3.5657215508693027`*^9, 3.565721651818077*^9}}],

Cell[BoxData["0.866386172558173`"], "Output",
 CellChangeTimes->{
  3.5656582827021847`*^9, 3.5656583820688686`*^9, 3.5656584404992104`*^9, {
   3.5656585387838316`*^9, 3.5656586007233744`*^9}, 3.565658665173061*^9, {
   3.565658709509597*^9, 3.5656587299627666`*^9}, 3.565659305971712*^9, {
   3.5656593563815956`*^9, 3.5656593852442465`*^9}, {3.5656594348950863`*^9, 
   3.565659455674275*^9}, 3.565718806933359*^9, 3.565718952807702*^9, {
   3.5657190275789785`*^9, 3.5657190730955825`*^9}, 3.565719116680075*^9, 
   3.565719202660993*^9, 3.565719414126088*^9, 3.565719488938367*^9, {
   3.5657195466726694`*^9, 3.565719638736935*^9}, {3.5657196697017064`*^9, 
   3.5657197227277393`*^9}, 3.5657198877961807`*^9, {3.565719918501937*^9, 
   3.5657199419562783`*^9}, {3.5657200876526117`*^9, 3.5657201271228695`*^9}, 
   3.5657212261087275`*^9, 3.565721366404752*^9, 3.565721520658575*^9, {
   3.5657215508693027`*^9, 3.565721651820077*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5656582827021847`*^9, 3.5656583820688686`*^9, 3.5656584404992104`*^9, {
   3.5656585387838316`*^9, 3.5656586007233744`*^9}, 3.565658665173061*^9, {
   3.565658709509597*^9, 3.5656587299627666`*^9}, 3.565659305971712*^9, {
   3.5656593563815956`*^9, 3.5656593852442465`*^9}, {3.5656594348950863`*^9, 
   3.565659455674275*^9}, 3.565718806933359*^9, 3.565718952807702*^9, {
   3.5657190275789785`*^9, 3.5657190730955825`*^9}, 3.565719116680075*^9, 
   3.565719202660993*^9, 3.565719414126088*^9, 3.565719488938367*^9, {
   3.5657195466726694`*^9, 3.565719638736935*^9}, {3.5657196697017064`*^9, 
   3.5657197227277393`*^9}, 3.5657198877961807`*^9, {3.565719918501937*^9, 
   3.5657199419562783`*^9}, {3.5657200876526117`*^9, 3.5657201271228695`*^9}, 
   3.5657212261087275`*^9, 3.565721366404752*^9, 3.565721520658575*^9, {
   3.5657215508693027`*^9, 3.5657216518260775`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.0526315789473684`", ",", 
   RowBox[{"-", "0.017543859649122823`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5656582827021847`*^9, 3.5656583820688686`*^9, 3.5656584404992104`*^9, {
   3.5656585387838316`*^9, 3.5656586007233744`*^9}, 3.565658665173061*^9, {
   3.565658709509597*^9, 3.5656587299627666`*^9}, 3.565659305971712*^9, {
   3.5656593563815956`*^9, 3.5656593852442465`*^9}, {3.5656594348950863`*^9, 
   3.565659455674275*^9}, 3.565718806933359*^9, 3.565718952807702*^9, {
   3.5657190275789785`*^9, 3.5657190730955825`*^9}, 3.565719116680075*^9, 
   3.565719202660993*^9, 3.565719414126088*^9, 3.565719488938367*^9, {
   3.5657195466726694`*^9, 3.565719638736935*^9}, {3.5657196697017064`*^9, 
   3.5657197227277393`*^9}, 3.5657198877961807`*^9, {3.565719918501937*^9, 
   3.5657199419562783`*^9}, {3.5657200876526117`*^9, 3.5657201271228695`*^9}, 
   3.5657212261087275`*^9, 3.565721366404752*^9, 3.565721520658575*^9, {
   3.5657215508693027`*^9, 3.5657216518270774`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.11534738027957019`, -0.9352419087006488}, {
      0.2571434324988206, -0.8326181557139429}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.11384043495810162`, -0.8093231550723368}, {
      0.2586503778202892, -0.7109980028970627}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.11203996953545499`, -0.6827914696924642}, {
      0.2604508432429358, -0.589990781831743}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.10987420991093665`, -0.5553636790903165}, {
      0.26261660286745414`, -0.46987966598869835`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.10727236182605053`, -0.4265708752836572}, {
      0.26521845095234026`, -0.3511335633501653}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.10422210598951158`, -0.2956051671639138}, {
      0.2682687067888792, -0.2345603650247165}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.10098108940405057`, -0.16104742102402606`}, {
      0.2715097233743402, -0.12157920471941196`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.09877917259080775, -0.02055993667665348}, {
      0.27371164018758304`, -0.014527782621592244`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.10156419125786204`, 0.12832832144563977`}, {
      0.27092662152052877`, 0.08412286570130678}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.11635279649805501`, 0.28266820749594646`}, {
      0.2561380162803358, 0.17732188609619237`}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.1426242962196122, 0.4296370083671003}, {0.2298665165587786, 
      0.2778919916702308}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.16803371618467944`, 0.5631363662645226}, {
      0.20445709659371133`, 0.3919315402180008}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.186274567260371, 0.6888216212831387}, {0.1862162455180198, 
      0.5137851916445769}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.1984364261598713, 0.811737834229006}, {0.1740543866185195, 
      0.6384078851439019}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.20667615337760167`, 0.933942391363808}, {
      0.16581465940078913`, 0.7637422344542923}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.2348178546523309, -0.9287055748688545}, {
      0.38521186457125217`, -0.8391544895457372}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.23382196462336297`, -0.8032196259875365}, {
      0.3862077546002201, -0.7171015319818629}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.23261619344096507`, -0.6772431177635614}, {
      0.387413525782618, -0.5955391337606457}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.23113784349029387`, -0.5505407324339616}, {
      0.3888918757332892, -0.47470261264505326`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.22931029119804686`, -0.42270796347741396`}, {
      0.3907194280255362, -0.35499647515640853`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.2270692346805786, -0.2930016142131175}, {
      0.3929604845430045, -0.23716391797551276`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.2245053369282315, -0.15995628221514543`}, {
      0.3955243822953516, -0.12267034352829258`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.2225486258134039, -0.02055993667665348}, {
      0.3974810934101792, -0.014527782621592244`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.22590546877557913`, 0.1304133828207665}, {
      0.3941242504480039, 0.08203780432618005}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.24813013300049344`, 0.2918797734073675}, {
      0.3718995862230896, 0.16811032018477137`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.2883004829657041, 0.438546129056931}, {0.331729236257879, 
      0.2689828709804001}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.3189088794299876, 0.5645990736224094}, {0.3011208397935955, 
      0.39046883286011397`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.3361526310695158, 0.6848273891199428}, {
      0.28387708815406726`, 0.5177794238077729}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.34604592321303174`, 0.8048299987479423}, {
      0.27398379601055134`, 0.6453157206249656}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.35219734871868513`, 0.9255239690482925}, {
      0.26783237050489794`, 0.7721606567698077}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.3547939137468309, -0.9216123308035694}, {
      0.5127747119219445, -0.8462477336110223}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.3542049603375522, -0.7965826249417106}, {
      0.5133636653312231, -0.7237385330276888}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.35347908301387665`, -0.6711834933013371}, {
      0.5140895426548987, -0.60159875822287}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.3525670055007592, -0.5452282326921077}, {
      0.5150016201680161, -0.4800151123869071}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.3513987623689444, -0.4183828788086345}, {
      0.5161698632998309, -0.35932155982518804`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.3498859947807713, -0.2899928243697275}, {
      0.517682630888004, -0.24017270781890274`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.34799293521184965`, -0.1586129747509954}, {
      0.5195756904569256, -0.12401365099244262`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.34631807903600004`, -0.02055993667665348}, {
      0.5212505466327753, -0.014527782621592244`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.35080780139760137`, 0.13405251085316996`}, {
      0.516760824271174, 0.07839867629377657}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.39206175190075554`, 0.3069279180842877}, {
      0.4755068737680198, 0.15306217550785112`}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.4501376142895762, 0.43974128936919865`}, {
      0.41743101137919914`, 0.26778771066813245`}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.475547926925025, 0.5544445462281743}, {0.39202069874375034`,
       0.4006233602543491}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.48632136181579977`, 0.671298386711265}, {0.3812472638529755,
       0.5313084262164507}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.4918696733497358, 0.7905368167110048}, {
      0.37569895231903955`, 0.6596089026619031}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.49517198187821715`, 0.911220136411281}, {0.3723966437905582,
       0.7864644894068192}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.4754059443662031, -0.9141156938195564}, {
      0.6397015877477645, -0.8537443705950353}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.4751074557854411, -0.7895211766986209}, {
      0.6400000763285265, -0.7307999812707784}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.4747314126442381, -0.6646735682076291}, {
      0.6403761194697295, -0.608108683316578}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.47424461350083635`, -0.5394362931015582}, {
      0.6408629186131313, -0.4858070519774567}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.47359394735605403`, -0.4135541953353842}, {
      0.6415135847579136, -0.36415024329843837`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.472694542189961, -0.28649189732836366`}, {
      0.6424129899240066, -0.2436736348602666}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.4714383448243365, -0.15692013834757806`}, {
      0.6436691872896312, -0.12570648739585993`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.4700875322585962, -0.020559936676653477`}, {
      0.6450199998553714, -0.014527782621592244`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.4776454279036845, 0.14192007870896983`}, {
      0.6374621042102832, 0.07053110843797672}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.5700437961138441, 0.3166174337678502}, {0.5450637360001235, 
      0.14337265982428865`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.6146075172550044, 0.42012946253462397`}, {
      0.5005000148589631, 0.28739953750270714`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.624885716355436, 0.5334432301505275}, {0.4902218157585316, 
      0.42162467633199585`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.6288908544185846, 0.6520030967942668}, {0.486216677695383, 
      0.5506037161334488}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.6309628194700221, 0.7727231446017816}, {
      0.48414471264394554`, 0.6774225747711263}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.6322166246085901, 0.8945029779109206}, {
      0.48289090750537755`, 0.8031816479071796}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.5967400728158458, -0.9064051319802605}, {
      0.765906365743314, -0.8614549324343311}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{0.5966204646544158, -0.7821806183674856}, {
      0.7660259739047441, -0.7381405396019137}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{0.5964659198984157, -0.6578078836223792}, {
      0.7661805186607442, -0.6149743679018279}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.5962588491198917, -0.5332005866227562}, {
      0.7663875894392682, -0.4920427584562586}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.5959680091665274, -0.40818940841116313`}, {
      0.7666784293926325, -0.36951503022265936`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.5955336711928734, -0.2823914984161484}, {
      0.7671127673662865, -0.24777403377248186`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.5948385877475342, -0.15472402815005054`}, {
      0.7678078508116257, -0.12790259759338746`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.5938569854811923, -0.02055993667665348}, {
      0.7687894530779675, -0.014527782621592244`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.6194384926682818, 0.16811032018477126`}, {
      0.7432079458908781, 0.0443408669621753}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.7504597786413642, 0.28365671780177604`}, {
      0.6121866599177958, 0.1763333757903628}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.7594073787947819, 0.3932904763926238}, {0.603239059764378, 
      0.3142385236447073}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.7616192754756064, 0.5123474870302176}, {0.6010271630835535, 
      0.4427204194523057}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{0.7625870714384388, 0.633793791315585}, {0.600059367120721, 
      0.5688130216121307}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.7631252547915168, 0.7561834006912971}, {0.5995211837676431, 
      0.6939623186816107}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.7634667960884095, 0.8790395241140958}, {0.5991796424707505, 
      0.8186451017040045}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.7188268455658934, -0.898682858326705}, {
      0.8913584994384589, -0.8691772060878867}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.7187954443039517, -0.7747285980955394}, {
      0.8913899007004005, -0.74559255987386}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.7187537386701011, -0.6507098994613687}, {
      0.8914316063342512, -0.6220723520628383}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{0.7186956957619559, -0.5265859550366525}, {
      0.8914896492423963, -0.4986573900423623}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.7186094938649705, -0.4022723008485336}, {
      0.8915758511393816, -0.375432137785289}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.7184686124070777, -0.2775611869940523}, {
      0.8917167325972745, -0.252604345194578}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.7182011558249124, -0.15176812540160287`}, {
      0.8919841891794398, -0.1308585003418351}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.7176264387037884, -0.020559936676653477`}, {
      0.8925589063005637, -0.014527782621592244`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.8775685188589575, 0.15528362523372674`}, {
      0.7326168261453948, 0.057167561913219804`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.8893786923867177, 0.2535599704652194}, {0.7208066526176345, 
      0.20643012312691944`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.8902386987502517, 0.37400290385079177`}, {
      0.7199466462541004, 0.3335260961865393}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.8905364139392679, 0.4964761237806065}, {0.7196489310650844, 
      0.4585917827019169}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.8906863698080096, 0.6195560160588595}, {0.7194989751963425, 
      0.5830507968688562}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.890776511340696, 0.7428975206202486}, {0.7194088336636562, 
      0.7072481987526593}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.8908366257821728, 0.8663755171634909}, {0.7193487192221794, 
      0.8313091086546092}}]}, 
    {Arrowheads[{{0.045873685240266276`, 1.}}], 
     ArrowBox[{{0.841641293929246, -0.8911387267081559}, {
      1.0160829575202983`, -0.8767213377064358}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.8416385873228192, -0.7673364499529678}, {
      1.0160856641267253`, -0.7529847080164316}}]}, 
    {Arrowheads[{{0.04587368524026636, 1.}}], 
     ArrowBox[{{0.8416348887025972, -0.6435218968976476}, {
      1.0160893627469474`, -0.6292603546265595}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{0.8416295307366177, -0.5196865962576239}, {
      1.0160947207129267`, -0.5055567488213909}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.8416210753895799, -0.39581195436378136`}, {
      1.0161031760599646`, -0.38189248427004113`}}]}, 
    {Arrowheads[{{0.045873685240266276`, 1.}}], 
     ArrowBox[{{0.8416057534908755, -0.27184769625580707`}, {
      1.0161184979586688`, -0.25831783593282326`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.8415695852169836, -0.14759432769468142`}, {
      1.016154666232561, -0.13503229804875655`}}]}, 
    {Arrowheads[{{0.04587368524026637, 1.}}], 
     ArrowBox[{{0.8413958919263845, -0.020559936676653474`}, {
      1.01632835952316, -0.01452778262159225}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.0158342205844288`, 0.11598743209052953`}, {
      0.8418900308651155, 0.09646375505641702}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.0159817474652149`, 0.23833832452801693`}, {
      0.8417425039843297, 0.22165176906412187`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.0160144799844695`, 0.361758618012693}, {0.841709771465075, 
      0.34577038202463806`}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{1.0160288270220925`, 0.48537008496896755`}, {
      0.8416954244274519, 0.4696978215135558}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{1.016036877716924, 0.6090494629196973}, {0.8416873737326205, 
      0.5935573500080183}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.016042030081362, 0.7327607106141237}, {0.8416822213681825, 
      0.7173850087587842}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.0160456102173872`, 0.8564894566396317}, {0.8416786412321572,
       0.8411951691784684}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.9651133592699195, -0.8839300322072958}, {
      1.1401497986248172`, -0.8839300322072958}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.9651133592699195, -0.7601605789846997}, {
      1.1401497986248172`, -0.7601605789846997}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.9651133592699195, -0.6363911257621035}, {
      1.1401497986248172`, -0.6363911257621035}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.9651133592699195, -0.5126216725395074}, {
      1.1401497986248172`, -0.5126216725395074}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.9651133592699195, -0.3888522193169113}, {
      1.1401497986248172`, -0.3888522193169113}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.9651133592699195, -0.26508276609431514`}, {
      1.1401497986248172`, -0.26508276609431514`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.9651133592699195, -0.141313312871719}, {
      1.1401497986248172`, -0.14131331287171897`}}]}, 
    {Arrowheads[{{0., 1.}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.1401497986248172`, 0.10622559357347328`}, {
      0.9651133592699194, 0.10622559357347326`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.1401497986248172`, 0.2299950467960694}, {0.9651133592699194,
       0.2299950467960694}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.1401497986248172`, 0.35376450001866555`}, {
      0.9651133592699194, 0.35376450001866555`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.1401497986248172`, 0.4775339532412617}, {0.9651133592699194,
       0.4775339532412617}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.1401497986248172`, 0.6013034064638578}, {0.9651133592699194,
       0.6013034064638578}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.1401497986248172`, 0.725072859686454}, {0.9651133592699194, 
      0.725072859686454}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.1401497986248172`, 0.8488423129090501}, {0.9651133592699194,
       0.8488423129090501}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.0891442481745692`, -0.8771704151847773}, {
      1.26365781616536, -0.8906896492298143}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{1.0891499101536897`, -0.7533282673399236}, {
      1.263652154186239, -0.7669928906294757}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.089158084254938, -0.6294552181354003}, {
      1.2636439800849912`, -0.6433270333888069}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.0891709128933484`, -0.505526246794877}, {
      1.2636311514465803`, -0.5197170982841377}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{1.089193925914734, -0.3814793369701514}, {
      1.263608138425195, -0.3962251016636711}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{1.0892469945289136`, -0.257107021716985}, {
      1.2635550698110154`, -0.2730585104716452}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{1.0894894540893358`, -0.13102660440666558`}, {
      1.2633126102505932`, -0.1516000213367724}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.263867265968352, -0.014527782621592239`}, {
      1.0889347983715767`, -0.020559936676653484`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.2638184643581305`, 0.1020266264221858}, {
      1.0889835999817983`, 0.11042456072476076`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.2637685580537947`, 0.22486141295165865`}, {
      1.0890335062861345`, 0.2351286806404802}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{1.2637461863757102`, 0.3482633353888142}, {
      1.0890558779642188`, 0.3592656646485169}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.2637335937133467`, 0.4718363686844899}, {
      1.0890684706265823`, 0.4832315377980335}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.263725532912029, 0.5954835829562777}, {1.0890765314278998`, 
      0.607123229971438}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.2637199342330314`, 0.7191696302304071}, {
      1.0890821301068976`, 0.7309760891425008}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.2637158202405177`, 0.8428785423144838}, {
      1.0890862440994116`, 0.8548060835036165}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.2136234311637895`, -0.8709282561812159}, {
      1.3867175396213318`, -0.8969318082333757}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.2136580598960902`, -0.7469303480635152}, {
      1.386682910889031, -0.7733908099058842}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.2137092968176628`, -0.6228300916670884}, {
      1.3866316739674585`, -0.6499521598571188}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.2137927455467317`, -0.4985388874940519}, {
      1.3865482252383896`, -0.526704457584963}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.2139521205719854`, -0.3738245001560938}, {
      1.3863888502131358`, -0.4038799384777288}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.2143711465130154`, -0.24782263216253045`}, {
      1.3859698242721061`, -0.28234290002609985`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.2175496696234644`, -0.1124474233624856}, {
      1.3827913011616568`, -0.17017920238095238`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.3876367191909482`, -0.014527782621592242`}, {
      1.2127042515941728`, -0.02055993667665348}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.3874455376092591`, 0.09970608162220175}, {
      1.2128954331758623`, 0.11274510552474482`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.38726730933767, 0.22141704969972834`}, {1.2130736614474513`,
       0.23857304389241052`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.3871743193949093`, 0.3442897100789378}, {1.213166651390212, 
      0.3632392899583933}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.3871181949513327`, 0.467557251481981}, {1.2132227758337888`,
       0.48751065500054236`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.3870807907167022`, 0.5910059502743561}, {
      1.2132601800684193`, 0.6116008626533596}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.38705411818398, 0.714552730006834}, {1.2132868526011413`, 
      0.7355929893660741}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.3870341513726665`, 0.8381585725524697}, {1.213306819412455, 
      0.8595260532656305}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.3384424207101064`, -0.8652320855931408}, {
      1.5094374565202073`, -0.9026279788214507}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.3385402663050212`, -0.7410207058181487}, {
      1.5093396109252926`, -0.7793004521512507}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.3386882452384596`, -0.6166025545171695}, {
      1.509191631991854, -0.6561796970070375}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.3389374907786484`, -0.4917884625777212}, {
      1.5089423864516653`, -0.5334548825012937}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.3394421666694978`, -0.36605824397846654`}, {
      1.5084377105608155`, -0.411646194655356}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.340953322333059, -0.23728599841247697`}, {
      1.5069265548972544`, -0.29287953377615333`}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{1.3620552120038587`, -0.07942858626042099}, {
      1.485824665226455, -0.203198039483017}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.5114061724135444`, -0.014527782621592244`}, {
      1.336473704816769, -0.020559936676653477`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.5110927817491766`, 0.09823680710948775}, {
      1.3367870954811372`, 0.11421438003745882`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.5107592355760555`, 0.21895654822400346`}, {
      1.3371206416542583`, 0.24103354536813537`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.5105663080923428`, 0.3413021211641988}, {
      1.3373135691379707`, 0.36622687887313227`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.5104437752749065`, 0.4642476814295928}, {1.337436101955407, 
      0.4908202250529306}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.5103595882545229`, 0.5874801314640823}, {
      1.3375202889757907`, 0.6151266814636334}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{1.510298326080913, 0.7108718847261036}, {1.3375815511494002`, 
      0.7392738346468044}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.510251796975614, 0.8343612258685481}, {1.3376280802546998`, 
      0.8633233999495522}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.4635037305782654`, -0.8600795523931988}, {
      1.6319150530972406`, -0.9077805120213928}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.4637020293406686`, -0.7356207782154661}, {
      1.6317167543348372`, -0.7847003797539334}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.4640076900887926`, -0.6108281857935024}, {
      1.6314110935867132`, -0.6619540657307047}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.4645379360547133`, -0.48538295527088215`}, {
      1.6308808476207923`, -0.5398603898081327}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{1.4656691485796924`, -0.35837538776131056`}, {
      1.6297496350958136`, -0.41932905087251193`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.4694878062589372`, -0.2258294563606608}, {
      1.625930977416569, -0.30433607582796945`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.5416949533394324`, -0.05400200028818186}, {
      1.5537238303360732`, -0.22862462545525614`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.6351756256361405`, -0.01452778262159224}, {
      1.460243158039365, -0.020559936676653484`}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.634763433244577, 0.09722377985349731}, {1.4606553504309288`,
       0.11522740729344925`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.6342746642492332`, 0.2171151249082458}, {
      1.4611441194262729`, 0.24287496868389302`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.633970089536411, 0.33898171245843484`}, {
      1.4614486941390947`, 0.36854728757889627`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.6337690236805416`, 0.4616223680721506}, {1.461649759994964, 
      0.49344553841037275`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.633627579178167, 0.5846449593679326}, {1.4617912044973391`, 
      0.6179618535597831}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.6335229984363326`, 0.7078838021772588}, {
      1.4618957852391734`, 0.7422619171956492}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.6334426516212641`, 0.831256894449338}, {1.4619761320542417`,
       0.866427731368762}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.5887252548913482`, -0.8554470181524026}, {
      1.7542324352293501`, -0.912413046262189}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.5890586913497424`, -0.7307266353510279}, {
      1.753898998770956, -0.7895945226183715}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{1.5895810275500264`, -0.605533610266586}, {
      1.7533766625706715`, -0.6672486412576212}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.5905102159319908`, -0.4794024029421095}, {
      1.752447474188707, -0.5458409421369053}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.592582872582309, -0.35097261659652135`}, {
      1.7503748175383889`, -0.4267318220373012}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.6003123595475017`, -0.2141438800124631}, {
      1.7426453305731964`, -0.3160216521761672}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.7099745070417336`, -0.06271609419239675}, {
      1.6329831830789647`, -0.21991053155104123`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.7589450788587366`, -0.014527782621592242`}, {
      1.5840126112619612`, -0.02055993667665348}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.7584531340558138`, 0.09648332334299912}, {
      1.5845045560648843`, 0.11596786380394743`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.7578195636873282`, 0.21568703916093623`}, {1.58513812643337,
       0.2443030544312026}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{1.7574019016870221`, 0.33713118659530517`}, {
      1.585555788433676, 0.37039781344202594`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.7571177295959872`, 0.45949454551811725`}, {
      1.5858399605247109`, 0.49557336096440613`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.756914040163866, 0.5823227264672352}, {1.5860436499568322`, 
      0.6202840864604806}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.7567615027124184`, 0.7054181635730526}, {
      1.5861961874082797`, 0.7447275557998552}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.7566432228077573`, 0.8286812727968196}, {1.586314467312941, 
      0.8690033530212807}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{1.714041230715926, -0.8512979781396188}, {
      1.8764553658499643`, -0.9165620862749727}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{1.7145388116443336`, -0.726316561167041}, {
      1.8759577849215567`, -0.7940045968023584}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.7153288490315646`, -0.6007215251634678}, {
      1.8751677475343258`, -0.6720607263607393}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.7167638176072266`, -0.4738966797238468}, {
      1.8737327789586637`, -0.5513466653551681}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.7200825921358467`, -0.34402415450346824`}, {
      1.8704140044300437`, -0.4336802841303543}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.7333635716716471`, -0.20319803948301707`}, {
      1.8571330248942433`, -0.3269674927056132}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.8523985355874741`, -0.07503142129078849}, {
      1.738098060978416, -0.2075952044526495}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.8827145320813328`, -0.014527782621592242`}, {
      1.7077820644845574`, -0.02055993667665348}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.8821574714878955`, 0.09591858681388764}, {
      1.7083391250779947`, 0.11653260033305891`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{1.8813925299575034`, 0.21454803657692822`}, {
      1.709104066608387, 0.2454420570152106}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{1.8808655953737747`, 0.3356229120404639}, {
      1.7096310011921154`, 0.3719060879968672}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{1.8804983044256427`, 0.4577381145830932}, {
      1.7099982921402475`, 0.49732979189943016`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{1.8802310108130507`, 0.5803898379846227}, {
      1.7102655857528397`, 0.6222169749430929}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{1.880028748860394, 0.7033538823763921}, {1.7104678477054964`, 
      0.7467918369965159}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{1.8798707197625633`, 0.8265155451529224}, {1.710625876803327, 
      0.8711690806651778}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{1.8394011094243503`, -0.8475895715714461}, {
      1.9986343935867321`, -0.9202704928431455}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{1.8400849336674914`, -0.7223578139581117}, {
      1.9979505693435915`, -0.7979633440112878}}]}, 
    {Arrowheads[{{0.045873685240266304`, 1.}}], 
     ArrowBox[{{1.8411827161416556`, -0.5963768027587978}, {
      1.9968527868694268`, -0.6764054487654093}}]}, 
    {Arrowheads[{{0.045873685240266276`, 1.}}], 
     ArrowBox[{{1.8432103627484255`, -0.4688874915669806}, {
      1.994825140262657, -0.5563558535120342}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{1.8480316802214516`, -0.33766221580880107`}, {
      1.9900038227896313`, -0.4400422228250215}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{1.8680511278295162`, -0.19393614251612523`}, {
      1.9699843751815662`, -0.33622938967250504`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{1.9845132185858052`, -0.08326348455631147}, {
      1.8535222844252777`, -0.19936314118712653`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{2.006483985303929, -0.014527782621592244`}, {
      1.8315515177071535`, -0.020559936676653477`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{2.005873008679753, 0.0954737064501928}, {1.8321624943313297`, 
      0.11697748069675375`}}]}, 
    {Arrowheads[{{0.045873685240266374`, 1.}}], 
     ArrowBox[{{2.004990185860756, 0.21361886572267683`}, {
      1.8330453171503267`, 0.246371227869462}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{2.0043602035952235`, 0.33437108240261554`}, {
      1.8336752994158592`, 0.37315791763471556`}}]}, 
    {Arrowheads[{{0.04587368524026624, 1.}}], 
     ArrowBox[{{2.0039123261341234`, 0.45626543250891427`}, {
      1.8341231768769592`, 0.4988024739736091}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{2.0035822845302924`, 0.5787583730902744}, {
      1.8344532184807902`, 0.6238484398374412}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{2.0033303812416356`, 0.7016033210779844}, {
      1.8347051217694468`, 0.7485423982949234}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{2.0031323260159146`, 0.8246725563846433}, {
      1.8349031769951683`, 0.873012069433457}}]}}},
  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.09872718671174648, 
   2.0065359711829904`}, {-0.9714482518847447, 0.936360532586499}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5656582827021847`*^9, 3.5656583820688686`*^9, 3.5656584404992104`*^9, {
   3.5656585387838316`*^9, 3.5656586007233744`*^9}, 3.565658665173061*^9, {
   3.565658709509597*^9, 3.5656587299627666`*^9}, 3.565659305971712*^9, {
   3.5656593563815956`*^9, 3.5656593852442465`*^9}, {3.5656594348950863`*^9, 
   3.565659455674275*^9}, 3.565718806933359*^9, 3.565718952807702*^9, {
   3.5657190275789785`*^9, 3.5657190730955825`*^9}, 3.565719116680075*^9, 
   3.565719202660993*^9, 3.565719414126088*^9, 3.565719488938367*^9, {
   3.5657195466726694`*^9, 3.565719638736935*^9}, {3.5657196697017064`*^9, 
   3.5657197227277393`*^9}, 3.5657198877961807`*^9, {3.565719918501937*^9, 
   3.5657199419562783`*^9}, {3.5657200876526117`*^9, 3.5657201271228695`*^9}, 
   3.5657212261087275`*^9, 3.565721366404752*^9, 3.565721520658575*^9, {
   3.5657215508693027`*^9, 3.5657216520960927`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Print"}]], "Input",
 CellChangeTimes->{{3.565725418985546*^9, 3.565725420112611*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Print\\\", \\\"[\\\", \
StyleBox[\\\"expr\\\", \\\"TI\\\"], \\\"]\\\"}]\\) prints \
\\!\\(\\*StyleBox[\\\"expr\\\", \\\"TI\\\"]\\) as output. \"\>", "MSG"], 
  "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Print"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.565725421210674*^9},
 CellTags->"Info3565696621-1676012"],

Cell[BoxData["\<\"Thi sucks\"\>"], "Print",
 CellChangeTimes->{{3.565725697059451*^9, 3.565725726669145*^9}, 
   3.56572580508963*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]", "=", "0.85"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]1", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Nu]"}], 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}], "+", 
      SqrtBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
        RowBox[{"4", "\[Nu]", 
         RowBox[{"(", 
          RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}]]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]2", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Nu]"}], 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}], "-", 
      SqrtBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
        RowBox[{"4", "\[Nu]", 
         RowBox[{"(", 
          RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}]]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"r0", "=", 
  RowBox[{"\[Beta]", "/", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{"diff", "=", 
  RowBox[{"\[Beta]", "-", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Delta]", "=", 
  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]", 
 RowBox[{"\[Zeta]", "=", 
  RowBox[{"4", "\[Nu]", 
   RowBox[{"(", 
    RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], 
    "2"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"\[Nu]", 
    RowBox[{"(", 
     RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"c", "=", 
  SuperscriptBox["c", "2"]}], "\[IndentingNewLine]", 
 RowBox[{"e1", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     RowBox[{"\[Gamma]", " ", "\[Nu]", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"r0", "-", "1"}], ")"}], 
       RowBox[{"\[Beta]", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], "}"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Zeta]", "=", 
     RowBox[{
      RowBox[{"4", " ", "\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"], 
       "\[IndentingNewLine]", "diff"}], "=", 
      RowBox[{
       RowBox[{"\[Beta]", "-", 
        RowBox[{"\[Gamma]", "\[IndentingNewLine]", "\[Delta]"}]}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Nu]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
           RowBox[{"4", " ", "\[Nu]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}], "]"}], 
         "\[IndentingNewLine]", "\[Lambda]1"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[Nu]"}], 
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "\[IndentingNewLine]", 
          "n"}], "=", "1"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "1"]}], "+", 
      RowBox[{"\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s", "-", "i"}], ")"}]}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Beta]", " ", "s", " ", 
       FractionBox["i", "1"]}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "+", "\[Delta]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     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.5657258281599503`*^9, 3.5657258541014338`*^9}, {
   3.5657258905655193`*^9, 3.5657259023331923`*^9}, {3.565725964755763*^9, 
   3.5657260187628517`*^9}, {3.565726052871803*^9, 3.5657260828625183`*^9}, {
   3.565726144282031*^9, 3.5657261452310853`*^9}, {3.5657262074026413`*^9, 
   3.5657262485949974`*^9}, 3.56572628867729*^9}],

Cell[BoxData["3.`"], "Output",
 CellChangeTimes->{{3.5657258417057247`*^9, 3.5657258565455737`*^9}, {
   3.5657258941297235`*^9, 3.565725902837221*^9}, {3.565725967279907*^9, 
   3.5657260192108774`*^9}, {3.565726060599245*^9, 3.5657260833085437`*^9}, 
   3.5657261463861513`*^9, 3.5657262105818233`*^9, 3.56572624968806*^9, 
   3.56572628938533*^9}],

Cell[BoxData["0.39999999999999997`"], "Output",
 CellChangeTimes->{{3.5657258417057247`*^9, 3.5657258565455737`*^9}, {
   3.5657258941297235`*^9, 3.565725902837221*^9}, {3.565725967279907*^9, 
   3.5657260192108774`*^9}, {3.565726060599245*^9, 3.5657260833085437`*^9}, 
   3.5657261463861513`*^9, 3.5657262105818233`*^9, 3.56572624968806*^9, 
   3.5657262893873305`*^9}],

Cell[BoxData["0.01965624999999971`"], "Output",
 CellChangeTimes->{{3.5657258417057247`*^9, 3.5657258565455737`*^9}, {
   3.5657258941297235`*^9, 3.565725902837221*^9}, {3.565725967279907*^9, 
   3.5657260192108774`*^9}, {3.565726060599245*^9, 3.5657260833085437`*^9}, 
   3.5657261463861513`*^9, 3.5657262105818233`*^9, 3.56572624968806*^9, 
   3.5657262893883305`*^9}],

Cell[BoxData["1.4994`"], "Output",
 CellChangeTimes->{{3.5657258417057247`*^9, 3.5657258565455737`*^9}, {
   3.5657258941297235`*^9, 3.565725902837221*^9}, {3.565725967279907*^9, 
   3.5657260192108774`*^9}, {3.565726060599245*^9, 3.5657260833085437`*^9}, 
   3.5657261463861513`*^9, 3.5657262105818233`*^9, 3.56572624968806*^9, 
   3.565726289389331*^9}],

Cell[BoxData["1.5190562499999998`"], "Output",
 CellChangeTimes->{{3.5657258417057247`*^9, 3.5657258565455737`*^9}, {
   3.5657258941297235`*^9, 3.565725902837221*^9}, {3.565725967279907*^9, 
   3.5657260192108774`*^9}, {3.565726060599245*^9, 3.5657260833085437`*^9}, 
   3.5657261463861513`*^9, 3.5657262105818233`*^9, 3.56572624968806*^9, 
   3.5657262893913307`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{{3.5657258417057247`*^9, 3.5657258565455737`*^9}, {
   3.5657258941297235`*^9, 3.565725902837221*^9}, {3.565725967279907*^9, 
   3.5657260192108774`*^9}, {3.565726060599245*^9, 3.5657260833085437`*^9}, 
   3.5657261463861513`*^9, 3.5657262105818233`*^9, 3.56572624968806*^9, 
   3.565726289392331*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.3333333333333333`", ",", "0.5396825396825397`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.5657258417057247`*^9, 3.5657258565455737`*^9}, {
   3.5657258941297235`*^9, 3.565725902837221*^9}, {3.565725967279907*^9, 
   3.5657260192108774`*^9}, {3.565726060599245*^9, 3.5657260833085437`*^9}, 
   3.5657261463861513`*^9, 3.5657262105818233`*^9, 3.56572624968806*^9, 
   3.565726289393331*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.045873685240266464`, 1.}}], 
     ArrowBox[{{0.31171096533514053`, 0.5203036203579675}, {
      0.31564320133152673`, 0.5197489590071124}}]}, 
    {Arrowheads[{{0.04587368524026661, 1.}}], 
     ArrowBox[{{0.31171405227044263`, 0.5231327233399772}, {
      0.3156401143962246, 0.5225359274536739}}]}, 
    {Arrowheads[{{0.04587368524026652, 1.}}], 
     ArrowBox[{{0.31171788408797424`, 0.5259649608682954}, {0.315636282578693,
       0.5253197613539271}}]}, 
    {Arrowheads[{{0.04587368524026614, 1.}}], 
     ArrowBox[{{0.3117227145310372, 0.5288010745563161}, {
      0.31563145213562993`, 0.5280997190944777}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3117289131908064, 0.531642053944348}, {0.31562525347586085`,
       0.5308748111350172}}]}, 
    {Arrowheads[{{0.04587368524026636, 1.}}], 
     ArrowBox[{{0.3117370340259091, 0.5344892459391806}, {0.3156171326407582, 
      0.533643690568756}}]}, 
    {Arrowheads[{{0.04587368524026653, 1.}}], 
     ArrowBox[{{0.3117479351752295, 0.5373445248937831}, {0.3156062314914378, 
      0.5364044830427248}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.31176299781453254`, 0.540210563273933}, {0.3155911688521347,
       0.5391545160911462}}]}, 
    {Arrowheads[{{0.04587368524026669, 1.}}], 
     ArrowBox[{{0.3117845461870106, 0.543091271190168}, {0.31556962047965664`,
       0.5418898796034827}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.3118166994031172, 0.545992515945036}, {0.31553746726355003`,
       0.544604706277186}}]}, 
    {Arrowheads[{{0.04587368524026669, 1.}}], 
     ArrowBox[{{0.31186720340411916`, 0.548923266031746}, {
      0.31548696326254805`, 0.5472900276190472}}]}, 
    {Arrowheads[{{0.0458736852402658, 1.}}], 
     ArrowBox[{{0.31195159034342124`, 0.5518971316366412}, {
      0.3154025763232459, 0.5499322334427236}}]}, 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.31210281754460945`, 0.5549327676384167}, {
      0.31525134912205777`, 0.5525126688695193}}]}, 
    {Arrowheads[{{0.04587368524026662, 1.}}], 
     ArrowBox[{{0.3123908940614138, 0.5580434500524525}, {0.3149632726052534, 
      0.5550180578840549}}]}, 
    {Arrowheads[{{0.04587368524026625, 1.}}], 
     ArrowBox[{{0.312933220870158, 0.5611797679339672}, {0.31442094579650925`,
       0.5574978114311115}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3145162865316424, 0.5202836431561593}, {
      0.31845395156359624`, 0.5197689362089207}}]}, 
    {Arrowheads[{{0.04587368524026621, 1.}}], 
     ArrowBox[{{0.31451917920047384`, 0.5231129161428273}, {
      0.31845105889476466`, 0.5225557346508238}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.3145228412904867, 0.5259456733103623}, {0.3184473968047519, 
      0.5253390489118602}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.314527564883311, 0.5287828332556379}, {0.31844267321192754`,
       0.528117960395156}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.31453379245421215`, 0.5316256610955086}, {
      0.3184364456410264, 0.5308912039838566}}]}, 
    {Arrowheads[{{0.04587368524026607, 1.}}], 
     ArrowBox[{{0.31454221859959913`, 0.5344759436933233}, {
      0.3184280194956394, 0.5336569928146132}}]}, 
    {Arrowheads[{{0.0458736852402665, 1.}}], 
     ArrowBox[{{0.3145539803075679, 0.537336278212907}, {0.31841625778767063`,
       0.536412729723601}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3145710335288182, 0.540210563273933}, {0.31839920456642035`,
       0.5391545160911462}}]}, 
    {Arrowheads[{{0.04587368524026617, 1.}}], 
     ArrowBox[{{0.3145969489782342, 0.5431048604083877}, {0.3183732891170044, 
      0.541876290385263}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.314638724823015, 0.546028926559188}, {0.31833151327222353`, 
      0.5445682956630339}}]}, 
    {Arrowheads[{{0.04587368524026663, 1.}}], 
     ArrowBox[{{0.31471126278506084`, 0.5489988162297892}, {
      0.3182589753101777, 0.547214477421004}}]}, 
    {Arrowheads[{{0.04587368524026624, 1.}}], 
     ArrowBox[{{0.3148491895941287, 0.5520399678855187}, {
      0.31812104850110984`, 0.549789397193846}}]}, 
    {Arrowheads[{{0.045873685240266374`, 1.}}], 
     ArrowBox[{{0.31513702116687736`, 0.5551805126119935}, {
      0.31783321692836114`, 0.5522649238959424}}]}, 
    {Arrowheads[{{0.04587368524026641, 1.}}], 
     ArrowBox[{{0.31574602273034563`, 0.5583736508509208}, {
      0.3172242153648929, 0.5546878570855864}}]}, 
    {Arrowheads[{{0.04587368524026613, 1.}}], 
     ArrowBox[{{0.3167166182975241, 0.5613108293331665}, {0.3162536197977145, 
      0.5573667500319123}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.31732138022863443`, 0.5202600362895695}, {
      0.3212649292951754, 0.5197925430755104}}]}, 
    {Arrowheads[{{0.045873685240266374`, 1.}}], 
     ArrowBox[{{0.3173239990411053, 0.523089194056323}, {0.3212623104827046, 
      0.5225794567373283}}]}, 
    {Arrowheads[{{0.04587368524026654, 1.}}], 
     ArrowBox[{{0.3173273935680641, 0.525922209668623}, {0.3212589159557458, 
      0.5253625125535996}}]}, 
    {Arrowheads[{{0.04587368524026597, 1.}}], 
     ArrowBox[{{0.3173318960475573, 0.5287602299123121}, {
      0.32125441347625255`, 0.5281405637384818}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.3173380346208919, 0.5316048968532228}, {0.3212482749029181, 
      0.5309119682261424}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.31734668781324976`, 0.534458640032842}, {0.3212396217105601,
       0.5336742964750946}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.3173593992462636, 0.5373251944297445}, {
      0.32122691027754635`, 0.5364238135067635}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3173790692431039, 0.540210563273933}, {0.321207240280706, 
      0.5391545160911462}}]}, 
    {Arrowheads[{{0.04587368524026641, 1.}}], 
     ArrowBox[{{0.3174116195480788, 0.5431248919782609}, {0.3211746899757311, 
      0.5418562588153898}}]}, 
    {Arrowheads[{{0.0458736852402662, 1.}}], 
     ArrowBox[{{0.3174704563072545, 0.5460862040451618}, {0.3211158532165554, 
      0.5445110181770602}}]}, 
    {Arrowheads[{{0.04587368524026613, 1.}}], 
     ArrowBox[{{0.31758991122482383`, 0.5491271828314951}, {
      0.32099639829898613`, 0.5470861108192984}}]}, 
    {Arrowheads[{{0.04587368524026653, 1.}}], 
     ArrowBox[{{0.3178683738577202, 0.5522976256554403}, {
      0.32071793566608975`, 0.5495317394239243}}]}, 
    {Arrowheads[{{0.04587368524026609, 1.}}], 
     ArrowBox[{{0.31855888803434956`, 0.5555675447117024}, {
      0.3200274214894604, 0.5518778917962336}}]}, 
    {Arrowheads[{{0.04587368524026592, 1.}}], 
     ArrowBox[{{0.31973425429211294`, 0.5584667197455344}, {
      0.31885205523169696`, 0.554594788190973}}]}, 
    {Arrowheads[{{0.04587368524026621, 1.}}], 
     ArrowBox[{{0.32057684231849914`, 0.5608536093230897}, {
      0.3180094672053108, 0.5578239700419889}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.3201262655547957, 0.5202317254175159}, {0.3240761153975855, 
      0.5198208539475638}}]}, 
    {Arrowheads[{{0.0458736852402662, 1.}}], 
     ArrowBox[{{0.32012850823575395`, 0.5230602835005032}, {
      0.32407387271662735`, 0.5226083672931481}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.32013149998619667`, 0.5258930634445254}, {
      0.3240708809661846, 0.5253916587776971}}]}, 
    {Arrowheads[{{0.04587368524026618, 1.}}], 
     ArrowBox[{{0.32013560843435684`, 0.5287315009398681}, {
      0.32406677251802435`, 0.5281692927109259}}]}, 
    {Arrowheads[{{0.04587368524026617, 1.}}], 
     ArrowBox[{{0.32014145437729374`, 0.5315777548048514}, {
      0.32406092657508745`, 0.530939110274514}}]}, 
    {Arrowheads[{{0.04587368524026657, 1.}}], 
     ArrowBox[{{0.3201501505505175, 0.5344352168062112}, {0.3240522304018638, 
      0.5336977197017254}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.3201638458093631, 0.5373095073340649}, {
      0.32403853514301817`, 0.5364395006024432}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.32018710495738956`, 0.540210563273933}, {0.3240152759949917,
       0.5391545160911462}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.3202309127019774, 0.5431573537210351}, {0.3239714682504038, 
      0.5418237970726155}}]}, 
    {Arrowheads[{{0.04587368524026607, 1.}}], 
     ArrowBox[{{0.3203264203685347, 0.5461889612396127}, {
      0.32387596058384654`, 0.5444082609826094}}]}, 
    {Arrowheads[{{0.04587368524026592, 1.}}], 
     ArrowBox[{{0.32058104758048744`, 0.5493840261202794}, {
      0.3236213333718938, 0.546829267530514}}]}, 
    {Arrowheads[{{0.04587368524026577, 1.}}], 
     ArrowBox[{{0.3213718179479335, 0.5527614494446749}, {
      0.32283056300444773`, 0.5490679156346898}}]}, 
    {Arrowheads[{{0.04587368524026607, 1.}}], 
     ArrowBox[{{0.3228259985112907, 0.5555712813712584}, {
      0.32137638244109057`, 0.5518741551366777}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.32361122264364417`, 0.5578200697323734}, {
      0.3205911583087371, 0.5552414382041341}}]}, 
    {Arrowheads[{{0.04587368524026586, 1.}}], 
     ArrowBox[{{0.3238665665813473, 0.5602476238223546}, {0.320335814371034, 
      0.5584299555427241}}]}, 
    {Arrowheads[{{0.045873685240266, 1.}}], 
     ArrowBox[{{0.3229310120703203, 0.5201971732135413}, {0.3268874403106322, 
      0.5198554061515385}}]}, 
    {Arrowheads[{{0.04587368524026618, 1.}}], 
     ArrowBox[{{0.3229327541041473, 0.5230243000749126}, {
      0.32688569827680525`, 0.5226443507187385}}]}, 
    {Arrowheads[{{0.04587368524026599, 1.}}], 
     ArrowBox[{{0.3229351625714945, 0.5258559146513876}, {0.326883289809458, 
      0.525428807570835}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.32293861980306915`, 0.5286937951661104}, {
      0.32687983257788344`, 0.5282069984846836}}]}, 
    {Arrowheads[{{0.04587368524026618, 1.}}], 
     ArrowBox[{{0.3229438237958153, 0.5315407899610705}, {0.3268746285851373, 
      0.5309760751182947}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.32295215722390347`, 0.534401749250193}, {0.3268662951570491,
       0.5337311872577435}}]}, 
    {Arrowheads[{{0.04587368524026612, 1.}}], 
     ArrowBox[{{0.32296666886831227`, 0.5372856041220595}, {
      0.32685178351264027`, 0.5364634038144485}}]}, 
    {Arrowheads[{{0.04587368524026613, 1.}}], 
     ArrowBox[{{0.32299514067167523`, 0.540210563273933}, {
      0.32682331170927736`, 0.5391545160911463}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.3230620535870336, 0.5432189198616513}, {0.326756398793919, 
      0.5417622309319993}}]}, 
    {Arrowheads[{{0.04587368524026643, 1.}}], 
     ArrowBox[{{0.3232716131082447, 0.5464214448829827}, {
      0.32654683927270794`, 0.5441757773392392}}]}, 
    {Arrowheads[{{0.04587368524026566, 1.}}], 
     ArrowBox[{{0.3241848136627286, 0.5499553649694073}, {0.325633638718224, 
      0.5462579286813861}}]}, 
    {Arrowheads[{{0.04587368524026656, 1.}}], 
     ArrowBox[{{0.3260074573645975, 0.5525688955170647}, {0.3238109950163551, 
      0.5492604695622999}}]}, 
    {Arrowheads[{{0.04587368524026624, 1.}}], 
     ArrowBox[{{0.32662296589669904`, 0.5547255285578977}, {
      0.3231954864842535, 0.5527199079500384}}]}, 
    {Arrowheads[{{0.045873685240265936`, 1.}}], 
     ArrowBox[{{0.32677473985168143`, 0.5572107473992579}, {
      0.32304371252927117`, 0.5558507605372495}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.3268283556975039, 0.5598481758048551}, {0.3229900966834487, 
      0.5588294035602236}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.3257357989671281, 0.5201541056171309}, {0.3296987248423958, 
      0.519898473747949}}]}, 
    {Arrowheads[{{0.0458736852402661, 1.}}], 
     ArrowBox[{{0.3257369104267672, 0.5229783403611727}, {0.3296976133827567, 
      0.5226903104324784}}]}, 
    {Arrowheads[{{0.04587368524026636, 1.}}], 
     ArrowBox[{{0.3257385187629576, 0.5258070057742925}, {0.3296960050465664, 
      0.52547771644793}}]}, 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.3257409661304308, 0.5286421969784537}, {0.3296935576790932, 
      0.5282585966723402}}]}, 
    {Arrowheads[{{0.04587368524026607, 1.}}], 
     ArrowBox[{{0.3257449459536609, 0.5314875658532453}, {0.329689577855863, 
      0.53102929922612}}]}, 
    {Arrowheads[{{0.04587368524026609, 1.}}], 
     ArrowBox[{{0.3257520396489202, 0.534350076736733}, {0.32968248416060375`,
       0.5337828597712038}}]}, 
    {Arrowheads[{{0.04587368524026604, 1.}}], 
     ArrowBox[{{0.3257665091734703, 0.5372447688298193}, {0.3296680146360536, 
      0.5365042391066887}}]}, 
    {Arrowheads[{{0.04587368524026613, 1.}}], 
     ArrowBox[{{0.3258031763859609, 0.540210563273933}, {0.32963134742356304`,
       0.5391545160911463}}]}, 
    {Arrowheads[{{0.0458736852402662, 1.}}], 
     ArrowBox[{{0.32594157415304853`, 0.5433790939924478}, {
      0.3294929496564754, 0.541602056801203}}]}, 
    {Arrowheads[{{0.0458736852402667, 1.}}], 
     ArrowBox[{{0.32699787639685535`, 0.5471492911962056}, {
      0.3284366474126686, 0.5434479310260163}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.3292449945331915, 0.5493749391033766}, {0.3261895292763324, 
      0.5468383545474167}}]}, 
    {Arrowheads[{{0.04587368524026614, 1.}}], 
     ArrowBox[{{0.3295857637723484, 0.5515864213707603}, {
      0.32584876003717556`, 0.5502429437086044}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.32965220378000304`, 0.5541682878061038}, {
      0.3257823200295209, 0.5532771487018322}}]}, 
    {Arrowheads[{{0.04587368524026611, 1.}}], 
     ArrowBox[{{0.3296748105004458, 0.5568632231877135}, {
      0.32575971330907816`, 0.5561982847487938}}]}, 
    {Arrowheads[{{0.04587368524026624, 1.}}], 
     ArrowBox[{{0.3296850417421046, 0.5596040721698989}, {0.3257494820674193, 
      0.5590735071951798}}]}, 
    {Arrowheads[{{0.04587368524026615, 1.}}], 
     ArrowBox[{{0.32854104915035093`, 0.520099024136733}, {0.3325095460877443,
       0.519953555228347}}]}, 
    {Arrowheads[{{0.04587368524026614, 1.}}], 
     ArrowBox[{{0.3285414680027981, 0.5229177060902936}, {
      0.33250912723529713`, 0.5227509447033577}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.3285421115429649, 0.5257398561057702}, {
      0.33250848369513036`, 0.5255448661164523}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.3285431724068401, 0.5285674947736423}, {0.3325074228312551, 
      0.5283332988771517}}]}, 
    {Arrowheads[{{0.04587368524026612, 1.}}], 
     ArrowBox[{{0.3285451027513972, 0.5314045851054584}, {
      0.33250549248669803`, 0.5311122799739068}}]}, 
    {Arrowheads[{{0.04587368524026617, 1.}}], 
     ArrowBox[{{0.32854917944224254`, 0.5342600896310226}, {
      0.33250141579585274`, 0.5338728468769139}}]}, 
    {Arrowheads[{{0.04587368524026603, 1.}}], 
     ArrowBox[{{0.32856025599016964`, 0.5371593612713523}, {
      0.3324903392479256, 0.5365896466651556}}]}, 
    {Arrowheads[{{0.04587368524026613, 1.}}], 
     ArrowBox[{{0.3286112121002466, 0.540210563273933}, {0.3324393831378487, 
      0.5391545160911463}}]}, 
    {Arrowheads[{{0.04587368524026662, 1.}}], 
     ArrowBox[{{0.32981100739555924`, 0.5443432280256203}, {0.331239587842536,
       0.5406379227680304}}]}, 
    {Arrowheads[{{0.04587368524026608, 1.}}], 
     ArrowBox[{{0.33239673899804156`, 0.545962116537872}, {0.3286538562400538,
       0.5446351056843499}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.3324838077244501, 0.5484334043094554}, {
      0.32856678751364515`, 0.547779889341338}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.3324990866315869, 0.5511307594249136}, {0.3285515086065084, 
      0.5506986056544511}}]}, 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.3325042889995239, 0.5538843517973696}, {
      0.32854630623857134`, 0.5535610847105664}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.3325066629270712, 0.5566600745099805}, {0.328543932311024, 
      0.5564014334265268}}]}, 
    {Arrowheads[{{0.045873685240266, 1.}}], 
     ArrowBox[{{0.3325079426557152, 0.5594467292254764}, {
      0.32854265258238013`, 0.5592308501396023}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3313477522379479, 0.5200262896825399}, {0.3353189144287187, 
      0.5200262896825399}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3313477522379479, 0.5228343253968256}, {0.3353189144287187, 
      0.5228343253968256}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3313477522379479, 0.5256423611111113}, {0.3353189144287187, 
      0.5256423611111113}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3313477522379479, 0.528450396825397}, {0.3353189144287187, 
      0.528450396825397}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3313477522379479, 0.5312584325396826}, {0.3353189144287187, 
      0.5312584325396826}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3313477522379479, 0.5340664682539683}, {0.3353189144287187, 
      0.5340664682539683}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3313477522379479, 0.536874503968254}, {0.3353189144287187, 
      0.536874503968254}}]}, 
    {Arrowheads[{{0., 1.}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.33531891442871875`, 0.5424905753968253}, {
      0.33134775223794793`, 0.5424905753968253}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.33531891442871875`, 0.545298611111111}, {
      0.33134775223794793`, 0.545298611111111}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.33531891442871875`, 0.5481066468253967}, {
      0.33134775223794793`, 0.5481066468253967}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.33531891442871875`, 0.5509146825396823}, {
      0.33134775223794793`, 0.5509146825396823}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.33531891442871875`, 0.553722718253968}, {
      0.33134775223794793`, 0.553722718253968}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.33531891442871875`, 0.5565307539682537}, {
      0.33134775223794793`, 0.5565307539682537}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.33531891442871875`, 0.5593387896825394}, {
      0.33134775223794793`, 0.5593387896825394}}]}, 
    {Arrowheads[{{0.04587368524026609, 1.}}], 
     ArrowBox[{{0.33415830728287044`, 0.5199262980651694}, {
      0.3381244308123675, 0.5201262812999105}}]}, 
    {Arrowheads[{{0.04587368524026621, 1.}}], 
     ArrowBox[{{0.3341594809133084, 0.5227132811510692}, {0.3381232571819296, 
      0.522955369642582}}]}, 
    {Arrowheads[{{0.04587368524026624, 1.}}], 
     ArrowBox[{{0.33416168048585726`, 0.5254895033838561}, {
      0.33812105760938077`, 0.5257952188383663}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.33416655016920416`, 0.5282439442065995}, {
      0.3381161879260338, 0.5286568494441943}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.3341809973684784, 0.5309430357008026}, {0.3381017407267595, 
      0.5315738293785627}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.33426419328838597`, 0.5334193643555872}, {
      0.33801854480685195`, 0.5347135721523494}}]}, 
    {Arrowheads[{{0.04587368524026583, 1.}}], 
     ArrowBox[{{0.33684525878802185`, 0.5350178748939078}, {
      0.33543747930721607`, 0.5387311330426001}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.33805545456642005`, 0.5391545160911463}, {
      0.3342272835288179, 0.5402105632739331}}]}, 
    {Arrowheads[{{0.0458736852402665, 1.}}], 
     ArrowBox[{{0.33810604797205596`, 0.5422032271582279}, {
      0.33417669012318196`, 0.5427779236354228}}]}, 
    {Arrowheads[{{0.045873685240266464`, 1.}}], 
     ArrowBox[{{0.3381171282143252, 0.5451013599982417}, {0.3341656098809127, 
      0.5454958622239803}}]}, 
    {Arrowheads[{{0.04587368524026645, 1.}}], 
     ArrowBox[{{0.3381212449877896, 0.5479562355629017}, {0.3341614931074483, 
      0.5482570580878916}}]}, 
    {Arrowheads[{{0.04587368524026651, 1.}}], 
     ArrowBox[{{0.33812321378499516`, 0.550792929826011}, {0.3341595243102428,
       0.5510364352533538}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.3381243068014702, 0.5536202968172304}, {
      0.33415843129376777`, 0.5538251396907057}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.33812497666390484`, 0.5564422491041807}, {
      0.3341577614313331, 0.5566192588323267}}]}, 
    {Arrowheads[{{0.04587368524026621, 1.}}], 
     ArrowBox[{{0.3381254171562937, 0.5592607807803789}, {0.3341573209389443, 
      0.5594167985846997}}]}, 
    {Arrowheads[{{0.04587368524026604, 1.}}], 
     ArrowBox[{{0.3369789538783808, 0.5197816356370554}, {0.3409198556454285, 
      0.5202709437280245}}]}, 
    {Arrowheads[{{0.04587368524026601, 1.}}], 
     ArrowBox[{{0.336988132605699, 0.5225245774095129}, {0.3409106769181103, 
      0.5231440733841385}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.3370086128574327, 0.5252230055699675}, {
      0.34089019666637665`, 0.5260617166522551}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.3370694334024421, 0.5278114602292057}, {
      0.34082937612136716`, 0.5290893334215883}}]}, 
    {Arrowheads[{{0.045873685240266374`, 1.}}], 
     ArrowBox[{{0.3373872892098595, 0.530032737925021}, {0.3405115203139498, 
      0.5324841271543443}}]}, 
    {Arrowheads[{{0.04587368524026668, 1.}}], 
     ArrowBox[{{0.3396479866716123, 0.5322078355302219}, {
      0.33825082285219704`, 0.5359251009777148}}]}, 
    {Arrowheads[{{0.04587368524026613, 1.}}], 
     ArrowBox[{{0.34072693925818776`, 0.5359896856813298}, {
      0.33717187026562156`, 0.5377593222551782}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3408634902807057, 0.5391545160911463}, {0.3370353192431036, 
      0.5402105632739331}}]}, 
    {Arrowheads[{{0.0458736852402666, 1.}}], 
     ArrowBox[{{0.3408995815498201, 0.5421172889354745}, {
      0.33699922797398923`, 0.5428638618581763}}]}, 
    {Arrowheads[{{0.04587368524026683, 1.}}], 
     ArrowBox[{{0.3409139016157815, 0.545010020748382}, {0.3369849079080278, 
      0.5455872014738399}}]}, 
    {Arrowheads[{{0.04587368524026602, 1.}}], 
     ArrowBox[{{0.34092097740012706`, 0.5478712033745116}, {
      0.33697783212368226`, 0.5483420902762817}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3409249825366501, 0.5507156228946413}, {0.3369738269871593, 
      0.5511137421847234}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.3409274686933193, 0.5535501049011002}, {
      0.33697134083048996`, 0.5538953316068359}}]}, 
    {Arrowheads[{{0.04587368524026598, 1.}}], 
     ArrowBox[{{0.34092911841739454`, 0.556378221582778}, {
      0.33696969110641484`, 0.5566832863537293}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.3409302697873609, 0.5592020196665416}, {
      0.33696853973644836`, 0.5594755596985372}}]}, 
    {Arrowheads[{{0.04587368524026599, 1.}}], 
     ArrowBox[{{0.33982767686203136`, 0.5195588020572278}, {
      0.3436872040903493, 0.5204937773078521}}]}, 
    {Arrowheads[{{0.045873685240266, 1.}}], 
     ArrowBox[{{0.33987472074910346`, 0.5222035332634013}, {
      0.34364016020327715`, 0.5234651175302498}}]}, 
    {Arrowheads[{{0.04587368524026587, 1.}}], 
     ArrowBox[{{0.34000993410784824`, 0.5246996237251146}, {
      0.34350494684453237`, 0.5265850984971079}}]}, 
    {Arrowheads[{{0.045873685240266734`, 1.}}], 
     ArrowBox[{{0.34058188960236874`, 0.5268502054526515}, {0.342932991350012,
       0.5300505881981425}}]}, 
    {Arrowheads[{{0.04587368524026654, 1.}}], 
     ArrowBox[{{0.34245064102520106`, 0.5293977860699837}, {
      0.34106423992717966`, 0.5331190790093816}}]}, 
    {Arrowheads[{{0.04587368524026593, 1.}}], 
     ArrowBox[{{0.3433984924631025, 0.5329486665440915}, {
      0.34011638848927817`, 0.535184269963845}}]}, 
    {Arrowheads[{{0.04587368524026657, 1.}}], 
     ArrowBox[{{0.34360617500339097`, 0.5361501332521921}, {
      0.33990870594898964`, 0.537598874684316}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3436715259949914, 0.5391545160911463}, {
      0.33984335495738927`, 0.5402105632739331}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.34369931013344623`, 0.5420762391558558}, {
      0.33981557081893443`, 0.5429049116377949}}]}, 
    {Arrowheads[{{0.04587368524026654, 1.}}], 
     ArrowBox[{{0.34371353271965976`, 0.5449576779484668}, {
      0.33980134823272085`, 0.5456395442737553}}]}, 
    {Arrowheads[{{0.04587368524026652, 1.}}], 
     ArrowBox[{{0.34372175478519656`, 0.5478168165616467}, {
      0.3397931261671841, 0.5483964770891465}}]}, 
    {Arrowheads[{{0.04587368524026611, 1.}}], 
     ArrowBox[{{0.34372692993831255`, 0.5506624058167343}, {
      0.3397879510140681, 0.5511669592626305}}]}, 
    {Arrowheads[{{0.04587368524026642, 1.}}], 
     ArrowBox[{{0.34373039775868636`, 0.5534991744153194}, {
      0.33978448319369425`, 0.5539462620926165}}]}, 
    {Arrowheads[{{0.04587368524026652, 1.}}], 
     ArrowBox[{{0.3437328356146711, 0.5563298900013046}, {
      0.33978204533770956`, 0.5567316179352026}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.34373461551522644`, 0.5591562762546373}, {
      0.3397802654371543, 0.5595213031104415}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.34276290700816564`, 0.5191936573330983}, {
      0.3463680453727864, 0.5208589220319817}}]}, 
    {Arrowheads[{{0.0458736852402661, 1.}}], 
     ArrowBox[{{0.3429866921443405, 0.5216301770579488}, {0.3461442602366115, 
      0.5240384737357026}}]}, 
    {Arrowheads[{{0.0458736852402658, 1.}}], 
     ArrowBox[{{0.34372610865675984`, 0.5238429183002126}, {
      0.34540484372419217`, 0.52744180392201}}]}, 
    {Arrowheads[{{0.045873685240265576`, 1.}}], 
     ArrowBox[{{0.3452532204579034, 0.526587726669687}, {0.3438777319230486, 
      0.5303130669811069}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.346088791313315, 0.529984837893462}, {0.343042161067637, 
      0.5325320271859033}}]}, 
    {Arrowheads[{{0.04587368524026625, 1.}}], 
     ArrowBox[{{0.346343939816826, 0.5331835189824345}, {0.342787012564126, 
      0.5349494175255021}}]}, 
    {Arrowheads[{{0.04587368524026624, 1.}}], 
     ArrowBox[{{0.3464371610336783, 0.5362116856416526}, {0.3426937913472737, 
      0.5375373222948554}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3464795617092771, 0.5391545160911463}, {
      0.34265139067167494`, 0.5402105632739331}}]}, 
    {Arrowheads[{{0.04587368524026658, 1.}}], 
     ArrowBox[{{0.3465020657313829, 0.542052222529375}, {0.3426288866495691, 
      0.5429289282642756}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3465153642419477, 0.5449238193381492}, {
      0.34261558813900433`, 0.545673402884073}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.3465238574340972, 0.5477791179091394}, {0.3426070949468548, 
      0.5484341757416539}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.34652960748371686`, 0.550623614593553}, {
      0.34260134489723515`, 0.5512057504858116}}]}, 
    {Arrowheads[{{0.04587368524026644, 1.}}], 
     ArrowBox[{{0.3465336806328603, 0.5534606046157675}, {0.3425972717480917, 
      0.5539848318921684}}]}, 
    {Arrowheads[{{0.04587368524026662, 1.}}], 
     ArrowBox[{{0.34653667191534077`, 0.5562921754683279}, {
      0.34259428046561125`, 0.5567693324681796}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.3465389342216323, 0.5591197105059463}, {0.3425920181593197, 
      0.5595578688591323}}]}, 
    {Arrowheads[{{0.045873685240265666`, 1.}}], 
     ArrowBox[{{0.34597865315705845`, 0.5186131720793987}, {
      0.3487683706524649, 0.5214394072856812}}]}, 
    {Arrowheads[{{0.04587368524026587, 1.}}], 
     ArrowBox[{{0.346790818095864, 0.5209361683402509}, {0.3479562057136594, 
      0.5247324824534002}}]}, 
    {Arrowheads[{{0.04587368524026656, 1.}}], 
     ArrowBox[{{0.34805572354760783`, 0.5237776574990815}, {
      0.3466913002619155, 0.5275070647231411}}]}, 
    {Arrowheads[{{0.0458736852402659, 1.}}], 
     ArrowBox[{{0.34879915473865525`, 0.5270683422691221}, {
      0.34594786907086816`, 0.5298324513816717}}]}, 
    {Arrowheads[{{0.04587368524026609, 1.}}], 
     ArrowBox[{{0.3490823956753757, 0.5302473694630726}, {0.3456646281341477, 
      0.5322694956162926}}]}, 
    {Arrowheads[{{0.04587368524026614, 1.}}], 
     ArrowBox[{{0.3491995844603743, 0.5332867302800371}, {0.345547439349149, 
      0.5348462062278994}}]}, 
    {Arrowheads[{{0.04587368524026599, 1.}}], 
     ArrowBox[{{0.34925636627674256`, 0.5362441138507359}, {
      0.34549065753278085`, 0.5375048940857721}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.34928759742356275`, 0.5391545160911463}, {
      0.3454594263859606, 0.5402105632739331}}]}, 
    {Arrowheads[{{0.04587368524026617, 1.}}], 
     ArrowBox[{{0.34930646738573856`, 0.5420364659442553}, {
      0.34544055642378485`, 0.5429446848493953}}]}, 
    {Arrowheads[{{0.04587368524026588, 1.}}], 
     ArrowBox[{{0.34931869967875623`, 0.5449001430317696}, {
      0.34542832413076713`, 0.5456970791904523}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.3493270692709987, 0.5477514765800594}, {
      0.34541995453852464`, 0.5484618170707339}}]}, 
    {Arrowheads[{{0.04587368524026644, 1.}}], 
     ArrowBox[{{0.34933304477981164`, 0.5505941155452017}, {
      0.3454139790297117, 0.551235249534163}}]}, 
    {Arrowheads[{{0.045873685240266, 1.}}], 
     ArrowBox[{{0.34933745971474106`, 0.5534304148396376}, {
      0.34540956409478235`, 0.5540150216682983}}]}, 
    {Arrowheads[{{0.04587368524026596, 1.}}], 
     ArrowBox[{{0.3493408147011427, 0.5562619566585512}, {
      0.34540620910838066`, 0.5567995512779561}}]}, 
    {Arrowheads[{{0.04587368524026614, 1.}}], 
     ArrowBox[{{0.34934342479310865`, 0.559089840895283}, {0.3454035990164147,
       0.5595877384697957}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.3497886584988742, 0.5180799674004907}, {0.3505744367392205, 
      0.5219726119645892}}]}, 
    {Arrowheads[{{0.04587368524026611, 1.}}], 
     ArrowBox[{{0.3508581488402444, 0.5209675787418596}, {0.3495049463978503, 
      0.5247010720517915}}]}, 
    {Arrowheads[{{0.045873685240266464`, 1.}}], 
     ArrowBox[{{0.3515264771868175, 0.5241816432245605}, {0.3488366180512772, 
      0.5271030789976622}}]}, 
    {Arrowheads[{{0.04587368524026644, 1.}}], 
     ArrowBox[{{0.3518243558537036, 0.52733517783771}, {0.34853873938439106`, 
      0.5295656158130839}}]}, 
    {Arrowheads[{{0.04587368524026642, 1.}}], 
     ArrowBox[{{0.3519609442335221, 0.5303773650197118}, {
      0.34840215100457256`, 0.5321395000596536}}]}, 
    {Arrowheads[{{0.04587368524026613, 1.}}], 
     ArrowBox[{{0.35203106567955983`, 0.5333441004597042}, {
      0.3483320295585349, 0.5347888360482325}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.35207098100344514`, 0.5362641157538567}, {
      0.3482921142346496, 0.5374848921826513}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3520956331378484, 0.5391545160911463}, {0.3482674621002463, 
      0.5402105632739331}}]}, 
    {Arrowheads[{{0.04587368524026611, 1.}}], 
     ArrowBox[{{0.35211185434928144`, 0.5420253354441504}, {
      0.34825124088881326`, 0.5429558153495001}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.3521230727526433, 0.5448826634678107}, {0.3482400224854514, 
      0.5457145587544112}}]}, 
    {Arrowheads[{{0.04587368524026605, 1.}}], 
     ArrowBox[{{0.35213114643253046`, 0.5477303533856225}, {
      0.34823194880556424`, 0.548482940265171}}]}, 
    {Arrowheads[{{0.04587368524026621, 1.}}], 
     ArrowBox[{{0.35213714841899996`, 0.5505709416524188}, {
      0.3482259468190948, 0.551258423426946}}]}, 
    {Arrowheads[{{0.04587368524026663, 1.}}], 
     ArrowBox[{{0.35214173171326385`, 0.5534061576702995}, {
      0.3482213635248308, 0.5540392788376365}}]}, 
    {Arrowheads[{{0.04587368524026621, 1.}}], 
     ArrowBox[{{0.3521453114816508, 0.5562372172954431}, {0.3482177837564439, 
      0.5568242906410643}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.3521481616214908, 0.5590649984267527}, {0.3482149336166039, 
      0.559612580938326}}]}, 
    {Arrowheads[{{0.04587368524026569, 1.}}], 
     ArrowBox[{{0.3536604948490401, 0.518157490596377}, {0.35231867181762594`,
       0.5218950887687028}}]}, 
    {Arrowheads[{{0.04587368524026607, 1.}}], 
     ArrowBox[{{0.3542672389837102, 0.521314414766094}, {0.3517119276829558, 
      0.5243542360275573}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.3545709917288697, 0.5244416614097379}, {0.3514081749377963, 
      0.5268430608124846}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.3547226516418757, 0.5274813733353427}, {
      0.35125651502479033`, 0.5294194203154512}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.35480467790695247`, 0.5304534704441967}, {
      0.3511744887597136, 0.5320633946351686}}]}, 
    {Arrowheads[{{0.0458736852402661, 1.}}], 
     ArrowBox[{{0.35485291218748427`, 0.5333805106258022}, {
      0.35112625447918183`, 0.5347524258821346}}]}, 
    {Arrowheads[{{0.04587368524026619, 1.}}], 
     ArrowBox[{{0.35488334535561594`, 0.5362776809716203}, {
      0.35109582131105005`, 0.5374713269648875}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.3549036688521341, 0.5391545160911463}, {
      0.35107549781453196`, 0.5402105632739331}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.3549178755818196, 0.5420170552908334}, {
      0.35106129108484646`, 0.5429640955028172}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.35492818237593615`, 0.54486923244563}, {
      0.35105098429072995`, 0.545727989776592}}]}, 
    {Arrowheads[{{0.04587368524026606, 1.}}], 
     ArrowBox[{{0.3549358922339252, 0.5477136914210216}, {
      0.35104327443274086`, 0.5484996022297718}}]}, 
    {Arrowheads[{{0.04587368524026621, 1.}}], 
     ArrowBox[{{0.3549418088100091, 0.5505522629285008}, {0.351037357856657, 
      0.5512771021508638}}]}, 
    {Arrowheads[{{0.04587368524026636, 1.}}], 
     ArrowBox[{{0.35494644843092066`, 0.5533862494200542}, {
      0.3510327182357454, 0.5540591870878817}}]}, 
    {Arrowheads[{{0.04587368524026597, 1.}}], 
     ArrowBox[{{0.35495015459449275`, 0.5562166001583668}, {
      0.3510290120721733, 0.5568449077781406}}]}, 
    {Arrowheads[{{0.04587368524026624, 1.}}], 
     ArrowBox[{{0.35495316278781097`, 0.5590440219565175}, {
      0.35102600387885513`, 0.5596335574085612}}]}}},
  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.31169150223794817`, 0.35497516442871846`}, {
   0.5180407085871546, 0.5613243707779247}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5657258417057247`*^9, 3.5657258565455737`*^9}, {
   3.5657258941297235`*^9, 3.565725902837221*^9}, {3.565725967279907*^9, 
   3.5657260192108774`*^9}, {3.565726060599245*^9, 3.5657260833085437`*^9}, 
   3.5657261463861513`*^9, 3.5657262105818233`*^9, 3.56572624968806*^9, 
   3.565726289646345*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.7"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.35"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]", "=", "0.25"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]1", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Nu]"}], 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}], "+", 
      SqrtBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
        RowBox[{"4", "\[Nu]", 
         RowBox[{"(", 
          RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}]]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Lambda]2", "=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Nu]"}], 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}], "-", 
      SqrtBox[
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Nu]", "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
        RowBox[{"4", "\[Nu]", 
         RowBox[{"(", 
          RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}]]}], 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"r0", "=", 
  RowBox[{"\[Beta]", "/", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{"diff", "=", 
  RowBox[{"\[Beta]", "-", "\[Gamma]"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Delta]", "=", 
  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]", 
 RowBox[{"\[Zeta]", "=", 
  RowBox[{"4", "\[Nu]", 
   RowBox[{"(", 
    RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], 
    "2"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"\[Nu]", 
    RowBox[{"(", 
     RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"c", "=", 
  SuperscriptBox["c", "2"]}], "\[IndentingNewLine]", 
 RowBox[{"e1", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e2", "=", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", "r0"], ",", " ", 
     RowBox[{"\[Gamma]", " ", "\[Nu]", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{"r0", "-", "1"}], ")"}], 
       RowBox[{"\[Beta]", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}]}]]}]}], "}"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Zeta]", "=", 
     RowBox[{
      RowBox[{"4", " ", "\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"], 
       "\[IndentingNewLine]", "diff"}], "=", 
      RowBox[{
       RowBox[{"\[Beta]", "-", 
        RowBox[{"\[Gamma]", "\[IndentingNewLine]", "\[Delta]"}]}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Nu]", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "2"]}], "-", 
           RowBox[{"4", " ", "\[Nu]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Beta]", "-", "\[Gamma]"}], ")"}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Gamma]", "+", "\[Nu]"}], ")"}], "2"]}]}], "]"}], 
         "\[IndentingNewLine]", "\[Lambda]1"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[Nu]"}], 
          RowBox[{"(", 
           RowBox[{"\[Beta]", "+", "\[Nu]"}], ")"}], "\[IndentingNewLine]", 
          "n"}], "=", "1"}]}]}]}]}], ";"}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"VectorPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[Beta]"}], " ", "s", " ", 
       FractionBox["i", "1"]}], "+", 
      RowBox[{"\[Nu]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "s", "-", "i"}], ")"}]}]}], ",", " ", 
     RowBox[{
      RowBox[{"\[Beta]", " ", "s", " ", 
       FractionBox["i", "1"]}], "-", 
      RowBox[{"\[Gamma]", " ", "i"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"s", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "+", "\[Delta]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", 
     RowBox[{
      RowBox[{"e2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "-", "\[Delta]"}], ",", 
     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.5657258281599503`*^9, 3.5657258541014338`*^9}, {
   3.5657258905655193`*^9, 3.5657259023331923`*^9}, {3.565725964755763*^9, 
   3.5657260187628517`*^9}, {3.565726052871803*^9, 3.5657260828625183`*^9}, {
   3.565726144282031*^9, 3.5657261452310853`*^9}, {3.5657262074026413`*^9, 
   3.5657262485949974`*^9}, 3.56572628867729*^9, {3.5657304128491793`*^9, 
   3.565730424073821*^9}}],

Cell[BoxData["2.`"], "Output",
 CellChangeTimes->{3.565730426566964*^9}],

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

Cell[BoxData[
 RowBox[{"-", "0.06959375000000001`"}]], "Output",
 CellChangeTimes->{3.565730426568964*^9}],

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

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.5657304265769644`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.5`", ",", "0.20833333333333331`"}], "}"}]], "Output",
 CellChangeTimes->{3.565730426578964*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.42341288936794397`, 0.13945668444141943`}, {
      0.437399610632056, 0.13802248222524716`}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.42342617550644696`, 0.1495181401086502}, {0.437386324493553,
       0.147844955129445}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.4234447135670729, 0.15960245900355638`}, {
      0.43736778643292706`, 0.15764456480596734`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.42347111340034244`, 0.16971665266404531`}, {
      0.4373413865996576, 0.167414299716907}}]}, 
    {Arrowheads[{{0.04587368524026625, 1.}}], 
     ArrowBox[{{0.42350968259195104`, 0.179870776427248}, {
      0.43730281740804894`, 0.17714410452513285`}}]}, 
    {Arrowheads[{{0.04587368524026625, 1.}}], 
     ArrowBox[{{0.42356785588532736`, 0.19007964795284887`}, {
      0.4372446441146726, 0.18681916157096057`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.42365915223198786`, 0.20036570403391046`}, {
      0.4371533477680122, 0.19641703406132754`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.42380966939622805`, 0.210763652503144}, {0.4370028306037719,
       0.2059030141635226}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.424073159589551, 0.22132706641472794`}, {0.436739340410449, 
      0.2152235288233672}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.42456676548834116`, 0.23213156229784693`}, {
      0.43624573451165877`, 0.22430296151167675`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4255452562719821, 0.24323781525687835`}, {
      0.43526724372801784`, 0.23308063712407395`}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{0.42744036698767474`, 0.2544749542689905}, {
      0.43337213301232524`, 0.24172742668339028`}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.43032612860523894`, 0.2650727285392621}, {
      0.43048637139476104`, 0.2510135809845473}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.43306671130758984`, 0.27449228990445274`}, {
      0.42774578869241014`, 0.26147794819078524`}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{0.43479463611291386`, 0.283419204440264}, {
      0.42601786388708607`, 0.2724349622264026}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.4333482268410962, 0.13938881572962758`}, {
      0.4473482017303324, 0.13809035093703903`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4333596425979349, 0.14944390756944992`}, {
      0.4473367859734937, 0.14791918766864529`}}]}, 
    {Arrowheads[{{0.04587368524026636, 1.}}], 
     ArrowBox[{{0.4333759189639032, 0.1595226364092997}, {0.4473205096075254, 
      0.15772438740022404`}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.43339971739240724`, 0.16963305188002287`}, {
      0.44729671117902137`, 0.16749790050092941`}}]}, 
    {Arrowheads[{{0.045873685240266276`, 1.}}], 
     ArrowBox[{{0.43343564501882786`, 0.17978717211200562`}, {
      0.44726078355260074`, 0.17722770884037525`}}]}, 
    {Arrowheads[{{0.045873685240266256`, 1.}}], 
     ArrowBox[{{0.4334921392757616, 0.1900036127232507}, {
      0.44720428929566697`, 0.18689519680055874`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4335857406471254, 0.20031237847409233`}, {
      0.4471106879243032, 0.1964703596211457}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.43375163368194236`, 0.210763652503144}, {0.4469447948894862,
       0.2059030141635226}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.43407198395373425`, 0.22144235615168356`}, {
      0.4466244446176944, 0.21510823908641155`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.43475554651971315`, 0.23247676823629146`}, {
      0.44594088205171545`, 0.22395775557323222`}}]}, 
    {Arrowheads[{{0.04587368524026637, 1.}}], 
     ArrowBox[{{0.43631644505729755`, 0.24391823338078253`}, {
      0.4443799835141311, 0.23240021900016972`}}]}, 
    {Arrowheads[{{0.0458736852402662, 1.}}], 
     ArrowBox[{{0.43939881926816654`, 0.2550668186624967}, {0.441297609303262,
       0.24113556228988414`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.4428685762569125, 0.2646058601844684}, {0.4378278523145161, 
      0.251480449339341}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.4449496896609963, 0.2732999804098638}, {0.4357467389104323, 
      0.2626702576853742}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.44594097194760196`, 0.2821864716303316}, {
      0.4347554566238266, 0.2736676950363351}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.44328355614461606`, 0.13931279280403047`}, {
      0.4572968009982411, 0.13816637386263617`}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.4432929215901673, 0.14935957539679645`}, {
      0.4572874355526899, 0.14800351984129873`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.44330660582950776`, 0.1594303815891034}, {
      0.45727375131334946`, 0.15781664222042038`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4433272326550087, 0.16953434723154404`}, {
      0.45725312448784855`, 0.16759660514940825`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.44335960201395347`, 0.17968575941017456`}, {
      0.4572207551289037, 0.17732912154220629`}}]}, 
    {Arrowheads[{{0.045873685240266276`, 1.}}], 
     ArrowBox[{{0.4434131479477796, 0.18990809483543047`}, {
      0.45716720919507764`, 0.18699071468837897`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.44350816470005955`, 0.20024221068799952`}, {
      0.45707219244279773`, 0.19654052740723846`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.44369359796765667`, 0.210763652503144}, {0.4568867591752005,
       0.2059030141635226}}]}, 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.44410519107558283`, 0.22161704216425754`}, {
      0.4564751660672744, 0.21493355307383757`}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.44517069101344287`, 0.2330351633226863}, {
      0.4554096661294143, 0.2233993604868374}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.448026134705841, 0.2448147075632924}, {0.45255422243701626`,
       0.23150374481765987`}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.4524590975910526, 0.2547882763299478}, {
      0.44812125955180465`, 0.241414104622433}}]}, 
    {Arrowheads[{{0.045873685240266394`, 1.}}], 
     ArrowBox[{{0.4550987432248172, 0.26317141303381253`}, {0.44548161391804, 
      0.2529148964899969}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.456146055417742, 0.27187485339459183`}, {0.4444343017251153,
       0.2640953847006462}}]}, 
    {Arrowheads[{{0.045873685240266214`, 1.}}], 
     ArrowBox[{{0.45659816643284606`, 0.28103040672438034`}, {
      0.4439821907100112, 0.27482375994228636`}}]}, 
    {Arrowheads[{{0.045873685240266394`, 1.}}], 
     ArrowBox[{{0.4532190358931941, 0.1392270847604305}, {0.4672452498210918, 
      0.1382520819062361}}]}, 
    {Arrowheads[{{0.045873685240266256`, 1.}}], 
     ArrowBox[{{0.4532261978232029, 0.14926297784755319`}, {
      0.46723808789108295`, 0.148100117390542}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{0.4532369593254443, 0.159322607239506}, {0.4672273263888416, 
      0.15792441657001774`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.4532537667798584, 0.16941611962529043`}, {
      0.4672105189344274, 0.16771483275566187`}}]}, 
    {Arrowheads[{{0.045873685240266394`, 1.}}], 
     ArrowBox[{{0.4532813954187009, 0.17956026381189324`}, {0.467182890295585,
       0.17745461714048763`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.4533300706553947, 0.1897845924831873}, {
      0.46713421505889113`, 0.18711421704062212`}}]}, 
    {Arrowheads[{{0.04587368524026637, 1.}}], 
     ArrowBox[{{0.45342454261108883`, 0.20014576518849858`}, {
      0.46703974310319707`, 0.1966369729067394}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.453635562253371, 0.210763652503144}, {0.4668287234609148, 
      0.2059030141635226}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.4542157025734379, 0.221911748256939}, {0.4662485831408479, 
      0.21463884698115612`}}]}, 
    {Arrowheads[{{0.04587368524026637, 1.}}], 
     ArrowBox[{{0.4562513363964126, 0.2340116131929922}, {
      0.46421294931787327`, 0.2224229106165315}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.4616087079663153, 0.24505316522628276`}, {
      0.4588555777479706, 0.23126528715466949`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.46524073632805285`, 0.2530342745391644}, {
      0.45522354938623305`, 0.24316810641321643`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.46635126678338934`, 0.2615040288284445}, {
      0.45411301893089645`, 0.2545822806953649}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.46674653031440705`, 0.27062786061384325`}, {
      0.45371775539987885`, 0.2653423774813948}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{0.46692512673709086`, 0.280077732935655}, {0.453539158977195, 
      0.2757764337310117}}]}, 
    {Arrowheads[{{0.045873685240266346`, 1.}}], 
     ArrowBox[{{0.4631549129200428, 0.13912976199961025`}, {
      0.4771933013656717, 0.1383494046670564}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.4631597888857662, 0.14915129895480755`}, {
      0.4771884253999483, 0.14821179628328762`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.463167355417061, 0.15919513869057633`}, {
      0.47718085886865347`, 0.1580518851189474}}]}, 
    {Arrowheads[{{0.04587368524026625, 1.}}], 
     ArrowBox[{{0.4631796783473537, 0.1692720826961353}, {0.4771685359383608, 
      0.16785886968481703`}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.46320111370065525`, 0.17940113471037664`}, {
      0.47714710058505916`, 0.17761374624200424`}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{0.46324203531493, 0.1896188948651836}, {0.47710617897078444`, 
      0.18727991465862587`}}]}, 
    {Arrowheads[{{0.04587368524026639, 1.}}], 
     ArrowBox[{{0.46333177277843673`, 0.2000049945849354}, {
      0.47701644150727773`, 0.19677774351030258`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.4635775265390853, 0.210763652503144}, {0.4767706877466291, 
      0.2059030141635226}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.464559375081207, 0.2225056771298109}, {0.47578883920450743`,
       0.21404491810828424`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.46974575555832104`, 0.23523423004272817`}, {
      0.4706024587273934, 0.22120029376679554`}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.4753747005052415, 0.2428894646208657}, {0.464973513780473, 
      0.23342898776008658`}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.47655721535702733`, 0.2510469088020667}, {
      0.46379099892868714`, 0.2451554721503141}}]}, 
    {Arrowheads[{{0.045873685240266256`, 1.}}], 
     ArrowBox[{{0.4768750139995741, 0.26016898971006375`}, {
      0.4634732002861404, 0.2559173198137457}}]}, 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.47700053883792815`, 0.26966474913836536`}, {
      0.4633476754477863, 0.2663054889568726}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.47706278176481975`, 0.27932975538407734`}, {
      0.46328543252089466`, 0.2765244112825893}}]}, 
    {Arrowheads[{{0.0458736852402665, 1.}}], 
     ArrowBox[{{0.4730915707653426, 0.13901836167091616`}, {
      0.4871405720918005, 0.13846080499575042`}}]}, 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.4730942324118541, 0.14902081705845188`}, {
      0.48713791044528904`, 0.1483422781796433}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4730985203873015, 0.15904220548290587`}, {
      0.48713362246984154`, 0.15820481832661787`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.4731058623104955, 0.16909301296649543`}, {
      0.4871262805466476, 0.16803793941445688`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4731195631519175, 0.1791931509573124}, {0.4871125797052256, 
      0.17782172999506848`}}]}, 
    {Arrowheads[{{0.045873685240266394`, 1.}}], 
     ArrowBox[{{0.4731486353584895, 0.18938543977114797`}, {
      0.4870835074986536, 0.18751336975266145`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.47322468220666114`, 0.19978064278642868`}, {
      0.48700746065048195`, 0.19700209530880936`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.4735194908247996, 0.21076365250314397`}, {
      0.48671265203234343`, 0.20590301416352258`}}]}, 
    {Arrowheads[{{0.045873685240266374`, 1.}}], 
     ArrowBox[{{0.4761919439138693, 0.2241081828551521}, {
      0.48404019894327377`, 0.21244241238294304`}}]}, 
    {Arrowheads[{{0.04587368524026641, 1.}}], 
     ArrowBox[{{0.4854997825829829, 0.2327379898478122}, {
      0.47473236027416016`, 0.22369653396171152`}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.4867618168785194, 0.24045169087803553`}, {
      0.4734703259786237, 0.23586676150291672`}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{0.48697653108536504`, 0.24963592831266876`}, {
      0.47325561177177805`, 0.24656645263971208`}}]}, 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.48704790931940767`, 0.2592140306666777}, {
      0.4731842335377354, 0.2568722788571317}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.4870803955546988, 0.26894403322284594`}, {
      0.4731517473024443, 0.2670262048723921}}]}, 
    {Arrowheads[{{0.04587368524026637, 1.}}], 
     ArrowBox[{{0.4870980530493725, 0.27874760729764325`}, {
      0.47313408980777055`, 0.27710655936902345`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.4830296082372987, 0.13888969705669285`}, {
      0.49708646319127303`, 0.13858946960997376`}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.48303043935514905`, 0.14886652421826105`}, {
      0.49708563207342266`, 0.14849657101983413`}}]}, 
    {Arrowheads[{{0.045873685240266186`, 1.}}], 
     ArrowBox[{{0.4830318385068762, 0.15885563198531857`}, {
      0.4970842329216955, 0.1583913918242052}}]}, 
    {Arrowheads[{{0.04587368524026644, 1.}}], 
     ArrowBox[{{0.4830343841391428, 0.16886488474112196`}, {
      0.4970816872894289, 0.16826606763983035`}}]}, 
    {Arrowheads[{{0.045873685240266256`, 1.}}], 
     ArrowBox[{{0.4830395787720333, 0.17891066383731416`}, {
      0.4970764926565384, 0.17810421711506674`}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.48305232117228797`, 0.18903360565650207`}, {
      0.49706375025628374`, 0.18786520386730737`}}]}, 
    {Arrowheads[{{0.04587368524026645, 1.}}], 
     ArrowBox[{{0.4830963210157365, 0.19936904761709448`}, {
      0.4970197504128352, 0.19741369047814356`}}]}, 
    {Arrowheads[{{0.045873685240266436`, 1.}}], 
     ArrowBox[{{0.4834614551105139, 0.21076365250314397`}, {
      0.4966546163180578, 0.2059030141635226}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.495615263398288, 0.2225809389646974}, {0.4845008080302837, 
      0.21396965627339773`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.4969486780318173, 0.22961023547990736`}, {
      0.48316739339675435`, 0.22682428832961635`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.4970375612650192, 0.2390003861133622}, {0.4830785101635525, 
      0.23731806626759008`}}]}, 
    {Arrowheads[{{0.04587368524026639, 1.}}], 
     ArrowBox[{{0.49706107899058305`, 0.24871658612089226`}, {
      0.48305499243798866`, 0.24748579483148855`}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.4970707580117766, 0.2585361587248562}, {0.4830453134167952, 
      0.25755015079895316`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.49707573037580055`, 0.26840139848136235`}, {
      0.4830403410527712, 0.2675688396138756}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.49707865178512006`, 0.2782907822681044}, {
      0.48303741964345165`, 0.27756338439856226`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4929699696352571, 0.1387395833333333}, {0.5070300303647431, 
      0.1387395833333333}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4929699696352571, 0.1486815476190476}, {0.5070300303647431, 
      0.1486815476190476}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4929699696352571, 0.15862351190476187`}, {
      0.5070300303647431, 0.15862351190476187`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4929699696352571, 0.16856547619047615`}, {
      0.5070300303647431, 0.16856547619047615`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4929699696352571, 0.17850744047619044`}, {
      0.5070300303647431, 0.17850744047619044`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4929699696352571, 0.18844940476190472`}, {
      0.5070300303647431, 0.18844940476190472`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.4929699696352571, 0.19839136904761898`}, {
      0.5070300303647431, 0.198391369047619}}]}, 
    {Arrowheads[{{0., 1.}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5070300303647431, 0.21827529761904754`}, {
      0.4929699696352571, 0.21827529761904757`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5070300303647431, 0.22821726190476185`}, {
      0.4929699696352571, 0.22821726190476188`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5070300303647431, 0.23815922619047614`}, {
      0.4929699696352571, 0.23815922619047614`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5070300303647431, 0.24810119047619042`}, {
      0.4929699696352571, 0.24810119047619042`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5070300303647431, 0.2580431547619047}, {0.4929699696352571, 
      0.2580431547619047}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5070300303647431, 0.267985119047619}, {0.4929699696352571, 
      0.267985119047619}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5070300303647431, 0.2779270833333333}, {0.4929699696352571, 
      0.2779270833333333}}]}, 
    {Arrowheads[{{0.04587368524026646, 1.}}], 
     ArrowBox[{{0.5029141661856231, 0.13856243708425467`}, {
      0.5169697623858057, 0.13891672958241194`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.5029155449111922, 0.1484562529174938}, {0.5169683836602366, 
      0.14890684232060142`}}]}, 
    {Arrowheads[{{0.045873685240266165`, 1.}}], 
     ArrowBox[{{0.5029181485533983, 0.15832797935549073`}, {
      0.5169657800180304, 0.158919044454033}}]}, 
    {Arrowheads[{{0.04587368524026642, 1.}}], 
     ArrowBox[{{0.5029237565682307, 0.1681579380162364}, {0.516960172003198, 
      0.16897301436471593`}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.502938804889488, 0.17789336767899536`}, {0.5169451236819408,
       0.1791215132733855}}]}, 
    {Arrowheads[{{0.04587368524026637, 1.}}], 
     ArrowBox[{{0.5030015829884205, 0.18733028261603224`}, {
      0.5168823455830083, 0.1895685269077772}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5040686406672368, 0.19452802896398114`}, {
      0.5158152879041918, 0.20225470913125687`}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.5165385448894863, 0.20590301416352255`}, {
      0.5033453836819425, 0.21076365250314402`}}]}, 
    {Arrowheads[{{0.04587368524026631, 1.}}], 
     ArrowBox[{{0.516891784826292, 0.21721637298387508`}, {0.5029921437451368,
       0.21933422225422003`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.5169376302504163, 0.22752301076899004`}, {
      0.5029462983210125, 0.22891151304053367`}}]}, 
    {Arrowheads[{{0.045873685240266256`, 1.}}], 
     ArrowBox[{{0.5169521975201302, 0.23763200998406694`}, {
      0.5029317310512985, 0.23868644239688533`}}]}, 
    {Arrowheads[{{0.045873685240266374`, 1.}}], 
     ArrowBox[{{0.5169587352830298, 0.24766962159357586`}, {
      0.5029251932883988, 0.24853275935880495`}}]}, 
    {Arrowheads[{{0.04587368524026614, 1.}}], 
     ArrowBox[{{0.5169622703510881, 0.25767352024283824`}, {
      0.5029216582203406, 0.2584127892809712}}]}, 
    {Arrowheads[{{0.045873685240266575`, 1.}}], 
     ArrowBox[{{0.5169644193843718, 0.26765885026800557`}, {0.502919509187057,
       0.26831138782723246`}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.5169658354137696, 0.2776328703056121}, {0.5029180931576591, 
      0.2782212963610546}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.5128646633570166, 0.1383506838875186}, {0.5269031937858406, 
      0.139128482779148}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.512872039304253, 0.14817683400314727`}, {0.5268958178386044,
       0.14918626123494788`}}]}, 
    {Arrowheads[{{0.0458736852402664, 1.}}], 
     ArrowBox[{{0.5128870690473616, 0.15794139481094216`}, {
      0.5268807880954958, 0.15930562899858156`}}]}, 
    {Arrowheads[{{0.045873685240266235`, 1.}}], 
     ArrowBox[{{0.5129235476856143, 0.1675783465872321}, {0.5268443094572428, 
      0.1695526057937202}}]}, 
    {Arrowheads[{{0.04587368524026645, 1.}}], 
     ArrowBox[{{0.5130449086156614, 0.17687982474333835`}, {
      0.5267229485271958, 0.18013505620904252`}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.5138687050249817, 0.18481094181507127`}, {
      0.5258991521178755, 0.19208786770873815`}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.5236733298397666, 0.19247007147388334`}, {
      0.5160945273030906, 0.20431266662135467`}}]}, 
    {Arrowheads[{{0.04587368524026619, 1.}}], 
     ArrowBox[{{0.5264805091752005, 0.20590301416352258`}, {
      0.5132873479676567, 0.21076365250314402`}}]}, 
    {Arrowheads[{{0.045873685240266235`, 1.}}], 
     ArrowBox[{{0.5267534843718195, 0.21678180170859931`}, {
      0.5130143727710378, 0.2197687935294958}}]}, 
    {Arrowheads[{{0.04587368524026644, 1.}}], 
     ArrowBox[{{0.526827595487911, 0.22711870982035418`}, {0.5129402616549461,
       0.2293158139891695}}]}, 
    {Arrowheads[{{0.045873685240266186`, 1.}}], 
     ArrowBox[{{0.5268582796890384, 0.23727618971472678`}, {
      0.5129095774538188, 0.23904226266622547`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.5268740860306804, 0.24735351031457342`}, {
      0.5128937711121768, 0.24884887063780742`}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.5268833907303351, 0.25738828346520204`}, {0.512884466412522,
       0.25869802605860737`}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.5268893834666277, 0.26739781278974256`}, {
      0.5128784736762296, 0.26857242530549547`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.526893500877499, 0.2773911514205116}, {0.5128743562653583, 
      0.2784630152461551}}]}, 
    {Arrowheads[{{0.04587368524026645, 1.}}], 
     ArrowBox[{{0.5228255794173738, 0.13809387544721316`}, {0.536826206296912,
       0.13938529121945342`}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.5228484738120219, 0.14782308946747963`}, {
      0.5368033119022637, 0.14954000577061552`}}]}, 
    {Arrowheads[{{0.045873685240266436`, 1.}}], 
     ArrowBox[{{0.522899664007198, 0.15741990031982228`}, {0.5367521217070877,
       0.15982712348970146`}}]}, 
    {Arrowheads[{{0.0458736852402665, 1.}}], 
     ArrowBox[{{0.5230442777819846, 0.1667131738659094}, {0.5366075079323012, 
      0.17041777851504292`}}]}, 
    {Arrowheads[{{0.045873685240266644`, 1.}}], 
     ArrowBox[{{0.5236797329964733, 0.1750948101275731}, {0.5359720527178125, 
      0.18192007082480777`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.5288710118857625, 0.1814845264959402}, {0.5307807738285234, 
      0.19541428302786923`}}]}, 
    {Arrowheads[{{0.04587368524026628, 1.}}], 
     ArrowBox[{{0.5354897005017423, 0.19422692311878445`}, {
      0.5241620852125435, 0.20255581497645353`}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.5364224734609148, 0.20590301416352258`}, {0.523229312253371,
       0.210763652503144}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.5366404162668227, 0.21654798825818167`}, {
      0.5230113694474631, 0.2200026069799135}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.5367229821121862, 0.2268565684281937}, {0.5229288036020995, 
      0.22957795538132997`}}]}, 
    {Arrowheads[{{0.04587368524026642, 1.}}], 
     ArrowBox[{{0.5367632805098623, 0.23702169399967699`}, {
      0.5228885052044233, 0.23929675838127532`}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.5367861722006902, 0.2471133451497362}, {0.5228656135135956, 
      0.2490890358026446}}]}, 
    {Arrowheads[{{0.04587368524026641, 1.}}], 
     ArrowBox[{{0.5368005501897091, 0.2571625401909998}, {0.5228512355245767, 
      0.25892376933280964`}}]}, 
    {Arrowheads[{{0.045873685240266235`, 1.}}], 
     ArrowBox[{{0.5368102474577574, 0.2671850454622005}, {0.5228415382565285, 
      0.2687851926330376}}]}, 
    {Arrowheads[{{0.04587368524026642, 1.}}], 
     ArrowBox[{{0.536817143959865, 0.2771896994794993}, {0.5228346417544206, 
      0.2786644671871673}}]}, 
    {Arrowheads[{{0.04587368524026625, 1.}}], 
     ArrowBox[{{0.532803986585654, 0.13777738076020848`}, {0.5467317277000603,
       0.13970178590645815`}}]}, 
    {Arrowheads[{{0.04587368524026624, 1.}}], 
     ArrowBox[{{0.5328622006457172, 0.14736502368355753`}, {0.546673513639997,
       0.14999807155453762`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5330078741351174, 0.1566937563077291}, {0.5465278401505969, 
      0.16055326750179463`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.5335016939529268, 0.16537854572271088`}, {
      0.5460340203327876, 0.17175240665824143`}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.5361483951129519, 0.17248076464756953`}, {
      0.5433873191727623, 0.18453411630481134`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.5434764290722621, 0.18247715048285407`}, {
      0.5360592852134523, 0.1944216590409554}}]}, 
    {Arrowheads[{{0.04587368524026615, 1.}}], 
     ArrowBox[{{0.5458454380102767, 0.19485805081553395`}, {
      0.5336902762754376, 0.20192468727970406`}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.546364437746629, 0.20590301416352258`}, {0.5331712765390852,
       0.210763652503144}}]}, 
    {Arrowheads[{{0.045873685240266186`, 1.}}], 
     ArrowBox[{{0.5465438167349517, 0.2164024125356773}, {0.5329918975507626, 
      0.22014818270241787`}}]}, 
    {Arrowheads[{{0.045873685240266464`, 1.}}], 
     ArrowBox[{{0.5466263035841477, 0.22667355230086672`}, {
      0.5329094107015665, 0.229760971508657}}]}, 
    {Arrowheads[{{0.0458736852402663, 1.}}], 
     ArrowBox[{{0.5466713388384417, 0.23683134539464415`}, {
      0.5328643754472727, 0.2394871069863081}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.546698848422016, 0.2469253134343898}, {0.5328368658636984, 
      0.24927706751799106`}}]}, 
    {Arrowheads[{{0.045873685240266505`, 1.}}], 
     ArrowBox[{{0.5467170269910026, 0.2569799683479418}, {0.5328186872947116, 
      0.25910634117586767`}}]}, 
    {Arrowheads[{{0.04587368524026615, 1.}}], 
     ArrowBox[{{0.5467297557677788, 0.26700875105064087`}, {
      0.5328059585179356, 0.2689614870445971}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.5467390725413424, 0.2770196238041353}, {0.532796641744372, 
      0.2788345428625314}}]}, 
    {Arrowheads[{{0.04587368524026632, 1.}}], 
     ArrowBox[{{0.5428124117196644, 0.13738051518320762`}, {
      0.5566072311374782, 0.14009865148345899`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.5429479781956517, 0.146758320377501}, {0.5564716646614911, 
      0.1506047748605942}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{0.5433344290900598, 0.15566113119674052`}, {0.556085213767083,
       0.16158589261278322`}}]}, 
    {Arrowheads[{{0.04587368524026641, 1.}}], 
     ArrowBox[{{0.5448699789501307, 0.1634667261757088}, {0.5545496639070121, 
      0.17366422620524352`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.5505452452805487, 0.17152722601553405`}, {
      0.5488743975765942, 0.18548765493684685`}}]}, 
    {Arrowheads[{{0.045873685240266256`, 1.}}], 
     ArrowBox[{{0.5548589070763336, 0.18366314903104175`}, {
      0.5445607357808092, 0.1932356604927677}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.5559559017143543, 0.19516525559754255`}, {
      0.5434637411427886, 0.20161748249769545`}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.5563064020323433, 0.20590301416352258`}, {
      0.5431132408247995, 0.210763652503144}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.5564575688269877, 0.21630318403804508`}, {0.542962074030155,
       0.22024741120005006`}}]}, 
    {Arrowheads[{{0.04587368524026638, 1.}}], 
     ArrowBox[{{0.5565365409948139, 0.2265388022260413}, {0.5428831018623288, 
      0.2298957215834824}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.556583306211967, 0.23668391813395445`}, {0.5428363366451757,
       0.2396345342469978}}]}, 
    {Arrowheads[{{0.04587368524026637, 1.}}], 
     ArrowBox[{{0.556613515224368, 0.2467744128372889}, {0.5428061276327748, 
      0.2494279681150919}}]}, 
    {Arrowheads[{{0.04587368524026646, 1.}}], 
     ArrowBox[{{0.5566343073635449, 0.25682955620160425`}, {
      0.5427853354935979, 0.25925675332220516`}}]}, 
    {Arrowheads[{{0.045873685240266214`, 1.}}], 
     ArrowBox[{{0.5566493237793677, 0.26686055955497223`}, {
      0.5427703190777752, 0.26910967854026585`}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.5566605852861018, 0.2768743684022823}, {0.5427590575710409, 
      0.27897979826438435`}}]}, 
    {Arrowheads[{{0.04587368524026626, 1.}}], 
     ArrowBox[{{0.5528737613451717, 0.13687418456070907`}, {
      0.5664298100833994, 0.1406049821059575}}]}, 
    {Arrowheads[{{0.04587368524026629, 1.}}], 
     ArrowBox[{{0.5531776676136264, 0.14594163489271372`}, {
      0.5661259038149448, 0.15142146034538148`}}]}, 
    {Arrowheads[{{0.04587368524026623, 1.}}], 
     ArrowBox[{{0.5541596646073549, 0.154235125791848}, {0.5651439068212163, 
      0.16301189801767574`}}]}, 
    {Arrowheads[{{0.04587368524026633, 1.}}], 
     ArrowBox[{{0.5578115112904641, 0.16178058732077183`}, {
      0.5614920601381072, 0.17535036506018048`}}]}, 
    {Arrowheads[{{0.04587368524026643, 1.}}], 
     ArrowBox[{{0.563268070884288, 0.1724788578485382}, {0.5560355005442833, 
      0.1845360231038427}}]}, 
    {Arrowheads[{{0.04587368524026646, 1.}}], 
     ArrowBox[{{0.5653429775562949, 0.184322461298922}, {0.5539605938722763, 
      0.19257634822488745`}}]}, 
    {Arrowheads[{{0.04587368524026647, 1.}}], 
     ArrowBox[{{0.5659876840231347, 0.19534543412560698`}, {
      0.5533158874054365, 0.20143730396963103`}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.5662483663180575, 0.20590301416352258`}, {
      0.5530552051105138, 0.210763652503144}}]}, 
    {Arrowheads[{{0.04587368524026622, 1.}}], 
     ArrowBox[{{0.566378092932443, 0.21623125306567476`}, {0.5529254784961283,
       0.22031934217242038`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.5664522911537296, 0.22643556252010072`}, {
      0.5528512802748416, 0.229998961289423}}]}, 
    {Arrowheads[{{0.04587368524026627, 1.}}], 
     ArrowBox[{{0.5664990192574937, 0.23656651788887922`}, {
      0.5528045521710776, 0.23975193449207305`}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.5665305715042354, 0.2466507998442587}, {0.5527729999243359, 
      0.24955158110812212`}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.5665530237983186, 0.2567036623816721}, {0.5527505476302526, 
      0.2593826471421374}}]}, 
    {Arrowheads[{{0.04587368524026617, 1.}}], 
     ArrowBox[{{0.5665696650987144, 0.2667344105477262}, {0.5527339063298569, 
      0.2692358275475118}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.5665824066267159, 0.276749025313797}, {0.5527211648018554, 
      0.2791051413528697}}]}, 
    {Arrowheads[{{0.04587368524026635, 1.}}], 
     ArrowBox[{{0.5630310445774362, 0.13621922136213507`}, {
      0.5761564554225637, 0.1412599453045315}}]}, 
    {Arrowheads[{{0.04587368524026621, 1.}}], 
     ArrowBox[{{0.5636984820259404, 0.14485177707197333`}, {
      0.5754890179740594, 0.15251131816612187`}}]}, 
    {Arrowheads[{{0.04587368524026641, 1.}}], 
     ArrowBox[{{0.5659405771290134, 0.15261721063826708`}, {
      0.5732469228709866, 0.16462981317125666`}}]}, 
    {Arrowheads[{{0.04587368524026643, 1.}}], 
     ArrowBox[{{0.5710586034816557, 0.1616897557768402}, {0.5681288965183441, 
      0.17544119660411212`}}]}, 
    {Arrowheads[{{0.045873685240266276`, 1.}}], 
     ArrowBox[{{0.5744163858313698, 0.17339241256158464`}, {0.56477111416863, 
      0.1836224683907962}}]}, 
    {Arrowheads[{{0.04587368524026634, 1.}}], 
     ArrowBox[{{0.5755506098414156, 0.184716155807048}, {0.5636368901585843, 
      0.19218265371676146`}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.5759850958872205, 0.1954635670257744}, {0.5632024041127792, 
      0.20131917106946362`}}]}, 
    {Arrowheads[{{0.04587368524026616, 1.}}], 
     ArrowBox[{{0.5761903306037718, 0.20590301416352258`}, {0.562997169396228,
       0.210763652503144}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.5763032479799383, 0.21617673530488776`}, {
      0.5628842520200614, 0.22037385993320735`}}]}, 
    {Arrowheads[{{0.045873685240266325`, 1.}}], 
     ArrowBox[{{0.5763723596238169, 0.2263539909912594}, {0.5628151403761829, 
      0.23008053281826427`}}]}, 
    {Arrowheads[{{0.04587368524026637, 1.}}], 
     ArrowBox[{{0.5764180358810131, 0.23647089886930533`}, {
      0.5627694641189865, 0.23984755351164694`}}]}, 
    {Arrowheads[{{0.04587368524026618, 1.}}], 
     ArrowBox[{{0.5764500060078696, 0.2465477811663944}, {0.5627374939921304, 
      0.24965459978598642`}}]}, 
    {Arrowheads[{{0.045873685240266165`, 1.}}], 
     ArrowBox[{{0.5764733949786749, 0.2565968450106406}, {0.562714105021325, 
      0.2594894645131688}}]}, 
    {Arrowheads[{{0.045873685240266276`, 1.}}], 
     ArrowBox[{{0.5764911161035848, 0.26662582961474335`}, {
      0.5626963838964151, 0.2693444084804947}}]}, 
    {Arrowheads[{{0.045873685240266415`, 1.}}], 
     ArrowBox[{{0.576504929032168, 0.2766398648924583}, {0.5626825709678317, 
      0.27921430177420836`}}]}}},
  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.42337621963525696`, 0.576623780364743}, {
   0.13170955296859027`, 0.28495711369807636`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.56573042684398*^9}]
}, Open  ]]
},
WindowSize->{1904, 945},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
Magnification->1.549999713897705,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3565696621-1676012"->{
  Cell[383530, 7431, 476, 12, 100, "Print",
   CellTags->"Info3565696621-1676012"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3565696621-1676012", 476531, 9377}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 22428, 518, 1563, "Input"],
Cell[23010, 542, 281, 4, 45, "Output"],
Cell[23294, 548, 6875, 121, 382, "Output"],
Cell[30172, 671, 5995, 103, 384, "Output"],
Cell[36170, 776, 7146, 126, 384, "Output"],
Cell[43319, 904, 20722, 365, 388, "Output"]
}, Open  ]],
Cell[64056, 1272, 17957, 319, 371, "Input"],
Cell[CellGroupData[{
Cell[82038, 1595, 22428, 518, 1563, "Input"],
Cell[104469, 2115, 96, 1, 45, "Output"],
Cell[104568, 2118, 11004, 189, 384, "Output"],
Cell[115575, 2309, 10952, 188, 388, "Output"],
Cell[126530, 2499, 10588, 182, 384, "Output"],
Cell[137121, 2683, 33523, 577, 388, "Output"]
}, Open  ]],
Cell[170659, 3263, 29023, 500, 371, "Input"],
Cell[CellGroupData[{
Cell[199707, 3767, 121, 2, 46, "Input"],
Cell[199831, 3771, 74, 1, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199942, 3777, 9908, 301, 2376, "Input"],
Cell[209853, 4080, 76, 1, 45, "Output"],
Cell[209932, 4083, 40694, 691, 580, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[250663, 4779, 10055, 303, 2376, "Input"],
Cell[260721, 5084, 124, 2, 68, "Output"],
Cell[260848, 5088, 34298, 583, 898, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[295183, 5676, 2223, 65, 599, "Input"],
Cell[297409, 5743, 192, 3, 68, "Output"],
Cell[297604, 5748, 191, 3, 68, "Output"],
Cell[297798, 5753, 178, 2, 68, "Output"],
Cell[297979, 5757, 35871, 671, 898, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[333887, 6433, 7021, 198, 1461, "Input"],
Cell[340911, 6633, 931, 13, 68, "Output"],
Cell[341845, 6648, 962, 14, 68, "Output"],
Cell[342810, 6664, 942, 13, 68, "Output"],
Cell[343755, 6679, 972, 15, 68, "Output"],
Cell[344730, 6696, 1029, 16, 68, "Output"],
Cell[345762, 6714, 37592, 706, 881, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[383391, 7425, 114, 2, 69, "Input"],
Cell[CellGroupData[{
Cell[383530, 7431, 476, 12, 100, "Print",
 CellTags->"Info3565696621-1676012"],
Cell[384009, 7445, 134, 2, 51, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[384192, 7453, 7660, 213, 1553, "Input"],
Cell[391855, 7668, 350, 5, 99, "Output"],
Cell[392208, 7675, 370, 5, 99, "Output"],
Cell[392581, 7682, 370, 5, 99, "Output"],
Cell[392954, 7689, 355, 5, 99, "Output"],
Cell[393312, 7696, 369, 5, 99, "Output"],
Cell[393684, 7703, 394, 7, 99, "Output"],
Cell[394081, 7712, 433, 8, 99, "Output"],
Cell[394517, 7722, 36472, 698, 919, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[431026, 8425, 7713, 214, 1553, "Input"],
Cell[438742, 8641, 72, 1, 99, "Output"],
Cell[438817, 8644, 74, 1, 99, "Output"],
Cell[438894, 8647, 106, 2, 99, "Output"],
Cell[439003, 8651, 75, 1, 99, "Output"],
Cell[439081, 8654, 82, 1, 99, "Output"],
Cell[439166, 8657, 117, 3, 99, "Output"],
Cell[439286, 8662, 137, 3, 99, "Output"],
Cell[439426, 8667, 36648, 694, 919, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)