SEI with vd.nb

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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    224043,       4299]
NotebookOptionsPosition[    222779,       4259]
NotebookOutlinePosition[    223159,       4275]
CellTagsIndexPosition[    223116,       4272]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"eq1", "=", 
   RowBox[{
    RowBox[{"\[Mu]", " ", "n"}], "-", 
    RowBox[{"\[Mu]", " ", 
     RowBox[{"s", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Beta]", " ", "*", " ", 
     RowBox[{"s", "[", "t", "]"}], "*", 
     FractionBox[
      RowBox[{"i", "[", "t", "]"}], "n"]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{
    RowBox[{"\[Beta]", "*", 
     RowBox[{"s", "[", "t", "]"}], "*", 
     FractionBox[
      RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Mu]", "+", "\[Epsilon]"}], ")"}], "*", 
     RowBox[{"e", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"\[Epsilon]", "*", 
     RowBox[{"e", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Mu]", " ", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.25"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]", "=", "0.2"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"R0", "=", 
  RowBox[{"N", "[", 
   FractionBox[
    RowBox[{"\[Beta]", " ", "\[Epsilon]"}], 
    RowBox[{"\[Mu]", 
     RowBox[{"(", 
      RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tf", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"szero", "=", "0.60"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ezero", "=", "0.30"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"izero", "=", "0.1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", "eq1"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"e", "'"}], "[", "t", "]"}], "\[Equal]", "eq2"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", "eq3"}], ",", 
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "szero"}], ",", 
        RowBox[{
         RowBox[{"e", "[", "0", "]"}], "\[Equal]", "ezero"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "izero"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "e", ",", "i"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tf"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<S\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Blue"}]}]}], "]"}]}], "      ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"S", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot1a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Blue"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"For", " ", 
     RowBox[{"S", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", "*)"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"plot2", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"\"\<E\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Orange"}]}]}], "]"}]}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"E", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot2a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Orange"}]}], ",", 
      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[{"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[{"plot3a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "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]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowLegend", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"plot1a", " ", ",", "plot2a", ",", "plot3a"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<S(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<E(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<I(t)\>\""}], "}"}]}], "}"}], ",", 
      RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
      RowBox[{"LegendSpacing", "\[Rule]", "0"}], ",", 
      RowBox[{"LegendSize", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0.5"}], "}"}]}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotall", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "tf"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.05"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLegend", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<S(t)\>\"", ",", "\"\<E(t)\>\"", ",", "\"\<I(t)\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Orange"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
     RowBox[{"LegendSpacing", "\[Rule]", "0"}], ",", 
     RowBox[{"LegendPosition", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0"}], "}"}]}], ",", 
     RowBox[{"LegendSize", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0.3"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"GridLinesStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", "Dotted"}], "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Density \>\"", ",", "\"\<\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<time \>\"", "[", "t", "]"}], ",", "\"\<\>\""}], 
         "}"}]}], "}"}]}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"plotP", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"ParametricPlot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x1", "[", "t", "]"}], ",", 
            RowBox[{"x2", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", "t", "]"}], ",", 
           RowBox[{"\"\<E\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
      "\[IndentingNewLine]", "plotQ"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"ParametricPlot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x2", "[", "t", "]"}], ",", 
             RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\"\<E\>\"", "[", "t", "]"}], ",", 
            RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], "\n", 
       "plotR"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x1", "[", "t", "]"}], ",", 
              RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"S", "[", "t", "]"}], ",", 
             RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
        "\[IndentingNewLine]", 
        RowBox[{"h1", "[", "t_", "]"}]}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x1", "[", "t", "]"}], "/.", "sol"}], "]"}], "\n", 
         RowBox[{"h2", "[", "t_", "]"}]}], ":=", 
        RowBox[{
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"x2", "[", "t", "]"}], "/.", "sol"}], "]"}], 
          "\[IndentingNewLine]", 
          RowBox[{"h3", "[", "t_", "]"}]}], ":=", 
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x3", "[", "t", "]"}], "/.", "sol"}], "]"}]}]}]}]}]}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.564274624437256*^9, 3.564274722470863*^9}, 
   3.5642747638122272`*^9, {3.5642747970531287`*^9, 3.5642748024324365`*^9}, {
   3.5642749052103148`*^9, 3.564274962159572*^9}, {3.5642750086032286`*^9, 
   3.56427508275747*^9}, 3.564275136914568*^9, {3.564275234073125*^9, 
   3.564275265760937*^9}, 3.5642753049601793`*^9, {3.5642753485936747`*^9, 
   3.5642753488586903`*^9}, {3.5642755120030217`*^9, 3.564275543131802*^9}, {
   3.5642757403530827`*^9, 3.5642757496856165`*^9}, 3.564277040585451*^9, {
   3.5642780252857733`*^9, 3.564278058153653*^9}, {3.5642782372008944`*^9, 
   3.5642782974883423`*^9}, 3.564278465501952*^9, {3.5642786024247837`*^9, 
   3.564278605454957*^9}, {3.5642788326109495`*^9, 3.564278851760045*^9}, {
   3.564957552972752*^9, 3.5649575726158757`*^9}, {3.564957828559515*^9, 
   3.5649578311986656`*^9}, 3.5649581785675344`*^9, {3.5649582463214097`*^9, 
   3.5649582480745096`*^9}, {3.5649582928020678`*^9, 
   3.5649583123031836`*^9}, {3.5649583613849907`*^9, 
   3.5649584176172075`*^9}, {3.5649584601716413`*^9, 
   3.5649585199930625`*^9}, {3.5679776907023563`*^9, 
   3.5679779276239076`*^9}, {3.5679779753866396`*^9, 3.5679780194841614`*^9}, 
   3.5679780499879065`*^9, {3.5681386248402624`*^9, 3.568138696968388*^9}, {
   3.568138727656143*^9, 3.5681389858339105`*^9}, {3.5681390688966613`*^9, 
   3.568139071232795*^9}}],

Cell[BoxData["0.8333333333333333`"], "Output",
 CellChangeTimes->{{3.564274740722907*^9, 3.564274767446435*^9}, 
   3.5642748028234587`*^9, 3.5642749163049498`*^9, {3.564274948295779*^9, 
   3.56427496316963*^9}, {3.564275021932991*^9, 3.564275051166663*^9}, 
   3.56427508485859*^9, 3.564275139445712*^9, 3.564275235108184*^9, 
   3.564275273076356*^9, 3.5642753067792835`*^9, 3.564275350135763*^9, {
   3.5642755243997307`*^9, 3.5642755441498604`*^9}, 3.56427575096869*^9, 
   3.564278420393372*^9, 3.5642784673480577`*^9, 3.5642786153265214`*^9, 
   3.5642786640853105`*^9, {3.564278835838134*^9, 3.564278852500087*^9}, 
   3.5649575786322203`*^9, 3.56495779176241*^9, 3.56495783214172*^9, 
   3.564958181733715*^9, 3.56495824912757*^9, {3.5649582932170916`*^9, 
   3.564958312814213*^9}, {3.564958366562287*^9, 3.5649584302139273`*^9}, 
   3.5649584611786985`*^9, 3.564958491854453*^9, 3.5649585231852455`*^9, 
   3.567977935140338*^9, {3.567977983403098*^9, 3.567978019907186*^9}, 
   3.5679780504989357`*^9, {3.5681387146864014`*^9, 3.568138736321639*^9}, {
   3.568138769472535*^9, 3.568138987177987*^9}, 3.568139080554328*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwV03k41AsXB/BR1kpJG6IsJVxNRJTonOwhe/zS1WIdaWHwJiZZSspOm5Tl
pqwXkUqFtFBukcntdlGRMTOWmZ8lxpo77x/nOc/3v/M55zkqXqedfRdRKJQY
Yf2/q6bO383Z0LhH/+vxCD29PrCpk7Bn+y+AL/OObd9sP3yQNpAS9ZTB0+l5
dIMUDpimWrwodJDDJbVmKY4pXPDdNiOtK62MjWtD5MoODMB+Td/RtVabcG9n
05k8qUGo6jgX9m6nBhYySbXYm4OwW1arQvS8Nv5dExk3rzQE/rMZd+4ROhig
6zqUkToEp5s4ehX7t2NRj/OqquEhuOIhvnn+hD56up+iiFgOg3dzpJ8uzQDj
nc6+V0wbhkYJeafAgztReyjGyqN9GHRXRl8fCDXCIarE0C8ZHhwdN9G2P2GM
Puoau9MteZCf80ZRkLwHF9MMt6pE8qA6xaiL6YxIX7nDuKuYB6FPTRzv2O3F
ySd1ptntPGhouTd2+ZApWiwdeC0+zYMAq111AYQZdnucj3ymwIfbRbo1gcfN
cbKhsmGvMR/Sx+tigs5Y4AORqTehHnxgl4T9j0a3xJarCUEhoXx4bZlxMzbW
Cg8femAZlcIHEYfOH6nR1ijXZ3ZkroAPlL2PRPLO7sP1Fn1yjFo+JKwT7Gde
ssF/tmo9V2vlQ5CH90tBnC3OSk8ylvfwoTdG3weu2aHi1cmsjWN8WJ2Z1Xk5
fz+KJZA12YtIuC+jdbY52x5nOOPWEzIkNNI3WmwpdcCKdeb15zaSkKOcp2ji
6oi/9V4s0tImoY4xQ6F9dETtjVYaTEMSVGwl5tTcnbB52OlDiRkJD9s0E//t
cMJ8iXotcXsSkpp+6Sh7OqPAUIaRRJCQGTJw/Gi3M8p4hdFfHSOBsWbDCtWD
Lrg9sPKo2XESijXFWkJ7XDDN0WUpj06C+E8R+cbDrshsfC4ZH0FCoc6DqByO
K8oqVCqZxZKg6VViP3/yALrJnsn3uUxC177aqgNDB9Cnu3GmMJUE5t2IrRDi
hjfm7q+Qvk7CVLWTseqYGzpnfbEtyyZh4Qm9Jv6UO14YbOT35JFgq2NpwZhw
x0See6r+fRKaPbcFBIYQuKc4PplVQkJ5ZZBgYYHAKUpHPbOChJb0rmCuv3Av
v6hv27pYoDz/+Pa8gSROb7ARcfzGhoTWOtYBt9X4juo+LrWOC+ICRb7oDkX8
aiLC+jjJhYNlFQtqWqro4100fat6AIwkHCtragnMkHxwyfdPEt4ZxdUO+3+H
j6fFdZqUWPCD9/VY+MRizF8tds8hjA1a/OnJsoOy+FeOnK/x3xzYZKbr7maq
gNVd9SLcV1z4zuuIL1mvgkaqr6RqLg5AdFVDUtp1ApWyq5K3lJEg9yrCjJcs
gM982O4d3g+eyzL+iQ1fhpHOXyRnjTjw81DPp85uAiOu89Jyykl4m8S0nvBv
g4/fLnl9Le8Dc3bQ65oOEZQTA3+BERvm5tdFE4dWoru5U3JwFQf0Ap4tXbCW
x1BZC88zxVz4I8W/5eRVZdwZ2PVNcHIANiUIZuYvEPhKrLYivpSEXxb69SN5
42CdoXixems/1ItuNnrhvgQtkfV9VpoDN3TlTK3/IvBRm0zxIuE8N27Y+5PJ
HMinvrXPimFBzITNgtFacTTed5WRWcoGp/gi35N8An06fu7dJbxXk06wvzit
AQrDiuzq6H0Q6vU0zPU1BV0KpekyimxgiRWaU7tlULG/N+hCHgeMGBQ/l/dy
uJnhHDqbzQXR7zon2hyVsbxaoMc6NgCT9FVV+gwCNzU4Ne8Qzk+XSI+kl4zC
ET89pVqxfiCjTw0dtpJC9SZLj5hJNtAU9aejXhJYpPYcHgrvG6Ug+WMsrw9G
ppY2TDuyoCr4auW/YmJot5n3ZDCNDarBrxUL+gmUXaEiMyz0RmcnlRsICDx2
rV49XuhpDC8v0KBVQIzh0yMBLn2QpHykVc2YglIi3gablrHhy2W+etZtGdTV
9vwRcIMD9WJqmfPJcuigmT3z2zUu6F9aY0LZpoxXejoa3x8agMO0fOmPZwiU
F8vRlxZ6tGngoVcxAi9v+aaJjrJAElaZUxsk8VFZuG30IBvaV750VagnkFef
wUsSeka7fHJDS3qhs3NncI0hC1q27ZIqPieKMWOVN43j2JDo5xwOvQRuKNjp
8Ubo4aYpLGGOERh1a6LuiNCz7v4v5+xZAgcjPBhlwvxYUnPjSVounChSUg80
6wPdBa+JtSMLYFY6n7hclA1MW9mbrQwZTBQZdfqUwYFom4fFzFNy2LZYvKkh
nQt2XZfuyW1QRomBF9fqiAGQ9aY9uxNG4LLo3L4p4T8n3Lz+LlN3BFoPE1ER
bBaszvEdWRMpiSPFcxqnWGyIX3Z5EfcZgU5Z8iZnhb5S41VROyp6oJkJqZ+0
WPA5JbEmbZco2oa6bLBnsAGPyatLfyeQokSZeiD03U7sfZw7QqBB9++xdkLP
+7w3lIBpAkPOj7pkCbNXqeG9D/MExn2byW0Q5t+zq54kUrfjVq0LcVz2EPjZ
8OLaLXaj2Zfl+4228ODJXGZhItUUw8bPf44Y44GJq24y9akl7nnoOecUyYeX
pa30dgtbHNNbSt7t4oPV4hNEaLsDyj/q9qCpkOD3p2huItUZh89zroy7kqBx
8NNKz1BXvL0+mVkfScKg6B8XqE/dcOHdp/u6WSQUfCE7E6mqWNCY5mL/cAD+
A2t56VI=
   "], {{{}, {}, 
     {RGBColor[0, 0, 1], 
      LineBox[{1, 105, 91, 78, 66, 57, 114, 100, 87, 75, 51, 111, 97, 84, 72, 
       63, 2, 106, 92, 79, 67, 58, 115, 101, 88, 76, 52, 112, 98, 85, 73, 64, 
       3, 107, 93, 80, 68, 59, 53, 4, 108, 94, 81, 69, 60, 54, 5, 109, 95, 82,
        70, 61, 55, 129, 6, 7, 8, 9, 120, 10, 11, 12, 13, 14, 121, 15, 16, 17,
        18, 122, 19, 20, 21, 22, 23, 123, 24, 25, 26, 27, 124, 28, 29, 30, 31,
        32, 125, 33, 34, 35, 36, 126, 37, 38, 39, 40, 41, 127, 42, 43, 44, 45,
        128, 46, 47, 48, 49, 110, 96, 83, 71, 62, 56, 113, 99, 86, 74, 65, 
       116, 102, 89, 77, 117, 103, 90, 118, 104, 119, 50}]}}, {
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], 
      PointBox[{120, 121, 122, 123, 124, 125, 126, 127, 128, 129}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"S\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.6},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.564274740722907*^9, 3.564274767446435*^9}, 
   3.5642748028234587`*^9, 3.5642749163049498`*^9, {3.564274948295779*^9, 
   3.56427496316963*^9}, {3.564275021932991*^9, 3.564275051166663*^9}, 
   3.56427508485859*^9, 3.564275139445712*^9, 3.564275235108184*^9, 
   3.564275273076356*^9, 3.5642753067792835`*^9, 3.564275350135763*^9, {
   3.5642755243997307`*^9, 3.5642755441498604`*^9}, 3.56427575096869*^9, 
   3.564278420393372*^9, 3.5642784673480577`*^9, 3.5642786153265214`*^9, 
   3.5642786640853105`*^9, {3.564278835838134*^9, 3.564278852500087*^9}, 
   3.5649575786322203`*^9, 3.56495779176241*^9, 3.56495783214172*^9, 
   3.564958181733715*^9, 3.56495824912757*^9, {3.5649582932170916`*^9, 
   3.564958312814213*^9}, {3.564958366562287*^9, 3.5649584302139273`*^9}, 
   3.5649584611786985`*^9, 3.564958491854453*^9, 3.5649585231852455`*^9, 
   3.567977935140338*^9, {3.567977983403098*^9, 3.567978019907186*^9}, 
   3.5679780504989357`*^9, {3.5681387146864014`*^9, 3.568138736321639*^9}, {
   3.568138769472535*^9, 3.568138987177987*^9}, 3.568139080576329*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVk/k/lAsfQIeElMoa5dZYUmTNFtH3S0SUkPRQubeEZ4isFVnGPkKJKHsK
ZbKMYRKuZKlwZQ+XSipbi1SkBfPe94fzOf/AObKnztq58lIoFNZ//N9yV5Zu
525u3LMv/labplYfWNYLWE+4c4E5MFKZ09gAz4R1V/GdWI9X22KfE2crweSK
2aM7h6TQMJOzK7WpHFzVfwlrClNxz/sEgzSzEjio5PpF0lwB39SuyRG5Vgzs
/tDAtl3bMdLcZ3g56A7sFlUu5wtXwVy8dFA6qBDcf6fkFBIayBv3YK99zW04
+2RSq/zgTuzS8Ej+ZnwLLjnxb106o42h4fTwn703weXpRTdNUhd5Yn6srjfI
g0YBaVtPx12o3ULobRXNAU0Revp0gAGKVZszAmcz4a9vRirWZwwxKb3MXZ6a
Afm5j2UWkvbg7WyT3Tr216HyssFIrx3iW2q1UnN1GgTUGtnkHDBG1w/96hYO
16ChvfBr/DETfCora+QynwI0c/16GrEXP7htU+l6fBWy72pyPD1MsVkofXln
ejJc/VYf4XPeDHfXKHin8V+BCWbgOdJvHxa8Yn3T2ZEELftSbkRGmqP6hF7R
8oEE4Dk0/OYK3QLH2+Mm3MvigWJ8n+dm0H4Mv8o7cFCLAYwNCwd74yyx0mlM
+Y+qWPBxcmlaiLJCBs2hqd4tBsYitE9D2gH8smpwgSkRDeKpGcPx+Qfxj5Jq
WeuxSCharxz0NMsapx4b55v2R0Cj3xazbfcO4fFFvgN6zXTIpd6UMbK3wayJ
a+93FIdDfcgvCtltgzUzUZzUL6EgayWwKH/UFl//Lmv9qRkCVV1KCf/222Js
maE4HzMYEp8sa1BP2GHUe1rExk1BkOo/7fHXCzsU2Oj41qn+PIRIbF4n53gY
Tz6cmDoSfA6KlVa2B7w+jPdfUg5VaQQC/xyPdKOzPVqWxeSarQuAOxoVYbmT
9tiXdOn11ik/UDrFtF7yOoJGp8ms6UFfGNlfwz7y4QhOG389mjblA723g1XB
3wG5i4vhlKmz8KPS1lDuqwPSVzAW0/S9gfvAjxPrfRR99trl1jPPgJXGPrOQ
+aOYffLSwCFRT3h6Qp3m6U/gx9X/mhUyaVDG8lngcgnUK7RibNEgof3qiO+U
+2dgmGfmnfF8CtSl6uwlXUE8kSN+ZVdaNTA6698dcRDHoNKGrc57K4B/QWaG
T0cGVUUqj63qKQXHknKuvLIcRq9venJviAmUcF+tWVBExUai90XoXTAQsGFx
aghcZy8f6feehDaDqJqP7qPg9CJZqzX/Gbz59PLkhfkVGJBkYVc0VwvKMz+/
lziKIrvkalGkLhsU9moedTDZiDJ8FW/7H5TB6Kf+WOYmWZzSbXEeYtwDRXvP
lKi9W7E/J5PhwV8MdHZDYnI6gc8Elfo69tNAqjl476ekBTBPb7H2XNEMJ9ak
DEZeWINT5gfdVqhxYLwsonfZThJ9jeOapSNYMMUUjKncthknbY8JifOWwtyx
133DLwjUZbrLJyeS0JrYazHv3gV/LkrqP+/pBtMJnxZOPw9a2v4Y11Goh8Wl
DXTimAgK009n3mhlgxatbjXXQhql+qLyH+0qh1uX3du9rlGxMutOsff4Pajd
M2V88LECyg13WSUfKAYFxsKvpWgC5SdlxgWDabBspv1w9uY3uLg5njQXeAwP
+bYaPDoqhOTdzyctLe7D/Yd5x5j2EvhCTthS8SULFrpT9I+r/YFyFuXXJ91K
4bqmlInFPwQqvnOrtqsj4fp1a/fPSZP/dexyx9qkHSLmLbkGkvyoNS8Ulr+l
BhxfjXjxEGJIpCa/qOJUgCY2tk4H/wYU5m+ztGmERTFugFnGWmx4fF8y2KgK
xPNc9h+23YC/LocV3FBlgW3sXVevGQJDHG0oys4kPNHwdecnG0DCckiPNt8D
AadqA+1bKNhMtZ3uc3kI71beMVV7sR61rxjkb5OuBIMQitvhDimExU0ih0PK
gW9U40yXDRX/rE4UFJQoAb6qIumdsQrYL2strOBTDN/9xNjaIQSOkRSuZQoN
/ASuXvRjfgFpDaq/ocoT+Ez3/uBsvgpVuTfiOibvQ94TNSr9uThKvnE7N7q2
ApbfDqayKmTwuY/hb+OsUiBltH+GNRF4lZo8PdBLQthGwTdfb76Fcc93nwNG
/wG27zXWvytXIlexZeM7bg2YTHjsHBwSxR+H90vJz1VAAc/mWM/on6BwXVXl
FrUJVJItFN8xhPHt9fb6lRVVsFj0VVipVxL/zN6e7uzAAjnfFpmCcQLDHWWS
bQNJSMfvZd+SBmE8Zox7K7ELxDy2iW0Y50XtuJrKJW4diH1n1EUOi+A/rRYP
doayISF6kHL2+jwUllhIOP5qhsuMEYYsuRorpqsqPDkcoGcllukuEJhG2X9M
2pyExgtlBdvJcngbljf9JrkXEql/dsobUtBUzXVdy9oGGIqfUczIXo/5WSMF
UXsr4eFK+dSlJCmMOVrElM4rB+04CSOKOhW3RwTxqauWwN2ZmJgCNwX0rf9B
WxdZDM5kvnD3eQKjtwpsCsylgQoJTlrls+D1gkeMbH0CgiBmqtYgiCylE/os
w2q4ZnmO90OaONoMnJJt2l4BkV6/Hjn5y+Cq5Q7d75xS6BFpst/4kMC+bvrT
/FckfBk5nRfAHAOjFTqPWuo6oF1df1VxKB+Ot9zmXDtfC7oebHGTDFF87r+h
s1OcDc6nOk6rxP+AN9ZW53OvNIGp9aewSoowyq9f02Q+UwWzygazqSmSyPjQ
9CHYkwUJbnYXYIxAZa8nC5/oJIQ2lyst3OyD6BrOjOb+blDZ3uE5cZwXLU4n
yg5e/hsEg7tzPmWKYPy2ta/Mb7HBdDxmVD17DgZnQ6dnQ1ugaB99bHZUCFW1
DWqdljgwlbxRqPcrgY+auD25diRsKFq2y/pNYFe9eEbGbhKqBZW2eJF5UFb0
fsOOsV7Q5J6al5zlQuHzL66q7g3QayV6ozNkPcYe81kwcqwEumVVca+3FH6s
WHWjgVUOB0biCqU2U/HkHmsxJ/0S+JUQWPfSQQHLfoblCycUg6gLWZcTSODn
luPeiQU0YNxIb0vVnAVvZxs3IemnIJ7rOitxURC3FOwYCCGr4fKaTH/qOXH8
ktZ54YdOBZiyEwbV7WXw/p4Yln9zKcSuieedqiOw/pQQLf4dCfcMxcJ0yl//
9zuFFq/6DAYuJ3CS9fkwQkta3YtTCxoqAzHng0RRRULxe+xWNtSlyPcnrv4B
H/W2u0+2NoFNKezI+nsNJtyNONwvzIH3H0+cbPOTxD5H0Sr9cyzAk9KKwqME
alRM2D+MJWE2es3kBWYPZNvP73qa2A274jZLdUrxIns5ZIY19DfwGs6tlb8o
gl1ORq/MOWzIl3hpnbx5DqaXMsxeN7YAu7A3aShLCH0yBrln5e5DdsJYdd4s
gfrOK9guBAkdNx9TaD8JvMHX3UwYk3Dqnl7hsyUCU4yrhkd0SDiexX6QoLYT
2wt0Os0db4Gb5aeoHrPdqNd2KK1FPRMeLKbeSVAzwXLlxfPL6qlgZK+ZpFa7
D7MOqzwQKU2Epnudfj1mVti83s1j+kEMmK84QwT0HMJ6z9g5uTw6uJXy5SWo
2aGi2qZrAbeDYLtjn8iJAHs8fWlopuS1P7znuxWtVuuAPeUl7ScXvKFg6PNw
gpocRv5FX+YfYML/AFUHH/4=
   "], {{{}, {}, 
     {RGBColor[1, 0.5, 0], 
      LineBox[{1, 140, 114, 89, 70, 159, 133, 108, 58, 152, 126, 101, 82, 51, 
       147, 121, 96, 77, 162, 136, 111, 65, 155, 129, 104, 85, 2, 141, 115, 
       90, 71, 160, 134, 109, 59, 153, 127, 102, 83, 52, 148, 122, 97, 78, 
       163, 137, 112, 66, 156, 130, 105, 86, 3, 142, 116, 91, 72, 161, 135, 
       110, 60, 154, 128, 103, 84, 53, 149, 123, 98, 79, 67, 157, 131, 106, 
       87, 4, 143, 117, 92, 73, 61, 54, 150, 124, 99, 80, 68, 5, 144, 118, 93,
        74, 62, 55, 176, 6, 145, 119, 94, 75, 63, 56, 7, 8, 9, 167, 10, 11, 
       12, 13, 14, 168, 15, 16, 17, 18, 169, 19, 20, 21, 22, 23, 170, 24, 25, 
       26, 27, 171, 28, 29, 30, 31, 32, 172, 33, 34, 35, 36, 173, 37, 38, 39, 
       40, 41, 174, 42, 43, 44, 45, 175, 46, 47, 48, 49, 146, 120, 95, 76, 64,
        57, 151, 125, 100, 81, 69, 158, 132, 107, 88, 164, 138, 113, 165, 139,
        166, 50}]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0.33333333333333337`, 0], 
      PointBox[{167, 168, 169, 170, 171, 172, 173, 174, 175, 176}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"E\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.564274740722907*^9, 3.564274767446435*^9}, 
   3.5642748028234587`*^9, 3.5642749163049498`*^9, {3.564274948295779*^9, 
   3.56427496316963*^9}, {3.564275021932991*^9, 3.564275051166663*^9}, 
   3.56427508485859*^9, 3.564275139445712*^9, 3.564275235108184*^9, 
   3.564275273076356*^9, 3.5642753067792835`*^9, 3.564275350135763*^9, {
   3.5642755243997307`*^9, 3.5642755441498604`*^9}, 3.56427575096869*^9, 
   3.564278420393372*^9, 3.5642784673480577`*^9, 3.5642786153265214`*^9, 
   3.5642786640853105`*^9, {3.564278835838134*^9, 3.564278852500087*^9}, 
   3.5649575786322203`*^9, 3.56495779176241*^9, 3.56495783214172*^9, 
   3.564958181733715*^9, 3.56495824912757*^9, {3.5649582932170916`*^9, 
   3.564958312814213*^9}, {3.564958366562287*^9, 3.5649584302139273`*^9}, 
   3.5649584611786985`*^9, 3.564958491854453*^9, 3.5649585231852455`*^9, 
   3.567977935140338*^9, {3.567977983403098*^9, 3.567978019907186*^9}, 
   3.5679780504989357`*^9, {3.5681387146864014`*^9, 3.568138736321639*^9}, {
   3.568138769472535*^9, 3.568138987177987*^9}, 3.5681390805983305`*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVlGk41QsXxY3nGEukVBIy5xpKbqS7N5mSKaRDlAgnIkTCISFDxriRDJGp
EDJkdsznnzSQW0olXkNxZciUIa/7YT/7y/qwnt9azxKzv2LmyMLExFS8ef99
8fj1nEyRlr/0ZkVIGam1YNBINh5z3gCpF/eXchQJeMmryslmy4cRp+u6/LYS
oBWv01xgIoSGVW3LQu86wFFxhVeZVxRdChNMJlLawEjWcXaHngTqU7Nr/bxb
oLwv0Of5ERkk6Z24Oh1Eh6P8cqVsN+Rxi7LtsQjzBnBeTczIoyjhAeWQ0Kb8
WrjSOX6o1OggGg0fyvDxq4bb1iTJ9csqaMX+UiPAqQocGAFOylRVjDP708ql
rAJayLtOuVodwRSf3ddylcpBeVtw8ndvdfx8v1Jnsr4M7H4ekze+rIEexvmp
H0mlkJ3ZIbwU+xeGK3+L680phoo49YFeM8QAytsCl/BC8K47ZpphqIlMq2oN
0vWPgN6VNxd1VgtH677wD8/nwyU9tcZLlOP4MnPxqZ1nHqQ/Uq5yddFGXH10
q2smB+78bLzp4auDRc8WtbekPISxQp9rVC9dpAfc9l91y4Z23cR7ISF6mGRq
MzmgnQXMJh+H44P10acaJDAqE5g0nzFn+Z3AdwLJy/88S4fInUtGvREG+Cbl
xKjf0H3wsHZoXQo9iVPcAsE9BqkwdFPlItw1xBtLmjp/Pk2B7UmpH6OyjVBJ
9pDy8NFkyOeT82OkGWPT3uEElaW/ocVrn450kQm+jva/U1ySBJmiWcLHLEyR
npU5fz4hERppK0zUN6b4QqSe0zLqDoidJK/tP3MKDz5K/p90UAJUvpaN/tB3
ChObz+telY2HmM7fSqK2ZviO51i9uUksJF397mL3yQx//ViZ8SmLBpqgyFZx
K3NU6fMcXFO+DY9l2bu8v5rj2uUiVofiSCDNM+9qOWeBoZUxzAOWEVCg9DQo
c9wC21QqcyRXb4GsfaHxuttp9D4S0TdcFwYDJ2rLT0+eRvHO+Jxn2aHQm+P/
B1y1xMNpmov1ISGwXHFKQ3zOEonC6tsR4Tdho8arKtz9DEq+mhnfnhEMJ5V0
dWgLZ7CYs52aYHMDGLaKl1yvUlB2oCnVqSYQSso8ljY2KHjt6YeehN8B0HVn
wPOb8zRENz4GC8kOEF2vTl9X5UDfw0YV+xsIiHzVOHLacjvKuLftk2VhgDrZ
tKyqloIsvC5jLP00eK4eWvuv8yC4XzzNs2+8BYanPl+4vsCKr5wYWu5lBMj9
+LVYbMWPUSUWQi/jGRBcTo9JSKbg0am9jWZ6gSDU5n98KnYJ3EqOfiPvYYAt
T+L7kOs8KM9/XZY/kID5s1/ffvxEQfpUsO8VFxoQMb36C86vYZeQI7lZkw7a
Yx7tVX3MyNVG9iCHELC2vjOYcnYbPi6JDJzqYYBE5NLKehgF+Yp+lOXcCITf
OipNM1k/4eo9ttAJzU5oYpNUbz7DhXQ5X5PJHAJSlIW09F9QUKxiZA9LNg1S
Uoydp2PHYb4nYK9hdRvcXDDYUN9BwlC7x8ZDLQQoYwvx3X8V2hZ80qwbGLAm
sOGtk7oF01UaYxsMCDgV/sjR7QcF92S7sRuo0KBTydOZRKVDhNzZeo+/G8Db
vs7Hop0JL/SKHu+zJWCEvUBb4RMfskkMuFrPMmDRS6BchUbBWLWs94tpgeBF
vhPgVTgL11T5hQYbOmA62H3ynB4nfnIWMt9eTgBVWOVXUCsFGXuknng30CBo
N8fwXNb/wLlsUiD3UyuUe/5d9oGdHc+d+b7FYTPfXGaRcNewXzBrW2vI5sUA
+QR9qZFIXhTROxom50iAuGe7cO4oBQUMXKRNTGiQjIslP2Pfww1Cc0WirxkE
XKQFdo6yoBHb4gPNDAKiw94zXUlZgCxnzg+izzohLnIgUozKjS3OGt7CiQSU
bb/776T/JNisadb7+rWDqR+zcboUGeUEpu6mbPJsCrrITfVch3vX1EIPr272
JS2mRHWJgg6v+X6e30WDlusluTLUUqDpl52VFauHGNHzr/ZrMCFxsUWEV5+A
/qgfUqnpfOh3c29uMhMB56jZvG98KVj91W//gcJAkKeC9aHSGbhb41x062oH
cICAtgKdA61r3Kvyqwno2dZqsbuJgrvFvpod6aLB7MDFB96FQ+B8Z9zf0bEV
uhTVOB8HsmGyuYvW8U39Ofvui/JRy2AW7qqroM8AbeOpoAomXtQY8Tzs7bnJ
w8nsOgxR8Gxd1/iADQ0C20pll7Lewo2wrrL6v5pBXqbbdcyGBYPHWfQqEwjQ
Hr01qJg+Dyp5H7aRgzohXzd4aGaQC6UVC/090wiQeDf72C3sO/TPuqLRnnag
/pmf75pJwm75HXMurQRcH+SfkLm2BnWLy4ekPjPgW8Jurt45CiYMHkzvkaKB
Ta7g3luGzFg/qvdeeNNfTf5w+tO8OfD4Yrc3lbkT3rU+T4x/zYm6t5/UBhQR
wGVVJOGZMgokmxeW8kZtcL9i+gxXHDv649GGUToBE1lXCgpvrMABkulE2T0G
rBSF1Om5sSI9k7XgRQEBR+ptFrpLyDgQoD7ht6lnE3kmX3D5N6jJ32Uv3EHA
zvzfZmmrFDwgf4S0wE2Dag7ZfW7UBzAnRr2ycr4OlDfsF3bMbIAilW+vogYB
vSf5772i8aFod2iDAAcB/A7U+gwfCoakbPul9zQQIu8lP09SngEHKeMsbqMO
2J7pOCMYwIHq4UszHHUEhPNEsXyrp+BPyZIm4R4aFGkIBB0u/QofXJisZaRb
4V1cdFWCGhuK35Wc5qskoD5xf18M9zIIto6UkA8ywPQJHEhr4MHffNrnrXwJ
wAu7pHgHKXhBOuifXAcazITxjF8v7IGYXYZv24focCRCROiVEAvWxEok50QR
kC342ThBZB72tx1Xotl1Qnleb2x/GhcKHWQq7npAwBfVrEiFqG8geVzlO/dE
G3gnL5uZW5Mw6WE0t/lmvn1bXayillehNoDOsfslA9Kjh6ofzFBw5HDCcswf
NKCyUp9f5mBG/k73U53OBAi+V+Phl5kDvQHViO7BDhgWEwbfaE58Uj04Nl5C
QHutFevB9BEYPf9xrlawDfL5tdjmTrCjicyXNMsmAvR6Ondws6zA63uJdo23
GEDi/sdJUZYVLbmSDTsebvZ1d2l2pQsZJyvpU2XNBFww5k0nT6/DW1M6SZOT
gO6sDqZLvyjork3Je8xPg+AWHnGNYCbUjN+arWW+udeDzSm6rJy483eC8sYm
76Y3YzYtLWz4YueY/n95iT73o//OYsEnGZ9EjqUQYNNvvhI6TMI4Z7XCA5s8
4iwyisR72TH0OWmHwOZ+/DBU2mL3lBVXzDaUKMUEyNtwnRidIyMpZaxtvpEA
+6I/816uU5AzU1VQi50Guf3TH6MVxHG+u8lsKbQVbNLKa6IVDqL0p7a1nenV
4GQwFdqjcxQTTx720lAvg5q1pIJoBS10q2CxMccCOGahHKtQp4uaBbu60/Zl
Q2vRK68enZPo5ud0ibc0FfRYL1O8e0ywnyQl5xCaBE5P2B5EK5jhGzf+NfvZ
WJCxervN1tsC/31rODq/LwIm2B6GKdRZYoyFfX/jwk34P9YsCpI=
   "], {{{}, {}, 
     {RGBColor[1, 0, 0], 
      LineBox[{1, 124, 94, 74, 62, 136, 106, 86, 55, 131, 101, 81, 147, 117, 
       69, 140, 110, 90, 51, 128, 98, 78, 145, 115, 66, 138, 108, 88, 59, 133,
        103, 83, 149, 119, 71, 142, 112, 92, 152, 122, 2, 125, 95, 154, 75, 
       144, 114, 63, 137, 107, 157, 87, 150, 120, 160, 56, 132, 102, 156, 82, 
       148, 118, 159, 70, 141, 111, 158, 91, 151, 121, 161, 52, 129, 99, 155, 
       79, 146, 116, 67, 139, 109, 89, 60, 134, 104, 84, 72, 3, 126, 96, 76, 
       64, 57, 53, 4, 5, 163, 6, 7, 8, 9, 164, 10, 11, 12, 13, 14, 165, 15, 
       16, 17, 18, 166, 19, 20, 21, 22, 23, 167, 24, 25, 26, 27, 168, 28, 29, 
       30, 31, 32, 169, 33, 34, 35, 36, 170, 37, 38, 39, 40, 41, 171, 42, 43, 
       44, 45, 172, 46, 47, 48, 49, 127, 97, 77, 65, 58, 54, 130, 100, 80, 68,
        61, 135, 105, 85, 73, 143, 113, 93, 153, 123, 162, 50}]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], 
      PointBox[{163, 164, 165, 166, 167, 168, 169, 170, 171, 172}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"I\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.01},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.564274740722907*^9, 3.564274767446435*^9}, 
   3.5642748028234587`*^9, 3.5642749163049498`*^9, {3.564274948295779*^9, 
   3.56427496316963*^9}, {3.564275021932991*^9, 3.564275051166663*^9}, 
   3.56427508485859*^9, 3.564275139445712*^9, 3.564275235108184*^9, 
   3.564275273076356*^9, 3.5642753067792835`*^9, 3.564275350135763*^9, {
   3.5642755243997307`*^9, 3.5642755441498604`*^9}, 3.56427575096869*^9, 
   3.564278420393372*^9, 3.5642784673480577`*^9, 3.5642786153265214`*^9, 
   3.5642786640853105`*^9, {3.564278835838134*^9, 3.564278852500087*^9}, 
   3.5649575786322203`*^9, 3.56495779176241*^9, 3.56495783214172*^9, 
   3.564958181733715*^9, 3.56495824912757*^9, {3.5649582932170916`*^9, 
   3.564958312814213*^9}, {3.564958366562287*^9, 3.5649584302139273`*^9}, 
   3.5649584611786985`*^9, 3.564958491854453*^9, 3.5649585231852455`*^9, 
   3.567977935140338*^9, {3.567977983403098*^9, 3.567978019907186*^9}, 
   3.5679780504989357`*^9, {3.5681387146864014`*^9, 3.568138736321639*^9}, {
   3.568138769472535*^9, 3.568138987177987*^9}, 3.5681390806193314`*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwV03k41AsXB/BR1kpJG6IsJVxNRJTonOwhe/zS1WIdaWHwJiZZSspOm5Tl
pqwXkUqFtFBukcntdlGRMTOWmZ8lxpo77x/nOc/3v/M55zkqXqedfRdRKJQY
Yf2/q6bO383Z0LhH/+vxCD29PrCpk7Bn+y+AL/OObd9sP3yQNpAS9ZTB0+l5
dIMUDpimWrwodJDDJbVmKY4pXPDdNiOtK62MjWtD5MoODMB+Td/RtVabcG9n
05k8qUGo6jgX9m6nBhYySbXYm4OwW1arQvS8Nv5dExk3rzQE/rMZd+4ROhig
6zqUkToEp5s4ehX7t2NRj/OqquEhuOIhvnn+hD56up+iiFgOg3dzpJ8uzQDj
nc6+V0wbhkYJeafAgztReyjGyqN9GHRXRl8fCDXCIarE0C8ZHhwdN9G2P2GM
Puoau9MteZCf80ZRkLwHF9MMt6pE8qA6xaiL6YxIX7nDuKuYB6FPTRzv2O3F
ySd1ptntPGhouTd2+ZApWiwdeC0+zYMAq111AYQZdnucj3ymwIfbRbo1gcfN
cbKhsmGvMR/Sx+tigs5Y4AORqTehHnxgl4T9j0a3xJarCUEhoXx4bZlxMzbW
Cg8femAZlcIHEYfOH6nR1ijXZ3ZkroAPlL2PRPLO7sP1Fn1yjFo+JKwT7Gde
ssF/tmo9V2vlQ5CH90tBnC3OSk8ylvfwoTdG3weu2aHi1cmsjWN8WJ2Z1Xk5
fz+KJZA12YtIuC+jdbY52x5nOOPWEzIkNNI3WmwpdcCKdeb15zaSkKOcp2ji
6oi/9V4s0tImoY4xQ6F9dETtjVYaTEMSVGwl5tTcnbB52OlDiRkJD9s0E//t
cMJ8iXotcXsSkpp+6Sh7OqPAUIaRRJCQGTJw/Gi3M8p4hdFfHSOBsWbDCtWD
Lrg9sPKo2XESijXFWkJ7XDDN0WUpj06C+E8R+cbDrshsfC4ZH0FCoc6DqByO
K8oqVCqZxZKg6VViP3/yALrJnsn3uUxC177aqgNDB9Cnu3GmMJUE5t2IrRDi
hjfm7q+Qvk7CVLWTseqYGzpnfbEtyyZh4Qm9Jv6UO14YbOT35JFgq2NpwZhw
x0See6r+fRKaPbcFBIYQuKc4PplVQkJ5ZZBgYYHAKUpHPbOChJb0rmCuv3Av
v6hv27pYoDz/+Pa8gSROb7ARcfzGhoTWOtYBt9X4juo+LrWOC+ICRb7oDkX8
aiLC+jjJhYNlFQtqWqro4100fat6AIwkHCtragnMkHxwyfdPEt4ZxdUO+3+H
j6fFdZqUWPCD9/VY+MRizF8tds8hjA1a/OnJsoOy+FeOnK/x3xzYZKbr7maq
gNVd9SLcV1z4zuuIL1mvgkaqr6RqLg5AdFVDUtp1ApWyq5K3lJEg9yrCjJcs
gM982O4d3g+eyzL+iQ1fhpHOXyRnjTjw81DPp85uAiOu89Jyykl4m8S0nvBv
g4/fLnl9Le8Dc3bQ65oOEZQTA3+BERvm5tdFE4dWoru5U3JwFQf0Ap4tXbCW
x1BZC88zxVz4I8W/5eRVZdwZ2PVNcHIANiUIZuYvEPhKrLYivpSEXxb69SN5
42CdoXixems/1ItuNnrhvgQtkfV9VpoDN3TlTK3/IvBRm0zxIuE8N27Y+5PJ
HMinvrXPimFBzITNgtFacTTed5WRWcoGp/gi35N8An06fu7dJbxXk06wvzit
AQrDiuzq6H0Q6vU0zPU1BV0KpekyimxgiRWaU7tlULG/N+hCHgeMGBQ/l/dy
uJnhHDqbzQXR7zon2hyVsbxaoMc6NgCT9FVV+gwCNzU4Ne8Qzk+XSI+kl4zC
ET89pVqxfiCjTw0dtpJC9SZLj5hJNtAU9aejXhJYpPYcHgrvG6Ug+WMsrw9G
ppY2TDuyoCr4auW/YmJot5n3ZDCNDarBrxUL+gmUXaEiMyz0RmcnlRsICDx2
rV49XuhpDC8v0KBVQIzh0yMBLn2QpHykVc2YglIi3gablrHhy2W+etZtGdTV
9vwRcIMD9WJqmfPJcuigmT3z2zUu6F9aY0LZpoxXejoa3x8agMO0fOmPZwiU
F8vRlxZ6tGngoVcxAi9v+aaJjrJAElaZUxsk8VFZuG30IBvaV750VagnkFef
wUsSeka7fHJDS3qhs3NncI0hC1q27ZIqPieKMWOVN43j2JDo5xwOvQRuKNjp
8Ubo4aYpLGGOERh1a6LuiNCz7v4v5+xZAgcjPBhlwvxYUnPjSVounChSUg80
6wPdBa+JtSMLYFY6n7hclA1MW9mbrQwZTBQZdfqUwYFom4fFzFNy2LZYvKkh
nQt2XZfuyW1QRomBF9fqiAGQ9aY9uxNG4LLo3L4p4T8n3Lz+LlN3BFoPE1ER
bBaszvEdWRMpiSPFcxqnWGyIX3Z5EfcZgU5Z8iZnhb5S41VROyp6oJkJqZ+0
WPA5JbEmbZco2oa6bLBnsAGPyatLfyeQokSZeiD03U7sfZw7QqBB9++xdkLP
+7w3lIBpAkPOj7pkCbNXqeG9D/MExn2byW0Q5t+zq54kUrfjVq0LcVz2EPjZ
8OLaLXaj2Zfl+4228ODJXGZhItUUw8bPf44Y44GJq24y9akl7nnoOecUyYeX
pa30dgtbHNNbSt7t4oPV4hNEaLsDyj/q9qCpkOD3p2huItUZh89zroy7kqBx
8NNKz1BXvL0+mVkfScKg6B8XqE/dcOHdp/u6WSQUfCE7E6mqWNCY5mL/cAD+
A2t56VI=
       "], {{{}, {}, 
         {RGBColor[0, 0, 1], 
          LineBox[{1, 105, 91, 78, 66, 57, 114, 100, 87, 75, 51, 111, 97, 84, 
           72, 63, 2, 106, 92, 79, 67, 58, 115, 101, 88, 76, 52, 112, 98, 85, 
           73, 64, 3, 107, 93, 80, 68, 59, 53, 4, 108, 94, 81, 69, 60, 54, 5, 
           109, 95, 82, 70, 61, 55, 129, 6, 7, 8, 9, 120, 10, 11, 12, 13, 14, 
           121, 15, 16, 17, 18, 122, 19, 20, 21, 22, 23, 123, 24, 25, 26, 27, 
           124, 28, 29, 30, 31, 32, 125, 33, 34, 35, 36, 126, 37, 38, 39, 40, 
           41, 127, 42, 43, 44, 45, 128, 46, 47, 48, 49, 110, 96, 83, 71, 62, 
           56, 113, 99, 86, 74, 65, 116, 102, 89, 77, 117, 103, 90, 118, 104, 
           119, 50}]}}, {
         {RGBColor[0, 0, 
           NCache[
            Rational[2, 3], 0.6666666666666666]], 
          PointBox[{120, 121, 122, 123, 124, 125, 126, 127, 128, 
           129}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwVk/k/lAsfQIeElMoa5dZYUmTNFtH3S0SUkPRQubeEZ4isFVnGPkKJKHsK
ZbKMYRKuZKlwZQ+XSipbi1SkBfPe94fzOf/AObKnztq58lIoFNZ//N9yV5Zu
525u3LMv/labplYfWNYLWE+4c4E5MFKZ09gAz4R1V/GdWI9X22KfE2crweSK
2aM7h6TQMJOzK7WpHFzVfwlrClNxz/sEgzSzEjio5PpF0lwB39SuyRG5Vgzs
/tDAtl3bMdLcZ3g56A7sFlUu5wtXwVy8dFA6qBDcf6fkFBIayBv3YK99zW04
+2RSq/zgTuzS8Ej+ZnwLLjnxb106o42h4fTwn703weXpRTdNUhd5Yn6srjfI
g0YBaVtPx12o3ULobRXNAU0Revp0gAGKVZszAmcz4a9vRirWZwwxKb3MXZ6a
Afm5j2UWkvbg7WyT3Tr216HyssFIrx3iW2q1UnN1GgTUGtnkHDBG1w/96hYO
16ChvfBr/DETfCora+QynwI0c/16GrEXP7htU+l6fBWy72pyPD1MsVkofXln
ejJc/VYf4XPeDHfXKHin8V+BCWbgOdJvHxa8Yn3T2ZEELftSbkRGmqP6hF7R
8oEE4Dk0/OYK3QLH2+Mm3MvigWJ8n+dm0H4Mv8o7cFCLAYwNCwd74yyx0mlM
+Y+qWPBxcmlaiLJCBs2hqd4tBsYitE9D2gH8smpwgSkRDeKpGcPx+Qfxj5Jq
WeuxSCharxz0NMsapx4b55v2R0Cj3xazbfcO4fFFvgN6zXTIpd6UMbK3wayJ
a+93FIdDfcgvCtltgzUzUZzUL6EgayWwKH/UFl//Lmv9qRkCVV1KCf/222Js
maE4HzMYEp8sa1BP2GHUe1rExk1BkOo/7fHXCzsU2Oj41qn+PIRIbF4n53gY
Tz6cmDoSfA6KlVa2B7w+jPdfUg5VaQQC/xyPdKOzPVqWxeSarQuAOxoVYbmT
9tiXdOn11ik/UDrFtF7yOoJGp8ms6UFfGNlfwz7y4QhOG389mjblA723g1XB
3wG5i4vhlKmz8KPS1lDuqwPSVzAW0/S9gfvAjxPrfRR99trl1jPPgJXGPrOQ
+aOYffLSwCFRT3h6Qp3m6U/gx9X/mhUyaVDG8lngcgnUK7RibNEgof3qiO+U
+2dgmGfmnfF8CtSl6uwlXUE8kSN+ZVdaNTA6698dcRDHoNKGrc57K4B/QWaG
T0cGVUUqj63qKQXHknKuvLIcRq9venJviAmUcF+tWVBExUai90XoXTAQsGFx
aghcZy8f6feehDaDqJqP7qPg9CJZqzX/Gbz59PLkhfkVGJBkYVc0VwvKMz+/
lziKIrvkalGkLhsU9moedTDZiDJ8FW/7H5TB6Kf+WOYmWZzSbXEeYtwDRXvP
lKi9W7E/J5PhwV8MdHZDYnI6gc8Elfo69tNAqjl476ekBTBPb7H2XNEMJ9ak
DEZeWINT5gfdVqhxYLwsonfZThJ9jeOapSNYMMUUjKncthknbY8JifOWwtyx
133DLwjUZbrLJyeS0JrYazHv3gV/LkrqP+/pBtMJnxZOPw9a2v4Y11Goh8Wl
DXTimAgK009n3mhlgxatbjXXQhql+qLyH+0qh1uX3du9rlGxMutOsff4Pajd
M2V88LECyg13WSUfKAYFxsKvpWgC5SdlxgWDabBspv1w9uY3uLg5njQXeAwP
+bYaPDoqhOTdzyctLe7D/Yd5x5j2EvhCTthS8SULFrpT9I+r/YFyFuXXJ91K
4bqmlInFPwQqvnOrtqsj4fp1a/fPSZP/dexyx9qkHSLmLbkGkvyoNS8Ulr+l
BhxfjXjxEGJIpCa/qOJUgCY2tk4H/wYU5m+ztGmERTFugFnGWmx4fF8y2KgK
xPNc9h+23YC/LocV3FBlgW3sXVevGQJDHG0oys4kPNHwdecnG0DCckiPNt8D
AadqA+1bKNhMtZ3uc3kI71beMVV7sR61rxjkb5OuBIMQitvhDimExU0ih0PK
gW9U40yXDRX/rE4UFJQoAb6qIumdsQrYL2strOBTDN/9xNjaIQSOkRSuZQoN
/ASuXvRjfgFpDaq/ocoT+Ez3/uBsvgpVuTfiOibvQ94TNSr9uThKvnE7N7q2
ApbfDqayKmTwuY/hb+OsUiBltH+GNRF4lZo8PdBLQthGwTdfb76Fcc93nwNG
/wG27zXWvytXIlexZeM7bg2YTHjsHBwSxR+H90vJz1VAAc/mWM/on6BwXVXl
FrUJVJItFN8xhPHt9fb6lRVVsFj0VVipVxL/zN6e7uzAAjnfFpmCcQLDHWWS
bQNJSMfvZd+SBmE8Zox7K7ELxDy2iW0Y50XtuJrKJW4diH1n1EUOi+A/rRYP
doayISF6kHL2+jwUllhIOP5qhsuMEYYsuRorpqsqPDkcoGcllukuEJhG2X9M
2pyExgtlBdvJcngbljf9JrkXEql/dsobUtBUzXVdy9oGGIqfUczIXo/5WSMF
UXsr4eFK+dSlJCmMOVrElM4rB+04CSOKOhW3RwTxqauWwN2ZmJgCNwX0rf9B
WxdZDM5kvnD3eQKjtwpsCsylgQoJTlrls+D1gkeMbH0CgiBmqtYgiCylE/os
w2q4ZnmO90OaONoMnJJt2l4BkV6/Hjn5y+Cq5Q7d75xS6BFpst/4kMC+bvrT
/FckfBk5nRfAHAOjFTqPWuo6oF1df1VxKB+Ot9zmXDtfC7oebHGTDFF87r+h
s1OcDc6nOk6rxP+AN9ZW53OvNIGp9aewSoowyq9f02Q+UwWzygazqSmSyPjQ
9CHYkwUJbnYXYIxAZa8nC5/oJIQ2lyst3OyD6BrOjOb+blDZ3uE5cZwXLU4n
yg5e/hsEg7tzPmWKYPy2ta/Mb7HBdDxmVD17DgZnQ6dnQ1ugaB99bHZUCFW1
DWqdljgwlbxRqPcrgY+auD25diRsKFq2y/pNYFe9eEbGbhKqBZW2eJF5UFb0
fsOOsV7Q5J6al5zlQuHzL66q7g3QayV6ozNkPcYe81kwcqwEumVVca+3FH6s
WHWjgVUOB0biCqU2U/HkHmsxJ/0S+JUQWPfSQQHLfoblCycUg6gLWZcTSODn
luPeiQU0YNxIb0vVnAVvZxs3IemnIJ7rOitxURC3FOwYCCGr4fKaTH/qOXH8
ktZ54YdOBZiyEwbV7WXw/p4Yln9zKcSuieedqiOw/pQQLf4dCfcMxcJ0yl//
9zuFFq/6DAYuJ3CS9fkwQkta3YtTCxoqAzHng0RRRULxe+xWNtSlyPcnrv4B
H/W2u0+2NoFNKezI+nsNJtyNONwvzIH3H0+cbPOTxD5H0Sr9cyzAk9KKwqME
alRM2D+MJWE2es3kBWYPZNvP73qa2A274jZLdUrxIns5ZIY19DfwGs6tlb8o
gl1ORq/MOWzIl3hpnbx5DqaXMsxeN7YAu7A3aShLCH0yBrln5e5DdsJYdd4s
gfrOK9guBAkdNx9TaD8JvMHX3UwYk3Dqnl7hsyUCU4yrhkd0SDiexX6QoLYT
2wt0Os0db4Gb5aeoHrPdqNd2KK1FPRMeLKbeSVAzwXLlxfPL6qlgZK+ZpFa7
D7MOqzwQKU2Epnudfj1mVti83s1j+kEMmK84QwT0HMJ6z9g5uTw6uJXy5SWo
2aGi2qZrAbeDYLtjn8iJAHs8fWlopuS1P7znuxWtVuuAPeUl7ScXvKFg6PNw
gpocRv5FX+YfYML/AFUHH/4=
       "], {{{}, {}, 
         {RGBColor[1, 0.5, 0], 
          LineBox[{1, 140, 114, 89, 70, 159, 133, 108, 58, 152, 126, 101, 82, 
           51, 147, 121, 96, 77, 162, 136, 111, 65, 155, 129, 104, 85, 2, 141,
            115, 90, 71, 160, 134, 109, 59, 153, 127, 102, 83, 52, 148, 122, 
           97, 78, 163, 137, 112, 66, 156, 130, 105, 86, 3, 142, 116, 91, 72, 
           161, 135, 110, 60, 154, 128, 103, 84, 53, 149, 123, 98, 79, 67, 
           157, 131, 106, 87, 4, 143, 117, 92, 73, 61, 54, 150, 124, 99, 80, 
           68, 5, 144, 118, 93, 74, 62, 55, 176, 6, 145, 119, 94, 75, 63, 56, 
           7, 8, 9, 167, 10, 11, 12, 13, 14, 168, 15, 16, 17, 18, 169, 19, 20,
            21, 22, 23, 170, 24, 25, 26, 27, 171, 28, 29, 30, 31, 32, 172, 33,
            34, 35, 36, 173, 37, 38, 39, 40, 41, 174, 42, 43, 44, 45, 175, 46,
            47, 48, 49, 146, 120, 95, 76, 64, 57, 151, 125, 100, 81, 69, 158, 
           132, 107, 88, 164, 138, 113, 165, 139, 166, 50}]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0.33333333333333337`, 0], 
          PointBox[{167, 168, 169, 170, 171, 172, 173, 174, 175, 
           176}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwVlGk41QsXxY3nGEukVBIy5xpKbqS7N5mSKaRDlAgnIkTCISFDxriRDJGp
EDJkdsznnzSQW0olXkNxZciUIa/7YT/7y/qwnt9azxKzv2LmyMLExFS8ef99
8fj1nEyRlr/0ZkVIGam1YNBINh5z3gCpF/eXchQJeMmryslmy4cRp+u6/LYS
oBWv01xgIoSGVW3LQu86wFFxhVeZVxRdChNMJlLawEjWcXaHngTqU7Nr/bxb
oLwv0Of5ERkk6Z24Oh1Eh6P8cqVsN+Rxi7LtsQjzBnBeTczIoyjhAeWQ0Kb8
WrjSOX6o1OggGg0fyvDxq4bb1iTJ9csqaMX+UiPAqQocGAFOylRVjDP708ql
rAJayLtOuVodwRSf3ddylcpBeVtw8ndvdfx8v1Jnsr4M7H4ekze+rIEexvmp
H0mlkJ3ZIbwU+xeGK3+L680phoo49YFeM8QAytsCl/BC8K47ZpphqIlMq2oN
0vWPgN6VNxd1VgtH677wD8/nwyU9tcZLlOP4MnPxqZ1nHqQ/Uq5yddFGXH10
q2smB+78bLzp4auDRc8WtbekPISxQp9rVC9dpAfc9l91y4Z23cR7ISF6mGRq
MzmgnQXMJh+H44P10acaJDAqE5g0nzFn+Z3AdwLJy/88S4fInUtGvREG+Cbl
xKjf0H3wsHZoXQo9iVPcAsE9BqkwdFPlItw1xBtLmjp/Pk2B7UmpH6OyjVBJ
9pDy8NFkyOeT82OkGWPT3uEElaW/ocVrn450kQm+jva/U1ySBJmiWcLHLEyR
npU5fz4hERppK0zUN6b4QqSe0zLqDoidJK/tP3MKDz5K/p90UAJUvpaN/tB3
ChObz+telY2HmM7fSqK2ZviO51i9uUksJF397mL3yQx//ViZ8SmLBpqgyFZx
K3NU6fMcXFO+DY9l2bu8v5rj2uUiVofiSCDNM+9qOWeBoZUxzAOWEVCg9DQo
c9wC21QqcyRXb4GsfaHxuttp9D4S0TdcFwYDJ2rLT0+eRvHO+Jxn2aHQm+P/
B1y1xMNpmov1ISGwXHFKQ3zOEonC6tsR4Tdho8arKtz9DEq+mhnfnhEMJ5V0
dWgLZ7CYs52aYHMDGLaKl1yvUlB2oCnVqSYQSso8ljY2KHjt6YeehN8B0HVn
wPOb8zRENz4GC8kOEF2vTl9X5UDfw0YV+xsIiHzVOHLacjvKuLftk2VhgDrZ
tKyqloIsvC5jLP00eK4eWvuv8yC4XzzNs2+8BYanPl+4vsCKr5wYWu5lBMj9
+LVYbMWPUSUWQi/jGRBcTo9JSKbg0am9jWZ6gSDU5n98KnYJ3EqOfiPvYYAt
T+L7kOs8KM9/XZY/kID5s1/ffvxEQfpUsO8VFxoQMb36C86vYZeQI7lZkw7a
Yx7tVX3MyNVG9iCHELC2vjOYcnYbPi6JDJzqYYBE5NLKehgF+Yp+lOXcCITf
OipNM1k/4eo9ttAJzU5oYpNUbz7DhXQ5X5PJHAJSlIW09F9QUKxiZA9LNg1S
Uoydp2PHYb4nYK9hdRvcXDDYUN9BwlC7x8ZDLQQoYwvx3X8V2hZ80qwbGLAm
sOGtk7oF01UaYxsMCDgV/sjR7QcF92S7sRuo0KBTydOZRKVDhNzZeo+/G8Db
vs7Hop0JL/SKHu+zJWCEvUBb4RMfskkMuFrPMmDRS6BchUbBWLWs94tpgeBF
vhPgVTgL11T5hQYbOmA62H3ynB4nfnIWMt9eTgBVWOVXUCsFGXuknng30CBo
N8fwXNb/wLlsUiD3UyuUe/5d9oGdHc+d+b7FYTPfXGaRcNewXzBrW2vI5sUA
+QR9qZFIXhTROxom50iAuGe7cO4oBQUMXKRNTGiQjIslP2Pfww1Cc0WirxkE
XKQFdo6yoBHb4gPNDAKiw94zXUlZgCxnzg+izzohLnIgUozKjS3OGt7CiQSU
bb/776T/JNisadb7+rWDqR+zcboUGeUEpu6mbPJsCrrITfVch3vX1EIPr272
JS2mRHWJgg6v+X6e30WDlusluTLUUqDpl52VFauHGNHzr/ZrMCFxsUWEV5+A
/qgfUqnpfOh3c29uMhMB56jZvG98KVj91W//gcJAkKeC9aHSGbhb41x062oH
cICAtgKdA61r3Kvyqwno2dZqsbuJgrvFvpod6aLB7MDFB96FQ+B8Z9zf0bEV
uhTVOB8HsmGyuYvW8U39Ofvui/JRy2AW7qqroM8AbeOpoAomXtQY8Tzs7bnJ
w8nsOgxR8Gxd1/iADQ0C20pll7Lewo2wrrL6v5pBXqbbdcyGBYPHWfQqEwjQ
Hr01qJg+Dyp5H7aRgzohXzd4aGaQC6UVC/090wiQeDf72C3sO/TPuqLRnnag
/pmf75pJwm75HXMurQRcH+SfkLm2BnWLy4ekPjPgW8Jurt45CiYMHkzvkaKB
Ta7g3luGzFg/qvdeeNNfTf5w+tO8OfD4Yrc3lbkT3rU+T4x/zYm6t5/UBhQR
wGVVJOGZMgokmxeW8kZtcL9i+gxXHDv649GGUToBE1lXCgpvrMABkulE2T0G
rBSF1Om5sSI9k7XgRQEBR+ptFrpLyDgQoD7ht6lnE3kmX3D5N6jJ32Uv3EHA
zvzfZmmrFDwgf4S0wE2Dag7ZfW7UBzAnRr2ycr4OlDfsF3bMbIAilW+vogYB
vSf5772i8aFod2iDAAcB/A7U+gwfCoakbPul9zQQIu8lP09SngEHKeMsbqMO
2J7pOCMYwIHq4UszHHUEhPNEsXyrp+BPyZIm4R4aFGkIBB0u/QofXJisZaRb
4V1cdFWCGhuK35Wc5qskoD5xf18M9zIIto6UkA8ywPQJHEhr4MHffNrnrXwJ
wAu7pHgHKXhBOuifXAcazITxjF8v7IGYXYZv24focCRCROiVEAvWxEok50QR
kC342ThBZB72tx1Xotl1Qnleb2x/GhcKHWQq7npAwBfVrEiFqG8geVzlO/dE
G3gnL5uZW5Mw6WE0t/lmvn1bXayillehNoDOsfslA9Kjh6ofzFBw5HDCcswf
NKCyUp9f5mBG/k73U53OBAi+V+Phl5kDvQHViO7BDhgWEwbfaE58Uj04Nl5C
QHutFevB9BEYPf9xrlawDfL5tdjmTrCjicyXNMsmAvR6Ondws6zA63uJdo23
GEDi/sdJUZYVLbmSDTsebvZ1d2l2pQsZJyvpU2XNBFww5k0nT6/DW1M6SZOT
gO6sDqZLvyjork3Je8xPg+AWHnGNYCbUjN+arWW+udeDzSm6rJy483eC8sYm
76Y3YzYtLWz4YueY/n95iT73o//OYsEnGZ9EjqUQYNNvvhI6TMI4Z7XCA5s8
4iwyisR72TH0OWmHwOZ+/DBU2mL3lBVXzDaUKMUEyNtwnRidIyMpZaxtvpEA
+6I/816uU5AzU1VQi50Guf3TH6MVxHG+u8lsKbQVbNLKa6IVDqL0p7a1nenV
4GQwFdqjcxQTTx720lAvg5q1pIJoBS10q2CxMccCOGahHKtQp4uaBbu60/Zl
Q2vRK68enZPo5ud0ibc0FfRYL1O8e0ywnyQl5xCaBE5P2B5EK5jhGzf+NfvZ
WJCxervN1tsC/31rODq/LwIm2B6GKdRZYoyFfX/jwk34P9YsCpI=
       "], {{{}, {}, 
         {RGBColor[1, 0, 0], 
          LineBox[{1, 124, 94, 74, 62, 136, 106, 86, 55, 131, 101, 81, 147, 
           117, 69, 140, 110, 90, 51, 128, 98, 78, 145, 115, 66, 138, 108, 88,
            59, 133, 103, 83, 149, 119, 71, 142, 112, 92, 152, 122, 2, 125, 
           95, 154, 75, 144, 114, 63, 137, 107, 157, 87, 150, 120, 160, 56, 
           132, 102, 156, 82, 148, 118, 159, 70, 141, 111, 158, 91, 151, 121, 
           161, 52, 129, 99, 155, 79, 146, 116, 67, 139, 109, 89, 60, 134, 
           104, 84, 72, 3, 126, 96, 76, 64, 57, 53, 4, 5, 163, 6, 7, 8, 9, 
           164, 10, 11, 12, 13, 14, 165, 15, 16, 17, 18, 166, 19, 20, 21, 22, 
           23, 167, 24, 25, 26, 27, 168, 28, 29, 30, 31, 32, 169, 33, 34, 35, 
           36, 170, 37, 38, 39, 40, 41, 171, 42, 43, 44, 45, 172, 46, 47, 48, 
           49, 127, 97, 77, 65, 58, 54, 130, 100, 80, 68, 61, 135, 105, 85, 
           73, 143, 113, 93, 153, 123, 162, 50}]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0, 0], 
          PointBox[{163, 164, 165, 166, 167, 168, 169, 170, 171, 
           172}]}, {}, {}}}]},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{
       FormBox["t", TraditionalForm], 
       FormBox["\"Density\"", TraditionalForm]},
     AxesOrigin->{0, 0.6},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{All, All},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], 
      RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.7, -0.31803398874989486`}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{
        RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.7, -0.31803398874989486`}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[
               {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"I(t)\"\>", 
              NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[1, 0.5, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"E(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[0, 0, 1], LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          
          PlotRange->{{-0.1, 3.1}, {-0.1, 
           3.1}}], {-1.2, -0.8180339887498949}, {
         Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.564274740722907*^9, 3.564274767446435*^9}, 
   3.5642748028234587`*^9, 3.5642749163049498`*^9, {3.564274948295779*^9, 
   3.56427496316963*^9}, {3.564275021932991*^9, 3.564275051166663*^9}, 
   3.56427508485859*^9, 3.564275139445712*^9, 3.564275235108184*^9, 
   3.564275273076356*^9, 3.5642753067792835`*^9, 3.564275350135763*^9, {
   3.5642755243997307`*^9, 3.5642755441498604`*^9}, 3.56427575096869*^9, 
   3.564278420393372*^9, 3.5642784673480577`*^9, 3.5642786153265214`*^9, 
   3.5642786640853105`*^9, {3.564278835838134*^9, 3.564278852500087*^9}, 
   3.5649575786322203`*^9, 3.56495779176241*^9, 3.56495783214172*^9, 
   3.564958181733715*^9, 3.56495824912757*^9, {3.5649582932170916`*^9, 
   3.564958312814213*^9}, {3.564958366562287*^9, 3.5649584302139273`*^9}, 
   3.5649584611786985`*^9, 3.564958491854453*^9, 3.5649585231852455`*^9, 
   3.567977935140338*^9, {3.567977983403098*^9, 3.567978019907186*^9}, 
   3.5679780504989357`*^9, {3.5681387146864014`*^9, 3.568138736321639*^9}, {
   3.568138769472535*^9, 3.568138987177987*^9}, 3.568139081202365*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwV1Ps/1Ikex/GZMi6VbdJt2HEvGysRUZY+n3ItkkH5pqOLS0a6MDjEJFRi
3XWVEruV6yJSqZAulK3UZHdbVGTMBTNfFOPS5Mz54f14PZ7/wFs/4KhX8BwK
hRKj2P9rkC3/vVCnZaPVh4Nxlpb9cFfVWPcw+xocKtU2CnPoh5bYquur2NWQ
ZHN/b6h3P7SaR4Qos5uhJLrUvZHTD88zeK7jIR3w5uOZgA9V/fDC9mTDcMgn
eHNU2bxVmw8VdosT1lX3QhsPst+Z8GG0O+haVHkfdHWtj6i34UOClurnsaJ+
GJmc3zzlyYeLFz1CyEwhFJs998hP4kN7bneEKISExu9mzzu6+ZB66cKLsxYj
8HoPkRAn4IMpG/wsq0fg8eXgHKVRPnBUcuM55aOw94CldgNtAL47WTWNFH0B
1zzm6brVA8B4EucgyZTB31JYGxg7AFsbVTwEIbMQzLvq1j8zABazAePLRmbB
oUKe/oOSADL09r42tKOgGjXQesUCAUQF3I/2eUpB7xJ1Dp0pAEdB+NP6Tioy
aBAisxXAZ8mH/bHjc7F4Ce3G9mgB/J2VXp+zQQndorx1PLgCaF+zQa3suBIm
jdVcsjspgNqIczX/0mjovlJybzBHAEnjW2dtlymj3ZZz3LMVAtCT370it1bF
KZ2tVM+PAlhSGDyyNF4VR8q+rTrCF4AqLHY0a1bFO5WxbomDAiATjwztcVFD
o1Znv6QJATQprbR95DsPnZH/aUZdCP4L8v5Jjl2A8V7vVWdshfBK3VpNyZ+O
R3OLONZZQuC5aVx6zaVjOnWU9S5PCO/TpEb5V+hoYer/OfSiEPi0EkezHjoy
B/rCTxUJ4Zt8eSKxexH6OrIyI2qFYCKdmqjcpYF/FjKC7f4SQurrRv6OnUvw
hZnvF7XlItic7fSoZDsD5zU4ZHlmiSBx6+0y3hEGdsxVbm3OFUETzfCsPJOB
240Lpn8+LwJbLuWA90sGruR6Rc0UiMAy9MH8WVdNjNJw8o8pE8EKBwvfnZu1
sK67iSp6IgJlGVOqtI6JH+yp/DcTIgheM61uoa6HLcsiGZU7xODefeYGQ0cP
VcSPzjcSYrA6s9SeskYPf+3tbHm5WwxKn8wPdXjqYVWdzJK/Xwy/ZYW0Hz6n
h+vDuj/KDovhk6QzpfxHfbQ1eKJWf1oMuyqrZw1NDDAosHTqcp0YthkHjy5z
WYGbulpjitQGobbzePSL9auwhEcaJl8ahF80TKqVTpjiX/XxJ+XaQxAyk3f1
BmGOoRY+Q3nZQ3C0VWhZvW0tlvZ6La4dHoJf/ZRXyg9Zob/vEQrVeRgC2+IP
WLCtMYV17CUzZxhaVDRZYbvWo+lQkovf22GwWJR4QRxli0NmKkPf6RLY98Xe
1OOQHQYZrfol11kCxYXPmLLMjTiXbbNaP14CdVm23TwvRM6idXbdZRKIum/v
edV9E07ca9xc8FYCze03xtJ2b0an+eKnylMSCHXZ0BhKOGCP34n4B1pSuFJq
UR920BEnmmuaN9lJIfdLY1J4jBPeok4+i/KTgqA8+r9sjjO2n0sNj4ySwlPn
vEvJyS64Z/ct54QsKVC3d33OTnRFRr/D3m/XpUDZdIdadGwL/ujUz+A2SCF1
uWwb78xW/Ge1yUPD11II9wt8LDvphjPqE9wfeqXQl2QVBOfdkXluIl93TApL
zuZ3pRVvQ1oqWV8wh4SbdJNjbQUeOC384jpOJ6GFo+v0U8V2rF7u2HRcl4RC
vSKmvY8n/tx3utTEVPEz3GkK+40nmuq6rOLZkKDvpvLN0JeFbcOsV+UOJNzu
ME7/t5OFxSpNJsoeJGS0fjfX8/dCmQ2dm0GQcDZSfHBfjxfSA6I5T/aTwF2q
s9BglzeuDavZ53CQhDJjWntUrzfmeHrPl3BIUP5K1WzZ44O8loeqKXEklJjf
SigU+qCGVo22QzIJxgHlHvLDO3CnRkxxUBoJ3VsaancM7cCgnpbpkmwSeL/H
rYbInXjx282F6hdImKxj2RmM7USv/PdulQUkzN7j1Kcc8cVTgy3S3iIS3Myd
nbjjvpgu8c22uklCm/+a0LBIAjeWpWTyy0nQCGQ/uBpN4ILEa/2TCu9hF6u/
iSFQk1ZopV5BwgRnca0Vl8AVzay2dQqvSJVNy08R+ITWUJ2icGJtc0bOBQK1
C2ozf6okwVbFs6a+gcA81Vtngv8gIWVB2hzRAwJZ+Zr2xxR+u+ixj1YTgZKm
PEmGwmym1VTCYwJLDR/CbYUvWjA2u/5J4J0OetmcKhK+7u5919VDYNwFSU6h
wrhf00j9E4EUbcrkLYXTD3jFQh+BOtfX+z1T2CDiKfP6AIEaC/XpwwqzUkqD
D0sJDOr8umlDNQlX0vvuXhsh0LrnP8nuCotytObxxghMuDzeuFfhxIKMKmsZ
gfvPNxmlKPyy6BkldIrAyBOj3vkKL7/53atghsDBOD9upcIBFTY3XskJPPlx
+lqzwlU14bLZWQInKZ1NPIX/B4Z/mUc=
        "]]}, 
      {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[CompressedData["
1:eJwVlWk8lAsfQIeERGWNcjXWIkKW4tL/b4sUIelB6UZ4JpG1InuWEcqSLVsK
ZbIOQ7jIEnIVIbpRUtlapEVUmPe+H87vfDtfj7TzORtXTgqFUvwf/7fMtZXb
eVKt+/bH3XqkrjEIdbyK2zzJfCgvfr9558QAtF4sL9xBVsDb0PzZN0kD0Knm
485NtoCo+fM9tIWn0J0wYLbg3gcnl8V0nj3th/ko/umLjKeQY7uwtyuhH0La
KxQXbw5CVD1rTv1AP6Tjj/JviSMwGT3BvpXQB490L9d/dB8Hh7Ekje6Cx3BP
TzhUq+L1f30KLU7lMXwZPZ3vz5gA/TVaDzoaeyF0C++brzffwqTHu8/+4/9A
Roal++fEaUj1c7ljadgDPcmjPjPun4FueiP/rEcX0DPTH6Wqz4OXk5Ubn0QX
KJPgoFExD55jHMJkdyf48iRf8mV8AQk1qp+eciesmmg2z9/8Bpek4khTnodQ
IPrSMknqO8yuZJm8bu0A48nocdWc7zAyHzI7H9IB8VEjlHMZC1BUaiZq/6sd
xNuDjD4lLoJpeoelx5p2aEyRHUpYvwQf9+xwn+5uAyfn3tPKcUvwxvLghbxr
bVDIIRXjEfUT5DJUlG9R20AdW7tng34DCnA/MrdqBfMmHsspdzYwhkerc1tb
QJ3tvCA2z4aiZ19cVdxbIIF68omsHgWNd7lu7NjQAv7ODQG2HRRsp1rPDro0
g/GUdwdriAPNrZcmteSaYG+slPgTcU5krgbPVT7/G5R39HpMHedEs9MJ0iNX
/wbhM9uFN09yomZsffUKuxHefHp56uLCGvRPNLMp/t4Aw1fjWUk6XBihIaHq
yWqAHlWddSUhXDjZcZt1/UIDMH2uV/67di2yFTq2vGPXQ8SCOVtXjBs1FvhC
C7bVA3WlLmdFmxdP5Ipc25tWByJ5rvOil3hxW+HO4WCyDnhB2HhXCy9WKp7Q
qdSrg8/hXh+cTNehCjsztne6Fpq55HUfHOND8u7nU+ZmtcAsGkh8ns2H3lkj
7HMytVC8P3xifpwPVTR1GxxWWHCVPkqXJtdj1WxNlQeLBSf4U0YiL/LjjKmF
25pdLLAqg53Zf/Nj/N2II0MCLDC2/BRaTRFA2U38baZzNaCcZKbwji6AbzN6
mtZW1cCyMNvfJGsDtjysFQvSr4HHAtrruE5swuRHMc+Ic9UwcFAo80nwJoxx
9F7Ut6+G53FzClk5m7Age7TwslE1vFt7x3jX2CbUvKZbsF2iGpZXNocTjoIo
EH76RmY3Ezj1vm+QvSSIfQ76r0xZTOAN6s/9dEMQ47ZveGV6iwnCP+iNkS8E
8Z9us/u7Q5igNPfzR6m9EDJLk4sjtZmgpjwcfSFQCJVFFX7EyDNB+wxTxDBL
CJ/5bX7yRIQJhlNndo88F8KlIwfEZb9Xgf2rUU8OQhiJ1KSxGlYV0J80vTtq
J4KBZS3yTkZVcJX/hh/1vAh+SXtycUmrCq6bn+f8kCaCVsPO0m07qiC/cxc1
/JkIir1xOz++oQpqm/MdGbaiOCYjYK7wshImyyMGVm3E0Mcgtl0iohLefzxx
6pGvGA7aC9XonK+EeSXd+dQUMaR/aPsQ5FEJy8VfBRQHxPBkzo50J7tKEMl3
OXDEejP+uhpamKlSCYbXTB7cOSyOejdYe1PbKiDcvKZkwEscP1aty2yprIDm
tbKpK4niGH2smCGRXwG6wRS3I73iCMtbBY8EV4AGrXE920wCxQcvFzzYWwFy
RurH7Ay3oCRX1duh++XAvSg5x6UliSqC1Y7rnpaBMTN+RNVWEmv3RVf6tZdB
pOevBw5+krhutVf7B6sMVt+OpFZWSeIzb73fBtllsNifonN81x8oY1aRMe1W
BjMM3ujq7VI4be3IJ8JZBq6qvwTUBai47328bppJKRwajS0Sl6LiqX2Wwg46
paAZK6pPUaXijohALlWVUuAaVzvbZ0XFk3UJvLyipXDrqnuP53UqVmffKfGa
vAfjn4ZiGFulcUa7w+k5/R7Yl1awZZVkMGpTW+e95wywUHT9ImYqh28a+HMF
r5fAr/iAxpd2clj+M7RAIL4E7s5FRxe6yaFP0xJtY2QJcNUUS+yOkcMhaUsB
Oe8SaNg3Y2DxUA5lXvQdTDpUAgq2HimXjeRxKPcG/Qx3CVDCfDTmQQEVWomB
sZC7wBwKCXi0dwdGmnq/WA28A38KKVVwhSljHl6xkAgsAvffKblFhBpyxt43
sq2/Dec6pzUqLHZjn9qZpG8Gt+CKA7f8yllNDAkLD/s5cBNcui65qZPayBG9
tL5JNx9aeSSsPez3omYHsUdeKBfUBcPTZ/11UbjOlB4wfwP++qavbHlWDxPT
y91lqVlQkPdQcjFxH97OMfxTyzYDqq/qjg7YIL6l1im216WBf4O+Ve4hA3T9
MKRqZncdWnqKvsY5GmKXtLS+y0IK0Ex1mmiEEX5w267c9zAZcu6qszzOGGM7
X/rq7vQkSP7WFOF9wQT/rJfzSuO+BlOMgPOk734sfFX5TWtnInTsT8mMjDRF
1ak9xauH4oHj8Is318LNcLIndsq9PA4oBrUcNwMPYFgy57CFBh3omxctBmLN
sdphQumPmhjwdnBpW7x8EOk0u7Ymt2iYiNA8DWmH8Mu6kUWGaBSIpGa9iCuw
wD9K66QtJyKheJNSYFe2Jc48NCgwHoqAVt9tJtvvHcbjy1yH9rSHQx71pqS+
rRVmT11/v7MkDJqCf1HIfiusn7vMSv0SAtIHeZZlj1nj69/l3T/Vg6GmTzH+
3yFrjCnXE+FiBEFC56oa9YQNXn5Pi9iyNfC/786e+WvMBnm22L91aLoAwaJS
G2Xsj+Cp5qmZo0HnoURxbY//6yNY+5JyuEYtALi/c0i0OtmieXl0nslGf7ij
VhWaN22Lg4lXXsvP+IKiM8NyxfMo6p8ms2dHfGD0QD3z6IejOGvw9VjajDcM
3A5SAT87ZC8vh1FmzsFStbWezFc7DF9DX07T8QL2fV9WjNcx9DayyWtinIWD
avtNgheOYc6pK8OHhTyg64QqzcOPwI/r/zUpYtBAyIVszA0g8HPHca+EQho4
kQUC/RcIjJLn2RqQR4MfvsJMzWACJ0gK2zyFBnL0xV8rUQTKTktO8gbRIJzZ
kpCUTuBjXsXB3gM00OWxqmTVE7jRVjbS9z0JMfxxnDONBDY589Hi3pHwVLDN
dkszgYP94V0Fr0ggJTV/hrYRmExNmh0eICFDXdzQ7B8CFd651dk0kvDd8fXg
izECtRnuskkJJOApCQWBcQLVqqZsm2NIiHezuQgTBCp5di5+CidBxqdDsnCS
wDB7ySTrABKsY+66es4RGGxvRVFyIiEnfqIuf55AHac1TBeChJmkLXwDXwl8
0MZ+mmdDQnh2Qrn2IoFplAOOEqYk9N58SKH9JDCTq7+dMCBhc/GqTfZvAvua
RLKy/iTB+d6eoscrBKYY1LwY1SKhvNJ7kc0mcE/RQfo2NRL+BzeY1H8=
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV0nk4lGsYBvCxzVhLpFQSspYTSop0nodslS2kj1RKmomIImFIyBIy6WSS
JbJlCRXJOvb50kpOm0ocS+UoZItw5vzxXu91//Fc73P/rlfx2Gk7d34KhXKb
d/6/lRLnszPkG/80H5OnpqdUQaWwxjovxi0YV2Scnj1SDY3nS3LUGaXAtCg7
qKFYA23avnQqgwPRGw7W+PxVC2R8p8Uk/QWsknWnNRhxYDRSfOh8YQfEr7J8
1dLLgZDmUo3pzFdwIbK9rObPBkjGqZKfCW/gAmk0q9zVAI8NIqr+pfeA9/H9
4uuGGqHIUDp0a+lneOdBcVZXa4Kx7uO3/Ap7gX51KMjdvQlCVwv3jWf+A/Sy
YemcD03QUuUksDmtHwaOvB+vkmkGUaciZV/2AFBdnjhqWjUDm21N/5EwBBMd
wWstK5vhk15mzKbYL6CyS/er2LdmUH49VuAV+RXejnmi1ZoWKFt+/d/hoGFw
+W1UExDYAu1Xu32/0H9AXF0BOKi0QsyN5MfXdEbBTdU6U8yqFTQZ4LyldBSu
P6IXXTrbCmdoV4PPFI7BOT0p2Z7aVpB5oy8upT4O5t160U97WuFRXl/avdxx
8PnkujaFrw0WTHXrRzN/wtkbghHfjNogS+ajNUt+AtY379JmuraBycClHq20
CdDNfbeMFtoGcZFvKKfZk5BJF3mn8LANZJuDdo0kTINXyY4vtDVcqEla3xUv
NgMyTf0ltM1cOHzs6XHN2Bmwi/I022TBhRw++SjPyF8wdqjKUvAMF8w72laI
8c/CixtJrnWXuPAt83R+4YVZ2Ei1/VZ2gws62Eh+DZqD5kn/VOdaLnQt9XCK
nZmDqmCO8OpnXDjfI/VN/dxvqJ6a2aL6kQv1ocfFGL7zcOOcfsTWOS4ctZZI
o/2Yh1e2HKqRCAmC8g81808tgL7mdaHCFSTsqaNZD9IXQfXJzelsLRJ0Fo9N
rhhdBC2G5FotQxLiFY48X29IQfJ4o7yEBQlhjeJKhmEUNEpcmmVsT4LfsWp/
hxYKHu1U2NV1iASGAOPxKWE+lGrz3tdGJ8ElR2btJUs+rBkwfyPnS4LJoE9L
RRcfijbTfGjhJGyPlpd9LsuPjxKUk7NjSdBUf+o56MKPYUP85uUsEhQeB3IW
MvnxbvoH+Z1sEqQ91KRXDvCjleDULaN0Eqhif5/Q0hBAR9Fky9bbJMwWhVeb
ewkgJ0Mg/0k+Cd8ttZe43hPAWbtFbaKYhL6Rj0fPTwrg8xNcY+8yEl5fiatg
6Qui0nWVH5LlJLRr6YsUhAhisr2H8a5KEupfDro0Ngrik5WDFsLVJNz3/avs
nZAQHj7wdYlbLQl5UsaC47uF0Eb9U6pjPQk3H/w4IHpFCINwR+0Ah4QrDulF
Sp1CGPGYukK6kYSLk3sWDVZQMcK1wLqXl/2SZ+zsnal47XacmH0Tz29bXp5n
BhWfaq4Y9+Bll7f2sxF9VLxC1y/cyMu2gXzWaao03CA9cp3NmzdZXZpV7kHD
4XLOSFkDz7PGZfJpCQ27gw2+BfLe13QR3T0wTkMqe7B5oo7nOV+ZNq8njAFb
rR6s5+2/PMN9VCZYGA2ipkf/7ycM0iabOMLo/Mi7Io/X/3dPA9tMQARXLrB0
Fnk+P8K8hw+bi+AHuqz98vs8T0U5CIgTwbuVPYNDJTzPpsdJiS9E0Ozy3arg
Ip6foIpBwwFR5GwIsBnO5vnldia8TRVF2c2U4vZbPD+zsN7RHlFU0yoM8k3l
ecV0xygyxLCRbugnl0TCIfGkN+HnxVFT6ryGVAiv/13YmForjguSJkecAnj9
rUdCH1Ak0LDfd6sf739psixU+2MkUN58R+QGd97+0ot+pilLME23LqF2DwnP
JPREBA9JYvT+6vbApSR07pW68ZwpiQpPI2qlhUl4G/tdNSVNEgMvrs1JppDQ
L5RvsumDJAoqd3s6j3Hh9/zKMOLgMiwoiQkZ6eDChu+/poqdpDC2xEH2WSIX
Yp7X9e93XI7q3s3rNPi5YJxo2pBvI4uWFc0zsq9bwV1rVkJHQgE9Clk239jN
YKXhPrbCXBktGFlVgX6NcL8rxP/xdnWkmu8++yOUAzukNpQKXtDEJTqHdkbb
1wJ9Lik9l9DGjTrhEfV5VXC6bWhLqdVmtOrbku4fWAmXnakq86d00UnomWHw
iQpw4waf0GHo4RW7bU4eZQ+gkbZqn6fTdmT7rz6Xo30fdJaFJX/1M8CPN8tN
h2vKwPXnTk3rU4boY52X8p5aClkZrXLTCX9ilM6XK53ZxfDgikF3px1iMPEq
3yOqEPyqd9qmWxohZU6/Vq3mDnDac8djDxrjQPUnqb6JPDhprl93ktiFzzKm
7rn65kLaHZ0KTw8TxLk7l9pHs+Hqz7qLPgGmWPRwymQJ+zYMFvqfY5wxQ07w
5aA5ryxoMUu6ER5ujtdsXYa7TTKBz+Z9X2KYBfpXgjLGZgDF6CFfZuBufC2d
PPP3wzSIWTlt1Rm9B1+ydw8E9t4EH2e3pumIvTgiJh3WsScFei/qHofrlnhh
2sh02z02LL+W8j42ywq1Nbbo9O1IhjzJDYHcVGusX9vH0p3+CxrPrDNVK7LB
F3FBV4tLrkGGQqbcTgdb5GRmTBxhJUEdc5bCeGmLT+RrRBxjr4LiXtrv9Qf2
4eY7yf+ohbKg/IVG3LuufZjUcMTsrEYixLctaCscssPX4jtr7G0S4NrZrx6u
H+zw1/fZUf+yOGDKyC9VcrJH3S7fnt86l6FAQ6jd77M9/j5VJOBWHAPUCb5V
jYcdMKI8nq/bMRryte+FZgw5YLNuebbK3CXQOFZoPe+1H/22R3f1VUdC9+6q
+/uH96NSW2L2w6wI6MwO+gPOOuLWVKOpmvBwmHmwz1Bp3BHJwsrL0VEXYfHR
mYoo7wOo8nx0aHl6GOzVNjNlTh7AYpEWBsvlAnAPaZ30PEugRnd9yolHISDl
xqhJ9ycwnL3sl/m9EDjMyJJ4GUBg5efA9RsLQ2DqjPR9XSaBCfqZb6ZSQ0A5
Znp2PpJAyaLvZdkXQiDsPieelUzgjpG1dXbmIWBAsy2rqCKQX8JjkP8tE6LE
Y/m/1BD4U6WkXq6DCR3LmhxW1xO4WvGz3fZ2JjDkdH+FNhHIXaN616+WCWwd
WWOLJwQqPuhfw5/FhImDn1+9/0AgZyQs4LQHE/DoKlWJHgKPqoX+nePGhLgT
duehl8CD1e1D3S5MUPJtkcsZIFB6j4eajQ0T9kXdcff6TuCaLC+hPbpMSIvr
rbw1SmD/VtZM/B9M+MJaLdo5TiCrZ3NahyoTwlLjS/SmCXR7IfnzyComPM1s
pZz8RaC3CZFbIMWElXkLdqlzBG7U3E6dFGPCsaJtuc/mCRTJ0JMxFmJCSZnP
9OIigefuvetgLQTDf0QlwH4=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->{True, True, True, True},
     FrameLabel->{{
        FormBox["\"Density \"", TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}, {
        FormBox[
         RowBox[{"\"time \"", "(", "t", ")"}], TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{{0, 100}, {-0.05, 1.1}},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], 
   GeometricTransformationBox[GraphicsGroupBox[{
      {GrayLevel[0], RectangleBox[{0.2, 0}, {0.4, 0.3}]}, 
      {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
       GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.3}], InsetBox[
          GraphicsBox[{{{InsetBox[
               GraphicsBox[
                {RGBColor[1, 0, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"I(t)\"\>", 
               NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[1, 0.5, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"E(t)\"\>", 
               NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[0, 0, 1], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"S(t)\"\>", 
               NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
               Automatic, {1, 0}]}}, {}},
           AspectRatio->1.5,
           FormatType->TraditionalForm,
           PlotRange->{{-0.1, 3.1}, {-0.1, 3.1}}], {0.2, 0}, {
          Left, Bottom}, {0.2, 0.3}]}]}}], {{{{0.9999999999999997, 0.}, {0., 
      0.9999999999999997}}, {0.31869618940519395`, 0.07261432163662684}}}], 
   InsetBox[
    StyleBox[Cell[TextData[Cell[BoxData[
      FormBox[
       RowBox[{
        SubscriptBox["R", "0"], "=", " ", "0.833"}], TraditionalForm]],
      FormatType->"TraditionalForm"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     TextAlignment->Center,
     Background->GrayLevel[
      1.]], {0.45539279790436427`, 0.053255930049600705`}, {
    Left, Top}, {0.2985255445061311, 0.0645460636770013}, {{1., 0.}, {0., 1.}},
    Alignment->{Left, Top}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImagePadding->{{0., 101.786448}, {0.714286, 51.353627}},
  ImageSize->Automatic,
  PlotRange->{{-1.0291666666666666`, 
   0.4291666666666667}, {-0.6460339887498948, 0.32799999999999996`}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.5681390921789927`*^9, 3.56813909545118*^9}, {
  3.569105613134137*^9, 3.5691056755327063`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Needs", "[", "\"\<PlotLegends`\>\"", "]"}], "\n", 
 RowBox[{
  RowBox[{"eq1", "=", 
   RowBox[{
    RowBox[{"\[Mu]", " ", "n"}], "-", 
    RowBox[{"\[Mu]", " ", 
     RowBox[{"s", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Beta]", " ", "*", " ", 
     RowBox[{"s", "[", "t", "]"}], "*", 
     FractionBox[
      RowBox[{"i", "[", "t", "]"}], "n"]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"eq2", "=", 
   RowBox[{
    RowBox[{"\[Beta]", "*", 
     RowBox[{"s", "[", "t", "]"}], "*", 
     FractionBox[
      RowBox[{"i", "[", "t", "]"}], "n"]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Mu]", "+", "\[Epsilon]"}], ")"}], "*", 
     RowBox[{"e", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq3", "=", 
   RowBox[{
    RowBox[{"\[Epsilon]", "*", 
     RowBox[{"e", "[", "t", "]"}]}], "-", 
    RowBox[{"\[Mu]", " ", 
     RowBox[{"i", "[", "t", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"n", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", "0.54"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Mu]", "=", "0.22"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"R0", "=", 
  RowBox[{"N", "[", 
   FractionBox[
    RowBox[{"\[Beta]", " ", "\[Epsilon]"}], 
    RowBox[{"\[Mu]", 
     RowBox[{"(", 
      RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]}]], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"St", "=", 
  RowBox[{"N", "[", 
   FractionBox["n", "R0"], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Et", "=", 
  RowBox[{"N", "[", 
   RowBox[{"n", " ", 
    FractionBox["\[Mu]", 
     RowBox[{"(", 
      RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["1", "R0"]}], ")"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"It", "=", 
  RowBox[{"N", "[", 
   RowBox[{"n", " ", 
    FractionBox["\[Epsilon]", 
     RowBox[{"(", 
      RowBox[{"\[Epsilon]", "+", "\[Mu]"}], ")"}]], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox["1", "R0"]}], ")"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tf", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"szero", "=", "0.60"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ezero", "=", "0.30"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"izero", "=", "0.1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"sol", "=", 
    RowBox[{"NDSolve", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"s", "'"}], "[", "t", "]"}], "\[Equal]", "eq1"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"e", "'"}], "[", "t", "]"}], "\[Equal]", "eq2"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"i", "'"}], "[", "t", "]"}], "\[Equal]", "eq3"}], ",", 
        RowBox[{
         RowBox[{"s", "[", "0", "]"}], "\[Equal]", "szero"}], ",", 
        RowBox[{
         RowBox[{"e", "[", "0", "]"}], "\[Equal]", "ezero"}], ",", 
        RowBox[{
         RowBox[{"i", "[", "0", "]"}], "\[Equal]", "izero"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"s", ",", "e", ",", "i"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "tf"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<S\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Blue"}]}]}], "]"}]}], "      ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"S", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot1a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Blue"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"S", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"b", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<E\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Orange"}]}]}], "]"}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"E", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot2a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"b", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Orange"}], ",", 
      RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
      RowBox[{"MeshStyle", "\[Rule]", 
       RowBox[{"Darker", "@", "Orange"}]}], ",", 
      RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
      RowBox[{"GridLinesStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{"Gray", ",", "Dotted"}], "]"}]}]}], "]"}]}], " ", ";"}], "\n",
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plot3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"c", "[", "t", "]"}], "=", 
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", 
        RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "10"}], ",", 
     RowBox[{"MeshStyle", "\[Rule]", 
      RowBox[{"Darker", "@", "Red"}]}]}], "]"}]}], "    ", 
  RowBox[{"(*", " ", 
   RowBox[{"For", " ", 
    RowBox[{"I", "[", "t", "]"}], " ", "versus", " ", "t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plot3a", "=", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c", "[", "t", "]"}], "=", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "\"\<Density\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "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]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ShowLegend", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{"plot1a", " ", ",", "plot2a", ",", "plot3a"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<S(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<E(t)\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
           "]"}], ",", "\"\<I(t)\>\""}], "}"}]}], "}"}], ",", 
      RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
      RowBox[{"LegendSpacing", "\[Rule]", "0"}], ",", 
      RowBox[{"LegendSize", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0.5"}], "}"}]}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotall", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"s", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"e", "[", "t", "]"}], "/.", "sol"}], "]"}], ",", 
       RowBox[{"Evaluate", "[", 
        RowBox[{
         RowBox[{"i", "[", "t", "]"}], "/.", "sol"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "tf"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.05"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLegend", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<S(t)\>\"", ",", "\"\<E(t)\>\"", ",", "\"\<I(t)\>\""}], 
       "}"}]}], ",", " ", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Orange"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LegendShadow", "\[Rule]", "None"}], ",", 
     RowBox[{"LegendSpacing", "\[Rule]", "0"}], ",", 
     RowBox[{"LegendPosition", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0"}], "}"}]}], ",", 
     RowBox[{"LegendSize", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.2", ",", "0.3"}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"GridLinesStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Gray", ",", "Dotted"}], "]"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Density \>\"", ",", "\"\<\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<time \>\"", "[", "t", "]"}], ",", "\"\<\>\""}], 
         "}"}]}], "}"}]}]}], "]"}]}], "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"plotP", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"ParametricPlot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x1", "[", "t", "]"}], ",", 
            RowBox[{"x2", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"S", "[", "t", "]"}], ",", 
           RowBox[{"\"\<E\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
      "\[IndentingNewLine]", "plotQ"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"ParametricPlot", "[", 
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x2", "[", "t", "]"}], ",", 
             RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
         RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"\"\<E\>\"", "[", "t", "]"}], ",", 
            RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], "\n", 
       "plotR"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x1", "[", "t", "]"}], ",", 
              RowBox[{"x3", "[", "t", "]"}]}], "}"}], "/.", "sol"}], "]"}], 
          ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "tf"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"S", "[", "t", "]"}], ",", 
             RowBox[{"\"\<I\>\"", "[", "t", "]"}]}], "}"}]}]}], "]"}], 
        "\[IndentingNewLine]", 
        RowBox[{"h1", "[", "t_", "]"}]}], ":=", 
       RowBox[{
        RowBox[{
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x1", "[", "t", "]"}], "/.", "sol"}], "]"}], "\n", 
         RowBox[{"h2", "[", "t_", "]"}]}], ":=", 
        RowBox[{
         RowBox[{
          RowBox[{"Evaluate", "[", 
           RowBox[{
            RowBox[{"x2", "[", "t", "]"}], "/.", "sol"}], "]"}], 
          "\[IndentingNewLine]", 
          RowBox[{"h3", "[", "t_", "]"}]}], ":=", 
         RowBox[{"Evaluate", "[", 
          RowBox[{
           RowBox[{"x3", "[", "t", "]"}], "/.", "sol"}], "]"}]}]}]}]}]}]}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.564274624437256*^9, 3.564274722470863*^9}, 
   3.5642747638122272`*^9, {3.5642747970531287`*^9, 3.5642748024324365`*^9}, {
   3.5642749052103148`*^9, 3.564274962159572*^9}, {3.5642750086032286`*^9, 
   3.56427508275747*^9}, 3.564275136914568*^9, {3.564275234073125*^9, 
   3.564275265760937*^9}, 3.5642753049601793`*^9, {3.5642753485936747`*^9, 
   3.5642753488586903`*^9}, {3.5642755120030217`*^9, 3.564275543131802*^9}, {
   3.5642757403530827`*^9, 3.5642757496856165`*^9}, 3.564277040585451*^9, {
   3.5642780252857733`*^9, 3.564278058153653*^9}, {3.5642782372008944`*^9, 
   3.5642782974883423`*^9}, 3.564278465501952*^9, {3.5642786024247837`*^9, 
   3.564278605454957*^9}, {3.5642788326109495`*^9, 3.564278851760045*^9}, {
   3.564957552972752*^9, 3.5649575726158757`*^9}, {3.564957828559515*^9, 
   3.5649578311986656`*^9}, 3.5649581785675344`*^9, {3.5649582463214097`*^9, 
   3.5649582480745096`*^9}, {3.5649582928020678`*^9, 
   3.5649583123031836`*^9}, {3.5649583613849907`*^9, 
   3.5649584176172075`*^9}, {3.5649584601716413`*^9, 
   3.5649585199930625`*^9}, {3.5679776907023563`*^9, 
   3.5679779276239076`*^9}, {3.5679779753866396`*^9, 3.5679780194841614`*^9}, 
   3.5679780499879065`*^9, {3.5681386248402624`*^9, 3.568138696968388*^9}, {
   3.568138727656143*^9, 3.5681389858339105`*^9}, {3.5681390688966613`*^9, 
   3.568139071232795*^9}, {3.568139365088602*^9, 3.5681394016826954`*^9}, {
   3.5681394454201975`*^9, 3.568139662125592*^9}, {3.5681475551070447`*^9, 
   3.568147683192371*^9}}],

Cell[BoxData["1.7045454545454548`"], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.568147686340551*^9}],

Cell[BoxData["0.5866666666666666`"], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.5681476863455515`*^9}],

Cell[BoxData["0.12629629629629632`"], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.5681476863475513`*^9}],

Cell[BoxData["0.2870370370370371`"], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.5681476863505516`*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwdmHc81d8fxy9ZZXzNkkoqCdlJEs7b3vviGkkpW/ZWKVFGdrJHWSkZSUUU
ZTWsBqXl3muEMpIk8juf318ez4d7z73383m9nud9PrtO+FqeYiSRSD0MJBLx
d3fK2o1C4Tb150jY78ABGjJsYTUdd1tHL99Qd0lm0NErTqWNTEe5IVU0vSEq
iI40U3SeVJgJQvXb6OlmaTo6JbvCKc8pAiJ6nT+av9OQicSp+c16opBpHnvf
4S4N1b85E9yjLA47xyNOJMbR0BFeyRqmc1LwhjMDrTjRkNvf9IIyihwIfe+Z
b0I05Ns5caDGRAFqLz46JS1OQwn2LHvXvBVBrVjybTEfDbl0RbrKuyuBTsei
pDYTDbWxbrXwslOGRvrq7+3LVCTPE531LUgFFqTeGaR8pyLnn2pSpt6qMJ62
kNwwRkUlhR3bf19RB/Ovc2HfP1PR3WSVkUFLAO3WlQ+331NRUJOaeYGxBhwv
Pjjd8ZaKHj8vW4h30ARVvaSfboNU5KF3uMWDogVlHbHh3/qoKL9S/p6Xpzac
lSxi73hFRWk/W877herANe6JyzteUtF4VXCIe4AuiFntb6Q9p6JnuunZFy7o
wS9Zridve6iIwewDNSVaH7xZ12S5MJM0GhmKww0gpnS5yr+bii5v+W0yeMkQ
BI7+bp/qoiI/e5f23zFGQMkZmojDPHpe8SS6agwiH0OOyGPmz8j5EF9iAp4q
RryznVRUzi0Z3pVnCpa2SdytmNsCdursu2UGdTaLXzMwF4oUb1cjm0OVXHxd
EOaWqBWSe785eL3bpO6IeZcR6+oeWws4/V+JmB7mhj6JxPdvLMAgLiT+EOak
zn9yIkctQetDkKgk5ozAb57OHy1BuaFQVQRzlIDwf7vtrMCV+XSYIOabEszP
g75awc1h9W4ezCyLDFvbnMjwWibmHQfmCrm6s4UTZDBebM9mwyxxosp0zcca
+hKuWDJjHjF4WG89bQ2FdLkxRsyDNyKkUaAN6D+b7CVhXr5robp7wQZ0RlO0
1zuoaP1BwL2407YwfuQr9z/MRnK6OlG/bMHk2DrzGuauo7IeXoEUyN5jC6uY
79T6/V5fp4DuYdH0v5ifp434T7rNopNdA2viunQksnY/f02JDR6jjuyYdDq6
3NtCt7bhB27+jBELCzqyu12zvkdyN5T2nBoU7qMh0jn/A3NIDHK7dXd9zqOh
kJ9WvBMOkuD/xOR8rT8NXWQS/7UvWwbO/9p+NdqUhqadW9wlreRB1Po9MwX3
MYo7VMrm6AFY7/+rarGDhpa423SueR4Etq7P1y+z01C623OHXudD8K55ouXT
GhWFJ70MlHQ7DMwc9fGXFqhIn/HYaJ7fEajN8GHx+obz1XO+dPcZNVgQ3O+z
g0pFTE4FHr05COpdOZ7u/UhFmaKPBB70AcxUBDAWDlFRbrt/Cd8bDRDb0gNr
r3G+4meH/rzXhIxtaGbzABUxhh186DmqBfa9f+909lLR5t7QbT/mtGFiIbaR
jvOv2rc1amZRB5KLYDr0BRW9XY65FLyiC+LxhTlk3AeqYaNaPIM+DFut2XsT
+dfXX9iypg+39aTym3H+tW+/2/eQZAiFLM7SkphXlaXZxpiNIIGFzN6I8y7+
wygjj8MYfH7cibLDHLHJrejkNhPIsf8hw4X508DozUphU4h5I6n0lshvm+ix
0D1mgNpW71ZgXp+5dmyS3xwK1BfdYjDfMX2VbJluDtJVWS/cMM/Sov918FmA
Y/YstwVmzyvZT/9dtYB8d79JdcwiRvyfVwUt4b7eDV85zNw7Fk2e5FvCiwHO
b6KYLz/boNYmZAU6XkZ7tmNOL0rzfpFvBRF9DTP8mIeTY+Zzd5KBOSZr/3+Y
bdLfv5C9QYallpCsTZjde6rHX0laQ8YGu08smBnf1UXfvG0NBaMxm5gwv1va
6mcoawNcOjM9DJjH9o831NbbQEKF2z8i/1FK1DCynC3sSpe7TuS/LMjxDEO9
LViElcYQ+d/YpTIUqEgBDcuKAiL/KqzmtfceUoBu100j8t+jEvNwxu0Lejh+
ofvZKA1Rv386HvZrA3yrXPzyPZuOJH/8Wbptxwvc367qH3Choy/f38RVbdsF
dco75//7TENiZK/0GK29UHa7i0auoCF++qQWxVAC0pXjhd9F0pAzu4RlVqI0
5i7FizY0JCEjvmHyrRzsPCl6xfkw7ouXbO2FtwqwVzKx99puGnpyz+Xg82lF
kL6vTQ/7j4YituwZPUdXguWUUqm/JBra8TyAavhVGSI3v49Q+0VFj+Jnm9sX
VMCYfvfO6Wkqkvt8zP3Boirs2TVrNUKjIsuz8k+pfAikQk/Ln/tERaV2kWE6
aQAGQz8OFg5T0aXWoTBKqgZEHmrs+vCGiqZuGo615WpCocb5liac/8Zjh45M
5WsB4/bLNVZ4P7BrJk/ertYG2P8y0QLvB66j02dlGnXgz8KgdzfO/+eB1X+n
G3WBj3NyPQfn/7W+6DRzux5E7itLK8L5jzZKm3rdqg8X1M3baTjv10M6M6Va
DGDLzNp7Y8ya4ry3RjoNIeRbRVUfzrdx6VCVQbcR1DR9jPbFLNP5isFy2Bia
+hjldmIOq1fT3PrVBFg9RLpHcT6kPfZ5F30xhfWVscR6zM7l+xijpswgJYfL
I5HYL+43vtULNIf2Jmue00Qea1vWNy+YwyBTe5QNZt2ZvmNpIRagQeWe0iT6
wFmkOL1kASaTt74ewNzrH47moizhFKkpcB9mrvyl16l/LUGNyWyXMOZLH4Za
liKsYGvM29LNmMHx2SdWEhn2ZAb5cWOWeeoTsBxNBhb9oWp2zGxnahSUNlrD
cufZBlbMm7ffcbO6Yg15PJ9uEvmnFHvwmHPaAIuWjhWxH3x0k5v/nW4DjtJN
LsR+oPIrx/4Ijy1cLRGYJ/I/mOW2VTvVFpI49LuJ/FdFAtcyPwWOVjn2E/mP
rn+clJpFAZHtBdwECz6N0Pp+5TeizTWdt4+ko6Mc6UMXwjigUYSx0iSWjsxS
Dxya3qsN/s6zvzWw/5iUn0R+NzeGolHFJ9r4+p89rrPXrYMMPCydKRuJPvMe
LJ61osBy0l0fYv1Fh6+vP3ykwJ6J6odE37qTBvV/ufUhrZNSJ0av0pD2uN+z
e28YwK+PLZcF9211bUs0xYEH8ipdny150dH1ZLfnPpkikG7n7No7RkNN6pMa
Jh2iUJ5+fkmnGs9Ljnc/praJg3tW3nHh8zTUm3wz2oRZGh57JmXU2tNQd+bR
ft1rclCs4KUTo0pDC9nsC9lpCtCR+S6YspeG9rIdrHa5rQhSzKSHsTw0dNq3
7walXAm8CnIFchlpaHayY+tIvjLUfm4erViiopBXhyTe3VWBWywcOpEz+PdM
mhrG1KrCsf0vfJ7RsZ+T/87O9KuDTtyGigN4/pJa/CDBEQDw7t/z6j14/jr7
KIEecVoDTpR9yDbF8xdZZXl6b6Qm+A3H7eHG81eqlfLqzQgt+CtZFFCA+7Yi
/9SUI0kbPPfu8UvAfYuaIkf3ZeH561aQywLu2wn1h01embqQkF9k3Ir79lJv
REP7uh6wBxjqNeG+wat743VF+uARt/fOMu7XgIO6kWueAWinDf51wjxWdHHV
psIQnCx5WT/h++l0rqBRpNwI0tvVWCIxs4ky3O1uNIb+8jA+ccyd172SB56Y
gNnoOetJfL+nHlUG3G0xhZbItUMPMKcm3bgx8NwM+LOeXE3BvNt7f3i7iznM
qLyx9secsNkxGo2aA0h7WtoR+1XedPUHVwuoqx0h6WBOOU0/Rh2zAPP/hqoP
En3erqrM5mMJtCS5LnHM/ax+RcvTlnAmVmH/TmK/WI5w5fC0Al0n4cQtmBfb
6Vbqc1YQzPNzKzF/5Y7c7/joSwZD/UVEzF/DNrUUz2UyvELfRYn5SwRJOVSe
sYZbQ4xrRN+EgnmolqvWwPVGOI/o21Csdcq2GBvIfZWUTfQt503wizsMtqDL
dESI2H8m9/m4nTpnC7RlnhmibyvWTyVUmClgE/xqisi/6OXfK2sXKSAXLiRO
8D8dxda54p/Iftc+uuMpOmpl2qvyxHYTZLg0csYm0ZH4RcXlqg3aoH0mzjKG
mDf44i49kzEGNsGhJVN8/afCU8KMGshQsLqFh9g/H8zcb5bXpgDbgm0ssf41
eUFN/RcUmKW49hJ9u3bN1G32ygSqZHBaN95GR+d/Ga6rbGaB9kr55qEsOpKH
tu5vEX/Rx1Ns04IJuH9860E6OVzwwpl+VfEMHVnEVZ7y+UGBlPKcMmK9Tjl/
Nxb3xyg7b2t1vRsNBZ1oCiY/I4FjGlVYAq9HZ67QlvnIDbuLOdW1/OiI6Yuc
d5+5CDyWpWo//kZDTA3lWxXiRIF0+pmScS0+/2QLSkifEQf2/gXV/hg8L/Z/
2yLRLgXCnZ8aBhxpSFB/WWkpVA5sioyCt6vTUG3NH95SXwWwZ9ByfCJGQ5S6
HR61SYpgt+odlsZLQ+55e5l1LinBe2uHRp8N+P9hvgf3RCoDxy4W3uO/cd9m
R74cy1QBbZ1LNkz4/MR/WrfZPVkVwlPlc4/g81NyljNLQI06KNNGRlNwf/3a
Ei74ngCI89z20g33N/zISaGkoxrA1qvWH4/7m8BoNmvrpQnXjeVajuD+Rr16
8DHeQwvW2nyknuL+GvmsMKhGagNda1tcBe4vi+9GBpFLOvDjWX8fK54fS4Ou
CXrG6MLyPPrUj/ur36Xk45KuBwrFv6a6cH9FuLrpIqn6oLzO5bgBs7tphFhM
ggGwRAVpuOP+No6olWVeMwSYGBim4XxMeEerclw1gnEVo+lozIuDuexM5cZQ
/7OtUArz99wLDdJ1JlApTq2exvnpdv0W3HLbFDaeKRFuxlx57njQapMZiJmd
uZ9G7J+dY8/XHcyBlNpECsRcanDryethc2jq9+2wJ/bHwD/kdScLkCR95tEl
+r7z0q+jnyzg2Yb+HCXMjv4FivynLGGzfWaQBOb6FqlYKbolNGou1hP9fRz3
UuXacSuI6R0jEecn06XFZLtJKyiPOudH9Ld/wnHW1I0MM41VCUR/nzyt9WKa
I4PcYQ8nor+l5tNvBoOtIbAwYh9xfoo4dsrwzU9riOn5+pjo7xt+dyfpSBtg
1Yy/S/RX/xktZvKPDWR/VZcl+hs058u1FGILlx/b/iP6u/vpxUMOa7Zg+cJk
mejTUgBfvWIUBS5fFFEkOIA1LTKgah6NlOTWcdrS0Wz06WknvY0g/Tl8qC6F
jgT+NQwnLGjBBGPk41Lc3yKSB2ftDmOIs+6UJePrLxKneL3lFhk+VmtZEf39
ahfeY6lKgX0zHmnE+u7bFf+cbadA+QDDe6JvZ4XYqAvFuBcRXXxXSXRU759Z
+56ZGXrOkSwP4v2ylEE4zuviH8S1ack+LoaOpFL1xeiXOWHTw5xHlPN0tNv/
2fbSMQqkZaXUEOtlwdKdn1eGkHZq1l3nVhri89zHt2WMEXh2bvw1gddLvDhE
8r32C1WZ3fRx9qej5Msjl3e5s0N2TdW5TfF0VMt/dWY6YhopszxKdFSgI/Nw
BtN8MVYgTcyi6Uzss7Mn2d3915DsKEOIBr4e0XlJd5R+U8DZ60Ue8fltYXdK
xd1rUHHq8Xt6+DyYJHKsd48qCQJVGO368fuH43+I5eRzg4dEQc6JADpSvCSg
RpIVAVkBOZFH0zRU+SM2ttRVFL7QXr4arKOhQiUjs7/24iBs1FoqFYvn7fl4
WlaxFGyvy2QfO4rn6RKdKRN3ObiXuMY2jf3B3ex346aTArx7kHIkZB8NzTPz
dr2LUoQdXp71gnw05FrXf7A5VAleld28Ooz9wQHaWnqeyhB+rba6FftDkyTT
XHpRBUIHUjMMsD+a5NoDHc6owr4V7pFQ7I9soYy0hkJ12Lw/8Xwr9gdvJVWm
xB7AXVHrYAL2x9KK+T1+aw3IruNtq8D+KHVdmfNz0YRt/aXPLLA/Ajb9efnH
WQtK1LzgHfbH4qaskdcB2jB0tU+lEfvDuM5FQ/+cDjBpN1znxf7oSInT+xaB
/fE1Fz5gf7BcojMGJuhB5heDvl7si1SZARfKZX0gy6u1sWFu0BPM5LlgAJ6e
dfPe2B9F4bnhd1MM4ZpCr+EEzudtmv/6+SQjKD+fOx6D2bNq4n5JgTEoO05N
yWAmbUnucrhpAlu3ZTh9x/m93xwfqllqClNn92c9wqwY/uQjz10z0J1GL9Ix
n/vZHihMMYex+RPDhD/kaINfC96YQ7rcxvMOxLx9LLqSx8EClo535hH+8Aql
PNn23gJuJErxEM9fFrf1Kggdt4QSX8WXhD+uC7KH6X61BFfepN+EP4RNf5U6
HrUCUxd/VcIfq/+dkXKjW0FPoHI+4Y9pH1kmNhcyPKIE1BL+UFyRCx6YJoPd
zohIwh+u75/zTPpbwwPfOVXCH1XklH+Zs9bgyBs6SPjDynFeRynUBnxKpNoI
f4g8EnJmXsI+qfx0mPBHE3n+eGuALawnZbAS83dj+KlWrz+28NxZZJ3os5N7
CWd/KAUy7h1UIVjKHdkfqJlDbhtZlhZM6YgN8WnLPGaDlxdGlsTS6IjjyK/u
lW9a4JDZXX4P++NkqH3/XgFjiPBqeG2Dr/8RDtb7IRVkMGJ9FET4I4jb3txF
mQKjYjHXiPUHeNrJQq0UELx57DPRt/mRk0VBVaPoUlO52/15Gnoue3jjzTNM
sHPdt6sC993pxMuTUvHL6FUWelJ+jo60Tb+fvUviBIPJtzfssE8SXS3D0CgF
OCpzGoj1zjytkfhd/BpZSgm7v6qiISnxl17jjowQGlN2JxOvpz0W+0U2fxGl
kNKGbuD5vVw3enTuyyZw+MvZ2o/nC9F38zd9Ln5Dex1cNLT20ZH7ofJyr0IW
oH7+wLlwlY7CvvBOiYesoo9fntwewvPQZKrQpsEFCmwtqC7+v7/SddRXr3Qh
5ytt9+PP0ZBjqcCOWGMGkN7sU3j4Gh09KKfm15UtIG++YZkYJzraZHdL1P/a
GBLo7Br05qKj3LuztpuSmaE5eqUmB79+qti3ourcCjpFtqxbj6OjlVsXmvR8
NsCt2R2nmHLoaHCPxO476UtoOICjLzeEjpSbHX+9vMMK6tspDzsy8Hwj3ChV
4f0PDZcEkR3w/dtS/s8y7y8FZv4uZBHf9z6bxE4f9yJk2xYiuAg0JL9+4tfm
uXXEa/CfJiv23aARb3ZvFDco3NOk+AXSkfHIpTJBYRHYI8t+s3mGhlYSg5s/
2YhCtaDkclY99l/syRNUA3HgE6t8MIJ918tg3/MqRQqKfjd7+DrRUKbpzNNw
Zzn4q1YyaImw/+C2l5SNApiYiVcMYN+py3EsfQtSBBmtvHJH7LuTqmKmS75K
0MEUZcDFREPjN2QM3x9Xhkb2+Uffse+a2IbEu6JU4G/WuWPe2HecvKT+N0Gq
MJKbIZaFfZfvKDVknaUOd5+qLrzFvjuRx8XcZAOgCnHRedh39+y7GN+ba8Dl
9z97G7Hv6gX7/c8c04TN3XuHHLHvfohv7ahz1AKmg+bDX7Dvut+7dBed1oae
gNqiFuy704Opxx0jdSC14TifIPadzY5/nytDdKFMTejPZ+y7MdfmVxFxerCt
abvuIPZbd6v1nqCL+vD5i0coO2Z77Ynnw2cM4Mh1BRNf7LvM7m5ae6IhHPTe
zvIN94mraOqr6mUjcPSPcI3FLLaZK9kvB/su7gavHOZNb/kGAspM4Px3TuUf
xPl93G6ZqdgU9FtJVi2YV37Npm6vMQPbuyPWxPNmrgT5bmkbc2Df2qlNPG9e
qhmfuzBoDhMvHL8QvlN8qzUoZGcBja/5Rwnfpe5pK1t5ZwE3Hx4wIXwH/uPy
O45ZQs8lWCZ8J6Qb4W/12RKe8LMIEc+bX9VttEcOVnDh/HF7wneD2zX++lCt
wOO7fD3hu+Xa7GS6Mxl2pvs/JXx3WmD+z/1vZOC/uCWB8F13gUrtgq81dP3X
pEf4TtOslBL83RrME/pGCN/xkhofqgTbgHcuazfhOw5lpV6+RRv4aqWICN99
ZKlPvO5nC0wdhzgI35HevmUI+m0LzRbJjMT8xOvi3lwQTIEQmrYa4aPL2Vk9
GfJzqMgmJK7UkI74C0/NCUSyQfYW/5Bh3JdLdgJt9WNaMGTZJtaKfdep8Lru
K7cxLKil7KPg669v5qdhVUaGEq60WMJ3rV7PM7yUKLD7U0YusX4cRzzjZDMF
/pbyjhJ9u6XKd/ZgzVfk21Z8axSfN94lJ95LPcwEoYGN6f3YT83pe94ksS8j
33HRgmR8vjGvRvvzHnHAxa53VtYX6QiObxXj/EKBpOjd94n15i5yTIRVDSDP
Dd/LYvAcpnxJWLBXkBEo8/lq1ni9EoFPpqnCiyjxaqh0ujuez8oGrwznbQLn
zOTD1Yl09Fmp+LJM/CS66Pw24eQuOgrKWra0smeB86fZFTzweenNf5528ct/
0RbSlEYMfn1+4uj9ojkKxJ7afYP4/CiB9QfrxU9RTWuwS18gPt9scO/xZmMA
JalbQk34/QJDhzl4xRdQ87Bd1Ed7Onr20G6DQj4d7Wdre1rMiv3Lq8m0YMAM
av2ewTPYd3oDnZvZGVfQQPQWD7NYOmJhf+sqK7EBJpqdulfx75EhR6dxCSyh
okMH3DmDsM+FakoaPFmh57aPvCP21XFTznzW2TX0cnMnPyWVjl4Wd5A8/lDg
3urRHOL7Rrdx7FaNJkEE0zu+OOzz1v5xx7Y2Jjj59gc9EK8v0hP++F8xI0T2
7fTuwLytpjmi++cqWnxx9ePmZHw/dJ76FaQygH/hPo1K/H2TyQW3dg8yQ7yr
oo0a5h/GclzOdRtgXuCo/jp+/4lbh8perVHA1jUhk/j80uHZD4kyu6FY3HmO
3ov3h7z6B4kyCkCdm2pMlaChB6sZFYkymnAwQzb9B/ZP+63egAEdIyhoqRUt
xHlzrWYqSpSxhKFrNH8Z4vkG0/WLMlho7l+CJ4n8uxp+jxnQOQKVJr4OQlNU
pEaWvyLTpAvbeJelsrCP9DZ4U4IGzOC9QO+9ZPx+cbvXPEeDyLB99cJWoo//
AxltKx8=
   "], {{{}, {}, 
     {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl1Xe8jmUYAOBjhWzZ+yB7Zs9s2Rx7czJLUQiVUDRQFLJpaMveW9lFZaQS
lYZRomijrvvXH9d3j/ePc9/f87znS0wennR/ioSEhIM+Ig71kY9P5e+KfVgg
f03sQnbuVr8kdiATq+jPJ/pviT3IRRX1fLElt7CSfhzSf0PsRg7WMZBZ+q+I
HcnCmvhbHNN/R+zFVvKwgcGk9OweMT+bOKleIfZlGwvVr4td2cJtrGUAOyJ6
/rKYxGYys5pktnPU87fFnuRmPYOoqr9AbEVaPlC/KXYnJ7PVr4qdyMpxdSru
lRfgM/kiBlKN1KRhmGcF+Vy+mEFUZ1d8h+J9YiG+kC9hMDVISxxkYU7JlzKE
mqRjuH4Rvoyzi3OmFukZoZ/I6fgu4vukNrv1bhUfEItyJs4ndqAOGXhQvxhf
xb4xP3XJyEj94nwtXxazU49MjNK/nW/ibsXs1Cczo/VLcDbOLmZnn/pOMQsP
yUvybdyjmJ8GZGWMfim+i/OI2WlINsbql+b7uKcxO43Izjj9MvwQ5x2z05j3
4s6ID4tlORd3MeanCTl4RL8c5+XLY36aslCvNen4UD2HnDyqLs+FeMdiH5qR
i/H6FbgY9zj2oTm5eUy/Ij/KV8Y+7FffJeZhgrwSP8lXxU60IC8T9StzSb46
9qEl+Zikfwc/y9fEPrQiP4/He8xl+dqYnda8H/dYfCLeBa7I18X8tGGRXhvS
c1j9IgWZrK7GL/L1sRNtKcQU/er8Kt8Q+9COwjypX4Or8o2xD+0pwlP6Nbkm
38QB+SSxA4k8ra7Fb/LNsRNJFOUZ/dr8Lt8S+9CRYkzVr8Mf8q0xO50ozjT9
uvwp3xaz05k9ca/F6WI9/pJvj/npQgme1a/P3/IdMT9dKclzcc/5R74zZqcb
pZih34Dr8l0xO90pzUz9htyQ7074///5VLEHi+Vt413miHouZXhe3Yibcc9j
J3pSlhf0G/NvnHXsQy/KMUu/CfGDsSf2oTflma3XlBTsjX3ow9641+IcsRkp
2Rc70ZeKcUf0mpOK/bET/agUM8c9JzUHYnb6s0Tdjgx8pJ5H5YjqFqThYOxD
MkvV7cnIx+r5LJN3Jhsn1MvF3uRlI0PYGe+IZ/8BEl7SFQ==
       "]]}}, {
     {RGBColor[0, 0, 
       NCache[
        Rational[2, 3], 0.6666666666666666]], 
      PointBox[{448, 449, 450, 451, 452, 453, 454, 455, 456, 457}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"S\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.586},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.568147686382553*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwdmXc4lt8fxxFSITOjREZRkpVknY+994PHKGRmhVBGUikzyU5EGV+kCO08
z2NkFVmRqDRIKCMrkd+5f3+5Xtfjus65zznv1+dz7nvPiVNWHgx0dHSr9HR0
xF/Ra+tFt3Y3aPTFjxbKKfQho/rNZuNeG8idUVXFcrkBdbIpbWE8xgGM0Up6
W4MpSOuaLu0/c36YPfa14jCiII9Dq2xybCIw/vGL7lIaBZlKeczt0BcHviQO
NPeLgmr6z4W2K0tCSKqz45/DVKTKtb+K8bw0SH268izrNBV5/U3LLyHLQviZ
zALrIio61fJdocpUHqrYizgoLVSU6MAsse6nCIoqinmqY1Tk1hrpKeetBAEJ
+RKtf6moYbOApa+9Mvwsqul9xkxDcpwxWT9CVKCW/ck/e3YacvmtLm3mpwan
Zb+krXPT0O1bL3ctX9WAkwmaqm/5aag2RWW41wqAV2fcIG0XDYU8U7fIN9GE
QoPcLXbCNETtKJlPcNQCeSGtvU/30NBJ/aP1J8naIHGb+3CUGA3llck99PXR
gRz1c2wb4jR0/Xf9hcAzuhDL/MVVai8NjVeEhnkH60GWZLwO8z4aatZLy7l4
UR9K1F8INmOmN3//5VqMAVj5JetYSNIQneYj+sJwQ7AVCTeiYI7nWzbtjTMC
hobL9EJSNBTo4Na4fMkYFpzmd7ph/nxB0R1lmkDGjRX1Asw86TfeJ9w2hRML
I3c7MZdy7A9vvWkGgRdPMM9ibggW1t131xxOua/ms+2noVsihbvUSRbwuYQ9
RQxzfdQqnXe3BTTYs5UpYt5jvHlNzM4SEsvygrQx172RShrqtwQeiHE3w5zc
8k9W5JgVXD0i1W6HOf30Dx+XESuw/zjw4jjmKN7d20XtrYG1flrOHXO5FFNH
yKg1ONUFjHljZl6gF2g4TgKnHDEnP8z/yT6IvvWdBPn1eqanMEudqDBb97eB
rcPnM4MwDxs+rbGZsoFi/T2mpzH3FkUcRKdtgc7yenMI5pVaSzXReVu4/Wvf
UCjmjSfBD68E2AFjZXV1GGZjWT3dqEU7eJGi6XsGc+uxQyd9T5Mh5YHXEsH3
qwOXNzbI4NEzF3gWc8f14aAJrxl0jSv5t+zVViSy/jhvXYkFDCfCvjE+oqL4
rvpvNrY8EF55MEhCjoKYl3f9Yjy8CwLGY+05PCnIvrJqQ2y/KNyj74lubqQg
uvNBCrNoL8xn3nA14aGisN/WXN8d90NA2PG3ubZUFMsoubgvRwY+PLXV+pBM
RVMu9d77reUg9R7XqU14vCiOM9K2xxTg/Hqn8fcBKlriaNDN9jkMiorcr8Tm
qCjNq8Oxy+UIpGpdvXWVgYbCk1+f3u91FD5zfX7TvJWGDBicP98MVAX/GR8h
Eic+b+0XikXPqQN8LZ9P2UFDjMfzT3bdQLBluVipW5CGMsRf8D55A/BuWt+I
ZTcN5TYG3ebu1wTRo0ZhuSL4vCXMDP4Z0gLqySryf6I0xHD28FOfz9rA/veE
uyHOw46uMzt/zepAR5fa7nwJGlJ7IxA1vaALGkIJy/k4H29XLsWFruqBzW6G
WR+chy9Gj9QT6A0gXlZGlJ3Ig4HBPN+6AXgvfjRNxKxTObDvKZ0RNBTaRc5i
XlM+yDLGZAzR/WNMWvh8S/4yTr/JagLGm83XLmKO2OpV4L7TFDabLg0+xvyh
53N52W4z0OAN6vyEua5B3PmMmDlsXD1au4F5YzrbeYLHAmTrypUEiPNg1pli
lWYB1fuHU6Uxz3yN+feS2xKoUvbRaph9ruY0/cu0BP4B86OGmEWMeT6u8VuB
QbG0szVmDqEFU1qeFXSZTIQ4Yo5v3qTeIGgN8qMb+a6Y0wqu+73Ks4apfMlq
T8zvUi7N5QqTIHcl5pkPZtu0oVeHikiQ9t/un/6YvdvvjXfutwFZg+CoQMwM
Aw9iyittgFehMzoY88CSQKDRIVvYejSYh8jD2IHxuuoaW1i+0GtL5CFK6ctZ
kqwdbHNeNCLyUBLidI6+xg6ovh7cxPnf0qoyeFqRDFdextQRrLLZovrhUzLY
WnYfIfLQrnLp6bTXJ+TAkG4/qtyJvvz84Hp2cRPwauhkCN2iof2//ixV2nNB
TKbc8pwmBYlry9nZaglC0dZiJGZJQZ9+9l+p2LkHejqMLZTvUtBekm/aJW0J
eHzKxJmPgYp4vk1ok42kgHPvIZaXelTksk3KKivpIEjOrineiKEiKRnJTRNv
ZcEg/m3hz0qcH99D1RffysNomNs4xxsqoj10O9wxpQhljqRMhykqiuAT+3z+
mxIk7hbjMKSjIaGO4C9Go8pg/vGu6RsWGnqRMPO8cV4FrjmXPfq8nYZkPzp7
P1lQg+UT2qoWvDRkFS3X9IUbQen4FLwXoKFi+8izutcBIlUORloJ0VAcZfAs
OVUTWoX8bq/jejFZbjTWkKsFYs0ROQo4D4+cj6hO5mlDlunHyTFcL+yfkyYq
7+mAfLd7sAXOg+fnqWiZR7rAcDDVxAPn4WPP2r+AR3rwJp8sooLz0GcgPsXU
qA9kTbf9k5hjjK9P9lEM4KjpG+4AfP7vhLVkSNcbwp1UC4l3mLUkue4OtxiB
+6v3LLL4PJsUD1YYthlD3Iu8+NOYZVo66a3emcCmjMyJu5jP1qhrCYyaAve9
i+sDmA+e3OdX8MkMVqXm+Fcwu5TuY4iaNIere1rSuPH+lz5+9Fb/tAXsMik6
IEmcz+r6jR3zFhBrFVmtjFlv+o3z9TBLkBLm8tEj8sFWoDi1ZAmd8S6LFpi7
gsLRbJQVhJWRKu0xs+ct9aX+tYI5t7IjLpjj3g/WL0VYw+7fDyM8MINT84fN
dCSYEHkxcBKzTJN/8EoMCVQHFvYTeWA5VyWvtMUGpkY6fhD1Yseu+17WV20g
bKiQncgDufAkpwWbLZxRmK4l6sWIl+zccpot6GrQthN5UFm84aDKaQdeXyu5
iTz0ZnkJ6KTaga5Z8FeCKyKBfYWHDOSZkVQiDzE11OTULDIcSz3ET+SBvylC
++fVZXR7s1BEHXczOsaaNnjxLCuoBOrYkUcpaOz+hd5/VjuAL9rv6lt5Cuqu
LRpNZtKAt0NxE8/4aMg8VeHIlIQOzCcHrJViXzIq0yJ/WpgAu9PZxOt4/U81
aDHJIBIE/vW47ovHa+OtzPUwsYGYBu2tRD305jpcOGNNhqkQ8wFifguOo33v
R8hg7HbchphfW3KvwaLXGySsVSLAeacb6YwHNj/sp4f0nsvnauUb0No6XwzZ
kROaisCcwYaCFE4+37ZhIABTS8vby/Up6E6KV4d/hgjoaZfdlyygoGcaE5qm
L8Vh0xzP7TsrFOTmVDuS2iAJZWc0aqM1qKgrpTzGlOkgiPdCsGwEFbVlHOvW
y5aF3FfzN+TKqGg+Z9t8znV5mDONuLDcQUUSLIfvuVUqQvOo3S7bCSoKOPWm
iFyqBCmhRQKH/1HRzMRLgeE8ZVg5f4utfTMNhXUekRqoVYHTd/hyRHBe2ybM
jC5Vq8HGjPXZch7s+5S/M9PdGlAlNHrPHudVeuG9FGswQL6F9pPfuL+LfpH4
LSJAE/qaNmXfxXklqaxMSURqQZ95muoy7u9SrZXXyiO0YS249cMDnNdVuSYz
1mQdUDqZ6SiJ8xo1SYp5k6ULDyz3NOrjvJ7QePrMN0MPutLZs0VwPl/rD2vq
3NGH0KozXoOYofPh+IMCA6jK9HRxxvnscdQw9rxpCOlzYj6vMI8VxK7Z/mcE
A3rDpXvxfh8/n/9IpNQYbj2pCPbFzCJOX9v2yARchuzulmBuueOb0kMzhYLn
bh69mCdflAXX1pvBy8RDwguYU5OLino6zOH53c47HHj/Rf0OhDe6WUBWevNX
CcyJO5xi0GcLOPQ8p1aJ6OduTt1772kJZg5cv3UwXwv45vxlzBK4quhrzDEf
3KWmzOJvBWbi0hQy5u7NgQUrU1ZQd+FzlDNRf1YiPFl9rCF9oe0d0d8tNH6z
1pi1Bjbx185EXnOHH78cOUUCMYUDL4n+7p1tNdlnhQR1m7vziLyKIGnHsnM2
8Mhbuo84z4KhnF+s1mxA35R8gcjr4GWbazsv2YJNTc0kUc9u9Ie+uk9vBwfP
vF0i8juxz9/L47wdBKoGdBB5XbVpklJhIoPgMYtoIg/i8cur67Fk8N50fTOR
h3+6ipTZwt/Iufp5Y9uNl4jCKKFCs9sKV1xuUzNUqOgRpcCxgsQL2ylyzzVl
KcibktZo16AObRucCvtwXiVjFVcqNunAvX0Px88S/Q33lbhmGRMomhN2TsTr
Ly7pFul+iAQPfl7aR+Q1Z6aSdkPVBjxijjUR9frJ9OPncjpk2Jtf+JKYX7Yc
v5bBKzI8XRrUI+aXnW3mNXP1O2rVVi7U2daBLiwabajsYIaA1g5WHxlcPz4O
+9OTuYH104WRDCUKkoOGth8Rf9Gr+f1KVV8b0Rr3RojuDXZQ/9Xw4DzOK0+B
m6G1JR88FE2L3qJMQZZXyjz8f5Hh+15PN2K8FtkgL2ZvKtKdfNG1d7AHhZx4
FkpqpoMjidMBsikN6BvTfzoyIxwQV8NlKnSCglSi6DytX/MDf+yIkKE2BTF+
kvV7YyECSZ955rhuYK4rFZC/Ig6yl8Uu9/ymoMQcfqmD5yQh5uguOh28vrHd
P/ikGqXhRpBbx48wKuI3WFFaOiML659v/WgpoaLqqj9cxafkgU04cehjGxWR
HwidrE5WhJ7o66WvxqnI+6YEk26cErRWH9GhW8e/nz11WCxSGf4WBv/Wwn4g
zQx/cs5QgZx+qfV6fP/jCdB77p2iBuz/AqVJ2A8pWS7MwVUawP/dZ54P+yGw
IfHiqRMADY5Bdk3YD+Gq7oLJxzRB0ej17QvYD4kM5jN2vlqQWPDU+x32Q1Tn
k5GEk9pAP/1UPRv7wdh/lV4tUgdeeHOPcGM/MJ/aQi8Spwuq0wL3lLEfikOy
+X0u6cErLlIcN/aBQauSv1uaPhyJud7biVmEve2bSKoBZK4+/WSHfeBtFrH3
UqIhGO7n+N6M+dGweklGthFIVdaP7MHn67tfjBprpjHoDF8z98K80Ju7jbHU
BIaZWiLuYP6Ze7Hu4ANT6J8fYe3G3Ob5I7S+0gy0OZ/tmMdcdt41ZO2ZOdQE
bBHbjvffpWWsY8PRAiQa3j4Tx1xseJfW984CtvM+rTpM1O/Tf0gbxy0hsrJU
gfCDqHDc4rEPljAsmsRK+MEpKF+Rx8MKyFoJOoQfauqlL0t/s4KIqStChB+o
V16rZLtaw92F5cuEH8yWFlLsJ/B9cHSrGOGH7u9OM2ZeJBBe5bhO+IHWVO3L
OEuCqfDjoYQfii2m+ntDbaCxIL+O8EOEs4dR/28bWMfnlvBDP4/38YORtsDy
onmQ8INB89dLE39swXJcYILwQ8jsKfalMDuQkf+vnvCDaFPsEcd1OxCOHwoh
8rcUzF2jGEWG3ga2DYKDN1+PDK6Yw/fOZieJ2BY0ExMwdVx/CzB4Uj3ST1NR
QYuMSMxbHkjn42A/jP1Qp52ooF6gDu6ssaXD+P7E+6/uXeK8NpQ7fLB2xX4o
oDvJVi1kAolFdXVX8PpHO55+dH4fCX7Rec8R/X2M070+BQUb0PBeKSD8MGof
3m6lRoYZXuF6Yj7euxT/RDeSQTjEHRF5jRZk+TJf+BWtB1a+jEp4hWqCMqqH
mJig2zWrQeME7v/GfeQH33HB+aTozX6qFFRMv/uKb+wflGFi5y4b3ISkUw32
fotng58pXExS9RS0VjrPJtW7AzIr5LbtO0xBokHNu4rHyKAyF+REjJcFS/d/
Xx1EC1S3pRjhN4jbZx833xgDvPEXpez/SkPcS/HPL77nhANbf7SfMKKgpNhB
ulPZi+iz3pdN5R3NKCV+OH6P9zZQd6/oebcF9wePOLL7+3ihsEwr8gC+L1fz
ZE5PRUwhO6/quPYnbcginN4sb+9m2Br72/Y2Pc7ngEn5gUFueFx87d4RBQqi
RLtv8w5aRxd/KAayeDaiV9kPm0rLt8Puy94b5Vco6EB2f+y5bj4Ir3mWdBI/
f8zN5PtKy2QwsVX1IZ6n4ez9YknvKrTtebggc0wvShZx7hJTowNS187tM7QG
9C7h194beRzgcFKgqfYkHo9JLH39Kj802nLuOIzvM4pxvOp0h0RA8OYlMlMW
BZX9uny52FMcDLtr9NzmKOiWkrH5XwdJmN2YvS+ijO8vcwlfswql4XaHea9m
KL6f3NadNPWWhXijW/YpxVTE8TywqPy4PLyW5I1800pFc0xcrQNRimCdKGrD
iH3n+aD78PMzSjDLMaDhvkZFrKCjre+jDAFyruIbzHi/6WSeF8eqQGfI/f3J
2HfPZBtPO55Tg1+3X2yRwr7LEUy/XndLAwKuJD9a4qchrrIvMrcdAIzpto1X
YN8trVo85LHRBDcNJR8/7Ltiz9XZQDctaGNOfNuGfRe89c/rPy7aELic0ZKA
fbewNWu4L1gH+FYo0Vuw70weuGkanNeFyjfm7HLYdy+vXdH/EaEHY6ecplmx
35jjvjGcTtQH9tOsf9swp8r0uJHjDUD7ZjgvCfutTp8/g/OiITAb/r3ZgLkg
PDe89poRUGlGQcI4L5VfgzYuJBuD3oWBIx6YfSq+P76dbwL6Sz8+FGKm40tp
dSw3BWv2gA9dmB8/TzijVWwGijHJ2+cwK4bTRjhrzeFlrLQrO97/878bT+8m
W0A887I44TvZr72j+f0WEPTruDThOz3nmDJOR0t4+mWxl3jf5XuGTNs5ZAnH
lt89Id53Lezskhd0tYIVI87NhO/u8G87qzdqBemv7H8S77t2my0WOx2zBusf
Ak6E79a2n5P2+mYNl06QGQnfTfkfYmRxIwHDj7owwneKq7KhPVMkKE/0ciV8
5znUwTkRZAPvXouWEL6rIF37lzFjA79tbB0I31k7zekqnbGFnQ8VugjfibwQ
dGFasgWLl/+NEr57RppzpQTbQdqs3GPCd4/CPSi+f+zg8xPOQMInx71vs3Wf
wfcXXuoqwdLeyEGhahZd/3BYJJexFbEgbh0ZKgv0bbGfTUinogyjMIapTB54
nK8Tl4R958DMPH0oRR14qa+DHmLfsaoutq3+0AZV7ddeNth37mccuiV4TaDv
kN77WLz+B0L/Wl8VI4EVO/sA4buFtIMf6A7ZwECoagrhuxAOBws3ZTKEXut7
Qsynh7ORJEghw2jkLVUir3PD7gUhFZ9R9CYx4UqH16jj0NEt5ecYoWPBmHvn
eRpS8qnh0brBBfIHfaihGhR0/MRrd+mEFWTfv8ruT2tCOmY/o2vp2KCjKzJh
UxcFze5XmU1P2wGBxzPHJrFPkjytzqLPZPAVnCYT451rqpJaLuxDOn43h7p4
upG05GvfcScGyI/g+x2/pQGxRHTn/8zlhEGlJBtvcwrSGbv86VDeAjrLE7+T
8dBLVKoX83n201YouGZNRXuoqFGFHI4yeMHVUPFXHl4/8YG5cv/YH0iddlh/
1KkdeR8pLfW9xQyqLUd4FXB/6e6QkZSVzQ03ZEvUnilS0NlPXJOSYWsoaePO
q9E7jeibjcOusD3b4ZVVa3psGgWJ7NzlNZHKB+Xxn+nvHqWgiVTBrb3zZNDK
7ff8v7/TdDXWrrYijmu1MwzKPcipmFfosgk9nK8Vvz50vAHNXnA+0bQTP88j
Og5VRwp6Uvol70HJPApWSy522NaCBhrb06692QJL+Ufhjw0VVWh9V+fl5YUd
h3+1CuHn2Wp/VzwoewwJn7s2mNncgXJrZ+y2pjDBDq2idTd9XO9PiFn48XPD
H9L6z07cf04Wnvqv4vwqsjvQ0FEr2YR4eos6eTjZ4f3xgcKqexTEInb3AIWT
D/540bvE4f52d7DmEJ8gFwTGpvdO6FLQe/n2upPcuF7dlWWbxPUjyoqplbaD
B0y4DrRvxvfrIb/4h1P8HGAzuE1zJJKC+Er/Wd38i9fDI9efWI/HLFLC/t4F
qD1Tc7vhu14kt3FiccfsBtoioNzx33AD6jXmyumK4oB9+7bLtfjj+mFUV94b
wA/B7SYP5IGCTIbjSvh3i0CVoPPquQwKWk0Kff7BVhx2vZt7vn8W14PL7ie+
GErCHZa3l9mO4HpH79DeeU0aSiLrK/xCcJ7MppvCXWRhfxaP1lwRrgdQ6Stt
i+/Dj7I362P/a8iyLv0IUYTv32kShWNU5K6212zplBKUsQ3082L/jxfJGA25
KoOI9dS2D9j/z1gGJVujVGC79rTwaex/Ni667v4QNbhY/ZHMjf2f5yQ9aJOl
AYUZI3Tj2P8nbrIzPbMFMNBezLuF/f/QoZVhyEITUCgb1RX7v4a/O+icsxaM
SPjRN2D//5IUePnASRtSVMXoL2H/tw25tRUE6ACzwS0DRuz/gN5UV6dIXQgZ
6jp6EPvfVujfx7IwPfD32J67Bft+zPN5Z8QVfcip/ZfUgrmNYiMWEmsA055D
B62w7x10vne8O2cILCUsC1TMGW1tXxuTjGCR5ffR3dgf7AWTo2rxxvDVx2e/
O+a9O9hTAm+YAD2ZxE74f+tb7p7gElNIYJ7UIfwvM26/wlhoBs6mR5KI7x2r
izOpu6rM4YY2ZYP43sGeKNd20NYCFHRKhojvHUtV47MXey3Am2wzSXzvUHyr
3Stobwm7Mo/fIfyfKtZQsjpgCZmxDSmE/yFoXE7I2Qq+WB6YIL53COpFBFl/
tIJ1RrG3hP87H2xxQI7WoKbNpk/4v3eX5l//L9Ywc3ZygfjesVKdk/LNhQRL
M8EnCf8H8M79efyDBBvuTnaE/9vyVarnT9lApYttPuF/LfNicuhPG1DkpVoT
/ueie/RUJdQWau+7txP+Z1VW6uJesAX/tB8jhP9HmGuS7gTawVj3fC3h//ic
rPZ0uVkUt9f8ypB+K+K55THLG8kCHwaa+EJw/5HCmntaJIwHcBWlvcF5vvdd
26D8sjq8gjTVO9jvcfa8DTVj2vAvn+mkOfZ7i3zfg1EOE9AgvZi6hNeX4SJV
NGMPCfJ/mrYRfpe5/9P1u7QNbJSQLxN+v6vGHX24ahTVS3VnC7S9RgMpSQ9T
jzLCQSZPZJOC66/0wOUz4VwQt8eFXQLn63maWH/ythWky2pa6fOjCVncQwdu
vmCFTe1nedYHsD+mj7m2B++AYvKPQ47Y37OxrN/PVvSgrvevpl0dupFy3G7+
Ln4GqNSL6G0QakAMagvsYpGcEGP6XlzUioJu834wS929gIa3UYTT3V6impLe
q+9ubgVBkePxFQep6MVa5GRICC/8S7Cp9Mbr8VGpMF4mYQJdMXH8R6lpRyFZ
K1bWDszAdNiPPUcU19NdT9ZeneGG0N0t+/Jw/9y/3cc+YeUvur/N3/BlYyOa
ratsO/aBHWz1BDpHcihI8AN6JxTEB74S8+ED2IdRvBtPNgqbENN7TknPKz3I
e5N3ux8LPfx6UBq9M6wBTWpf6lv5ywG3tO9aZx2nIN7Bo6xckvNIT2iRpVev
BX3ZswudSdoCWb5O8ufcqaiYcVuV0SIPkLiUm/fg+Tc/td8kn/cNxQp7DyVJ
vEKlXFqM84b4vlDgeyKdhO9L4voNt1e4ILvNdna7CgXp97Ts2Mawiq70tT7/
aNKEROSWwtdeswFv4ROa5kMKYhjryvs9twPCdTgHevHz8it6GJmuckKwtspX
HgP8/AvTEgW/eYHt25bFWOznMB4p5aUlbsgymHqcif1MUXbjo/7cDsKfQu+I
XqCg3Hir6w8f8sAi511xMp6vWllKEetTLuiP0mT+qkZBbWcVWbbW8cIlzv8Y
PuLffXICBV0fc4PzhS+mv/D+V8c0vf6kyAsPa9ZvSOLfSYUbH5WUueGCZcnB
kiMUNBpYoq2osAPovk+6OODxL6Z+tklS4gHJ/2LVr+L5Fb+beZ8kIwobmwRu
iDRRkNPNmidJMvJQz/+CWt5MRU/W0v9LktECc1n7n/bYh413u4J7dI2B2fri
ayt8/j3vMRYkyVjBVOL9ZhI+75OMd2JlsGDlrZQ8iTx6Gv281KOrCvNpgtID
HDSkTpK7KvNMD9ZEPnarYR/qb/Ijh/SYg4+zK3Di/5e07+M8FkICzX/znwg/
/A8mVWR6
   "], {{{}, {}, 
     {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwl1WW4lGUQBuADiIA00n3oLpUOaaS7QQmlu0u6u1Xa7u6guzsN7A46zHsu
f9w7z8zu9e3uO/udk9hzSOvBSRISEm57iLrEQzm+lM+pk9kgH1KHU5De+j3q
AHLzBTM5b35CHUtx7tFvUXuQiU+ZxlHzo+ooirBSv1+ND5KPr5jDZ+an1QmU
Iql+qVo+XiOfV6ewUT6sjqAQD+v3qgPJw0VmccH8pDqOEtyr36r25O54P6Zz
zPyYOpqirNIfUIeQn6+Zy+fmZ9SJlOYHFpHMfJlaIV4rX1Cnskk+oo6kMN8y
n0fM96mD+Im8cf7M5rc4N8+fUsfzCyX5noX8wX2e36b24kcyx2djBr9y3PPH
1TH8TDG+YwG/s9rzB9WhJPIN82Kv5mfVSZThDv3y2Gu8Rn6SPlQkOSviTON7
yU/Rl0pcMrtTXRmfNd5bfpp+VCYFq8wrxveSn6E/VUjJavNKcb7yswygKql4
zLxyfG/5OQZSjctmd6mPq1XiXOXnGUR1UvOEedU4E/kFBlODNKwxrxbnLb/I
EGqSlrXm1eNs5ZcYSi3Ssc68RuxNfplh3NDfr6ZnvVwzzl1+heHUZrtZb7Jw
Ir4XGdigrxV7ll9lBHXIyMa4Lpfk1xhJXTKxybw2l+XXGUU9rsRvPXan1uGK
/AajqU/m2J15Xa7KbzKGBuyIe4usnIyzJUvsUl+Pa/JbjKUhWWOX5vW5Lr/N
OBqRLXZp3oAb8juM56b+ATV77FNuyE35XSbQmByxS/NG3JLfYyJNyBm7jGtw
W36fSTQlV+zSvDF/yh/wKM24apY79qk24S/5QybTnJ1xn5KNU/HbIU/sWN+U
v+WPmEIL8sZ+zZvxj/wxU2lJvtileXP+lT9hGq3IH7s0b0H8Qd6s3FKnq61J
jH3qW5KELfoZtKFA7NKsFUnZqp9JWwrGLs1ak4xt+lm0o1DszaxN3ONs18+m
Pdf0hWN3aluSs0M/hw4Uid2ZtYt7nJ36uXSkaOzNrD0p2KWfRyeKxd7MOpCS
3fr5dGaXvg/ZOa1fQ/HYpb4jqdiT8P//rAVqF0rEPvWd4r5nr34hXdmt70sO
zujXUjL2q+9MavbpF9GNUrFLsy6kYb9+Md0pHbs060paDuiX8CDX9WVin2o3
0nFQv5SHKMtms+6k55B+GT0oF9cwy8BheTk96afPyVl5HeXjWvqMHJFX0Iv+
+lyck9czTC7AxfiNq2VZTAX9f64S/bk=
       "]]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0.33333333333333337`, 0], 
      PointBox[{497, 498, 499, 500, 501, 502, 503, 504, 505, 506}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"E\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.12},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.568147686413555*^9}],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJwVmHc4ll0cgG0q+UoqCQkVhRCS5Pxs2ePFa2RmZ0ZJdlYZSaKyIi2UkREi
I5H5vm+kokQyKyo74zvPX677cl3PuXjOfZ/fefY7eBs7MdDR0VXT09ERPwWv
r93P5m9Usv8S/y/rTjXSrmPVH3PZQPaPTyixvOxAXVvlNjGd2QZ1Epmb2ea7
kcp19YZHBtwgGqJeX8NFQU5HV7ZKbRUAlpqV5PYwCtITdfq9S1MYOBSllBM+
U1BZb0jAW3kRyDaQHnU/QEUnOQ8XM4WJQbyYPO2AExW5/EvJekCWhF+tMTIV
6VTk/Wb8WLGeNPyVtimZr6Oia5YsB9bOycBySZaX9xAVObZedpZylQPeHcVf
o5eoqJF1j5GHhTxkjxY9dGWnIant4WmT/grQnL14rpyPhuz+nhLTP6cIK81P
uG8fpqHc7BbexUQlKAwK8amRpaHnSQoDNGMAT/v0A2eUaMi/5pRhlq4y/Ljb
mt+mRkOv2h/8uWqlAj8d3kSbaNOQm+aJOjeyKuzPd//jpU9DmY+lKjzc1UCO
ndFhwYiGbvyti/C5qA7JA3CqhERDYwUBF1z9NMBN3cm3woyGXmuk3I6M1ATV
iGg/PzIN0Rt8GrkergV0ta9Cai1oiE65kv7epdNAPUiLqrOkobjdi3q0WG0w
c9JfzrCiIR9Lx6bFKzrQn22eB9Y0NBwhcxbd0oX5lZ1TXZi5bt75dDVXD1a3
XWY+eYaGHm47fKk1Qx+Et1UOxGNu9NunfqjQAJwFeLypmLMF7vGeIhnCS52x
PiYbGqoLXqFzpRiC1sNvR8Ux79dhXRUyN4IvCTPLBpjLe0TjP/YagdM7Wo0b
5oQ365ICZ4yhojiCFob55vlJd7tBY3ASMRdJxhy8k/8/QQsTKEkTX8jE/ESU
ud3/qwlEzrWvPsLMMke/p9GGBOLvx4VLMD+SLA3NHidBxov3h6owizoU6K95
msLAqnDyS8wDp6vLTKdN4U/K1usNmGn3g8TReTP42f19oxnz0nMjRcE/ZiCk
oXvtDeaNF34VMV7mcFR6PLoNs46khnrwvDmwBNkptWNuPXPUzeM8Gdi+8kV1
YH5W4rO4sUGGxnyl+52Y228M+E64zKD+HrGdRyxbkcBaVeaaHBt8SCg+PPOp
C8V1142amnFB5EfejwfyehDLIu8vJlleaPkV22OrR0EWRcUbQocFQUcs/OT2
UgqiC/M9NosOgu4m9geSjFR04a8J57jVYQgdZtda0qCiKCaR+UO3JSDaWTK6
NYyKpu3qXA+bSIFpQRx3TyEVBW+7KGZ25hjc/8L1/H4PFS1sa1RPd5eFb/kh
rQ9+UFGKS7tVt91xYB+fLF9joKFLCZ3nD7ucgBibwqiknTSkxWA7nOFzEibt
vEfDhPF+exuRLxhyCi4PkopCJGmIySbLrfsOgt1VqTa6CjSUKvxy54segNrq
hb5XyjR0t8k3d0evMuyv0FJ9oYn329WZ/uWPKrC84/DlUF0aYgiUrXYfVoWW
7+9n9AxpaFf3xb2/ZtWgq6yP0dWEhhR79gT/mFMHdeka8UZTGupbuhIbsKIB
UV8aSbnmNDSiXXnqKr0WsMMveQHCBy2tP7vXtGBhvuqeKvZBrej9oWo6bXAR
THU5hn1YlRdn+86sA0/ZnMb+YBb5pXMzg10XwnOC4uKxD0GbXXLO7tUDHWGR
Sla83z9Th5885tcHq87fRU6YyxuFbS8KGUB4pVt9CeaNH+m2E1yG8OxxU+oP
zM/0u5KMUwxBf5eTAA/eDzPfwtdbdhiBm8JcNsLsnni7ef2WEbxUvZhyBrOA
DteXVW5j8OIX8g3AvI1vTq8h0xiY5HzOx2GOe814qpHHBGxOuE2lYU7JuXGu
I9MEdnNGdudh/pB05ffdfSQoCknRKcJslvKx4+h9EuhIXhl8jtn17dOxrsOm
0NTLxVqDmeF9afiTIlNQuH+jsB7z+4U9PtpHzcDa4pd9E+bvR8bKS8rMYNa7
1byF8FFuJJAkaQ7HxYTTWjE/8LcOoS8zhxALJu+3mDe1KvSflyFDzZLPFOGH
AqthSUU1GRKEYnkJH94qXKn+4TKEKhzso9ihGY38/GwfOM8IwD85fXi9Ex3+
tbxQZMEJjDf+Gzlh3IOEVaXMzVR4QPSPR/SSFAUN/eyNKdi7HyYynm3ivENB
B0keKVdUD0DztSw7yiwFcY1OqJK1RcG4ZTg8T46K7LaIGqfFiwPVWPo01Y+K
RCVEGCf6JKG0LyKEMQ/743G0JLJPGta7DEXZW6moocJRtn1aBuqC9qccH6Oi
oN1Cw2GjctBh+ID/+xoV8bX7jWh/lYdv3y468m2noZdXZ2qb/ihALqtaq9R+
GpL8Yuv6Yk4REHu4Qq44DRmHSjWP7EBgyv80mEuehvItLgeq3wCQLI834wEa
iq3vDyQnK8PByM85Oho0NPVE+3vjXRUo5ml44aNDQ5W2x09OZaqCVG54oZMB
DVnUkiaKnqqBk7JscbkxDTkPT4dKVKpDIiNnuCL24Qt1dd2rUgP+pjHOSmAf
3mkJTzM3aYLNtqjWDnxehOvcmHpXrwX2gxd96bEPeRfepIrVnYboIasTK5hV
RDgLB95og2OrysM27INufn/B6TYdsBVbOuGCfZB400Vv/EEXrqYVF05jDiw7
pbLnqx6496/NGuL9Lu526FzOkD4wBdQOZGO2e3iIIXjKAHhfhp0dIs6Tqso+
zfOG4D0a2fofsT9L6jZ2/TGEPXpKz+Qwa/zosb1xwQimjvQtmBF+bM2RmV4w
AvrpxWZvzN2+l9BssDGsFtirRGHmyFx4l/zPGK63JObexBz7qb9uIcgEEN3K
Ug5msH79mZWOBKdbXxwrwCzR7Om3FE6CD0z9HGWY2UKKpeU2mUImI1/eC8y7
eJ+5mCSaAofPfH4dZvI9t+2GW83guF1YWCPmQRfJ34sp+HyIKSx5Tezv+TuW
J7ebg4DO+g7CB1qayx61ZHN4/apyjTgvCi4DxxIXGe4c+5BG+BBe9iohOY0M
yRtPacR5wd0cpPozcRE1ySyGDq+/RWfYU/ojA9mBSd1UJiuoG31/FkFbN94F
H/Z9X2Ke7EEGyceOTx9Qg/tLkzdE8LzAJN9w+aehLtRwWNY8xe8j1F79gEsL
CVLG/iRVEL5zyt6bMSHD3SO+J4j15qy+vvs0SAYuunl7wse2BJrWvEsPKppi
VCOfbUBqYz6vK3rp4d6sGY+0ZydaXdsdTrbaDhVbWt7cP9CDjrnVbtnQ2gNC
DSvUu0IUlJfk0u6ZKgBbFG+x3kmgoBqlCWW9FmHwzq5y1xmnIEfr54PJjSKg
LLt8XUiCirqTnoTrMYvjHpu95DxHRW2pZyga6ZLwcbyI42cmFf25veXP7RvS
sKIyd+xGExUdYJN96lgkAxfWJlmGRqjIy7vnPvmhHLSN2ycp/aOimYmWPQOZ
8pDPUF3RwUFDF7qOi75/rgB++wdFL+3Df9+EvvaVEkVQKUWugmK450n/Zn5Q
lCBnlG1gWo6GxOY+ibL7ATBZarUpIfz/e3ltNMhLGYzftTEkqtMQSWFp+sBl
FZA5JLp3FM9vySbyq0+CVCF+9vORH3h+W5Fq1mdPUINkupnfZtjH4ClSeE+a
OixtMJMX8fzmoFRd45GqAUwhJ/b+xfNbp+aAslqeJhxVK67LwT5CV8VYaY4W
mD+O+PsFn1dUKyUd54zTUDKqZTKIffyeE7Vq9kgbBqs8s8uwjzZhWZUCD3Ug
kf+oAgm/bzZh+udtlbpQ3OLA+BnzmzyPJGqDHqTa6gtqYN+mXj72e16H5zdV
z/BbmJMT7t+nthvAv7XdVz5gFjx35FKToyGcgQCHzXg/XNtlHY6GDWFc05Ze
mpjXMqaffnI2gou+r6JMMF/3GrUd+W4E/ZuMOs5hFudVlGfzNAau3jjOSMwU
Vp+cpWljkJA5PH2DOF+WgpzZ3U3gyFubkGxi/zWNmijNmsD2jmO8TzDfHahq
GfQmwWBfBF8pcX6ZlZDdl0iQEFw3TsxvAkjM6nGIKejxnuUlfOQJ2D5ivGoK
ILVrE+Fjf7Tp9b1XzCBnS6IF4eOd3oCOZ/TmMHhyH4WY3yYOebo4hZlD+Gx+
E+HjimmzqAIzGd6MKXoQPgrHLa6sRZHhRzxDEeHHurpM/ey9v+hI+6OiZkob
qmc6oNBgvhnONZq65Up2o8r6HKsC0k5olUlTinnTg0SiZJYKGNXgnu/t8ZfE
vLIjJva1hC7s628cycTvY+rS9UCdchJwBLNVl+Pnv/hRVSulRoYzXWGcxHrp
UtwqWh1keG3ciggf09P1XWYSx1FChYFDbGwLipjX3lDYxQLRt7xYjl/oQlLQ
2DYZ9A9VBjzn+/m3Ha3u2PBXv8MBZdGJPZ613cgo5rGT5y8yeObsuUI8742k
rwuL6yvEH4Sse5zqkL9DTQDpNR2eB67uPLKnE40yP1KTGNwGxw6C/ejWHqQQ
TOds0skNlR2ybIq8FMQ0JHmux1AA+F0XqhVjMJc/3CMdIwylKhJS50co6Npt
blHxEBGINtoR0y2K50/K5G7RJjGwSi8UynOlIm6tJbmFi5Lwno3eyvQuFZUU
L3Pme0tDXMDuG5oNVEQu5XMrSZCBu48iDhwepiLXjAPM6rFywOd6MnJ0Gf8+
0FtW6LI8eHgqOGRuxT7ODAzZpiqAWLw16TY/nh+9NGpdkxSB1e5shc0RGkpK
s2PxK1YCxjecqiTst0/jtUhvBwDOkG0vu/H97NLJszwJZ5ShTyk76Qj2+xqD
wYy5hwrMpakYZWK/g7teDF51UwWmGE22Z9hvHc8VesXLavCp+RXzIew3i/cm
eoFYdWANp27qxX7n+6dzu1/RgCec7yN6sd9arXKejimaELbRAVex3wIcbaMC
yVqgzsRM7sJ+u+oHHbxy7TTQ/iRt6sJ+Vw6cepCarg1eVmu2j7Df4+fCFdlv
6cDNzNwIbbx/5mh3tzA9xH7v3BPdh/nn3chy8VI90JDtygLsb5vzZEBdkT7o
rtlWJWN+HGbvv1pjAJYF4Ru9xPn75nv7hpUheG3sy2XF+yH/dGHDuw+GwNir
mnWUOF/PL5M2bIzA+4lPkxFmwX2x82c+G8EWFx4ND8zWvlkyXE7GUFCQMheO
uaxOLFps1Bg+MpG2EH6/iulUSLc3gYeu8rVZmPUX5pIsJkygNO1y4mOiB+PW
M/ouJODZKZhH3M8amks8mGbxfGoYGkf4nW843UsLMIUTf2vfE/ezIFsn7d6/
pnC5N7qTuJ/1crnaiF82g2m+LeKE31qvv12ZWDaDhzoBTwm//We9ORYumEP/
eHA+4bdgc9RxqzVz0H6wSCL8XvDbUSYTTAaWXfK3Cd/8WG9c9iv4jWx2UQfv
72tDM+Fe0zaam0CjV37Gi7Ub5byREAjv44LgmAWz9PIetHO9/MO1P6owqLu3
Pxr7nUPntrWETxeOMu7RSMXvQyBGJq+uEM8TJZk6hN9fLS69NVYkQ21m5jqx
viuvzHJoExnyBbUlCB9DedhG/tz7hqbyZacl/F+jMt/Uko/MzMCS47IwrdiF
8un5YzyilpFQPOVoZVg7EkvWOjgatxVsev+LZ8vsRoK+r3nzv5MBPj3yI56X
BgvP/ib2o1/ryidXxxrRDvdDO3Z/Z4CRndWestWdKD6qn847fR65BAWq93m/
RUlxA3H7XbdA6H/htyfNulEJ160f00HTqD7M9vTrkDfI8BK9fuZBVpgd0n1S
WtCF6kPPbnH1XUPlN5qrflt3oPCMhGdyi2TYE6pzk1i/MfBZvohrMaIksU8/
SaxFCQK23UKKdNCnOZDQM92BPlz9dfBO5jZ49mC9KoO+B9UzC91cS+SGma6s
3jBuCpKJ3XmK7qgADPwKdWO5QkGPf0VH5zsLg1hUdQr9VwrKltMx+GcpAs2i
rdeyD+F5/vfVb2n3xIC/UMX/uzOe13PVp/RcJWHeNMuc5Q4Vbav1uf/ERhoE
1PYW7HtFRb+ZOVvfB8uAdOxItN5XKnIupcjWXpSDI5KLr2VxX9hBTVXTXR7M
5b04GXFfVOgkavOjFKBIMLb5IO5LjWTTeasQRait2Xj97zAN3ea5eaM8Wwky
ne/nsuK+cD4ekci1BNiy218wDfdlYcWwgstUGbJDXmmtqOH97bwy6+OoAo7W
v7cE4r74bV7uXLZTBeZNQxlJuC9zm9MG3vmpgQaZvoMD90W31FFZK0wd9id7
H2vCfWm5HqM5GaQBfCyZbC24Lyyxowznr2mCIevYtxDcl2QJqiM5Tguqetr8
XuO+lGtyp26PPA1FMTn6LbgvOZfuXnp+XRsuKNSX5uK+FH3z3YhI0IHtL4fS
1PH+dS8Yr8rN0gVPXblaKma63UmtVk/04EGTYO8p3I+q2qsXVfL1YUfTiE4S
ZplLDYPbnxsA5/ik/DvMYX+bzvOTDWHudr0iC94Pkt9oX7N6DSHvUL2LBDHP
24Y/3m5lBFXaS18MMXtcJDfs/WgE7J4KEe7EPLC3W5rH3hjULnOcJfqSx70l
UOOrMZybV7hLfP/h15/Ptz5jAjVq2yyIvqz+FyLmMmoCEuMO6kRfpj2PMrE5
kmDTpwZHoi8yK5IB1GkSLP8zJxN9cf7Yvn3C1xSEahKfE30pIF1fT50xBYOS
sadEX0ysf6vLXTSDWyMJu4i+CLzksWNeMIPTXbMZRF9qSL/t6/3MoeonukX0
pfKSU73Hsjms2FeeJvy2cc3dSrlIhsObZZOIvoi5IstjxbOodbWU9e6rVsSG
dqhJvGKDr95OYjm/u1Cq9gWG6Vtc8MFyLdO7sAexn5xvW5lUhacVcetuuC9n
L1pSDuzUBcHt/tPX8fs4yc5adeERCbbu1uAi+uK/zdLQUZ4MkVPX54j1qdub
SDz1ZBjy9j1A+Ph74GyOf8EwOsOponLhSzNqP3pi05MQJnjOMdetzt+FbBw6
z4pdXUJnKSyzi9CO1PR/hj6n2wr+F6cK0+O7UbyzcSAaJkNZnpk78byQ5mLR
xXvv0P4LhkViRxqRmEinx5g1AwRdNDYWTu1Eat+jh45mzqFTk8dizgm+RQ81
wodnhzbDK21+ET61biT8/vcTz6hJJPRO8TknyxvkevzhQ49sFpCtt37OdKML
BQ5xTolcWEXL4RYRDaIdaCKZZzPtDxkKAxXiifV3P1w3zvhHhug+3QyCq9hE
93m65iDBbNUNhfQaJLXhML9rdgPlNV0TP9nbgWg6nLe7g7dBXrpnjNW/bhSu
Xf6E5sUNQnwp7tm7KEh3IPYBN78AcAwYHXWLoKCV+IDaz2bCkEEutmv9gvsT
fdZh5LQIFPoqiEcfxPcVesu3XdfFoK/0Az0L7k2q/o/mS3aSEGEjv9nmNu4P
FHmImUlDwfm3M9fqqUhJkn1h0l8GCpDFky9DVHRW8aD+grccsJ+nLX5eoqKx
+xLaH+3lgRmJ0FWy4/3F1i/SGqwAkSWbS3/y0dBWTjpKr78isPm5sbTj3mRa
i/WbpimBtgT33mFZfJ/I4GCuMQP49jmw5BLuTYVlK8NHQ2UwSLkROYx7U8ZN
8Q2xVYFR63WKE+7NL5E9LaXWqiC51NUdinvT9tGxLcdLDdwXDDIZcG+8aMn2
1pfV4dBhU8Vq3BszvvUvjy9owAa1Gepwb74713YFxWjCmlSreCDuTVu9qZB/
lBb0JKCVV7g3lmrj7R9CTgObW5pHI+5Nalvbt6Z4bdh3v+t9Nu4NR87UV8U4
HXw+9/Gp4v18cBdHks8dXUhuTXrXg3lz3w6q3wM9qNnv7amIeyIxZrHEdE8f
GgYduBIxr8zPJPMWG0D0RTcSDTPHNak2cTNDoBzJvcpMnO/FY7ORNENYq93b
SXxvlulTpfFYGAErx6NzRG+ShRofrLw3grPtx/mJ3oDvmBSfrTGEarrtJXrD
oxHka/LFGBhIDvZEb7pKN1kiKxOwtao8RPSGxqv8z3PEBF5MHNxP9Gap5HbS
qB0J2hwd1YjeeO38vVw1SQKLFkEgetOWpVDyx9sU9pZ8zSV6o2KQTw74aQqt
dhHZRG846SqrFQLMoOO80haiN+zyct075syA9brgTaI3gyxl8Xk+5hC5NT2R
6A1dXx+9/6I5eDJxqBG+czq61mYF4PvLvyNXid7E3U57e1NqFv0O7bdNTWxF
XNlOszsvs4FYpQXP2bEulMR+97zABS6Y38y3q+dhD4q12NlY9l0VjONX1qxw
b95Ivyv9uk0X1i0YaxPx+9Ay8FE2eUAC9ZN+S8T3wnqP9psecmR4WRs5Q6wf
w36VYaKWDGph6wKEj4WKO0Jli7+iUEpRtW1yM3qfFF+RfIIJZsUaAlw5ulBt
ilBvwpYlNGuxb8hSoB0ZPkVHMl6yw7kQ14NiV7oR2O85uHWIDILDh5yJ581G
sY8HFlBRqWJ5kvjbBiQfy8/dzc0A43+3H58M70S5Oz/rJ/PPoaksx8PCK22o
7AEt8UMGvp9lp/UFKHSjL3L34iSuTiBrKYP3z1pbkH/akrGJJQvMbnMWbb7S
hXr/c7e4uvQPTfydeib+XwfKjB+uypklwzc2sVhi/c57LXRuy2SQ5tNPJ9ih
8PiDrjUydBZq5hCc/2HmU7yEILzyXF7yLKUg64yyF/ES0sDOfVKwvJaKXqze
fBQvoQLnlOdGA07TUFNhtx9VXQdUrM4Y8uD/r/NTppx4CWP4cm24OhA/b4op
L0oCC72be/ky8X3VWfvnFar6STi+l+uYnRANnSJJJUrUaIBux71TsuY0pMl4
juxPNYC7wsfmPmIfRCzebT/jT4LHcXRniPvz/0huGoM=
   "], {{{}, {}, 
     {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwl1GWUVWUYBtBBQEAaaSQGkEZApUsaaYZuGBRsbMVWBAtbOg1swFbsbgW7
FexO7NzP8se+b8ysdZ77nXNPYfG8oiNKFBQUbPGRepCPQt7Rr+Fa/QzqcID5
SnUy1XndfKM6m/rsY16hFlGBF83Xq7OoxxLz1epUavKm+Wb1QBqyi/lgtTHv
6tdynX4mdfN/5qvUKdTgDfNNyUUD9jWvVMdQka3mG9Ri9mCp+Rp1GrV4y1yS
Q/RNeE+/jjl0ZJXdWCqxzbyMUhxqbsr7+vXMpROlOcx+Tz7IWeU86cwtdruq
h6vN2J7vku9LF8qQG9GcHTmn5KIrZZln34IP8x2SgW6U40j7lnyk35AMdOdW
u93Uo9RWfJz7mQz0oDxH27fmk5x1MtCTChxj34ZPcx+TgV5U5Fj7tnyWM04G
elOJ4+z34vM8H7k+d5n3UytzvL4dX+T+JQN9qMIJ9u35Ms9GMtCXqpxo34Gv
9BuTgX5UY7793nyt35QM9Oc2u93Vk/J88o1+czIwgOqcnGeHb3OfkoGBrLYb
R2VeMi+nBqeYO/Jdzji5GERNTrXvxPe5dnIxmFqcZt+ZH/S3JxN3m/dXa3O6
vgs/6u9ILoZQhzPsu/KT/s5kYCh1OdO+GztzzsnAMOpxln13fs61koHhuX5+
E+oCtQe/6O9JBkawxm48VXjZvIL6nG3uya/6LcnFSBqw0L4Xv+nvTS5G0ZBF
9r35XX9fcjGaRpyTZ4M/9Pcnh36BWkQh55r78Kf+gWRgDI05z74vf+kfTAbG
0oTz7fvxt/6hZGAcTbnAvj//6B9OBsbn3PP7VRerA/hX/0gyMIFmXGg/kLww
H00GJtKci+wGUYLHkoFJtOBiu8F5z/F4MjCZllyS54CSPFHw//t4sTqFtfoJ
VOUV80pacal5CKV4MrmYSmsusxtKaZ5KLqbRhsvthuV9xNPJxXTacoXdcMrw
THIxI89cftPqEnUEZXk2GZhJO5bajaQczyUDs2jPMrtReR/xfDJQzDrzRKrx
qnkVHVhuHk15XkguZrPePCm/aV4zr2aDfjq1edu8UZ1DIzYxl815P/jbf4oF
xd0=
       "]]}}, {
     {RGBColor[
       NCache[
        Rational[2, 3], 0.6666666666666666], 0, 0], 
      PointBox[{432, 433, 434, 435, 436, 437, 438, 439, 440, 441}]}, {}, {}}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox[
     RowBox[{"\"I\"", "(", "t", ")"}], TraditionalForm]},
  AxesOrigin->{0, 0.1},
  Method->{},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.5681476864385567`*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJwdmHc81d8fxy9ZZXzNkkoqCdlJEs7b3vviGkkpW/ZWKVFGdrJHWSkZSUUU
ZTWsBqXl3muEMpIk8juf318ez4d7z73383m9nud9PrtO+FqeYiSRSD0MJBLx
d3fK2o1C4Tb150jY78ABGjJsYTUdd1tHL99Qd0lm0NErTqWNTEe5IVU0vSEq
iI40U3SeVJgJQvXb6OlmaTo6JbvCKc8pAiJ6nT+av9OQicSp+c16opBpHnvf
4S4N1b85E9yjLA47xyNOJMbR0BFeyRqmc1LwhjMDrTjRkNvf9IIyihwIfe+Z
b0I05Ns5caDGRAFqLz46JS1OQwn2LHvXvBVBrVjybTEfDbl0RbrKuyuBTsei
pDYTDbWxbrXwslOGRvrq7+3LVCTPE531LUgFFqTeGaR8pyLnn2pSpt6qMJ62
kNwwRkUlhR3bf19RB/Ovc2HfP1PR3WSVkUFLAO3WlQ+331NRUJOaeYGxBhwv
Pjjd8ZaKHj8vW4h30ARVvaSfboNU5KF3uMWDogVlHbHh3/qoKL9S/p6Xpzac
lSxi73hFRWk/W877herANe6JyzteUtF4VXCIe4AuiFntb6Q9p6JnuunZFy7o
wS9Zridve6iIwewDNSVaH7xZ12S5MJM0GhmKww0gpnS5yr+bii5v+W0yeMkQ
BI7+bp/qoiI/e5f23zFGQMkZmojDPHpe8SS6agwiH0OOyGPmz8j5EF9iAp4q
RryznVRUzi0Z3pVnCpa2SdytmNsCdursu2UGdTaLXzMwF4oUb1cjm0OVXHxd
EOaWqBWSe785eL3bpO6IeZcR6+oeWws4/V+JmB7mhj6JxPdvLMAgLiT+EOak
zn9yIkctQetDkKgk5ozAb57OHy1BuaFQVQRzlIDwf7vtrMCV+XSYIOabEszP
g75awc1h9W4ezCyLDFvbnMjwWibmHQfmCrm6s4UTZDBebM9mwyxxosp0zcca
+hKuWDJjHjF4WG89bQ2FdLkxRsyDNyKkUaAN6D+b7CVhXr5robp7wQZ0RlO0
1zuoaP1BwL2407YwfuQr9z/MRnK6OlG/bMHk2DrzGuauo7IeXoEUyN5jC6uY
79T6/V5fp4DuYdH0v5ifp434T7rNopNdA2viunQksnY/f02JDR6jjuyYdDq6
3NtCt7bhB27+jBELCzqyu12zvkdyN5T2nBoU7qMh0jn/A3NIDHK7dXd9zqOh
kJ9WvBMOkuD/xOR8rT8NXWQS/7UvWwbO/9p+NdqUhqadW9wlreRB1Po9MwX3
MYo7VMrm6AFY7/+rarGDhpa423SueR4Etq7P1y+z01C623OHXudD8K55ouXT
GhWFJ70MlHQ7DMwc9fGXFqhIn/HYaJ7fEajN8GHx+obz1XO+dPcZNVgQ3O+z
g0pFTE4FHr05COpdOZ7u/UhFmaKPBB70AcxUBDAWDlFRbrt/Cd8bDRDb0gNr
r3G+4meH/rzXhIxtaGbzABUxhh186DmqBfa9f+909lLR5t7QbT/mtGFiIbaR
jvOv2rc1amZRB5KLYDr0BRW9XY65FLyiC+LxhTlk3AeqYaNaPIM+DFut2XsT
+dfXX9iypg+39aTym3H+tW+/2/eQZAiFLM7SkphXlaXZxpiNIIGFzN6I8y7+
wygjj8MYfH7cibLDHLHJrejkNhPIsf8hw4X508DozUphU4h5I6n0lshvm+ix
0D1mgNpW71ZgXp+5dmyS3xwK1BfdYjDfMX2VbJluDtJVWS/cMM/Sov918FmA
Y/YstwVmzyvZT/9dtYB8d79JdcwiRvyfVwUt4b7eDV85zNw7Fk2e5FvCiwHO
b6KYLz/boNYmZAU6XkZ7tmNOL0rzfpFvBRF9DTP8mIeTY+Zzd5KBOSZr/3+Y
bdLfv5C9QYallpCsTZjde6rHX0laQ8YGu08smBnf1UXfvG0NBaMxm5gwv1va
6mcoawNcOjM9DJjH9o831NbbQEKF2z8i/1FK1DCynC3sSpe7TuS/LMjxDEO9
LViElcYQ+d/YpTIUqEgBDcuKAiL/KqzmtfceUoBu100j8t+jEvNwxu0Lejh+
ofvZKA1Rv386HvZrA3yrXPzyPZuOJH/8Wbptxwvc367qH3Choy/f38RVbdsF
dco75//7TENiZK/0GK29UHa7i0auoCF++qQWxVAC0pXjhd9F0pAzu4RlVqI0
5i7FizY0JCEjvmHyrRzsPCl6xfkw7ouXbO2FtwqwVzKx99puGnpyz+Xg82lF
kL6vTQ/7j4YituwZPUdXguWUUqm/JBra8TyAavhVGSI3v49Q+0VFj+Jnm9sX
VMCYfvfO6Wkqkvt8zP3Boirs2TVrNUKjIsuz8k+pfAikQk/Ln/tERaV2kWE6
aQAGQz8OFg5T0aXWoTBKqgZEHmrs+vCGiqZuGo615WpCocb5liac/8Zjh45M
5WsB4/bLNVZ4P7BrJk/ertYG2P8y0QLvB66j02dlGnXgz8KgdzfO/+eB1X+n
G3WBj3NyPQfn/7W+6DRzux5E7itLK8L5jzZKm3rdqg8X1M3baTjv10M6M6Va
DGDLzNp7Y8ya4ry3RjoNIeRbRVUfzrdx6VCVQbcR1DR9jPbFLNP5isFy2Bia
+hjldmIOq1fT3PrVBFg9RLpHcT6kPfZ5F30xhfWVscR6zM7l+xijpswgJYfL
I5HYL+43vtULNIf2Jmue00Qea1vWNy+YwyBTe5QNZt2ZvmNpIRagQeWe0iT6
wFmkOL1kASaTt74ewNzrH47moizhFKkpcB9mrvyl16l/LUGNyWyXMOZLH4Za
liKsYGvM29LNmMHx2SdWEhn2ZAb5cWOWeeoTsBxNBhb9oWp2zGxnahSUNlrD
cufZBlbMm7ffcbO6Yg15PJ9uEvmnFHvwmHPaAIuWjhWxH3x0k5v/nW4DjtJN
LsR+oPIrx/4Ijy1cLRGYJ/I/mOW2VTvVFpI49LuJ/FdFAtcyPwWOVjn2E/mP
rn+clJpFAZHtBdwECz6N0Pp+5TeizTWdt4+ko6Mc6UMXwjigUYSx0iSWjsxS
Dxya3qsN/s6zvzWw/5iUn0R+NzeGolHFJ9r4+p89rrPXrYMMPCydKRuJPvMe
LJ61osBy0l0fYv1Fh6+vP3ykwJ6J6odE37qTBvV/ufUhrZNSJ0av0pD2uN+z
e28YwK+PLZcF9211bUs0xYEH8ipdny150dH1ZLfnPpkikG7n7No7RkNN6pMa
Jh2iUJ5+fkmnGs9Ljnc/praJg3tW3nHh8zTUm3wz2oRZGh57JmXU2tNQd+bR
ft1rclCs4KUTo0pDC9nsC9lpCtCR+S6YspeG9rIdrHa5rQhSzKSHsTw0dNq3
7walXAm8CnIFchlpaHayY+tIvjLUfm4erViiopBXhyTe3VWBWywcOpEz+PdM
mhrG1KrCsf0vfJ7RsZ+T/87O9KuDTtyGigN4/pJa/CDBEQDw7t/z6j14/jr7
KIEecVoDTpR9yDbF8xdZZXl6b6Qm+A3H7eHG81eqlfLqzQgt+CtZFFCA+7Yi
/9SUI0kbPPfu8UvAfYuaIkf3ZeH561aQywLu2wn1h01embqQkF9k3Ir79lJv
REP7uh6wBxjqNeG+wat743VF+uARt/fOMu7XgIO6kWueAWinDf51wjxWdHHV
psIQnCx5WT/h++l0rqBRpNwI0tvVWCIxs4ky3O1uNIb+8jA+ccyd172SB56Y
gNnoOetJfL+nHlUG3G0xhZbItUMPMKcm3bgx8NwM+LOeXE3BvNt7f3i7iznM
qLyx9secsNkxGo2aA0h7WtoR+1XedPUHVwuoqx0h6WBOOU0/Rh2zAPP/hqoP
En3erqrM5mMJtCS5LnHM/ax+RcvTlnAmVmH/TmK/WI5w5fC0Al0n4cQtmBfb
6Vbqc1YQzPNzKzF/5Y7c7/joSwZD/UVEzF/DNrUUz2UyvELfRYn5SwRJOVSe
sYZbQ4xrRN+EgnmolqvWwPVGOI/o21Csdcq2GBvIfZWUTfQt503wizsMtqDL
dESI2H8m9/m4nTpnC7RlnhmibyvWTyVUmClgE/xqisi/6OXfK2sXKSAXLiRO
8D8dxda54p/Iftc+uuMpOmpl2qvyxHYTZLg0csYm0ZH4RcXlqg3aoH0mzjKG
mDf44i49kzEGNsGhJVN8/afCU8KMGshQsLqFh9g/H8zcb5bXpgDbgm0ssf41
eUFN/RcUmKW49hJ9u3bN1G32ygSqZHBaN95GR+d/Ga6rbGaB9kr55qEsOpKH
tu5vEX/Rx1Ns04IJuH9860E6OVzwwpl+VfEMHVnEVZ7y+UGBlPKcMmK9Tjl/
Nxb3xyg7b2t1vRsNBZ1oCiY/I4FjGlVYAq9HZ67QlvnIDbuLOdW1/OiI6Yuc
d5+5CDyWpWo//kZDTA3lWxXiRIF0+pmScS0+/2QLSkifEQf2/gXV/hg8L/Z/
2yLRLgXCnZ8aBhxpSFB/WWkpVA5sioyCt6vTUG3NH95SXwWwZ9ByfCJGQ5S6
HR61SYpgt+odlsZLQ+55e5l1LinBe2uHRp8N+P9hvgf3RCoDxy4W3uO/cd9m
R74cy1QBbZ1LNkz4/MR/WrfZPVkVwlPlc4/g81NyljNLQI06KNNGRlNwf/3a
Ei74ngCI89z20g33N/zISaGkoxrA1qvWH4/7m8BoNmvrpQnXjeVajuD+Rr16
8DHeQwvW2nyknuL+GvmsMKhGagNda1tcBe4vi+9GBpFLOvDjWX8fK54fS4Ou
CXrG6MLyPPrUj/ur36Xk45KuBwrFv6a6cH9FuLrpIqn6oLzO5bgBs7tphFhM
ggGwRAVpuOP+No6olWVeMwSYGBim4XxMeEerclw1gnEVo+lozIuDuexM5cZQ
/7OtUArz99wLDdJ1JlApTq2exvnpdv0W3HLbFDaeKRFuxlx57njQapMZiJmd
uZ9G7J+dY8/XHcyBlNpECsRcanDryethc2jq9+2wJ/bHwD/kdScLkCR95tEl
+r7z0q+jnyzg2Yb+HCXMjv4FivynLGGzfWaQBOb6FqlYKbolNGou1hP9fRz3
UuXacSuI6R0jEecn06XFZLtJKyiPOudH9Ld/wnHW1I0MM41VCUR/nzyt9WKa
I4PcYQ8nor+l5tNvBoOtIbAwYh9xfoo4dsrwzU9riOn5+pjo7xt+dyfpSBtg
1Yy/S/RX/xktZvKPDWR/VZcl+hs058u1FGILlx/b/iP6u/vpxUMOa7Zg+cJk
mejTUgBfvWIUBS5fFFEkOIA1LTKgah6NlOTWcdrS0Wz06WknvY0g/Tl8qC6F
jgT+NQwnLGjBBGPk41Lc3yKSB2ftDmOIs+6UJePrLxKneL3lFhk+VmtZEf39
ahfeY6lKgX0zHmnE+u7bFf+cbadA+QDDe6JvZ4XYqAvFuBcRXXxXSXRU759Z
+56ZGXrOkSwP4v2ylEE4zuviH8S1ack+LoaOpFL1xeiXOWHTw5xHlPN0tNv/
2fbSMQqkZaXUEOtlwdKdn1eGkHZq1l3nVhri89zHt2WMEXh2bvw1gddLvDhE
8r32C1WZ3fRx9qej5Msjl3e5s0N2TdW5TfF0VMt/dWY6YhopszxKdFSgI/Nw
BtN8MVYgTcyi6Uzss7Mn2d3915DsKEOIBr4e0XlJd5R+U8DZ60Ue8fltYXdK
xd1rUHHq8Xt6+DyYJHKsd48qCQJVGO368fuH43+I5eRzg4dEQc6JADpSvCSg
RpIVAVkBOZFH0zRU+SM2ttRVFL7QXr4arKOhQiUjs7/24iBs1FoqFYvn7fl4
WlaxFGyvy2QfO4rn6RKdKRN3ObiXuMY2jf3B3ex346aTArx7kHIkZB8NzTPz
dr2LUoQdXp71gnw05FrXf7A5VAleld28Ooz9wQHaWnqeyhB+rba6FftDkyTT
XHpRBUIHUjMMsD+a5NoDHc6owr4V7pFQ7I9soYy0hkJ12Lw/8Xwr9gdvJVWm
xB7AXVHrYAL2x9KK+T1+aw3IruNtq8D+KHVdmfNz0YRt/aXPLLA/Ajb9efnH
WQtK1LzgHfbH4qaskdcB2jB0tU+lEfvDuM5FQ/+cDjBpN1znxf7oSInT+xaB
/fE1Fz5gf7BcojMGJuhB5heDvl7si1SZARfKZX0gy6u1sWFu0BPM5LlgAJ6e
dfPe2B9F4bnhd1MM4ZpCr+EEzudtmv/6+SQjKD+fOx6D2bNq4n5JgTEoO05N
yWAmbUnucrhpAlu3ZTh9x/m93xwfqllqClNn92c9wqwY/uQjz10z0J1GL9Ix
n/vZHihMMYex+RPDhD/kaINfC96YQ7rcxvMOxLx9LLqSx8EClo535hH+8Aql
PNn23gJuJErxEM9fFrf1Kggdt4QSX8WXhD+uC7KH6X61BFfepN+EP4RNf5U6
HrUCUxd/VcIfq/+dkXKjW0FPoHI+4Y9pH1kmNhcyPKIE1BL+UFyRCx6YJoPd
zohIwh+u75/zTPpbwwPfOVXCH1XklH+Zs9bgyBs6SPjDynFeRynUBnxKpNoI
f4g8EnJmXsI+qfx0mPBHE3n+eGuALawnZbAS83dj+KlWrz+28NxZZJ3os5N7
CWd/KAUy7h1UIVjKHdkfqJlDbhtZlhZM6YgN8WnLPGaDlxdGlsTS6IjjyK/u
lW9a4JDZXX4P++NkqH3/XgFjiPBqeG2Dr/8RDtb7IRVkMGJ9FET4I4jb3txF
mQKjYjHXiPUHeNrJQq0UELx57DPRt/mRk0VBVaPoUlO52/15Gnoue3jjzTNM
sHPdt6sC993pxMuTUvHL6FUWelJ+jo60Tb+fvUviBIPJtzfssE8SXS3D0CgF
OCpzGoj1zjytkfhd/BpZSgm7v6qiISnxl17jjowQGlN2JxOvpz0W+0U2fxGl
kNKGbuD5vVw3enTuyyZw+MvZ2o/nC9F38zd9Ln5Dex1cNLT20ZH7ofJyr0IW
oH7+wLlwlY7CvvBOiYesoo9fntwewvPQZKrQpsEFCmwtqC7+v7/SddRXr3Qh
5ytt9+PP0ZBjqcCOWGMGkN7sU3j4Gh09KKfm15UtIG++YZkYJzraZHdL1P/a
GBLo7Br05qKj3LuztpuSmaE5eqUmB79+qti3ourcCjpFtqxbj6OjlVsXmvR8
NsCt2R2nmHLoaHCPxO476UtoOICjLzeEjpSbHX+9vMMK6tspDzsy8Hwj3ChV
4f0PDZcEkR3w/dtS/s8y7y8FZv4uZBHf9z6bxE4f9yJk2xYiuAg0JL9+4tfm
uXXEa/CfJiv23aARb3ZvFDco3NOk+AXSkfHIpTJBYRHYI8t+s3mGhlYSg5s/
2YhCtaDkclY99l/syRNUA3HgE6t8MIJ918tg3/MqRQqKfjd7+DrRUKbpzNNw
Zzn4q1YyaImw/+C2l5SNApiYiVcMYN+py3EsfQtSBBmtvHJH7LuTqmKmS75K
0MEUZcDFREPjN2QM3x9Xhkb2+Uffse+a2IbEu6JU4G/WuWPe2HecvKT+N0Gq
MJKbIZaFfZfvKDVknaUOd5+qLrzFvjuRx8XcZAOgCnHRedh39+y7GN+ba8Dl
9z97G7Hv6gX7/c8c04TN3XuHHLHvfohv7ahz1AKmg+bDX7Dvut+7dBed1oae
gNqiFuy704Opxx0jdSC14TifIPadzY5/nytDdKFMTejPZ+y7MdfmVxFxerCt
abvuIPZbd6v1nqCL+vD5i0coO2Z77Ynnw2cM4Mh1BRNf7LvM7m5ae6IhHPTe
zvIN94mraOqr6mUjcPSPcI3FLLaZK9kvB/su7gavHOZNb/kGAspM4Px3TuUf
xPl93G6ZqdgU9FtJVi2YV37Npm6vMQPbuyPWxPNmrgT5bmkbc2Df2qlNPG9e
qhmfuzBoDhMvHL8QvlN8qzUoZGcBja/5Rwnfpe5pK1t5ZwE3Hx4wIXwH/uPy
O45ZQs8lWCZ8J6Qb4W/12RKe8LMIEc+bX9VttEcOVnDh/HF7wneD2zX++lCt
wOO7fD3hu+Xa7GS6Mxl2pvs/JXx3WmD+z/1vZOC/uCWB8F13gUrtgq81dP3X
pEf4TtOslBL83RrME/pGCN/xkhofqgTbgHcuazfhOw5lpV6+RRv4aqWICN99
ZKlPvO5nC0wdhzgI35HevmUI+m0LzRbJjMT8xOvi3lwQTIEQmrYa4aPL2Vk9
GfJzqMgmJK7UkI74C0/NCUSyQfYW/5Bh3JdLdgJt9WNaMGTZJtaKfdep8Lru
K7cxLKil7KPg669v5qdhVUaGEq60WMJ3rV7PM7yUKLD7U0YusX4cRzzjZDMF
/pbyjhJ9u6XKd/ZgzVfk21Z8axSfN94lJ95LPcwEoYGN6f3YT83pe94ksS8j
33HRgmR8vjGvRvvzHnHAxa53VtYX6QiObxXj/EKBpOjd94n15i5yTIRVDSDP
Dd/LYvAcpnxJWLBXkBEo8/lq1ni9EoFPpqnCiyjxaqh0ujuez8oGrwznbQLn
zOTD1Yl09Fmp+LJM/CS66Pw24eQuOgrKWra0smeB86fZFTzweenNf5528ct/
0RbSlEYMfn1+4uj9ojkKxJ7afYP4/CiB9QfrxU9RTWuwS18gPt9scO/xZmMA
JalbQk34/QJDhzl4xRdQ87Bd1Ed7Onr20G6DQj4d7Wdre1rMiv3Lq8m0YMAM
av2ewTPYd3oDnZvZGVfQQPQWD7NYOmJhf+sqK7EBJpqdulfx75EhR6dxCSyh
okMH3DmDsM+FakoaPFmh57aPvCP21XFTznzW2TX0cnMnPyWVjl4Wd5A8/lDg
3urRHOL7Rrdx7FaNJkEE0zu+OOzz1v5xx7Y2Jjj59gc9EK8v0hP++F8xI0T2
7fTuwLytpjmi++cqWnxx9ePmZHw/dJ76FaQygH/hPo1K/H2TyQW3dg8yQ7yr
oo0a5h/GclzOdRtgXuCo/jp+/4lbh8perVHA1jUhk/j80uHZD4kyu6FY3HmO
3ov3h7z6B4kyCkCdm2pMlaChB6sZFYkymnAwQzb9B/ZP+63egAEdIyhoqRUt
xHlzrWYqSpSxhKFrNH8Z4vkG0/WLMlho7l+CJ4n8uxp+jxnQOQKVJr4OQlNU
pEaWvyLTpAvbeJelsrCP9DZ4U4IGzOC9QO+9ZPx+cbvXPEeDyLB99cJWoo//
AxltKx8=
       "], {{{}, {}, 
         {RGBColor[0, 0, 1], LineBox[CompressedData["
1:eJwl1Xe8jmUYAOBjhWzZ+yB7Zs9s2Rx7czJLUQiVUDRQFLJpaMveW9lFZaQS
lYZRomijrvvXH9d3j/ePc9/f87znS0wennR/ioSEhIM+Ig71kY9P5e+KfVgg
f03sQnbuVr8kdiATq+jPJ/pviT3IRRX1fLElt7CSfhzSf0PsRg7WMZBZ+q+I
HcnCmvhbHNN/R+zFVvKwgcGk9OweMT+bOKleIfZlGwvVr4td2cJtrGUAOyJ6
/rKYxGYys5pktnPU87fFnuRmPYOoqr9AbEVaPlC/KXYnJ7PVr4qdyMpxdSru
lRfgM/kiBlKN1KRhmGcF+Vy+mEFUZ1d8h+J9YiG+kC9hMDVISxxkYU7JlzKE
mqRjuH4Rvoyzi3OmFukZoZ/I6fgu4vukNrv1bhUfEItyJs4ndqAOGXhQvxhf
xb4xP3XJyEj94nwtXxazU49MjNK/nW/ibsXs1Cczo/VLcDbOLmZnn/pOMQsP
yUvybdyjmJ8GZGWMfim+i/OI2WlINsbql+b7uKcxO43Izjj9MvwQ5x2z05j3
4s6ID4tlORd3MeanCTl4RL8c5+XLY36aslCvNen4UD2HnDyqLs+FeMdiH5qR
i/H6FbgY9zj2oTm5eUy/Ij/KV8Y+7FffJeZhgrwSP8lXxU60IC8T9StzSb46
9qEl+Zikfwc/y9fEPrQiP4/He8xl+dqYnda8H/dYfCLeBa7I18X8tGGRXhvS
c1j9IgWZrK7GL/L1sRNtKcQU/er8Kt8Q+9COwjypX4Or8o2xD+0pwlP6Nbkm
38QB+SSxA4k8ra7Fb/LNsRNJFOUZ/dr8Lt8S+9CRYkzVr8Mf8q0xO50ozjT9
uvwp3xaz05k9ca/F6WI9/pJvj/npQgme1a/P3/IdMT9dKclzcc/5R74zZqcb
pZih34Dr8l0xO90pzUz9htyQ7074///5VLEHi+Vt413miHouZXhe3Yibcc9j
J3pSlhf0G/NvnHXsQy/KMUu/CfGDsSf2oTflma3XlBTsjX3ow9641+IcsRkp
2Rc70ZeKcUf0mpOK/bET/agUM8c9JzUHYnb6s0Tdjgx8pJ5H5YjqFqThYOxD
MkvV7cnIx+r5LJN3Jhsn1MvF3uRlI0PYGe+IZ/8BEl7SFQ==
           "]]}}, {
         {RGBColor[0, 0, 
           NCache[
            Rational[2, 3], 0.6666666666666666]], 
          PointBox[{448, 449, 450, 451, 452, 453, 454, 455, 456, 
           457}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwdmXc4lt8fxxFSITOjREZRkpVknY+994PHKGRmhVBGUikzyU5EGV+kCO08
z2NkFVmRqDRIKCMrkd+5f3+5Xtfjus65zznv1+dz7nvPiVNWHgx0dHSr9HR0
xF/Ra+tFt3Y3aPTFjxbKKfQho/rNZuNeG8idUVXFcrkBdbIpbWE8xgGM0Up6
W4MpSOuaLu0/c36YPfa14jCiII9Dq2xybCIw/vGL7lIaBZlKeczt0BcHviQO
NPeLgmr6z4W2K0tCSKqz45/DVKTKtb+K8bw0SH268izrNBV5/U3LLyHLQviZ
zALrIio61fJdocpUHqrYizgoLVSU6MAsse6nCIoqinmqY1Tk1hrpKeetBAEJ
+RKtf6moYbOApa+9Mvwsqul9xkxDcpwxWT9CVKCW/ck/e3YacvmtLm3mpwan
Zb+krXPT0O1bL3ctX9WAkwmaqm/5aag2RWW41wqAV2fcIG0XDYU8U7fIN9GE
QoPcLXbCNETtKJlPcNQCeSGtvU/30NBJ/aP1J8naIHGb+3CUGA3llck99PXR
gRz1c2wb4jR0/Xf9hcAzuhDL/MVVai8NjVeEhnkH60GWZLwO8z4aatZLy7l4
UR9K1F8INmOmN3//5VqMAVj5JetYSNIQneYj+sJwQ7AVCTeiYI7nWzbtjTMC
hobL9EJSNBTo4Na4fMkYFpzmd7ph/nxB0R1lmkDGjRX1Asw86TfeJ9w2hRML
I3c7MZdy7A9vvWkGgRdPMM9ibggW1t131xxOua/ms+2noVsihbvUSRbwuYQ9
RQxzfdQqnXe3BTTYs5UpYt5jvHlNzM4SEsvygrQx172RShrqtwQeiHE3w5zc
8k9W5JgVXD0i1W6HOf30Dx+XESuw/zjw4jjmKN7d20XtrYG1flrOHXO5FFNH
yKg1ONUFjHljZl6gF2g4TgKnHDEnP8z/yT6IvvWdBPn1eqanMEudqDBb97eB
rcPnM4MwDxs+rbGZsoFi/T2mpzH3FkUcRKdtgc7yenMI5pVaSzXReVu4/Wvf
UCjmjSfBD68E2AFjZXV1GGZjWT3dqEU7eJGi6XsGc+uxQyd9T5Mh5YHXEsH3
qwOXNzbI4NEzF3gWc8f14aAJrxl0jSv5t+zVViSy/jhvXYkFDCfCvjE+oqL4
rvpvNrY8EF55MEhCjoKYl3f9Yjy8CwLGY+05PCnIvrJqQ2y/KNyj74lubqQg
uvNBCrNoL8xn3nA14aGisN/WXN8d90NA2PG3ubZUFMsoubgvRwY+PLXV+pBM
RVMu9d77reUg9R7XqU14vCiOM9K2xxTg/Hqn8fcBKlriaNDN9jkMiorcr8Tm
qCjNq8Oxy+UIpGpdvXWVgYbCk1+f3u91FD5zfX7TvJWGDBicP98MVAX/GR8h
Eic+b+0XikXPqQN8LZ9P2UFDjMfzT3bdQLBluVipW5CGMsRf8D55A/BuWt+I
ZTcN5TYG3ebu1wTRo0ZhuSL4vCXMDP4Z0gLqySryf6I0xHD28FOfz9rA/veE
uyHOw46uMzt/zepAR5fa7nwJGlJ7IxA1vaALGkIJy/k4H29XLsWFruqBzW6G
WR+chy9Gj9QT6A0gXlZGlJ3Ig4HBPN+6AXgvfjRNxKxTObDvKZ0RNBTaRc5i
XlM+yDLGZAzR/WNMWvh8S/4yTr/JagLGm83XLmKO2OpV4L7TFDabLg0+xvyh
53N52W4z0OAN6vyEua5B3PmMmDlsXD1au4F5YzrbeYLHAmTrypUEiPNg1pli
lWYB1fuHU6Uxz3yN+feS2xKoUvbRaph9ruY0/cu0BP4B86OGmEWMeT6u8VuB
QbG0szVmDqEFU1qeFXSZTIQ4Yo5v3qTeIGgN8qMb+a6Y0wqu+73Ks4apfMlq
T8zvUi7N5QqTIHcl5pkPZtu0oVeHikiQ9t/un/6YvdvvjXfutwFZg+CoQMwM
Aw9iyittgFehMzoY88CSQKDRIVvYejSYh8jD2IHxuuoaW1i+0GtL5CFK6ctZ
kqwdbHNeNCLyUBLidI6+xg6ovh7cxPnf0qoyeFqRDFdextQRrLLZovrhUzLY
WnYfIfLQrnLp6bTXJ+TAkG4/qtyJvvz84Hp2cRPwauhkCN2iof2//ixV2nNB
TKbc8pwmBYlry9nZaglC0dZiJGZJQZ9+9l+p2LkHejqMLZTvUtBekm/aJW0J
eHzKxJmPgYp4vk1ok42kgHPvIZaXelTksk3KKivpIEjOrineiKEiKRnJTRNv
ZcEg/m3hz0qcH99D1RffysNomNs4xxsqoj10O9wxpQhljqRMhykqiuAT+3z+
mxIk7hbjMKSjIaGO4C9Go8pg/vGu6RsWGnqRMPO8cV4FrjmXPfq8nYZkPzp7
P1lQg+UT2qoWvDRkFS3X9IUbQen4FLwXoKFi+8izutcBIlUORloJ0VAcZfAs
OVUTWoX8bq/jejFZbjTWkKsFYs0ROQo4D4+cj6hO5mlDlunHyTFcL+yfkyYq
7+mAfLd7sAXOg+fnqWiZR7rAcDDVxAPn4WPP2r+AR3rwJp8sooLz0GcgPsXU
qA9kTbf9k5hjjK9P9lEM4KjpG+4AfP7vhLVkSNcbwp1UC4l3mLUkue4OtxiB
+6v3LLL4PJsUD1YYthlD3Iu8+NOYZVo66a3emcCmjMyJu5jP1qhrCYyaAve9
i+sDmA+e3OdX8MkMVqXm+Fcwu5TuY4iaNIere1rSuPH+lz5+9Fb/tAXsMik6
IEmcz+r6jR3zFhBrFVmtjFlv+o3z9TBLkBLm8tEj8sFWoDi1ZAmd8S6LFpi7
gsLRbJQVhJWRKu0xs+ct9aX+tYI5t7IjLpjj3g/WL0VYw+7fDyM8MINT84fN
dCSYEHkxcBKzTJN/8EoMCVQHFvYTeWA5VyWvtMUGpkY6fhD1Yseu+17WV20g
bKiQncgDufAkpwWbLZxRmK4l6sWIl+zccpot6GrQthN5UFm84aDKaQdeXyu5
iTz0ZnkJ6KTaga5Z8FeCKyKBfYWHDOSZkVQiDzE11OTULDIcSz3ET+SBvylC
++fVZXR7s1BEHXczOsaaNnjxLCuoBOrYkUcpaOz+hd5/VjuAL9rv6lt5Cuqu
LRpNZtKAt0NxE8/4aMg8VeHIlIQOzCcHrJViXzIq0yJ/WpgAu9PZxOt4/U81
aDHJIBIE/vW47ovHa+OtzPUwsYGYBu2tRD305jpcOGNNhqkQ8wFifguOo33v
R8hg7HbchphfW3KvwaLXGySsVSLAeacb6YwHNj/sp4f0nsvnauUb0No6XwzZ
kROaisCcwYaCFE4+37ZhIABTS8vby/Up6E6KV4d/hgjoaZfdlyygoGcaE5qm
L8Vh0xzP7TsrFOTmVDuS2iAJZWc0aqM1qKgrpTzGlOkgiPdCsGwEFbVlHOvW
y5aF3FfzN+TKqGg+Z9t8znV5mDONuLDcQUUSLIfvuVUqQvOo3S7bCSoKOPWm
iFyqBCmhRQKH/1HRzMRLgeE8ZVg5f4utfTMNhXUekRqoVYHTd/hyRHBe2ybM
jC5Vq8HGjPXZch7s+5S/M9PdGlAlNHrPHudVeuG9FGswQL6F9pPfuL+LfpH4
LSJAE/qaNmXfxXklqaxMSURqQZ95muoy7u9SrZXXyiO0YS249cMDnNdVuSYz
1mQdUDqZ6SiJ8xo1SYp5k6ULDyz3NOrjvJ7QePrMN0MPutLZs0VwPl/rD2vq
3NGH0KozXoOYofPh+IMCA6jK9HRxxvnscdQw9rxpCOlzYj6vMI8VxK7Z/mcE
A3rDpXvxfh8/n/9IpNQYbj2pCPbFzCJOX9v2yARchuzulmBuueOb0kMzhYLn
bh69mCdflAXX1pvBy8RDwguYU5OLino6zOH53c47HHj/Rf0OhDe6WUBWevNX
CcyJO5xi0GcLOPQ8p1aJ6OduTt1772kJZg5cv3UwXwv45vxlzBK4quhrzDEf
3KWmzOJvBWbi0hQy5u7NgQUrU1ZQd+FzlDNRf1YiPFl9rCF9oe0d0d8tNH6z
1pi1Bjbx185EXnOHH78cOUUCMYUDL4n+7p1tNdlnhQR1m7vziLyKIGnHsnM2
8Mhbuo84z4KhnF+s1mxA35R8gcjr4GWbazsv2YJNTc0kUc9u9Ie+uk9vBwfP
vF0i8juxz9/L47wdBKoGdBB5XbVpklJhIoPgMYtoIg/i8cur67Fk8N50fTOR
h3+6ipTZwt/Iufp5Y9uNl4jCKKFCs9sKV1xuUzNUqOgRpcCxgsQL2ylyzzVl
KcibktZo16AObRucCvtwXiVjFVcqNunAvX0Px88S/Q33lbhmGRMomhN2TsTr
Ly7pFul+iAQPfl7aR+Q1Z6aSdkPVBjxijjUR9frJ9OPncjpk2Jtf+JKYX7Yc
v5bBKzI8XRrUI+aXnW3mNXP1O2rVVi7U2daBLiwabajsYIaA1g5WHxlcPz4O
+9OTuYH104WRDCUKkoOGth8Rf9Gr+f1KVV8b0Rr3RojuDXZQ/9Xw4DzOK0+B
m6G1JR88FE2L3qJMQZZXyjz8f5Hh+15PN2K8FtkgL2ZvKtKdfNG1d7AHhZx4
FkpqpoMjidMBsikN6BvTfzoyIxwQV8NlKnSCglSi6DytX/MDf+yIkKE2BTF+
kvV7YyECSZ955rhuYK4rFZC/Ig6yl8Uu9/ymoMQcfqmD5yQh5uguOh28vrHd
P/ikGqXhRpBbx48wKuI3WFFaOiML659v/WgpoaLqqj9cxafkgU04cehjGxWR
HwidrE5WhJ7o66WvxqnI+6YEk26cErRWH9GhW8e/nz11WCxSGf4WBv/Wwn4g
zQx/cs5QgZx+qfV6fP/jCdB77p2iBuz/AqVJ2A8pWS7MwVUawP/dZ54P+yGw
IfHiqRMADY5Bdk3YD+Gq7oLJxzRB0ej17QvYD4kM5jN2vlqQWPDU+x32Q1Tn
k5GEk9pAP/1UPRv7wdh/lV4tUgdeeHOPcGM/MJ/aQi8Spwuq0wL3lLEfikOy
+X0u6cErLlIcN/aBQauSv1uaPhyJud7biVmEve2bSKoBZK4+/WSHfeBtFrH3
UqIhGO7n+N6M+dGweklGthFIVdaP7MHn67tfjBprpjHoDF8z98K80Ju7jbHU
BIaZWiLuYP6Ze7Hu4ANT6J8fYe3G3Ob5I7S+0gy0OZ/tmMdcdt41ZO2ZOdQE
bBHbjvffpWWsY8PRAiQa3j4Tx1xseJfW984CtvM+rTpM1O/Tf0gbxy0hsrJU
gfCDqHDc4rEPljAsmsRK+MEpKF+Rx8MKyFoJOoQfauqlL0t/s4KIqStChB+o
V16rZLtaw92F5cuEH8yWFlLsJ/B9cHSrGOGH7u9OM2ZeJBBe5bhO+IHWVO3L
OEuCqfDjoYQfii2m+ntDbaCxIL+O8EOEs4dR/28bWMfnlvBDP4/38YORtsDy
onmQ8INB89dLE39swXJcYILwQ8jsKfalMDuQkf+vnvCDaFPsEcd1OxCOHwoh
8rcUzF2jGEWG3ga2DYKDN1+PDK6Yw/fOZieJ2BY0ExMwdVx/CzB4Uj3ST1NR
QYuMSMxbHkjn42A/jP1Qp52ooF6gDu6ssaXD+P7E+6/uXeK8NpQ7fLB2xX4o
oDvJVi1kAolFdXVX8PpHO55+dH4fCX7Rec8R/X2M070+BQUb0PBeKSD8MGof
3m6lRoYZXuF6Yj7euxT/RDeSQTjEHRF5jRZk+TJf+BWtB1a+jEp4hWqCMqqH
mJig2zWrQeME7v/GfeQH33HB+aTozX6qFFRMv/uKb+wflGFi5y4b3ISkUw32
fotng58pXExS9RS0VjrPJtW7AzIr5LbtO0xBokHNu4rHyKAyF+REjJcFS/d/
Xx1EC1S3pRjhN4jbZx833xgDvPEXpez/SkPcS/HPL77nhANbf7SfMKKgpNhB
ulPZi+iz3pdN5R3NKCV+OH6P9zZQd6/oebcF9wePOLL7+3ihsEwr8gC+L1fz
ZE5PRUwhO6/quPYnbcginN4sb+9m2Br72/Y2Pc7ngEn5gUFueFx87d4RBQqi
RLtv8w5aRxd/KAayeDaiV9kPm0rLt8Puy94b5Vco6EB2f+y5bj4Ir3mWdBI/
f8zN5PtKy2QwsVX1IZ6n4ez9YknvKrTtebggc0wvShZx7hJTowNS187tM7QG
9C7h194beRzgcFKgqfYkHo9JLH39Kj802nLuOIzvM4pxvOp0h0RA8OYlMlMW
BZX9uny52FMcDLtr9NzmKOiWkrH5XwdJmN2YvS+ijO8vcwlfswql4XaHea9m
KL6f3NadNPWWhXijW/YpxVTE8TywqPy4PLyW5I1800pFc0xcrQNRimCdKGrD
iH3n+aD78PMzSjDLMaDhvkZFrKCjre+jDAFyruIbzHi/6WSeF8eqQGfI/f3J
2HfPZBtPO55Tg1+3X2yRwr7LEUy/XndLAwKuJD9a4qchrrIvMrcdAIzpto1X
YN8trVo85LHRBDcNJR8/7Ltiz9XZQDctaGNOfNuGfRe89c/rPy7aELic0ZKA
fbewNWu4L1gH+FYo0Vuw70weuGkanNeFyjfm7HLYdy+vXdH/EaEHY6ecplmx
35jjvjGcTtQH9tOsf9swp8r0uJHjDUD7ZjgvCfutTp8/g/OiITAb/r3ZgLkg
PDe89poRUGlGQcI4L5VfgzYuJBuD3oWBIx6YfSq+P76dbwL6Sz8+FGKm40tp
dSw3BWv2gA9dmB8/TzijVWwGijHJ2+cwK4bTRjhrzeFlrLQrO97/878bT+8m
W0A887I44TvZr72j+f0WEPTruDThOz3nmDJOR0t4+mWxl3jf5XuGTNs5ZAnH
lt89Id53Lezskhd0tYIVI87NhO/u8G87qzdqBemv7H8S77t2my0WOx2zBusf
Ak6E79a2n5P2+mYNl06QGQnfTfkfYmRxIwHDj7owwneKq7KhPVMkKE/0ciV8
5znUwTkRZAPvXouWEL6rIF37lzFjA79tbB0I31k7zekqnbGFnQ8VugjfibwQ
dGFasgWLl/+NEr57RppzpQTbQdqs3GPCd4/CPSi+f+zg8xPOQMInx71vs3Wf
wfcXXuoqwdLeyEGhahZd/3BYJJexFbEgbh0ZKgv0bbGfTUinogyjMIapTB54
nK8Tl4R958DMPH0oRR14qa+DHmLfsaoutq3+0AZV7ddeNth37mccuiV4TaDv
kN77WLz+B0L/Wl8VI4EVO/sA4buFtIMf6A7ZwECoagrhuxAOBws3ZTKEXut7
Qsynh7ORJEghw2jkLVUir3PD7gUhFZ9R9CYx4UqH16jj0NEt5ecYoWPBmHvn
eRpS8qnh0brBBfIHfaihGhR0/MRrd+mEFWTfv8ruT2tCOmY/o2vp2KCjKzJh
UxcFze5XmU1P2wGBxzPHJrFPkjytzqLPZPAVnCYT451rqpJaLuxDOn43h7p4
upG05GvfcScGyI/g+x2/pQGxRHTn/8zlhEGlJBtvcwrSGbv86VDeAjrLE7+T
8dBLVKoX83n201YouGZNRXuoqFGFHI4yeMHVUPFXHl4/8YG5cv/YH0iddlh/
1KkdeR8pLfW9xQyqLUd4FXB/6e6QkZSVzQ03ZEvUnilS0NlPXJOSYWsoaePO
q9E7jeibjcOusD3b4ZVVa3psGgWJ7NzlNZHKB+Xxn+nvHqWgiVTBrb3zZNDK
7ff8v7/TdDXWrrYijmu1MwzKPcipmFfosgk9nK8Vvz50vAHNXnA+0bQTP88j
Og5VRwp6Uvol70HJPApWSy522NaCBhrb06692QJL+Ufhjw0VVWh9V+fl5YUd
h3+1CuHn2Wp/VzwoewwJn7s2mNncgXJrZ+y2pjDBDq2idTd9XO9PiFn48XPD
H9L6z07cf04Wnvqv4vwqsjvQ0FEr2YR4eos6eTjZ4f3xgcKqexTEInb3AIWT
D/540bvE4f52d7DmEJ8gFwTGpvdO6FLQe/n2upPcuF7dlWWbxPUjyoqplbaD
B0y4DrRvxvfrIb/4h1P8HGAzuE1zJJKC+Er/Wd38i9fDI9efWI/HLFLC/t4F
qD1Tc7vhu14kt3FiccfsBtoioNzx33AD6jXmyumK4oB9+7bLtfjj+mFUV94b
wA/B7SYP5IGCTIbjSvh3i0CVoPPquQwKWk0Kff7BVhx2vZt7vn8W14PL7ie+
GErCHZa3l9mO4HpH79DeeU0aSiLrK/xCcJ7MppvCXWRhfxaP1lwRrgdQ6Stt
i+/Dj7I362P/a8iyLv0IUYTv32kShWNU5K6212zplBKUsQ3082L/jxfJGA25
KoOI9dS2D9j/z1gGJVujVGC79rTwaex/Ni667v4QNbhY/ZHMjf2f5yQ9aJOl
AYUZI3Tj2P8nbrIzPbMFMNBezLuF/f/QoZVhyEITUCgb1RX7v4a/O+icsxaM
SPjRN2D//5IUePnASRtSVMXoL2H/tw25tRUE6ACzwS0DRuz/gN5UV6dIXQgZ
6jp6EPvfVujfx7IwPfD32J67Bft+zPN5Z8QVfcip/ZfUgrmNYiMWEmsA055D
B62w7x10vne8O2cILCUsC1TMGW1tXxuTjGCR5ffR3dgf7AWTo2rxxvDVx2e/
O+a9O9hTAm+YAD2ZxE74f+tb7p7gElNIYJ7UIfwvM26/wlhoBs6mR5KI7x2r
izOpu6rM4YY2ZYP43sGeKNd20NYCFHRKhojvHUtV47MXey3Am2wzSXzvUHyr
3Stobwm7Mo/fIfyfKtZQsjpgCZmxDSmE/yFoXE7I2Qq+WB6YIL53COpFBFl/
tIJ1RrG3hP87H2xxQI7WoKbNpk/4v3eX5l//L9Ywc3ZygfjesVKdk/LNhQRL
M8EnCf8H8M79efyDBBvuTnaE/9vyVarnT9lApYttPuF/LfNicuhPG1DkpVoT
/ueie/RUJdQWau+7txP+Z1VW6uJesAX/tB8jhP9HmGuS7gTawVj3fC3h//ic
rPZ0uVkUt9f8ypB+K+K55THLG8kCHwaa+EJw/5HCmntaJIwHcBWlvcF5vvdd
26D8sjq8gjTVO9jvcfa8DTVj2vAvn+mkOfZ7i3zfg1EOE9AgvZi6hNeX4SJV
NGMPCfJ/mrYRfpe5/9P1u7QNbJSQLxN+v6vGHX24ahTVS3VnC7S9RgMpSQ9T
jzLCQSZPZJOC66/0wOUz4VwQt8eFXQLn63maWH/ythWky2pa6fOjCVncQwdu
vmCFTe1nedYHsD+mj7m2B++AYvKPQ47Y37OxrN/PVvSgrvevpl0dupFy3G7+
Ln4GqNSL6G0QakAMagvsYpGcEGP6XlzUioJu834wS929gIa3UYTT3V6impLe
q+9ubgVBkePxFQep6MVa5GRICC/8S7Cp9Mbr8VGpMF4mYQJdMXH8R6lpRyFZ
K1bWDszAdNiPPUcU19NdT9ZeneGG0N0t+/Jw/9y/3cc+YeUvur/N3/BlYyOa
ratsO/aBHWz1BDpHcihI8AN6JxTEB74S8+ED2IdRvBtPNgqbENN7TknPKz3I
e5N3ux8LPfx6UBq9M6wBTWpf6lv5ywG3tO9aZx2nIN7Bo6xckvNIT2iRpVev
BX3ZswudSdoCWb5O8ufcqaiYcVuV0SIPkLiUm/fg+Tc/td8kn/cNxQp7DyVJ
vEKlXFqM84b4vlDgeyKdhO9L4voNt1e4ILvNdna7CgXp97Ts2Mawiq70tT7/
aNKEROSWwtdeswFv4ROa5kMKYhjryvs9twPCdTgHevHz8it6GJmuckKwtspX
HgP8/AvTEgW/eYHt25bFWOznMB4p5aUlbsgymHqcif1MUXbjo/7cDsKfQu+I
XqCg3Hir6w8f8sAi511xMp6vWllKEetTLuiP0mT+qkZBbWcVWbbW8cIlzv8Y
PuLffXICBV0fc4PzhS+mv/D+V8c0vf6kyAsPa9ZvSOLfSYUbH5WUueGCZcnB
kiMUNBpYoq2osAPovk+6OODxL6Z+tklS4gHJ/2LVr+L5Fb+beZ8kIwobmwRu
iDRRkNPNmidJMvJQz/+CWt5MRU/W0v9LktECc1n7n/bYh413u4J7dI2B2fri
ayt8/j3vMRYkyVjBVOL9ZhI+75OMd2JlsGDlrZQ8iTx6Gv281KOrCvNpgtID
HDSkTpK7KvNMD9ZEPnarYR/qb/Ijh/SYg4+zK3Di/5e07+M8FkICzX/znwg/
/A8mVWR6
       "], {{{}, {}, 
         {RGBColor[1, 0.5, 0], LineBox[CompressedData["
1:eJwl1WW4lGUQBuADiIA00n3oLpUOaaS7QQmlu0u6u1Xa7u6guzsN7A46zHsu
f9w7z8zu9e3uO/udk9hzSOvBSRISEm57iLrEQzm+lM+pk9kgH1KHU5De+j3q
AHLzBTM5b35CHUtx7tFvUXuQiU+ZxlHzo+ooirBSv1+ND5KPr5jDZ+an1QmU
Iql+qVo+XiOfV6ewUT6sjqAQD+v3qgPJw0VmccH8pDqOEtyr36r25O54P6Zz
zPyYOpqirNIfUIeQn6+Zy+fmZ9SJlOYHFpHMfJlaIV4rX1Cnskk+oo6kMN8y
n0fM96mD+Im8cf7M5rc4N8+fUsfzCyX5noX8wX2e36b24kcyx2djBr9y3PPH
1TH8TDG+YwG/s9rzB9WhJPIN82Kv5mfVSZThDv3y2Gu8Rn6SPlQkOSviTON7
yU/Rl0pcMrtTXRmfNd5bfpp+VCYFq8wrxveSn6E/VUjJavNKcb7yswygKql4
zLxyfG/5OQZSjctmd6mPq1XiXOXnGUR1UvOEedU4E/kFBlODNKwxrxbnLb/I
EGqSlrXm1eNs5ZcYSi3Ssc68RuxNfplh3NDfr6ZnvVwzzl1+heHUZrtZb7Jw
Ir4XGdigrxV7ll9lBHXIyMa4Lpfk1xhJXTKxybw2l+XXGUU9rsRvPXan1uGK
/AajqU/m2J15Xa7KbzKGBuyIe4usnIyzJUvsUl+Pa/JbjKUhWWOX5vW5Lr/N
OBqRLXZp3oAb8juM56b+ATV77FNuyE35XSbQmByxS/NG3JLfYyJNyBm7jGtw
W36fSTQlV+zSvDF/yh/wKM24apY79qk24S/5QybTnJ1xn5KNU/HbIU/sWN+U
v+WPmEIL8sZ+zZvxj/wxU2lJvtileXP+lT9hGq3IH7s0b0H8Qd6s3FKnq61J
jH3qW5KELfoZtKFA7NKsFUnZqp9JWwrGLs1ak4xt+lm0o1DszaxN3ONs18+m
Pdf0hWN3aluSs0M/hw4Uid2ZtYt7nJ36uXSkaOzNrD0p2KWfRyeKxd7MOpCS
3fr5dGaXvg/ZOa1fQ/HYpb4jqdiT8P//rAVqF0rEPvWd4r5nr34hXdmt70sO
zujXUjL2q+9MavbpF9GNUrFLsy6kYb9+Md0pHbs060paDuiX8CDX9WVin2o3
0nFQv5SHKMtms+6k55B+GT0oF9cwy8BheTk96afPyVl5HeXjWvqMHJFX0Iv+
+lyck9czTC7AxfiNq2VZTAX9f64S/bk=
           "]]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0.33333333333333337`, 0], 
          PointBox[{497, 498, 499, 500, 501, 502, 503, 504, 505, 
           506}]}, {}, {}}}], GraphicsComplexBox[CompressedData["
1:eJwVmHc4ll0cgG0q+UoqCQkVhRCS5Pxs2ePFa2RmZ0ZJdlYZSaKyIi2UkREi
I5H5vm+kokQyKyo74zvPX677cl3PuXjOfZ/fefY7eBs7MdDR0VXT09ERPwWv
r93P5m9Usv8S/y/rTjXSrmPVH3PZQPaPTyixvOxAXVvlNjGd2QZ1Epmb2ea7
kcp19YZHBtwgGqJeX8NFQU5HV7ZKbRUAlpqV5PYwCtITdfq9S1MYOBSllBM+
U1BZb0jAW3kRyDaQHnU/QEUnOQ8XM4WJQbyYPO2AExW5/EvJekCWhF+tMTIV
6VTk/Wb8WLGeNPyVtimZr6Oia5YsB9bOycBySZaX9xAVObZedpZylQPeHcVf
o5eoqJF1j5GHhTxkjxY9dGWnIant4WmT/grQnL14rpyPhuz+nhLTP6cIK81P
uG8fpqHc7BbexUQlKAwK8amRpaHnSQoDNGMAT/v0A2eUaMi/5pRhlq4y/Ljb
mt+mRkOv2h/8uWqlAj8d3kSbaNOQm+aJOjeyKuzPd//jpU9DmY+lKjzc1UCO
ndFhwYiGbvyti/C5qA7JA3CqhERDYwUBF1z9NMBN3cm3woyGXmuk3I6M1ATV
iGg/PzIN0Rt8GrkergV0ta9Cai1oiE65kv7epdNAPUiLqrOkobjdi3q0WG0w
c9JfzrCiIR9Lx6bFKzrQn22eB9Y0NBwhcxbd0oX5lZ1TXZi5bt75dDVXD1a3
XWY+eYaGHm47fKk1Qx+Et1UOxGNu9NunfqjQAJwFeLypmLMF7vGeIhnCS52x
PiYbGqoLXqFzpRiC1sNvR8Ux79dhXRUyN4IvCTPLBpjLe0TjP/YagdM7Wo0b
5oQ365ICZ4yhojiCFob55vlJd7tBY3ASMRdJxhy8k/8/QQsTKEkTX8jE/ESU
ud3/qwlEzrWvPsLMMke/p9GGBOLvx4VLMD+SLA3NHidBxov3h6owizoU6K95
msLAqnDyS8wDp6vLTKdN4U/K1usNmGn3g8TReTP42f19oxnz0nMjRcE/ZiCk
oXvtDeaNF34VMV7mcFR6PLoNs46khnrwvDmwBNkptWNuPXPUzeM8Gdi+8kV1
YH5W4rO4sUGGxnyl+52Y228M+E64zKD+HrGdRyxbkcBaVeaaHBt8SCg+PPOp
C8V1142amnFB5EfejwfyehDLIu8vJlleaPkV22OrR0EWRcUbQocFQUcs/OT2
UgqiC/M9NosOgu4m9geSjFR04a8J57jVYQgdZtda0qCiKCaR+UO3JSDaWTK6
NYyKpu3qXA+bSIFpQRx3TyEVBW+7KGZ25hjc/8L1/H4PFS1sa1RPd5eFb/kh
rQ9+UFGKS7tVt91xYB+fLF9joKFLCZ3nD7ucgBibwqiknTSkxWA7nOFzEibt
vEfDhPF+exuRLxhyCi4PkopCJGmIySbLrfsOgt1VqTa6CjSUKvxy54segNrq
hb5XyjR0t8k3d0evMuyv0FJ9oYn329WZ/uWPKrC84/DlUF0aYgiUrXYfVoWW
7+9n9AxpaFf3xb2/ZtWgq6yP0dWEhhR79gT/mFMHdeka8UZTGupbuhIbsKIB
UV8aSbnmNDSiXXnqKr0WsMMveQHCBy2tP7vXtGBhvuqeKvZBrej9oWo6bXAR
THU5hn1YlRdn+86sA0/ZnMb+YBb5pXMzg10XwnOC4uKxD0GbXXLO7tUDHWGR
Sla83z9Th5885tcHq87fRU6YyxuFbS8KGUB4pVt9CeaNH+m2E1yG8OxxU+oP
zM/0u5KMUwxBf5eTAA/eDzPfwtdbdhiBm8JcNsLsnni7ef2WEbxUvZhyBrOA
DteXVW5j8OIX8g3AvI1vTq8h0xiY5HzOx2GOe814qpHHBGxOuE2lYU7JuXGu
I9MEdnNGdudh/pB05ffdfSQoCknRKcJslvKx4+h9EuhIXhl8jtn17dOxrsOm
0NTLxVqDmeF9afiTIlNQuH+jsB7z+4U9PtpHzcDa4pd9E+bvR8bKS8rMYNa7
1byF8FFuJJAkaQ7HxYTTWjE/8LcOoS8zhxALJu+3mDe1KvSflyFDzZLPFOGH
AqthSUU1GRKEYnkJH94qXKn+4TKEKhzso9ihGY38/GwfOM8IwD85fXi9Ex3+
tbxQZMEJjDf+Gzlh3IOEVaXMzVR4QPSPR/SSFAUN/eyNKdi7HyYynm3ivENB
B0keKVdUD0DztSw7yiwFcY1OqJK1RcG4ZTg8T46K7LaIGqfFiwPVWPo01Y+K
RCVEGCf6JKG0LyKEMQ/743G0JLJPGta7DEXZW6moocJRtn1aBuqC9qccH6Oi
oN1Cw2GjctBh+ID/+xoV8bX7jWh/lYdv3y468m2noZdXZ2qb/ihALqtaq9R+
GpL8Yuv6Yk4REHu4Qq44DRmHSjWP7EBgyv80mEuehvItLgeq3wCQLI834wEa
iq3vDyQnK8PByM85Oho0NPVE+3vjXRUo5ml44aNDQ5W2x09OZaqCVG54oZMB
DVnUkiaKnqqBk7JscbkxDTkPT4dKVKpDIiNnuCL24Qt1dd2rUgP+pjHOSmAf
3mkJTzM3aYLNtqjWDnxehOvcmHpXrwX2gxd96bEPeRfepIrVnYboIasTK5hV
RDgLB95og2OrysM27INufn/B6TYdsBVbOuGCfZB400Vv/EEXrqYVF05jDiw7
pbLnqx6496/NGuL9Lu526FzOkD4wBdQOZGO2e3iIIXjKAHhfhp0dIs6Tqso+
zfOG4D0a2fofsT9L6jZ2/TGEPXpKz+Qwa/zosb1xwQimjvQtmBF+bM2RmV4w
AvrpxWZvzN2+l9BssDGsFtirRGHmyFx4l/zPGK63JObexBz7qb9uIcgEEN3K
Ug5msH79mZWOBKdbXxwrwCzR7Om3FE6CD0z9HGWY2UKKpeU2mUImI1/eC8y7
eJ+5mCSaAofPfH4dZvI9t+2GW83guF1YWCPmQRfJ34sp+HyIKSx5Tezv+TuW
J7ebg4DO+g7CB1qayx61ZHN4/apyjTgvCi4DxxIXGe4c+5BG+BBe9iohOY0M
yRtPacR5wd0cpPozcRE1ySyGDq+/RWfYU/ojA9mBSd1UJiuoG31/FkFbN94F
H/Z9X2Ke7EEGyceOTx9Qg/tLkzdE8LzAJN9w+aehLtRwWNY8xe8j1F79gEsL
CVLG/iRVEL5zyt6bMSHD3SO+J4j15qy+vvs0SAYuunl7wse2BJrWvEsPKppi
VCOfbUBqYz6vK3rp4d6sGY+0ZydaXdsdTrbaDhVbWt7cP9CDjrnVbtnQ2gNC
DSvUu0IUlJfk0u6ZKgBbFG+x3kmgoBqlCWW9FmHwzq5y1xmnIEfr54PJjSKg
LLt8XUiCirqTnoTrMYvjHpu95DxHRW2pZyga6ZLwcbyI42cmFf25veXP7RvS
sKIyd+xGExUdYJN96lgkAxfWJlmGRqjIy7vnPvmhHLSN2ycp/aOimYmWPQOZ
8pDPUF3RwUFDF7qOi75/rgB++wdFL+3Df9+EvvaVEkVQKUWugmK450n/Zn5Q
lCBnlG1gWo6GxOY+ibL7ATBZarUpIfz/e3ltNMhLGYzftTEkqtMQSWFp+sBl
FZA5JLp3FM9vySbyq0+CVCF+9vORH3h+W5Fq1mdPUINkupnfZtjH4ClSeE+a
OixtMJMX8fzmoFRd45GqAUwhJ/b+xfNbp+aAslqeJhxVK67LwT5CV8VYaY4W
mD+O+PsFn1dUKyUd54zTUDKqZTKIffyeE7Vq9kgbBqs8s8uwjzZhWZUCD3Ug
kf+oAgm/bzZh+udtlbpQ3OLA+BnzmzyPJGqDHqTa6gtqYN+mXj72e16H5zdV
z/BbmJMT7t+nthvAv7XdVz5gFjx35FKToyGcgQCHzXg/XNtlHY6GDWFc05Ze
mpjXMqaffnI2gou+r6JMMF/3GrUd+W4E/ZuMOs5hFudVlGfzNAau3jjOSMwU
Vp+cpWljkJA5PH2DOF+WgpzZ3U3gyFubkGxi/zWNmijNmsD2jmO8TzDfHahq
GfQmwWBfBF8pcX6ZlZDdl0iQEFw3TsxvAkjM6nGIKejxnuUlfOQJ2D5ivGoK
ILVrE+Fjf7Tp9b1XzCBnS6IF4eOd3oCOZ/TmMHhyH4WY3yYOebo4hZlD+Gx+
E+HjimmzqAIzGd6MKXoQPgrHLa6sRZHhRzxDEeHHurpM/ey9v+hI+6OiZkob
qmc6oNBgvhnONZq65Up2o8r6HKsC0k5olUlTinnTg0SiZJYKGNXgnu/t8ZfE
vLIjJva1hC7s628cycTvY+rS9UCdchJwBLNVl+Pnv/hRVSulRoYzXWGcxHrp
UtwqWh1keG3ciggf09P1XWYSx1FChYFDbGwLipjX3lDYxQLRt7xYjl/oQlLQ
2DYZ9A9VBjzn+/m3Ha3u2PBXv8MBZdGJPZ613cgo5rGT5y8yeObsuUI8742k
rwuL6yvEH4Sse5zqkL9DTQDpNR2eB67uPLKnE40yP1KTGNwGxw6C/ejWHqQQ
TOds0skNlR2ybIq8FMQ0JHmux1AA+F0XqhVjMJc/3CMdIwylKhJS50co6Npt
blHxEBGINtoR0y2K50/K5G7RJjGwSi8UynOlIm6tJbmFi5Lwno3eyvQuFZUU
L3Pme0tDXMDuG5oNVEQu5XMrSZCBu48iDhwepiLXjAPM6rFywOd6MnJ0Gf8+
0FtW6LI8eHgqOGRuxT7ODAzZpiqAWLw16TY/nh+9NGpdkxSB1e5shc0RGkpK
s2PxK1YCxjecqiTst0/jtUhvBwDOkG0vu/H97NLJszwJZ5ShTyk76Qj2+xqD
wYy5hwrMpakYZWK/g7teDF51UwWmGE22Z9hvHc8VesXLavCp+RXzIew3i/cm
eoFYdWANp27qxX7n+6dzu1/RgCec7yN6sd9arXKejimaELbRAVex3wIcbaMC
yVqgzsRM7sJ+u+oHHbxy7TTQ/iRt6sJ+Vw6cepCarg1eVmu2j7Df4+fCFdlv
6cDNzNwIbbx/5mh3tzA9xH7v3BPdh/nn3chy8VI90JDtygLsb5vzZEBdkT7o
rtlWJWN+HGbvv1pjAJYF4Ru9xPn75nv7hpUheG3sy2XF+yH/dGHDuw+GwNir
mnWUOF/PL5M2bIzA+4lPkxFmwX2x82c+G8EWFx4ND8zWvlkyXE7GUFCQMheO
uaxOLFps1Bg+MpG2EH6/iulUSLc3gYeu8rVZmPUX5pIsJkygNO1y4mOiB+PW
M/ouJODZKZhH3M8amks8mGbxfGoYGkf4nW843UsLMIUTf2vfE/ezIFsn7d6/
pnC5N7qTuJ/1crnaiF82g2m+LeKE31qvv12ZWDaDhzoBTwm//We9ORYumEP/
eHA+4bdgc9RxqzVz0H6wSCL8XvDbUSYTTAaWXfK3Cd/8WG9c9iv4jWx2UQfv
72tDM+Fe0zaam0CjV37Gi7Ub5byREAjv44LgmAWz9PIetHO9/MO1P6owqLu3
Pxr7nUPntrWETxeOMu7RSMXvQyBGJq+uEM8TJZk6hN9fLS69NVYkQ21m5jqx
viuvzHJoExnyBbUlCB9DedhG/tz7hqbyZacl/F+jMt/Uko/MzMCS47IwrdiF
8un5YzyilpFQPOVoZVg7EkvWOjgatxVsev+LZ8vsRoK+r3nzv5MBPj3yI56X
BgvP/ib2o1/ryidXxxrRDvdDO3Z/Z4CRndWestWdKD6qn847fR65BAWq93m/
RUlxA3H7XbdA6H/htyfNulEJ160f00HTqD7M9vTrkDfI8BK9fuZBVpgd0n1S
WtCF6kPPbnH1XUPlN5qrflt3oPCMhGdyi2TYE6pzk1i/MfBZvohrMaIksU8/
SaxFCQK23UKKdNCnOZDQM92BPlz9dfBO5jZ49mC9KoO+B9UzC91cS+SGma6s
3jBuCpKJ3XmK7qgADPwKdWO5QkGPf0VH5zsLg1hUdQr9VwrKltMx+GcpAs2i
rdeyD+F5/vfVb2n3xIC/UMX/uzOe13PVp/RcJWHeNMuc5Q4Vbav1uf/ERhoE
1PYW7HtFRb+ZOVvfB8uAdOxItN5XKnIupcjWXpSDI5KLr2VxX9hBTVXTXR7M
5b04GXFfVOgkavOjFKBIMLb5IO5LjWTTeasQRait2Xj97zAN3ea5eaM8Wwky
ne/nsuK+cD4ekci1BNiy218wDfdlYcWwgstUGbJDXmmtqOH97bwy6+OoAo7W
v7cE4r74bV7uXLZTBeZNQxlJuC9zm9MG3vmpgQaZvoMD90W31FFZK0wd9id7
H2vCfWm5HqM5GaQBfCyZbC24Lyyxowznr2mCIevYtxDcl2QJqiM5Tguqetr8
XuO+lGtyp26PPA1FMTn6LbgvOZfuXnp+XRsuKNSX5uK+FH3z3YhI0IHtL4fS
1PH+dS8Yr8rN0gVPXblaKma63UmtVk/04EGTYO8p3I+q2qsXVfL1YUfTiE4S
ZplLDYPbnxsA5/ik/DvMYX+bzvOTDWHudr0iC94Pkt9oX7N6DSHvUL2LBDHP
24Y/3m5lBFXaS18MMXtcJDfs/WgE7J4KEe7EPLC3W5rH3hjULnOcJfqSx70l
UOOrMZybV7hLfP/h15/Ptz5jAjVq2yyIvqz+FyLmMmoCEuMO6kRfpj2PMrE5
kmDTpwZHoi8yK5IB1GkSLP8zJxN9cf7Yvn3C1xSEahKfE30pIF1fT50xBYOS
sadEX0ysf6vLXTSDWyMJu4i+CLzksWNeMIPTXbMZRF9qSL/t6/3MoeonukX0
pfKSU73Hsjms2FeeJvy2cc3dSrlIhsObZZOIvoi5IstjxbOodbWU9e6rVsSG
dqhJvGKDr95OYjm/u1Cq9gWG6Vtc8MFyLdO7sAexn5xvW5lUhacVcetuuC9n
L1pSDuzUBcHt/tPX8fs4yc5adeERCbbu1uAi+uK/zdLQUZ4MkVPX54j1qdub
SDz1ZBjy9j1A+Ph74GyOf8EwOsOponLhSzNqP3pi05MQJnjOMdetzt+FbBw6
z4pdXUJnKSyzi9CO1PR/hj6n2wr+F6cK0+O7UbyzcSAaJkNZnpk78byQ5mLR
xXvv0P4LhkViRxqRmEinx5g1AwRdNDYWTu1Eat+jh45mzqFTk8dizgm+RQ81
wodnhzbDK21+ET61biT8/vcTz6hJJPRO8TknyxvkevzhQ49sFpCtt37OdKML
BQ5xTolcWEXL4RYRDaIdaCKZZzPtDxkKAxXiifV3P1w3zvhHhug+3QyCq9hE
93m65iDBbNUNhfQaJLXhML9rdgPlNV0TP9nbgWg6nLe7g7dBXrpnjNW/bhSu
Xf6E5sUNQnwp7tm7KEh3IPYBN78AcAwYHXWLoKCV+IDaz2bCkEEutmv9gvsT
fdZh5LQIFPoqiEcfxPcVesu3XdfFoK/0Az0L7k2q/o/mS3aSEGEjv9nmNu4P
FHmImUlDwfm3M9fqqUhJkn1h0l8GCpDFky9DVHRW8aD+grccsJ+nLX5eoqKx
+xLaH+3lgRmJ0FWy4/3F1i/SGqwAkSWbS3/y0dBWTjpKr78isPm5sbTj3mRa
i/WbpimBtgT33mFZfJ/I4GCuMQP49jmw5BLuTYVlK8NHQ2UwSLkROYx7U8ZN
8Q2xVYFR63WKE+7NL5E9LaXWqiC51NUdinvT9tGxLcdLDdwXDDIZcG+8aMn2
1pfV4dBhU8Vq3BszvvUvjy9owAa1Gepwb74713YFxWjCmlSreCDuTVu9qZB/
lBb0JKCVV7g3lmrj7R9CTgObW5pHI+5Nalvbt6Z4bdh3v+t9Nu4NR87UV8U4
HXw+9/Gp4v18cBdHks8dXUhuTXrXg3lz3w6q3wM9qNnv7amIeyIxZrHEdE8f
GgYduBIxr8zPJPMWG0D0RTcSDTPHNak2cTNDoBzJvcpMnO/FY7ORNENYq93b
SXxvlulTpfFYGAErx6NzRG+ShRofrLw3grPtx/mJ3oDvmBSfrTGEarrtJXrD
oxHka/LFGBhIDvZEb7pKN1kiKxOwtao8RPSGxqv8z3PEBF5MHNxP9Gap5HbS
qB0J2hwd1YjeeO38vVw1SQKLFkEgetOWpVDyx9sU9pZ8zSV6o2KQTw74aQqt
dhHZRG846SqrFQLMoOO80haiN+zyct075syA9brgTaI3gyxl8Xk+5hC5NT2R
6A1dXx+9/6I5eDJxqBG+czq61mYF4PvLvyNXid7E3U57e1NqFv0O7bdNTWxF
XNlOszsvs4FYpQXP2bEulMR+97zABS6Y38y3q+dhD4q12NlY9l0VjONX1qxw
b95Ivyv9uk0X1i0YaxPx+9Ay8FE2eUAC9ZN+S8T3wnqP9psecmR4WRs5Q6wf
w36VYaKWDGph6wKEj4WKO0Jli7+iUEpRtW1yM3qfFF+RfIIJZsUaAlw5ulBt
ilBvwpYlNGuxb8hSoB0ZPkVHMl6yw7kQ14NiV7oR2O85uHWIDILDh5yJ581G
sY8HFlBRqWJ5kvjbBiQfy8/dzc0A43+3H58M70S5Oz/rJ/PPoaksx8PCK22o
7AEt8UMGvp9lp/UFKHSjL3L34iSuTiBrKYP3z1pbkH/akrGJJQvMbnMWbb7S
hXr/c7e4uvQPTfydeib+XwfKjB+uypklwzc2sVhi/c57LXRuy2SQ5tNPJ9ih
8PiDrjUydBZq5hCc/2HmU7yEILzyXF7yLKUg64yyF/ES0sDOfVKwvJaKXqze
fBQvoQLnlOdGA07TUFNhtx9VXQdUrM4Y8uD/r/NTppx4CWP4cm24OhA/b4op
L0oCC72be/ky8X3VWfvnFar6STi+l+uYnRANnSJJJUrUaIBux71TsuY0pMl4
juxPNYC7wsfmPmIfRCzebT/jT4LHcXRniPvz/0huGoM=
       "], {{{}, {}, 
         {RGBColor[1, 0, 0], LineBox[CompressedData["
1:eJwl1GWUVWUYBtBBQEAaaSQGkEZApUsaaYZuGBRsbMVWBAtbOg1swFbsbgW7
FexO7NzP8se+b8ysdZ77nXNPYfG8oiNKFBQUbPGRepCPQt7Rr+Fa/QzqcID5
SnUy1XndfKM6m/rsY16hFlGBF83Xq7OoxxLz1epUavKm+Wb1QBqyi/lgtTHv
6tdynX4mdfN/5qvUKdTgDfNNyUUD9jWvVMdQka3mG9Ri9mCp+Rp1GrV4y1yS
Q/RNeE+/jjl0ZJXdWCqxzbyMUhxqbsr7+vXMpROlOcx+Tz7IWeU86cwtdruq
h6vN2J7vku9LF8qQG9GcHTmn5KIrZZln34IP8x2SgW6U40j7lnyk35AMdOdW
u93Uo9RWfJz7mQz0oDxH27fmk5x1MtCTChxj34ZPcx+TgV5U5Fj7tnyWM04G
elOJ4+z34vM8H7k+d5n3UytzvL4dX+T+JQN9qMIJ9u35Ms9GMtCXqpxo34Gv
9BuTgX5UY7793nyt35QM9Oc2u93Vk/J88o1+czIwgOqcnGeHb3OfkoGBrLYb
R2VeMi+nBqeYO/Jdzji5GERNTrXvxPe5dnIxmFqcZt+ZH/S3JxN3m/dXa3O6
vgs/6u9ILoZQhzPsu/KT/s5kYCh1OdO+GztzzsnAMOpxln13fs61koHhuX5+
E+oCtQe/6O9JBkawxm48VXjZvIL6nG3uya/6LcnFSBqw0L4Xv+nvTS5G0ZBF
9r35XX9fcjGaRpyTZ4M/9Pcnh36BWkQh55r78Kf+gWRgDI05z74vf+kfTAbG
0oTz7fvxt/6hZGAcTbnAvj//6B9OBsbn3PP7VRerA/hX/0gyMIFmXGg/kLww
H00GJtKci+wGUYLHkoFJtOBiu8F5z/F4MjCZllyS54CSPFHw//t4sTqFtfoJ
VOUV80pacal5CKV4MrmYSmsusxtKaZ5KLqbRhsvthuV9xNPJxXTacoXdcMrw
THIxI89cftPqEnUEZXk2GZhJO5bajaQczyUDs2jPMrtReR/xfDJQzDrzRKrx
qnkVHVhuHk15XkguZrPePCm/aV4zr2aDfjq1edu8UZ1DIzYxl815P/jbf4oF
xd0=
           "]]}}, {
         {RGBColor[
           NCache[
            Rational[2, 3], 0.6666666666666666], 0, 0], 
          PointBox[{432, 433, 434, 435, 436, 437, 438, 439, 440, 
           441}]}, {}, {}}}]},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesLabel->{
       FormBox["t", TraditionalForm], 
       FormBox["\"Density\"", TraditionalForm]},
     AxesOrigin->{0, 0.586},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{All, All},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], 
      RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.7, -0.31803398874989486`}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{
        RectangleBox[{-1.2, -0.8180339887498949}, \
{-0.7, -0.31803398874989486`}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[
               {RGBColor[1, 0, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"I(t)\"\>", 
              NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[1, 0.5, 0], LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"E(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[0, 0, 1], LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {
              Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.,
          
          PlotRange->{{-0.1, 3.1}, {-0.1, 
           3.1}}], {-1.2, -0.8180339887498949}, {
         Left, Bottom}, {0.5, 0.5}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.5681476870885935`*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwV1nc8VW8YAPBLVhk/Oy0pEkJIkvA+9t4X16iUsmVvlRJlZCd7lJWGkVRE
UVZlpigt914jlJEkkd97/rqf7+c+5znnfZ7nfc/ZddLH8jQjiUR6ykAiEb+7
k9duFgi3qL9Ewr4HDtDQQzbJnd5uhci2JVhoEWioJfReiYRbFSpKOfFAz5SG
2uX8XFncnqKs3C13a11pKFJg/dF60XNU1Rzk3BtAQ5lpOuqrVzuQ09WWh3Hn
aagzcUD/l2sv0jolfXL0Gg3NXeKYCK3sRx4bvpdGF9HQ2edVkr+L3iBLaWG3
7kp8PSzd+3l1CGmnZN53aqahLpXoxzOuX9Dj8YudL0Zp6LYq37mDVV+RT0vR
7dFvNDQ/cqowsHIUXW4oc304T0PntrJRF3DeS+EdfNdIdPTisd0GhTw62sfW
8ryIlY422d0W87s+hgTaOwa8uOjo+nVT19mrE6iC4di68TY6+qxUdEU2bhJd
cnobf2oXHYm9m7/lfekb2uPgrKG1l46q+a/NTIdPI2WWJwmOCnT0MnXEb9J1
Fp3q6F+T0KWjK1mZXenyc6jQJji2xJCOpN2Q/YGqOeS6kWVpwZSO/FlTI/wr
59FIcU4Npy0dCQwd5uCVWECNw3aRH+3p6FEZNa+mdAF58Q3LRh+jo386is1z
RT+R/a69dMfTdFQs8Mk0RXgRJVwLkUlzoyPtsZgv+/MWUTIpdeimJx0lXBoi
+Vz/hSrNbnk7+dGRLDkqlUtgCRUeOuDGGUhHA6KSu++lLaFhf47enGA6Enoe
rvX96m9Em2u4YB9BR41pooOJ7MvIZ1wsP+ksHR07+fqUdNwy6s5Ez8rO01EJ
g3Cs56U/iGvTkn1sNB3p9bcLsjOuoP6oze5mMXQ0VeRTXnl+BZ0mW9asx9KR
PLR0fgv/iz6eZpsWiqejwf887OKW/6LNpCmN6AQ6Cv3COyURvIo+fnl2ZyiR
jrZVNYZ3/lxFi6+ufRRMoqPmc6fY3fzW0P5RhmCNZDo6YcqZxzq7hl4LtvNT
UuiISbheutzrHxouDiQ7pNKRYROr6bjrOno9SN0llY7vv37yl+DcOuI1+E+T
NYOOEkWO94iqkiBAhdGuDzuqhWO3ahQJwpne8cVeo6PAkw1B5BckcEylCktm
0pHbBrcuLzYGUJK+vbUB27FEYEeMMQPICHoXHL5OR+Y6z33zUxjAr2CvRgW2
9rjviweDDODby5bDkkVHypeFhXqEGIEyn6dmjS0t8dpz3JERQqJL72Vgi3SF
Pf1XxAgRvTu92rD5PPbybR5jBJ6dG39NYLOwv3XZL7kBJhqPda5ir9y+2KDn
vQFuz+44zZRNRz+M5bicajbAvMBR/XX8P/X7pxOhvzbAt4rFL9+x3yUlPEg5
zAQhAfVpfdgv9x/eeOssE+xc9+kox27uG3dsaWGCU29/0AOwa/0yqt8zM0PX
eZLlQewyXk2mBQNmUOvzCJrB68u5P2u7KYkZGqNWqrKxk8j5t3cPMEOci6KN
GvaFX4brKoIs0Foh3ziE6xWYuWxpZc8CF86wK7gT9TxUVuZZwALUzx84F3C9
zcMYTPPEWYE0MYumcT+0t1YV13mwQtcdb3lHbOVGx1+v77GC+nbK4zbcT5G1
h3lrSmzwFLVlRafREX/B6TmBCDbI2uwXPIz7z4b4tGWfssHriyNL4tizUWem
j+ltBJnPYUM1eH6amfaoPLPdBOnO9ZwxeN5qSweuDuduAqeMpMN38TyW6UaN
zn3ZBA5/OZv78LwmXRm5ssuNHbKqKs9viqOjoxxpQxdDOaBehLHCBM+7+V20
L/cJB1zqeGdlfQk/v+n3c/dJnGAw+famHd4f0in64vQrnLDpcfYTygU6WuVb
D9TJ5oJXTvRrinh/dXMqbWQ6yg0pYml1kcT+NOLN6onkBoUHmhTfADoajvsh
np3HDe6S+dkn/emIzlyuLfuRG3YXcapr+eJ8a5ujKA48kFvh8mIJ73+pH3+W
7tjxAve3a/oHnPF51NNEt7bhB27+9BELCzrSTNZ5Vm4mBHffRk03ytDR6f0r
nPKcIiCi1/6j8TsNGY9cLhUSFgHR/ey3GmdoSPGygBppvwjsF5ATeTJNQ0xf
5Lx6zUXg6X6q9lN8/t5Icn3pnSECaXZOLj1jNPTl+2Bs5bZdUKO8c/6/zzRk
d6dqXVRqN5R0nR4Q7qUhE8nT84J6YpBhHvPQ4T4NrSQENX6yEYO7QlLLmbU0
VPEjJqbERQy+0F53D9Tg+9WVbVGIFQPSmRdKxtU01KA+qWHSJgZlaReWdO7S
kDjZMy1aaw+U3umgkctpiHTe78AcEoecTt1dn3NpqHbwbFCXsgTsHA8/mRCL
88ecOkk1kAA+8YpHIzE0VKBkZPbXXgKEjZpLpLHjs4QkZc5KAHvfgmpfNA05
O97/mNIiAW6ZuSeEL9AQP31Si2IoCWnKccLvImgo+KcV74SDFPg9M7lQ7UdD
R3ilqpjOS8MgZzpaOUZDPQz2Xd3J0lD4u9HdB9tpPo6WWSQN22sy2MeO4vdU
37fNkq3SINz+qa7fEccn3YoyYZaBpx6J6dX2OJ5d0jIzQQbfr0Pxkg2OZ5L4
tTdLFi782n4tCr+PXf+m5ZdS5GDr9675BkRDGaYzz8Oc5OCvWvGAJfazYp0p
Ezc5eJCwxjatTkNC+stKSyFyYFNoFLQduzPjaJ/udTkoUvDUiValIUlZiQ2T
b+Vg5ymxq06HaWjaqclNykoexKzfM1Pw94FP+8SBKhMFqL705LSMBM4Pdzyl
bRTAxEyivH8vDXE3+t68dUwB3j1KPhKMXV31h7fERwHsGbQcn4nT0EIW+0JW
qgK0ZbwLouzB9fPcX33xrQLskUroub4bf09wh0jbHD0A631/VS124H7Ys+xZ
81IEtSKpt0V8NKQux7H0LVARZLVyyxyx55l5O95FKsIOT49aIWxKzQ736kRF
sFv1Ck3lpaE9bAfvOt9RBGlm0uMYHvy8D5wPvpxWBJmH2vTQ/2hoibtF57rH
QWDr+HzjCjvud0eEi7ybEui0LUppM9HQKVVx0yUfJWhjijTgwnap6TvYGKIE
3aW3rg1voCG33D3MOpeV4L21Q7039hmf3puUMiXwzM8RyGGkofDNoqPn6Uqw
nFwi/ZdEQ2muLx16nA7Bu8aJpk9rVNTCusXC004Z6umrv7cvU9H4TVnD9yew
2eeffP9NRRygraXnoQxh16vvNmNTQn0OikYoA8cuFt4T2LOTbVtG8pSh+nPj
aPkSFe146U81/KoMEYLvw9V+UVFY4usAKdfDwMxRG3d5gYrkeaIyvwWqwIL0
O4Pk71TUwDYk0RGpAn8zzx/3wtYkyTaWXFKBkP6UdANs8uzIl+MZKqCtc9mG
CTu4+5Dku/sqcJuFQydihoqexM02ti6ogDH9/r0z01Skz3h8NNf3CFSne7N4
fqMip59q0qZeqjCeupBUN0ZFnLykvsFAVRjJSRfPxG6Qaw1wOKsKe1e4R0Kw
+c/oNrolqUJYinzOEezOSVPD6GpVOL7vlfcLOhXJfT7u9mhRFUR3zVqN0KiI
1HWhZPdZNVgQ2ue9g0pFxQVt239fVQfzr3Oh3z9TUZ6j9JB1pjrcf6668BY7
a2t6al2BOgjuS7jQjJ2U6cTiX6UOyrSR0WTs8KS/szN96qATu6H8ALblOfnn
VD4E0iFn5M9/oiKmY/nuPdkIal04nu/5SEX3k1RGBiwBtJtXPtx5T0Unc7mY
G2wAVCE2Khebt4IqW2wP4KaodTAe27cl/qLPSYBYj22vXbGlFz9IcvgDvPv3
8q4odoldRKhOKoDB0I+DBcNUlCH2ROBRL8BMuT9jwRAVBTaomecba8CJooPT
bW+p6IF9B+N7cw248v5nTz320or5A35rDciq4W0pxw47cmpr4lENYOtR64vD
Pvcknh5+RgNOln7IMsW+3DwUSknRgIhD9R0fBqkop9WvmG9QA8Q3d8HaGyp6
+rJ0Ic5BE1T1En+6DlBRrVCf39njmiDYuWfIEbvEZWXO11kTtvWVvLDAjmc0
m7X11IQbxnJNR7DJKsvTeyI0wXc4VpQbe+qW4VhLjiYUaFxoaujH/Y6bHfrz
XhPSt6EZQWx3vcNN7hQtKG2LCfvWS0U/JLa01ThqAdNB8+Ev2P6b/rz+46QF
xWqe8A47svvRxzh3LVhr8ZZ+jp1ipbx6K1wL/koV+udj1x8/dGQqTwsYt1+p
ssJmDD342GNUC+x7/t5r78HrtxNoqR3TgiHLFvFmbI4jvzpXvmmBQ0Zn2QNs
gX91w/ELWjDBGPG0BFvikuJy5QZt0D4baxmNbZZy4ND0Hm3wc5r9rYGdVyH/
wNNDG85JFbK3deP5fe/cWXhGG7r8qwubsBc3ZY688deGoWu9KvXYRt4rDKoR
2kDX2hZbjr0i/9yUI1EbPPaI+sZj2zWSJ+/c1QbY9zrBAluwJ2TbjzltmFiI
qae/pqLUn00XfEN04Dr3xJUd2GcGUk44RuhASt0JPiFs4xpnDf3zOsCkXXeD
F5vFZyODyGUd+PGir5cVO3KKHNWbia+/Hei88IqKXEanz8nW68CfhQGvTmzV
3i2RM4s6kFQI0yHY45VBwW7+uiButa+e9pKKbHb8+1wRrAulalv/fMZuS47V
+xauC8tfc+ADdkngdSGPaOx59KkP+6T64wbPDF2Izys0bsb+3L/670y9LvBx
Tq5nY79djr4ctKILEnEF2WTsF7ppWRcv6sGv/VzP3nZR0ZhLY3d4rB5sa9iu
O4DNcpnOGBCvBxlfDHp7sPU7lLyd0/RAoejXVAf2a70RDe0besDub6jXgP1G
X2yauVUPIvaWphZiUw3r1eIY9GHYas3eC5vB7AM1OUofvFjX9nNhdzZbiwZe
0ofPX9xD2LFTZPudKVf0gSyv1sKGLcLVSRdJ0QfldS7HDdjQ/WC8plAf3GP3
3FvupKIoo9SpN836cFHdvJWGTdLXX9i8pg939KTzGglr1DMUhRlAdMlypR+2
vfbEy+GzBnDkhoKJD3adnlAGz0UD8PComffCdjMNF4+ONwCWyEANN+x+B3Uj
l1wD0E4d+HsM+0Zwe4Z0kwFsnll7b4ytfefd3sckQyhgcZKRwr6y+bfJwGVD
EDj6u3WqA58vnZ201gRDOOi1neUbdmFYTtj9ZEO4rtBjOIFdP6JWmnHdEGCi
f5iGPVZ4adWm3BCOWfKyfsLWlOC9PdJuCMHfyit7sVeVZdjGmI0gnoXMXo/t
a+/c+jvaCCjZQxOx2FyFU19VrxiBo1+4Swz2HZrf+oVEIyi7kDMejT3hFaXK
cc0IxlWMpqOwj53PrxcpM4K0VjWWCGzjkqFKg04jqGr4GOWDLfHDKD2Xwxi8
f9yLtMNuV3hT85XbGBbUkvdSsE+F2PftETCGcM+6NzbE+kjunNU7jCHWun0/
GVuQL/byC1ljYBMaWjLFZlJ+FvHd3BgKRxWfaWOPXlA8ha4Zg8jH4CPy2OKC
XEm+2cagHHuTVw7bo3LiYXE+tuPUlCz24kAOO1OZMdT+bCmQxmYTY7jfWW8M
fWWhfBLYsu3dDJbDxtDQyyi3Ezt8k2vhqW0mkG3/Q5YLmz89+0NcsQl4qBjx
zrZT0aa3fP3+pSZw4Tun8g9s0uakDodbJrBlW/qx79jfcy7WydSYQIUE9e40
dvsNz6T+ZyZgNnreehI7tFZNc8tXE2B1F+kcxf7UP3qrQtgUogellN5il3FL
hXXkmoKlbSJ3M7bsuN0yU5Ep6DeTrJqwHzbGhWiWmMLUuX2ZT7A7Xb4FNd0x
hY1ni4UbsaeeVPjfbzKFpoi1Q4+wZdz3ehV+MYX1lbGEWuy6FrHjIaJmgFpW
75djt/jv1Nl72wxqbBa/pmOv/JpN2V5lBrb3R6wJK4Y9+8hz3wx0p9GrNOyK
8ycCVxvMQNzs7MNU7JTEmzf7X5oBf+aza8nYTmV7GSOnzCA5m8s9AXt95vrx
SX5zyFdfdI3GLhAp2q5GNodKubiaQGyuePlOGRtzYN/Srk34/M/WAGGKOYzN
nxwOIPK1j71cdzAHUkoDifBur31hrc7mMKMyaO1H1Oth/Vu9AHNobbDmOYN9
z7Q7yTLNHGQqM1+5YjdFrpDc+szB890mdUfsparxuYsD5jDxyvGLA7YcbeBr
/qA5pMltvEC4xOD2szfD5tDQ59Nmjx0v6BiFRs0BZDws7bBtqpvWBRfMYYCp
NdIGe5YW9a+NzwIcs2a5LbB3GbGuitpawJn/isX1iPq91RrYamcB9W/4R3Wx
dY9HVfA4WMDSifZcwh4Bf8jrxyxAivSZh3Bd7vTdDy4WUFM9QtIh4md6j6cG
W4AGlXtKk4i/mvX83zULyHPznVQn4nslE94PWoBBbHDcIaIfoi2lK+8s4Nbj
AyaEPUMoz7a9t4CbCdI8hHfvvPzr6CcLeLGhL1sJO/kM/Th1zALM/xu6e5DI
z1moOL1kASaTt78ewBYx4v+8KmQJD/Vu+shhJ7b/kxM5aglaHwLFpLDBb1x+
x3FL6LoMy5LYi9t6FLaesIRiH8XXhB398hX5T1uCoH1GIGGZ7arKbN6WQEuU
65DA7vELQ3ORlnCa1BCwF5t7x6LJszxLeNXP+U0MOz3gm4fTR0tQritQFcHe
qhvuZ/XZEp7xs2wlfEOIPVT3qyW48Cb+3old2yQdI023hHrNxVrCfay+hcvT
lnA2RmEfYa68pTcpfy1BjclslzD2lRcb1Fq2WoGOp5HoduxIAeH/dttZgQvz
mVAh7O6ajfbIwQouXjhhT1jY9FeJ41ErMHX2UyX8NPa1yvUTVhDdM0YizLgc
7sLhYQW6x4QTNmNf/jDUtBRuBVui35YIYqcVpnq9yrOC8N66GX7sW5LMLwO/
WsGtYfVOHuyB7Rp/valW4P5dvpbw6n9npV3pVtAVoJxH2HRpMclu0grKIs/7
El5spVupz1lBEM/PLYTB8cUnVhIZRDMCfbmxh5Oi53N2koE5OnPff9gsiwxb
Wo6R4Y1s9DsO7OXqrCS6Exl2pvk9JzztvZ+JzZkMTyj+1YT7JhxnTV3JMFNf
GU84Z+Rh20cfMhjqLyLCss+9/ZejyMCiP3SXndgfae9f7b9JhqWm4MxN2Ppm
vhpWpWQo5kqNIXyEg/VhcDkZjFifBBIWiVW80XSbDB/valkRngpLDjWqI0P+
6mYewudO6OxxbSMDD0t78kbscrmacwUTZDBebM1iwz4jMP/n4Tcy8F/aHE9Y
cUUuqH+aDHY7wyMIP3te7ck0Rwa5w+7HCA/bVFM8lsnQjb6LEWY7W6WgtNEa
ltvP1bFiu3XdHe+Wsob0DXafWLAlT1aarnlbQ2/8VUtm4rzNV6le8LGGjv8a
9Ai7vH/JM+lnDY985lQJl5hPDw4EWUNAQfhewiJI2qHirDXcHmJcY8IW3H7P
1eqqNeTyfLpFmPFdTdStO9aQPxq9ifCIweNa62lrKKDLjTFia5qVUIK+W4N5
fO8I4Upy8r+MWWtw5A0ZIBx+/LTh4E9riO76+pTw1iAequWqNXANCucSphS5
85hz2gCLlo4V4XdLW3wN99sAl85MFwMxbzfDZVCADei/mOwhYfOS6h+rBNmA
Vw5rJ2Erx3kdpRAb8C6WbiE8yO92TCbCBlg14+4THoqxTt4WbQM53YlZhD+6
ys3/TrMBR5kGZ8Jj+8brqmttIL7c9d96G563+xaquxdsQGc0WZswh7JSD9+i
DXy1UkSERZ5sdWJewvkrPh0mrP+CFj35xwayvqrvJ5w9GPTqHoMt6DId2UpY
5Ve2/REeW7hWLDD/DztSiRpKlrOFXWlyNwivP/J/EHvGFsaPfOUm/JGlNuGG
ry0wtR3iINxAnj/R7G8L64nprIQD53y4loJt4cpT239r2JN7vV1Pn7cF2jLP
DOGBTNct2im2kMih30m4NNDxLEOtLViElkQTNpLT1Yn8ZQsmx9eZCZPevmUI
/G0LjRZJjITrw043e/6xhZdOIuur2LufXzrksGYLlq9MlgmvWD+XVGGmgE1Q
9xThygjgWuanwNFKxz7CGztUhgIUKaBhWZ5PuNnzZbqnEgV2f0rPIRzIbW/u
rEyBUfHo64S/2oV1WapSYO+MeyrhRzMPG+W1KcC2YBtD2I33YNGsFQWWE+97
E+44ut/dM4ACWaK2QJjX2a0xP4gCwTRtNcLH3Io5+0IokP7goArhJX++WsVI
Cly5JKJIWOzK75W1SxSQC9sqQTiq9mliSiYFRLbncxNWYTWvfvCYAnS7Ttpf
7FiOOMbJRgr8LeEdJdzP00re2kwBoVvHPxN2267451wrBcr6Gd4Tvi4vpKn/
igKzFJcewosOX998+EgB0Ym7jwnDiS3inF8okBi1+yHhBBfLUDRKAY6K7DrC
u/1ebC8Zo0BqZnIVYYvYitPePyiQXJZdSjgvYfRh4RwFYk7vvkl4MmXrpoEF
CmzJv1tEOCo38Z7Sbwo4eb7KJfy6qI3k/ocCD1aPZhPeXPbPMvcvBWb+LmQS
Pnn7UGn3GgVsXeIzCN+r9v29vk4B3cNiaYT/B0DV2f0=
        "]]}, 
      {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[CompressedData["
1:eJwd13c81d8bAHCEVMheJQpFUXayzmPvfXGNyBYRQlZSKaskWYko40spQlPu
vUZWERKJioasMrIS+Z3P76/7er/u8zqf55znfJ7zObvdT1p7MdDR0c3S09ER
v3uurhfd2tWg+TZxpFBO4S16wiIlEuBbgNoztbYbve9FDREPiiV9K9G2ukgh
5rhe1CIb7MPsS0V6ky+69g70oBjejacbhU2I6QOnpPelHpSVrqe5dqUVcVyt
mWFQ6UFtl3sNF33eIBHtEkHOO91oNp71R8TdHtT14dW0m2M3OtNUKbVc+Bbp
nrg52MXTjbJg6cHvKwNogeqxFCfyBrWrXng27fMZOTJcdxhR6UT31LljlSpH
UL1Ud7Zg22s0N+RZEHp3FMVuEhOpcHyNYoVYvswXfkXrQRUvY5JeoeZnDpvk
876heBHfwRSJV2irwz3x4OzvSOTM1YHM5g6UnW3uM3PlB2rVUSnU3daBPikX
Jh5MGkeXTJ3+UarbkXj/XHlA/ATSoCkZjDi3oyqezOmpqClk71OV0P60DXVc
Gwoe95lBV7ku/5bF807MyWq/LjeLEvZaXBo0aEXSvshRoXIWXfuoJJrL2IpC
Nl+LDrk7h6Tcm50l4lsQ78ARVi7JeaQvvMjSq9+CnpZ+yXtYMo9C1C8XO25r
Qf/0FCmzhb+Ra1VdY9uNl+g270fztF0LaGgbReS6x0uk+/3i50N5CyiCJ3EH
46GXKCV+gO5k9iIa1f+yqbyjGQk0Ren8vLKMbm8WjqrlbkZ16WJ9l7etID1W
swq/iSbk4v7aUzppBTn0rbIH0JpQMf2uS/7xf1CGqb2nbEgTMuhp4dvGsIou
vW2t+2TahCYLT/539+wqsj/Q0FEj2YTkoKFtIuovejW/X7nyayPq2+7nkLTy
Fz3YFmD0srERRXzmmpQMX0MpG3dejdxpRJRYz22+wevo/IRiEIt3IzKu32w+
5rOBPBnVVK2WG5Dchvsi3+wG2iKo0vHfUAO6LOraJaZOB6SuHdtnaA0o1P15
GKmZDg4nTwfKpjYg302+7SdY6OHXw9LYHeENyLmYV/iiKT2crRG/NujSgHTH
gpof9dHD9Z6LZ2rkG5BKwi6BLgEGqNCP6m0QbkDSkq/9x5wZID+K/3filgbE
7bePm/87A7wJ2EPZ/5WGvvz86BaxuAl4NXUzhG/RUH9qyqO0I4wgw+SNbFNp
qOPQkS3lZxihY8GEe8dZGqoOzqgaZGKCbresBk13Girl0macN8Iu8He/TqKh
3JoZ+62pTMCnXbTuYUBD5xaNN1T5mCGwtYPV7yANhWatWNs4MgOT0gn2nD00
5Hu4tNT/FjOotRzmVeCnIctIevO8vZtha/xvu9v0NCS6/iRvXZkFjMbDvzE+
piKeW16zvNEs8LG/iT+0mIpYELfuQSoLvN3iMJt0nYpm4gKnXAy2AIM31ev6
KSr6snsnOp2yBbL8neXPeFJRf2N7+tU3W2Ap/wj8saUiCqOEKs1+K1w6dpua
oUpF1SW9V97f3ApCoi6Jd2WoqFQ/bnT281YouGpDRbupKDVxKHG37zbQ8Lzb
834LFR1lTR84H8EKqkG69uQRCrK8jw7cfMEKm9ojeNb7KUjX/GdsDR0bdHRF
J23qoiDpNMO93xLZ4GcqF5NUPQWJyi1Frr1mA97CpzStRxTE01vUycPJDh9c
+gsr71PQGvdGqN4NdtD41fDwbAEFzdZWtB39yA52+oKdwzkU9M3WcWf47u3w
yrr1enw6Bb3KftRUWr4ddl303Si/REEUFQ9+6s/tIPI57M6ecxQ0eCLx0ZQA
B9gObNMajqagTjblLYxHOYAxVll/awgF9Zpw5XTFcMC+fdvlWgIo6H3Sr703
8jjA8bhgU81x/Dym/3QPDnNAQjWXmbA7BU3qXHi78pcDbuncs8lywfmdc3Vv
2sEJA4/pONSccP7r/HFkJ05oKgILBlsKYlBfYBeL5oQ4sw/ie6wpiCWqO/9n
Lo5XTrH1taAg7qXEuvMfOOHA1ol2d2MKElD0MjZb5YQQHdWvPIYUtCtEa5Bf
iAuC4q/3jutR0P5ff5YqHLggLlNueU6LgmSl+y+ejuSChN3H2CWAgpT9qnm0
b3CBvIwfNUyTgtTLUotYn3FBX4wW81d1CtIe85MfeM8FZ1NiN59QoyBDcYOG
2ytckN1mN7tdlYLM3cUsTwhwwx/S+s9OFQoiFW58UlbhhnNWJTIlhynI4dNQ
AD2ZG1g/nxvOUKYgl51P116d5oawXS378pQoyNMxIyUrmxtuyJaoP1ekIL+c
ICG3J9zgeu6L2S8FCgrqNy0/MMANT4qv3j+MHc4jpbK0xA1ZhlNPMuUpKMaa
qZXGxwOmXAfaN2OfTxu1TVHmAcn/4jWuyFFQYlf9N1s7HoiskAmWwE5lzT0l
Gs4Dqa1OtDeyFJRhHM4wlckDT/J1E1KwcxOtrz16xAOLnPfEydgFLQdF497x
wHV+DnYl7GLGbZXGizxA4lJp3o19V/uHBi8vL/Ap/WoVxq6Ka3r9WZEXHlWv
35DEfkwpcLpL4oXtFLk6LewXa9GToaG88C/JtsIXu1GVHIkyeMHNSPFXHnZb
hCLL1lpeuMD5H8Mn7K7HHNl9b3mhsEw7+gDOv29hWqLgNy+wfduyGI/9Qb69
9jg3H2Tek2WbxB4JKtFRVOADuh+Txxzxenx/cK73nzUf8MeeuPIOe3L6qFt7
CB8UkycOOeH1nN2vOns9nQ+CXDK/T2Kvlc6zSfXi8e7KbduH68PwvSvv9xwf
ROpy9vdis4jdO0Dh5Ic/PvTHEnA9eQo8jGys+OHRnvTYLbj+Qh/Re+FgfvCX
mI/sxxbdsdNnPI0fyhNH6e8doaAD2X3xZ7r5IbL6ecpxvJ+0r+rR/rMQgNmj
X+8qIQqKM64t7w0UgJB204fyeH9SmMSur18RgEY7Tj4lvH9VY+i8bV4LgED8
sLCRDgUpHK/btmEoCFNLy9vLDShIXEfO3k5bCIq2FiMxKwpiXt75i1FpJwSO
xTtweFOQ16FVNjk2URj79EVvCfcD06GEEoFdolAp5Lp6JoOCFBN4NegOiYLQ
zQtkpiwKYvwse+KNpSikjPLMcd2goDupPh0BGaKgr1P2QBL3m88/+y7d3bEb
ejpMLFXu4f1eUbkhtn8P3KfviW1upCAzKa85PgNx4E/hQHO/KGg1Jazuo504
7Hw/V7d/loLKfl28WOwtDkbd1foec/h5taWC8pfEQfai2MWe3xT0XHNcy+yl
OGya47l9Z4WC9pL80y/oSMCTk6au/AxURHc2WGEW7YX5zBtupjy4P/edCWtX
kYTQNFenP0pUVHbR0/2LkSTcYXl3ke0wFd1SNrH46ygJsxuzD0RVqCg5R0BK
5owkxB3ZSaeL+7uHc81wWoMklJ3WrInVxOfJt3EdsrEUcO49xPJSn4rCf9tw
/XDaD4HhLu9y7ahIjWt/JeNZaZD6fOl5Fj5Puugd2zuvSkNJdP3dE6FUdGwu
6WtWoTTc7rDo1QqjovjuCX6pRmm4EezRMRGO41PL48yYZEC8F0Jko3D8Ninr
rBQZkJxdU7wRh+MZJRf35RyEj8/stD9epiKfv+n5JWRZiDydWWBTREUZ5tNN
kcdkYX8Wj/YcNu223qSZrywkGt9ySMXnn4DhivLSaVlYH7010VJCRW0ZR7v1
s2Uh99X8DbkyKpI6KLlp/J0sGCa+K/xZQUVTx+p999vIQdp9rpOb8Hl6suWH
QqWZPFSyF3FQWvD4UOEvbScPc4+zNxu0UhFHXVBRuYs8vJbkjX6DXVX5h6v4
pDywiSQPfmqjovmcbfM513C8WdS55Q68fv6Hqs6/k4eRcI8xjjdUFMNxWtru
qAKcXe80+dGP6+HILLF+QhEUVRXz1L5TkaYs69JEqCL8+EGTKMSeY+Jq7Y9R
BJvkPbaMY1REfih8vOqyIvTEXit9hS3BonTfo0IRmkfsd9qN43wfeSh1TClC
mRMp03GKipY4GvSy/ZRAUZH7ldgcrndrtLecrzIEJuVLtP6lIk/1veZLJ5Wh
jK2/j3eNirwfdivVnVaGWY5+TU9s35sSTHoJytBadViXbp2KAk++KSKXKkNq
WJGg0j8qiuIXGz37TRmSd4lxGNHRULpPh1PXscOQpn3l1hUGGmrYLGjl76AC
P4uqe58z09BY0UHjQTcVELWZ2vYRmxV0dQz8VCBQzk18A5sccVJJLFoF/haG
/NbeTEMz4y8Fh/JUYOXsLbZ2bOGOkC/GIypg8eme2RsWGoq8/PrUfp8jMMo1
+qZ5Kw3JccZlTYSqQg37038O7DT0nGVAsjVGFbbrTIucwtamO1hXHK8KnaEP
9l/GJs0MfXbNUIWcPqn1euzwzsNS/TWqcOoOf47odhp6kTRT1zivClddyx6P
YhsyuI7eDFKDgBk/YRInDR37rSFtfkIdTsl+SV/npiE2LrruvlB1OF/1iczN
g58v23jK6Yw6/Lr9YosUNk+gfp1vqjqw/wuSJmG3jZsbX6hSh40Zm4hybNlP
rr5PF9Rh2V1HzZKXhujazxXvOaMB8LV8PpWPhu7/0DEsv6gBryBd7Q62IzPz
9KFUDeClvg5+hF2rk6ygUaABnqzxpUPYvpT0RvsGDWjb4FTYh78nu2uKRi4z
acK7wYTx59i3b73cuXxFE44naam9E6ChPGfpAdssTSjMGKYbw84Run6t9pYm
BF66/HgJOzXrGHNIpSYI/PCb5xekoajUvzPT3ZpQKTxy3wHbOlau6Qs3gtKx
KfiAzeiSf7zrBoIty8XK3UI0VJOqOtRrDcCrO2aYvpOG3G+yMz23AzDUWcy7
hc1V9uXgbUcAE7ptY3exgxqSz590B2hwCrZvwpZe+CDFGgKQb6nz9Dd2sUN0
hN41gGhVmWhrYRrKEH/B+/QNwPtpA2OWXfj7+rmGZb6pFhQa5m6xF6GhR46t
DIOWWoDC2Khu2Eurlo94bLXAQ1PZ7wR2pJqn0OWjWqBo/Pr2OezYF8nfogK1
4G3Tpux72AmUgQhymha0Cp+4vY6d2xh8m7tPC/YcMQ7PFaUhakfJfJKTNsgL
a+99thvfDwS6g8+4asOwxAn6Buxi79XZIA9taGNOfteGncxgMWPvrw3JBc98
32OTVFemJKK14a1Futoy9mS58feGXG0Qa47KUcD3A56kmYE/g9pAPV5J/g/7
uMGR+uNkHZC4za0UI0ZDvyQFXz501oFUNTH6C9ghW/+8/nNMB4KWM1qSsGM6
nw4nHdcB+ulnGtnYaTYqa+VROrAW0vrxIfZj18Nqk3k6kGX2afI7NkOE0jO/
UR1g/+vuaSSO5+/A21D9XQf+5TMdt8BmVVtsW53QATWd1z622Lz/at8nz+tA
ueNHGzdsyXjFlbubdOH+vkdjEdgWaQqHpyR0Yf5y4Fopdl6Z3CN/P13I0TjD
toHdNujRVhCoC8yGtwwZJWhoYWvW0NsQXeBfocRuwTYJWKVXj9aFF77cw9zY
q3JN5qyXdUH5eKaTJLZDHWm84r4uyHd7hlhi83Wd3vFrVhffN9R35WNf+11/
Lui0HsQzf3GT2ktDgb1pbs7RehA62HVEBtv0oYeW4Vk9qHhjwS6HzXxyC71o
gh6oTQveV8GOmSTFvcnSg4dWuxsNsL1Hp2IPPtYDBpk0Uy9s9TeCMdMLeqAp
nLScjz12NyzcN0QfsiQTdZn30ZCd8L9PZeH6EOC1PXcL9surlwwmovTh+0nn
aVbs4tBsAb8L+vCKi5TAje2u+ey5f4Y+dF1nzxbF/tSz9i/wsT68ySeLqmK/
W7mQELaqD7a7GGb9sJv103POnzeAEo0XQs3Y373rOqMuGUBOzb+UFmzmhG8M
p5INgP0U6982bMNW5QCPdAM4HHettxP7tcGQlu4dAwirPO0zgP3WUHyKqdEA
yFoe+yexvxg/1kiiN4RE2YN72CVpiN7iw5ercYZgfeKyriV2G8VWLDTeEKa9
B2WssdMO9niQEw1B52YkLwlblL3tm2iaIWSuPvtsjw2dj8YeFhhCZab3MVfs
OJNrk28phnDE7A13IDadoeE8/7oh+C5+MksmrPWYvjDSCOxEI40p2I66Pzre
nzEClhKWBSp2rYFABud5I2A2+nuzAdvXPGrvhWQjMNrP8aMZu8dJ08T7phFc
nxPze4V9J7wlQ7reCO6kWUq8x9at6N/3jM4YGgrto2exE/mXzXoTjIGh4SK9
sBTuL21tXxtTjGGR5feRXdgFkbmRNVeNgUozDhbBfjykUZKRbQxSFfXDu7G/
F8Sv2f1nDP36Q6V7sbUlue4NtRiD56sPLLLYayoyLN+ZTCC27zuTNnaQo0fj
8gUTWHCe3+GBzV4wOaKeaAJf/fz2e2JXfA3eOHfZBPTP9R/2wv5xIk6dNdME
dIeuWvhgu5zNfyxaagK3nt4N8cc2LR64a9RmAgkv8hJPYUv+Mrl+k9UUTDZb
rJ3HbpF/+3CEwxQ0SS+mLmB7nnbsluA1hbeH9D/EE/OjO85WJWwKyUW1tZew
+bgvJTQfNIWiORHXZGxGFVr0T0tTYHeOSL6GPXpO0RNlmkLGjRWNAuy9fOyp
QTdMgZ5MYi/E9rv748ntfFMwWJr4SHihN3cbY6kpDDG1RN3BZhGnr2l7bArH
Bu3vlWAfbOmkt35vCpsyMsfvYUdt9Snw3GEGm82WBp5g81y/8SHpthm4Lwzf
68Te+o67J6TEDJKYJ3W7sOn48c2v3Axs2AM/Ev6Ze75W5qEZ9M0Ps3YT87/j
n9pDM4OCOg+vXuyIag1twREz4L5/fr0f+2PPaHnZLnPQ5A3u/IxdyrE/svWm
OQSdd2eeJfIbc1hhLDQHV7PDKYSf1CWd1i42B8W4y9vnsNu8J8LqK8xBh/M5
3zz25IuykJp6c3iZfEhkAVvm+L4TBZ/NYVVqTmAFu7ZB3PW0mAVsXDlSs4Hd
ECKit++eBZz0XM1n24/73eJM2s5KC7ihQ9kgrBhJG+assYCX8dJu7NhlZ91C
155bQHXgFrHt2GmXi4p6Oiyg7l7nHQ7sY6X7GGImLeDK7pZ0buyN6WzXcR5L
kK0tVxbEviVauFODZAmjJeypYtjsyXJtMnaWoKBbMkj47O/GU7vIlpDIvCwu
TozX8r1jw8kSJBrePSe858SByEYPS8i63vxVArv0yeN3BqcsYadp0QFJ7Afm
nanW6ZZQtX8oTRq7PmaVzrfbEhoc2MoUsZcqx2bP91qCL9l2krDs196R/D5L
CP7lIq2EXWx0j/b2vSVs531WSTiZzzkOjVrCobqcGmVsu6r6Db55S4i3jq5S
wZ75GvfvJbcVUKUcYtWxd5tsXhOzt4LksrxgHWL93un0CjlYwc5MlzuE9V3j
yjidrODZl8Vewn6n/pA2XKwguqJUQRe79ubU/Q/eVmDuyPWbsP70G9dr4VYg
JcLlp0/EX8lp+pdpBQL9FkeMiPg3UimDfVbAA3Ge5kQ9xBpKVvutIDO+IZWw
/2kybcegFRxdfv+U8B6RhMWjH61gaE8KqwX21cBvrl++WwFXJX01YT+2AsWp
JSvoTDy2aIktasLzaU3AGgyLpV1tsC+3/JMVPWoNVw5LtdtjQ/CYnLCrNXyx
OjBOeGFHl7yQmzWsGHNuJmM7B+cr8nhZA1k7SZewzE51FZYAazAXl6YQ7gqO
RLMx1hBeRqpwwOYQXjCj5VlDl+l4qBP29VMTfseGrcHhU/8LF2wh/ahgm0/W
sM4o9o7wHYFtEfoj1nD9lcNPwtX10helv1lD1NQlYVfs7s1BBStT1lB7bjSG
MHve0tu0v9Yw51F2+Bh2YvMmjQYhG5Af2ch3w47h3bV9j4MNsNZPy3lidz7c
4oicbEBdh82A8C7zxWLnozZgMyHoTJh66bVqtpsN3FtYvkiYYSXKm9XPBq4v
tL0nnPBhoH4pygZ2/X4U5YWdXnDtxKs8G5jKl6zyxi6XYuoIHbEB59rA777Y
vTu1/gZ8sYGZiMkFwmvbz0j7fLOBC+5kxuPY5ksLqQ7jOL+RrWKEFxq/2WjO
2gCb+GtXwuDc/HEzHQnGRV/0E36femEuV4QEuStxz/2I/M5T92TsJkH+T7M2
wgfC/tpcESOBNTt7P+FYp1OPz+4jwS863znC4pIe0Z6HSPDw54V9/tgnG7SZ
DiISBP31ukaYeYFesMGFBM45Ys4nsFeqclK/HSPB0kzIccJTAYcYWTxIwDBR
G064+4fzjLkPCURWOa4Rzh168nL4JAnEFA68JHywKSBkJY4Eav0L+wOI9y19
8NWhIhKk/7frJ+H/ZB/G3vqB86/XNzuJHcg79+fJBAk2PJ3tCSuuyob1TJGg
PNnHjTCtqcqfcZYEU5EuYYTf21WR/VZIULu5O48wy5lKeeUttjA13DFB2Lf9
/ljnfluQNQyJCSLyefDT7Ye0LWyUkC8SXkiX+Uh3yBb6w9RSCcc533+roGAL
mr4rBYRzZipoN9RswSvuaBPhNt6KXC9TW4hr0NkajC3lftd8PcAWtg6dzSTc
lq9aNX/SFiqO2eUT9h7s4BwPtoX3r/eUEC62nOrrDbOFxoL8WsKiSNqp7Iwt
PPaVfkuYb+cDH5srthA+WMgeQtS3/2FceYUt8Cp0xhIeMnpWbTtlC8UGu81O
YWtbFJPDftqCIi/VhvBd0tV/GTO28NvWzpFwlKuXcd9vW1iXDfYhLBTG+cV6
zRYMzMjnCJMLj3NastnBaYXpGsL9S4JBxofsYOuREJ5QYv8WRcmgU3ZAZ3Wt
mTAX3eNnqmF2UPPAs52wjfOcnvJpO9jxSKGLcB+Pr4tMtB2wvGgeIDxw0fbq
jgt2YFtdPUl42Ed2bjndDvQ0advDsL8fGKutqraD5XO9doRXaqzU98zbwe1f
+wYJs6ood3Ev2EFA+sQwYdEXQseYluzA8uV/I4QNm79eGP9jB1ZjguOEb/SF
vXpAbw8yp98tEVZdvOGoxmkPPl8ruMOJfqD8JYIkaw/bXBeNCW88DXl0KdAe
GCuqqggPM1en3Amyh+/d8zWEn5Pm3Cgh9pA+K/eEcOjsSfalcHs4KP9fPeHx
fQE+XmftIUgtsINwb5aPoG6aPeiZh3wlXBLqfIa+2h6o/l7cp7FNZPX1Yhbt
4UWqlj/hx5FeFP8/9jD6lDOI8J6m+MNO6/YgkjgYSnjVtklKlYkMQkctYwnf
jQb2FR4ykGeG0whvaVUdOKVIhksv42oJh3I4WnqokCHs6tunhEccItut1ckw
wytST/jp9JM6OV0y7M0vfEnYl0upcMaGDFOhFv2EW48eOu5/igypD32WCLv4
3mbrPk2Go7zUVcJLIdzVijFk6G1g2yAsnri8uh5PBt9N1zZHEO9PNfVyWhaO
TzskQFh1s2XVo2dksLPqPky4h7ORJEQhw0j0LTXCvjsV/8Q2kkEk1BMRzpYT
0DZ8RYZnSwP6hBecRt5+GCaDiYeLLeEUb+sINEoGf6FpMuE9wc07i7+TQXUu
2Jmw1aUyr4BfZPix19uD8Hia0NbeeTJo5/Z5/z+/m5cfKC+TwdROzY8wf+k/
65t/8f9euQGEH1QFLW9skMGrZy6I8P8ApykcbA==
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV1nc8Vl8YAHCbSn4llRQJFYUQkuQ82dnjxWtkZmdGJDsjGSFRWZGGUUZG
ERkZme/7RipKJEJFZWf8zv3rfr6f+5xzn3Of55x7D9h5Gjow0NHRldDT0RFX
gRtr97P5GhVtP8f9y7rzAlWziex3d85BAtnKG/LpNagx4Gm+sHMJoiSyTxck
1KJWCW8nFudXiC8QWfY61KH2eJrGvFMvKp5iVCGfb0CzkewTAYVUVKZQkSj2
pgEFN5eILN57iw5c0i8WPdqI0mDh6d+EAfRr/cyp1fFG9Eb+6osfTsOo0s42
kh2aUZHCjhCZki8ohFL8wjqpGf0ePJ/jWziCznEqKV363IxCeNhG/9z7iqby
ZabFfV+j9HRdp5mECRRfqWcXE9OCPsveuyYe+x1ZSuq9e9rWgoTe/S5wj5xE
gm8VnnGytKJSrls/pgOnUX2o9dnXwa2oI3nQ+7vTDBroFd151LwNXbud9uam
5Cz6HTJgnZrQhkSdkfnxklnUtlrGevdVG/JhTb7iU/gbWe2iDt3f347WVaXr
Z+/9RUc7HhU3U9pR7s5Pukl8c2gqy/6I0Eo7UvkWNXwscw6dnjwefUHgDYqL
HKDzTJ9HToEBqv2ebxB3c6Dyz4RF1CS9GDKy/gbVpgj2xW9ZQrNm+4fN+TuQ
lV3XedHYJXSewjK7CB0on54v2i1yGQnGUY5VhXYgSWhsnwz8h6r8nvH+/NuB
+v5zNYtd+oe+/516KvZfJwoY5pwSvrSKlsPMwhtEOlF9yPktzt5rqCK5ufq3
ZSfSrGPVHXfaQLaPTyqyvOxEkht287tmN1Be03WxU32dKJ7fukdQgQ761Qfj
e6c7ka9djR/pNR1oScTuPLqnC6mMe72u7KOHe7MmPFLuXUguho+7h5sBJv5u
PzEZ1oVEhbvcxi0ZINDf0FAotQvtcD28Y/c3Bhjd+cJd5kUXGv35yTZgnhGA
b3L6yHoXepcYV5l0kglmRRv8nDm6Ucexk5sKgpngGcdcjypfNyr3Ti39wMwM
LDlOC9MK3Sh8XnNDfhcLRN3yYDlxqRv5pi0ZGpmzwOw2R5Hmq93I+cTDh27Z
LCBTb/mMKbkb6V+m1808xAqzw9oFZYXdiH+tOnNNlg3ex5ccmfnYjbiyHWZ3
XmED0SoznvPj3YgN7VARf8UGXzwdRHN+d6OZMI9pK/VNoNYnN+PB2oPqmQ7K
N5huhguNxi65Ej2o/AEt4X0GdnZav598D3qoFjYyO7wZXmnyCfOq9KDEa4PX
DjhvgZD/wm5PmvSgc+wpAxEB7MCkaiydFdiD9J+goxkv2eFCsPMh0as9SEX3
Z8gzuq3g6z9VlB7Xg0STNA6NXdsKVn3/xbFl9qDVHRu+qnc4oDwqode9tgd1
b5XdxHRuG9SJZ25mm+9BNC3O2z1B2yAv3T3a4l8Peh/769CdzG3w9MF6dQZ9
LxpjfqQiPrQNjh8C27GtvWh1bXcY2WI7VG5pab1/sBcd+bW8UGzGCYzJ/42e
NOxF13rqxoxNuCDiw74PB/N6USL73Yv8l7hgfjPvrt6HvShV8xLD9C0ueG++
lulZ1ItyWsX5w/q5ICh6wSS9ohdV1edYFJJ2Qpt0mmJ0ay/69jSctm64C97v
/7bEPNmLlG6oNjzS4waRYNX6Gi4KCtOsKKB5cIMgb4pr9i4KqmcWvLmWwA0z
3Vl9odwUJB9E52jUxQ1VnTJsCvso6LhL7ZYNjT0g2LBCvStIQULKkqYmSjwg
8sctakmSglgW9/1iktkHLb9ieq11KMjh2MpWya38wFKzktQRSkHagzEPuPn4
gWPQ4JhLOAVJx+w8TXeMHwZ/hbiwXKUgpmGJC736/MDnvPBCIZqC8hKdOtxT
+WGLwi3WO/EUNPyzL7pw7wH4nvF0E+cdCjIrLtkQPCIAWqJhp7aXUZCOiMPv
XepCwKEgeSb+EwWtxPnVfjIRggxyiU3bZwp6/CsqKt9RCEQjX6TQf8HPq3i4
RypaCMqUxCUvjlJQjeL3MzotQuCZXe2qNUFBh0huKVeVD0Lz9SwbyiwF0YV6
H59Fh0B7E/sDCUYqKu8L9nsjJwzZelJjrgep6HHUebvRs8JQ5C0vFnWIirJl
tfT+mQtDs0jb9ezDVHT9NreIWLAwRBnsiO4RoSJ7y2dDSY3CcEZm+YagOBVx
jX1XJmuKgGHLSFieLBVd+mvEOWFxBEJG2DWW1KjoFOeREqZQUYgTlaMddKCi
HnrzN903RKG/7D09iyMV2fyO/Zp2TxT4ipR8v2FHUiZ3izSJgkV6kWCeM45P
LAjTYRaDhXmTl5wXcPwWEcO0ODGgGkqdpfrgeCbh+cO3xSHKUSKqLZSKnP6l
ZD0gS8CvtmjpynQqStX90XzZRgLCreQ2W92mooZc1SkdZwmYN84yZblDRdwa
S7IL/hLwjo3ewvguFbWnnqOopUvAh4lijp+ZVCQiLsz4vV8CyvrDgxnzqGja
ps75iJEkGBde4+4toiLP1onjJTpS8FfKqnS+Ds8PxW6iJlJQePHNzPV6KtpW
63W/wEoK+FX2Fu5/RUWlJcuc+Z5ScM1vd7J6AxX9ub3lz+1kKVhRmjue3ITf
n9ux0oh+KVjv1hdhb6OioG3+oibnjsP9z1zP7vfiepizHFy7IA3LpVkensNU
pCjBvjDpKw2FyKzgM/ZvZs62d0HSIBUzGqXzhYrIZbwupfHScPdR+MEjI1R0
kE3miX2xNFxam2QZHsX5VtrLdExLQ13ggZQT41S0sK1RNd1VBr7mB7c9+IHr
3XbFUdJZFvbtKPkStURF5xUO6S54ygL7RdriJ2zHMopMrb8sHJVYfC2zTEXO
GQeZVWNkgdf5VMQYtodn733yQ1lon7BNVPxHRYG7BUdCx2ShU/8B37c1Kkpx
6rDosTkB7BOTFWsMNNTIusfAzUwOsseKHzqz09D4fXHND7ZywIyE6aqw2UFF
Wd1VDkzlPDgZt9IQOcBTRvCKHLi5y9tlYs98b9kzmCkH+QwvKjs5aIi3w2dU
84scfP3qb8+7nYYux3ddPOJ0EqKtiiITd9KQ5PawtElfeWjOXrxQwUtDNWwD
wm1B8hBRurnsJ7YSnXhtfqQ8FAvENB/ioyHSzOCwdao8iMZZkm5jX+o+IfLu
mTz4HBgSubyfhl7GztQ2/ZGHXFaVNskDNKTBYD2S4XUKJm08x0KFaMjm72lR
3QsKsNJcwH37CA1t5aSj9PkqAJuPC0sHdo1E00WLYAWordl4/Q+by0Ot1jlR
AVhtzldaHaWh9u+6mldLFUCpDDkLiNKQxGdr5+dzCoDYw+RzxWiI7k14vkDw
abgyRCoOlqCh3OyWfYsJilAUGOxVI0NDmZaiA8ZpiqApzr13BPs2z83kimxF
yHS8n8sqS0OJaTYsPiWKwNjKqUzCDkz8N/ODogg5Y2yD09iGIZLNozsQGPM9
CeKSoyEmqyyXnjsIdlenWmnL09CzRPlBmiGAu236wXOKNGSXwcFcYwLw9VNA
6WVszsej4rnmAFt2+wqkYXs1Xo/wtAPgDN72sgdbdO6jCLsPAJO5RrsioqF8
sysBqskAEhVxJjxAQ6lCL3c+7wWofbHQ/+oMDfnWnNbP0j4DP+625ber0FCl
eRvDB/0zoJeSHDGCvbCiX8llfAayg19prGBfPnWeJ/7cGehXzE48qkpDIS+v
jwV6nAHDt+0MCdgx9QMB5KQzcCjiU46WGg3dbfLO3dF3Bg5Uaig/V6ehVx0P
/sRaKMFPu9YoI00aKuemeAdbK8GY5TrFATvfcWXWy14J7C1/bwnAvs6gN2Pq
pgRzaUoGmdgk+aXpg1eUQPqwyN4x7KkCzW+Nd5WghKfhuZcWrnfszMDyByVY
3nHkSog2Dbmon6xzISvDgXzXPx66NPRLeE9LmaUySCx194Rg+2xe7lq2UQbm
TcMZidhB3c+HYl2UgSlane0pdpKR3GpBoDLEzX46+gO7yvrEqalMZZDMDSty
0KMhhgCZF64jytDy7d2Mjj5ev9nOxvJvymAYt7Jmgc1+ar59ZVIZnlReW3fB
3rle8f76H2UY0t47EIUtHCm9VMioAve8b0+8xNZLOn5i+qAK3F+aTBY2wP32
WLLSzVUFZNkZ7Raw2z/Yt+d4qIDrgl4mgyENzW1OG3zrowJqZPpODmwt9xV6
hSsq8LH5FfNh7BXJZl32eBVIopv5bYJtVkv6XvxEBRzOyJRUYO/q8d/7a1YF
usv7GZ2NaCj5b124l78qJA3C6VISDXnQkmwtr6jC4SPGCi+wtcvsz2iEqsKB
JM/jTdgsnpvo+WNUgTWMuqkPO2iKFNabpgpLG8zkRWzHkekQ8SpVSGDkDFMw
piGF3j1BP+ZUQVWqRqwRe7zQ75Kzjxq4qDp4V5rQkAnv+ufHl9Rgg9oMddgt
N6LVJwPVgJclk60FO983ndv1qhoUcL4L78O2U3xR45aqBkzBJ/f+xf5MXV33
qFKDv2mMs+KmNNS/dDXGb0UNIj83knKxX6ul3I6IUAfl8CgfHzINfXOs7Q6M
Voc1yTaxAGyWmDGGi9fVQZ91/GswtkabrLt9ijqEbnRCLHaX+uAZlTx1OKZS
UpeD/VZDaJq5SR2stkW2dWKPaladjqXXAHb4JcdvRkP0eh9Hb4RpAF3tq+Ba
7PZ6Y0HfSA3ojUcrr7CTxKn25GsaUN3b7vMam5+jfYw/SQNUmZjJ3djQXTle
lqMBpo/D/37GDtNKnnpbrwG2Q/7e9Ob4vNLQ+LN7TQN/36vvKRM+U0V/7/JZ
oB6iRdZhm6tMdLwPPgtsLmlujdgV6typ2yPOQnF0jm4LtrNu4KGr188C7U/i
pm5sqoWilmPGWSgd0zAaws671JoqWncWooYtTq5gqxS/O/yCThOcBFKdjlvQ
0LXdizq0GE0wcdBdzsBObW//2hSnCfvvd7/Lxs65fPfysxuacEm+viwXu2rw
9IPUdE3wsFizfoT9LSdy1eSRJgxVu2eXYysJcxYNtmqCfZvSw3bsVTkxtm/M
WvCEzWH8D7aXuX3T4lUtGMg2zQNLGuLImfqicA17op9XGbv4q/dGeLwWbH85
nKaKPXEhTIH9lhbczMwN18S2Cs2q4n+oBQl8x+RJ2Nr5A4Vn27XAWnTppBO2
8C+tmxns2hCWE3gtDrtV6m3Zl23asG7GWJuAfd7fnHJwpzYIbPedvoGdQ+ey
tZRXG44x7lFLxd61Izrmtbg27B9oHM3EZpJruPJTXxtqOMxrnmCPhEufR7e0
YX5l51Q39qFdHIled7QhqS3xbS+2a+FEdW6WNrhry9ZSsedod7cwPdSGkp17
ovqx2YTon7VXYbfYMX7CFm/tpjd8rw2xaSVF09iBm51yzu/VAS0h4SrWc/g8
vHnnY2yuDqxuu8J8Cntz/w6qzwMdqDng6a6ATbc7sc2iQAceNAn0ncb+eTei
QqxMB9RkurMAuzXPLZHaoAOp1roCatgB5aeV9nzRAdeBtVl97E/UkYLHfLpg
0fW72AH74bYjl9sydEFoW9VgHLb4uNkS0z1daBiy40rArq6N9VfK14UdTaNa
idjtjpN+dcW6oL1mXZ2EPfXysc+zOjxe2T3sFraYy+ELOcO6wORXO5iNXdEo
ZO0vqAdhVS71pdiNPvtVDxfpgSM/jycVe2V+JmlfiR5E+buQaNjSlxuGtj/T
A86JSbm32I9DbX1Xa/TAvDBsow87Kf7+fWqHHvxb2331PbbNw8MMQVN6sO9l
6Plh7I0f6dbfufTh6eOm1B/Y2fz39p0m6cNLrfF+Jivcf9cl28VM9IFyNDeW
GTv0b9NFPrI+zN2uV2DBtmn91rFhoQ8eG/tzWbEFLhy93GSvD+fAz24z9sPq
qn71i/rgORbR9h/2U93uRMMUfdDd5cDPg10XtELnTNEHjYdfj4lhL5SMz0bQ
9GGtdm8XYYmvtC9ZffqQd7jeSRw7/2xRw9v3+sDYp5x1DPv6LsswNKIPE+rW
9FLYJqV1G7v+6MMeHcWnstgzX8PWW3YYgIv8XDbCPqDFuipoagCf42eW9bCl
+5VpPGYGwMrx6II+tpp12OPtFgZQrbn0mbDrxWXShpUBeBZ4NRlgV2RMP/no
aAD+3q8ijYj4H73WyZcMYOpo/4IJEZ9wu3n9lgG8VPZPOUfE94rEfegzAIe3
tBoX7CTBxgcr7wzgfMcJPldsN39yw94PBsDuLh9OWGB/zPy5TwawxYlHzQ37
hseY9eg3AxjYZNB5gZh/a4709IIB0E8vNnti82txfV7lNgQPPkFvP+z41nUJ
/nOGUFkSTgvFBu9xSV5rQwhRd9kbhj23t0eKx9YQVK5wnCds6Z0lzeVgCIWF
KXOExfYpyLG5GwJX3zXOCOwe78toNsgQVgttlSKxt/HO6TRkGgKTrNfFa9g3
L0662gwZgoOwqXASNo9aoLfRZ0NgINnZEs7j3hKg9sUQLszL3yVcXicaJTpm
CB+YSFuSsSmsXjlL04YgLn1kmjBH5sLbpH+GcKMlIfcm9rXXjKcbeYzA6qTL
VBp20E6+/wTMjKA0TWwhE7u7bJM5sjACa4uqw1nYfLrz+ZbnjKBGZZsZ4VfR
XfLptkbw0FmuljDDUqAju6sRHH1jFZyNHfNxoG4h0AgQ3cpSDnZKTvKFzkwj
2M0Z0ZOHXSDC3OH7xQgi5jpWH2HT9p355z5qBM+/HzrwGHv1v2BRpzEjEJ+w
UyWsuzCXaPbdCMrSriQQnmsaM1KcNYLtncf3FRD1sHz9iZWOBGfbnh8vxH6f
ePX33f0kKA5O0SrGZpmj39NoRQKxdxNCpdhLpbcTx2xI0G5vr0J42v0YE5s9
CTZ9bLAnTJmwnNF1IgHPToE8wncHq1uGPEkw1B/OW4Yt3uzusxRGgvdMAxzl
xP5I+dB57D4JtCSuDj3D1tDzOmP0gASqp3yWCJ9iZ62+9IgEW3ercVUQ/RUt
nVdXhMeXZmoRnrp8I0CrggQcQWwvCIfYqh50aiFByvifxErsRxJlIdkTJMh4
/u5wNbbHzt/L1ZMkMGsRAMLSKxJ+1GkSLP8zJRNuaC51Y5rF69cPuUb4vUkp
2XWJBPFBdROE2YJLpGQ3GUMmI2/ec2znN0/Gu48YQ1MfF2sNtohdoe6auzEM
rgolvcRuz5Iv/eNpDHtLv+QSdvzQsf27tzEI1iQ8I5yvP91H8zOGk39r3xHm
R6IWj4ONQWff+X112Lv2PXUySjAGDq/5fMIM78rCCoqNQf5+clE99uDZF+XG
08bwJ2XrjQZsJb18st9PY2izCc8mXEi6sZ46Ywx6peNPCAdaO2j2/TWGK31R
XYR5/LaPGq4aA0ju2tSITb7nsl1/qwmcsAkNJfxuYY+X5jETsDT7ZdtE9Nv9
QDF00QR+9nzbaMbmpKt6Ie9nAp0XFbe8xjay/K0q628Ct0bjdxHu43K2Erti
AtO8W8QID0QZ39h71QRytiSYER5ykvi9mGICgtFFpYS/HR2vKC03gVnPNtMW
ot+eGSgI/MH31bSvt2Kzy8n27JgzAdYbAjcJ87/ksWFeMIGz3bMZhDVef736
fdkEHmr5PSF8p8+v8ym9KQyd2k8hLD9/x/zUdlPg11rf0UbsX9nRAJKEKZwQ
FUojvPHcpzLawxSOSU1EtRP5sZTH5XmZQsTW9ATCNaTftvU+plD9E90i7Dvr
ybFwyRT/DwXlE/5+2N3JIdQUwmbzmwjT0pz2qCSZwutXVWuEH/haBtOXm0Kw
GZPnG2wtCTXVoHlTYAm0UezApuvvp/ddNAV3Jg4VwlWXHerdlk1hxbbqLGGB
5sgTFmumoPlgkUR4xbhZRJ6ZDK3jCm6EC68AxxIXGe4cf59GeFOb/MBFaTLU
LHlNEa5367jpJkuGl7URM4R9t5nr28uRIWLqxhzhL2aX3xgqkKE2M3Od8PMf
1bWSKmQ41x3K2Un0O6fMvRkjMtw96n2ScNu5Yy5uF8nA9oU3kjCnvXNtlh/O
59/RWMJWzrlbKf5kOLJZJpHwgs+OcukgMrDskrtNWOja4spaJBl+xDEUEw4r
fxWflEaGpI0nNMLyrPqllS/IEC8Ys68LO5o9luF7LRlUQtf5CVO3N5F46skw
7Ol9kLDzPunlkCYy5AtoihNOl+RW0ugkw2vDNkR4zuLL249DZOCim7clDLZ7
Dm0dJoPAyGFHwnGOhgFohAzleSauhAW8X+/L/0YG+PjIh7BB9GMH919kcM/Z
c5VwZtxIdc4sGb6yicYQ/p7Es5n2hwxFAfJxhMMy4p/KLpJhT4jWTcJd91ro
XJbJIMWrm05498N1w4x/ZIjq184gbFd04kH3Ghm6itRzCD8t9Vrc2CBDY77i
fcL/A+OO0ZQ=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->{True, True, True, True},
     FrameLabel->{{
        FormBox["\"Density \"", TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}, {
        FormBox[
         RowBox[{"\"time \"", "(", "t", ")"}], TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{{0, 100}, {-0.05, 1.1}},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], GraphicsGroupBox[{
     {GrayLevel[0], RectangleBox[{0.2, 0}, {0.4, 0.3}]}, 
     {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
      GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.3}], InsetBox[
         GraphicsBox[{{{InsetBox[
              GraphicsBox[
               {RGBColor[1, 0, 0], Thickness[Large], 
                LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {Left, Bottom}, {1, 1}], 
             InsetBox["\<\"I(t)\"\>", 
              NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[1, 0.5, 0], Thickness[Large], 
                LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}], 
             InsetBox["\<\"E(t)\"\>", 
              NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
              Automatic, {1, 0}]}, {InsetBox[
              GraphicsBox[
               {RGBColor[0, 0, 1], Thickness[Large], 
                LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {Left, Bottom}, {1, 1}], 
             InsetBox["\<\"S(t)\"\>", 
              NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
              Automatic, {1, 0}]}}, {}},
          AspectRatio->1.5,
          FormatType->TraditionalForm,
          PlotRange->{{-0.1, 3.1}, {-0.1, 3.1}}], {0.2, 0}, {
         Left, Bottom}, {0.2, 0.3}]}]}}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImageSize->Automatic,
  PlotRange->All]], "Output",
 CellChangeTimes->{{3.568139369570859*^9, 3.5681394021867247`*^9}, {
   3.568139448189356*^9, 3.568139663231655*^9}, 3.5681476880706496`*^9}]
}, Open  ]],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[{{}, {}, 
      {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJwV1nc8VW8YAPBLVhk/Oy0pEkJIkvA+9t4X16iUsmVvlRJlZCd7lJWGkVRE
UVZlpigt914jlJEkkd97/rqf7+c+5znnfZ7nfc/ZddLH8jQjiUR6ykAiEb+7
k9duFgi3qL9Ewr4HDtDQQzbJnd5uhci2JVhoEWioJfReiYRbFSpKOfFAz5SG
2uX8XFncnqKs3C13a11pKFJg/dF60XNU1Rzk3BtAQ5lpOuqrVzuQ09WWh3Hn
aagzcUD/l2sv0jolfXL0Gg3NXeKYCK3sRx4bvpdGF9HQ2edVkr+L3iBLaWG3
7kp8PSzd+3l1CGmnZN53aqahLpXoxzOuX9Dj8YudL0Zp6LYq37mDVV+RT0vR
7dFvNDQ/cqowsHIUXW4oc304T0PntrJRF3DeS+EdfNdIdPTisd0GhTw62sfW
8ryIlY422d0W87s+hgTaOwa8uOjo+nVT19mrE6iC4di68TY6+qxUdEU2bhJd
cnobf2oXHYm9m7/lfekb2uPgrKG1l46q+a/NTIdPI2WWJwmOCnT0MnXEb9J1
Fp3q6F+T0KWjK1mZXenyc6jQJji2xJCOpN2Q/YGqOeS6kWVpwZSO/FlTI/wr
59FIcU4Npy0dCQwd5uCVWECNw3aRH+3p6FEZNa+mdAF58Q3LRh+jo386is1z
RT+R/a69dMfTdFQs8Mk0RXgRJVwLkUlzoyPtsZgv+/MWUTIpdeimJx0lXBoi
+Vz/hSrNbnk7+dGRLDkqlUtgCRUeOuDGGUhHA6KSu++lLaFhf47enGA6Enoe
rvX96m9Em2u4YB9BR41pooOJ7MvIZ1wsP+ksHR07+fqUdNwy6s5Ez8rO01EJ
g3Cs56U/iGvTkn1sNB3p9bcLsjOuoP6oze5mMXQ0VeRTXnl+BZ0mW9asx9KR
PLR0fgv/iz6eZpsWiqejwf887OKW/6LNpCmN6AQ6Cv3COyURvIo+fnl2ZyiR
jrZVNYZ3/lxFi6+ufRRMoqPmc6fY3fzW0P5RhmCNZDo6YcqZxzq7hl4LtvNT
UuiISbheutzrHxouDiQ7pNKRYROr6bjrOno9SN0llY7vv37yl+DcOuI1+E+T
NYOOEkWO94iqkiBAhdGuDzuqhWO3ahQJwpne8cVeo6PAkw1B5BckcEylCktm
0pHbBrcuLzYGUJK+vbUB27FEYEeMMQPICHoXHL5OR+Y6z33zUxjAr2CvRgW2
9rjviweDDODby5bDkkVHypeFhXqEGIEyn6dmjS0t8dpz3JERQqJL72Vgi3SF
Pf1XxAgRvTu92rD5PPbybR5jBJ6dG39NYLOwv3XZL7kBJhqPda5ir9y+2KDn
vQFuz+44zZRNRz+M5bicajbAvMBR/XX8P/X7pxOhvzbAt4rFL9+x3yUlPEg5
zAQhAfVpfdgv9x/eeOssE+xc9+kox27uG3dsaWGCU29/0AOwa/0yqt8zM0PX
eZLlQewyXk2mBQNmUOvzCJrB68u5P2u7KYkZGqNWqrKxk8j5t3cPMEOci6KN
GvaFX4brKoIs0Foh3ziE6xWYuWxpZc8CF86wK7gT9TxUVuZZwALUzx84F3C9
zcMYTPPEWYE0MYumcT+0t1YV13mwQtcdb3lHbOVGx1+v77GC+nbK4zbcT5G1
h3lrSmzwFLVlRafREX/B6TmBCDbI2uwXPIz7z4b4tGWfssHriyNL4tizUWem
j+ltBJnPYUM1eH6amfaoPLPdBOnO9ZwxeN5qSweuDuduAqeMpMN38TyW6UaN
zn3ZBA5/OZv78LwmXRm5ssuNHbKqKs9viqOjoxxpQxdDOaBehLHCBM+7+V20
L/cJB1zqeGdlfQk/v+n3c/dJnGAw+famHd4f0in64vQrnLDpcfYTygU6WuVb
D9TJ5oJXTvRrinh/dXMqbWQ6yg0pYml1kcT+NOLN6onkBoUHmhTfADoajvsh
np3HDe6S+dkn/emIzlyuLfuRG3YXcapr+eJ8a5ujKA48kFvh8mIJ73+pH3+W
7tjxAve3a/oHnPF51NNEt7bhB27+9BELCzrSTNZ5Vm4mBHffRk03ytDR6f0r
nPKcIiCi1/6j8TsNGY9cLhUSFgHR/ey3GmdoSPGygBppvwjsF5ATeTJNQ0xf
5Lx6zUXg6X6q9lN8/t5Icn3pnSECaXZOLj1jNPTl+2Bs5bZdUKO8c/6/zzRk
d6dqXVRqN5R0nR4Q7qUhE8nT84J6YpBhHvPQ4T4NrSQENX6yEYO7QlLLmbU0
VPEjJqbERQy+0F53D9Tg+9WVbVGIFQPSmRdKxtU01KA+qWHSJgZlaReWdO7S
kDjZMy1aaw+U3umgkctpiHTe78AcEoecTt1dn3NpqHbwbFCXsgTsHA8/mRCL
88ecOkk1kAA+8YpHIzE0VKBkZPbXXgKEjZpLpLHjs4QkZc5KAHvfgmpfNA05
O97/mNIiAW6ZuSeEL9AQP31Si2IoCWnKccLvImgo+KcV74SDFPg9M7lQ7UdD
R3ilqpjOS8MgZzpaOUZDPQz2Xd3J0lD4u9HdB9tpPo6WWSQN22sy2MeO4vdU
37fNkq3SINz+qa7fEccn3YoyYZaBpx6J6dX2OJ5d0jIzQQbfr0Pxkg2OZ5L4
tTdLFi782n4tCr+PXf+m5ZdS5GDr9675BkRDGaYzz8Oc5OCvWvGAJfazYp0p
Ezc5eJCwxjatTkNC+stKSyFyYFNoFLQduzPjaJ/udTkoUvDUiValIUlZiQ2T
b+Vg5ymxq06HaWjaqclNykoexKzfM1Pw94FP+8SBKhMFqL705LSMBM4Pdzyl
bRTAxEyivH8vDXE3+t68dUwB3j1KPhKMXV31h7fERwHsGbQcn4nT0EIW+0JW
qgK0ZbwLouzB9fPcX33xrQLskUroub4bf09wh0jbHD0A631/VS124H7Ys+xZ
81IEtSKpt0V8NKQux7H0LVARZLVyyxyx55l5O95FKsIOT49aIWxKzQ736kRF
sFv1Ck3lpaE9bAfvOt9RBGlm0uMYHvy8D5wPvpxWBJmH2vTQ/2hoibtF57rH
QWDr+HzjCjvud0eEi7ybEui0LUppM9HQKVVx0yUfJWhjijTgwnap6TvYGKIE
3aW3rg1voCG33D3MOpeV4L21Q7039hmf3puUMiXwzM8RyGGkofDNoqPn6Uqw
nFwi/ZdEQ2muLx16nA7Bu8aJpk9rVNTCusXC004Z6umrv7cvU9H4TVnD9yew
2eeffP9NRRygraXnoQxh16vvNmNTQn0OikYoA8cuFt4T2LOTbVtG8pSh+nPj
aPkSFe146U81/KoMEYLvw9V+UVFY4usAKdfDwMxRG3d5gYrkeaIyvwWqwIL0
O4Pk71TUwDYk0RGpAn8zzx/3wtYkyTaWXFKBkP6UdANs8uzIl+MZKqCtc9mG
CTu4+5Dku/sqcJuFQydihoqexM02ti6ogDH9/r0z01Skz3h8NNf3CFSne7N4
fqMip59q0qZeqjCeupBUN0ZFnLykvsFAVRjJSRfPxG6Qaw1wOKsKe1e4R0Kw
+c/oNrolqUJYinzOEezOSVPD6GpVOL7vlfcLOhXJfT7u9mhRFUR3zVqN0KiI
1HWhZPdZNVgQ2ue9g0pFxQVt239fVQfzr3Oh3z9TUZ6j9JB1pjrcf6668BY7
a2t6al2BOgjuS7jQjJ2U6cTiX6UOyrSR0WTs8KS/szN96qATu6H8ALblOfnn
VD4E0iFn5M9/oiKmY/nuPdkIal04nu/5SEX3k1RGBiwBtJtXPtx5T0Unc7mY
G2wAVCE2Khebt4IqW2wP4KaodTAe27cl/qLPSYBYj22vXbGlFz9IcvgDvPv3
8q4odoldRKhOKoDB0I+DBcNUlCH2ROBRL8BMuT9jwRAVBTaomecba8CJooPT
bW+p6IF9B+N7cw248v5nTz320or5A35rDciq4W0pxw47cmpr4lENYOtR64vD
Pvcknh5+RgNOln7IMsW+3DwUSknRgIhD9R0fBqkop9WvmG9QA8Q3d8HaGyp6
+rJ0Ic5BE1T1En+6DlBRrVCf39njmiDYuWfIEbvEZWXO11kTtvWVvLDAjmc0
m7X11IQbxnJNR7DJKsvTeyI0wXc4VpQbe+qW4VhLjiYUaFxoaujH/Y6bHfrz
XhPSt6EZQWx3vcNN7hQtKG2LCfvWS0U/JLa01ThqAdNB8+Ev2P6b/rz+46QF
xWqe8A47svvRxzh3LVhr8ZZ+jp1ipbx6K1wL/koV+udj1x8/dGQqTwsYt1+p
ssJmDD342GNUC+x7/t5r78HrtxNoqR3TgiHLFvFmbI4jvzpXvmmBQ0Zn2QNs
gX91w/ELWjDBGPG0BFvikuJy5QZt0D4baxmNbZZy4ND0Hm3wc5r9rYGdVyH/
wNNDG85JFbK3deP5fe/cWXhGG7r8qwubsBc3ZY688deGoWu9KvXYRt4rDKoR
2kDX2hZbjr0i/9yUI1EbPPaI+sZj2zWSJ+/c1QbY9zrBAluwJ2TbjzltmFiI
qae/pqLUn00XfEN04Dr3xJUd2GcGUk44RuhASt0JPiFs4xpnDf3zOsCkXXeD
F5vFZyODyGUd+PGir5cVO3KKHNWbia+/Hei88IqKXEanz8nW68CfhQGvTmzV
3i2RM4s6kFQI0yHY45VBwW7+uiButa+e9pKKbHb8+1wRrAulalv/fMZuS47V
+xauC8tfc+ADdkngdSGPaOx59KkP+6T64wbPDF2Izys0bsb+3L/670y9LvBx
Tq5nY79djr4ctKILEnEF2WTsF7ppWRcv6sGv/VzP3nZR0ZhLY3d4rB5sa9iu
O4DNcpnOGBCvBxlfDHp7sPU7lLyd0/RAoejXVAf2a70RDe0besDub6jXgP1G
X2yauVUPIvaWphZiUw3r1eIY9GHYas3eC5vB7AM1OUofvFjX9nNhdzZbiwZe
0ofPX9xD2LFTZPudKVf0gSyv1sKGLcLVSRdJ0QfldS7HDdjQ/WC8plAf3GP3
3FvupKIoo9SpN836cFHdvJWGTdLXX9i8pg939KTzGglr1DMUhRlAdMlypR+2
vfbEy+GzBnDkhoKJD3adnlAGz0UD8PComffCdjMNF4+ONwCWyEANN+x+B3Uj
l1wD0E4d+HsM+0Zwe4Z0kwFsnll7b4ytfefd3sckQyhgcZKRwr6y+bfJwGVD
EDj6u3WqA58vnZ201gRDOOi1neUbdmFYTtj9ZEO4rtBjOIFdP6JWmnHdEGCi
f5iGPVZ4adWm3BCOWfKyfsLWlOC9PdJuCMHfyit7sVeVZdjGmI0gnoXMXo/t
a+/c+jvaCCjZQxOx2FyFU19VrxiBo1+4Swz2HZrf+oVEIyi7kDMejT3hFaXK
cc0IxlWMpqOwj53PrxcpM4K0VjWWCGzjkqFKg04jqGr4GOWDLfHDKD2Xwxi8
f9yLtMNuV3hT85XbGBbUkvdSsE+F2PftETCGcM+6NzbE+kjunNU7jCHWun0/
GVuQL/byC1ljYBMaWjLFZlJ+FvHd3BgKRxWfaWOPXlA8ha4Zg8jH4CPy2OKC
XEm+2cagHHuTVw7bo3LiYXE+tuPUlCz24kAOO1OZMdT+bCmQxmYTY7jfWW8M
fWWhfBLYsu3dDJbDxtDQyyi3Ezt8k2vhqW0mkG3/Q5YLmz89+0NcsQl4qBjx
zrZT0aa3fP3+pSZw4Tun8g9s0uakDodbJrBlW/qx79jfcy7WydSYQIUE9e40
dvsNz6T+ZyZgNnreehI7tFZNc8tXE2B1F+kcxf7UP3qrQtgUogellN5il3FL
hXXkmoKlbSJ3M7bsuN0yU5Ep6DeTrJqwHzbGhWiWmMLUuX2ZT7A7Xb4FNd0x
hY1ni4UbsaeeVPjfbzKFpoi1Q4+wZdz3ehV+MYX1lbGEWuy6FrHjIaJmgFpW
75djt/jv1Nl72wxqbBa/pmOv/JpN2V5lBrb3R6wJK4Y9+8hz3wx0p9GrNOyK
8ycCVxvMQNzs7MNU7JTEmzf7X5oBf+aza8nYTmV7GSOnzCA5m8s9AXt95vrx
SX5zyFdfdI3GLhAp2q5GNodKubiaQGyuePlOGRtzYN/Srk34/M/WAGGKOYzN
nxwOIPK1j71cdzAHUkoDifBur31hrc7mMKMyaO1H1Oth/Vu9AHNobbDmOYN9
z7Q7yTLNHGQqM1+5YjdFrpDc+szB890mdUfsparxuYsD5jDxyvGLA7YcbeBr
/qA5pMltvEC4xOD2szfD5tDQ59Nmjx0v6BiFRs0BZDws7bBtqpvWBRfMYYCp
NdIGe5YW9a+NzwIcs2a5LbB3GbGuitpawJn/isX1iPq91RrYamcB9W/4R3Wx
dY9HVfA4WMDSifZcwh4Bf8jrxyxAivSZh3Bd7vTdDy4WUFM9QtIh4md6j6cG
W4AGlXtKk4i/mvX83zULyHPznVQn4nslE94PWoBBbHDcIaIfoi2lK+8s4Nbj
AyaEPUMoz7a9t4CbCdI8hHfvvPzr6CcLeLGhL1sJO/kM/Th1zALM/xu6e5DI
z1moOL1kASaTt78ewBYx4v+8KmQJD/Vu+shhJ7b/kxM5aglaHwLFpLDBb1x+
x3FL6LoMy5LYi9t6FLaesIRiH8XXhB398hX5T1uCoH1GIGGZ7arKbN6WQEuU
65DA7vELQ3ORlnCa1BCwF5t7x6LJszxLeNXP+U0MOz3gm4fTR0tQritQFcHe
qhvuZ/XZEp7xs2wlfEOIPVT3qyW48Cb+3old2yQdI023hHrNxVrCfay+hcvT
lnA2RmEfYa68pTcpfy1BjclslzD2lRcb1Fq2WoGOp5HoduxIAeH/dttZgQvz
mVAh7O6ajfbIwQouXjhhT1jY9FeJ41ErMHX2UyX8NPa1yvUTVhDdM0YizLgc
7sLhYQW6x4QTNmNf/jDUtBRuBVui35YIYqcVpnq9yrOC8N66GX7sW5LMLwO/
WsGtYfVOHuyB7Rp/valW4P5dvpbw6n9npV3pVtAVoJxH2HRpMclu0grKIs/7
El5spVupz1lBEM/PLYTB8cUnVhIZRDMCfbmxh5Oi53N2koE5OnPff9gsiwxb
Wo6R4Y1s9DsO7OXqrCS6Exl2pvk9JzztvZ+JzZkMTyj+1YT7JhxnTV3JMFNf
GU84Z+Rh20cfMhjqLyLCss+9/ZejyMCiP3SXndgfae9f7b9JhqWm4MxN2Ppm
vhpWpWQo5kqNIXyEg/VhcDkZjFifBBIWiVW80XSbDB/valkRngpLDjWqI0P+
6mYewudO6OxxbSMDD0t78kbscrmacwUTZDBebM1iwz4jMP/n4Tcy8F/aHE9Y
cUUuqH+aDHY7wyMIP3te7ck0Rwa5w+7HCA/bVFM8lsnQjb6LEWY7W6WgtNEa
ltvP1bFiu3XdHe+Wsob0DXafWLAlT1aarnlbQ2/8VUtm4rzNV6le8LGGjv8a
9Ai7vH/JM+lnDY985lQJl5hPDw4EWUNAQfhewiJI2qHirDXcHmJcY8IW3H7P
1eqqNeTyfLpFmPFdTdStO9aQPxq9ifCIweNa62lrKKDLjTFia5qVUIK+W4N5
fO8I4Upy8r+MWWtw5A0ZIBx+/LTh4E9riO76+pTw1iAequWqNXANCucSphS5
85hz2gCLlo4V4XdLW3wN99sAl85MFwMxbzfDZVCADei/mOwhYfOS6h+rBNmA
Vw5rJ2Erx3kdpRAb8C6WbiE8yO92TCbCBlg14+4THoqxTt4WbQM53YlZhD+6
ys3/TrMBR5kGZ8Jj+8brqmttIL7c9d96G563+xaquxdsQGc0WZswh7JSD9+i
DXy1UkSERZ5sdWJewvkrPh0mrP+CFj35xwayvqrvJ5w9GPTqHoMt6DId2UpY
5Ve2/REeW7hWLDD/DztSiRpKlrOFXWlyNwivP/J/EHvGFsaPfOUm/JGlNuGG
ry0wtR3iINxAnj/R7G8L64nprIQD53y4loJt4cpT239r2JN7vV1Pn7cF2jLP
DOGBTNct2im2kMih30m4NNDxLEOtLViElkQTNpLT1Yn8ZQsmx9eZCZPevmUI
/G0LjRZJjITrw043e/6xhZdOIuur2LufXzrksGYLlq9MlgmvWD+XVGGmgE1Q
9xThygjgWuanwNFKxz7CGztUhgIUKaBhWZ5PuNnzZbqnEgV2f0rPIRzIbW/u
rEyBUfHo64S/2oV1WapSYO+MeyrhRzMPG+W1KcC2YBtD2I33YNGsFQWWE+97
E+44ut/dM4ACWaK2QJjX2a0xP4gCwTRtNcLH3Io5+0IokP7goArhJX++WsVI
Cly5JKJIWOzK75W1SxSQC9sqQTiq9mliSiYFRLbncxNWYTWvfvCYAnS7Ttpf
7FiOOMbJRgr8LeEdJdzP00re2kwBoVvHPxN2267451wrBcr6Gd4Tvi4vpKn/
igKzFJcewosOX998+EgB0Ym7jwnDiS3inF8okBi1+yHhBBfLUDRKAY6K7DrC
u/1ebC8Zo0BqZnIVYYvYitPePyiQXJZdSjgvYfRh4RwFYk7vvkl4MmXrpoEF
CmzJv1tEOCo38Z7Sbwo4eb7KJfy6qI3k/ocCD1aPZhPeXPbPMvcvBWb+LmQS
Pnn7UGn3GgVsXeIzCN+r9v29vk4B3cNiaYT/B0DV2f0=
        "]]}, 
      {RGBColor[1, 0.5, 0], Thickness[Large], LineBox[CompressedData["
1:eJwd13c81d8bAHCEVMheJQpFUXayzmPvfXGNyBYRQlZSKaskWYko40spQlPu
vUZWERKJioasMrIS+Z3P76/7er/u8zqf55znfJ7zObvdT1p7MdDR0c3S09ER
v3uurhfd2tWg+TZxpFBO4S16wiIlEuBbgNoztbYbve9FDREPiiV9K9G2ukgh
5rhe1CIb7MPsS0V6ky+69g70oBjejacbhU2I6QOnpPelHpSVrqe5dqUVcVyt
mWFQ6UFtl3sNF33eIBHtEkHOO91oNp71R8TdHtT14dW0m2M3OtNUKbVc+Bbp
nrg52MXTjbJg6cHvKwNogeqxFCfyBrWrXng27fMZOTJcdxhR6UT31LljlSpH
UL1Ud7Zg22s0N+RZEHp3FMVuEhOpcHyNYoVYvswXfkXrQRUvY5JeoeZnDpvk
876heBHfwRSJV2irwz3x4OzvSOTM1YHM5g6UnW3uM3PlB2rVUSnU3daBPikX
Jh5MGkeXTJ3+UarbkXj/XHlA/ATSoCkZjDi3oyqezOmpqClk71OV0P60DXVc
Gwoe95lBV7ku/5bF807MyWq/LjeLEvZaXBo0aEXSvshRoXIWXfuoJJrL2IpC
Nl+LDrk7h6Tcm50l4lsQ78ARVi7JeaQvvMjSq9+CnpZ+yXtYMo9C1C8XO25r
Qf/0FCmzhb+Ra1VdY9uNl+g270fztF0LaGgbReS6x0uk+/3i50N5CyiCJ3EH
46GXKCV+gO5k9iIa1f+yqbyjGQk0Ren8vLKMbm8WjqrlbkZ16WJ9l7etID1W
swq/iSbk4v7aUzppBTn0rbIH0JpQMf2uS/7xf1CGqb2nbEgTMuhp4dvGsIou
vW2t+2TahCYLT/539+wqsj/Q0FEj2YTkoKFtIuovejW/X7nyayPq2+7nkLTy
Fz3YFmD0srERRXzmmpQMX0MpG3dejdxpRJRYz22+wevo/IRiEIt3IzKu32w+
5rOBPBnVVK2WG5Dchvsi3+wG2iKo0vHfUAO6LOraJaZOB6SuHdtnaA0o1P15
GKmZDg4nTwfKpjYg302+7SdY6OHXw9LYHeENyLmYV/iiKT2crRG/NujSgHTH
gpof9dHD9Z6LZ2rkG5BKwi6BLgEGqNCP6m0QbkDSkq/9x5wZID+K/3filgbE
7bePm/87A7wJ2EPZ/5WGvvz86BaxuAl4NXUzhG/RUH9qyqO0I4wgw+SNbFNp
qOPQkS3lZxihY8GEe8dZGqoOzqgaZGKCbresBk13Girl0macN8Iu8He/TqKh
3JoZ+62pTMCnXbTuYUBD5xaNN1T5mCGwtYPV7yANhWatWNs4MgOT0gn2nD00
5Hu4tNT/FjOotRzmVeCnIctIevO8vZtha/xvu9v0NCS6/iRvXZkFjMbDvzE+
piKeW16zvNEs8LG/iT+0mIpYELfuQSoLvN3iMJt0nYpm4gKnXAy2AIM31ev6
KSr6snsnOp2yBbL8neXPeFJRf2N7+tU3W2Ap/wj8saUiCqOEKs1+K1w6dpua
oUpF1SW9V97f3ApCoi6Jd2WoqFQ/bnT281YouGpDRbupKDVxKHG37zbQ8Lzb
834LFR1lTR84H8EKqkG69uQRCrK8jw7cfMEKm9ojeNb7KUjX/GdsDR0bdHRF
J23qoiDpNMO93xLZ4GcqF5NUPQWJyi1Frr1mA97CpzStRxTE01vUycPJDh9c
+gsr71PQGvdGqN4NdtD41fDwbAEFzdZWtB39yA52+oKdwzkU9M3WcWf47u3w
yrr1enw6Bb3KftRUWr4ddl303Si/REEUFQ9+6s/tIPI57M6ecxQ0eCLx0ZQA
B9gObNMajqagTjblLYxHOYAxVll/awgF9Zpw5XTFcMC+fdvlWgIo6H3Sr703
8jjA8bhgU81x/Dym/3QPDnNAQjWXmbA7BU3qXHi78pcDbuncs8lywfmdc3Vv
2sEJA4/pONSccP7r/HFkJ05oKgILBlsKYlBfYBeL5oQ4sw/ie6wpiCWqO/9n
Lo5XTrH1taAg7qXEuvMfOOHA1ol2d2MKElD0MjZb5YQQHdWvPIYUtCtEa5Bf
iAuC4q/3jutR0P5ff5YqHLggLlNueU6LgmSl+y+ejuSChN3H2CWAgpT9qnm0
b3CBvIwfNUyTgtTLUotYn3FBX4wW81d1CtIe85MfeM8FZ1NiN59QoyBDcYOG
2ytckN1mN7tdlYLM3cUsTwhwwx/S+s9OFQoiFW58UlbhhnNWJTIlhynI4dNQ
AD2ZG1g/nxvOUKYgl51P116d5oawXS378pQoyNMxIyUrmxtuyJaoP1ekIL+c
ICG3J9zgeu6L2S8FCgrqNy0/MMANT4qv3j+MHc4jpbK0xA1ZhlNPMuUpKMaa
qZXGxwOmXAfaN2OfTxu1TVHmAcn/4jWuyFFQYlf9N1s7HoiskAmWwE5lzT0l
Gs4Dqa1OtDeyFJRhHM4wlckDT/J1E1KwcxOtrz16xAOLnPfEydgFLQdF497x
wHV+DnYl7GLGbZXGizxA4lJp3o19V/uHBi8vL/Ap/WoVxq6Ka3r9WZEXHlWv
35DEfkwpcLpL4oXtFLk6LewXa9GToaG88C/JtsIXu1GVHIkyeMHNSPFXHnZb
hCLL1lpeuMD5H8Mn7K7HHNl9b3mhsEw7+gDOv29hWqLgNy+wfduyGI/9Qb69
9jg3H2Tek2WbxB4JKtFRVOADuh+Txxzxenx/cK73nzUf8MeeuPIOe3L6qFt7
CB8UkycOOeH1nN2vOns9nQ+CXDK/T2Kvlc6zSfXi8e7KbduH68PwvSvv9xwf
ROpy9vdis4jdO0Dh5Ic/PvTHEnA9eQo8jGys+OHRnvTYLbj+Qh/Re+FgfvCX
mI/sxxbdsdNnPI0fyhNH6e8doaAD2X3xZ7r5IbL6ecpxvJ+0r+rR/rMQgNmj
X+8qIQqKM64t7w0UgJB204fyeH9SmMSur18RgEY7Tj4lvH9VY+i8bV4LgED8
sLCRDgUpHK/btmEoCFNLy9vLDShIXEfO3k5bCIq2FiMxKwpiXt75i1FpJwSO
xTtweFOQ16FVNjk2URj79EVvCfcD06GEEoFdolAp5Lp6JoOCFBN4NegOiYLQ
zQtkpiwKYvwse+KNpSikjPLMcd2goDupPh0BGaKgr1P2QBL3m88/+y7d3bEb
ejpMLFXu4f1eUbkhtn8P3KfviW1upCAzKa85PgNx4E/hQHO/KGg1Jazuo504
7Hw/V7d/loLKfl28WOwtDkbd1foec/h5taWC8pfEQfai2MWe3xT0XHNcy+yl
OGya47l9Z4WC9pL80y/oSMCTk6au/AxURHc2WGEW7YX5zBtupjy4P/edCWtX
kYTQNFenP0pUVHbR0/2LkSTcYXl3ke0wFd1SNrH46ygJsxuzD0RVqCg5R0BK
5owkxB3ZSaeL+7uHc81wWoMklJ3WrInVxOfJt3EdsrEUcO49xPJSn4rCf9tw
/XDaD4HhLu9y7ahIjWt/JeNZaZD6fOl5Fj5Puugd2zuvSkNJdP3dE6FUdGwu
6WtWoTTc7rDo1QqjovjuCX6pRmm4EezRMRGO41PL48yYZEC8F0Jko3D8Ninr
rBQZkJxdU7wRh+MZJRf35RyEj8/stD9epiKfv+n5JWRZiDydWWBTREUZ5tNN
kcdkYX8Wj/YcNu223qSZrywkGt9ySMXnn4DhivLSaVlYH7010VJCRW0ZR7v1
s2Uh99X8DbkyKpI6KLlp/J0sGCa+K/xZQUVTx+p999vIQdp9rpOb8Hl6suWH
QqWZPFSyF3FQWvD4UOEvbScPc4+zNxu0UhFHXVBRuYs8vJbkjX6DXVX5h6v4
pDywiSQPfmqjovmcbfM513C8WdS55Q68fv6Hqs6/k4eRcI8xjjdUFMNxWtru
qAKcXe80+dGP6+HILLF+QhEUVRXz1L5TkaYs69JEqCL8+EGTKMSeY+Jq7Y9R
BJvkPbaMY1REfih8vOqyIvTEXit9hS3BonTfo0IRmkfsd9qN43wfeSh1TClC
mRMp03GKipY4GvSy/ZRAUZH7ldgcrndrtLecrzIEJuVLtP6lIk/1veZLJ5Wh
jK2/j3eNirwfdivVnVaGWY5+TU9s35sSTHoJytBadViXbp2KAk++KSKXKkNq
WJGg0j8qiuIXGz37TRmSd4lxGNHRULpPh1PXscOQpn3l1hUGGmrYLGjl76AC
P4uqe58z09BY0UHjQTcVELWZ2vYRmxV0dQz8VCBQzk18A5sccVJJLFoF/haG
/NbeTEMz4y8Fh/JUYOXsLbZ2bOGOkC/GIypg8eme2RsWGoq8/PrUfp8jMMo1
+qZ5Kw3JccZlTYSqQg37038O7DT0nGVAsjVGFbbrTIucwtamO1hXHK8KnaEP
9l/GJs0MfXbNUIWcPqn1euzwzsNS/TWqcOoOf47odhp6kTRT1zivClddyx6P
YhsyuI7eDFKDgBk/YRInDR37rSFtfkIdTsl+SV/npiE2LrruvlB1OF/1iczN
g58v23jK6Yw6/Lr9YosUNk+gfp1vqjqw/wuSJmG3jZsbX6hSh40Zm4hybNlP
rr5PF9Rh2V1HzZKXhujazxXvOaMB8LV8PpWPhu7/0DEsv6gBryBd7Q62IzPz
9KFUDeClvg5+hF2rk6ygUaABnqzxpUPYvpT0RvsGDWjb4FTYh78nu2uKRi4z
acK7wYTx59i3b73cuXxFE44naam9E6ChPGfpAdssTSjMGKYbw84Run6t9pYm
BF66/HgJOzXrGHNIpSYI/PCb5xekoajUvzPT3ZpQKTxy3wHbOlau6Qs3gtKx
KfiAzeiSf7zrBoIty8XK3UI0VJOqOtRrDcCrO2aYvpOG3G+yMz23AzDUWcy7
hc1V9uXgbUcAE7ptY3exgxqSz590B2hwCrZvwpZe+CDFGgKQb6nz9Dd2sUN0
hN41gGhVmWhrYRrKEH/B+/QNwPtpA2OWXfj7+rmGZb6pFhQa5m6xF6GhR46t
DIOWWoDC2Khu2Eurlo94bLXAQ1PZ7wR2pJqn0OWjWqBo/Pr2OezYF8nfogK1
4G3Tpux72AmUgQhymha0Cp+4vY6d2xh8m7tPC/YcMQ7PFaUhakfJfJKTNsgL
a+99thvfDwS6g8+4asOwxAn6Buxi79XZIA9taGNOfteGncxgMWPvrw3JBc98
32OTVFemJKK14a1Futoy9mS58feGXG0Qa47KUcD3A56kmYE/g9pAPV5J/g/7
uMGR+uNkHZC4za0UI0ZDvyQFXz501oFUNTH6C9ghW/+8/nNMB4KWM1qSsGM6
nw4nHdcB+ulnGtnYaTYqa+VROrAW0vrxIfZj18Nqk3k6kGX2afI7NkOE0jO/
UR1g/+vuaSSO5+/A21D9XQf+5TMdt8BmVVtsW53QATWd1z622Lz/at8nz+tA
ueNHGzdsyXjFlbubdOH+vkdjEdgWaQqHpyR0Yf5y4Fopdl6Z3CN/P13I0TjD
toHdNujRVhCoC8yGtwwZJWhoYWvW0NsQXeBfocRuwTYJWKVXj9aFF77cw9zY
q3JN5qyXdUH5eKaTJLZDHWm84r4uyHd7hlhi83Wd3vFrVhffN9R35WNf+11/
Lui0HsQzf3GT2ktDgb1pbs7RehA62HVEBtv0oYeW4Vk9qHhjwS6HzXxyC71o
gh6oTQveV8GOmSTFvcnSg4dWuxsNsL1Hp2IPPtYDBpk0Uy9s9TeCMdMLeqAp
nLScjz12NyzcN0QfsiQTdZn30ZCd8L9PZeH6EOC1PXcL9surlwwmovTh+0nn
aVbs4tBsAb8L+vCKi5TAje2u+ey5f4Y+dF1nzxbF/tSz9i/wsT68ySeLqmK/
W7mQELaqD7a7GGb9sJv103POnzeAEo0XQs3Y373rOqMuGUBOzb+UFmzmhG8M
p5INgP0U6982bMNW5QCPdAM4HHettxP7tcGQlu4dAwirPO0zgP3WUHyKqdEA
yFoe+yexvxg/1kiiN4RE2YN72CVpiN7iw5ercYZgfeKyriV2G8VWLDTeEKa9
B2WssdMO9niQEw1B52YkLwlblL3tm2iaIWSuPvtsjw2dj8YeFhhCZab3MVfs
OJNrk28phnDE7A13IDadoeE8/7oh+C5+MksmrPWYvjDSCOxEI40p2I66Pzre
nzEClhKWBSp2rYFABud5I2A2+nuzAdvXPGrvhWQjMNrP8aMZu8dJ08T7phFc
nxPze4V9J7wlQ7reCO6kWUq8x9at6N/3jM4YGgrto2exE/mXzXoTjIGh4SK9
sBTuL21tXxtTjGGR5feRXdgFkbmRNVeNgUozDhbBfjykUZKRbQxSFfXDu7G/
F8Sv2f1nDP36Q6V7sbUlue4NtRiD56sPLLLYayoyLN+ZTCC27zuTNnaQo0fj
8gUTWHCe3+GBzV4wOaKeaAJf/fz2e2JXfA3eOHfZBPTP9R/2wv5xIk6dNdME
dIeuWvhgu5zNfyxaagK3nt4N8cc2LR64a9RmAgkv8hJPYUv+Mrl+k9UUTDZb
rJ3HbpF/+3CEwxQ0SS+mLmB7nnbsluA1hbeH9D/EE/OjO85WJWwKyUW1tZew
+bgvJTQfNIWiORHXZGxGFVr0T0tTYHeOSL6GPXpO0RNlmkLGjRWNAuy9fOyp
QTdMgZ5MYi/E9rv748ntfFMwWJr4SHihN3cbY6kpDDG1RN3BZhGnr2l7bArH
Bu3vlWAfbOmkt35vCpsyMsfvYUdt9Snw3GEGm82WBp5g81y/8SHpthm4Lwzf
68Te+o67J6TEDJKYJ3W7sOn48c2v3Axs2AM/Ev6Ze75W5qEZ9M0Ps3YT87/j
n9pDM4OCOg+vXuyIag1twREz4L5/fr0f+2PPaHnZLnPQ5A3u/IxdyrE/svWm
OQSdd2eeJfIbc1hhLDQHV7PDKYSf1CWd1i42B8W4y9vnsNu8J8LqK8xBh/M5
3zz25IuykJp6c3iZfEhkAVvm+L4TBZ/NYVVqTmAFu7ZB3PW0mAVsXDlSs4Hd
ECKit++eBZz0XM1n24/73eJM2s5KC7ihQ9kgrBhJG+assYCX8dJu7NhlZ91C
155bQHXgFrHt2GmXi4p6Oiyg7l7nHQ7sY6X7GGImLeDK7pZ0buyN6WzXcR5L
kK0tVxbEviVauFODZAmjJeypYtjsyXJtMnaWoKBbMkj47O/GU7vIlpDIvCwu
TozX8r1jw8kSJBrePSe858SByEYPS8i63vxVArv0yeN3BqcsYadp0QFJ7Afm
nanW6ZZQtX8oTRq7PmaVzrfbEhoc2MoUsZcqx2bP91qCL9l2krDs196R/D5L
CP7lIq2EXWx0j/b2vSVs531WSTiZzzkOjVrCobqcGmVsu6r6Db55S4i3jq5S
wZ75GvfvJbcVUKUcYtWxd5tsXhOzt4LksrxgHWL93un0CjlYwc5MlzuE9V3j
yjidrODZl8Vewn6n/pA2XKwguqJUQRe79ubU/Q/eVmDuyPWbsP70G9dr4VYg
JcLlp0/EX8lp+pdpBQL9FkeMiPg3UimDfVbAA3Ge5kQ9xBpKVvutIDO+IZWw
/2kybcegFRxdfv+U8B6RhMWjH61gaE8KqwX21cBvrl++WwFXJX01YT+2AsWp
JSvoTDy2aIktasLzaU3AGgyLpV1tsC+3/JMVPWoNVw5LtdtjQ/CYnLCrNXyx
OjBOeGFHl7yQmzWsGHNuJmM7B+cr8nhZA1k7SZewzE51FZYAazAXl6YQ7gqO
RLMx1hBeRqpwwOYQXjCj5VlDl+l4qBP29VMTfseGrcHhU/8LF2wh/ahgm0/W
sM4o9o7wHYFtEfoj1nD9lcNPwtX10helv1lD1NQlYVfs7s1BBStT1lB7bjSG
MHve0tu0v9Yw51F2+Bh2YvMmjQYhG5Af2ch3w47h3bV9j4MNsNZPy3lidz7c
4oicbEBdh82A8C7zxWLnozZgMyHoTJh66bVqtpsN3FtYvkiYYSXKm9XPBq4v
tL0nnPBhoH4pygZ2/X4U5YWdXnDtxKs8G5jKl6zyxi6XYuoIHbEB59rA777Y
vTu1/gZ8sYGZiMkFwmvbz0j7fLOBC+5kxuPY5ksLqQ7jOL+RrWKEFxq/2WjO
2gCb+GtXwuDc/HEzHQnGRV/0E36femEuV4QEuStxz/2I/M5T92TsJkH+T7M2
wgfC/tpcESOBNTt7P+FYp1OPz+4jwS863znC4pIe0Z6HSPDw54V9/tgnG7SZ
DiISBP31ukaYeYFesMGFBM45Ys4nsFeqclK/HSPB0kzIccJTAYcYWTxIwDBR
G064+4fzjLkPCURWOa4Rzh168nL4JAnEFA68JHywKSBkJY4Eav0L+wOI9y19
8NWhIhKk/7frJ+H/ZB/G3vqB86/XNzuJHcg79+fJBAk2PJ3tCSuuyob1TJGg
PNnHjTCtqcqfcZYEU5EuYYTf21WR/VZIULu5O48wy5lKeeUttjA13DFB2Lf9
/ljnfluQNQyJCSLyefDT7Ye0LWyUkC8SXkiX+Uh3yBb6w9RSCcc533+roGAL
mr4rBYRzZipoN9RswSvuaBPhNt6KXC9TW4hr0NkajC3lftd8PcAWtg6dzSTc
lq9aNX/SFiqO2eUT9h7s4BwPtoX3r/eUEC62nOrrDbOFxoL8WsKiSNqp7Iwt
PPaVfkuYb+cDH5srthA+WMgeQtS3/2FceYUt8Cp0xhIeMnpWbTtlC8UGu81O
YWtbFJPDftqCIi/VhvBd0tV/GTO28NvWzpFwlKuXcd9vW1iXDfYhLBTG+cV6
zRYMzMjnCJMLj3NastnBaYXpGsL9S4JBxofsYOuREJ5QYv8WRcmgU3ZAZ3Wt
mTAX3eNnqmF2UPPAs52wjfOcnvJpO9jxSKGLcB+Pr4tMtB2wvGgeIDxw0fbq
jgt2YFtdPUl42Ed2bjndDvQ0advDsL8fGKutqraD5XO9doRXaqzU98zbwe1f
+wYJs6ood3Ev2EFA+sQwYdEXQseYluzA8uV/I4QNm79eGP9jB1ZjguOEb/SF
vXpAbw8yp98tEVZdvOGoxmkPPl8ruMOJfqD8JYIkaw/bXBeNCW88DXl0KdAe
GCuqqggPM1en3Amyh+/d8zWEn5Pm3Cgh9pA+K/eEcOjsSfalcHs4KP9fPeHx
fQE+XmftIUgtsINwb5aPoG6aPeiZh3wlXBLqfIa+2h6o/l7cp7FNZPX1Yhbt
4UWqlj/hx5FeFP8/9jD6lDOI8J6m+MNO6/YgkjgYSnjVtklKlYkMQkctYwnf
jQb2FR4ykGeG0whvaVUdOKVIhksv42oJh3I4WnqokCHs6tunhEccItut1ckw
wytST/jp9JM6OV0y7M0vfEnYl0upcMaGDFOhFv2EW48eOu5/igypD32WCLv4
3mbrPk2Go7zUVcJLIdzVijFk6G1g2yAsnri8uh5PBt9N1zZHEO9PNfVyWhaO
TzskQFh1s2XVo2dksLPqPky4h7ORJEQhw0j0LTXCvjsV/8Q2kkEk1BMRzpYT
0DZ8RYZnSwP6hBecRt5+GCaDiYeLLeEUb+sINEoGf6FpMuE9wc07i7+TQXUu
2Jmw1aUyr4BfZPix19uD8Hia0NbeeTJo5/Z5/z+/m5cfKC+TwdROzY8wf+k/
65t/8f9euQGEH1QFLW9skMGrZy6I8P8ApykcbA==
        "]]}, 
      {RGBColor[1, 0, 0], Thickness[Large], LineBox[CompressedData["
1:eJwV1nc8Vl8YAHCbSn4llRQJFYUQkuQ82dnjxWtkZmdGJDsjGSFRWZGGUUZG
ERkZme/7RipKJEJFZWf8zv3rfr6f+5xzn3Of55x7D9h5Gjow0NHRldDT0RFX
gRtr97P5GhVtP8f9y7rzAlWziex3d85BAtnKG/LpNagx4Gm+sHMJoiSyTxck
1KJWCW8nFudXiC8QWfY61KH2eJrGvFMvKp5iVCGfb0CzkewTAYVUVKZQkSj2
pgEFN5eILN57iw5c0i8WPdqI0mDh6d+EAfRr/cyp1fFG9Eb+6osfTsOo0s42
kh2aUZHCjhCZki8ohFL8wjqpGf0ePJ/jWziCznEqKV363IxCeNhG/9z7iqby
ZabFfV+j9HRdp5mECRRfqWcXE9OCPsveuyYe+x1ZSuq9e9rWgoTe/S5wj5xE
gm8VnnGytKJSrls/pgOnUX2o9dnXwa2oI3nQ+7vTDBroFd151LwNXbud9uam
5Cz6HTJgnZrQhkSdkfnxklnUtlrGevdVG/JhTb7iU/gbWe2iDt3f347WVaXr
Z+/9RUc7HhU3U9pR7s5Pukl8c2gqy/6I0Eo7UvkWNXwscw6dnjwefUHgDYqL
HKDzTJ9HToEBqv2ebxB3c6Dyz4RF1CS9GDKy/gbVpgj2xW9ZQrNm+4fN+TuQ
lV3XedHYJXSewjK7CB0on54v2i1yGQnGUY5VhXYgSWhsnwz8h6r8nvH+/NuB
+v5zNYtd+oe+/516KvZfJwoY5pwSvrSKlsPMwhtEOlF9yPktzt5rqCK5ufq3
ZSfSrGPVHXfaQLaPTyqyvOxEkht287tmN1Be03WxU32dKJ7fukdQgQ761Qfj
e6c7ka9djR/pNR1oScTuPLqnC6mMe72u7KOHe7MmPFLuXUguho+7h5sBJv5u
PzEZ1oVEhbvcxi0ZINDf0FAotQvtcD28Y/c3Bhjd+cJd5kUXGv35yTZgnhGA
b3L6yHoXepcYV5l0kglmRRv8nDm6Ucexk5sKgpngGcdcjypfNyr3Ti39wMwM
LDlOC9MK3Sh8XnNDfhcLRN3yYDlxqRv5pi0ZGpmzwOw2R5Hmq93I+cTDh27Z
LCBTb/mMKbkb6V+m1808xAqzw9oFZYXdiH+tOnNNlg3ex5ccmfnYjbiyHWZ3
XmED0SoznvPj3YgN7VARf8UGXzwdRHN+d6OZMI9pK/VNoNYnN+PB2oPqmQ7K
N5huhguNxi65Ej2o/AEt4X0GdnZav598D3qoFjYyO7wZXmnyCfOq9KDEa4PX
DjhvgZD/wm5PmvSgc+wpAxEB7MCkaiydFdiD9J+goxkv2eFCsPMh0as9SEX3
Z8gzuq3g6z9VlB7Xg0STNA6NXdsKVn3/xbFl9qDVHRu+qnc4oDwqode9tgd1
b5XdxHRuG9SJZ25mm+9BNC3O2z1B2yAv3T3a4l8Peh/769CdzG3w9MF6dQZ9
LxpjfqQiPrQNjh8C27GtvWh1bXcY2WI7VG5pab1/sBcd+bW8UGzGCYzJ/42e
NOxF13rqxoxNuCDiw74PB/N6USL73Yv8l7hgfjPvrt6HvShV8xLD9C0ueG++
lulZ1ItyWsX5w/q5ICh6wSS9ohdV1edYFJJ2Qpt0mmJ0ay/69jSctm64C97v
/7bEPNmLlG6oNjzS4waRYNX6Gi4KCtOsKKB5cIMgb4pr9i4KqmcWvLmWwA0z
3Vl9odwUJB9E52jUxQ1VnTJsCvso6LhL7ZYNjT0g2LBCvStIQULKkqYmSjwg
8sctakmSglgW9/1iktkHLb9ieq11KMjh2MpWya38wFKzktQRSkHagzEPuPn4
gWPQ4JhLOAVJx+w8TXeMHwZ/hbiwXKUgpmGJC736/MDnvPBCIZqC8hKdOtxT
+WGLwi3WO/EUNPyzL7pw7wH4nvF0E+cdCjIrLtkQPCIAWqJhp7aXUZCOiMPv
XepCwKEgeSb+EwWtxPnVfjIRggxyiU3bZwp6/CsqKt9RCEQjX6TQf8HPq3i4
RypaCMqUxCUvjlJQjeL3MzotQuCZXe2qNUFBh0huKVeVD0Lz9SwbyiwF0YV6
H59Fh0B7E/sDCUYqKu8L9nsjJwzZelJjrgep6HHUebvRs8JQ5C0vFnWIirJl
tfT+mQtDs0jb9ezDVHT9NreIWLAwRBnsiO4RoSJ7y2dDSY3CcEZm+YagOBVx
jX1XJmuKgGHLSFieLBVd+mvEOWFxBEJG2DWW1KjoFOeREqZQUYgTlaMddKCi
HnrzN903RKG/7D09iyMV2fyO/Zp2TxT4ipR8v2FHUiZ3izSJgkV6kWCeM45P
LAjTYRaDhXmTl5wXcPwWEcO0ODGgGkqdpfrgeCbh+cO3xSHKUSKqLZSKnP6l
ZD0gS8CvtmjpynQqStX90XzZRgLCreQ2W92mooZc1SkdZwmYN84yZblDRdwa
S7IL/hLwjo3ewvguFbWnnqOopUvAh4lijp+ZVCQiLsz4vV8CyvrDgxnzqGja
ps75iJEkGBde4+4toiLP1onjJTpS8FfKqnS+Ds8PxW6iJlJQePHNzPV6KtpW
63W/wEoK+FX2Fu5/RUWlJcuc+Z5ScM1vd7J6AxX9ub3lz+1kKVhRmjue3ITf
n9ux0oh+KVjv1hdhb6OioG3+oibnjsP9z1zP7vfiepizHFy7IA3LpVkensNU
pCjBvjDpKw2FyKzgM/ZvZs62d0HSIBUzGqXzhYrIZbwupfHScPdR+MEjI1R0
kE3miX2xNFxam2QZHsX5VtrLdExLQ13ggZQT41S0sK1RNd1VBr7mB7c9+IHr
3XbFUdJZFvbtKPkStURF5xUO6S54ygL7RdriJ2zHMopMrb8sHJVYfC2zTEXO
GQeZVWNkgdf5VMQYtodn733yQ1lon7BNVPxHRYG7BUdCx2ShU/8B37c1Kkpx
6rDosTkB7BOTFWsMNNTIusfAzUwOsseKHzqz09D4fXHND7ZywIyE6aqw2UFF
Wd1VDkzlPDgZt9IQOcBTRvCKHLi5y9tlYs98b9kzmCkH+QwvKjs5aIi3w2dU
84scfP3qb8+7nYYux3ddPOJ0EqKtiiITd9KQ5PawtElfeWjOXrxQwUtDNWwD
wm1B8hBRurnsJ7YSnXhtfqQ8FAvENB/ioyHSzOCwdao8iMZZkm5jX+o+IfLu
mTz4HBgSubyfhl7GztQ2/ZGHXFaVNskDNKTBYD2S4XUKJm08x0KFaMjm72lR
3QsKsNJcwH37CA1t5aSj9PkqAJuPC0sHdo1E00WLYAWordl4/Q+by0Ot1jlR
AVhtzldaHaWh9u+6mldLFUCpDDkLiNKQxGdr5+dzCoDYw+RzxWiI7k14vkDw
abgyRCoOlqCh3OyWfYsJilAUGOxVI0NDmZaiA8ZpiqApzr13BPs2z83kimxF
yHS8n8sqS0OJaTYsPiWKwNjKqUzCDkz8N/ODogg5Y2yD09iGIZLNozsQGPM9
CeKSoyEmqyyXnjsIdlenWmnL09CzRPlBmiGAu236wXOKNGSXwcFcYwLw9VNA
6WVszsej4rnmAFt2+wqkYXs1Xo/wtAPgDN72sgdbdO6jCLsPAJO5RrsioqF8
sysBqskAEhVxJjxAQ6lCL3c+7wWofbHQ/+oMDfnWnNbP0j4DP+625ber0FCl
eRvDB/0zoJeSHDGCvbCiX8llfAayg19prGBfPnWeJ/7cGehXzE48qkpDIS+v
jwV6nAHDt+0MCdgx9QMB5KQzcCjiU46WGg3dbfLO3dF3Bg5Uaig/V6ehVx0P
/sRaKMFPu9YoI00aKuemeAdbK8GY5TrFATvfcWXWy14J7C1/bwnAvs6gN2Pq
pgRzaUoGmdgk+aXpg1eUQPqwyN4x7KkCzW+Nd5WghKfhuZcWrnfszMDyByVY
3nHkSog2Dbmon6xzISvDgXzXPx66NPRLeE9LmaUySCx194Rg+2xe7lq2UQbm
TcMZidhB3c+HYl2UgSlane0pdpKR3GpBoDLEzX46+gO7yvrEqalMZZDMDSty
0KMhhgCZF64jytDy7d2Mjj5ev9nOxvJvymAYt7Jmgc1+ar59ZVIZnlReW3fB
3rle8f76H2UY0t47EIUtHCm9VMioAve8b0+8xNZLOn5i+qAK3F+aTBY2wP32
WLLSzVUFZNkZ7Raw2z/Yt+d4qIDrgl4mgyENzW1OG3zrowJqZPpODmwt9xV6
hSsq8LH5FfNh7BXJZl32eBVIopv5bYJtVkv6XvxEBRzOyJRUYO/q8d/7a1YF
usv7GZ2NaCj5b124l78qJA3C6VISDXnQkmwtr6jC4SPGCi+wtcvsz2iEqsKB
JM/jTdgsnpvo+WNUgTWMuqkPO2iKFNabpgpLG8zkRWzHkekQ8SpVSGDkDFMw
piGF3j1BP+ZUQVWqRqwRe7zQ75Kzjxq4qDp4V5rQkAnv+ufHl9Rgg9oMddgt
N6LVJwPVgJclk60FO983ndv1qhoUcL4L78O2U3xR45aqBkzBJ/f+xf5MXV33
qFKDv2mMs+KmNNS/dDXGb0UNIj83knKxX6ul3I6IUAfl8CgfHzINfXOs7Q6M
Voc1yTaxAGyWmDGGi9fVQZ91/GswtkabrLt9ijqEbnRCLHaX+uAZlTx1OKZS
UpeD/VZDaJq5SR2stkW2dWKPaladjqXXAHb4JcdvRkP0eh9Hb4RpAF3tq+Ba
7PZ6Y0HfSA3ojUcrr7CTxKn25GsaUN3b7vMam5+jfYw/SQNUmZjJ3djQXTle
lqMBpo/D/37GDtNKnnpbrwG2Q/7e9Ob4vNLQ+LN7TQN/36vvKRM+U0V/7/JZ
oB6iRdZhm6tMdLwPPgtsLmlujdgV6typ2yPOQnF0jm4LtrNu4KGr188C7U/i
pm5sqoWilmPGWSgd0zAaws671JoqWncWooYtTq5gqxS/O/yCThOcBFKdjlvQ
0LXdizq0GE0wcdBdzsBObW//2hSnCfvvd7/Lxs65fPfysxuacEm+viwXu2rw
9IPUdE3wsFizfoT9LSdy1eSRJgxVu2eXYysJcxYNtmqCfZvSw3bsVTkxtm/M
WvCEzWH8D7aXuX3T4lUtGMg2zQNLGuLImfqicA17op9XGbv4q/dGeLwWbH85
nKaKPXEhTIH9lhbczMwN18S2Cs2q4n+oBQl8x+RJ2Nr5A4Vn27XAWnTppBO2
8C+tmxns2hCWE3gtDrtV6m3Zl23asG7GWJuAfd7fnHJwpzYIbPedvoGdQ+ey
tZRXG44x7lFLxd61Izrmtbg27B9oHM3EZpJruPJTXxtqOMxrnmCPhEufR7e0
YX5l51Q39qFdHIled7QhqS3xbS+2a+FEdW6WNrhry9ZSsedod7cwPdSGkp17
ovqx2YTon7VXYbfYMX7CFm/tpjd8rw2xaSVF09iBm51yzu/VAS0h4SrWc/g8
vHnnY2yuDqxuu8J8Cntz/w6qzwMdqDng6a6ATbc7sc2iQAceNAn0ncb+eTei
QqxMB9RkurMAuzXPLZHaoAOp1roCatgB5aeV9nzRAdeBtVl97E/UkYLHfLpg
0fW72AH74bYjl9sydEFoW9VgHLb4uNkS0z1daBiy40rArq6N9VfK14UdTaNa
idjtjpN+dcW6oL1mXZ2EPfXysc+zOjxe2T3sFraYy+ELOcO6wORXO5iNXdEo
ZO0vqAdhVS71pdiNPvtVDxfpgSM/jycVe2V+JmlfiR5E+buQaNjSlxuGtj/T
A86JSbm32I9DbX1Xa/TAvDBsow87Kf7+fWqHHvxb2331PbbNw8MMQVN6sO9l
6Plh7I0f6dbfufTh6eOm1B/Y2fz39p0m6cNLrfF+Jivcf9cl28VM9IFyNDeW
GTv0b9NFPrI+zN2uV2DBtmn91rFhoQ8eG/tzWbEFLhy93GSvD+fAz24z9sPq
qn71i/rgORbR9h/2U93uRMMUfdDd5cDPg10XtELnTNEHjYdfj4lhL5SMz0bQ
9GGtdm8XYYmvtC9ZffqQd7jeSRw7/2xRw9v3+sDYp5x1DPv6LsswNKIPE+rW
9FLYJqV1G7v+6MMeHcWnstgzX8PWW3YYgIv8XDbCPqDFuipoagCf42eW9bCl
+5VpPGYGwMrx6II+tpp12OPtFgZQrbn0mbDrxWXShpUBeBZ4NRlgV2RMP/no
aAD+3q8ijYj4H73WyZcMYOpo/4IJEZ9wu3n9lgG8VPZPOUfE94rEfegzAIe3
tBoX7CTBxgcr7wzgfMcJPldsN39yw94PBsDuLh9OWGB/zPy5TwawxYlHzQ37
hseY9eg3AxjYZNB5gZh/a4709IIB0E8vNnti82txfV7lNgQPPkFvP+z41nUJ
/nOGUFkSTgvFBu9xSV5rQwhRd9kbhj23t0eKx9YQVK5wnCds6Z0lzeVgCIWF
KXOExfYpyLG5GwJX3zXOCOwe78toNsgQVgttlSKxt/HO6TRkGgKTrNfFa9g3
L0662gwZgoOwqXASNo9aoLfRZ0NgINnZEs7j3hKg9sUQLszL3yVcXicaJTpm
CB+YSFuSsSmsXjlL04YgLn1kmjBH5sLbpH+GcKMlIfcm9rXXjKcbeYzA6qTL
VBp20E6+/wTMjKA0TWwhE7u7bJM5sjACa4uqw1nYfLrz+ZbnjKBGZZsZ4VfR
XfLptkbw0FmuljDDUqAju6sRHH1jFZyNHfNxoG4h0AgQ3cpSDnZKTvKFzkwj
2M0Z0ZOHXSDC3OH7xQgi5jpWH2HT9p355z5qBM+/HzrwGHv1v2BRpzEjEJ+w
UyWsuzCXaPbdCMrSriQQnmsaM1KcNYLtncf3FRD1sHz9iZWOBGfbnh8vxH6f
ePX33f0kKA5O0SrGZpmj39NoRQKxdxNCpdhLpbcTx2xI0G5vr0J42v0YE5s9
CTZ9bLAnTJmwnNF1IgHPToE8wncHq1uGPEkw1B/OW4Yt3uzusxRGgvdMAxzl
xP5I+dB57D4JtCSuDj3D1tDzOmP0gASqp3yWCJ9iZ62+9IgEW3ercVUQ/RUt
nVdXhMeXZmoRnrp8I0CrggQcQWwvCIfYqh50aiFByvifxErsRxJlIdkTJMh4
/u5wNbbHzt/L1ZMkMGsRAMLSKxJ+1GkSLP8zJRNuaC51Y5rF69cPuUb4vUkp
2XWJBPFBdROE2YJLpGQ3GUMmI2/ec2znN0/Gu48YQ1MfF2sNtohdoe6auzEM
rgolvcRuz5Iv/eNpDHtLv+QSdvzQsf27tzEI1iQ8I5yvP91H8zOGk39r3xHm
R6IWj4ONQWff+X112Lv2PXUySjAGDq/5fMIM78rCCoqNQf5+clE99uDZF+XG
08bwJ2XrjQZsJb18st9PY2izCc8mXEi6sZ46Ywx6peNPCAdaO2j2/TWGK31R
XYR5/LaPGq4aA0ju2tSITb7nsl1/qwmcsAkNJfxuYY+X5jETsDT7ZdtE9Nv9
QDF00QR+9nzbaMbmpKt6Ie9nAp0XFbe8xjay/K0q628Ct0bjdxHu43K2Erti
AtO8W8QID0QZ39h71QRytiSYER5ykvi9mGICgtFFpYS/HR2vKC03gVnPNtMW
ot+eGSgI/MH31bSvt2Kzy8n27JgzAdYbAjcJ87/ksWFeMIGz3bMZhDVef736
fdkEHmr5PSF8p8+v8ym9KQyd2k8hLD9/x/zUdlPg11rf0UbsX9nRAJKEKZwQ
FUojvPHcpzLawxSOSU1EtRP5sZTH5XmZQsTW9ATCNaTftvU+plD9E90i7Dvr
ybFwyRT/DwXlE/5+2N3JIdQUwmbzmwjT0pz2qCSZwutXVWuEH/haBtOXm0Kw
GZPnG2wtCTXVoHlTYAm0UezApuvvp/ddNAV3Jg4VwlWXHerdlk1hxbbqLGGB
5sgTFmumoPlgkUR4xbhZRJ6ZDK3jCm6EC68AxxIXGe4cf59GeFOb/MBFaTLU
LHlNEa5367jpJkuGl7URM4R9t5nr28uRIWLqxhzhL2aX3xgqkKE2M3Od8PMf
1bWSKmQ41x3K2Un0O6fMvRkjMtw96n2ScNu5Yy5uF8nA9oU3kjCnvXNtlh/O
59/RWMJWzrlbKf5kOLJZJpHwgs+OcukgMrDskrtNWOja4spaJBl+xDEUEw4r
fxWflEaGpI0nNMLyrPqllS/IEC8Ys68LO5o9luF7LRlUQtf5CVO3N5F46skw
7Ol9kLDzPunlkCYy5AtoihNOl+RW0ugkw2vDNkR4zuLL249DZOCim7clDLZ7
Dm0dJoPAyGFHwnGOhgFohAzleSauhAW8X+/L/0YG+PjIh7BB9GMH919kcM/Z
c5VwZtxIdc4sGb6yicYQ/p7Es5n2hwxFAfJxhMMy4p/KLpJhT4jWTcJd91ro
XJbJIMWrm05498N1w4x/ZIjq184gbFd04kH3Ghm6itRzCD8t9Vrc2CBDY77i
fcL/A+OO0ZQ=
        "]]}},
     AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
     Axes->True,
     AxesOrigin->{0, 0},
     DisplayFunction:>$DisplayFunction,
     FormatType->TraditionalForm,
     Frame->{True, True, True, True},
     FrameLabel->{{
        FormBox["\"Density \"", TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}, {
        FormBox[
         RowBox[{"\"time \"", "(", "t", ")"}], TraditionalForm], 
        FormBox["\"\"", TraditionalForm]}},
     GridLines->Automatic,
     GridLinesStyle->Directive[
       GrayLevel[0.5], 
       Dashing[{0, Small}]],
     Method->{},
     PlotRange->{{0, 100}, {-0.05, 1.1}},
     PlotRangeClipping->True,
     PlotRangePadding->{Automatic, Automatic}], {-1, -0.6180339887498948}, {
    Left, Bottom}, {2, 1.2360679774997896`}], 
   GeometricTransformationBox[GraphicsGroupBox[{
      {GrayLevel[0], RectangleBox[{0.2, 0}, {0.4, 0.3}]}, 
      {GrayLevel[1], EdgeForm[{GrayLevel[0], Thickness[0.001]}], 
       GraphicsGroupBox[{RectangleBox[{0.2, 0}, {0.4, 0.3}], InsetBox[
          GraphicsBox[{{{InsetBox[
               GraphicsBox[
                {RGBColor[1, 0, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 0}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"I(t)\"\>", 
               NCache[{1.05, Rational[1, 2]}, {1.05, 0.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[1, 0.5, 0], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 1}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"E(t)\"\>", 
               NCache[{1.05, Rational[3, 2]}, {1.05, 1.5}], {-1, 0}, 
               Automatic, {1, 0}]}, {InsetBox[
               GraphicsBox[
                {RGBColor[0, 0, 1], Thickness[Large], 
                 LineBox[{{0, 0}, {1, 0}}]}], {0, 2}, {Left, Bottom}, {1, 1}],
               InsetBox["\<\"S(t)\"\>", 
               NCache[{1.05, Rational[5, 2]}, {1.05, 2.5}], {-1, 0}, 
               Automatic, {1, 0}]}}, {}},
           AspectRatio->1.5,
           FormatType->TraditionalForm,
           PlotRange->{{-0.1, 3.1}, {-0.1, 3.1}}], {0.2, 0}, {
          Left, Bottom}, {0.2, 0.3}]}]}}], {{{{0.9999999999999997, 0.}, {0., 
      0.9999999999999997}}, {0.3186961894051942, 0.20170644899063012`}}}], 
   InsetBox[
    StyleBox[Cell[TextData[Cell[BoxData[
      FormBox[
       RowBox[{
        SubscriptBox["R", "0"], "=", " ", "1.7"}], TraditionalForm]],
      FormatType->"TraditionalForm"]],
      GeneratedCell->False,
      CellAutoOverwrite->False,
      CellBaseline->Baseline,
      TextAlignment->Left],
     TextAlignment->Center,
     Background->GrayLevel[1.]], {0.5078364746419277, 0.19041631536323}, {
    Left, Top}, {0.2420477387887547, 0.07664845061643906}, {{1., 0.}, {0., 
    1.}},
    Alignment->{Left, Top}]},
  AspectRatio->Automatic,
  Background->None,
  ColorOutput->Automatic,
  ImagePadding->{{0., 101.786448}, {0.714286, 51.353627}},
  ImageSize->Automatic,
  PlotRange->{{-1.0291666666666666`, 
   0.4291666666666667}, {-0.6460339887498948, 0.32799999999999996`}},
  PlotRangePadding->Automatic]], "Input",
 CellChangeTimes->{{3.5681396698610344`*^9, 3.5681396712241125`*^9}, {
  3.569106229719404*^9, 3.569106274680976*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5681395444558616`*^9, 3.5681395476210427`*^9}, 
   3.568139605294341*^9}],

Cell[CellGroupData[{

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

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     {RGBColor[1, 0, 1], Thickness[Large], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQA2IQPbcuic0wpduOAQqOXFbwCVfItIfx/x/b16ygUAnn
zz3QK8+q0Ann59iW5n6XnwnnX/6dMeWD/Eo4n/32I/W38jvh/IWn5he+lj8J
569b33k7R+8WnJ9uf3Hmm6LHcH7eU83HW9a9hPMfxN3kOHgSwQ++0aF39gmC
b3H6eeVTqVdwPvPGpQJi7Qj+jBpFu/L413D+QWHJmZYCb+F8k94T+1y1Efxl
bBVPAt0Q/J6f1/SzahD8sPtTjs16geC/WiXw5feBd3B+jMoBSY47CP75ufn2
It8R/C0TznXp6L6H8+vLehRjZyL4n95bu2duQfBTMl/nlJ5H8K8/mjWp8RVu
PgB+EoAF
       "]], LineBox[CompressedData["
1:eJwV1Xk81PseBvAZGqfEydJinWb8ykQl0nKVfL7SUSRZk6XFlEGLUlSMyi1C
pYamuLq2SjpCC7pIYy0KgybLRLLM/ErrLA0zk+XM/eN5Pa/3X8+fD5V+zCtE
jUAgnFXl/z34ZfKHm44IHhJP/zjvGA6Zhe+IPFMRxOOknPA/ToMmNYH28V8i
OPzebV1gZyK02KetOveXCP7019w/mX4ZLu3OWW/qpXLdRC1yvw5qrMqtgYdF
EOGjSGT6sUE5/S20N1sEXzX9J6JSs+HrgO+DDjUxXAl30HtaVAhtmTSLujYx
bI3fsoFkVg6Xy9fY7OOLYY33SOWNvHLY1uloNy0Ug++U//Nj5Apo+iPIxX5G
DD8VIxYLDZ5BzSlWeKWNBJZWNfRvUa+EEh/F349vSeDkJkP7vdXP4ZpOq2X+
fimsZqoPrQmoh6r1phXuEVKw0yl20WPXg2DvMZhkSmHM9mR0Tns9bCzR9/HL
kIJDNrHmJTTAZ5egs9pcKaxf8GYDndIIThe/d8Rs/AXr2imf9vKaQC6bF+21
UAbiMo1lkbNaADOlz8xgMgADdrbH2hZw31KeUmIjA88mu2lRSAsUpO/Omb1D
Bjo1w4xTr1rAa1V+M+eiDLiBNwfyEl5DSdhqo+ViGfyaymrok70Ber9PrXrb
OExEtDnXlraD5u3ho5H8cTg6wr3T0dsOTwMiTD7i47CfSup9ROCC+vukmGri
BNTN+BoOe3LhXl+1beT6CWCF9uvrSLiAd1MeDN6ZgPj/dP6SzO+EQ53fWFUx
cth97nkJx74L9FgxQEuSQ296kP919y6o3qnxg82WQ7qJKNVtfxfM7Vi8/fgj
OVzRntFJvdgFxe1eJJpQDt7FNmMWr7vgx5vKGLaHAlyDlwR993gLkS8T6Mdo
Spj5EbKP7s0DssBZY9xWCYzF/yWIg3nQqjanKA4pYaP9lReRx3mwFKWKU/yV
cGvkLd8llQf86pvx964owSyKxdn1igeOj+/n8H8qoZbwuVu69h3o3m5571T5
G/Rjg4yr5nbDk+Na3gYuU3BE3jFHye6Btiz9mJJdU7Dgcd7GtPwewJuMcjcf
nIKnvNA3JqU9YGRo8fXI+SlYZmMOus09kFD/18X6iimwfvenY6S8B3bpnS87
ZDYNRRIrc2P/XlCWifVf/J6G2TUReJxeH+QzD3+x9iOgNJOfosAwPljXzZEn
7SEgH2L4UFskH+pmPSB9PEBAEZc0L6xj8mEoVUBJPU5Afvy0KWkqH8h5e/zG
UghI1BVTa1DGh6ymnU35NQQUlXz0hs4kH9K11+TomRERtfYQTZT8Hi7kTnr+
+kZEOtvzjQisfvCwroxcLiWi0oIerycZ/UCuP5lGV6hMtbTbk9sP1SNfOjtJ
aogdtsq8oLQfJEv5O0vIauh1Nc1ovK0f6MUVOxgeamj09+oF+bMHwLEqwqWv
TA3N30x3gLgBIPCGUE2sOuqSWRnc9/0A5lGMMz6WJMQfwtITxgdBIMvYNfeF
BtJmakgGqUPgKjx0Nj1yNjoYdm0l4gyBu4C1nEzWRAfV2Mc/Ow3Dl0Z6fEvJ
XERyDtOYejIMVro9pk77tFFN4ntbmskIaIIseED6J4rumMlrjBqBrd8DJsx8
dRBpugs3bB2BvoaDxIAVuuhY/OX4s4tGoSK5aS9Fpos+D89b5r57FBik6CEu
Vw8FFA4mn8kchQMnmBVaWfrIgdPYHNAxCqtCl3PdguejqgLdODWiADr0VsyN
tluAbveXMRtWC+B56YXbK9QXojAftjdnjwCYREuPtg8LEcpr1Z9MFoDmQOy2
iPJFaFHGg97QxwIQ3qeyc+MM0JiVa8OLtwJgLzOcVeVriLYynpexZQJgZTGa
gylGiPnCSDhvvhAC2Hu4Wp+M0KWO8EJbayHItxQocjnGyJY5h/XLTQijws1n
GpJMUDhmnYYYQrizyca4PdgUpewterI0XgglidG6oSvJ6D7wJcQMIST5Htiu
LiOjW6cIaVuLhbB2IP/vpPbF6KZ37MUVDULItLhd0r6dgpwzbdfe7BbC+brU
zO1VFBTae6qbPSaEHca+BW+WUNFp10P3HCaF4BjRHKibQkUfBBpOfC0cck3o
S9pkVPQ9b1/ZbDIOSxoLb7kHmiGvXVMOQStxYK1ssHzLMUNDFO3k+o04MKSz
ul5bYuiwKLT9mSsO9CcSSsp1DDlILugu2o3DkQvek65pGIodLkr3VDnau7xX
6waGLKs951xVOVkWfY11C0OcU7Regj8OpXaK3xnZGCJpbZaNqayon+m5/xBD
ZrzCTdWBqv23WqlNzRgijt7R896HQ9bdo2GXXmOo2Xmey1WV70Zxnba1Yshv
iXf0S5WfLWQpW7kYcjE98mj9fhwGAvTDeN0YoiVYFRkH40AbNXQaGcXQS8mO
mmE6DtblseR7QgwVhUZ5Gh3AYUNivyLkE4Z6LLIHvFR2o2U/HvuCoUELQnej
yicOU8hiMYYyfvq6FxzEIc7+34qnUgxRi/tufFA5UXvkXZQMQ+denuhYEIJD
5qO7V+RyDAkSJpZdUvlO/KzQaiWG/nfgkzNH5YeeIZvjJjE0rqMIGFe53OyV
qcM0hirNV4VYMXDgSM0VqsNB1g5XQxgq/wO8Iswh
       "]]}, {}}, {{}, {}, {}}}, 
   {Arrowheads[0.03], ArrowBox[{{2, 0.1}, {1, 0}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  Frame->{True, True, True, True},
  FrameLabel->{{
     FormBox[
     "\"Infected \
Fraction\\!\\(\\*\\nStyleBox[\\\",\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\
\\*\\nStyleBox[\\\" \
\\\",\\nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"I\\\",\\\
nFontSlant->\\\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"(\\\",\\nFontSlant->\\\
\"Italic\\\"]\\)\\!\\(\\*\\nStyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"]\\\
)\\!\\(\\*\\nStyleBox[\\\")\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", 
      TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}, {
     FormBox[
     "\"Basic Reproduction Ratio (\\!\\(\\*SubscriptBox[\\(R\\), \\(0\\)]\\))\
\"", TraditionalForm], 
     FormBox["\"\"", TraditionalForm]}},
  GridLines->{{}, {0.}},
  GridLinesStyle->Directive[
    Dashing[{Small, Small}], 
    GrayLevel[0.5]],
  Method->{},
  PlotRange->{{0, 10}, {-0.1, 1.1}},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.5681482816666017`*^9, 3.568148317339642*^9}}]
}, Open  ]]
},
WindowSize->{1904, 945},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.3999998569488525`,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 16975, 452, 2203, "Input"],
Cell[17557, 476, 1134, 15, 40, "Output"],
Cell[18694, 493, 5071, 87, 349, "Output"],
Cell[23768, 582, 6351, 107, 345, "Output"],
Cell[30122, 691, 6211, 104, 341, "Output"],
Cell[36336, 797, 16703, 290, 350, "Output"]
}, Open  ]],
Cell[53054, 1090, 13106, 239, 334, "Input"],
Cell[CellGroupData[{
Cell[66185, 1333, 17780, 476, 1667, "Input"],
Cell[83968, 1811, 186, 2, 40, "Output"],
Cell[84157, 1815, 188, 2, 40, "Output"],
Cell[84348, 1819, 189, 2, 40, "Output"],
Cell[84540, 1823, 188, 2, 40, "Output"],
Cell[84731, 1827, 11105, 191, 345, "Output"],
Cell[95839, 2020, 12268, 210, 342, "Output"],
Cell[108110, 2232, 10792, 186, 345, "Output"],
Cell[118905, 2420, 34997, 603, 350, "Output"],
Cell[153905, 3025, 29489, 502, 334, "Output"]
}, Open  ]],
Cell[183409, 3530, 30343, 522, 334, "Input"],
Cell[213755, 4054, 122, 2, 41, "Input"],
Cell[CellGroupData[{
Cell[213902, 4060, 4468, 110, 273, "Input"],
Cell[218373, 4172, 4390, 84, 359, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)