ChaosEmptyAdSpoincare2.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    593637,      11403]
NotebookOptionsPosition[    587459,      11293]
NotebookOutlinePosition[    587819,      11309]
CellTagsIndexPosition[    587776,      11306]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<VariationalMethods`\>\"", "]"}]], "Input",Expressi\
onUUID->"0969f764-a2e2-4495-825b-c3c7e3b9ff16"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"EulerEquations", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "/", 
       RowBox[{"y", "[", "t", "]"}]}], ")"}], 
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "-", 
       RowBox[{
        RowBox[{
         RowBox[{"y", "'"}], "[", "t", "]"}], "^", "2"}]}], "]"}]}], "+", " ", 
    RowBox[{"q", "/", 
     RowBox[{"y", "[", "t", "]"}]}]}], ",", 
   RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7682244869580107`*^9, 
  3.768224494517551*^9}},ExpressionUUID->"e543de1f-06bd-479a-9fbe-\
0cb6e6962b02"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"a", "+", 
     RowBox[{"q", " ", 
      SqrtBox[
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["y", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}]]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{
        SuperscriptBox["y", "\[Prime]",
         MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"q", " ", 
         SqrtBox[
          RowBox[{"1", "-", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["y", "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}]]}]}], ")"}]}],
      "-", 
     RowBox[{"a", " ", 
      RowBox[{"y", "[", "t", "]"}], " ", 
      RowBox[{
       SuperscriptBox["y", "\[Prime]\[Prime]",
        MultilineFunction->None], "[", "t", "]"}]}]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"y", "[", "t", "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["y", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
      RowBox[{"3", "/", "2"}]]}]]}], "\[Equal]", "0"}]], "Output",
 CellChangeTimes->{
  3.7682244952942743`*^9},ExpressionUUID->"f6ff5cc2-05dd-4996-87d5-\
818a638b1a24"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"a", "+", 
         RowBox[{"q", " ", 
          SqrtBox[
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["y", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}]]}], "-", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["y", "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"q", " ", 
             SqrtBox[
              RowBox[{"1", "-", 
               SuperscriptBox[
                RowBox[{
                 SuperscriptBox["y", "\[Prime]",
                  MultilineFunction->None], "[", "t", "]"}], "2"]}]]}]}], 
           ")"}]}], "-", 
         RowBox[{"a", " ", 
          RowBox[{"y", "[", "t", "]"}], " ", 
          RowBox[{
           SuperscriptBox["y", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"y", "[", "t", "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{
              SuperscriptBox["y", "\[Prime]",
               MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}], 
          RowBox[{"3", "/", "2"}]]}]]}], "\[Equal]", "0"}], ",", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], "\[Equal]", "ys"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"y", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", 
   RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7682245069894257`*^9, {3.7682250077809896`*^9, 
   3.768225008755239*^9}},ExpressionUUID->"7f9b9687-91d6-4d20-a6f8-\
e44153372b71"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,4,5,22616342172476110681,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7682245094921417`*^9, 
  3.7682250107802973`*^9},ExpressionUUID->"f2d97b61-4cbd-4777-b9f2-\
f5af06fb947d"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,4,6,22616342172476110681,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7682245094921417`*^9, 
  3.76822501093146*^9},ExpressionUUID->"d8cac1ca-5323-441d-8f73-7a6a743a5e42"],

Cell[BoxData[
 TemplateBox[{
  "Solve","ifun",
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"",2,4,7,22616342172476110681,
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7682245094921417`*^9, 
  3.768225011076545*^9},ExpressionUUID->"9f1ae279-9a4c-404f-8eae-\
66f82f36c5d1"],

Cell[BoxData[
 TemplateBox[{
  "General","stop",
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"Solve\\\", \\\"::\\\", \
\\\"ifun\\\"}], \\\"MessageName\\\"]\\) will be suppressed during this \
calculation.\"",2,4,8,22616342172476110681,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7682245094921417`*^9, 
  3.768225011153974*^9},ExpressionUUID->"ada4d452-d4d7-45da-9fdd-\
6d19c72ad756"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "q"}], " ", "ys"}], "+", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}], "-", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "-", "q"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "q"}], " ", "ys"}], "-", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}], "+", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "-", "q"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"q", " ", "ys"}], "-", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}], "-", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "+", "q"}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "[", "t", "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"q", " ", "ys"}], "+", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}], "+", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "+", "q"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.768224509812764*^9, 
  3.768225011237505*^9},ExpressionUUID->"406e2520-2cde-448d-88a8-\
6587fb24c501"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Solution", " ", "number", " ", "1"}], " ", "*)"}]], "Input",Express\
ionUUID->"ac1565f5-0ea4-4916-bb67-ad6223cc633d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "q"}], " ", "ys"}], "+", 
      RowBox[{"a", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}], "-", 
      RowBox[{"q", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}]}], 
     RowBox[{"a", "-", "q"}]], ",", "t"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.7682260396606913`*^9, 
  3.7682260433833923`*^9}},ExpressionUUID->"601c707d-020e-49a1-bfec-\
951bf9c8e474"],

Cell[BoxData[
 FractionBox["t", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["t", "2"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox["ys", "2"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]]], "Output",
 CellChangeTimes->{3.768226036544341*^9, 
  3.768226094721815*^9},ExpressionUUID->"73ec9aae-eefa-4158-9689-\
bef1e6f21bd2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y2", ",", "dy", ",", "py"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"y2", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "q"}], " ", "ys"}], "+", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}], "-", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "-", "q"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dy", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox["t", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["t", "2"], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["ys", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"py", "[", 
      RowBox[{"t1_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"y2", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"dy", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"dy", "[", 
           RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "^", "2"}]}],
         "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.768225693552536*^9, {3.768225884939062*^9, 3.768225941243465*^9}, {
   3.768226107524678*^9, 3.768226165825839*^9}, {3.768226294497385*^9, 
   3.768226295952194*^9}, {3.7682263525743113`*^9, 3.7682263827365294`*^9}, {
   3.7682264663347282`*^9, 
   3.768226495206081*^9}},ExpressionUUID->"a7331946-02cb-4944-94d2-\
6d52516aa801"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw91nk4lfn/x/EjhbLvju1wHOdw9qVMJd2vFFpM2vfdkqQiKTUlZaZoN23D
pDSFFoq0TVpMi0YYaSUlNZNWqlGj0PiZb+/P7/7Due7L5/P4PO/3dc65jvuc
RWPCu/F4vDQ9Hu+/V3bp/e+vDTLS/7sOc6a8Wdvk/3//K3f8+SvuRNd9b91/
1xUu5NSTnml67P9l3J3x0xp/72aDr9pNLtN4xI3J3dn621xgWELuYAMbzI34
77rHBZzfGL3OiO2v5XJDTHoIjW1QWfHf9ZAbdC9ssp0Z8xq4Pkeejwy1ZOuf
cM+W3r5uZMv8P7nVCycdMOCz/X9xbfp7L0xzYec1ct9Iyt72EjLvBXePp29h
KWHeS65OmvR+oZx5r7m00JQwkZZ5b7jBZxJ9NH2Z18w1u7zS7BzIvHfc4NRE
11EBbP07rmym+LfZwcx/z9nPNnlYNpbt/5u78DZbmTKVndfC/XH+QvyeUOZ9
4NpvJs43iGbeB27B29XXry1h3kfu9rdVAx+sYt4/XGnmv8mD1zOvlXs0RxWk
l8a8T9z0NIGP9c/M+8Q9ifHpSMhm3mcu92Kav7aAeW2cobF1wcBi5rVzm79d
8DKzlHkdHHdUmxZyi3kdXHrU06Cx9cz7whVbtB499Ip5/3IzDnyYHNLKvE7O
1njZm8DutuTxkJ+Gji2WtrSeh54JQ90kAlvyeVixr6zJTGGL/23X6aGP/+hP
Ab62dJ4eGk9XVpcPY143CHwze2VNYl43NJXs0Vyey7xumF7sc0ezzJZ69LGu
MTaxeR3z9NFuwCtu3cW87kjJDLb+Npd53dF340bz5jPM647rv1z3efA783rg
mcd7M8sHzOsBP5c3zj++Zp4Bwk/s/WvaF+YZYJt/54sYczvyDLBogTCv0t2O
PEP81DL0+OLeduQZ4sqipsUzg+zIM8LFxuql26fYkWeEzTLT/mYLmWeEWlsH
36o1zOuJ+JQHrXd3Mq8nVIFnm9yPMK8XVNsz009cZF4vDNxvnLD+NvN6YeE1
UY+sF8wzxsX4s+fbvzDPGJtNQxwzrO3JM8GuiX3SV3jbk2eCRQ/Xn9zD2ZNn
ghsf/J53jrcnzxQz9/bOOxBtT54pzK37Ja5PZp4ZEtyta45kMM8MWwK39jY9
wTwz3FifYnasjHnmyDL9u2HTE+aZwyCxQXz4M/Ms8I/d9qndrBzo/WWB8ykr
23ZLHci3QP9tI1bPG+xA+y0wYHRL+NJpDnSeBdpjiqQX4x3Is4Tze8FwbGWe
JWLLvQZ1HGKeJYxC3De/v8w8S5wZeP2o4BHzLNFUOMxpXSvzrOB+NmSKyIpP
nhVyL/37/LOcT54V5pfwhhgM5ZNnhTmyDc1DQ/nkWWHxvpmRvyXyybPG2rA6
7aIMPs3HGmn5f1eNPs08axT90v9y5C3mWeOOrmlTUTPzrGF/qqlIY+xIng2e
BFQWP5U4kmeDmfpV3qVDHMmzwT7DN8l1sx3Js4HS5/4o4WpH8myguM9zyNjD
PFv07JYx2/8c82xxsGb3acca5tliwI7TWcJ/mGeLR2Erj0y2cSLPFr+IBsy8
pHUizw7rH9uPGDvaiTw7DNfot9vEOJFnh9fLr3Xob3Uizw541V4vOMY8O0TM
c9JEVjLPHr7jFic/fMM8ezTbS+euNHEmzx5rDw1dGCR3Js8eO+8UyvyCncmz
h3yZl256tDN5DtidEsLP3eRMngM2mh+Nc8xnngNGtWTVnK5kngNeHl/++Ltm
5jkgvmmW2zxzF/L4mNEe3jtR7UIeH+vUK0+dG+1CHh/jNN8NdI1zIY+Pec6C
+Yd2uJDHR+deo5pJp5nniIr354WqGuY5Qn0p+6W0jXmO2NdiUTHC2ZU8Rzgt
V0elDXQlzxEz6vnh7bNcyXPClVfXZqQmu5LnhB8EFm39c1zJcwJfcvqBeRnz
nBCvm5ht+IZ5Tvg0Iq7T3VxAnjOSNkZtnaEVkOeMvJCVHefHC8hzRvrk0uYB
ywXkOcP1yWDz+j0C8pxRnVFhmFXCPBdcLbROXvsX81yQO2XsLv/ubuS5oM5v
ac1YOzfyXGD+Ja1+iZcbeS5QpBauzu7vRp4r9h4dvv1ZsBt5rngQ6ve+90zm
uaIKt2O3xzLPFa6nLzbxvmeeK44tcBy4ahfzBNi7M3KA0WHmCfBa+uPl/cXM
E+BvNB4Z9gfzBDAL5N/sbGCeAD8EDDG92sI8NzSJ//LbZeD+dT3fDQGva/yW
8t3p+8YNjc/DXobK3b/u73qO1E6Zy0zOnc5zQ0Kt9vTcMe5fvSQ3iO3r01aF
k5fuhjEp7zdnJZBX5Ia707em3NxIXoUbgqd+M8t0H3mNbjhlWNoy4QR5PHeo
HsUJ86+xPne0L7tTbl7L+txRffVuVeIb1ueOEuUls7ZO1ueOgxXqeWushdTn
juFbhCU2EiH1uWPNvD8/FPUXUl+Xv87h5YyRQupzx8hF5xNt5wipzx16fV1/
uh9PHk+ImoIG++xU8vhCLEr73LAqkzydEJrcgnuzC8kLFuKS/r6Ho66RFyHE
C9mxe8NrWZ8QPkH2h0OaWJ8QylFz+s7U86A+IbiA8HnLbT2oT4jUKYPd93p7
UJ8QS+XRAZV+HtTnAf+WjGKDMR7U54HvztydNzzCg94/HlixPtrnpxXkBXvg
ff4nw3dbyOtal/ly6rXRB8hL8oBhzqXxF86Ql+6BDX12ZGkryCvywA8m2zYX
NrA+D9z+cqx7/4+szwNbEzTN5T1F1CeC4PrP2rmuIuoTdX1+T50z1omoT4Rn
d9cv+jVIRH0i9Lk4o3/MNBH1iTBnTGl3dSx5SSLsMdx49tMP5KWL0KP0LHcj
g7wiEU5qMr4/eJy8ChG0H8/Err9KXqMI601r3i+uZX2eOG//5W1EM+vzROu+
8Imh+p7U5wmnxRutIx08qc8TH18LLeIVntTnCcPRjv02+HtSnyeqBekrcid6
Up8nrkd2llREk1fUdS9+9unzGvIqPKFJ55urdpPX6InMfb+8m59HHk8MO/vz
Gwp+I48vhl6/+zc67rE+Mba1p+8d9Yb1iXE3rr7lqJ6Y+sSY3+/EWTN7MfWJ
cbJ8fF2CXEx9Ypz65Dv81SAx9YnxXUDPD3MmiqlPDOmk7defRpPXKMbm0Iai
eWvJ40ngv0N8qHU3eXwJlq8u374pnzydBL7bQyO8rpAXLEFQSqF5eQ3rkyDx
bvbqJc2sT4Ibohk5ou4S6pPglzLRkrou92ufBPr9Ymp/UkmoT4K2tU9LpwVI
qE+Cw5VDFZKpEurzQnl1xpfWGPL4Xrg4qc2rah15Oi90FJ/IyttDXrAXTCL6
Tth2grwIL+iN9/Jd8Tt5SV4YuDdoUFQ96/NCXcvaKbM+sD4vjJU1J0zr5UV9
Xjh27cqWGW5e1OcF8+VhWyJ8vKjPG1nFE6KWdJ37tc8bLSGBtilzvKjPG+m3
9NfuTyAv2BvBw74/ULKFvAhv+Bc1RD87SF6SN55ljK82LyYv3RvvDvlf5arJ
K/LG6b7SfvHPWZ83apsKPAq+sD5vKEdkLntn7U19Uvwz/L6Xj9Sb+qSY9mmu
bA28qU8K517L46oneFOfFN8njvsoXuBNfVL83Dcse00yeUlSrNyrSXiSTl66
FM19w+cEFpBXJIVwXOmkglLyKqQ4tL//KMEj8hqlSKq75re9hfXJMD4y1c6k
l5T6ZHjCu1qV6ialPhnCJ1TPMPlGSn0yBJ3z/nX7t1Lqk+F66ew7gjAp9cnw
m5E0p2AFeekybDoyUhSYRl6RDK8EZ4Y05JJXIUPrrfAviRfJa5RBeWvZEOFd
8nhyLF4tsrjxmvXJ4YwLE5Z2k1GfHB2KfDNJV/fXPjnmlSUoH6pk1CfH0LwL
eTsDZdTXtd5PmzR2uoz65AiNzN5nu4S8Ijlyvv1X7+EG8irksOn03Zuzn7xG
Of7qHT8//ix5PAUuG9TMGlpFHl+BZdmH4wWNrE8BX9vA/W0drE8Bh5eCulpr
OfUpYNZ5yfGCVE59Cgj9rk08OEhOfQqoQ/5K3TpJTn0KFIQ/P5S4SE59Cvh8
zM+LXUdeowJVS+WbIzPJ4ykh9Y72Dz1JHl+J1Fsbrs4uJ0+nRFLyOeOwp+QF
KzFvyiCLqM+sT4myoOU34iwU1KeE/HaVdo1EQX1K2D25NujHgQrqUyJq+du3
OeMV1KfEkS0tfS5FK6hPiY/XNprUJZPHU+EQ9310WwZ5fBUuzyoe6XKCPJ0K
L/a45w0uIy9YBcmgX1ctaCAvQoUJ3K7zGa2sTwVN26PZ5WZK6lPB1Op6RKen
kvpU0GnTr/r4KalPhdf1eUtixympTwXhkPkxx+crqU+NjO4jC9+tpfUmarzo
+VjdJ4N8vhq3xp19sbKQ9ovVSPoj+db135X0+0YNU8f257YN5EGNRxHPhXNb
yQtWI2qw+6piM9VXb7IauTHb3lmJVfR8arSeki1b4Kf66sWpUXjqU6/ycSp6
XjXUl41zZNGqr94mNeYXrfffmkxeuhrGFzIffMwgL0cN14DNkTNPkFekBooP
NJaXkVeiRkDMgBDfJ+RVqBG+sGRP/ifyatVo87odZmmkpnmpMdiyX2Sltfqr
16LG0F0P7m4QqGl+GlQ3GRwdJlPT/DSIv2H9rOc3apqfBqJh09eU+5Mn1uBj
fcCqLSPJ02lgH+Rzb8wU8qCBRWxmqkMEecEayBa92/E4lrzJGjiHH/mYu4q8
CA3+XBp8ODaVvDgNHp+Znj9gJ3lJGlg5zu802k/eJg0Kpxtm3ssjL12Di7zy
5Oyz5OVoYKQaVxh/lbwiDVQnAj2CbpJXokGPpyPu8x+SV6FByw6r8qbn5NVq
cMEipONyC5ufBqPbz0Wmd7L5aVA7wtYs1lhD89PiX1/hq2H2GpqfFkP7HW3z
8NDQ/LS4eC/Rr1OpoflpkXsxpqCuv4bmp8V3ByeP/jWQPGhh/I29609jyAvu
2m+1ySZhBnmTteh5cp92chR5EVqYRw1c6ruUvDgtwoZNfuS6lrwkLYwEjeH6
W8jbpEVc6GPTl+nkpWtRrxhyuyqbvBwtDkscTp4pJK9Ii7erQ49lXSCvRAuf
x9qSDWXkVWgxeuru5/F3yavVYtr8HOGcJ+Q1avG0bvmikCbyWrTQXlFV+H1m
89PhcvwrH0UPLc1Ph9IVN/NdLLU0Px1eJJmozF20ND8dnMdWntXz1tL3jw57
KgOGfeytpfnp0O12Xv1LkBesQ+ogv2WPg8mbrEPUiz6W9yaRF6HD2FW1RyrD
yIvTwfrHhf6lMeQl6RC0gbt3aSV5m3QYkZYRdi6FvHQdhNuqX5/aQV5OV49H
/6gTWeQV6bDpR0X98TzySnSwv2oUeOwseRU69PGRZ+VfJa9WB+WH9lf5N8lr
1GHC5sei4w/Ja9Gh3Ng/uPAFebzemPY6bebJD1r8HzO2xNU=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91nlcTfkfx/Fok/ZNi+q23qXu7W5pTNR5T0qhkbJGhFIiChOFKTQKCVkn
SzVj7MsgxUxpQYhMjC0h2UorqbFU9GvG9/M7f9TjPDrneV69u93HtZsdGzyn
v4qKSmY/FZV/v9PR77+vjtid9e9xhEufYOOo/f/zPzhdlZlbxH3nbsp/j0tc
hG6iT8T/f17B/d7QxJ3pO/+q3eJ0ZqqtGdSPrr/DBeY/08rsO4+K/Pe4zyE7
5r5df7r/IXd3Ymj9tb7zm5X/Ho+5O0eGDE1VJa+O26c95nqIGl3/jBPtL9o9
Qp38F9zIiIRDIzTo/pfcZyePthBNel4951uUHpM6gLzXXKFxOa9Ci7xG7lCg
jrq9NnnNnHXTRItMHfJauO/uR4QM0iOvjSv87XrZaX3y3nJDjjaMDTek699y
6sLmHmdj8tu5V0vvXB1gSve/4y4oFx7rGUTP6+CSF07Zr2FBXien/ujLUf5g
8jq5LtXsC6HW5P3D/ZHsff8wj7z33DeCijcD7cn7wF0a+1QtxZG8j9x9FVUD
QwF5H7ljHina+SLyPnGPnFe1LxST18UVLmou9JKS181lhq+LcFSQ18OdDmh5
yRtCXg834lySu3woeZ+5F2cSg6cMI+8L12bdJN/hRV4vl/L295sN35GnghHr
k2zG+dL1Ksjpfmz1lz/5KqgI45fNCnDEf7cr+yHAcYOq9jh6Xj+YzdJ5XDGe
vP6QiVO9syeT1x8X3hxwXTeNvP7IL3uzKy2MelTxV9GF+L3h5KmibSpKrkSR
p4buW0nzNWLIU0PX/MmLpsWRp4YFb5Kvlv9AnjoG/bM2wjeRPHXc+b7Kq+ZH
8jRwO3x3wE9ryNPAlX1fUkakkaeBWZdaasw2kqeJJ7Olfv0yydNEyjfzi3t3
kDcA0zN57sZ7yBuAkgsH9w/LJW8AnsW59yQcIE8LkbI6txtHydPCoeJMb8Up
8gZCN83U8mQ+eQOhqW18yquQvIFoDtT/9KKUPG1kfL+gcd8V8rSRNn1hfEwl
eTrgjikyA/8mTwcJv/0h86smTwdZ8577ja8lTxcrfGKuL3lJni4KDT4cO9xE
nh5yzqvWtb8lTw8z9neGBH4gTw8NIj3dss/k6cNUe1nLSDUn5ulDVDe0uW6g
E/MMcCITPZsMndjrywDHK2cYBZk7Md8AWgn+tgIe3W+AYOdd5oZ8J/Y8AyzP
qWjVk5BnCE2pz1ZbN/IMMcQ76KPvMPIM4XvdzijZmzxD1BfcvH1jFHmG2Bkz
QSQOIs8IvGH7BuZOIc8IA+8uixLMJM8IraV75RejyDPC3w9PTI2LJc8I0wvd
78qXkWeMd8NPbNZIdmL7GCO1flFSWyp5xoiPvJXZuIk8Y3RrqBR+2EmeMZIc
HJvNc8gzwbp9AcbfHyLPBGlBSx23/06eCYamp+u3nSPPBDmJEeVTS8kzwdVf
r7rXXCPPFDqT502IuU2eKV45tOsZ1pBnivkj30669pw8U3hat1htbSbPFOq7
Q4IWdpI3CHPOZL8M/UzeICy6ZXR1ugafeYOwxbv3dZw+n3mDUHY0x2OnOZ95
gxC7wP74TTs+88wQyzsiMXPhM88MP3f4/77YjTwzrBZo29V5kmeGS7Gti8P8
yDPDvPDn29+OI88cxfW3l26bSp45pu3IGuAfQZ45Mlx0PfQWkmeOB23vu14t
I88cD03Nh1WtJs8Ck6Wipop08iwQv67mw70d5FnAa+vd8R055FlAOvJ8q91R
8ixgv4GXP+sseZaQbtuXdaaYPEs88CvZYFJBniW8ftFOSLtDniU2aasFadeS
Z4mF5Y7qua/JG4zfvF6l+HaQNxjF8eeLuj+TNxi1E3RzLg4QMG8wMnQDLXcb
C5g3GOeXvLJeYyNgnhV2Th6StVwkYJ4VrtfmrkhxEzDPCrGP087u5cizgo/Q
X3llNHl913d6NvROJM8amx0vl4yaRZ41wrLdju+PIc8aa3Jf79FNIM8a+sbf
JqWlkGcN+cMkb8PN5Nkgwc64+uhu8mwgyg90nXCQPBtsGrnZTfcMeTYILpbU
3LtAng2up63TO1lBHg/Bj7+U7rhHHg+5uu/qNj4jjweDqvLp21rJ40EjqY5/
5BN5PAyJPubyl7qQebZ4P2jbtP5Gwq/XW9hizwbNg742QvZ+Y4uidSu7djkL
v94fYIstNdH+n9yF7Hm28NgyJjl6BPNW2cLG+9dNrwOZl2WL4UEdc5aGMi/P
FvH8ik6jaOZV2qI7Ls+5OJ559bbICvf7sGwN9dnBqp03Gpupzw7nNWuNzPZS
nx0W3RB+13OY+uywqerE5Tf51GeHAYF2Ge0Xqc8O5hFeG/rdoj47nPO6eoz3
hPrs4DF17bMxTdRnh9bTowanfqA+O5R3tvj/pSZiffawOx841dFIxPrskXFk
KreOJ2J99jhU8qXhk1jE+uyhP2+IT6KHiPXZY36pio+GP/NW2WPlqfkPcicy
L8ses102tPmHMy/PHjeCEhO/xDGv0h6Lc8LmliUxr94eW00XHMvcSH0OWBPx
SBG7m/ockGLS1hZyWMRePw7IPPGuKqiA+hwwrxZXJl2mPgfk/epxce7f1OeA
4LkBZ9PqqM8Bd5WtG/PamJfnAPPL2cNbeqjPAWb5rXlybWfW54DGXxa9SLFw
Zn2OeOZ7s/C5wJn1OaJr70nJWHdn1ueIMNUq0RUfZ9bniCETOnJHj2depCNy
NFtSHs1i3ipHtAfuuJQQx7wsR7i6Pxhnn8y8PEeczj9gVZ3BvL7PKZIHKua7
91KfI55e71TOPUZ9TtDqv3uW95/U54TjfqZbhRXU54TfqncVWFZTnxMaloeV
mjdQnxOGby/ItX9PfU4wQaf/UHUX1ueEJxErj4aYuLA+J+y8VlKQ6uDC+pzw
q+PwsBKFC+tzguO3K3eoeruwPj7SnpqNGR/EPAs+kq3OLjo5k3lKPkbLVbtN
4pgXwEf88cvVqcnMi+SjObG8R3Uz81bxMevd0ykbs6mPDzR11/JOUh8fTSV6
q4svUB8fkdGD5XNvUh8fy1crnlk9oT4Bhk1YnPK4hfoE0GzWGHioh/oEaDNz
jlqpI2Z9AmxZ5ZARaiVmfQKsOey/0E8sZn0CGHb39AwfLmZ9Auy4e9rFM0DM
+gRwT69v8QtlXqUA4mVC5fQY5tULsKnLqH3lSuapCLFrXaDFoY3MsxAi9viO
7Ed7macUIl3/2BLLE9QnxPLk8PTwC9QnxLiO3OqCm9QnxJ4t48ea1FKfEI2/
Jz5d0UZ9Qlyv4yW3fqE+IeJbZ9pG60tYnxAGtXMK2ngS1ifCjO45bkkyCesT
4dvbBzPMvpOwPhFSZSvz/wySsD4RymX+OVGzmRcpwgT5Ci+bJcxbJYK4Zltq
bQrzskSItuLNP7ydeXkijFGcf7riAPMqRejNHlA9pYD6RHgruebHXaU+Z1S2
F9lLq6nPGcNGFIYKG6nPGbKSA43OXdTnjHqfBRfctV1ZnzNyOgwqx1i5sr6+
/xNhttY8iSvrc8bgRNm8TC9X1tfn57c/Kwt0ZX3OmFFrMad7JvPqnTGZ/6bB
czHzVFxwqal8xvoU5lm44OdTKsVPtjNP6YK1PIMuj4PMC3DBl57Fmr+coz4X
WAgKavQrqM8FGpt/mJtWQ30uiFdOPqDZQn19r3NL09Qtn6nPBR/HLOm105ey
PheoX/fRKLKVsj4xVqXP2zxDIWV9YmT8cGezlo+U9YlxPHBlT9FEKesTY9KV
2OsJUcyLFCMr5Erb8ETmrRJj1NSDM7TSmZclhs2zEfq1e5mXJ0bulbp//jzJ
vEoxbu+u1MwtpT4xivdGeGT8TX0SXD5tnLLmJfVJcCs0+EHye+qT4NDU8Tu9
1WSsT4J+0uDho3RlrE+CR55Lq8cPkrE+CR7c2zlnNk/G+iTQ/5xZ+4NQxvok
sIoJ8EqXM69SAsn608kHPJhXL0HX7Lx9l0YwT8UV2cdGb3sVwDwLVyzNWzpN
exLzlK6oCfdsdwujvr7zb48Fzp5Lfa6owp1F2xZRX9/fWbcq+Npy6nOFTUFx
q8pP1OeKP25f8/TMoD5XnFxg6fXjTupzRdLAhsbSHOqTInvH3OEDjlCfFIXh
T2Xjz1CfFM3OWy/+Ukh9UjzpudnScZn6pHiH+qOj/qI+KSafdPv46wPqk0Jv
pMWt3jrqk6IxoEsys4n6pFjr66N7uYP6pPimKTra5TP1ydDKf+m5U0P+9Xod
GXSMFalqBnLWK4Nvc7XnUgv51/v5MoRoR8xstpezzzcy1DdENIaL5V89yGA7
YMndp0OY1/d3Wd/rYh3GMS9Ehj1RypJn/syLlCHhoaIgKph5S2TY0PDw89tp
zFslA9+sNvPHOczbKINVTdcC3VjmZckQvK49IzeBeQdlGB+yvtV9DfPyZLg3
ffO6W+nMK5XBL/H+1AU7mFcpQ8C0b2bq5jDvoQzfJW7Zfuow8+plyNe80jHp
DPP6dnzZUZaoUsQ8FTmkT5bYnyin/eTYqHe7MbSK9pOje9ndG/oPaT853h1K
ulz+nPaT4/ble1VJLbSfHH6prxo93tN+cpS6luh19dJ+ctz9KdGjSEvB9pPj
t0pZ9GpjBdtPjoAyjV2jrBVsPzlGb7IvNREo2H5y1F07VfdcpmD7ybE6+kVn
ngfzDvZ1lbd/TPNhXl5ff6p544yxzCvt6zuSVTZ0CvMq5RgbW5RkOpt5fb/n
2hk3rf6Zz7x6OfoNtfn5QTzzOuSob1dvLUpmnooC1afqzA6sZ56OAuFl+qZb
tjHPQoHYzE91P+5jHl+BgiNaCQsPMU+pgPzQqfuzTjMPCmxzi/g0uZB5AQqU
qOY8HlfOvBAF/K7WrQyoov0UeO1y8v7oh7SfAhp/b6kf84L2U8Ddz+xIYCvt
p8DF3ruWkz7Qfgq4jps9NKyfku2nwI3I0C/ztJVsPwU43znRiaZKtp8Cdn86
LN3AU7L9FFg/dYRdtkjJ9lPg6Iofos4qmVevwFJxjO9NT+Z1KPCN9OW5137M
U1HCu2N3oUYw83SUyNw0/ntBKPMslFhx7l706Ejm8ZWILG7VjYtTsvcfJZan
xbj/vJx5UCL0J0HdxZ+YF6BE+4mPmm83MS9ECfuk4qO8LOb1ufsap5UH7Wfe
EiVOhpyfkHqCeauU0DxYMvHCOeZtVCJHb3b5+zLm9TkbhmzPVVTSfko8NA98
GXefeXlKrNXZknG6jvZTYuLZKVmdTbSfEnc+n1Tz+If2UwKW+ypX99J+SmxO
kLfd0HL76nUoEVGSFGlu4sb2cwPv6h5FlI0b/geS+Mvl
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91nk8Vfkfx3FkT5bs+3Lty10xbTrvNNJiLDVkGUm2srRvtGq0aEMjjTZR
VJSSoWzVjGIqCm20mJRBpR0p9etnfr/vZ84fPO7DOc/zuu+Hx7nXfN6imVEy
UlJSGdJSUv/8pkP6fz/52J/9z3GSu+Ifm6Dw7+sKLuJebpnx8GtnyT9HLacl
ld7q/u/fr3Hevmr3Vg6//r/WxO3//uXpin/Pv81tDXkSNlKaj5jof457nJbO
wZdx0nR9G+f2qdr34fDrxoZ/jkfcQFrL7iAZ8p5wIQmh+V0ydH4HJxbc+mXT
CPKfcdUbtwc5ydL1nVyz8bP+Llm6Xxc39p7x/DNy5PVwcRmLz2yRJ+85t2Km
zI14BfJecjMnvKwIVySvl4vOcl4TpUTeay68uXXUamXy3nLRO2sXZ4+k899y
Mfub866pkP+Oe6HQnKeoSte/54bMkhcFqNH9PnBrV+1RKFUnr4879bxggclo
8vo4+ZN+mb9qktfPzZuku8Vcm7wBzudIgluFDnkfuRaj6gtheuQNcr4bQga0
DMgb5BqVsvpaDcn7xK3ceLykyJi8z1yguMZhlyl5Q9x6mYG568zJ+8KNXTLP
Zy2PvC/cpXzZ/lQr8r5yn1Y1+RTYkPcfrjypKLTZjrxvXL9cgtFIR/KkcHhS
e+osPp0vhVBh5dFCIflSuF15OkZdwsf/LpdI42Pl7NspLnQ/aVxTmNapMIY8
GXDJsr9mjyNPBhFG316OdSNPBk1vch73cNQzAtOA2AJ38kagZJdD2lIP8mRh
cSRn2g9TyZNF8N6GLNcZ5MnC9/WdZXxv8uSgdajxsbMfeXLoHn2xedqP5Mlj
vfcRr4TZ5Mnj2Iu5M3KCyZPHU8e/rv8VSp4C0rVe1fPDyVPAlwU+3M5I8hTR
3VjjNBhDniLUrj1NWxpHniIMH4XMG1pInhJOp1Xk7llKnhL2pGyYPmYlecrw
TLEM6k0kTxm5GaOvF68jTxnFnwqyNySTNxIVkeIrczaTNxIHuwc9vFLJU4G1
tthw6i7yVFCtpoSZGeSpQHzg4NnYveSNwlX+t/kZ2eSNgofCd1F1h8hTReLY
iblKeeSpIuuKjH5IAXmqkMmP/rOykDw18Lq5Itsz5KkhtjKw5lgpeerYlrLo
M/8C/X+po6rPdU59NfnqCNMN6Ez4na5XR9KC+dss6uh+6sjv/erx93XyNDAw
7oBe+S3yNKB4oGIo8w55GpiuVf8iuY08Dfj/bN2xtp08DUQWCx5sfkbeaKgE
C5oP9pA3Gp2hMb///oq80VhToVrQ95680Zh50i/JZZC80fhc5Tc25St5mgjq
tmp/IiNg+2jiy6EHETMUBczTREbnkqu1owTM08TPMc++TtMUME8TqelGiu16
AuZpIeug1F8bTMjTws6S+esEluRpwa+P195rR54W7h7+OHReQJ4WnHRymtNd
yNPGY6mGoFXjydOGdqh1Wtwk8rRhuc8rPsGTPG105tx+ufYH8rThM8JTcf8s
8nSg/M22+koQeTrQz34v/TWMPB3kl2vecY8mTwdnxB8cs+LJ08HI/tfyH5eS
pws7pZ9+ikokTxfGZVtsOjaQp4uc9HPzYreQpwvdgwaK0rvI00XJ7Hca+b+Q
p4fND+YmBewnTw9Xn28fr51Lnh4+qKX6dBwnTw+qv8WfrSwmTw/9Qi4wt4w8
fezulZ60t5o8fbgsKo7MqiVPH7JrXGuOXSdPHw68lO8vN5OnD+9niX09reQZ
YKD8fZ3JE/IM0Cb8oyy8mzwDBO75rbLkNXkGuPl09y3VAfIMoKKg9nr1V/IM
Mbu3X2G1jJB5hqg9HKs7Tl7IPEOsNR2XJ6MsZJ4hStJd8ptHCZlniMoae+Pj
GkLmGeFP6075n7XJM8IWFbuwKH3yjHBjTY2FtzF5RhgXNM/bzZw8IzyLv9su
tiLPGJ0JzU18O/KMIa2qai5yIs8YbnJoGCsizxgxxvq3prqQZ4xit6nWc8aS
ZwLLlYk3E93IM8GUkQFXDkwizwTLklNkr3iQZ4IFJ07seD+NPBOUF0QE2HiT
Zwqe3I/h82aSZwqdSu2TRwPIM8UHZ3f7l8HkmWLJgsUdY8LIM0XvA+cbOyPI
M0P+cfPOrhh2vr4ZVDLrbD3jhex5Y4Y32iV7Ty9m13uZoTAs3sZgBd3PDH5x
yQ92JjJvoxka5FYVya2n+5uhq605K2UT80rNMHeNVrbSVuoxw8sll4ozdzCv
ywzm3/vdsUqnPnOs2DRFviaT+swxukV/UnA29ZnjwsfJyV8PUZ85Nj0dX1uQ
R33mKClfOSLgOPWZI7Q1ZuLIU9RnDuuBjYvrzlKfOVo0xVlby6jPHM8ynxd5
V1KfOUw9tYoNL1GfBVQSjLNf11KfBeL+XLig/k/qs0DqscWGBY3UZ4GTT1KL
trdQnwU8PpvqrLhPfRbw0d03O+oR9VkgQn1mfEgH9VmgJ+mc7+wu6rOAbame
dNBL6rNAYNezxLlvqY+HvUZLzyf0Ux8Pje5m5Rs/0/8PD0edpy/N/kZ9PIyv
m95zXlbE+niQvblG65GSiPXxEMF3/SCnJmJ9PIT91bzRRUv0f6+UhzGD+RWx
+iLWx8PrC4r7802Y18VD1S8+Jl085klZYo3rLXdHO+bpW0Ij8+GI1XzmSSxx
7FV96DUJ87ws8eJhl5fZWOqzhHfg9sa1E6nPEup1Ix61T6Y+S8weOrp8yjTq
s4T99KpfSr2pzxLzUrNdrH+kPktsN94dcDiI+qxwRrrnvWEY9VnBpKlfPieS
+qygfkMuzSaW+qww6++orWWLqM8Kt65H9E5dQX1WUH7uVdmRRH1W2Ldq4asN
G6nPCos2am/ibaE+K0zt2b28YQf1WaFupc3vSRnUZ42ydodI/j7qs4ZRXU9Q
90Hqs8b0m4WH8/Oozxp3D1zkLzhBfdZIbl8sLy6mPmvoB6laSP1GfdYY//zZ
utsV1GcNtbSJOqcuUZ81XiyP6069Sn3WeDVw/lX8DeqzQXLhEiv/Zuqzwf2o
ru3u96nPBpxnpIHLY+qzwdbqsU2Oz6jPBq7by07YPac+G1xssT7i8Ib6bJBv
/PicuJ/6bJAyx/bxxCHqs4HWl0BDX2kx67OB3v1LC6IVxKzPFmP8iq8kjxKz
Pls0zlppm6cpZn22yAmIzajXF7M+W+yMfjz0zpR50bbgOfIiza2Zt9EWgvdp
df6OzMu2hf2p1aZpYuaV2uLEF3Fc4xjmNdiiaLx2gTpHfbboXbuyIdCD+uyg
nFX8IH8G9dmhzFKn8aMf9dmhOlP+iHcg9dlB0/qBT+Ec6rPD1fcvW5WjqM8O
t/v2fbc4jvrsMEpl/PwHS6jPDvUjJDHTVlOfHTJ/bRfWrKc+Ozxdd+h3l83U
Z4+tEU3apTuozx4eQ612Lnuozx7f/Uf/c9Wv1GcPofjjJs8c6rOH0qK7l+/n
U589Oo4anI0/RX328Hrk9IN8KfXZY4nHqsxjFdRnD13J3E2el6nPHsctZ2m+
qaM+B+hdr5p8oJH6HHBHUUHd6w71OWCD1NHl0g+pzwE1at8SqjqozwFPW3cM
JvZQnwPSp1Spu72hPgd4p0uVyg5QnwNkuaaHTV+ozwELRUe25o6QsD4HbDvS
fW6lsoT1OaKVZxrsqyFhfY6oLLucyNeTsD5H7D3vqaphKmF9jvjWL9QatGJe
tCMenvq89Zkj8zY6InyHZfRtCfOyHaF9QVBUP455pcP+ncOzLk9iXoMjHGUG
QmqmUp8jBJ2Vly/6UJ8TnPOXr78SQH1OkP9clHEzlPqcsMLq5cCjSOpzwt9D
NYVv4qjPCe1dJSfll1GfEzb1+L81T6I+J3w6PG7NpGTqc0Kz5/spUduozwk+
teq+u9Kozwnn9jn8UpFFfXzM72tTeXGI+vgYU/ZbhUk+9fERHBWQNfsU9fGx
xT0kJ7OU+vgY5MKb71ZS3/D5Sop2hn9QHx/lcu/yIq9RHx8ewZfGn2uiPj7w
SvftiFbq4yN3fm510F/UJ0DLBNnDpV3UJ4D/0RfpGq+pT4DwXKk9y/qpT4A4
5b5DbV+oT4ATm5aXTJZ1Zn0CbE6WXCsZ6cz6BBj5Y2cHT9OZ9QngbjphMNvA
mfUJkPj0naKWhTPrEyAr8aL6HjvmSQnxfc5PKloidr6KEA5vtg1mj2H+8Pdo
pR7pFh7Y9dZC3Hq1dW+JpzP7fiNEwYzH3GQf5kGIjy51ja0BzPMSYnaD4oSl
c5gXJMRqw4StatHMix7+nmJac+psAvOWCRFee+WE/wp6v0Ic6/Zb/Z+1zNsp
BC/MWa8ohd6/EOM+uG0O2cm8AiEGIt2r1TKZVyrE2YW6lfUHmHdZiLyrmWt+
Pkr7CLHIMPOrexHz2oTINX03Qb6U9hLCKjnVtbGSeR+EKH4zoXvfH7SfCCbG
r2ZEX6f9RLh3cV34mBbaTwTltDuWqg9oPxHkvNv2dHfQfiKE1q44ceU57SeC
46W98/Lf0X4iuBjaXEz9RPuJ8K1K/8ISaRe2nwjvMsJ+CFVyYfuJELy/N8lL
w4XtJ8LyJ+VunL4L20+EuevL97iYu7D9RNA7/PdKgR3zCkTwT0K3o4h5pSIs
Drv6xGks8y6L4HZq+VzxJOY1iHC3xTdi3DTmtQ37QXO6PPyY1yVCy4OjXT8G
Me+DCDkK9uEx4cyTEmNxwdDMdQuYpyLGpUyriqwlzBv+3N1QX55emsi84c/Z
EzMu37udzDyJGDen+G/7mMo8iJH/cXueyR7meYmRVL7aYtp+5gWJ8Vv/d3Kr
8mg/MSa6d3qeKKT9xHgz+UD3o3O0nxiva9Z2aFXRfmKMSisU+9bSfmLonZva
uvsG7SeGxcR1t5pu037DnwPRi7V1HtF+Ymxe63V8TiftJ0Z5r9umwl7aTwwZ
92VHP/XRfmJEWBoren2l/cTwD1p4OlfOle0nwdvaA+mfR7my/ST4GvmoOEDH
le0ngVLIArlyE1e2nwTxT9dl6Nm4suePBD/4z/ZdL2AeJMh1cOG6v2OelwQW
Q4Ehs8C8IAm4VfJ5f0xlXrQE8kt+VnfxY97wc179vu6xwiDmbZQgsGxUMG8e
83ZKYOZSIsiJZV62BFUHfS1MljGvQIIInwmCI2uYN/yc/tZQN8sqhXmXJegt
+X7X6Z3Ma5DgQrlK25i9zGuToO3MKuf6Q8wbfu7G7npyMLCAeR8kuBN8TO1V
Me3njMSJFttTzrviv8n8xOY=
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.7682262832734833`*^9, 3.7682263838891497`*^9, 
  3.768226495753591*^9},ExpressionUUID->"9225d6c4-2851-4455-966f-\
88283e92aac9"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxd1nlYjfn/x/Gakjat2rdzOp2W03YWYsTcLyRLkaK0IUpZp8jOUPYMTSVE
RCGSUKFVG5KlZItSloki2yBE1Lf5zef9z+/+p+u+zn0/7ud5Vec6/NmRPnN+
kZOTS5SXk/v35/8/9u/798ji5vKzXTXH+XH/nRdxF0UTvFePDecGyf49LnE2
lwOznp2LYq9f44ZPa9e0GbOc+0+p5wYPNvAafW8Nu/4u9/NjuNeXszFcRPi/
RwN3ctim6jfLN7L7GznPwwFbn7pu4Wpv/ns0c4+8hONyercx7yn3RcFCwbnq
T3b9M+5A+ZaekRvjmd/KxUx3nz8rPYHd/5wz8986YqxcEnteG3dg0S7hyBm7
mPeSk092U/ytJJl5r7iEVN9OB4M9zHvN8ZWaPH8u3su8N9x9l5SjaTdSmPeO
277b7b6c1X7m/cN5Bh/o0V2Tyq7/hzN7MiOupv4A8z9wTcOsRJrCNHb/R+72
Eq3nD1ccYs/7xDVq5W7+M+ww8zq5g71vj0xXT2deJ/fQY9ONoPx05n3mzB7a
26wPyGDeF27Uiu0alT0ZzPvKHSgx6W9y5Ajzujh5u35XtrgfZV4X11XWYN/z
8ijzvnHJLUO81mw/xrzv3JXkmOguUSbzurlVqzmNqOuZzPvBGYpPVTfPPc68
H9ztG0rLf1U6wbyfnPuc5zaxGSeY18Mpac0zPjMii3m9XGBKZFnZgyzmyWFQ
yKGC7KiT7Ho5tF2Kal6snM18OUxYxnMZcCib+7/bZfLQHZMkt3rQKfY8eXx5
IDh5ruYU837BhpuRd4uCcpj3C9oeyXtteZvDvF+gsvkHz2DdadajgIb7Z9fN
G3CGeQo43WFbtzr1DPMU4fHkjo/VwLPMU4Tasm1zXgacZZ4ivq3I3ad86Czz
+mF9cK/cptazzOuHjVHylwNscpmnBFFJDT9ufi7zlDA3Ymukdk4u85SwVcXB
8OO7XOb1h53Wt1SROI95/dF8xjChOCqPecpI2+uYln42j3nKSCp5uvHJ+zzm
KSM2dqHOUqd85qkgdZ/QaebCfOapoPeGfN3hrHzmqaJc3qx7aFs+81QRVDe8
3sbyHPNUEVnqs2rR9HPMU0Ng2k+paso55qnBlK86oef2Oeap43XLR+MJaueZ
p44BViHa70afZ546wvOOH+9Yc555A9C72zMc+eeZNwAnZ65vff/qPPM0YPgs
reqbxQXmaeB1WlH+DN8LzNPAVUutaIvtF5inCVu/lJrhZReYpwlV9Q1bCz5c
YJ4WrFtKdyZYFbC/Ly2sXbn+Uo1fAfO1ULKl3njWtgJ2vxZ+H6H9V2BRAXue
Fo6WxlldeFXAPG18nPS1falRIfO0MS3D9N3ecYXM00bigKlTeCsKmaeNeZ0C
V81jhczTxs3A+7fm3Clkng4unVMfJewlTwc3esNqJtkXMU8HXuIBh1r9ipin
g4/dEf1fxBYxTweDlU+PnXqqiHm6cNyYdFLaUMT20cXfoo51sb3k6cKyeqrB
KNti5ukiUevVtWWTi5mnizDj1vdmK4uZNxDDTXxfuB4qZt5ACC80Kd++Usy8
gVA4Nank8WvyBiK1a8PMcO0S5g1EjW93wDyXEubp4bX5Sa1XgSXM00Nr/JmO
tnUlzNODtrfJ5LCMEubpYdiMs1mzr5Cnh3TT7JDWdvL04VsS97hdpZR5+ggt
a9ix2L6UefqYkP/5XqxnKfP08fOXjxbGi0qZp4+QB14NrjtLmWcAb5UnM1+e
Is8AbuoJAv5N8gyw/+aEre0d5BmgZOnV98NVLjLPAN8GzKuwtLnIPENwH4yC
9rtdZJ4hWrrteMdmXWSeIY6vdfrdbd1F5hmiurY1fdV+8gzRG6+l736BPCN0
LJ0vyL5NnhGC0tfyTr4hzwjNK/+a5da/jHlGcO9IHLqGX8Y8I1iZKn72ci1j
njFMlrW2Xppaxjxj7P201+vhojLmGeP9tb/Xx28hzxgpsrqi9jTyjPFpZRr3
4gJ5Jriqf3nytjryTNDZU2d35wV5Jhj5crbi5R/kmaAjw8Fgpm4580xgMvfh
7qN25cwzRZOxSu5urpx5plgcNXmPzLeceaYo/2oTtX5+OfNMkfC5Y87q9eSZ
4u8Bt1OFyeSZQSf3lXTDCfLMcMXNcHxiKXlmkJfT/jalnjwziKL9Am+0kmeG
qPwhsV1fyDNHcGIE906xgnnm8GyLEQ/XqGCeOaJOcPvCDSqYZ973/zjr5yJe
BfPM0Vuq/MTHroJ5FkgMqSjTk5JngZaiVSYFw8izQIrLX0uGjCbPAtVzr3B7
PcizwKUkz58NU8jjoWFWleBrELveiId592SirtAK9nnDw7XxFluaFrD7PXlI
KlyenRZNz+PhtEqG+pg1zIvh4czuWOO6DfR8HoyrotyGbWdePg8VpeO64hKp
hwezKaEZF1OY18ZDUevBnPuHqI+PSxHBG+9kUh8fKrt2/Hkuh/r4KFfOclh7
jvr4GHWk9IZdCfXxEVo75+bFSurjo/Z1Y8LQGurjo/7ey1X766iPjz985dpb
71EfH2lVzi56j6iPD+9k+8tOz6jPEkpq3m/E7dRnifrmLGXTt9RniYZX7xf/
85H6LKH7NWH96S7qs8TA3/O2+vVQnyV0+IOfvFSoZH2WGK5T1DhHpZL1WeLw
iPRrtRqVrM8SuWEGcvyBlazPEvlNmrUzjSpZnwCTvSeu327OPCMBco+GhaUL
KtnfjwBRmRU1R22Z5ylAVduxr8mOzAsXYOgaF9clUubFCJBdtax5+BDqE6BY
6Cn47Mq8fAHc7m73SwX1CXBg5fsS5zHUJ8DXTpuUvPHUZ4X9/RucrCZRnxVC
upKqNvlQnxUih31KvudHfVbIVt7ephtEfVZY0/3my6iZ1GeFe3sLFGeHUp8V
1B7ET1wcQX1W8D5upbF4AfX1eWGuG2ZFUp8Vvo/Pej4qmvqEcGgKitRbQX1C
SEcGBTWupj4htp+qfRq/jvqEiEv97uKygfqEuGM9KfnWZuoTwocLdgqKoz4h
rJ+3/tq4g/qEuOd1p2N8AvUJEWPqvjRnF/UJ0TQjSVlxL/VZY1ThyMaJ+6nP
GvEzjQz+PEh91jjMM/1Ycpj6rHHXZ+e+p0eozxpW1Z9cv2VSnzXUjpv2VzpJ
fdYQBpjb9s+hPmtsGhd048cZ6rNGZe4m0/Y86rNGe8hB9+rz1GcDpYgf0fsL
qc8GB6u96kJLqM8G3/UPrbMsoz4bDDOflNNQQX02WDTbYkPMJeqzwb5cFyte
NfXZoOCwSfH5GuqzwQv50nkjb1CfDaK8f/e/VEt9fefGnSdd66nPFqN81m4+
eYf6bLEr+5ia1n3qs0XB05iQhQ+ozxZLPidlljdSny3GRj3oVWmmPlus/rNq
p8dj6rPF7umjF296Sn22ePztyvVzf1OfLbZuG1zc/Jz6bNHk1zPjRxv12SHk
ieZD3VfUZwfe9cejBa+pzw7CF+EVorfUZwdjPccFovfUZ4dFv42cZfmB+uzw
yBrlOp+ozw4LvHzTuzupzw72V4cLWr5Qnx3ivriFFHRRnx0Oh06O3v6d+kSw
jnyw3O8H9YmQpdqxyaSH+vrOIyQFjb3UJ0LzoQ/WifJVrE+Eej+1tyMVqlif
CC1Tf/LfKFaxPhFWmrS1/KVUxfpE0InePNRRuYr1iZDyccT4yyrMaxOhOEbf
xleNeXL2qKkreflEnXlG9siqjT0apsE8mT1KTOdEtWoyz9MecUvUZwdrU589
FOSux9/SoT57nKg9oDZiIPXZw0hX+vaoHvXZQyeubWx/A+qzx43zV53DDKnP
Hv0H7S4sMaI+B5zqrPw8wIT6HGC0Ztn3QFPqc0DowJ2NGWbU5wBO5eCxF+bU
5wDjGx+iBDzqc4ClaeLEYD71OcBX6joxwZL6HCDXsCC2XEB9DsCaoO5XVtTn
gH/85G5qWlOfY9/vV1NRYkN9jviQ+TN/oi31OaLpitybOXbU54inq7VKV4mo
zxHjg9plcfbU54juZoXQZAfqc4TZxCz/VEfqc4RJ1VNBmhP1OUJRdfXdA87U
54jaZPXle8XU54S/AruM4iXU54TxZeG1MVLqc0LEQo+0SBn1OUHTZc7+wEHU
59T3ffO3WyMHU58TvluIJwhdqM8JDsYzDPsNoT4n3IkpdX82hPqcwA3S+Lto
KPU5wVS77Uv8r9TnjEn5xxNDhlGfM7jB28qcXKnPGaFv4uO+uVKfM/wt9/RU
DKc+Z3y/7mG3eQT1OWPhEKme+2/U5wzr6sO1Chz1OQMJl6eXcdTnjETd9Ppl
oD5n8Jq0JKKR1CdGu3l13KOR7Hp1MVIiPV7EjaJeMRQ8FScNHs3utxbDr8qx
rqXv/L/vN2L8ofIkcqMb8yDGWEPVEdZj6P2IMXnYWq56DPMCxEjIeBwT6k7v
T4yh3RdUe9yZFy3Ggk8RbbvH0vsVY+51iZn9OObtECPxobTw4jh6/2Lo68+t
mDieeZliLDuU89uj8czLFyNjSLlr+ATmVYjhWzO04t0E2keMlid77i31YF6j
GMaOfd/fPWgvMaK/+det8mTeJzGOHja73OVJ+0mQohQ3f9lE2k+CeWobrr2f
SPtJEP3zzsuISbSfBAtURPUtk2g/CcpPGG319qL9JLDTMNK75EX7STAkYVOs
dDLtJ8EunbS7hybTfhL0W7RTR82b9pNA93bImKXetJ8Etk4Doh95034STNv1
ewZ8aD8J0hPGNR3xof0kOLDbnd9vCu0ngZvXjz/CptB+EpQotH2pnEL7SWDx
dm6S2VTaTwKvpLt+K6bSfhJcNJ8x4dZU2k+CNYWiaKEv7SeFwv0xD1b50n5S
5O3IXHvTl/aT4tIbp3lmfrSfFIJxpzIW+tF+fa9veeBU7Ef7SXE/2ldXaRrt
J8UK1QLfydNoPykKKld1p0yj/fqe19Bf9ek02k+K+t2FW4T+tJ8UnzPql8/z
p/2kiMCGJ9n+tJ8Us5LfXnnjT/tJ8ewtz9khgPaTgqdsxJsfQPtJoTOx8mBm
AO0nRY5+56lnAbSfFIvfr/YxCaT9pEi/rbFrSiDtJ0XiHP/o7YG0nwwK3D9f
ywNpPxkWG80UdgbSfjIc1DWXswmi/WS4+mrPDv8g+vyRwdfZ6ta2INpPhj+2
at8sCKL9ZGhtTt36Ioj2kyE85UM/nWDaT4ZZD6QeI4KZFy3D5MOLgyKCaT8Z
dhjkDUsIpv1k2JbX8aYgmPaTIXa+4vLH5GXKMONdU6PCdPo8k+HC3eGmttNp
PxkCr76Gx3TaT4blpQc8Fk2n/WRoMOni4qfTfjLs+bCPf5q8TzLcMdbpvEme
3CDwlzwv7ug7/x+xX5Vh
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nk8VXn8x/FLJaTs2eNy7dtd0ILOu0a7SgulmrRqFY1KO9qkbVCyZt93
SWWUipR+ZJhKZTRNKaGiRDQqv+Y3n+8/v/OPx33cc57ndd4PjwN/je/C9dI8
Hi9cisf79+f/P2Jj/j2yuXi7VwF2Mx24/z6XcRv5uY6KM6dzdpJ/jyquqvPM
y5ZSN/r+HnfdYvaCvTM8uP+UBs7jlM/C+0+W0/kPONPby7JfXFrFbfD+92ji
9HMELwUH1tL1TzmnJW8UTad5c/fr/j1auISNFT1/KWwi72/O3l5j/k8Pt9D5
LzjjSRO7ZsdtI7+V+9bjPf9zkR9d/4preFISq6j2C92vjcuZdOTOu13+5LVz
WTse/BT6dAd5HZxrkmfI3467yHvL3fK+L9d1IYC8d9yf841n5g/tJq+LO330
SZXW6r3kfeA+D9MfZlu5j87/wGnYiMLbDQ+Q/5GLv3Hs+5TDB+n6Hu65qvoL
h9ZAut8nLujn6ZtXJweR18s1Wsy5/sEtmLxeTm9piPMM3iHy+rhdo/iVawoP
kfeZi/c5azxl5WHy+rmDh2qn/a1whLwBTuqcy/DJ5UfIG+AcrATTl246St4X
LizOvddK4xh5/3CxsumDZbePkTfI8WWaXb9tDyHvK9eV19jSO+44eV+5Rw7R
aQm1x8n7xok0DyUPBISS9507EenyiCc4Qd4QZ/9g9PTS30+Qx4PrivjvqvtO
0vk8BOh7jNExOUU+D3rPV4bWNJzi/u9yiRSMVQuOa+87TfeTQvMkgYWi8Rny
pJEYnxiWVn+GPGk0/qL06knAr+RJI3/KHTN3pTDqGYanSsVHT64LI28YYl0j
085cDSNvOC4MvU/9WSGcvOFotn+f1u8VTt5wPJlzpHZ5STh5I7Dow5bJoTIR
5I2A3hNL00DPCPJk0GhkeNEpL4I8GUwNODHm1vcI8mTgXXlk26gFZ8kbifhy
nZE6qWfJG4lFo+YodfeeJU8WUuYjqo9NP0eeLEI6Jqx9EXWOPFkMVDRZfm8/
R54cVHMerWmZGEmeHM49Gz9/34lI8uSxW1XRsbk5kjx5VJ8L8h+wOE+ePP75
VDPz0d7z5I3Cnr3cGL//OU/eKFye5aldoxVFngI0hXl3WjZGkaeAy+KPvvlX
oshTQGOtzK6JMtHkjca85z2OQYujyRuN6etfmQanRJM3BhW1dqmOH6LJGwMZ
pU3ahc4x5I1Bcpj4W/OJGPIUsSzat6LicQx5ighOtXzoKYglTwl2qxKv5PrF
0u/Xj8+bha9LrsWSr4S2Kr+W7bJxdL0SdiiMM3i9KI7up4TZOw0cRifGkaeM
hF2hmR0dceQpQ3VaBG+vXTx5yngtG9tw/WA8ecr4/Ngo51JNPHnKqPV/aLhS
5QJ5KjhU5/ugbPkF8lTwalbTkrtpF8hTQdufUvOPvb9Angr8H0gv/2yfQJ4K
5I5+NdA4mECeKrpL+bPaqxNoH1U0PSo6uGl0InmqcBjxwTd2cSJ5qijoNKvf
G5dInirKl6TNlX+ZSJ4a5jz/Y6FALYk8NZg4S2q0xyeRp4ZRO4+vb/dMIk8N
r4qeyZ/en0SeGr4EFMfIJiaRp470bz29y24xTx2BK4Z4R1qZpw71ioTUwyOS
yVPHYT+p256myeSpo7/j2myZWcnkjYVFeQ0/dHMyeWMxfvs+u5cnk8kbi40b
QnyV85k3Fu2h/TfH1jNvLELkrDR7upingSipx+tTFVPI04C50pc4C2EKeRpI
f/EsP8QthTwNtBRqhv3ml0KeBi6VBk2oCkshTxMJUdYJyUXM00TmLf8y9wbm
aSKi/O/Dz7uZp4nf/ccPTFZMJU8TwcFbVXbYpJKnhT0rU34/ODeVPC3ExRjb
eG1NJU8LstKbrNVPppKnhaFaqfqkbOZp4XBhqrJ0DfO0cUNKb3BCG/O04Xlv
4Zlpw9PI08byeqcGU8M08rThnPHiznMujTxt+F5buMfn5zTydNC5JKu7YW8a
eTpYlvBNLB/NPB2YRG6dq1XKPB3o8uVnf29kng4Khr+0K+tini7ePuvRnj0q
nTxd1BtZyBebppOni9GCVcpdP6WTp4tZUoshtSqdPF14X8zM7NyXTp4eRgxr
WZoTxTw9DEW6eqOEeXp42GHZmlfPPD3keAW2dncwTw9q03T2y43IIG8cNF8k
VH7RzyBvHNKO+N2/OSmDvHF4m1BWstI9g7xxuPdozekHvhnkjcNdQyV//RPM
00dur+7BqWnM04eZR3SNUwXz9NGlNcVnzBPm6UNe4VDIlY/M08d6822SCaMy
yTOAybNrp8MEmf+dr2WAjS53Sm46Z9L7xgD7dwdW1Xhk/ne9qwF4f+/6M8s3
k+5ngPJjDdqrj5MXZIDm/VOTPyaRF2OAbc7Kvy4rI6/EALt0FUbEN5JXZ4C0
a6GCyx3ktRlA5fQ6xWypLOrjo2de/5sdWlnUx0doqlajliiL+vhYkqLbFTUz
i/r4GAq4u6bbK4v6+AgfvXiRQQB5QXykX93yyuIMeTF8bOo1clRMJ6+ED3+j
wf33y8mr46Nu2aPf1/9BXhsfag5fPJ+0sz5DVF1SmGo8xPoMocBXKXRVz6Y+
Q9QOrauZZ5lNfYZQlb9Sajklm/oMMV84OrHVI5v6DFGTcS1v19Zs6jNEz+CG
ka+DySsxxIoJXx/bRJFXZwh72YIZi/PIazNEcdfnQPdb5PGMYH04IkfcRJ6W
Edqv7Pv4tjObfn+M8NKi82DwEOszgkHQ/AOfVHOozwiGdxZrTDXLoT4jNLU+
DvBxyqE+I4Qrddzb6Zbzn1dihOvuNROWr8uhPiOs027t1ttNXpsRFl5t1K44
SR5PACcd99eOieRpCbBh0+J9URfJkwhgfLlZtrGaPFcBXl9X+639CesTYFje
vPK/3rK+H587P04o+c76BIgbOOTlrZxLfQIMLUhcPmCUS30C1LgPem5yyKU+
AZwnrwopm5lLfcZ4Oy5HqWNZLvUZ4+q7asOBreRJjNF6prCz7SB5rsY4+cU3
sjSMPG9jKC/QcVuXQl6QMSrG/j7jUwl5McaYtLIoe0016zNG76jOlItNrM8Y
ybq5q1rfsD5jGPUJlPoGWJ8J3MtD/3ojl0d9Jgi9Iv+lXDuP+kywtqLp1HbL
POozwaJUzbuyTnnUZ4LZJX0Pg13zqM8EfeNPtbasIC/GBN+ke/S1fcgrMcEO
KcmViQfIqzPBqsfzmxxPk9dmgpmHnXIMLpDHM8UCuede7XmszxSXTMYIzl5j
faZwUQgz4texPlOY8rVORvzJ+kwRWzc75E0n6zPFxhkXXQz+YX2mKN9xt9tJ
Lp/6TNF76+0lZ8186jPFl9Gbbhqa5lOfKeZG+U1+Z59PfWbgPmotj3XJpz4z
6PPWTLVeRJ7EDM8GzQ3SV5Pnaoa7exwMpP3I8zZD5n6bbS4HyQsyw9yTsfZb
T5EXY4Y791uT98SyPjOUChf9tTWL9Zlh6IzS2OmXWZ8ZDrzg7xhxm/WZo3PH
ZqPcRtZnjmzjnHnjn7M+cyxP3m+Q8471mWNpwdKqYf+wPnO07P51tcvIAuoz
R+7rOcZb1QqozxzTO8Mn7OMXUN+P7zudq7fbFFCfOQS6w/vmOxZQnzmy3vt+
VJ9JHs8COjtbW6sWk6dlgbIX5/s8V5MnsUDUp6j5T3zIc7XAy4B72txe8rwt
0H3vZeCZY6zPAhJP38w7EazPAtGS+rI3CazPAgXnRM8/5rA+C3zancC9vsz6
LH68n99JV1ayPkvcHXvb7Xg967PEkcEktwnNrM8Svd/rzf94zfoscW/clmEe
H1mfJaa0rxl++yvrs0Sb2Y5FurKF1GeJzhQrDS/VQuqzxLLqjp2nxhVSnyV0
Nj6JTDMvpD5LbDzZG59pV0h9VmjWliuO5MjTssKoS4X922aTJ7HCdj+38xJ3
8lyt8OIi/2KrF3neVrjRb+oXuJm8ICtYZtv3yexkfVYI6+tcvzeQ9VmhMru0
7Wko67PCy9GNccbnWJ8VHKunZf+cwPqsoVLcIT6UxfqsodXkteLsRdZnjWoX
zVnh11ifNZyHu+nuv8P6rCHFU/6yqIH1WYM3IJLWamZ91rDw91hW28r6rFF6
qctoy3vWZw2/kvHBA59ZnzWqQvX+ZyKviPpssCJ8A9c1vIj6bIAtc4pj5Iqo
zwaubUFCpzFF1Gfz4/2Tcf+RShH12cAvi4vx1iAvyAbbpl5N7dIhL8bmx9/H
1d98DMgrsUH01+2XXwnIq7PB0DXZ5wvNyWuzgXurechVa9Zni/BVNyvUxazP
FjZZFyI3O7A+Wzwr26NzZRLrs8U7y09eg5NZny2iHX79ZfxPrM8WvTfK1myZ
wfpscWdjNRc1h/XZ4nPMW83y+azPFlURrt+aFrE+W2QGdA92LmF9QjStrjTq
X07nKwjxi2/s4UEv1ivEpocSi4G1dL2JEHfeikzebyii/2+EuDdL/1jzFvIg
hE+9z9Kbvux5hIi4uis3wZ88TyHiyvae3hnAnk+IArkUhWn7yPMXYun+rw6j
A9nzClEYGaxdf4i8U0IoJSlVhxxjzy+EdqWfy6QT5GUIMUV9Qcbr0+SVCHHz
2syB0HDybgrR+7Vphmkk20cIvUVrU65Hk/dUiJ2nndXnxrO9hChrvZD/KJG8
T0IMKKbvXpLK9hOhasOKw39ksP1EyOorbZ6ew/YTQe7sqZOX8tl+IthLp6Xo
FLP9RLghm221/xLbT4SfTogcmq6w/USYmnqt1ryc7SeCy+2LX3ZVsP1EWHt/
fd31W2w/EZrMld2+32b7iXD/7dOwCTVsPxHi2utjt9ay/URoeNi+J7ae7SfC
01Xykyob2X4iHHDnvWl9yPYTobQo+NTQY7afCAmVtg7qf7L9RAibfb5b8Bfb
T4QF5yxv27xg+4lwONLthvgV208MmVEL3gnfsP3EyD2/1sO8k+0nRkNLtqzu
e7afGHYpwjFyH9h+YjR1dG//0MP2E2NApXbyH31sPzFU+8MCCwbYfmLwZL9O
PjrI9hNDbdvFEI/vbD8xNptMX2coVUz7iaHCt3/ePqyY9hNjmVeHdI5MMe0n
hpNK2dP1csW0nxhnr7b56CoU035iJDkn37s/hrybYrhpDO/fo0xenRjF6zR4
fDXynorhodDQVTmWvDYxSpoV73tpkfdJjNNJ6Wn9OuTxJHBbMDfwxDjyFCTw
4Rd5a/LJ05KgOG3dumQj8kwkiHjXFWxsUkzvHwn8Mm7WpJmRBwmaJ06cqm9J
nqsElW3p/eesyfOU4GjrlJ4RQvK8JZiwz8HxFzF5/hIctIz786kd20+C3Mqd
LU7j2X4SZB74bXrcRLafBL8Zuxr1ObL9JPC3+bp39mTySiRweXDCIw5sPwkm
22dWvJnK9pMgfnd3ue00tt+PnpcfPPxnsP0k6O81jb44i7xPEpj/yjv+fg7b
zw6xI5tsBPOKuf8FfKuWdQ==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nk8VYn/x/FLSCKRnWS59ou7VIQ6bxnty1hqKg0VWYoWKonGEtll30Wo
qIbqYlqHTE2bUimTUkYLaVG50bRN3/rN5/zzO//cx33cc57ndd6P+7iPa7hm
o/taaQ6HkyXF4Xx//f9HcdH3o5Yp0rKqCbluzPz3/iQzmOM45H1dxEwWfT/+
YFJ4T6qDGqfT55eZ1QsrdbnXXZj/lBvMhZD7H7eem0PndzBuGUqaVQ0LmQD/
70cnkz17nOItDze6voux907qsL/mwVxr+350M4KjxnZxs5aS9zdTUnEz7VDz
Mjq/lwmJ97aqs/ci/zFz6HLyuuRjP9P1TxiR/B43PfVVdL8+5sfieM2VbqvJ
e8ZEGJ+aHJe+hrwB5szJkL/SLvuS94IJeZ5ts0N2LXkvGc+ih0FznP3JG2Ra
bt86ORwVQN4b5mDZlcUxJwLp/DdMRpWsd58kiPy3jIFErGlqu56uH2IsC6SO
TV8XTPeTMOOsjHys9oeQ945x8l657FXPBvLeMe/FCs+htIm8YWbGlA0JYYc2
kTfCyD12KEmfvZm890wpTzIn48lm8v5hPvzUfGRLbCh5/zD1ymFPGf0w8j4w
vP5s1denwsj7yKjeWe4Z+9MW8j4xplW/Xx2WbCHvM9PuEVE8P3MreZ+Z2ij5
x7G8beR9YaTzmy4VXNpG3r9M74zyjWl+4eR9ZXZubfjszdlOHgflf/yRN650
O53PwZB35OpiuwjyObjhtDFRqiOC+b/LRVKYo63Pd9mwg+4nhXWbR+K9x0SS
Jw2ZTV5H3asjyZOG+7XaB/pMFHnSaKhwmtbaFUU9o9DMDX3juGUneaPQH3xU
kDruF/JkYKa0jldf8wt5Mug8bqRycGY0eTLoqgtTCe2OJk8WUfbyR0c7xpAn
i0cRa7WaE2PIk8MlxQXd3rdjyJOD+PPl/D6DWPLk4DNu1+MlIbHkjUZs53Hv
IydjyRuNvEs2+wdk48iTx+7pgZ5K7nHkyWNG6AYFzb1x5Mnjxs43a+Wex5E3
BkEMI3d/yi7yxuCmy+LU3Nhd5ClgS+WpPOG1XeQp4NnN1j8btOLJU0BzmHuL
jl88eWPxWvMr168+nryxmPJeoTDzYzx5ihiu9j9b7ppAniKYE8enZWUmkKeI
6+udj/vdTyBPCSumaF3TNt1NnhIeeLzlH920m7xxuOE5PcHs9G7yxqE4kxsa
LZtI3jjkliVV/LY4kTxlbD8le6q9KJE8ZTjavgu8+DiRvPEw3B+0bK91En2/
xuOXrQ6TPcOTyB8Pj9cfa561JNH149GVw/HzUkim+43Hsbm+E454JJOngo+7
/117rzSZPBXMCg0d2/c0mTwVmH7kNly3SSFPBYcfz1TJDU8hTwUH21tuT2lJ
IU8Vv05deUwsn0qeKoa9SlcouaWSp4pPUzviZxalkvftcw/9p+69qeSpwu5w
gGCGRRp5E7B4o7+BzOY02mcCdG+VB1WfSCNvAk61BFzQ56STNwGr83tfhs5O
J28CfP7kFFdkpJOnhsqo5MSDd9LJU8PNKSqbE/UyyFPDx4VfVeGbQZ4aSnen
W96szSBPDS27Lm11eJNBnjoMkSmOnLqHPHWc215YlRu1hzx1RCoHySW07iFP
HWnC+kWmMpnkqcPtjmfesGkmeRpQz6uxPzo3kzwNxLsU6iwNziRPA007oib2
Z2SSp4GhBi2u7zHW04DsqhKVKx2sp4mal2WXdUdYTxMHu7j8ZVpZ5Gmi/1S5
RbRDFnmaiHEaKM5cmUWeJs4Zzg5K+yWLPC0YY92O0Ios8rTgs21Dw8xW1tNC
fvm9L58fs54WiuIqpu+TzSZPCw5n9bxszbLJ04bKEY0ZB+dkk6cN0aKW6/Lr
ssnTxnKTpmGP1GzytOGr+rUk6QjraUPZRvHwgWuspwPzvScU6wZZTweOAXMP
71XOIU8H1Q4hm7fzc8jTgZ2z0zxHtxzydBD2yM6wf3MOebpYljTvUWR2Dnm6
6PW5GPHhOOvpwl5j3W2fDtbTRUn20p46CevpQv9XraS+Cbnk6cH5UdUZucm5
5OnBa5THemXPXPL0oPikP46zJZc8PWTKpA515eSSpwenaVdrS8SsNxFdi8oK
XTtYbyL8j3jV/zXEehNx+e2Fh26qeeRNxP0cjlaDII+8iajZmrvg3x/zyNOH
SvSGDfxNeeTp4zy/Z+O8PXnk6SN3SrHLgjrW04f/28buKddYTx+xSodtRr9k
vUnYJe1p3aKQT94kjJS/bFtlkU/eJERmqUgPzM4nbxIu9zafW+afT94keER6
Sh2NzyfPAB0HUpsGK+l8bQPsTYz5S+1cPv3eGICTf2SFUQ9dv8AAYZr9UzW/
sPczwINcP1+JTsF/XowBHi1q+qvJvoDub4C1Ry+nrl5a8J8nNsCX3/vDJWEF
1GOA3uSG3OCsgv+8vm/v823ut9WRxzHExYV1P6i1kadtCKU1T6/MHCBPZIjn
Dg8DlskVUp8hviz/pL7EuJD6DDGtZaTdHoXUZ4gMt97MUT8XUp8hVOyMPBsj
CqnPELeYbeqL8slrM4QnXt+4dpy8PkNc3ySJm9xOHscIvCtO5nEvyNM2Qufq
u2ebRhdRnxE2nTdxvmVcRH1G2LC4s/42U0R9RihPfjn6d68i6jPCmR2nZ2eE
F1GfEaSk+0Jcc8gTG+GplXfE4zry2ozwZLdfUOAV8vqMsCM8cfrtp+RxjLE8
tXLYVKqY+ozx/OqDrFV6xfT9MQZn/K+qsXbF1Pft/cL27UnuxdRnDI/+hRe2
hRRTnzGWSEd9mJ9EXpExGtqHNeSryBMbY+7D8kmHz5LXZozIwAPqU+6S12eM
eZVRn/YPkcfh4oVcd8cXxRLq42Jw/x/7nMxKqI+LxZvCA9c4l1AfF+oJ0VYb
vUqoj4urOw8OrtlaQn1cNJ360jh9D3lFXDyqu5XwtYY8MRcmvBNralrJa+Pi
TV2Mm303eX1caB6a8VP9MHkcE2TdcolQUi6lPhP8sN7grLt5KfWZoCOz0jza
uZT6TOCfcOdc9opS6jPB7585e9LDSqnPBM6BNfkb08grMoHIJaXHfj95YhO4
+pRvGjhLXpsJtAU6brGd5PWZ4KeJ/kmc1+RxTHHigql+wOgy6jNF6VI7ncZJ
ZdRnir7btfHP7cqozxSKwX+uHf1jGfWZov2Mwp9jA8uozxSGPIu699HkFZki
TyhvdrWAPLEp5h45N213PXltprCzqHxtfpG8PlNwZ5i7ix+SxzGD5M6o9SYj
bJ8ZGnap/xCttJf6zGB9J6S/hbuX+sxwb/8Cn+eOe6nPDP2hBk2f3PdSnxkC
6hNG3gXtpT4zbNeeZdUZQ57YDErjl/mUF5DXZoa5Aw/Kfqwjr88Mp+eaDA2c
J49jDmHUgYD198nTNkfClVEKd96yfea41yn/1FS+nPrMwRmplVmtX0595ghJ
GbV11+Ry6jOH3KrlMzPmlVOfOT7La0TEriqnPnMYOl4x+XkbeW3miLPhLTFM
I6/PHHmfNdSu7yOPY4GdnJSNvr+Rp20BA/uaLb1t5IkswD/wG3/OI7bPAtqN
BscK3rN9Foi71iQVKFdBfRZY3FNd/M/4Cur75mfg0E7dCuqzgOPdaLv3JhXU
ZwGn4MC5a/kV1GcBo9XK/RcdyONYYutAoeYkV/K0LTF2jP2jdYvJE1liaJ7N
osPLyVtgiZHwq2v+9iXP3xLFC0PMFDawfZaomhJdZb6d7bOExr8RDx3j2D5L
/J31uMclje2zxOCxRfXIZ/ss0V23wlNYwfZZwdpY3Kl1iO2zwtg65RnvxGyf
FUrrRNnnz7J9Vnjw9dW95ItsnxVUGrUMfrjJ9lnh987CIMk9ts8KdgbezQVP
2D4r/Hp2jYVgkO2zwojC4frm92yfFarcXVe4SO2jPh6G0ucKzijsoz4eJph0
OVmq7aM+HrhH9RPSJ+6jPh4aTyxU7TPdR3083I2sfCnikxfDw8Ujq/XCp5FX
xIO1/d3a+pnkiXnoHu1V9mA+eW08OF+c9ZWzhLw+HhbUfP1L25vts8YH87e2
5gFsnzWCu9KVeZvYPmsUGC2ONolg+6wRo9SYqBbH9llDcewswYcUts8avmcy
4jty2D5rDJ02TKkqZfus8cq/YF7QfrbPGn4H069z69g+62//Hw7qdzaxfTaw
UM1w2dnM9tlA+t0rV51LbJ8NqkMjbH69wfbZQIfbLzu1i+2zwVvJ29sNvWyf
DWa+XVZt8Zzts8GyiT1RuUNsnw16HOYHDH9k+2xQVxYQvGBUJfXZQO2TVF7R
2Erqs0Wdw4uB7gmV1GeLZ7Pfh2noVVKfLboff3acxa2kPls8Db8zL5hHnr8t
Tj9bWZs0mbwYW0iCNq8qcSKvyBYL3CXbq38gT2wLxzfnP1UtIK/NFrN8rrwt
8mT7bHH05wHf3SvZPj66jcZ4BfnR+Yp8KE1V/XtmMNvLxx3XwU+qW+h6Uz56
vyb+1hVZSf9v+IgYuKJbsIs88PGTfZVgfir7PHxYHPkiNZJN3nI+QgIv5hUU
s8/Hx7j2V8O2leSF8eHg5W3VXMs+Lx/9UXKM6zHy0vjo2NIxrfUE+/x8fOEf
505tIe8AH8UWe+T3XSRPzEfSjKWD0u3ktfCxOG/ooVcnu8+3z8MXPT78gLwu
Pi4LPGQkT9i9+JggeTZP8JI8CR+Hj4w0+0vY/QSIGFodnPOR3U+Av++PW/6b
VBXtJ8DQk56MW/JVtJ8AM280ajxVrqL9BDBO3vhhUKOK9hPATu4582ZiFe0n
QBmPI3nGJW+5ACniFN0uK/L8BRDIr2ptEZIXJoC70PNN+TTyYgTQPWlftw3k
pQkQmNQt4zqbvCIBCjrHflFYRN4BAU4rZJZf8iRPLIBJle3wTi/yWgSI1quT
s1pDXpsAU7uudrcHktf17f5jZsUEbySvT4AL2Z0fONvIkwig91Hknh5FHkeI
uPkq2Sq7yFMUYq6Mfmt6MrufEK2fZV9IZbL7CZHrvll9Qz67nxCuHjLzbpWy
+wmxIsAny6aK3U+IC1/038XVsvsJURl+f0d7PbufEEFqFjZqTex+QsQ/LNBw
O8PuJ4Rlodhpdyu7nxD7a0bVii+x+wnBURjr13Wd3U+ID1PnbHt/m91PCA/t
Kc+U7rP7CbH3n1mter3sfkKYBQ0qcvvZ/b71OxbcMH7F7idE9voadT0Ju58Q
0qrxTxQ/sPuJYO2R6DryL7ufCAU/Kjjflamm/US4pL2q57hCNe0nwsGyTvPd
46vp90cEYWmTibtGNe0ngnehy0MNvWraT4SoK6dX3DYkb7kIf6guq0oxI89f
hFkv57dMsyYvTATlVRdO9grJixHh9D8vC+LsyUsTQdD0dI3eDPKKRDgldc2o
3oW8AyKsrTzV4zCXPLEIjcda9jUvIq9FhJDMF5ume5LXJoLkvvOShuXkdX07
3/f8Uq4PeX0idOtv2JnuR55EhACjyTdfB5HHmYzAAtkV8zdWM/8D6dFpiA==

       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.7682262832734833`*^9, 3.7682263838891497`*^9, 
  3.768226495897316*^9},ExpressionUUID->"375efecc-8215-4264-b094-\
e3a173bee3c7"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwt1nlcDe/3APB8Skpa1G1fb3u37d6LUHJOaUGRUKi0aE9UUiqUCi1IESrt
lmihhfblzmhBkqK0l62IsoQi9J3f6/Wbf+b1fs0z55nnPOfMDH1fwHbP/7i4
uFIWcXH935k6UQcNuf7/EORyTdah7EMvMhLeaA93JyahnHIDY7NthKUX2Nx/
xZ+yiIYazQ63X90LhBd2TuMP/6Phul0TwhrmoZAlYPV4Dw8NV62StNnw4ihY
eIQVbOCl4d9vXjY/S0+Aef0Z/9N8NCw0PNn6KTQWCmyWLVYWoKF17p64MaPT
YNLrsUdCiIaDNmobSxbiYVXhxFb35TT8ya3IrU+egXehz9v4xGmY2XT6n0ls
EkQd3H2NV5qGJ/Za+LnlJcNv7uwGJ3kayu+OM7bkugCrNR59XqpMjT9wUc3E
+SL0cnGLLNeg4aJUM571dakwyDjx9aAODZOv2n3XkbwMKe7xHqpsGtJ5B6z/
Bl2BDVWRBqw1NOwxSLue3Z4G0/KTrEvraZh4yayHSzUDNiREKmwzp57fKfOf
2NGr8MhFnXCzpuYfdU54+CwTJN2WDT3aQcMBQ1WGsFo2NHy+oRfvSMOuQyJv
+47kwNP6hpBMdxr2i5SdOuORC/PPIvfz+tMwa2Hq2t5leXDgc1Rby2Ea9lmd
bHesyIPnWzrXDxyn4vdpa0TtyYfWrH+xG+JoaHokUYj4lw/D+/QtF6VQ662T
XSJ77RrsTVE0ELtKrVdrcctpi+vwKtDgT9gNGs419mr/e38dChpTTNmlNEwd
Xm1zNPEGLBEQK11fR8OW1BPBc4ybcG7LgQ9ZrTQMjwChwMc3AYrYKTbdNJRi
FrcO+RRAut9ryx0j1HraeUPX8t6COpHZoluTNLTwfKsRnX8LnK9932MzS0Ne
EV+Zu8a3QVzgyCcLHnF0SAtobHx5G0pS8E/ScnFc6ZpTVRRYCPxhG5U0FMVx
/EHgUBBfEUTkPJoS0hXHzSFKBoI5RbDK1HbO3EgcxcwvcEWsLIbxyo6u9k3i
+POlSuG9h8WgaJS1NHe3OMY8CXhe41gCU5xMFulNxRtcZHN6qgT21hm8YB0R
R/5Tf5QkI+/A6fGgyOnT4tjbUxrpK3gX5nm56mYvi+OdSc2nEVfvQnyWtdiW
AnG0Gu3erkorhTVnzghPV4mjQEi85/s9pdCW32Yw8FAcfx0pS+fLKYV3Kl+F
lg+IY5TTAtfJN6VgLP9J7sJHcYwNXNS8R6MMPMuz3zr9FUdG3UN6gl8ZJJsu
vA8UlkAf77iA5SVlEHBAubiDLoFx/DpS36bLIG1m491DKyVQS+TXVQazHB4E
TB1ysZTAobtSybWB5dA43hV60UECs6/oZueVlsM5bUFDoYMSeKFuLHb0czn0
i0sZdUZLYHS0v+hhvQoIiR+Y7bkkgVfT1fRc/CtA36J6il4ogQvti57m3qZ8
MSu9vFECmxbJz68Zr4D1eQJhcc8l0PHpumcayvfgYIvq4tz3EhhQvz38wN57
0BhSXT//VwIdsv+yl6bdg3OCNjIZYpIoR1+6+V/XPbi8a1V6hJYkfhz+JrNZ
4D4EDMXdo7oCBVVdl09vuA+PvxtPLNhJold5QcHk0fvgkr2y+Jq/JC5csvbC
ivsgLLY2Mi5WEgtdot58/nAfwuhifYUZkij1Kpv8pVgJSRbnVwqWU/Gzayqc
7SrhcVy80J1HktimLBKsmFgJuYLfxs6+kkRN+7SH6xorgTdyTP32L0lcuiwm
ruprJfyUuOj4n6gUqg/Xn0tWrYL6+GO/rzCk8FhY1IOH9lVgmGwV5btBCutO
P5Nxi6+CdbYznqFOUnjQePl5h5oqmA+sYDSGSOH1+gTVyg9VIPdVcTOel8Jv
W2cnDktXQ1C7psmfW1K4K19u+srGauCzoZ/7SkphiuDOHUpHqqFqfVuR4rAU
+n5XMRK+UQ1TZZtkT89K4ROHnk7P7mqgV9s4qIpK44N7y0zVFqqhoOnfxC8d
aWxf8Hi4VbsG9nO4zHg3SqMNUzDnjX0N7NNOnN7oLo3f5r2XvIuugUM5Lj5E
pDSu4rtjubO4BmI8BtkBGdKoG3uhkN1bAykl3zptK6XxNWMyMnqhBiryDUmf
bmlUbt0paapZCy9WTJ2tmJbGFJEPj0K21YLk/akKloAMesi8+SwfVguvzDvq
XmvI4DpZu3dGObXgwt2p1Womg2qVA3xdLbWQs+RT7KCbDHIXb60b+VgLegYv
tylHyeDVuRgXr+V1oPuSSyojUwYf2s3v8TWoA/7/MtxMa2Xwo0KhyAeHOrje
d6VSpk8G3yTdnRyPrIN1qZW5yj9lcLmt7DaP/DoY9jhWuIcmi4bOpbf3tdRB
vuo6lya2LObJFbm+maiDuFFJqx22smhXlzAywV8Pm1nc87RAWXRv7D0bpF0P
H8Nb/nCfl8XNFT9eRFvXA07OjyjekcW//31TlDlQD16+siyfDll0fWnTa3Su
Hox2Hood+iSLtvyjLu+L62FakuF9bJkcmi1LVqE/qYeYWxsPWurIYcaTzXET
k/Vw6UWZtrG1HNYdbvu8jr8BdI5ortjrL4e/BH05yhoNcCXeRrrgrBzCV2nH
DLMGOCNcFCxTIofD81pKN9waYNtMbl9lhxwWHNM7aBbZAB/uho8enZbD1o43
eeEZDRAy5arkKyyPC0kiEhaVDeA877kykimPk4f9VIq6GuA089j9Wlt5dMw7
plT4qQF2so6uVwiWx6Gw825mSxrBV05x/61UebSYTFlzlN4IC9l8fbsr5VFV
jueHjVEjPPlar6zfJ4+yIW/ePNjZCMymGx8Yv+XxyswVm74DjZAzI/LESk4B
Pz96HZV0uhFkw5l+KesVMG3F05qJ7EZwHpH2nHdVwJmwbHhX2QgPJlucE2IV
sE2ieVv800Y4pSjy2/CmAn7/91Sr+10jSGtUDgg/UkCT9/t4mv80QsiKXTeW
fFLAyXwdSRexJpizCl6gCyuirE/fpetaTXDijN95Z7YiDsjwl12CJii2Ofan
3k4RgwK3XV5h1wTpe1qn14UrYtOsRmCUXxMovNogPJKpiMk/Jj0jopqgK+PJ
klyOIr4W7LqqltoEzWVisTFvFVG07AM75lYTFDjsuGzKo4QtZlKbUuqbYNA4
tG+HhBIu4lr+a8ezJhD+mzJyWFMJGcH2Du1vmkA3oSzqhqESBlasjp772QTZ
RZsvvrNWQqcUb5jm4cCAu/HXlS5KaD1+grlOiAOd+DzoYhA1/hake0lyQKGy
cYrrpBLVj25/Dyhx4M4BmfXHLyvhQj3f6HYtDmRf8lnHd1sJU1w5jeJsDnxk
XCDz6pRwuCZctsqQA99wvHDTUyVMMzh/aPUGDghZSD9bGFPCVp8WuGLFgVPm
ZoLNM0r44IL1394dHJhSf2t8mZeOvW6kyqwjB8w/9hmHStPR98UKxpw7B8Yn
PD6469Dx0SbF0wP7OZCwoC3vAnS8UB1alB3MgbB+dqX3djre4c9fZn6UA+qS
IynHPel491K0zNMYDmyP/3ouN4yOMmSgmWEiB3r2no9/doaOnPqNcwkpHLB2
XO0qmENH+R3u+Q1pHLi/pHXGvpyONW+ySnpyOKA/HKxc0kLHB95Osd03OTB/
5EW7cD8d+S+ePXOvhANdzT2dkZ/o2MR3W+fYPQ5w9JqEfi/Q0fRafbtWHQeu
P2H6Rospo3uH55MGggObk5Q5NA1l7PjYn7zmIQeifd98rzBUxmcv3odnPKXi
n5b64LxVGY/bcU28ecGBrQH1keL7lDGb1DcQH+TAojUKaS9DlNE2VbtZ7xUH
+krHJG8kKCOvgO0n5gQHAlJ+jR3PouIN3eaTm+IAq6C0161MGXs/fA768o0D
Tdw5Q9talFFsNjnqzhwH3mvf6d3cr4y0g+Vx9v84YGApedtmShlF6atG33MT
oLdt3xqXRSq4TrSm35OfADD39A0XV8Fc47xHHUIEJDhsoGdrqWCZhyQXnUZA
qI6/eYexClYMCHe4SBNgOpNRx7tdBbfZbolKVCDgaFWP72Yvavx1D488FQIi
4vwN0iJUMPAm5+F1TQK+lswt+ZKkguT4jdlUXQKyPji22F5TwTVHDYwOsQlY
crPJrqFKBYvIkKF1qwlIXJWay36igrVq1io/jAg4tSz5XNmYCpo9T7S/igQ8
/3uHx/CHCmaGfa7TNyfgfBhrup1fFWe/a6SVbyJAse0q21tBFTOW9OqpbiWo
/r1fK7BCFV3nLpAntxPwricuoMZSFQMMZ1Jf2BOwqtHZMNBJFYv4EsfFHAnY
t72VhxmkikfnP/00dSEgc8mZ6rlTqvjiShXPPncCFrdWw+MMVRR4mbQlyJuA
e6yMk9fvqqJtgapQ0H4C2D+qguKaqXgeRjFuAQTECfZ9PdSvir833X5rGkxA
veTfz17Tqqgz4BggfoSA2RzPXe7casg2cXTsjyBA9tAZMR8pNUws7hhLiiTg
x0dlkRBdNUy4+tvAIIbKl63M2kRTNexW35raeYqALsX0iIJdargdnPQcEwho
81ngPPFXQ/W3b9b2n6Ws/m7uV7QavrDpntyUTAArXVpY/4oanpCzOFxykdqP
nPwv+4vVcMD5Ah/PFQIkJOsTSwk1NK026d+SQcCitS8f/+lVwyQXackzWQQk
z6dnb/ukhrlKct/qcgnoCR6ZKVqkjs+3n0sfu0bA/rXl1UKS6qjaOmP06yaV
n3a7wTAddRQokFvCW0jA/TmjzZMm6qi2R0FzSQlVP+b83/ftUseTGx3b/9wl
gLH7Yttrf3Ukyk7KTZQTcM59rMI3Rh0nXLMsWu9T9Zeqfmv2ijryev8Jzqgm
IDyq/eLZEnXMarV56l5HgNFFdy/NB+r4WyInUrmRAMv4MuH2PnU0VNha0ssh
ILLnRtThaXU8sE8x5sQDAh6rOt9U5dHA9DIDVaVWAvIfqR4elNbAqlzZ2vsP
CeBeG9ifpq+B7xbV+5q0E/A75nWrk7kGBtoe3P2gg4DbHRt1NRwpy3wvNHpG
QHtXxt/ZQA003X7sVGE3AY27f2t2ntbAi0U3BER6CPhTV55bnEnFHzvh6v+S
gGVea+yTyzXw0I8LN5v6qXzbaRpFPNRAy8CXC/xDBKzPtjTxG9HAiDPkOasR
AgZnYhxcv2vgpb0bgk6OEbBDezrMaakmjvxqeXzvNQF3Wh4kOStpYlz8qtqh
twQIh3skeRlo4oD9P+c/4wTk1tn7HbbWRNdR4T6xDwTM2FiIx+/TRKXHIxtU
PhKQ3s0dkxemiWrvvDiMKQKsN528xknSRBlx3f2Mz1T+K8b8313XxAPrTdyU
v1L9lGHXJVyniYPq2CQ6Q8CXW6bN0KWJ+23s8ua/E1C5hrE2ZEITtdvWqQz/
JKB/qlSl9K8mJvw0c62ao95HVllHvohpYa77tuDE3wT83PxS04ChheoBL0Pt
/xDgNOetHY1aeHvp5EnZfwTILQ0P7rKn7M2q6l8g4GTkzh/qB7RwKOeresoi
Eq6u8bgRHauFz+wFpky4STiWzQp7la6Fwzv/0j/xkDC9xnOfRakWhsmOD5/n
JUF5Z+vu0lYtFA0+tUaXj4RbeYbbFIe1MO2b8aZmfhJODLYYX5zRwtoTEhp2
AiTY+SRILFvKwIdP696PLiPhFVdzZ4ISA293RF/3ECLB077LedlqBtbJeQa+
ESbBslar5uIWBiYcWrbPaTkJba1uLxQ9GMjN9TipU5QEgo9xszSCgbc6MgWM
aSScLdyqapHCQGkx9tR1cRImFavMxgoYKJowbrlEkoTZbs+/kY0MbL/fpu8h
RYJe9xEz5R4GLll5qbpOmoRDUaoijz8ysPg78UNQlgQ5bLAP/U8bpY+G/HaQ
I+GPbomQhrQ2utPO9efLk+D7KExvSF8bgT/rxjsFEjYWNxRfstBGmfavgSpK
1Hhj9okde7VRWS5lixOdBHefGznih7XRjm20JVmZhJtb/i0aStRGrt790U0q
JNAWjLJv5mkjHnWc/6BKwtuVIftDqrXxiz3XE2F1EkjePteNndrU/grzsDRI
OHLjdojiuDZ+vfm3YosmCUbiFnm//2jjQAvXJ08tEqQ+KA72i+ngWIRIfTiD
BKGFJpkGhg5ucpxYkaBN7Z9xy67rJjo4P8TtnqpDAtPmbcL53Toov+X27qu6
JJR6TtyKDNBBWXJMJVuPBIMfJcVBp3WQZ2nE80x9EjpDdc75ZOlgR+qy0CtM
Ehha/qbu93TwvMOcdBKLhITuxGa3dmq+Rq+OE2yqHmJrBTxe66C3v1V2wAoq
fw4mIn6/dFDYwDPDYSUJjyzDHweL6FL/m+s7TVaRoPO8kx2toYu/FZmb1QxI
kHjVYnJhvS7qyDhLLV5Ngl/458837XSx+0S9xSvKhUkzq5r8dRFWCr2uWUPC
j5YzywZjdVFu+fjPpLVUfcJJ/98Zuri1oiDF1ZDKp2vdVvlyavyq+EY9IxLe
Z9KLNzzSRfdPSQm/KGuY1Bw/MKaLu5Uv/+OsI8EeLtdnzFLP89hK65QxCazf
w27tQnrov5otbrGeBEHRNq8FNT1Ub83t4AYSVrDTmw2M9RCTm/c2Uv44Unw4
aKcepojlPQtBKv9m+wPv7tdDpQERFsOEhAyerWVfYvRwQqE1YZDye/5R5qoM
PUwLsHqXYEpC987q98fK9JDbmmfrqg1UPp/Gdrc91EN7UvfpMGVBmfkJ8TE9
PM4/GhBrRsKw14Sy96weWkotNVY3p/K1gX68Tkgftxkeg1bKBYHJX0TV9TE5
f+SEuwXVH/e1jxww1sc185VL/1Euuz+3tH2nPu6f8R6/ZEnVBylwU9tfH30e
s+S1N5KwvyLO9HysPqb0sasbKAs0ZA38yNBHCQkfzpZNJCiYn/NxKdfHkJyS
9YOUse7aePsjfcxf3WTktZkE88B1Nkav9NHu4RrONGXPg5zMkjl9HB69/OKw
FQm/NZ97LOdjoowu9f9OecPytT4dYkwM/rX7abg11W+XB3oSFZl4PVe+eY5y
1xRv0SZtJqbxJviFbCEh5LHYO/7VTPQViHn0mbLqpr3R7abU/X+733tvpepj
xPx40lYm7udnPBumLGlp0LvdgYlNt6TjbG1IEAnKSpDyYqKWkLT4A8raAV9S
R4OYuDr5ZDR7G/V+8Cz8UXCciRdFs5/nUH4Tan07KIGJiw+cExWwJWG0am/J
uktMFOtyNT9MWVRm/wJfHhM19QSDBymX7V2S1VvMxF0XD+bjdhIaudpjb1Qz
MS9548A1ynz6O8tCmpmYecmCvngHCfrlFiqWz5hoZvPnuAflxa+tXkoPMbGO
e/wnQXkmVbR9aoKJilM+F+R3ktAgYvOHnGGizYXn9kco287X+qQvMLFBwXlz
J+V+K3GhIAEWHq1mBKvZkfDPSHlykyQLuXvMX4ZT3ri26LeKCgvLz9489oRy
Y2+k8YIeCx980vOVt6fqpzGwdNCQhSobi/P9KR+9vse2xoK6fvqlXi1lgdWS
CmnbWdgTbCfGu4u6X/QsLcyZhUeWVtlto8x/L4e9x4+FVUT4fBplYb/1oUah
1Hy9S5aOUfbYtGdYIYaFzy5Vn1bbTeVDcdyTO4mFP/KfhfpSDnYfFfyQzkJv
jBktojyia/a88wYL3VKnWj5Rvq0hda+qjIWvppT0dfaQ8DnK/U5uAwuV+KSV
/CgbjLI5iY9YKLqFyLpJ2dbxykRIDwtLJL4Xv6LstP+m8r5XLAz6HLFd1oGE
14PhATZTLMzrErq4gzL7gf4T418sTPHcHZxImQyZNNBdzEZu+DLbRLk14lmJ
/HI2Bkm7qH2n/P7EMn1heTZmiSlwaThS9bOjo3qRFhvbPlw+u5tyZof5ph8r
2Winr9oZT/m/58UjH5CNx+OWP6minGBifGTUmo1vhq7GvaPs937V8t7dbPRK
+7pY1ImEHcf7Czs82Oj2km1lTFnswkHT1kA2bssNcvSmbJkIvU3H2HhWstww
mbJVSoZHbTwb48snP1VRVk7u+ng/lY3RfjyhI5QzVQz9ynPZ6Dw90M+9l/q+
XtAduVvMxsrn6+Q0KUs281ncqWajQ9tHtKK8ykAnt6SZjaH1mVYHKOt9n58s
ecbGXtk5SKJsf25U9e4QGy9/TaffodwuYGpd9p6N3TKi359QdvqY4nLvOxvp
h97WTlL+H1Z4UGA=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtlXk0ld/3x2kQGUsypETPvdc13gHJtHcikkKiSKloUETJmAhFiKikzPPs
em6l4UNEiERpkFSGVGZSiqJ872+t3/nnrPfaz3qf137vs86jeNBzx6EFfHx8
Cfx8fP+38zbeIpDv/1fMzjWEME+nan320zLXAVG+/fFqPH1UsURf3HwzuIoG
mLjy9OPhuE8fKqyhfGAYbvH0QxULm0AzexDZvyhsJT+B9pc8drR27gGrij6h
BJ6m1TsW9d3ZD5ju3qG4gECFYuITcdYFXts5fW3iaYNdA+I008PwqkhbN2Ih
gelHq793i7hBmvDWpw6LCNTWlrba9Po40HOqkjctJpCit2HcIuUEbHb1L9gk
QODf74etfpFe8JeiN+6whMAXnbeTxVecAtOqGPcIQQKL9c43jvp6Q6Vkg0Kz
EIGFp19tinp3GgqsRBYrCRNomekQ2avvC6uH7WQTRAisPdwqNJ7mBxs7XB1W
ihH43opiXjbvD5W5T2u54gTGXuh8LHsgELSLB7a7LCPw10KFhZp1Z2Cx8sic
iiSB0hrMhEGls/DF99UTQSlenjUR/zaGB8ND9omSuZUE9khK9en0h0DIid05
ArIEntu7+diBrHOw+P2/YuoqAttVtj78Zh0KfxamP3RaTeDq3ZGGZnxh8CDE
uKNQgUBfYcW6g+VhsJ7WPLFUiefvcZWycV84PN7esyicIDA4rMW0V+Q8dPAt
lFhGI5D/mskio8rzUKIXLlxBJ1BHjdi82+0CvFc5N3lCjcD4FLspNekIqDw5
UmmkSWCyYN7sg/oISHC56EqwCFQU6LL8ezISuJajnxW0CRwvbf8wteYibLoX
rMPUJfCNzo3c9JaL0H8rYMdufQKZMmFZM35RML56mJloRGB0oskbPiIawr+V
tw5s5M3zlejmiufRsCkqeI21KS9/p9R/kmdiIGP2g3ybOYF+CvZiq6iXoNmZ
WnvAktd/z76opheXwJKIXihszZu/JOei3JlYkD4g8qHZlsAuPUJFnBIHDLUI
4/RdBGakZsTntsXBw4k8jYt7eHmekvjc6XcZKmonkiKdCSzb2KhsJxEPbVUP
fVJdCHwnwb0Q4xoP445Y03iE179lYm7c/XiYfRF8XMCdwLT5sZy9Ignw5/iu
k3u8eOdpj+VOOyeAx0TIk4bTBHZuPd+y53YCrPx5wdU0gEDbb8eNogSuwKtt
z426zvL4O1VpIQ5XoN0l2fJ8GI9nndItg9Ir0Jj2L3xTJIHGftFitf+uwIHH
o13Slwg8XHf+hLDNVfh4UNOMP4E338pVS1blXIXw9cer5xN5/sJbJSamrsLe
BAUdyRTefOmLGyI2X4Oah/k5+pkERg7puvQlXYM+L505/zwCZ6o7VP8NXoPD
jF6tlmICJYvfHPywIREKqhOMWSSB1z6utzoTnQiikVJynAoC/SXF9bu6EmGJ
sCRpVElgw7Vz3jMq12HESvx3/yMC//xoMn8TeB1it3kMpTUSGBAIYl5Pr0Pk
3hM+7s8IvLvFQa5JNgmghJVg9ZJAGUZp44ejSeCf+4Bh1smrsyY9y+4lwc1j
n8xsu3l5tAj4bhC4AWdM3J96fyZwe893/XM7b0ClxHRJ4TCBmw99poVm34CM
+wt7J78RWN2ilaP/7Qbsy5lysJomUEDCTa7c8CYM0MVEa/8SmBXP+tsVfROk
hP1GNy+ioOMNz+rqtzeB3qs70ruUgqE5qq8diGQoS8C5uGUU1Nqfca/EKxlK
n+1bbiPD08cYX25XJYOQv/lamgIFvz72+nBSMAV2qCTJLKNS8LTImrVfbFMg
MKN5TEydghY+a3VEM1JgiabJlbVaFEz3jSoYGkoBbWObGVN9CkqaXuEL1EoF
06eKy0OMKfhFMPnFw+BU+Hq3tb1lCwV/vV1XfKcpFa6776Sr2VCwxfu10r7l
aaCgn7Y0czcFw555vnqwJw2WvvY7QttPwc9bOnY9yU2DsUepzLojPL73/FYR
Y2nw8l2Zo5cnBb1fLdjzSzsd9lbqvGb6UVDowtxa6eB0+G5QdlkghIITFYpb
BhvSIeLryeDxCAp2vCGD3UQzwOfwi4ShOArqLP7mmbwzA2YF+Cqnr1OQM6zc
FpiSAcHriBGZDApW7srdtvRTBlxMs5TcVkDBrT0vdxArMiHSxpe4Vk5BqiG7
SW59JujGxIiP36OgsM/FQ4MOmZAR4Nrg+IjHT35cGhuUCU+yn+h0NVHwtx/3
pmBGJojsOrbTvZ2CeX+/TznWZsKXdZNiy7ooGOI0z3e+PxOOb/5m3/SJglLV
6Tnhi7PAcPWo/JURCoZ78dc70LJgcbKDzYkpCk4PVVkIbMmCQ7fSPzv9paBK
ZZNi1LEsOPli+ZO9AlRcf/KM1qeYLIg3nh/0Eqfi0SORnsvKsqC2OEPvugwV
B6OmH61sywJPD6XSVkUqRgqpyXwf52mFInVpVSom8b89lCOeDTd+mJef0qIi
XeJ3igojG0Jpwoq9hlTM6/tYFmmdDY89x045m1HxQ7lM/H9e2XDM5dO1b9ZU
vFNxTvdxfDZUf233vepIxfQk9fQsMhv2JN4UNHelYkGt9wO7F9kQqyqqJ3aC
ilcqe8N7JrLh7fivP1/8qPjce/2MkXgOvJOS0X8eSsXQUPflpzVyYJcmfbg5
hooB+7KfB2/LAZ+LXdNvEqmYcpOi4eyeA0ZXXtv+yKCi4AI3damYHNDcfH9M
sZiK8y38bZlFOaAUrVBx4A4Vw8tzli1o4tWvpt28VU3FGv7Vs7pfc+CtWU30
imYqOjTviDNdlAtGWcL+ka+ouKfN4AVNKRfihBfZCHdT0TC/r7EHcuFEA7E4
c5CKnlU7Ajz25kKu0Zdw0x9UHN5VOPEiMBeqfe5Xzf6lomP6X9bSG7nQvVM0
o06QhtRE922yFbkQK2ollyxJQ3nFpRb/2nPhvveX1WFraMhZ9EnrwXguXN+l
fTOQTsORj9/lLITz4Gl35plwLRq2rVNZyqXlgeeHyDupQENRYv+y8U15YKJs
zm60oOEW/p3Iv5/3/ZThwLwdDQ/fKigYPpMHl4n6mi0HaLh44YfdxUl54Jyu
VZrjTsP5RMvDeDsPwjIHU0T9afh6SLW/tC0PxCU3BEeG07DYOaR/YigPmO+C
jZddpuEK01VBQovzwV9RsrM4mYYyfel1vxXygV5hpbEzn4a5571aH+nlQ9zm
y1qit3j86Q9u77PLhx3V6l1vHtKw+c3B2Fee+fA08qIYp5mGT5QkvBWiefUP
/x4lvqFhyZR8sHFuPmSKfu+91EdDZfsbTQbV+SDxvGHv1TEajstu9BDrzAeB
4F5q0W8aLhUJi7w3mQ/abiWqbYuV8RD9BFtXuAB+rby6Z8FyZaR+rIqNJwog
JXpJvukaZTxq0nj7kWEBVF0M+pOkooxB/iGPm+wLIL7Lzfy3jjLy9fq+L/Qs
AL34rSFum5SxMuKF3IGLBbDGODtu0EoZu4KMsyYzC8DA5schXydlPGG47LLj
gwLwoTZPLXdTRl95kcWp7QUw63VbpdpHGXOrooi7QwVw08Vs2i9MGZfHuooX
8ReC/KSCBV5Wxu/bpwdOyxbC/SXdy6VTlTEqR7ZdllkIJ1uUN84VKuOubPnx
JPNCiHteVj9RoYzzfk8OTjgXgqCVYuxknTImiO60XetXCDKuRtH8L5Qx7/7x
zypxhXDP6EmJwkdldJtapy+eVwh6jhf6tg4ro/e62aDWykIY425ZFTGtjM8c
3zw/9LIQGqZGzdsW0XGFzm+HzsFCULxv5Ugsp+PjOyLGlPlCiC1yhIsKdBRR
XF5uKVUEBTX/Bn6r0bFl3rVpu2oRiB/TNgnQo6Pk0nsVqhuL4PgjPhMBczpa
MUQz+u2LIIg8/jbTjo5N+VWlvu5FcFA1etzchY7fZ48s+RJaBC02AQH/vOjo
pDv3ViOpCE5lOB+tDaajtiDHbGdpEVyR8ihJuERH7vivELvaIghzfc/yTKaj
eviVYlZHEYSvGB93KKTj4L0zkyPDRZBQ9v25zV06flIZDg6dL4Jj3dhoX0/H
teeszv6QLIbb2Xp1R1/SUalxp7SxcjHsOGp5J7KXjh39b/08DIrhNXvs0u1x
OiZIDDX7WBeDTH26wegcHR/aNenucS0G6Yqx20xhFXSV659Y7V8MQ1kn+8Nl
VXDH/Xa56phi6DNtrfxEU0GDVXZf9DOK4U8qR327jgoecdt5JulWMTgvfE5v
NFFByt0uwfaGYtDe+SPTwlYFvzxc8d9gZzFkLBkNf39ABReWbq/sHimGSavE
x/5ePD08qXv7XzFo6Ly1VgpRwZSZMOfDy0qAW5En3xmrgvM2GXtm1pWA+ls+
meRUFWyym3Vw0ymBnqdT7KMlKmhotD/ygXkJCC1IPmD8nwqOrCmWGHIsgVIz
qSvKzSp4f7RBaca9BHI7k+7Kdapgf1z58NfgEhgIdH4kM6CCMb89EyviS8Dg
2t1MpV8quMxmlbVrdgmswClz3cWqWL3yudmP2yXw0TWo2GGFKurtI4sONpTA
9aaauxHrVHFKeDj7VkcJZBMGzjUsVcySL9nfP1ACxIagxIXGqrjuJyHxc6YE
Inukt9raqKJdZVT3gFAphMjfOcnZr4pR95b+rpQrBQvmwtkVXqroUt1x6aRq
KfiU1ndGhKiibY7ME0GDUhgJaJhbeFkVLW7/fB1qWQoHvvfsvpSuij/XX+r/
4FQKODzbrcBRxb8LvivIeZTCcI1YaPVDVTzNz7634WwpHHZbxTzaqor731p1
6MeWQmAoq0/+oyqahxsUr00rBf2dp8I/jKqijVCP82BpKSwZEVhaMKeKd6hi
xNWqUhiXVjkSJKKGJiLx6xSflUL8uXWxTvJqSFOUjbnyvhTCCs1PmKmpYfIz
i8iB4VJYNjs3Z2CghkfNbpms/VMKia+5qoaWalh5+smEgVAZ6MR8HTVzUsOp
2pE7hjJloOanzN7rroa/Rd0eKdHKIO7P8smgIDXcluRlNKpdBkkXrWQLLqkh
TMruSTYpA8/SxPT3qWqowHfQWN22DGLES7zlytTw4yx9bd6BMggMcYlxeaiG
TwJ01i7wKgPrH5mdd1vVsCBI44RJcBmkxNtuX9HN849J1na/VAZD5QE9Z8bV
sLG1PysguQye9iqEjP1TwwqGbbd7YRn4jO1f6yaujvNxEis33y0Die5Dd8cV
1PFsn+LpxfVlsG/2kFYwQx2HTx9bV9JeBhva82OlN6pjEaV4+/qeMohgBFX8
Z6OOe7KC1haPlkEDwzzjyEF13M3Z/XjhnzLYyTxjtMZbHT/4Xz5gsoQDal1X
I7rD1bHky1aK+woOuMkrHC+8po6bhxN0zyhyYCvrfs+ZPF592LDhpAYH5tMF
O3ffVUdCftFPK30OfFNvMoMn6lg45jkpZc6BZ5NVSpqd6rjKp7//8U4O6G+q
dFIeUscHfdd/OhzgAKMmb0jljzom/Uiy6vTgwFcTj4c6whr4ya9ZDgI5kPFD
4tlWeQ2caP4UEhfBAT7ldKFj6hrIdvAsaLzCgVUBjGMJRhp4g932YCCd518x
2VdrpYGca8yeyWIO7OuWPTS7XwN/+KfDl7sc2EWdGDA8pcF7n0cX1NVx4PFw
w76ocA18srLe+mIbB26QfNUfr2ng+dlMa90uDlxQkPijl6+BU//a6C+/cODf
3KklWfc0sHnN8YX2kxyQpd3tEm/WwI2DBxfVz3FA4PLpo5FdGvhV+bStvGA5
+LB35S0Z1cDhbDVpZ8lySJaTioj/q4GODUM+l9aUw8xW73lFcU1cdbQzMZde
DoufmghUrdXEozFTqQVa5XAu5tjlfSxN7JIT4iZCOcSefnVZyEQThe+UT5+w
KIdSq6C5KjtNPOllfZ1tVw72jZ5P/Y9oYt8txVv9zuVw06Fx3CBAE2umaV4h
x8phi2P+PqEYTVQt0v4p4FMOa/o2iXenamL8z+FDgSHlkNnY+/M/jibWFVV8
fRdVDu3Jz5ZkPtLET6LtKZRr5VCd6qoX+1IT9RtMi/aml0M9VzI87LMmLucO
scIKy+GF0463Ib80UbbD2enqrXIocLS9bryIgQ0mMlsSqsqBX3OHwRZRBhou
spYPaiyH94a+nbYrGcjPt+y37YtyePvm+qGDCgzkm2EukO0qB/G/Cd2nlRmo
4m3v2NJfDvLulkYxTAZW3Blfd3ysHNSjuCF5egz0ur0+dOZXOfw5eDvt8SYG
Po5a/XQDHwnpJRZXv1gy0CnhCIwvIsH3tu8eYXsG4vGt3JtCJHS5GE5qOTPQ
8us5hoEYT28osTp4lMF7f/Jb3ywn4Tm+Onn1JM+/EG4eliaBT/T5jqZABp4w
vp8zvoqENXerx/jOM3j/xwN/PdaS8KC9ydAwloE35k7e/UyQwPGQMzp7nYHz
VYI9O+gkBC8dGHqUwUC7fnrkfXUeX+JRA8EiBibsf1QtxSKh0qWHYXuLgRqF
aYnHdEgYUblSl1XJwI8PAlbd0yPh41zr6I96Bo6q/nCeNSLhO34t3tLGO0/n
8qn1m0jYxdGayX7LwKmaBwePm5Egtln2xXwvAxuPNkDSVhKGLP+o7x9m4K+b
IzKVViRcMDURrf/By+uK5d8OWxLWD7u5qf5lYIHfxOzwLhLGqJ8NrwswseNA
3brpPSSISLIiFkkw8ZRncvisMwmmI52GvrJMdHvNVplxIcFB2HX/iBITG0eY
1LEjJHwdcB1yUWNi8xaFiK7jJKwV9H7do81EjzaP3Y88SYiaV13tDEy8ct+3
JN2bhJQj7Jo+cyamPAiM9fEjwf8d6+6RHUzkCGWLmJ4hIXrg3d9ve5i4O2hO
RzSEBKp0d8LZQ0wsTwyVawsjQb7rj4eoJxMlMiUaIiNI2HFxMjbTn4lydV4m
etEk2DpEjemEMXGjlE3+l1gS3uy9fPFFDBMfVZnPRCWQYBbQ4eiRyMSpuQ4z
WiIJlnvW7xfNYOJqW5fshzdI2BgQf40sZKJPrKHUtlQSKpY0/rC/xcQH/Wll
bzJI+PyjNoCviokz4nn+u3JI0PzorVTWwMTHR5zCX+aTcEmsfcjpORMLf1Z0
bS4mYdbvdYv4OyYKXb0Uc6eMN8+C4PqGT0zUXpCbvYpLQnv9m+fBo0ysESxS
C7rD44v4MqT3i4mbopk6HfdIeKRRI/ZnnonGOVUt9EoSXp8P0KsSYqFJ/a3f
vtUk5D5juIVKstCl9dCzh7W8fmoFkrasZmEHfZn1v3oSLOKUHq2gsbB15F28
bhMJvU1k7ycGC1MG25LdW0gIdeufuq3HwhevBwOS20hgN0zORJqw8N3+pXp1
7Tz+CJmhfdtZeNaOb6D/NY+v6Gat7m4WVpChl+bfkrDdsypY6iAL0+s0daTe
8+7bvlb5n8dZGG9xfYLoJoFfd82Ntz4stLmmWq/Rx7svk4vHqkJYGJ5oXcP6
TEIn2SudF8VCAWGbUcYACS614lLxV1lYct3Fnj5MgmfC796zaTy+D0WC8mMk
3C0S8j9RwEKtbIaY0DcSmAVkxwEur9+hiZPfvpNwVcv1965KFs4sbzF6+ZOE
moUZH6wbWCg5HR/CmeHxP+kNsnzOQj7BOaMLsyQMqnI6LN6xcMWJW5H2/0gQ
eBn/dWs/C49RN7sq8XNBx0y6yGqMhcsVtXsGF3Khbv61nP00Cx2dhxYUC3BB
w/qgrjM/Gw2WP3h3SIgLLYed/h0TZuPV+1895EW4AKaH3AKk2JhpmNXcKsYF
xf/W+UYrsNFaetF0wDIuRDluUkyns5HrKs2nuIILxWdOH7nDZqO9yIvxupVc
8FVzN201ZOPtLvFWZ1kurNf8fG/QjI2xmXm506u4YPwjuVJgB8/PZltI9Bou
JMTZbqM5sdFDkTwso8iFM/feuFkc5vnnurpmrePC4eoxUS8vNl4ZHQ+lULkQ
GOmucyOQjV75j5pylbngdJ7WW3eejV0bNhgrqHJhsmxmybc4NtZ9zZu+ps4F
peDqYoWbbLzQv/H7YgYX0ob2NNjksFH3jI7+KRYXOA73d0aUsTFYNeX9Oy0u
LMmvsXt4j40ldT4fDNZzIUPsYMOvWjYWnP1vc8oGLkRrX8tkPWPjfxTLdT/1
ufBOxuqzVwcbvTXmAi2MuHBBJD6W28tGk1fR9inIBbs7u29ODbPRSLugesCY
C6/+chbp/WRjqv9EpaYpF1Au7VnoPI/n0zd7bzMuXPZnjrcIaeH0FO3GrS1c
cK0JPiyzQgvpl/kujm3lgsKTFNaRNVqYvKRDg9jOhf8BuYZYhA==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtVnc01+/7RlYiDURKmaX0eu93ZvdNSRpkJKPI3qFBokR29t7vqRSRRFnR
1JKMREmJaEhFtD99379zfs8/z7nO/Zzrvq/rep7Xeam6BVl7iggJCWUKCwn9
3y7YBItAof9ft/f4BUoIcKHi+orAx+rg3s+pXynAU9kG086PaSAnlDFgIsDJ
OmN833ojsNgt2x8qwK67uMoajzdD0ZaPFxsF+E7gi19Hb2yDBKfXLguECbRK
k1nGu7IL5BRKPvoLcJbZQukeGysw+tmy+4UA6zon9up22sBcek+agwiBlEvq
G2O22oFT4P7ycQEuZnenXGizByqpKztmHoGBsc7rq3WdoOVUssMGUQIv3E/y
S6rdD90rR2fHBZgmmW61Qv4A6PWv9KkRI3B3UeyyfVau4J8ZXBMvTmC4ehM9
JtUNjlqLPAyQILClMfBZyn13sDb82OgqKeD/kEUcF/MErzx6hOd8Am0Lh323
GXuBa/eAzDEpAtv7ehpnI73BK+VWcOECAs+VPrA8dc0HvIu6ufelCUzjiTmP
z/jCB4luruRCAlfP1C3TIvnD79XRQXayBK7LF6418guAyLAsibpFBC5cr+ay
vjwQqt6f9VVZQqCh8z77T68Ogvh5q5yCpQR+r5P6gDLB4Ga8LF5VnsBNjINx
hy8EgyU70KhRgUDxUf3iVLMQ6FnRcs1FkcASnZltaWMhsDvKaU5uOYE/97ZV
HYk+BJ3z874NKBNYI3v4LagchtBT52orVxKoM5G15HPTYbCntq5PXUXgkqcO
ttF7j8BJkbkDJ1QJ1OJdfzg7cwT0QtwsI9UJ7LIJL9qRcRTaykVnkzQJPB8p
ORqtEwo/w55Ynl1DoEhew738e6HQcLxyf7c2gSObWEEpHmEwKxa4YoEOgSeO
XvnjLHQMyoyHk2wIAlm3buUuLDkG+8lNvAtkAqedI1yLNoZDb9NF70U0Ap8Y
BiUI94bD96a9vbEMArcpqZA3HzwO9yXMxyR0CfQLmYt1nh8BEC1aUKhPoGiw
0yVrfgS4r/j3Uc+IQOvO8y9VIBKefGa9fAcEXmEb6t0cjARzRL+zJgS2aRz6
YnDkBNSmrk8/ZErgRMAlypmFJ0GNzTLftY3ANTJ+OjUVJ8Ex91EecweB/ZfV
Fp8ziYLdU32HCQsCB6sPLz40FAVypZ0v6VYERupKXpIwOAUTS653m9sS+Cbc
U7Et4RSctGDvDNxL4D3pnUPOfaeA/+HADpYjgXV/7ueNr46GNzqvHrzaT6DL
wtOjewKjIUPuUwfhSmB0/2XnqsZo+ONrCSkeBObeI8rfi8XARGfrhh/eBMYb
+djKWMeA7P036Yf8Bffj0EGpZWUxoDzk5Pb7oMC/E188xT/EwMX0Rk7WIQJ9
AcRfME5DVmzUdt1QArs3W57JiT4NZrEaDpPhBB7hNuVSO08DJ3PJg+oTBL7r
vnn3imIsVP88WxgVLfDrsHX7co9YaPSg3naOI/Dzsn8aHjWxUDLxw3RnEoGM
71IFGb9iQUueqrwtlcBZvlcryzQOWmTno3UmgXDtsl5mRhxQi0su+eUS+Njf
+LLHizi4Q/zzySwk0JGh2KmkFQ+mEhs975YS+NLmK/lScDyE623izOcK9Nga
xa1pjoe82yJKTmcJLMrQOBQllgAi5V73mi4QmFOayL5qmQDqE1C5tobAY01i
TV2FCeDXZN/KryPQgPTNp2M0ARJjg34R1whULfe1L9uQCM3fmM4dLQSePKpP
tw1LBJdldmOBNwi0+fyr4l17Ihz39UlUuyvIO1vIw0kqCcon/5q+fUBgrbn7
0iqbJJjTL1Zs6CLwV/x/ns9LkkCyuPF3Th+BWw8dWjD+Ngm2y3V8iB4UvKdf
GlceE8mw57TWSOQwgZWjJotzwpLBo5r0PG5U8D3pau9jtCeDtCOpu+QdgReZ
+2rrJM/A2H7vGzc+Cfx0KnGUsToDEY0Lz36bJvA3szfWpPAMWJ+3Os74Iajb
qLy1HjkDv5qt9GL/Erix0puySTsFHCY0h1+LkNAyyGu1aEgK/Cl97r5DkoTK
PSxf/rUUyBwLuXNLhoRN7d53VIRS4bT36F/zpSR0zRuZPGSWCkkZKySHFUno
cleoiJ2WCnklQq+iVEjIjUxKOPc0FVJqfU6QNEjYzVgckrAiDay+qQ9PapPw
165/S9A9DZ6Wff99lUTCkvjUdd3n02CDAqs7g0HC9tP3jup/SYOXQo8cwgxI
qIoZdRHMdJDfr5Xub0zCG8cKeDmR6aCRvzMg0IyEEbK+4nE302GM1fsxchcJ
U6g1FlqiGWA5z0yyyIaEVk9tc2e1MkDq39qW2w4klM+t0L1kngFKhdPCf11I
GLu5YLldQAaUNyztM/EiYcPxyJUTaRlQQ53RyQsg4fQVRQ332gxYMDsl/v0Q
CcUOFC9+0JsB2vP37fMMJ2HFZOl95bkMWFkfv2YkioTnBjXI9oqZwMq47OYX
T8KJJpZ2lH4mLCtZLimcSsJThu+LMvZlQu3er4vLswV6VM18U05mQtzzA8ft
ikiojn7HD7Ez4c77ZAN5jsDf0INXTG5mwoxskuXIORLmsZ7//TOaCQuvBFxq
qiZhYQzbiCOWBbNksOfUk1C/dYUTaU0WpE0KG+e2kHBxlcKmc9uygBFU7ZF3
i4Q0i/bHkn5ZIBrBbOU/IKGDZsOszZksWK8eu6W9m4TuS/4VJ1ZlgcVo+Ld3
AySUJaQrz3ZmwVzD9F2V1yRcW3ZNunoqCwbJN+tdJ0ho4G1eWSabDfZZV5pq
p0jI1w8MOUbOhsdv0roWzpFwo7HhdgOrbJCWkJ069peEh99sVJ0IyYa9k7MS
x0TIaJ+4/U1EVjbcKvNbpi9OxhGXjvCfl7MhcpU+V0SKjLoKfn0uvdlQm8Eo
75YhY3GW3avqmWxoal238txiMqpcVEwcX5oD97TGxE/Lk9H4Da9FnJ4D8dLa
Lp5KZHSaZ+Mva5sDDyNa1SxWklF6bCJG6EgO6Du4WRipkjFD9Mz0YHYOjAY8
HaZqktFQ7+H54rocGAvsfkJok3HQorTAtDcHhBcuVKVsIKNXlVPNs+kcMBLD
R3oUMt7/emfYakkueK9U6trGIOOLbCHFK5RcqDbapuWsR8aKozk7/9udCxqh
4Y/Djci4OOrgQXJwLmxdYHe72JiMt8mvgran58Lh6FjR26ZkzGEUbd5ZnQu+
FRVnps0F/b7WDzE6c6HhrLvdGgsyRstUEhKTuaAuZuvqZk3G0yK2G9ql8kCh
Sf48z46Mc6zJRwe082CGbrLuoyMZIzIXi7w3y4MQ3+ARXRfBvCNtN+y98mDy
Of1hijsZbSJshS/F5kH5OdWxcW8y9p490zDFzQPpnLtrzQLIWJZw6pncjTz4
LF+bezGYjEJ5VY5qr/LggkvAmuVHyXh42QRz2d88sPKPfp4STsaXOR7uM8vz
4ZFYWKXYSTK+sWh41qCbD+OD3XmxMWT0vHT/jKtdPhyIkCucn0DGv9cnwmYO
58PHkLbqnDOC/JOu5ARk5oPqFqs+zQwBziNePKrOh6MxW8Vbc8jYsat6i9yj
fFjSo2TsWEhGGbe3D0ze58O175uj/5aS8YP+sLe9eAHEvDG4dZYr4Hf4Lb9H
vQBqG0Ln2Z0jo177XJcuFsD+Ae9NC6rImGY1kjFvfwFozZ0KvntJkM9GNdv6
8ALoWUrNS6gnYw+EylvkFcBozvtKiyYy2uLnJ52XC2CVmVy1chsZHwfPxNC7
CkA6cGXh1C0y6jwwXBvzsQD87x307bhHxn7XgdYGiUJI4gcrn+0kY/BtTeMe
9UI4/zqpMrmHjAct+2v6oBBMf61SOPqMjKykSYnrToVguSx/r+cQGVuON5ul
hRWC+yLrAKcRMgqLjAeaZhfCu+OXd+8dJ+Pb9c7ho9WFsLZOUdjhIxnH4j18
fR4Ugv34aPiBL2Q8HpZg1Pe2EHJXHLoaOEtGhzPcWS3hIug0Wd1w6pfAr4cv
Mw+sKAIeffuhwn+CfBddXBK9sQgM7m5/d1WUgkK7uo4lWheB6OMIuaH5FLSZ
2HUnNLAI3AnmjJgsBfeIRP7ckVgELq+6TzHkKHila1ZBklcEuj/KG/2UKGg+
zFpV2VoEU9cki8pVKBjhc1aeMVAEzdmWKuPqFNzOjfxdPl0EEcwuEx1tCn4U
H+r9K10Mi3NezDtGUHCq/BbHcE0x8D917L9Po6BlcJiPm3ExfHgxvnO1HgXl
46LWBzkVg4V9cmfkJgo+PHFuyu1oMSy6O29oeDMFG5r+1hulF8Pe37wjW80p
+Ka6J+5fRTGs296cXWdBQU2da24VN4vBLamQoWVLwS/Vp6x0h4oheWWaXZkD
BZdd2LS3ZrYYaoTfTSu7UDCzZ3O4jGwJqDyZFWd5UHCL/+pW67UlsOihWPoa
Pwr2ZnDXRhmXgM1bz4T6IAp6xT29keVYAl0P3Ce3HaXg9T9C6amHS0Dq/c6m
keMUNPapyAtKKYH8sIOfok5RkLY5+ZVueQkEnZKPUY+noKkLK/h9awlse5d2
5NEZCipRlltF95fA3dA1N45nUnDvSq9Eoc8lUD+83oPIp+C1O1oq3hKlsOLu
O4eJEgqW2G1cXr+qFLY/vlBWzqXgeN/52A8bS+Fp8XXCt4KC0gF3PSV2l0L0
cLA4tZqCXS1Sdxf4lIKSw0I1oSsUVNXRrv4eVQoG70dP9DZSMJcqueZhfinI
pm9SqGoT5Ft1Qy++phQ+HPGfSLpDwY3a3M9rO0rh09zVTwEPKaixaa113bCA
/0KI5p5uCs48neevOVcKzzzHk02eCe7LafktUTJlAGYeyxkvKbjhaeBEu0YZ
JLToPdEZpeDz8p0uHwzKgJlcX6H9noITh1Y3/LYug+s9Wuz1nynoXRM39823
DMpXvrxMnaXgMaWt6/tPlUGs89qXm35TUGaRvQsrvwzk/tgr7xamovn7l6W7
q8tA8Vmbr5cEFZvNNaff3y4DXavq29EyVKRGnvX2f1EGnTaha7lLqRj3YJ7U
069lwLLzy+xQouLzfsm3WpIsSPF6+fvrKioKzZ0XdVVhgbqOuoeqFhUDk+cd
PU1nAWk6/e4eHSqKH3AwSdvOgnVVx1alU6n4R1IhPPoACyr+UP07damoavBA
c38oCyoN5M8uAirGEDp7VFNYMBkZ+sjelIq5fxTkHnNYIJVX/bx8BxVPCCUH
uV9lQb2GQud3Kyqu1q04MvKIBS054mwLeyqSz14lb3vDgqVazy0vOFNRqX51
bf53FtyZ/jgg5Sng72wQ9hFnQ++3/I3B/lS0fMUv+rGIDTLSBj7PQwT8aXjh
hDIbOubRvM2PUdFgIGrjd0025BQMk1tPUtEwwMfck8yGNydKbzDiqKjmKjvR
oc+GBPcn8nVnqHj0fcGyVaZsMP09oM3IouKC+bpv/CzZsPE/pV/NBVSc3k5Y
VDqwgUz9HmPGouJc2EO31+5smB/0tP1ZORWLdgWukTrIhhHe8ksBVVTkMaJ4
a4+xYefQhl3idVRU+C982CCGDSGmYTn8Riq+zhx9tTmFDctoB2LM2qk4VWtR
g3lsOKdhs/TzXSoOVTvaUtlsUHzQvLm4k4ob1Ov6FS+woU9SYtHOPsF81bKb
vtWxIUqId0T4BRVLqmlZt1vZ0Cr7L7B5hIov/316ntQh0Dtw5kf4Oyourldc
vaWbDRlbmxcZfabi9f4C35nnbLDIEKoTnaPixtXObfljbBCFJy+e/KHixVY3
bcoUGw5S2AmceTSck6qsafvOhkT2xOVQKRryrE0dNwtzYEB9lePuxTScTjWn
tEhxoKm+PZxQpOFSzUHDdXIcyL1qtnDxKhpqXFKJS13JgX+zZLkfmjSsv7Zr
ybgWB15U/UoY1aHhQAR3kkbmgOsZDa9eGg07qlxXhOlxQP4aqbJDn4YbdAfO
15gI+PvKbNqNaTgk4VT6cgcHdETmnFq30dC4Y+s/oT0cII01tV+3pOHOin/P
lJw5QC8/cvK2HQ1/rv1KWuvNAfFflZmP99MwYDBVVieYA0c1P84NedAwX80y
SjOcA29/t1747E/DUzL1CXIxHBgerz0vfpiG0gu2Un4mcyDm3Z4vqsdp6N6S
FtubzYGfZfoRxtEC/c2qybwSDnSbTW/1TKThJ6/87b7lHLC8tWh3ajoNPc6l
Ptao5sDl/PXZjXk0wf/DOZX+Bg74fBuU/lBKQ+0laZtPtHFAt/5Ko0o5DUW+
fTJdfo8Djp52eXuraMg/FE5cfMKBeBMnVk4dDZdrTIgxBznwA1y7nzbR8OvM
174rI4Lz8yW1lW/S0OSrPV/7AwcaxL5yPe7T0H7lq8icaQ6YOrYZXH5Cw1f6
O7xnf3EAPy37Mm+AhtWl3gE753GB48NpcXhFQ7nfwrmFC7jQYyhaVjcuqOt/
fD+0lAt7eB8yFk/R8J3Z98MKK7jgyhHKOjwryGP0j8FWDS74S30rHfxDw7dh
T7cH6HChIuZI7WZROja/23c+kc6FuGja/doFdJzxDTlQbMiFBbZjI+pL6bjT
euYYfwsXTFYZ/ihcTkeDL7d/83ZyIfzNV0k5NTpudXnwtdCWC3nh1xdladPx
0v737vH7uLCFtU9ajkLHIbX5Tr4eXFj/OfFHoS4dZZhLXpsEcGH+O+EedaTj
U9Op30uOcKHrU0JurRkdR/4lXB2M4MLZHS9hsyUdw98/UM4/zYXvjLudA3Z0
3KvLo+w4w4W9jyQNDznTUbvqr/BcFheOKQcmyHrRMdCnIze/iAtCq1qrLgXS
cWHXp1kSV+DHrdsVe47SUd/JeX3beS7wJ6yO/RdJx4lIcTCt5YK6C12xMpaO
vUd69W5e44L+jFGcUwod/5IvazDbuTDnYdIim0PHIu10SU4HFy4dXNbUUUzH
xE12UyJdXODeyYk4zaOjZe70sFM/F4KUc/6aVArqYRajlS8F+a36aiheR8f7
FBvRmTEuaEYnMTub6Lh05t12yiQXqj8bTuTfpGNl1Vyb1wwXVFZ+2uH1QKB/
2jUg+xcX+q+fcNXtoePrFwsdrgrzQCq9T2PhczpOj71K65HkgZjFYNbECB1N
ntQrvJXlwf5bRytuv6ejelLQzykFHui05bqVf6XjRvEP8GUlDxjKa64n/aRj
qY7QzDsNHvxrVroWIszA5Lpk5cH1PPia6bJr/3wGUiQP3Gyn8sCxaPL4zsUM
tKbafmHp8eDI6wYjUGKgcqNudSjy4MDJhiyGKgN9EodETc14oFj2NpSkzcD8
/gV/pSx4sOc4TuhQGNgslcG6Z8uDYJc7rzfoMVCTR5o94cQDo6ojB6jGDIxa
US2+3o0HT3t2u+ubM5A5+HCoy0fA7+A8bmol6D9/66mAIB70POeN2zow8E5W
/0+hUB6wJNa5ersycMUvmnVqpID/7G/rE74MjNmxOGvxaR605Wg25oUw0FxU
5WZqEg+iOhoy6sIZePOP2EfhDB5U7Gjv741mYI51iPzBPB483ron8XsSA01t
RLf3lPCg/HsyVyWLgY7eLpkEjwfHG46pmRcJ+v9V+RZzngdXZjeKhXEZyA17
cbyrhgebTMbMKi4w0FdOm5Br4MHnzcUTQ5cZGDucr2DVwoOp1sgRuWYGriuo
M4y/yQOZ9AvU3bcYWF4x73zdPYF/l7cNpD1koJDUAo/BxzxQ23Si60kvA38y
t4V+7+NBp1ewvMIQA22UGO9kXvAgLnLnOecxBpb92HpzxQgPGiaNYi5MMnCN
75S0xgQPREwO835+E8xvkP9E/RMP3DVWSu78y8As/wr5FTOCfBwOXuSIMVFk
SeyY9E8efLlVnPFLhokbbBJM5/7jwV+PoWo7BSbm75YyHhDlg+BVizWoMPGe
0oFXl6X4EPDmRKbiGiaeK+1fG7+ID7v27N19ksREakmDprUCHzjrGTCxkYnO
BZuHFVbwQe23vZMNMjHyQbNjnyofIEyce3MbE28tseclr+GDeMjpRQwrJm6d
3NGut4EPi54t419wYKLsgTuNI1Q+2NfLOKq7MbH5x2R+jC4fVjNqSSw/JlIa
3rqt2MSH5pLdaiqHmdgk3KlWs5kP7paGJHYEEz25Ta/0zfnw79FdG81YJtbX
tnPaLPgwWbsl9WIKEwMzPgYb2fLhWoP0oG4uE2deGO+54sCHwZowekep4Lz7
bTsNFz74pb4usT/LxCGVgydSPfjQ58iX/VTNRG81evdnXz6Eb1JLjr3KRJ98
MccdQXz4HyXHJJg=
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["y", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{4.781939417524267, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.7682262832734833`*^9, 3.7682263838891497`*^9, 
  3.768226496034779*^9},ExpressionUUID->"042050ee-f9ad-4340-84b1-\
81d823ad2a33"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y2", ",", "dy", ",", "py"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"y2", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "q"}], " ", "ys"}], "+", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}], "-", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "-", "q"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dy", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox["t", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["t", "2"], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["ys", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"py", "[", 
      RowBox[{"t1_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"y2", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"dy", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"dy", "[", 
           RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "^", "2"}]}],
         "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.22"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.22"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.22"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.22"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.768225693552536*^9, {3.768225884939062*^9, 3.768225941243465*^9}, {
   3.768226107524678*^9, 3.768226165825839*^9}, {3.768226294497385*^9, 
   3.768226295952194*^9}, {3.7682263525743113`*^9, 3.7682263827365294`*^9}, {
   3.7682264663347282`*^9, 3.768226495206081*^9}, {3.768226965082432*^9, 
   3.768226978309737*^9}, {3.768227099158043*^9, 3.7682271098771877`*^9}, {
   3.768227162568934*^9, 
   3.7682272664295607`*^9}},ExpressionUUID->"1ad77a14-16a7-4530-86ff-\
195ed3453a94"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw913k8VYn/x3FUyCh7yL5e273ukiLLeVeKLmVJi7QRmspME9IQkVLakDKi
jIqWaVKWtCNLKlHRIk0LZVIphCKhn/l9z6fzj8d53HOe53Xfj/u4MAhY5x0k
JSEhsU9SQuK/n3RcfntsN2/qbGRm/Hf8xbxbKuXL/3F+mVklrVduM3I+SfTf
UclwS3oqnX68fpux79zo7zZy/j/tPnPvUHaG34/rHzBpPn4h60bOVwX/dzxm
BhwPNm3/cX8Ts0sBLUdHzutq/zueMc6qdluv//CaGQPL4LJXP65vYU7fPJEm
a0/+a2Zr9+MxQnu6v5WZIL6nsNyenveG8R0VVJRsT95bZvf71V2V9uS9Y/QC
z1R/++G1Mwd+6bOZ4kDeB2bvn8pOEQ7kdTDF5hUvLjmQ18V8f16t/v3H9V3M
Rc6Lt66O5H9iGpQqvP5wpPu7GVMXc+82R3peD3NP5eY7eyfyepmUYDeNA07k
9TIBDQHPO53I+8w8S75g68GQ94Vp3fzBvJAhr49ZaHYyXwPk9TPFZQm18SCv
n3llbBzTBfK+MhpvJlb4TyNvgMmf9j3z8TTyvjH6ZitlPKaTN8j0Oz6SvjOd
vEFG+kXzQfEM8oaY5VrjS+pmkDfMHK5sCfVxJu87o+X//PILZ/IkIHKM3Rcy
k66XwLmA6V+HZpIvAeMjf3alzpqN/79dJIl1u2Q3WrrQ8yTBjf20+6YLeVII
PHmTt8qVPCkoDnxeJjebPCk0O7VqFcymnlFoVewL9BOTNwprWpLtxrqRNxpV
A/IZV9zIGw2brbfj17mTNxptsTpfOHPIG4PGxqXdr+eQNwbfFjyLyJlLnjTc
C9rigz3Ik0ZHwh01rid50lgccJ/X50meDApu2NdVeZEng04jz640b/JkMf+d
e/qaeeTJ4nrMr+XTfciTha5rxy+688kbi38LpA4PzSdvLI5YvBQ3LyBPDr9b
no+sXkieHB5MPcfJX0SeHEZ1DczL8iXvJ3z9Ujq0dzF5P6FXRd843o88eQRy
UB25hDx55AqcXocvJU8e7xdMjgpbRt44GL+etmvDcvLGQWruRuVNK8gbj0qn
90rb/Mkbj8iUv3ekBJA3Hs3zb4ceWUmeAk49n9tQFEieAsIvOB+vCSJPEVpF
+e9bg+nzpYgnHWlHpX4mXxGJ9b23jFbT/Yr4oHJnuesaep4ifqpSCfptLXlK
iJx9s/FQCHlKuLz6nws1v5CnhEL3GZJDv5KnBPktncXC38hTQpXE3Qdr15On
jHSbGt9ToeQpY+9Q7ay3YeQpY8e5axmWG8hTxnu9GK/QCPKUoX+8M+TaRvJU
MFO75/3YSNpHBU8/rqxZHEWeCtYra8ud20SeClar95ySjiFPBVlGpcf9N5On
CttBj+9lseSpImZs5HmDLeSpItFPpmp7PHmqsDtXbdW5lTxVDITGfVycQJ4a
Tt35NrpmO3lqiMgYWu+QSJ4anke7igp3kqeGqH8Ou1juJk8Nsv9eyju5h7wJ
WH1wUSAnibwJ+P2WzZrTyeRNgK2BbCl/H3kTUGSVsOxKKnkTILNohdjlAHnq
2N4vjmtMI08deZ69w2vSyVPH5LSxNyQzyFOHqNum/lAmeeqwTjE0tDtMngaE
GREXmrLI00CLY+OemGzyNJB3pS3H+Ch5GmhfMnvg7jHyNPB2x6Gk6FzyNMG7
smk59wR5mkhITVjbcpI8TUx55F1w8C/yNDF1/SbreX+Tp4npCWmtinnkTYRi
kM29+rPkTcTmPz9+TMsnbyKqhucySwvJm4hj6W/LOefJm4jkKpfwz8XkaaHN
ut+n+iJ5WtB7sjUg8zJ5WmhXDTu0/ip5Wth52H3YrYQ8LTxITNtpXkaeNrYt
qbeXKydPG0tl41U6KsjTRmAXR+FRFXna+NI1jVtWTZ421APnhJy5RZ4O9ppW
1xyuIU8H0lmmLim15OnA93Lby+13ydNB+ve4/XH3ydPBtN0/r4hpIE8XYaoq
M2MekqeL4d4eJu4xebrYy43x2P6EPF3cXaMXmvyUPF1skxOfOPSMPD2c01/7
/vQL8vRwIrrToaSZPD1YnJ1+uOEVeXqIlLsn3d5Knh5CCoaipNvI08fm1Ml9
xu/Y6zX18WJ9c+Ssdvq+0ce6jysk135k73fXR9MW7T2pnfQ8fRxIjtAo+cR6
cSOvL6/Pfd9Dz9dHtnmStdYX1isaOZ8w7uLcfurRh9g1zy5hgPXe6KPwWW1x
6SD1GSCi55b5t2HqM0Bl4dD+qZJits8A6u7V3dGjxGyfAWZIxjhXjBGzfQaY
bL5ph5ysmO0zwMtJmlfmy4nZPgMMFp19miPPekUG+Oib2tY7nvVqDZAoNfGl
qxLrvTHAgwuZZdkqrCdhiNqCn3d8VWM9TUOYBzVOWqBBfYaQ32xXXTyR+gxR
+q7ZTkOH+gzh8VQ3KUaP+gyx8M6M8n8NqM8QW7Zn13saU58hGLMtJaWm1Ddy
v/GUrdbm1GeIALGCQY4l9Rkhq2ZBmiaP+oxgOnXxi1S+mP38GOFsetDAeBH1
GeG1R1XbXhvqM0LntPJcBVvqM0J75QnrA1OpzwgOJ0u3azmyXpERVB29Tx1n
qM8IhYtPpwqnU58Rni9VcK5wpj5jaAhuX/FxoT5jSHrqfX43m/qMkX1n0act
7tRnjB1zr+Vpe1CfMSYZpJhd8aI+Y3B5E1cs9qE+Y0yVPuI9tID6jBHeGjx8
zJf6jLG9sMjfbQn1GeO8/J2oL8uozwS9Mz+55PpTnwk+r11z0yeQ+kxg5RbV
J7OK+kxwNzTwcclq6jNBnW1IQEQI9ZmgvORhhmAd9ZngZVdzVOd66jPB0/0P
RuWHU58J8pw6hWEbqc8EaSsjpO2iqM8UV73/jpaMoT5TTHS6v782lvpMYezI
EWfGU58pMj27s9YkUJ8pLILD9jomUp8p9Jd8mKCym/pMIT8m27Z9L/WZYqVl
XdeNFOozhXTaJcec/dRnim7pHJ2tf1AfB8dc7yYFZVAfB39zopPFh6mPA/NN
HTrCbOrjYDJnla32MerjYL6+2XPZ49THweNfw+T6T1IfByLh7tJ3p6mPg+Dc
gr7nedTHgVDH/PzDfOrjIEJtUnddEfWZwd9CLf/2BeozwyV9hQ83L1OfGbrb
AnNvXaM+M8Rk+TbeKaM+M9Qk87fWV1CfGcKncU803aA+M3iF7HdqvUV9ZkgY
fVL86Q71mSHS/swtiXvUZ4aP8W0XlBuozxytyVkqnEfUZ449S1WeOz6hPnNM
5ScpLfyH+swx7eC8c6EvqM8cN8P/Op/SQn3mOPblkV5BK/WZQy9Hr/NBG/WN
XL+gTv/re+ozH/n/wbRIv4P6zOEtF5or/kR9FhhK7u+O6KU+C+RzpbKO91Gf
BQoPNx55PEB9FogeKh8cO0x9Fgh7KneOkXRj+yzAWAwWbxztxvZZINa7WaFQ
xo3tswDPQupqh5wb22cBrcEzxdzxbmyfBVbttBr+VYn1JCzx8Ke61EJV1tO0
hLPtP+v71VlPZIl+5GZAi/XcLdHeuEF2ty7rBVtiiuDPa40G1GcJmzEh501N
qM8ST1J5HRvNqM8S94/a/HzHkvoscW9bvb6BNfVZ4m+teRMihdRnhahHP7k8
sKE+K1wonFNgbUd9VvBzWTsvyYH6rNBy7aJlJ0N9Vgh6uN3Wewb1WWHbW6vf
L86iPits6Bx+qyumPisMRnvvTJxDfVaYWhWzsNeT+qxQk9HoFeBDfVwEb7gY
0bCQ+rjoCdtQ5exHfVw4+66xu7yM+rh4tq/zgXUA9XFRMWl56qkg6uPCa4xq
mNFq6uOiJnx1+JEQ6uNiRu7VA3q/UR8XesGrGo6EUR8XDUyNpfFG6uNh69rp
2X9FUR8PJ5t4loLN1MfDHmFn3ZUt1MfDUOPrhFkJ1MdD4ZtfvB4mUh8P36Z0
8gL3UB8P41bWaH9Jpj4e8koDNHftpz4eNgRoG+mnUx8Py82W2F7KpD5rmJ3d
sdD7T+qzRs6CMbEdR6nPGkZuDnl7jlOfNa5HH2i2+ov6rFF+PEL93hnqs0at
2N0zLJ/6rGFzLXan5nnqs4a7enR5+UXqs0acS96XtVepzxr7ZOI4GmXUx8fr
V/7e1RXs9fJ8bJpcviGimnr5sBOOSzGrYe835WPU0+LsZ3Vu7N83fNyQtspJ
rWc98JG0quWg+BG9Hz5y4l1jRzexni8f6Rce+lx/Ru+PD1P7AfXNzawXxoe/
Ie+mYyu9Xz4yfN+s+N7Genv4cD2d8bqind4/H4pXy+YkdrLeCT6yFeuzPHpY
r4iPk+NdGjT6WO86H7n9h969HqB9+LjXLX6VP8x6TXy0S92/Eivlzu7Fh6HS
qfWe0u7/83r4ePDWc4yRnDu7nwCz7GaH941zZ/cT4OAfiiV1Su7sfgL4RXFe
HFdjPVMBgpwVHsdqsp5IgHh7cY6fDutBAF6Sn7OdAeu5C8Cdd/Oihgnr+Qqw
eJfy4Fcz1gsWgK9TqfDcivXCBPj95fJP5XzWixOM/P74LfvUJNbbI0DBkxiN
fbaslyGAkaeS3yYH1jshgHNkcdAqsF6RYOT74fPk+c6sd12AoaRldc6urFcr
QKVJDGeyO+s1CbCr8uUMc0/aT4C9qWoGuj60nwB1Z86WqC6i/YTYoO2gMW4J
7SfE/Gce1jIraD8h5j6JlhwVSPsJUfBxwV6Jn2k/IUrbQ+u/r6X9hHizP7hW
4jfaTwiXzFvRo8JpPyE+HOe3yPxO+wnh7DWlf1w07SeEu0XEdbU42k8IpaId
tnrbaD8hbvjLLLdIpP2EYI7uE07ZQ/sJoVVfWTAzhfYTYvQsh3/mH6D9hBic
nZm36iDtJ0Sm9mbOpsO0nxD2PYkuKUdoPyF0vy6RP5lL+wnR4JEVXnaK9hOB
p9CxuekM7SdC6sxe88/5tJ8IE/rnhysX034iHDG8skRw2Z39/hFB7dKtFq8S
2k+ElccspMLLaT8RrlXsvJZ+g/YT4eCnFIWS27SfCHeH27++rmO9MBEuFrhE
yTfQfiKY3vZKnvyY9hMh6dulKQFPaT8RpPusQpNf0H4iTPdf5lj6ivWKRDjV
OJze8Yb2E8G383qcfjvtJ4KBzaIv8zppPxG2ciP7EntoPxGO+jTFl/WxXo8I
PrrW6X3faL9J+P5ZIBJIzMH/AfdhEl8=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxF1nk0VQvcxnEkoTJnnh3DMZ4hlXE/IYSQNCApGRo00a0UIpGSIaUSpdJ8
EzLcckuJFGmQW24D6qZJGaJRqVfve37n3f9Ye529P/u7n3XWWfRCV/mFi4mI
iOwSFRH5/ZeOi2+OplvaBuBA3u/jNPOieejn/59fZN4GiwVwRs4n8n8fdUzc
9It5POHnjUykhE6t9cj5/2n3mMJ/eHdthNe3MhaXB+scR84jI34fDxnXnIWF
LsL7HzF2fesXeY6c327+fTxldkyZIj1L6D1j7uYX5gUJr3/OtMqelQ0X+i+Y
XP+gqFXC+7sYy8EzJRuFz3vFDDnsf5Qq9N4wqb663buF3ltmhyyeHxF67xhJ
9seaUqH3nnFRskm+KvR6mVL5sZYtQq+f0TOLuPKf8Pp+5iTfdfInof+BOXPj
RK6kHd0/wPR4JT/WtKPnDTLJAw9H8+zI+8gMlBaouNuR95FR9rgrG2JH3ifG
a/rS3nVC7zMTMCq8PEvofWG27L204LTQ+8qkdy/trxN6X5lbpRFLOoXeN0Yn
7GzDd6E3xIhNnzhWzZ6878yeFV+sJ9uT94PJP93rOseevB9MxiEFx3X25A0z
e/8K0thnT95PppJ9reOC0PvFHB10SHsi9ETwq71B5ZfwehFM3uSfYeBAvgj+
Mu544z5y/r+380XRIhVkusqBnieK+/LXZu51IE8MOkNSITUO5InByI3t91ro
iWG9m7KZvCP1jMJdxRtv7RzJGwW1LG5mpCN54siO8FTd40ieOMrlpdNqHckT
R+j90PY+oTcaTys8VHUY8kbOs6qm+DDkSeCAeL5jIkOeBLoS3rPPM+RJQNu6
cKiLIW8M5pqcLFUFeWMQwPrqOQPkSaLySkrzFpAniZtBzryLIE8S/7FY8f0g
TwpQ0Cg2mUqeFFRfqV9bNJU8adRZKF/Kn0qeNEqn/jrwcCp50tg67eYCBSfy
xkLXZPEYHyfyxuJyUe2enU7kjcNXhwcSt5zIG4dOt6xgaWfyxkGi49l+D2fy
xiP3TfWFdGfyxiNEQ+bybWfyZDDwqem4nAt5Miioex7t70KeDA7lO7HyXMiT
hcai9osdLuTJYlLdEb7hNPLkwHfYvCtqGn2/5BCrHN5aMY18OZSEOn0bnkb3
y+GWqMQod1d6nhxYhw/157iSJ489VUO1Ha7kyWPVDsn1Zm7kyaPGoko21o08
eVhs/pB+w408ebiannqn7E6eAsJO3rCMdCdPAZ12DrMvuJOnALmhTwukp5On
gKTaDs/g6eQp4Jljl0bZdPIUwXs/cGe0B+2jiC65L2FBHuQpoqX2aXuZB3mK
WPY8y0bKkzxFNOn8GPnBJk8J9UPj8qo9yVOCVE1xgZIXeUqwTm7cssqLPCW8
53p63vIiTwmvN2t9Np5B3gTofDBNTplB3gS0tQUPvJhB3gRU+x92dvYmbwK+
z3m6rsibvAkIKPieLu5DnjK8yl5vifAhTxnqH7YHNfqQp4zelFsTLHzJU0bP
ktyyXb7kKSMw9J7lF1/yVFAmFZ4RPJO8kfPrdrfrZ5KngvRm+15zP/JU0Gfg
25/rR54KLI8Et/7yI08Vs9967Vs2izxVOK8Zbf9wFnmquBq/stbJnzxVlBus
Mi71J08V2u69K7Rnk6cGr8P392TMJk8NL8vECoZnk6cG1daw5JVzyFPDYdNO
j2dzyFPD95K5A35zyVPHBrOK2Ia55KnDd9LjZ7bzyFNHq22Jcek88tSxca2q
t1EAeeoY1T8062AAeRooTLezmRBInga+fa4ZzggkTwOLy5ceGRNEngY+Kuqy
tgSRp4Eih4aU4SDyNBFmjIbY+eRpYvqBNS8/zydPE8e4ji/WBpOnCe2g7VcG
g8nTRPecSRtjFpCnhdrJJoofF5CnBdaLqTv+CCFPC+vkIzq/hJCnBTHv9Qqb
FpKnhclf5hr8WkieNuocu+W3LiJPG+fYch1SoeRpIzb7z23ZoeRpg9E5JKO6
mDxtPJvdGH14MXk6UE+TqWCHkaeDU+3e98vDyNNBpN/y247h5OlgbZXL8aZw
8nQQeO7vgLkR5OlCo7y0uytCcL2aLqIVxOfFRNLvjS7+7c09IrZEcL+XLioY
1xs5S+h5ukhr+XjTYKnAS9RFz7SkE5VL6fm6eK94K8R9mcAr18WHbWUfnyyj
Hl2MrVcMX71c4L3ShfjVe6Wjo6hPD7HTb7TlR1GfHrTFHz7iraA+PVxc+qSq
aQX16WFpU+XKxSupTw/nvZxFh1dSnx6O9yxauW8V9elhXFJfJW819ekhq6yx
7c5q6tNDvcid1uVrqE8PMTcenZaKpj597LNuCjgVTX36OOIX98Ithvr0kTHc
7Pomhvr08ev9/uTta6lPH9tKLuWZ/UF9+ij6U2n7nT+oTx/dOvEzo9dRnz68
De4PKK+nPn3oHu+LurSe+vThsKLsSugG6jPANM3BbqlY6jPAcbPs3rJY+v4Y
4HHP4qbAjdRngA2Z0xPEN1GfAdYoaEqXbKI+A2jNq1oRGEd9BliqMnhKIl7g
lRtg/H9n/y6Ppz4DHDSoOb4ogfoM8LeeaKTcZupjYcoPn19XNlMfCyjeunJ1
IvWxEC8VW6GXRH0j11+VaGlNoj4W0oLG1KduoT4W4uCfYZtMfSzYlDSY9yVT
HwvadZOPHttKfSwMRSf2BKZQHwu6u2JlFFKpzxCnbn0Xb0qlPkOsO9t5b8s2
6hs5zxteY59GfYZo/Mfizec06jNEe5w7//x26jNEzk7DWSt3UJ8hNj4pcDNL
pz5DPNNKlXubTn2GkHx5ofjkTuozRGDhOJ3IDOozwtL988KMM6nPCI7fYuLf
ZFKfETbctF52Jov6jBDRvdZ0RTb1GWGKnmQNZxf1GcFqfAPr0y7qM0K5ecqC
6hzqM0LGU43libupzwhj5i30cNtDfUZQv2jyQyaX+oyR+tUjsS2X+oyh0lvw
8PBe6jNGse/Hn8v2UZ8xNlUZfbPeT33GmJQrdV00j/qMoeoUHXonj/qMwR+w
bsk/QH3G2FnNll+WT33GsMrW17cpoL4R3/3TKKmD1GcCXt66qkcHqc8ERaqb
bP48RH0meO7QtjO+kPpM0LUwpNT3MPWZoLj6dRHrCPWZID7cJfLbEeozwbv5
04fuHKU+E2glNM0/XkR9JnizLT8z7hj1mUBCIzvL/zj1sWFZvSnE4gT1scE0
cX9KnKQ+NlJyUpY/P0l9bFTYe5y8dIr62Jj8wK9s/2nqY8PXM3r7H2eojw3b
NZusZv1JfSOf/0AR9yz1seGUktslV0x9I89P8xzsL6Y+U8iFW99tOUd9pvAI
MdxQXkJ9pkg41NOTW0p9pphtuZATW0Z9pqj/6c0En6c+U/C60tWdyqnPFEf3
vak1rqA+U7RXTbKWqaQ+U2TVu639VEl9psg26Ulor6I+M7y2+urf8Bf1mUFx
vO3nkgvUZwadf5NDD1ykPjP8k3kiL6Wa+szwTikmf83f1GcG04nVkQsuUZ8Z
thd4/fS8TH1mWNs1tMC2hvrM0JqWu519hfrMMKfnfbzaVeozx9b5LXbStdRn
jg9jFOu+11KfOYIltyj2XqM+c3wO7jV/Xkd95gjrN5Z9UE995viR+fNi43Xq
G7m+f6rFlQbqM0dqZe2SyhvUZw6VsBlRZ29SnzmCoiomH2ukPgtkGDU0FTRR
nwW2t8403HuL+iwgcdDILbuZ+ixwPleRk36b+iwQcPF1Z+od6rOATs+aOcl3
qc8C+34l7k68R30W+HLqxd6EFuqzwNT0JQvj71OfBZbwOvriWqnPEjFKitPi
/6E+S1za9SAk4QH1WeLnx0Em8SH1WWJPjP3LLW3UZ4kMi3if1H+pzxIfLLYm
7HhEfZa4s0wnOusx9VlixXVN09wn1GeJrdIeJ/KfUp8l3AfWvjraTn1WKNFd
3n2mg/qskGI4VFbeSX1WOBHXZ3/5GfVZQS5TNf3Gc+qzguk5p4L7/1GfFRq1
7FZ3vKA+K8RK35V410V9VtideSvk60vqs0JU2fBGidfUZ4W4SN68CW+oj4OE
nElfWG8F14/joEy0ba51N/Vy0LHmWazrO8H9RhwcytAJnvee/r/hYFXPQtHl
PQIPHLxUWROR0Evvw8GjJM2dOX0CL4CDpEyr6JP99H4c7Mlap3r5g8CL4SD/
+uWE1gF635H7Q1qOdQ8KvJ0clMTF7xD7RO/PQSE700rjs8A7wUH84ru7J36h
/5dGPlce/5f3V4F3lYPv2op5S7/RPhx4uBfbpAwJvEccuHif3H/kO+3Fwfmn
zZU1PwTe4Ehf1tvsp8O0HxfrBm+yv/+k/bhwTZmUqC4SKNiPi7rzw7ttRQMF
+3Gx+fHbsCCxQMF+XKh4NQzEjQoU7MeFr/sCh0LxQMF+XDiLxrtcGy3wAkbu
P9Az5pWEwIvgYhJ70zZpSYEXw0VIRf81KymBl8hF50S16tnSAm8nF8W5V6Li
xgq8PC5+lJ97XDRO4J3gYn5I2ajm8QKvnIuegJzXH2UE3lUuoudppmrLCbxm
LtLE1Dvd5QXeIy7qB2YPxCgIvFdctFYduFKoKPAGubhw97xrs5LAE+GhuWzJ
tm8TBN44HmSupyYZq9B+PLDD2ybOUaX9eDj2nHUkRY3242Fcgk1DpTrtx4Ny
dGfRKw3aj4eat89sVLVoPx5iR0umeWjTfjz4PNbOjNeh/UaeH93nWaZL+/Ew
95Zz7Us92o+Hzkcve9QNaD8eklILW3xZtB8PK0pso7YZ0n48MCZJl2uMaD8e
bKrtr382pv1Gns+anGzFpv14iNSw/bLElPbjIdRDVq/IjPbjwd8vUaTDnPbj
42DTnFw1S9qPD4Wp8ztnW9F+fBjZBnbkcGg/PkS46jn3uIGC3x8+zu0LH5Lh
0358OLaNVvGeSPvx8cKn/nWGNe3Hh3HAsqg7k2g/Pvqm1h6TnSLwYvho9M3J
nmlD+/Hxru6E1R5b2o+P0JYbSW12tB8f9idrUjUcaD8+Ti33d1zoKPDK+VBy
8Dt1nKH9+PDhJdW/A+3Hx/nAMzk8J9qPD/eavQobnWk/PtqDZV2uuQi8QT64
/Hajsa6030Sochur/d0C8T9u4hGC
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91nlcTPsfx/H2Xdr3bZqaqWmZTUTlvCniCmXJkoQu4kdaLL9EXLq4xLWr
K2RLiuJGdkKS3UUlbpFwc9tXLVN+42c+Z/7p8X3MOc/zmvej5hFn3rJJ81WU
lJR2KSspff9JrxTPq7XH6ubhj7Tvr9PMzOfuA4+z5yvM5fPJG76fB0m/v+4y
0cW3R55g33/AePTUTDwpP//QnjNJorrTmez1L5mnAeXBWfLzwgXfX2XMfJ2s
gGz2/gomKij81zPy85PH319/MzVPOo3yWO89c3ns8obz7PXVTF5cqclF1q9h
lrZZ/naZvf8jszx6xE/X2ed9ZjyTxk0vZL1apuLCkPwi1vvCZKSrhz1gvTrm
10sXJj5lvXomel3Arpes18g4L7hgX8F6zcykUtXeKvb6ZibJU8L9xPotjMmj
4al17P2tTJTMZWYr+7w2Jku3Oaqb9dqZ2qF7ipTqyWtnuIWGS7XqyetgxM8W
zzOoJ6+TKfv90AmLevK+MhccT0s59eR1MTMyUgYKWK+LEVsGektZr5vZt6/8
rC/r9TC3Tf1iRrNeL1O+a+W6YNaTMbXdG97OZD0ZU+M1N3k+6/UxWc4Gq2NY
r5/py9hxPZH1vjE7V70dt5n1lKAS28Hfw16vhNdBb4OPsL4SfrmzrThHfv7/
7VJlRP6i/ttl9nnKKBYFpt5jPRXULpvY/oL1VNBSanPoPeupoK/l7O5GtkcV
JuOUS2Wsp4pBc0x/1m0gTw2BWbWMVQN5ahDtTohybSBPDYXJxZXeDeSp42bV
kyNjGshTx5fO7bnTWU8DrdbqOotYTwOb94r/TGA9DYw5YnhqK+tp4knc8dqD
rKeJ836fVp5lPS2s5ZWG3GI9LdwZF5vwF+tpQbXoUkMN62njwaHM3E7W00bq
O5/r2o3k6aB18woz20bydBCxPeSGqJE8HcyrenIuoJE8XWyeW9s8vZE8Xczq
OLx2KevpYXlMU+gG1tPDoqPlaw6wnh7eTJjadIb1BiB+yILcO6w3ADWGWldf
s54+GlK8jZpYTx/TJ3YUqDeRpw+lLp8smybyBqLEVueztIm8gTg9MTxmXBN5
BjhtIg2MbKLfLwN8rNuyOLGJfANsDpr1Zg97vwFKT2bvP8M+zwDuEbFH7rGe
IbrLz7ZXsZ4hShaG7+9iPUP4z16bbNRMniF4qrq33JvJM0TIftXRgc3kGaF4
4s+W85rJM8LRCMHQtc3kGcGxcdLJVNYzQrb12/ALrCe/X6lw3nPWMwYntz+/
vpn2McYe970h2i3kGcNm7VofXgt5xqhJvRTr30KeMfxjmfY5LeSZ4E6T4d2k
FvJMMLDTrSqd9UxgPnvrqGusZ4LGbtfuCtYzQfUeze4u1jNFQqP9KItW8kwR
U7Ssckgreaa4VNJ2e1oreabYmJnVuqqVPFOMVN62LLWVPDMcXn7A+wrrmcn/
3h6Of8N6ZhA0OOT1sp4ZZCoHZtm2kWeGgkmuoUwbeeaYEfLq4Nw28swhWbLX
I7mNPHO80Fqge6qNPHM4/jrK6yHrmWPyEGFOA+tZ4PNS+6WG7eRZ4M9lRole
7eTJ309UK53RTp4FVB+2rE5qJ88CH34rW3K8nTxLXKvJzS5hPUvYdK0c1Mh6
lpC9E+iYdJBnicwzxW7DOsizxMuFo9PmdJBnhXTjzEmbO8izwtrs6mm5HeRZ
IdK+I6uU9axwJPzvUX2sZ4WWMXs8nTvJs0bKDdPI8Z3kWUNvZ0TNik7yrLF1
+5K8w53kWWN7ovf9+53kWcPc4paghfVscMxSVmH1lTwb8IR1rwK+kmcDa6Ut
1su+kmeD5e5Pz6Z9Jc8GOUFXthV9Jc8WN1oCLjaxni1EJ5cIrLvIs4XBF7e6
0V3k2aJrSNLXuC7y5O+rR0w80kWeHYyuP2h91EWeHcbevlLdxXp22B0rsOF1
k2eHKEfzY5O7ybPDG05i/C/d5NkjtSBkZ143efaos9/fVdlNnj3u7PM/o9dD
nj3Ojpma49NDnj2q5xZ3LO4hzwG+qru3/UHXWzpgbGD+koc99H3jAL8Rzmk9
dH+QA/pkHwzceul5DnBa98/LsF6Ft94BvUUeH1J66fkO2FR0zudmr8LLl5+X
/Od9Uy/1OCD2xPTnHJnC++yA5KB43Sky6uOgwK9g1yYZ9XFQNNYm8oqM+jgY
7JOxrl5GfRzMKPX9x76P+jgY9ao+bXIf9XFQU599YHMf9XHQ9Dj2/bU+6uOg
zcp3eXMf9XEQulJtsnM/9XEQsurempn91OcI5byElt/7qc8RM05Zn7/XT32O
8Ko5ea23n/ocEVJlZCj5Rn2OCB4Qfj7qG/U54mZlUvqRb9TnCIuCuBdl36jP
EXc6JJP1lSIVfY6w7rhiN1p+/tHniKXqKl5J8vOPPi7UYtX3F8jPP/q4sE28
OaJJfv7x+8NFVwTf20VZ4QVxUTZlWMJcZYW3gCv/f6BF7aCywlvPRapD4NtX
ygovjQtLxkumr6Lw8rl4Iru4cKwK9XFht+SubbIK9XGxJXWa3S0V6nPC4U1L
FvWoUJ8TVAbJ+r1Uqc8JCQeU3sWqUp8TPmTEa+eqUp8TvIdOTPpXlfqccHzk
dj++GvU5YWEqP/BnNepzQqe+xcGjatTnhJb46UPfqVGfExx3fODYqlOfM36z
PTclTJ36nDH77dW/0tSpzxnaq2Wpr9WpzxlDT0Znm2tQnzNeKOtqTNOgPmd8
83iUs1+D+pzheTvrYJkG9TnDJOhQqZkm9TnjwvRjM6ZpUp8zZi0+z0/VpD4e
cvvuMhWa1MdDxpaXR620qI+Hdasrxs/Soj4e2n2e+R/Woj4elIW5G99rUR8P
RnnLBnC1qY+HVoMB1fO1qY+HsmPr+rO0qY+HGWcK59drUx8P26IfmIl0qI+P
Ou4ew+U61MdHlJJ56GUd6uMjTjzho0yH+vhoqBRfH6FLfXz48a5VbtKlPj6C
nGrGPNalPj6S6471GepRHx/lW9p6p+lRHx8lKk/9D+tRHx8LZ7iVftSjPhdM
2aR2zm0A9bngwZpJr+IGUJ8Ldrvqj7w6gPpc4Bgv6lbWpz4XbBj6Z/dYfepz
wcLQFP/d+tTnAqdDl8re6FOfC26+cc/nDqQ+F1SXfny9ZCD1uaB5wuvAgoHU
5/rjpwH1ueJN+hTlnwyozxU6L5+O22tAfa54MXbhuyoD6nOF3zGz666G1OcK
q1Wl1csNqc8VKuHpwYWG1OeKKR8itfSMqM8V43530p5uRH2u+PdT2aQTRtQn
gOm8+E/NRtQnwMaE1kI/Y+oT4PnBoE9bjalPgBjJ6kmvjalPgIcZ8Vo8E+oT
gBMg1lxuQn0CnI3PmXDHhPoE2Lv+TZWBKfUJUH+x4FKEKfUJUDLduyLXlPrc
IM6a5t9vSn3yc6Ve53gz6nPDS0FwyyEz6nODy01Lr0Yz6nND0M25t4ebU58b
5gU57P/dnPrccGrj+Pz35tQnfz+h2kJiQX1u6PV9VbzRgvrc0FJue6PUgvrc
8X58QS/fkvrcsTV934bVltTnjvJr+SFPLKnPHRWHtBY5WFGfO156ppTEW1Gf
O8RTB8fct6I+d2S09EdYW1OfO2RVlQeWWVOfOyJbH5oXWVOf/P7eG+8sbKjP
A9p3c5uW2lCfB0oH7Au8a0N9HihJi/rHwpb6PLDInvMs2pb6PLAjpKC/yJb6
PLCw0n6ltR31eSBx8VSvODvq88CFPyb4PrCjPg/M1lHd5mBPfR7gBy/m/Nee
+jwh6Ev89sye+jzRnC50dnGgPk/EXFyze70D9XnC+v7MwAoH6vPEm6Db/hIO
9XnC+Pqpzds41OeJzGR1408c6vOEiuGLT8Mdqc8TVsVqSmmO1OeJxar75rY5
Up8QatzVOhO41CfEtoScniwu9QkxLNRBouZEfUJ8UXl+LsKJ+oTQKTq/8poT
9Qlx/fX1jebO1CdE4era8nhn6hNiXZVb/HNn6hPCSpo01YNHfULMPFaWtJVH
fSKUBLs3/cNTXK8nQmb4ysxRfOoVofFDzonjfMX9PBEWddz9ouwSqfj/RoQ/
TlxcMcdF4UGE0p5VY2650OcRYXif8jw7V4U3Q4T7OT/dWetKn08EH+Wxiypd
FV68/NzWFuonoM8rwvi4kdsOCRReighli9w0+gX0+UWwKzx5f7abwssUISw0
69ktN4WXL0KelsCO467wCkWQ5nLyN7jTPiLUWWza8dFd4VWIUGk64dxoD9pL
BIOlMRanPRRemwi/VtcU63rSfmIEiI9ci/ak/cT42TSt8y9P2k8MjZElq7yE
tJ8YsxZwmTQh7SdGnvvRoD4h7Se/f5h3xlwR7SeGTPhuaLGI9hPD4nSKpZuY
9hPjF98hzE4x7SeGy5rS7A4x7SeGsCN8VpiE9hPjs/D+5NsS2k+M8jzNXXwp
7SfGnTZTkx1S2k+MUytq/26X0n5ilGSvqAsbRPuJcUb1AnN3EO0nBrc+rULg
RfuJEfzI9spuL9pPjOOqg6t6vGg/CT62vh4TOZj2k2BQq6zr0WDaTwLT0NTG
QUNoPwmioo+6Hh5C+0mwapN+tqY37SdB28fSZbHetJ8Eqo8bVr/1pv0kGJIQ
9GjUUNpPgjTn2jnnhtJ+EuSqX/KxHkb7SbBubF7YpmG0nwS7bO4Xtgyj/SRo
Otm+ONyH9pNAquU584EP7SfBprmLdnj50n4SZDxK1zzmS/tJUBZ2856+H+0n
gSG3qCTRj/aToNrjhMEXP9pPgvjkKYdCh9N+UhwVPIouGk77SfGvfX+yhKH9
pFgfUfMug6H9pBj/PmbdQND3j/z6vemRSaD9pLj4n1kpDaD9pLg9IbN71gja
T4p2bkzO4xG0nxR1j/OO+o5UePFS2PDD/j4zkvaT4rFuVJitP+0nhW7wY7sd
/rSfFE+K1vK++dN+UlQOjouLCaDvMyk+RR9R+RBA+0nxX3Fv2eRRtJ8Uxkxi
071RtJ8UFlNMg7xH035SvHO5VZ89WuG1SXE1Nvov20DabxDqqyx6dsrP/wM+
WkXo
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 50.07719765405938},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226984723835*^9, 3.768227164668373*^9, {3.7682272109577103`*^9, 
   3.7682272670547533`*^9}},ExpressionUUID->"370e4ae6-f103-42cc-885d-\
1e6fc3443410"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxd1nk41Ov/x/GJElmTnco6lplhFi3aPq9Ujk4qcYQoJVmStZB9siVr0Sbp
oHJC2qQOOWlTKUqlBWlPpY20STrfzq/3/PO7/3HNNff9uJ/e1+f6XGPgHeK0
SorFYm0ZxmL99/f/r10F/61yRv7PBZeW3Zdhfn2uZar2yj12v6/BWIv+W+cZ
o5Vf7aebGND3TcyOEYb2dvfZzC+llWFlyMfOyefS/lvMQePgSXomAsbP9791
h4mzDXXLYVnT+Xbmvrf9iy+dE5mW5v/WfaZzd3OF60kb8h4x09J7Aw7mTaP9
j5n4nsuvPwYx5D9l4o5eGtxhPJPOP2NejXK2sMyzpfu6mcaK+avq/51F3kvm
wP7tKrZBc8h7xbReY28+3WFH3mvmYoaqvcDenrw3TF9x5u6CmrnkvWNiFZ72
fTacR14vM6I546D9Zgfa38uEHdEU5AzNJ7+PSbKY9ezi6oV0/gNzIjNSfSDQ
ke7rZ5QuKtVsNFxE3kdm/8JkaeX2ReR9ZFS1k6tzcp3I+8S87rwVJWPnTN5n
pnzISTryuzN5X5jesM+yXcf+IO8r86OwZerUABfyvjIxVlILN49fTN4Ao6vS
/qnz9mLyvjH3+dVPx2a5kjfIKIYrNbvYupH3ndmbkOad/NWNvO9M3IHbS8oO
uZM3xDSfv+1/2mcJeT+YnGEbcFXHg7x/mXuXP2xrbvUgj4U1uf5jz6V50n4W
3hyxzayctpR8FszmjNia/mEp83/HRcPg+cntjduBZXTfMDi0ys/VW+ZFnhTS
lTZZvZJbTp4U4refD/vHZzl5Uhipcbcxo2E59UjDbn20zCKdFeRJI9AnQkkl
YgV5w/H7voq/L11fQd5wjMpQehRl4U3ecHi5HPTST/UmbwRUd+5XPfvQm7wR
qC4QtrlPWUmeDDrqShN7tq4kTwbb7nr2hr9fSZ4MuOUPh/XP9SFvJPRMz+Wu
3udD3kgkv6iOaP/hQ54sihPicxn3VeTJoqGLVbu7ehV5snA8anOtV9GXPDnY
nJ5eOdXflzw5rJ0xnRt/zpe8UWiflsyr0fMjbxR4vRGZTyP9yBuF+eo7DGVv
+JEnj0P2KdcNOf7kyaNv2ZdgUao/eQo4WX+xy+ahP3kK2FP1/OsEmwDyFOBd
51Nkmh9AniKm/Qg7oPQ2gDxFTIh1/9Jjt5o8JQwLTvWrL15NnhJiixPuJH1b
TZ4SLp96YzDjj0DylMEu2G76riqQPGXw8rwb80auIU8Fiq2L2zkr1tDzpYKu
goKZtXVryFfB+NKw+1PUgui8Chyc7dKPBAXRfSpYo1tspHMpiLzReHzCLDtK
P5i80ZgVU7n3cnQweaNhXqhup3grmLzRP5+/SOc53BDyRgOP/q0ITQ0hTxVD
rjLc3Ach5Kmi7TDLo1U3lDxVpHTO2epkH0qeKuxbjwqurQslTxV9WyYYzSoJ
JW8Mck3b3I62hNJ8xqD4VOk5rW8SbwzOnLrsGM0OI28MPn5J7L/pFEbeGPid
VSs0SQwjTw0HZLsnhVWGkaeGqNhVdTV3w8hTw+hSzTH90uHkqeHbYL7QnB9O
nhpc9FLl3DzDyVPH4cYD6Ynp4eSpw2NEa/Gfx8PJU4fdgoe2fz+SeD+/z7/m
1aSwljx1LF5R/vLm5LXkaWDc15xrbT5rydNA7cpjUtc3ryVPA1u3Lok8W7+W
PA2sj3qic/ClxNPAJ4Xaxzlq68jThKV4RX0A1pGniSXT1+6etmYdeZqoGLlr
7cid68jTxHGl7aIr59eRp4lF0tOupbyXeFrgciMmTNKNIE8LpdGMx2O7CPK0
YF1QJUgOjyBPC2myLyr09kSQp4WHpma1VU0R5GlD0eHcgomfJJ42lFt1l53Q
jyRPG70mR9p5DpHkacPzhfLx3VGR5Gmj/vmjh1J7I8nTQaXNg4XLr0WSpwNT
p3ufjw9IPB1IS9dcYplEkacDYX5IzSzHKPJ0MPuKVnV8bBR5uqgaulN9qCyK
PF14je2uuHMjijxd6J3Zkfnpu8TTxWgr57nyZuvJ08X0sG13NZ3Xk6cHzuI+
c92E9eTpwVWsbK1evp48PQwEH3o1om09eXrYvrF0xtsfEk8Pl8fdYV81jyZv
LO6I527/849o8sbi6oDqhtWJ0eSNRfv9ZZ2cimjyxuJiZkjB07Zo8sbCM77o
8JZ/Jd44XJvlqjrRIoa8cQjIMzjR+kcMeeOgOGtH7orEGPLGYXBJQP7L8hjy
xiFQ2evEqrYY8sYjpcnl7b0fEm88ZCxm8mzNY8kbD38FTmCJcyx543Fhk2j3
5/hY8sZj+ODmmpkHYsnTx8NvuQeTbtJ+bX2s8MuPrP0eS+8bfQx6q8l1s+N+
nXfQB+NS6i67KI7u08ePnidL9WPjfnlifbhq5Mlb7o+j+/VhrJTkJrge98ur
1ke/Q+EUiwHymvVxKff+X1pG8b+8bn24ty3Z/t0hnvoMoOA68/vtyHjqM4Db
5hvX9xXHU58BvgpWjgy4Ek99Bqgw8ikw/EierwGyEt3iboxNoD4DqOR0lEX8
lkB9Bjh1dpeyclgC9RlgzjGvqqJdCdRngN2aMlEGFxKozwDLLohX7npLHssQ
msX3AmQ1E6nPECol3A2BSKQ+Q7Q2Hi0+H5BIfYawUapuUMlPpD5DBK3bctup
PpH6DDH++fn2Tc/JKzBEb+Hrx0tGiqnPEKvGnJzzWldMfYYYvVdfLZIvpj5D
lMUrzx2cLaY+IzyvjXgU4y6mPiM8me9452OQmJ4fI8iO+osdkESegxHMtma1
3N1Onq8RrL3HXUIleWIjvDieoryvgbwCIzjnfSgd1kZetREMzuyPd38p6fu5
/5/uwsrvkj4j6DTIfvuisoH6jKG0P2DrDJMN1GeM+q9hfok2G6jPGMufbQ2p
m7+B+owhy3Msf79iA/UZo4fDHT0+kjyxMcovndprn0FegTHCgnYvXbOHvGpj
DMlFTs04Rl6zMfykBm1KL5LXbYx33JcuxzskfSbIahqedeadpM8EKTGG7Rel
kqjPBIenjZ1ySSOJ+kxwy6uz8qxFEvWZoCZhPufEjCTqM8GkqOCafU5J1GcC
vves37J9yas2wezMzq6QGPKaTVDs7xjpkENetwmS8xoVjUrJY7HRVudf0l9D
njYbgfvCLE83SfrYiNAxPJbUJeljY9uLRvOZfZI+Nka0HMsbGJ5MfWzsirbv
qdRKpj42SsS9PDduMvWx0eA4zuMHk0x9bOy3WBiyxzmZ+tg4qDnKf7IfeSxT
RDx6aNscQ562KVykA4fcc8gTmeKfioXbHpeQ52CKtL1TZVfWkOdrCmvnbucH
lyV9plA6pBLpfF/SZwo7Xuqac+8lfaZ4cUFzAkc6hfpMcb19f0u2Rgr1mSJ1
koZ1j3kK9ZlBVsbdF9NTqM8MKQ1+3psdU6jPDCz2HHbHSvIczNA7eejw2Cjy
fM3QaLF/aEkGeWIzLF/soZhXRF6BGcTWv3WdO0JetRk0FxUEvj0v6TNDKTJP
jL4r6TOD6zaveqseSZ85fNtWxP42JOkzh15gd5+bSir1meP93t/H+RilUp85
cgs//vCfmEp95vg8wTnPb24q9ZmDGfPgjpdnKvWZoyRF/eqiEPKqzbFwQ1LQ
9CTyms1hW3ii3nAbed3mGPVx3slhB8hjWSBB8Nyjo448bQvsCueVH2yR9Flg
YNa9ovWPJH0WqNxaMnlGv6TPAqUV89cPjUijPgvEaJZ7nNBKoz4LPDuY/tif
k0Z9FrAMa5JVn5FGfRa4n+/YWueYRn0WkPKWn7RkJXksDm5MeT+1P4I8bQ76
kge6UtPJE3EwWGSlp1pIngMHt+/t+bSjijxfDqT8PQM0z0j6OBjjmhq5+aak
j4PX8TP0pJ9L+jgwjDjuHvJF0sfBlAxdy9tyG6mPg5HHD++01ttIfVx0pR3f
mW25kfq4eGsWwXuEjdTHRZDd7MVc543Ux8XQiDjV8FXk+XJx8nv8iqNR5Im5
KDastu3ZRF4BF+cvZtbo7SavmovA5MRa+0PkNXMRL1RcEHxG0sdF6uO68Oyb
kj4e2BfVTcueSfp4MBMeW/33Z0kfDw0bOdMvyKZTHw/3eMZ7mnTSqY+HeSlz
si9z06mPB7l7zKizM9Kpj4ck1ytq1Y7p1MfDEZm9B/d4k9fMQ051zo3kdeR1
8zC3xy3ZO408liViXt06O2UnedqWSNl+L0uhgjyRJR6E2T27e0rSZwmnTOnL
u1skfZaIiPw+yeOhpM8S12YYW4/pk/RZwtNzXf0FqU3UZ4mOv960hqhtoj5L
8Bbmh6mxN1GfJW43rdtzbNIm6rPC5Ja9rr/P3UR9VhDMtCnqXEKeyAop1n+E
+K4hz8EKC25oX+uJJ8/XComLamr9c8kTWyGu31X4qJi8AitseTd58qJjkj4r
RPttu3rqvKTPCuqrjrwZf1vSZwXpxpuF8d2SPj4M+PPa277QfgU+/JWD95vI
ZVAvH3HibaxQnYxf59l8+P1u8Lqak0G/b/jwuhm5qm9axi8PfBSpDAs1W5BB
/w8fWql8eXcv8tz5mMmNnZQcSp7vz/vXeX4q20DeWj6GC1zmXMgjT8xHfN5r
08695GXx4atVWfT6OHkFfNRuNP7rUyN5ZXy0PHw7e+AOedV8GC8sjfr8grwz
fJwwe8K8/UpeMx/f7jnt6ZLL/OW186HYuSf/kk4mzYuP7qoI/UpO5i+vn4/s
psw56dMyaX4CxG3dJe01P5PmJ8BRt+UeVsvI0xbA1qZ4/kAweWwBdpgadtYn
kicS/HzfHBses5k8COBzyugqv4Q8BwHWvPnd6vFR8twFmMWTFmaeI89XAK12
TpvlLfLWCpDQcUCj+Sl5YgGMSry/eX8kL+unr2kn7h+eRfMTwGrn7PJ49Sya
nwA7nzlHDmNn0fwEuKcd/DJhYhbNT4DBsi2sz3ZZND8B3tqebfB1Ja9dgLlP
pE1v+JHXLYB/lc+kCevJ6xdg8ecPfXnp5LGEGLQ859qzkzwFIdQevgqYWk6e
thChu1LN02rJYwvB/XJ8x5Um8kRCnE8urJHtIA9C5P+zPAU95DkI8V2GPyL8
G3nuQjwummxTNCqb5ifEhy1VBud0sml+Qjicamx4ZJFN8xPi4pFTagNTsml+
Qlw43WIgPy+b5ifEhq7pLzU8yCsT4slfiwL0AsmrFsLEyalMN5a8M0LkFWcV
q2WS1yzEpAeO7iMLyWsXouXWhxv9FeR1C1F2ukm+o468fiF8fuPL1l0hjyWC
RXTK5fwO8hREiPnbdIFfD3naIsytS9hl/Y08tgiWsX2HBuVy6P0jwqqJr7Pq
tXNofiLwl3ZMiDLPofmJ8CabX8mxyaH5iRCY6f2u3T6H5ieCi/VLVpIbeWtF
EMdMe2bkT55YhKVLugoaosjLEiHu5jwjl43kFYgg0ymf9Gw7eWUihC7ddzKo
jLxqET5y/mzsrSHvjAgOA+lVQY3kNYsQ7tgX+qyNvHYRPLNWj3Z5Rl63CDev
b9rc0E9evwgzhrrfG0nn0vysUXJIT5Ckmsv8D/T6UsQ=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd13lYjPv/x/FJWrSX9kX7tE01CzppuV+VUgxSade+L5LIdqIjnMRRhESH
FI6SrSn7miVLJWSJzrEPskX2tu85v97zz+/+p6ur+/O4n/O65pprMo3LCkgc
wWKx1kuxWP/9/P/X1vL/rhrGvPgxK6ZL7D78+3FGcce05qiur+5jBf9dF5hg
qZV/eFtKMcN/v8rsrx71JKxLlhlW2pkF0lnn00uVmOH7bzPm8d993SzVmeSk
/667jPMc8YMmliad72TKZMx8fbq0mdaW/64uZrrRVM/mo3rkPWZYRYpLvEsN
6f4nzA2e9K5zs43Jf8bUWcx2MrQ0pfPPmczmSp+7G8zoeWLmV885oetYFuS9
Yp7ebfCeONuSvNdMV5zvy28P2eS9YVyXyWrX+FmT95Z5WNFSG3LUhrz3jJnZ
4qXSlnbk9TCuhT2pdRs4dH8PU7NwtE8Ay4H8j0xe95U3nzMd6fwn5sWOfr1r
mVx6Xi/z6+HmvjILHnmfmaHsU3IJD3nkfWZeKwTaOmzgk/eFOasl4//VV0De
V+ZS7dTEU0MC8r4x67NqgvOPjCXvO7N392Y1z8xx5H1n5J03LZOyGE/eD6a9
jV1y5sF48n4yTbfbHBatdyKvj7lcpOHL8/2FvH6myGDRFfHgL+T1Mx8r11SU
NzqTN8DscrpzyC9jAnmDzBKlZx+/mrmQN8SopE8U7ux0IY8FmZaiOt8SV7qf
hdPP/Ibe+riRz0L2IR3eugE35v+OC6TQVbjWgdPgTs+TwnJbr+eX0xjyRmAg
PsP4oBrIG4Eja3K1fqSDvBGI566f7NEM6pGGymWVxt/NPMiTxmcdrykteR7k
jcTu6QXSqp0e5I2ETb9lx/SxnuSNhIZegWhdsSd5MqjV+lx2vduTPBm8eXh7
gayPF3myOHBvqR+z04s8WdQMBEjn9nuRJ4vCWwe31YZMJE8OPdlf5f+un0ie
HAo3rfZQVvEmTx6D21pdXFK9yZOHVon1+6SL3uTJY7HjiOklxj7kjUL3xwtB
Rxf7kDcKBmqdXx7e8SFPAeVFB6wHuZPIU0AXV/TMaO0k8hQwam+IkcvLSeQp
QnmuSstMT1/yFDH58xRx5p++5CmheumquILvvuQpwStgvNPmQD/ylPDr3jvh
ew74kaeMquOPL4hGTSZPGS0X7qScSZhMngpOqo/D5bOTyVPBOqnfcF1/Cnkq
WKnoHtM6fwp5qrh/5dOmlvYp5Kki5afV/St2QvLUkFGcYtS0SkjvLzW41nlE
HnsiJF8Nbw95rtnnOpXOq0EaA5XbyqbS89Rg7S2zsfDTVPLUcaCvJ3zu1Gnk
qSPyS+jb0L3TyFPHLZP77q7S08lTh7Bd0c8wajp56lA7Vyr149h08jRQqLLa
8fUof/I0cOSSFifIyZ88DeRtvpB9OsGfPA20B77ss9jgT54G5LTvXSo660/e
aPS7dV97/9af9hkNn4WLZGfozyBvNPLP/ZNzeNIM8kYjPWG+itr8GeSNhrnc
1psZVTPI08TkXbXHmm/MIE8T/FLZsyYDEk8TCkUqjxfYBpCnicFKC53WkADy
NBE9sy7aZGUAeVpoWqvQmF0fQJ4WNLbs1jj/KIA8LZwc/yJHRTmQPC2Iyvkd
YRMCydPC9qTvDtXJgeRp48GJqmXdGwPJ08ZKhx3nHZsCydPGpnuRPXM/SDxt
PBcK5RoMg8jTBqfmkVSvXxB5OlBZV/TQcUEQeTowtGoqTtsVRJ4ObnAG9Kpv
BpGng4KXovmdgxJPB1n8mO3KnJnk6aJyaV4xEzaTPF08vVM4MWvVTPJ0cfZv
1vEK0UzydBH0IPFV8+OZ5OnC/7BzW49yMHl6uP52KFHHJZg8PTifcdvnkhJM
nh7GSS0un7UpmDw95Li7cfKagsnTw5oD6tFbP0g8fXS6Ftg3GoaQpw+/IuPS
Vr8Q8vRh3zN/zbPcEPL0MbJAR+NbdQh5+piqVWYmfzOEPAN4TVh9THtQ4hng
gO+KG2Z2oeQZoGSWSTwnNJQ8A3yM+jZbsDKUPAOUDe5671QfSp4hjp66/Lfz
o1DyDLGvu8/JWSmMPENs3//i+zjnMPIM4SVlZchNCiPPEHEnEv60Kg0jzwgH
V3svNDwXRp4RXAez96q8k3hGMC7caDOoF06eEcYtCfvW7RNOnhEK1bOU7+SE
kzcGUrNXJp+qDCdvDMTbp0ntbA0nbwyWVC69u/ynxBuD36OvP421iiBvDK6c
fGvqHhRBnjHWFFUU6/wWQZ4x2OWbrd7vjyDPGKkHt7w4/yCCPGPYb4i7tEEu
kjxj7JM50hQzNpI8Eyi3B3faxUYO369nglMnFWQ+/xFJnzcm+Lu83OP4CTov
NMH5ia1FS15G0vNMYFyV3TVBc9awl2+Cw7uD+N8wi55vAmGgT+GhzFnDnsgE
aed1HyRtnUU9JsgwqDTXb5417IlN0FldH3OtlzyWKZ4csf5jgUkU9ZkipKVr
l+nUKOozhdfifdVXFkVRnyle5OaszNgTRX2msNmm5aN8O4r6THHs+bwntUPk
lZv++/mXG+jNiaY+U9RVS23pCo2mPlPg8VDtnJXR1GeK2x2RhVL10dRnhoEQ
WU7xP9HUZwZ1569X1srEUJ8ZOg6yItoNYqjPDGuvGk7W4MdQnxlWPPTeGOAb
Q31mGBe60Gl9VAz1mcG3/TCvbR55IjMU9Pbkj1pDXosZPq4fZ+61kzyxGW5U
5GsvOUoeyxzFVh2hh1vJ0zPH0xTBqxfPYuj9Y47Kk1VNuj8lfebo3GEl9lOL
pT5znDt5xX8RO5b6zLG76w/WX66x1GeOz9+W9d4KiB32RObQ4NRYDaTEUp85
ks9rbrNcRp7YHM52N6YIN5HHssBeebFT9j7y9Cyw3jJl1sbz5AkssGBJ4onG
e+QJLTCX/0F4552kzwLqVTqje6XjqM8C4wI+Kajqx1GfBX72lfJtuHHUZ4Gq
Io1CD5846rPATMOVo0Ij46jPAibSIxsz5pLHssTBS3sLlxWSp2cJF5N1y0u2
kyewRIRMe+WOBvKElri6fc2TumvkJVnCZ9ojz2OPJX2WSDvQ3XT+q6Tv3/Ol
bdFXleKpzxInFffr3DCLpz5LBMfWvLr1Szz1WeKj3qv2jmnx1MfGmO/r2joS
4qmPjQ99Fx/dWkyegI3j8fUjbpSQJ2TjaV3+uKt7yEtiY+PG8Nzzp8jLZ2OB
bsaFo7fIK2dj4YKn+nWvJH1szOO/Xbx9UNLHxhel40/WaSZQHxt/Ky+emmeb
QH1WcMiPPZWKBOqzwrbeKk5QcAL1WSHcLafCNSOB+qxweKG8gvly8pKsUCu3
NUduC3n5VrhRGnPv9X7yyq3QoLJZcO0CeSIrVNfPX7W3k7wWK8yQdm1b8UHS
Z4WkNvaoaJlE6rMGhzN/nJNBIvVZwzw/eYYyL5H6rFG1iIl44pNIfdZI0MQM
UWQi9VljbPl+XsFc8vKtkbi99ad/IXnl1lgl/7LWcDt5ImvcUvCEWEReizUe
WVkf33+VPLE1RvKfj855JOmzgbKwadr4L5I+G9S/Vk35ppBEfTZQbTeIOmKS
RH02mKg93jFnfBL12aDH8lCnvTCJ+myw7WRXhDg2ifpsEPlStaFiAXkiG7gp
73js/wd5LTY49eLxoxHV5Ilt4LPU/lD9MfJYttjn/M/0mDby9GxR1T71tOJz
SZ8trALuf234IemzxRfzhz8jVJOpzxbS0o3NLMtk6rPFM+nLEdUTkqnP9t/v
k1mNXv7J1GcLVq7m7SeJydRni4nXdEV5S8gT24Ir9zRQZz15LDvsH7grOrCH
PD07bL8ffdPrFHkCO0QbiWvv3iRPaAf9ug735JeSPjsYnitb86Vf0mcHXk9F
8W8aKdRnB3XHQD9F6xTqs8OW67ZHN7ilUJ8d3LI33dMJTKE+O3hay9ZsTUmh
Pg7sgj/aGCwlT4+Dt6dbQstLyRNwEJKvOlarhjwhBx6G/BPrzpCXxMGP2Qde
y3SQl89BTsPQucWvJX0cbP69yv3doKSPg/ynmrGzNFOpj4MrY+6yr9ukUh8H
V78krRvPpFKfPe7m+23eEZRKffYocJZyk01LpT57XP+h8VvaMvKE9gjvHxnb
spG8JHt0dkU9tKslL98e38pq3heeJa/cHpfXZJU/6yBPZI+bC1wfuHRL+uwR
mffnwfVDkj57VBib6r7QTKM+B7R5hWiMt02jPgdk8m5WrGDSqM8BqRtMj7QH
pVGfA5xyuiL109KozwHKXmXFscvIy3fA59uvhHs2klfugL7w1NJXNeSJHBA8
pz7W+ix5LQ5IV40+kthBntgBKmWKJZWvJX2OWHF15rv7g5I+R+xr6WpR0Uyn
PkfI2nrYe9qkU58jHrdZKOe4p1OfI1KU7NJ3BqZTnyMOln33bk1Jpz5HXFwt
qPiaR57IEW3RBRlGpeS1OGJkX0mjx17yxI64VSmbG3+aPBYXj34W1y2/Rfcr
cTGk/SBkx0vy9biITS7NPd5P59lczGtKl7upnkHfb7joi9McJWZnDHvgwuAV
s/i7Swa9Hi6YmVVh8jMyhr0wLtgaH3drJWXQ6+NisPvpLJMl5OVwYazGzbcu
IS+fixDtDYoOu8lby8W2rxcGuSfIK+fCQmV5KO8GeXu4SB5TpOP4nDwRF73C
bRNsf5B3jos889xzZiqZtA8XzcVdf+maZw57nVwUPFv/QfGXTNqLi7CO8M39
wsxhr5eLK0sGtnbHZtJ+PCiFePTfySVPiYfRkz4cO7OGPD0eQktu3thVSR6b
h64HIqawkTwBD9958XKp18gDD/4jD1hOekSekIda84Rys8/khfFw92JwbJ/8
bNqPh7XLQn+9aTSb9uOBmeb2ehd/Nu3Hg9q6B3vmT5pN+/GweVC2wStyNu3H
w8nzW1VVs8nbw8OWiKxj91aSJ+LBuz56/59byTvHwxll33cxB8lr4aFCR3aB
6UXyOnmQerjQ79F98sQ8RF3Mj9/6jrxeHpx3Dl0IGJFF+/GhU3k/VV4ni/bj
w9S/J/CkXRbtx4faTs5v6cii/fh4/3Rej+7MLNqPj/ZLhysvpJIHPkRhrSXp
S8kT8uGsIjqrVkpeGB9J9dM5or/IS+Ijc976OwGnyMvhI+ZJ8okP7eTl82H8
4kLn6hfkreXj5tUyvulP8sr56Nn25km43Bzaj4/mrS6Xq9Xn0H58JI4+6v3G
YA7tx0eWuDOax55D+/GhXm2imcudQ/vx8XCVfNzxCeSJ+diTp+rXN5G8Xj5m
mTZccZlOHkuAF8fnP14cRp6SAF9dO4qPxZOnJ8DTqf53P2eSxxZgpVu6yHHh
HPr8EUBe4S926nLyIMDVqFWOO9eSJxTAeuPa1nubyQsTIOCgG0t5J3lJAoyN
G9OMfeTlCMBWbDDNaSQvX4CXDStUd50lb60Awdo6JbevklcuQOCGT1VSHZL9
BFjqtGOSwz/kiQQwPbc7L+yVZD/Bv//vFE8s+CTZ71//tHjbvn7JfgIMDI0r
uCWbTfsJoH9W/uc3texhr1eAZqU3QwYG2bTfWKjsTt3obpnN/A/OPyNJ
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nlYzOv/x/FRIZVO+74v0zZNsySV9Hm1l6Z90S5bRaJFOCUnHQ4Sshx0
ZAlZOuGo7CJbpCS7VJYTJaQSCtHX+fWef373P3PNNff9uJ/zvj7XXGM4Y0Hw
bAkWi7VxFIv13+v/X38V/bcOMzaFnAM6wfedR96fYVSjfC11gl862wr/W1eY
RIsL4yyy39PndYzdj1pHreCPziNKEyPl2z24K+EL7b/HFNrMWG6U/cM5MeG/
9ZAZNtb2vXt9FDNyvpnJCa9eqhQsxdxq+G+1MjYr9pwMah3DjHjPGdaDW80b
EsbR/hfMhEb/6w29ssyI387cjLGOl86Wp/Mvmc6eM64leQrMyH0dzPQitYLq
64rkvWZGxVQMPZZTJq+LWclXXtkfpELeWyZt+kXV8dtUyXvHTP5j8m7TVjXy
3jO/blJRmmyoQV4vI/OwPi4kQZP29zIiybeZSX9rkd/HuNl+9Vraq03nPzAn
epZfWz9Bl+7rZ7K4ss92Z+mR95FZFa+/8thFffI+MqoOJvfj8gzI+8RsTlqt
88rEkLzPzNfTo7bMvW5I3gCT/OaBoGeOEXmDTM5o3750OWPyBpmu2IPXPx01
Ju8LM+pP/tHFQSbkfWVCink7B/tNyPvGOJ5+W7Bkqyl5Q8yCvLLMAXs2eUPM
/ndVAZktbPK+M+PcQpQ/5JiR94N5zW08nWJgTt4wY39mvv3ry+bksaDntyx/
+mwL2s9C8VnPg81jLclnQcZBaVVgmSXzf8eFo7B3jpVRrciK7hsF+6i2VMce
K/IksHZVRvKRjRzyJKDw3EFG39aaPAnE1C712PDQmnokUau8RvXHEi55kvhX
qzw9WduGPCmYlAnDHlXbkCcFm7GnnhjweORJoVzmgUfYch55o2G5Wvv16rs8
8kZDlFxRfc6YT94YSL28dLl7IZ+8MWhMTO/Xq+WTNwbfKt75BqgLyBsLqZuR
N5YlCcgbiwNf/5115IyAPGlEtx3XbZERkieN9PDe92NjhORJY+G2G/eFR4Tk
jYOfwez6uB9C8sZhT01v4+oAW/JkIF20teX4HlvyZBCmk9fd3GdLngyaFZ6x
RrlNIE8W2zc2K5ptmUCeLHb9sktH9GoCeXKwC4nUTbWzI08OVjn2CptX2ZEn
BxXpOX1Vj+3IG49ldRrVDywmkjcefv2ZCz5lTSRPHk9UjkmpNEwkTx7+Ov1L
+Lr25MmjYWraDb/59uT9gmuLInuSLtqT9wvYa1u68hQcyFPAPhnzqh3THej5
UsDL2wumVFY4kK+AVu2Xh+okHem8Avq2nqx/GupI9ylgQrDmsQ+ljuQpou6G
c8DoAUfyFNH1PPKQmvck8hTh1L3zJLtoEnmKMD3qvGjCm0nkKaI5OLXddZIT
eUooy0r86l/gRJ4SQuwiT0W2OZGnBIVx2WozuZPJU8LnLgmV5N8mk6cEZQ+z
8rSmyeQp4+qQXssiQ2eajzIa5hruzEp3Jk8ZB6cnvF96xZk8ZZy2ZtfnqDDk
KSN7a5FNzmyGPBWce/ZFPfskQ54KFs1GzTlJkKeCcaIqgQMH5KngsOSiFydC
QZ4Khjj7bvJzQJ4qrhyOfFdeCvJUsX/nKXezRrGnip3zW+7s+Sz2VFF2rX2j
pr4LeaqI2tCTt9HLhTw1LBnS3Sed6kKeGlbnre9dtt2FPDXktcbP+VjjQp4a
psiekJ3TJfbUEBf+94NWRVfy1DFTNOtagKMreeqoucJqvjTDlTx1OLeUyAvX
upKnjjVfk2btq3QlTx3P7i5+rNQq9jSwe1pv0nIpN/I08KDjo3IPx408DTz9
cvBRdJgbeRr4kMmpuJ7jRp4GGlaUlggOuJGnCfOddvuLG8WeJhb8Lnl69IDY
08SEKbyWFH138jTxMviF7AMvd/I04ew/yXtSqjt5Whh2mrl+z3Z38rQwL3VZ
q9Qld/K00JpfwUvqEntamJ5ruuamogd5WvDZ9r3dytGDPG2cSJrOFMzwIE8b
wheLi97me5CnDQ+XpF6fSg/ytPFNN8r1YIvY08by6ZnrJKU8ydPBGd9/b8dx
PMnTwan0urFnQj3J00HSlRChUo4neTrQyCsLnFvqSZ4OpH0HYi/dEnu6+KA0
K1L9s9jTRamZtss8PS/ydFHI81Ku8fQiTxdBNsqNSgu8yNOFR27ZglnbvMjT
g3yL/eeqi17k6cE65M00qddiTw/rI96WBSt4k6cHudNJD3bbe5OnB9niDW1v
473J08engnWX7NZ4k6ePx2mFv+Ue9yZPH68La1XrmsWePuQL4/IUJHzI00dK
5qor4ZY+5Bng28HURzuCfUb2axrga4/P+WdZPvR7Y4Bti91SjfbReZEBZtev
65tZ70P3GaD9SaTz/n7ycg2g/+VxaLv2FLrfAOZtTkJD9ykjXqUBNu099Sh2
3hTq+bn/ZjaKtkwZ8Tp+vnc8n3zv/BTqM4QqUz5V7hV5moZwKPhNwn28L/UZ
4tOkuXOzJvhSnyHSm/asOxbrS32GYNtGzG1f6Ut9hhCdvfZD9agv9RkiTV/f
x+sheZWGkMr/y2vxD/IaDHEpf/5gKVtEfYaI1r0bec9fRH1GuH9oaM7wIhH1
GcGaxTaz3C2iPiPUzvhjQ8h1EfUZ4cfS8JLsHvISjLAv6XbUXnU/6jPCkiOW
Z68zftRnhIsue6vfJvpRnxGq8lNnyhf6UZ8R1GKbDtuc9qM+I+z5PrQ+4Dl5
LGP8YShQnC/tT33G+KXnb+5anj89P8Z4//3AqwMR/tRnjM6p8baXcv2pzxiT
flXVfHLIn/qMYRoktamvibwiY8S5Ju8c+4W8SmP8bbzGQccwgPp+nsfOWTY+
AdRnDOeITh2XtADqM0FwycH4oKIA6jOBynU9bvylAOozwe9v1/2e0kWeyATX
Q3YcOy8dSH0mqF955NklnUDqM0H7bb2gWl4g9ZkgvkJB8qZ7IPWZYLBr/8eG
iEDqM8GY1O8mt+eR12GCR1lOm5tyyWOZ4k7OCuc7W8jTNMVZi0HTO4fIE5pi
YN5Z76bz5IlMUZPxvrSxSdxnisRDp5waXor7TLGi0kGublDcZwq3pduVr8kF
UZ8pNpsPBtUYBFGfKWJ1c2rP2gZR38+eH76pVd5B1MdG4T9r/I/EBFEfG91h
0fGlqeQJ2WAHd+wvXkGeiI2d3oHam7eTl8CGvu7Fy6vLyctlg/Ux4q+cGvKK
2FgscC9Juy/uY+PcsoMPZ70W97ERWnPYYeqQuI8NGKTXeSsEU58ZhOPMVzqY
BFOfGVrM+pMt7IOpzwys5G9LNUTB1GeG+5JzTo2JD6Y+M2glzNL6mEFerhkS
vdVKn68ir8gMEfsPhjfsIK/SDHUnXbinjpHXYIaxLHmrkivkdZhB1t1OlP9I
3GeOyvyXhelvxX3mGNB3G4wcFveZQ3fL0uVQDqE+c7w5d86KbRZCfeZ4/Y/V
Z5lJIdRnjvw7A8/e+4dQnznmXfJ9fWdGCPWZY+WcEPmqReQ1mCNi0DHoz3zy
Osxh+y/3n8xd5LEsEPYi2jKsgjxNC9h+fn9BWEue0ALFiaopik/EfRb4dHlI
+L5b3GeBha13lW6OCqU+C7jeviZdqhpKfRY48V1S9TeLUOqzwBbF83YRk0Op
zwKcIZ0UXlAo9Vlgx+ewU2Nnk8eyRN/yrSpPl5CnaYnMRPkVlQXkCS1Rfbpb
avUe8kSWkGiatTW6irwES3AD90/k3hD3WcLYtK1zuEXcZ4k3v+NAU4+4zxIP
3gyn7ZEMoz5L1Bv6TVmgHkZ9loh2jOJOtgqjPisMb4jUlWHCqM8K7jdy1B4G
h1GfFX7c/aJRkkCeyAoZb1gmyVnkJVhh3eZaO9v15OVa4ZddywKHSsgrssJR
k9jUKyfIq7RC/Lqtf66pE/dZYf6aaRf928R9VqhQ7X6n1Cfu4+By1kLdh1Lh
1MeBmp9V4HaNcOrjwDXFa0UkJ5z6ONCSHj6tiXDq46B16+ruxyHh1MdByjMt
w22J5BVxsPDju+DQbPIqOSicYJensIG8Bg5yA7hH6/eS18FBiNP4hytPksey
xlo32S/ON8V91gj9Gq820Cbus0a5m5f10T5xnzVyAwecZo2eSn3W6N1d5q6p
OZX6rDFj+C+3W5yp1GeNC/kSDrmYSn0/7yvXNhGETqU+a6jrGUq1J5LXYY3z
nX6PN2WTx+LieXzbbpcN5Gly4cyTjerZS56QC0mR8pjik+SJuPj8hb/P66a4
j4u9t/fxPrSJ+7jIqig9sqNP3MeF2uOFmu6jI6iPC4da/4y3GhHUx4V8SNrZ
jZwI6uMioFTrvR0iqM8GCbZrxreERFCfDf688U19WSJ5QhvoZx+XM8gmT2SD
pJNdb2rWk5dgA77dy+Pxe8nLtcG2sS/ih0+QV2SDyDUGA8V14j4bfEluz3Bo
E/fZoOH43If3e8V9NvA8NqC7QCqS+njok2nwkdaIHNkvx0NltUXkHqtI6uWh
SynEdyITOXKezUPOoXz9W8GR9P+GB9MFyg+mJ5AHHjLLeMmffiVPxMO3XtMX
q9aRF8lDOmeinWYJeQk8vC46NOdwFXkZPDTWXciyv0FeLg+Wey4k1baQV8DD
0dBuQUgPeUU8tKcXPn4qETXiHeDB90l3xBy1KPq/9LP3gm/lB4uoEa+GB+Zg
b0fW5CiaDw9XU437RwVFjXjNPJT7Wj1aNYu8Dh541QGb5JaQ18+DaPdj48K1
5LH4eGIgv1ZpN3lyfBy4Zn99cwV5mnwUJ5Q8Uq4lj83HK/7Gc5uayRPy8aMs
KF2hmzzw0VXG+VbAiqb58WEdPy9MWiWa5seHbkB0bp5ZNM2Pj8Yg9+xvjtE0
Pz7Ct6d7ZPhH0/z4aDrEf9o1nbwCPjZNu+U+LZO8op9+z8Yl91aTd4CP8uf1
SzyLyavko0j5hvvpY+TV8KF+4V6L+RXyGvgwSHGavP0hec18zJMKTBrzhrwO
PmouxMRkfCevn49O6+MazxRiaH4CdDoWF/uYxND8BBjNTumsmBhD8xPgwx8Z
g1q+MTQ/AR6JhhuXx8XQ/ARYcSF+bmcaeRAgI+t1ne9K8kQCdC/qfHd0O3mR
AthIHLurUE5eggBplwuz0i6SlyGA7Mmn7U13ycsVIEf4drxNB3kFAhzukh5c
+4W8IgHuPssv6ZSLpfkJUJV5dZyrQSzNT4BDM8fxdghjaX4CXDx7RLnfM5bm
J8DVl6OrfKJiaX4CpO9PUNidQl6HACmqpub9ueT1C7CgfOtXjy3ksYQImai4
attB8uSEmNz2pqHzLHmaQmzTy6q3aySPLYTjA9W8FS9i6fdHiKW2qr1NH8mD
EB51t1V0pONofkLYZ+3sma0dR/MTYu+qh78d5cbR/ISoXnvv6ieXuBEvQ4hN
Wd3Vk8LiaH5COO3NmZubRF6BED1lbXVXsskrEuLT1sSW0RvIOyDEs8uZuzz3
klcpxLpXM5T+OEFezc/vp5Bvd/UGeQ1CHDnqKTOqlbxmIYxXfSxw6iGvQ4hf
z/ZUL5KYNuL1C4GrW4qPqU6j+dmiPgvmnebTmP8BYJoIGg==
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226984723835*^9, 3.768227164668373*^9, {3.7682272109577103`*^9, 
   3.768227267203504*^9}},ExpressionUUID->"6971046a-32d2-4157-91c6-\
4d30ee5d4f13"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwtl3k0Vt/XwJWSNGhQfKMkZZ5LKOydhDuUKRlLZIwG0yPzzMPDQyQJJUOD
UuYiJbOUipQoRSlFJalE0Xt/a733n7s+6961z7lnf/Y+50o4HjNznsvDw3Ny
Dg/P/+7VH/M4StsI5Pn/69P+udYqDC86v6f1wCs+cOUTr1dnuDh/4aD1q9Wg
eGeiUZdhyUO/jXQ2ScD2MX8HiuGM+RuMDF5JweOs85m2/4uXsChoV5oCpO+1
9TzG8LWNRzXENqnCtM6Z3liGg/WOW3F5tkCCIA5eYPiVo9Hw5MutoC+kFXWP
4ZfZD4ssb2qBhLxL3VuGtdnf3K+lakNR68V0/u0Ehoy0jf44AhD1/fl8NYaD
S1v/ZGzcAavJx4L2DH8SMJdTStUDa17n8mSGm4t2O9f+2wmcEfdvjQxfLjy9
TO/ILhB3utbyh+Enj6RS7vYZwKkjk+oa2gS2JKwwUjUygqRzK3RZDI/ncrIz
KwmolG14fYvhoMXvxn9toOBff4vwP4bnP0y4ZpRCw03p1x+NdAj0KhFW5c7s
hq7lDaanGY6U2znUctgYpAxlzYYZruKwVk15mMDjla2ftusSuLRlaWXcBlNI
caFETjFcaBzFK9hrCo5djv1jDK/4L6qcm2wGr5KrNI2BwNGXT/35DMxhKPSz
bBnDV2bMeFl/zcFS5lKJCBL4zesXf3/ZXqisi3kYyfBsVsf27e4W8HbjxpBv
DAcqzzVOEd8HIh/WNDjsIFB0We/Pl8/2QcmOf2efM/xKpfzd2kRLWC9zaIGx
HoFLvJc+tNCzgt86z/geMJwfGusY9dsK+F4PnCF3Mut/+ZnNxevWYC+69E4H
ww8bn7nddbKB7MZB7736BHLnROCDNbYg6tBf/ZrhF23f0x8+sYXNOmEnPXcR
6JnstrYh1g5uOOpNzTD8uUSPc1V7P2zMPfct1YBAmV3zT7G/74djCfz+8oYE
2v20+mx1+QAoho1zWhmmnywixA7Yg9OlViVXIwLZS+OVPy08CMumfx4QIBhf
Tjd63XE6CAO6Q6KlDC9Y3dOcUHcQhpZNOtmSBBqcCOAzXeMAhweTtRZSBHo4
+S1d5ucATdOLM2sYJguKbrU+dgD1qPuRx2gCBRKWDvjLOcJw2Npf0rsJtLe4
Zr8+xhF6evZ/f8fwijOFK+rfOMKffa9Y+XsILM9U67bedgjo0uFIF2MC+2ry
wkZOHYKvMQ9WKZoQmN5j98177BDYOD5RmmRY4cqbOROEE5Q2b+9oMiVQTLoh
+XCBE4xJmnxLNyMwarjcr3fWCSw+0RmHzQnMDQ1JBmtnuBdytF5vL4F1/TzV
2eXOsM7o65F1FgSalGo9+rbEBd6Xzs2eYVjrrs7V7W4ukCv3hhzYR6CPro5C
SIMLnJCvCGixJLBXO0qxUswVnm67IV1iRaDiNz/OO5Yr8H6bNs+xJnD3qowN
/J2uMPXr7kySDYHXjaIfb5B3gx8r12+MtGXq5cDk0c0xbuAkjS0BdgTerG3p
13rjBgWquu989xN4rvj9b3UtdxjZtzXQ5wCBjjVOOdJp7rDx3Y4EP3um3me9
Li/94g5z9/ivCDpIoHqQ9eSIwWFo1B1ZHu1A4JyjMa61uYchIOVqXIojU4+5
oc8jpw/DgMV979xDBLbd/iyhu9cDLvfv6Sp3IlAq87T012IP8K3SL2x3Zr4n
1bE5dYEniJaXjAy5MH4/2dcr7+AJL76mX5jrRmB/ZuaO6hpPYHf+aJN0J1A8
z+vVNqEj8HnlA3ujw4xv5gbskiNHYFHTSufjHoy/ormSa1qPQADR2pPlSeBg
lUyS//qjUO3+sqr9CIE7A6/mtwUchTJ655yZowTKZq0yWPL0KCyOGKtUO/4/
/1jmuxSOQRPPo6ceXgTiwL+i4zHHIEO93fqyN4EzlnwKya+PQdLMQ4OPPgR2
3+CxfSJ6HOJu1GbK+xEY/XLXKTOj4zAiHmLqzSLQ6Emp6iPf47C+cMyz1p/J
x0l1yZ0XjsMusYmRhQEEJkt3W5V2HIe+L4fabQIZf27nNYhMHwevFWICN4II
vHe7zSRAygvchScu84UQ+GMybKLLzAtyJO8WOoQS6FovlLUpzAs0/xr/qwtj
+in/Bw2vq14QsjCgQiKCQP8g55rKHi9g2y5oio0kcHme8MoJXm/QutGiMBZF
4PSfNDVZFW+Y9g7/YhNDoIVYzEIrO2+4/ODPvPZYAm80X2aHsb2BlTnjpc0m
0Hb+k9zzFd7QH2y0uSyeWa89b/RuDXhD4MtsQ3kO8zztkf39xT7A//5W8aVE
Avc5XPnYpekD7mesnKS5BK77zX3U7eQDJ9rUDxclE1h9qGzu4xQf0JTgv6ty
ksBTp2xY9bU+UK4Qc6AmlcAT/m/XXPvoAwusDpKGpwj8ubh6kCvkC7G/yfCe
dAKVwh1q3dEXik1+zB7OINBGxydb29MXtqYvbJ6TSWDRgrM+C874wubv6p1Z
ZwmsWHp6c3ujLyinbNiglU2gKa/2o+gxX1DLZFX15jD1ruCnriHqB4M6PYkh
5wnMCwDbQQM/KK4Zzt94gcAtmcWqUd5+MGpHTD/KIzCWf7hI7JwffIzL4gYX
EPhGWqa6+L4fKNUE2SteZHymG/Zs/ekHMakxHoOXCBR8Inqgaj0LNJ6ZlZ65
wuwPm0p6FWkWbPMKUja/yvTTYcGKbH8W6MWkDy0rJrD2/cCbufksWOas/rjz
OoFXtV4bH3zEgtBzX76klxAobfbiV8UUC5pm98D+MgJ5eStbeTb5Q17Gx3rp
CgLV0o5V7jTxh+QmQ9+flQTqt4uUhwT5w7Dy770tN5nzxMzz8usX/UH8RZTj
2Wqmf679UPS80x9GhXyyvG4z/e5eBufnX3+Iz6ZnqTuMP8rmxCKZE/CUnR4v
W0egjld6j7D5CYi269wuUE+g/L5xWdHQE7CfP3Ll1wYCLcMFt6y6cgKcvkkL
PmsicOro9U/zu0/Ar287FOtaCDwdl6f7ZfYECDvt9rzWxvSLdc+lHsgGQJJU
S3t2O4HPw4nT5/cGAF+OlGHKQwIfTK2IOBwWANbVw29iHzH98dWBl/JFAZDx
Lzwt/AlzXuAcy3zXHQA7OG4HQ7qY9QzJuXHyXwD4CK3cFdJN4KOdliu2ygXC
7I8JCH9OoHuqRNWTvYGQpBhiHPuCydfOjGSHsEB4dFjcO7mPwD827mkfrwRC
tAB5MesVsx8J2lc5dwfCjfUeI0WvmXq/b/HlxWwgXAwe074zQCCf3A5FPdkg
kLuul931lkC3xfIeF8yDIEDgMd/oEIFN8Zuzf4UEgWfpTCDfMIHz/qRU7rgc
BKGpWyc3fmL8mU6+FtkVBK+9BgIMRgl0cE1jVf8NgmNfDs7x+MLMx1Fo4Qep
YOiNEEtMHSMQLPKs+U2D4VQyS+TOOHO+GHm7f30Q89y+s2Bkgln/1amLlAqD
4bwsV1n0F4Ebl0ZaqT5mePWSm3t+EzhBZ22TmwoG0qhYK2aawNbkV5dEJEOg
7NXDyrt/CbTutjn9lw4B1kSb7J9ZAhdb7vj7jBUCjWUzadvmkGiV0vm4IDcE
hOmW78G8JP5WPbTAvT0Eds4J0W+YT2KRpFPmhh8hsFU2KE6An8TEMKvgzrWh
8GbLfzUWAiQu4/Zd9DMMhb/l1/vyF5N4u/6soKBXKHyxTh3+sZTEXWX2xTln
Q4E9d80bo+UkZgvz+Us0hcLTqrN151eSeKAp/NDZL6HwsNQtbmoVicK5L9z5
hcNA1rlnyz4RJv4FhQgPDIPFoVotlWtIfNJcmtvoHgZ3Pw1oiawlUWtped2y
tDAw7lvHDREn8YjvyWdmtWFg+WBn/XsJEsXfN/bGvw+DiNjznSYbSfyWNTpo
syAcQCbizl0pEp1X3tw1KhoOxhs1opRlSVyev16IpRIOjqSgRL48iRdDBIk/
+uGQ074v/T8lEt9X+w0EWoeD1Dab16kqJL7dbfL8x5FwuJ7hPL10M4n8Apek
3CPD4Z1x03CSOokypxI7ek6Hw9iO+gJBTRK3OK5rxavhMNp4UfnUNhKHK6IF
C+rCQfvS3VhRHRLNU7/nzekOByEds8uFQKLEvcIQ64/hUGZTlKqmx7x/50PW
1b/h0L9fUL9Bn8Q1dfzTk8siQET1fs1eQxKXFrqf0t0UAXNMxH9+Ikis/e3l
GqYVAecfWI1H0CQeHDp1rGZ3BMTtqS0WM2bmq2hyZcwhArZIpMjUmJI4Iq+w
XJwVAYpKaw7a7CXxSuvtfKOECNjGl2s2s49EryPZ+z3PRYDvkMtsnjWJMwtZ
2xPKIiC2rNyBsiPRde4frbyWCKhY/CDw1wESvyp8tKjoi4Afu8YNCxwYf+7P
S7z3NQJ+ehxu3etEYnTght6WuZGgQAVOLnAl8Yb22m2tqyPhkbfT8zvuJD61
f3m1Xi4SOjQ9HVmeJFaG7pav0o2E+jvdmarHSNTwP1pZYBYJb74NBI55kaji
uNMwySUS+tKe8pb4kqjPedl/LDASinXH1Hz8Scx1M2HR3EhIP8Ti0wokMSq1
eYlkXiTcNrsaPCeExO4atwsTlZGwRvdJ2sMwEj0KvJTu3o+EjTrS5NlIEv3W
bCiL7I+Esybfcw7HkJg+3Cy7YzwS5Fx8knTYJM7vKEudmhcF6+0+r17JIfFs
gNHIVZEoWDz/vOZoEokXwr8pWilEwSH5jm/NKSTWmayznYUo4Eu/pZOfRmKh
nPGxc+ZR8J0vf23UaRKvCQu4abpGQZ7RI65zJjP+wBu9h4FRcFU6OJnMJtGC
12PGmhsFskFf16qdJ/FOkXH64IUo2CrtqimWR2Js/nb+Q5VRYLFepp+/kPHP
/IP567YoeH7UR+D3JcaX68tY5q+iYLMa5+6nIhINFGM8G8aiwKWgdLK/mPGt
SVhdnjca1NbKVnSXkPi4t7AjaXU0sFZt+d5RTmKMxuotI7LR4CC3quR+FeMT
n7UL6kTDrfWCn1urmfzWuTqmmETD92GngrZaEnmkdkn1HYqGkBzrngd1TD1q
ztxY6x8N7ckqUZ0NJDbLFc7YJESD7w7Fi73NjK/7bJek5kSDqWea7lAbieFb
DPsbSqIhZt4lcvwB0y9MMz2+NEZDwPZrbTyPScxDTtXynmj4EjlctaKLRMt0
+1rlkWgYSs5ZKf2MRJduhyDDmWhI3L+yX+cFiWIeH8atlsXANhXucsuXJI7l
k+ucJGNgxxnzG96vSUzO+jHrtjUGWn2vVKQMkvhL3TzVlYiBvF/PxEuHSISV
r5/b28WAeL742NNhJr/Rqx6YHmPe39exfmqEROOIyCM6kTHM/4NU+fqvJOpl
VdVuSI8BMwHvAnKcRIEf1M05l2NgJvn3d9YPEkNV39v21cRAieLcnMJJxh9v
xSvXOmKgLLsn9/k0iVM7X+ScGIiB4Jn6vwtnSbx66oKm7kQM+PQJ3IA5FOYV
7T4xMz8WQO5vpf88CgOFr9hWicRCmNmAYNkCCoeusQfd5GNBSW7u7a8CFCp5
3edfpRsLon+vVSoupfBVmsmTGpNYcI1XmD26nMK5jos0bA7FQveijtQyIQo7
t41tn/CLBX3Nl16/hSkcj5rqj2HHwm8syERRCv/kKIutyIqF0R4/fs46Cp+9
OPczozgWNFTP1fZIMPHc7NyF78WC+nzPCqlNFK60jGGldMXCi1Slr/4yFI6G
6Irxvo+FJxfU3R7IU7jBr8L62GQsPI7uXC+hTOG2BFGlZwvj4Kqo+eoANQoX
VNw4s0UsDgKfLTJ8qk5hf2zFmSSlOKgq212qrEXhFxk/xQGMA1tDD3OuNoVH
DPT3KZjHwWDtTfkxoHBmfvAKb+c4cO6O1TTbSeHNvyEOpf5xEP1R4cRNAwpz
N5TrjcTHgd/Y7Md1JIWNLZxKsew4+BtsFs/eTaFHVFi10fU42NYUYvnDhMIQ
tSV7jt6Lg/bMHlPHvRTGDNZ4J3XFgYvfTVaXJYVSLaukLw7FwYSPX5O+LYUy
amWHb/2KA33rw1rVByisi5PXaeJnw6uTY0+VHSl8objx3P01bGjYYp962ZlC
KnpXUpsCG0znC/lIulO48AUI1Ouyod3X3TfXk8JIy3ahchM27Cy4fUr8OIUl
fPnXzjmyQdzFtSvXh0JuObczypcNXdAuv9GfQmLEKsoxlg1RHnrnrwQyvnx6
Wr/tDBsu9SrJq4ZSGH36ReLiIjYkqo111ERQ+NrLYKjnNhtmet7FGMRQaMbh
bcvuYEPZhyOm3WwK/Vh/NWzfsOGPxpiSUyKFj3Q3blk5zoYlh9rFfiVTaGfn
W9s0Nx6K7zr+l5BGYd+lz0+OCcWDn6OY5PoMChWN07yEpOLBXsZO89ZZxp/7
vufKNOJB5nqcpdk5CjU78i1JIh7y980P+3qBQtUdWjkvbeJBktIuTixk5rtl
7zEXz3i4F3xqQOEKhXs6/3s0EhIP9YUs4cfXKAwzrax2S46HhyRt4lNCYfCE
pdpAbjyo14bF/1dB4cmvmpqmZfFACwfX19+kMMA1/cHtxngINyz+5XGbwlXO
JZ/Fn8XDyQXh0iJ1FPI2d2WFfIiHd28dzFoaKJRQoXq7J+MhaGu9H6uFQjfB
o4WbFiaAltqSFJl2ZrzwdJ7jaxKAt6/y/KsOCl1JidFy+QRo5lPIT+2k0L6L
5TyunQBc18Ez5DMKc5bNOS6zJwHyI43C5vVSKBKjssjaPgEyqrr33ntF4Q6F
II2o4wkgtX1aOHSAGd/X7ufFiARw2KDUqjNE4TxVi11NqQmQaf3h4L9hxs/U
UemX+QlgVJT5rmGUQheRqzmjFQmw7HbdbvYYhdVxGy/9bE6A88s6c4wnKOx4
80V/6nkCXFpq2CUySeFG4zz/X8MJUPA769O7aQqrZN7Cl98J8Pg7+bZklsLp
F2bn+hdyYHTuk5qwuTQueXkurXUNBzYsv+xlwkfjh2K/9VflOfD0o8l8SQEa
k+5zdrG1OWCgRfhOLqEx+NRZXvvdHDhzetmdjuU0llodtFU+wAHbQOnXhato
1NPK3T11lAPO+oLPw/6jMUN6w8vaMA5EbifzbdfSTL8pmxeYwgElrq2+lgSN
TrclH6hc4ICieetNkU00en4mlQdLOWCTsOLvlAyNOxV51TgNHFBZ2yjYr0Cj
SK98t9JTDpx4Yz9er0JjaN/l1Q/fcZj94/j5y1tolLzgOO34gwOlL0JETmoy
8YUNwifmJYKkyXLbIG0alc/oXwlZlQj6AZXOrkjjmSFz1hypRKY//NxqoU/j
i/+Ofgzdmggz3AMd+kY0/rl4kueXQSI0bgqR3krT+EWvvs7FMhESGt/slDWh
kXjLK93pmghJqask1u2l0a3YSUP9RCJ0XLt+R8iKxn2/vo+nshPBT0xbZIkd
E0+pwXLkTCJYvDJWXnCQRqE3n9y3X0mEPS+C5/A60Xj8bIxsbHUilH7Zl8Tj
RqPCZEVG+/1EuDvq3fnPg8bGqKxK/r5E+JDm8pDnOI1pdw5G40giGJ5tC+b1
pfEvn8p87+lE+FyoMrjgBI2DOZpaOQJJoG+q8XtJMI3fTxZLNKxJAlqOdW9V
OI307ea6AbkkWF4epykeTWNLyW2hqW1J0OywwF6OTWPT3Q6JRVQSwIWTahqJ
NEb063xcbZsEop2NpbtSaHx7ydRdzCMJ5hlov7Q4ReMmM7OLokFJ8Jc4W+x6
hsbU3MRcIU4SnBULlQ7KplHjtYn1gqwk2D7BNkzJpbHj6ffOiaIkWDdlt/hS
AY0X795f1FeTBF3GOb51l5n8Garw17QngZLg19DeazTKBUS3pfUlQequH7I/
S2gMvCW9x3UkCVb/tvBdUcnkoyb07JbpJMjdUGOnWk2jUtD49T8LubDqVtug
6R0anbeOJtb+x4VDeXJzfetpVNnfp+4vy4XahvjajGYaPyepXJXX4sKZ8RTB
O/dp9OA4fu014sKj2dGpdx00Wmz5yBNpxYWbpYaBi7toDA/UHpJ044LUfdPk
rc9p3G/Tn1nnzwXun1sajn1MvXRRkhZxXOCbVPBOfk0j38tFkUOnuaDncEDn
7lsm3/sLbh65yIXLPbMZXz/Q+EP+fPO3Si5Yj90LXz/K5GeKXXykmQsS6la/
zMdo9DYZPz7UzYUoxYBJ9gSNdomHl1sMceHC3t7Iukkaux7Hp9RNcGHvOuWM
yT806s58GJPkTYZ/P1U3q/LsxgvXxVQjVyTD/wHJw1s+
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwt13c4l98bB3CSWUYoQqHsRBQy72PPkP089t67FCIlEhmZGYWkJLIVFRkR
yYjSkFEZKSOKIvzO97p+/nG9rs++n/O8z/vwO/mbuG6joKC4RklB8d//hplb
CRIKBKL4/9+XnrXN/3wweZzCYWRK5ZvtNuII9o58w067kRWVc7oN2dLYFpQx
iZqClOBOw9sig11eRD9BjNBA/pB0nzz2GSr/Fu+0nXD46XKbyn/v5/xHR1lw
F2ilOuRrYMsHTH1opWAHxYUzjvrYWdQHdLRG9kD88eMMpthG+06odT7cC325
+dnW/32/+B3hmmk8MMhcxuyK3SdFdfuZHy9kmFn7+GOXCfjJ8Qjyg8RyaUUY
tm9ngdbb1AOwpnz9fSz2ObUAqyQKAYg15ptNw/78tlZTw08Q4pnRRCH2iJPO
9OpHIaAT/dVUia10nmbPPV0R0GCXj36G/TGvp9TyoShU7tohMYB94EBYJJXg
IeA/5Nb8+b/nxy16lqWKw92jWnK/se+dZdMyoZCA0s47GXSKBIqYffH9l68k
zBlEf+DBnsz/t7fb9whEL72llsY+V9W5niUgBUuVeRw62FuBT2hdPkrBHr0+
ZnvsbwymYhKp0mCg6zkfgt28m9p4RecoEFSuNcnYz0tPuD7ZOgoXM5/Y3cO+
5n/PIqr+GCTMei62YZcUZ7Ko+crAy0o3jzFsOvmM85QCssDrUtaxjt3fK5TS
9EEWtuke27FXiUCtg70SodfkIN13VUYOuyOeVUdK5zjk3pvXssCO5w59MbV5
HBJvsqqEYP8sSMjLrpOHzIfW3FnYt+XeVOr6KECdaOvoI+zwnV9+rhxQhFvL
ynEfsZm8NQwK3yvC1qcOji1s6p74Mp0UJZALN0s8qEygp190t35oKcND4dEZ
HezASg6ppA1lGKC3FvPHHom7KiFeqwKvd7WezMS+KKb+tcMLgHeN3r4Je8PZ
h7eCBYGQtqjJNHZ9Qsjuv94IzmjvObRLhUDOR67pqXYi6GPr/KaIzdTBVHf5
gCrsTZZKcsf+xaGu3xOhCilu+pzp2MVG0VTM71WhZhdDXAu26D/BIaNjauD0
2unTAjbr3uiapGQ1GKnV4+QFApXu/pX1chY7uf64Efb3j4NnaLTUIWd7rkoU
9oPhSF0oVIevkT9Eq7HvbZhQhfxTh/0y+WtfseNeV+SWWmqApcjdSk5EoMXA
FbpP1RpACPzRP4Edl3FFlZFJE+qaY3ouYm/mvlJU9NSEF9bq0g3Yu1NE5t3a
NeGzgEDEInaY5DajFF4tQKzc5SKqBJr92Wb2MEwLOKe4Wh2xuVne//74Rgva
Du95koudHf9AZPOINlSqbuW8xR45UvNl31VtuKT5wo5VjUD0JZb7FKe1gU/E
mdYImzGIqcdcTQeeFrWkX8XW+6U/5XtDB/4ov6F5iV0UGesU/UcHxrSTbRnU
CaRuIiuXaaoLNKPj1/Wwz5W8Ie880IWMmcZHCdi3Gsbbauj1wJ6b6ekr7J62
Nx5NLnqw9Lu7mEWDQI93yaCOZj3Ia5sIMsNOoryAXnLpw81cNYFs7JgdKg6v
TusDt+OnhlHsdy+WMnr69UG2rfCooCaBPNaE3704ZABHlc9f88H2SfbY1xpr
AKF7XAdrsZXKVG0eTRhAhZPa3w3sH5VqCfeVTsBLShoqHS0CUaGNgtysEyBQ
cHMxFVtEkzo9bukEpNevtYxiP1hfJINOGIJ/PN2ZQ9oEsvlt9cOqxBCaDtcz
h2K/5nunokRlBIfP/0zoxDbo36HLY2cEWmIl3/foEIjlWRrl30dG4HK3U8Id
O47piuQ3emMYU1Q2f4Rd/3y3uJmcMbCs/bZj0MX5ktkW+NTFGC60jOrbYveb
Tq8LpBrDuMpX7ips2j3Dz+ObjUH6x1IvtR6B/inPds//MIavLKsu1thaZ0Np
TnKdhIGWkU9V2FHPRoOrtE+C10SyPL0+gbxdTjOxnD4J3bz/cGDjPKfNGfC5
dRLa13ZmN2Lr3S591Nl3EuibyvPYDQgknUbTzLdxEmSiuy76YzPEM42fETOB
H1L6+i+xNwsEOF5ZmsD0+X0rwicIZG9eZs8XYwK8P8WiY7BbrzLUBVabwPCw
7dIXbNbrxawtYybQaFagrm6Ir7/sZDAToymsW4yEFGHXZEsPEQqmQOStJ2w3
ItBNtz8SRe6mYFA1fdEN+0PjrfOz6abA9fOKdRd2jER+i2SrKczHvNx92JhA
GcM2i0ELpjDnkVF1DfurgQFtLY8ZkE79EqvY4vfGKJd1zaCK3jXR9iTOi6T4
j5JnsJ8rvmrH5hFuTfa6bQYJPUrz4iZ4fxLf2Fs0YAYLB40XM7Cjp2tOv980
A4lC28EtbH9ph5uM4uZg/s0gy8uUQAWREclAmIN6ILXSW+zPb+I0/GPN4VmE
X4uaGc77TxQNeTXmUHPQX7gS2+yD60znuDns15n33W9OIOMq+d5FRgswKHid
noj98seWK4eiBUxWbcvbwJZvUr6v6GEBnIMu0X4WBJKhDMu2zbCAArExvXHs
YBVl8YhWC1ivsFwysSRQwoNd9jkLFnD2UG1oB/Z7pejDdTyWYCz7YVzBikC6
8bxpr3QtYVChQrgS+/Di6YQvIZYQdorTUIgg0PZoDtbVIkugWlwzvYF9YnfW
AboBS8hPUJTfTeL7X+HKoz2blvB3pWkjEfuBzqW+A4eswLnGs5DWmkAptnzO
4lZW8IuNT+Ai9k+7Vb+jMVZQpNwRs4GdtXl7Xq7aClyEUUeoDYEePun4JD9m
Bbo5gZMr2Pdn1+XkdxJwW0rlyylbvB7KJ//IyBOw3/pK8zK2OqUwzxE3AmYt
ZMOC7Qjk1OhyQziNgBY5EbZf2BVXNM/yPCNA4Itq/Gl7nAebgSVMcwSE7HIb
W8XmjUsX3dxLwjbDM6zhDnie4cTqrBYJcquWB7ew43b5M74JJqFNZXbXJUcC
UfrFuD8pIOGBKMsovROBpm4aUha+IiE05f7lFOzwgsi3F9dIvIHdZOJ0JtBl
+5efHYWtYdy8K6gA+8XjH/wqZtbAFcdUK+qCr098XjLHBWso+WT4ugZbKDtT
eL7cGtxNvF+puBLIs+L6ZMsHazhVr1HcjX041el5Kq0NkA8eE5ZueD7U9a0O
x2yAu6Zy9is2Y7/F+0OONhDEut0q2J1ATx4zUP9KtIF38xmF2zwI9Ck7W7Wh
0QZqQaszFbtF41V8+LQNxA38enHQE8/jVuCIArstzGleuFOHXVVsJr2KbOEH
20t7HS+cb6ZacZW+tvDzctWvj9heLZwf3HJsYUc7m2uAN85f7oKDXJ22sP1Z
fyW1D15vRdUO3cu2EKrbOZyLPVEvkniGzw72b3/7XtqXQJY9I7f5T9hBg+fH
+m5s9bD7RS9C7cCzu87P2Q/3q5DgGJ87dlBtoE65gS2au1uLcdAOiucc/bL8
CfTo66mJ0i072HlhoU464L/8CzHVFLeH5Kqu4V7ssiLK6yNW9tBO0TvoHUgg
NL5VGhBjD8Gd7+/RBxFocMgmjrLaHrJkuokS7A1LGvHkUXsoNDn3RTuYQLvk
V15cpXaAxI0erRnsoQoK635uB9j6cT36yikCXe3i0WOVdoDLFU+yD50m0KWP
mukmOg5QdJ/9Si+2jNVZuWt2DjDLG3EyKIRAOv1VUr2nHMDw4OulPWdwniwv
RtEnOABf8YLPE+yf12QOqhc6gLJvVbPTWZw/eVF7wh86gCbP8ix9KIGShYes
ql45QPGhlPkq7M8eR2cmvzjAhznnbjIM58/jW62caw5wNkk3cns4nn++8JQu
iyMEsvIwVGA/e/zCOFTIEfZZ1fuS53AfGkmkuKvkCJ4cyyU0EbgvrZ5ffm3i
CIyfyx7XYLOK3xPe8HCEGwebih0jCeTewp4reN4RHvNTurOcx3l0qE/fIMMR
jv8z2mrGLqGbkgu87wio/JJfQBTur4IetuktjhBBH1rLfwGfJ8JdG+uG8fOf
0QwMYgdJLxi8mXOEOGva9tiLeN63ONiWqZzgHDJLVIjG8zNZYmDmcgL5ig7x
Bey19TRp0SNOsL9N7tbtS7hfxLPGqWo5wVpQ1BwZQyBznhh6Kxsn4LsWysQa
SyA+qu11PkFOUPJyfXs3dsXzkrjzcU4QUjbWf/EygRT5ki6m3MTO3ghUiiOQ
NXV/QX6tE3QNHZ5Zwe66mTBR1u0En87pHK2+gteX4Zjao3EnSL0qaOoXj9f/
g9nWlhUnCPuYp30oAb8+rde+a6czjO+LZfmG/XhHOUffAWegm3xUfvcqPm85
3pt5fdwZyPydvO6J+HrvnekfMnQGz+tWLsJJBNr/J6l3yMUZVP4GR8xgL6y3
j70Oc4azL2S8SpMJ1OBcva0vxRncZk+J+abg618WJdN1xxmO89M1HblGoPR0
MqTliTNIMnYI/MY+w+nT9vC1M9SIx9g1phLo7JnPXGUzzpA4wu0dlUagU9I/
wm5uOgOtlYOedjqBfu9smEhidwGuBpF/TBk4LxjDTkSIuUDsH72oYWyJKMcn
nsgFOObz3hZkEih3+Za4mYULlBv/2vTKIhCpHJyn5OMC4fVCf2Wu4/w4S8dw
8KILyGbQP6fMxn2aNieY9roLcKoFOfVi96U5DH8rd4GjSzIDuTkEqmXKPNrd
5gJXG0V3eeXivll9OrbkvQtIphw4IJ9HoJNUSr2XFvD76/ymor9BILdeIXp7
aleQzg6pf48tLn5aRo7bFYo4w+Xv38T9Jsr9JKOUK0woD1+NyMfrJRSsJ7Rc
4auDfaVxAYFc2NHJGhtXKG+cLhIoJNCx7HKp6CBXiHDVcP+L7Xrz1ZpxnCt8
t9Fd671FoFi66VKem66wL7LbprgI9z8GNTRV4wozl3OTzt0m0JiwSEN5lyvQ
cKckmxXj/VP6K1vwmCtINIbbH76D89mg1VD2tytAt9QmzV0CVX9j9lhlcIOY
1BjvCWzmfm67ej43qFXSu/ukhEAae2Qlg2XdQO6NSdX1e/j8IFj5/rCBGxjr
B105XYrn/3jEesrRDRQCwyVN7+N+Os1cm3cGP/4PFUmVEUiZMX/cONEN1GIy
vrKU4/1gcnxsW5EbQJz+8iK2VuThyupHbsDiKtM38ADvJ/KjRg69bqBnL3i2
pgLPq//E0x1f3SDy5txcRiWBhE3erdT+dQNzCYcjoVV4vRz8uGbN7A7tm4Zg
W437NFVdJ4WgO0h/TeBSqyHQF6oO6yIFd7iVNdMiXPtfn/SvUzd2h0/1sjJM
dQSiCGEfnHB1h+R27VO/sTW6OWsiwt0hRWQu8lM9gY7QfjbluOYO05J/zDoe
Eqh8423NgzvuwMaosFLxCPeBd/YD6k/cgfddtFNOA+6f+6ZK3w64w1DSneyY
RgJxlQ2puE+7w3f24NzAx7jfPctK+P3PHcSONbrbPSGQ1GJe8gVWD7iSZ7Cp
/xTnj6Sp7g4RDzj1dc1OoYlA11+KPUxV9oBBfFATbcbzDMwY5jD1AIu5HxF7
nxFITYTmXo6HB1yyGVBkaCHQIYufotyRHvCTlq1tHfvH0x6r7DQPsKW7yDbf
ive7KOZju+95wIrtvPhEG4FUeaQbk5o8wGVRmPlNO4H++j34Rj3kAf+SNhu6
nuM+V7v1LOwbfv6i6uHmDgJlXr6lMrfpAbF1LR51nbjff2Z3tGX3BA6XEz5l
L3C/2P9W6KWoJ1j71Mrd7sL59dstSRY8IVGoozuvm0Bvo3Qz88084crgScHM
l3j/kadUpvHyBJobQtopPbhv/mW94HXeE6oz2I4kvML387/tjj3pnkA0TI/F
9uL9ZMTu46FST+CdC7SI7iPQata9+bhmT8jaikqL6idQR4J/9pchT1gt+ZIZ
OUCggTNKHxRnPUE1wcMh4jVenxE3Kq5teYKH9OjCuUEC5fHyc06ye0EwO5tm
xBCBetUtWWXFvODJtTf2kW8I5Cs1kHcJvGDz1zJEvcV9KJW/vt/MC9KDlSYv
DhNILnjEhsvLCxIPRxjFvsP3l3pWsuN5L/h5+FJk/Hu8nw3OGNxJ94JeL96g
5A8EWic902bueYHvcx6xjI84jwOqHUWaveASg96d3BF8PmK2r3cd8gKdpVNT
tz7h80HWjpSCb15Qwec9WzqK9/cu87l3m14QI7hWVTOG75eekR4mdm+4c25B
6ek4gWjEVA+riXoDSxJnQucEgcZ7BRiDVbxB7IFa3uvP+Ly685B3oak3dO1T
DBj9gvejrD+arzy8IZShj+b7VwK1XzmatxLhDWlJL+3/TOJ52Ef77EvzBp+q
jTCaaZwn6yl1qiXecM5d2mr3DM6fApoQ56feEJkquyrwDefPWnLZxdfeUEU5
bCkzS6CtPR8s86e9YTRwPFTrO4Ec3dNCGv55w81EXlurHzj/W71pB3b5gP+c
A6X3HJ6PEzv9lJAPTHIEukXOE4h7BsL+KPrA+ws8V1MXCATmtwi6kz5wIUky
6O4i7qusP4t3u/lAenII59Of+Dw4+9mWL9wHcp8/jRxcwn2S5UiUSAp+vf3A
7dllvP73pO6QKPaBinMR8dt+4/xaads80ugD+aJJktwrBBJgumgl1ecDEc59
acdWcd/YH88h+RU/vofxoeEfAi0b5CqI/fWB9f1s2Z5/8Xn5YMizA0y+oKdT
Lh+zRqDO5JG7nAd9QcPw7vXCdby+v1xb2HHcF6pHeuqa/hGIGCIz/xn4Qm7y
t5SRDXy/hG/kzDr6QsjyC9H1TQLttFT99ybEF7RiZKO4KEjEpr3wqCnBF9qq
N9IUKElklTLQd7vAF85/+OZivY1EIx9qIK7OFzgMOpbOUZHoj5QzrWe3Lxjr
2CnnbyeR8fYHgtpjvqBOGaHRSk2i0oMu2Qd+4dfnzNFO0ZDobbuF4zqdH8iK
hl9moCPR1fNW5wb2+YF97WKrJD2JwFD5221pPxg7trfRnIFELEkf7pzW9oPy
jGafcztIlLlJU6tu4wf/ah58KNpJosctOczMgX5gY19F1cNIouvW/o+GY/xg
jkid/sVEIs1q+/IbOX4QZMUTu5+FRE2MOnMOFX4Qt41rTGcXifI4aM7wt/tB
+5L5UjAriSg/ntUde+cHg/U5zflsJLJrj3LOmfODR33VWj3sJJIv3Goz2eYP
PVUel//uJhFHwTtPOg5/YHoee0GYg0T8xoumjw/5g6jr8DELTvz9C8UveCN/
uD0hUBizl0Tzn08tcpr7w85I+Y46LhL1P68qaPP0hz1BY0VT3CSqIV6leEf6
Q9O3cXnOffjzmGqaWdL8IZSaLk5vP4ncqo3Ea+76g9GH/UkRvCTyPXXtjckT
/PlBC/pVfCRymHBvXOj3B8uX6i2T/CTinWx7f2XSH8beT85xHSTRQFeWNP+a
P1yIzR8wFiDRYu73CZI2AHwrFHwuC5KoM0exo2hXAIDIhadNQiRyZXuo+Z07
AOQblZ6vCJPIf+q9vZRQABgJyEVLipJoVxEfe8iRAHDnVlj1ECPRx1g6pwaF
AHDSY+YvOkSiOxHMuusaAWBmEkUxKk4iW/7aF4pGAXCj2yJjrwSJJhtOj4cR
AcCqajNmLkmiFaWh5EfOASCkQI6mHiHR5xPGb3/5BgCFFFdqvxSJYpS9ayTP
BsCDLNc1pqMkomO4K+R5MQBUhqk5DI+RqMsuVrLwagB8MWqfTpQhkUj61VfD
mQEgTHj59MqSyKRCmYKxMAAWVFtuMx8n0TGn/Z3ofgB0GaemnJQnkdCOWv7g
ugD43nZHMl2BRNO1l5hvN+PfM9B5YViRRBZ7OFIGuwJA6W5TLLcyiUxTl25R
DgVAibeZioMKiSLl8rUlRgOAXdmkpBjwenhWHEHM4HlJX2j/jkh83knWiF4K
gGqyNFVaDb//06nc+/8CQKcpkzVMnUQbWzLRr2kC4ZMts0arBom4munWVlkC
QeroJ6EdWvj67Py+xc0dCJxSXY1m2iRiKvZMVxEMhP8BE6Eq5g==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwt13c8Vu/7AHCzRMmO7Oy9ZV/HJvN5HuuxeSqj7DSISkqhkkp8IiMrGQ3R
kCgZkTSshKQ+yF5FpO/1+b1+55/zer/uce5zn/u+r+uI+4eR9zHQ0dFdpqej
+++eqvxkvGDSn6D7/8u9S3H7LbRKmmKxEPmj0aN7iQn/mdfdRl6I/M0otLnR
pBAdIFe/RS52xkjp96hDEVp7o1lvJ3nJKF518nYxmslmeuXm/lWjTrNex1J0
mor/qV2xG0b7WEvNytB/JQRt3rfQQ6Ct15lydJzLs+NcZCYYffOTq+q/5yfm
1ZA+b4JH1oem7/03vu43/Zf2b4GqyG6eh2itTvuWjjk2CFkUOP8I/dpTyZcl
lh0OhRrvqUOPzT42yU/gAOV4G7cGtF8WX+qzFk7or979oAlN73l/vW8rN+Rl
M3u0oc+ocZ9ZJPHAmdpqh050hN9z3m3XeSH0hNnlD2jDs4a5Up/5QGp/tWg/
+lg6D5ehOD+QuxnXhtCsPe3elP0CEK+sLvEdbcs4GR14ZyfwtBtlTqJNNX9b
Hp8ThMB1WfcF9MPZU68uaglDKdtc4Co6RpltODdGBMZ1rzTRTfkTSb6iZ6qe
i4JEA2cIC5pXV/Kjd4IYqL0N9udAXwk8J/RdUhx6LuUU8qN/P6K/GtwiDtW7
bmuIow/86FafDdoF1LzU7fLoOGab+citEqAmYKmjgZ7wKmlZrpSAa9d6KwzQ
9NfUKo+QJKGR1zDcAk3JVs1ZWZSE3suHTzii9R5Nph7NkILx1YQBd3RYQln0
Lx1pGNXyS9yHLpyqdogekIZSKY6YcPQWUwr3QpwM/Mm7WBeLHlfufBQiJgtp
RwZsktA6j0N1xl/IAkPEsswVtIhdfLLfPjnosx1wzEVnP7Eo6d8sD6depDTf
QbPqciU5lskD7RTz+UfogiCFXc22CtCsapn56r/+3AfD9WYVYDzMYek9OiUp
6kDFZUWY7xbK+YLm+KLLKqqpBH/mK9Jn0J7Nx80v9SgBjw199zq6mfs878ZR
ZdD05d3LNu1PfN1ZHnlAUAUsS8dhJ1qyTMO595kKqKYfC5RDq2yu/SSmqgoN
ic2DOuhy1m5z51OqUD/0JtcKLX9OcPzce1WY+Hmh0g1te+D+s6cSarAgyMwa
hGb61vhi+pAaJF1Vu38M3RkQuSjSrAZWuZwlyei1+1M2DjvU4U3krfEb/9V/
TW2ND1SHe4bfD1egi39/3VvxWB3ipLtJz9Eeg/eEB1g14IVNxLF36EiXuZnN
nhrA2FQ7PYo+dL31o0aFBrTlFFf+RNuJ7Wv33tCAzGH9ui0z/kRew1znOQdN
WEiK5hNGs2RlDNzL0wSfC6RnqmhnoYTp/nlN8B96c9cM3c8xTEdvqgVJfuNz
bujMy/2cMle1wHP5ZlwI+ub2m0K237XgUPisSwJam0IVDtfWhqD83uPX0Qpx
OhxXkrThk73zbDmahyVovrpPG6J27698gY5v43/WLbcbRjlZnvSh7Rajw5Zj
dsN0qg7XLPoTTxUTT8ducHNYrmGe9SfshRaPqgnrAN2KfqkQusM1otUuVAda
hVn/1UC/OkydDXyuA7cdvMJt0NIpAxMJHLpwm0fDkoa+xSpbfcNPF75NnguO
RX97G7bnwX1dSLL1/HQF/VnwW2kbox50F5VllKPnM2rah5z0QNEnIvcVWoss
ULVQpAervRVLQ+i2ViMH5l960BrglbGCnvhCLeWz0gdT77hErjl/wmA6p0Y6
Sx+kGdmeK6KlKo0Oa/3QB1IGo4Ulup8cPmqibwDNDnsF/NFlMQG/7VMNIN9H
XjcOTdGm1lIHDWDXDLkoE82xJZaPpmwIZYIDXtXonxMMPAdOGEIzXYN/F5rb
XKY8ossQxCs3Hkyhm9ZFBg6LG8EVxaukLfM4X8HiOTGRRiAUF6cvjS7x2z9z
/KURjGbWRpiiHylJt8fxAJhGwJIvOjYjSyVuH8CLWc6X8einw6s7YmsAtv9U
GMpGH95HNDxlJGCHd7L5U/QW22p1XUUCZlblVvvRtxkPjzx0ImDkyubVFfS6
4q3XanEEHJsRNedf8Cde3qZOlRcREN4UNrgbXZhTaybTSUBt62KjKzondOBd
3k8CTheXLhxBl70avSwgagwm9ClhmWj3S7MJly2N4eah6zqP0UfXhW+xhBvj
fntt9wl9LuHiXHymMchPi1WtoRM++wYtNRjDOsN1T+FFf2IP20O2oAljqCHL
uQDa2+VO92dOE6CSPt7wQ9Ns975y0DMB9YNXlRLRDS/p+hv9TeA9y362ErTR
QD67RooJ7DpjrvUaff534N5bD0yAslvlzjR6+P2RPq7PJvBviGgI55I/kesz
F3iKyRTuh3HFaqG7/13inlU0hX9jmbqp6KHVkl4PZ1NgfD0fE49eiFa83xJn
Cl/P9xy8he5ILMpXLzaFp6OVZa1o2RztwuxOUxBaOaw5gw47zfiI+ZcprA/L
s/Is43rdozoQImoGxeXNCnrob+QRtm5LM/gQYJHlizay17fSDzeDbO5ichL6
rwHtYl6mGcSVjbhWog+Gx39majQDmuhyaTf6c/J91cAJM8j1+mz+B+13Uur8
a05zmLe6oiz105+wvv5nVEHPHFKf8dLs0A8D/SDV3xy2pvmMRqM1Ro5kTSab
Q/KFg1U30ebGgXPWD8zhQqxOSwt6TdjdpGTAHHbwP5efR5/yi77AyGQBBQLr
/Tt/+ROPbb6+9Va0AGmVyY9m6NrIts2PnSxAkO6cYBg68CVFgyvOAg4pdlZk
ofkTyhyDiyzgju3jlCY0i80vr8Y3FvBs3uzhLHqBay91x08LUC06KC+44k8U
yQgaHxSxBI4JhUkLdJqqJXeDhSWs7I7/FYkmqXB3coVhObOPQy7a/GRZ2N7r
lsBV17bQjmYf0PlZ/dwSrBsfj6yglSg/fJjGLSE9Ql5IetWfuOg2WUbmsILA
XTsKKOitjwK7c3Ws4JN4bNQpNFv2pcFJXyvIrCGlVaGXUy80ap+3gknRjJVB
dF9E2omT96zgxTXT8q2/Md6mNfO29VtBhZXzHX00e5p3AgeDNYz4NS8Ho0Oi
k166yFuDAWN6yj/otZLw3htka7C2fHDwNfr3rHXdcIw1GBpLZf1GXz9iGr7r
ljX8Wf/KobDmT+xrvzBPa7cGyRNjHzzQo5+oRoWL1rDWpPQ1FS262uc0KrgH
zjbd1a9Hyw4aaIiboQ8e+DKLTi+o7fU6uAciCt26xNex/utYIuvqHki0jWJz
+s96dQc+1O2BGsOay2fRvFDuuvX7HmiyFqI9RuumnmAw22YD2vp5J6bQy/rB
wTFaNkDtNhgT/YPxryvvQpWXDZh/nMqioKU13YJHz9jA6FTZ9SS07ZNXG7yV
NjDbEfHlKTpCVNTasscGFncaHJpDMyX/Y3lkwwZcDjNRpDb8icbk0JUiaVsg
HXl13B3tIfye+sHeFuirjs1fQn8sXQ/6e9gWqCWC916hleikZeRzbUFrtOjp
GrrZ/+wlSgu2H+LiVP/rT2wcd8mPnbUFx21e9wLRtwLfuhfssIP6wfjsXPTR
CvknLWAH/DWR73vQz40Lnk0G2MGLZXUKOx2NqE4Op7Gn2YHg8mMRCzSfV9dt
lUd2EMLMoBWPzvuzftHhix0wRTBn1KDPiqtzhrLYg3BsvfEsevvsHeUUVXtY
8ZHRkaWnETN/ir8Xu9lDj5PeMT/0mKuvZuNJe8wH5pluoPWP8Qp8KrWHTDHL
gY9oKRJT+nyXPQiA1jo7A43wNjmQs3nVHt6sPwywRt+ROK8rJO4AIgdfCiei
9YmcvSrWDnAu01XkOdrIbUzIOMIBbp49GPQbTc4v8SVlOQCD5vqGFiON4GkR
UfZtdIBj1+mGI9CnJy+cDplwgK95UVsq0S2UG1V1LI6go+sQ/wPdfqZiuFHI
EW6ZXDCUYaIRo29FSM2qjhCQKWO5F+17n4PxtZkj/GTnv5GPXpkoXOpwc4T5
KDfdYfSm8D+Sbw86wq6LX8WFmWlEb4zBla6TjnBe+K6TB/pdXKLRu6uO4D3w
5F0W+oncitS7UkfYErOe2Yf+dfCJVVedI+gWhZbt2EQjGqJmijq7HOE9Pdsm
V3RAaa1BxzdH+KvUficDnfhAd2vbiiMoN5be6EGbHs/kfrWVBDy2Od18m2nE
FdkVUoMYCardCqiuaC/huOYnmiTwDL4nk4l+t2ETXm1Fgso/L6EfnXb3vH2F
Jwnyzn3I38lCI6adPXyLwklwIqbfzhMtTf63MDuRBEv6b01vonOsHAWvZJKA
XqXy9Be0qPDzF+fKScBVFbZNYguNoFty+yeugQQLHNtG9qGPqJvlR3wkQU/B
iY1S9NP4kp694ySgljfsm0I7NdzWdV0nQUpoG58qK40gxCLbrDjIMClxhfMQ
WmOL7BldSTIE0u1weYQekFk8IKdDhkg1+2/raLoDa8f5bckwPahWZ8xGIz4y
BtVu8iWDofTTwbPonfv37lyKIoOt5KhVBzrAiq/oSxIZEicL/nBupRFuhSUu
HTfI0Htucc0V3VZjrFxbRYZWhk7Tm+jNdOwK+S/JEEBV6P6GZjPTtk3uJYPT
Waa7CttoxIPkb2mRk2RoO07+GIn+JWq6Qv1LhnQ5dpMnaOGrx08R3BTYFaW6
Ss9OI348faogLUOBBN37q9bo8bsKP1n1KRDgkmqajk5+92t4xp4Ckjm1PZ/Q
Bxttxt/5U6D+k+IDie004kwQhb36MAVGur/1HUS7reiRriVTYM6+z7IGrflV
+W70TQr83085B41wHvGQd75PgU/ZTvR70Jo/Z+o1minA+qHT5io6O4A3hPMT
Bd5bBwwPoZdfrGvMTFPAsICvTo6TRhz6/J7rNb0T7DzSPXIIbfL2FUsRrxMw
eGU7NqAf/mHkPSHnBE5faSxbuWjEVc46bTdDJ7C5JLnFDa24LhSiSnKCH997
yIXoGz+dazfvcwJe/6jvc+j5Uxk8Q0ed4PSxhQZDbhoRHcCe+CDVCbpu2H5P
Rj97NM10Ls8JwtVjyH1ohq69GR7VTvA6L4pFmodGKDsW7lZudQJxM7XNh9AS
UoNjfwecoCLqjv0L9I/TRHHXrBNcPflpiIOXRnT/+BuRx+gMUw9ran3Q7eJ2
e8J2OEOrm05/JdpDz13ZUMEZ1EpdTTfQfy9RhVkBPbj1px0fjTBrjePrITvD
B3nH+Rz0xvtV/vz9ziBbL6A1g476QSd5IMYZbOv9Go120IgLV5q1NS86g7+t
WMYl9Pab8Y7r+c5QctruwRd0paRX+MuHWH5shF+dH8+bCxnXzrc5w5rBx+bT
6NDzPs/tB51hvlf4WTf6Pu/0FNe8M3yxq1mTEaARL2IOCfcwuUBy9rWEGDSf
nYJjJr8L9D59QHqDNgmxTKQqukB/DkuQ2E7cDyx/HwkQLvBBObU1Cv0549x0
H8UF1Jy1w1vQIcM7xa8HuEDe/IaPoCB+/6UpslOsC6wPDV4PQ6dpaSdwXHIB
2sLrHU3okw7Kle0F2H7t2TC/EI2gGGzrOVPjAlteVs6GoFNM2VaNXrtA97Zr
li/RTr99+X4NukBrVuAYvzCNKDe1VKqcd4EgUfG3oeiTjr8M9jK7wkVSzUYT
ei63zExAwBUCBkUPC4rQCP+//5i+UXSF2GBnrUh0fTKD7knCFar/sTdoQ6eU
C0qqO7mCNytjipgojdghIs40GuAKMo7B4kfRdWN2femxriD/J/bvW/QX38Fc
40uuMJetIiUrhvFFlc19tsAVwh8eTz+JZrTl3pRd4wqCLe6W/eifq2q3LF+7
wifbRlN1cRpR8PaW6sKgK3DXlSSloGPuF1XcmHeF4kRm7u9ovr5DAmbMbsDA
+f670S4aodtsHzXJ7wY7m5nostDslIgnlxXdIJjxmt8i2qFo54w24QZMEjGs
9hI0Yr/m+W0DFDdIOXbndyn6WuvajvgAN9BzEVNnksTzN/beVrFYN5hg6Lrr
gw6smfjRcNENWJvuHX6KVtP+ds+3wA3q+upO75CiEdc3j/j+fegGDTHjvVFo
6nmxX9ltbnBiSCGqC716YDRKdxDHpxHvrCRNIzruBfd8nHMD94Ke+GS0RdUv
4TAmKrQ6Ks6OoedZO6xZ+KlQ7HW42FwGz8NnctQ8BSrMfL1TeAs9wUWx2Q1U
CFp+OUEvSyPiSpNF35Cp8E/hw2hftFQYd7fffip0/z5i9RwdXaZ6YPkYFYz+
0PuLyNGItTmpkaQLVGi5s+dFHDpScbe2QD4V9OmtgwbR41mlQber0YuLLoby
NKKzrT5Gp5UKdpEmKTlo+bz6wOYBKvQEKWzaQFc6TatTZqkg0lDU4q2A8T4y
rW+IwR08XErfPkfbfJp2C+JzhyoWeRFxRRxvvc2DBTl30KgUf5CAhpK5f2MM
3WGS/+zFb+imcIlFepI7DPLa37VQwvVso9CbtNcdOELC+W+jVZ85pG896g5n
Rkab2ZRphG1un0RaijuYqeU+DUV/EmNP4cp1h728WT/foYtf6bRcue8Om0xa
j2ip4Pm8P7+Xu9kdPPdLQBb6u9rlp+n9OD7FfNs/6I0yUiTHNLbX08nzU8X5
LlNcS6XzgHWVYd1mtJLvQWcWHg/gv50qoKCG8cjB42SCjAecMtgNaehOklns
mp4HyB7vLltGu2RGmkfZe4DKspenhzqN6CpVG5rw84B/VVoojeh0nzdmPtEe
0Fu1+bKMBvY/e/noh3Me8GKRl+ciuvxL+1GLbA8oiR7/vITO4m41e1TlAa1l
0ZMemrgf6z8MyL70gHLGaniJFgsxMMzs8QCJqax+eS2Md0yOgZt+eIBju/Dj
dHRDvadn1B8PuMWoPfQbPaZ0j3+YwxO+LfRZ0bTRetnZ1pKeoLmwvtKOZpYO
Gbu/2xN4XTJnNHfTiIWzUSs7bTwhMDRf7ia61/Zv5ylvTzhylr1ssw7mU/W+
wWMRnrD4rTssAh0VM95mc8YTGDumYwbQ04fHpiozPWH3Mdt2c10aocJQ9Z6j
3BOypMZ976IjXqTFRDz3hErmWn1BPcwPaoZGu957wgnrKo+z6DiNyW0q/3rC
ZaGWhnn07QmWlZRVT5gtWgr20qcR74eT88e2eoEGi7J7G7o6ummLiZgXnPUL
uqhlQCNKaVtUb2h4QV579uYC9PMnFdyLFl7Q41H/it0Q19835mprdy/glGhq
jUVHFu7nyA3xghGlQo4JdAivlOziSS+ISnTKcTGiEWHlGb/Nr3pBvnx7aBOa
spsz6XqJF/wQ3UhUBxphOPijY+yJF5z0GR3OQ18XiWnX7vQCuy/hJ7YTNEKv
mzchcQTrX82mxaOPa/LOdS15wcMDnqnTaPO2tzxCLN7QaF+86mlMI3Ricmb3
CXrDkkT4nQ50QVLPiUplb5jsqMo3MMH4nvKhadnYG4RkPD6Xo9Njpp/pO3tD
B1ugh7ApjTAoiAs+GegNbI4dIhfRs2WDbS9jveFNU5z0X/RyRsAA8yVvGNSO
jAw3oxHDL6JvWhR4w/fQXIav6Avf/bnOPvSGo2prPRRzfD+OZO2mVm/ghtjZ
V+iKSgtW+s/ewO/Ea6tjgflD0lKqwaw3DMs+nypDH3sy++wwgw88iQh9J2yJ
+WnT1ewqXh+YGuL/nYZujyFkx2R94H8Ys0Qd
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["y", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{50.33662426689356, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226984723835*^9, 3.768227164668373*^9, {3.7682272109577103`*^9, 
   3.768227267352664*^9}},ExpressionUUID->"ca21f638-c553-4a6a-b27e-\
ef203bdd6862"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Solution", " ", "number", " ", "2"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.7682264112014523`*^9, 
  3.768226411429509*^9}},ExpressionUUID->"6ad12263-ba6d-4be0-ad4e-\
277118529b10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "q"}], " ", "ys"}], "-", 
      RowBox[{"a", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}], "+", 
      RowBox[{"q", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}]}], 
     RowBox[{"a", "-", "q"}]], ",", "t"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{
  3.7682264309656773`*^9},ExpressionUUID->"a726c872-1a16-46a2-8e88-\
983255767838"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["t", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["t", "2"], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["ys", "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]]}]], "Output",
 CellChangeTimes->{
  3.7682264365577183`*^9},ExpressionUUID->"2e950e23-cd07-4735-893e-\
b501769a00bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y2", ",", "dy", ",", "py"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"y2", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "q"}], " ", "ys"}], "-", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}], "+", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "-", "q"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dy", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{"-", 
      FractionBox["t", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"py", "[", 
      RowBox[{"t1_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"y2", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"dy", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"dy", "[", 
           RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "^", "2"}]}],
         "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.768225693552536*^9, {3.768225884939062*^9, 3.768225941243465*^9}, {
   3.768226107524678*^9, 3.768226165825839*^9}, {3.768226294497385*^9, 
   3.768226295952194*^9}, {3.7682263525743113`*^9, 3.7682263827365294`*^9}, {
   3.7682264663347282`*^9, 3.768226495206081*^9}, {3.7682265806372023`*^9, 
   3.7682265848570004`*^9}},ExpressionUUID->"376494a4-9642-4846-8522-\
8a5025cbfe7c"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw91nlYzen/x/FT0UIlLeqU9nNOZ+1syuQXn5fGlskWaYQiI5FUtomvX1JG
lhoaxAkhS9mXg5EsGUuhLJmosYUUGimRVPTl533/7n+6Pte578f97H2d63Md
98i44OmGPB4v04DH+/aXrZiZ35ZnUbbu29rHxc/UHVv6/88FXMCj8FV/fX3u
o/22LnE9B4U1qGexz69xYzdselj29fm7dpvze/v7yKwYtv8ul75F2H/NbM+i
GVHf1j0uY+iR7Qdj2fkqbkDm25i2OZ5FZaXf1kNuzd9OWfPjmVfNLR/wyMpp
Ltv/lHskGFv2Zh7zn3P7d9gV/ruAna/homJ+KLFPZPfVcsafRzyds5h5L7m/
X81qalrCvFdcZZLk2Y6lzKvnNFsObflPCvP+5cyv5HdJ+Y15DdyUxHDDEyuZ
18iZH85P7JnO9jdyo3Qdgdlrmd/EfdDFhY5cz86/4wKnnk1WbGL3NXO3hw7b
3XcL895zL++It8/ezrz3nNtUyYjSXcz7wI2zurNyfD7zWrig09Gy7oeY95Gr
dDSweH2Mea2co2ZRl+ZTzGvlHuxcXic8y7xP3Plhx1enXGReG9fQMPeiaTHz
2jmllVv46VLmdXBmFww1meXM6+D+zAmzWF/JvM9cSdMvF849Zt4XzqFwWq+e
L5jXyX1o2P0kvZ55PAw8vqpO9Y7t5yFuT8anjlbm8yDyG1nd2OlZ9H/HtQZY
3u2P6eYmArrPAA8HjQ4eZSkgzxBtxqfnFNgJyDNE9bW+KcOdBeQZwqF4+VhD
oYB6jHBwUm5+tZx5Rng1+9WQF32Y1wXy0z2ae/RnXhd0VSoTpgxmXhfc7Fe2
/N4I5nXF5PanjQnjmdcVZolPftVEMM8Y2/46/cA+mnnGONbt1SP3BOYZw33H
Ym70YuaZwOe5xcXcVOaZIMi92oOfwTxTlEwqF+izmGcKVWfcivgdzDNF6PwP
xmP2M88Mew6Nnz7uBPPMsCx98JTF55nXDTztD6f+KmFeN5j2ixMq7jKvG9xK
22MKHjGvO4btvjJ0xkvmdYeycd1C32bmmaOPXZdToi/MM8fO0EOX+poJyTPH
zWmmk2faCsmzgO50KlfoKiTPAo3vfhMrZELyLCFsm1tx3ldIniWOmh8zig9g
niVGHjoUj5HM6wG/+GdVyjDm9cDs/KqO/lHMs0LNe82mWXOF9P2yQvGhvKiT
Scy3wgp1D4nLGnbeCibW07bu3sTus0Kd+6WkYbuZ1xMfpy763ewY83rC49bn
VXXnmNcTb6zalM+uM68nrpiO4D7dZ15PRARY/ip/wTxrLBqcmfWfd8yzhv+1
6Mm1ncyzRs61mWtmW4jIs4bj0sPVFk4i8qzh4adzvi4WkWeD/U73DXf6img+
NtAURY75Y5CIPBtcOrPi+rZg5tlgrFG18tIU5tng/Y9TfjSMY54twsxHF4f9
L/Nswa8fnVS6hnm2+CE2QhaazTxbJHepyGzLZ54teBUzF5z6k3l2iJ3lm736
KvPsUBhy8vLCCubZIU1/uWBxDfPsULklb0BWM/PscOY/Jvxrhl7k9YJiwgdL
G2sv8nrB0rC+dp67F3m9ECEqnVGv8iKvF1aF1/28CF7k9UJvl4/LnEczzx5p
6z0O3I9gnj2mLPiyNS+OefbYfy7DLWMp8+xxYmxAZ9pa5tmjc/dnw83bmeeA
E4qeLWePMM8ByqYBu1ouMM8BPZ8XVAy6zTwHhA8UTcirZp4DPKt1n5ybmMeH
w4ytqfkGYvL4OLjM6/IQazF5fNgY5q1s9RCTx8e2j60557Ri8vh4eTq2YuMg
MXmOGP2suC05hHmOMAj0f5wUxTxH+D1PGLX2V+Y5omXPMpfjK5nniE0/tzjV
6ZjnhOvhpQ7eB5jnBPmihNoVZ5nnhA9LLo9vKmOeEzyN7PxjnzDPCdN7eM5s
a2Reb0iPuBzbbCghrze4zLy6obYS8nrDN6u02kQkIa83Wid0T6jsKyGvN8pP
jYotCJSQ54zhAc37909knjOsLp/tPBDLPGcMynsy8NxS5jkjMap96ONM5jkj
653jK8vdzHOBid2JjpGnmOeCH8v2huWUMM8Ffvv9H3T8wzwXrHQVh856wzwX
2N9PzavtZJ4rTDrv7EmwlpLninEb2mXdhVLyXDFx/yhbfV8pea749UiK38zh
UvJc0XD40ELFZCl5bghZNyKvM472891weFxA3pMUKb1v3DBqzM3gso10PsgN
76I3rijJZ/e54WnAVtc7heQlu+H35KHttTfZ/W4obAr7aPaMPL0buOLWJr8P
rMcNJy/vuLbQVPbdq3WDS4JycpGTjPrcsXnIozW9lDLqc8f0p/19FgXIqM8d
/bw5v5chMupzh2SzOHHaTPKi3GHpm13+egl5ye7Qf1wjSVpHns4d9eVB4c67
ydO7Y1rjsuCSP8krdceflcKXSTdYnztm7UwzGPiE9XlgoOPwZZbNrM8DVW2R
w+uM5dTngWwrR9xwlFOfB7xiTYec8ZZTnweCN359RwTIqc8DOUeTrQvGy6nP
A1kFN3aWzCJP74G8wzfLnyWRV+qBd5cOrjZZT16tBx5vrDjsm0cez/Pr75su
wvhC8vieqHHj7upvyen744nnjRXbDWpYnyfC7CMTJrSyPk8Yj73iXWiuoD5P
xPeQXBC5K6jPE805n822+ii+e3pPNCz41OI4XEF9nvCf4TBnV7iC+jzR+jQ7
1GceeTwBVqq6br2dRh5fALsCF8GCreRpBRjBNVV6HCMvSIBtXiW7qq6QFyXA
9ULlHN0/rE8A44T37pFvWZ8AcUqPfdou3tQngMsWowYLvjf1CbAl3P1Bo8Kb
+gR4u3DgxIcB3tQnhHBZ1ITbod7UJ8QUs1tFpbPJ0wqx/MH7JXeWkRckxOSQ
9EWPs8iLEiL+TGpu8wHykoXwW2VYY3WRPJ0QqvJoqe891ieEet3IyGn1rE+I
bMPUxM08JfUJYWxmHlZhp6Q+EZKThe/5MiX1iRCTiz5RUFKfCK2/GJmeCVFS
nwj9Hw2dbBdDXpQId3OdPBKTyUsWwdnnwqBnG8nTfX2O3KMfe4A8vQg1h+dO
Li0ir1SEDRc7VEH3WJ8ILaWBznfrWZ8XKr4UrzzKU1GfFxLmZ39Z3F1FfV4I
TqqtG9ZLRX1eqEzM8Hd0V1GfF+ZvT3vfIFNRnxcci5+bFPuSp/PCCn7xnNyB
5Om94HtntvuyIPJKvaBuETpMCyWv1gurnCb8NCySPJ4Y2c4pelUs6xPD5qk6
sHci6xPjuLVl1+6prE+MwrrbTzoyWJ8YPk+GlTdtZn1i3E39ueLVLtYnRq53
y9Oaw6xPjPDrsqZnBaxPjIxNvTqeX2Z9Yvg31bbX3WJ9Eiy3rn7V8A/rk+Dw
w9ALrS9YnwRGOacWdG1ifRJMrFpobNfB+iQYbymM8TJRU58EXikR2/yt1dQn
gcLsXtY4ZzX1SWB1J3BMnFhNfRLslGVcTdeqqU+Cn8JSGw8OII8nhSrM7dqt
QPL4Ujw/Gj38wzjytFJc8kuY4zyFvCApPjaHK4fFkBclRZc7UWkLFrI+KZpT
y+L3LGN9UsjH1L24n876pLj62P6p+WbWJ8WqruWTBu1ifVIsyN00Nukw65Ph
SfSnC2cKWJ8MwpNZWz9dZn0y1EU41/S7zfpkqMwMzEx6wPpkcNj8IudyLeuT
fX0/XTOxeMf6ZGg3e3g19DPrk+HAIKv7u0011CeDKmeG9r2NhvpkuLGt8d5g
Vw31yTHn/dWzOqmG+uS4NM6m+q2PhvrkOP5Td/9hA8kLkmMmv+lGbhB5UXJU
rbZZ0xlKXrIc+rtl88OnkaeTozY6bfmFOeTp5Vj5QH/SYzHrk4M7UW608jfW
J4fXqLhZb9exPgXsT7u9+Hkr61MgPm1V3OU81qdA8IXQrho961Ng4L5BuTvP
sz4F/E/YBthcZ30KDBm7qXpFBetTYMTDvYs6qlmfAhkzxGbz/2V9Cow50n3N
m4+sT4HejcPbo4201OeN4ddeh9RaaqnPG+3ObVnTHbXU540FLZlnaoVa6vNG
/dSKszPVWurzhu7nJl2DP3nJ3vgpp/fIBcPI03kDezZVfB5Lnt4bsxIOyldG
kFfqjW5LDo+yjSGv1hvHNrX1y13I+pRY/XfLa3UK61Oi13TrSZcyWJ8SktQr
q8frWJ8Sw0Iy59XvZn1KTPm70zrlKOtTouzYrumOZ1mfEoX9HaJPFLM+JW6O
MLAffZf1KSEXdI9785j1KVE8/vXs9NesTwWjPydaKFpov7kK+/0EI24Z9KFe
FVyfWEnmWfT5fl6kQsuWlm0O/D70+0aFcwOP518Q9PnuQQVBtHhItKoP/T8q
xIwfPM/an7wJKnR70yE/P5S8KBWOrx0eHzOWvHkqrO2h7ucYQV6yCjc3nkm7
Pou89K/e760hSxaSp1Phf9Yb5SpTyNurwuDQ9uiaDPL0Koz/wzg/W0dekQpV
/wZPCt5DXqkKL+ttU7sfI69KhaOP0vhXz5JXq8KnK296p5SQ16zCl+FrV3N/
k8dTIy23MOLLE/LM1ZAuLdGdr2fzU+Ofzz19kz+y+alxYH2b+kcjH5qfGmXt
r1eb9PCh+alxVRg8oMzRh+anxlPPPYEbRD40PzXK+RH7J2l8aH5q6GQG4aIB
5M1TY8Ns68imQPKS1Si56XriXAh56WrMsD47Zs1U8nRqzD+59IewWPL2qnH+
uWmUdBF5ejVeRLXfb19OXpEaZ7J46TfXkVeqxr7A4qW5W8mrUmPeFaNjv+aT
V6uGydE455EnyGtWYy3v+l/CIvJ4GpxovJfz5QZ55hp8eRNxpPI+eXwN5q/R
vtM/J0+kweR5wunr3rL5aaCeYGk8p53NT4OL9TfKg0x8aX5fzxfjmtzGl+an
wYXocXUWrr40Pw2uuDRLG6W+ND8NHL9Y/HHX15fmp8H5u9mOpwPIS9dA4rDh
r20jydNpsOFZa9ryMPL2ahDxsDR6dhR5eg329HGYFjKXvCIN/l1fN59LIq9U
AxOroK3S1eRVaWDtNvF+ryzyajXYvM5b0CWXvGYNXv5ak/zuEHk8LRKl2+uf
FpBnrsUS5W+R5VfI42uR43Px+aU75Im0KDdJiT31yJfeP1oEp7R93veKPGhx
Om3q+pwPbH5acC1Nsg0GfWl+Wrhte31ltUVfmp8WZprfI1L4fb9787S4NsTz
42JhX5qfFp8HvF89X92X5qeFwZBR/Lj+5Om0qBy0YsesQPL2fu2pbHCZEUKe
XouAoc/++GUqeUValCWea4uMJa9Ui/rX1eMiF5FXpUVN/tHtkb+RV6uFecCG
qmmZ5DVrsayohRe1jTxeH1jvGGI7c1/fov8C+w6xzQ==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91nlYzen/x/GEFirtq/ZOe2dtVz4vYVRTMSJTlDCilDQhy0jREGnIUiqU
kSKSRGoYQkZNJ9tM1AxamMo30iJE9OM393s+/3Td17nvx/38vK9znSvTxbGz
l8rKyMhkjJKR+fKXnhWRXx5JdU72l+ckV7pv3YeV/62ruFWR2WWbP68dJV+e
G5xB7/G03P8+r+O8HoftuP55/a92l4vNXlH8+r/9f3Bq00J6RFGS6mURX54H
3I7KvDkbouh8Mxe4P+tRw+d1g/TL84ibMznlR/sV5LVybq9+CshcQfvbuJFf
bjmPjyb/Kbcrl+eZFk3nn3FRP2wL146h+zq49BmleadjyOvivAe+HvJfSd5z
bnLGqxXvV5LXzSWEab4piyXvBZf2p0Hm6lXk9XC/XQrw9Yojr5dLmfxY1eB7
2t/LxXx80vnpe/L7uMcWgQ0v4+l8P+e91eRq52q6b4Arzte69GINea+5Fw+6
rgyvJe81F7HCtVZnHXmD3IyTO//0XE/eG07uo3/byg3kveWkqs3dxRvJe8f9
+Tyqr+8H8t5xV+XsXk1NJG+Ia0q0ac/fTN57bobZwlsKyeR94MS5Jbkbt5A3
zN3Y3TJ/aCt5w5zSzRNjtvxI3kfukVfhXq3t5H3iwteFyZ5PJW+EO7VoyqzQ
neTJQOnMiXVqu2i/DNw7HybcTSdfBjOzh31ydkuq//+4ZBR2b+R3r8yg+0Zh
MDt2XsA+8mSRvPn0TtcD5MnCZ9HlJIcs8mQx3XeRk0M29YzG3RneBS655I1G
a6Zind9h8sag6551XnQeeWMQYaxllnWUvDEwWWTjLz1G3li8XnLaQKmQvLGY
o3ovNegEeXIIzK3YfaqYPDn4VS63G19CnhwM6luC1pSSJ48m/VHK/ysjTx72
Y/O8I8+TpwB98foxAxXkKcCn1mPS9iryFPD30ZRO3mXyFHEouXn0nSvkKeKK
97mdW66RNw699qvXooa8cejp+f6awi3yxiFcrW/p33XkjYdA1SSsUkre5/VB
k4K8O+QpQfGqrDjjPnlKKJj026j0RvKUcPFIiPK+JvKUUZiWF3Dsb/KUUdv3
3dVfn5CngsrpK4Lb28hTge6lJdpq/5CngrDE3lc+XeRNwGBPQcuubvImYFPz
2JbmHvJUMeXcjk5hP32/VHH1zsH+jEHyVRF7PH1o+B2dV8XeT+cH44bpPlVY
ugW09o6Qp4aXSWnn1o92ZJ4aUsbtXaok78g8NaQHbOg/Mc6ReWp4NG3W7Jkq
jsxTQ3meRuKImiPz1PFernJllRZ56lgZyDPcpEeeOlrrXLb4GpKnjtlB1Zmm
puSpQ/dWSqAsjzwNtMuj7IW1I5uPBk4v+PlEqz15Gig49I34iZA8DTyPfv7V
P47kacB644cng67kacK+csLABE/yNMHfW7BRMoU8TYwVCOLCp5OnCddCA2mm
D3mauO3ekPLAnzwtvNp/ZJ/xbPK0EPqhrTcuiDwt5O9q298QQp4WFNe1JIgX
kqeFaGftvflLyNPG4euVf+ssJ08bx+71+x2MJk8bZeOePzaNI08b9ZOrtp1f
Q542TPM3cLM2kKcDsyFPmcFE8nTg9FT52s9bydOB7cee9cGp5OnAz7TVTC+d
PB0Y5f5V3pZBni5qF9y3KM8kTxe6jhUx6bnk6UI4ErttVT55umhsfRax4Dh5
upi3elDum2Ly9KA1KjEsoJQ8PRwvCVo65zx5ekg9F6ixpIo8PSTvmh6+4Qp5
etjAH5qac4M8fchIXCuu15Knj7nKdWcGGsjTh4J7LM/hD/L0IYztVottIk8f
JtIPK6oek2eASwoL7JSekmcA74KbM5Z1kWeAJo3eyt9fkmcAQe+etc4D5Blg
uvmCdcXvyJsIR60xFZafyJuIhiY3q1OjnZg3EUfnldxwUXRi3kSkbVLeKlVx
Yt5E3F6iEBqp6cQ8Q5zd+LWPir4T8wyRXbmVu2RMniFOVoW6rOKRZ4je/h+t
HezIM4TsgxPj+oXkGYH3/vvGK87kGeHT1IykfR7kGeGsUtnoVV7kGWGvd1LQ
HG/yjBBQUrIKAeQZY+/DLh/HOeQZw21Ve7MghDxj9M3y05WEk2eM6BPNw54R
5BljtBG3eVY0eSZ49lqcFfU9269nggp+jMeudU7s98YEt0qKIi4ksvN+JigL
OqLckUL3mWCbaIKNURrzkkywbucvZ0Mz6H4TyKsvOVSQxbxyExQMNzztP0w9
Jug0vZHoXcC8DhM4GygvPV5MfaZ4u2j9T4pl1GeK6TFN/asvUp8pzO583NH5
K/WZQvhN9deLaqjPFC9V3wvaf6c+U6zJTeVH3aM+U9xU8OeGHlKfKbZp24fs
fkJ9pljopZJg/w/1maL+aUv63W7qM8P66RmZG/upzwzCK9o7HIaozwwedctD
O0aozwxxRinjC+WcWZ8ZjtRFpkUrO7M+MxRNMW5003RmfWbQ33ymVdnAmfWZ
Yaa6ZWGXqTPrM4OZW7bh79bM6zCD+LUxd07APBlzFBs8lD3qzDy9z+v41vBM
T2f2/TGHuHrxN3unMc/PHEeadkj3f0195rjxy7bfD8+mPnPsPbx7akkw9Zkj
cHSr4EY488rNsaa+cnvLMuozx+up4VNlY6nPHGHuZvPt1lKfBUKUZt0K2UR9
Fui4iKQ9KdRnAb3uWYnSNOqzwFaNp1Uq+6jPAq4xC+3m5VCfBRarOdYfP0p9
Fkga05jx/gT1WcBr2uWEuWepzwIyjZFrKi5SnwWaby/ZaniV+niIiXLO2fkb
9fHAKa8+97GB+ni4NPdCzdpG6uPhsWV23eAj6uNhe3lN1YZn1MdD/I6n6WNf
UB8PTblFkzMHqI+H8/51NfYfqI+HXzbK69XJurA+Hj78aOW4YpwL67OEQ/Cg
ioa6C+uzxImEqT9X67mwPkuoyHZ3xJu6sD5LHLta32hvw7wISyy0lC7rFjIv
yRLZi5sPlLoyL9sSO8I6v10P5pVbIqyu96S3N/Oklpho9DbZcBb1WcKyWPav
t/Oozwrb95mderiQ+qzw4kl0z+Vl1GeF8DWfDhXFUp8Vymw+lGYlUJ8Vin9N
N0nfTH1W6O/o7Ny+nfqscD7Qa2T7buqzwtjSRwvTs6jPCiMFH2UP5lGfFc52
9LcVFVGfNc47qL25XEp91sjnzrs+vEh91hD0TT725ir1WcPKxkBgUEt91lB7
WtU47S71WeOiaN+e+Cbqs0bYFMvgolbqs8bt4CHr1i7qs4Z5a/aQYR/1WSPu
20M14UPUZwPdZYe2nhjlyvpsIHffQzio6Mr6bHA62armK3VX1mcDabKy22F9
V9ZnAw3ZotR3Zq6szwabg8pPf2vHvGwbHH777sivEuaV2+CnLdODrTyYJ7VB
V2VM44FpzOuwwaIkf2VFf+bJ2GJW+633SXOpzxby429lfQylPluM8vF4khhB
fbZ4NN6kdkws9dnC7WnczN0J1GeLyE2uK42SqM8Wb44nG51LpT5byE1bHOKb
QX22yPr2jUFnNvXZ4sBweGjqz9Rnh9/DpLr8U9RnhwvXIr2byqnPDvbr4zq2
XaY+O3R2mr10u0l9dhj8oSaor4H67PDi7DHDkgfUZwfz0VoeMS3UZ4eKN/Gn
RV3UZ4elE8wj3/dSnx2ib6dF3xqiPnvYlhqVHZR1Y332KDUPFK0c78b67MFl
FHXO0HRjffbY73f0Ns/QjfXZwzlT2ipv6cb67JGeeVm3h8+8bHu8Cx4f1+TC
vHJ7VEmDn/0G5kntcb9iZkyVD/M67FF7MVfu7GzmyTjA12uguHg+9Tngfpb6
3JPfUZ8DVGsuj5yKoT4HRB28dPzcWupzwLSilim/bqY+B4CTuVOfSn0OWBfx
YcaTDOpzwI+NF4pe51CfAzL79Z+rFFCfA5ZIJ8o7lFAfH/Ja54cDKqiPj5aJ
rTWrr1IfH1MbCkOO1FIfH9OOaVbV36M+PtyKPf4e/ov6+Fi+1vWy6Bn18ZFq
bD0v6iX18WE2SVxU+Ib6+NB5uLWoY4T6+OiMnxVoq+jO+gSQH7l3PE7dnfUJ
YN7gnXPZwJ31CTBn/we78Tx31ifAVxEuQaF8d9YnwPzimZrlLsxLEqBa58gi
pSnMyxYgoXSLW6Qv88oFmF2xJKsukHlSAXrOlKx1CGVehwD5gX/c3x9BfULM
3eNfNBLL9isJseaH3Fcx66lXiDNzvIpatrDzlkJcX91QN2eXO/v/RoiZ39ye
3XCAeRBiR9wjT588eh8h+pcf2FZ7gnnBQoy5d8j663P0fkK0eR0yvneJefFC
DMyauizkJr2vED8lzfjQcZt5u4RImfrdw7VN9P5CXOoLeavYzrzCz+vr/UH5
3cwrF4K79a7PbZB51UKcbedqHnyi+QhxoSa/bq3CpH+9ZiGK24c+6qlPYvMS
wihOEFptMOlfb0AIv1C7p5G8SWx+Ihz86nGatmASm58Igwnugb+5Mk9PhKVt
nk7rvZhnKcJ8tS4HgR/zJCK48zm3rrnMgwilrwICCxYyz08Em4PW65ZEMi9Y
BM+e9mO8eOZFiKDinHP/fz8wL16EC7arZMq3MS9JhPK3aTaJe5i3SwQfsb6v
Xw7zskXovu8XZljAvEIRcvnzF/eVMK9chCW9ybNrLzKvWoSz6qPtfr7GPKkI
F5t4XYn1ND8RXt1y3hbWSPMTIero9lFTWmh+IsycHxtk+ZzmJ8YUfd9klQGa
nxhS2/WJQ8M0PzGa3y/27ZTzYPMTw1gjvu2hqgebnxg5qvqo1/dg8xNj+HDD
4msWHmx+YljFKHz1C9+DzU+Ms0LfjguuzIsQY/YBHZz3Yl68GLGT3s+84Me8
JDGOnE1Srwpi3i4x7CInp1wNZ162GJlV9Udro5hXKIbj3ZvL/lzNvHIxis7c
vt+eyLxqMXaap7cMpDJPKkb/jdM75fcxr1kMjX8e3zU8zLwOMZ4caDzjXMS8
ATHyD/qbzi5jnowEpxeM4a26xDwlCd6/vVyx5ybz9CR4ZsL9UX6H5ifBbat5
Cc3NHuz3R4KnvY15o57R/CS4+XKPj30PzU+CEJ3FccHvaH4SpHVaae6Q9WTz
k0Au8Cb/kpLnv168BDo3TK+80vZk85Ng1QSbq5amnmx+Eiisq+eH23my+Ukw
cOSj4iEn5hVK4LWl0v8vjnnlEvSsGXqj78u8agmuGF6XDZvDPKkEHst0Vx4L
Y16zBCe3yjl3L2dehwTv2nLmOcUzb0CCBuuuO8mbmCfjiFTh2EN3t3tW/x/m
jceJ
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91nk8VXn8x3HJkiXZs7v3cl1cy11IUc4baUGNojHSSIVuUmmRhIomNUqb
SqohlaJpZYz8qBFFSlKUFiUlLbbSZqT66fc7nzn/eNyH832e130/PK7Lnb9s
ZoS8nJzcrmFycj9+0sUx+3FNqDiQ9eMqYIZNbWzi/ve6lPFX6e23G3rtJP1x
VTG2ZpFpzH+/r2UmVfN/Dx56/f9aAxNdofNx7X/3NzLPfTXqjw69Xhj547rH
2Nh06TT9d/4Bc/FAYrWa+YSKm3U/rhbGKHLzCx9z8p4ydU11MbvM6f425kKx
oqzVnPznzLrQ59edOHS+nVE+PSprF4ee18GMV7G/85FD3ivmbuS92Hlc8l4z
syfnbGziktfJTCnX+TKdR14XM2PRhUcNPPJ6mFupqvzZFuS9ZQLa1997Y0H3
v2Vmdqb2pliS/47RPZK6jMen833MoTNPZtXy6XnvmcfBL3PjrMj7wHzc/W6m
vYC8D8zRvkmyNwLyPjINl2zazliT94mZ1NNUvtaGvM/MZrvEgWm25PUzNY99
s6yF5PUzShaL9qvakfcvM/vJu0/v7cgbYPxKBova7cn7woSaZ9W3OJA3yJT/
fMu7xZG8QeZbzGGD5yLyvjLGs5UmvROT941Z++h9nZKUvO+MUW7gKQsn8uTQ
7T7y+WRnul8O08Z8WbZyDPly2PLlw4zjLhMq/u+4dBgOfKnd/HQsPW8YFI54
avJcyZPHpVDOmyg38uThf8pUt2w8efJQ1u/Zpu1OPcPh5e4esJwhbzj624si
mkGeAkQ93ZUTPclTQJ3st0WlXuQpYPLeEb84e5OniIIuhfQLk8hTxG7BVyWv
KeQp4VfvpVeappKnhJiM+qolvuQpYedf6cM1ppGnjIX5uinF08lThmnj1Qnh
/uSNgLbiVyejmeSNwPGUUZHNAeSNgL26362Ds8hTwacXA0sXBpGnAtnTX71c
g8lThVfYOR/dEPJU0Rsp2PhxDnmq+HTg3ZvHoeSpIcHfZcPNMPLU0L3LyOPK
fPLUUWhdIqwMJ08dX/N47jWR5KnjwuLo1Y0y8kYiufiPOx1R5I1EZW6p/7Al
5GmgxfViD28ZeRqI2pBz0nc5eRrIjZmRkrCSvFE4p3VpZWEseaMQmHA98W0c
eZpY8HTWQee19PeliaT9424mJ5KviXqbqZp319F5TTyaOXO+YzI9TxMrdE0v
79xInhYOlC22/XcTeVo41jlwULaFPC145yfrtKaRp4Xauee3z0knTwszPjqr
te0gTxtWN4pTo3eTpw3tm7e/fdtDnjZa1vKX788kTxvX+iY9GnuAPG2YDFa7
Pj1Eng5uaInTt+fQPjowWaLW4HWEPB3INJvl5PLI08HT26NMq06Qp4PwSDte
+knydBEVnT0y9DR5unix+k6L8znydDHFQJSuW0SeLn7vNjQZKCZPF84F3akd
F8jTQ7qZwo0HZeTpocDv/IvGS+TpoXDRxKamy+TpQatHeU/LFfL0UJPjweus
IU8fx/6QJMrdIE8fp6JG55jUk6eP5f8KtjC3ydNHXEmm06Im8obO79+bm9VM
3mgU8fzqGh6SNxqn17Sd13hC3mgsjYz7KaCNvNEQRguPZLeTNxqfa/VPvH1J
ngHmbZ0eMrWTPAMMy3helt9DngEMjj+7qtFHngH4awJXJ3wkzwBZf0+43tNP
niEidXMuyQbJM0TprFj/19/JM0RuSGlizHB31jPEX45h+KbkznqGqB4Vsn+3
qjvrGeFgfGayvYY76xlh65jv/fVa7qxnBN+Fa76s1iPPCKk7XmziG5JnhLxc
/t6HJuQZY7WqrtU+DnnGeFa+xfkXS/KMcWjCLxUca/KM0XAmoKpXSJ4xHjya
4nbVkTwTvJwoz8+VkmeCPNvJSRtdyDPBm6xHiHYjzwTBcRuiQxjyTCC/9f2g
vxd5phi+rbfHbzJ5puDY2TE/+ZJnihCL0DdBP5FnilQ3l+7IAPJMURcSOTEx
iDwzeO3J7MoMIc8METarnpXOJc8Mu3OO8J4tIM8MW6qrCzRl5Jnh7pXkVd7R
5JnD02LF+g0x5JnD+b605vIq8syhHRA2RSWePHPs2Lz9+89J5JlD7d+Zr08m
k8dB1VVGXjGVvd+QA7vC9kkRae7s5w0HGk63im5sZ8/7cVCblOY9NoOex0HM
7zn9JzNZbwMHnRZ7ay0O0fM5UOjv/evIYdYr4mB9lqREkEc9HKjufFxXWMB6
HRxg/rI+rzPUx0XG4XDLR4XUx4XkrcvcNSXUx0Wz3vwc43Lq4yJXbnbblQrq
46KhaQ931VXq4yLh06Y5Ntepjwtv3Zzt7fXUx8U7sf9feY3Ux4V8kfL16PvU
x4V7hKRu3GPq40G41a1E/Rn18ZDWsW3ziw7q4yG/cvu4K53Ux0PttxO1+W+p
j4dwA3enjI/Ux8MS5+LYjQPUx0OyQ0xa/Hfq40E5q2FprALD9vEw+fYY8zgV
hu3jIU5Bfv86DYbts0Cx6867W3UYts8CXWHuTdkGDPv3Y4HKmbKdJaas52eB
2e0ypXs81ou0gEVXlmRAwHobLLDRL1DL0p71siyw7mtvdoCE9YosEKR/pXmL
C/VZQL3Z6kLVeOqzwKPzS8YreFKfJQ4Edof5TKY+S4gK/+Xu86M+S1SpdSS8
nEF9llAZUFjsHkR9lliyOr/zwBzqGzrfzh0YnEd9llhtWLk7fCH1WWKq7MH5
29HUZ4kNJ0oCJq6gPksUuJ1aVR5HfXzUmytpuSZRHx/je3T4F1Oojw+H1xan
vbdQHx8rhv+W15hOfXz0vEpWXZhBfXzYKC++/30/9fHx995tatnZ1MfH9mzp
YY9j1MeHTOn07jcF1MdHxx7v1v1nqc8KTYNTU/yKqc8K49uV1iiWUZ8VFnVd
K6+qoD4rfCht8dtcTX1WODy43dK/jvqsMDbODmZ3qM8Ks5XlD71rpj4rOJye
43T9MfVZYUTG74r5z6nPCiP17qltfU19Ahy+tsNrZS/1CfBpo0JB2EfqE2Bu
RMrYgC/UJ0BAtzAuTw5snwDCpkXPjw4H2yfAsjW81mNKYPsEePZHkixfBWyf
ADPcjyadUQfbJ4BheplJySjW6xDg4ECPV6U268lZ40+XyHe39FjP0BqfxvpY
PDVgPak15rpeae4zZj0/a8yq/Ko+wpz6rMHN41w251GfNQQjgvrG8anPGvyI
G9k/W1OfNRak51+JFVKfNV6cMpyf6UB91tg0zSe2TEx9NtCdHTnY5kR9Noji
HvioOpb6bLAkWHvuGDfqs4Ehb3BMuDv12WDFiE0JezyozwbxKo9sayZSnw30
99p5DU6mPhu835lfKfWlPhsEh6w7sWQ69dlgWP3j3oIZ1GeLRnzOehVIfbYo
3PblqM0v1GcLoYaJ+pIQ6rOFdX5aQ2Eo9dliT3V878A86rOF3DyThd4R1GcL
5695zrtl1GeLa+d9gtsWU58tDlozDZJl1GeL+bkX9qeuoD4hjD90nWuJpT4h
1mZoj3aOpz4hftoRVrsjkfqE6NmnUd21nvqESP4SqOa3kfqECCqMzjydSn1C
uATtkGmlUZ8Quxw+J8alU58Q1YLWO607qU+IwNYUmc8e6rPD4GGz8SWZ1GeH
rkW9vlYHqc8OD99I9mVmU58dRqUJDNWOUJ8dkiLUGzfkUZ8dKgK5lf351GcH
o87j7StOUZ8douOfjO09S3124GuqXlxSRH12ECRHL+v5m/rscXLe1OnL/4f6
7KGj/iLo00Xqs8f13N/Ski5Tnz3kRy5tV7pKffZYJ/9qwe5r1GePGcNdlTl1
1GePbaGn6s7eoj579Eu2FHo0Up89SmJGl9y9R332ePXw2P3FD6nPARNVEvUU
nlCfA/5c9Hpxdhv1OaDcw/Wh6wvqc0DAufLQB6+ozwFqZ//5HN9FfQ64qJNx
1OQt9Tmgc9fmsMvvqc8BkvIeO9ln6nPAWUVjZa0v1OeAsKq53WXfqM8R8fZa
T2TyHmyfI0rDfmsereTB9jmiYu6o+9dUPNg+x6HvIypPEkZ6sH2OCPevfSnS
8mD7HHHnVv77l7qsl+UIvXHD5HINWK/IEefM7NXmmLBenSP85LboGHJYr8MR
D32Xjr5vwXpyIhSGTtDLErD3q4twLDVAbY6QekXQGa7Zz3Fkz1uJ8Emx8cFL
iQf7/UaEZ399PXNuDOtBBFXbvtgEV3o/IrjG6thPcWe9YBFuHLp6R9+T3p8I
O7KXRLz0Zr2VIvwTs/x56VR6vyK0yY/13T6N9baJcNjd5mD4DHr/Ipwaceb2
+Fmsd1yErR6ibv1g1isSQVZt1NU3h/UqRHi6/EFdQxjtI0KNyYP0c+Gs90CE
1uzN9rtltJcIubcCTsZGs957ETpST8uHxNB+YuT8oejsuYr2EyOh5yYjXEP7
ibHn53iufiLtJ4bW3wn35TfQfmJcejt1wbuNtJ8YeT3BFW2baT8xCg7xehq3
0n5iaHQbd9bsoP3EGHH/UvHFDNpPjAlzNvkVZ9J+Yvisf3P6zEHaTwxMj7pf
kEP7iWH8JPn68aO0nxjj/M6m5J2g/cSoubT8e96ftJ8Y9hFTmfyztJ8Y8WtK
cKqI9hv6x+XmLl9YQvsN/X4wLKW0jPYTo1X72D+V/9B+Ekx5tu3CzSraT4Kl
D3IXP6yh/SSoXxHV/OoG7SdBu9Oygf5btJ8EcYXjGlWbaD8J2tICw8zu034S
+EX5Hpa20H4SvFb5c5fPU9pPAkfRMOmCdtpPAqXzLSlJr2g/CZSX3lyf1UX7
SbD353Drkre0nwQmMmnCvQ+0nwScMzdXf+6n/SSI9awxNPpK+0kwc1rxfPdh
nux+EixWdPAPV/Rk95NA69y1p1tVPNn9JECuqU7xSE92PwlK3apftGp5svtJ
ofxuTpC6PuupS5HukRTpasR6hlJklFdpRZmxnpUUk+Tqgw7yPNnPHymKS11d
6q1YD1K0His4Iy9kPT8pDm8rKx/ryHrBUpz10Q6LkbJe5JBf459Z4MJ6K6XI
HDCa1+7GehukKHutV84B620b8gpeHg+dyHpZUkT/6sLJnsJ6x6WoGHPaqtWP
9Yqk2BHbd4E7g/UqpFCSnb8bMYv2GzoftTfhz2DaT4rBDp+Cvl9pPymuzFr/
q9t81nsvRfz4tn2bImk/J/g6cAJvR3lW/C8ye7Bo
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226589407082*^9},ExpressionUUID->"84f5193e-514f-4aa9-8ece-\
1fb2972b1c26"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxd1nlYzen/x/H2FKVVu+qc03pazmIL+bwsmSFZxljCjIg2kZ2mKNlSsoQ4
SrsSLdq1mcY2mcnS1xcRk4qKSCQk1df8vO9/fp9/urq678fneV5XV1eWK4N+
Wq0gJyd3VF5O7t+v//85Lfv3yeJWHtEvlu+Zzn3/vozrGh6eVfBhITdK+u9z
lYt5sm8Mf+wK+vlNbrLexsSt3T7cd+UuN2nTRzuHvEA6f4/bYdk/XXP0Bs7X
59/nARfYPne2ls5muv+IiyqIPBvZuZW7Vfvv84RznX+0wfuvYPKecamFe+MO
nQ2l801cTldwXE9YGPkt3NOEkU+uOOyi+8+5xstDvurLIuh9rdysAWH5K6U9
5LVz618bXhq7fi95Lzn5NrUL3Y/3kdfBnTGx/kXfLZK819zQ2VW5x3IPkNfJ
bZMLPbnaIJq8Lk6YctImIuwgne/i4n3eRz5rjSH/HXdw/xi57R6H6f57zmby
h49Jnkfofd3cOf1LbQbDjpL3gQuxGJZsfvkoeR84NYFCf0FQLHk9XMPEQx23
LI6R95FLrvnkF1h3jLxPnL+N2+6oXcfJ+8z1T031FIhPkPeZm3nvD9Mxz06Q
18vB1WV45aE48r5wfYKHewsmniSvj1OI/NCm/+okeV+560HVec1xp8j7yslL
9wXoT5WR189p/dB56XynjLwBTpjuMidJdpq8Qe7ZH9t63k6NJ08Oi6Wl+2Vv
4um8HK6/EX08FZdAvhxap61z65h0hvu/61J55GT7H4ppPUPvk4dg7vmB0JhE
8hSw5siS+hJpEnkK+CHcc+O4R0nkKYBXxk8YnJRMPYr4p376AqWjyeQpout3
kXNWczJ5StAZ1zTwWppCnhKazcvTbu9JIU8JPvzfVD3up5CnjFlzR4/0tUol
Txlace6tJltSyVOB4ZRf/AKupZKngo5I19J5umnkqcDMseXt3RVp5Kmic8Ei
l7a8NPJUUZuReu1Yfxp5Q/Au61Lt/Znp5A2BQvKKuOyT6eQNQfMN3nqD5+nk
qUHV3qpAX3SWPDVEappczgg5S546TDQEgzdvnCVPHV6v817u1M4gTx3rPbz6
ri3NIG8o6ia+LI8/m0HeUKwu6ypVeJtB3jD4TH0T1Ts2k7xhCNujeD8sPJO8
YQCvhTtRk0meBpRrU3e4aJ0jTwMlx+N/DFx0jjxNFJ6b6u2YeI48TfQHDTkV
+vwceZrQdrAt87TPIm84ci2ik68FZZE3HKsXJjhXFWWRp4Wxyrw5U3uz6PdL
CweL9d8udD1PvhZuCkJVPoefp/taOPNl4jHra+fpfVrgLfsia1a5QJ429vm1
WznMuECeNvZeSP9RMfoCedqIOaJh7Fd7gTxt1DcZXVqikU2eNp7+cnF6g0c2
eTooDwx7+zImmzwdBA/+t2nfrWzydDAqdetPBcNyyNPBsZvBIYHuOeTpoNfb
NKH4QA55uugvPvM55s8c2kcX+QcMHvco5ZKni9jSRYfeTM4lTxfLh5f7btmZ
S54ufsxUqIopzyVPD1/jxr0c8zGXPD3U83e5bxDnkacHG+++6a6BeeR9O78w
YUp8Rh55ejCLGpoV/SyPPH2YGWCzqsZF8vTh6TWnLNbuInn6ECUI/2lzu0ie
Pjobm0aqrrxInj74g4plXTsukjcCJdtPdaTLmDcC7jnqn/jFzBsBEy8Ts3V3
mTcCTyLqknd3MG8EFnqsubFKJZ88A5ilzLmnbZlPngH+KBvUiJ6QT54B7tip
Xb67IJ88A+QIPgtbgvLJM8Bv+jNTrhxgniGuRHj5BaUxzxCDkzbXvqxkniEy
XkQaSR4wzxDb070SfnzLPEPkzV2f6jikgDwj7PvzXnCTRQF5RmiUTdmwyqWA
PCO8l1euL5lXQJ4RlPgv++v9C8j7dv7oOOnfu5hnjCqr3JoYGfOMkaoVONwy
n3nGCJj0fvHeGuYZI6FX71N5I/OMMep+94QrH5lnggWPu4LjNQrJM4FKb6bi
D4JC8kzwtbxVeH18IXkmWDw23W3EvELyTDBvem/aeN9C8kzxptvwtGQH80yx
QDQjZCCWeaYQVTWcTjzHPFN4LbSZpXuZeaYI0t/VvOwe88zgrTkmP6SdeWZ4
Jdg7dH0/88wQYyibNl6niDwzmP8ZkffYuog8M/SmSZPmTSgibyQGV273SZpT
RN5IbHvQveiadxF5I2E5YHSjehvzRkL3B6HiiWjmjUTKF+cVk5OYZ46DDd3i
GwXMM8eqLvk/+TeYZ44Hwckbljxinjk+696KCHjNvG/n5V3cfx5kngXcktxM
DHWKv583ssAnOfmpJYJi+ntjgYwCno7z2OLv92dZYEPKkPqIGcX0PgvMsy1q
yV9a/N0Lt8B/8OfuyrXkySyw8cEulbQw8gotUDPh97LVR8mrtUBydfcrpTTy
Wi3Q4GvfFl5EnpwltlQq9D26zvosEXItd6PWQ9ZnCS/tdzJBO+uzRMxr48oR
vazv2/0kdUGbWgn1WX7b3840zriE+izxq1lgJ19YQn2WGLnF4/mRCSXUZ4mL
8nXTn7qXUJ8lTt4J+1VtGXlyPAzm+W7SDyTPiIdWe+Nb8qHkSXk4vu9Cwe1o
8mbxUNySHxAaT54PD9PWTpsw9ALr4+FO/Bf/kHLWx8OI6I4Jt26yPh4aV+T0
yD1ifTz0/vVzw4h21sdD187NouGfWB8fz5+ajnulXEp9fHScahh1Tq+Ufn/4
WBNQ4TeDX0p9fLx8MlX/triU+vhINQ8OGYNS6uMjs72hIWI2eTI+qr39txYu
I6+Qj2TH+KiaAPJq+TBY6rvoynbyWvnIiYZJyj7y5AQYrzpCb/Vx1ifAPy/m
h2mmsj4BJkxpkZ3JY30CeG2xT9apYn0CtC3VuL32L9YngGL6m1/zHrI+AYYJ
LsQ8fM76BLBxST/e+o71CfC3Y0nOkwHWJ0B8pqtO+dBL1GcFH1ODvp2Gl6jP
Cuqzk5KFVpeozwqbawvHV4svUZ8VBDsL5VwnXaI+K8xyCrNLnUleuBVyLH7r
eLuQPNm3++ejQq29ySu0QsBdY53pQeTVWqH2pWHT7BDyWq3g+cNns8n7WZ81
NBrzv5oeY33WKOi7drE5kfVZY1jX2LWx51mfNe7fOrXKoYT1WWPQfKDm4h+s
zxrq51RrzW+xPmt4j2xMDK5nfdYI6hm38XIL67MGz3zB1s5O1mcN6/uDj9W+
sD4b9KyMvaOlXEZ9NrB63x2hqFVGfTYoWnya32xcRn02qGqPasy2KqM+GyhM
WfrcW1RGfTZoEkiWq04gT2YDv+k1oSfdyCu0QbOVv7/eXPJqbfChuXvuziXk
tdpgov6TX++vIk/OFsJ0+8tGQazPFu1JO2XuwazPFinGmiZrdrM+WyxWyAzc
HsP6bKHfl1e66STrs4Wbi53VLymszxaLluU8HXWB9dli24yNan1FrM8W5ioz
7+ZdZn22uBWb5jm/hvXZYfb16NoXdazPDp283Dm+DazPDtvKF6jVP2d9dtjT
v9Z8XCfrs0OUbHfp/k+szw5b517/eEOunPrssPeuksJHtXLqs0NSdGm/nm45
9dnhRcwnDYFpOfXZoWL+noV8q3Lqs0dG4tUvOk7kGdmjdsYVs+4x5EntMdFs
dPNVjrxZ9piXHByw90fyfOzh3hFXP3YeeeH2eLht0uwGT9Znj3Vdta+DVrI+
e1QOzLzfE8D67NFhuM527SbWZ48GD5nKgxDWJ4Sc1j+HRXtYnxBjB7+2hB5k
fUJsyffhVRxnfUK0BE8M6EhgfUJYOM97rHGW9Qnx6a3dUV4O6xPiXutAtl0x
6xNiYGilO7+K9Qkxp1U+evh11idEyUzryM5a1ueAGcajvar/y/oc8HWgy3nv
E9bngF7r/+q6Pmd9DvAa0LJt72B9Dmhvi43c1836HPCqe2CuYR/rc8DjE0UJ
ZxQqqM8ByYtv7xuhXkF9Dph+lGe/W7uC+hygrzUtpcWwgvockXw3QmWcRQX1
OeJL5utN4TbkSR2R+s5DscqJvFmOeDFecvvNaPJ8HNH5+vkbHVfywh3x+sOG
EIdp5MkccWhNxuHx7qzPEXrjtae6/sT6HJFzWTF3lCfrc0Tvuth2Cy/W54Su
7SfUFXxZ37fvV2YJ69eyPiccyHL2TtvM+pwQtWxOjXcI63NCX1nPBqMI1ueE
sTUPtl6LZH1OGNq59s2qw6zPCQ8PDHR8OcH6nKCw/3jkvgTW54QX75Qeqaax
PmeURHW+35nF+pyxcmF5R0ce63PGaaeE+tklrM8ZU+Yeu51ZyfqcsaQ9oPnj
FdbnjENJ5bYTb7I+Z/gL2oq33WF9zggo4iVm3Wd9zuDS1vbUNbA+Z7x7Fnen
q4n1iXB150SotNP5YSKESWqX6HSyXhEu1e+W6H+g+9YiOPdseKz5pYL+vxHh
pmTr6sFB8iDCr02TW1uVK+nziLBr4+Kg60Mrv3ueIvzUM1w3XruSPp8Ih44c
bfE1qPzubRLhQt+j90KzSvq8Iuz4WPZTG4+8gyLc+v2B3mlb8mQi7I46P3Oa
E3kZItx+t0e5VUpeoQila6IXhrmQVy3CYHnZbC2OvFoRJi1vHjg1jbxHIjgq
5W0zmkle67fP9zb55tE55HWLoBGkraywgDw5MeInS8YHLCFvmBizlDSD/1pO
npEYqacj63irybMW433c8vmbAsiTipGYYq9ZGUQexLBpXKrdv5ntJ8ajnxE4
5je2nxi6HnJOfmFsPzEyypJWx+5h+4mRfGLAsvgA20+MqdMfbbh7iO0nRktv
jffzY2w/MWaoTlN5d4rtJ8bpmYm+H8+w/cQYG6EW9yGV7SdGY9aJpI5Mtp8Y
hxeIYxuy2X5ilKifD7mWz/YT4/OpbP+MErafGIc2XPffVcH2k6C13+vAgmq2
nwRLe/6+z7vO9pPgYb502cubbD8JcnZn2GXdZvtJsFJJz33lPbafBOf9PG7p
1bP9JJhQp1xV/YTtJ4Ff/H+sfZrYfhIoXBQaKLey/SQoqFtz+swrtp8EV1/d
rXR+y/aToNozNKqim+0ngarrpuGTP7P9JFC6nLio+ivbT4LJS2vXuchX0X4S
XBPnemUrV9F+Evi4NYwzUq+i/SSor7mjEK5ZRftJsHzVm5vPdKpoPwk+hYTI
JhiQJydF6ebM0CMm5A2TYknvnp2N5uQZSeE+SfO8rYA8ayn8pwnUA22r6O+P
FPtNDmdlOZAHKXQEA7FNIvJmSdE8Z0id7mjyPKVwWemwDi7k+UiR7Vy32deV
vE1SCJ+4vY2cTF64FLlGV9rS3cg7KIXbah+/ihnkyaSomToxpNaDvAwpXuwY
Y18/j7xCKeYvFYf9s4DtJ8Xrp+93N3qy/aQY+GI/peEXtp8Ufvc3Xa1bwfaT
orpnnvbV1eR1S9EZMWp0nj/bbxR8g7eMi1tbxf0PixW3fQ==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nlYjfn/x/FKZCmtp1VazmnfzoKk4X6RJSkxhKxRikTWaIpSJKVokfZ9
YSxRGDXK3kKNaazJGlNSKrIl6Wt+3p9/fvc/XffVfT8+z+vVuc6VwSr/X1fL
SElJxUlLSf338/9fqSn/Xce4Cn7kDt5HY+7nfRm36hDvnPTHcdwYyX/XNe64
xrOEo7aT6fe1XLdi6LGSD9O5n8rfnINKm/3hM870/B0u5nHEOL7tXM7H+7/r
Pud0Z4lwOW8+vd/ITVbbnBnQs4Crr/vvesyV3VU67NPgTt5zbtKWT2aWxUvp
+RdcZnfE1ksHVpD/kttp0D995NiV9P4rbj53wzErbxWd18L5vZ4zW0nFi7zX
XDt/T+vy0NXktXFRJZEFkZ3e5LVzbuWvtKOXriGvg5s4L67J8+Za8jq5wvdK
O5XGryOvm8st3ZsUW+BHz3dznr9VX25S2UD+O+5kd2DSxxB/ev89d95S+ZFf
wEY6r4d7kj768VXLTeR94K69OZbT17yJvA/cs8qh33gpm8n7yLkvPFGh5LqF
vE+c83eL8jeyW8n7zLl6u1bllm8l7wu3sUPzgu3GbeR94eorb3sfNQogr5eT
bh12vOdRAHlfuVjb88s1D20nr4/L0DFexpu2g7xvnLGjRnhb7w7yvnEjZlec
SjgVSF4/x5O/dUnF8zfyvnPbpYKPrNYIIm+A69uRoRl9K4g8KVjkHDEJCwmm
56WgvCHg95mSneRLIc37feTzlp3c/70ukcYMx8AT01J30XnSOLBvnNQOlxDy
ZJB0L2a8vVQoeTIwmfzhU5Z7KHkymJiaUtpWEko9g3CUd6FVQ343eYOQ+SZY
wXz1bvJkEaQvn61XuZs8WaQ47tH5oh5GniyGCWT6S/zDyBuMsWPzr7rWhJE3
GE2/xLbX64eTNwRHcjs+WwaGkzcE2TWf1/g1hJM3BMlOny9Hm+0hTw5rTaaF
R+3eQ54cHtybM2ZN4x7yhqLfIdddINpL3lC4X3kcWBm5l7yhcLpzZdS453vJ
G4bpHyS3omwjyBsGTLRTvBgbQd5wxPT2b6n9N4K84egTPNhb8ss+8oZj0d2p
/wQk7CNvBGQiP7Ty3uwjbwS61lxbcBCR5Mnjhv/l4uakSPLkMTvAeq/i20jy
5CEtifDlOewnTwESvR0fepL3k6cApRmdF37v3E/eSETJjnS1mxpF3khY5Nu5
ZqVEkTcSjz4oz3vcGUWeIp5f2f6xyyGaPEUU2sb805gcTZ4SFkn+2JfyNpo+
X0qw2ZlZaj3lAPlKuPFW+Ck56QC9rwT/XbndD94coPOU0DJ1w7T2STHkKWPU
4oXJ/8THkKeMkyfWxsa0xJCnjPrKr/U6E2LJU4Zgzu/fg2NiyVPGpp5Vtaef
x5KngnWHFj88LzlIngpeNqg8iI04SJ4KZoS6bx7feJA8FQR6CU408g6RpwLD
Mn76wKRD5Kli9a49LxTWHKJ9VPH04XQ32bhD5KnCy1W5obnsEHmq6L4ktDnW
zDxVuM1Kdlo4Io48NaiMf/G9QxJHnhq21jmZ+i6NI08NzXrleX/tiSNPDSde
ls3WPhlHnhq8+b/JudxjHg+d326f8O5nHg/Oc8aO9jGKJ4+HDT419rNd4snj
QSlpVovOtnjyeDjbIBi4nR5Pnjo0pyxb43s9njx1qNzMlm1vZ5462iMn/jFX
NYE8dRybz/fKnJBAnjp0rV52/b0ygTwNvCs6xbVFJpCngU63hXatxQnkaSDC
YPa1m/eZp4G6wtzrCf3M04DcXhmjKYJE8jTx7tiFuntOieRp4nXSifzZmxLJ
04RM9sqkE0cSydPEWqNP0V0VieRpornKcKPGK+Zp4UmcnbVg+GHytCBnblTC
Ex4mTwupHT6v290Ok6eFyJE6lYVBh8nTwu/n3upPzzlMnjZ0FAQDtVXM00bl
/KQZ4g7macOjo7htl3ISedqYvHjDveJxSeRpY6OLR9/1JUnk6aAzLd+5MjSJ
PB00/NJWnlaQRJ4Owif5jl92k3k6WF3W/YdMF/N0EFXZYHlA9Qh5o+Dt8Daq
1/YIeaNwbtjJKqelR8gbhZA9g+6FhB4hbxTelfkeT84/Qt4owPAld7iGebo4
Ff4+clsH83QxuC53p51SMnm68G0N5b2QJJOni/OJaY5+C5PJ00WBbZhi02/J
5I1G6VEHT6vMZPJG453M+omeV5g3Gv3+Q5ODXzHvx/27tPWBcinkjYaypWmZ
u3kKeXoYZmYSoOuSQp4eTulHZ1/3TyFPD+X2FWNc41PI08PqBek2FWeZp4dP
V4JiRz5gnj5sBxu6OvTS81r6P/4+1f5LdFLp+0YfB87xuhZMTP35vrM+rHsE
dWNXpNJ5+qgVBA/5Epr60wvVx9AhipkZual0vj4yvv6SYHydvFJ9CG/ebon/
l7w6fRgu/ZrSPCTtp9eiD+0tC0/xTNOozwARa14bWc5Moz4DGL9WHWTsm0Z9
Bth7PN9xUHQa9Rmgb2xN77Xj5HkbIOaQgvaaOvJCDbB+iNfJrg7yUgzw8IXW
hcUK6dRngBVmTZOOWaVTnwGeLDs9vcklnfoMoGDXf7d7fTr1GaLcL6SrLSad
+gzB83RJrzpJnsQQgQN3X0TUk+dsCDePR1Xmb8nzNsSY3IBfS+QzqM8Q2/PU
D+haZlCfIRJqA4P8ZmVQnyEcqk+bZvlmUJ8hej1HpZ/bn0F9hvh9qt/T4qPk
SfHRfy7jS0w1eVp8nNj+tce1JYM+P3yc2a/x6KNsJvXxkfj1ztkQfib18RH/
x8LYt5MzqY8Pk+UqmziPTOrjY4Viuc+2XZk/vVI+bk912nkwnbw6PhyLZCpi
yslr4WNM62rxxofkSQnwLWl827hP5GkJIC8X+vaFahb1CfCQv3vWJlEW9QlQ
73ZJ8d/ZWdQngIln3/SJflnUJ8DFeeLvgfuzqO+HvyB9SloheaUCnD9+3CDn
Gnl1AuhGjTgW/Zy8FgEeKWa1LO4nT8oIuhrYKqeQTX1GmOUS8nSeTjb1GcHd
w7Us3iyb+oxwa4m8/HXbbOozgjDd4mnrtGzqM0LZLHvb7/PISzFC57MXo+VW
kVdqhG3JT9JlNpJXZwT+wKCy7p3ktRhBbu3koIZo8qSMcX5Hcnt+CuszxrUc
A5V1RazPGLNODv/MP8f6jNHAJeXevsr6jKHjoaO74W/WZ4yNA7L+A09YnzEe
hzVkh7ezPmOcdVH58+sX1meMBS7rqryG5FCfMRQi4m9dUc2hPhPo5rjeUTbI
oT4TjA0OaplvnUN9JrhSNqAQbZ9DfSao//X+r2cdyfM2wW2zYZV/u5EXaoLa
zDOLnq8iL8UEJwVfLF76k1dqgqsPVCc3BpNXZ4LfeE45V/ezPhM48jrdspJY
nymuhnms8c9jfaYY0FRsFp9mfT/uJ22ta7vI+kwRUKAuSqxlfaYo/DdSS3yf
9ZnCx2DtwWvNrM8UO/I90h27WJ8pWiP4Tlf6WJ8piudszLUamkt9ptiSqVgc
o5ZLfWaIqL4T+EI/l/rM8HVPsryZVS71meFZypRNXna51GeGM8GXziRMI8/b
DO+lBz88P5e8UDPckVPurF9GXooZZPlt/Q/XkldqhhvOqcoPt5FX98OPGy+5
tZv1/fCuPvUriWF95qgwOlUTk8L6zBFu8tecZQWszxy5Sn6KBmdYnzn4ZeUj
Gy+yPnP4Tnq/aG8N6zOHYrnrF6O7rM8c6b1qn8ufsT5zxNtGrpjazvrMMeZe
j/3VT6zPHFd5hUljZPKozwJuj7oD0xTyqM8Cg1eYdX/SzKM+CwzpLRo0Q5BH
fRa4ca+6Mtomj/os8K28xeLGBPJCLdBW7eXWM428FAssss2fpj6XvFILXDQc
Jme9lLw6C8yd3ps3wYe8FguMrmoy/mUz67PE2x7NVPFO1meJmeraQ0dHsj5L
uAlnBn2PZ32WKLup9P1OBuuzhLCiKTXzKOuzxJpetaXLS1mfJTwWmDirVrI+
SwxatnNbRQ3rs4Q/b3fz0juszxI299Iy3j1hfVbwHDnuTNBr1meFQr0/TPre
sz4rvBHsHbGxn/VZQa1W1ueRXD71WSFGM2XqBJV86rPCvvl5pw6Oyqc+K+hV
hxU/Ms6nPiusTE6cqyPKpz4r9OZJsubak9dihQuuF3J3TiNPyhoDq3Z4Z7mS
p2WN60+rPpx3J09ije33exZe9yTP2RqJM51Tq9ezPmsYfNequryd9Vnj2JK8
f4t3sz5rqM6wGHQ4mvVZY8lAt+nGw6zPGjlfbVZOzmJ91ph6Xe/80GOszwYH
mnpEVSWszwZ98U1PAy+yPht4dUtX86tYnw2OxMR8uHab9dngfmD2psWNrM8G
F3QWObY2sz4bfFGtD/PtYH02OKevavHqI+v74UvbzZo/wPpssH6J49vyoQXU
J8S0rGk6mioFP5+XF2Jip82zdToF1CvEZylph/OCgp/vGwthP/LknM9WBfT/
jRCFJYYqNrbkQYgzD53iloE8ZyE25Qx9GDaTPHchbrnYdWf+Sp63EHNNz748
s4S8LUJE+Ttd/NOLvFAh/kF1+MX15B0Q4lF4l8PZAPJShNh8f/eQvBDyCoXg
BY67FxlJXqkQNfaXylbHkXdZiOx11RV2qeTV/bi/3PNGNo+8RiGMnJudqo+T
1yJEk495a+hZ8nqEGFGwtFZUwfYTYdtFmb7GG2w/EVJ3Ze0N/IvtJ0LQ9VOb
lR6w/US44VFwK/MZ208ED+V3KYLXbD8R0jd9acnpZvuJENOhfVG9l+0nwpvi
04bh0oW034/zs4YLWocV0n4iJDturp2iUkj7iX58/s1GJWkX0n4/vCF+Ri8M
C2k/EZbr+nXyLcgrFKGjyS10uYS8UhFGb3N5dcievMsidIX78/90IK9OhNPS
DdOfzCKvUYTKX0IWfp5HXosIR26HLB+2lLweERyS//ZS9SJPSoyBYp8tPD/y
5MXw95QkKG4lT0uMFnPteulg8ozFEOV9NesIJ08iRmLE8ZK/osmDGOMK+/yP
JZDnLMa5l2d8g9PIcxdDYBFzfEYe20+Mqeun2o84zvYTwyA1wrC6hO0nxu20
r2uDytl+YoTN5bRNr7L9xFCPbrevr2X7iREsG/vAt4HtJ8azlSc/SjWy/cQo
sqjJPPic7SdG7835Teqv2X5ibIi4UprUxfYTo3vXVqHiZ7afGJ9O3HIP/c72
k+DVk1Hj3wwuov0kKDtz7o6zQhHtJ0F7ctOYo2pFtJ8E4f/c8vymU0TfPxKs
8/1zzUx+Ee0ngez4B7MOmpPnLEHbYwfeXyLy3CW4dE23frAded4S5OoFBo0D
eVskmN6+0tRjBnmhEhS9bmoKm03eAQnuZjdnZLqRlyLBZc+1AaVLySuUYI/j
kvVXPMkrlSDbKi2qxpe8yxIElg26X7OJvDoJNJb4LLy6g7xGCZ45HVI/F0Je
iwQno6GTE0FejwSDO0TrI2LIkxqDCXLqaqsTi7j/AeDnkC4=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nk4lev+x/FFGmTIEFpkXMu0FmvU3O752M1SIhUNKIW9KVNIZaaQeQjV
qTRq2NmO5sHYJEuDEppOg6Oy7QbSHKf96/v883v+ca3Lfb/u9/291vVgvjLY
bbUyh8PJVeJw/vn5/5/tJf88h5mg7LJF+gEjmZ+fzzLZb5u3aAbwGQf5P089
Iwy8OkN5p4h+38D07P2P8xt/B+ancosx2bmwvSlhAq2/w0CP86x4xxTG3++f
5x7zTWMsDt53pP3tTEHXNP8w/2lMk+Kf5yGzeqNXr+j9DPKeMKm7Prxrj59N
658ypmsaQ0I1nMl/ziwO+Tumt2Qe7e9gol491xXnz6fzOpmjMwuqFre7kveS
ueu8/0qY6QLyXjFnlbvkcavdyfuL8deN1tx0dCF53Yxb60GvgHeLyHvNtPpo
2k8d50HeW6YtuSBRLcaT1r9l8p4EBtTULSH/HWP3cNRLn2HLaH8PY3ckQq17
7nI6r5dZOfXUQ598L/LeM+7eQX5Vbd7kvWeCT1xuV8r2Ia+PiRt36kWRdAV5
H5hbw149M7u7gryPjOaYSNedkSvJ+8TURh0/q8r1Je8TIxQa7w0470veZ6Z1
THrumeWryPvCXOv7qvl5YBV5XxmR7dlS272ryfvGFN51uj17mh9535hNVrGW
np1+5H1nfvHws1qc6k9ePzMmw2vZVEEAeQOM9WG1+caKAPI4KJd5pXes+Y3W
c9BgUlBQPOJ38jnwK5v4aXzF78z/bZcrocZEwlx2C6TzlHCr4kDv5PeB5CkD
k8z37C4MIk8ZC1TibnaPXUOeMlal9qrz29ZQzyAMctDomBa9lrxBSDU79WSe
YTB5KlihGJPteD6YPBVU+XOnaIpCyFMBb8aS7cGxIeQNRtpanX2XboSQNxgV
j21MNUxDyRuCnqjTLbOCQ8kbAu1ballR1aHkDYErp2xEyYgw8oYiMmyqxR/e
YeQNRdPRxszK8jDyhsFYf7XhsYEw8oah8kpgzjaXcPKGwWHqujNhu8PJU4X/
NOeleBNOnipeRn51HJiyjrzhODzh0pjyrHXkDYf3Ej5n/uN15A1H7s2W35/a
R5CnhqaQm4xvTAR5apAfmz67RRFBnjr4E4+6jhsdSZ46Ym5U8NICI8lTR9pV
p/Tr5yLJ08Dt+4fmf1WNIk8Dq6sn/WrkGUWeJj61nBMIyqLI00T5DaN71h+j
yNPELOdirZEz1pM3AqtS/jj4umA9eSPw8Nno1aefrydPC3Y7u0etlUXT90sL
fNeAbJ2EaPK1sKDUfNv+m9G0Xwufa95+4ZlsoPO0kKDWtzUnaAN52sjMLzTo
OreBPG3k/JkQJFHdSJ42nqRVePou3kieNlx2+x1PPLCRPG14uNhNzOrdSJ4O
ypa0KVIcN5Gng+Wrt479LXsTeTrYGFExc/yjTeTpQCNY+XaPIIY8HTRkJu4r
Xh9Dni4+P0jMsb0SQ/PRhcqh0t8O6MaSp4uV765z1FfEkqeL4c/G2yw/Hkue
Ltyk6/5d/DWWvJGQ5ruHVc2KI28kbE2VJt0ojCNvJBaffPufq8/iyBuJ/ZKI
7S0G8eSNxKBHykMnT4knTw/tu1tMi1bFk6cHt6VONzvT48nTQ0d154CgIp48
PXhEee70bWU9PUTN25Cd85319JG03OlSBS+BPH34iN9bXp2dQJ4+1r9o3H0r
OIE8fazxczG+UZhAnj7C1lilV59PIM8AkTUWzfufsp4Bhs/E05ihieQZoFt4
YJ+TfSJ5Bkj4WjpYbUEieQZQqq3orVqfSN4oTLbYsMRvVyJ5o+C/odFK6RLr
jUJs757p2a9YbxSSd5nt1xqRRN4ohKbvEKc4JJHHhcH9zJZuzyTyuNjetitp
ZlwSeVzcVS+1LtyfRB4XuXPyylsaWI+L8Gs7VFXfsJ4hLlvq8MUjk8kzhGlS
xN8zJySTZ4ja9FD3BV7J5BmiJ+bRTNekZPIMwcGFU45lyeQZYbbP5Bx+E+sZ
od/iTP3nd6xnhLupJ1Grn0KeEVIWdn7YMCmFPCM46tncs/JJIW80Ppkl37iU
nELeaCSVim+5H04hbzTqc7c23mtivdEoruZXOPWw3mg0N1aG/qm/mTxjfLEx
7h86aTN5xrDghs509d5MnjGKj/w1JSNpM3nGSK9833Lm0GbyjHFUYdp/r5H1
TFDnZHe48w3rmWDOuMENL3S3kGeCdzNrXe6P20KeCUQte8VVS7eQZ4LGmwZL
8+O2kGeKuJNnL3nu20KeKdKS53prX2U9U0w/Xm98rov1TPF+2PjeBZqp5Jli
Vc275sfSVPLM0Dzd988lC1N/rueaoXyKIO7q+lR635jhYtgIueVO2u9sBs2z
Q2rCq1PpPDOIO0SGlc/IizdD5B+3xzwfnEbnm2Hjbt+hKrZpP71KM2QNJCXp
OadRz4/Pp77tMghO++l1muH4+Lp5w/PSqM8cuUG9W/4+QR7XHLG57UxtK3ly
c1zjvwxM+UKeszmSrlxQmmicTn3mmGxs+vExk0595rA9y/l13cp06jPH0g+b
2j4np1OfOfwft/0ZfCid+sxhqZpU29JAXueP8zbpKtl1k8exwNTMOX5hmlup
zwKvzum9LJNspT4L+OakxNx020p9FlCObzXuXLeV+iwwvyakpnvbVuqzwDfr
/yx7foa8EguIVdu7Gu6TV2kBkfovK/d8I0/xw1fVOe9nkkF9Fjj9bPPfo5FB
fTz4Lut5V7cig/p4cOhrrvFIyqDvDw+qVTfcHu/PoD4e+iSVexZcIc+Ph6ND
I/adeUFePA8R2hJ3DdVM6uOhcJj1MVdB5k+vkodR/vX7U+ZkUh8PgkmF4w4H
ZVIfD5+/uHldyMykPj6GerTrVB8nj8vHa22hS8VN8uR83LkWopH/ljxnPmbd
/DRzlXYW9fFR9XXsZ74si/r4SIu+ZNTilkV9fISXeB9ZF55FfXy0lf61e1BB
FvXxEbMr5GPCCfI6+bghNjr25i55HEs88px81rmPPK4l+txmG5boZVOfJW64
Prh+d0w29Vli4dLyKwMLs6nPEpO1DqoaRmZTnyX4G+qzeduyqc8Si9pEC0ef
Iq/SEsuDZItU7pGnsIRgxqTsB33kdVpiUGpQ/63hOdRnBa2/HzcdNcyhPit0
93g5xApyqM8KG874S2ZNzKE+K/x4o9aoOuVQnxWGL3R/XudJXrwVokISi8J/
I6/ECtm7mh4YRZNXaYV1virl51PJU1ihf/dgrQXF5HX+OC+y5vvTQ2yfNWaJ
HaICTrN91vAxDtnYeYXts0ZdYr7qsntsnzWurmsya/gv22f94+/tshr7PrbP
GntuZL9IU8mlPmtop14qfKSbS33WKJkQcN2Gl0t91hiI+pgcKMulPmsoqfRf
OuCYS3024B3XT2+dTx7XBnkT/7rD8SFPboMH0xz2mgeT52yDk7yz7yfEkudn
gyMKl8bZmeTF26D+9ENL151snw0k9W4q84+yfTa4q1/pN+Mc22eDJ0M15jo0
sH02+O1bzGluG9tni4550oMfOtk+W5yR+nAb+9g+W9TluWoXqeRRny2u93tm
LdHNoz5bmKU8yNGzyKM+WwzZMZ17TZJHfbaYMjDSJozJoz5b5P3rzkXdeeQp
bLEsbNSDY8vI67TFoLVb4n8JJI8jwDGP28cvR5PHFaDyZKXf9FTy5AI4HfpU
dmEb2yeAsDkyUniA7RNggqP2rdxKtk8A+ezTp97Usn0CBAatEk6/xfYJUDjF
TJz3mO0TIHNWf929brZPgCndxi91vrJ9QmyadWT3DNV86hNCyfh+V6hBPvUJ
sfb4m+sFlvnUJ8T8I+Mdy+X51CfELDVNl1rHfOoTYsL3O33XXcgrEWJ97eex
iuXkVQphkf9Z93IgeQoh4rZ6ZJ2MJq9TiBWbDx761xbyOHaoHRK7IqaQ7bOD
3Cj5ovs+ts8OB38NuMirYPvsMNq1Y2VXFdtnh3XuF8rLFGyfHeZHVx3wus/2
2cHsbd0M9Zdsnx2Mmo8WVPSxfXaIHLI6d96gAuqzQ6l1x5TnWgXUZ4/tATa7
g00KqM8ePhsmnugVFlCfPUJD7eKDJxRQnz0ijnIHP59Bnp89uk5YTZ/nTl68
Pb6JEn6tWEFeiT1iTnoPqAWTV2mP+5eUYr02kaewh+Oe8pqyNLbPHp3jzjV0
bWP7RHAbsXEHfz/bJ0IXz338ogq2TwT/O+V746rYPhFy6jiP9jSyfSJoX6p9
dbaN7RNhdnVE4/X/sn0iBBcdSr7Tw/aJUKjTZXB3gO0TQa22dYtCvZD6RDjc
odN6gVtIfWIs9Jg+7IBVIfWJURllZpIiL6Q+MaqGLDdajkLqE6ORe17Zfi55
fmJs+q7U+t6TvHgxmk04O074kVciRkxvumtQOHmVYoiexX43iidPIQZPWF1a
n8H2iXHx1hhH3xK2TwKn+DuPvxyg9eoSdG/Ijkn/N9srQV6sv5lONe23ksC2
3Pt6bmMh/X8jQUdcYqxqG3mQ4PjOJ0x0B3sfCQ7dydF++pY8Twna+8s/4Dt7
Pwn4r316ilW3/fTCJdB2VQx9pbeN7ivBhz1mE6UW2356GRJMUsvLCBVto/tL
8OfSJcpHJm776R2UYMSLM7vuzyCvUoLSiJ5VgxaQVyPBMJGrB9+bPIUElvH8
Tb8EktcugVir9s68KPI6JXheGr/SI4m8XgmaB9UJl2STx5Hi1ZeXMvcd5KlL
oSHy2jjjEHlcKW5oZw+TVpJnJYXb3b8f6VaTJ5cibPa7/tfXyYMUzfdGBtfd
I89ZijE+bdKsZ+R5SvFNXuPk9po8PymOf3S/qPmFnZ8UjQW8zPrBRTQ/KY5Y
XrwYol1E85Mi4NkpN33jIpqfFDaaR1xO2BTR/KTw6ZCfcXIoovlJMWFzX3Y7
Q16NFMzL/Ps+c8hTSKFUc3rHk0XktUvxKVSj1WMleZ1S5A5My2lYQ16vFC59
2o2yaPI4Mih7CrcWJJOnLoNb8Zy7r7PJ48ogjpIccdxBnpUMZf3btTIPkieX
4Y9AF7XbFeRBhiEmers0LpLnLEPqllOKX6+R5ynDLCOlHSF3yPOT4dvky+pF
j8kLl6FUcs/y1Ct2fjIMqA7vanrPzk+G7TsnLH88wM5PhtxAJL0YXkzzk6Gh
5Jv3K71imt+P+92f9/G5WTHNTwYvb8O5rcJimp8MV5umra4fW0zzk2Gz4NTU
MkfyOmUQNHl0pziT1ysD5nN9ly0mjyNHYmLnUeFK8tTl6Flccb03iDyuHBYP
gupPRJFnJcd+E83taxOL6f0jxwlRhpt5JnmQ46Tyk7eKIvKc5RgXrBIdupc8
TzmaDT681vyDPD855q6oXHTgNHnhclT7Tj7hUEdevBxfH+apXVSQlyHHIN45
nymt5JXIcUD/9OkzT9n5ySHSzxlp101epRyeb503Fn9g5yeHsPXDm++cEpqf
HGMWFEcuUyuh+clRM/YX3RN6JTQ/OQxzexpUzEp+er1y2Oy9smueoITm54D+
pmuFuQ4lzP8AgfViKw==
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226589544273*^9},ExpressionUUID->"15152a69-38b1-424e-af20-\
fbabe5325630"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwtl3k0Fd7Xxk2RiqRkSoN7r5k7cK8U7QhFoQlRITKTNBJfMoRIpUGZxzKU
ebxT7YpQKJVSKmMoJRKZvfe31nv+OetZ59l7Pedz1jrrnE3OfvtdBfj4+BL4
+fj+N3t7/m8QkO//x0nPpLJQnna+LlXFP2EKRl8cLj/l6dGVFwvK/9rAKmP7
EaoXAeM/RzEIusfgwK07n1t42nDNqfRz426g9/uqZaI3AbednlTVKPGBKykk
gzgfAv63ad5UnO4P8TtLMh76EtBnaK+lhOQZ2Jbw23vmBAFjy2PuxYycg7h3
8olnThLQ4EBCp8uLQIjc9kVC/hQBsysuJV69FwxfiAdafp0mYNFoYOJEaCgU
Zkqxf54l4JfU9Z+faoSBm/fmRukAAnY9WjonlRQOwvMWPScuEHDPgjrrh1Ak
vPvuNTYWTMCTP2VqdU9ego4Q1d7MUALyD4o+GP8UBbSUopSgcAKmySsdlTKJ
gRX1+ULhlwi43JJbfLP4MjgFOAhUxhDwPF/wHVfpOFhRnB+w6goB1bPuKIeH
XgGrpDmz5GsETHH7E9M9EA8TSX62ljcJeCWawRdgcQ3MjnEuat4hoLLh38kM
u+vweueuXN0UAuZL1Q5Kr0iAoTaVDJ8MAgZtXJG54VECbDymatGcQ0BRosB8
ud8NOCjRFmOTT8BO/avDLRtvwp5aD/XlRQTMbPzn4dN2Ezrk+MV+lBHQU9kk
IjbsFsjRAoXGqwk4vyPbjki9DZ1ZkYMkDgHN3z5Zx+i+DY92lceGPyHgdgO9
lZyriTAycurJ0gYCzhI/XCrXvwNkiY0Otc0EFIj5Oyj14w6IPhagJbwhYL0f
lvQm3oWadHuxmx08ftpRXlI7kqBx7Phj7lcCSuwcqS0cSQIZtsvaVd94fHL1
rDKSkmFiJLfryjABu5+cn/i9IwUMyy8PUv4Q8JB2TXTSrxTwuxc/PTfF6/+L
Mnk3MRWU9Cy7RxcJOGB8wmR4WxpELrvhukKEiEUPPa/GD6TBZ+O9+63EiUjc
W7gQHJ8OM8K1J5hSRPS+bt9RrZ0B3U264eYKRNx50e7U5o8ZINMQeUCARERF
JiF1cVsmPDySnd+tQcSvHabWQgmZ8N3nu+k3HSKOPqaQC3ozQaN25fhKAyJK
bu5Z+KmdBUvIZH8nEyL2bmDltEZmQeuWlsj3FkR0I1wQsWjPgqOzPaP+NkTc
s5e+3p2UDaIBXedpjkSUSNw9IH82G9Ke1nZKexBRxuioh1ddNpQt+/5lkz8R
h2MMavatzoFNmRdg7wUiKmj2/X59LAfofWJPsiOIOGJtqzdYkgN7NnUrysYT
sfl+dt3N+RxoPPKGWJFIxLGC2uZ281ygLPpFncwkokDmscSHd3LB9syE8L5C
Xt7niiel+3PhXpGN68FKIoqokcqlKPcg7IqJ04VHRIwRl390P+ge8Glvrn7a
SER5MeJi0/N7sHSLH0nzLRGdfpZ8D1l1HzY2z3ozvxDxpIXTbN3h+7Art36n
+xAR2/S/s1Lu3Qfy6PVzjHEiujJHawR+3wcdKaFqpQUenx2/Yqd18yDLtuiZ
rigJQyMF20Mv5kGry9KjnmtIuF2xD2435kFSbQSwN5BwSXP2f3oS+TD655KK
pjoJq2+l7PKxzQfSzKn2RwwSVuTvcNFMz4fSFWWCJ41IOO+39G5wfz5YFhWd
3G5JwlUaKkw7tQLQO9n7kWxPwuKNcZl1fgXgk/9xzsCNhK42qWRuZQH0/6Xd
8TpFQt0lilY7pgugoSjPrSqEhFeqpH7bGBRCFHWl6vo4EjYRg4WnLhaCiKRL
au4dEqbN6N9UqiuEwU3PQnblklDxyExSr/AD+Hcs8KpoGQmjPIZIGmYPQPHV
/OVBLgkvPcjdJRj3AH5JzJB7X5Aw/rqYnEfzA6hfagHTH0jY0SNbay/2EByN
xM9rfCPhl6Olpp0WDyHQJCEx6A8JWT6hv7/HPwT9Jo+jA4skDFx81xPV8hDS
mzzjfMSUUCf73P7yFUUgF1rcLSavhDebAoN8dheBol6SwgsVJZx2WZdadbkI
CuU/CGQxlHC+Km0qvqEIaOi874axEpZdlv40IVQMz1hRL9L2K+GNGturvwyL
4YBgN/mZkxI6rmS5nw0phr87nHYI+CnhrjwBbjyrGOxX7G2w/08J5xI3f2dM
FoPs8N6Q5jgl7CCE7fanlsBmX0d122QlVHaZNTXwKYGLQu0JM/k8v02qUcr9
EuBr9zxbXaOECrHLC+K6S8DXi5Ec+5ynpbefERErBbZ1Vd25diW0c7Ji3lAt
heiKOuaFfiWkpKp/HTQphY6UvG2J40o40tWzXsS5FFhBIrJNAspIWBRkjv5X
Cpp2E+KrJZWxOuDucG5SKYgLDA+c3qSMu4uW/SNUlYKjUrP7MEUZ5Z3kFU68
LoXLDoOHArcr4+fwtsyI4VJYt/5fmMJeZbSx8H5+XLgMom8qPvjgqIwKWVZv
V20qA6ezC6l5fsr4hLkoFre1DAq58RvjQ5Xxlaroo9fWZVB5wGgx+poyFhGn
1Pv8ymAxd17gboYyXpAyz3p6mbeuuWqSU6KMT8OdPPxyyoA8ti1n8rEyLm47
0/ydUwar+pjtxq+V8f63GFna+zJwMFSyy+tWxoBcp9Rdv8uA0J00rTCmjCV7
T2ZrLi0HGffUiHx+FYxqeBvYs7EcHoYp15lKqmBXkpH/cb1yWC2QFzOlqIJ/
+Jd0VO8rh7R/U+lcbRUUInyf7/Ash6Fa3/bbxjx/wmbtl2HlsLe3YeaitQpy
ScWN8UnlwG+m/zXETQWzJXxWbiorB70+f6tr51XQa9ufQ5cay2HyXtj68hgV
TJ1e84/VVQ53Dk3KDyapoE77+Nank+XwwqFZRuuBClp/Gg1MEasAjUD/gSiO
CgpP5wnuJFbARHCdzViLCs6xBtTrt1QAQVBK37dLBQ/p5pqs3VcBrisJnjOj
KrjPdDpni3sFqJWsL7sroIq/xmWSaf9VACTkDe5co4rWFLOghRsVwEhs7hZR
UkUKtzM5Pb8CpuyW+3foqqKTjfKe1Y8q4E21lS/TTBX9pMJ6j7ytAHOj8cLC
w6roIs4oCxqqAIk6zuIDX1X8Qby0/OR8BRjndRlyQ1UxXibJeItkJQS4ze78
mqCKGxrCSz4pVULiH7nv4rmqOJ2jnbFvayWISFXOWVar4qJzgFuGVSXsaLlv
n96oiuffj9vWuVSCXqF+59wnVdy0IPscz1dCzAYVW69fqrh6p7rg7bhKkP4Q
kTewqIpZM+Rjhhm8fott9/wl1fBK5zj1eXklHLw1q76cpIbHR/kbCM8r4XCh
1ZoKXTV8H5jpb/+xEs6XhOt5mqvh1OqWcK+flTBSXHRO8yjPz6+3++BiJVhf
t8hb9FNDkwwTeRnJKig+aJTXFa6G//j4d1QTq8BqX+v+lttqeL9cUZKsWwV/
PG5HNearoX/W0o5wsyroMUrd0MZWw30qlX1lh6vg6sWdswOtavhme0MEx7cK
2GP2/0R71fDU+zDhnNAqgIapMb0JNWzc+pjpmlAFVXWZTeeWqmMmjv8QyqmC
9f7koyivjp3uaoMXK6vgrumXuLVkdTzLEZj9WF8Frj0G9EAjdQyqKz4l8aEK
tmiB3pC1OjqtGksiDlWB6l2VABdPdYz/KcdZO10F4ozkNz+CefUZy4iDotVQ
8S9ONeS6Oo+/6rpEuWoYfrPHQSFXHR0UfEYI6tXgMhq2v7FGHdeftei/vrUa
ajpIQyEv1bGUv830y+5q8MqK5jfsUsc7r0IdRI9Ug6GceZj4uDoulriflvKp
ho8zzuaDwho4oCbXwh9cDckScttfymngragH5a1x1aDsu9SUpaWBVX1lXsEp
1bD/tvT2SiMNNPY13rr8QTWkl16UZNpo4KuUGc8gVjUkMl9mNXpp4Nq44a0t
TdWQV9z6pjdEA7uOFU3wfayGP88exorc1MDpFwc71w5Vw9fb7cWMPA0cDTlD
Wfmvmve+ESKdZGtg/5d1m38sqYH+jfC24pUGDt/t1MlfUwN9o+0Z/P0a6O3F
9jAj1IC9tLO/3ZQGfv+8Q6qVWgPCB+q12Cs0MXtDYBBjew2cXKn6WGmTJuYN
dXaGW9bAePq8aCpdE9HF81zFkRoYOTs9KWeuiZmaKbGNXjWg7y5zIsdBE6UP
u9s+DaiBqZ5kW/ppTSyK2y6fFVUDMZQlqa+jNXGLyNo1rrdqQIq5nng2VRO/
fjsQKp5dAxYw1qFYpolbjfqS0kpqIE25MedjvSY6nVXLlOTWwAs2+UTSJ00c
PCzW6vuCl9f/7ybn35oomPvLoeRDDfiRFQu0hbRwBfFB/If+GlifIjgiJquF
ynq5twbGaiDFYVPnqKYWvtSsLvq8UAO/zxke/mykhSl5BpKs5bVACnOze22r
hW7rpGdDZGrBSfQVNvto4TLLjEx1Ui1Edv4NbgvTwjPNFVuQWgtHra8Efk3U
QmJIBZ/Btlo4yYrIHn+ghXu0QlWzzWtB77JAv8QTLSzaeGH4t00tUN54qDHe
8+oLY4OVXGqBet3S2WVYC71ey0ma+tVCskBEwF0+MjZ/l+mxDKoFYdEV9u1S
ZLTbOaVgGF0LFy+S/sqqk1Gsq2xu3c1a8M7eruO2nYzls3Wlvem1MHVccCnL
mowrRnV9bxTWgsGXnUelvMnY3nL3uEZ1LbzNllcMuEjGxQ0LjaVPakGB/ti4
9zYZl+WLNG9o4WnnexUHHpDRZX1XemBHLfQXnzrajGT0m9h86lFfLdx6MkfZ
856Mihusz42M1MJks5nC22EyKrUvfhKdqYX2hYaYUj4KTjjfeCWxhAn+Z5IX
LiynIOnPeLigBBP2hwwM7lpLwcpDyYReOSZ0BMTry22iIHcotushiQlnMqL/
jqhTUMDocL8LhQlyDX0iDQwK9hBpjiJbmRAl23Ai25CCHqaNwXdMmMBo89kU
toeCvSRPzzV7mUCdJMm42FLwb+/43hB7JlyWt9u9y5mC+lKfHdqPMyFZIbyC
4kvh/U/UHsn6MWF1D9VsXQAFhzJCknYHMqFcUnzJ8ggKZsmJy3tHMIE9+Lpr
Lp6ChwTyfALimUDv2vVm7C4FpWZLak7fYcLbiEPt33MoaKKnSjqaxYRsrcme
/mIK2h4p+qLzgAkOL9THepkUPG92SnS2kgnxd9bO9dVRcIOw+euSR0zQHxuY
HXxFwZYbOXYHGpkQKdn9feQTBS3r45q/tTGh+LPt46lvFBxRLLZy72SCYHr1
2SVjvH4sa9GOfiYc/nhOWGqOgpHzvhs2jzDBRpzkrSxCxdikiJrof0xQDndM
05ek4rm99ZPP+VigKfo+8aACFS+9FhKYFGWBRJvZPj8VKmbE1cyvWc2CLPX4
51e0qfgt/p8YcR0LdttHjD7cRkX2gUgbAokFFPuNTa/MqHg//dmMpBYL+ko9
zCcOUrHZ7KnCOIMFz/T8Tyg4UVFfgd77DFjwb9yBvMubivsyA70u7WKBUJtb
9NlzVNw9nNihu48F4xEtJ++FUfHD+W2WnXYs0Ng3+O3DFSqeGG3+6efMgudf
pXtW3KUiZ8G8fcKLBZeXvDlinEPFYZkTKr6nWXA2+86BkGIqdlokCb8PYkGX
x/RjFpOKfBJfr1EiWUCqSkydrqOi7uJcX/AVFgw6KvRveU3Fs2VuiuxbLOhI
MEsI6aRiX6C+13AqC2TufkuvG6DiRvK+T2L3WLz7qUlE7A8V//1WTVAsYsGs
6OfntvNUfDuw8FC1igUPjCU+5C6l4cJyzm4Cl8cn3V3772oaWg3wx62sZ8HL
tNH3JhtoWG2uFDPSzIITf59zktRoaCZHd8J3PF4HV3f/ptNwbmGUfOkzC8p3
L9ffZUjDaaV3qw36WeApO/Yyew8NnRYkVIaGWfAxdnXcoi0NhwZvxESNs6Di
bcsZBxca/hhf2Cszy4IBj+jIxydo+Ol2ZWqaABtiOiuqFC/QMPNQa9TaZWyA
yjeCMZdoaJqgqBaxig3KVn5ev6/TUErCOKtPhg3StRu/HUrl+V+HC2/eyIaT
0Zf96vJoOJP38/RFZTbsf2y7hFZBw+wxC0GuFhsMC4yzsx7R8NsWWusvOhv0
K9cYrX5Bw5Gf/b8kDdhgeuBOd1Q7DX/+9Q/SMGaDxef7gXPdNLzqff/alt1s
iHdXET3zk4ZrtqzaYbCfDftKlsf9+kfDokeCxTp2bFg3aj7rIaiN0yduDG10
YoN50w/rAXFtHA24vUzAnQ2zCjOJrnI87Vyg3uHLhrOTCawBkjZeLiC75Jxh
w/Cxdo4nVRtjj1g1ugSxIenQWNKIvjbOMif8ZcPZsDt9neXZXdqo2/j+XF0M
G7bfu9M+f0Abl4/4/jp+jQ1e/g81Yhy18cPlheGZ22xYFlxstcZbGwWib8VE
pbKh7M7Mluxz2vhtTOijSA4bYt9N/qCGa2N17MifkAI2rHWVPPIsXhudbVjD
wyVsUI2oj7VJ0sZkrdQOy2o27LJOOD2cq41Ge2+25nHY4PRuUTK8VBvth7x6
J5+yoaUsx1WOo41XM1gq+k1sYBvIeFQ2aKMncbDq/Cs2tFrwS+99q41elYrp
Be1s0CAu9/v1VRshx3eirZMNDTY/fK780Max7sRXoz1sEKw5LKY5qY3PQvS3
Cw+xoVCPaPGKXwdDac32kiNs2NAloXpaTAdrOyJoUn/ZMJkymSYjq4PkCf9P
4jNs4BqW5z8m6mAT7Zzr4iIbiB4qph4UHXToMRwYWMIBbxuT05L6Ohh26pBf
/XIOLPs1p/Fopw7un1i5OmUVB8qvmZ/0PqCDV68n9LlLc+DaSuoWOUcdfDD7
8Y+6Agdab7OiX3jp4H+TzP2Dirx+V6esg8/pYMvj92uSVTiw9aZgNjlcByNi
C82NtThgYjvr0R+vg61jkUsGtDlgc0M4PzlJB2u842xC9Tjw8ef+I/vv6eAi
i2kpARwYGl4TsbxMB7c59i7cNeZA6Zdo2eccHdQUKjkva86B6fpf68Ibefv7
ndmUYMWBBfNrsfBOB8X8Vi0RsOZAdDbbcaFLB1MMaVu87DmgFtqY9GhYB/cI
iQe+cOTAp/lVjIv/dDA7OaZN0ZUDD27OUHcI0vFPouOB014caJn9ESuyko7p
WWriHD8OPCft39YiR0flrsOr5s9woIdwz+yWEh0/Htzuw7jAgTeyjoVHaHRc
bcGn5RHKgSR1fgelbXS8z8xwvRHJgVs+ks5jZnTMvL2wqeoyBxpbN1Ryrem4
w/Sj/+urHHCX5OyLO0bHvulGl/6bHDhTFbrZ3peOZiLGwmN3OfCob6mbWiAd
k83T3SfTOPDNbfbDbCQddcNFE/9mc4CVyHel9ToduwpuZwzncaDArCE0O5WO
16ypNzofcuB0vWDZ+Xw6Vi8rDKor44BIqZ+CZSUdp+4+9LxfzTtfvhdPSUjH
q/71nmFsDlSOvk9feEnHgXmny9bI4/vLsaTjAx0PT7xsV6zn5YvT/lPRR8cP
ZdpHvjdx4Ohpkuv133QsirivWtDKAaqduPCJWTo6C63Z7fyWA0+GX77ZI8LA
Qg+LljUdvPqG7U0aqxm4tW0JFz9z4LHHwUGxDQz0SHmj5NbDgfr142qjagwU
KFWXXjLAAbkFsRtvGQwsb/NOTvvB4/E2Wa7WiIHPfrzmkH9zQFXm1tM0Swai
XXAse5zHu3cqOtKegSIGp1caTnHA8XOzh48bA4UepdviHAfu6ci4WJ9ioOHh
5hN6/Fz4eXPwDIQwsI5a7PRwCRdEJPakqsUy0M2kc7PsMi5Ibjz8YW0iAzsa
XwlcFOfC3etaRKFsBjoe/9XULcmFofP9F/8UMfBfUFDSVmkuBKhlDPcwGVhz
Ji/4ujwXgsmXnN/UM9B+OjKkawMX0ulP+p61MXD3NvFCFSIX3oiE+1Z/YaCn
MXGZjwoX9ofPzBd8Z2C0/LWCAg0u1EYfu5k+wUBJ4sKNHgoXYHJM/Ra/LvZa
LW1bTefCxrQf9bFiuqjnrHFiux4XRGlXHcNldfEhue2MuwEXmkwJ/y6QdFH9
s8nvGEMuzG/7G3uGqovFsk8Hc024wG9qJetnoIsmrm4ebDMudBhHZXqZ6WLj
Dv2gZgteno6R9e7WuvjtP4Zaxz4uGO3svXH8mC4eOEwN/WrNhZYA7oyzry7+
/PInosuOC8M/ug86B+riwoyaUedRLvTnl2Y4X9JFj/bTz9qOcWGF0a2PLgm6
iBP7Vj1z5UIYTvK5peniSLgOvcSTxzvTdI1ngS66B57dnOjLhf8DX0ZfdA==

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtk3k0le/XxkuD+pZMaSCVqYhQz5nP0S5DIUMliiKlEhEaRMqcRMo8D2c+
EokiJHalECqVIpWhQhEiFZL3/NZ673+e9Vn3/ex97b2vrXLIa9cRiRkzZsTN
nDHjf9/jbv87BM74/1OY4Dd5Qsz31SL9FMbWgLdbWlGQmA/FKpTMHKOA0rAg
OkPMN5Z2JORSt4DhB6fLD8U8LB18vfjnVvBKO573U8xGcl+ZSUUWIGvsMLjB
ncCY9xEUNepOuFyWs/ucmM1f7dN3UtgNNokp75vEvGXxyWzfUTvYvSn8os5x
AstfyyS5NtsDfeiqVbKYN536paVTuB+mK2opCzwIzB6OOF195QBcydAwiBbz
BZWprYvIB8H9fITzEk8Cd8Nj0xzeIYjZVpiTL2aPvh1WMnKHwXR0+7jlCQL7
1cJ7nYKPwKa4oeMTYo4qjhREDh6Fs06LfxV5EWhb8Vkxev8xiH6tlHzam0AD
m7h2l6du8OSelbmhD4HCEZkLMrTjEL7pg4zSSQK5ty8mXxV4gOfUx95/YnY5
V4vtcifgg7pN0/dTBBYM+yePBXmBadjq6t7TBJbqyL7z8PWGPLbCvYEzBH7I
XPn+oY4PDLzpq/rrS+Cjb9c5k90+cPQ4rW6pH4EdVfP+KqSdhG3Xo14b+BNo
vyf/voz1KZg7Zdl14hyBFv+0K77NPg2NMm39eQEEWh+1fsKtOA2vv7r/+HGe
QO+BZWVU7zNQPVd7yCiQwKaq50dzNXyhNVCrmx1E4Mze+TdG3/nCNtUDtfNC
CLxKLXVaFnsWNmYUZASEEpiltMZRwcQPHl3r2DceRuAa06VhX8f9YOHj3Nmh
FwlcYHX/ZsJNf3hvKIxXuESgwsKGajmXc+Ds5yRxJ5LAszPOpxxZGgA3Dm7Z
4RhF4KRf1rLohgBYeDPXT/YKgdqclLWhQeeB0fv27IsYAmVP+OaZERfAOu2v
Wfo1AjOOjkR29lyAawG6/SfiCNxm6p9vkh4IY2lee6wSCLxyiTLDzzIIQoLy
o2hJBCa3xNCYM4LB7GBl8PoUAtdu+fkrxz4YTMwPktenieeZnnb7a3EwvNhm
yqdmEJirUNa7dGEIdCbPr7fIEvvr23mpdUdCoK9ZM8cjh8CA1QvZq6pC4Ogq
BdUUDoFppuFKf5aEwuqDWpaNPALnq0tMFXuFwk+XfKWFQgLJZP5D67pQ2C3T
HGmXS2A762p/0+owsMkovXYjj8AU7sBvHf8wsCg7pr2ggEB23e9jHs1hoNTQ
YXemkMBU898YrRUOrYozpb4VEei21iQsKiQcdObkmLrdIfBtyw7SsbZwUNzo
P3u0lMApI669+oaLYFbHYl4qF/vjwXv/qsiL0M4J79Wo/N++PVhB6bwImSFt
s55XEbj1J9EQRY2AKtPiqNAHBG42oEtXXo2AYZ3TvptrxPs6PnWq/ksEDA6e
fDCvVjwv9bcXi1mXwFn2x5H2egL3vjZ+6ZtwCfRkVjuVNRIoEfmzV+GbmFNX
83OeEzh07JHdtc2RML9aYmPcSwIfe2Fhd3Ik8JlPZsa0EGjlq3tR+nsk3M12
kEpoFfuPiHBXMLoMwugcK147gcQqv5+jqZeh7sfh6vsfCZTZNliWN3gZykyO
23d3ifd19iJrunEULLvnskT2i9g/fLp1TloUOAUOD5n1Efjup6zN+8EoGBvk
d1zpJ7DzwdmxIaNouNA2p6NtULy/1JiXbanRsKX4cq/+iLge4u6ltO/RUP08
dSRujEC9C9m3dQ2vgJcgZvzvH7H+7/q/UpOvQPy/O2M+fwn0CuQOv/12BdbQ
rTqHpwnsMT5h0r8pBr4HRxf7zyLhCoc9qS/jYyD8v/gjCyVJWJDvdjWmJwZi
rM6N5P5HEu/fRJMS4yq8N96xy3oRCdV35P07H3MVbufIB07LktBn9FD9rc6r
MDG37ES5AgmPxzq0lhLX4ISNhvKF5ST81Cz39mrENeisp4aaK5NwW7D9SVrb
Ndhlh8kqKiT0P6ye36YQC8tqw20kNEioWq6WOb0pFrolNxcNaJLwSGB4l9Sx
WMjfz83t1CHhx9attrPjYoGfuXPjR30SHraWbe4uj4WvHl+3fiGRcLhaX+96
dyxoBkx+HKOR0HZ7qvmeBXGgUyY9Km1AQjla178BIg504/kBxBYSnm4013Tf
Hwdz9PR8nE1I2L2qgvcsPA5oQqXGZDMS5n8qt1IsiINnjKbwN5YkPKp2TtKy
JQ6GErMTVu0i4eDf5/lHp+LAcbJr2MeOhBY7yCtdNeKBfaUrscmBhCdc65hW
lvEw36/j7MYDJJRJ3t6jdCYePChL4tkuJLzTrD79PDMesh6WtS89RsJlho7H
3Gvigdc8YpHqIdb7lD27vz8eiv77+kHFh4T9kQZ3d8onQMOm8og7Z0h4fbfa
4WxGAqiwz8GOcyRUXv9p6MXBBFAdN5gxFkjCH6Kb8DUyAcifpB5ww8R6bffQ
ewsTYN3UoL99JAkjVKwePX2TABYqnarLY0jYKOTWJEwlwMqMd7e74kgoeVFC
w1A9Eer2v1S/nSyOd72sscU8EZaRSj1jMkjYl5zPt/JJBP1prwhvNgkl2AeT
81MSoaXz89H9AhK6afyKHrqfCHtOj83dmSfu7xNV76WfE0FhZqCTVSEJP8TR
ddX/SwJBgd2R3XfE+dZpFCvoJ0FksY28SzkJ0wdc+/ptkyDkionzuSoSRi5S
qhIGJME53XGj9EckzCv5vnorJwlmELTSh3UkVJJSn65/kgS2UvU3R5tIWLU7
edvGgSSYx/DSWP+KhM4DhV8DZZNB36tf1quVhFscTrQUUpJhdePk8fIPJPS2
dJ6s2ZcM9+bt1174SdyvDL5FVXAymPIfb3PtI2Ez62tFhiAZWuWHy55+J2HY
Jnea49Nk0BuO9aWMiv1aPnxXYigZTNT2++X9IWFUVbPOFfkUICnMLl3zT+wf
o+9R49QUaGqlr70xi4wl8wuemO9PAc6egkfU+WQMCp/VEhScAtEXpMIaF5Hx
R7n7jVR+CjxzmefotpiMm1U/QVJdCtwK2G62SJGMN8NGIs8MpEBaWRjcW0XG
OY3cC3SZVLhe7kj11iCje2+wQheRCsMjFzXXa5OxNDHD1GNPKki8yf1vRJ+M
AmqodPu5VNCYONlSRSHj7Vwjl/XZqfDPKC44gSXOL+Fp4PIgFW4tLJrlbUjG
Ka95qec/p0K8abDdblMx/8jw9JdMA6uCAu/NVmSU1dEst1+XBvFv+8xIu8k4
X2utr7JlGtC9u9v0HMR6V0eza7zS4McOi2WEMxkrmPdJ1vFp4JHb9tfgKBmP
2GXq3b+TBrNWQtAODzL+ehBwddHbNPj8c2OK+0kyUueoWhuNp0Gprifrih9Z
PJ9ar31K6VBbIDpaEkjGKyUKQ3YG6VBkly3VE05G3VH1RvKBdIjYIK21MpqM
9ern5/4JTge/qIpbjnFknDdXOjuLmw6Sci6Z/BQyZk2wEtbUpAP/b9OnkSwy
6j993hP/JR16VR4FmvLJqLp/Iq17bgZQlKSOCPLIqHhqz00FzQz4fdD/6vwi
MkYc69PQMcsAE8/WkdN3ybimT37WGvcMUH0+dbn3Phkv3uCbzorOAP2duP1g
DRknyXXjj25kwHeZCb3up2SMiZVSPNaYAWcyInXdm8noOfdwwdBABjyeZwnj
b8nY2rW8zEEqEyKW6Dhc+0jGA1rtm66vz4QDhovO6nwh4wfHW1vbLTOh4VNH
zIt+MkrRp14Pe2aCv0lccsCIuN8eQUNfYzJBv2rJ5fXjZFRwscx8UpAJrPpj
jj3TZPSfft0V0ZQJPivDFwjnUtDW+d2Tdd8zIbveLdpDioIkru+u4oVZINqy
qoW+mIJneUuuKOtkgWLQzU4pJQom1PsHeGzPAmu5NcI+FQoa1d7SzHHPAlV6
mvJTTQqOu6zILLmcBRt/roJiPQrmGXt8LMzNgjyltxIcCgWnSrL+xNSK+VSn
c7IBBfPPToxa94jf46Gd8cYULLq89N3Y7GzIbr3cmLidgokTr+4EqWXDo4qI
p1m7KBh/d8/V71uyIT7rmlGBPQXXOsn5gHM22Mzq1HvkTMED0hWuZwKz4UxD
2aUOVwo+Nza/cC0zG34aORtJeFHQVCRxP6YiG5wYqvu0fcX19h7Z6N2aDQ4L
d9Q6XKDg32TaV8qvbOi5uzk4NpyCCyWDv3fJ58Dy/h2BjdEUbFUL2e6zIQfC
5D+VL0qgYJNttfQXqxygeR7Q3pMu1uMyudXAIwcOyZIaBBwKVtps/Od/OQeC
Z7fETeSK49tlGmYIc8DQuPKs7S0Klt64ocJ5lAMzWtzOlN6loHLUguvRnTnQ
9swlTLmagu+kc3ocpnLA052SHvVEfL9082lJKTaA1OniqSYKbrcM+mijxIZ7
tiU1vi0UtHe2Lo/XYsOHNWn1Y+8p2LBv4cIaKhsu3a4pP/eZgvqZ2h97Tdhw
6vKnmDkDFCzfzqT+s2FDa4ZoU/IoBQc7ulZKHmLDHcv6Gp1JCp5J/ZAp4c2G
igDJ5fUSVFSbnlU+fIENkxfXko7/R0VJty0BzdFsWG8/tkhejoqlfqn9/DQ2
5J414uJyKj7iqMgdF7FhkUR/zykVKm4v+O+3WgkbeNUNLTpaVGyGZO7zh2w4
sKbRtV+fikrOSsonXrAh7VBbUiGNit7Ts72mP7DhslPvXv/NVHwf2swO62eD
U/3wdVNTKt6xlLs38YcNK1b+DlHeQUU7y+NPDs/lwJo8iXe/91BRKiK+4YE8
By4lqN54e4CKyhzrV7IqHBj46DFY6UpF8vmAnt26HHA+8y9T5EXFB+XTUtFM
DhRpTRamnKVi0643u+6YciDvfszqmCAqPteaX/XClgMjPb29ly5RsT67aG/n
IQ7csTGcvnSNigXqf7Q/eXFgTuH7AzEpVHz4Vn5L23kOTPOnJFJzqHhOwZzz
8DIHbvWMdIlEVDRVGLTNSRb/v172V2Wh+H2o8zEvHgfEE6C9vUvF6WXS3Rtv
cUDvxyber2oxbzrd+LWSA2u1lPSU6qjoK1iyIbGeA7KfyluMX1BR+CVy+cY3
HLi7ISH2VCsVXVXcrj3q5oDTljX2ok4q+vGdM02HOPDMflyzs4+KvRFq5g8m
OaDWmTau/IOKhTu8uevnccFnb2aN8zgVT2VLF8Ys5sIy18yw3Jk0jKh95d+1
mgtzX7L0x+bTcCI8daHWei7kh6yt2SpHw440Q5/DdC40hkjRsxRpWHS+uijB
hAvyEqLIP6o0HJk5p7V0JxeC7G7n79Wm4StJ2cEmRy5k/f6TfZ+g4Wy1r1Ot
bly4Gmpiv5ZFw8cW6bKtZ7jQV+bZkmQsjh9HIxpCuHAw2FJqvqU43sOPHsUx
XNjRXTsRbEvD+xo362LSuCC5oDZlypGGYWuf7XAUcGGmGetj4FEacmU8pFWK
uPB+weq62V40VCuvWNRWyQX6Jx/ra2dp6L5pZO/FOi64XaCdWBlMQ+kK6z8a
r7nwSxCysjiShpnji39XdIjrNz7kYB5Hw3hq5AHjfi6k7P2l1JtGQ1LLKPPh
Ly4k/XV2jOTS8KGCMJkkwYOnTo3LdG/Q0PbdsH+GFA9KHriZtt6m4ZwDWsO/
lvFAx9+nJ6KShnPHRbO2qfOgt1f1O/2xuP6W2qpoPR6Mna+x+9FEw78VPdqP
GTwYuMVTLnhDw6+1h21HTXigNkuB5dlBw71UvsmSnTwo/XUqf0MfDStV50vq
7ufBEWk1t4lhGu7cOs5juPLA41m0R+04DVc+aV/DOsmDdYUri1Il6Ph9dFn6
xgs8KFSz2XBiAR3NlijOWxnJA4gT9W5bTEdbfbOAf/E8SLTgPNNQpmP5U5l/
r7J4QElu7JRcQ0f9++3p2bk8iEmuXDaoS8dj44v3O93mwR/7BT6tVDo62621
kK/iQXmj/ecnm+k4y/HCmft1PHhZau1ZbkZHL4WQ7v2veFB3N2PurV101GvJ
yPrxgQfmhqN5efvo6LKIUhTQJ36fImd7/TAdhavurp0c4YFMTeX0DU86flO/
uMB7igfuqfcExb50XFw/2/WdJB+MRR1b7gfRMWZZmjFDjg+bYcbzhkg6XtrN
u3ltBR/8jk5u+xhHx1W1oYXv1vDhYkuJ6Gc6HQ+mJu5U2sCH5BHFr4v4dBzn
ETk7mXxwaVwhub6AjmXWZdwLJnyQVLjz16qUjtOH/I7mWPOhY0VnzelqOtZ8
fPKz1J4PRk1Ch+w6Op59M7qnxkWsh7e4vKGZjolmFum1nnyg57Ha/76jo8q/
5U/wLB+O+dIqN3ym4/V9vC+FIXyIXKW5x/07HeW3ac9KiuaDKnOjSPiLjvum
hzW9k/iw9G2YqGeajpwJvYNbcvjQe2qHzbr5DDSuWVU677pY33SzwEeOgVfa
Rzc8KeaDWpNpeqUSAyfj2z/6V/Jhd+Kk9gINBh4enlmr9oQPW49S7Rx1GZgS
E/Pz0XM+7MuzXnybysA3/mwfhzY+4NLsgwu3MLBMaa9pbzcfzhaG0t3MGfhH
vinUfYAPu0pdUuptGFiyWl778xgfBm8W+K53FMefSd++e5oPbJtXLxOPMtBz
n+n3inkCsI21FE17MdAkx0RpmZwAzpzPGPL0Z6DBoF7HcSUB3NxtKOoIZeDv
GTONStUF8PB0U/3uKwxkLirY8Xu9AKx3PtvVlMRAYbGqnB5VAJd93huY5TCw
qNU8znGzAEaOJUXU5TLQhzOvNdRMALObMzW3FzOwwZI+nL1LAF2Gmaua7zFw
p+adT0X7BDC6w8jV4TEDo7zMK+8dFsDV4G2TPc8Y+HJzbVilpwDCjQ6/9W1l
4LuwIaM7vgK498Ph9/xuBp58EzKXFyTmhyN27H4GKvhTWiIjBQC1f37QxxhY
x6wuPxIngFvdUPPmHwPZx2vv09MFUFLDrvedx0Q2jn6bzRNAXvf41HI5JmpY
dJvX3hDASh89R1RiYrvrut7gOwKwcNT+5KbBxAWC/fUb7gsgdeuH6CV6TDxT
KTHZ9lgAY2cZNk9oTEwPzLno/0wAR7oMyP6GTAyouXlS5q0A9sn2rdezYOJj
Z0FDdocAGLpA77NlorPsjzT1PgEUDlnZ8A8wMdPnTw9nWABaqZp+Lm5MjBlQ
rFwyLgCDwW6exikmfiu8pRo2UwiLKOkvv50X58/5T713vhBK1nnPuB3BxFTT
k/WGckK4/TtaKzCWKfa/1opkRSGYbVQ0t0gXx5vrodGlKoT+lxZOynwmOil7
DKppCyFDd9+hHwVMHGi3DXYihOAyHLKr7i4TV56x/BzLFMItuVna3AdMHArz
UrtnJIS7rRp9gQ1MvDWzeeuH7UIYqqVEOLUwsYoVtOe3jRDcOZdmbulgYsrz
IKf5+4Vgvc/Lbs1XJhqlvjgsf1gIWxTNQxaNMnG60PWUgocQGtf5B47/ZaKX
C5EgfVoIbROHzHvnsrBnnWLTzPNCWCV/quutDAs38Ca0BsKEkC6juLlBkYWJ
ETeKn0UL4W9W06EH6iykCCe9ricIYa3nvK0Vuiws+VTkfj5DrF/fvKeExkJ1
7Zgb23hC2JW0dPMdQxYaexozF9wQghdzwrrEgoUq6RGqtcVCyL4VLFdux8Ln
GRNuARVC0HbbFF7tzMLQnaCo+VAIyeUNnDp3Fi6J7mc21QuB9OKx6+vTLDw/
++pb92YhiG4+e9kdyMKOgwVjM9qEEKUW0zEayUKRdl32tU4hjDzKj5JMYOH4
093tS/qEIP/lwwvlLBaeiHhwO3lICB+TWm5SRCwcDjytL/1bCOxUS5VdRSz8
ld9gH/xPCPn7Z2t432Ph5w8raN/miGDid2Vp7GMWlheVvLKQEsHn1fDq9nMW
9qe2k3IXi+DZ2j1n29pYGPayweWvkgg+DbfkzPzMwuPu946ZqYng8fdYM51B
Fs6mvd1+bZ0IHJYe8rH/w8Kv740Unm0QQXTv2sWXJQyw+pFy0xy6CObaPNa9
t9AAuav8AyibRbD0kUrV0BID3Np/UNN5mwi8pbWq16gYoKivvT3USgTz/Bp0
nbUN8DW7OyvbVgSj2VPzM8kGiC5uvrf3i8AwtMzyHRhguOk+zwcuIhg8M/5L
0dwA2eszourcRVCl/FDCabcB+pfPelPnIwKW67ITPCcDXLrPdc9DPxFcD5tL
6T9mgB3msUtKgkTwpyt9D/mUARZEb1biRIigSbPvecgFA5wzsMEzIkYEkfpz
Ml9cMkCG5JLFRxJF8H9Ohk3h
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtlnk4Fu/3x5FISkkqiWRpoaQihZkz84gila1FCWVJIUsh2fd9exbPI31I
UbSQJJR0LJElLRSpVJJKokiLxG++1/Wbf+Z6XffMfZ/zPu9zZpYd9rR0FhES
EkoXFhL6311J8X8XgUL/fwmbtHcsY9g9tWDPAtf5YC4x/Hs1w6nfnsZKuaqC
uqJLAjCs4dZoLHJWE4wb1OJtGB45/8Zs+Ig2uKPM2GmGFc/ufvEwfDO83y7V
doFhSlaoV5BFwqpVgzIdDE/M3khd7Kbh7pmgBsmlBHIHthzxObIFFrvEfjBl
2DnQblTzhzG0drR6pTMcl/3z+4swE6gom+76huGlHi1e3rPNIMTufbO2EoF7
vb4Gj2buBPFrczLTGfb//F5mLcccDCTWPB1j+MpWbvXeFxbwzOW576FlBHaY
5TX4LLWC/VtzIjsYrhQZ2BDqbA3bqmT+7lQm8IhMgFTQld1gcbTi5WOGLTsv
2rl+3wOPYmaq7VchsNNBao2h7j6w6gt9PsBwVxQ3QjLYBiy/xAxHqBLIfuvm
irX7Yf75GE9lNQJXv1r0yWGGLZwt6tnd9D++7Cs5uOMgvLb5mOu/nMDDhrde
OXDsYIz93XLNCgKt7d1dqrvs4cKIsesAw543778QTnWAx9Wr3hWtJDBU99ZH
/rpDYDzUUXV6FYGPZ3zuVeo4BLGrg8Z3qBMopeNncdbvMDS+3p65UoPAGv+i
Sgk5RxBTOSqYuZqpn4bCedc7jrC/5/vPUYY7dRLSKw46gVn5RGnfGgIfjP2V
+jPlBHZLM9teaRKouaoyd9V5Z6ja88jo1VoCeR2mT0y2uMCk17lF77UIDFoe
ombT7wLy+8WMv68jkNjnsnxv3BE4/XK0VWwDgTpJdraG6q6wONf6qoo2gSsK
Jc0VWl3hKzn7/VYdAovX2yX0eRyFHRv/ep7YSGCTIpcrmHMM4v7+sLioS6BL
gd7vTSXH4Mzfpti3mwhERS24b+kGoudZc5X1mPxL8kcNfrhBtZ3SwDF9xm/6
y87l8NzB/KrC/DsGBFqJhj4a3OgB4guGkuaRBDrFjc5S7fIAQ5K08gYCp2nP
7tsScBx+95U6d1KM35Ruvd252BO0hr7WbmEReKhVJ5W+4wmtrlFHKw0JrD4i
R0ppesFW3ox9OkYEqhjvP+MZ4gWFg6LJFcYExh+fd6G+zQvYK/6JGW4jsKRn
5dLZS73hoNHx+g4Tpl/8y59t8/QGL05bncd2AqUfS6b43/OGtJvJ06R2EGgh
VDAnc44PHCmYH1G2k0A/H0Pla/Y+oNB+n3AyJ/DhlZbk0mIfmDf9n/ZiSwIV
FjgvvjrlAxcj5rh0WhFY2uCWlrHrBKyZZfYoazeB2oYnK3xyTsDPD+PHj+xl
/L3F7AA1fAJc3x401LMh8JPfX3qKPAmGDtdN5x8gsHBzvU5xykkYdlkROWZL
oP1+VSHznpPw88z3gdd2BKY/enbs3RpfCDTXDXvowMTj9Qgcg33ha/piuv4w
gRuuGpk8a/WFGyvLNWqdCFTVu2Khu8QP/uUrk40uBAa3lajEu/lBhZu7X7sr
o1ejaULzbT8IL/vvaf8xAp90XzL/K+EPtbmV5sIezDy4p8+St/GHV3p3h5Q9
Cfz97La6eoE/HAvLubzdm/FPm/zzFb/8IdfLIiLwBIHbzARz5xufguvS1Sdu
+DL1jr52cYh7CqwDm4O++RP4qneJc/n7U+D4dneWzmmmH88OLjq+PgCCBZsf
hgcx8Vq4ps4LD4C2VSZzn4Uw/sldlpH3KABeWloeXhtO4B/8Nq6ieBp85ivU
pEUSGC45lpjmfhrO3HFT/xNNYDKHt3Dg9mnI+zKe5RpHYNr1cHctiUAwKgiX
eZNA4Nv4EhvHvYHQZF+SYptM4K4cl6KI/ECwGNORfJdK4L5dq/VSRgNheUtZ
jDubwIL9Xa3RdBDMe/hkcpJL4EHnxI1HU4Pg1Wk1bwGfwEDfkq2bXgfBgxHj
l5vOEDjbU+TJiHowLJlo0Ht7lumn5IgLglPB0CK9Ljklh4n/ZUTaqgZm3UPy
seF5AkUv5R7NlwkB17mdQkL5zDz63iw061AIvH0yR6HuEoEzezetPFgUAk4u
q5WTLzPzcN3JG4K/IXDMPXu23TUC13Gsfaq3hcIHv6evdK4TuGqpsH4bLxS2
LdJKnl/KzOeyb28ae0Mh/qvckvEyAvO0fM88WxgGOoVfY/ormP57LSJuQIZB
sqJoy4s7BL7IebaU7xQGhWYlH9qrmfMOmD7qTwiDG0e3dHTUENh3r39KvSQM
pIfEua/qGb38bc46doZBYw6t/KWRmf87T6em/QuDvP/WBwm1EBh50LS+RCUc
rh5bmLOkjUCHtT/UGk3CwfvPijh4QuCpjy05jz3Dwb+cr320g0APl10Kbbxw
yBPwcjM7CfTxWJ5w7044lCqbtT7uZvoRlZ/mvQuHa6felUj1MPpspd4Fi0fA
cRf/XVbvCBzUyL9guiYCNNw1zmf3Mf74mztd0ioCfjUtuPTtI4HCNSWj1aci
4FDizgMmXwg0UD693yU7AoQ57+8UDDH9ebpluXB9BCy62HtfaoTAkNFzRqmf
I0DtlLVf4BiBUdlKeXPnRELmLaJ56DeB3glZa6O1I8Flfk616wSBC7uTnw3a
RELlbl/zz1MEnunKjtwaGgm5ByqDvKaR2DErdwUvLxJurnWgJsVITN/OLn7W
FAkNcw4I2DNJPPEgS0JiOBKyAvjha6RIvK82T3Xt/ChI3Dj1u02axKWRvl+3
bo6C7UdO/fWTJbEmwdvayi4KYlI/RKvJkTgS/HqrRWQU5Oeq8bqXkChEVd2i
C6LAb+b85RlKJJo4GKSpPoyC3qo4nX2qJE4qV9T9+R4FZ4l9qLSSiS+ujKpZ
EA2Pi6zqhjVIjN7d//O0fjS8eLlN//5aEmnZlc+XO0TDxy0iarkbSPytFNVW
HxUN+epbgyN1SYzMXfvYujAaBjJfUu76JNalJ7Y8fxgNNv5h7geARME91RLT
kWgQSRydMDck8WlLqff1BTEwLWl4yGwrieMrFSbF9WNAafVq2LWdRGU5760W
9jFwQMVuYO8u5v3LX8ikyBiI0df96mJFYkLpj2cVl2Kg9YDLlqC9JF5pXTr5
vCUGDLn8Qf4BEmtNVxf2D8eA86qTvZX2JG7Xnd70USYW2DnnlXsdSfy+tWZX
t24sxDU0FM51JVHz2fm11Qdi4Vl9+EkjdxJbHi08wAmNBZaKT2iYF4mhZZX1
NhdiQadrQ2PNSRLjo3bYSzfGwjwrh20SASQaFdUp3B6IhdTYlKk9wST+mLFp
1EoqDiT/WH6+HE6iE35/2rMuDurug8j0GCZ/I8fr+3fHweobfcbOCSQWk+qh
jafiQEr7UWlLCol3feZsUDsbB03BCUabOCRKVYrhiXtx4BWf8/syn8S1fZqL
S3vj4IsKr0nlLIl+157ovJ8eD6K/h2+eP0diYI6juOiqeAjNXF++Ip/ElKnI
SFmzeJiZ9rr1RiHDtyayF3rGA3XYc8SwiMSiTbU7Z7LjgXPOSfXlDcaf7qOx
X2/Gw/pvuvanykkMSX8BNZ3x0Cl7OEe+isQHqp/cosfjIVdo/7t6ZOrfUCWs
p5AAjzu4y07eJ9FAYemvHkiAwJ/RtquaSVxVKcQ6eTgBjObnpPS1kXjgZ1DX
n6gE+L7O/GZ+O4lHerque15KAJFS8Wb3LhLVJCJrnjUlAOm8vnXza+a8IBnh
1YMJoJGoXz6rl0TD5O0uPlKJkNCfFPuhn8TPt2U/FWglQkFtyub6LyQ6pkUH
P7JMhKbJS00F30gUCetU6D+ZCE6LSG3OGInm6IWDGYngoVPmGzlO4sSKN7bv
KxIhXNMrIWCK0VfixUBTdyKIZz4+7isKqDmLOHxuIhG2Ptm41F8C0FFi3h0X
xSTwFxURhEgBlvfGfF1CJUGZXtqzRBlm3Xbke+2hJBh0IDuyFwFqjz3FfZFJ
UGvpmlauAChR3WbZk5cE+/tcxZ4rA45plZ6zakgClcHM9eMrAK+I+16o+JgE
kWbW0qprAH2ltaxnSyRDyL/hbKv1gLwZK65aqCfD3gX1nXG6gIuO1OVFb0+G
WZ3LK+oMANX1ebqF7snwssTDQJQF+Gfc0q4qORnOWH91MN0KKL7vxbx7Rcmg
dePPsgwzwCFpjV0lj5KhTrI/8KMFYPsDr9mcb8kgMS7qRu4F3Pbo91Yn6RTw
8Cv4csYWsPrvxj+q61NAq2/Z+MQhwPiAevlnlingJ1fLdjoCeCLT/vLJEylg
4vqi5Ik7YFful5xp3BQIu1RutcUHMDjb61f4zRQo1L96ssofsG2t/NXhjhRo
WyomrRcM+NrGoNJsLAUMhmTU7kYw+liaLM6UTQXNzyrXjOKY5y1eNnfopILP
tKj89mTA3QeKG6Z2p8LQp/CZRziABnMvSiz2S4VV4m5dUwJA1dN1qSoZqXCL
lySZnQ24p0tz95JbqZCSveEcnQd40H39HtHnqeAqdo09UMjoZ6yf+nIsFfq5
Rm8ExYDT4twnH89Mg44JkwizMsC5X3seXlmcBgZ9Yqem3wEcHLHTDlFPg6OD
D6rqEPB0xRGtbXpp8KPylVlsA6A8FY0SpmlwbiJF1bwVcOZu6/e1NmmwyX81
pfgU0N8rgn/iaBrsFxc5+70TMDX74Uv5gDTQvGar3fwa8KSjaPGduDSYwYmf
XvAecDJn+lwrQRrMln0umfiZOc8P/727xOz/INXwxDBTr7Xa/q7lafAzUrTQ
YQzQQcErsL8hDeydIzZZ/QWsjeBI2D5PA6uvGv75QhQ2nnyo1PQhDTQ6jr6/
MI1ivre2uGYsDTxPKb/JE6PwXFvqx3jRdOj9L9i1QIJC6bh63muZdLAgLwQX
zaIwc7Nr80qVdJBLvrOkfA6FU/6/otzWp0PW+JBh7TwKhUUn6/PpdLii6/L9
kSyFKkULEjrN0+HnJlOVt4soZOt9aRdySAd7vfrOEXkKX27RPr/MMx121/6b
NWMphWUqlT82h6TDsnylmqXKFF5u3dVikpwOK2bsHdmsRmFd+Ss1i7PpoObc
kr1nJYVadZai5lfSwTG5oN5Xg8KOBaUuxrfT4cNVucN8TQrfis/eod2UDtE7
TH3vrKPw6ERwuVxXOszf7zLxTpvCvp3rLv7sT4djy86MzdxEYcU6B7mWsXTw
sJlnv1Gfwlq2hTRflA1yyhMbnUgKmydtUvbLsMFnRnQgl6ZQKfplmqwyGwIk
Xqo3bqFQLMtI7oEWGxbwVhtObKWQnJq/0gfYMJpWULthO5P/f+13ZXayweZA
yCWPnRTa+ix6edWWDcJtr4cLLSicdjw2jHBjQzv1K/OTNYVX9z0puh/AhhtJ
fy+s2kdhaVmpi1EcGzSklszyOECh6aXfBVUZbFhZkPD4hh2FGk/9/DTy2cBt
CBgeP0ThZlr6cXopG4QOLTli5EzhBpPyW8M1bND5l6/DdqXQzd1Jw+gxGx6U
mNq8c6OQRyqtZfewIWslPF7vSWHytsna54NsOJxbIYjxYfIZVPg07y8b5H8M
Xn/lS2HQtss5xhIcOM2Zt1AngKm/QveA90IO7Ep1aEoNovB40XAzV40DQxlS
DYOhFJpf3kQXb+BA+F9rSbNICrdJSu2qoTmw94Y7/1oME++/9rHmXRzQ3Zvq
Kp1A4amaPxtbD3IgXfNXkH8yhcqcPzL33TjQsOLN0zdpFIYm7kspC+CA9ZsI
V1MuhYdiLl76L5YDE+cUDcr5FNaIhRwK5nFg8Ojw9uVZTP7yUXetL3Cge2B9
Bj+bwoss17sqJRyYk7BCTvI8hUss+g4PVHMg2HlWe1g+hSetq4oLWplBY72s
9ncBE39Adb5dNwcWf7nY53OVqf+3WuNZnzjgHtCzabiYQvmnV7glYxxQmzvz
rkcp019izuk7p3FhRbi759AtCnNX9JHv53Lh8iGTnd63KTzjujLHU5ELMrM+
7P15l0KH03o3RzW40JwblRBcQ6G39+owz81cEJl9vE/sPoW+V+SmvzfmQojI
J0f2AwoHbi432mnNBYtpeuJKrRROaIazSg5xIcnuamvxIwqDy+ynJD258Ht9
3A26ncLueuEQuyAulHstLH/2nEL6XDEWxHPhU3del1s3hf26t5sGMriwRSJI
VrSHQss5gVmqeVy4cvSzW/Y75jwV6017SrhQRet1632g8Eh78fnQai5YXa+y
e/GJwrRaodfnWrggWXzvV8AgMz/qaz5XdnHhrgznwpJvFJrc821p/sCFL+mx
DjWjFHryL0W1j3BhfdXQatdfjP/mDSzsmOJC8XR5cem/FErWdMa2zuKBQ539
1zuTFBb2zeuskuNBwBrpHlcRGnfvM5qRv5wHlQ5RnQvFaCz1V1KM3sADtJ/T
9UCCxmqxg/IHKR7zPyLREzibxha5OyJrdvDAybzpo5Y0jUH/hDt/2PDg6aOC
0Y/zaXyqKJR104UHspuFhXIX0Rg8mmDhfoIH1xXXSNouoVGzN+SffBgPzITi
ZOSUaFTRuJdbl8SD7u3HF3ap0Hj3sQ7tmMmDG3aEbOYKGk3D2nvG83mQF2Ml
aatB4+Dp1OCEGzyQmTb3t9JaGtkhR5Tm3ePBz+ntLz6up3FVsX1zegsPem/+
K7q+kca+0IgQiS4ezFQf8Q3Uo7Ho7FsI6OOBnq/Mmm0kjZfa06TffeNBy9n7
TxewaHwxWfyT+seD1GwP549GNKoOOYwIJDLgnpf3+0oTGqUtWsU/y2bAO5FN
21N20PjznJLeOuUMOEeuynKyoFFfkp3krZkBV2cUPTHYTeP1A/tFLutlQCKt
9XWBDY1zPlZkdxtngGvD4sERWxpzfUecplllwFvvF62PHWicoWmxT9U+AxqX
vEi+7kSjWphqEOGWAW+yY9ewXWlcO7emfad/BuQ+srrs607j+9yww/siM6A/
5prIAS9G/2m1GvtTMyDnv+k6rJM0fh7/tN46KwMChx6CxikaZ2vaBRpfygDu
noBlC4JobJNOnbGuNAOkbwV2iYTRaNnx9bXMvQyo/mbi+D2SRh+T75NDzRmQ
P2SD72KZ/Z/P96x9ngGFZ5WH2hNp1HHoWpfSmwFSX+W/NKbSOLEBTS2HMmBG
V3XZXQ6j9y/ru1LjGUDYRpuV8Rn/cFWS66bzwTR04FpRFo2X1e7e9ZLmA7Xz
WFdhDo2uvbcsFyjwQb4nvPniBRpXSl3edXMlHzabFUfkX6LRoW9Dhak2Hxqr
vafyr9C4OWYs9QXwYY2zCRQU0wifON0O2/kQcKqculpKozCWZ73dwwfUJ0Vu
lNP423t2577DzPqEQ0TlHRrTp7akNXnw4c28vHu192jcNSbdsj6AD9t6kyoe
1tEoYqORyI3iw/EXuW7djYw+gu0dQ6l8aPM51vmphamHv9ZlOosPfdqe478f
0VgweWZu8kU++N/Y3D6zg8Zrbrskn5Tw4V2CtYNiF41iirLZs+/ywezY9nMb
XtEYF3urlfWAD58lrqSbvqVxm7xwllc7H9ZqCW9w7GP0NLg/i9/DB7GSVxHB
nxi/aD1Xu/WZD+LHH4ZmDtI4JTFz4OEPPvD2OK0s/0bjmbObD/ZM8WGJ64bA
5z+Y/NyoyI8zBaBU9NDv128amzIn7D/LCsCX1Si3+B+TX/fOX++VBGC5o+ww
KcxCO/vFOzo1BOA2XdPcaToLGx9uca7bKADp6w/eJkqwMEb9lmEBLQAqV0Gm
bDYL1R/uG4w2E0ClfsOHN9IspMzlHG33CkD8u+3eWQtYGBHRf0XjsACS6WAX
vcUsHNlb0jzqLgBOVZ30MUUWKr90r7vpLwBjoba9WcoszFOUOnM8QgBllXq6
bctZeFMzyXJZsgDe5BUWiWiwsEzk7bdWvgDOJd2p2rSWhbqeogHe5wVQbDrP
wWsDC58u/DkkdY3Zv9GcX6jLwh2HSvfklwuAP774UJ8+C+85GtzUrhXAnc+y
VUoUC/++YkvebWX2K/x40W4LC6ep3HYgOwXgflBXKXsbC/MXlJdXvGN+jDde
W/7GjIWaC9Lmrx4UQKrvSMUyCxbafDMLFPwUgJhryTPn3SzU6Pw5/E8oE9yP
8QKv2LBQx0rgZyuZCRP9poUjB1mIGwmZm7KZUL879KD+YRYuTh9pElXKhACD
dxnRLixceb4he6d6JmzXVLJ+coyFkw8f8NK1M+H/AIJcCL0=
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["y", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{-9.487821770465446, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226589702332*^9},ExpressionUUID->"97f6bdd6-0010-45fe-a842-\
042843539624"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y2", ",", "dy", ",", "py"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"y2", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "q"}], " ", "ys"}], "-", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}], "+", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "-", "q"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dy", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{"-", 
      FractionBox["t", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "-", "q"}], ")"}], "2"]]}]]]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"py", "[", 
      RowBox[{"t1_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"y2", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"dy", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"dy", "[", 
           RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "^", "2"}]}],
         "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.768225693552536*^9, {3.768225884939062*^9, 3.768225941243465*^9}, {
   3.768226107524678*^9, 3.768226165825839*^9}, {3.768226294497385*^9, 
   3.768226295952194*^9}, {3.7682263525743113`*^9, 3.7682263827365294`*^9}, {
   3.7682264663347282`*^9, 3.768226495206081*^9}, {3.7682265806372023`*^9, 
   3.7682265848570004`*^9}, {3.7682273045300417`*^9, 
   3.768227319853324*^9}},ExpressionUUID->"1951de73-0e2a-45a6-827d-\
1802f2a687f4"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw91nk4lPv/x/EZxhiDMcaWkGEY22CWikL3+5BTUTptJDmV9n2hzSnxpUIp
2qROSTp1opIoLU60Ukgh7YlQUvYt68859/vzu//guq+578f9vF+Xay5mQetn
LlViMBgJTAbj39/kYP33UxdOJP17XKRK+qapNg7p4PktKtsqyOTS8Ploxb/H
A6rL9o67x/9//oSyM5BsuzqoA7T2nLqy4P3d9gFyfTnVXDJphObw+fJl/x6V
1KlNE/b095H731DRh2u593t1oKT43+M99eXotb8DfxLvE3W5LiSotJtcX00F
vfF2Megi/mfqxqH0sWM6yP21VPe7gLk2beR59ZRcadu59mbifaUa0teZHvlB
vAaq+RLzGbeReI3UnUrP635fifedqn909m1oHfGaqNr0Mo+QGuK1UKBf0+VR
Ra5vocKuOfY2vCN+K7Wet2b2stfk/jZqsm+Sxq0K8rx2qo6nblvznHgd1JyS
pdnVxcTroAIbT2flFBKvk3Ib1++45CHxuqicdB35lzzidVO/c4ruwx3i9VCJ
cX6NG24Qr4cakeR2fWsm8X5Sv3r9ZjvnEvF6KWNR5my1C8Tro5rOlU44kkK8
fupg44r2zpPE66c4nnt3Ohwj3gBV9zjiq1s88QYp/eo+yiKWeEPUlR+1B6sj
iceAi3e31m7eSa5nwEHr8V7VW4jPgOB9/SWiDTrw3+0KJmyc+2aH20ryPCYc
PDp6iUMQ8ZRAdcGdhK55xFOCycsW6xybRTwlmL9uVbfGVNKjDNmP50wNmEg8
ZWi+3yqMcCUeC5bLZkSFjSYeC4qeFe+eJSEeC+beVBrDsCCeCix/9zIlyoh4
KpC6eO37TwLisaFRPLpTl0s8NizTet0vZBKPDVWRU1gqPQL0VGH8s9vG95oE
6KnCxPBkvzl1AvQ4kFKZ/vjeOwF6HDg6suIPdpkAPQ64MqfGiAqJpwb7uHuY
hneJpwYRH+Td9VnE48KbVNgZd5F4XHi/+O15jWTicaFx7vK9S44QTx1qvGLl
R2OIpw6qtcLc02HE04A6FQ/niGDiacCgsfsd1xXE0wBp8N/+L+YTTxNWRzhb
UzOIpwnm8N1ljyfxeLBrS8fF8+OIx4NotZt7z9gTjwc+U8q/BZsRTwvGTzBo
EOoRTwv4ndHHL3CIx4eZTxdqcfq18e+LD4zrakvcm7XR58O7eOFl3xptvJ8P
t5cHMz1fauPz+JB6m7FNs1AbPW1Y/7TL6upt4mnD31XXrO0vE08bZh3KT4hK
Jp42TNN+E3ojgXjaIF1Z03c/kngCGF/UJEnbTDwBFJW7iNcsJ54Avj6XMdT8
iScAEWdxebgX8YZ3GIi9We5CPB24kRNXyLTXxn10IFVtq7H6KOLpgPjl9pJm
HvF0wHZWc0fGEB89HYj0973k3cJHTxd2p8zUfPCJj54uPOJdkum/4KOnC45d
0xSe9/jo6QJr6a+S3zKJpwulKx6NdUohnh60+hqv7Y0nnh5M1/unISmceHpQ
GTSuQG8D8fTgrdBduG4B8fQg98/zWqk+xNMH77ezrma7EU8fgj/OMkmVEE8f
nvYWb1xnRDx9OGHIfKLPJZ4+zNc7scO5VQs9A5icMv3tQIkWegYw66NHzc40
LfQMgBvypOjmHi30DEA8ZfGzK0Fa6BmAteUDs4UTiDcC/plZOFBsSLwRMHli
2InODh56I+DQeCPp21IeeiMg7vtgV2gaD70RcFuWafU6ioeeIVRc/tTb+jsP
PUNYuWvRxUJn4hlCcrPdmvkC4hmCqUXAjsuNmugZwswKO53ch5rojYScwd6V
0ac00RsJDWcn3hZs0URvJOz/46xbgI8meiNhT+5T+yAx8UYCo+zAQ6tBDfSM
gCV663LppQZ6RvDw5dWS5ksa6BnB6mMO2W2RGugZQefC3TbX52mgZwRhU/uX
O8mIZwwP5zVd3K5KPGOgJj+x2fFBHT1j2L1Qw5zKUkfPGPxmTyq5H62OnjFc
FxguU/1dHT0TKDjnYKU5/L1GeyZwW93du0KVeCaw29xQM/A9Fz0TOBsRdeHC
VS56JrBq6e9zsqO46I0C3vGYGZFzueiNgqjAlkpdCRe9UfA4KFK4ckgNvVGQ
neG8MrxMDb1RoP8n9/u8v9TQM4VfCro+92xVQ88UFggG9s3zUkPPFNaeHmUa
bkw8U+grmv96ZRMHPVOYQd1sM8jnoCeE/DrHi7EJHPp6QyHEDuWNvR/Ewe8b
IQTbLaq8q8D7pwqBs0X1QTiLg88TQsXqFCfOS1XaCx8+tzdYP+cvVXy+EL7H
TDm3YrMq7WUJwUlPW+DuqYo9Qpjr5dZeratKe/VCeH3x8P8m17Kxzwx2f3zW
uzmLjX1moP/51LFV/2Njnxno2afGi2ewsc8MFrwOFqWZsrHPDJJfHYvp/KGC
fWZgJY4a4OSqYJ8ZZA6k3qqNUcE+M0jg+fRE+6lgnxnMvFPY3mmhgn1mkO47
ud6ujYV95nB5SZOaXR4L+8yh52Ph8fZ9LOwzh9A/XhTvnsvCPnPw6fpeVW3B
wj5zOPv7N3VOqzL2mcP7pf+L7clVxj5zuHDN92hWtDL2mcPWMa1Lx81Wxj5z
8I94MCbWVBn7zGG8WDzh/Dcl7BNBLW/uzbjrStgngpzqnR8gXAn/fkSwfnFK
fZ6XEvaJ4MyHqxrqekrYJ4KOPWHR5lVM7BPBjOa8Q+yLTOwTQeBazSU5m5i0
lyUC5fjq0WNcmdg37CccdwtXYWKfCNpK1t84/oyBfRZg57r7VVgiA/ssYOhr
5Wv5Qgb2WcDpze5t2dYM7LOAdke1HG7NEEX3WUCm68bjkzcNUXSfBfQ1ZHSL
lIYous8CNs4P9jiVMEjRfRZw0sjiW7ZwkKL7hj+3q/VfnTFAe/UWcEtygHHP
bYD2GJbQEJ7tfaOon/YMLcEg5Mzf3v79tKewBJdVM6Ii6vtob6olbNfZ4T03
uA/7LMH+bMyq50O92GcJizmJ077t68U+S3BzDll43qAX+ywheWUqTyX1J/ZZ
gv+SuQ/YDj+xzxJKn21tSL/Zg31iuBN+rLHDvQf7xKD8rkdRU9yNfWJ4Jzok
CfHtxj4xpNYpU+lVXdgnhqHZpyr2rujCPjFk3pzny23txD4x7K2slSi2d2Kf
GAqWxOcrMTuxTwwxYYHbt0d3YJ8YTEd1303U6sA+K9BMutYTeKwd+6wg2Pxg
XLFxO/ZZQarPmNrPZ9uwzwriTnUFnbNuwz4ruMMuWc+70op9VrAodt4Gc0Ur
9lnBo4dfn3zKacE+K5ixd0X1FNcW7LOCxC81Y3PDm7HPChrHRt50iW7CPmsY
cg/V0jn4A/usIefhOyWPo9+xzxoujGP7F59oxD5rSHc7+yoj+Rv2WYNHU4pH
U2oD9lmD0XRYFH3hK/ZZQ2ouoyMs7Qv2WcP0+Vfull2qxz5r8D4ZEBl1pQ77
rCHgyiLloxm12GcDVoYLh1hXP2OfDfi5uTq9zKjBPhvo+yFcxc6oxj4bKOWE
+SZd/oR9NrDLjh9i4leFfTaw9f361GczPmCfDawvOpI1yfsd9g2f/9xlFOvx
Bvts4JXtrd8Sx7/CPhtwWuhTsEH6EvtsYbp/eauBZTn22YKB6aJfDox4gX22
0Oxm552m9wz7bIE6JDZ83/0E+2whOZj5OPvVI+yzBccGvrXT9XvYN3z9H0GW
xcI72Dd8vWjfpeiya9hnC0O8j4xZQ+ewb/icvS4j5ZcI7LODXUtGx/9aejyP
7rODvCRdtUfWl/PoPjsw1d37ddvPG3l03/C5c+dMrcV5eXTf8PnqQHH81wd5
dJ8dUCb+8nKzQtpLsgPH3AoDn8Bi2suyA79tIwS7pj2nveLh5737PGvD2jLa
q7eDUmZX6PYDFbTHkMDBcyHypKuV2CeB7kim1bPy19gngRyj22yDnrfYJ4H1
fk4Rm0w+YJ8Eqqi4SVUeVdgngaJpluwr1z9hnwScJufea39SjX0SoIynyfI/
1mCfBBINfa8KOj5jnwSSDQQnv6nVYZ89fB67zWeSsB777OHCGRdra6cv2GcP
Vu5Fe/b7fMU+e5gVNeNJ8LIG7Bs+Z2VP/xD2Dfvs4ZXH4dDCxEbss4fueV7p
ozO/Y589DJ1r8jAr+oF99pC+evqFuLom7LOHlILQP10ZLdjnAANHE660xrVg
nwNUn16ZW2fUin0OYHDm/bYRaa3Y5wBFy4SJMc5t2OcA/5x6/NS5oA37HGBa
Um6BpW879jlAo8jb/be6duxzgMOT9ZtzQjqwzwGyjE0i57M6sW/4+r23styO
dGKfIxRonBkbYNGFfY7QGVd1Lzu7C/scYb1etbqXZzf2OcK+xOVFIyu7sc8R
ZDcP5oiX92CfI8TtL927tqcH+xzhR2BXe1PMT+xzBL1Vkuw0o17sc4SAc23h
Zy73Yp8jlIaY6zyn+rBPCiVbfojGlfXR12tIIdDpw5p3S/qxVwrKbWUXbnT3
0/eLpXBvmurBp7EDefT/N1LwG8H9oD9qkPZACl+Y96eezBzE95FCst+aJD/P
Idrzl0J57p9h3m+G8P2k4Ltp1Pw7Yxn5/3HBUtho+WvE93BGPv2+Umjs1NIc
V8TI/8/bLwX+YMuHM3rMfPr9pTCxNLpMtJCZ/593XgoSn5Qn99KYtJclhcz9
DmdDO5m0ly+FRX/5uPiAEu0VS+Hc0SkhrvuUaO+NFFoNEiSelUq0Vz/8/mH5
HivMlGmvXQrbYv9M+muNMu0xZFDhpcMbyFGmPQ0ZzG1xiVinzKI9QxmUX/Qt
/+nDoj2xDPR2FNeePsGiPYUMDhg5HgusZ9EeyGDiQ+fCMXIV2psqA55OcYBV
mArt+ctg44d2mfypCu0tk4GE+9nOV5+N+8lg0soO28NBbNxPBi770/gNV9i4
nwxmnsq469fHxv1kMNL5pX7VJFXcTwahoNsXdkQV95PBltv7pzlVq+J+Mnib
srtF1YGD+8mgLH/N45ZQDu4ng597KzNbCzi4nwxc63Ye5eqp4X4yaB45cbZL
kBruJ4cnx6QvIjPUcD85FBRuaP7cr4b7yWFer9+hAC8u7icHmeWCU98Subif
HF48seiIr+PifnJIeLwm1EehjvvJQe4g1BVFqON+cogfNe0vXqk67ieH3Yli
gbaJBu4nh+kzWJTtag3cTw6/HA7iz7ulgfvJIYBbs+qMqibuJ4ea5EmKgTma
uJ8cbH/b4bPhnCbuJ4enjLiUn22auJ8cjvulaSf9wsP95KCVYB3lE8/D/eTA
8Nv10bCKh/vJoerYFHafvRbuJwdXf8/q1h1auJ8CDifOmjNYpIX7KSBRzdUi
XpOP+ylA59ia53Zj+LifAmzfLzAvm8/Pp79/FJC5xlszMoqP+ylg5LfNURMu
8XE/BWS0j/2DVYGevwK2a3fXVvSht0wB9smO1zNE2rQXrIDOnFVVR7y1cT8F
jDb38IsK1sb9FHBg/BJ+2Elt3E8Bxp9iBiMeaON+CohZEK4X34helgJcF1hM
+VtHgPspIOppUNxTFwHup4CWf5wruxYLcD8FHNmUZWC/X4D7KYBp2+K5NltA
e+0K2DzSeE7Oe/QYo8F8Xsg4dRWd/P8DKB5TqA==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw913k8Vfkfx3FK2cW1Xuu9lmu93IV2nfe0GIMWJBEVFTVTWrSKUlFoWqep
NE2SptI2GimjGi3GqCytkhYRSkSSJUt+Zvp+fucPHufhnOd53bf78LiE4Uv9
FgxSUFDYo6ig8O93OpT++2qNQ6n/HpmcevmDG939Vuz8T66kZ7Jy48C5q/zf
4xZXNmvdvXv///lt7qJtuNnZgfOv2j3u4hPj5tj/X/+Q63C4Mn7CwHlkxL9H
OdcommvS/4Xuf8o5GjqtzRo4Lyn+93jO2e7wCAr8Qt4r7vyc53+19dH11Vzy
aYvMxD7yX3MtJd8aafbR/bWcKGqPRkovPa+e+3XFuK29PeS95bKG7E+c30Ne
A5f0U63azW7yGrkjt9cb6HeT18S9+fmPU6GfyWvmam3qbvzSRd4H7lzdyvCy
Trr+A+e1sSilq4P8Vi78qfcYww66/yM3wmDZSsd2el4bd2nvmeFun8j7xNnV
rdvs2kbeJ67z2ayZ9h/Ja+dOxj7J1W0lr4OTDVp7vK2FvE6u+lmJye1m8rq4
hjNRFvvek9fF3Z7U/vv0JvI+cy1nFUvVGsnr5vi6o2IuNZDXw10pn5QT+Ja8
Xm7epicbm+vJ6+Xq/z5WGVNHXh+XsSGssPc1eV+42jMPJqysIa+fy12e51/9
ijwFwKCmY0IVXa+Asn5D58MvyFfAhj9cuhueWeG/2+WKOFGqGCKupOcpYqnW
4ukRFeQNwssJvrX7yskbBM8ZqRp/PiJvEM5AWvrgAfUMRp2WukPNPfIGY9Uz
M+GbUvKUEFCy4GJ1MXlKkOnX1t6/Q54SQhuPZF8uIm8Imn5MF/5USN4QuI/q
dZlfQN5QRLoUVDncJG8oLp/Rlb3JJ28osmpV7VKvkaeM2Sp3b+IKecrIHxU/
+GUueSo4sCOwcdkl8lSgqpKw/nM2eSowSnXPWXOBPFX082+kNp4nTxUeXtMc
As6Sp4aYYunCi5nkqcHU6sJ01ZPkqeHQOfNW/+PkqaP5eNm4fenkqSPfyJy7
c4Q8DexqXNjW/gt5GlC6pxtqmEqeBlQmbYtz3k+eJi7tlcwY8xN5mqgr3PTW
fTd5Woi90Oo2fAd5WjCo7uGsU8jTwtI0gYrKNvKG4fz72l3VW8gbht74BxVZ
8eRpI/OvNbWr4uj9pY2ZuZEXJTHka2OX3Wiv6tV0vzYeRW0/uS2anqeN6O29
JVbLyNPBVFN5fs5i8nSwfObTWPdF5OlglMYRlSsLyNPBrp9d5zuHk6eDA1XT
9xyYTR4PynOu7OkIJo+HNE37SO9A8njwjJinu9+fPB4Uw1wPlk8lj4eQqO87
NXzI00VRdIVslCfto4uLhQE+syaSp4uzdn9NigZ5umi52SrYNJY8XQyxfFyV
MJI8PURKfRM2uJKnh8Ej/LWjJOTp4W5pcaK/E3l6mF+fXe9sR57ewN6D3BSs
ydNH5j+XV/xjQZ4+Ip89Tk8wIU8fVz/PKxhhSJ4+MuYtef6KR54+OncpNm3U
Is8AjSLXdj018gzg1mfanTaEPANEDKvoFSiSZwDNuMT+A72WzDNA1ZbvlIZ0
WTLPEMrrfTQXtlkyzxCjS/NMbzRbMs8Qp7sKXLXfWTLPEBPj0wID6sgzxO0P
m7ftfkWeEdLLzxTeeEaeEcbmBRs2lJNnhJ+NH60f+oA8I8xZOLeDX0LewPWK
PslWReTxYebwZrjVLfL42K62VZH/F3l8BJ+Mb1T6kzw+Nr2QddZnk8cHL7RX
lH+ePGM8zUDcjkzyjOHSFdHre5w8YzyfV3lCI408Y+w+r7rxWip5xmicGblt
/j7yTNC2f9FNxV3kmaDGK0X2czJ5Jsju96g0TyDPBMq1gqtHNpBnAv+Cw5V6
68gzRd2QCSM3RZNnioD0tCevl5Bnii+m46+MXUieKc5su1a3PZw8U0iiTwXd
DyHPDL83H+ZrBpJnhh82jbTjfMkzg5qNaVKkN3lmsETTmK2TyDNDxtFpHr9w
5Jlj4+pPmSdGkWeOF5O3LjolJ88cSaq5246KyTMf+H2MU95lS545pnz38F20
kDwLBPCkblNNyLPA6HGGDQJ98iwwR9NTtUGLPAtotycdPKlCngU6U4+lhgwi
TwC/O3OHqfQKv17PF2Dt2r29me1C9vdGAIUc1fnjW4Rf7/cRwDzzF8/7b4Xs
eQI82y04N6NG+NWLFyA2J3rfg2fMSxUgLzJacdJj5mUL0P1ZofNcKfOKBcjI
U1irWcS8egEWNwdtm3eDeQpCLL3TYZuVR31CHIwqCGnLpj4hTlX9YSc+R31C
/K2YszP0BPUJ4b/3+p6ENOoTYodlqeuxg9QnxGSdpzGX9lCfEHmJVRE3UqhP
CMmimp6bW6hPiPVhdWOvxFKfJUbfbXY6vYr6LHE/W7lsVxT1WeLuwzGixZHU
Zwl+cqobN5f6LPH2nlRBNYj6LOE73ij5ti/1WcJKZd7DeC/qs0TYM4ca5wnU
N/A+6EvJfTiG+iwhk6YHLXWlPitcuryjSFFMfVZ48G20ynYbIXv/WCFDdY2p
ujn1WWHt7uvKmw2ozwqix+tKWrSozwrKkrJl05WpzwoO/i2ffu8XfPUGPne8
m6geOqhLwPqssCVoxlnvDwLWZ4Um8dD67W8FrM8aiel+mrdeCVifNc7fW2XT
WsE8uTX+1jorNbjPPB9rJL+Su8luMy/CGi4dk+WTbjAv3hoXbNxdpv7JvFRr
KC3wcJp2gfqsEV+QJfbMpD5rlC38e/iIdOqzxtrEMi+zVOqzQesM0yXdu6nP
BpZmPUdLk6jPBlP1rzWkxlOfDW6szPEKWUt9NigPH/WP/jLqs0FIW1p4YST1
2aBSMF4QNYf6bNBXGDNYM5D6bHD18IlhGVOozwYtztaeEg/qE8G70j/rojv1
iWBReMBb4kZ9IkS/9DfLcKI+EeaVvrfTtKY+Ee50Fy+PMqE+Eexig3sKedQn
wiG+4m0DNeoToXS8+GWoIvWJEKJ/KHZkqwXrEyFxwtGnGVUWrM8WnulTK/tK
LFifLe7V7kj0uGrB+mzh/3JCTdxpC9ZnC9UloZ0ZB5kXYQu1lbfv5m5lXrwt
Zpeti7i6knmpthB9N6/0fDjzsm1xdmec2u5pzCu2hZ3NLeHccdRni41zpCYW
TtRnh2t+RX3FfOqzw5W7KfcWKVOfHTwnbjjU/smc9dlBUHE6fFmNOeuzw97R
JpLKMnPWZ4fZZ56ryq+Zsz477Gj60hFz2pz12WHqiH1fLhxgXrEd8qQXbCsS
mFdvh7bXi9e9X848BXs8Ovequ3U28/j2WDfWLrvOm3lyeyzaGJZZNJL67HH0
yNnaQzbUZ4+0FsfFITzqs8fqxsHfavabsT57WFjPij3XaMb67JE3OljXvcKM
9dnD75Gj7tUCM9Znj7jdvZsdLpixPgdc/tK9KOlX5vEdkLgvsOxxMvPkDmg4
NjGPt5p5PgM/9+mQcuHMi3DAj+uPuc+awrx4BxQ/ia+NGE19Dth69Y44XER9
DpjjfEUwmUd9DlB4sLPA9osp63PA8uotgo8NpqzPEUpWlWPOPjZlfY6oefnA
bMYNU9bniILHWSUtZ01ZnyNqh+f6rTvIvAhH/LDf+eLHLcyLd4RObfDnWUuZ
l+qI9rmJ9jnBzMt2xIz9nd5fJjGv2BEbfHojR0ipzxEL46sS5ppSnxMKgpsz
1ylTnxOyRGtebv5owvqcwHneto99YcL6nPBG5vbTgiIT1ueExLkally2Cetz
goFn+guVIyaszwmB078tuZnEvGwn1FT6dS2OZl6xE3J4/Ajl2cyrd0K2+gez
vZ7MUxDjn+POtppy5vHFyNrilLzWjPrEyFMf7/1ImfrEuDm9aKXgozHrEyPR
kq8Z+tyY9YlR/mynSUqhMesT49imhJMns4xZnxjLTwTk5hwyZn1ifL9gdsDF
BObVi+Eb3JOYEcU8BWdoHUz23TKTeXxndByNyPcfzzy5MxJCP5TrOTHPxxnH
9BLTCvWpzxmF4VsEi/r5rM8ZP0q9wnrf8lmfMy7+PnJR/AM+63NGhud5rv0K
n/U5w+CwWlPwb3zW5wy/1edWXdjJPAUXfPNPx+uuNczju2DkLx7jpGHMk7tg
Dq9ve7AX83xcUDQz5tFKOfMiXLDkiLlFvCn1uWDuMK/o2CHU54KeuyEVi5qN
WJ8LOl9dCvB8YsT6XODL5X40vG7E+lwwPuf6pYpTRqxPgut1Lpkpe9j1GhKc
+mbBfXGMEeuVIKU/f/jNcHa/SAJ3vbRX33obsc83EkQ7hpX/JWceJJh8dL6F
rSnzfCRQWa18K16JeUESiKedLLrbZMhenwSPfkgfofLY8KsXPXB+wM9w+DVD
9noHzsWGSwN+M/zq/ShBiLq3R8QOQ/b6JWhK/u74wlXMOyHB1bVLdoeEMi9b
ghH6Orzxk5h3XQINpZ0Svph5xRLM9HJvq9Zj3lMJEj3WhB3uNWB7SVCR+dNm
z1qDr17bgLe8IbT+rgHbT4rEl6Xdq7IN2H5SFC9Pndt5yIDtJ4XB61/3f7+Z
eSIpjE0kx8sWMU8uhb44Y7fIl3mQ4tPU7+YtHck8HynmVERbnbZgXpAUF6TR
FeVDmRchRdqT/cnt7/XZflKsmiYeN/SxPttPCltRQp/KVX22nxQTXr0p7Tum
z/Yb8Poy/qxN1mf7SfFb86C/ry1jXrYUe7SmdCUFMu+6FNm/lgR7jGNesRR+
V4ra2q2Z91SKmjmJdw6oM69eijMzPOsdP+qx/aTwHRkw5Y8KPbafDOfmN6s6
5uux/WQY2zddsP83PbafDF0viw62bddj+8kw8dekmAkrmCeXIWb9/eLEmcyD
DKoLq/bnjWOejwxTOpqqqq2ZFyRDZJD89x415kXIcGz2O3WVVl22nwzpkZ59
Q5/osv1keL5gc0rXVV22nwyej+7mPT+my/aT4eQfM37OTtJl+8nQudFfGBfF
vGwZ1ri1Lhg1nXnXZQj7JvT7t6OYVyxD0KZbbikWzHsqG/h/bkqZ+RDm1Q+c
i0TjTrzjsf0Gzj1XJAvu8dh+ctRqzczdkcNj+8mRNabn/vtDPLafHJer414g
nsf2kyM+TKFm6wIe+/sjx9J56fX5XsyDHC8exn1sdGGejxxHX2RpqOszL0iO
/Dr/sWbdOmw/OT5t3ZBkWaXz1YuW486PHl3GBTpsPzl8W/L3Ds3UYfvJEVDa
O7tuhw7bT47QJZrzL69g3gk5bjsrZMYGMi9bjsG7q13dxjLvuhx+1le1qgXM
Kx7o33PQPX4I857K0ZwSV8R7p832k+NjydJLB0u1v3ptcuiardDiZWuz/Vzh
ODbxyYYD2vgfFSbdnA==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91ntcjvcfx/FuJdH5oHOqu+5j9133QSU211uTSESIclgZYaYiJKRkztSE
aAgtpmjkbuYQkpxSRmG/jiusnCIVJeTXtu9n1x95XI+u6/l93e9Hj+Q8Ozp4
bh8tLa0dPC2tv/+lS/efr+74MePvK4dLdfVe+/GznN2f48aH1em09d4PVv99
XeWK3ndsafjv+7e4rBdrzW/23v+r3eXccjZnHvvv+Upu1TBzWXLv/bzIv6+H
3OQvRIWT/3u/igt+8Pt4p9778rK/r1oursj6yZMe8hq4HH/j1Vk99HwjZ+dX
bBnaQ/5j7grft0Cvh95/wh2rPjQ5/xOd18SFv3vTGfyJvKdcWmpAZstH8p5x
E4Ou+K/9SN4LblpUVIfhR/Jecu0FC7N3fiDvFRe28v5Usw/ktXLxR64Zbemm
51u5ruMzb3W/J/8NtzOtcOOc9/R+G9f6UjvgRhed186hLsTEpYu8Dm6MRXV1
XCd5HZzdPU3OtXfkveXuN+gnGLwj7x33OVN/SuBb8jq54x11yvUd5HVxP0w7
af5bO3ldXM2dvO7GNvLec0Of6TX3bSOvmzO4/uZ//DfkfeDKTfbdHdJK3kdu
PM/njv9r8j5ypjN4FUGvyPvEbV7sVjuhhbweznZQ68uAl+R95rpubdYZ/oI8
LSTNH+wifU7Pa2HdCvkY42fka2GkdsHylmY5/nldzQP/gN6JkiY6j4foOYue
7fqLvD6o5wk9Zj0hrw9if45LcHpMXh8MMM25X9NIPdqYtK6P5w8N5GlDXVae
+eWf5OlAMyLE7EkdeToQFD9NXVdLng6KNJVW9jXk9UWUzrzcvCry+qJC3OE/
5H/k6eKa/Z3WCw/J08WE2WOODHlAni5+5xXO/aWSvH7gb05QOVSQ1w8Z+s36
6++Sp4dQ50ltf90hTw/fNDs0ceXk6eGHnuzmtNvk9cfVrf6d9bfI648bXpED
XW+SNwDPpd/4zr5O3gBoBmatySghbwB+FG4qvVVMnj76Gq8WtheRp494XlPa
wMvkGYCf72GivEieAXImlmT6XSDPANPSTbhJ58gzhOPp5Dehv5FniO0hW86E
/kqeEZo1e1OCNeQZwX+F08qR+eQZwf333fEeJ8kzhmlE1HbzPPKM8SLY+Uxr
LnkmKPUTdVw/Rj9fJngwpds//Sj5Jphna3l6Vja9b4JhRzpVTll0ngkOrnW4
XX2QPFNsKui3KuUAeabIueD91bB95Jnix20K18a95Jni2a7lg5LSyTOF3blU
lfUu8sywbLJ2RM4O8sxw1zssV51KnhlqcwYZ/7aNPDPsnVubqt5Cnhl2/Ogk
z9lInjmev4hvtlpP+5gjOnrF5cRk8sxRnJf3a0MieebQOXyidGgCeebILej/
eftK8iywoSRsUnUceRYIt/e+6biMPAssifOeNWsJeRbw/Px2YHo0eRZIHGvU
ev078gbimwiHltYF5A3EiNNXDC3mkTcQ/ez3BSvmkDcQ8c0BhX4R5A3Ekpux
YyfPIs8SEbXntGZMJ88SM3OLa2dMI88SOc6eDSFTyLPEi4xz+gHB5Fli9733
X3sFkWeFRy2H6uwCybPCxvjp67tHk2eFNXP+mFrhR54VBmuXTPnJlzwrxBpW
JC7iyLNG5wHNQ8UX5FnjrNJ+essQ8qzR5+ciw588ybNG7RdTX09UkWcNadoe
rW538mxwPnuo7z438mygutdd4Ckmzwaz7+0MveVKng2GFBYrQpzJs8FPOqOG
1TqQZ4vCFXXx023Js4XtiICWSkvybDGhYXy6nzl5tlilPLnslDF5tuDNV2yz
MCDPDnuMMqoX65FnhxDd/IibOuTZwXzDCL41jzw7hNsMdIj4JGOeHZwOdQb/
9F7GPHtYjztTUv9Wxjx77D/iGGveJmOePYKTtL8e8UrGPHsc1lFvnv+cPHv0
y01q29REngOyvIr2ZT0izwENl66v/7WePAfEZn+bf6WaPAf47F7neOMheQ4Y
sPX53WsV5A2CU2n89Yt3yBuEqQ0GvJOl5A3CqeyktRnXyRuEr7w0oxOKyRuE
pu51U8MukecI+4OVvyjOk+eILRbfB2mdIc8R4h0rht7KJ88RqSm7Y7bmkecI
u1tFbaNyyHPC4eGNVz5ks+dtnPBc/md9ziEZ+33jhJUDswMm7mfvBzqh4rSt
btseOs8JuTwPs207mZfkhIihd6IdU+l8Jzy41+R4YgvzNE7oiZvvotpAPU5w
tBq5Kn8t85qcsLNioViaQH3OCNOtdNu/gvqccdMvakO/pdTnjDVhap/voqnP
GaVf2fiVfkt9zpjgaX3cOZL6nLEqXfLdkgjqc8ZTrdGbC2dQX+95iNbWmkZ9
vedN2F/zxSTqc8aNmeVmseOpj4+2K7zcrDHUx8e4vkOzbo+kPj6W1cZ9bOGo
j48G0aVz/YdRHx9720xqBnlRHx8LFy+LkCupr/d5Xts4Txn19Z4nTjnsJaI+
PpakBc9U8qmPj1LjMckCB+pzQWf6alNza+pzwdUR7/W7zejnxwWegWVLqg2p
zwXeFjr+BXrU5wJ361ObN2pTnwsuv20YNrnHjfW5IGLBsVm2793+9TQuOBZo
017V7sb6es/b7d+d9sqN9blAFTJ6md8zN9bnirPnlHPfPGaejSvC+trdTq9n
ntoVs9Ptj3lWMS/QFV6NQZ/KK5kX6YrQmN9vf32HeUmuGPn4jMWLm9TnimMt
/Kroq9TnCpMQpe2ri9TnirQOraq5Z6nPFVtP51v+cZr6BLi9ac79EXnUJ0DL
mmHmR3+mPgEe54Te186iPgGWuz22nr6f+gTIUnxqPJ5OfQI8bC1XvPuB+gS4
eWK17tCt1CfAiDzlnLj11CfAAl/Lsb8kUp8AzsWTC+vjqU+Ibzdan9NbSn1C
NLdu95VFUZ8QovBHoWPmU58QoUNGaoXPpj4hpHWPvGJmUJ8Ql/Nf9cSHUJ8Q
u60yQhMmUJ8QMYssRq8MoD4hfIx23Y4ZSX1C1AcF/hU+nPpE8E5ekh4whPpE
+NDyRYNcRX0iRFc+ujpARn0iXF+w37dRQH0izKzLmpnvSH0iGAQpLFfZUJ8I
/SsTFw03pz4RMqPL53wwoD4RntmFfMrXpT4RpJenDpmtRX1izPcwtTLolrI+
MaAo/vFku5T1iVG6+HhJYIuU9YmxIdUo/XGTlPWJMdPY3WRpg5T1iREQPm5w
TxXzMsTwrTqlnVzJPI0YQ88eSPxcxrwyMZqdwnKWX2dekxhb7eTJzZeZpyVB
x85Z+sHnqE+CEdO8R505TX0SvLXiDbY4QX0SJM3WfbjwCPVJ4Hc0TX4xk/ok
OOTRNkxvL/VJsEm0pM+4HdQnwe608OStW6hPgs1BBhevrqM+CQ5bXtO8XU19
UgxaUTPPeTn1SZFQc6h6VDT1SXEnYZ5h5Hzqk+J8TDIvMYL6pGjJ8Du7I4z6
pOif31edOYn6pPDlrGOzA6lPil8PVMZn+1GfFIc6UkZnDqc+KRyGZjXs8KY+
N5QoIr9KVFCfGz5GDl4SKaE+N/h4zovy51OfG/Ivhvrw7ajPDV7P591/Z059
bqhY+ArXDKjPDRPOBSRt70t9bpAY1ewM6pGwPjdMW9CzWr9Twvrc4L7N4ssr
ryWsTwbufcKDmKcS1idDUPs+f9tGCeuToXjV3V0Xq5gXKINj8JpLYRXM6/1/
zbNN7/qbUuYlyZC58/6J5KvMy5DBUjxqqWEh8zQyaMKuOqQVUJ8MUSmnc03y
qE8G37qV9puPUJ8czZbfL/1wgPrkuHzZq2BeOvXJ8bXxx9ryFOqT4/3rL1vl
G6lPjrKPka83JlKfHF1Jj2pq4qhPjqfL7X+TxFCfHH4b1iYvnk99cqRpJ3Ka
cOqT486r5NevplGfO0a3fdjpOpH63CGOCHWfPIb63KHvrV+UMIL6er9vmRxw
2If63HF4lMfvl5TU547qgu+DHkqozx3ubzrKmp2pzx0W7u2j222ozx3tw9tL
ukypzx3b9izw7epPfR74NuB28Rse9XmAp5fi/9d7MevzgLeDuKLijZj1eWDd
EpM555+JWZ8H2rdc6tnXKGZ9vV5y7k9xVWLW54EphuMmj7vHPI0H7i53NHO4
xbwyD3Qe3FffVMS8Jg9s6hl2Ifcs87QU6LN/Vc78U+x5AwX8LR7mOh1jvo0C
MbtuFFUcZO8LFaisKnu5Zo+Y/X2jwDDlNwpBKvOggOEyve3XNtDnUSDDYJhO
+BrmhSrg9CJ+T8cy+nwKuKWMHL1uEfNiFTD6ZGttMJc+rwKLbyTopc5g3jYF
9HVe2RpMps+vgGBCy4R1Y5l3VIGj5Z+Od/gyT6NAOj9LHj6UeUUKVMXN/OOa
kvZRwH6FJlcgYV6VArPGi3MSnWgvBWKP4H6lFfPaFZh+dK2cb0z7KbGyM+bM
t7q0nxLrL+yKyfskYvsp0ZYaO/N5h4jtp0Tetl1rnF+K2H5KfOmb+CD4sYjt
p8Tjsxe+WVMtYvsp8SK6Qpp9j3mhSnjOCJSV3GRepBKXmk4vqL/MvFglol6m
Pmk7w7wkJaILF2XyfmHeNiV4Vn/sHXCEeRlK3JZNfWC4n3lHlUg4ED9Ffyfz
NEq8Xl5qq72FeUVK7FA/FL5NYl6ZEv3OS1Y1xjGvSokn04NtbkYxr6n3vPt1
fXLmMq9dibGjwny+n8E8LRV4w0MuhU5inoEKg/LCd0oCaD8VPjzXO98O2k8F
F029+qw37aeCnmBJnzh32k+F41cmiRQC2k+F5oUW2Y/taD8Vxkb6rdxhRvup
8DR4xXGf/rSfCsuVnE/tZyHbT4XWWTJB/Dsh20+FoF0VMSYtQrafCn5/lThk
PRay/VRIuZwud68Wsv1UqHtWc7jgLvOKVAhMFq/2vMG8MhVMe0wunbrIvCoV
+omlC4QFzGtSYZ9j/8T0XOa1q/Bi6lc83mHmaalRlh71Zu4e5hmokdnuNPHa
dubZqHHgYauz4/fME6qh27l0buxKIfv9o4bV9JEOxTHMgxqJIe8C9OcxL1CN
sZv5reNnMi9UDe8/w422T2JepBoTUsb8fG0M82LVkFkuK+ziaD81+nOrg4Re
tJ8a0dZdEeNltJ8aXl1r38bwaT81+Cs1+inWzNOoobdGePSIEe2nxn7Rsuu/
6dB+apys9Ykq6Raw/dQ4PdL44O1WAdtPjUL/H8LKe/9u/sdrV2OW4bSsW7UC
tt9g5HzgrSiqEOD/5c3W0g==
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768227320648828*^9},ExpressionUUID->"5b1544a2-2d7c-4ee9-b052-\
f885c57d4f7b"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxd1ns01Pkfx3GURO5h3I3BzHSRlbTVxvdduqpUUrGlJKl0202riHSRSmm7
WkQGFaEw4x6N+yqUJcVGqVySyv3STauf11+/zzlz5nzP9/N5vJ/ne75nzhi6
7rPfJiUhIfFt5PPj+/9XeNiPdZv5Hu8VWD60QDx6nc18+1fzqMInB/EMix+r
iMkzLpkx22sz7j9grrHmHVD/7CYeVaqYqlYtx0uzPbC/hulXPOiU5r1PvN39
x3rKVN+JXmbnvB/n65noVXIGM4cPiCsrfqwG5uCEuQtjog7Ca2J0zwq2xc7z
wf5XjOOKD+a2zb7w3zDpH1Zsjzvlj/PNDKNR1taifgzzWhmtTr6h247j8N4y
Xw9p1qy7dwJeO3P5xfChUsWT8DoYlxeDIfdcA+G9Z0R+e3OsM0/B+8gE8nJ8
HOXPwOtifrPL81ZxDcL+LmY48aTb/qyz8LsZh58/9p5QCsb5HsatY/4Hu+3n
Ma+XOePdymkQ/wmvj5GU9JsTfu4CvD5mysExO1NmX4TXzyQF1OpYtl2EN8BE
eMfWT716Cd4gU3lyvXmEzWV4Q4yZz76cUz2X4Q0xW96sV++LvgLvEyP4s6yj
ZfVVeJ+Z0GBO9xapEHhfmPOZj1/vFoXA+8o01MWenrDtL3hfGb9jTPp8Vii8
b4xp6IFFrIeh8IaZyLwkk/N+YfC+MzuvrF6SZB4OT4Jqvs9M8WoNx/6R670y
u3uuXYMvQS0LhX8Z20eI/3fcQpIO+TdsVJWNxDxJMg1Z05ufHwlPiqKrjkdb
el+HJ0X50h25f0yPgidFj7ojEgLfR6FnDBVqPe/MWCOAN4bcArt+C00VwBtL
a/07Yt8pRcMbSzyz3o0pe6PhjSWnI1be7yuj4UmTtsTal9GmMfCk6fVJF/+a
4Bh442iZx+41AR9j4I0jQUz65syVsfDGUX/cgHBfaiw8GepdkuGeMvEGPBlS
8wqN8vW6AW88DWinBj+rvwFvPNmw6ncXW92EN548d0ufXBRzE54sBQkFk7fI
3IInS4rvW++z9tyCJ0dFFTYpe2puwZOjhLMiH/c5cfDkKHk9N146Jg7eBNp/
qrXKTi4e3gTacV0yYqFnPDx5ujkvTfyhIR6ePLFn1UsuW3wbnjxdv7xh1hbh
bXgKFGSQtHSGfgI8BQqznGNaFpQAT5E+aXZ1sIcS4ClS36BQMN89EZ4iTc5p
PWRemwhPid7m9qd1L0iCp0RvbjbEn0pPgqdMRp45uYPcO3i/lCm8223PorA7
8JVJu0RyxSH5uzivTGKzG2MuHb2LecpkVtq5MrT/LjwV2jU/X+bCrmR4KmQV
/1TzyOtkeCrUP1hSbGGaAk+FXDKLc+N3psBTIa0Im4uCWynwVGmT0+n3es0p
8FTJsyou0IiTCk+VnnR+NElzSYWnSpbKK6Oqo1LhqZJtT+XTYy9T4U2krQGf
xMUGQjyficQK2bzpuosQ3kTyuCFbqhIjhDeRjrz9qsNpFsIb2f/sfkg1VwRP
jQKYF0e4HiJ4avT6l2NmhndF8NTIhzukUdojgqdG1uVrMzVnpcFTozUKCnG6
R9LgqZOU9ZWLtcVp8NTJwVVx1mL5dHjqdCrh8+9/OKTDUyfPze9M3SLT4anT
lD+t9rPa0uFpUFBxq/Nl8wx4GjRXe+akBt8MeBpU/zWRO1CWAU+D6vpqilrU
M+Fp0ORaXlDy1kx4LApO+WLgKMyEx6L+L/uXNktmwWORwNa/3dE+Cx6LftZo
l7oXmwWPRSy5rdlKA1nwNGnB6nj7jUuz4WlS265bP9+KzIanSYs1Rf09Pdnw
NEml5RGzZGkOPE3ylOnvTBTkwNOifB3v8cafcuBpkaOfZ3qG/T14I9edc+08
7tyDp0UTHD+vWyibC0+LNm+YfdzOPReeNrWnXBeeK86Fp03GrLiv44zz4GnT
y+eH44sD8uBp0/LB5xaVrXnwtKmvUtuBb3sfng4pZFkONd69D0+HEo9LLhtQ
E8PTIeG039O9fcXwdGjfosGm31rE8HRoe4Skcw8vH54uLdW3m93pnA9Pl2Tv
BheKruTD0yWNaSeeL6jIh6dLZgnjzseNLYCnS+s9Q+RfWRXA0yP5K19EAwcL
4OlRaIaUwkdhATw9soy3fVTxsQCeHh3JnvQidEohPD1qXpXo4LizEJ4+VWnF
+anEF8LTpwnrev992FYIT580OkXcs/wiePq0ekzZWiePInj65Fu2PnzunSJ4
BjRNHOA+t7sIngFtX2e9z2VmMTwDkl1glZziWwzPgDaM4XtYFhfDM6CNam/M
BuVL4LHJoEKpaXhdyeh+LTY5ZuTeWRtTgt8bNtWU2hpJd5aMnl/OpqyaIC7L
qhTz2BTGYn27eq501DvKpndF71edayzFfDbJf15qKf3T36OeiE2C50+myAf8
jR429ecpT75T//eo18qmhAFuVN9PZegzpAMmsj6dZ8rQZ0jRzr1mic1l6DOk
dJW1RZbzHqDPkAIZfnlk1AP0GVJ+932fnu8P0GdIn5uVEmxcH6LPkNbWnX0R
XfoQfYZk8+6kg75pOfoMKWbxHNnyq+XoM6QxXv4lORIV6OOQS5jZJMm9Fejj
UN1yx0xhYwX6OHTiG71pXlmJPg49m+akf7e4En0cshYZtpnMfYQ+Du0QmdS7
ZTxCH4cmbtS+H2DxGH0ckl9qLRCIHqOPQ3O05fZ56FShb+R+RHlU1KYq9BmR
85eAQP/YKvQZUXZm4WXtd1V4f4yIMy5L5fj0f9BnRJ0NAdPLfP9BnxGtXhVl
IPHgH/QZ0RLRYTlrVjX6jMim/6L1X9urRz2RESUovp7ByalGnxHx2Xq3BxRr
0GdER6dGppi616DPmNTMf615Ja5BnzHRM2Weme4T9I3ct6jdbXH4CfqMiaOy
xlyx8Qn6jKlxg3RX07xa9BnTsG3m7Me3a9FnTOYnkl4Mqz1FnzFZ2NTrhp54
ij5jmuoTXV3S/xR9xnTf7WZG+q5n6DMhnaMzroa2PEOfCamHq12J2VqHPhP6
VXmr34TWOvSZ0LDXflWlPfXoM6Hym3HbPwzVo8+EJtr723ac+Rd9JjRTRlVk
z36OPhN6EiGY75n7HH0m9O1xV1XMpgb0jeyfEiRnLdOIPi45mM/m3M5oRB+X
ggNuhK7a8wJ9XLL7OEsvYcpL9HFpRvu8c5Y9L9HHpYMtjjJilyb0ccm20CtF
obIJfVy6reIV62T9Cn1ceqwdEv4t7RX6uCP/Z3J0nM1fo49Lbn+oXWgRvUYf
j/IOHQ9UsnqDPh790nia71L5Bn08arps3+GxrRl9PJrutPF0jXQL+njEeimx
fFVyC/p45CrcX57k2oo+Hl3Mf8uqZLehj0fPdvGDUt+1oY9HbKNzSw4XvEUf
j2obE4S/32pHH5+CRRfax197hz4+PXQbd69d0IE+PuX1qi/7kv0efXzi9xT0
7H37AX18ck+91PVoWif6+OTvEOM8fkkX+vh0zG6BzFOZbvTxybfOnNVQ142+
kXlN3hmn83rQx6fMFWGtxVm96JtEP/XvcFd71Ie+STQ12Vw1X3JA3FUwNH8a
bxJVK5qXvswcEP8HZOxBYw==
       "]], LineBox[CompressedData["
1:eJwt1HlMk3ccx/GC8diGByhRTDxxotA+fQ7CJir9GOI5BBQwwQMNbizqOlBE
8VjqNabCUEEQmU5wKIpMUebEOREFEVRkpZQeIHIWrIIFkTIgbtXn+0uapkmf
T96/1x/PtPDIld/YSySSaNvnw/fClO6+/htShAX6qFZ19ik8BdvJl2JDn0O2
16s+RcXTD0eKig7HWNMFq+LbCNsxSZEyyXrm8P5eheTjkeH6me2eobveKdJP
246LDMpbsU+2H+kR9wQZ5nouGZp99a245ycDY31zZ6GpW9yLkEFYYXR0ZrrF
vX0yjLj+6TD+UJe4d1qG2wF3auzaLNQng/uatoEZIRbqk+GCfku+If0N9ckw
a//AyOyzndTHIHrT1nXmvA7qY/DkSuJGZ81r6mPQ8cjpyGP719THwBLkcknr
84r6GMz/w8t5ZpyZ+hgsLjRdKte9pD4G/RU709r5l9THIPVBr/V+ajv1MbD+
mlR6yb6d+hiYZ49T2u1ooz45XFoq0xUWE/XJcT7Ue2tLlIn65Ijomd+119pK
fXIU73h6LuNgK/XJwZmGh1rGtVKfHHsyGpc5X2mhPjm+yl/kWLSwhfrkmOLS
2Znd0kx9cthJcycf/amZ+uTQWnRzZjPN1MdCM9WY56dvEv/vwMLcHBVU9GMT
9bKISU8yBXk1ic/PZLH+wOxS48tGxcd8gcWViBknPDIaxT2wGGSO108JbaT7
sBgxcKY/eVyjuBfKIvB9Wk5EVQPdj0XrIwdrbFKDuBfNYtbYBQO/BzfQfVmE
xCTeNk9oEPcSWMTrdW0ehS/o/ix6xseNYf1fiHsXWazcq8i42Vgv7uWzUC2/
Oyw5tl7cK2KxytFxbqZTPfmwuJHzefyda8/FPQOLk04JkfcCnpMXi4IbrhsT
uuvEvbcsjiyYWzgkrY78OOTxVSdHoI78OCzNzD2lMteSHweVe4/V/1Qt+XEo
K3JbHraolvw49E10/SHVaiQ/DkG+Dhcbc4zkZ/u/uf8Tjw1G8uMgucsNho03
kh+HJ+8eVm7+x0B+tt9OKY/mxRvIj0Po5S3DSxYbyI9Dq8I3zjLUQH4cViaq
7PIf6smPw45nzl2DcXry45BRcnRv0VI9+dme//dmlGWknvw4/Ofj7bVPoyM/
Dlnvs8o2puvIj4N1jtvVY+E68rP1sXVv+jx05McjpyzJKaW3hvx4+BaMHrP6
QQ358ZCsvhfoc6yG/HioKp9d+HJdDfnxaNNk+UJaQ3481s3P/9tvUEt+PJqL
0wdDKrTkx6Nw1i++wee05Gd7PmjZdGzTkh+PMuXPMU6LtOTHIyCsMrxkIu0l
8FDGRgUHWKrJj4dUuaU3t7Sa/HhM6/AQdGeryY/Hzuxktiymmvx4HEx2X77b
v5r8eMy8tnNSuxvtGXjsPq7a5GBPeyYeQ9ZGuDfVaciPR0gdf/jrAg35CWjN
ytMlntSQn4AEv8i0tVs15CegoqtuW7m/hvwEuK3Z7aWWauj9I+CFq5s+8jPa
g4AS1aGoTHMV+QlYMU/pHf64ivwEPP1r/4mrOVXkJyD3VqnlQHyVuBctoLs4
pKv2uyryE3B78+Slf/rTXoKAxFG3ykdxtHdaQGbqvPVNY2nvogBMwGjGqqb3
mYB3efetnUY1+Qko133hP/2emvwE2EWfD3v4m5r8BMSNvnxUe1hNfgJ2nS1e
Evg97b213Xeq0lUIpj2JJ2ZUri/Y461W/A89GDQn
       "]], 
      LineBox[{{13.486547504181221`, -1.419891142068924}, {
       13.487627916966172`, 
       1.558187958759866}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nc41X38x3ESUkb2DIfjmMdZabjxfWsoKi0VSmVEd7s0kKIySrvsyEpE
Ro6tEHLXncrd1lbSTplp/urn9fvn9/3H5Trfz+P7/L4u17mwfNbPWzFMQkLi
qKSExJ+f//9KTvpznWEcE6aMqPnCrhv6vYr5lbs16uqXsXVjRX+uRsbg2rZI
zy0MPr/C/HigFa4wOKVuSGllnCyn1hwa74L7bzEX2JfGTtw6uy7A/891l5Hz
exMf4zkP59uYE5qOm9W/utVda/lzPWIafnTPv5i0CN4zprVT2/3YRE/c3878
9N2cdaBtCfwXTJ/iNo/S4GU438F8Ws27IaPgjed1MjcLMma4evnAe80kpquV
lRT4wnvDZMwZaTDupx+8d4x6zcHUB67+8N4z20bZTc1MC4D3kYl+Msvy8KeV
8D4xevvTV2Q5rsL9n5jKDXUj24+thv+ZcZ/1QeDSsQbnu5kPSdyeZzbr8Lwe
puzDrICc6PXwepmXpQO3bqzZAK+XYTQuv3qpvhFeH+Pi/+93jbqN8PoZ7S4z
lt/KTfAGGIn6GN/ryoHwvjDfg7RuLawJhPeFcdTdFfbTbzO8Qeb4k59BzYpb
4H1l5OWXtBZVboH3jVn+ZCC+xmcrvO9MbcDVJ2/lt8H7zoh3rKt2qNgG7wcj
la9nX+kdBO8nE2VaHeIuHwzvF6N87360YUUwPAna4HohWNknBPdLkNtTX38r
he3wJehnfqTfpsrtdf97XCRJA/Wp+zt8Q/E8SXIb/7Fnj9IOeMPok1dk+dya
HfCGkd+7SR9cA3bCG0YZ4x6XhKqGoUeK9gV3Gj2qC4MnRVEKb6zGjwuHN5wk
JXfYJh8Ihzec7n6Ze0XzRTi84WS5Terv4om74EmT88LcM35HdsGTprMRd3Rt
Xu2CJ0M6zelzjBx2w5OhlOCsNqu43fBkSHXFj+kL3u+GJ0vXIhcJUibvgSdL
zp2dJsNO7IE3gngh66uju/fAG0Effjrt4bpEwBtB3i8WqfdmRMCToxVj2TKP
BiPgyVH64cvvXs6NhDeSOvV+LVHJi4Q3khIPGn32HhYFbyTNNRLQHc8oeKPo
UMWN52vEUfBG0cL7MzeZy0fDk6dH97P2jloRDU+eSvvD6lVro+HJ045dTNkk
zb3wFOiB3MCwpA174SkQN3Gzk+a/e+Epkvm7SWNqjffBU6TUC2dNDu3YB0+R
VqjV/4y+tw+eEv0dO3f6WUEMPCXa8uxX5rf9MfBG061f44q3dsbg72s0rbwm
UtF33A//9+frZNd0n9iP86Op53ayd2//fjxvNL2cWpLAnncAnjIlfPwk3lNw
AJ4yBYU9WqIidxCeMp3/79nE//wOwlMmbvz8nvr6g/CUqVAxSPhc7xA8Fcpo
3Z1hE3wIngpJHU99V3PnEDwVqpd+d36L8DA8FRoQxzT4Hj4MT4Wuf07Ji3p/
GJ4qvfrb+FgX+wj2UaUG7Ydd5fOPwFOllicq/yTtPgJPlfyiPm1IPHcEnirx
VrKniZ8dgadGC8LeZb1VOgpPjWRilJ87MEfhqZEpr2dJ8bqj8NTI0SJ8A3Py
KDw18thpH/z+2lF46vSzcNrtih//56mTjsSCpxncY/DUSeJCxZc8r2Pw1Ol5
5PKwWwePwVOn3lPPburWHoOnQTNWrZkf8fEYPA2KPvzYW8HgODwNSs8sW1Yx
+zg8DUoJMizaHX4cngb15fSXrD93HJ4mVY2sv77z+XF4mtQzvdy/WDUWniZ5
rv7n6fCpsfA0SW1rYlro1lh4mvR91F55rdxYeFrUr3Pu4L22WHhatPjIh5ia
UXHwtGiyZtuaJvs4eFo04+mtlO71cfC0KHCNdKRTZhw8bVqzcdmR+ttx8LQp
piTdwls2Hp42/epeVG9mGw9PmxTfd9Zqro2Hp00WrpGx1unx8HSosWVy8dpb
8fB0aMNYpd13ZBLg6VDefnGIv20CPB2SZp6OYq1LgKdDRYs4udKZCfB0aXSt
dKPa3QR4urQpurPVdWQiPF0qnM2aVuqQCE+XVp6UTJkamAhPl2Z7XHGSyk2E
p0fZjqV1Hx4lwtMj+7BvYdIqSfD0yHBCm+SMaUnw9EjD5kB9bWgSPD06eXzx
BO+SJHhjqC0yuVP4OgneGIoxOOs8Vj8Z3hjqFci2r3BLhjeGkmxsuZdjkuH9
Pj+pq2jxxWR4+jSo9emd4ZdkePokb2OxQot3Ap4+9Q6UpE/yPwFPn548vMpO
Tz0BT58sqjuDBHdOwDOgo6w8kwH5FHgG9Pp8X+nnKSnwDCjx385zrB0p8Azo
Rfaj3OiyFHgG5Oi9w5T9MQWeIRkHVp8f4KQO3a9tSHM33/kybHkqvm8MKfmz
31qnpNSh8zMNyXCOR0HDzVQ8z5B0LknOCpI/OeSFGxLHW/l5gNNJPN+Q6nin
pI6FnxzyxIa0bPUUl4Hqk+gxJF5z1+zEvpNDXqchSV/WK97CT0Mfi1ZPqpc9
sjoNfSyyeTCv79XpNPSxyD73rtbO52noY5F20Md95krp6GNR38ClJhE3HX0s
qvKZp7R0Rjr6WLS8oul87t/p6GPRjA0sltredPT99lImH00/Da+TRcOlnvm4
XoInYURLPfa+H9MBT9uIysMKI5WkMtBnRIGtOVHGRhnoM6LF24unezpmoM+I
bnd9NCldnoE+I2py2xYsCM9AnxHZjJ6ddjMNntiIXL029CbUwWsxIpfua3d3
PYXX+dsrW5h95Bc8CWPyjRisazLIRJ8xTZE5E61Pmfj7MSbN+GVLTy7PRJ8x
eU0wzpmyKxN9xrTqlFyzcmYm+oyJltkZyjTCSzKmna+/6xp1wBMb09TBXEN/
6Sz0/fbv1cbf5GShz5hyKttfBUzPQh+bIpgnOzmrstDHpt7hRf8oHshCH5ue
/7WLxyqEN5NNMwOq2Etb4fmzKYTzRaO5G144m/I0DLZ5qJ9CH5scri6o0Jpw
Cn1s8nikOGP44lPoY9N8BYUcvZ2n0MemsTErHX0yTqHPhIY5xB690wRP24Rs
HH1Hb3sNT2RCbj6KE6bJZ6PPhHz+mRjhxM9GnwlF533duMUtG30m5Cx4HHY7
KBt9JhS47C3XLzUbfSY0nFP4g90Ar8WELA/bb9J8Ba/ThKbJ2o+2kz+NPg7F
NHV6HRecRh+HTsxUfjFm0Wn0cchOZ5z5o9DT6OPQB5+gmuuZp9HHobbv+Zz+
y/DCObQuYMngvC54SRy633ur8aV6Dvo41KtprFVkl4M+DlncMY0p8s1BH4dW
uccVvYrJQZ8pHSz+ZuBekoM+U3I8d2Oz5AN4IlPq+7bJuUMyF32mpC+w+0vS
Ihd9ppTuEvbGfV4u+kxJ0zC+711ILvpMabzGm2E1WbnoMyXW14Hy5hZ4Lb/v
H+lbpdQPr9OU9lj2iuMNzqDPjKbMzZ23xPkM+sxoknLVZO/AM+gzo1erT48/
nXoGfWbk20ztlpfPoM+MpmmJ+7q74YWbUYHrQavvY/LQZ0bKL68z053z0GdG
x8s/v7u3OQ99ZhQo29eVn56HPjPaeWWlwqWWPPSZU71u8Aj2IDxtcyqT/Zpz
xSQffebkviOwrHxePvrM6e0h7o93Yfno+/15l53rqoJ89JnTDPHhEOHDfPSZ
0yj3rwunyp1FnznNHz21Jmv8WfSZ07LFE3e7+p9FnzmldhTtc4o7iz4LelN8
suRA01n0WZBvkmk7qxeeyILYmjnfZdgF6LOgwuWNXXZuBeizoKcPt+c2RRSg
z4LWdk7QSisrQJ8FzRx4KLrWWYA+C5qk29ozW6sQfRbUe03HzcylEH0W5Dd2
rdui0EL0WZJCpc2Xx4WF6LOkpSNKnC60F6LPkvJ3S87oVytCnyUZS09Qi5le
hD5LKrHeWBYcWoQ+S3JS7JjaXFyEPkta7zTwbMPLIvRZ0subFvPtFYrRZ0kB
KZJe3abF6LOknDUTje5PKkafFTnru07s8ipGnxWlTpL7a0JwMfqsSK7wYIM4
Ft5MK1Jy8V3rUwzP34o0rPc8nNICL9yKSiT9iha/hpdkRbw8mUM5w8+hz4ps
p0oZmLPOoc+KFgXGy7fbn0OfFcX1FEq1ep5DH5fkY7+J+7edQx+X7m8bvLEg
Dp6IS4nlwxQ+lsCbySXTRV7G9a3w/Llkk+tyveUjvHAupQxqtKgplKCPSzur
zJ8kWpagj0ueA+pXPFxK0Meljjn5bu5/l6CPS00usjPj9pagz5patXN2KOfC
07YmhyfBNdf+gSeyplELex78+wreTGtaPMKgTG6EGH3WpNEl5uw3E6PPmtZk
mI2e4yxGnzXNlbq8wGOVGH3WFLyz+WnOfjH6rCn08qJkuwJ4nda01vbSFq0b
8CR4ZF0X4W/3GZ42j3YtnrPijGop+ngUsNBh/fJxpejjUaH0g0gfj1L08Uhu
in1RcWgp+ng0PN6if0Z6Kfp4tFjKbJVNEzwxj8Lzkg3WvYbXwqMlai94A/Jl
6OOR16yQqv8EZejjk0GL0rOfC8uG7pfnU595bktYaBl6+eRefr5gQSbOc/jU
+HZxxa7LZfj/hk+3ml2MpbvgEZ+C9EwF7erleB8+Vd6K4Wjalw95HnzS5vFn
5/qV4/34lKSp+SPuQPmQF8inryH5e9tLy/G+fHrb+H7OgcfwDvDJfmt8TYJM
Bd6fT/JfnW2k+RVD3mk+ZadWCe56VOD/JT6lP7xtKR9RMeTV82nvx77s3MIK
7PP7fS+Mtihog9fGp2bBC2dd6Ursxae8fk5aL79yyOvhU3JD01Vbr0rsJ6DN
JnIhXfsqsZ+A5vc+WKJWUYn9BJTh1cPL74DHEVBHuWZlmUoV9hNQmfKCRhvH
KuwnIM88e3PuhirsJ6AoxuxqaloV9hOQQ8DG2H03qrCfgOo/14Z0/4IXKKAH
a6fufMCvxn4C+tqhlDfZpxr7Cai03VmNH1uN/QS04P7+JxnN1dhPQNmyFuNO
DFZjPwFNfhvpps+twX4CmjbPJ4zrXYP9BJQ5zVbualwN9hPQs0vJcwf/rcF+
ApLaGnapWuI89vu9R3jJU+Xx57GfkJYn8cwl153HfkJK9omZuD/7PPYT0v2Z
7hUlj89jPyH9pXrSPUTjAvYT0p4f9KJj9gXsJyTvkaHcvn0XsJ+Q7ll76Bc2
XcB+Qnr9n3WhikQt9hOSg5j1ysSuFvsJaf7q/Jdvg2qxn5BWik3a/MprsZ+Q
lhR4Dk/orcV+QlJdolMbIarDfkIaiL6zURBYh/2EJO/skJ4ursN+Qpq15ePT
O7112E9Itjoj16/Srcd+Qgracayo1a4e+/0+n3I1LW1pPfYTEjdsrm1beD32
E5HXt4iosKx67Cei70E9ibHN8LRFVFXRcFznLTyOiGZVGeaoKl7E94+IjGQq
lXcLL2I/EZ3dbsZauegi9hNR16MI4eXQi9hPRPWed0pOZV7EfiKaOyfNQOIK
vEARndi0SfZxF7xwEU0Xbx/poNmA/UR0eoz+QxOmAfuJaHLfUYeEgAbsJyLD
FTEKcUca8H0mojzF52ONqhuwn4hG/Oda7tgBr0VEZoZjzvQrNmI/ES137bGd
YtuI/UQUbpVazPVvHPJ6RLRu9TP/8mON2G8sqQk8b7XXNdb9DxYfRbI=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nk4lPv/x3EplChr1jCYwdhmkXJa5l2piJQWJ0k7KolEtshaRLIzluzq
tKmcFqWjopTk1Gmjk6SENllKlkPf+nn553f/45pr7s/jfs7rmmsujC2eK11E
RUREEseJiPz6+/+vTOGv6w+BxhnNW9wiucrR1+UC6yfai2cVaVea8X9dVQKb
FquybX2GeP+eoLlsjcPKIl7lqPJQkCa5zOnAspm4/7Hgav39kxV9syvdXH9d
zwSMXGGV+ArC+UbBOM8o4dWiBZUP6n5dLwX1HhH+QQOW8F4LGmZJiNrYLcH9
LYJMZv5zdqE1/LeCep9xWer9NjjfKpgbNfSZscwOz2sTdEdYWmjYr4DXIWgU
ur67FGQP772gaDi2zqlkJbyPAs38r5XSj1bB+yTomjSY8GBoNbxOQe5nGdls
lgO8LgH3Qa1soP3vuL9L4JL0fNv2/WvhdwsijCReuh13xPkegbaJjXXAP+vw
vF5BrPuVkJxhJ3hfBX7CaLun+s7wvgryP6nFMlZvgPdNMFA+KB5xYCO8PoF3
rPvS4DWb4H0X/Dm3JsLy4yZ4/QKpC4pCpbDN8PoFsYG9vX3TtsAbEJTbKY68
Ob0F3qCAXlkxXi7YCm9IwCv0rXnTsBXef4L4iznrvu/eBu8/gf+xV5aqYi7w
hgVBRt5dNlku8EYE0lalNXFcV3g/BCvuSs5oqnGFJ0IDVsqFcze44X4Revvj
8P6zX93gi5BBirkRJ3Z75f8d54+j0K9Tp1cxduB54+iUqclVtys74InSoM39
3RrLd8ITpTatRSXt73bCE6ULphp1Vfvd0TOeDENGbMrkd8EbT3lefyZeOrkL
3gTqLJ4xqX6+B7wJpPk4V2OwwQPeBJqcZzFvttdueGJ0InLvk0QJT3hiVHC8
Y9nIMU944jTnVWksqXnBE6d73e/spN284InTxNus4+8ueMGToHPFKvfvjXjB
k6B1O4K7y5fugTeRBl/p219K2wNvIjnTZEblmz3wJtKpIqOMJybe8CbRce+z
n/sCveFNomlP7q9l1XjDk6Qc/RcyW+X3wpMkTqD1sjMb98KTpDXdRYvETu+F
N5lKrZO57v174U2m+CXPrZotfeBJ0RXjFVWbE33gSdE+/mBDT5MPPCk6N9R5
M4ntC0+aaie7Xprv5wtPmt4tvNj5o8oX3hS67mBf+EBmH7wp9HhBvdQp533w
plDV/eatGSf3wZtKM786tqR+3wdvKi3x5/5VaOkHT4aSrPbzbyX64fslQwJx
78DuV37wZagiZFcd18gf52Xotn7HlogAfzxPhtQKIv3a7vjDk6WpxmKWTgoB
8GQp2NRe9M3mAHiy5HjB51NgaQA8WdJoyZvDGg6AJ0v3DhsZty4NhCdHzwtS
+v/MCIQnR5er9jdmtAXCk6Pic6WSCWZB8OSotVGzJjM8CJ4cdTW3W5c/DIIn
T9nKNvUfNfZjH3n6W+HSUZ7Hfnjy1MesvHfk2n548lTwjnVleFIwPHm6X9GQ
Fr42GJ4Cxe/6mK9+PBieApml5yvWfQuGp0BiS3eaJFqGwFOgqugW/V3JIfAU
yL7h4XznNyHwFKn6vumlbdwD8BTpWaJuVXjoAXiKJBE+oeTy3wfgKdIGB3Z9
2NRQeIo0aPZuD39mKLxpFPCN2dS1IRTeNPJ26Te5ejAU3jTStQ87ePRsKLxp
VFA3Irrn2Zg3jTxD7lZtGBnzlOjO++Uda1lh8JSou1wrYaNdGDwlypNueeG9
LwyeEvXfsu9IOhYGT4mcq+0aKu+EwVOmOWv+rh3oHPOUKXdjWzMphcNTJqtb
t2amCsLhKZNZbmlPn1s4PGWqOKnAdU0Ih6dC9kH75N9eCYenQtS476pHy5in
Qu+mPl0sLhkBT4Vi5u1uPM2LgKdCa07OTd7sFAFPle7JOKfqRkbAU6W4wQnj
+k5HwFOl+ilHvj99Oub9vN9tV2b1yJinSjLtFpNv6UXCUyPp2NPu9Ssi4alR
e3VW0/uASHhq1FH/I1yhMBKeGjWN7wm2q4uEp0Y+5me60r+NeerEkIwf7tKI
gqdOj2zkaxytouCp02ubV57/7ImCp04rZ5WpOmVFwVOn834BH3qro+BNp5li
c0RzOse86dRQZxDloHwQ3nQKmZiWprXgILzp1JfT7zjkfhDedBIN7uxpSz0I
T4OUf1hEva08CE+DFi6pMut+P+ZpUExBBlNG4RA8DQp63xlE8w7B06D7bxjr
w7cfgqdJucV/fniadAieJt0Ztredff0QPE2yeFhXfKF9zNOkuaFa6nPkouFp
kt+aPU+ez4mGp0UGb6W+RrlFj96vokUnPXfmLU6Kxu/Nz/edDX+oXMd5Wy2S
TlYzF+mIxvO0SLSD6z4gFzPqhWrR1SMJ1WLzYvB8Lfptf9R25o6YUa9Mi5jN
h4PXpsSgR4uCI5awcytjRr02LXJbfDR14AM8EQZFRm5tc5t2GH0MKjrcu/DD
/MPoY5CLRM7TUI/D6GOQQ/CnW4bCw+hjUO6lHP7H6sPoY5C0Rfbyyi54Qga1
XxsvOKEeiz4GBeRosUusYtHHoEVOXhblPrHoY5CIZEFqS14s+rQppz7NTfNB
LPq0aaXjlgbvAXh8bWrfZCP7khmHPm2aoFk322llHPq0Sb8+KawrJA592qSs
Hy6VfSoOfT/PvzsvvqEhDn3aNGm+Z6a52BH0aZOm79weJu8I+rRp58Jns4w2
HkGfDun6sYXWcUfQp0O9O7fMCyk/gu+PDukkvFpV2wbPVof6v80UM1GIR58O
LXxMIX/Mj0efDknLin2c4xmPPh06+LTWryM7ftQr06HHsvL2p2vj0adDqVMz
C6P74bXpUJXI2uxg1lH06ZJHQtj22NVH0adLPT7RMy6EH0WfLi0br87tOXcU
fbqkXW0QY9N8FH261Dvhy4xm8QT06dJCy38imBoJ6NMlOb+U2/4zEtCnS51/
nZJrtE1Any59fXo2fPG2BPTp0hTnNcY3g+CJMKnW0J9tnQxPhUmL82STXp2E
x2fS8q65+8NuwbNlUnXg7HG8F/BcmeSs6m7R1T3Wx6RL/ivmVkxKRB+Tdm5J
YqYxEtHHpGG1IckQi0T0MWnpZX9xH/tE9DHJaed0rv+ORPSxyKVNs+hwGDwV
FgnO/et/SgiPzyLVgEd3X5yHZ8uiBP/jZ5Rr4bmyaE+NwXyXN/BCWbTi2tKc
G4NjfSzSXKjzki2fhD4WZVn2KhUZJqGPRaWDDHcjyyT0sejJ6nldVeuT0KdH
c37/cXOnbxL69Ehlv+WQVjw8vh69VJx2ua0Enq0eTblQLFNRCc9Vjz4F2+nk
N8AL1aOFp1Il07rhCfUo9xn7TaZkMvr0KGV3x+1SnWT06ZG6+pNHT+Yko0+P
Cgw1tSUdktGnT0HfWY+XeyajT588V/mOK4mGx9enJQM37kkVwLPVJ5e+z1aR
1+C56lOg6pRsqafwQvWpyG3z6+JOeEJ9co9w4K+YmII+ferWj70wWTsFfT/f
z64Lapidgj59atJUPnNpTQr6DOjB9qxtJZ4p6DMgT6WLN47HwOMb0D2Tb81X
C+HZGlB8/PSW5uvwXA2o1kP77bQGeKEG9P0ZW2xTDzyhAQmZia7XpFLRZ0Ct
kW9ZBnqp6DMghleryx/zU9FnQHf5sQvnrE9FH5tKvSa8btmXij42dedecMpM
hMdnk7TQ5LnLaXi2bGpVttprWQPPlU0vrcXtzd/AC2VTjN2JxNnD8IRsqqgr
dlitnIY+NjUFlt4M5aehj03mZ0u/3rBLQ9/P1x9rZRV3pqHPkGb5bZodHJWG
PkMK+SiZMpAHj29I0bV58w5XwLM1pE7FGRtMG+C5GtKadqVp73vhhRrSxUnP
Yy5PTUefIemkzmvKNExHnyFNjnM0S16Sjj5Dsgj0Lsvbmo4+QypWVDhQdSAd
fUb0/fWkiqEseCpG1Pr3pqPWV+Dxjaj6s5vGmSfwbI1IQux8PKsbnqsRfbGW
Fb8knYE+I3ogVnDSiZ2BPiNyXHSzQGlJBvqMSC9aTvHD1gz0GVG99wH9x6EZ
6DOi3eGzJjzOgSdiTFdvXfz7/VV4KsbUHHX5glIDPL4x1Wssebr+GzxbY5LI
ubyxXE6IPmNaElsSaMwRos+Y1M/9Z1e+TIg+YzJ62Cnm7C5EnzFp+ozcVY4R
os+YzEoHb34qgdf28/33ImqN1fBETEjsZPBI0xt4KiY0e4dx+pBIJvpMaLHz
dBmeZib6TKhh+emUsLmZ6DOhcXtjV3xwykSfCcn+Vum5KzATfSbkys/TmCiE
V2ZCx9r+jbl+GV6dCWX96fsq7hm8NhMqLK+x3vcNnogpMcsiBgIUstBnSlnt
ZWoZ/Cz0mVKVbMWrhyuz0GdKE+3W7dH1zkKfKQ1JnhBNTsxCnyk5DKveUj8P
T2hK6YoHm28+hFdmSoxA1djwLnh1pqQasf3bBpls9JnSwqublv/OyUYfh/hN
q2vdV2SP3i/FIce3/enZXtno5dBkiW0f3ifgPItDkY9kv646n43/bzj0n8Hb
9heP4BGH1u7QHAjpgWfLoQ5PXyeSzxn1HDnU/Nd/CzTNcvD5OKSfZt6qtiZn
1NvLoZUKU33M9+Xg83Jos9MrPc/0nFEvjkPPr+yYcecKPCGHTj1s/Wf2C3gl
HDr7oMf84RC8Mg5NTTmeETH92Kh3g0PH+6NNHQTHsA+HWoeO8q02Hxv1Gjnk
MInd5BhxDHtxqNPiN5fY4mOjXi+HXmSpijXVwBPhUmBwTp/dB3hSXHpdMcWn
RSoX+3HJXn3GlRTTXOzHpV3CVSPbV+ZiPy7drmWHb/DNxX5cekaDB3wzcrEf
l+Q/hpmdvQbPkUs14eObJjbDc+WS3XD+vwvG5WE/LuX63wmVk8/DflzaoPh7
cK9uHvbjkuqhH13vzPOwH5e+y58bem+Vh/24dGbtses/1sEr41LVlMW/63nA
u8Glgac73m86AK+OS9t/yKeeToTXyKXJ69ODJIvgtXHJckrCX4GX4PVyieHc
emD4LjwRHh2Jvd2S9C88KR6lnD8nPrsTngqPFIWesn0i+diPR/Y5Ksxq+Xzs
x6PHcQouxax87Mejt0cVvwkt8rEfj8xktAfybfOxH498ixNSr2+E58qj4+Ml
v3zyhreXR6KdMWzOQXihPBow3ORxSAgv7ufzw7lNPafhCXl0orQ/1/sGvBIe
fXaXeCn+BF4Zj2rdJa6UtsO7waNWt6F1HkPw6nj0mkWfBFMLsB+PumKPJOvp
FGA/Hr088d1fd2YB9uPRzcdfqs1tCrAfnypuLMrbsLEA+/GpKFffLHsvPBU+
Rc3VP/nlEDwWn0bY5kaO2QX4/eHTxnclrQ3n4BGfTMT4I7tvw7Pl01mv/kK1
F/Ac+bQoKWhccyc8Vz5NSTmxoHx84ai3l082uU+STyoXYj8+ZWtVMsqMC7Ef
n3iyySqPFxRiPz6FWHackFxbiP34xLxaPezoAa+MT7J9OYtvhsO7wSfz9esu
UAa8Oj4lJq30ajgDr5FPq9pXnouugtfGp4sV2QX2jfB6+fTbYLsf/ws8ETNa
ErFts4lYUeX/AKINQ/w=
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.76822732079609*^9},ExpressionUUID->"b128ae3e-a5c3-493f-91b5-5d8ba8e60d20"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwtknc014/3x73tzfv9onfrE1EoJEml8LrRMEqZUZQQ0VApIjNbqVSkIavs
vbOurJSZFSGRkRHZMn++5/ye5zzPPY9z/7j3PO/damarc4mRgYFhec3/q8wM
/5MAMPy/ahdPso2sErAaZ+9TPX8Es8TN/kta4+Xv6915/unh7M4CFdU1LtpW
sVfB/gJK0qXupq0Q8Jp++LbgggWmXOgsnlomoGFgg+FTBRscrz2+nmeNZ3gd
jLIcbTHslrLP0iIBjcmRmlomt9DvWR9n6QIBkac5hfat3MbB4Iw4k38EOHAp
Ho0Kd8Dk/ttm9XMEbH4QcSn6sBOatWseos8SYHjyj6xGnzPmPE3cJz9NQPaf
k1axvm4413HOcMckAeS6qsF+QQ/cw3j33dQ4ARvGJbZaXL6PQ4nXhZ7/IWDp
7vomgwJPHE+i1HGOEPDsx8rdSl5vLGg9mn3mNwGmP+ZCCsx8cKAi6rtTPwGZ
LtfzlXN9sS+xUfV2LwE+4vlOhtz+COt6Z1W7CbihVeRINQtA1wyZhaEOAlYS
vS1u5T1AW96repZtBOjtH5vy5AtENYOX3B+aCbAYUfmjZfUI+3m5dvY2EODv
OCDSiY9Rv/ZSVk8NARSKy8FXD5+gycjbzNwqAiQdmKzTFIJQSWFJxqKcgCSv
lk3yg0GYm0jsGUQC3jhGt0sFP8Xz7NWlUEBArfcZ2Teqz/BF4JmRGzkEyDjZ
5vtOPsP1L5WyHdIJuPjrjOB05HM8pnF6p34SARGPq0b6tYNxs2i6HkcsAaGB
IhMXGUNw7F298vNIAh7l1vdezQzBxyOXp2ZeE9DZFu3HdekFsh/1ddkVQoCL
B5mtQg/F/kqP30pPCJAOvX2M/iUU1/UsktsCCAgrStr+yOUlpvzpe9zjSYD1
c221JNlXGF/s0HfHhYCm1X1p9gOv8LHEQY0e+zW+znZ18vVrtHuwVCt6g4D+
oxkvtum8wZuG7c5K1gTcdes0pnGE4ePgvRa7zNbmhehOlZSEIduFgqDZs2v/
1HA/Ut7xLapZmhMhugSUsIwU3tkTjsbXbea4TxBQN/EmwWc0HLMq9U+cO0JA
6YaO8RzdCBwvnRD2UFy7j8/fG6HpEWglq+3lupcAfbeR6GG+SKyuq/HWlSJA
XGbKOO16JBrmMcozbCPAyFXJcbQ2Eq06WiK9NhGwkUG/O1I6CqPNr3X+pBHQ
623q1hQYhSNie2cEOAnQtLmq6zUWhZZ8bUvClLX8o7Iv5J6Kxm5PdWaWeRrM
xM5m2KZH48G6/M0fx2gwpZZjmUa8wyPu4Wf0+2kgYB8a7mz/DiNbEys/dtBg
dmN64Lf2dxi8sfkeayMNVOntV8uV3qMi5YS/aBUN7K6yeB+Leo8POH0oG4pp
EJARsfMiWwx6dO2ZG8ikAe/oQDH9Wgy2R4NLYDwNympU0641xWCn+fcY7nAa
JDzIdLI8GIsjhla+Fs9pkHpGLI4lKhZ7NQL2BPvT4JbvQIMWZxyy9QkXvnWl
weW3lDdH7eKwn0X1gIcdDd4fzsI/nXG4slmlQPEyDYQPtFM0j8fjbrs4o6/G
NHj77NyBixnxeMXjgASpvbafUJL63i0JKAKjh3yO0uCl/EHpqoAEdLOfjo9R
oMG/9X9HhOcT0I8jzzdCmgbTcxkRKpaJqKXeNGy3lQY78wfuyrYk4kFl+pCw
IA1+F85kTRxJQv4Zv9BYdhr8et8Z55udhDpfTPnYl6ggapdfOCeWjAzZHBYq
41R4NWFx7djLZOx4Ipxs0EuFjRWUk3e5UzDfyo5ytIUKKPOO6al7CkbnM9zl
qaKCTOX4qdCZFLT9Miuelk+FKyolbE+upGJcd4aEdDIVlOJa17v2pqLu05Ig
r3AqzMxVlMtJp+FJartTThAVTHPLC+Os03C3de9iqScVNrxRDYqIScOD1WNS
CXeocN7Ib/S/vjSsbjokdtWKCnYNsT6iIun4u0GWgcOICs3jY9uzTNNRlN28
yV2DCvL8p8Ibw9Nx73JAXtMhKmhM1rZ6dKdjTm5gFUWaCuZe/7BcKAOjORw2
c22hAj3kwvm3phko1uJYO85LBZt3HJXUqAzcqTs+nbrKD66/lzaJ9GWgp5FB
kuZffqB/Kw5pFMtE70gdnrKf/OBF/nAVs8nECt4k2XVf+aH3kIfM1pRMlJk9
KXf0Iz84ic2vq5zMROZLx6ROp/ODcrV+7voDWVh/uWLf/kh+0OXhid3smoUT
BpuvLTzhB0bl50Et5Vl4SrBo6KU7P+iZ8R44zp2NrWYKnwRv8INvwsLNO3rZ
+F1YRfj6BX6wuzAsbRGWjYVvYviitfhB8rHSLfpgNmp+103LUuKHgPIBk2ey
OWj3Q/e/aCl+UNy4b0encw5+Wai5eX0TP7QvJYrNVuXgqw2Uz+s4+aFtuqms
XzAXjQVfOR+Y4IOdLeIBqea5qBZ56vtyLR8Epi0KGWbkou4P1V6XBD6YWbyl
3kfJQ87bn6vzfPggQsNtyFAnD8XUzetSzPhg/7ohxoLoPJTYXrbVVJkP6Jzm
H/hm87BIp2q5ZgMfHNGO0zFW/4BqR1xfzUzzwuCVmP0xYR/w6cFNu7/X88Lx
9Zkzk5MfMHB0ZdYpgReo/XWkmno+5sumi7d58YId28x4YkQ+Nif/XJg4zwsl
mxzZt/3LR2u3i/FVB3jB0MUuO0enAMPHJa8a09Z4XFHLJrkAhbadc04e4QEu
wwWDoxyFqNMsSRSW88CFcwr3tSwLMXdlwdovjAeG0t5mPCwvxKGoI/k0ex7Y
Ro9dYt1WhA/vRSmd0+KB7o57ceVeRehT+EXaTIwHTsx1yNUOFCFD46Ny8RVu
mK7dqCehUYzMot8PJbVwA0+e/HxXSjGWt6TVjidxQ+J9iuasAOKVkF1Zk57c
kLHrZrajM+KMqfeO7LPcYHts7ueNfkTXE0tW+2W5weoNxWRSvATLz47FO7Jx
g/oWLYVxkxIk1T7vcO7iAo6UwNLM5yXobcotQmZywbpdnh1HakrwjN7x2lI/
LpBJYH0Uy/wRs2kbLNnOc8EZuxDuHqWP+OndLnEeOS7gfr6YOevwEfO5VDSb
2bggNIeRZyzjI3qLbOAx6eQE+TiNupqxjxjl4RUbm8YJrh92/AiVLEWbS+f1
s7w4oe90op6hdSnyhvprexpyQsOGWBdqXCl6mfxtFZDiBC6Dqe9fBkux0sxT
2HqVA9aNZ4o9kCjDrNQD1u6NHKDNVKVvZFOG695wjp59zwHOVWdeKSaX4eFP
s7/mHThgF3pZKk6U4QXa8oOzGhxgZaBsa7qvHK+93SLkvpkDOI4opaY5l+Ni
tXGb9Rg7nGOSsJEvL0dtMm+SXsIOxgK/ZOa4K7CkXyY+IIgdhGr4fq4YVGDA
Ku4rNWMHw5zCZP2oCrSTvNhaLMcOTZUaoizjFchuz1bmzswOeU0BYnSlSmy+
ErmfvYUNXtLpy8EP11iabqv/ng2Gy0ZPP+yqxFF/9XeX77AB94K6PMvuT7hf
kEpTOcoGER3Nktxen9BQQ2mqR4ANZor4dya3f8K2+Gf31fpYIWFWLHx6dxV6
/6hbuJPJCre3cziN+1fhul9hITb3WSHSZEomsa8KBaWjn4hps0I2Vb9M/vBn
vNBmJ5ogxAo+pER1WPhnDP8W4j/zhwVKJoqdJlc/o7iY1zJ7IQss9PElqJp9
wfTl6A99/iyg3/bgR2TlFwzi1Zr3O8MCqsPeelukq1GnoGpqZhsLRB0/yFEd
XI2JBmoDkpPMwGTvVpHPUIPJFmMcksgMpi9ldlCu1+D8j6rQqQfM0HbCMDej
qwad7n2t8TZkBs9l+NV3qha1Zke7e7Yxw7ddRltSymsx6vwwF/sEEyhnbh3c
rliHnZfuB8wXMsHlzO3tFjl1GJthEJzpxwSE8cZiL7l6dJCfuKSgxwTc6soR
EZn1aORRJh8gxAQHN3La2mxqwINiYsoxw4zA/aY6PPx8A/bxGuYFZjOCyaKX
j1t0A+b2uHSBOyN8yC19tnG4AW3NIwdQgxFEWPOo9/d8xYiuNG4uQUYY7/Ta
U+X8Fad9XP1EuimgfTpciOHzV9Qex6es8RRQy7zHqUxvRJNrPBa5tyigOhOk
/MKqEZme9OyVV6RAAm/vXpH8RrQNClVyZ6GAhPB/8bO8TThZa5sTWscA7lJh
adKWTSip6P3N9QUDCMieberBJlz93dq2x5QB4Bu/uMzmZnx7R2UyS2KtL9dy
Ve5eM07JcORy9q6SIlRdWd6uZkxXvBmqdmuV7DrH8vfn4RZcHEqdE2VcJVc0
chXq41vwprGdaljQCinrmfRjRaAVX2/aNpwlvELKqbZvDvVsxZuSfUZXUpdJ
KafIxoqZVvwg9Yjho9IyWWzxPif7yjcccs/SzKleIje57w0O7f+G9NsRcZpG
S6TgK4HnUeZteMhG28tjYJE8y2/uwjXQho6Es6ah3SK5Yn+LxnetHaWj/G0a
VhfI6vexVn/m29Gc/cXJ4QcLJKHjpjHi/x2VDtw2jaEvkPvYaJk6wh0Ybh3N
yxL9j2x+E6FiV9iBRhaGZay7/pHL9X8bos53Yn2dw1Bi3jy5TzKAU5mtCwvc
Q0amVeZJPVkFkficLmTqmJfrrZkjA73ehZ6+9gM7RJ9K3TaYI7XGDvyXINmN
0f1MZGL3LLl36PBD+cluXNULa/a9PEs69BuyoelPTM87a8A5MUNqlNqn8dT+
RN/WPik5xxkynmofbaTcg58snpQwUmbI+o0hr5azetDf1cTR0W+anJnL32Qi
24tCW+aKX/BNkxZ3BJ70Z/Yiz8uMeZOQKbLo7n0fPqVfaCfyOLBm8xR5qMtP
wrT2F0Zryff9ipokfz7TGbG51IeBYbNm7yQmyT1Gxn5NLP1YwFpry5syQdK7
GU6cTu3HiwFnb4jITZBmGbeqk8wGsKL89+efuX/JoJLf9FrhQdT2vdyjrviX
/HZFIiB9eBBfDPbuK3QfJ4VFH6rd+/gbR/Z55h3yGyNbuhIybsYM4aqKEx/x
+A8ZmPlkiP31MOaWdzCqBo+SXyxYC4YiRjBWgdWo5tUIWTQlqLn4YRQTlaK+
pYYPkxKTHyev//6DqmORqmPRQ6Rl+tO/dbvGcdMpuOgX+5t004syYVf7i9GF
DNOuCYOkh9YRtla2CTxlnFLcmDRAOrfJ0jvbJlDz9TlPr5R+8stPxxy/okk8
l3KRKTi1j8w9+XKgPG8KxTeYrjKn/SJ3z1y2FKibxjNKivtbUntJqVRZWgll
Fon6W32h4r1kI69sZXfuLP4fClPiWA==
       "]], LineBox[CompressedData["
1:eJwVx3k8FHgfwPEZ921mmETHFoqQDa1c9dVKogzlehB61GOfxKZCkiVLSo7c
SmT08CisY2lpK7+flDOrmcGgcQyGjDDjGiE9+/zxeb1fn93+l8/8S4xAIFz7
u/87dwisznHGkK/zkRj3uVWA7Y5GeHgMnVtVKDWdWYVcdfdqytI46polR0yW
iKBQjfKIL8tD2TtE+XdjV2DcNIJmt2sS1eSHHvS8sQyldEtd3UNTKLg+ojM0
cQl0fuxMSKZ9QpYHT0iWVi6CS/zp9msB08hQNP/SdnIBXCTqnIai+cjk9CCZ
argAbJvMyLbcGSRTIydlHC8EkZdD+cGaz+iF08s+4pQAvhXP2ezunEV63lPr
2m4CKL/kVJrCm0Ml/ZdqB/Lmoag1Mt+KIEC6seuKpQVz8DU7vVKYIkDXLl7x
4VfPAvfxxVe8bULUWZ56nsr6DGp0TsTWMiGabaUkdoh9hs6AXbmJZgtI4KL+
tPfIDLwuaOkwa11Ah+tMqXsT+OD48FXrHvdFZNc4+bSdPQ0zWid/dOYtorWu
6w8+GU9D5okt8/WhSyjnzYqoKecT1G7fEXdWYhmJHme0PBX7BDN3XtQezlpG
/H2qwcTwKWhVoJt6a68g9YnuPBBMwnLKSFNd3Qp64mlxZSJkEi5TufIOtiIU
sHRYGCXiQVLuT50afSLUHP6+kB7HA6OG+/V7f1pFRpPSngJVHqQkd98JXl1F
N+lcB2r5BMz6rCzOJX5BJ2uPk7HtBFADDerKtq2h79Tn5konxsG7eOEW/bc1
RDSo2Hnvzjh0h2qqfIB11Ctgm+8zHIeu8Fktc+Y6Yu0arD7VPwY+h4aCPl7Y
QPzxEBd8ewzEF5ilf4g2UFhexqSL6Rg0OUrf77j3Ffn9uq9lcJoLHlvlhrbs
3ETlAdrp+nQuTBHfnHpUs4k2DNOGv/PkQqFH0EMP229IZj1/LVOVC6xX+dEn
B74h580HZQHMUXC/uvPsS1MC5rUqiCIyRuHKnuOxn28RsK7K0fXfXEdhZllZ
0byTgN3CUl/wt44CaVMwRKcScVI/e0q/cQSOdd9lap0j4iW1BNIB2ggY0Ira
m8qI+EwU0J9zh6Em2fBJ5DIRxzi+lsqMGIZ/ltAsadZi2J1MtiyiDENxtn2o
VZIY/r1sT9LLqiEQqqUb2PaJ4SxK8mXkNATi0djm37vFccPvWueTFzgQcS//
YUmQOE48atko/oADPQ4qSl/rxXG1MTNLxpoD/xBYxv4sLoHtiypyY/gfgfXM
nfWFJoFj9JZEtNyPQI16P/E4TwK3YR1H3+MfIXXb9zk+kxJ4VUPrlxzRIBx7
a9b2g7EkdrFR+C+3bBCUVN5760RL4jb+mqz+uUG4MrRoZNwhiQmvjTZ81QbB
QG5c332LFO5cftcd+GEA7C4u6WX6//2U7FarpAGwTC4jTVdKYc9nl6Tf2g3A
mYKqRo91KcwDmwSB5ABomPVuGbGTxmdSY4i17/oh0lp1PTpLGof/RRVuJPRD
+J/Jjoe40pj+9l4Utu+HwaLbAmlDGcz78jxEoNgPTBzUIoiUwd+OWJjeYrHh
y52+GmGrDC7eLG47n8cGK94v2XJUWSwy16m878+GeY1jrpb+srjzAGd+VZ8N
7TkHGHFVsrisLYOSvdIHrW0h8+MbstimQZnk9aYPvNY8Mrwd5DDBCzkfud8H
Rnv8Cvi5cjim+68SM58+YLRrL6Xx5PAUq9jG2qAP0luCImkm8tjncO2rUxu9
YGy4S1UrVh6PN+dtuHX1QtpOxxKlbnncqPvIxrWwF27n7qWQdyjgKRcHTeur
veB0WgL0LingtuCUMMrxXjia6U/yeqGAnXy7/d9q9IK33FggXVoRB0eEuDoJ
emCs0M7kq5siNgi+tFLR0gN6zlG0kGJFvHtW34Rd0AMdhJSiLwuK+Hpp5oG2
sB544FFGfnhUCcdl6jlG0npAOV03npamhPdWXd/xSacHCB4xw+ojSjgyLeai
glgPjOTYS63vV8biZwP0xjgssPK05QqjlLEbx/juhQYWZOa6uG12KmNecTU7
NYsFubJW2mmKJJx86vKDs1dYoJIT9EH/BxLuEnKuttNYoMfx02SeJWEd70hT
hgELaoJOKsbFk/CIlk7/ZXkWaPDD4o9UkPDbmPiQIj4TqhZNb0r0kPBpq2AL
/w4m3CCLJnrWSfj9n7HplWVM2F/4/fMqLTKuqG8R/JrEhOX6wJGsk2S80Owm
/BjEhIOaNh7x18j4ReBO+z9oTEi1uECKfkTGqUr17UpGTNg+mrgZ20zGRTlW
fmMqTEj0u0VNmyFj663WyoYiBlj5ads/VaHg5eom0dwgA+I7/FM6LCm4nX2I
pokYIHht1rdynoKJ1574vvsPA7Ku1qrtT6bgBOVn93rvMoCoJ7ANrqPgGwXN
J5x/ZkCYxna3eg4Fj+wK1jJxZYCmV6i5vKQK1u72a7hpwYD/AdKRtIE=
       "]], 
      LineBox[{{-0.015442595499539467`, -1.419891142068924}, \
{-0.016148194881613, 1.558187958759866}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtl3c41+/3x6lkhDLf9nu8JA1JpSLjRCRKWRlRNi2UysjeI0XZ2WTvt70O
kjSMhpLKCg3FJztRv/f3un73P6/rcd33fV6vcz/P87yum2rtrG+3jomJKYaZ
iel/zw1M/xuSwPT/Y9PbV20r/wg4knCUrXFZErv/nGSdYvC//Jshz5f3Y+9Z
j74+BpO73YLNbqhi1TZr8WIGrw0K+XH9PopV70SmvRisuVOj8c5BbVzc0aim
zuBmycf7FW6ewikpS9F/fwlgt/0WH2GmjztJu9zLGfyAdOS6wIohbovSNDVm
cPvarEFbkjGWnv/YMrdGQN+ksMk9BTMMLyQXBDP4r8317NvvzXGm+5gQF4MX
uN1MqzzOo5RTDGfEKgH/XZLt3chlhanXVEJW/xDwqiRTR9fCGstZ4oNtGZyY
wV9dWWKDYffHOdpXCMg8zUE+8NcW057eEhRgsEBjVOqgrj1+iavMt/hNgNsm
JY2sdAcc3zrR9mCZgNChkzvv/ueIJRPXrXuXCBCLzLDLPnIRtX27IpYXCahz
QY7Re5fQ+r3OYRKDTU7+lNMev4wHBV2u71wg4GeSzNyIvBPW3Cs6ID9PQPXP
kw55oc4oPeERsH+OgImqpde9l11w6cNZk+2zBKgKdn2ZELiKeV7v6vh+EaBt
/2xVEK/i3nXuOXMzBAjPSFNtHa/h6Idu0afTBDC1Rtj08LjityIncuxPAlbd
hV6faXTFpxoLZYY/GPqK+vv+tb2OM8XMPRxTBNwf+uveyX0DhfkUPGu+EcDJ
ad5XVncDG99qVBt/JcByaCm+0fom2vi/852eJKDF4fnQd043nHycNeg5QQDd
26lBpdYNs32sOlc/E7C+SEy5zsodx4teqV8fIyBkW4OnCacH1l1tMBgdIYDn
3UAopdYDQXBsUX2YABfdZg8ea0/s/UfanfKJAMNhG/tdXLfQp1J25dsHht5F
wbbX6m5hbg+zucwgAUutqZHjNl7ozH3Z0H6Asf7g9FzgZm8cUtcbj33L0N8i
uEav0Ru1ziRx1r8hwHZK7aeugw8WgVzPq1cMvQ98qvTi88UJ7k07xvoICPeY
pH1EX7zxQZz6pYfxvVzfdh084IdG3XZVoy8IYGb2Vky+7Yd7BcbHXz4j4O2y
3lPSZz+0mEqj13YRsNNt/YVyBX/8cTuTer+TgONn8gtso/1RWWFV1raDgOKg
flH5L/7oINsxvKOdAJHOjNM0lQCsLeLb+wUJSPHIfr8rLgDLx9mlk5oJ4LNb
0zL6EYDn2J63QyMB3cHGcinqgYgKfuuH6hjxJye3rnsQiAlRxlMuNQTIejo3
hM4GIjtb0K3fdEZ9/dUMlNEOQqEk5Wq3CgKsPhsLzGcG4T/htqSpUgLs9ktu
/Pg7CDW1T+8wKiYg427X1IReMHq+kHOsKiBgUuyfOW9hMIoRFYbseQy/RNF+
Wa0LweQSiV8GOQTo0eSg3ywEp3N6VWIzCbhT2zt2mR6CKCSh+iyNgDMDJ65t
5wzFu1OOcwsPCPg4kB22yS4UN/TxWZCSCKha9G3lawlFNo1Q793xBHj7q1ar
kcIYfthz5vB9AgbZl9YluYThRKf/V+VoAmQSr2uSnoWhV8Uv+QNRBGyfUhNv
IcJRcPSPqmQEAanNxVvveIejczqFjS2UkR9/69/Qd+FY+nP87mggARdi9bSK
5SJw1e/VQLkfATdG/mX9iYzAgha38RveBLz+d6D85mQEmtQ5VO3xJMCxex+v
xJFIvCutqD16kzHvxHp59kEkvnGKzAt1JWDuTbLV/GIkukaudhMuDL9qVCZI
6t/GU2L7sPoyAQnT/9EDS27jVZP3XsoXCHD3/WjOyx6FCpxpbI12BDS9HFF4
aRuFd+P22+62ZuQXbzDX2hqFCcOGMQnnCCjldt87JnYHWc83xiyaMeq1LyBT
3uMOpnNtd9AxZvjrfupUY/8d1LK34Ys3IKCVZarpxt67yGy1P/HtKYY/6BHt
NnfvornTxSXOEwT0/EopDPlxF7tcB/YqaBHw5QJxb0YyGqs6jU6cPcrot8If
ZmoMorFYukXDFQh4McT7JCkgGmfaf1H8lRj+CfnPJbEiGllo/cNBhxj15ih5
jD4SjQ5yekE++wkw8p3K/r45BtcfNNjitIeAjRE8YyqqMfi850WwwS4CtsnO
mZc7xaDtJH1ytzSj/+zwc1FNi2Gc9zp5JkkCTH2UPX50x2DBk9prT8gMv5ce
e1O7FoMOH/ozg0QZfmEyGs6UuYdNv206DpIY/a25drnQ4h5m21z5OMJLwFiw
pe/rqHu4dJf5hy83AfM5I69EW+4x/jf7F/g5CNC5eNkgaPoeyq+JraSzMPr3
3U9WXOT7aL95YJXCzKj/rOrztafuI5d38L+EVRqkuFPKAvzu43Dg8Q0syzRY
yFusdK64j6y3TnA5ztGgnqO1x2fsPir2NIi1TdNgTqvGvpwvFguXO/Zv+U4D
s0tPhjdoxOJRv3Rjowka8N9MTPe6GYtP/wsIjR6hweqmME6h/FjMfFvU2faB
BosiFVHv3seiUoMZ6dtbGpyN/hnRuCkO40Te3Nr4igbqpPeXO5Tj8Lyj5aJw
Nw10hl+nzDrHoRLziXCiiwaul1mCNbPiUHzHlwPEIxpcvno+uvVNHEZyhDAL
t9AgojJjhxVrPJrl+U1tqKfBv1njVmnFePT/tHdpkk4D7h+TLaQr8chrsSqF
pTTYoRscuzsjHt9ng3dUAQ0evVAvv/I6HmWX7Vf1cmjgsn9zQP/GBPxoM5jL
mU6Dwki6p71iAkaXsvs2J9GARXV4E9UpAadMHEJtY2lQZiyVz5KVgHPxF9qZ
79JgSwvLI/63CTimHbE3LpwG10In+3Q5EpH+T3NQIogGpaeox6pUEpF1nNKU
5kMDxzTmFA3XRDToSBnk96DBKdOnmuvzE3GCRf2QvysNHh6pwp8fE9EoM/3d
5ys0UPb948vCm4R/xdQalRxpQDn0nlnnWBIWhTZPRFrTQFD+dmuLVxLucc03
fWlOg7T7Zw9ZVSZh2XSKMJcxDd4HJ0/u/ZqEl/wPSavqMc6PXHx8v0QycmwV
C3PQocG8HOuonWEy0uDH4RANGiTJK8p0RSRjdsZpzQeqjP1qM2Vn25LR9+Z8
Qa4CDX4L/TdFWU7GTydDLuTvowGn/A47IdkHGMZeF5ohw4i3VJmhZv+AoYcK
691tNBj68FwyI/UB6h5//d2VytCjYdJdrv8BGvHKyZ8SpUEMtXDrEmcKKqqQ
vlEEaPC1aaHq19EUPM+lxf6NmwaJzyYrqN4puGUhLDGPjQafH37MD61OwaWk
rCTzdTQ4YuW9TXI6BfWfWW5mW6UC4drQtCSViu7u91YLFqigd71/eZ1lKjJV
s9uqzVAh+ZftFc2kVJQoeKD18isVKKdNS9pfpeKHaErJmTEqiDxmPunOmYZe
1a6xrz5QQcqKZ8xBMw0bHFyZNfqpgLI56+/5peHKb6alkh4qnL90VHupIQ2z
G5jcubqoINs5cypxIQ0vT5uG2rRRgaVLrPzGnnR0fra4rbyBCpfUWlmjL6Vj
olOH+RydCvKD+gtfctMxf7hSWqaECsr5b4V8xtLxMXP1HYtcKgi7T4dv35yB
BvdaY4LSqbCw9Lhjn0wGRtF69mclUqHeWn/zOZ0MPMnz3rMmhgqWtR1N+Rcy
sCF42L4tggo6LlQqf1gG7rkw9qc9kBEvRT0mIzcDb1lNKDV6UWHD+hFr3ccZ
qPh8elfhDSqcMw37IT6egS/prL13nahQ41savHl9Jj5/fVjqsgMVXPvyQgha
JgqHJ8mrWlLh7K1yLbMjmfi1T46J3ZQKb2amt1ZZZqKemlD4Uz0qdBi6ecj5
ZSLBZvPaT5uR75ZT6a/SM9Hqw46x3epU0LVwmU/ATNy/FlH3+jAVtGe73/oP
Z+JeuUxT5/2MeNVnHkb/y8Sa2qguZhkq2AT9xg5yFr465soWuZUKRzcWhEpA
Fmazu4ltkqACKf78uTTLLHSPbmUNEKSCxSEi76h/Fkr1e3TPcFPhYg57J09W
FrLu6XUxZKUCnFeibHyUhTsMZubL/lHA5+uqKG08C78f3WSxbpkCGr/zKfYs
2RhoeqZY5z8KkN61xL+SysYfMhsnI79SIK9u9IuDVjYGZ+pzPRqhQJDqkI/U
xWws7bux9dcABeY3lD3hvp2Nj7mL5QRfUmDssL8stTQbw0f2ye99SoETDvWS
5/qyUXbx5D6NNgp4Si0Lds5mY8VWZdlT9RQoFCS7mQrk4AY7zV2nKyig8tyo
VuhQDvp1lMtoFVDA9CO3zoazOdjr+PjAwUwKGHBx5Yn55KB7cK+2eBIF9kc4
HrHOzMFfZ8SurERTYJ1KbEx/Rw7SxP9k9IRRQP6IzRa3rzl4SqD5W5IfBQyt
uQ8d43yIbdertc3dKWD9RCFIc89DfGut8ETAhQKhhStXbxg+RPO5dOtOBwoc
l/vk+8b9IQ5S1ChO5yngev67jG3qQ1zr9FzPZUyBDVKla5LtD7EpJXdzti4F
dt5Vvkb68hBndktq7dGkwDFW5S1KnLmoM2hQXqVMgYiOSYv7crlI7kzQ2SNP
gQcneD6LG+ei65CBePYuCiiJHNj+0SsXbXp+SnNJUuCntXtjT1YuPlt5cdVJ
lALvV4ukFrtyUdrL7E8nLwWcHMx/68/kYrIw81NBDgoMzL9+NCGQhz1qMkMW
zAx9SIRQmVIemgskex36RYYd/dsiymzyMFg94332MBkumsSVfYnIQ63MU4Nr
3WSIKv9DNqnMw77xqGDNJjIcqei9zjyYhwZD6mPehWRY+HPt+DhzPrJfsVjK
TiSDhJzSYeYd+chx/enzuhAyZGj7fjPRz8dzvR72TdfJQKLEL0x55qPUcZue
UmsyHBT8tq4xOx+L73hzRJ8mA3VlqabzRT5Kb31EtVRhrOewqd+8mI++5+VE
ybvIELhznh5PLsBm/a61F8JkOKqXr29+vAAbn0f0XWAlgxpPvbqVawFqHfVJ
XpiXgC+Xcg/mphYgZaDQ2mVMAmw6YXRnVwHeUxTdM9grAceE6AuzswV4rugj
+75mCSjRjdq1Kl6IUT/+LnoWSgDPRI+q1vFCPHUw9m9FggTcr/k19e56ITbI
VWwbCJIAV9aFmaKMQpz7fNnj51UJ8HnqyPX4RSG+KRlZ+XVOAlpFPdgkfxei
h5I0fUJHAqpZV/Kebi3CC75WBV2HJMDE27W6Rr8IM9KKx5O3SsD3OzJrU75F
mD6z87I5L2N+Rkn3YkkR3pxaf4zrnzjo0O967v1QhGTJs14lU+KwyWTljAZ7
MTYomvEpD4iDwRaNxuyDxaj/ZidfU4c4nD+rEKBrX4ze0asBOyrEIXW8LFwz
rhhr/65cCEsVh2/laZW3O4oxONa4tz9cHGySto1S54vxW9bRBt6b4iBJylvd
KFmCwScW5VStxaHU8tGMkmEJ3r6VpXxWVxyGP9zK7wgqwRfv/MbtFcXhyuQh
ofTqEgxpeiZjLSUOJ5Y+7OueLMHzuxspJ3nFQU20b+6UUCkyvbrTse2vGMx3
ixhKa5fi1dFAyuw3MbDdf8XQ2KsUNxCDh4v7xYCrTn75U2kpjg29Ej/TJgbn
2Co1m0dLsaO/vHumWAyKAph1FvnLcPxAnb5HohgQLIf4I7TK8FL87qrZQDGo
3H212sOrDHnGzX6fdRYDTe5xjc7yMlywDN5ebSYGzppLIy4TZXgmfknnr4YY
TLzaYaDMVY4+J1YdDsqJgUMKs8XstnJ09BsOshQTg7zLCrQBtXLsMJsu8GAV
g+MSugozFuVYLuU2FDArCqlq7IcPeZSjqtbT7V6fRIG9NKqdHluOX/bK37fr
EoXN2jZXrMvLMdiSk6ZKFwXB3YEfjr4oR0GtzE9saaJQyWxbdvZrORobHutu
DxMF2cKNd/I2VODYoP7yZVdRUNRYT95OrcBqXmF71nOiYOwazzmqXIH0Tf+J
39MShbi50vV9ZhX4JGf3Nq59osAZ+4e+6FaB5YG7wt3FRWHA7XevUVwFNmxS
03nDKgqJNeu4pisrsN2w6zplVgS2GVsQrX0VGEwT5rL4KALy+do9L6Yr8O2H
O6IRnSKQ8lvwBT9XJWb5B+XllYuAT/32ocSdlXg116iuOlkEzJYEnppqV+JF
u3NGVUEiMH66yNDkQiXqmf0JznYSgQ5t1hNxYZXInRiuF2giAn3Ced48+ZW4
mGGPBmoioDLk0dj9pBKDLP57y79LBDadmRt89oXxPv7g9E4BETjLRq5mZ6Nj
p3Ug5cI/YRCcoUtFStPxtpy21epXYbicKb3l9HE6VpUduuD3Shj01ncZmV6k
Y7ZWqepCozB4+HQO50XSUTCF44fZQ2Hw6jJOViqho/7NkhsVd4ThiuLjG0K9
dDzyZPHzspsw7MYge6VfdDz0QFNFzkoY/M+etivgq8LzvGuRZtrC4HBGxdny
QBV2mXi+ub5PGEpZBoOtTavwSpoE2U9MGNiPKpeVe1Wh5WZtVy8WYdgQv2NR
J6MK/zw3H7gwLQRn10tflO+owqWRGiOtd0LgV5hMdvpahXqqdbOkViEw5/8s
u8RZjWrVrTUD+UJgcdKz/qVcNbZOyBZExAgB+cXmkb9nqjH/iN1LGU8hWNie
/8LXqxoj/uGBdmshMKlpKjHKqkZl/vSRYzpC8Oj72Vr/rmp03Wn1tmWfELzu
1CZYZqrxZIYteZuYELiLbZMbFahBtpusj/w2CEHd6wgpknINypzO63r+gwTC
sntO5dvW4JtLmQfZ+kmQRCKtxd1mcII+6UAzCVY8i8JGqxgsQ3I2ekiC749+
nL79qQbNN+lo2keRQPlmfGPCxlr8EX48x/EGCThXjsuz7KnFJvcr0eYWJHiY
Wi/31rQWDwrw8KppkCDjw5udnEG1yLnhzh5hGRKETS88zC+tRRNt5blRfhIs
NG/ZUfK+FoM13axSVgWhU+7zcVGWOhwouB+gNS4IhYtS6fN76vDg1W8Wk88F
Ibm947miRR0GD/Ws3KALwvWt7J4z4XX44mqS5VKyIBjMD5rz19ah4OfU+IsB
gpBpMSdbNF6HIqJ7cnovCMJ4DamumrceBWSyo6X0BKGax+iR/JF6nD913Mb5
kCCYFSpvl3Gpx/MDrkQhWRBCVKWfp6bXY4Wc68DbjYKg4nA1Nry3HtPfxYcv
/BSA1l8tnrP/6vHGaRmVjf0CMHhFw2dwTwNukwpaY2sSgJXxzYXq1g2oPvKl
Zy1LAKpGj/PviW3AirXs+vFwATAaiBzK7GzAh9PrHje7CMBD1h0HHvxuwBhu
3eUwYwFQ/x5sKCHTiPTUbjNNFQE4pm/tK2PViPqNXXMLkgKQdUyR/XlcI46d
D36WsEkARh4n6/1+1ohFZ7Qmd87yw/qbvo8bmJpQ75CRbuUAP2T6VQ7zHGzC
Ettp9p3ID5ZJstuZnZpQac2QEv+QH5KtIxQiHzbh8lBX4lwkPwycMKmt/NSE
R1PDPNWv8cNhvjQTT8Fm9Lz18kWwCT8ErsHn8VPNyO44HN+gwg9WHF4yC+HN
qLv4Y3hUkh/e7TaVKO1oRgfTfWV/OPjh68vdpbxMLZh17vsmtl98oEKnftmq
1IKZDlprG9/xgcGloonv7i340S4gYrmJDxzpW9/b1rSg1pvnDR+z+MC8xGxD
wnwL5lWeiaOH8QGfuUhL0D7EJV8DqrcTHyyF9l+Vc0V0k/9lp2DIB5zHVTIy
6IhWRywuflXgg5M3pof75xFN/R/JR5D5QFGEw/miaCvjPqfbK8HCB+7e98r6
lBgsJaWS+50XOFOep6efY7DWtXBKHy/I+OopvvdrxXFuk7qoal6w+BMU4pvd
iuWH/7z8mcwLq+5zibGdrVg76v0J/Hihvrb9vsj3VvSzYhoLseOFk/WUPD7u
NnS2yZxEbV6gbazjCdjbhp9ee89OyfJC8S1pqqNxG2Z8KufcJMALMx+D9nZ5
tSFOGCiJr/BAq1l/ZU5WG86H+ITRhnlA73Q6melpGz67rbks0sEDD65dY/00
04Z6M3hvYwEPaNFvcaiQ2tGoZ/XcRBQP5IpLfNiq2o4WV7hsa6/xgPpCjEqC
Qzs+3c1U4GXMAxS7CK646HZcHz26X16JBwq5x/bTGtpRX7KJe5TCA2wvdWuO
jLejc0yish8LD0hTxAsWuR/hdIR3F+/3LWCpO6d4VPERznY71yT2bAG/Xanl
MvaPkE/8GjcvfQs4XRqxr7n3CHcqBb/zSdgC/HJmr0fxEf4fYuAZeA==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtlXk0lt/XxqlIhhBKKEN55lskJA07kalMlQwRlSiFlHl+UIbM88yDipJQ
SqldKCWpUCFEiiYylelL7/1b6z3/3Ouz9jn3Ofs619lb/pibueMSLi6uRG4u
rv99ebn+N5SA6/9H/EaN0P/+EbC+XLZepXgVGlv3Lpsg2aBDYe/WYgV8PDsV
3U+y0YB+9Ym/TOT8DBV7TvKn6kMW5sWbkVkalXeN5DT+/TbB+zXQX0uMxSb5
fuvLsrq/WnhwO7XuIMny+ZkNvKaA5u9eG8uRzO0WkXm/WBu9H0t++bJIQOvZ
MB//WR0s1RMO4JDcuXX5EiNjPZTWrV9tRXKWYuEHRpEBPlHQvs33v/kXuLNl
ZozwWnfBwcoFAnZEzI/I7zdG+7/j0+Ykj4fpaK43M8WkeMO8kf8I6Mo8+bXG
3wzNTJ7ohZJcvBDTYnPFHC1dXaeESJYtnEKhtwdw8rZLcfI8AWMr5hJezR9E
a7+Ow6tIzh8REc2hWKBvydOV0XMEqLxqFvUzO4wz121fzM0S4Jj04YRzgCUm
J9VdOkFyGGt5j9NVKxz7tdSwaYYABSUjA982a4ReC5ENJMe43AvKXbBBA/Hu
bu9pArwzI43f0WxR+m116dO/BBT+ko6RP2iHHf0CgYIkz9bO8YYFH8V/eQKH
9v0hwCPGxTDwkD1en+pViZgi4PaOpjCdn/aYYFkhdneSAMEqicw1oQ74sbV8
bmCC3M9vcvLv6mO47TvfMA/JtcYSi59vHEPBZ+OdCuMEQJ++fI/2cXwlkv1m
6xgBm4s8mz53Hkdjbs1Wvd8ExN3JtZ52PYGiR7jbTEYJ8Mnr05HiccSoc8we
0xEC/FkeY0bZjii1fuyX4S8ChPQrmi6rnMSZF1HLdv4kwPQ5v1pv00kMcd6y
gfGDzEdfsmiHnROG+RAGwt8JGPwXHXBzygl1lt72GhkmgJ6izlKOcUaFXL4b
jUMEhEwJr2uQP4VuJ85+T/lKwPVNSved7p3CPm7KJrsvBMwZvXRdb3Iaz1/1
DpQbJGBITvfK8NfTyC9a2vFxgICqTetbGgJc8EDYErWEfgKYQYtG1WJnULXl
Vd6OTwQUuN9OrCk7g9W7LVZ96SVgtERtRevus6hY/y0+rIf0R3v++rnOs/i4
un2NzEcCBAo0d2q5u6LrMqey8i4CroWf70hc7oZttCm9rZ0EcK5+27+Y54ZP
ZVrHHrwnYHtfRQxIu6PpMYOSre8IeDH+1VjIyR1fc9c53mwngO8p5erXKndU
iArcvK6NgFsla1++WHTHTIFhgYg3BFifChyvNTyHVvIHJr62kvn20cxq0s7h
8eF1Q7teEWALAvL4+RwmLBYPJ70k9SlmZXQoeWBDjN503wsCrnrcHPnr54FN
6iclNj4nYHXHS0tKkwf+YBzXPvaMgFxat8hxsfNYLcEJymwkQNnPYH/50fOY
RYlsflFPwKHxYl2eG+eRRziAMvmYgAqDZBWXmfPoyz2UJIGkP/Q+6H/SuYAK
lZtEVB4ScI8wbXBIvIClZo15ug8I8FKd65zovYCWaSK7DtSS+c2PPklieKJs
FXvc6i4BzQIna3Z7e2KsRXSN1R0Cvu65M/qvwROHqzPizKsJeGhhVvRKxAv1
fOT8dCoJaNduFbxu64VKr1N9N1UQ0PDy0/GMMi8UdXCNFSsnQGPKaiB12gt/
msvXjJURoOej8qhIxxubdalTz64RkKQfoFqf6I3vDs3ppV0hYBevh994nzc6
Sa2usismoC7oTIsKywe1SqY3y3EIeEr7dizM1wfzQ9e97M4nQJoT7j30zAcj
by/3j8slQJjg0bER98XSBxp7tLIJCNxktuSzgy9mXVbeOJBBgFXVhV9+Fb74
PcVrfUgaWW8HCrZTFnxRujZ+s2QK6YdoFvHF0A89Dy51KE0k4AMnZeZ2hh++
0bAuU40n4G5DQFfGkB/2lK4XvnuZgJJbFfwJW/wxw7EnXjWagC9dsk1ZbH9M
zJIjSi+R9evTsEHtG3/88dN3eE0EATmSRq0/1wegm5sPBrMJeC1eE7/5bADW
l5ff6Q8m4K8ivoh9EIDLCm80bwsk/fuVcm9hRSCW3V7xL9aPgJd1nWlsy0C8
2Gh9oNubvO8zPwtlrgaivYzGc1lPArakF0q0/AlED28NOzsPAngMTysl6gSh
2r8/Emlu5P1EDtDOJAdhsNHKsWdnCDDrfLPb9nMQHndYNzJ2ioDGl5tqTqgE
4+6qJ0LiTgS8T9zYwA4JxuUy2ebKJwhYzl525e7rYPQdNqzTdSDAzoLRGioc
gh7PzxsdtCPfw5av51Q1QtChp5briA0Bvn8Ue8fsQtC2rL7niCVZLx1nlO5f
DMFSebV+i0MEbDQLvRh/MwR/ZtYKGJqT+bYsLjn3PgRT384eVTchwC3oeYPd
Ygh+Hinold5HwLPvJt8sKaF4ydcmYk6f7C+1cglHjUMx6MSHw226ZP0QGuj2
8ArFLUsbDxVpEzBTb/YtKS8Uzwu1BZ/dRb7PRuNOfBaK07nV75W3k/Xg0Ovm
2dFQvKciYzOylewvR4c+wRo2Lrn6WKhIjQD9+nqN1F1s7Nl++LfZZlLf/IqJ
v05sZCSlc80pkf4sE1c5mcDG+8XbtLOZpJ7+XmKD99i4+e3cbTUaWc+7vO6f
HWDjsbfJVi82ku9J+N1eXv4w3FpXr2whT0DUTteuG5vDsGjZXq2edeT7LtuR
7GAThnU+vb42UqQfRWxTN4aHodRuw5H21QRcnlvG/fdGGJr2G6fpipH9d2Xs
9Lt3YeivUuF5S5ic73Qmq3ExDLmdlS+LCxIgMqwpUE8Nx/SVmd3n+Mh+EHPD
pdU0HC14Kx2eLyNguDG797tvOIpd3K0gyU3At9Z/bPGicLRfK7HOYYEFvUsn
Ao1bwlGuYNq8aJYFF9TLx9L/hKPk/prGvj8skOePWxhbH4E5JbLnxSZY8NZI
rMlKPwLNQ5Ye3T3Kgn6jPre2cxFYuEw1yvkHC8y3VkvZZEfg8rKQicghFlR6
+/6YbIxAjvrjbM5nFmjwbF+SOxqB/Y+eRdzpY0FnCz3CQvIini8+XfmkmwVB
fGlpctoXUTM1TLbpPQv+5s5YzbtcRP6YH2+etrFgSeDoxFDqRZRr9n32sJUF
kv80IwbxIh7uF+SuaGbBHr2GLePfL+Kt4pDQzGcsiOJkKIqIX8I96tX6gfUs
8P8+6g87L+HQXNhh60csePlZ/gjb+RLK5LffVL7PgvyS2z/eJV3CaPFwE64a
FjxbMNun9fAS0hJ9tr2oZIHmm5aSquFLGB+X6h5TzoIdIXIy21dFovSLxxN7
S1ngfehcx4ftkVi4c+DJfDEL6IOCUxFOkfiD+NRXWsCCMrfTBXuTItFPotjQ
LIeM2zL/rX0YiW1VUrwT6SwQSpZW5/oWiWXcm1ZdTibz/abiMrsqCh22tbrJ
xrPgfmxCI8/OKHz3dkj2RjQLtgVEOCueisJFb+cNmy+yQPFTdKBlShTKrtHx
rwxlQWCYHiMfozC5zYXGCGSB09741NkfUWjN287M8WFBePjxIafV0fhc1/Xi
8gssKI6e3PNjdzQGWatqnnFjgePy3HchZ6Oxec9a3ebTLLAI/FXPzIxGUzXJ
6/InSb1qclV/Nkajfxr9jIcDeX7NHBMci8ZvXPpRdUdYMPxg6a5rMjFoDW5L
uSxZ4Jsrx7iiH4PPTXM+bj/AAl0bd83aCzHYZPtq1XljFnDxc1IHCmJw4gl3
GceABbmtaU6yr2JwP882zksd0l9Wxzo9ZmPQs8f7v5Fd5P/tjUR7FC9jP/VR
7QotFiyTbdGyMb+MGRMiH9ers4DWmhQ6FnQZXc55OhAqpF9obMGc6+R87on9
aixy/ddKXrvOyzhBiytUp7JgxW63LHWeWPRIMrdVUWCBrOeOCcXNsdgsbMBW
XMeC03veb2UdjcXptABRMUkWbPRmZBpcjsWG3bMCc6tYMHn62M6g2lhU29fi
0S3Egg0JfQeah2JRQ3yZ3m0+Fsz80eBREo9DJclbUZeWkn5th6DS3XGIf/q1
Di4yQUiU5+d2tzh0OHXNTmqWCRffNXt/y4nDa/vWTnZNMqFdVMzsRnMcNqTq
zSWNMiFVOKsociYON1voe+p+Z0IDl2VOICUe79WqOI4PMuFsQqhzzMF4tOaR
fpnWx4SJC5FqVex4PJYmc02tiwn7l8qoTNyKR/UBk4VX7UxQaKRHGX2KRyv3
1y+PtjJhctlvtU+8CagzWCP+8zkT9ui0hSmuT8BrIwpdbg1MWOWd8tRHLQFF
LFSkRh8yYfTR9VVd+xIwaYqry/EeE6be3WTvPZGAMVWVqz9UMWGl7SHiiX8C
vow80bG7nAnNTB+GQXICjgRpiV25yoS9BaJJfWUJOFhq1bGUwwSTsR0BofUJ
6MUclLTJYUKjnxb35u4E5CgvDFxPY4KtlIvm2HgCvh97pfw3gQk1PqY76lYk
4vMbAbzbYphw+liSYpp8Iu4uVznhHcGEBel5/iDNRDylvdroZjATDO/68F4w
S0T5+oN1fb5MsDm9TsXnVCKeviRZy3eBCY5DssXRoYk4PBarzXJlwq5bH32u
ZyYi1f6zlYEzE6R83z7vrkxEq606XPbHmJDgc7VcsjkRGb2f1d2PMOFcE323
4+dExMrRRV8LJpg+MMx9PJeIqWsyrQJNmSC7Z0MPQywJ3c+K6/sZMiFbZ3JN
MTMJNVemvHTXYULFnLwLSycJ+0z2fbXfyYSOgzvHGo4koQbbI81wKxO2H/73
5LRnEs6PbO8nNjNhbYDOvFxcErq1f27gZzGhR2L13aErSfjsVI72gCKpf1WJ
SB0moW0vx7ZSlgm/Ao03FHYmoaCJ8mr/teT9Xk/lTxtPwhXtwWd3ijEh/z3j
cxZ/Mua5vToxL8iEFNdvTys2JON3aYuFSl4myMh0vO3YnowMPLz1GBcTOExZ
BX6LZHTeJLpGcI4B/tOUdhO3ZATl+qyKSQa4HfDkvhKZjM3nrjfuG2GA3uzj
F4KcZLwYvzJtcIgBjn9H9MMfJKOtsJLIhX4G+EmtzBF8l4yG9vu3LHYxoNjJ
ob9kNBm1u24tZbczwCXMQtWULwW33csN/tfCgHFaTJWAQgoOy1mXej0j4zkt
/p1aKRgjTbCHkQG9spLlNYdScCrZTsC8lgGvnLNPXHFLwd2WGntrqsjzrbnz
+GpUCv5Zw71F/AYDXij9+XS/KAVDjvG+dylhQFzcuoFPD1NQ90oS8TCPAc1n
FQZXd6ZgwaYJLb4MBky/Z/DYT6RgJNVjyf5EBmQqJp58IJiKqUn27JhoBnwJ
H6TQqakYZSL4sCGMAfLuXxxLd6di4eqn1X8CGPBcNWbP9iOpuN7no5O8FwMq
3Jf1D3ilYuDHgu69bmR++VU2WYmp2BroJHTSmQFCmUofHG+k4n13NnewA/l/
Sf3zOk2pOJKpey/RmgE9Brxm6p9TcUUlj2reAQZEGV9L1FpIRe1dkueL9zGg
rqXE4qBkGt7Jbfct1iX18at4EqKahgVTcfp5OxmgfrNi6rFxGq7bxulP1CD5
Z7OoxOk0bFQ+uSdYmQFbve21AiPS8L+TWzxO0hkQ9JM/ZbYgDTXVnFz1FBgQ
2VywM7ouDSsfWmkqSDNgVELNblNnGqr/cOr4K8aAQ8NrVn+fTMM2l1F4KsiA
Oys+RN0VTkfTWsOQWB4GbEjd2ZvFTEf6yo/JJot0ELhstSVZLx0tTy0GCEzT
QdPPo7rgeDoqXRbf8eQ3HUokxIMbgtNx12zgO/dvdJjuX1E3n52OJpPZelID
dPjy2j7e4F461vu/SXnYRYfGEaf15R3pKGse9Mi6jQ7LeSrjKOPpqDbB92y8
mQ6/DUR5a4QyMC+54wa7gQ6veDhlNowMXE3be0Gojg5Wuk84a/QysNq6YV3S
bTpQI1dJ/Diega5xVWUi5XRo9QimtYdkoHavn0xUCR1c2VuXtedm4PDq8Avz
uXS4X3/n9ff7GYioftspjQ6fIu5WrenMwKPC//W8iiPXr9d7d+RPBs7+3jFG
XCLPl3v3aO2qTGz57+TvS8F00Iu54kcoZ+JMyOePH73pIHPrP+Pa/Zn4zUvm
Lt2dDqw3ozy2LpmoezGUfc6ZDrIXFp9LRmVi0tLgXdX2dNhSMffk15VMbB1l
/x61JOPfuaS7GjNRf2I+eaMZHXjKAhd7P2cizcFK6aABHbROEenzXFkooCHw
OHA3HfbarhPZLJuFtNVsw0JNOnSa3EgJ3ZGFhXs3vX6kQgfu8zGmP2yysPt2
uMl7Oh1Et6HbGb8sVBqfahmWp8NJ1YL1fJlZKK40qT+5lg55Qx+jHt7Nwsmd
k40zonTIvu3Zd/l9Fl5OP6U9s4IORbVNBl5/svC04cv6cW46KFaHzfqKZyM3
X5ze11kaZA9XS2eoZqPGOlpb2zgNGkTr+t6YZ2OYh8iJ+99pwGdsfW6jRzZO
Rj9azB6gwTz/tSXJidl4ml1W5N1FA4sFqXqZymw8JLT/4P63NEiXuPjpyZts
fOMlu2rdCxrI+0nFsMeycTo/u2/oMQ2kwpz/2InkYOSi1oOyezTYc9/e5LBy
Di7J8S91vkUD1d6DzS6mOagn/r5M7hoNrAZn0nPcc9A9pelxWz4NBJaf+PE9
IQfbu1p+BaXTIPyt6NSByhzUUjmurBhPg//og8Pdb3NQyJMv9ulFGliekp0N
msjBTEGtZfZBNPjm5mkDYrko99M3fcqTBp8e/actuyUXmXE6+mFnaUBLU/8i
fSgXVy5ISQo60sBcXPiCulcunmsK5Is/QgMHmz6qW3ouCiwblRI8SIMP906p
PbuXi4qmI6ZhRjS4/uZLm1Z3Ll55tXB9SpsGN19NqL+Zz8U0BQ5hv40GwilX
M8LW5WGXt+2Hpyo0uDoTucliVx7K+FSXKdJp8GU+XlXfIQ/tjGmlwXKkvisY
vVZheXi+BDra19BgVHObY0xJHtpcCSUUhGnQnS3F09uUh37T7jWneWngF5j7
1/hHHkY8SHEvX6BCf93KCwOC+TgRf972xxQVzGTU7qVsysfyyylB8r+ocCbz
wKKzeT7u0A5+Zz5IhafNDLadZz4O3ntwPKibCu9hLtgzIx9/urUxit9SQexn
6JabD/JR7cg+VuNzKjSxl/byfcrHR0NVp/qQCsYLhR+1uQvQ9Vf8l4kaKuT7
PAtZJVaAbnVn87hvUsFO4nDg5MYC5F7zIYO/hApSl/6NfVUvwJesw++Ecqgw
LXZr/rt+AQbm+h4SSKZCuWXew3/WBfjbq1lqaTQVGlbuPUw9W4CJqu8pf0Ko
MPvu1Hf74AJcfp/uP+BNBed/Yqk3Egvwi4352ueuVBA4ku7PX0zu19G7pNSR
CjorEx751RSg0V5rzfAjVJC3/RK88JyM77R4ZHWACrExTweSPhbg+nL7ZLoh
FVIqb/FqjRbg/A+++5NABYlMN9G/XIW4obpP9Z4GqWfuWsVGsULkU/RY4q1E
hfbL4o4llEK8/uQAVVmRCoPxEn8yNQtx2EW8eFCaCltEFGYL9xWi0Uldv8RV
VPAsSUh9eLQQv5n7XNdcQYWrS/l///IoRC+VXZo9/yiwZDSKoXyxEMfsWIq+
fykwy7Q/eymzEE1S2txFRihgxlbpnbhRiLpfG9dxBilwrWIm3+NxIcZhGqHU
TYERl+U9vB2F2Pv9Y+HtNxRodll+r2K4EPexaQFqTRT44jRvfXa+EEUXRR7d
ekiBfgr82iXMweU0xinKbQqMxcQmUzdwMFt2RXBaGQV6rk37bNTg4M/De7i5
CynwpP13o7oRB1vSXMcd0ylQ91i3wO4oB/Mm5cyexlKgOJ+2Jec8B3Pfj8nL
hlMgYget7PclDvJOX3A870eBRYY6yyqHg2tsdNbVu1Pg6NcrXzpvcTDY4q+h
gBMFlHhUF12fctAoSmHM2JYCN91niqS7OajxyX5l7AEK6Cb5c38a5aBpnMHV
pwYUWJlyTbt2aRGyVnvWzeyigFF+R3KZZBGu2BVgQlGnQI4cylcTRegmOeNg
zKLAZtHkte3aRag+E/rHXYECQTrfrvFbFqGCX7VAnCQFFO83LlidLUK+IMqV
kpUUEP2bu/cJuwhzqJ7P7i6jgPoR6yrIKMKKHk3XxjlFSEwyd+8sL8IqHeH8
l2OKcGDY/FZkQxHW6SVYvxpShDt1ORyzriK0E7LkvOhRhG1zw96qv4uwdJ7b
53GbIuiFnXBQ4inG/wOJNBD4
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["y", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768227320956901*^9},ExpressionUUID->"8068fd2e-1180-47c4-ab20-\
db535f055650"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Solution", " ", "number", " ", "3"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.7682264112014523`*^9, 3.768226411429509*^9}, {
  3.768226646873522*^9, 
  3.768226647234914*^9}},ExpressionUUID->"6e497114-9819-4e4a-adf2-\
b7278821fe44"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"q", " ", "ys"}], "-", 
      RowBox[{"a", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}], "-", 
      RowBox[{"q", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}]}], 
     RowBox[{"a", "+", "q"}]], ",", "t"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{3.7682264309656773`*^9, 
  3.76822667143198*^9},ExpressionUUID->"6e4b1fde-8e6c-46ed-b5f7-7963d9c38d98"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["t", 
   SqrtBox[
    RowBox[{
     SuperscriptBox["t", "2"], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["ys", "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]]}]], "Output",
 CellChangeTimes->{3.7682264365577183`*^9, 
  3.768226675590773*^9},ExpressionUUID->"3121d7a2-8ee1-4714-a6ac-\
9311c6ee244f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y2", ",", "dy", ",", "py"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"y2", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{"q", " ", "ys"}], "-", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}], "-", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "+", "q"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dy", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{"-", 
      FractionBox["t", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"py", "[", 
      RowBox[{"t1_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"y2", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"dy", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"dy", "[", 
           RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "^", "2"}]}],
         "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.768225693552536*^9, {3.768225884939062*^9, 3.768225941243465*^9}, {
   3.768226107524678*^9, 3.768226165825839*^9}, {3.768226294497385*^9, 
   3.768226295952194*^9}, {3.7682263525743113`*^9, 3.7682263827365294`*^9}, {
   3.7682264663347282`*^9, 3.768226495206081*^9}, {3.7682265806372023`*^9, 
   3.7682265848570004`*^9}, {3.7682266878228827`*^9, 
   3.768226695736403*^9}},ExpressionUUID->"050e5dd7-bb71-4b67-bed2-\
93dd89bc80b4"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw91nlYzOv/x/GhvanUtE7rLDXNNDXNQnKiz0taLEPIUkfk1Klk7xsSIR2y
pYickyUcyhHVUQ5KKtkpe5JvsuRkC8lSEb75ec/v/qfrc33u+3E/533NNVf8
yHnjo/uyWKzNfVis7381a/vskkuiHdrV23O+r4PMA6/cK7f+/7mMmaoYUn5v
l3Z1f9X3dYa5lK8Y67NX8/4Sk/SAY/shT7v6h3adUXwrW6R3WLP/FlP26fDv
8aXa1bEx39cdJpp1YKWyQnO+kZmeOsR4xHnt6rra76uJef90z9PSGxrvIbP5
TOKW+GbN/kfM6qBbcSltGr+FmZnls6P5s+b8E8Yy+KZ8vZEO3dfKXDFcb7zS
UYe8Z0xrxvw31Qod8p4zw5YYxgcF6pD3kpk1otKQE65DXhvz4p3awjFB471m
zDHp/IwNGq+dufOq1efNfs3+dkavyWRBUZXGf8vojV8Wsu+/mvMdzNy9/PzL
XZr73jG+06/y+Na65L1nHm24H7nPS5e894xx563O0ZN1yfvAOCf1DXNI0iXv
I5MwS/jGeKcueZ3MBpt35vbVGq+LEd47be7/r8brYgwqvspS2XrkdTPJW8t2
3FTqkfeJWb/Tbo1iih55n5lHhfVWO1bpkdfDKKJ/m8ku1iOvh5mY2nfX8nsa
7wsT1XXqXLuuPnlfGXPvtu6p/fXJ+8YMnlQ9uiZSnzwWQs9vrOdmafazIFvU
nD+9Rp98FoZLlzZmvdOv/r/jqj7Yaxmz9rCLAd3XB7d2XLh5MNSAvL5oXVDX
lJZuQF5feCuTrzOnDcjri5czEpqvfzSgHi28/2e/r5eHIXla0H/8RT77V0Py
tMFeoPt17k5D8rQh0o/v/KnekDxthF/cs7jWhE2eDsbECZ86jWCTpwNDDq9U
sYpNni625Zyc/LWKTZ4uktf8Z0pqD5s8XQwLjBtbPsiIPD2s7iq5/WeiEXl6
yJ2emeV9zIg8fTwZtQeLPxiRp4+Kdqs/pw0wJk8fnwsb054tNCbPABP++PMK
57gxeQZQwPrne13G5Bki1uaeeLCPCXmG0GrJ9hmw3IQ8QzSlae2rOW1CHhtz
Cl8kP9LpRx4bWqsd3meM7EeeEbxY83Exsx95RnjxtCB/fX0/8ozweO2QiufG
puQZo3iVzHCswpQ8YyScrOn4OMGUPBMMDmhR3F9sSp4JXk0uW9dnlyl5Jpgb
nVsTeVrj9cN+e/ahb/9qvH5ojVtt3WBoRp4pPLM2Pn7qaUbfL1OsSV3fJp9o
Rr4p6mb9Y3dkiRmdN8WU09rhsXvM6L7e98VWu8ef13hmyHGya4pv03hm4Ew6
1e8sh0OeGT4EGA8ePohDnhkO7p4x40sEhzwzfC6O2vs4jUMeB152JV0fCznk
cTBiZb/Vg+o1HgcvrMSRB3s0Hgchviv/DnA2J4+Dp5LIbGO1OXnmSN9c8RNr
gTnNxxxRv1les99pTp45gibPXR151pw8cyhqPbKvt2k8c/w+0eCnGEsL8iyw
L/d1qcDXgjwLMMNfBerEWpBngaWtPB/jTRbkWSB76I6mQWUW5Fng6f0xS9c/
1niWGHa1e+ZXtiV5lpDeMtXKHmBJniVWXirIHR1hSZ4l8mbO3um6zpK83ueI
BdMEpZbkWYF/MGjkkPsazwrF4ZUXE/WsyLOCVll7wA2FFXlWGLTZWTEi3Io8
KzT0O9nTnGZFnjWKbzg6Zh2xIs8al0JLjCObNJ41nBoqA8foWZNnDa1xUUGT
lNbkWaPMatWmpKnW5Nng/NbyvONrrcmzQfiSAGPTo9bk2YA/oDs49YHGs8HK
0/JuY7YNeTY4dLVyW4mXDXlceA14cGJepA15XCypEnf4Z9iQx8UvfisaFOU2
5HFxWUeX5dWq8bgwXMrRGcfhkmeLTDilpvpyybMFE19lcXkmlzxbRPhmhbv+
ziXPFmdven3OOcMlzxZNy7CV367x7DDVRVp3yt6WPDv49wSPnjvCljw7/LXs
3inlIlvy7DCp4NQlw3225NkhY81Bh4/XbMmzx4X7rBnvezSePXoGXAvVcbMj
zx6hFlV7xZPtyLPH67mmH6eusiPPHs+mZRrmHbEjzwG/sDdkf2m2I88Bqtra
MbFG9uQ54MhvmW8eDbInzwFaskTlnFh78hzQsX/tLf1se/IccWkbf9PRGnvy
HBFR3C6a367xHHHt7avJPo4O5Dni09CQJ5ZqB/Icsc4+O+NbkgN5TohOnmLb
dcCBPCcsb1ui/lbvQJ4T/j376oWFtiN5TjDPqqvwVjqS54Q5eer1M6c7ksfD
m7pi+4IM2s/lwcx7uG9nhSP93vDQkDCnfNxLOq/mYfiexKllXCe6jwfuybL3
HsOdfngpPLSbJ48pXuRE9/PAf/xx0JA8px9eKQ+CHvWahltO1MND1+QzWkwf
3g+vlYc9UwMD/7DhUR8fuUc2L+j05FEfH6r6/ywOD+JRHx+S8bzBF6bxqI8P
y4SBBQMXkRfDR4VBeWHhRvJS+PAYZqSU5JGXw4ffug5BQQV5pXzw4zNny2+T
V8vHb8d++XzypaaPj7HD/CrUWnzqE2DSsMidj2351CfA6WEj1i1T8qlPAN1p
t+Y7jORTnwB6cz2H1vzCpz4BtELuP5uVRF6KAEN9Dk+y3UxejgDd3SeS6v4i
r7T3vtjZQ1dXk1crQOjlpF1D75LXKkB/9f1lfds1fULYLrx384KegPqEYJV8
St/sJKDvjxBhLexdEQMF1CdE7HvH94pgAfUJ8WFJ2m/6sQLqEyIoon5wy3Ly
coQwS79vVrONvFIhXPKL3u8vIq9WiOtXtjZsOE9eqxDrp1gXLmomj+WMl6c7
Y6M/avqccXCM/PNkEyH1OSPG9F3YGJGQ+pwx4PhficN9hdTnjIJlb4ICJwmp
zxneNtsrg+YKqc8ZFwqKrqnTyCt1RujZ6HkTc8mrdcbq6ZKsX46R1+qMc6+3
uMdfJY/lgsCIeapVreRxXTBywNEd279q+lxwPHftz0etnKnPBdqbmegbMmfq
c4HZy8lH3gY6U58LdHcu7W8Z4Ux9LmBdW/7EJ9GZ+lwwwy7ieHQmebUueFbm
ty/rAHmtLmg6lZhbU0UeSwROSMLuDw3kcUW4/+36Tmk7eSoR/F6O2/irvgv1
ieDl2hS7h+dCfb37vyYJH3i7UJ8Iq4eHHeeNc6E+ETJOXraNjnOhPhEaRgwN
OLySvFoRHiWPk33MIa9VhLA7f9f5lZDHcoVT/wF2WZfJ47oiZ+BtkyePyVO5
wu/vP/d4f9b0uWKRwe2LmeYi6nPFqJNlK55LRdTnirmVNacC/EXU5wptraVL
94eLqM8Vv75Yf0RnoYj6XLH9zLHQuI3ktbqiamRz3LU88lhivHTruT+wkjyu
GI2pLkV/3iFPJYbJ7HW3+r0hTy3GqlXzg1bouVKfGDeXDNZ66+RKfWLk7oxl
RXu7Up8YKbGrvP871pX6xHC0H5IXEudKfWIsDgnB1ZXktfbu37Zba9R28lgS
HO40fX6phDyuBBVFh1+MvEKeSoIZxzb2vdpCnloC99lP3EJ6NH0SvFB8nHrP
Qkx9EiSaOWyL8hBTnwQGkRfqXgeIqa/Xm5f4bek0MfVJ0C4448JOFFOfBAFF
IT47M8ljuaF84L8/ef5FHtcNEWsDnc5Wk6dyQ+HJ0JafG8lTu6Gm3ST13Vvy
Ytwg+zLn40ZDCfW5YQg/3cdNKKE+N1Sd2qS+6COhPjcEsI86z5ggoT43HL3p
W2UwR0J9bgh1XW9duJo8lhQKwTfx+FzyuFKU5Fq96TpGnkqKgq7Q6L3XyFNL
kXZl6ppRz8iLkeJGyZWxnSw36pPiLjv01H6uG/VJkXHi/MUQpRv1SbG15flc
7VFu1CfFhHN7Dx2LcqM+KcJmNi2ZmUweyx3blmTfdcomj+uOe33uVN8pJE/l
Dv9BRz0zz5OndkfxuBD+iAfkxbjDh2nZrN2l6XPHodV7lp02lVKfO+7q3H64
QiKlPnd8vnLzOOMnpT53vG7+8pU1RUp97gg2rSk5kyClPg+k1v1+bU06eVwP
ZL7tO350HnkqDzT+nuVlUUme2gP73zxMarpDXowHFphuscl/Q16KB3jXQvvF
67tTnwfObWn7eQjfnfo8ECs37zL8yZ36PDDlxI6WxvHu1OeBqNAI24JZ7tQn
Q7rn0Jylq8jjyvC3WDZ1zC7yVDIU37aPEhwjTy1DcIDxX51XyYuR4fozfcnV
p+SlyGAeI2jJY3lQnwyzkxbeWs71oD4ZODdFnaFKD+qTQdQeNar/KA/qk2GC
VlSd6a8e1OcJg8uRS14nk8f1xKD4guC6bPJUnji2YN3IwiLy1J4wSZk8I+MC
eTGe+BS8IH/+Q/JSPDF+a1DfCd2aPk8suokkb46M+jwxbniDvqNURn2euHxt
XZG2v4z6eu+raY5tC5dRnxyDH0Qp6xfSfiM5zrgXsasyZNQrh/pR2NuDB+i8
SA5RkOGj7GoZ/X8jx/B9cXdTG8mDHM/tJPXzO8hTy5G9m1Ufwfb84YXJUVlb
VB/s7EmfT45NjV23McTzh5cgx5jkguvKSZ70eeUwvJ193mWe5w8vXY7CcVuO
cteSlyNH8t6Vf5jsJS9fjuatAfO1y8krlSPX6PKgzzfJq5Zjccu3jo6X5NXK
saTtde3CvvIfXqMcob7ybR0mcpqXHN1GAbfn2cl/eO/kqB2nSHvlKqf5KeB6
/XPBrP5ymp8CGeyioS9AHlcBke+EEXGjyRMpoA7+Uv0sjDxV7/Pl8gMzYsiD
AmPq9/Q8+w95agUmiM9Xxq0gL0yBedr+r15sIC9GAX2p15rZf5CXoEB4ffmG
1/vJS1HA5HBH9/wj5KUr0FjJuvHuFHk5CiQmG5omXiYvX4HMgoHHPt0hr1SB
hqklNctbyKtWIKAjv79WO3m1CiRo+bPX9mjmp4BRdHmAsYGC5qdAjN2QlixL
Bc1PAeWEPi02AgXNT4kxEb7+u2UKmp8SRQc8dEU+CpqfEpGHDcWFQeSJlDjR
zTnYfwJ5KiWWC9LWVkwnD0pMKss75z+HPLUS4pH/RNQlkRemxKGQTxMnpZEX
o4Tx0IoDD7LIS+h9H+U/IW43eSlKPG+7//O7Q+SlK+H4rL582QnycpTI7r80
Qf8cefm951c4rtpyg7xSJbp9OW2OzeRVK1Hwfb0gr1aJi8eHVHl1kteoRAlH
KDmjpaT59c6De/RpsKmS5qfEooZRn5rslTQ/Fd59CZw+U6Kk+anw5aEWt2uA
kuangjL+sTDNjzyRCk+8/FMsgpX0+6OC5eh0j31TyIMKa8KdpMoZ5Kl792+L
Wnx6AXlhKrQdqbYYt5K8GBXOPN797eFG8hJU8Guc5R2/nbwUFaJPbqrsc4C8
dBUu8ZI3Z5WSl6OCwmTX38Jq8vJVsH8bZfdPLXmlKqzY4XcjsJG8ahUWM4dv
3P2XvFoVzGZZ2s/qIK9RBYn2++IvXzXzU2Gif1X6Jrbqh/dOhRtH3xwR2qho
fv2R5fbN8bizqvp/hi2PUQ==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw913lcjOv/x/FJUlq0L9M6M03TTOssZEndb6LkZCd1ighly5ZjiUNKJCmy
RpKlCJ2cskWHsh2O0JEkKkcYFEeolK2v8/O5fvc/Pe7HfV3P63V/HvOYShg5
f+yMbjweb4sGj/ffT3btnlt0Q7LHrGx35n9XPhfXsUF37P/fl3CPvbJvVn2/
763677rMaXnt0jmexZ7f4CYpfM493GtW9kOr5K5em38/Yh9bX8XdyFOM9t5v
VhYd9d91n+Mu5lrGHGT7a7nlj02s23LNym5V/HfVcS331IOqjjDvH07RVbJE
+zhb/4SrCR23d0sh859yJZ+O71xYzPY/49506xxy+Aw7T83N4B1eoyxl3ktu
6oVZzqblzHvFTUnwMQi8xrxmbkDxPO17N5n3mmt9kfOi+G/m/ctlh91f+bKG
eS3clstLty5sYOtbONOk8LaRz5n/jksKqJoV/5rtf881PD56SquVnfeBm53h
vafhM/NauSmHFzzU7W5OXitnPuquPEXfnLw2zvduemi4uTl57dxN3RSDNfbm
5H3kqoSTNTuczcnr4NRpC96WKZjXwdlP6Eh85M28Ts4vTndhgD/zPnGBJ3On
dx/DvM/cnMALuibhzPvCmToMN1gQzbwvXNOHIDP7WOZ95fzKn121Wc28b5wp
gq/N3Mi8Lu6fTfyz3Xcxj4f7b9Tebw+x9TzMP3C5xbmI+Txo1/Va/NtF87L/
267SQPHZtKkJt9h5GtAe++u4g4+Y1w0W1dsbjZqY1w3z9gvz/upgXjccnqPV
u1Lbgno04TvltkBoaUGeJrb5XewqlViQ1x1PNtZHHvSyIK87RIu+PazytyCv
Oww+Vn0cMZF5WhDWdgYYz2SeFsTLu4XaLWdeDww5mnhmYQrzeiB2juNbgyzm
9UDY+kMp7wqYp42NVh9MbcuYp41bb+Vmm+4yTweOD8tNhzxnng72XZm4Gx3M
00HP0m8eCXqW5PXEz9ekIToOluT1xMptJXvuKi3J08UCXZPV//hbkqeLlCyb
9YowS/J00SN+XL+r85mnhycF1RZ71jJPD4mno/OKMpmnD8WMxNl6hczTh1g5
VX3oCvP0MSGh295VD5lngP4nvY13tTDPANM6/rja0sOKvF4obBP4JNtZkdcL
pv1ed07qbUVeL9yclbNq4U9W5BliYHDZiEuRVuQZIuJ07atRccwzQsi1TdX8
DCv6fBmh82DmVoejzDeCx5KGvCmX2H4jSCbNyqh7yM4zwjDXFbUZH5hnDK0X
6V0J+nzyjLHfPCr5uBOfPGO43NHq6MXxyTNG1Z4/7+aH8Mkzhp1N2N6Vi/jk
mUC9+FbdulTmmcBue7rF9TzmmaCfcmUlV848E9juq9/85hHzTNA8M7ahsp15
pggtX4pXxtY0H1O0njrk6+VuTZ4pBvTpP/XMMGvyTKHT+FU+d7o1eabQOx3Y
d3y8NXlm0Fvc49u8LOaZYU/TScPSs8wzg0Rn4ccB1cwzQ/fyNjS/Y54Zwq/n
LKvoZUOeOa7ZLnFtcLUhzxwjZzm+cAi0Ic8czd6aA7ZE2ZBnDl0TQbFirQ15
5ugzsG8j7wDzLLAj8/zEbxeZZ4FgtweHZA3Ms8DK9YvCEr4wzwIJlu69dGxs
ybOAn/+s0ef625JnCfGKwNO7QmzJs0RSR9G9A0ttybOE885Rgx7ssCXPEtlT
0jP6nWaeJeb0PBpxuZp5Vnj2Uw6WtTHPCuvEPreDze3Is0Jpi8WByX3syLPC
nQWbg9Mn2JFnhc8Ftete/mJHHh8jr7bcnrXDjjw+xu86cNPkDPP4UE3faP20
hnl8KGD588MO5vHhszZB1sG3J88a0VYPpQO97cmzxteCzx254fbkWUPz6Xbv
PqvsybNG42jp1lf77MmzRt06zYOXyplnA+W7YYZlT5lng5iCppVPtBzIs8Hl
oGNbJFIH8mygmWTXmjbcgTwbPK88+JN1jAN5tvDiLcD1dAfybPHb2YQVu4qY
Z4umF0fzUqqZ9329c9Lc7A7m2aIx2af0lYGAPDu88p96fpuDgDw7FK710B2t
EJBnh8UTNq628ROQZ4fY85fet48XkGcH2z5rvRujmGePgUOfKuqXMc8eFu3B
v71IYZ493kws2aCxl3n26P7Zf69LIfPsMW9G9qXIcuY5oGHtxar8KuY54JCt
3rGu58xzgEQ+2HF6B/McoJ6VZFmjKyTPAfNXj58WYickTwDPjE2NLzyFP9bz
Bdi2ae7CpMFC+r4RYH1Cymv5BNofJEA0r17eFC2k8wS4NeeUze9x5MUL4DSu
LCVpE3mZAoSVdw+PziGvWID8tKcxwcWs5/v+Qot9Y6+RpxagIPHE7bBa1idE
poNN3cLXrE+IybstD2/rYn1CmAT/YXjFRER9QpgGLm/vchJRnxBtQw0GDusv
oj4hbgxOL88KElGfEPn7Zs78GiGivu/P504wmR1LXoUQnwun7W9cR576u5f/
/mPUbvJ4InjZFHW0F5DHF+FR8v51GeXkqUQIXGOY1L+a9YnQ/M+umuaXrE+E
JgtpZP4X1ieCeHarziIjR+oTYZzvmhNDxY7UJ0JS6F4fcT9H6hPhhSxyu0GQ
I/WJoKWv2qsxxZH6HJG6pXQAbzF5fEekXf8wrmeyI31+HDEt0fyObRZ5QY7o
uz83Y8AJ8qIcETBxXlLkFfLiHfEkbnXatgeszxGKCvftla/JK3ZEwyCTNRYa
YupzxM4JPQdEmYupzxGJY5RHLsrE1CfGwex/i0W+YuoTw8fsydD0sWLqE4Mb
9sZfK5q8IDHO/+OVs3YFeVFirFALvA02kxcvxmGrERr7DpGXKcb2QXvq+peQ
VyzGhVTpmfpbrE+MF/UjV6Q0sj4x1ssOmeIj63OC3+3O2d/0nKjPCY/ehs29
KnCiPie4Vhlpbu/jRH1OSPfeZR0z3In6nLDmxtHsERFO1OeErT/3X+G1mLxM
J+TOnpvlvIG8YicsX3LwX0E2eRXfn0csniwqJk/thBt/H33gep08ngTC/IDh
PvWsT4Kkn+Nzgt+zPgkKwy9cX6otoT4JnmZkn8ixlVCfBJolLUP/VkioT4Km
ytNLegZIqE+C/lvEisBwCfVJsL46e9rmheRVSFBjeP5Lwzry1BKkn/dt7p1F
Hs8ZhX/b22f8Th7fGWm+q9e2XyNP5YwbIUUGkXWszxmnQvvl33vH+pzhUHPB
f6S2M/U5Y6av4P5tW2fqc4bmmGkBwUpn6nPGqAPnUp4FOFOfM0os1m5ePsmZ
+pwRNn1YoHkseTwprm07l3smmTy+FH7JZ3ZMySZPJUV43FADo5PkBUlRsH7r
p6s3yIuSQtinc1TCY9YnxcSOtm9D2lifFGvK5Z0GelLqk2LKuqXyeoGU+qQ4
dvvCjiIvKfVJcWKQ0D4tSEp9Mnj1eXx2fqSU+mTI95kcOnEZeSoZ4i5K3w9J
Iy9Ihso1b37pd4i8KBmmDl5dozhHXrwM24bf66moJC9Thr+0evC81KxPBvWu
0QX4wvpk0F1hojXGREZ9MiwyrPgUJZVRnwvS4ZCQ4CujPhcMsr2TdnC8jPpc
wC28aPbXbBn1uWBHTKt2ezx5US6I8M0Id95JXrwLNp6o6zG5gLxMF1y56/U5
8zJ5xS6I3SXyeFRLXoUL6n7FNmEL63PBCPdRopgeLtTniklOrrf+sHWhPlcM
n3J7g6nKhfpcMeTLqBHzAl2ozxXqZ0/1b0e4UJ8rjvz68A/lEvLiXTFsRM6E
rFTyMl0RfPSPG7oHySt2RebM+4arSsircEXa+ny79jvkqV3x9InRq0Vq1ueG
P+t5M1u/sD43hNknb44zdaU+N3zpcydEy8WV+twQF2p1Zhtcqc8NIWYX90sn
ulKfG+597WtYHuNKfW74d55R+6S15BW7wa//v0Fdu8mrcMPLyem6ub+Tp3aD
1s0bTqOuk8dzx1S9jdu/NpDHd8dV3QejT7SxPneoKipGRuu7UZ87uiRZ60SO
btTnjt8T098+6e9Gfe4oyeyxJne0G/W5Q9NjqTIm2o363DHg7tzP/VaRV+GO
94eSq3S2k6d2R5LJmqK6Y+TxPHBjh3DzyUvk8T0Qt3r49M215Kk8EFHYIlnQ
wvo8MCbSrnKctjv1eeDOuzcTve3dqc8D83dvPS3p4059Hvg0aNwz8yB36vPA
QN+kWp1p7tTngQ2229O6lpOn9oDGbI0vnZvJ43lixsow647D5PE9UeId0Nh5
gTyVJ1a9jgvqqiYvyBO7P10Yo/OG9Xni+ZU3TWbdPajPE1NnfTBysvGgPk+Y
Ztwq7af0oD5PxAze+GJUoAf1fb/PDUqZPcWD+jwxsW5wdvJS8nhyvL1VaHs0
jdbry/FL+/Nvt3PJ58th3G+Y78dS2i+R482xwHuiex70940cNbEx58Y0kwc5
klL9mxK7edL7yDEsZ+mkEr7nDy9UjjkPiwzeyz3p/eTgny9pdR/m+cOLleNM
c7h+TIQnva8cLaYrRxYuIS9VDsNCrVOtm8jLlEPY2N7fJ5e8PDlCxobVJJeS
VyyH6EvQ+poq8srkKNZt9ZM1k1chR8fEy5qchvyHVyvHqlVidZO+nOYlR84k
f/9dVvIf3gc5Gg+ECAPEcpqfAtm/b1n80VNO81NAvNnDJ9+bPL4CqupFy8ID
yJMokLP9iKPxOPJUCsjGCgb+OZm87/+N7Xkuv7hqNnlBCpjH9j3adwl5oQrs
HL/z07s15EUpUNrzXEHBJvJiFciVGJbPziQvXgF3P32lLJe8VAX6Nrl9e3mC
vEwFBm94LzpaSl6eAm5Tnu2de528YgWEC9Pnyu+RV6bA1QXrUtsek1ehQOLp
qZ/PN7P5KWDjfvF04kc2PwVG+w0uDdJU0PwUuFe3taeloYLmp0SwX2RWo7WC
5qfENcupiwolCpqfEuV+gRt+VSpofkp4Nj9oCPIlT6VEj8lVC+yGkwcl/HU1
fN5OIC9ICe15noMuTSUvVInKnooVO2LIi1JCc1z9yznLyYtVYlmeUfLgJPLi
lRjkfTzYegt5qUrsMd8x9kMWeZlKdHaeXX7rCHl5yu+/X7r/deQkecXf3y96
7qCkMvLKvvddf1UfWUFehRIhfy3fO+gBebVKHPGyXyV8Rp5aid5B9b92a2Hz
U+JDcfnuZ5/Z/FSw/uXh3T+1lTQ/FZa8GiA+bqqk+anAK/qUusVBSfNTYfWx
PnrLXJX0/aNC6FO9vRF9lTQ/FeJS92OYH3lBKkS32rcqRpEXqsK8ZSdO2YaR
F6VCW9y6RJ1o8mJVUIdUh7UtIi9ehYCI6oFPV5GXqkJj2SXx3RTyMlUwTq03
vrSDvDwVinJmdSs+QF6xCk55v7Ue+o28MhUSNTrUO8+RV6FC5c1tNRuvkVer
wpzrNVfi75KnViElzLJgSQN5H1T4M74gLaaJPF5vNJd/jJ7Rriz7H1Yyl3U=

       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw91nlcTfkfx/ErSijty61b3e7tbtXds4XOWzMkEmEQslaUZWSGFluWsvWL
yFJmLEVoZEu2wURMJmGMmRYlY0u0iTSt+s385vP9nX963EfnPL+v3o/7OI9c
5309McyAx+Ol9ODx/vnJrpqM7aqrNc756Wn/XCe5DP7qXqX//3yFq7/2LEH5
1jnfS//PVcCNn7jk3PW37Pe/cHIfXsLmd875/2q/cgmn9ndtq2X3P+ZMi2bY
3a1zzl8Q/s9Vws02Tb3v08CeL+eW7zzn0NjonH+/+J+rklPGjWkta2Len9yn
aMfZnR/Z/c+5MX7GfsEtzH/JDRwvON7Yyp5/xW3w377ipw52XjW3q+Pc8buf
mVfDFX221fUzcCHvLRe+f5HxZkMX8mq5mMNJTsP6uJBXx9nGbJzvbupCXgMX
23/zvSALF/Lec4XNnSPP27D733P74uNujXVgfhN3ufOO2tmFPf+BG1FTukrh
xs77yKV8Ubl7iYJ5zZxFrT70nYp5zdzu7hVlh7yY94lrmBFV8R9v5rVwF+1U
Uy+AeX9xd2wbvaz8mNfKBR/Th2SPY14rt0Z45VLsZOa1cQnZqz3Wz2BeO+df
e+1g/jzmdXBPKzpaBkUyr5Pb+j2P/yaKeZ3coRnlNfdjmdfFfR701L9uPfM+
c89GnHb23ca8bi5z5VD/h7uYx8Pi4lvZuw+w+3mwG/VYvOMo83nQmI9PvZnj
kv+/x/U98DprSYX7JXZeD2h73SgtymeeAaaXyBccKWKeAUQ3PoSf/p15BliV
eiO3qYr19ETopR2KRW+Z1xNHQoozHZqZ1wt/vue6uj8zrxfML/XfYmooJK8X
ml7zKvL6CskzRIOu42WMuZA8QzReHLJjiq2QPCM80Jy7GygQkmeEKF/z1XNF
zDNC/7P5qcly5vXG1CM1XX+omNcbEa8WZQwawDxjzNHVL84dyjxjzFzx0M/f
l3nGeGw2yKltNPP6wFDSr/TWeOb1wfIXLbOypjCvL5yKIg9mhjCvLzZ3fb/2
aijz+kK0dUfNu0XM64ehZ3vf8fqGef1gOSStc18c80zQ+0pGtPUG5pmg4M/x
ztlbmWcC9d30smkpzDOFife4ZGEa80yh6O4h63GEef1RI5duaz/BvP4QzGg/
aHKOef3R0yY1YNAV5plhbFtVbNxN5pmhyfqgackvzDNHt9uSBv/fhPT9MseT
JzcNSp4w3xxKl3pN3Ev2vDmGTxLMHljHzjPHvp3Tv+n7iXkWeF+dMqmli3kW
UO5Pet1m5EqeBSIntvS3MXclzwIfF4Tk+fFdybOAlaHXjRSRK3mWSJ//qP9H
D1fyLMHvXJ60aADzLHHownBBhw/zLNHblMs8Mpp5ljg8eqnR7InMs8KgPTnu
+pmutI8VZqjvNTuFM88Kzzdu8HdZxjwrxAauMR0UxzwrhOdNloRtYp41VPN2
rTiZzDxreO8796JnGvOsEekrDPo2k3nW+NoEx9pzmGcN47AFBXsvM88Gr7e/
2DG6gHk2mLK3ucHsAfNssDeq7HZdGfNskP/85qeql8yzQciaqrDqBubZIvbY
lDaDdubZIiAuMNXLUESeLYKLqx1WmYvIs4VDX5+oEkcRebYwc49aNUomIs8O
finfOd3Ticizw+SWyqGhPsyzwylMuGoxhnl2CA+1XfP4K+bZYY73xIUn5zLP
Hrcmu8/ZvYR59qh++MvolFjm2SPVZa5RZgLz7HG0TLrmbgrz7PFh5bSUHgeZ
x8fPLkNlgdnM4yNmjkB8+iLz+Nj5dmKEawHz+MAorur4Q+bx4b0zIHxEJfMc
8JdL0+v6GuY5YM6QMyNyPjHPAc8u2MxaZyAmzwGtR/NdQs3E5DlgYGvwohkC
MXmOyLFLl4QpxOQ54t360fr1A8XkOWLxvGGxZ75gniOyJSGVjROY54iDfTJH
+M5ingDvs+2SsxYxT4DzySVZgljmCfDzCdOoo4nME+BdVdej4anMEyB6S8fp
miPMc0Lxu6X1R88wzwlbzv++fPl15jkhMeKGW9A95jkh/e1vNShnnhN8ih8c
HfGGec4wLt3kM+kT85xhH1Z1YEVPN/KcEX6/IuOEhRt5zhD8nDqkzsWNPGfU
3B48Cio38lwweabZmaPD3Mhzwai9MdP5Y5nngvix9aqDwcxzwdKYbkv9Qua5
oD15en3pSuYJcetOwdGkBLqfL8S3oQ7CoFQ3et8IscV02ihJJj0fIISfYcpn
4/PsPCH8VzarO/PJixdCl1t88/NDdr4QgpXrDpg/Iy9XiECn5KPaBtYjxIHX
e27P7SKvWojRogkvD5tIqM8V25bvqmlwlFCfK841B14b6yGhPlf0jU4ddclb
Qn2umJ2V/LV2jIT6XBHqnehyNZi8eFcUuTz3CYogL80VYw+LLrbEkJfripVb
apdkbyGv2BWJY9sDF+8nr9oVDhIP32EnWJ8ItYNjNA6XWZ8I6WfbDIzusj4R
4kpfZ3SXsj4RtnultBnVsD4REjKWvndsZX0iCMLNonyMpdQnwmpfcdhSeyn1
iWCQFHPxB7mU+kQYNqQzsGWwlPpE4D5csQ/0l1KfGNOdK7vOB5PHF0P1/oca
t0gpfX/EkCxLKciMIy9AjOgEq1j1dvLCxTjYVfqx8AB58WIE7sp0XnKK9Ylh
0hD8yvk6eblijDvTpX56n/WJ8UXk2brjVaxPjNEnzxuua2R9buisnR8+jyej
PjdIj/m2B1nIqM8NXw6qOzVOJKM+NzQ2CiK/0suozw2WBmedIr6UUZ8b3q09
lLvlK/LS3NAyrpf9hXDyct1wW2w7qDaavGI3HIv26FJuJa/aDd/GXJmyOp08
ngRy3mRNyQ+sT4JDiTkrh15nfRKMstpne+oB65PgvZLXJfuT9Ulw9kGL7Zkm
1ifBq4DjQSN6yqlPgsnjZqZXWcupT4L4M2urEqVy6pPAPW5PP+/BcuqTwKhw
pFmrv5z6pMjNmViaP4M8vhTNyu+DUpeQp5dCyXdbvHwdeQFS+HT0tJmRQl64
FN8bRHsHZpIXL8WTN78Xjc1jfVKs/X3XhUmFrE8Kf/8vqsPKWZ8UL3vuDdxQ
y/qkaH05tfJEF+uT4eeHy9eWmymoTwbJ/nqxtUhBfTJYV9b+OM1LQX0yXKzN
GXB8lIL6ZPgre2d89zQF9cmw+xvTpLmLyEuT4UnLFb/7a8jLlaHCeXSm707y
imWY1JiQfDODvGoZ+OEhbf555PHkGDnj98cVhaxPjpo5Jv2jn7A+OZZm+O53
rGd9chQVPJz3Szfrk8MjXzYr3tKd+uRYd7c8DhJ36pPjnOvOk30Gu1OfHLsM
zCsqxrhTnxyJUUN4l0LcqU+OPqLefQ8sI4+nQFlQ8tvNG8njK2CQ9XnHmr3k
6RW40DujYdVJ8gIUKImvbNlwjbxwBbbae6bvesj6FFhwRl6U/YL1KXCiYmPM
vU+sTwHhHeN9zcYe1KeAoMd3dlKBB/Up4Lx0aN1stQf1uSPe7LNRhq8H9bmj
qcZqet1XHtTnjsbyO6U+EeQFuIMfu2J52mrywt2xpvE7QecO8uLd8eDxg7vh
meSluWOd4cWI8ovk5bqjfbPNh0lFrM8de0PuTi55yvrc8eO8m5vmNLE+DzyS
91vxoZcn9Xlg+qNC+yR7T+rzQFWNZr7S05P6PNA4Yp9fCedJfR4Y+Ou8K4mT
PKnPAxEbLU/5LCAvzQOzRMOsPseRl+sBvjTpxe1k8oo98Cr1junuDPKqPbD6
6c0tCy+Sx/PEgPPL/EYWsT5PeL8qHa6oYn2eKPexmmP9gfV54vm8yRlGRkrq
80T3kRet3Xwl9Xli4hOHaTyVkvo8UR/09YXevkrq88TaXQsMbKcoqc8TViMP
D/SIJK/aE3Wm90b6rSWPp8SchafdIneRx1eiboPk7u4s8vRKBDgKJbevkheg
xJXpGZqOB6xPiTHnbz8b/JL1KTHlUq5szV+sTwkH3tmuwn4q6lMilNd/Kl+o
oj4lZlUPUER5qahPiT3RmREPR6uoT4VP9a9NvUJU1KeCwx+H+h2KIk+vwn/e
JE4zTyQvQIWQuvnvNqeTF67C6VTLS4ZnyItXITF4/YWtBeSlqXA1+FyZVRnr
U6Fz0EX+0TrWp4KgLW+Jdw819f3tv6gpKrFRU58aPaelyWLd1dSnhtE1cZwr
p6Y+NSoDWi4/nKSmPjWSeqU82biQvHA17kcn/DF8DXnxaoTlrTzclUJemhrp
Er6uIIu8XDVeRujWJ/9IXrEa+cPSNs3+lfWpcTlogH7ga9anQdyA7o2W7XS/
iQaudrxBcb011KuBZ39Fc72F5t/npRrMzDFbESrQ0P83GnSMD8p7KtX860GD
zK93nw3Waujv0eBJ6sZ5ZUPJC9bgul/pz8GjyAvX4FdeQPnTCeR9o0E5//ie
0Bnkxf/9+UbeX/Vh5CVpYPEsoCN2GXlpGqid/b8zXkVelgab7iSXpCWQl6tB
UF6fLOVO8vI1GDYlx+h2OnnFGtza9m3zzGPklWtQdnjuotYz5FVrkPLF2gV7
r5L3UYPaxRWvBt4hj6fFiakpz8ofkmeixbConyate8L20+LF2KThstdsPy0u
7ZSkPWpk+2nxqemneWvb2X5afOm0b6/SUEv7aeF8ul7zzExL+2kxUWiq2u2g
pf202Hdr5DZ/iZb202LwyYYRBhot7adFxeGwoOve5CVpMdXVLC9uJHlpWpzE
lAjvCeRladFx7FRk53TycrUoWL0tLz+MvHwt2hcsHbV5GXnFWkSseMqfsIq8
ci36Wcz3dEwkr1qLra0742p2kvdRi0JVN+/yAfJ4OqQ2jr22NYs8Ex2mZzqe
DDlHHl+Hz7/Z39ZfI0+qw23H5j4mheTpdQgSh0ZXPyIPOhRsl/QpqGT76VD2
pv3HI2/YfjoMPnMqacMHtp8O93R9YsK62H46CFNexY0x1tF+f5+fbb9La6Wj
/XR4b5dw1cFZR/vpwHM0azJU6Gg/HaL2HdF91OtoPx2+N1SufuFDXr4Obxcc
L3rsT16xDvmciWPhZPLKdTi7YWbktdnkVetwYMfBvNxI8j7q0Cyuaju1gjye
HoIgT68T8eSZ6PFL1KG5x7aTx9dju8ukdUf3kifVY7Z84bZjR3T0/tFj2qZe
8SdOkQc9Zo6dFJJzibwAPdqyN7lcuEVesB6jK+8XXLtPXrgeL/kRfoVl5H2j
R/uePccfv2T76bFo2b7nzxvYfnrwci59aGpj++lxSvFlWU9DPe2nR2Pqjh12
5np6n+nhE9pko3TU0356bC66s/BLqZ7206Pw9JKEEK2e9tMjJyMwImYYedV6
fFX+m8UeP/I+6mHtHLE6dyJ5PC8E39uU9ThEn/9fjRWhzQ==
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.02]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.76822670019783*^9},ExpressionUUID->"e14d5570-6edf-4cba-969c-8080111dd7c1"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxd13lcjXn/x/GSkhYlotJyOq2n9SxlTDTXuxjGZCthrJmMbJG1RAgZKdsg
JhFlaSNtWqR93zttZM0WFbelYsRw87u/n/PH7/zTo8e5ruf1Op9rN/b281g+
SE5O7i95Obnvf///53Tk908CpxcfEd73eTP3v/9zOOUd4yY+HQjhHCTfPyWc
Vn/QLvtNR9j3VVwOUg/HvzvB/U9p5Pj7jBtjLE6z5Zu5xQOTZ4fMO8et8Pn+
aeO+nLp0KRGxbP127u3AxcMaTRe5utrvn3uc9bCftAK94pjXwTXJn7u+8UUC
W/4R55j7JCnc9wrzn3DCxEqzeT3JbP2nnCDbZPrYtBS2vU7uTutjhYyeVOa9
4Prkqkf1G6czr4t7k1C5pNYzg3k9XETeK1eNkOvMe8m9uv9zVcS1TOb9h/vg
X3nB6VYW895wgV+W/3h3IJst/4ZLnOSRNE/vBvPfck67r7Ydc8xl67/jSq9e
99g47SbbXi+nlHltzYMleczr47JV8vSKffOZ18fJidsGVPwLmNfPzVQ6ftbT
uZB577lNd3dXTMkrZN4Hzs7w2aF2pyLm/cNdf+GTpphZxLx/uMKvbXpVdsXM
+8gtPRNTZnypmHkDnGBBWt4w3RLmfeJsEzvUj4aVMO8zF/pYPuPyxxLmfeaW
7M897ulTyrx/ufIqu1VnGkuZ94Ubtv1E7u5xZcz7yi3peNCgHF3GPDmo9G2O
GitfzpaXw558nSxN73Lmy+HjYWWPs4Xl3P+tLpHHc/lVZk/0K9j25JHcr7Cy
y7+CeYNwROpTnFVfwbxB+NS+cuJc00rmDYLnTd6cuoBK1qOARoWZaWZVlcxT
QFO1y6KVOlXMGwzlGw5/RS+vYt5gTOTsS6QpVcwbjKC7vx9RHahiniJe+g/K
nONSzTxFhLde1rrxZzXzlMAPGxPhWl3NPCX8ZHLd6aNqDfOUMLpIR/mFWw3z
hqCpdquCblgN84bgoYWr/cnyGuYpo6Xdcd8q+VrmKaNzcM/bM061zFOG5EbG
LKeNtcwbCn2z5yvc4muZNxR/bgh41n6vlnkqEJS/Xfhao455Kui6UshFuNQx
TwWv3YqetmyoY54qDB8bBWWdr2OeKvo0tmpNrq9jnhrW/uVw+MAAeWo4b2uV
HGZWzzw1PCpZpewxs5556mgL+Xnoi4B65qkj5dC+d57n6pk3DFqTK++cL6tn
3jDsUVW92txN3jCc6phn2T+sgXkaOCsf8VBN3MA8DUxes+lHvmcD8zRRGha4
fsKWBnZ8aWLNVovj3hENzNfE6snikKgMWl8TOdotA6+aGtj2NBFZabd36Rvy
huNJnFdBkFIj84bDt93vmNfIRuYNx1eVpKK7xo3MG477RwK4PrtG5g3HMd7w
7qTxjczTgir3MFzxF/K08Gxcw10FT/K04C9K3ZHgRZ4W1JNODfq4mjwtYPiP
XX1byBuBJqlH9LngRjafEVgTpb7jUxh5IyBe5t2gEkHeCBje3VXfEE3eCOio
Ci9MiydvJPLKnX32ppI3ErcL23n+N8gbCePBX2vNS8gbiZ7otjmnasgbiYA5
en9XNZOnDRuJv3fBXfK0ceD2iy3bnpCnjfAV/D8/d5OnjQ19j36c8o48bdT+
4W696CN5o7A0wevFBDkp80ZBdZJub7eSlHmjsEn1a9EKdSnzRsHGZGFhxggp
80YhwejEjGZdKfNGY8GsncWlRuSNRrR10oowM/JG4/idzF1m1uSNRt2T466n
hOSNxvb+lgcdjuTpYLW0L1BhPHk6uLPojFAO5OlgcnvnqNuTyNPBh6kXxx2c
Sp4OtqudjjSYQZ4uDBOLHA95kKeLQV375O/NJU8Xm02/dKksJE8X+b0WrXpe
5OmCb2kUq7aMPD0cE3gKHvmQp4ftuYUTIleTp4c7ojHxjuvI0/s2L2VR1gby
9NC+/9dThlvIG4PLke9O+G4lbwzWy4c/iNlO3hhMvTXJpGAneWNg78BXL9tN
3hj842/kkhFCnj60XBd6HdpPnj4ynZwV3MPI00f4saiSrwfJ08fQPx6KTx8h
Tx8t3RYPecfIM0DoOV+PEyfIM4AKorX6T5JngLaa8piJkeQZ4GaQ5c7gKPIM
MLdkIf/KWfIM4TjTV7HiHHmG+CToPy2NIc8QxS/Hz669QJ4h8ke5RWVdIs8Q
0w6q3j8eR54RYict3vV7AnlG2G9r38lLIs8Iu349ubHpCnlG+G3U0z3+yeQZ
od7m5kb1FPJ4mOcqiDqVypbX5WGtX6qHdrqUXW942Na66tWfGWz9aTyYxg7N
e3mdtsfDWf/PmlOymBfMQ/8Pm8eezKbtf1t++ratd3KYl85D60w53shc6uHB
3eHNpok3mdfJw2+vxueszKM+Y+QfeSkOyac+Y/gOCPknC6jPGGlKvuXRhdRn
jM+TXBdHF1GfMXSnxvEjiqnPGNKw7ll7S6jPGEfvl/BWlVKfMQ7s8aqaXEZ9
xtjTvipYv5z6jLErTW9bdzn18TFkErpSKqiPD/mqqV/9KqmPjyuV7i8tqqiP
D1U1y4e3q6iPj18nLlTcW019fKxb7BpuXkN9fARGKJ4pqaE+PvrHxv2+oJb6
+IjVV1PsqaU+Pn7oUUjeUkd9Jriv4r53oI76TDD295TEwHo6fkxgWd/xS289
9ZnAb23i7hUN1GeC6uhnAW0N1GeCB227p6OR+kzg6nTQ5FIj89JNMFRxrJ6i
lPpMEFJwZ9ZSKfWZYMJEpc5MKfWZYvbRbR+Um6jPFOlbHGPnNlGfKRar+w86
30R9puhWL5Y8a6I+U9j1ds8yb6Y+U1R80dq8rJn6TOGtlZZ5ppn6TGH6x2lR
UzP1maJc49/PCi3UZwrtkHVCcQv1maGjvvvxohbqM8O7inarkBbqM0OP/gjD
+BbqM0OA82NpJXk+Zii0UlnYSV7wt+8FVXVyrdRnBoff7jnrtFLfN89qb75N
K/WZwal2j/dPrdT37f/lggnTW6nPHOOmuy+eT56uOQTGf9zyJk9ijojSxbmr
yJtmjpduDbrryPMxh6/00aD15AWbQ+w4/08/WZ85GipPpvvK+syx6XlU5ApZ
nzkeb1ObslTWZw63daLqubI+C9QM+yR0k/VZQHuhwgFnWZ8FFF2PPrSV9VlA
TRrhoi/rs0CJR3ausqzPAmuWzFjQS/sj0gJrb3sL7tH+SLfAjKeZDiW0P2ot
oFlVsj9etn8t8LHipu1B2f61xJdnR0XrZPvXEuXxL8/OkO1fS5hUjN9hK9u/
lqiuS2xXke1fSxhmW+Z1yo4/S4h3rhQVyY4/S8w+9Zg7LTv+LLFzY9vbDbLj
zxLcU7dZvzRTnyViwkb+YUCenAABFnWOb2XnhwDc2wd1JbLzQ4Axd4MdImTn
hwCBzdkblsvODwGCBhYdcmiiPgF4jSOPDCIvUoBX8xfsbJBSnwA2Ltu9o2Tn
rwCjuyJdfWTnrwDyO5PNhLLz1wp6/+7X+kjXA10r2DjWaRTR9UBihSOF/5qE
NlKfFa7+s3HOjEbqs8KQJ0sTRzRSnxVujr5lebuB+qxQF1vUFtVAfVYweNCV
s6SB+qwQOuXDLR5drzqtkDdz/djH9dRnDTmz3Dux9dRnjaQAw2pv2fXPGqud
iofyZdc/a/QtSonuqKM+a8zc03oomq6nwdawT5O/t5Cup5HWeKjYdUinjvqs
cWGWaXyL7PpsDXGpyP6o7Pr8bXtHt1i41VKfDfbscopQrKU+GzQeSgsqqKE+
Gxju/PBoaw312WDoatUqUQ312eDajHbHbtn9wwazTzraxFZTnw2izj64Nr+a
+r5tb+yOUs1q6rPBBItLayvoftRpg6TLrck7qqjPFj0tgeGSKuqzxQZRl1JX
JfXZYv6wlabRldRnCxc5y+celdRniw9uv3gMqaQ+W+i5t63MpftlpC1C39XZ
+lVQny0ufdK9yK+gPlsE7j1R3yq7/9ri6fQhKaGy+68dlgls3MaXU58dZrpd
jX1VRn12MEk0yzlH9/Npdgj0NP7LvYz67KBRYWCrUEZ9dlBC2JGMUuqzQ41m
5Y3lpdRnB7NXVqmjSqnPDiN+/Li5ooT67HDe01d5awn12ePes5S1lvS8oWuP
97znl28XU589lDVMMkOLqc8eJ5t8z44rpj57mPYULnlRRH328PXX/HyqiPrs
8W69S8CUIuqzx4I+u6b39DxUa49DmxOGXS6kPnvYfPK3m1NIfUIEec+WDKbl
1YToOPTGML2AeoVYGvP+3e8FbH1zIULHDU7VlD1/CdF8OnlBQT7zIMTb17vf
rs2n3yPEiY3yAfr0/DZfiIkxcS+r8+j3CeHv1zk7MI95m4Sw22yRbEHPf8FC
pOrUfm69ybyDQuiX2bqE3KTfL0SDWnSQmJ4fLwtxod0npSOXnpeE2BhRff9w
LvMKhYibPVjJWfb8KYTfxylWPTeY1y6E+vJit8gbNC8hvhyPXDPlBvN6hbhe
+TKsP4fmJ8LEay2JF3JofiLE7V5W655D8xNB1erSm6/ZND8Ropef00nOpvmJ
oN/p/vOibJqfCO4bMwNUsml+IqQrFaVkZ9H8RJD2er31yaL5iaD+ZbuTdhbN
T4SV2/45WJJJ8xOhzze9a0MmzU+E1xf3ufMyaX4i+N52Laun5/nLIhQU5vy8
4zrNTwQbh4xm6+s0PxGMXD743aH3gVoRTKZMHHMgg+YnwjRNz7YfMmh+IlR2
dcR00vtErwhhuWd2RqTT/MRYyxu7dlI6zU+M6UHz1vWm0fzEWD8ibk9sGs1P
DFNeRaJ7Gs1PjNbnc57LpdH8xGhrfDUuJZXmJ0aav9l5L3q/mS+Ga/4RA41U
mp8YU7tyU/NTaH5iLEl0XLyO3o+CxXg9dh/PMIXmJ8bhBfaf667R/MSICb3+
Zsc1mp8Yzv+J+GJ7jeYnhv9eN/MHyTQ/MbT1Z6w8LHsfE6N5q1bZT8k0PzH+
navi/PoqzU+M2uCLjeeu0vzE+PvetOBZV2l+EoQH+U6Tv0rzk8D56irHNHr/
05Vg7+D48cuu0Pwk2OAX6jXyCl1/JHiIVTFlSTQ/CfJ/uiwfkETzk+Dwtb+D
LZNofhIUrDhleCeR5ifBlrb3d8MTmbdJAiWtoTnOiTQ/CTY/Nch8nUDz++bf
2tMck0Dzk0DVZe9wzwSanwT86SvXK9H7bfq336Ma+CY7nuYnwfuAgb/WxNP8
JHA8YD/HMJ7mJ8GCH+Y7SeNofhI8Cc10CYljXq8EKWdC1vwge592QG7al6zu
y1Luv950CtQ=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nlYTvn/x/H2aVWKtGm52+72e7FmOC/V2EekCUP2LTVjSCF7RaMkW5LS
okUqad/3SJE2imqIQUMxI0rE6MtvPu9/fuefrnN1zuM8z+u6r7uM1m1z2Sgl
ISFxSlJC4tvP/39ciPx2XOEWJv2Ws/tfV+6/8yJOJyU8ZODzBm6C+NtRw71b
dD3YxG8b+309J79/iuOz4Z3cf0oztzHRxT9jsh+7/i6nPrjvoJ33QW7zpm9H
O/fku+sjp9382f0dXBGyTqS8DeTuNHw7/uC8ZshYF4YGMe8xxzti1BxvHsyu
f8Ip6Grl/FB5nPlPOffhWUsCl4ax+59x+R5vpse+P8me18N9iUhKSsVp5r3g
OjTS9NqOnWHeS65/OPGEautZ5vVxN/ufas/XPse8V5zVqBnqe1ZHMO9vLmNs
k3RI4nnmveFaJWPzdryIZNe/4fY021jzrKKY389NLHmaFuIVze5/y72V3VgS
n36RPe8dJ0itM13aF8O8AW75xWUHnMfEMW+Asyg0/nFSdhzzBrmad8Ety53j
mfee62z7Uzq3L555Q9zGeHdpLugS8z5wAxK3NAeNEpj3gbO9PvNqc0kC8z5y
b67UrWpwTWTeMDfdvuvVn68SmfeJCy977aAamMS8z9wfW7p8F+gkM+8z9/rh
D/Xh15KZ9y/3i+XzpB7Hy8z7wg351iXY37/MvBHu97igI6EeKcyTwJ4vG6d2
Daew6yVgGbOpwyDkCvMlkOrkkrZUJ5X7v9vFknAIvWZ4MCWVPU8S9oevtp+e
mMY8KcxRkjwXVpXGPClcv5rnsmNBOvOksPyvfqsp7emsRxpy+dc8H626yjxp
JKd5HF3Xc5V5MihULNOp9spgngymbpDsH+7PYJ4MJETtw4q+15gni9O9yS5v
Plxjniyc5c5cdJ2eyTw5tDSvVr2wP5N5cvDuOnxzdlkm8+TglSzDc/+cybzv
YKv/PLTDPot534E3p/R46e4s5skj78WmbNn8LObJo3pNamLu2yzmyaNypF2n
3jabeQrY892Whw5bs5mngDXR8TeMkrKZpwibh9ZlG7uzmacIi5+zy0Zp5zBP
EatMvJv1XHKYpwSb1McqJ4NzmKcErXPii1uqc5injN//lMxN/pjDPGVULbkX
Pk+QyzxlrAoqOeO6KZd5KuivfaZ0IyqXeSqorbf1iG7OZd4ouIeV87pk8pg3
CqP2ni05PCWPeaMQ3W5UfdIzj3mqWPX4UZN8TB7zVDEm6MnvvU15zFOD4sDO
qEmS+ezzpQZjqeyK18J85qvBv1yrQG1dPrtfDddVrBbEncpnz1PDxxPyLhcr
85k3GifuKiXK/0PeaPwl6WH6VK+AeaPh8/5Opc28AuaNRsag9JaXvgXMGw2b
kdMa4xIKmKeOsJZN1QWNBcxTx0iaz56Gj+Sp41PHFkc3k0LmqSNDY7bAbWEh
89ThWmr4051dhczTACdXfrs0rpDto4Fmaeds0/pC5mlgWup4K4V+8jTQemvm
yi1aRczTgIzc0m1OXBHzxkC+eMKpmI1FzBuDtr8v9+8KKWLeGDhydjUtmUXM
G4M35YX2V9vIG4N9XWvDlIbJG4uMSVOHX48vZt5YvPKVyv9pZjHzxqJb4fMX
xw3FzBuLkLZk9eKjxcwbi8OtYXZFKcXM0wQvWDfc4RZ5mijYsSRgaR95mphh
nGf/UamEeZrQWyb9mW9dwjxNjKvSkn8xv4R54zB0qjR2smcJ88ahtWG3tHZw
CfPGYRy3wzs0hbxx6DZ3sDtXS944vDrY4jPhGXlauNcx8YiHZCnztPC+JezC
JP1S5mmhR6avP9q+lHlaWBtgUHvRrZR5WhAX5y6y31HKPG3suXGj3juUPG3o
mf61eX4KedrorVdZU11NnjaObt/1vOMP8rQhP+esxZn35OnAorZ/xT+qZczT
wb5qs9R/+GXM08HL9EoufGYZ83TwtFc468nyMubp4J/5Vc/ubS9jni7eHvfD
9mPk6UL/T4N9BXHk6cL9gF5hSgF5uhhQ3a0+q5E8XTRZ3E4++Yw8PfxyasKJ
Y8Pk6aF3i3O3UK2ceXqIs7HMCDYtZ54eZgbMUA63L2eeHp7UeMi7OJczbzxW
/tiTUb2+nHnj0R74g8KLXeSNx5xjW/VrQsgbj8zQI29dY8kbj5R7qkEx2eTp
Q31WXWfcDfL0wYvMfLnyAXn68FdSunq3lzx9rIhbpiv3L3n6iHi8lD84qoJ5
BnioKXMj3rCCeQa4KBnerSyqYJ4B9g8eWD/ZsYJ5Bpjl6T2V51rBPAO4vVs7
u3EDeYa4Hrznt+992PXahrBfYBn+y5EK9n1jCM/d5mfWhbP7FxiivsXjB70k
ep4hts4SBUblMu+QIa48UzZ9UkPPN0TR2HvDr1uZl2OINp3ctuon1GOIyDrb
gDVvmNdjiND9Bo03v1CfEZ5eXl2xT66S9RlBo8DVZq9KJeszglfHttOrx1Sy
PiNMzfproaVuJeszwohiWlWXUSXrM4L+pvVzdvKZF2mEh2G7uAFb5uUYYbLz
KKmVE5nXYITThqN706Yxr8cIGSO2i57NZJ4ED0pcd4jsHOrjge+54Z3qQurj
4fmUpi5pV+rj4e5+ycgny6mPB19h1v4rq6mPBz9fz64VG6mPB5W0CKmPW6mP
h/kH/RwO/0Z9PGD01JcDPtTHg4XKH46ue6nPGK0tLjGxh6jPGJ0Rvo73j1Sy
z48xPKNU9n8Kpj5jJMxuPKN8kvqMIVq/rkkxnPqMsWb6Vt/3kdRnDP2ug41N
MczLMYa/sb1eRAL1GUNLSZCwIIX6jNFU9inpTTr1maCsdvqmgCzqM4H/xDgT
2XzqM8GDyg5D32LqM8HfzzMj28upzwRGMiMNZjXUZ4L6nTlDm25Snwn6Ytp/
irhNfSZf//6F8gqbqM8Eu37SOV9/l/pMsH39s39u36c+U1iLfddVdFGfKRT+
9jdP7KY+Uxx78MLH7yn1meIRcgMc/qI+U4Rs5h393Et9pohYm5iV8jf1mWL7
wJOps99Snyl4nqWLHwxSnykaNiy2WvmR+kyxIvrfodbP1GeGNVdWv/heoor1
mSGv6GfrC9JVrM8MSk7a73rlqlifGXbnqHraKVaxPjN4K41UbVapYn1maA0c
MjmrxrxIM1gbr6jM1WBejhk6HR5X1Gsyr8EMVwzOLryrzbweMwwveXiuRY95
Eub4edGB6usG1GeOxNsRw+k86jNHjFXa5mBT6jMHryda6M6nPnOc6cw/aGpF
feZQTEzd/dSG+sxx5+kZhwgB9ZnDM3BYaqaY+syxd/Deo8cTqc8cl1YHD/tO
oT4+trYM7JGeRn185G9Yf+jodOrjo3NltEAC1MfHgund6b85UB8fszp6NB84
UR8fUiv7wibNpj4+huYmTjk+l/r4aPabJ+yYT3187FW+EDl+IfXxYeR87+Ty
RdRnAf3UqomhLtRnASe/nORCV+qzgNTLI5J/uFGfBYzL4tcPLaM+C+w0+fJS
cQX1WeCzLy9L0536LFD+zrxNZzX1WSDWt2T7uLXUZwEe3+CS8nrqs0CumfXh
4Q3UZ4nTFq4WTzZRnyVCxyfkVm6hPkvsLan8PnIr9VmiVett51Yv6rNEp1A3
ZeKv1GcJp18rSz9uoz7Lr58veWHBduqzhP1wid6v3tRniY6geRH6PtRniUnh
dQV1vtRnheTIt2e9dlOfFey1bX9Q9KM+K/wmGfIofi/1WSFA4oaveD/1WWHu
fSfjigPUZwX9ZKOPToeozwp2E3gqNw5TnxVkReXeXAD1WeGDr8HM3EDqs8JP
U42PGR+lPmuoO6xYHRpEfdbw0lW93/879Vkj33669OJg6rNGlGn0+9QQ6rNG
yOmompHj1GeNlsCN+5xPUJ81FDZ0iy6EUZ81xqqmfeg+SX3WuNdr3m14mvqs
se2V99DKM9Rng99jvVzOnqU+GyjyMyVuhlPf13PEqA+eoz4beAuXn9c/T302
aL9dG+8YSX02sHE7NWPDBeqzQek+/oFDUdRng3nTqredj6Y+G7jVrOClX6Q+
G3SuKk4siaE+W0x09pK9GUt9tohIqXdpjKM+W3yyGLzQEk99tnAd/bCv+RL1
2aL61bQlDQnUZ4svmyMf1SRSny3KNedHFSRRny3yp/mcu5xMfbZYcFzp4ZnL
1GeLpf0te/elUJ8dLjm5H1x7hfrs4K40ZsAhlfrsEGRj12OYRn128E8tXvsp
jfrscHDeuR2t6dRnh1U/+pokX6U+OyzTfObvm0F9dpjZNiPS8Rr12aHRunSH
Sib12cG+fYvOvUzqE2Cpg0VURBa7XlmAPycXjyzNpl4BftmW5TI2h91vJkCe
9YGYpq/n//1/I4Bfm8fro7nMgwC1R87PnZZH7yOAySWFsld5zFsugMHm84uj
8un9BLjo+1ltdgHzvAUYvf6WzJsCel8BBifvnHSukHnHBWiQmHdtahG9/1f/
R7/dnUXMSxZgco561O5i5uUI0OYsYTimhHmVAqQ7qaldLaF9BFg84Y23Yynz
OgRYVmrrer+U9vp6/npa0ZYy5r0TwK3KI22ojPYTojzslSiwnPYTYuyhrqWj
Kmg/IbyGBbxzFbSfECqatyN1K2k/IbLlvGpjKmk/ISKCiq8ZVNF+Qnx2cnCP
qaL9hNBw2tmuU037CaE99zIvvJr2E+L5NK25KjW0nxAtwb2LAmpoPyF0j/Nn
DtXQfkKcfFhj6HGd9hPiZXX4+wfXaT8hjvmvrp91g/YTorjyVmz2DdpPCP8O
j0N6tbSfENJTC7cH1tJ+QhzM1vHrraX9hHjU1h278CbtJ8J3TniZeZP2EyFP
cvXK0XW0nwiS9XNHttXRfiLUL/94v6GO9hMhvW7xK/N62k+EzAaew+F62k8E
JWV+94N62k+EaZsV6m1v0X4izHNcIRtwi/YTobI1JrLtFu0nwq/uDiFmt2k/
EcRB8d0+t2k/EfaEy0bX3Kb9RCjOSbqh2kD7iTA46fLanxtoPxEGusf7JDTQ
fiJc0lOW7Wug/URwn7NeU3iH9hNhcp90hs8d2k8EfChrLrxD+4nxUHFxwPAd
2k8MgwSvW/aNtJ8Yk9Zmpu5ppP3EeMGl8wsa6ftHDH7j4znvGmk/Me5urlC1
baL9xNj2S+rhzU20nxg6ewcvxTbRfmLcinm+q72Jed5izA3NklFupv3EeNR+
+Ec0035iNOhsd/Nupv3EcLA/bpzUTPuJ4RTcWtjWTN9nYijITtKRbaH9xHD2
i5ovbqH9xAis6Fy0poX2E8PtUbnN8RbaT4zvHeV68luY906MKX3r9j8mT2IC
lpz0G5JvreL+B2DrzL0=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nlYjfn/x/GKFmpCaTmVlnNOe6fOEmW9X/Z9kKWFYerbRpaEKIZKDC2W
0WJJSWnftFJp7OQbIrKUiDTZ0qJoEl/zm/fnn9/9T9e5zn0/7uf9us51X5l4
bHDyUpCTkzssLyf3z9//fxw/9s+RyeV5qamFZkzh/v18nhuadvPBvAwnzl72
z3GFE74wKO/oX07fV3PH3g1W3pHuwf2r1HJeHe3L4xf60Pl1XFnaKVdxnx/n
4/3PUc/pmy7aE7fQn65/wulNcrs6NjWAu13zz9HIuadkfN/8eTN5LzjXlJHO
4+dspfObOcVxd3p2JQSR/4r7IhevOaZ9O13fwh3z7etZyO2k+7VyOTuqvjTP
DCGvjdPO8xt9aUMoeW+4Cz1q77n4MPLecbNvfHjhXLWbvPfcH4vsXiq8Diev
nWtZ4XpznOpe8jo4w962wD7x73R+B5dxq7HRcdk+8ju5uXpcT1fwfrq+iysU
5t4wSYqg+3VzU/oafP+8HEneJ87ssF7/tddR5H3iHunfy7NTOUBeDzfed+By
r+VB8nq5qVb1lyNMD5H3mQvXdbS6UnKIvC+cg/yaO8nTD5P3hYu76dUueHiY
vD4uV+/QvRmef5D3N7fN/MMN5e4/yOvnEnIXW3mGHiHvKzd6fqKb67AY8r5y
RgYNV1oSYsgb4MYEBj0dZBVL3jduyeBAg+LSWPK+c/t7wkd0T4kjTw6B3uPm
Vt2Jo/PlsLpb7KXpFk++HIICbBU7WuK5/7tcJg/5uhkNizYcpfvJQ2QykDym
7yh5CmjP9jBMCDtGngI05tsbh6geJ08BI+t6Ql8cOU49gzA5WtWyQv8EeYPQ
+/c9RfWUE+QNxpGkIs1HlgnkDcb1rxNcRxYkkDcYyqW2bVdGnyRPEenPo5+9
Kj9JniK43wrdA7hE8pTQKV2Sse5KInlKULWN7aibkUSeEubNVt2TUp1EnjL0
z7/65YPpKfKU4ZMl6q/wPkWeCtIz22snpJ8iTwXjfbfob/jrFHkqmL76gYGT
eTJ5QzBqd7PBa+9k8obAOMZ+tXlaMnlDcXe96VLd18nk/fgsVz22THCavKEQ
nP+wZZDHafJU4SXRWf816TR5qggzDIpKfnaaPDXIojvRpZdCnhqi1yvItzun
kKcGl6BbM2NiUsj7CRc8B2JbalPI+wk3Qho2NqmlkqeO2rMWPqGzUslTx691
fOXbu1PJU4fH71vbLlalkjcMOYFj01f0pZI3DBXKD1uSZGfIG46wQ4NnRaw7
Q7+v4fBTubpDP/0M+cOxlJtmv/jFGbp+OCoTnwklvDS633B8CFIYWrIojbwR
GNslTm3an0beCIzZ3HIu91IaeSPQcn+vBr8vjbwRuKzoHjJenE7eCOw5EFnf
551OngYSI5s+rDiZTp4Gmrc3p3jWpZOngePnyp8OH5JBngaWZRkGuU/KIE8D
8y9MWrNsUwZ5mnjJO3fyY3oG7aOJRtMwZVFjBnmaiL3fmKQ+PJM8TXRVTvpP
zNRM8jTRwp/qVBWYSd5I2BfFb4zKzCRvJALHv63+1pBJ3kiMc6z30VLPIm8k
SufeX17LZZE3EmsSR5XbbcwiTwtDbXOPy05nkaeFNz/xeI33s8jTQk/C/iWW
g7LJ08KO4tQN+rJs8rSwrC74UKFHNnnaqJ61+UX74WzytOHmMSmq9mI2edrI
TTp3xfkj87SR/LH5fPioHPK04dV3LdV5bg55OijavOZC7bYc8nRw4Egl13Em
hzwd7AzZuab0fg55OrjUbb9L8J15OqhoHnnZwTqXPF14TO8M6l6WS54uAlQs
O5aF5ZKnCyW1WH+P3FzydOG0OHC29uNc8nRR7+T53wCFPPJ4cPEaP3ubTR55
PMxZraprviyPPB78flc6uGtXHnk8fBH6K4dl5JHHwx6FqEbbe8zTg9r+aL+9
fczTw50Zv2vuN8knTw+tCW6jHWbnk6eHN4npssP++eTp4bnphYD4+Hzy9OGr
s99lTlU+efrobd43L6uFefo4qvOsYbliAXn6ONM6PWysbgF5+vjLx2dBu1UB
eQbw+1QXFDyxgDwDRP120bFpQQF5BigJGLjC82CeAXhXPy4WbWaeASIUIkx4
e5k3CiUJ072fxTNvFO6PNVgRnMm8UXgpCZ3YUc68UbgiWD6dq2HeKDRmDOT5
PGOeIQrNBKWr25lniMlVrXHTvzPPEKNdq6L7h50lzxBPHmx+FGl8ljxDXJ4j
PNsrPkueEey3il0mTD5LnhEGJkwe+suis+QZ4e2MiYqu7swzwqrr034Xb2Se
EWYtyLnzKoR5xuis/czbdIjO5xnjRvbD9Kaks/S+MUbhK16ZWT5dP88Yf60/
v3duFbufMV6curZ0/m3yQozhd9bnPzaN7P7GcFvV2N72lrwiY5TmbXDY3cd6
jCG6vG1Hv3Lhv16rMTzuLh1YpF1IfSZoF/n27RUWUp8JLoQMLzguLaQ+E8zv
y/o1GoXUZ4Lu4sg5q34mz9sEDrL+nOEryAsxwf7X0hvJq8k7ZoLIR66PNbaS
V2SCtxtCjTzDyasxgens0w2xh1nfD49/bG5GIuvjI7JVkHcim/XxoXq7abL/
OdbHR1X05Olm11gfH525Cb0X7rE+PrReasc4NLE+Prz2ZC0/8pb18XHHTBB5
r5f18RFmpf9rl0IR9fHhFNKn06teRH18jFj/8WOjXhH1CZC3rleYblZEfQI8
NrzTvURaRL8fAfLn/n20dSJ58wTQkLu0cMVs8rwFcC+ycC5dQl6IAPrhvX99
WkXeMQHG78mZpOtHXpEA1Qb74owDWZ8AUzeFWKmHsj7Bj/fhtNHNkaxPCLPG
8Z3H4lifEDOfhRx1TGZ9QsTceuV5IZv1CdHk8tdBi1LWJ4Tm+z+dgi+yPiEC
Njm1Ft5ifULULZbtvv+A9QnRu+qM+5Mm1ifElKaj52+0sT4hMk5kXT7ZxfpM
cVJVULz8K+szRdDmnqvySsXUZwqJxZ/Wh4YVU58pNKuvGyrziqnvx+fj/XXe
/GLqM8XRp59C8q2Lqc8UEHW6NduTV2SKP4bUx32dSF6NKVQd7VbLzySv1RQH
XWyVOhaQJ2eGsoCs5Jsu5PHMUH/QaEOkO+szw5aVecmOa1ifGV436a+tDWB9
ZqjVvSe3eDvrM4P7k6eHL+5mfWZoC3qzkBfF+swQlbdwwy8xrM8M31coG0Yn
sD4zdAWnR2eksj5zXO1e156fw/rMURE7zj+lmPWZQ0Xp0JTdlazPHGUVR2IW
XGV95tCQV49VqWF95ojuXx2QV8f6zHHtfInb5AbWZ46Qmae3X3rJ+szhfWO3
gt1b1mcO/z8WGUR0sj4LhK9I67n/hfVZIGLlxfIhciXUZwH3PaHxtsol1GeB
pDMbyiarl1CfBSTFxdOnapVQnwXWDDJaJzMooT4LzAo3cdEQkFdkgVFqD8Qv
LMmrsYBtYrfxSTF5rRYwP/9y0WwH8uQssTIj833LRPJ4ljj9uJfnP431WcJT
bKTwbg7rs8RaP8PbSxexPkusC4o/XeDM+izx8PmDzP5fWJ8l9hhWD3HwZH2W
MNIZ9sZjDeuzxLitb9ft8md9lhgQzqqKCmR9VtDKq/oesYP1WWHe+QPOwWGs
zwqNQSlv3faxPivYmR55ZnOA9Vlh15qkJR1HWJ8VnN+XbDpzjPVZ4VOF/8p5
SazPCtr12o6vU1mfFa4lJwj8s1ifFWb6p079kM/6rFH+bWf5ihLWZ42bX6yz
qspZnzXu7XCz17zI+qxhl7w62O0a67PG2r99T8bcYn3WyObzqi7dZX3W6Jr8
/mvzA9ZnDft4peCeJ6zPGs4K3NKvTazPGpUHjPJ6X7E+G2R8e53S0sb6bMB3
Dl96/QPrs4HL2uTmE12szwb71h/z9vrM+mywdutOBcFX1meDKzq8ugdypdT3
4/vXbT3BiqXUZ4O4Iab7tIaWUp8NHO5WpqWql1KfDU5LXNZbaJZSnwgT/Fz6
T+mQxxNhcvjj1eoG5MlEONKc+9DfmLx5Imys83W7KSTPWwRz4VJNLUvyQkQo
SQvWdxaxPhGMrp2MPiBhfSJUqyO8YjTrE+G366d4TWNZnwhC/ws+vRNZny0W
rHTaN3gK67OFD9cQozKD9dkiNOtImsIc1meLmuyt9V3zWZ8tTi+cNvHJItZn
C3PZtu6SpazPFr8pLhmx35X12cLZoCHP6RfW9+P8vrpXGu6szxZtdTdvVHuy
PjvICVUCtvqyPjs8szjTp7+W9dmha+O2LWUbWJ8dHnkZf529ifXZwahaPrUu
kPXZwXHarN1LglmfHb63tebX/Mb67MCVHeUmhLI+O5QZN89MCWd9dvCJUmuS
38f6xLB4ItZxiaTz1cTwfC5SSTvAesUY05V77d1hut5MjKpVZp6WsaX0/40Y
JzoefV55lDyIUeJ9NybqBHseMcb1v/65MJE8VzEKGy6NrU1mzyfGzrR639ZU
8jaJYd/q9fFTOnteMUKidr3ozyIvSowBP4UF/bns+cUQnU2Y311AXpoYlW41
7a+KyCsS42PB82m3S8m7KMagyh73/PNsHzG6z39zjqgk74kY/COVjiv/ZHv9
6Pv5ipb1ZfK6fzxPeJBc51W2nwTLanWHFtxg+0nw36l5U31vsf0kaH6gV8W7
zfaToO2OZsTVu2w/CRogOOd7n+0ngYlfhovSQ7afBDE2j7effMT2k8Br/QWJ
7VO2nwQ7D46NONfI9pMg7s7g2AnP2X4SVBTluZc3s/0kuLUt8bukhe0nwU8b
NXemtLL9JOD7m75Xf8P2k6DE7prL5ndsPwlyiyvv131g+0lgU5TvK+pg+0nw
d6e+ZWgX20+CxhxX/t1PbD8JdHtPeOh8ZvtJ4ajT+dm1j+0nRU3HlI64fraf
FOtcnV3vDLD9pLi3vRZycmW0nxTD7EXFNgpltJ8Ug9dWX1w8uIz2k2Lo1qZN
W5TKaD8p/NbufnpYpYz2k2JLaK585lDyNkmR4CHuLVcjL0SK8MiqqzfUyYuS
Ii7xTdDd4eQdk2JJBZ9/X4O8NCmCHpRX3x1JXpEUZYNf7bipTd5FKR6+zJlZ
qUtejRTih0PHZOuR90QKiWft4lgD8lqlUIkqzAk2JK9bioqfZs1bbkyenAxL
/xwyyYFPnpoMkxucotWF5PFkePez+/RmU/LMZChQWbYx37yM3j8yfJ022iDI
ku0nw6GnrQsnWbP9ZBi7d4zedxu2nww7Rz8Iq7Bl+8nwaeGS2E1i8jbJsF5R
vMJcyvaT4XrUteZ6GdtPhowtLuKw0Ww/GbrfjnCydGD7yfCtT25RjSN5RTKE
P9Zz8BvH9pPhrOV4daUJbD8ZdkwRvkiYyPaTYd66XaV2HNtPBg3Rs+NVIK9b
hohdJXGzp7D97FFv6FtUO7WM+x8dxau/
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226700330752*^9},ExpressionUUID->"04e6de98-6dae-4fe9-ab78-\
dd45457eaad2"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwt13k0lc8bAHCyu7Zs2bLv6703JGLsKiJLUkiREJESWVKERChF3yJSSZE1
kf1B2Zf7WiNL0WYpkhIpv+mc3/vPPZ/zzjtn7swzM88j5R5g57mJjo7uOj0d
3b/fO35l7fIZjED3/2dSO6uzH1vkcVri8noQcqXoV4/eZQTW8zom79diUPsj
yj69HEbg/RFxQeNMCgqd5BX5kcsIVYalyY+XbiLKRlUwy1NGkI6VouUo3EFV
a09vBT5jBNc1c/uYA9nIky4vilrLCH9v5ebmG95HR6L1OXe3MMK3tYfJ3H0P
0fKne5+eEYygwmXAG+qWh643h9wInGCEPvrs56c/P0GxFv0+F+cZQatmuiDR
7yk6kaqXMfGbEcj5bXIH5oqQgE0fOYGDCZReyOzVLitBnewJnFHiTDA6OMVQ
PleKPiafWgAKEyzTdQj+kHqGTMLYAy3MmWDxSdvhLody5Lu7np3XhQnS6r4Y
c8c8R7PfrfjFzzDBl3Gz9rTiCsRn6NjincgEK8FtD3SHK9HQl496Cw+ZIPSv
5443ay8QyxhXUFEDE+Sb2hUcEKlGLHbn7R+8YQLdqMKhVK0a5J8j9ajjFxO8
LHxud9qqFhkc6ZGU2sIMzBXFvhOH69C7xHH3B9rM8IK9TqTJrx5xrvSv7D3A
DHTUoTX24AYkG7rp4NZQZrBhvnHXQR/QGV+ZBc5MZjjzJqrVog5QotB3PjFg
BnXxD0kjuo1IZrSRz/QDMzz/fLyMqaIRsdX+VY8msQBsDIm0qzehiJtVGX1U
FjiSmfNKKrcJJWSKXqY4s4DSobI6LuFm9K5wUDAjhgXU8t9yXktoRhTPSydI
xSwQP0Vf/mi1Ge2P3nQ3cpQFDl+uueFw/CXy+FX3apGZFVra1X0yaS8Rn878
qqsmK3CF36yJ0nmFdjrC3iZ3Vjj8dqKXNesVcmpJGhROZQX25aAMbfoWpB48
8ehIEytE1wtV8ri3oF0q4SOp31lhNZnV7i60oByB4/FP5djgE72P3LRYK+rP
aO174sQGRT8YvGeCW9HHoO6xuKtskEIcb6rsaUU61AgaamSD3yPeJo6ybWjO
+8wE7ScbONRK7u8OaUPLzx8aaKuxA43BpkyuvQ2xTv0h+x1jh74OIxdvoXZE
CmL+65/JDqzVmtezPNuRPGvgiu4gO5ggjWaipB25tN0718VFgog3R1NIa+3I
2kfmk8RuEswHb6rYb9SB2Hkln1FiSJA4+Ii3Oq4Dpd+uOfC3gQTSCaJpxh0d
KOLyaefodRIYyDzXXSV1IhNzn33VOzhgS6MQ62fLThT7q2zgfggH9HWdYxBO
6ERZR1JSdSo4YFLBWCO9pRO9t7xneO4HBwyMaMX60Heh2kXB+4e1OOEj49y3
TN0u9LtwJO7zWU7YVl2+T/d0F3L4734nbyUniMl98rJ83IUohlsOjf7ihLjA
kA8jY13IS2hUcaceFyi1fHNe4O5GDNNpelqRXDDzFFCaUTcai2N40NTIBQuW
je8HArvRycLZiHdM3CA+JRFReQ+3j926nLyHG5a5z/Ga93QjbbpThm0p3HDy
umbylbVuNPsp/1HCIDfcU1MuSpDrQVPx+rUznDzwrtmH1c6mBxXHqLPvo/DA
UIwZ2+eQHnSmpmnppwMPlCTFLjlk96CdZtOU8XM8wGveNnrvVQ/6cqDqCv1d
HogmkQr7Z3uQv2dWk3sjD9x6e0DxB1cveihGKtj4wAN36dMmOai96KNP7JZh
9s1g7ntmh7RDL9JITZr6pLEZXiaEntp5thddjk6YJ+/fDL7nFG64p/Wibt/n
oqVhm+GEOTUmo7wXOTcyunjd2wxVAgNrX/rw+2LBbLuWzXC7Tf3SkcVedFtC
dCxwfjNM57k1RDDTEK9jHfdLXl7wGwlIdeOnoR9mnDt37eCFDfaCxjdSNPQk
29v7jxsvjKeEoGV1Gvpd7JEzFccLqZKbZwv0aEhbtOzXz0JeIKHJRKZdNLQ7
ijt2xyAvfNDpfcPgQEOzgoruT9Z5IZhSev6JGw3ZG0SVmMnyAWfBrU2rJ2jo
k5J7GqcVHxhu3jGzfJaGrl6v1aUL4oM+wi4r+yINeVwS6BXL5APfDM7zvxNo
yOKAf6z7Sz6gerj3sqfREKVLLY02zwfiby709GbR0K39bLrHBfhBiER+YPWY
hh5kfX0mbcAPdS36xy+V0hDa9cWcyYsfXsOIZHA1DYV/lNTjvMYPUowbXfLN
NBxDGWM7qvhhLmto/61OPL5x6/CEKX4I2S/yX3s/DZn0rJ74SxIA1W3B7g1v
aEiln4chTUsArrz+fDZsmoai2vOz9roJQKKXdNz6LA3lnvDLVLgiAIHL73ZY
LGG7BR2WfiYAXcdsVVxWaUjqicUe/XEBOPLE7fNOOgIVu9S3hbAIAslU+Pss
M4EYqhbNCIognCFtNHpxEmjHdVnKbhdBUJVxhnI+Ag1z16xPxAnCE4mb1v3C
+HtCXDy1VBAO7YtseilBoHanMk73MUHIUinwSpAjkMRwvbk1yxa4MVpxQU4F
92/rYeFI3QLd0zeMb5EJVCUYcy3UdQuE/xiYeKtFoJab1bmV8VvgBLEcyqBH
IJcwM06e8i0w6pJJpjMkkJTWqk305BYwH/ko+NqUQFGN5FVOkhCs7H6oc3U3
gQp66tPLtIUgnOPO7a3WBNLWmnwR4C4E4vmNWkl2BAprUFwyTRaCTTOx9GOO
BDpqfGGYUi0EQbJ/Z9idCdTBxEyn/VEI6r8rDIq4EYg9nJfJllcYpBUl7nN4
ECjFUCI62kAYUpUclN4dJxAKbODvOCEM4TWw8/YJArkZpLoo3BKGUYroYy1/
Ar3s0/59u1kYzxcrpTKQQGPnDW9KLQrDyOU9t8TPEshVTqW7TkwEHt1euul3
jkCm6zZ7/XeLwCn6xImccAI9Pj9aRw0Wgd3DpjINkQRyzK9rZ38gAhqa0pyv
ogiUfPnJ1p+9IvArWMKoPIZAreN03svrIsBr7OyWdJlA61q9TkzKolChq89g
m0AgJ/6GHMUDopCYmtG8cZVAX/15frrGiALbsUnqnRQCfT6cwp5bKgoDswqT
kql4fkiJaX8mRCE+28/u5k0CbevqsvbiEAN2wyzeH+kEKr2UsvBuhxgMdbbk
mNzG66seQj3pJQa1EYqRFzMItPQwvp81TQwcm52ln97F8ZEuda28SQy0bPyY
WrPxfBUvyp9aFIPfSj/uEDkE6v325YCe+FZomtez73pAoDUj+/cCVluhXtAy
ozKXQFfE0pI3QreC1VXS+I08AnlGOIv8ytsK901dLxx9QqDI+TCrjcGtcFlN
46NkAYE+vPwyy88oDhf2pJ/ue0ogvtTuWh2qODgJvo8OLiLQyVyrhBNHxKFH
tfY0ZwmBFrqLxfKTxeGAsVLGrVICbdbZZbBSKw4nA0rtBJ7h+D9zstp2ThzC
Bn2+xJUTaNe9ENcqYQmQvc9WN/+cQMI1VctquyTgbvA6j0UlgRb5IqyLgyXg
x/Yg7fQXOH6nfu7Qz8Xt94adG60ikPS61eXhfgkYtKGT5K8h0K8DzQyIXhJs
NRfPmNQS6J6rufl/QpLg9EWvyruOQFml14NWNCShPmWeGlOP12Pw9DkXC0nw
WyNLpzcQSMlOcmfrYUkoY/ZryQICCZzZnr89WBLWTY1dsxoJVMtWXViYJAnC
u/Ok05oIpGbCQVXKlQQiYXbfpWYCGV9Zks6vlYRr482SPi/xeANT/MgDknAl
2q3d/BWBLlUc/V0zJwnRIz4XxVoItM/EuNaKQQoulImEzWI7mrhnTolIAYup
4UxJK4EaTXZfOU+VAvr23RsBbQRiPtx/auseKXjaZjuv0E4gFn8No6ajUkDi
UJx8jc1gP/7ZN1QK9pg4M13qIJCR3lNHketS4O9qnCjfSaDV1Reh3Y+lIDSN
KbMZ29HLzygWpOCHdt7RQ104vjtC7xq9loL7YhxMc9iaVuPnNy1KwfY5hqKz
3QQSOTva18oiDePstpfWsOnK1q5el5AG7aMl+aE9BDo4Tbrrtl0aFHve7vqO
7bUsvkyxkYaAk/lRXr0E+hEWd4nVSxo6sj6EDGFbuA3unI6UhomhqL2GNBwv
V8c3N6VLg7HuVZlcbLlHRcsPi6SBjUlbhIkgEK3z5nBiizTENIzuO4Kd4Lyl
MHhCGnaaMH+swJ5rXPHy/CkN9tfCVlj7CPTEmvz7AJcMPDurdd8R+zjP94PW
8jLgyhm86R62VuXjkF0GMjDL2bTtA3b++QULc0cZUP8+u0++n0A6QnfqLfxl
oPUvb5AHdmt+Ua9VnAy485ZVZGI7vfQM2J8lA7LH7lD6sGOPKKUerZCBFu4/
6wwDBHr19YZqYI8MCMT4k6nY5m4B22I+ysDbntkpF+w9WuUZd/7KwFLriHIM
dmVW/KFyQVmYE+MTf4zNeB15EuqyEKI/RbRhb547UPrNXBZAmd35IzZzZrim
gBt+r9TeTTeI16M38r1eiCxoOo3pC2F7i7pVeqbg/pQv1atif64yfpCaJwu6
XdHuBthjdSFZTQ3Ynko792Lz2p/J/jEsCzp7bV0PYo9v0DJVFmVBSerYsDu2
8Zxt0jFWOUh76Vrjg62tMOZ1T1IO5i17hf3/tf8bKjOpIwd+xLtNp7Bjdx2s
lLSVA6rWwbgA7OSaDhFPHznobUt/5oc9vNvI7GmUHJz5lHHbC/tdhK36z9ty
MBXGYXEE++BQSbdxmRxY+lM6HLElNLVEUzvkoJPrN9kS+/b2Aa73U3Ig4Mxw
Rf/f+Eru39P5LQdMxtcm1bCD2QbaUvjkgYNIMxLDtqypujCjIg/Ndi9qWLH9
65vqzEzlwfew9aHv/+abITz8oYs8nHztrjSGfWw2oZTprDxYv6/QbMa+01zh
5JMkDzztzZf/rU/Dngmf3lx5WG2tVbuKPae8Pr69Xh7+frhG8cceiZYruj8k
Dy2P5+9aY3P5XennXpAHmVa982rYMTGnLC6wKEBHd/4IO3Zf2E6GbxIKIP5C
se4jjqesTC86Tx0FoEZ6UxqxL3rF6LzZpwD2t6bQHWxxMf1cex8FiDw99C0Q
+5y9vWFPlALgRH7frn/t07MZLO8oQE4C/7Gt2E9XeGbayxQgRKFb6xuO99qi
p7N7OnH7bxPdzdjeFUmbeqYVQPTNRc00bFW/98r26woQ2v8i0BN7lvLTdZRf
ESLWXJI0sUM2b033UFMESRp/yiZsNvfW7q9mivDl4KHIXrwfvQNCNsIPK4Kq
Ubh7BvaidLMcKUQRtszcNj6ObVZkr5eZogj0kUVyZOzq7R90NR4rgsify7yr
eP+7xZtLvAT8vVY3dyN2YY3T9KERRUiBPzLx2E2LXNHfvylC4a/T+62x1f+c
/JnErgQs00fy+bD1pa7qKcsoQe2WYcXX+LxpqLtm1aanBN33G4cysM1I5bLe
DkqwdWKm6jB2eZ9BA9tJJYi3WBmWxHZSSNhSGKsEdTantKfweUaR3lC0y1IC
Orma0fvYZVmCC78qlKAgRLzDHTv/l5NnTq8SnNBtYpPGjut0vWz5WQmWXUqy
3uLzkijr3LdCpww20YNJWdivSU51D4WVQaOMfswZO/lFS5s9VRkmmWaShLBv
Ts/4M1oqw4N9so8H8Hns8CqnoMJDGagvKRrXsA+eGAs7EaEMJ66dVbDETg9L
ey2RpgzRF3TTmLBH6YdgqFAZaEllEQ34vDfdUa6R0qIM4pEr785hF9vaS+2e
VAa2E6R2CrYemr7O+EsZiq1HtGbx/VEQe+98I48K2Kdrqd7Hfs008PaCkgpk
3J0oPoj9u7OvEhmrQLT2+Zc82F8n/vylc1aBnQq5J1vxfWTD01TWfEYFCh4N
Fp3Hju6+1Xv5qgrMDYQmbsNO+bbJbm+uCgRSZphn8P02citVm79eBQ5yectm
YT9ceBs6NqQCRnSKn+ywg3huCD1aUIEVy112LNiSvU7cgayqIGI75F2D78tX
N+YP6UupQvxSt1oAtheZ7xe7rirk/hZ+KI3t/CJjesROFUIv3ewZxPeth5Ob
SL6vKrzfy1ISj31Vw+h2eIwqeCipWuphlyiqu1rfVQUby8L7X/D9XTwg5iFd
oQoy+XJV2dg2ZpyPV3pwfw5S122xaZ9ZlXo+qQJ361Y1Bmy+49LTuXRqwGyY
kFKO8wG/0LP9kcJq0MnTVu2Jzdsnv+JEVQO5L8qlgtjyix6WmpZqwLdjNagV
5xMODB7dPMfU4J6DH+s5bLYO97CvEWow9qHkpCL2jsB8m+40Nfgp+enRa5yP
VARd2VNYpAas3DIV8dhcFw94J7eqQXqf310d7DWboEen3qqB7Bwc/ozzGbub
FpscVtXAL5hn/RZ2cJ9hqA6vOiydMgqxwLbdNcwqrqIOh5bV+37ifKij90oR
o6k6JAU94XqEXdE04TXvog6qv4PV92PvnPSgDp5Vhwh3+22M2M2qRaSGZHV4
m7Qo/gznV1bvDn57kqcOR3J+Lh3Flrdgf5cG6hCvw1jKg73rgc/r6BF16L9T
dKgB52czokqDp5bU4dtC1LeT2GnZdINuJA24eZo+RAy7vqto0EZWA0xy8uY7
cH53beTXgKG+BgQHfLQPxbaOyKdRHTVAPUihSAGbfSCtRS5AA0qFutYHcX5Y
aHujXDheA8ReqRnFYEfkRP3HlaMBvRxZEVTsiZtmpxirNeDByPGStzi/zOLo
2PG7TwNOp3WMJ2Ofm95YWprTgDx7RmZ97LD5r11nN5EhYNVCea4anx8G5PQl
LjJwejZZ3sZe5TAbCBAlw98bt30tsLtsKXFfFMjwvG0+4QfOZxVov/N9Nclg
UjyQ/wA7mVRkNGtIhrwojy5bbHkDh90+e8lAUs5d3MD5sJXNH/h8kAxZntlC
Rf/cUZ3nfZwMYh9tzVywrQfvrX8+TQbb0xUh7NgOii31PhfI8Iy5seQFzq8D
GE2/zCaSgfju9u04NquK9mW///B4/4brCmC7DFYnfn1IBu+wX1ebK3A8PV1a
PVVKhmW/ZzOB2CP1dMT3OjIsPIy1lcQOiWDnCekgg99r41c9OJ9Pyd9esTZE
hgaoMjuPPexa1hQ5TQZVzfJ+FWyzpUeaDItkkDBaCRjF9cAZBlNS/DoZZCxM
RK9gc3hWm3GyUcCKx2FoO/ZxUf3pVAEKtM28zfmI6wmqA/20kDQFEmoyI9Ow
rd0MTLPVKXBSUvukKXZRnhqzvB4F9kYc8P9eRiD3p+yKhRYUOMWXF30f+8Uq
7xNNBwrISrbm22JHSsfF1x6hwOCn/Z/osB2rcl+ZnqTAEO2LTgmuZxT3PHfr
DqVAWbDcPTfsAvu1/Y5xFDCuT9nKjc1pVJs3mUqB3TM1pfW4HirwMHXwyabA
4XwtV3/smfnxQ98LKLCgHSspji3+ebD6/AsKJB/SWO8uxvGtGX6G9RUFcuKf
L57HLrggHnODoID+17S/atirBrzz4hMUCL5kKT+B66/8f88sBQTErL2Tsdsq
9Ru0VyjQf473lQF2Ga+MUjMDFf44susvFOL5EC7/ZMNDha6LD2nZ2MHDlmtj
YlT4b8zq4j7s73/Mj5xQokJihJ8VPfaftwzCv7SooF/oo1WG6z9q4JRMnDEV
LjE+1vPAfq9tepHfhgqBAfFu/NgCe6+qPXCmwqShT84rXD9edpFQoXpTod7g
EX0I9vt0j3ONQVRILv7voiL2fCnw20ZRocHrlvhoPj4vprI33iZR4ezQzzeJ
2MYjvjqBd6jAzMtWpY/tWXOtnj6PCkHvt1Ys4Hq1XTLieuoz3P9wdH8ONoXr
bokMUIFkdGmzA7bYNw/R511UkN7rfYoZ+0KGMWE+gv8PKXTxxWO8f9FT4vUH
KvwMWbvui73ZV0DMd4kKWlc09otjKzEuF//5S4VD2w/qErhe3m/acPUaaRtM
x1cYxWAT5QulMkLboCQzxnc7dqryhnil7DaoKftbOfuIQP8DKdWQQA==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwt1Xc4Vv/7AHCSEknhsedj7+d5ikLcVqSUktAHGQ1ZlZSiIbvISGZ2RiLZ
e92HiIYtUSiVivpE2fnkd77X9Tv/nOt1vc+5z3mfexxJ53MWp9YxMTHdZWZi
+t/5vkdZp2wKLzL9/+G3dJvdgvTB3PPlV/6zhHGN9Bf9pIXy4yPmVk8Cq0YS
2+NUXvx96Gm4tN85sKfr1I2k8SLb9V2Gn1YuQlv7udcOGbx4Ksci8MlOP+jM
ox/SzuJF7vlr/mre/gDNufye2bz4YePTtVirQPAd5xaaz+XFWr3SqPxfwTAz
MKnfn8+LHrrrlWsiw4C+Vuuz8TEvUkMke7LkwmHo2JG0u8W8uElYoHwP3oHa
lceJXuW8aL9ifCTYOhp+rFs2eljNi1WuMzoZCzFwiulhAKOBF/8m5uYW6MWC
U5OrHA/Bi8M8hSKDt++BY6AOp2k7L86u5ERx9cWBVvnZjQMvePHZ7EfB/YIJ
MPcl80t5Ly8qbdHl9nVIhHTb19e+DvHiE0o3S0ROEtxtvXzPa4wX+5gzKi98
TQaeELv5g5950bdHRZmqlAIhJv2uN7/zonr9x8IIj1QYGy+oZJ3jxV+sp+qz
HqeBW6x2ytgfXqQVdMhYT6eD48PzI+zrKXgszeaGOW8mUMz7aOGbKahQI3VA
oywTdPuij9lRKNj6O7z3mHkWvGAP5wwQo+DI4ARLxXQW9EseZ1mSo+CpLHsW
CHsAk1HnfyKdgnNMz/nmJbNB7OhS0FttCqo+1S/qqc8GQz92LxNjCs486jj+
0jIHTCtyT64/TEEdrbffJ77ngLtpEzu3HQXjG38YcAXnAo/4Ps7zLhR8d+at
j5lQHkz9NuMV86bgj9E9nfHFeWBIfGoT9qegp+Ln3EnDh8CjZ9V+JoKCiz4d
2VpDD+F9pGDN+iQK3soMC4l0zYfXPya1f+ZQ0PfvKc23K/lw7kHrjFwZBRXT
Tw+LRzyCje+2XHzSTMECI4tCa6ECKK+Jcgp8RUGDyGIJ//wC2Ghx/Uj2Wwpq
BRS9jlUvBL7B+ImtUxTcy8GcEE0UwtksybznSxR8WlRpccHsMTx0Z93Rs5EP
j32ZVdr1+jHoOnZJSPLz4YaqYvex40UQZ9i81iDLh3mFrqHOk0XwIWLUOVuD
D2vYG4VaPJ4A9cLfkX5jPtQ8yTy7MvsEOBf7Fw9Y8yET4/UKu08xSA4vm2w7
w4exU3kWM0vFIO277pioLx+ab7iXZqlTAkYFQdVe4XzY2+PAdf96CXi7S/3k
TOVD77cBz0waS8A2LCd8togPPfLWU+1XSyBC4DePCPKhqtjnyGGtUnj1k8Yb
2ceH1L0NdxqulILUCMFj9JkPK7+eLmOtKoWMp9b39Zb4sMWxIKfiVylsavir
GsjBj7j2WqhTtQz+aZe3YRPnR9+NZ0YN3MrgWlxtSh+DHx1Ts9okc8vgPDu3
/3tjflQZVW48NV4G4anCYXRbflT4p6xxi2A5bLh5ZFfbOX48Lu3dI2JRDh+K
BvlSgsnrC95zxoSXQ1CVS15ZMj8KJGxPO9NSDvRTQW4cxfx4a4K5Im+5HKQZ
TpM5T/mRODIQv49WAUcD16XdGCHjhdXfszxdAZoV2tuSZvhxtv0TR1tKBZxY
amyb2SCA7Z2qrqk9FVA8L6FzS1QA7aObqG/XVwLPru/L9jsEcMvVuPqAXZXw
wjXzhtd+AUx9LdkS414Ju63wQIuzAB5/P9bNll4JDlXD38z9BJA37MOtqe5K
sGmPHBSMFUD2uYspGsxVsJydfE+8QACl1pU1/6BXgarPWJ5jiwAGNglUb3Wu
All719h3IwL4lFPJLPNuFexVujoc+1sAl6PYLNKwCli/RK8FbhbEqH6OHLaf
VZBFOX3rsYwgfmF2lfkoUg2K3axLW0AQLy28QpV91dCf8qzvkY0gPplnOfPN
pxpEhW3Trl0QRJW1WB7+7GqYvPjqXegdQYzuPd1S3UWux0fzdeQJ4lrhJd+X
y9Wwi3GtBwhB/DN8xtBKugZEMkZjfrwl4/GY0KwO1sD0Ge+xngVBtGyQOPrq
cg0cIy7rfdsmhLCh6UVDZg3MVeboaqgIYQ+LeZlMZw1oqWs6Ve8VQu0CUaVN
szXANvEfzeOkEPY917c7I1ALHFWmOy1vCuH6DdbnjID0xQ1/z6YKIVvdjrvp
p2ohZaqCq6FGCAf/fTh7OaIWZNm8FrUGhdAQ1Fp7S2phPTGvNz0rhDNNNVpF
g7Vg15F55eUWYbz21imaY6UW2kV8lMaUhPGJhubKD9E6OOgq9UXcVBi/+6yr
OqpfB9PaLFp3Twvj+KbVv4Yn64CdW6KcHiyMEYN53HWhdaC+e+cE0wNhDOiL
VqvNr4OE5Hrrv83CSA0Xjjd4XgdWym9yFMaEsfrCkSDr6Tq4FnbBNnBVGHWl
KrWWOeohkF9lC5uwCIrYsKzKK9eDobHroTpNEeQnBNi+7q8H6aumVUk2Irh4
tyFjp3s9hCyVDTy4LIJ9L6+wCIbXg1yiuf6bBPJ6uOAdmV8P6Y7RsbuqRHBc
zkAtob0e3DcVOLQOiuB3/95LOz7Vw6f9mXpX5kVwYFg9xJW5AUKldbqsKKK4
0Bt9X0OsARpm+B4cVxfFyfXTs6laDdB9PsYq+qgoOgWJt6dZNcCfouHQr5dE
cXtdxSGtCw1wsG2myzVBFH3b2jq9IxvAMunBC+5qURSR+eKyP78Btp+MEPo4
JIpTnZyOLS0NQNfj/2dkSRRDvS5/Hn7XADrBgQpLgmLItjdO4d5CA7gIjMjv
1hZDhfZZ259cjfBf0Z+lXDsxvNYiW/BTvhFYPsZrq98Qw2+PEeL1G2HikPy9
bxli+HGKbvzhWCO8C2XJbiHE8Od+4tOAVyMwZvdy4Ucx/HXHT8/rdiN4Fk1d
+8AqjmIT4teqMxuh1azwrqy8ONrfEKnJrybjh4jORe0TxzmuK9zGXY3wuSd7
v5CnOHYrvMiL+dQIGkzn9TqixdHz7o6o2yuN8KQm8GpSmThOnTEfp29tgqkv
BXnhg+KYqaL4JFymCTTkQjzSl8RRP0h3c7xWE0zc0mn4ximBH1pd2SzMm+Cb
sVN9nLgE2h2YfNJyogmKg1XZD9El8HXwnk1fLzfBxaMR/sKGErj3tptYa0QT
eNe3/FqwlMCSyJBflhlNIKIerD1xWgLzB7jC0suaYPeej/TRKxLIbdwxktnW
BHwLVk++hEsgNbnkm92bJvhhXXubOU0CAzk4ivqnmmD9H+M0xWIJtM20Ed7w
XxOcPZXe4kxIYOJ7a/n5Lc0wFtzc/6hfAkf51rdlSTRDjghH4dpnCUxjjh/f
zGgGWZqB1MklCbw+f+PETsNmmHQN4R9il0Rjd29NqmUznPO3PGEjKolWv51M
uk42g1ps5MQXNUl8Gu57fvelZoiL9PAKMZBELTPFeM+QZggLDP9OOyqJ7lfk
7jnHN4ML0yhtykUSO3td94jkNsMr90rhUj9JdDNmBKdUNIPMEQwPiZTER582
y3xobQZbYr2dS6Yk1lIGVn70NcOjqI+eVuWSOChUMdjygby/mC/Dol0SkztU
gxxnmqEoqKTLdlgSI6+Ldz372wzJ4sLvvL5L4seHDs3XNiAcv8//MG5NEnmq
LVWuciJwWzVyPeWmosfwuVgHXgQeU9+FNRkqapZ+OagojDC/h3P3Xk0qrrEX
Em8lEToNoolUMyqKnT6x96I8wqOMM2f+c6DiaPRlmFMl1z2Ocrt5U3Gn+ZZ1
duoIf4pPZE2EUjFWYttUoTYZ79GvxdP3qfhkTfXQJ30EDeGypYUiKnLAeATr
XoS3t7JCYwkqyruf/M11EME0gCtEc5CKn3d1v2WxRJh+nzQ0/ZWK/deZkz8c
Q5jik3d+tEpFH3rp9UcOCNJuc2wXtkqhn4/7W9tTCEd0A0r2SEshZ2HiumU3
hJBjaTrSu6Rwv7+fQcB5hC8KzvGcZlKot03z29wlBNbN29OYHaVQgfOdoeVV
hDt3G7SYLkphX69FesZNhKiO30c23ZLCkUQfw6EQhBNBlG6RVCl0T+G8/icc
YWdWbqxWiRRmm3Td2xyDYGJ9NsT5qRQyTjh3s8cjfPDzj4p7I4WOOm4+C8kI
9Jcq8T3fpVDsrX9XdzrCmD53AB+zNAZKaYkkZiMkHt2kdZoijQIctGyzfISg
w4z8ZgVp7G78kztDzozs9H/LqbrS2NiuczqoFEGH98OeaAvyfvVMadYqBNj7
w5jVRRrf4LCETx1C/XuNzOCr0vjv55Lk100IVycltDljpFFy/dpL2VaEhwIH
mDNypLHzYvni6Wf/m0kp7zRrpXE6/fXRxBcITXfkq0dfSZP/v0hqTTf5/UYP
Xg2fkMbLR4WSOvsRwhRyePQWpdHrxKefL4YQDLuW3f5yyKDydh/n5rdkfn/a
erRJyOCmfwPlcsYRlPq3ssSry+DtN18v+X1EiNZOEvLcJ4NjehVBBl8QAjoL
0g84yGCECzV0dQrh3j+aVzUuymCiU05p/r8IuW4eqXK3ZdBr7oOmyS8EX5/s
fyXSZZDq3nD4zTy57nDxOLVcBl+ePKxkt0zWZ2/BG6UOGbRN/W+xbxVB8pHJ
Pp1RGXR85PB1NxMBIf/czLT6JYOVtf8o32choNiuqePyRlnkMBL8PbWBgI+x
6SWZIrJ4pZzLXY2dAJbamT29dFn05lgjXDgJmOqp8tlkIot9wYvScVsJ0Lwr
TTe1k0VlKVus4CEgbDD9RIyXLI4YvG/u5CNgiKt+dSxUFh+Jxx3sFyQgul53
ekeqLK4cGU3oFSGf3ysmFlsqi/8cutHyVJyAKF3/4IV2Wcx5kbjymEpAp00Z
p/M7WUxXKnQJlyGg8tiuRwOzskidTKXbyxMgPtRkfHCjHN4bqfKXUSLgjK7E
6y4ROWTPKbjyUYV8/8MnTKwYcvjq4z2DRBoB5g/qwj+ZyKF78Mo6/e0E1PIF
x/jay+HV+YGx9+oE2J7ca0rxlsMHDuErPrsIaI+ry62+JYduvXO+LNoEGN6q
TnBMl8OqkyduhuoQYOe3h3NrhRyO2KXSmPQIKAq7t9LWKYdmOuOPzxsQIKm+
bB44LofGw5N8b4wIsF6a/2s0L4fr7KajNUwICCBoy5wc8rhomrPrjikBjqGX
aaMS8tjjt48+vJ+Awq6mhDINeby6+X6y6EECSvQlxaLM5FHSfCDm2CECNNTH
a845y6NYAaEeaUHAI53jx6yvyKORX3lejSUBfs3yv4yi5HHdtxDmd1YE9AT8
uLQrRx6lGrNOLNoQ4GTgP0Svk8eL0n+/sdsSELdvYBO9Rx5XfailfPYEPGfd
wKQxKY9Nv+UGhRwImEw6VKS3Ko8ZPvVe/E4EsF/lZj3MrYBUefEHm08QcIHr
5cppeQWskFUOWDlJ5ltPPDBQVwFjFSwVPpwmQF+kOyrbUgEjRbMr8AwB4NXM
+9xNAa/W4+5kNwISPOc2LtxUwD6BXyNuHgQ46MbaySUq4AhdOF/9LAERJe82
HC9SQKOz2LB8joCnfRp/klsVyPpio1d7EeCdRFV9O6yAWiv1Ime9CXh3XS9O
ckYBh8P2JYpdIuCAijnVc4MiasR3VHf4EGAvo/SqUUQR85J/xXlcIWCfY9dt
nu2KqCWouofdjwCjVfMDZ00V8TxzxFjWVXL/nz5u7nJQxCCmNp/t1wnIvz7S
yPBRRNMhI6nmGwTsPZB5NPWOIorlSS4b3STAqqCxkz1bEdV2UDnbAghIPvOa
60atIrIymrwhiKz3sEeiC92KuOQjrl8RTPbfh63fLkwq4lFNqdtSoQQ8G2U6
M7eqiNwGtg6RYWR9it2K8eNRQg9hrqHZWwSsqnfbsCoqYZWWDsvhcDLfxwSq
4/SUMEUmdaEgggAb3uYseWsljIhNaV27Q8DAfzu5CE8l7A0+dc08ioB/z25d
sA9Wwk0nxxn3o8n61vzXbO2+ElK4CpfGYwj4ejyaPbdUCQem5MYlYglgfdEp
Y96hhOe+ey/a3SPrhyMi/r8xJbyV4WERF0dAG/ubQyXzSsguX8L0LJ6A7S9f
HnTZrIzseunc8wkErMmmhlKllNGbfixJLImA0qDonx80lfH1i/Ysw2SyH5M3
BOQeUkYVq7u6J++T/at6meHpoowN1+Rv3EwhQKvP48+uG8q4T7vlXFIqAb9y
bvWzxSujVast9XEaOd+4A8reFSrjyPG6nPp0cn4kSMZUtCijurkH67MM8vv4
7zsZM6yMifmdFl2ZZH0Vz8ien1HGPwrz93uzCDjsLNpzZKMKWm4bne55QED3
7A9rbTEVbPmufeRlNgHn7t+rklVXwb8uyWOtOQSs6B/5RDFTwSa+/SnVuQTs
1g0ZZjuhglXalxIe5hFwWyQ+as1XBc3ucIzee0gAsxvz6nKMClrP9l69lk/A
qWu2QksPVfCBkb2/0yNy/9omE8tNKmjPwTtnUEDAje9+ZmuDKhimojYpUUjA
/ZWmw2w/VDCwoM7pD+nPT39M8a5XRf99CRf6HpP5cP29VUZYFY8f8JHOKyKA
J/ZVwy6GKtrwfQr0eUKAp0HEF3NTVdQf1E02LCadaxbu5qiKXcoNFzhLyPn0
ziD91mVV1Hp9RmiA9M9XxSIFUapobaCQklhKwKWFz3+7clVxYmfdmnUZAdt2
7dVdbFBFz3OlFpRyAn4Umg5QB1SxUvlGejfpIW/PusPTqug36PojtILMzx3j
qaB1atgekmSqXUn2S+Zl+1pBNZR+sKnxO2n3kTLOXzQ1FHdJOpxSRYBgfe2c
yl41TPNZ3WpSTUD1tN1mTwc13Hbi+foZ0jM81w4W+6jh/M6LGgk1BHAVs1bO
RarhS6Z9xZq15PydWNDUySXjH/C7MkLaxsJ26FaDGu4s5065UkcAddUsbKhf
DQfNmSR46wkoZ58zVJhWw8dGW7cWkV6ybmUBZhoe3jHjbdhA5uOG9OTUZhra
NKhaDpHOtDc2ThIg/UO79kwjARMPbCRNpGloRbgWLpJOL717cVGNhk3R3xnB
TQRIx6jqPNKmIeXmW+stzWR/DF64YmdCQ48VGjWBdGZ8vtS2IzTk5HuRLIwE
KFhI7H52nIZlGzza00mnfKY133CjYWJYXbE4QQDFe2fBTh8arhoZ2KeTTrRM
XJkNoCGP0cXXQi0ENGyqKyqKpKGg6UNqPOlcWS7CLZmGn7UFTDlbCVAx3MxQ
yKVhb/jUoSDSO6eU/34toaHwHXn9RdIGt39RCxpoGDPaKuH6lABlx09pHh00
/NYSv/CGtKRXtAdtgIa3Ax06jdvI/j8femd+nIZ1+DyjjHRQldOf+mkaBg67
3hRpJ0BYpbkqaJGGLJo1XsGkDxkaNJix0NG/TMhvivTAu3ub+LnoODY4nnHw
GTk/DZ1TJ4TouNFI71sJ6XZ+pwvFsnSsZHaw29ZBAGFoevs6g47MnaZr50ir
Tb8ZM9OlY+ex5aGXpDcc7z8vuo+OjzsOf5frJMCYnVnn51E6lrykGgSQ3nhW
Tb/FiY4cm+XH35Du2US/muBJR22XTZ2qz8n5c2T0q7svHfcZ2rIGkb6St/WW
QQgdsS89eZC0vvZjK6G7dDxrbxAh+4LMDyXB4ncqHbeHZY1fIr28XOP7Kp+O
vvGsqa0v/vd/Wf88v4KOdeW5bVwvyf25eOiHIB3nNR46/UPauOPbqPNLOs6N
i17KJm3z3DdN/w0dH4hsZp0mna8hdkPyEx3t957go78iYIfZ6PV1M3TcOc3y
5BLp3+XE/U9/6Ki31NhTQ1ro0kjfs40MHGU/HLRC2ueblvRjHgaKZ3s81+oi
gKls5c5dcQZqOJUU+JL2L1TnuKLEwK/wWL6a9LGPHGkOOxko3/V+72/Sfney
9PYaMrDfpZlLtZsAlzmxObo5A895FgS4kD57paRSxJaBQlfnH2SQnvcLDWJz
YeDz9M+XX5OetBm0nb/AQNPI0vWbewgwcRjc/fEGA8deBxzQIz2BLdJ94Qx8
KeRl5U16253RbS0JDDTQuiOVS7os03Vd+QMGGoX31QySlsl7MpfzhIGbWDWE
WHvJemNemkysY6C5X8r+7aR7XsQNRbQzMLh55JAjafeOoac3+xhoNdakcod0
uC1/kc8YA3cbbpisIv3sZlGU5xQDd007X39PeppYdDm1wMAjMX6LbH0E/B+9
Ylpc
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtVHk01O/3l7K0UalkyYxZ7MPMUKRyowXtlrKl4mOXQmVLZa+QyFYS2Zfs
M/OeSLqFlBaVQllKlrRYQwn5+p3ze/55zuvc+7zu63Wfe668/SlTR0EBAYG4
BQIC/3cPZEapVw3IocD/n0ypwEWt87jEcdmy4HwDGKz+FM74JodLcp++25tv
CgdMPcofzGPaZ9mqkWkbUNITCL/0XQ5v/lgkEphnD+FFN2Yjf8ih48iQTfJB
Z1jeaCP59Kcc8nPvWDGn3OHY8oSXekNyKEM3CU866AneseXSw8NyKK1nXbcp
2xsYAbv/tI3KoV1W/tyZ32dgwlfm2MwvObTKWm2xebcv7DYUNbSalEMh3VcT
F1P9YeMB2bzhP3L4RyBZYuPQOQgxjjr7cHpej8vUxEG4ANeny/Oe/pPDosCa
P92GQdD4by17qSAJ15a4b3h0KhicbriLXhIi4YOJZT8hOQT87kSv37KYhMYN
g58takJhrV/ofyrLSXjdROOLYF8Y+Itdem6ykoS9R6ye6i6NgIbxmZ0Va0go
NzngM8W8BMlBAY/3SJMwv7GjQ+fwZbg3U68hRyLhHmmYGAu4AvoDreeUaSSs
oBU3yKdHQtz2jngPZRIaTLW7PHwcBSt/aDp8VyehQpz0dH1fNMTPnW1L1yJh
q8ybEg3RGBiy8Wq/qkvCzS6zjyeVrwEhqW7B3UbC7SotjyPpsVC/dlhLwpCE
Yet0VGp5sWCVo2lbuI+E2gvcXmXsjIPz5Eq+vzkJk546DlHfx0F4YaBqsA0J
i6Vj3+xyuA7GP6rT0J6EfoqDDSK/rkNn+/SkthsJU4vNVByC4+HKbQGpr14k
3LAvzdpKPAHSbT4MvPQnIUm2vbY3NQH+aXca/wwm4UYf/48LVRLhk36JnEEk
Cc0X+chyiUTI8tls3HSdhFcmwlb+MkiCEy8eF8bfIqGPk+6emldJILmrmXot
m4Suv5iOEtbJwFxxIOFRMQn9vdWFRnqToS/Xo12FT8IFzbvaTU7dANaimtZG
JCFDfjZj49QNsG5Rcs5oJOHQXXu51JCbQKkZcyp5R8JV+7TIQUtT4FxCDWe0
i4SrmyeCP8engAP/mrL7NxLqX12qfF/mFmTYvsiSHifh5N83QmJZt+DzCMzO
/SNhfDpHolU5FVbwxS4vFyLjk5ktVqvLUmG0T6Cdt4SMIoT6QO2G2zDEnu7x
W0HGvE9XO3uqbsMwsena4bVkhPMVdt6QBq+Y5U/3y5JxlG2e71GbBl4GKwLt
KGRcqp440rwrHcTKMCFGiYx7jZeGZz1LB4uMgdn36mSUqeyxHaTfAdde90zt
DWR0LmRM33e6A8fZgyc4m+frFQy93pJ3B46cbTI0NiDPz8dZmVNf70CzuPb6
KSMy7nR9J2uqmAFC9KWtjw+QcX1ot2yfUwZ4f5k8mnuYjOQELVfF3AxY3+iW
lmVLxqaT9EPr+jLg0uztC1UO81jg2SY+NRMoV64NfHcnI7Vy8OxC+0zYXCZS
r3WajI4syZMz6ZmwatPNmeQAMobI+UdndGaCSGWm7+oQMmpeHd02Jp0FtZ8P
yBVeIePVk4ILhiyyQONpSptlHBkt/RsNExKyYJnuvhjyTTI+cJhN7H2dBcpz
CxQXZJCxIajdq2tZNgwoKUT+zSfj63Il52CjbJC1+Zu2rJyMx5spIi9Ds2Hh
moS92pVktL/kO4A12bBnqss/4BEZi3w25R2ZyobR1WnLW56R8b7I+950zRyY
o3kMGb+d1xu7yCjSIwc+fnwk2PKRjO6idYEyeTnAIA0yA3rIeAh2aJl9zoGt
ZrLHNv4kY3VaJ40llQvJsdanl0yQcdBfcAnPJBdG+uPMJmfJuGmMmd11JRcY
N6L7poTlceOZ3nvFj3LBzXRSbM0Keex9G7GKMpULv5xteYZS8vhYyC5oMzMP
JIS0auIo8hgeE9Uy5ZQHKf+9EfulKo9pUV2DR27ngdSMd7T7BnnsPted5dCc
B+ncrbLTevKYcq/q44rF+SCyHLIyjOTxcKGcv51ePtwxOil8zFQe9z3Qczt8
Oh+0E4tVNI/I4xepe7eH8/LBRuP5+Honeeygh4gwOvKhOzTEmOQpj4lvO9LF
VhSA//7zy7UD5HGsWu+/hO0F4MQzpzuGzeunbDet8SkAdfvrZwti5FGLk+wV
XVAAusnlXxbelEefzd+f/WsvADcDssmZLHnU1WlxXiNWCKeWbcv5WyyPxJ63
Nq+hEEQdnWuT7smjW9r6Kg2vQuiL+nLNqFYel6gXp2hmFsLhpPEh8Vfy+G25
lFTH20JI8mqr+9kmjxOpV8yVF94F7H400dUjj4Hc7FMymnfB9nyXY//QvP/m
gNgK+7vgn3N4SvCvPD4zOvN5KO4u7A3Yn6AlREFre73o13gXrF70S59bQcHi
9Hu1FsN3QXqJnleLDAUzhrsrw9YXgbiK17ldihR0nKrPtthTBIZxqeufsynI
OeP24LVfEZhPdmx20KNgTHw1jOQUQdG2g1Urd1PwQtAFN+JtETg5rD3ffIiC
j35pXaTOFcFxXVOXAjsK3u9e/VhbtRgem6scj/egoP3OUf9fh4uhv+mZUZw/
Bb1FlUcOhxRDAslOOCucgsLLEj3ti4shu03h/NM4Cpqa+RivbSuGMR/LuAVp
FGwxdXjuLVgCT0ibFfcXUtDScbOxn1oJ+B2XpZYQFNztunSd4uESiP1m6ipf
S0H3S8LXLl4sgW27oCuviYJ/aJ4iIfkloBu710m/g4LhgtEd6m9K4DdptG9w
gILLrlx1j5gqgeObSvWLJyj4atcliSvypfCJu+boRUEq9qdab9A2LoU/2Uhy
EKfit7Q8zTjPUtj4x8rdRpaKn+gPvJOTS6FYMoXuqExFF8krlrtrSuF7sJFm
8EYqTnZf3lvYWwon7Lf4l26n4g3JznYboTIopNt2DB+kYk7/zpBN68ogbXGW
vsFRKn51dj4wpFIGI4WSMbnuVHQfb/YP2FoGFTEtubL+VIw+jzpdB8rgSf5y
r+wIKvK8Z2ul7Mvge9fsm60JVJSqGzZjnCkD38vTJQMZVIwUjJSXiiiDF99P
DmaXzuen7nTqTC6DyxXvvL0fUPHtJtkjAQVlEOFaQzN5TsUvrOCtI1VlkPLt
7cC2D1SspdrshBdloPfiVbb+Vyp25M+WOHeWgWhrmJ7ZBBUrFKiE61AZrHPs
unV2IQ31a/qTds6VgdPL9sz8lTTcYFVzdVq8HGSfJGz6SaLhh3dnWqPI5TBQ
p7NrmzoNH++mlU8yy8H8iHhp9hYaavkyLbfol8OuJD9rqT00nN2iv8TWpByC
9gyqp1nR8PuurUJWduVw0m9ulaYLDY892XGJ6VUOf2OsB1t9aGh0oOhVT1A5
PK6vzY4Op+Ho699Sp2PL4YyDNNkkgYYNd9/ndaWXw+XllrvoWTSs6JHiK5SW
g6FQ3D/RChp+PVkZsaemHIx9xjVmkIaf79Qf2veyHNicF4/+NdHQvdz5P7WO
eT8+F2+t+ERD62MdQwPfy2H/+phs1hANiZJT2qFT5XCrL7HObpaGjMd+gdMi
FWBEOdhzZxkd7ZsOzZqsrYBI7+sDQzJ0HGK4TEXQKqB8fH/1HlU6PghaUZbC
roAlvgm7+Lp03DdVePzqtgo4lhtzirWbjr+4UbuP7a8AB90IUpUVHbU1p4tW
HKmARlK3nokrHa/0sRsyXCtgzx0KMelHx6hWq7ZVvhXgc/mHR+FlOn4/FUxy
CKuAiD1/95+4QUe6cWZ7YlwFSNNVDbbkz/NRbu7JT6uAHzp+TOl78+/7qSW3
7lZAStmUoPBTOi592aXvea8CAlr7Muda6VhzVX+nQn0FRGnFTQkP0HG0OHXy
wZsKCM88OSLzh45rvqxN0O6qAFkncS89UQV0DC+0if9eAYEGVMeT6xTwlQI1
6s1kBQhG+xF3lRQwREXm+JggB7Zsmtk/qaOApkFTkpNiHICxynX7jRVw5cnh
4Q5pDljLdcxWWClgicckLU+BA+ojdwdobgrYJvfqlzmbA3TPuNqsAAUs3fP3
Rv9WDviGS/hrRCngKoFHB48YcyBttvVXwy0FtOMoWRDmHNh/PUvOo0gBZcIm
v44f48CyIateuQcKuDm8SG+dOwf2lc5qdL5UwGeyl5PIPhzY7lb2M69LAbef
DlIRC+aAUUGF0MVhhfl9uGNDdxQHZn7852QvoIgKHZtHbyZxQCHH4K/JSkU0
7Ay6oZPBgR3aP4v2URQxobHH4cFdDgwPy7od0lTELsuv15QIDqwSLFvvukMR
JX4+NA1ADny/kM65fEgRvU+b9lc0cmBy36J1XCdFbDbTDH37jgN11LXaP3wV
cfJYjt2HLg7k+KrOMq4ookHXjcqGAQ6c8as8HJiiiPm3Ch/fHuOAkoA5s+Wu
It5eSuXazHAgPaLYZ/MDRfQ/M1G3QJgLuySS1xa9UkSW0kPVWHEujDAEZhU/
z+t59kRORIoLZa8m15aOzuOU6WYnChd69+aZ6C9Uwhsfx4NKVblgvu9IStdq
JdzGGLXu1uJCUOmFrggFJby+uCVpZisXVAISl+rqKOFSHQ3XBYZcEG7YKf7H
WAmvWaoLjxzgAqfYtBVtlJDvXZjx1JIL44zbJgkeSthyjXQqyo4LDCnaCe+L
Snj2aEmGjhsX9KYXrrGJU8K+LpkTr725cFvQV3d/lhK+XvdGwOwcFz5+fde4
h6eEdh8+xmEoFy68u841a1DCAf9vB6WiuWBsvL3f8YMSRpccPGWbwIWehUn7
Q34o4dwREbmrqVz402Mxv/qUcCwg72p+NheeNHlf+CCujHW/PIZKi7hAvzFI
XU1RxvuJup5ZXC6s7vhx31JLGUWFYw1Cq7lA/CjekLdLGfn34xMO1HHhd2Fs
0JylMq5aIJYo+oIL8aeXR9u5K+PVaVfvkuZ5vZOVhi/PK2N9Jc9av50L7XJG
WQaxyhhkmHnu0RcumA2HxzzKVEanhlBBje9ckHKynTLmKaPndRPZyFEu7LR5
19zeoIxhR3In3v7hwsDxZWK+H5Ux8ihWLRbgwclMgxsyg8poFx6crC7Cg8ba
Jvtnc8qYnnOKry/GA1VUPBq0SgVZXO7O7Wt4cPHph4BtdBV0W0jy0JTlQbl8
bMFiHRU0CpO3XEXlwXXBFe3tu1Vw/bJ3zM/KPIjw2iTAt1VB9bRf5NtMHiym
iCy55amCipVfTIy1edBmEvPtUqgKHs0v+Nm7lQeCuf+unU9Swcy2SSnPHTzg
imQOnStQQQcmSfDHbh60BHVMhlSr4Al3uZeHTHhwZZ1ayvUmFfTwT84ss+CB
c6lSY+EXFXz/6V3BtC0P8ttD/Z5PqGC43LPF2g48INeLJo+LqiJJUvybvRsP
ZBekSirIqqKu73ePi548kDu5+ecxDVWcpRnVRPvwIEj8n3CmgSquKamZiwzk
weiAhPXPQ6q4tzLGIiCEB8Mf6lv1XFWxwz/ru/VlHkj5n/W+GaiKGvT4TrUY
HpwfTpWduaaKF93SzUfiefCq+dVTpyxVtPjJO51zc76fQoTrB0IVx+97Ht2b
zoO/l9aMmTWq4tqWtTp92TxIsn1q3tKpivUZqVTPQh7ct38UdnxUFQ09s7cP
lvLgjdLSs2OL1LDq34WqIzweWL9pWBe9Tg2f/lEtrKniQdcA8z+Gmhq+CbTW
ksB5vfrJhi2ghhoZrgHW9TzY+Nq+MsJMDU/8dbmd0MgD19BVRXrOaniXIlXz
qIkHRylbJP4FqOGY/s+Z7nfz/hSiv9TFqKFWsnDAxAce9CbUL4/PVEMLQTg0
08WDwM5Hl10INayOIZVM9vBgQ4Wn4c5GNcz/15fVO8AD3d7WrcpdakixCDv0
ZJAHH/Qkjq8eU0PLExndt8Z40G1vnikszMDLJ286Of7mwVzGlz9zUgw84XtB
kDrDA9OP0pYC6gyslZRqfidAwKDJKa6IwXy8b2AiQIiAC9edBdceZmDSYvrl
NUsIkNh5Z6OqGwO1m6pzs8UI+Ln8+U7DCwzMZFmeVJIg4LhLCc3tOgO3uFtO
35Gcj4fQn8bnMlA/rM1VTJaAvTJkel0VA+O7i997kgmotM5kTr9ioFezi/VT
GgG7K+o+6fQwUJF2SGKNMgGH+RzF878ZyMsNkLFgECAtUDbbsFQdSfW3r8aw
CHAQELOQIqvjM7FtYfc3EHC0f4Oyl5Y6nn9yR6prEwGJvlmuTUbqSPN84Dy5
lYCJwb7lWrbqeOCo6eVFBvN879OXpnupozO0J4juIuDq1wjLFRHqGFwYnyu4
mwDbn/99v5Siji/u+raM7SOgJGEVX6hUHTMP7tj6wYSACKtg7pVadVTU9PvF
O0RAlVV5m0TbfH0h85VXrAiY0Saksn+qo4Vse4mpLQGyUzwP3QUaqDjV3LPK
bp7/y0BjyxoNHGh+2vDMgYCFljcV/VU0UIAm6u3rQoBwNTVAHjSwUylnSuYE
AR17J+81mWngmJffWf4pAqIXxX0MddHAVkfyjPFpAl76hr/fel4DSc8WZDf7
EODI87kzG6eBOjuMQs0DCEihS7FrczVwbqC/9MV5Anpc2cEx9zUQ+DdgSzAB
uOVm2LHXGsgndxtmhRFwz2SD5sY+DXSOXta14DIBARvmQlf91UClD0xJyygC
5CUFtANEmOjwiSGaG0OAmpjy+OBKJm4cK67/EUfAkWLxsw6yTKw5puCgnEjA
9AETXqcCE2+NtP4+eoOArFPxZVYsJvKcmhKibxHwMSHUvm0zE3Wn+/ZXpBHw
wLD1idUuJla0P9r0OoOA1wJ7P3QeZOKF3BaX/mwCPkjlJTrYMFGr33F4PG8e
1/B+DzoyMSj64ufpQgJWfto77e/JxFl3wQPTxQRoyBmnip5jIqM8dd+vMgLC
6mNaboYzsdr6xVAPhwAT3uJcRiwTh8s+7XhJELDlcLFwXQoTF1ZP2JVWEvA4
8sz4kRwm/qr8ZxFZTUDbHTv3P6VMpMRX6xx9SEDc9gvOSVXz+vbXrlF9TMCP
E+29G+vn/YT5C4zWEZBvEffpQxMTD79et6SsYZ7f66HZxY9MfL69ZLtLIwFf
9kRvVexjYvc76RqplwTwY+k33wwzceCVRGRd0/z8jj60v/CXie3bqPdc3hKw
Y31yEkOIhfLu+ZbC7wmQKxlkfhJnYYJa27nbrQSYkperx0uz0PHkA5b6RwKS
H++MNKaz8MK1TZH3OgjQKRjSF2SyMOnVosQtnwhov+No8kCXhfc5JXZV3QRY
yIvzAnaysNEvbY7VS0DBtsOuugdZuNxL4kJW//x/5hS5zVizkOJJ/yn2jYDa
wEgeOrKQp1FveeYHAX+dT+665MnCYm712+ZBAlzPdkodPMdCNU6pC2OEgKUr
/1OTiWDh31EZ5eAxAq78iQ0YiGVhR5EVpWmcgAb1OYF7t1i4bvKWveRvAhKG
91RfyWWhjuTob6spAqyzZApsy1n4YsRgJGmagH9v19VpVrPQw8rC6tUsAXUy
44uXNbDwzbnX2wQE+GBCdfDtf8NCcS0GV02QD7VR9MW1HSxcdOIZmi3iQ9vX
v/czvrJwiW/X6bPCfNApLYoOGWOh+4nQj3GifHjOXuznOMvCs8HFCwqW8IEc
1xuwW5SNqfbMyaplfPhXuO46S4KNYVE1dQ1ifBiRDK+SlmNjUto3/6YVfBCQ
ER8VUmaj+X0K5e0qPnglZ7B/abLR/13Vs6bVfLgtxAj8osdG/qKewKdr+fDN
Oa+x2ZiN778UGVav4wPCMpkGczYy3y/ZeFeaD2UhR9yqj7GR5fDaLFGWD7eu
pfE4bmwUja4oCpDjwzi1a6roLBvvLzfaa0Pmg6yJmlZ+EBsPPVysp03hwzOv
dLucKDbqt5teFaPxIYpkdjE7iY0/9tvt7Kbz4ZiSS2ROBhvLRA97lSrywTJs
UVB+ERtndmyQ9Vfmw5E9ZrbFfDbGfuw/qKfKh6nCMBL3MRs3RWyUnlPjg1HH
y9rql2y8sOFdyH11PvRIuRo2tLFx/KB54mkmH/4mJuY197DxpBDziCKbD+6e
yd3dQ2x8El3f3aI5369i/tjoFBvzz1oyQzbwoUh5R9tCIU389X2lqbI2H4YT
rl2TXKGJ/6YETF7o8EHPYXQNQ0YTw9qktd11+XCpsd5lh4ImlitvFhPewoeG
Eo9wW5YmBhrQPqdu5UNx5n5Xvy2auNfjIqEBfDj04e3KRENNXMXoTKnZxofV
cq6BHFNNjLzISzI24IPV87DcZltNbJFz4bzezof/AQPuQ7Y=
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["y", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226700475086*^9},ExpressionUUID->"4af3a77b-8a2b-42a8-89b0-\
abb0c0103ce4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y2", ",", "dy", ",", "py"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"y2", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{"q", " ", "ys"}], "-", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}], "-", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "+", "q"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dy", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{"-", 
      FractionBox["t", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"py", "[", 
      RowBox[{"t1_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"y2", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"dy", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"dy", "[", 
           RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "^", "2"}]}],
         "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.768225693552536*^9, {3.768225884939062*^9, 3.768225941243465*^9}, {
   3.768226107524678*^9, 3.768226165825839*^9}, {3.768226294497385*^9, 
   3.768226295952194*^9}, {3.7682263525743113`*^9, 3.7682263827365294`*^9}, {
   3.7682264663347282`*^9, 3.768226495206081*^9}, {3.7682265806372023`*^9, 
   3.7682265848570004`*^9}, {3.7682266878228827`*^9, 3.768226695736403*^9}, {
   3.7682273730771503`*^9, 
   3.768227388825366*^9}},ExpressionUUID->"74da18eb-991b-475b-8c77-\
0803e35c22e0"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw11ndUk+f/xvGwDCMyQ0iAQCCQhOyB1lH6fPwCigLuvSduUaFOXCAWqdSJ
iqAtUoOjVRH3xIE4EHAUt4BMFUVlCMr4tT8un388HO/79bxznRwOXlMjh84w
ZbFYW01YrP/+/f6scZ1yLtOhitmT8t9ziIlPESdWc77/fI5pL038fLC9kvE3
/PdcZ+y+vSv6VFWJ/7/NHE7KLbmbW8l0akXMguG16UGp388/ZAaEhvebP7OS
mRnx31PM+GlvJI6Vf7//lLFqT9/oU1HB3Mv/73nBNLnvSq7aUQGvlOlvzDO5
8mMFzpcxjd9evCt4Xg6/nLnR8sGk1+Jy3K9gMmeL+kpY5XhfFaOJuVl0If41
vBomb+bbrT5mr+G9YQqN1Y6blpXBe8fUjH3aw7OqFF4t8/TjEktOWCm8D8wl
zpPHpiNK4H1kTnoGN00we4XzH5l3X64mbcx4Af8TczTScWBVt+e4/5kp/DqV
/8/5p3hfPWM3aMWh0/on8BoYzSzn0Hd7i+E1MJcPLN/0oPURvEamyFxtenfQ
Q3hNzMd9pzj6XffhfWFq/H3D8oyF8JqZFbe3zY22yofXzIydLCp2H3ULXgtz
pza154ItN+B9ZYRHORMdT+fA+8akmOgaJ2w9B6+V8bAZLL27NQteK7M2uS4+
/OV+eG3Mox/U96TbFsNrZ9QjJaJpTWlXOr0OZrjEhV2ccOwKvn5kvknMDphz
9krneRYZDUN7snblXOn0WbTUZmLRKHbulf+/bjChp2qnm8b421c632dCu2RD
Hy92KIBnShWSI03eI+7DM6XIfUrzx5kP4ZnSZSfDjn2sYvSYUUj6uD1Bk57A
M6M+bl8+Jl9/Bs+cUq6fCZ2iegnPnBTD7OVL00rgmdN7zfGK4ZZl8Cxo77C4
X6uCXsOzoOZ+Pwx5HlcOrwsdMCbneeRWwOtC/brvDtxrWQWvC7FT9xQHDqyG
xyYLXmY/1s4aeGxysijnXC15A8+SprV5BP+seAfPklxSk7I4y2vhWRKzLOPY
0lvv4VlRm8zbkCmog2dF2fnSyX27f4RnTUvHqwxJpR/hWZNlR9P49F8/wbMm
duuXmTE/fIZnQyF1Pdz5FZ/h2dCT6sqYBVvr4XHokbA+dznTAI9D82oez/b/
0ACPQ86bJtml7G2E15Vi5mzevD+8CV5XuuWwvz60vQmeLfX7gxe15dgXeLak
evtw0dwpzfBsKejOxNVPnFrg2VGImXjww5st8OzIx7kgd9SKr/DsSTn7QvkU
9Td8v+yp9YdFD96//gbfnkYkqV5+2dWK+/aUXxi7MCa8De+zp7P+ZoJlZu3w
HGjer1/XVZ9rh+dA0QXdovMWdsBzoIVNc+dYc1k5nZ4DPfpDOLQqkpXT6TnQ
zpTI9sa7rJxOz5GWXNRa9ZCZ5HR6jmQe3Id/ZL1JTqfnSLETXF+Gl5nAcyTO
3bFcz59M4TlS2urR8cJUU3hOtOfRaZOQZtOczn2cyHyQyYy9I8zgOdGHXQN2
uGebwXOieWmFq27Ym8Nzootb9/F3LDCHx6XYs32mJ+abw+NSafb8WUa5BTwu
XQzN9q9OsIDHpaNR/qWh1RbwuNR90fiND4O7wHMmx/Y9I1b92QWeM+0L8l4U
YsaG50ytyZm2/lPZ8Jyp/bxkJnOVDc+Z5lzLPDdbZAmPR7207NATayzh8YgX
lTODX2IJj0fyDefHpP5kBY9Hppm8mF77rODxqIBtIm1ss4LnQjUz487dmWAN
z4X8Vo3Zdf6SNTwXui7Ik90Q2sBzoZHfIp9VrbKB50IrtDqh9ysbeHyabtY6
4+efOPD4lDL6hKp0HwcenzIWmX+a0sGBx6c088Har5O6wuOTMWVt5MGcrvAE
9LvoU7d5XrbwBLQna6BtcKwtPAFNmhuzQV9uC09ArOnLNP5BdvAEdOL3Pnv7
H7CD50q/rJtk6GlmD8+VrFMfOj422MNzpben/Xuvnm4Pz5WObLSJUSfbw3Ml
kafUWJ1rD8+Npq3a9uuhpu+eG4kOJXZESR3gudEw9s/FfUc7wHOjjfziSq+N
DvDciJcYYm5x3gGeOx1Libb6+NYBnjspb7ELXrs5wnMnpyd/KV6GOcJzJ4mz
edurVY7w3Ol+Waqw5qgjPCGd+eXN7OYSR3hCKg753xU7Byd4Qvrt6KNvqv85
wRNSb+7+9qFRTvCEVDtnWebqP53geZDYv7b4+D9O8DxoRNbQBW+6cOF5UO++
FwfJenDhedAnm7oJ82dz4XmQzfYpMWf3cOF50uUH3TZb5XPhedLvgf4rJ7d9
9zzpqzjP95LaGZ4nxVY0RntOdobnSUcuTB70y1ZneCJST/wxreEazgtElPw8
PHBmgzN+34jIY2+VssSX13k/TEQt8aV9xo/i4X0i2m7YM/dVAq/TWyuitPH1
22ec5+H9IvoQ3v/Ap3e8Ti9bRJ/johJjhS7oEVHRpBw1f5BLp1clovamT6tO
rHVBnxedbO01fcgJF/R5UdP13gUN5S7o86JfxnQcTHPmo8+LKk82l4X046PP
i6Z3dES0LOOjz4tufRwkOXqYjz4v2kJxtjNf8NHnRbaKbbY+tgL0eVGdVZFz
JSNAnxf17qhxOrxIgD5vGniipHlxhgB93qT3sDnF/CNAnzelL+T2tGe7os+b
RrY0/FzRwxV93pQvaxh/cY4r+rwpYN+Bkl1prujzpl5B1XVLClzR502alSVr
xrDc0OdNt4Z8W8fo3dDnTSF3amtk093QJ6a7ykOZzjvd0Cem2zNmZlnccsP3
R0w/L9zX0twCL0xMF/PNousU7ugT03xWIvfNBHf0iYkjnlRYudkdfWLqGf1u
d+VV904vW0y+rYUzaurd0Semgm6V8g++QvSJ6cy1ni+bRgnR50OFUofFpolC
9PlQ9+2vX9lfFKLPh/YdHiXw/iBEnw81Twl16S7yQJ8PDX92qyBsqAf6fGhc
iHX3iPUe6POhtNdLA2NPe6Dv3/vFxvd/1Higz4fG9hutuObqiT4fCghfVl8Z
5ok+X6owEwZw1niiz5e4KfEd/lme6PMlj+kC/eRyT/T5UvQ6Q9VNaxH6fGnD
ZYfyV2IR+nwp+PQOm+YfRejzJSfexXGOI0Xo86XN8SmFqkgR+nyJFzh42oAE
eFW+dOca12lWOjyWhOwGK59vOA9PIKGVWbVnjA/hGSRkVnjhQF4tvDAJxY21
S39j4YU+CUWsmGfkeHqhT0IxS2ae0PbwQp+EiiIyro4Y4oU+Ce2uuF+0co4X
+iRkfenEi/1x8KokxDc6vb6TBo8lJYvGwpf1p+AJpHRvZFG+sBCeQUoBidZ/
hdTAC5PSTbd1y6JNvNEnpQbvQE26qzf6pLTCZN69AoM3+qR0Xywe3BbmjT4p
jbueelIZ4Y0+KTUd4jaPXwOvSkp2Xx67/LYbHktGHZW9HHKy4AlkVJa8t+zz
HXgGGf3+YM4GSQW8MBmNKnFpG9v2vU9GLX18ArfwxOiTkfsWwcibGjH6ZGQV
8KuhLUSMPhm9nMV76j9VjD4ZPT4+JWj+SjH6ZHSJJYwy7oDH8qPAGSbTSv+G
J/CjTSVFDm558Ax+tL/nyFUjS+GF+VH18+kZ21rgRfhRUsaTdYWOPujzoyfn
knldlT7o86OoeQmTQoN90OdH8V0OjE2c6IM+P8o+XG1xZ6kP+vyoRTV8kvVW
eCw59a9vnB56GJ5ATu15Jdyk6/AMcuJfVcwvfAEvTE46wbe5jk3wIuTU026J
3Ug7X/TJqSz37og9Ml/0yemKWB9Q0scXfXLyOFl53WecL/rktDzBr2ZOtC/6
5JTh2u9gVhI8loLWa34zbTHCEygo7vzwRsqBZ1DQmqtNqzc+hRemoNl9ivc+
+AwvQkHTnMYNdudI0Pfv+Qefd0T4StCnIJNr9nOyfpKgT0Gyk6qC1lES9Clo
9ae8KyGLJOhT0CnRtIDkRHgsJb1XJwS/zoAnUFJSj9xizSV4BiUlLP67blUx
vDAl8bhPf8uvgxehpI9UecLNSoo+JVXXR42d6y1Fn5K6vFWsv9Bbij4lfUs6
q+aMkKJPSeyK26MnLJCiT0nhS7gmx36Bx1LRmj5DJCbp8AQqqksPyBt2Hp5B
RRZ9Ul8bH8ILU5GdmXbp11p4ESqa3ZgbN7CLDH0qYgco2BmeMvSpaJiFntXc
Q4Y+FQ2PPD4/fKgMfSoKWLd2YMZcGfpUFMxbm96yHh5LTTcLtswYvA+eQE3n
WLtTMs/AM6hp4cHVP3YUwQtTU+YYXfiot/Ai1PRY+8edY2Z+6FPT/RuXsy2F
fuhT0x/89eyp3f3Qp6a/k97euDDID31qkhXXvXWe7Yc+NZ2p3rFsYSw8loaG
fXg5724qPIGG4pgHNyWn4Bk0dCQ8Jj62AF6Yhi6nvsl8VQ0vQkMOWXJVbxM5
+jS0pOsw7m5XOfo0tE64fHyjQY6+f89rTpsPC5ejT0NdIiScrAg5+jTUPatm
kd1aeCwtrb/i0W1BCs5ztMQ01g6/dwK+QEspU1YUKfNxX6KlyJMfjZsq5fj7
RksC/5jHte3wSEtJ2aFTwvkKfB4tpSVsCTyqU3R6Y7Q0LHb1KrtQBT6flg6X
hNoumq7o9KK0JOura3ywSoHPq6UPZ2fruu2Ct0lLuZv113Ydh5eipZ8W3DV+
vQ3PqKXA3kteTSiHl62lBP7SWVdb4eVoKWAsN8iXp8Q+WqpbvXPhRo2y03uq
pShpyPv3IUrspSU7uyXnhk5Vdnr1WjppFvnozEol9tPRjFdxAcJkeBwdnV7J
bog9Ck+go3knB36pyYMn0VHoyON9B5XBM+iowT2+7NRXeKSjd4elee5cFfbT
0d+xDU1xKhX209G3jv4L3/VVYT8daYck6IdNVmE/HZ1c6BBwYbkK++loj0f/
zeLt8DbpiHm2Q7bpL3gpOlK+GGfZmAvPqKMXdmz1xBJ42Tq619UkJa8ZXo6O
0p1Ph+gc1dhPR2rLHT+mKtTYT0flU6yjLYLV2E9H/G6JHyInqrGfjrb5bDjy
bKka++mJM3Hx4eCt8Dh6erTjxtvjh+EJ9LSrtX6u+w14Ej1Jg5arEl7CM+hp
8pYCdUMTPNKTZmlk5GR7DfbT0+6vTz7k+2mwn56exm38q2egBvvp6fgr1kHj
eA3209Nm/5xSpyUa7KcnF8sBI9dthrdJT4u03pZ1B+Gl6OnVo3uN46/BM+qp
36yHHnefw8vW09s/z8f2bISXoyfLoA32w9la7KenWuOhGBuuFvvpKb57ksV1
kRb76Smh/5fDK1Ra7KenT4VH5+l7abGfgRyHrBzwti88joGS3/gE7R8GT2Cg
3f2jx4ydDE9ioHsn9ImO87X4/WOg7U1+xXeWwyMD+UX7BMRtgBdmoNe895d7
b4c3xkCjhw8a1/A7vAgDHZe7OP79F7woA5V5OJTPOAdvrYHaelkXeNyEt8lA
WzhFDx4/gJdioNr92k9bSuAZDbQz6atsQC28bANlPmtdbtYCL8dAPZ3ZFRct
dNjPQC8D30QscdRhPwM5VUeZaj112M9AeV+Wnn6j0HV69Qb6p/JmbEYPHfbz
p5079TMnBOty/g++a7Ok
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw11nk8VIv/x/Gxr9nGNtZhxsxYhjGjW+nWeXcjupI2qb5JirRTqVSUkhap
2y5Ct26o3NtCq7rRSjehTYuUSigl6yDb797ffJx/POYx5zzPa96PeYxjNy9y
Srgyi8Xap8Ri/fd38NhkEXotx1DOpKX+d5xmIjyuZK01GHx9jUlM5SXV68oZ
D9l/xx3GYsazu53qg+8/YPprklpP9XcwCq2CCZjs19TT1kHnP2X0exorWuo6
mIgF/x2VzOu8xOZdLzro+lfMmd333j2818E8Kv3veMMsfMNdln9h0Kthlk/7
etzr6OD575mkVUG3Nm8Z9D8yv/r5+yyLGLy+lunuHlmv9evg/eoYR8ndpFlO
g14D0/zTlEnzNAe9z4xW//Gd/Np28hqZeyVuBSf/bifvKyO3SjlUd7CdvCYm
8MT7vm+L2slrZsZnFysV/jx4fjMT3vfxdfCQdvJbmI6eN41lVW10fSujxmy9
aXqqje7XxtztblLyXNlGXjuzafWOHaM828hrZ3IWcccJWG3kdTDt9+T+3Xda
yZMzbrH3K64ntpLXyZwsqbBY5d1KXhdTHPFlH1+llbwuZqZpcv7zmy3kdTPl
2fVGyTEt5P1gMj8oB/lLWsjrYRpmvRpuW9dMXi9zcei2zRppzeT1Mq+a12jq
Tmgmr48J7g2YH971nbx+5m/dly+UA7+TN8D4m8XN6f2riTwWLtp6y4NVmuh8
FjzSLM/IAr+Rz0Jj563dO//4yvz/5TIlPLauKljS1Ej3U8LZSKOJdUMbyVPG
t/Y5YWrrv5CnjPIf88yfF3wmTxnaaxs2hXY1UI8K9APWn74sbSBPBexki7Sa
RfXkqcJtoYlfY0YdearQ0mrJ+VD2iTxV3Mxal/ykt5Y8NTwu/Hz7vrCWPDVU
qLoqPwz4SJ46IoO9vn6J/kCeOpozL+lKU96Tp47ocY4vci/XkKeBBg+HCcXZ
78jTwEb1bysfvK4mTxPrH+xfEq31hjxNiKNLvN9KX5OniVlzuZVWQS/J00JR
Y8BF7zWV5Gnhn69HRyzf+4w8bXwNWbYpN+sJedqwPqs7x+hyBXnayKxSebE8
4RF5OkhVcu8I3veAPB1cqdP0sDh8jzxd2OhMEj7cd4s8XUR4vDvnpnWdPF3E
H/qe6F+dR94QvPQMn78WWeQNwbNhro+E+7eQpwdW4KYqmfuRQoWnB9fpAu58
+Z+FCk8PyfvvBNv9uFyo8PQxTWCmUbmjsFDh6YPP7RMksu8WKjwDqCbzNEYt
LilUfL8M8Asv0GZFSSn5BsiWTRnBSqmg6w1wUn3Xr+GPntD9DLBWZ05FkMZz
8gxxSOONVYnXC/IM8cqVfT878RV5hlD2WZ9V+6CKPEOkiKa8WGn4ljxD+HgO
zLZzrSHPCLWCXLl94HvyjLD+q1x0Je4DeUaIzHRRfZHzkTwjVDd4XN3wtJY8
I9xkyw5msurIY+PVTRv1EW71tA8bvsf/l+YV0kAeGxb7A3oK9n4mj40xlp3N
h+58IY8NzvOYueWdjeQZI/XOFb9Q8TfyjHGqsbbCO6yJPGM4TzVwWpv+nTxj
pD2aXdm5uJk8Y3xzO187TbOFPBOUjE1Sm5TdQp4JMqYm7KrzaiXPBFEBupUm
ta3kmaDLZ9jkqoQ28kzAd4hf7cFvJ88UWdmHim3utZNnisQC+5cpCzrIM4XP
T0fGZmjKyTPFk175BZdcOXmm0DiaVjl2Yid5ZhgephpV09JJnhnUTHN8WIe7
yDNDsE6++3HPbvLMwFb7qHvrXTd5Zji2e/zt4MQf5Jljfp+N92rnHvLMweHv
3a/2pIc8c5gd3X1Bd10veeYYf/do3g5uH3nmYGL+OLe2pI88DhYtuPPwRVQ/
eRz0iexlOZwB8jiYrXfLovb2AHkc5JcK5477iVWk8DjY/2bgYsAuVpHCs8Da
2WLZ7hpWkcKzwPxoHfX+oUpFCs8CmgPy2cd3KRUpPAssMPVcsua9EnkW0Ojt
jIgdpkyeJS7N5uzJ261MniV8vw+3Mq9VJs8Sp5btnfanpwp5lnhZ/yl2+T4V
8izxLHLd2+AGFfKs8My67d46RpU8K/QtmZxw67AqeVZY2vBikUeTKnlWsBrV
X/7YW408K5gkh+inZqiRZ42htme27uxQI88asYt/++2Evzp51sgIubj/Y5Y6
edYoMTzR5tevTp41Np+6bFE1XYM8G/j8brpq7zkN8mxgOSNz8RJNTfJsIP7y
dMWSUE3ybCAKeNXzW4EmeTbw+mfOxpdsLfJsMS3j0AqvZVrk2cJXhTfp6X0t
8mwhimKnbOVqk2cLvknZvaD12uTZIjZHc86EZ9rkceGy6PrHUFcdxfkcLlRX
mlSn7NApUvzecNE7bMWTbx90FNdP4CI9cPzE+aN06X5cBO4WV3em6Cq8eC5G
aV4dktuqS/fnorR8S1Ss/xCFl8/FsnjrI0tODaEeLq56qHBiVPQUXh0XYTl7
dx6fo0d9dli668fm+mt61GcHE45X+ngTfeqzQ3TZ0OjiKH3q+/f9+dNy5pbq
U58douRLFmsbG1CfHVrTHpe1jDGgPjs8+916Sl2kAfXZYWV8yP36DAPqs8Ph
1Mj+jocG1GeH5Z6Njwx+kMeyx5obEq3hIkPqs0fR5f8lLpluSH32UPUeY567
1ZD67DFh/tIj8jxD6rPHlmCLav/3htRnjxNTht08r29EffbQfTjL2Ha0EfXZ
Y1vo3atHlhpRnz3SN85ItD5qRH32eO2QMe2vB0bUx0Pas8tKvl3kcXioWRG+
8JuATd8fHlQDlMIzAtnUx8P54THPgrayqY+HppRfD1rls6mPh7ITO7Y0vmdT
Hw9L08vj7hoYK7x8Hl7zfMJzGGPq4+HGvkzzg8uNqY8HUZh2TFKGMfXxseXq
mLCkUmPq48Po6YabB3rIk/FRk79sYbaTCfXx8edVH6/bM02oj48bfvke9TtM
qI8P9WMVViZXTaiPj7OrPGr86k2oj4/p3z7N22VqSn18/LRi9s6n3qbUx8e2
vXHD+atNqc8BRv1pgXEnTanPATf3RN1/+9SU+hyQ6WW/wlfFjPoccDDM8+cC
qRn1OaD3UI6exzwz6nNAmO718kv7zKjPAf0Fggjmlhn1OSB+X8+NimbySh2w
+HbOtUVcc+pzwAyjDm/tSebUJ4CnRMMvb5M59Qkw3HRWXug5c+oTwHRVUbj5
O3PqE0BuOS+gUo9DfQI4bSuYeXQ0h/oEaPJNiYxYzqE+AZRzTGM9MznUJ0Cx
bfZi4zIO9QlQpqEk7Ogjr06Av0RuGW/EFtQnRENEwrV/gi2oT4jy6LSFhbst
qE8Ix7iZKQV/W1CfEKsavkpvfLOgPiHucIpFd60tqU+IimHHFjzxt6Q+Iab3
RL6ui7OkPiH2JKxZqXTWkvqEWC9xt7Z/a0l9QtglzHngq2dFfSKEqfSGrx5t
RX0iRDp7f8hZbkV9IqTOyBPXZFpRnwiJtzqH2ZRbUZ8If6xQbQkdIC9ehD3j
lcbnullTnwjpqpMkP0KsqU8E3tiklIl7ralPhOzU+MhTRdbUJ8KBkyNOa7RY
U58jjnFbhi61s6E+R6Rr/Ps8O9mG+hyRdmGinvcWG+pzxMofy0Zdy7OhPkeE
LIndJv1oQ32OeLAwr+o825b6HMEKi3Hz8LKlPke0GSyIvhFtS32OyDs2JmN8
li31OeJWd3961XNb6nPC9s0hshEqXOpzAhNZL99myaU+J2gffWr0QsalPicM
u9MR7ziBS31O+HLZY+TGMC71OcFxYNfI57HkpTohd6dOrOsh8vKdYBf4Qr7z
L/JKncC1FWbX3yOv7t8e9ritPm/JYzljftz+Xaflg33O8F0Xd3mIvh31OYN7
OmlgldCO+pwx+XNA6BvGjvqcMVVjdeW4GXbU54xd6/Jn5kfZUZ8zdppXfrLb
SV6+MxJeXV29/zh5pc4wTfJVVSsgr84Z3ru3JK97Qh7LBedSo7Wav5DHcUFL
zM9rFqrYU58LXEo0yj5Y2lOfCwqvsXVDPOypzwXsl386V0+wpz4XrH3gKgoO
t6c+FwhMVPvexpGX7wLmc1bWvMPklbrg8fuj1g1nyatzwfeKDXMji8ljiXFl
++dFXe/I44jh9/vhoQldg31iVPr+UqhvyKM+MWbqX1POdORRnxh7zj7rEf/C
oz4xEqo2ZBfO4lGfGCONT/RPWcWjPjF0In1YDbvIKxXj6+KYnI0nyasTY3uR
f7Pp3+SxXMHz+Fp5/jl5HFf4L9waNKGJPJkrAi9MWf5ZnU99rtj9OdNshy2f
+lwxctyNANFwPvW5YrpYi/3PJD71uaJF53vwskV86nNFqPiDi9EW8kpdoXMg
NPZqGnl1rmgslfvOzSeP5YabT4b+plVKHscN1dU3/C7Wkidzw7GxHhvm9g32
uSF50kQLPVMH6nPDD16xw9+uDtTnhsjksLRlPg7U54YttR3RtnMdqM8NQc1T
857EOFCfG3Kvzw3Yvo+8OjdsiNEYP+oMeSwJXOf8nN5+m87XlcBrZ6/3X1Xk
cyQ4VOU/NqKdrhdIYF49ep/9EAE930hgk1Hn8s5BoPAgge3BMHbGaAF9Hgm6
E2vGzA4SKLyZEpwNS7pkFSWgzyfBAVnakrc7yFslgVZjQOjx4+TFS5A+u+1A
eAF5yRLsNXvGcn5KXqoETf7js1oaycuWoO3ahY3XVIX0vCRBa8KqpC3WQoVX
JEGOqPfehJ+EtI8EFSFFruYBQoX3SvLv/4Ofb9dGCGkvCfrlLXF58eS1SXBf
f2nI5lTyWO642OsZNjmPPF13OLrJd9o/JI/jDvmdkWXtH8kTuKNg6XnXkl7y
ZO7YPnPgVLqJiPZzhwHvtedKVxHt545PF7ve+/qIaD93BA3npHPnimg/d4QN
DCzojhHRfu4YGrUWT/eRF++OkuYAwdkz5CW74/OTENOkO+SlumMvEvQi3pCX
7Y4YUbqudwd5+e7Qc96vx9dzpP3ckbV9ipGq0JH2c8d3rQqTT4wj7eeO4k5l
s+IZjrSfO0YONLDPrHCk/dzxkp+ovSeJPJYUE/Peda38gzxdKaQO6tUzbpDH
+fe1jc4l5jl5AimmTlLfJGwiTybF8SjjEQYaTrSfFJqCoPfdtk60nxTTu9tX
1w53ov2kOObN6Sif7ET7SVEqap99Y7ET7SdFQHRB7ukE8uKlGJWZ9S4lnbxk
KeLz2uTbLpGXKoWnV/33NWXkZUuxOaS4JKKevHwp3Da82zST5Uz7STGweBN7
AseZ9pOiZHLPZkbqTPtJ0XUg94HMz5n2k8L3n68NojBn2k+K3Rdt39rEkceS
4aHL6RyTw+TpyrDGonXskHPkcWR4EB5xQa2EPIEMsY3rmvprnOn3R4bVUZnd
Xd3kQYbbh/wftxm50H4y3ChVif7u7EL7yTDZb0xNo5cL7SfDMlaS8edgF4W3
SobcHeH69WtcaD8ZdHkh5Z9+Iy9ZhvYstamfTpGXKsOI6MYjn26Rly3DwpXZ
x+pek5cvg0NveXhDG3lFMlx/pfrli66Y9pOhbOgnpyYHMe0ng+CAsbB1tJj2
k+HK7RHV8iCxwmuT4dKrfr/eKDHt54FyoeFK5SRx0f8BdozI3Q==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw113dYUwffxvHIHrL3CiMkhLBCAvg4z/2i1kUVZBQURFBxoT5FBFGxqBVR
QFr3qltREURQqjgYChVBZBaomyUqspENr33y4/zDleuc8znf3OTKBebBmxav
kmKxWL9PYLH+/Tl+vKtUKJ6eyMKpk/8e15mfVl7fWJsw/vo+sy9btOxaPAtO
4n+PJwwn81Ry6v7x80XMn/YWwS2xLEi0Mubxw0VpvnvGr69kHvJb7o7uZGF1
yL/H38z8r40p/0SN31/HzD20pqR1MwsvSv49XjNzh9P9nTeMe++ZfXfkU+6s
Gr/+A3PaMV11fcC438BAUPXR12v8/kbm4PCGczvnjz+vmbnl5Jj8mhn3WhhP
5ueozU7j3icm3Uvu5Ez+uPeFYd8Q/v6j0bjXykT0R/X+rjLutTFHXwieWIyO
MRKvg1lWsb3rxLsxRnJ9BzN1Lq9sX84YI/E7GV7xp/yOP8YYyf1dTMqBbFRv
G2Mkz+tmVEbCSl18xr0eJsJ6z5iucNzrYXam/bElUmHc62VCU4Lf+70bJe8b
8/62wkjOnVHy+piSZuljKXGj5PUzoVEpu9lLR8nrZ7yOv7lqaDtK3gBTKn2x
68LQCHmDzKeo4qCsohHyhhjtseNDfsdGyBtmit3cKw4GjZA3zJyPaJb6yWaE
vBFmXtfhO3e6h8kbZXZxI/VvZA+TN8bsOCtcOzlmmDwWvAxiPq+cNX49Cy5b
PrTYyw+Tz8KsbOv7J58NMf+7XTwB0z0s7yXHDdHzJiA1Xjh/6Zwh8qSQcvrd
P1kyQ+RJoU3v8OuHuYPkSUHN2vjZpu2D1CMN4balxhVOg+RJ45R8fUBz6wB5
MtjecEj31qUB8mTgr/BDtb3fAHky2Lso1G6NygB5sig/dycrILefPFkwazMm
aob1kycHk1/2lu6z6CdPDl+D9pzNK+8jTw4JivXm+b/0kSePVdNXshJs+8iT
x6s4+Ubz2m/kKeB5TebW2N3fyFPApsLW9Q9tvpGngIi0X0MLK3vJU8SXKA9B
8rZe8hThNavBO8islzwlpL6cdr7vaQ95SsipTMwOXdNDnhLe2LR7P1HqIU8Z
b5vNOKMp3eQpw2ja/ApTt27yJmIo5IGmzZcu8iZiwbrbhyz2d5E3EfMfGI0p
8LrIU0Fb5QrpD3md5Kkg7YbLvFT/TvJUwVZ13/rfbx3kqcLlwxwXu6QO8r6f
dw7iNfM6yFPDha1ZFVO3t5OnhkncuClpV9vIU0ff9VPZ/LKv9PlSh4v87D3p
fa3kq2N40e7H801a6X51nAq7kjSML/Q8dfhvVNcqDv5MngYefmoLeLD7E3ka
mGHQE11xvoU8Dfzx0ShK59FH8jRwZNGmH/fXNJOngeV/F3eIOprI04SOXpq7
nnwTeZoIchvzmGrcSJ4mfJ81lV1yaCBPE65zT5z3/r968jRhqukU7+3xgTwt
lDw/6nEt8D3towWXhrU+V2rfkqcF3ffSCRltr8nTQrZ3YsKuCa/I04KRrFai
kUYdedrYENSUtt+khjzt77+P1WNVvGrytDElrzFSzq6SvO/ndVaN8ITl5GnD
Rt4wb+fyUvJ0sEm9Pzt9yXPydNDiEjypd2EheTpomNS0NGB6Pnk6KA/8OLdn
wUPydHDfJ67wnsYd8nRxqbRGyvNEMnm6WORZkDn1VTx5ujj3eWdBxq7DORJP
F2udV7iuOngjR+LpIj3X2Pf5vbs5Ek8Pkzp/sNZ2fpwj8fRQ1dIU0B/wJEfi
6aHe32Pv+at/kacH9zXTRZt7isnTQ+L2hlPpnDLy9GF7fUlB6qIK8vTRFZl6
w3pnFXn6aGHf7zS+9Td5+gj9ccg7pr6WPH28qNmR7Kb/ijwD/HUt+/k29zfk
GWC+RuI96fh35BkgokCO6Wh4T54BGnZNZ++VrifPANwVB7WnWzaQZ4huxUOF
2j80kmeIma6F9Qprm8gzROTZaHPdxGbyDMGPK501OeMjeYbwLt2lv6m2hTwj
LM5mhd0Z+0SeEe5kuArl+F/IM0JvePbUII9W8oyQ/NU1Nn/7V/KM4HNXWdkq
uY08Y0yasrc0vrKdPGNULeS1R8R0kGeMlVfi+Vf0OskzxhfeIs6iW53kGWP4
3tPNm+d0kWcCJ53UDPX3XeSZoJVnE82N6ibPBOFe98PTNXvIM4FxFptJv9lD
ngmUZqyM5czpJY+NjIqifoX6XvLYyF72YG5g9Dfy2LhYU2DLNegjj42VMxIC
/e72kcfGjVMPzw169JNniuxumXT59n7yTNE6R+GnXxIGyDNF0a+egcsFg+SZ
4vSuxcevPxskzxTrR2aV+60eIs8MYRfFDZvkhiXXG5ihVa3p6ucrwzmS7xsz
dH6pGHg2e0Ryv5sZ1o+yHyk2j9DzzLDAJ646JXZU4sWYYShquU2a1Rg93wxF
l2NuqBWNSbxMM+yPM72w2pmVK+kxQxY/o2tLLCv3f16zGVz91Wdn1LByJX3m
uNvC0jG2npAr6TPHvJ7u9xnbJuRK+sxhUjnCjyiZIPHczHH9TfnGVWwpiRdi
jlj3R84x/5WSeDHmqHa+KFWYLyXxTpqjybdrqYuOtMTLNEf5zBtFZaulqc8c
9+e4VR/JlqY+c5xMeqW4W0WG+iygOqOm+/hyGeqzgMExZ/O/M2WozwLmDoHm
0+Rlqc8CPk6CvUVLZKnPAlG3qt9Gp8lSnwWC3snk+0rJUZ8FHE9lP/HzkaM+
C8x44LUt5oYc9Vlg4My+6JJROeqzwKOzfiHTPeWpj4O7WeyXFcny1MdBmlq4
Z8KwfK7k88PBxMypv631UKA+DqSYE5x1VxWoj4P711puJg4pUB8HWUpPSyrd
FamPg7Bfei2nXVWUeJkcNMtv9S0cUqQ+DvbvDFMO81CiPg40j4kbZiQrUZ8l
whvtYm1HlKjPEoqD3aeneCpTnyW2/Or0Ys11ZeqzRFp01pOsMWXqs8TXEG+B
pc9E6rPEqqSRm+k3J1KfJapDrvUvlVahPksUvfJ9wF2iQn2W2FGgd1nltgr1
WeKgX0ewloIq9XGRd7P1mkugKvVxkcto8iOzVKmPi/xjyw5XqahRHxeXXz85
u3CVGvVxMet37ljjQzXq42LNBcHdBUrq1MeFxvV9xSIXderjQubD9rNWwerU
x0Vq3AIlwUF16uPidVLKl8nZ6tTHQ4xqrulPzeQZ8HAiz/DXXZoa1MeDb+L9
b/dmaFAfD9Eysj4j6zSoj4ecntKYhcc1qI+H//S7+9x8okF9PLQo22TpdpCX
yYORTXBMorEm9fFwuX3ZUfV5mtTHg96k1upzWzSpzwrnS5w5Uy9qUp8V7uj9
tay+VJP6rOD7cv+6o0PkuVlBK+Mp34uvRX1WiHA13MH21qI+K+jG7ZvTs0uL
+qygWh28sTpNi/qs8C5pSVXeKy3qs8LpCeEB9xW0qc8KSXyltgfO2tTHR8PB
knVFwdrUx8cN7uN7H5K0qY+PPo7TI5lH2tTHx/CnqgDRZ/JC+AhpORazTk+H
+r6/js9RTp2lQ318jFrXNw38rEN9fLzrf9vrfk6H+vjwnFBvkVGiQ3181BoF
e5kMkseyRlSbadghK13qs8azNsuVGt661GeNxNX5mqd261KfNXp3/RZim65L
fdZYsXjD3GdvdKnPGodatl/YoKxHfdZYuoKz1HiyHvVZ45K8amBViB71WaNu
Cf/40SN61GeNYzj/NTBfj/oEiDdqdBN3kGcgwPXOC+fU2PrUJ4D/4cKyngX6
1CfAYMGO4voofeoTgPnZdntdsj71CXD7ZVRxbbU+9Qkw6eKsa++lDahPgBUh
ySMdjgbUJ8DLpG9/Ki43oD4B5j3NeSI4aEB9NsgwLFLxemhAfTb44K++Z+9n
8sQ2aF/wXD1H35D6bLD/Y9Bl1hxD6rPB9T8jbeZvMaQ+G6gafDh8+pIh9dlg
VkJycU+5IfXZwFReIc+bZUR9NqidGxb82N6I+mxwRBh31j7AiPps4aprsvJq
vBH12UKR53yRm21EfbZofSQz92YLeW62KH/RPmuKnjH12eLV5P1xL2cbU58t
mmYckgoNN6Y+W2yoG7iodsmY+r6/tn/tl11uTH222Pttl14oy4T6bOH2JbDE
0sGE+uxwxEV3bWOACfXZobFh09sbCSbU9/21Z7DJ1gcm1GeHR7cn6rl9Ji/E
DpfX/fmQZ8CmPjuoJ1eOyc9lU58dTAoHy9sj2NRnh5P/fLV8e4VNfXbQFhz9
XFHFpj473E4d0y6VNqU+e+QdCT72UmRKffaYVqQfVBNkSn32KN9ycXXTb6bU
Z4+SxMtnBnJMqc8euT4tXVrt5MV8Px+Vam+oZkZ99nixNXZ1Ks+M+uwR+uXE
HzNnmFGfPXh1Sc9fe5tRnz3yfaxatm4woz4HtCyy7dDbS56BA2I9dry+f4Y8
sQM+e8kmL7tDnpsDTsUXzJMrIS/EAaM2xY/TG8iLcUDCDCfWsqHxPgd0rbdX
UNUypz4HpBZ/K8sVmFOfAyIz67wiXM2pzwHB+0QH7ZeYU58QBw6sj/z0M10/
UYjo9BGl5P3m1CvElE3/nbn6At3PE6Lrdz8jwX1z+vtGiBkTAxLby8iDEHql
tkf+bCHPTQjPE3GC3SwLiecnRFn59AWL9C3o/QmhH2DVyRZaSLzNQjzcaKfX
OceC3q8Qditn3ysItJB4CUIYn/755ZlI8k4K8du8vJ8iksi7KoS7j7vb4mTy
MoVQEs25JswhL1eI5vR/QjRqyCsR4mzjgj09beTVCSHs+9hfJ8ehvYTolFV4
ksfmSLxuITCi/ibFhUP7OeJa+GbXEws5tJ8jIuJT2mJDOLSfI/4pwJvIneTx
HBH9uUBx/THyxN+vf1+7aXkaeXBEW6KFsm8heW6OaM7yqfF4S56fI+69Fpf9
+I28EEe8NdnTuUDVkvZzhJOu/iQ3niXt970vp+zMwhmWtJ8jFnseZXv6WNJ+
jugX+N7z22hJ+zmi66JOSHAseZmOiBmu5Gw4S16uI3bj0teoLPJKHHHA4o+c
uFLy6hzh39h49GQzec2OeDo5OfTmKHndjqi1NUSeLpf2E+GAVPTEWnsu7SfC
RVP90o4fuLSfCEpt03YpB3JpPxHC8mdb8CO5tJ8I/vlHU39IIg8iRDw/Ybo6
mTw3EaZ4Pwnfn0OenwijQYeup9aQFyLCXP/47Mp28jaLEC497fKQPI/2EyFj
8ZQVXDMe7SfC/LWWPe7/4dF+IkzbfN5zpzuP9hOBfch/Z+oaHu0ngluh6s9v
Y8jLFWFrbThf4yR5Jd/7Z3pdmH2bvDoRKky21W4vIq9ZBGfZB88zP5DXLUKX
fHf41wHyWGL8+ptsFV/TivYTf/9/503jKoEV7SeGi23o5cuuVrSfGEa8FLWm
JVb0/SMGa8EpjtVmK9pPDMFZvFkXT56bGC9lb05Ov0SenxiFkzqd+x6QFyLG
jqs2L5kq8jaLYb8xWupAK3kxYsx3VXtRLcOn/cSwXapuyzHh035itK7IMg5z
5tN+YhxcM/1M/o98+j4TY8nTj8naIXzaT4xg9dFpa3aSVyLGMs2Xvo+OkVcn
xomUW/1at8hrFkP4bNAg9C/yusWIWaiRXfCOPJYTClWX/G3Wz8/9f95ky2I=

       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768227389860177*^9},ExpressionUUID->"57c10064-2054-40b7-be53-\
e8f847c47104"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw11nk8Vfkfx/GLtomx7zvXvS6u6y6ljbxJkVRUoyKmEtUkmaS0KDJDZWsx
7aop85NMG4U00jLSRElIkib7LmJaaX76/b6f88993Mc953Wf5/24j/O4Zis3
LAiS53A4nnIcztdXRd1ZIYW1iqg8NfhdyuVBJ87/DiUMcwaC/PYMOq0O/noo
wfv8p++P8AadHpV9PZRQfS4sa9ODAacJsq/Ht4jPlLhuDxtwOn7s6/EtrHlu
XBgNsJ4yOGYBewIfv2U9ZeimtMelxL5lPWVkPBpbutnhLeupYNex7MTKD/2s
pwLbIb/M4Px+1lNF3+eK+nfb+p3+d7pMFRlzxAZe6Gd9VfSWX3zrMo6uV0Vm
wAPN9Kd97PtUsXpL5+s5p/tYTw0FweYK2qF9rKeG59I2o4bpfaynhurAqTuT
1fpYTw27j4dfVSh7w3pqqNpda+gS+Yb11HE1Iakvw/IN66mjNE7ux3EvellP
HU5+muZTU3pZTx13i+t3aLv1sp46FrzzuLhVrpf1NODoeNzH5VYP20cDzk+a
/b2jelhPA9on5Qr2Tu9hPQ3E13Hdn8j1sJ4GgmJ/T1cs6WY9TXR/yh1rkdzN
epoYk/LBQmFxN+tpIvHtYeVUs27W00Stw2/693q6WE8TEds4pVE3u1hPC/86
zM3L3tfFelpYXfcq0tuvi/W0MC948VEP2y7W08Lul1U7UjjU04Ld8E/L1Ks7
WU8bi32iRPcvdLKeNqY05qediulkPW2sLjcZTlnayXrasO+LdkiRdrKeNoR1
wa8OKFFPB5ljrvcmtXWwng4irD5/3Hqvg/V0MOFN6Oi5ZzpYTwf8s1HxX6I6
WE8H8tXty+OWdbCeLnQWrXz2chr1dGFSfHLfJwPq6SLVryTy+VA76+nix+51
bza8amc9XWyIzEgouN3OenrwGLo+IftcO+vp4enQQx3v+HbW00NEjTj9wDrq
6eHm6sz4UC/q6eH9eMWsxonU08eKLVp2HQbU00cPtq2NkqfeyHsHrcbjHW2s
pw/ebG8vx4o21tOHyYzco8tvtLGeAeY7pT3knG1jPQN0eo4z1k9oYz0D/O5x
ov/8JuoZgLM750FmAPUMcLbnxGy92dQzRMrkl9MGZdQzRO2FM3GTTKhniHl+
U+xej6eeIYoNLi/uetfKeoZQyAtx9GlqZT0j3BB9nmT8pJX1jNB1uzwPha2s
Z4TqVOuZNy+0sp4RguRH70o4Sj0j7NqurH85jnrGeCTK+5sbQT1j3Ep0u9gW
SD1jHGtTCP+wgHrG4G70ky1yoZ4x0vrM5D9KqGeC0shKhRYz6plgx4WGEG11
6pngc+U3MQny1DNB6o6cgy4DLaxngp0vfeSnNrewnik2POp0DKtu+f/5eqYo
L1l6u+l+C3vemEJj77DqoXx2vacpniqY3dtxoYV9nyl+xJ6I0ydZL9oUxvXD
FR+TWe+YKXzrWxL3xbBejil2xFSv8tpEHlMc+9vO3GM167Wa4iqn5PBmX/KZ
Qd85Jq1qLvnMoFQkrx/oTD4zzDrt+8F0IvnMRp53OcJvrchnBjnL8Tl8I/KZ
wWDP6+QQNfKZoVgw/LB+NPnMELyPv3Xrp2bmM0O6TfPV6W+amc8Mq4qcU4XN
zcxnjn19qTNdapuZzxzN+2f273zczHzmiNA++qDhHut5muOMxzb5H26wXrA5
5qsuqNO+zHrR5tgveJzals56x8zh8jI/ou446+WYozGi7K/+/eQzhzBib4NV
PPnMobtGWT02inxctHzXf20onHxcuGXpCw7/0Mx+P1zcTP310bwV5OPit9xM
Rf4S8nGxbqKLp8F88nFRPjRz2HYW+bgQT3Hc7+/Iejlc/P6P07bMCeTj4mRF
rUxNSD4uqu72Tk7lks8Cdc/OjJMakM8CxzvteZ3q5LPALc9Rmn+MJ58Fxjh7
+2fIk88Cqn6uiVmfmpjPAu/Ol4kevG1iPgtcPJtYPdTZxHwWED0v1pjd1MR8
FhjnM3PX73VNzDfSy/e6wq9iPQ4Pw82HnPPKWE+Ph/a1Kk/8i1lPxsOVsLGf
9W6xnicP0z0HArtyWS+YB9cD6y9VXCYfD535FtFl58nHg6p7WXTdr+TjQW2T
su+X4+TjIQ478yakko+HEM19s3YmkY+P0MLQ3Bdx5OMj+bV1/uxo8vHx6unG
Lw+3ko+PxGfpjgHh5ONDI7/QRmE9+fiIfTA3+kYw+fhok4QORi8nHx8eZ3Jd
lvqSj49WJ5mlyyLy8eH3jd/30+aRzxLuy8ZccHUnnyXqmoJK/F3IZ4nUux8j
4xzIZwnuqL0xt+zJZwmBt95voyXks4SwqfW8nw35LKGVv2zhbR75LLHhi1KI
zJR8lrhdlHnzmj75LLHi1rCiqxb5BDie2GLZoEI+AZZUu9cljCefAKXPNQZm
jCafAPW6EsdvOOQTIGtC7J66T43MJ0BH36v0gn8amU8A+fWjA//T18h8AvwU
cyr1VFcj8wlQ7S5TOtfayHwCcB8L0nIaWI9jhfLGAoMnL1lPb+S9/vtlH2pY
T2aFIx159sJK1vO0woXm07vWPWa9YCuI+FoquX+RzwqDTxwKFYvJZ4V52e9W
htwmnxXSRtXW1twk38j1c4VDc/PIZ4WUJW3pj7PJZw1976zLSy+RzxqK/UUf
ejPJZw3OYxX/5N/IZ43GWxYFk34lnzVuLLHo7TxJPmtsjC2ryThKPmuc4If5
hKaSzxoaXQOzp+8nnzWK1EsP6iSSzxrPggbVPsWTzwZvpO/Pt8SSzwb9q15P
ebGLfDa4dN4po2Y7+Wygm2lRVb+FfDY45GuY3h1OPht8t0T0WSGMfDZwW/ii
kBtCPhvoHdCqmLOGfCPnb3fX37GKfDZwd/DcdW05+YRw27CmdXAZ+YRY98LL
3nEp+YQ4PYXrk/Qd+YTw1QmybfEmnxBPr8ilu84jnxC8TrezWR7kE2K1Z7uq
vhv5hHikOvA8ZQb5hLCe+qxJCeQTQi7Xz+CAA/lsIU7IWGs4hXy2KNW0v3Fp
Ivlske36YtBNSj5bOA7cHNsuIp8tLtn71CfbkM8W3iURKxwE5LNF19pJ0X0W
5LNFWdAYfpYZ+UbOH3XCKcSYfLYI0/54Q2ZAPhGGfg7dLadLPhHqug/EVWuS
T4QSe+drl9XIJ8Ji9zMfU5TJJ4L/FZ2ZmxXJJ0Kf/8KfV44jnwjvlztnLhpN
PhGSLque8ZQnnwjdb+2WevzbwHwiGPp5/jl3qIH57CDb5lXh87GB+eywwCIw
LOhdA/PZocan9cDWgQbms4MpfzP/UB/rBdsh8UqbcXYP60Xb4U9t95Bnnax3
zG7k/2bdv/+2sV6OHUzGGpaKWlivzA53+vKLVjaSzw6Gyb+Un/ibfGL4BD/o
rn3JzlcSI3bO8W+MXpBXDMHWn3WDatj1fDEcrk1Qyq5qYP9vxMiI2F2j8JT1
IEaORuR633K6HzEU3nreuV7GekvF6M4Luq/1kO5PjKC4hWHbSlgvXIyDkyqz
m/6k+xVDnFYW432X9RLFuFPsXXGviO5fDOdZp36ZWsh6/xFj8k/a964XsF6O
GFpj3eZNzGe922LwSptsblynfcQoOFLi5ZzDerVi7PMduProCu0lxsXYJNeA
S6w3IEbd6obht1m0nwSG5wIqEzJpPwm2RB8tEGTQfhJUBs7M/Cud9pPgpv30
X0LP0n4SaD+P2qRzhvaT4FWyqeOfabTfyOfRgS2bTtB+EhzmpQdaHaP9JNjw
1/eXGg7TfhIkK8j+SEul/SR4NLk21v8g7TfSNxIOme6n/SRIm8o1bE+i/SQ4
uLHyRXYC7SdBZFKoXcxe2k+Cu3dc1BbG034jPdeCLYKfaT8JBmp8feViaT8J
Ri0rvlIfTftJkLPq+sbCnbSfFKJyztEzO2g/KcqXHtGN30b7SfHeYXd3WCTt
J8WWB02KAZtpPylcOe9D522i/aQYnKai7LKR9pMireRIw+Qw2k+KmHiNRmko
7SdF0QnDceIQ2k+KgrGrPMU/0H5SuCy5miFbQ/tJ0TKvUX1qMO0nhVdCZ9yM
VbSfFAOTK4fmr6T9pLj5R8H675fTflK8Cax6+mMA7SfFD1prePHLaD8p0kc9
DTjtS/tJsXLV7siCJbSfFK0Gw+ue+9B+MiRF1Uo/LqL9ZPgyfOe+4ULaTwb1
3nCzGd60nwyXpUUOIfPp+SNDhXyc+tG5tJ8MgrN/nLw/h/aTwcZkbfX72bSf
DL7q53Jt3Gk/GTL8D01dOYv1wmWI7wn3O+FK+8lwcnuKRo0L7SdDnpezv5Yz
7SeD1/h/pD5OtJ8MdgH8lGOO9DyTIbNhecjf02g/GQqfOBVbTqX9ZJj0bH3q
xsm0nwzRlelVRfa0nwz1WRejVSay3oAM3irLD62Q0X4TMHrm2bG5kgan/wLF
FwSg
       "]], 
      LineBox[{{1.8929319360197412`, 0.}, {1.8932251037528376`, 
       1.292861305011617}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxdzmtIk2EUB/DX6SI1cg3S0NS8NCoKZ9NGXnYew0xRilkYEYrT7IJ5CVt5
gdIKP2ilFhLT+pCmOCFJTO3mXtPQVTq31I3psm2aaTabeUlzWi3Pp/7w8vDw
nv/vPF5JGbEpDIqi+H8/6/l/KiTWSEGhEIm5QQX02v05HMkROS2FlNEBPGs6
wSfqxoM0owT/v4XltkAHn8iH9JqihCS5zufxoxqc7wexR8HOiPX19JnT1qhB
Hr5Sl3KxAftaCBW23jwobqR7e6zRwfZWUu/Z0oSeHnimwk3FK804bwA/1zDz
8Zhn6I+Ckyzrfnz1C+yPQdE9zbU82zbcNw6Lk/OcijQavQlo2NftFjfTjt4k
uO/d/FHj34HeFKTcul2nye5E7xu4J/T1GbreoDcNKq3z2aKtXeiZ4ZC9ZVt6
bjfOmyFMl+DPM8jRn4ENrOb4IuE77P+APG20G7fnPe6bhURV7YBJ2IveHNg0
KI5WjirQm4OyXc67WWFK9OYhu0PgF+yiQm8BKpmRwsE5FXo/4ZhyzD9z6AN6
i5C9VPpSKu9HbxFi+eWSPe0D6C1BXECpseX1IHq/INj3EsVWqNFbhnAvmd5j
XIOeBeylVTn9Dlr0LLBqdHwqCB1CbwVMO9i9xVeG0VsF38u8iHVKHXq/wdX7
br4HbwQ9iiRb+JwM6Secp8iWEWGXqEKPPkUWTqVXl6Qa6H91ng3hNp0vT44y
4j4bwlE7sziBo+gxyDlxPTuGO4Yeg9QMTDteDfmMHoO8klzIrT05ju+xJSzH
UHq25At6tkT0pEdmHp5Az44wvU943jnwFT070jhPBx3unkLPjmRe3y8ISjeh
xySpZkG+X8h3WhbsEl2VyCTTWSx24UYz/QcMC54/
       "]], LineBox[CompressedData["
1:eJw11ndYk+cexvEIxa2t7ICMEEISCGQ5KkNuUUERi6BFEWhVNBwnLk7BsqTn
gAgVrWBlWMFRC07EVWdbqjhQVBJk7yUIIooKihzt+T3PP/kjbz7vN/eVK9fL
WxHqu0qLw+Eoh3E4n17/HOlUoirRxfisGTVy335Xzj9HD5qm5N1Gfm9dJyk/
HT38rZpXXL/yjWuI6tPRQ3Tv/Br1jteuGemfjh6+sHqn7XGjz/V+8aejB3dZ
qnu/Th95+vB5+KF9eMAr8vSBNOfLpVdfkqeP3ppRQx/EL8nTx/R9tsb+Ob3k
6UMnM9O1itdLngHUWbcbs/NekGeAU3cPTW90fEGeAaYUX337/FEPeQbYvq41
VhraQ54B/FyqdY11e8gzhOaa/6ZlW5+TZ4j/6O5bY/SgmzxDlPV3J+yVdZNn
CLQscRRmdpFniPMlaaunjOsizwjLfVZ6T4p/Rp4RJLKMnBydZ+QZodXC+cPo
pE7yjHCGq5UywrCTPCNExGRWTf21gzxjaJXuLJzl1EGeMcpj89Jr1U/JM8aw
B2sCr25+Sp4x3sX8NjxT/yl5xvjlwdE+58vt5HExZshx+ergdvK4+DKuqKnz
83byuPCfUvx56o028rho44dMmLy5jbyP15+wW3pU2EaeCXz7R/ldr2slzwQB
UUJRYEYreSbY05+/IWhxK3kmWGhSPvawYSt5Juh0lg58Xt5Cnik6prcaJma2
kGeK+DfTPutb1kKeKbwL8znOohbyTHGt+PcijxfN5JliTqPLVu2rzeRNxCDn
5aqAHc3kTcTRpBFiF79m8ibC57eBb38WNJM3EVcOrTjt/7qJvInQHN54fOvt
JvLMYH5Cp6gis4k8MyTkymd9v7GJPDM4P+wXeLk3kWcGW4EHH2bMM4MkqiFj
Xl8jeebg8L7ZEfygkTxzeNZ0RkT91kieOYxT2uNTfmgkzxzhMx08dn/bSJ45
jt0fce/fzsyzgJn39b2OJsyzQEz62eTStw3kWSAy7fVnjuUN5FnA/n1ArupS
A3kWmHm2O9o3vYE8S/S8e1Tzehtdz7WE9e7wdfODGlz/4ZWWODZPZroA9Hkv
Swx2Dlj089n9LNFdcrLXbSR5sZa4PWvhXFFXPd3fErnf3NY/8rj+/16BJYKK
f4rKv1RPPZYI+a6jft7B+v97rZYIMH95f0N8PfXxcFllpW24gTwuD03SkrUu
fuQpeShXtJk1TCfPi4e2qbcXDwrJU/GgCXaM3jWBvFge5h3UnWz1po76eIjL
2JKvXVxHfTwM3T035kpOHfXxoI6rmOgWXkd9PIQcL+7/ybuO+qyQn/RjzzEh
eVwrLBL897/fc8hTWuFe/LBNIytrqc8Kp7LVWXPP1VKfFVwD9K0cU2qpzwrR
j/vdNWtqqc8Kf92siTT0qKU+K7SvWfBNP5+8Yiv4vvY8GTGMvFYrfOce4bO3
rob6+HBxyfBzu15DfXwkrOvriDtQQ78fPmY8bA7yiaqhPj50V28yzwuqoT4+
DLOGXU6cTl4sH+k+xlXPLMhL/+hV8ec8HEZeAR+S6wGNsuZq6uNj1Q8njowp
qqY+Pg6WnDkUlFdNfdZ4NnBhhPWuauqzhnv0Y4PAzdXUZ43hKW+ttReT52UN
5XzhIUNn8lTWSO7dNz6VR16sNU5FvPoQPoK8dGtUOB81Keyqoj5r8PX0TDeq
q6jPGmHbOPeirlRRnzUagpt1Og5VUZ8AQ87zL57dWUV9Amws96zUbCZPKUBI
VW24TwB5XgKcC9xynD+LPJUAX6kW7/e0Jy9WgNRxM7b8bUheugBx1erIFA7r
EyB4rkIrr6OS+gSQDv4nUFdTSX0CLDiV0XPrRiX12WCxX5TDrbxK6rPBk10T
9ozfV0l9NpjWeOnAL9vJ87LByIY3TVvXk6eyQUiJxWCKP3mxNoi48S6pezZ5
6TaY0hPrnKIgr8AG7z3jCjdasD4bSKpUtXvGsj4bJJk1+b7or6A+IXKHn+/+
sa2C+oS4mLMiQaWpoD4hwsTv+iMKK6hPiP7YStui/ArqE2LS8w0687PJixWC
P2JY5OgU8tKFsDkUlfAhirwCIVRlM4Si9eQVC6GlaV8WH0heqxDn95vC2Iv1
iWC0aEVZtRPrE6F75xvHUjvWJ4LFzaydA6asT4RV9za2+YxlfSKkBhSFl78v
pz4RvD201v7YVU59Imx6tvZ5aG059Ynw54Cuc0xJOfWJEBp+LOnyH+XUJ4JH
/xIz3lnyOGJ4vj8/6exh8rhinA1O5q5PI08pxuP3d418EsjzEuPo2JUxQRHk
qcQIeyI7smct6xNjO7es5lkQ6xPjSkhuwoYFrE8Mo9CfOYYzWZ8Yb0aPOd44
mfWJ8bNY86xUxPpssfw7A+lTU9ZnizN3+LW8z1mfLbqwbXWUFuuzxRyz7Jnv
+p5Q38f3nQ0aM54+oT5bFLpOvxZQ84T6bCGY67PA5dET6rPFs6Uzua43n1Cf
LSxmXti/7HfyWm2xw7jNJ+ckeRw7eLseuMs5RB7XDpm93KTofeQp7dDhNdLc
JIk8Lzu8urf+i9IY1meHE56ZL37byvrssHqD+cLM1azPDpy4gtu537A+O4Re
ndpeupD12eFQV+Zc7lzWZ4eilCfxEdNZnwQpX1Y7vVKyPglOqxKHJ4pZnwQV
ednxUy1YnwRqweWgIX3WJ8FXAdOk9aNZnwSr/dyyKzisT4KbpqcXd74uoz4J
ikJ0Puh3lVGfBNoX17n4NZVRnwQlqUf+PFVRRn32+N3h3VTzh2XUZ49Eu1ne
R26Rp7RH5x8lF3GNPC97LBm1gv+ygDyVPTSptrOv5JEXaw/R5KuP9ueQl26P
VVo6MUn7WZ89htLcP9ubwvrsEfP9eJPT8azPHtlqh211UazPAfcdLtbxw1if
A/5O7BoeuY71OeB6ssfJtmDW54DL7cF7VAGszwHpbdpb3vqyPgcIBTp6BzxZ
nwP4mwOUi9xYnwPO1I3+2cyR9TngQA9Pq1/O+hywqLdgWquY9UlxL7xUu4XH
+qSYMJQs7OOyPiki8xrWGeqyPimqHP7KmjOa9UnxrnTU9iQt1ifF9fSI5toB
DfVJkRpZ8JPbSw31SaEsm7zkQqeG+qSIrvbTcmzWUJ8UXU749n61hvpkCL3f
4bJRQ9ePlWFFiMkGqwfkc2UoKfL/o+kWfd5GhnH7X+ucu6Gh5xsZ9BIHv9h7
iTzI0Bw/5VxsPnleMjzW5hVG5pHnL0OYf8+EhMPkqWTYhB1hB7PI2yKDV2BE
4c008mJlMK8ZfNS/i7xkGZwmvf7OaQf7/jIsrWlJ3rmdvF9l2OzY0966jbwC
GSK3a1Yu2EreHx+vv/a84tZ6to8M6XVSK88Q8ipkWNBkYly5jO0lQz6naN+/
l5L38uP36SmPsFjE9pPDZMb2A+r5bD85Ei5E1KZ5sP3kGHtDyyR4BttPjvG9
9fbOTmw/OdwPLn1rOZntJ0fUmslLJkjZfvKPz3cFknFitp8c0zP2fq3PZ/vJ
MUw4usDGjO0nx6YLhYJZRmw/OUx31O9aN4HtJ4fj096Sg2PYfnLcFA3erdFh
+8lRnxa6wobD9pNDtdMmImJATfvJ4RHzr96yV2raT44jds3505+raT85Bk6e
yjzzVE37ybHyxoxUSbOa9pPjQU9E7Nla8jgK7OxJne1WQd5YBe5USu9UlZLH
VaB59+wX0Q/Is1FAMdH+iN0d8pQKhBnuv91QSB4U4JjtmZ1znTwvBbI9t2mt
+Z08fwUEl8e0OZ0jT6WA9xe+VYanyduiwJtxJ4sGcsmLVWC36EFq2xHykhVQ
2160qzlIXroCbtWXwqoyyPtVAYPTmwIb08grUKAxrPjOi91sPwXOmw8dG5XM
9lNAEpbYIE5g+ynwY6dyuW8c208B43+N1/0hiu2nQIRJaN2VcLafEi1fvzj3
fgvbT4n7G7dGzw5l+ynhcdxEtG8N20+JRO6cX7pXqen/R4krqTn3v1rO9lMi
68yYwxcC2X5KHL2QO8ZmCdtPCfej1a+yFrL9lFg72c3L1Ju8LUrYNxUMZXuy
/ZQoeT970N6d7afEwXPuyr9msP2UkE1z2R3kwvZT4k1JuxZnGnkFSpzoc92W
O4ntp8SyuNAWfxnb72PvowrlBAnbT4mvug2+LhGy/ZRQ/9X9ZSqfvJdKzJ2/
ouRbC7bfJFSVZY9UmKpd/weF2FPN
       "]], 
      LineBox[{{3.7356153264352137`, -1.0035458284030443`}, {
       3.7365987185986658`, 
       1.582567085535405}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd0mtMU2cYB/BSSgvl1hKJMAYMxhQGwWXAB+XyPjNQ5RaFgU5msSDKVXDq
ZDhshpkmhtmZSOZgs1wcK2y4ARIp1nDKZdykLci1QF0piOUil8IABdzGfD7t
n7w5OXmf/+85H45LYlb0KTqNRov/92w//5+iwu1UEtfGzpr04kzqzXsDuTHo
dFFcKqR8fbbTQppKvajVjWt430n6ndXeGb+IqDdKD7niUdhV7n0L5/uIJNqQ
qGbfppJPb2eQqF2cpwUzRdhXk4hcJ7lCIaYU3dsZIxuNtM/UcaXoaUmCyPTb
6Ki7OD9OfsuOqLoTVo7+BJE0hZ5mHZBgf5I87JJJNLxK3DdFBCl1j7PCfkVP
T4IDzJqtou+hN03Mo/z9LON/R2+WpH1CU5+or0ZvjiR4RKYENdegN0+yR7jV
SlUteotEmsQMC9Lex/lF8jPvpf2j5Tr0l4gDn5X8BfsB9g3kcmfg6k9u9bhv
mQhftO36fL8UvRXSGNNm7ZTUgN4KibzKLhm8/hC9v4inO0UN3Zeht0pa1JEX
juseobdG3gksYZbZNqK3TszrX3nqIyn01kl2yOD30hA5ei9Jt/Gc7UfP5ei9
IvVs5a2a/Cb0NkifIbt6j08zepvksD64UadpRm+TLGjtJ5bzW9DbIp60rb2i
wFb0XhPfs0fWnhpa0fub7BQ53rSt+gM9GmRIAyZPprbhPA1CzgkzXr/fjj4N
clmCjLeX2qn/6j5G0FH4gfu6rAP3GYG8YsFZld+JHh3C19IP6QRd6NFBmepz
4aL/Y/ToQCWuHut36MbvMQa3H2y9Q+kK9IyhQuM+umtBgR4D+FPJZ1p1SvQY
cC9v6yuhRoUeA7p4Us1oVg96JmAil1XMrfSgZwL0/XyFh7AXPSYUFBfHqcyf
oMeEGyUBdxzFT9BjwplDrl8f8+tDjwUyiQ9H0duHHgt4i4qe9vP96JlCwZYq
s9hhAD1TaN23+2B15wB6piAY3usULxxEzwzuXtOrd+wbQs8MRpeOpoRuDaHH
hpyJoLpLHcPosWH8nJP8wx/V6LEh/WTBFCtnBD1ziMmb44lPjKJnDqNng05V
Hh5DzwKGcpTM+QgNehbQcNQlNjj2KXoWsCMpKqYo7U/0LOF2kp6/wdOiZwnf
JBi5Bmm16FnBp003qQd54+hZgfXl3Co7Lx16VmBTULvHS6tDzxrC6b3CXvEE
etbgYZqZxUidRI8DobxnY1ryDP8vDmwM+85J3KbQ50DISFNim91z7HNgYEb2
8ZijHvdxoLyu8Ms2v2n0uKBaK5dVJs6gx4X3ys6HG0lm0eNC0ru7k6tNXqDH
hSGrnKt2V+bR48KltC7qLc4iejZQUeaoFBgW0bOBCYa/fe3MEno2MHu8Ni57
00AdaY297vKdDYzwRb0Hd65Q/wD6GcHh
       "]], LineBox[CompressedData["
1:eJw11nk8VPsfx/HRraRVlsrYZgxjMMxySpTyTnsNWXKLy00bXRU3uuFefrRo
L2nRbZFKC226KdUtSSW5l4uxa+yylMJt0aL66fqc7z8e85gzr3me98PMY/jL
gt1XDuBwOJpqHM63v9MLAjOmdOsh9e+1e00ffnDk/He4qBrkvSVh+QfH8cy3
w0WM7bTENvv3jgH+3w4XX50m/WZg3eN49Mi3w8UkB+tkG/t3jgX53w4XHfv+
Tij2fks9fSTkPps6O+4N9fQRt+Dk/emlr6mnj7RXKosK89fU08fRjdfNfbb/
Sz199Focjw580009A2goQpfkB3ZTzwA9syMqf3neRT0DbJkmGvy/kC7qGaDe
zWiT3oAu6hngDDPqjpWsk3qGkAeNLLkY+Ip6hui1DJmbmPaSeoYIsD7jrfG1
g3qGCI7vddBZ3EE9Q3gGqO/8cPsF9YzwQDfVVsP0BfWMIAur4Zw99Jx6RjD8
48nUqSOfU88Ie5U3v3jsaaeeEVzHPwxcp9VOPWPsejxhpTixjXrGcI0oXGhq
3UY9Y5xdvkNP7UEr9YxxOiBHEPJDK/WM4TCyKsX6Qwv1eDDOu9XVebSl/3o9
HsZFT7z9K1oc/8szPHzXUnPxYPuz/tcrePh0r6RpSMIzej8e7jvf3Hhu5rP+
XgwPEy3i5+N9M70/D3l53y+6dLm5v5fOQ+GG8/cermwmDw+T3ZK8l/Ga+3st
PPiUP9rqX9NEPj5C4ic+v3q8iXx8PK5bPsv0xyby8XFt0+/zzvKbyMeHY2fn
am5rI/n4+PmX0dmrrzSSjw+PTt+GTWGN5OPDQcsid55TI/n4MBx96XrayEby
8bEOq/STVA3k4+MA93as+qUG8png/G6fTZWRDeQzwapBWfEDFjSQzwTS8Fqd
MJMG8pnAfcfxKaKeevKZYNpvPhyNgnrymUDmXDB4xJl68plAu+5hsiiynnwm
KGwf9sTVs558JvB00Hv/q4R6LSaIVot1ShxKPY4ATY92BPkU1JFPgFivsVlz
t9XR/48AtrE71nQ71ZFPAFfuJKfpnDryCZDUwi2VZNWSTwDdnpshKdG15BMg
ZK82L2labX8vXQCp2rzYwYNqySfAE8XLtuK8GvIJYJipIXwbV0M+U+Q6PU5e
saiGfKZwcDvorMurIZ8p3K2bd/W2q8hnCuEejymaN1TkM4X6POerszaqyGeK
wLTRiQkuKvKZIjHVmNdjoCKfKZLv9Fxf0vGUfKbYOlkue3L3KflMMexpY5Zo
71PymcFFbUZNhN9T8pnhYusZ9+vMU/KZobvskLxYnXoKM2ROcCnLU1WTzwyr
d84pO3ytmnxm0LqgOXzCjmrymSGkGnHH/KrJZ4b8Gxcu59hVk88Mvu9TOi6P
pl6LGW7tPjxowYsq8glh6hfclJxTRT4hTDI2nzx/sop8QoxX/bjFM7KKfEL8
OuuuWuriKvIJcRsnridOoF6MEO4bo/wk2tQ7IsRQjfhXXt2V5BNCUSFeo1dU
ST4hxurYagSmVZJPiBWrLo6ZE1dJPnOsX4hBV4MryWeO2IChK064Uo8xR7OL
Y90oOfUU5njxaICjmg71/M2xOGy6f/C7CvKZY+Hwc26LqirIZw7H36LGZNyt
IJ856j4WNmw/WUG+vudLAnryt1SQzxwdqzuvRv9EPY4I+z6OjTrhQj09EWKm
/lUrHE89RoTkLL81Y7jUU4gQP+rFP4Ec6vmLMGl/RDa/tZx8IvB812na/1NO
PhFeZrX+fuVGOflEuKk1aE5MYjn5RIj6KYh7KbacfCIcKLmhLw2iHscCzsqi
lUMXUU/PAj43D/LsQT3GArIku41/WlBPYYGa+6q83drU87eAe9GYuVc+l5HP
AqeYzV6GbWXks8DlQu+llcoy8lngETNCWZNZRj4LBL2qNRenlpHPAilVu9qz
D1KPYwl1m5fnE2Oop2eJx5Lkz5lrqMdYwnf+g718L+opLOETvnlI7kzq+Vvi
h7s9vMty1mcJ8wv3EpTGrM8Sy25nSW1HsD5L2C5qySz/WEo+S+TE1eukt5WS
zxInmXrtv8pLyWcFfd8fT3JzSslnheWTGs4lp5eSzwqHv3vEXXGaegorxA5U
e+cdTz1/KwQkf7bbFkO9GCskuyx+3hpMvSNWUDrcGhO5hHrpVnj24kSR0wLW
Z4X6+ZOlkx1ZnxUKNk/1WCFhfWLo4ppPpjHrE0MYUbR+pibrE8P+jOrJJw7r
E2Pm1C8767pLyCfGh2SDfzsbS8gnRpnorr24tIR8YtzxU506kFNCPjHa4yqC
zG6WkE+MjROmt9enUK9FjKSzxb45R6nHsYY4Zbyhcjf19KxxT0stcnA09Rhr
vHE/oFy6jnoKa6xoeBPZtJz1WcNz/4Pqnd+zPmt8ytResGgu67PGQNtlmOPA
+qyhGBA6zlfC+qwhUznOOGTC+qzhtKyB6dJlfTY42xvhvVaD9dlg4Rq+zfDP
SvLZIO1LkXl+l5J8NvBb4vrwUrOSfDaIHyCIvlypJJ8Nqk02qAryleTru14x
asmIbOql26Dl58l7Vt+gXr4NeqLvdbamUq/FBs+jHo7edIJ6HAnqdQti7A9Q
T08C2elz+SO2sz4Jes55bvsSyfokmHJn2MxhIaxPAnfVuONMAOuT4Lqo1jTM
h/VJoPh8P6LMjfVJkBtqNNFlNuuT4JWD46d6B9YnQUXpfP89ctYnRfGIaVwP
EV0/XIqmV81/yoxYrxRhTXdeinTo9UIp2u2+eNkNVdLvGykWtu1JWcKhHqSw
S+3YfOJdMd2PFJrz5b+/6Sju73lJsc7juwNLm4rp/qSord0meFZV3N8LlUIr
e9nH/xUV0/1KwTSn5NnkUm+3FK+aKme8yaTeESnCG5W8wuvUO9d3PwlF2lkX
qZcuxdt9vmUPT1PvvhTO6QuMao5QL1+Kk3VZKUPjqVclBcoGSBXbqdcihQZO
/3wqmnqvpYh66ykaGkY9jgxJSz7rbg2i3nAZQrWPfNDxp56eDIL9Mw5m+FJP
KMN6RpoS6Ek9RoZgu2Pvpc7UgwwbBv4zV2Mmu58MByJ1lr52YPeT4fPOWwM7
x7P7yeD1uPfTJzG7nwx2k8eO4pqx+8ngskisPteQ3U8G5Zu5V7brsvvJEBe7
rLByBLufDPU+c2ztB7P7yZA1JjUt9UsR7SeDs4GGhmVPEe0ng9mMLM0/O4to
PxnU9nYd8morov1k6Hm/a9WQhiLaT4ZxobO8HldRjyNHTmNC38eDesPlCJ19
7WnQ39TTk6Pk321aXo+oJ5TjUWXmH26Z1GPkkL+9tGdxBvUgh9sT39/WplFP
Icet1i2u+1Ko5yVHeXJ00/1T1POX40G267CvR6kXKodiTmLSvIPUi5HDyi81
PHkP9Xb3PT/LM1hjG/WOyDHPlesbGUO9c3L4Dxhi0BtBvXQ5Vttmb90eyu4n
R717RDh/LbufHBf2d+c/9mf3k2Opzwa/cD92Pzn2pahG2Xqz+8khCIu+9dWD
3Y8B4zHFrsyZ3Y8B59kvazNms/sx2BWvPjF5Grsfgxxz5/XHJhfR9w+DTUf1
ByVNYPfre5yblXdZwu7HYMu83tO5Fux+DM74qId0CNj9GGzI2j7OwIh6oQx2
px8O/34cux+D+R9vrT+mxe7HwLdR1fl8OLsf0/d97FswQ53dj4GrVW9Xihr1
0hmsas6OsnlfSPsxCNeUTDR+WUj7MZjqZlApaCyk/RgIosytHCoKaT8Gr9de
+hSQX9jfe933OCNb93w29TjjMXL1hFkfMgod/w+0H08B
       "]], 
      LineBox[{{5.578483819540147, -1.2556846795831604`}, {5.579803538463468, 
       1.6101422847393485`}}]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768227390002316*^9},ExpressionUUID->"030580b0-b7c7-4abb-a87c-\
167719b27386"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwVVnc81d8fNiN87b33dl0j34jeWaVQNFRWymgJZaSijEJKVBpWAxFaVGZ1
3w3pGyGzEvp87r32zAgZv/v767zer/M8532e5znnvI7KgeDt/hxsbGxO7Gxs
/x83Tp85dmJ5itZ6Z3pX6tNpaFOYqj0F07Qltil/j6RpCBzoPGw6Nk1zfbiw
75bGNEhc3ieUkTNDa88LKQn7NAVRR1JTc51naYlFRnZnQqbgk0julOPyLE1X
Y5PaBoUp2HRPMjTt6R8am4p3km/jbzAYaj1+dP8cTTp1ICE1/jfYffY++01s
nlb4hac+wvI3OHCqubR+nKedyyi73Do3CeoSjbW7Ty/QDBY9igIqJ0H/cA19
P+UvbeLv1+7Z05Ow+O/xllHyL63QkSrnsmESdqUYdP+5tUgba3r824Z3Ehqa
4kKinJdoRd6fxPNbJqDSlFMmknOZdvDk0C/HuxMQeGkhtr9qmVYdoMopGTQB
YY1rwupCVmjfjPsViPUTEDJ79AifOBu2+1qcvSIyAW33FLb3BbNhXGZoKWfD
ONzMCF6eqWfDtrjv8jaR4xDxirp6rTY7ll5KmSjUGgcue2vpkvPsWJ/Afpz3
xxjEecl2OxPsCB7iqhapYyBQ7y6utJ4D39V2R0luGoPss3suKGRx4PbZLY9P
sY9BZls5u8McB1pZZbrZvBkFrm3s/jm7ONG6meHlGj0KY7e2pMs/50TJbPbq
i+tHITC7KfqDMBcmdqk5NLOPwqurd6TTg7jQP/5RPn/dCMRVWvslN3DhyEI5
j/qVEfj1/NihAl1uXJU6p865ewReOT437U/ixsu/bwqmq4zAk1DTX4793Pjd
8oHs+9FhMDvuebHVfhWGn2arj64ZBtHlzF3R+atwxdK5oix5GO7YqR534OTB
g109ka4ew7B4o1DQ9AAPbg3YfXuLwTAsV2sehLc8GPezLSqVbRiOvCusOqzM
i4ZL5z1F24fAgsrjWHaOF3e7RVM+Fg+BZCj6S/fyojlZmXMndgh0E6r3Zq1f
jQeblJZS9w4BR6FklMWd1Wg2EWOZajwEjTzsWjNLq1G/K6DnqsAQDByMr/rs
xYdFq16OpfQPgk703lvVr/kwXOfv/Kn3g/Bepk77gwI/mo4HcTvfGwS3v8E/
+qL5UTM3OnE5ehBOU40UVHv4kaN9wCfBcxD8OBf9w9cLoNTOAx0/1w1Cxp4y
g193BFCpNjt5QW4Q8o5zTe5fEcB0j7rIb4sDkM3lQl3Y9w8eHzk6HtwzAAUZ
McEP8R8Mjiy8VI0DcFd5ck2giiBuWXxpWpY3AJmlWwXt4wSxZfGzlGviAOw7
GpVgTBfE8E5q/tWjA8DmF2loaieENQeLEoNcBqDsrnXO5gdC+IePv4RcMwCJ
sftMzDmFcf9JCcNBuQHgy2oV7TQRxtENpw9HcwzAULnpurN+rNpSgswc7IeS
i/xRlBvCqLHZ1cXqaz8oK2kV9NcKo5Jt+W2fqn7wjb52qWhWGLdBzme2XNZ8
UfJKqJYIDjnxKspe6ocdPOEdG/eI4KMtWZMPw/rhonQHU+WiCLLFPf9U5N0P
kskOXNzVIpg7mrVZZnM/PM0IWz0xJIKpa3+umzbpB/1PPI2knCh+L76X8K9S
P4h9e6TX7SSKWz3MDX/x9YOmBNdST7Qo1so93T082wdfiSyFgSeiyFkRaOVG
74OKxMHDc72iWEX5+69icx90ONjQhETEcBibKja87oMrT9r+GtiIYXu6rn1N
cR+sE89d3h4qhv4c3Ocu3e6DkSORhWfzxfDcGUHZpwl9oGY60vGsXQy/UCp6
1cL7YFfp9qDBVeL45vKmx/2+LP7GV9u014pjRj9n6Nz2PpjkH/c6dlgc1U54
mOy06QP+6/ujKjPFMWdChWPeqA/etKxJXd0gjvWRrZxMlT64a2t6xmdJHKOK
iUBJ0T5YUKvTeE2RwL+tq2MvcfRBHGMmTMlHAtOjnl+zmWJCSY3PtsSrEnj2
pxuHBYMJFG/L7Ol3Ehj8ZcgqpJ0JN7qcbQ9OS2BT3V6kf2SCYk6ffq+GJIpd
XBK+XsmE+Qu/rD13S2ILp8r7qGImXDfJPNqTJInHNySF381mQrbn1HX/aklU
7F76On+FCWPOmx9MDkuiezfzcnIsE37HhybHKUhhVGy7n0sYE5r3IUV6mxRm
9BqqbjnIhOXZyeiyGCksZau7GeHOhBeLFn6uZVIoax2b0+bMhNn36xqn6VIo
QOOQ9bVmQuLelYfZEtK48a77nPIaJjBfzBEOm6RZ791z/X90mOC3shIwHymN
7Fp8zzUVmPBpYpvmk2JplEv6dSVQhAlpG+IFD/6Uxlrtpc/d3EwQ1LsmqC4o
gwHJmqdOLTBgfHWzBBNkMF+PUbp+nAHrVgbEio/LoB/NOl2fwYCtZb1zJ/Jk
MHki3d7mOwOMFflfQrsMMtLsJ882MuB+iLi5MI8shkve/kS8Z4Db/HQ4Y60s
3ttymuNIFQMatKc9Xx2RxW3C27sknzLA6s6D3lvZspim3Zjen88AC7v+8YhG
WbT5WRnelckAwzO95/ayySEZ3vDfZBoDPrn+jQVjOdQPv0joJDLA4fPIgLaf
HEofEhSNj2ZAvX5RocRNOWTumnyxGMqA//wPlnJ/ksNNJbLaN48wIDzkzvzc
vBzWpN//snU/A141cIaN68njg/Iifs09DDjGliw+6CWPR9fYOMltY4CA2r4m
Zqo8Ni3aLxlsZIB52PBt5lt5pJpbpXlZMUBjscl/YEoeH83A6SJTBjSuYeqO
aShg9tfvJiL6DKh4Z949u1sB296NrU1XY0CTlsgJjmQF7Oq4x2ssxwCz62SP
8CsFzBwy0xgSZcCd4t0yqmMK+MaJS/wVHwPm9jtKmSkr4iprV69CDgbs/PGp
0Wm7Igp72F0uWaCDhwOfWcB5RZx92ED59JsO2eRJ27hyRXyce7l9cYgOcx0F
o/cGFJHyrVZsM50O7pv26L2TVUJeN/tzj7roYOUcOcV0UkLhSpdnmm10YHAq
WAmcU8IlxnXrigY6iGdcWDEtVcKBw0LNXrV0UPSTMfahK+GzEJ6/Mm/oEBZr
0veRTxnXO035DpfTIeGNCL1HTRntrh578vUpHezL0/nnLJVxqFI9puEhHcQk
X3mIuimjsENDTNd9OqReyGgyCFZGkTBB9+VMOkjauvhuSVLGhA1nK0zT6fD5
nbjYofvKGCievPFsCh2EXPS7EqqVMeh1UPmPBDqcKR2pKGhVxiu/dCs3x9CB
s6nmQd2IMva0nFj+fIoO8e5C9we5VfByR76VdygdAk4HFggoqaBY5Ws9zmN0
iIo4WEZdq4Lxn5xjqgLo0ByQ93aXqwr2GwVNx/jQ4Tbja/OZIyq45V65zV53
OvC9LvuZG6+CfWCiZbOTDtIFYuTnbBX0WO2xb91WOnDPNHVPvVRBB89VxXYO
dPji1tyg0KSCXXT/Oi8blt/JfI8cBlQw/d18ZIIlHT7KxUaGsauiGtfF2Ddm
dJhWtTW8L6uK2q4yD7iN6HCaPfBLo4kq6tP7Hnro0eGrmprLkpMqSlR67kAN
Vv7vs17oB6hi8LJAoIkyHWaLxOc8z6ki0opqXsiy/PrTKXXltiruf7PEbydB
hxWmhQiWqmLmZaYWIUQH4kYO8fuzKu5pd+i6xEeHuy1HEjQZqlj/TWzKlpsO
u3ulltyXVLFb2shqNRsd5q3VbdMk1bDEND6pa4EE+TQZt4+Gajg40ZNfPUPC
aqtLJksOashxjNu3YIKE7kOS300PqOH52Dvpd4ZJ6Hy23+7YGTVsdzARyOsj
4TWbQmhBuhqqNWrnPCdIsPVn9/31WA2byGq55p8kXO5tFpGrY9WyfzznOknI
NXeLdvulhrcGK8z0W0no7/LLuzavhsWMu+eONpKQkvcttklUHSmaEkLl/5Hw
reqG5D/66jjdbPmav5aE0MCkfY726ri1bPZAIJJwYdUD92Rvdczh+v69s4aE
58X93J9PsvjO+ovOFSTMG+zcx3dVHVP39Oc3lpGweWrGz7FYHWVdS57ufULC
cl2veMp7deSfpM2NFZEg/VbvWNNPdWRrFPK68oAEI5m/R0Vn1ZF8o179730S
zIUihNyENLBqj/rYUDYJRG39rkxtDTwR39BZeJsEmpqxVa+1BmZphrgFpZOg
+IL5Xt1DA8WGpzavTyPhVJLOwJEwDaSJ1l+TukxCnuymh6UpGtjhPy2ykEjC
ecMrHPMFGjhu/OchM56E+OqdMxtQAyf9fpn/OEfCubezZy9+18AnD6Gw8wwJ
h607clp+a6B0kXpb90kSfMU8XOQFNPG6u3z+SCgL3/I7PUBDE3ftofzlDCGB
/Z3wkdL1mrhpx4/XaoEkaL8waFzcrYkyVyW+Oh4i4exkHc3hOAt/xkE2yo+E
l8q+VjeSNdHB0uncCx8SRilJ9mQeix98qG/ak5XX2toOw9eaePSHi5nVXhKS
Tjwej+7QxLvmam4pu0iQFP9+pWFcE92l/A2YriRMbGCWya3WwpZn7Pl2W1n5
T4W6H1XVQo2hTbklW0hYNaR3vmadFh50GhCW3UTC35RKisAuLfwiPPUt1ZYE
HsZ/e7yCtFDXooMusIEE5whx9qeJWshe7iF31ZKl19pVk/2+FlIvFR6WNydh
/L5V3Y5qLawXN6t6soYEbusssqBVC8vsfkxvMiZBiJN6cmFEC62mangGKCw/
Z2rjt67Sxidmbt1X9Fj9rPR48pS00bUufL+lNgk7uI3Z5tZq4/Dhf2Mm1EnY
GfzsmPN2bWzwX6VZokKCVWzM1ryjLDxXFgQqkmAvGXN//rw2hkjOV5nIkfCx
Mc3f5Y42Ll4IimOXJqGK7XZGYYU2do1cTWgXJyHk4VnLlWZtrDOzfvFUhITC
vUbOu4e0cbfDvflUQdb9o977/JRTB72eSdlH8JPw9cOb57wKOjjhtePCAV4S
7kmf5zlgpoN/fKyLdnKT8Dhl6EPNNh1MeSp8z4mDlXfH+JDEYR0c+W24d8sK
ARX96ZEhcToo7+H0wXmRgB1j3YH1WTpoctrlq9s8AfHQ8lHzpQ5uV/cN8Z8l
oMQ56kJcow52uvVdPTVFwJuswcKefh1U1ozQvD5BgEiprsE6dl28/KxfsWyU
gIh/dojfltXFD5IOgR1DBMQqnPKcMdFl/Te7Vlb6WXjDcq4dzrqoxCNfT2ES
sCpAU6A0QBffTlTSDpAEmJUOHBeK0UX5KzeasnoJOE9TXBOUoYtuAZ9Gvv8k
AGZGdn4p08V4x8zVCj8IyNh/ulm/QRe1T12Q9u8kIPjFRMFlpi5avjAVKGsj
QMY0qnNkWRcLw+M6OVsISHnuuN9ZWg+fi0Uec28iIDspzfaJkR5y/nZ6+7KB
5Ufc2WghRz0cqfD/KPGZgOJeR8Hjfnron7Aj5HQdAdobjWZaovXw2r+tZfQP
BIxVHjZac0sPqTkNsa7vCKhNNX5365kevq11/fqeRsD6oPqChf/00HrjnRsW
rwmwXRfR40XXw7XnJd+/rCYgSfrkobeLeijBs2nrmkoCrNzF7TQk9VGjnq5X
9ZKA8bM3Qy4a6mP1rToX6+cEhGo5jI466GOy+1Tpl2cECAlFVG0/oI+P41Ps
vJ8Q8IIzuK3ijD52HSSWfpcQ4N8Tb6VwQx/l87xbLxURUH6GZzruiT6ejLld
rV1IQOCLrX8G6vSx1de+6L98Ahzdnm3cRuhjjdn6G0G5BEzLXyBeLuij5Lfo
MKl7BAwXa9XJixtgzxVlqw85BDyOm56NNzBAyRhfZlgWAX9XNocMbzTAmxr5
vjoZBFBdk4x3+Bhg8H/7nhA3WfsLEbGqOWWAVzhNXuWkE5CpuDlV7boBfln7
Pd7rGivfH+nalx+x1lfQX1ROI0D/pwfvTK0B5lioyQ+kEPBTiIfi3WuA1060
/ii7RMCXf9gz6uYMMDIlyDD2IgH3JcodjEQp+O6tjciORAIovOmWWXoU7LGr
Pql9gQD6fr4wbnsKTnW6u7PHEyC9Jnks2JuCXJ61z7pjCLimnlDy4yQFn/u9
PPH6LAEC3ieK7a9SkNLEdvteFAFt6R+GnhVTsGnvLenE0wTcWpw6Kv+Bgn8s
40ZCIgnQsjtlkNRNwZOf6PzeEQT4pDVSpmcpaMf2J2hrGAGGJ4ODfYQNcXqd
kKDNCQJuL3wba9AxxJy6W8TaEAK+x198ZG5riLGJYqRxEAHPetgeFngaIi1L
npcaSECqKf4SizDEah4/J+oRAqR4t7jFphqizZ7SQpNDBBynqvKOPzRE5lZS
1CKAgJ62LzOe7wzR5dJQgq0fAZsOtSrWdxni1NrWxW0HCBjKr44znzHEmlfV
x/b5EMBrlyC8k4eK475tLce9CRgpKIriF6fiEYlDGomeBFwwS+F+r0zFfK4W
77vurPO7+U/xaQMqHvCLi6zeQ8Bk05NAYwsq9sktHf3mRoCo65ktQxupmBL9
3Xh+JwE3BtXtcndQcXnp7Uf5HSz9m8P2uvtQUXQsVMXWlZVnmXGy6DEqPjWm
WQZuI+D6rE7H51NU/MqRIHrbmQCdMHWr+AQqaue+yv7oSAApOfpm3XUq6ikd
bv+zmYA9O7d5TN+lortoXrmeA8s/XSnRx4+oWOh13eLARgIIRRG6fxUVE0dD
PbLsCFiy4GtU/EjF7DOpYp02BKQJNLd0tlCxwsXaS8KapT+XOpnWS0UXvhlj
NyDgZsqC9pYRKhp6a6ZmWBFQ+GPxFOc8FYsIn8DedQSYS/AwXnEb4etmqNWy
IKDbdjAgQtQI/+04ln5iLQFi/aEcVCUjjGnNb6OZEVD352T5oJ4Rdpc8jhFa
Q0A782Nc3lojdBXyub7fhNXvpvFBL3sj5LbP5Sk3IuB/HSJnuw==
       "]], 
      LineBox[{{-0.023644510538435935`, 0.}, {-0.023836931523563937`, 
       1.292861305011617}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwBgQN+/CFib1JlAgAAADcAAAACAAAAfxphuacR9j8AAAAAAAAAAGc0t6V3
EPY/zs5hdTA6gb+FmSOK5wz2P095YQ/5PJG/GljUxPcG9j8jSYSdbeKZv/7g
ivKo/vU/+701CiNIob9PUUvu+/P1P2LI3COtpKW/D/vr0PHm9T91HoEpRgiq
v9qyhfCL1/U/yET9qGV0rr+qjcXfy8X1Pz1Rt4xFdbG/aNwgbbOx9T8lt0Cq
H7azv25U7KFEm/U/M+2GEYv9tb+Kc1fBgYL1Py8aQfBXTLi/SktNR21n9T8P
vnOcXaO6v/n5O+cJSvU/ipfXgnsDvb8pMMSKWir1P/jp9Saabb+/8DZSUGII
9T+uNscbVvHAvwn+oYkk5PQ/HTIV3dcxwr/FyC+6pL30P2WNjqjXeMO/9hyX
leaU9D8dXs/P4cbEv1Wi4f3tafQ/0dkWaIocxr9JpscBvzz0P0cJ/CBuese/
Zf3j2l0N9D9B3F4xM+HIv/X73OvO2/M/DBC1XYpRyr8FP4S+FqjzP3vZSxsw
zMu/xPnuATpy8z9g0abU7VHNv391iIg9OvM/Aa7OU5vjzr+naSBGJgDzP5Eq
FiwQQdC/9MX2TfnD8j94wj4vOxfRvy98xtC7hfI/mwVIUdX00b+kyNAac0Xy
P1TQ5DFw2tK/x2fqkSQD8j94+ZC7qcjTv1kWjLPVvvE/UjeVmS3A1L/PpucS
jHjxP1Y0kOK2wdW/nuICV00w8T87JHYAEs7Wv+ha2Tgf5vA/RCG+4B7m17+0
NYaBB5rwPwmponnTCtm/2fB2CAxM8D/+4gu0Pj3av138T2Nl+O8/7SgSzYt+
27+9DNjXAlXvPyR3M0YG0Ny/TRd9Xvyt7j8aIpOAHjPev7QfRfZdA+4/Y/w3
Jm+p3780mhuqM1XtPxjeUcZhmuC/6/fBjYmj7D/2ZG6jj2vhv9Ed27pr7us/
MLNslWNJ4r+ubxJO5jXrPybWFhAmNeO/7fReZAV66j9pdaoSTDDkv8/6YhjV
uuk/pdTuC3885b8Kd+h/YfjoP7yZcXqmW+a/D096qbYy6D8QCz2/84/nvxOM
Gprgaec/YbDMvvDb6L8vaBVL653mPwUiWR+SQuq/CQnxp+LO5T+x9b86Tsfr
v76leYzS/OQ/cIM5Pjpu7b/Rv+nCxifkP2vwPoAvPO+/TNDtTvLH4z/ucxAS
hg7wv2p33go=
       "]], LineBox[CompressedData["
1:eJwVVnc41Y8XtgnZW+bFvXbfoiGclJkkDSWErEIZURQlilBR0TCSStpltKTu
KRWVKD53ua69RfYev35/ned93ue8533e88c5GgdCd/jzcHFxrebm4vp/bY65
xFgU76aK5Vpx/tsxA6wPqgLrjXuotI4LGfKu02Bf4J5t7dVL/RzgWNPqNwVK
V5znyjP6qKdGnTjE+UmwUp4azqrsp0pozvHaUSdAkRbtXTc1QLVdmWk7wz8B
NytfO/oYDlJdfi32CriPw4OBzl82fkPUjVnm5Q0VY6C/U0LveO5f6ihn2dKi
7hhk//SgTwUNUy2v6Sm4FYzCoPGLzl1CI1T+nBxga4xC9eZU/u33R6hEbnX7
7UcjkLczMa3bepT67Psdy3azEQhzFqXLdo5S19RUTP/9PQzTdmtd2Ilj1DMh
3fHGocOgpR0fZaI1TnW1aJJSkBqGwvtZVapfxqm0927h3pF/4Vy5JvN6wAT1
rNS1IPnaIbBbc2NzntAklT4zlHx15RDUz08WGzyepG7s2mtGzhkEwZxs+uZt
U9SXdVmH1iwfhHV+fGGtI1NUHxc/Z5OkP8AvV2THdW2aarAyu6CA/w94ipT+
V2A2Q+1WM18UThsAaf4O0Y8tM9QXijzpgnIDkH/R4ZPnuVlqzOkc9tr7/eC7
oGoTpT9H5WlIrbTe0A+KWhlX+OvnqMz4RzebiT6Qz7lYLBozT+WuDfKoiOgD
h885JefVF6hzpx8I5Mj0AUTffX68eoF6q7Zwwry8Fw4FVP5ghC1SRZbMfA75
9sICRXN1keISdV1CVceAeC94iH1U6vy0RHVbUyOeSe2B0hqyt+0aLuwhBUqa
RvTAlaalMuc0Llz3RH9fIbkHjnsYrr7YyoU7Zpa5fmjpBt9IEYFFU250jyNT
PLK7QWhp0qMgjRsvzxQf8dzTDQFyZsHH2rhxpxJT9K5cNwjOTwXGruXBAXPj
WXFmF7z0ULxUcpEH+y275VJyusD+77oVCp08mDS1nm/CuwseHM7Y9cSMF50r
i7nMKV3A7OmKPXKZF9/XvK2yG+kEIjSm2bOXF+3bLSJ5K/5hlbEvMcCHC1xj
/u7nO2Eh2CXx4zU+LEwT1LVw7YSQXsYhkyE+dHkw63VduxNWWCzW/bbhx3d3
Djx3m+wA2Qte4jfz+JF2N+xxZHUHmKo9OpsywY+qT/irWDkdEBuUnn7HSQCT
H/5nfTKsA/K8yq50FAqg+a8Z7a22HVAteWfMcVEA9bTtSBtVOuDMg1dKbFdB
NIhry3acaAe723JHM54LIpfG/vO+te2gvPdWULCQEG7hDMTEPWgHw/6G8GAf
IVRI701KT2wHijNrLr1cCKM3G9lleLWD9ff9p5jSy7Dop+CPY+btsCsvK9z6
8DJUcf5w1UypHex5Sdsbvi7D0zdLLjRMtwElTPr6WXVhjM2a5DNjtoGWbO2X
PSeE0XDe/WHAmzaILRLav5UQxs0lQ6d23GwDg0PvOnyMRHB47jdn8kQb8EXI
cq6fF0GtjOgQJ882mF8bXj/YLoJFjiuVt29sg9zdDtt8LURxYWBWbYbUBrsv
GnKmroviUN3T0U1CbWAh9Gb541FRrLbe6UAZbIWauoSwWKfl+HB/tcy9+lY4
HK9yI/jBcvSsuRJX/KYV3pjwKkbzimHg8f5Wx/xW8CvKSCnYL4buqmM/jyS1
Qkja7Jmet2JYHqDJK3ekFWQVrXMdZMWxw7gu2MK1FSJrTSOrwsSRuapHpc3y
H++7q8i7Rhx71lbvWSC3QthkcJCwjATSfM1OXZJshdHs37UjVhLomC9lqjnV
AsRtlR3doRKYkH20mLemBSLivb725Eng0vcykXcFLXDtZujixA8JJBJYKzZF
t8ARs4GfErMSGPi4ZuaKcwscq1i5bB1FEovTLg4XkVsAX7mfC3aVxF3a586d
5GoBPhsrhcdnJfFHEne4UGMzbPUNuTFZIonPbhO5DmXNkOCpxHFqk0Rwl9E0
S2+GOzvWfnghLoWn6mdsaUHNIPpjn4yapRR++sKJlbNrhiSfz29uhEhhb9D2
/TOkZsg9tfecSo4U7pjc8jSGuxkatfN2Pf0mhcdtY1yutnAgm3jFbT8thRYW
2a6bPnCgNdz/4KCONCaHTPQn5HGAz5nbP2+3NFr96vR0iePAi3XRxJ6z0ih1
KFz1kScHhq5vyVxRKo1yudzlKZYcqL1zPmGgTRpvuiiw/6hxICS3Lu6zhAwm
s0n2v7g50Eiy8y8CGTT44N6+srMJKi7fUsg8IoP+iU/uiVQ1AcVPODo1Twbz
617c8XzUBAlvrPxSa2Twz+wrQa1LTSDVcPLD1TkZtD1VL+sR0QStpYcP3teT
RYH0aS3ePU3w5I2d9Sc3WVztRL4jZ/5P37HUpOe8LF4YvSaWqdEEAvm/Vsi+
kcVnMeOL0YJN8OyoSatjjyyyzAuVKgfZ4DrYdSBNTg5J0tLKYQQb1oR7pDTY
yGHUCa4fce/YkJQRt04rSg7bfDv5+++wQWoxe3fcPTlcMnd6XZLKhg+Xwr42
N8hhGHNLIy2CDbesNcPteeUxkN0c7eLOhkw/M/PyVfJY5nH0McmaDfNZRWIm
B+RxW8CeG1sM2eAn+q7u5WV5zFxudfSzHBsWy3UC4aM8JjQRselcbIi/PFfx
a1gefR1W8Tzqb4SgT0VvD6kroPHCWQ8pWiPslZqwEd6ugNufZQ9/pTaC2UpB
x5LTCrjHNc7o66NGWCe3r8TnuQIyLkleFrvWCHJH0V+hRQHXt7/Ju3WmESaV
DzjTxRRRqG2qI/JwI+gllbvlWCpiYJ3aQrpbIwzZXw8NPKKIMdS5tCGbRuAp
kos1u6WIa4bjzdNXNUKV2v0gmVpFnN+SUBmm1gi1gtzkiQVFNGAHNF8WbYSn
FOO8JkMlTFPp2DEyw4LewMS33z2V8KHAy6GLPSyoi8w+SL2ohK8LDiQH0Fig
G+d2vfy9Ekbpzs3EVLLgaO+fVRWDSjgT36hXVcyCSsUqymcVZTT5e4Tf6TYL
fq3ND6h3UkaSIHescDoLXOdCG7vjlFHnTlzyYhwLLiUei+B+powBdCsy5TAL
Tqz8T0WzWRl5aL3eSR4s0Ejc/81ebAW+vKG8UWErC/x45/2jLFeg/K4D9KYN
LAjVt2kvOrICh1KnzBr0WXBzb4lh660VqPYlN3VWmQXnPk6tVa1bgf4/wnpc
RFlwN5xvxGdpBWa6V0Uz55lwyYHb4bGxCjrb8QRfHGRCLt/2lbNeKhj+J/hv
aDMTSJtTr2/LUMGPs1Lmp+uYcP9mfOgDVMHQ6KK0cmTC1XvrHwqOqKDdzF4V
jRIm5KuPmIZoqOKW+ZcmJXf/6QnKC9JdVLHE94Li4SwmZBdvE7NJUMX6+e/y
LslMiJg9bPG2RBULRf1Oe8YwwSs4NmlVhypGMVbeuxzMhG8HS9gvpNXwjCKd
88eTCVx+0cYm1mr4LvBh8pHtTBiTCIisiFRD+dDrXHKbmVCSb5XnUKiGU8Ii
j9tNmfBxZjGXTVPD67q0Pw0UJiSf8Vq9nlcdfY7LGvcpMwFCeyaTlNXxxTdS
s4Y4E4RzGqQYq9VxcOOJQ3E8TFhbORGvu1Ud7VVub56bYED/K5MNp/z+8eay
7dl9DNBdSttAi1XHSrB8785hwOMUkVijLHXUdnDZbvGbARq7GZMpT9Xxz77N
ivCFAepq5Ps9X9RRbfOrG95vGZAsbXvWrlkdzyv0uBQ8ZYBv3JW0h5Pq6Ax5
37nuMMA+Ju7VcnENzBlVTDt17V//w9Slo2QN7N8qpKqUxgCXPmefJtDA8R+H
JRpOM2CnYBTddq8GPtmSM/IgkgFpMaVupWEaeOiI6s6cQwxIUaB3aaRoIFdC
afXD/QxIZL2JulKggaEVa3sbdjJALtWej79cA+8M5jgoOjDA5mLChZh6DaxK
ZyTFWDLg+c3IZcP9Gpi+rmnD+GoGjESbHzvIq4nPA1IEUnQZYFAtWNuurIms
R7eT1qoxgPpWWtTLRBMJ7XLPJRkGSDOf6HO2auI29/XGrcIMOP7NiOLpr4mH
XDfdZnExQEeWb6E5ThO/KD/fMzBJB+grLDxwTROrAvkXZQbp8LstR6X3mSby
vg6xcO2gw99fJ71DqzSxLvPex2csOrxO7js03aKJb43m1qr+ooPj7WumidOa
mKJv7XzvKx3o9puo4pIkHMC61xvf08FN/C3PLV0S7l12gDRWSodLz4g5w00k
pGXq2bx7RIdE9sn71H0kpJhW/L5RQIcNMncWdxwloT8P/+m0G3QQCbXj6k0j
4VKWLd/VdDr8CYouOnWPhKdPiik9T6JDMjoNy70n4W3C6ERLHB1IJn/oL2gk
/Gn0uoUURQeng2f3bB0i4eeUQYHYEDrsLt5xpE9ACz9csHva40uHi3235M+r
aWF5r+/lAPd/820rnCnrtPBmD+/R6R10cDVcJv19uxaStfml87bQYUTkr+fh
Q1pIinBfvWsTHXwM2w2kErTwRYvwdRWzf36v+sS+ydbCvGENnpn/6DBQM2nv
XaqFu0ZL13fr0uFDvWn6shot/BHdwNulQQcOp8KxrFMLJZcukCcU6ZC/2eSk
94IWxj5qC5GTosOF7duUxOS0kW30KddemA6zpCrt90baONew7EwaDx1CL/hl
H7bTxg83YzqbZ2mQ0DkRqeatjZmxpVc2jdFgz/DOkvpobVxNN937aoAGj995
Oydf1sZTTa48Zp00OBkt6GDxSBsHN2z0+tlEA6P95rnjn7Qx9Ge/RRiNBtYp
8zZP2dp4IFDpiGYtDbLYTpsDx7WxrsoNO77SQIFjeVlzuQ4uvzHJX0algWpe
t0GLtg5KpyxIXH1DA7VMP+k8Sx3sTFpTFl9Mg5lzrVYee3SwnlejMvYRDZ75
pb5cEaaDUW7Dksl3aXB1dXZw83kdDN94Pio/lwbLBpx9Cgp0cKtHTOWXLBrk
eoxd9S/XQVXOwu+ZSzTIkCe49Bt0cIPJ5PEN52kw5ORQODKgg/s4XRdSz9Bg
7G3xqbd8ZIwwG+7tPkGD0cSjqQkqZIw9Q/PbHkmDIsr8l61ryLjv/V/W18M0
+OWFRgrOZLzZYqy5JZD27x6Yf+oMJOP2DiWFRm8aLE6OxJXEk7GYq+rasX00
+Coe4nXmJhnrh5kxartoUDZv5udSQkYlqzN5hBMNdI0nUzR/kDH5VUxzlh0N
Jis31I53kFGUyqPka0WD8pAXRtXzZBQbbTU030CDZLelB7myFLTN3zetbkoD
CVKjWYQRBeOCTPdKGtOgq2y6zd6O8u+/KzVYrvtvv+sUc9W9KWiZfXW3DOmf
36WlgJloCnKThUt1VGhgGnZ8Y8NlCoa/qtS2lqdB9bCzzrNHFFQ+33opRJIG
ffVecqmVFDTrG63LF/mX58ZEscAmCn6hLHzn8NMgmpIrajNBwdas0AM6XDQQ
078ipiWmiwGpOjExswQUJu+Q4iProt3pg6P0cQL+Lvsl2wW6eE+/s9jyLwFV
UzzyVXt1cfbps5wXfQRsWOqVfhSui35Uq0yDTgKYWueEL6XqYu1wTHxJMwHb
SlqmI+7qYupwps0mFgGrtAU4eyt08Vuj8Td2wz+sKvISaLrYmWEzcqqWgJ3b
BU6Th3Rx1QrDe/rfCCgIk1kvIaiHUXI3qtsqCRDS2dM2o6aHXCqXbQo+EOA6
Mx7VuU4Pb285wRP0loB8G8WJOhc91C4X6dlQRkANZdyjIkgPnSV2sOWeE+Ac
Wf74YaIeTi1/WjX7kACLW4Ut13P1MINSm9lzj4D4krHJpJd6SOi91ufkE2Bm
3fP3WK0ebmp6E8XOJuCMV1V1YI8eyj4P92jPIsD4ZMtpNy59bI+q+TaSQcBS
0GnprYr6+FJ1qWjZBQKqXebOwCp9NIhKadNNJmD66uNvqx318eLAap8dCQTY
f//TS/HTR4WDYlKJcQRcLFNrVo3Txxil0JZ30QT8MHhYJHtNH7t2j5TNHyXg
mNLo5uXP9fFnWOQpm1ACvvkHFvNX66PdYyXKtSACYgdihhZb9TFF0f7WkD8B
UWG3ZqZn9PFdZsHPbT4EfMpy+j0mZYC5L0TuvvIgoKKGN/KvvgEWvnooorOX
ABdHq9YBawO0LWwaz91JwGGuVJk+TwMMNt20VdmZgMfn/cV7jhmgYUfp0u0t
BIiSvOq60g2wbt5mwdCWgPFC/p1dDwwwv8x29ScrAtZHDtzo+miAK9dbZHha
EHAw4n5+d6MBTtX18nCtJ0B7vs6/d8wAn0zAiYcmBLxj8fX3ixqid0Jol9tK
AmpNu/SGtA0x9zdrtaQBATpXZcijloa4bUh2dx2ZgNef1nMm9xgi8WloXSaJ
gJesRcf5MEN0cDpQ56VGQB1ZMoIn1RDZ9NtCq5QJ+B/n7aMt
       "]], 
      LineBox[{{-0.014219623096493966`, -1.0035458284030443`}, \
{-0.014862624385160754`, 
       1.582567085535405}}]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtjXs41Ikeh3+rtrE6XbaTlZUpKkusbOE85fL97S5i4kGrLWUskzYy0Wqj
oWZL91XaLbstrVsdDU00NAcZxxc5csm45U7GYAwGY8jQ3E77PPt5nvd5/3s/
Zozo/cf0CIIIfs9fHmzXb3S5RZDE3zsYlhfVfZMgzSvqCyMzo/Ba2c7g3CSC
vNVJjc3IZuOWZ2mc/BsEWZVtgwuqq1hia86QXiXI15t6bJmPk7Gi3Lfg0CWC
TLRKbcixvYvlltL/aNkEydmvYPQY3EPa1Ai3l0WQPWabxkMm0tDzTvgr2WmC
9D5HrWxqykBPNS/I4SRBqiqIH3oOZ+M1PoXLP0aQocn6t/f7P8T7X/BWR9IJ
siDO+0k6LQfJ7a/HDgW871d5fU/Zy8Fk9clMNo0gyxoEnAGPPHxq/wWnHwgy
JJzfGE3j4jfwA+u0PUG6OX9UvXp/PvICVqR+bUmQK/2dHFYFP0XqY7tffUwI
8sQhoue7Eh7GLrLe/rrq/b+VT7hrdSH+1rT9hblWB3G9H/OEzUUY3Jag+GNQ
B6VhK2iuomfo5GnRcg118Mhjybh8jo8WjePV8nQdmNApx88aFCP35zKyI14H
5+tdFv69tQRXaWKEjt/qgD1Va3Hmq1KMtbqk+8ROBxUBtWuoYc+RXZB+Jk5f
Bz5XDLI6b5Qhk8sQBQ5qwdoSseuZAEWF+hrka+FFj8+PQeJyfCVZ9jv3uhY2
u2SteGBYgUwWN5F6RAsrS95ZS30QA+4NPPrURgtx7p1/lLpXonDZA0W2SgOv
lskMvxyrxHFWY2hxvQZKDIR3C5OqcL3unirwdw20K+J4O3ZVY6O3X1tyqAb8
pG4V4oFqzIqV6B201sCMyHh4LukFeinu8vlzarAmNLuTXWrw4ra4DY/L1GB/
6lvlG0UNnsuwi9h9QQ1Gyaa/GD75HwYYX5gIc1MDs9R55GhELTqeGZLaUtTg
HsNmare/RLcyq+epdSo4Rwlhbpx9iS7+W0s511VQl2pnuSiow/wkO9qRvSqo
zJ3Z1JxUj9z7g73Fy1WwTxnpKw5pwGmju/3lle9AGLHrx1inRlxjtbEuOuEd
IGMh8LXJK7SLP7Kxzf4dbL1vaOul14RpFDFdIluC3AHLPouZJkwYvvPJ04dL
QJccP1kjFmKQvkeHbeAS5F/UXGAPNOMVX+bn4auWoMGjdKAvugVbM/nF9MpF
+LBSkCubb0GIKPrHuphF0PuK3mTFbkXTn64Ir5kvQkpm5uHmlW04FXopo6pV
CbeynNNNM9rw5kdis+qflHDS1/xyoEM7HnMJI27aKEHA2bW2qbUd+65TRsy6
F8BD3tTy8vRrbOh6dvZq4gKkaJqjMk06MLpWFlluvQA1ez7z5NV3YGzBZWZt
+1sI6d5NDWZ34iTLfzsn/i08vCrtWb+nCwPchg+Ebn4LfbMHw700XZjf7Jyl
rJkH1rArP76uG7H9VhkzfB6GYqiVO//swQHrmQMvDOYh8miKhMLqxTeSzVu0
3DkIuCjzyPiuD02caW2bvOeg75TrsTy/flR9L1hnPamALpZwxbT3AO47UXjH
/IYCnh80O+B24A3SBCY6fQsFrA/zD0g7MYjT7UeXDVXNwr0wKV3lIcKCx45e
+UGzcDP0A3NXkQipq/3OnlqQw5GqX7D44hA6Du11/Py2HNacP/dkg40YqQ6h
FhILOaxLKdphIxJj9tniNqeEGdin18puzRjGf227vqfg0TRY6UdFL48YQWVe
WpllyxR4eYz2i2AUHSnul3hKGai67WWcrRJU+yZW0Exl4N5bxajdMIZpMTm3
1eQkdEwIvuk3lWJQ1Np/NjImIIefmlDrMI7l49N0QeI4NCtzBHmMCXQ1nj/f
liWFbQ9O7/uAM4npYyYsw/+OQdiWz47zPpzCFN9onxtdEuhazbqyIXEaQzob
5TvloxB/ogE/XStHQ6MCPyPKKOQ+MBWGKOQY6q3zd9o4AsPLnYyLJmbxUN1o
y8MdwzAZVHQ4Tq3AaDuGfoK/GHrpya2eRvP4f3JyIs8=
       "]], 
      LineBox[CompressedData["
1:eJwVV3kwlg8XRXbZ9315LW+SRJSSK5GKZA8RSZSKX5KlCBWRpFU7hUJRUklK
z7WWEs+78Sr7nqyl7Pp8f905c+6Zc+bO3Dtz1f1CnA5wcXBwiHFycPy/EvtF
x8//6iHyvxy9pFk1A78FrtZKbe0lWng8z6Xvn4EtlrXd/If6iDiTzfcHTach
IiNGXSa1n/hnueGU0qopoCY1WJkWDxAbzFZl65v+BdeGeLkQ9iAxfPlLOs3z
DziVcYS++veDSP/YZ26TNgmvii0NeKk/ibRdD3AL8zf8CSvbuM9xmHg+2rqi
Wec35I5YJlaeGiHuxL/S8Ur6BW6vhYR0ckeJ+RX3YoMmJ2DdhoSGFMYYIWB3
3Kc+aAKY9tpj4XHjxJRNFPvE0Dj4P0qhPpKdIM5tpvKeDh2Hn9q7KLueTxCd
jipn5LnGYb60+vhxm19EjpHou5VrxmCtdGGxWOcvwjBYhPE0aBSGtVfGaEX9
JuZ1Q7fffz4CYS5vw4okJonAVTmeAv+GQalEBYoKJomQK/NmUu7DIGjun0ix
+UO4BvJdmHn7E4rpddP83X+ISul8EwHNn1C29902n5i/xJqINo5HN4Ygq7lG
T0t+ilB+8cncXGQI/M0v+ni8niIu0d8sOqf+gCd33mfOOk4TDmurgo5J/ICy
39xFfGPTREqt8QG9+4MwbMO/O/biDOEQ1eiiuWoQ6s45+/jqzhKP9ifLc1YO
wN14p5v5n2aJrMAaSuieATi8YEXzCJwjzERa8lbN9ENollFPCO88oVpXOj52
px+GRfseDz2aJ+Ri1709adEPEz/pM5+sF4hl/W1Pr//og8OLKuUC/QvE3AdG
D396H9i6JbGeJi4SuPNN/GPrPpiL8l35TOcfsW7FFVuL6V6oy4l7Ilr3j6ir
c9tdUNgLyUmqDwONObAxPPdD1YFeKKEW/zqRyIEbHTM9/dR6wdJLzLq4mQO9
mqoTA9p64PUgh7TSCk4MvbJuqOheD2yf/N1ZfJITazv2b9Xc2wPKjAVqeD0n
Fp+5teOReg/kt9GCD6hwIYyNHVYY6IZEh3LjuP+48L8T4hWHn3UDyziLq7aS
C53HvLvORHRDn/uvPSbSy9BMYsXHHZbdQNvypI4MXIbK4gWvnot0w1sbO9b1
smV4zOKgYmZrF9xO+y5wRpgbrym8TeAr6AIR8+bfN325Mfei1xl2dBfIpxur
N73kxoM8xBWuXV2gvtpH3YyPBw0i26UiNLrAba1uQp0nDzol39tEneqEqOes
9phnPLj5lBeHwNdO2NfBXenOxYtrdn7lFc7phDV3yqo83HhRsqMqmxrdCebv
XE7GPeHFxh9CnxxcO2Hm3vmY+kVedDWTnz65uhPKMzwCNjnzYSxnguV9wU54
XaLSSM/lw57q5GCvrx3wTDTM+eI8HyZ4yBLbz3fA8pcbLx9y5EeThOQjE5Yd
wAW3KEGP+dFBYYPlFo4OeJs3WJA6x4+Z/QrM1UQ7lAhW1zMcBFB66k1oXmw7
hMb+0TR7LIChlyTVMje3Qz9fpHvtnAAacO5I4OVph+TToUKhjoL4yW5kkFbX
BhLpRj3muYKoXC6g/SetDcJ6VyXqLQjiR8vabP/dbSAw+/vuBmchNHO8vlNa
rQ1OnFv79WC+EDqt6k2Z/9EKz2JKqkr+CaF2qvMmsdetMBLgqqvpthz5duws
2hrfCgfSFgqKCpZj0HPx++n2rcAKyJves0wY7+erqk0ptULdd/d3Wp7CmP1u
6pXP8HeIrpHNEX4hjIkbDdd8ev8dLnmM+0nyi6DQ926Ceuk7VBQM55n4iKA9
p1VblO93QJCgRpSI4NOBHKdXRt+hMn3vNaawKE6wbhjS+L5DTmtVhv0BUSw3
tmfVtX4Dqyta/3rfi+LhC9tYN4u/wcGHuq9tBcVQ4onYcuPkbyCef/6LoYkY
hn6zSLvr+w24u05l6PiJYf3rJ4U1679BYZKtoO4lMfSezhsuFP8GrWlPf5qW
iWHpxZs8u362QJwIqu7uF0NN35Ce7JoWuFWhcC5eQhw1Ss4+yH3QAu6pb/+W
movj2ta951yjWyCGm8dtIUgcT259z5nv3gLEZEOc/U1xfGuR8eq+cQusn3Zw
K6gSR6f4GN/Vki0wKLSyRGZcHAUFrox6TLBBcaVfXKqSBNo16x2RJ9mQM7b3
hth2CZSVMhEIes4G2XXDrMwTEuh/8KnMtjQ2PKg3pmzMksAwFwueohA2vJL9
uLe7QQITAgX9MxzY4N6YHHRjTgJ77aFD1JANksXVVBeqJP6s5gJOKTaEWypE
q7hKonvEloCQv80gk3TeZjJeEl2WP3bc3dIMIiy/YNYzSYRTMTIl75uhI82T
WfFdEjtmG7uSHjTDXc4w77f8UgiMwKn6c82QRhUcfWcshcOHx4piDzVDz6X6
oDo/Kbw8KxuTYd8MT7Q+lHalSWGc+ed27bXNMEVZW85dLoXZhO8RGYVmmP/B
9DYcksIroj8bgjiaIWAwPS5IVho3XI2qUB9ogoAUQqjQShrVvI+JmTY0weKK
7r6ZY9I4Qgzceva6CTqm2/84ZErjGwmebXH3m8CZs1ujuF4aYw4FKxQkNAFb
0c9FeVYarzFeKxoEN0HUqGroVR0Z3EknDwjuboJPo5r+4q4y6PXmupqpRROk
BlZK3Dkjg2sy18eXrWiCP/GXA/SKZLANW+suSjbBfqej2z61yaATKbP92QIL
rg6eenhUSBYfGp31UB5kwZ79lD1KprJY2Oi5j01nQTafiA8zQBarjYTpbeUs
aPGk3rxxXRaDR9t19PJZkG7xYMSnUhbzWlJ+VFxnQYpir53RuCzy6Y/k3o9j
Qf7Ew0xRFTmsXZ29UH6EBV7XaslJWzn0tq28pO7Bgtma6C/dUXLoFXmW/6M1
C+CY3qmWXDnc835KrdCQBS8ao76wWXKo8+RDOl2VBeuyrPI6l8mj31vCwESY
BfsDchfG18ijye7+8qZZJjSm/X0j4CuPNWmdUi8HmbC9mqjSvSSPD4w6JT83
MaFYoU7Y5b08KnrvfaBQw4QuL7GzCUPyuH9D1+Psl0wYs/0sRsgp4M1l1Qr+
WUxIHtiXw2GjgAncnH89rzAh/03Eyh0nFDAwe2H9+TgmiMh3XbubrYDZ9u5D
AyFMsLqY+2WSpoB0s1KZaB8mqPLxV7hyKGLfzwzSchcT2NtC/T7oK2Kn7UaD
jcCE6wZJGfreivj1rLmz/2omWMoo+z9OUURpi2KvclUmCGgbZ2mVKaJ2FBlm
LcaE4XLubQWDimia0/ppjoMJtK9jVhtkldDafPFCxwQDvpsmJzVaK+FMttKv
sW4G9Jlf5ToSpoQs6ntTPSYDjrbMZIlmK+E739aH12qWsH6rRxlNCX+kNQdr
vWFAwt942SMcyhhvvOVHZx4D7H761GuuVsbMRzTvmjsMuG4ic6jXWxn18tYq
0y8yoLcnpP3JRWX8IMEZzRu7hJ39lCPfKeOk0zX6vmMMKH+xXNZuSBn9uyaj
e/YzICfozXtteRV0vVr57YIbA8RyGf/4tqngXLnkrt3bGaBcO0sbC1dBbhM/
i21mDLj9bUSz/ZEK2nEdl/NezQAp3RtDdKYKrmkFqxsaDHhR+E+qYZkqWvp1
GY1LM6Diul96o6EqPpqP8jwqwACzOrl9zftU0eWIuv7yBTrQTmQF9l1WxeeL
pE79OB3qU3PuzRCq6OvjUFXQSwd0G/wlOaaKV7gosYXsJT6qUF9BVA2/aYS3
fq2nw9fIxMBCbTX0tRP1Ea6gw5Gft+5vMVfD/v82ph5+TQftlrTPra5qOBX7
YWwgnw6VbjqDkUfVcCimSvxMBh0Gd+mNyyaoYaf01zjTa3RIdIxufXtPDddk
Pa4XTqLDkAtP7t5XS/rHrucXo+lwJ6VmO2+9Gm56J2QtFEqHxZVfPhT1qKFT
q9w9o0A6XDRfy7F3Tg1fUds1I7zo8OuwPr+IpDraLWAUy5EOhV/+kqirjh+P
q6yzt6FDxMsWl3BLdRw1g7lOMzr4nTe8pO+pjs1M24BUQzpcuHA44scxdaQJ
b1ZwptIhpmhBMDdZHXtGe8vWqNBhQ8h/WwIfqmNEz7sRqtSS3xUPRd236vhj
/aLHekE6mC/3Th0j1dFlMDXPh4MOsg16198MquP6/OGzGX9p4HwrSfcMhwaK
2RremhymAUnbZLtLTgOPOS+7tq+HBnLeOhMqBhrY3n6e0tdCg/fBq2QnbDRQ
osJv9jRJg1X+1qU1Phpo1JtXp/+RBkp3jzXei9DA0R621WQ5DS5vr9gdnqaB
kd10tcZXNHBwc7BzytVAWjopSTylgaChTZ4BoYF/LnuzqrJo0F/0LUC8WQN3
vtyl0nabBhm9tmcnRzXwQQeRJ3iFBgZTA9MtvBS0YHEZ2CXRYIKHv6pChYIC
Fln/PYylgcWCWNtTEwrG/HGlCkbQIC/suOUtewpm+ixIJwbTIDzl6WhiAAWP
S96ekQqgwbcai7aI0xSkXLW6XuJNg5ihGoHD6RQMMzLIC3Jd6u9kh/g+o2DI
+rvTBjtpMJqqIeReS8Fw7obtAtZLeUvcmh3bKXgtWmrfbzMalLYakTv/UnDh
Qin32FoatCufnbAV0USP2vm5OT0arJWRW2enrYnrN8qKKmgt5SPIe/bmmmi/
W49vuzINnJxvqDi7aSJ9cvuzJGkaTOu6l3oEa2Jagl8jW5gGv7KkA/wSNbHT
a5uJKS8N4uYZlKMZmkjI5D/PXyThjEX2SFSJJu5UEhDQnSLhgsZ9IqlBE7Ws
CLGyMRK8entv3O7XRM5L4zc8BkmoNs09UrCoiVPTKQf5u0hg6ylYVMhoodzx
rR61LUt6rpjlbH0trOlOX1oPErJU5RrGt2rhcZvi78FfSBAcNYsX8tFCxq/z
Eh7VJIRWWmtQI7Swml3+wrF8ya/yRuHWNC00/FOQ6l5CQvjnW6qBuVro+Mn7
1NHnJGxwrQpLJrSwdOCcw+U8Ehb3Xc0vbNbCpuzYHnxIwjavlDLGmBZWVjgI
/btDQtgys5w5Pm2023Y/c8d1EoqdNuzXUtPGlb75kdmpJOw4pDnpsH6J3+oa
InCeBLPjD5xPO2jjDgcF7+g4ElSuep0uPKiNAVz8SvNRJNjVihxrj9PGwyYV
iUnHSYhkh1HFb2tjp1NUpPrRpfxbXB5av9DGJ1cn6msDSKArn2SfqtPGfV7h
vpG+JBjzvPv8sksbL+e1ipp4kvCL73fYyIw2UiJiS/85k3DuMg+TKqGDRs6b
1rN2kkv/TlvvAV0d5Og7cbTEhgQTvSM5OZY6mHKFb132ZhIUtZ+K9nnqYI3O
zrC7G0ngsL1D0Tmug2fuKPJkGpOgm2HRFpSyhD8SdYWrSWjkKTAtytbBczvm
sz6uIKF23YTx1DsdzPHiCx2mkBD9eGUjMHUwnEiSU1IhQT84huvCsA5efHkz
0k1uaV6Wol9Z3FS0nS0NuytBgt4eMT2KMhW9u1vHhpaTMLy/RCnUmLp0j72/
WvGRcOngpnuVO6nosHJ+PI+TBM/qgVypACoe7K2I0Z9uBD+xRbODp6kYKbZ6
nepII+yVaHQvT6eiuaMSm9LdCLeePp+WfE5FSozOSrPmRjD4NCt/5CMVfx8t
mAusb4Q4e/Gymo4lXFIhnVvRCLUink1q01QUOWy8daakEf4Hv2h+tg==
       "]], 
      LineBox[{{-0.004998867158009878, -1.2556846795831604`}, \
{-0.005860675163256484, 1.6101422847393485`}}]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["y", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7682273901502047`*^9},ExpressionUUID->"0cdbb500-5e8a-4fa3-99fd-\
f56cf1e3b5be"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"Solution", " ", "number", " ", "4"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.7682264112014523`*^9, 3.768226411429509*^9}, {
  3.768226646873522*^9, 3.768226647234914*^9}, {3.7682268112142763`*^9, 
  3.768226811426073*^9}},ExpressionUUID->"2b4fc2ea-df7d-4423-b8ae-\
a6b72dd98b8e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"q", " ", "ys"}], "+", 
      RowBox[{"a", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}], "+", 
      RowBox[{"q", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["t", "2"], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["ys", "2"]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}]}], 
     RowBox[{"a", "+", "q"}]], ",", "t"}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{3.7682264309656773`*^9, 3.76822667143198*^9, 
  3.76822682475143*^9},ExpressionUUID->"5d9e9eb3-e888-4eb2-806e-83051708d6e3"],

Cell[BoxData[
 FractionBox["t", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["t", "2"], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox["ys", "2"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]]], "Output",
 CellChangeTimes->{3.7682264365577183`*^9, 3.768226675590773*^9, 
  3.768226826965247*^9},ExpressionUUID->"92e93f27-6b2a-4e85-a743-\
7cfaae6e6cba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y2", ",", "dy", ",", "py"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"y2", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{"q", " ", "ys"}], "+", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}], "+", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "+", "q"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dy", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox["t", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["t", "2"], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["ys", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"py", "[", 
      RowBox[{"t1_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"y2", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"dy", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"dy", "[", 
           RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "^", "2"}]}],
         "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "0.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.768225693552536*^9, {3.768225884939062*^9, 3.768225941243465*^9}, {
   3.768226107524678*^9, 3.768226165825839*^9}, {3.768226294497385*^9, 
   3.768226295952194*^9}, {3.7682263525743113`*^9, 3.7682263827365294`*^9}, {
   3.7682264663347282`*^9, 3.768226495206081*^9}, {3.7682265806372023`*^9, 
   3.7682265848570004`*^9}, {3.7682266878228827`*^9, 3.768226695736403*^9}, {
   3.768226829735633*^9, 
   3.7682268339146967`*^9}},ExpressionUUID->"cfb0b290-eeac-46c6-ac55-\
055739872a89"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxV1nk8VHvcwPGRrSZkZ4xhxpgxZsyYmYPS4nzTokLULWVJ3XRFi7RpU0lK
WqikksLVwi1aqBTVbaFUhFBXm8rSFbmhLlI8c5++v+f1es4/XvM657x/n/M9
PwNv4YqZvw1hMBgH1BiM/37+/8MYjqX+d/xB85q/xvj93+fr9K8LJ/X6qxmD
E/XfcY82O0FPYKqT8w/pFa5y0WJNY/jpVNGeD7f7RQ4l19fQIzx+hAp0jGFx
6H/HM7p56reXO/TJ/fV04+5S3gETY6go/+94ReeN60mczCbeW3rTufeLTvPI
9e/otcv1q3JFxG+kPxws+TtQTu5vosd1JhVcGkXWa6FZlW28vPHE+5sWGjQY
ensSr5Wu1cr9Zf9s4rXR4R07MtcuIF47nT3B+3T/UuJ10DdbZwxw1xPvM30C
LFyb4sj1n+mrI2V1Ew4Sv5O+uqp5olsmub+LDj82sqP6PFmvm67u2yf5cZN4
X+iTSSletyqI94V2LdU/YvSGeF/piVo5Hv0dxPuXXr712sHVDBP0eui+2dzT
Gw1N0OulS69qn9YTmKDXSxfancmXjjJBr4/uTFZvrfM0Qe8b3XPkcrDmAuL1
01mZB4RFa4j3nfaMDvPtSiDed/o1M6f1XAbxftBNpZoDTVeIN0DfbLY8mlZO
vEG6+ovW3YpG4jGgIffTjg395HoGPNQ43HHcyBR9BvjNb9J2cTCF/72dUoPt
tf4N7pNMcT01OHFkd9ydYFP0hoAgbt+wi+tN0RsCle8XbddJJt4QsN+ygFmX
Z4o96pBnu6FI+yHx1KGw6HRBVhPxNOC6utjiFMMMPQ0o9W4wZXLM0NOAt9J1
z5+6mqGnCf5briV+9zNDTxMKn15ds2ONGXpasPWwxoOlB4mnBZG6b8vyLhJP
C+qWBd6bWkk8bfg6KUbTrYN42qC2MaJpl645ekPh1D9RxSKpOXpDwcBd2c72
NkdvKFzMTH6zYLk5esPglUkv49995ugNg8fhyrL688RjQktd8gVmFfGY4Fzc
OSq+k3hM4O7Lafc2YqE3HMK4x/3nObPQGw7Oe51NLs9hoacDFQ+Di303stDT
gexx0R2KEyz0dODQzEVz/G4TTxdCps8+faOReLog2NG6L0TbAj096NBjVkyV
WKCnBxm8t7YRPhbo6QHXsXRe5WoL9EbAnBbF5GVHLdAbAUep3PwJN4mnD+8C
L2+e9d4C95c+uHpdij+hzUZfH7Y4v7rKkbLxfn3Q2yPpqZnJxvX0YeuGcaP/
XM9GzwC8Wseve5PORs8ASq2bzspLiWcA2SOcnl9uI54BBIUnqS8xtETPAM5v
2D3Wx9USPUNobforOWSBJXqG8GOaC/dMvCV6hpD2dvoPkwuW6BmC5tAcz/xn
xDOE1O5d8o0DxDMCt8DGumVCDs7HCIy9xy5JmM5Bzwj6uSncyigOekbQnDJL
Pi6Dg54RTLWW1z19wAHyd2NOmIlP0mfiGUOXgfH7lSwr9IxBdtHj2QZ3K/SM
wWP43XVnllqhZwxp2WtNew5ZoWcC/x7hai29ZYWeCbw5PjJd7W/iqb5Hkqtd
iwys0TMBP6fkkYfGWKNnAnPt0/oSf7NGzxRqVkU0/5FkjZ4phAibQ5quW6Nn
CoWxZu/GNRHPFKLyBC0B2lz0TKG0/fPj05Zc9MzgUkVW0KCCi54ZuB1YNmux
Bxc9Mwiv6op8HcRFzwwCdSet/HUV8czAJbLOpDueeOYw9kIk9+AJ4pmDto3L
LLcC4pnDksGktT1lxFP93pZKpt18QzxzcCzvOpr0hXgsWDM4RBzB5KHHgiMl
2ffncnnosYCp9YurjwsPPRbcWnzYe4YXDz0WBGdZVgUv5KFnAVzNk4nr1hPP
AtZzuuekJRLPAobFvep/eIp4FjDmicxTvZh4FvDgZIGZRzXx2LCrR+SU8oF4
bOhfOGbNpx/EY0PeyZhcH2Mb9NigMXpVfrHYBj02ZInCghTjbdCzhBs1ydsu
zrFBzxKeD37rGxVhg54laP6zKv1RHPEswfd42pTf0ohnCd7GL58OzSceBxI+
zjW/UkY8DnQ96vsS3kA8DlwSBk6y+5d4HHjR/6SlXYePHgdmFs4pLOLz0bOC
cfJTKftH89Gzgl03hv8aMYOPnhXcmbe775cwPnpW8EzzJj1+K/GsgNP92tjl
MPGsYTj/ToAyj3jWYP6yqtu5hHjW4OnBvAcviWcNjdJv52Z2Ec8a9hdeP7h0
mC16XKjybAvcw7X9eT2LC+9iCtsvjbTF7xsulFg9EjdMt/15vxcXfjj5fDcM
tcX1uBDq/tnDezN6MVyojqj+su8Qeqlc+FiX+LH2HHqqff3xvauBzT30ylXr
3/CbsfYFei1c2HC3PvlJJ+njwTpTwV3pMAH28UBntNb9g1wB9vFgSGFBwo+R
Auzjwafnj3qW+wiwjwcpEd79jaEC7OOBVk7G1vlb0EvlAbtjR+TbFPQKePCt
zqYoNA+9ch4Esr9O6SpBr4UH9jl1w7a/Qo9hA445X1vNv5A+1b7IefWsYLgQ
+2yg4W7orV/4QuyzgbdP7yb2jhZinw28Kox0yZopxD4bsMikT/kuEWKfDTwN
9nqgHotegWq98sHE4lT0ym1A4ajbtu4Sei02oHsp8vGoh+gx+NBVv5w78BY9
Fh/qTRNfPOgV4v7hg3JKxscUfTvs4wP4548PE9lhHx+eNLCq3cAO+/jALQnb
zZprh318+Pg5cn7vCrufXgEfBpju7i/j0Svnwx9ykeBuBnotfAi5ffZbbiF6
DFu4J9xzJa0SPZYtxBbcm5L4AT3KFui1O7PjBkmfLehZji3dYibCPlvY/j42
JdpRhH22YLBZqrPFQ4R9tpA5wp2zfb4I+2xBad93Y886EfbZQnDpjYYjSei1
2EL6L3Ybs7PRYwjAumTItqI/0WMJwOaYR2vVc/QoAexXt8z5+A96XgJ4/fVp
vvZQe+wTwEeftgE7rj32CeANY0Ss5yh77BNAPWWoXOVrj30CGB/TpXE8zB77
BHDH6tnnshj0WgRw1WZ4e+9R9BhCaCvU+iS5hB5LCIWLFn389SF6lBDYvs0v
jr1Dz0sII/auuPKsj/QJ4UqI7koTQzH2CSE4r11jjliMfap9xQ0OS3MXY58Q
Lp6vPfg+QIx9Qih617TJYbUY+4SgHDORvWEPegw76D1aFlZ2Ej2WHaw6vjjI
4gZ6lB2wTVw6ImrR87ID34jFpvfb0Qu1Az7Xu8JaU4J9duDB9xsezZFgnx28
Xqz38IWzBPvswM3HanDMdAn22cFq0bQzGaES7LODoxdWFmpuRY8hgpKkJEnE
EfRYIrj04Vr/XxfQo0TwocqSN7kMPS8RzGtVT7nyFr1QEZxrqPS16yN9IohS
6/dOM3DAPhH4l5vtNBA7YJ8IemKquhLcHbBPBDOutezTCHTAPtX1/coZ21Y7
YJ897Ag65cLYix7LHlKMYNS2U+hR9jCezfPVuImelz1oVq9bn1CHXqg93D2c
cE6/Az3VPvKNutiYqiXFPnt4fz+ALbCWYp/Kq2V654+UYp89PIz3Wz3eV4p9
9sAx+rDraZgU+8SQfHz9rt+2occSg+un+mXfUtGjxLCT2y4/kI+elxjSZmdV
2j9GL1QM2gvVJpY0ohcjBtOd1gkLvpM+MRy1sT02YCzDPjFYRXqsSpfKsE8M
+0Y+1YHJMuwTg3wv57fGYBn2SYAZfzBq1zoZ9klgr/rZsY770aMkEDuvPf95
DnpeEgiWd9Zuu4Oeat/8YTY/XfoCvRgJXIxsY77sQi9VtQ84Aaa7hztinwSW
Tdl8Y7StI/ZJQCZ27msf64h9ElBWrijLnO2IfQ4Q2SAS+kU4Yp8DFISG6+nG
o0c5ACfdY3NpBnpeDhB/tSVi6zX0Qh3A6FRUw+hq9GIcIO4j9binFb1UB5h7
hTILVJNjnwMsNS8YUqwrxz4HaPp9yhm2hRz7HCClSMzYLJRjnxRkqSl6DUo5
9qneq+Rx5XgaPUoK/gOG7qc90fOSgpu4KGTYXPRCpXBmtBEVsQi9GCl8Z0Wd
r4lET7VPfL7Tta6bSZ8UMqfVZGUmkD4ppCYeMR96mPRJISO4j4rMIn0yoKYt
6f7rPOmTQen9BbPdi0mfDEos587NfUD6ZGA8u+qbaS3pk0GtcPqY2LekTwZr
mwPMO9pJnwz4K+L2B/SRPhlEsedlPdBUYJ8MYs5u8nI2VGCfDEydNu07aaXA
PkdYadYfYihRYJ8jMNvSn2wbqcA+R3iwTK+8cwJ6Xo6wZtXXgIW+6IU6QvgL
9Y01QejFOMLh6E92k8LRS3WEHPaSkMK16BWozvs5S8SxpM8RZh7T23IikfSp
1jO6HmCQRvrkwMzq/3NHNl6vI4cnZZm53wpIrxwMT0ZZR97G+1X7YrBuullL
uQL/v5GDftzAwaB69EAOCyH4QE0zeR45jBoyzcCzCz1/OZSb/25wb4A8n2qu
1pMPjBmu/OmtlsOhz1ZJl82U+LxyWHncmCmzVf709sphYqCRWo5cic8vB/F2
5mqbccqf3hk5vIpuDz4xFb0CORRfO3/P3A+923IQnZqaeWgheuVyaEm/1q2/
Ar16OZR+7ruxbxN6Lap98qdeP3MXet2q59Hoz911CD2GApJjS6u1fkdPRwH9
N9eF7chDj6U6/5kTqVGEnlAB19UefNh+Hz1K9Tk67ol6DXqggOL4Jfy4BvS8
FHD3RVKzRjt6/gp4dVXXeGcveqEKiHo9mKetSeH8FPAoPi4/wYDC+SlgU/AN
ro4VhfNTwOSVj3oSxRTOTwHNsloXw5EUzk8B34PUXqdMQE+1DybqR7eyfNFT
7YP8U5GB6UHoqfbBuyu6Sn44eqp9sMEsblnOWvRaFFBTocWUxaLXrYAMrcfD
Lieix1BCscHQpaPT0NNRgmVAj8OdbPRYSqgMrp0+5TJ6QiUIcl9VVt5Gj1JC
W63PhTkV6IES7i1d0d5Qj56XEg5/37IzrAU9fyWYa5VEd3ahF6qEjd07nmwc
JPNTnTfV26Sh44TzU4JfRva2RHMnnJ8S9hzLeGcucML5KWHIh4nHTiqccH6q
+5V/n5W5OeH8lBDa+dKwaBp6t1Xn562pnjQHvXIlOC/RbqkOQa9eCdal7T7B
kei1KIFdvlmvLRq9biU0Jpjw1iegx6Dg14v68ZqH0dOhYElyBZ2chR6Lggx+
7jTeBfSEFMxo1c2+UOyE3z8UxA7OnuVWhh5Q8EWvdUZFLXpeFMycKs0Ieoee
PwX+i3aPaf+EXigF8pRwYfQ39FZTcGGP83wdbWecHwVPlwc0HzdyxvlR4FIz
6ZqU64zzoyD9dujzWw7OOD8KEk5K3X1dnfH7jIJ2b53ed5PQU7335s61vatn
oldOwRZOg7vWfPRU7/3w1ZvPji5FT/Xe7/67q0CyHr1uCtwWX//rVhx6DNVz
vy6bNPOAM/wPW4DKHQ==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxV1nk4lXkfx3G7SAYha47lHGdxnM2SSudDU6aQUlFpX6RNi/bVTDXtG6mM
FqHSopKkNO1Mm9IyKm1aZNpGhRKixzzz/T7X9dz/uM7l93vd7/O9zvW7b9fR
UyPH6eno6GzS1dH55+//Xx74LfWfa7/2Y/GkdJv/fT6ldX31OTGq9bOP5p/r
kja/csaui//7/1XtqNE9vg7W9cC/zi2tTc7wX530eP1dbYcd2u6m+h4YH/vP
dU/bb3+DyN2A95drpwYoxeMNPXCj5J/rsVbq49D1nhF7z7ShV5dGTWvD659r
d8y+NcHXlP2X2h9CmmOFZry/UisJzQyEOd+vSvuqV+Oj5Rbsvda+zH7k/cWK
vTfal6uLXTfZsPdO29f96c4oO/bea3MC69f3dGSvWvtL/abykR3Z+6hdcPDF
2D2uvP6jtqtZmY21kP1P2llTLG4dEvP+Gm1GwLdZU734frXav5KKXsco2avT
jnYe0WaGD3t12sBPG/JyO7H3WXvnWPVlh0D2vmjtS9+55gSxV6/d8bBse1xP
9r5qRZYVVuGh7H3VBte5DRvSl70G7Z9Gh/pvHMheo/Z+5rwb1UPYa9JOqF6e
Pmske9+0Xcuv7/aIZe+bdl/38D1Nk9hr1g6U2i9unM5ei/bMm34tgrnsfddm
bNTUxy9mTwc74BBQuYzX6+DdbyuTE9ewr4MT/t5l3ZM88N/tGl2Yiaqvy1P5
fro4MePVj93S2dND4PHpZrP2saeHCb/5V98+zJ4efl0iyR9wgnv0cbthnaz5
DHv6WDTJyPF6MXsGyNyQEnb2BnsGKNLbu/JeGXsGCCi22Nr+KXuG6H7CXTur
ij1D/GiUHdJUzZ4Ryna+nr2nnj0jTFlyMilBR0ieEUa1mzdynImQPGM0DBTs
mW8lJM8YqUFaYZ6jkLw2KD5hvMdcKCSvDfQPRb5e681eGxR47j0m78SeCSq8
ulz+GMSeCT4l678pC2XPFO9uHnn4eCB7pqjfeny44Uj2TJG/qq9/xET22iIj
fZOocCZ7bfE5a0h1jyXsmSF0YVzfmlXsmaF4dLT5uc3smeGJafabg7vYa4fS
zKLMkwfYa4fKYsOWynz2zLHmx4JTygvsmePMK6dtaSXsmSO1ZfYQ4QP2fsDt
OqOLN16y9wNeZrXfuPkDexaoOPT38nlNQvp9WeBIWu3YhcYi8i1w1WBL9fb2
ItpvgR5zYyofuojofhaIGlFp7OclIs8SvmeqHQ53EpFniaV/Dq4I7sGeJUJy
JR3q+rFniR1bVy+7MJw9SwRF//nmwCT2rCBcts7k6Fz2rBC0OX7vreXsWaH0
xdilZsnsWQGpKWPGpLNnBcnikaZlOey1x4gDo7uMOi2i+bRHjse8QuOr7LVH
xNhLoVfusdceBYV78jIq2WuPU1nXT2ypYc8ap/SlDlk6nuRZQ1erm3nN3JM8
axSHV9iaOnuSZw2fA7u7jJZ5kmeNZ/I59+8EeJJnA5sHz4/G/MSeDQYvPrn+
WxR7Ntg/Xtwpfxx7Nii4c2Lm8pns2aBkfLDZlKXs2WLJFoPLk5LYs8WTiqQp
P+9mzxbT2j27knOUPVskDAzM+HiOPVuUTY651KuUvQ7osSL0y8mn7HXA5x6J
ht2q2euAnik3Tz9oZq8DdOfHV65sJyavAybcbOrdx1lMnh2yPsw+LZaLybPD
55geenaBYvLsYBmsfu8YLibPDo56U3v6DGPPDkfTk5+OnMKePYZ47fpl9yL2
7PHY5qvOl3Xs2ePGgsni4TvZs8f1Ceor5YfZs8fttq+PxJ1jzwFVZclHTG+x
54Dc9Kyt556x5wDf0586rfjEngPcawrHjtKTkOcAwbrs9+HtJeQ5IjT4ekaY
h4Q8R8QJtg8e5ishzxE20769XNJTQp4jfNf62hyPZs8RHse+nm+IY88JN64O
P913PntOMBG9fnByDXtO2Be4sFq1gz0nhA+bcPv0YfacsDlybHTUefackWax
Mkr3DnvOGNNn4J7fX7LnDLHLMYeVn9lzhnD5m3VjjKXkOeNmy4F7feyl5HVE
tbnpjV4yKXkdcfXcol4DAqXkdcQu12ce8RFS8jqioGhKp62j2OsIgaJ4WGkC
ey7Y2Kcq3vZX9lwQXaXqOXkbey540BB39tYB9lywTXPoWPcz7LnAtdeClqJS
9gR4HnN80YAXtN5egJDoZLOaOimdNwIEhOWu2GEs+3d/mAD21/RLohxkdD8B
Fvs+PuEsl/3rJQrwwOkvYY1WRvcXwHyNrP5upOxfL0+AIYNMTS6NI69EgCXz
Ajufm0telQAjwu9PuLKGPB1XhL0JmvN0J3n2rrAc2y1Y9xh5GlcUu1QeUBZz
nyuKrNI3TX7Afa7Y94PP/ePvuM8VC81ODDX5zn2uGDphg/5EKy/qc8UCv4U5
94Re1OeKw/NWd40I8KI+V+xPsE++G+ZFfW54U/kgecxIL+pzw9rIK67fE8jT
uKG5t59g7wrywtyw88C5GYPSyIt1Q9qzPs02R8hLdEOZxjHr6UXyUt1g2CY7
9Ng97nNDJ/eiBxvfcp8bUmtXKue3cJ8bTpYN7hRvJac+d3SLeVk2WSSnPncE
JTl8mNVZTr8fd1iHd524qo+c+tzxemKJfN9oOfW5o0mQIiidTV6iO1J+3CvR
XUNeqjtepQxQBu4iL88dm9oGOC3NI6/EHb1clGV3LpNX5Q5/x8HdvR5znwei
42wiNnzkPg98eGL8vMnAm/o8UGNp/WK6vTf1eSD+wLAun+Te1OcB76Mh9+YF
e1OfBwa/SNjeNtqb+jwQ0vbinL2TyMvzwNSoiMjeieSVeCBt3yzb+s3ktb63
BdReO3xoP3mt72VftgqMJp0lz16IDad+MVbf5T4hnm7336n7mvuECDY8l1/+
jfta30OSbwcUWiqoT4gQj5G2mSIF9QkR5ZPsv7mLgvqEkOPaqnV9FdQnxCBJ
WsP6cQrqE2JB2u2EbfPJ0xHh7oz4V/s3kGcvQiePfV0uZZGnEWGM6NWYylPk
hYmwdWhxaLtS8mJFKPilw/PASu4TYcdvTyxnN3CfCLNzhFVDjJXUJ8LO0tFL
WiyV1CdC8fuP1/c4KalPhN0X1Zf6eiqpzxO5NzKGflcpqc8TrgZ3N+R2JU/j
iW6bJg8YH0JemCeOb1JkCCLJi/XEhFs1054MJS/RE+bLMk/uGE9eqidi2vWY
PmoG93lC98THJPEi7vOE37Qym9oV3OcJ463+NeeTuE+MrkemCZJ2cJ8YTeIP
22KzuU8MYze/Ad3yuE+Mo+Inve3Pcp8YE79vmFV/hfvEMBxlfuPBXe5rfS4W
y3qfecp9YpiKS19lveE+MRQlNds21HGfGLmGWUMXfec+CWZ+15PGm6qoT4Kc
pcGNo2xU1CfB1qJ9fwwSqKhPggvC1SsjZSrqk8DUqH9AhJ+K+iRwX73oTp8g
8lIlODt+S3i/MPLyJAjL7ZIVFU1eiQTDM5xuDR9NXpUESZMbrk2YQp6OFALD
zPVz5nKfFI01jdYrl3KfFHOda6PT1nOfFFlp6/rlpnKfFCbLHjddzeI+KVzO
6PZ7dYT7pOhy0ztU/zT3SdE+N6vS/Q/uk+JyZl6HkNvcJ8WSpsKnkx9znwwr
68U+KX9xnwwtm+dbna/hPhmaRneZ+Xcz98kQFm04wNlETX0y5GQmHoqwVlOf
DIvXjJm7zEVNfTIYdJ5x7LRUTX0yiFIXD/zsq6Y+GTLEcUNVQeRVyXCtzPHi
1DDydLzw+93kn49Gk2fvBeOZ91NqR5On8cL9740NneLJa33ubNnksj9xHvd5
wfDDjJ3XlnGfFy6NUZTZbuQ+L/TdnvbTuDTu88KCn03r8vdynxfCrR/daXOM
+7wQ03vus2FnuE+OVW8H2eVf4T45ukz8Psv8T+6To+ZaQ92ECu6TY9Dc5xsv
v+U+OXJFMT08v3CfHPm5tuardDXUJ8fDpptV78001CfHlxu9rkfaaahPjsiC
6IJCdw31yeFYfXevh0JDfd4IVGalbOxMXutzYkvWySUtPcjTeGPl721Hxfcj
L8wburYZvs+GkhfrjQvDVjf0jyOv9blgqX6SfTWB+7xxz/CMNmgJ93mjXj+q
sHA193nDufaJtd8W7vNGuf3m0Lzd3KdAW/cLQ9Q53KdAvl5Bt7yT3KeA3aNb
tb5F3KeA6MWM2YWl3KdAaIjpJTziPgVW2be7d6WK+xR4KW88GFnDfQr8YDQ4
6Gkz9ymwseBU0iQTH+pTwODu8e2N1j7Up8St0HcxawQ+/643U6L9SKMbzl4+
1KvE88SC97n+tF/Uur7zyYKQ7j70fqNEUcdr0oo+5EEJp4MngucOIS9MiWaf
iG9WseQNVsL8zuQBR6aTF6tEbPDHkPBF5CUocfzhhbvvV5KXqMTt+Nt16zaT
t1aJkV1ts5Xp5KUq8bZs/ds/D5K3VwlD86BT8wvIaz23374IsHS7RN55JdQT
1324dpO8ktbv83tUv1kPyStXIvplgca1iuelxLyL5ck3P5FXq8Rp4/fxi5p5
firMsRVelJv40vxU+FZ3YXWFtS/NTwWzzkZ/JAl8aX4qzGvsMj3Ey5fmp4Je
Qd6qZn9fmp8KCb2LzPK7k9d6Lv99/1r9lAjyBqsw7ZT0J3EMebEqpMSHN72M
JS9B1Xo+ZZjvnkFeogpG2buWjFhM3loVLCLOh7qsJq/1HHasXj7tWQp5e1Uw
LJ7zLmM3eXkqNJa5FcbmkHdehZ1l9g9lp8grUSHG8fNPNUXklatQtynSoPAW
eVUqSLLLTJY+Jq9WhZwgz+jw1+TpqKHI/vzGro7np8auhXXnXn3n+bWeO9mP
7+W19aP5qdGm72SvpR38aH5qVFyMPdvf3Y/mp4bL1M2rhQo/mp8az+5cXP+1
sx/NT4398UVXSnqSF6vG44JpfhmR5CWo0bdtVtnc4eQlquGQrs3qO5G8tWrM
nC9Jl8wmL1WNO8PDLuv/Ql7ruepevLVDxTry8lq/X8n39adTyTvf2idfJEvd
Q16JGipFu3dzcskrVyMxLfd69BnyqtRolzvteqer5NWqUWI38LVDGXk6GtSU
TxG0PCOv9RyN6HNz+ov35NlrUG67/uHlrzw/DQZZXB102MCfzh8N1D/tepti
4U/z06D/J5/1i538aX4aYPCxoDixP81Pg5An3fX7+/jT/DS4WWF/uxvIaz03
z52J2y8LIy9RA0FR3Gr7QeSt1eC0MGpGm7HkpWrw9uO0EV+nkrdXgzWGzRFv
FpCXp0GLaXDwoxXknddgaOwan5vJ5JVosF8pFl7cRV65Bj/KJ1kVHCSv9Zwc
c/5A46EC8mo1SH+Fx5mXyNPxwSXRmvy0Un/8BxYH4Ko=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxV13lYjfn/x/E2qWgv7eupU6dTZ205Re6XGSMRGmnIaBAq1ZBMliiVrEVj
lzXSQjRIRE2KhKyJTLIvUfoqFVGDb/Obz/t7Xb/7n6776vN5fJ7nfZ3rXPdt
FzZ/4hwVJSWlTcpKSv/8/f+XCLuy/rkOc9OGforS+d/9WU5F+0ihd/+9u/yf
6yJXfD+2KuV//7/KZY/zKWzuv//Xuc3dSlsdEalM6+u5LYaR3eoqIkSE/3M1
cD4eaRMuqND+Rq76o8GiXaoi3Lj+z/WQOxj9ZHamGnlPudWtfqYHBtD6Z5x0
4vCMW+rkv+D4P40uN9eg/S+5cfUrclI16bxmbpLrlmEDB5H3hus4dimlYDB5
LVxFb3tMuA55b7krSck90COvjdvRusxcYUDeO+5KSeLNsUbkdXDtBaWDlg+h
9R1cw7yeq1dMyX/PvXHdqySzoP2d3DH7vLwzVnReFxccWHAyxJa8bs7Y4a65
KY+8bi5Y9OFupyN5H7iVD+MaWpzJ+8hF+Pxo9EVIXg/3n7PSla5i8j5xCuVJ
Jktk5H3iaiu2Vz/xIO8zd3PlkqRZ3uT1ctJDpgpVX/L6uARLxcsKkPc3F5jo
E799JHl/c1Mf8h+tG03eF259bYF2VgB5X7mECfqfLgaS94172DJ5g1YweUq4
sNWiIiaE1ithe11OQmso+UrIOf3s5MowEf5vu1wZX5UX/KSIoPOUkSvJmqQR
Q54KSrPG7+mKJU8FezfILXvjyVPB1SVZFyyWUY8qfLVSE6ckk6eK0NBsn+Or
yFPD3/ypr+3TyVPDnldXYo//Tp4alhuVXZyynbwBSJhZct1iD3n996+6Fn8+
QJ46QqZHn3ifT546vsTWzlYrIk8dux4nJEpPkTcQL24dbF5yjryB6Dbgpz+o
JE8DbTPyg3+6TJ4G3uSsk7TdIE8D04e/H7DnLnma2BR06fycJvI08U3vhJ//
c/K0cPiTw5pRLeRpQd91SkRoB3laOHrGv25DD3mDUPO46tj9r+QNwr6IoFc+
6mLmDcaW19NmnNEWM28wJuhqDRxnLGbeYJR9nFTVZylmnjZ2Rg5cfNFBzDxt
nHIr1z3kSp4Ofpv8NG6vO3k6KFh3as0fw8jTwcbvx3s8GEmeLu45ZYVZjSNP
F4nfT/m4JJg8PaQHOd1vCxWz75cewjWXv10STr4eSsflm1nNp/16uJLS4Ne4
mM7Tg/15o2nHksnTx3LjgGFZ68jTx9maUTf3bCZPHx+Tj/ec2U2ePlZsN9nX
eog8feyXv8tzLyLPAPzN6T3bzpBngEMubvE6VeQZQPiiR21fLXkG2DL0c/rI
u+QZwHWxc7vyY/IMceFihGHDa5qPIV6HrnpU+Z48Q/x6cpjsQh95hkitsOhr
U5EwzxCfFwwcqKYhYZ4RQkfzxXxtCfOM8OJ5yZwgAwnzjJCg+M+edBMJ84yQ
aPWl5qYleUaovarXYGlPnjEUoePL453IM8aCsPvRja7kGUMv8GqDn4w8Y/A1
hrdXepFnjO7ggPyRvuQNgWqUxvs735E3BNGT0iqiR5M3BHGJt5V1x5M3BEGW
fx8tDyJvCMYdNT75Wwh5JmiZLlT1mk6eCWI3j92sOoc8E+zxWvXjgyjyTLDU
/42sLJY8EyxyX+2ct4g8U+SPiHPYvZw8U3h/qzLdlUqeKfTyN/QcXEueKXas
7DhZspE8U5yfqOl7Zyt5ZhDk9675tIs8M6T4vV3lfIA8M2hnqAvC8skzw5xz
y2flHiPPDGHTVzp1FpNnjhH5wRGjz5Fnjg/F7sYFleSZo+R9BE//MnnmqJrr
m7byBnnmmGmo5fKtnjwLWPJcBqY9IM8CPlOUdQyekWeB5aP7JIdfk2cBiyPp
Yf7vyLOA8R7Rts5u8ixR0RZZdqiPPEvs++XK5ekqUuZZouDti6M8TSnzLFGm
Pi20Q1fKPEukND24dmmIlHlWKMwweptjJWWeFdbHXj623oE8K2gGlKsnCMmz
gkFGzZsFMvKsMCexelScN3nWqE3db7gM5Fnjjn/Adxl+5Fnj85faS7njybPG
pASnTZeDybPGuaVLd7yfRp4NYi+9vMabTZ4NIsOy7H6JJs8G6n/Wp2fHkWeD
5fUPv7QuJc8GF3/RivZNIc8WTr0VNTvWsvVmtkj2j1LrzZSy3xtbaFqvM5m9
g+0PsEVrVm7XvX10ni2iJk7OmJDHvGRbPIn9/t7tY3S+LSbdsbwQUsK8Ylu0
OR4a1VpOPbYw1Cr4KbWaec39nvOAZrvr1GeH9MC8N1fqqc8O+zelTVzcRH12
qJ2Yb+L2gvrsEB/l4NraSn12WOxum1bUSX12EObfMEzopT47REfMuxWgImN9
dkhumljI15KxPjto+j7YPdBAxvrscOdw3LZ2Mxnrs0eZPCvjsZ2M9dljc3tj
/F0B8+T2UFW9/UOdlHkB9sg44fj+rjfzwu2xNnJrzJMRzEu2x6Tal0c7/JmX
ZY+00nd5GhOpzx6jQrMmOE2lPnu8kDftDgijPnvM0TuXvCSK+nhYyB/bdSSO
+ngI1S1+8yJBxr4/PEy55fgTbyX18aDyoFkyN536eDAe4j+vZAv18fDr0yJV
jT3Ux0OAzvrmGYeYV8xD27ufB1cepT4eIgJKohxLqI+HlmjPnt//pD4HjNTO
zFepoT4HNM5NWpBwk/oc8FpWP+ZTA/U5wDczWrD8CfU5YIKph6r6G+pzQFmD
681tHdTngBHDpycLP1OfA5wEb3QvK8tZnwNM6zvjIrXkrM8BK+rP7tc1lLM+
R0w1WZNRbiFnfY7Y9qBYPN9Bzvoc0ZJdsMLJjXkBjvAVPYp75cG8cEfsS/rr
W8Fw5iU7ovRPiVWcH/OyHNHum16FQOYVO0J9/p4XRiHU54if7zolvJtJfY64
2vtt2Y0o6uPDZp760xMLqY8Prki4d/dy6uPjEW/+kfWrqI+Pl0ZPviZtpD4+
tu7cuWnJDurjQ55+OWRxNvXxsSolb/yyw9THR2tZUkTaSerjQ2FWsHtzGfXx
8Z3muue51dTnBMGK7fKKG9TnhJAXQaubGqjPCYEDgu58eUJ9TrDTdtd1bKE+
J1TF5Lr/2El9TtCrm+WT2kd9Tig28DEtVXNnff33fOWaTm131ueEdp3soTIT
d9bnhKDaQQsW2bqzPme0jPT75bzAnfU545zfrL7BcubJnZEYmYTpw5gX4Azh
52rH0z8wL9wZ03pic/QnMC/ZGav7rp5YMIV5Wc6wcXb0b5hJfc7INH01k4um
Pmdo3l7affQ36nPGmIIZn62TqE8AGRzmbltDfQL4RU0bpreJ+gSwtSiKztxF
fQKcmHyt3eAQ9QmQzltYtesY9QnQO29BI/8M9QlgPmC/5Ewl9QnQsPTZ+bG1
1CfAXRNh8st66hMg+GZCVMoj6nOBus3Dxfavqc8FFYMiDlzuoD4X+KrhaWwv
9bngTv0ON2s1D9bnggGZham3tD1YnwvcUqr/SjPxYH39vrlCMNzOg/W54Pum
iF/7XDxYnwv0R1XtK3dnXrMLcq78eTplOPOUhPij8HnRmNHMMxOi61tlsslE
5smFKEn/4PjmZ+YFCDG81Hln+RzqE2LmCp26rfOpT4i+KeG1sUupT4h4577E
wJXUJ8REl5xX8g3UJ0TpM67PfAf1CaGmXlE64AD1uWJmrLFp9xHqc8UsTX/D
5lPU54ri0+GHmiqozxWnR6+5dPcK9bnih8ibsXV3qM8V89OisuseUp8rhlVu
HX+vmfpcserp7/EPO6jPFbe9j+m+7qW+/vX7vjP5oObJ+tywaOyp1eq6nqzP
DeV/zZ9iYebJ+tzQ5vCf1XKeJ+tzQ87IosET3DxZnxuiY7mXv3oxL9kN7zs9
NX4fwbwsNwSZeCwsGcu8YjcsMXlp8ziYedfdEK/1SUNrBvOa3aBXLxJ4R1Gf
CCN0ApdF/0Z9ItQru/VmJ1GfCNrp2dmNa6lPhN+0M+cab6E+EfbObJ4waS/1
iaBZvXf89nzqE4FXXTKj6QT1iTBSrkjhlVOfCHcNFYXzaqhPhPi1dY3lt6lP
jNEXBRo6TdQnhv+HedKwV9QnxinfvwLPtlOfGBlZuTMNe6lPDLd6m+mxal6s
T9z//rVz5G0dL9YnhuGRudpyMy/WJ4Yi4OOpnTwv1idGXslhT2WRF+sTw76y
Z0OMgnlKEqienHb6wXds/eD+53BRaOHYccw3kyDOcXXk+clsP1+Cg9UxLR5h
Xuz5RoIREUWCP2KYBwlaV3c4CBczL0AC26NPGw6nMK//PUp1uvtQYQbzwiUY
Ynp43B/bmbdQAhupmpbnAfq8/fcNBjHnC5mXIcHkj4fnjz1Nn1+CeI88vQeV
zMuToPbh2zHR15jX/x6z43q4+bd7zOt/b0n9VWvZtqc0Hwk0DtZFit4yr1EC
69KKJ1c/0LwkuD+1qSlCSfGv1yWBNE0RojFIweYnxbt574IKjRVsflKkrrW8
EmirYPOTwnlWy4lPLgo2Pym+5qdq53gwTy7FUE2r+xPAvP73hPXu3VrfxjAv
QIrZl8bkHg9mXogUO72iDs6ewbxwKR41HvxqHs28hVIkVY49XR/PvGQp7Eov
XNqYzLwMKfYqYgQB6czLkqJ9cvGjQduZ1/8cjz81n9zIZl6xFBpbXws2FzKv
UooRK66dm3Kaef3P6UUZPhvtqpjXKMWPzpXZbdeY1yzFLd1378420Pyk0Bk1
LX7dM5qfDE3qhyU/t9H8ZMg+t8RK3EPzk2Fka7xigIo3m58MWvIfkx4N9mbz
k2GHT9XbMybebH4yaOakJm6192bzk8H622TJQjdvNj8Zkmo0lScpmBcug/6Y
8DbP75m3UIbwghHtFuOZl9x//oV4ddUQ5mXI4Cl+LmqbxbwsGUbJYubcn8e8
PBnOFH3Nq17KvGIZXlqu7yhOY16lDJIValxuJvOuy6A+eW7mzl3Ma5ThQ9bZ
xxtymdcsw/O8PsGq48zrksFn6NB5SWXMU5IjLHJdwdIa5g2WQ3fd3/cW1THP
TI46z+Nd8Q9pfnLkcpe+LnrtzX5/5Ni3e2b30k6anxwHw47XJX2h+cnBXXi2
ZZWGD5ufHJldLoqNhj5sfnIIpDVlO619/vX6n0NxrNMiV+DD5ifHiTXdwcXu
Pmx+cvhVG0Vc5JiXJUcXDgTcG8O8PDk8j7aptgQzr1iOVcvGr/86g3mV/c+J
z+wfGccw77oc2jW1n0WLmdfY750tfOSfyrxmOXZ3iFeHb2BelxxTPWo60nYy
T8kd+58/M8/N8cF/AYag0Ow=
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7682268418016243`*^9},ExpressionUUID->"daf5b314-707b-40ce-846a-\
469588d48670"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxd13dcj/v/x/G0kWjvvdenzzAzrmdWOjKOnQoZIRGVPUN2UU5GBxVCVlRE
hfbSslcZOZKIJBmR7/E7r9c/v+ufbt263vfrcT1v1a0sZgaPmyMvJycX3UlO
7vfH/3/FHfx9JQujDRaeNUmYI/z3+VXh9qkzEqX4pUJP2e8rX4hS8I971WsD
fb1UeDD9pElSXITwn1ItXGg9ktn75w66/47wcWVK/DbRHmFuwO/rvhD+w3Pt
/ZoYOv9IMDL41mnw9lihovz3VSPcr7J23y47QN5zYbtT6PIFT+Lo/hdCdWyb
Y/KGw+S/FJ6rPbHeqJFA5/8RVu7pY2Xun0jPqxemmmYaaKQcJa9BSPMrWdi3
/Rh5b4TX2xYFrRqWRN5bYa1b5oTsyBPkvRP6OMj5/3PnJHnvhclenase6SWT
1yx0tNq83ux9mu5vFoIC7eSrDpwh/6NQtX5w1NF7Z+l8ixAU8Ezzbffz9LxP
gt9pX1msRwp5rcKKeQFTPAZdIK9VqL7i02vWgwvkfRY0PoS66gZfJK9N0IHj
3SlKqeR9EYrWxQ6yjksl76vQ9k1ZN8QljbyvwoQnI3YNuJFG3jfh8OeNPuvG
pJP3XRiqV5EvfZpOXrug1XXZtokLLpH3Qzi9VLmpru0SeT+ERWnKqQ82XCbv
pxCcF6Uh6ZxBXodQbXoy693uDPJ+Cf1HhN9W1blCnhywMKp+04ErdL8cPi5f
1eJreJV8OZgv0pi8N+6q8H/HZZ1wpVT7ga1BJj2vE54bKu/V25dJnjwmN79V
DNDIIk8ey07r/NDcmUWePDo21x0wU8imHgVUlu0eEbkymzwFLK7UyPV7n02e
InTeff8R43+NPEUIm0P7uN65Rp4ifu0a1tBzyHXylFCo0nHjxMXr5CkhaJrt
8a2mN8hTxnH//Wceb79BnjK0pr82PPbpBnnKwOBV4haXHPJU8HNoUec//XPI
U4Gu1KDtw94c8lSxeHh4XXVhDnmqiDd7Uva5LYc8VciaZl6ZYZdLXmfouU3M
0ZqcS15nxLjHy2tsySWvC3JSj5yamp5LXhfYZDS/bHmRS14XjFIc2/REPY+8
ruh2KVxBv38eeV0RcXhsYHJAHnlq6Fewb35MdB55atA4PsHrXlYeeWoouHtv
etgr9rrhRGpdyxL1fPK64X1cx4Tq3vnkqSNpdOq96Gn55KnjvFpd/pWIfPLU
se+jaKHH2XzyuuOW0ywT3GavO1bHNJgkfWGvB/JdPC+tMC6g768eaMBV22so
IL8HXgecvhg2u4DO98CciXOjE7cW0PN64M3jjB/DTheQp4FnKbtsZpezpwHd
S6l9O5rY04D7gEg/3e6F5Glgyff7l867FpKnAfMR8/1KxxSSp4nj4zsHzgsu
JE8T55vd3kZGFZKnCY0L+o39z7GniRHN4vlhN9nThPfBubP7vWFPC2ZuNdW7
lItoHy3Mw91Di62KyNOCu2pySr1QRJ4WOsKvvmn2KSJPC9Ml062jlxeRpw2f
kfWS0hj2tKGata027hx72pj3cMFblRL2tCGJT9DXrGNPG229bI2y2tnTwdoD
7xMVdYrJ00Ge26sJzS7F5Olg3Zovd9cPLyZPBx+LTLPTpxWTpwM/SdDhPcuK
ydPFs+06SjpR7Omi9dimFUOS2NOFrMJ/mUk2e7rYNur8suO32dNF1oObjY8a
2NND+629A290sKeHqmnz70zULiFPD8Yao7rEO5SQp4ea3h/7HRpUQp4eBp+s
TBs9voQ8fQQpuOVnzC0hTx//TF557uFq9vShovH4Yupu9vRRIS3u7HGMPX2s
LH7WsO8yewaIXdFt7bFS9gyQP/zv9wtr2DOAaJLXjC/v2TOArDDkAzqVkmcA
zwjl9JFapeQZ4phzdo6+TSl5huiSaWSV3LuUPEN4Dtn/8qdHKXmGuLc1UUnf
mz1D9JpZsPXrfPaMEKaZMSthFXtGqPUNi+qxkz0jZK4Y+9Xzb/aMIH9TPXLU
GfaMMGH+F5lxFnvGGDPzXdXlMvaM8b14nWD6mD1jTFql4Df+DXvGqDl/smPS
V/aMMatnRJuDShl5JnBcfFmzQqeMPBOUaAWauFuXkWcCnR1tNVukZeSZYKFh
k1Y8ysgzgXKuc/iO0eyZYkB26zNPX/ZM8bSi7XXtfPZMMVc8f5THcvZM8Y+g
n7tlM3umCLm/vPlQNHtmUPZNj9hxhD0zpOzItxt7hj0z9KwPW/U+gz0z+DSE
mwYUsGcGpbrDFzOq2TPHieiIypc1dL+BOdyD1bu9bSij3zfm2JTSS76ylc57
mWPNTxEi5W7S88xx+F3IJAe1m/95G8wxx6ri1lG9m/R8c4QLgQO+W978z0sz
x6ywVyZi0U3qMYfJq4ntQ/uRV2+OQ5k+k/sNJU/OAoVtzqndxpBnYIEypaPb
87zJk1ngiPpg7ymzyfOyQInCmLiqRdxngflht/LtV3KfBQLNj/8xexP3WaD/
mPWJGyO5zwJBjQr9Nu/nPgtIpxWtn5/IfRYIFrzrpGe4zxL9rk6++Tyd+yyR
lhd8LPQ691mizCTo1tti7rPETvNBmZ63uM8SJZ4quZGPuc8ScYmWHldecp8l
ol67nC19x32WeB6lOTrvM/dZQmuH+vajHdxnieD67IxAlXLqs8KPvqYyox7l
1GcFr9qEcen65fT9Y4WVKg5BvS3Kqc8Kjcn6dxMdyqnPCq2uk2vbJORtsMJo
de9HvdzIO2iF1w52+tMHk5dmheO6AQ0hf5BXboU9Ln77l4wjr94Kc9b+XOwz
lfusofVXww3xTO6zxjSr5RUf53OfNWaE33hxZAn3WaNC8dCQviu5zxqfBl3s
e30D91lDohWmJNnGfdZYfc61ac9u7rOGx+Su0qf7uM8aLS49dAyOcJ81cq+I
7rsncZ8NimcMTZ9ylvtsEFdm3uSXxn02OK+189qfmdxng5Mfh/v3zOU+G0gz
DLSUS7jPBmsGVKkVV3KfDUaeG7R1+T3us4HBwDGZejXcZ4M5uT9qTtZxnw2+
Sn1t7N9wny0G6SWUHPjAfbZ4Um3c/u0z99mi6JFX88gf3GeL+6/uPo6Sr6A+
W6z5sPVdnmoF9dkiSLRgUoN6BfXZovXr1RG/tCuozxYr97xpUTGqoD5bzH10
dpO8BXn1tkj59cX+gy15cnb4rqzYo9KZPAM77Boxbk68lDzZv1+vTZkwqy95
XnZo/9a3s+Eg7rODmavvufwh3GeHsKTawBme3GcHVeFxYPNo7rOD+5mye6ET
uM8OyYFb7jR6c58dDuYN3zlxOvfZoykh2Sp9NvfZQ2NJep5yIPfZ49yL+5Gj
grnPHmMONSVvC+M+e9i8H9r/ykrus0f6rL/n1KzjPns0TrT2+ryJ++zxJnCH
hsJ27rOHY+eWB0pR3GeP7tfbc37GcJ8Dfu4vamrcz30OmBfWsq7iEPc5wGbw
0b+SErnPATF91o0OPcF9Djj/89LN3me4zwEzquWdmlO4zwE99ybviE/nPgdo
16xRHXaV+xzwueVp7vNr3OeA9uL8OyF53OeIEc9Sp7YXcZ8jdGWlIatucp8j
nNWy+jRXcZ8jpt66V+B7l/sccaaiU6+ch9znCHFT/lHDWu5zRFCIYB/0gvsc
UZnQ51n6K+5zRKO/xovWN9zniIRnd4c7v+c+J8zWd3XwaeE+J5gHhiaEt3Gf
E07qHi6I/859Tii7MfbcpQ7uc0JKTe2SfPlK6nNCtB0cSpUrqc8JpxUtGou6
VFKfE+TqHpZlq1dSnxNMohe/OK1ZSX1OGHPw6JBoXfLknOG0uUZ5sSF5Bs6w
twI8TMmTOeNo1XFFPUvyvJwRevzAvGc25AU4I/ii/4YEB+5zhp3jr+lTXbjP
GTqRjkbdJNznDFnxlMIrPbnPGZfHZi3x68t9zkgY5i5r7899Lni4/IBxjMB9
LpBbK4LlEO5zwYoMyYUzw7nPBdu8Y9aJ/uA+FyTMVrh2ehT3ucD3WPsa8z+5
zwX74y9X7Z7AfS6Q39ur6Otk7nNB2Xgs8fHhPhdUDgx4kTGN+0S4rfPLVn0m
94lw4Y3TuGlzuE8EzaYHIafmcZ8IDmOvHni3gPtE2KI97o5jMPeJUF/TLJkV
wn0ieGVezI9dyn0iqLWu25+3gvtEGFuhkf1mNfeJcGf4J6Hreu5zhW7tGond
Ru5zhfyQR0cGRnCfK5oMlPaN3sZ9rrBIqrKeupP7XJG9+smUGVHc54ryXvGC
fzT3uUJHP6De9y/uc8XqrLFTx+/nPldopk48NTSO+1xxzn5wrfgw94nRa2um
kn4C3a8mhq9af9H3o9wrhmyu/qwHSXTeVgzTMRsupJyqpL9vxBist8py0xny
IIaJ++uCP8/z+4gxVG3zMaOL5HmLYSzfUPo8jd9PjIzwLUMSL5MXKsbT4SlG
flf5fcX40Rzlp51N3i4x/o5w1S6+zu8vxrKWFX8szSXvhBgXd0m6mhWQlyaG
emTHjIIi8nLEGL9z9qQ5pbyPGL2/FH/uVE7eIzGsdi/0jKvkvcSIvbvKR3SL
vE9iuK5v63X9Du8nwf6mkjrP+7yfBB6x2QtuPeT9JHBftO7xhCe8nwTB04/0
vVvL+0kgPbV795jnvJ8EDz2SG4rqeD8JkmfbjnJ7xftJcO+8bVHya95PAtPC
8746jbyfBNp/nTJY+473k+DvjJdKL97zfhJ0f6jj6P6R95PAVvlJ1OFPvJ8E
uXqXB7R95v0kWPyrx4CRX3k/CXxtB8Ye+s77SZCTGzq28QfvJ0GJ/f2lPX/x
fhKstF/UbXWnKtpPgsKJIrPrClW0nxTPp7ek/lSqov2kuDBtfXU/1SraTwon
q83rQ7pU0X5SKGw+WHxSjTyZFMOTB194pE4epFg9pQmqGuR5SWEwqGWDTIs8
73/P945d7qNDXoAUt2OUnDfokRcqxbQ505ISDcjbIEVYzonGG0bk7ZIiouOW
/BMT8g5K0UMxp7XFjLwTUnTeOLBYxZK8NOm///8rhhtYk5cjhYUoy97elrxy
KfLlvhTI7Ml7JEUXTTffAY7k1UsRWdHa6u7M+0lRVBcRO1TE+8lgHe42dKiY
95OhOXq0iruU95PBoOXdP249eT8ZZpx2fSnpXUW/f2T4ZmeuatuX95OhNiTD
W8+N95PhxayntUoDeD8ZVj9eGPdxIO8n+/fnUxT7WCAvVAZz8ZM7Oe68nwx2
eca+x4fwfjIsTYqSRQzj/WS4VpM9fZYH7yfDiETr+kGe5KX9fp+e5XojeT8Z
NOu89N578X4y1G2/UZ47mveT4eSS6o8xY3k/GTQSL+30H0feJxkuL9gf7zKB
9+uJ9Lg90i8Tq4T/AQchw9w=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nc81vv/x3ENpCR773HZXAOVHJ9nOx1pymlKRYescBpOg0pDUtochew9
LhkXp6WpkrRLR6mkLYpS6atfr/c/v88/bm4+7/vn8XnerpvbZbQ0ZJbvQCkp
qYQBUlI/f/7/Kynx55XLvXTd0LQsdSL36/dqzkMrqEAv1ZNzEP286riGVTmH
To5cQn+/zDXl5AukU3y5X0ojl5pQUnpKeiXdf5OLH+ST9NwxlFvh9/O6ww35
t3jt5vYwOn+fu+udrZeZ9Bd37erPq5njfxVMcHFfS95jruTjMYnT90i6/wlX
Xtq7fEvhBvKfch/WFafssIui88+4twf0Sl7ERNPz2rjob24b7jRvJq+dO5Gp
W+Iu2kreS05H68uAcTtjyHvNlX1p+K3ov23kveHuXDcdu1O0g7x3XEC97vf6
7TvJ6+B2WoevWfkwlu7v4Jy0V19ZahdH/geu8WC3VW7Ubjrfye1xF7Y4NcXT
87q4x/IPTTcr7SXvI5cYmdy5tXoveR+5dXtHmhj6JJD3iVsnDlCYMWQfed3c
fH2JllLxPvJ6uKDZ16q8PfeT95kTL7oUNOrrfvI+c9VNqZcPpx4g7wv3Ykdw
YOTEg+T1cpd6KqUfvTxI3ldug7NkTu3uQ+R94zyKCizUBIfJ+8aNtJTyeXbz
MHnfuVcXEt/yVh8hr4/zcpe7fl8jkbwfXIZJjXpvVSJ5Uuj7aPZi67wkul8K
d590ha/5kkS+FAIDzAdeP/IP93/HRQPwVcalfcfIZHreAFzfNC7++O1k8gai
VvFLkFb4UfIGItCvRfn1iGPkDQQ/ZpK2WsEx6hmERXkLRQcnp5A3CInOjgb+
rSnkDcbaP/3+mOyaSt5gHDqztW3ArlTyBqOxaoHjsrup5EljUzPcAkzSyJOG
0vtwe/WQNPJk4Nym0ecrSSNPBmqwuvWH9HHyZGBas/b+2+nHyZPFhY0HXU2T
jpMni5lnLrt8fXqcvCHo/iKjHmabTt4QTCq4o7pjdTp5QzDn4ZQ4l1Pp5MlB
VvTkbrxsBnlyOPpp84KN0zPIGwr52gVbhh7OIG8oJmhcqxP+l0HeUBgYeSZ2
m2aSNwwqw1bv8FyZSd4wPKlK1ptemkmePPL+knnb2p1JnjwcbmTuU3TJIk8e
wWKZsrtRWeQNxx2xoHvk+SzyhiPkbLySQC6bPAX42V/896x7NnkKaNTPrnmz
J5s8BXRF9DUVNWWTNwJjpkQ3DVHLIW8Ecp9l7+mdm0OeIhAU37blSA59vhRx
i3erOuN+DvmK+LAmsnOhdi6dV8SFnLpNBfNz6XmKMAxW8tqflEueEtLd6sKV
HuSSp4Sqy6p3eVp55CmhrOzr9pteeeQp4bG2zH6NQ3nkKWHT5lFDu27mkacM
r47Xg/2U8slTRqxOQUqoRz55ylidp/ZNeVc+ecrIiS/HtIv55Cmjb2vrEYNB
BeSpQPFMpkOsawHto4KG+j1Tdq8rIE8F3geSh1uWF5CngtAGpTOL3hWQp4JL
UYszrC0KyVOF2pveb/t8CslTRZZkiuqBpELyVMFtDR9pf7OQPFVcyJ1ZuXxY
EXmq+BE3sd1hfBF5anhhbmCcGllEnhrOy/adyiotIk8NsUUiQ7f2IvLUELiY
l7Fdv5g8NeTMdChZOqeYPHVk+BzOf7CzmDx1LDRwk+o4WUyeOlS8X2indxWT
p477ye6OvSol5KkD4yL5nbYl5Gmg+fGHqurJJeRp4PuEC3IzfUrI00DQKB3v
qsgS8jSgLtTqfr+feRq4N/6J/OcC5mkidFJ0a+N55mmibnx7ReR/zNNEisHD
+k/dzNNE58aX3uNGlJKnCdHbpVVLzEvJ0wLgrjGTKyVPCxrOnqdVvErJ08Ky
Pxt6coJLydPCvrEpA5W2MU8LFze68NyPMk8bp8uO5cwvZ542anRHN7pcYZ42
zCo7nnY+YZ42/KNVrDd8Zp42pg2e8fahQhl5OpioWBg2wqyMPB0MPxE9SHNM
GXk6+G9VUPunGWXk6SDm6IyAXL8y8nTwj/TEJuF65uli9LlD/vsSmKcL29//
XXcpi3m6UMqY4367hnm6WP5M3bq6kXm6OHfrtnfEc+bpIao+wkG2l3l6yCpr
7VylICZPD+XTVJ+XG4vJ08O7pL45jU5i8vQgDkuIOzdVTJ4+Mj3KbicsFpOn
DxNuZOSoMObpo0i+ta4qhnn6uL91wTflRObp49AHu6DJBcwzwPfq895zTzHP
ADesl+mhiXkGkAQavh/8nHkG+Htfu15mD/P6zz+O6DQcWk6eIeps3U6s1S3/
db+WIdasKCkqsCun/zeGaEc171+U/zrvbojzfULfvFnl9DxDvPDLK41YTl6U
IYoa/WbrriYv0RC+nisS0raTJzbEe4MlZYMTybtqiJcPKr9NzCOvzRBpLjEV
vjWszwgtxXFmy6+yPiNUabruGfuI9RlB/UTZqL63rM8IuzTy/ZL6WJ8Rxrrs
XqQ+4gT1GcGgcqlPmMEJ6jPCqt47J4rsT1DfT8/x2BXuBPUZwXCK/6LL009Q
nxHyZn1xzPEmT8oYGbPlAv4MIU/LGDuXeI0Zuok8kTGKOpxf744nz90YsbXp
kq6j5PkZQ6lE89WYQtZnjFvvK6r9almfMaZ08P0jrrA+Yyw+dm2k7wPWZ4x5
iSuWj37J+oyRvz7Q9kMP6zOBgXNzY5xMBfWZYOCWKXHyahX0+THBn7iVHGpS
QX0miNUScdWCCuozwdghucVtXAX1mUDcK2f1ZRp5iSboi65+2bGAPLEJlu3O
s2zwJ++qCbwF3qYJa8hrM0F0ZLuKcwx5UqZY8Hub4PI+1mcK+4nbK11TWZ8p
htTseJRUyPpM8bLIqfmRhPWZ4s97K1/LXmJ9psgqTxindZv1mUKQkqqp3Mr6
TOHXZZDR+Y71maLbkadT85X1mSJq0jzxyiGV1GeGDUfepQ1Wq6Q+M+wKz9fZ
ZlRJfWY46/x8TodtJfWZIUQSHT3euZL6zLBxfc+tTZPIizJDqbHH5sxZ5CWa
4cMF/dryxeSJzfBxyYHywgDyrpphkSDw6N7V5LWZoU7Qnb1oM+vjoWWnmrRa
POvjYZDc2OcViayPh4/pW9aOz2R9PEzpWf9OUsL6eBBd81mtV8v6eMjO/ua6
8iLr42HHtKLVGU2sj4fQBcG/X37E+niouXvl1f121sdD4OW30Xe6WJ85vt7Y
/9upPtZn3v99SH3qAbkq6jPH9cX+Nz1Vq6jPHMkVmtKDDaqozxy6StOGplhW
UZ854oPrh5s7VFGfOZqdPoxOdiVPbI7brSer+qaQd9Uc47IbxB6zyWvr94zm
z4lbRJ6UBQIHOddVriBPywLBF9osbqxifRZ45rWu8N7frM8CLlfz1zbEsD4L
yCo9KC3bw/os0JkyMComkfVZ4JrwotzkdNZn0f99MuivngLWZ4F1F1vaD1Ww
Pgtcv1e40+w067PEwbXDN6RfZn2WMOYevlC8yfosUTfpn3dBzazPsv/9152Q
PGd9lrCb676k5x3rs4RabIKy6WfWZwnR+bD3GFBNfZb46nNOy2NoNfVZwi1G
pvx3lWrqs8TpW76PR+tWU58V0m1qT2uaVVOfFTI9E1a325InssJQiY5JrhN5
7lYo1x77Yj5Hnp8V3MYffvp9MnlRVuCfXD5q3wzyEq1we3uatOY81mcFlzM9
AXt8WJ8VHJee2/7Zn/VZ4e9XGn/PDmN91ohQrlyWGsn6rKH6t86Sls2szxqP
FkbEK+5ifdZwdMqWd9jP+qwhWTvjs9s/rM8aPxzPBc9KZ33WGHhFYfe0fNZn
jW+xn0LGiFmfNeb494h0a1ifNXjHp316f5b12WD60jfXK+pZnw2mBW9pCW1i
fTbovbiR03/A+mywZLbssFNPWJ8N5kYOWjT7Jeuzwe/XNWY87GB9Nmguyu6b
+5n12cDu8e3NF36wPhssc4jptpSVUJ8NrpnOC49WkFCfLaxCK5SvqUmozxZB
FXVv5fUk1GeLSyoBemNNJdRnCyeJp8Tfmjw/2/7PW3fzNiF5UbbYmht19Mho
8hL7Pe23KikgT2yLk9N7vZImk3fVFjJnbKJjPVifLSZuuJ4V4sn67OBS+7HF
bSHrs8PJ4NXjtZaxPjv8d637xSN/1meHje2Pnx4OZX12WMH3nzZ5DeuzQ4B0
vPObDazPDs84zTPbtrI+O1yp/qdbfRfrs0PYnTUdyQmszw4r5e7VaR5hffaQ
WVgeE3uM9dnj6IcbUzszWJ89imPrzGfksz57DJZ9xc8oZX32cGiLiHxXyfrs
ceDiUk37k6zPHgvao/X9zrE+e1inhabur2d99pBuPVpa2cj67DGr0M236Q7r
4yMrIabhaTPdL8+Hj7Gj1JtW1svH2BCF4a/b6TyPj/rIJNkn7yT0/YaPLcWO
Axs+kgc+7s1WHFHWy96Hj/Xf7bBbquaXN4+PvoErs71lauj9+Dj6JmyupXzN
Ly+cjzHP6he/Uqqh9+XD1+TajeMaNb+8OD42+uSdnqVHXiIf0VyAS68xeVl8
tIhfeyZakCfmY1nEcz2+HXmn+cj0bss4KSLvKh96zz2/ThhN3n0+3AIjBHWu
5LXxkSxZ4DV6Anld/f4fP9Znu5EnJcD5bpuy4dPJkxdgfkOcTOAc8rQEqJc+
vvPsPPJ4AngpXpmq5E2eSIBjCuPm/bGcPAgQYqt37rA/ee4CXBo0Pel6MNtP
AP2OrFc/wtl+AvhH3KizWMf2E2BGwh8OUzey/QQIMMyYunwL20+AI7a9qmt2
sP0EGDN9U9rm3Ww/ARq+O/Vt28f2EyDw1aDRWw+z/QQIm5PjHZnM9hNAuPjC
Jv80tp8A95Y8zpqZxfbrfx9uXqswn+0nwN2qCG54CdtPiNHVXlcel7P9hJiY
N2R/YTXbTwjx2ZD08JNsPyF0PL3kRHVsPyHq9QJvvL7I9hMiac9vQ45dZfsJ
scvQVeJ2g+0nxIMDdV3vbrP9hLjkJntm9wO2nxD+m3h2vBa2X7+XZjy56inb
T4jQvU80JrSz/YSIf2FbcPkN20+IlxMqR7h9YPsJ8The2ePsJ7afEO6jJWGO
vWw/IVRiFXYe72P7CdHR7JksN6iW9hMipK22MkC2lvYTYmr33Lbzw2ppPxG+
jdIX6SjW0n4iZHzuyglQraX9RHB/lDqrXJM8ngjeNredP+vW0v8fEdbJWgY6
GZEHEYrydD8Em5HnLsKrXM1baZbkzRPhgm2wwXVb8vxE+Gjv9ahbQF64CHMr
ujW0nMiLEsFDYd59R2fy4kQ4JRNhPc2VvEQRXliaa3qPIy9LBKvuMbkrJ5En
7n8fdb/2sKnknRYhK2l8S4QHeVdF2Gu76PCqWeTdFyHNnaftP5ftJ4Lvhu+h
C+aT1yWC5xabzCmL2X4OUDnQfoq/tJb7H11AroY=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1ndczvv/x/EUKhVF66q097xGsvs8UeblyDgH50RmQigjp0SlSSktSXto
ryNORlRWHEWIbBJRVipJkS8/r/c/v88/3bp9Pp/7+9Hzdt2uW3qrtixYKykh
IRE9SELi58//fx1J/Hnlc/bNhXdmjBdxv34/xZ2PP6RtOX4aZyv6eV3g3Opa
X/reEdP9q1xd1ZYZZ8ct5H4pDdy7wNX/Bg1dQs/f5njNL94ObXTm1rn+vO5y
z10thyc1rKD373OFo3InS45dzdXX/bwecWcHWxoIU9aS94zbkrrtmYGUGz3f
zAX8ppTU4LaB/BbOy/ypr+C6O73/gpvT5nacE22h81q5eOXCCX3XPMh7zXn1
rvc1HPAkr42bXzpgr8nfRt4b7uEpPaOHK7eT95Zr/9zWuCJ2B3nvue7475/z
LnqR18H5brs+sezTTnq+g1vaXzF/m7E3+R+5ZleHD+//8KH3O7ntaxde1wnd
Red1cT564mLJCl/yurmXyeJ5ca27yevmgpcv8b2p4kfeJ27imAv+f+n7k9fD
NXAJ99JP+ZP3mVv5335BhVMAeb1cWa24L/lVAHm9XIXa5mynPXvJ+8LNiffK
blAOJK+PG3Pqi6dmYSB5/Zx1Q0GozZQg8r5yz2o8Vss1BZH3lfNz9Q4pdg8m
7xunv168Q1kyhLwB7v3xxxX2CSHkfedmb0y7b24ZSp4EdqyMXd9UHUrPS+C+
gXPf1N/DyJdAw+65+u5tYdz/vS4ahCVBvrvm795H5w1Cuf6NrI+K+8mTRKKJ
3OQ52fvJk4TVrRdvnceGkyeJG4/llxn9F049UnguZz8xyzmCPCkMspg9/s77
CPIGwzjJWOG0/wHyBmNgbq+H08hI8gbjwDQdg4SsSPKGwHfvlNYI2yjyhkAc
8XsA/1IUeUOx3/iuS7X5QfKGIm3a7nHnth4kbygOPi6zjT59kDxp7HCsrB4n
GU2eNArmms05PiuaPBnk915wkIqOJk8Gza0pukb3osmTQUqg0iKeTgx5skj9
ePGPp2tjyJNFYUVRpldRDHnDkGM1/PiTzhjyhiG8IEBWbXwsecMgub3bQMcv
ljw58DwKQnouxpInh+REriJ5WBx58ugfmz9ZySmOPHkYPLTLXhgfR548JmnF
7lz9II48BQw2vDgdOvHkKcDls0VW2+p48oZjTniYrktePHnDUZ3etSj9bTx5
w+G5/vm9Iv4h8kZgS4/hjKDth8gbge2eLycZnzxEniJ69XKXxvQfos+XIqrt
Hbkr9gnkK8LkwMfo2oAEel8R364Le6MuJtB5ihgt0aKhJ32YPCUkrbE66jPr
MHlKqHSLcEgOP0yeEo4trM0Lrj9MnhJsr38ItBuRSJ4S1O1d9pc4JZI3Ep8+
l299F51I3kg8mnH9U+etRPJGYt2C+uvnRh0hbyS0bsidcVp0hLyRmJui5ZMX
d4S8UUiwra2/1HiE9hkFy04pnzzlJPJG4dK0XgenRUnkjcLjfzp7KmOTyBuF
squuf76/lUSeMmpev574QimZPGXsaTfbkOqUTJ4yNp/qPKEVlUyeMt5c1Olc
Xp9MnjLCnJO71silkKeCcZ3Loq1npZCngrEOLtlnQlLIU4G0R5K0/MUU8lQw
+YPMYZ1BqeSpwM8vzrZncip5qvDr0TwX5ZNKnio4qfVqb/9NJU8Vdo8tjOS6
UslThULLp/q31mnkqULFzLbv4IY08tQw84tZ3OejaeSpwcbxTahucxp5atgT
XNg8ZHg6eWr4o0kmydkinTw1yGdXucXNTCdPHf5dyx2K16aTp477rfNMc/em
k6eOKzdvjdibxjx1dM/72jO5knnqGLP42IMH95jHw8Xp+SeXfGIeDyrdK6Iq
lDLI48HjhN7yz1YZ5PEgufGLofrsDPJ48Ak5+YLnmkGeBo4rfUj9GpBBngbe
H2/7vTqFeRo4VFkiv/YU8zQwX6f/cnsj8zSwPIjbN7+DeZp4OTtlSaJcJnma
MIppmXDeOJM8TVhPi7Crm5JJnibmap1aUOGcSZ4mlp/jJwTuzCRPC9sq/5IX
xDBPC9+Lp5ypKmKeFm5OCym2qWWeFvRXuL7zb2aeFp4KTgSX9zNvNGIW3g+o
VckibzQU3l99V2mTRd5o9DyRuxs7K4u80bjUUjJDvDqLvNG4e2W2U6tvFnna
cE35+m3lIeZpQ/vtapeqUuZp42xvWuDAFeZpo1Fyro/Oc+Zpo/5AwEL9fubp
wL3kmo60cjZ5Ovi+zLqj3jKbPB1Y39a+6+WYTZ4Orj4LaBm0PJs8HQT+mW++
xSubPF288pt/7lwkPc/The+m1H86crLp+0YXM+N46kOq6H2xLv4bWzrk6112
ni6COgsj77wnz18X6lNO10YPPUrn62Ky8rNLfO2jv7xyXfy53jf12Jij1KML
xXaHdWpzj/7yWnVxPmaancuao9Snh28ujXr7d5HH04OUVBYOx5An0oNTSl7+
vnzyxHpYF2i2fXk1ea56yBtaXqHaRJ6/HjZP50Uce8f69LBGZoescHAO9elB
+7DezHiNHOrTw+Pi0yse8XOoTw8PnTXcpWfkUJ8+YmUWB6ouy6E+fZSsrKmS
3UaeSB9P1z+f0BxGnlgf/n7ew1NSyXPVh7yHz6LJx8nz14dBjJzJ+avkJerj
Q2tgusVT1qePXVPXP/TuZn36iNy1ubNINpf69FGb6SlxSTuX+gxQBB/d86Jc
6jOAaVLFpuyZufT5MYCapJ+U+7Jc6jNAu/7sb+pbyXM1wM7VJ7wKQ8jzN0Dh
tD3hBknkJRrA53LA4oBS8soNkNp8uufiBfLqDCDoRvD7JtZnAHeH6ToDb1if
IToCVZu7vrM+Qyj8pfLqxqg86jNEYV/l3BiTPOozxJ3jyYKJE/OozxBKyYtL
//stj/oMYWSW1YJVedRniL9eOb5J2UFeuSGcTVRbmsPIqzPEwpO9r+STyWs1
hFvuU1WdUvIkjJA+5GqE+nnyeEZoKD/r+qWR9RnhjG1DTc0r1meEDcGaZzz7
WJ8RnPprtsgq5FOfETJN334N08mnPiP8ebnWr0OQT31GEGWHqMAhn/qM4JK6
7OHOP/KpzwhPDwe+T3AjT8IYUf5893Qf8njGKJyf7BkdQZ7IGK8MBjQ3ppIn
NsaLieFhVmXkuRqjQ8+r8V4N6zOG4Nw7rU23Wd+P+95afu0vWJ8xBrmaqM/v
YX3GGO9qNSRDuoD6jKG/avrqB+oF1GcCU5+9876ZFVCfCXSmtrXKTiygPhNM
kfCeLiEuoD4TjPxoFP7MmTxXE9RE3b9ZsIk8fxPMafEc67KHvEQT8Bqq732L
JK/cBN2bwm+FpJFXZ4Jtq/ZN6StlfSao59ZMXVLN+kxR8urfj+kNrM8UgZ3y
7o3PWJ8pjms8r+/sYH2meF6YIfoqUUh9pljcc/RUh2Ih9Zli3OWxvg26hdRn
irAnBxKS+IXUZwrZv+tMFqCQ+kzx4sLgWd3zyGs1xRNPW7W9LuRJmGHMBMeS
/s3k8cwgv1HefOUe8kRmEHnPzjl2gDyxGQ7EFdh3JLM+MyRz54drFLE+M/zd
rijkn2F9ZlCI/n5B+B/rM8M852dP9e6zPjNcmf4+/dsr1mcGk4ti/cs9rM8c
SRul/XYNKaI+c2QeVbo1WrmI+syh6jzdrli/iPrMsb943WUzQRH1mWN6lnZK
LFdEfeb40tbX2D6XvERzTDuwNczGmbxyc/idaL65cgN5deaIddt/LeBv8lrN
ITk3LioqhDwJCwRvkR8XHsf6LKAo9/LJ9kzWZwH+wk8p4jLWZ4FWfIkceY71
WWDPyuhrl6+xPgu05E7dtP4+67OAMrwO9LWyPgvErfF29OlmfRaws9td8npQ
MfVZ4ET8oWbHEcXUZ4md389+jtYqpj5LzFh/Q7berJj6LFGnt5//2a6Y+izB
O3YwSNGBPFdLSNe4afPmk+dvCdNeH1Wl5eQlWuJh+8jg3g3klVvi+MDyvTd2
klf34/7vHsaHglifJV6cnrBPHM36rLAgMu58Zwrrs0LRCbv2sALWZwWTiEq1
ERWszwo5jVmrgi+wPissKhY/f3OD9f24H/SleOoj1vfDG3Hj0b7XrM8KN6c0
Btd0sz4rSE3vrGqTKKE+K7z4uztDUqGE+qzhvSZsqjyvhPqsIX128smhRiXU
Zw1tlxBeJ7+E+qxR8du/vtcnkedqjbwKqd6kmeT5W2PYh5CMPxeRl2iNRzsm
RA1bQV75j/O+9t0t3EhenTUmrguNtN/J+qzh2Oh/7fxe1meDNxkbssZFsj4b
OHkVWKQnsj4bdM0I8/6Szfps8NjVOtOhjPXZQCY0/3TAGdZnA/G1101ll1mf
DUJvnh1+6ybrs4FS1aNtLx+xPhss/e2R5ptXrM8G6o/HaLZ0sj4+3HY5htR/
o+fl+VjUP8uzQKaUevmYNmhth/eo0l/vG/Ohr5KkNkm7lP6/4eND+e2+DtPS
Xx74EK26X3xYVEp/Dx9d55Y6iOzJW8qHRsLLm9UzyXPl486XjvVTFpK3jY8+
8W2dE8vI8+fDb1XtUC038iL4MIx8I/DaSl4iH0fOTDl+wZe8HD7mBJemDw4l
r5yPsjkDsuOjyavm46L4oeTKJPLq+BBXNqX4HiXvPh9mj9zehZeS18rHIZXX
UlGnyOviY9jI2K7gC+RJCLDsTvh1j3ry5AUobrqXM6+J7SdAps7aSP1mtp8A
7sskEtra2X4CXBniciu7m+0nwNxNGgsWDbD9BDDYem/UV6ky2k8A+7apwisy
ZbSfAE/bOiIiFcpoPwEUNnhbzhtZRvsJ4KHqyhumVkb7CVCzQuRcpUleogBu
kU7fNuuSl/Pj/FqdITwj8soFiDLs2XXWjLxqAaKrNDc4W5NXJ0Br9bWmT0Ly
7gsQsMW2ft9Y8loFaOd2LlCfRF6XAJtb8rZkgDwJIZIX37Q0ciRPXoj4T2+i
s2aRx/txP+BVjtZv5BkLkTQhZ9vBBeSJhKhu+/Z94A/yIIR5Z8VCt7/IEwtR
tiLaq86F7SeEd/8ED4s1bD8h2ucvnRnsxvYTIqwuaOgDd7afECcrZx0z82T7
CXHJ3XTh9h1sPyEKbOI7Tnmz/YSw8+yN7tvN9hPi46USe7u9bD8hRvTLDLiH
sP2EOGgsbkrdz/YTYkzFPzevRbL9hAgJWtfdFcP2E6LrSdR0tQS2nwiNaVNu
jEli+4ngOT4sfl4a208ExdrV6Wuy2H4iyIy+2rM9t4y+f0Sou5eR5l/I9hPh
tUddRmgp208EnqPW4P3lbD8RrEqW1odWsP1EsBk+dXDAGfK2iSB6Flq6o4rt
J8LmK7furL3A9hNBNrtq9/xatp8IFonPisddY/uJUG581l3zBnnlIvBtb1V/
ucX2E+EfvZiy23fZfiKENa2Zmv+A7SeCwt1cX58nbD8R1jmWrJ3xnLwuEcYN
qZFSbGX72WJSpfayxrYy7n/GxKjA
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226841974831*^9},ExpressionUUID->"55ac04ff-3f3d-4243-9d5f-\
6322c8cc6b0d"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw1V3k01V+0L2NJCveah2ueuRNFZW8apDI0IHOlhISkNEgpQoWQFIUM0WAW
QmWe7r3fS2gkpVSEHxokxbtvvfXOP+fs9Tlnn/357L3XWUdlX+COA3yLFi1K
XLxo0f/O/zdI+P8rleGf5xx5tq3s4YeKWQdg776Nv50Xk/B5wQOaYOYxkL4N
60X4SRjPvzdt2PgcBJpStQ8KkvClZ75iXloUbO244Bi0hIQlPzJqTP5dghVW
/7w1REk4dbI4M8bwKgxb/3kbtZKEEX+tz7zoT4KPl1pUEskklJedXWwZmwKF
62biN8mT8AVX3SKWcQNOPxjan6dCwli9o6GH3qbBscMrux5qk7Ar5ZfuvXO3
4UtS81dXKgnfi75VPy+eBeumEspLV5Pw5NVVapS9d0CW+02l0IKELko1suLF
2aApPihhs5WE5e7th1fP5UCv0MOdVx1I+CUmwP/UxjzwnYjKOraHhGfManbV
xd2F/PU2eXOHSLhKZ9HeTz358GRk+zzlBAmdti3lvpa+B7dRzvRTJAnnf2h8
iXS+D5WrDPvWJ5HQ30+Lj3vjAVQGD28wzyIh96xlfHbfQ/BNWzXRXcTDvQcl
vq0ogu7ZOL1/T0joft+NkWJVDDkJKdueckh4wsd7t5V5CZi2rEyVfMfjW+1q
7PWyBDYIFVjNTZBQ/L+jRlKBpXD4bHXS0UVkJKNu727BMph1oOSdkiBja3iK
uXpaGbRUCueJaZDx16yQVLBBOVRp3S0zWE3GXW83X1n7rBymkvlH+raS8fbP
867hdhUwk1rhIbiHjBukOU30dxWQnZWoWRNCRsllx2McDj2CrWE+9tOxZLx/
TGh86NcjGBApGHmQScaAcqGyl+cq4VOL4PynR2QMbIwXpy2tgifDCjfS2WTs
UsqvHUuogu4fQo2cj2Rcszni+RJyNQw+HI86OUdGPBz/+cKNaugQuD5xS1IK
p0JPTbvJPQZHz0/CJvpSSAkQd0pOewwXep0HLTdKYXUH6aWmbA3cTr0U2eAh
he/lhJKlr9eARmTc0pITUug0+U3AW7wWuEP7L4gmS+Hx++S/EpdrQSd8j0hf
oRTORw7dUOavg0L1kzXCHVJIdCZsjjtZB1U1eeXZn6QwiBBvcJ+og8f8unK5
i6SRPPbnb9LeJ9BiMygloiiNEHl0lVHPE3hvEPryuak0LlzZ+JW5/ik4h1fH
/3WUxhbh+Wd3S59C1fPKkKgQafT30MyNVnoGZ68LtB1KksbcvakP3sQ+g6Dl
79sLS6RR0vOLXM73Z9Dn79pkzZVGtDxFnTaoh58bzwmaT0jjvw2tS7fvrYfF
pwI+xSyXQSm67K//kush97/jtdoGMhi0KWKoq6UexC3pY/I2Mpip/Lbz5696
KMlKfrfnsAwyxvdV79FqgH7y70W/4mRQ2syhXtKpAVi+9PbXRTKYZJHJJ36x
AT73JReLdMlgfVlGgUtFAxjXTq2OnpJBjarJj9MfGoASVzBmIymLNgL242/F
GsGHcsvZ3VgWlz+K4JdZ0wjGV4zJFU6yGHXb3u+edyNwOjxq7U/Jomnzdd+k
xEbIXxc2Qbsti+K5u7b11TbCtR37nRzrZbG5t88zZLgRvGwd8uo+yuLdsqHp
I2JNoBE1EuclLIcTafO7ukyaYEJMhGOtJ4d5tmV9iR5NkKnyXj3ATg6LRIea
qqOagGLU4s49KofXpwwPWz1sAqfPtE3+N+SwW89LEZ83wQ3Gw7L1T+TwdNJX
xbyZJvjgWnFm15AcNhlYPzqh0Aym20qjbwvL41d8rPkEmyHcuL9S0UAev3jf
Lw3Z3wxil/VmenbI4wGHg4l3opvh7Ml1Zs9OyOPIm6q/G+83w7YRi9B3GfI4
WHxFYz+7GVqUP92ntsij1KOy1fPjzZC/gvmy4ps8WqyNc5da0QJuvgn8fhIK
eOTPi0dFRi1QdPLSWjtTBaRs9nXvsGuBkU+vkr32KGDuzqV+PoEt8G+LCeVu
tAIWTZp9i4tvgfT3tv/IxQooXiIzuqawBQSXFGwte6GAmyepviGsFrj5PYZ6
al4BnW8e3G860gLmrh/7/DUVUdmsv+uKUCuQbNb6xdoqog/23gpSa4U5SgqF
e1wRLZbcK/4MrTCcsou6LlMR5yMej0y6toK1MrXveZsietI81RNDW8HJh2yX
MKmIrls/0zqSWmFanDR0RFYJl9TGDKQVtoJhidWLk5ZK6PPq0Dfh9lawWtYY
eveQEtIys2QkhlohPf+Y1Mw1JfxlrClfO9cKv1IpQoeeKuGZGxN3BMht8O7W
qozFX5Ww0Wx416RBGzCTu01rxJUxPGym9+ymNnBkJq+6tkYZp1qV6io82mC3
Tvps/AFldKf53756vA16ggOG7yUo42AsWZAc3wZemsNenx4r44+cCyfW57VB
1XnpD+s+KSODs/e4Yl0bHC/U+OwiTMEYm6Ljuc/boGVskpWnQMHal6zR11/b
oJST7bZAo+Bcd/K6Z/NtYJ7ov+ugFQW5Hr49DqR28O2aDhpwo6CCuI1Ipk47
uC7feGRvMAX7TaZMb5m3g0lQH/l7NAUt84ly253tsLY4iJJ0m4L+/GZNVQfb
QVjVZJd5OQU/OZ0sfHW6HfwWEo7NtFNQWPxNaVlCO6S16G158o6CHHrbUquc
djBiT99I+EHBk22DX69XtkPIAp9ugIgKppxYfianox1Sm/Nbd1NUsGlT+sTh
/nYQEdppameigoaO2/bMTLTD04PXbbZvU0FGS/B/uLgDPLIVujz2qaB1lFDF
VskOoAjmxIeeUMEc/bp6GY0OOKH43Sk9XgVFauTV7pl0wNLI/rmOXN7+9akf
/1l1wBrCcCt/rQr2Rd8RlHHugLaccmmrbhU03tcc/du3A2JmtJkpX1QwRKLK
K+tUB8ztWxMy/k8FB9xC4lde7oDCnHMP7UiqWHPC/rd1egcImAWX1eqqIh9L
LM7mQQdka/u40SxUcZfvDEOhtgPqepIjSpxU0W7fGLeyswNeLvyZXR2gin/a
wkHpTQcI/hec0Rmpio6n+N13jnSA/a30zQfSVbG/KH/e8XcH2JDePl9Spope
zKhfOsKdEDu6W+ZRuyrqBlVKcMidMN05+8N3UBXbJf0ULdQ7oVTTdaPWL1Uk
X/rVf5HeCW/miM9jomp4WG5cMhM7YUeVU1WNmhoKNehHXLLthHXU3JSrZmq4
tu7HoLVbJ8TULdsbsF0N33F+fRnw7YQG90uzO33U8CDV18YqtBNeCD4Bi7Nq
+AlkGi5GdoLi9wGSyXU1DH4ROnkrsROWqTW40At5/t0qoi5ldILM267vxs1q
WHypScv+QSdstRJpwrdqyPwccmqiqhM+Gvx5sGNaDV2/Rih5N3fC1arHSYeW
qqPg0O3Sqq5O6Nr6zfUyRR3vJkYRH/s74cO5qrHSVepoESi2/NvXTmhW6tQd
tFXHC8XGfMSPTvjHtPsr4a2OYf8MMW4RC7wtJ61szqjj7bFgRx1RFnQHdP+I
u6aOB9Q43dnSLBjtix/tfaCOEeC39o8qzx4yFVdtUkevkGFFqiELuuoctx97
o46Kww5zG0xZcLLxdTIxpY63alydTDewIFRKo9FgqQa2/NIvW27HAlEzodYk
igZ2CmbHNjqzgK+qPPbfKg3MELN03r2fBeMvO2cO22lgO79dGjeABSkBNnMf
vTXQN6S7SfskC4QKMs96hmugHyV3y/4LLJCfiAp6n6KBa+zO3jkfx4I/fao1
3oUa6D/KbxqZygJX+Z+bp5s1kO7Retb3Dgt0CvqWXujXwEBwHqI/YIFRwc8R
mR8aaPrYifW+ggVpBf0vypdpYnljYM7RpywYbPR+ulNNEzsV/bu/tbHg/fPG
+N9mmniZYl5j3c2C/qogk+wdmthuLdwQ94YFclmQa++niWl3VK2qP7Lguce2
Nv7zmhj/xeBhxxjvPvZCfO1NTXwfL2Hb+JMFNKPl30JLNVHyklhs9jwLlpcG
sVZ3aGLg57oqP2E2TL8+TJl/r4l/Vysx5Fey4bVU/Ju235q4bSBrR4UMG+ib
M0dTVmrhSWEdfxMVNqBzmYWPthaO3pPpvaPDBmJQttsctfCHkdPALxobKM0+
l2R3a6GtmPNrYzM2jE4Gef4O1MIvOloynpZsmBextHwbrYW5Ut5fg7ew4R5V
W6MxUwuvGrinHtnBBq/6+38eVmnhgTP/glxd2NCkeflROlcLJa99fUbdx4bz
5U2b479ooYdaKGfKlw1w7GJ+5IIW7ol49iHjCBvEFNa2hEtrI0fg1vrVJ9lw
Yeh8SpiRNn43L1399BwbxM8YiIZbaSNNMkSQFsOGrBWWihc8tfF0odH41QQe
X53Zusuh2mjltIz+7jobPFrqBlMTtHHaYCVZNoMNGTu1TuXna2NDteELizw2
KDfzRdQ808a2PRsqdj9kg2qa1UjXS21M66SMu5ez4Sq/QsHof9pYJHn5yfYa
Ngz8fF4mvEQH86c27WU28PSx+zavRdFBepWspFA7G94tWnF+62odDFvLFW0j
ePlgSNCD7XVwa6F5dGgfGyzOTQvc8tFB2XV2NdL9bGhQejHZfk4HDzT87c8f
YkOl6rKx3zd08DfdTUN7hA3fqoTG9Up10Fw6q/3Gf2yo2r9/dG+HDr7tUpib
/ckGefvhN2kfdLD19bbJrX/ZsOJK4KMXszr4Yrj3TTwfBx55LT9CltDFsP+i
xxqXcMCjcEzASVcX/Q0POX4V48BBiodPuqUu/vj9ePMCiQMlRb1JQy66vP/V
yLSwPAdqPnw6rX9UFw++fniBT4UD9DUb5E9e1sXihRnt/zQ58PtGu097ji7+
ERJYSehzIPjWQTe5Ol28snnHgUw6B+TJJhMBvTx8oHiX12oO2AcclGod08W5
2dVL5cw5oEax4SgL6qGykVth03oOWKk5LgtT1MOQvAG/PdYcGDgo1vHGWA+X
wBu/SVsOmNspLayx1UOLB519R3dx4Kj2lruZ3np4z+9iz6gzB24UH6kSPKuH
Nxs3XXbw5EBzQoJeQKoejmfdU6vYz4HSL9Vzr4r1UPxIRaOQHwe+dCmobGrX
w8IPL+JsAjngPsKf8ui9HtrdGr8XE8KBB4Nce61ZPdSY2LCm+iQHji+es0kX
18cKr/QD/eEccGZLXxTX1cdRB/VtPy9wYOZc13SspT6O+F0S54/lwPbqz3EC
rvqou3T6pWA8b/8cfXvEUX1c8XSu/l8SB6Lcck0WXdHHf6mt46OpHEiRxNUR
ufroEzIdzrnFAQt5FXuBJ/qoYZl9Le8OBwS7Q0/E9ulj0qpw26N3OdB4PfbB
ygl9LPr3iGXygKfv8ZKPN4UMcE8Xn95kMQeGWl3kNZQNkJl871JmBc9fr4hN
2SoDJPWHLdn4mAMd0Y5HLewN8Of0u4b3TzigKPkl5rmPAc61NfUEN3Ig+daJ
mAMRBrh5sMxlrpUDpuOv/f/cNEApRkfwKRYHLlLGqIllBqgvWrtqksuBdIds
rg7LAF26+5rdejkgvG/xhuaPBviAs9i4/hUHpC4qx+75a4DU8aZsuQFevlTV
0+ZJhugfDNr+HzigFGQVnGFgiETWqsGKYQ7ErXouipsMcXSv+IcfIxygXlE8
8NHDELMGezfpT3BAJDrpeEyoIe6XMdJxnebAFf77a42uGiLF72hWxC8OnHcf
K3tZYIj5UrebM//w6p861RvRYIidz+wLH81z4J60Z4bBG0Ms7h840sRHQEnQ
N5G304aYqIU6HUIEHFR0kbq0zAjvC6iMtooQ4L/5TJ2ZuhEuGnrVWSdGgKGu
8ezYWiNUTAz6cF+CADo3sD3LwQjtbmavT5QiIGhQW9MxwAj1IvuFguQIKPf2
FVsebYTaaohWSgQoZlidack0wmxuroC0KgHRlZ8DzlYb4dHcGz6DGgRI5h4f
NOs2wsDSveeydAiIHGWwZkaMUEt3wdPFgIDdjxjSroupSI7TlV9OI+CQTDlf
7XIqMtp2t1QzCfh0Z/NdeTkqVtrXHnFfTUBKje6iM5pUzNpowZhbw4v/ZorY
IJ2Kr0JvKCQBAUw9FtcCqLjojCGqrifAeV7CMm8rFU9U0UoebCLAXLfGa+lu
KsY4J4UbbiHgrpkkI2A/z99+/if3bQj4K3u8qCeIim45c2GU7QTY/YVe0zNU
TM2s5CbsIiBrS092ViwV+ZKNW387EXAzPlVmyXUqdu7EI66uBGR6zDKCsqlI
rPP+UOVBAGOL3/dXRVR8Tl7QFNtHQEvrHgfLWiqWjOjt8DhAQLPC7t0P26go
Mf4yuMCHAJJD1x+pXirq2D++MXaIgF5N2zXn31PxImlHj24gAceGXWQmxqj4
uX+S5hVMgFpg5FWXWSpuqyltSjlGwHF59+w2QRqK/ghPbTxBwLn7p7cZS9DQ
niNeN3KaACnm6bgcJRr2bPoOy84ScER6zktCj4ZSA2E0rfMEiHzLICJW0ZBv
/euMdVEEtPmLsafW03BcVvC6bQwBIcE/XfbZ01Alj6vucpkA3zf8p3rcaFh3
+u3uPfEEXA8b19roS0O2cSbsTSSgQN7Pq+oYDcky3p/drvFwR2M93fM0PF1r
77IzlYAdaWLht+NpKFHmULAhjXef5GMX8XQaFmpbDlBv8+LJnnsWlU9D4+ga
QZksAoj2rId/ymnoJrrG8E82ARI5x5WD6mnIOCjj9TKPgIU+W+nPbBoq2Z0r
KS4gYGXkfJLbaxpaSp9SvfCAgH3okdgzTENFiy/N24sIWM23RXzrNA03iEbm
yJcSwJa5I940T0MFvq8d78t59aS8KXHNMjpWRVxcf6eSgGuTSgkV0nR8t6lY
3v0xT79bJBFDdTr+nYx3J9URsMFVcnEBlY7pUUaktqcE6F4QOaq6jo7Hp09s
OdZAQH/YmMdtazqWXqEtU24moLa6qEnGkY5icfN7mlsJ0M61zrq2j447L+93
PNBBwOeM6u8rA+loMtP2czGbVz+Ts3Vxp+molnDYOo3g9fczsTmRGDqm9J5y
Nezm8RGYexhzjY5GZ38ZP+0hIPl8S7fQHTqmjrcPWb8gYO5JqE9UIR2tUuoO
db/i4ZOKQQI1dLQICH+z6y0Bjxe3fbnQSsdAz4zVvQM8OyyS4O+hI70gIcHu
PS/eaD+1yEE6vrK697V1iIDGNwnDAmN0vLdf08ZsmMevcjnp4m869hVptt77
wqvHgYVCYUEGKrUUuZFHCeiMjiyLFWcg6VqB7JkxAk571FFElRiYXvVR8MME
AZuOdM7E6zJwxSuyrsUUAcOGvSYSqxioKfQ2/vZ3Xn+6LR5IWc/ABunKtb9+
8vReGTYia8/AoIWVa7f+JqAsN8g1w42BbprrUm79IeDDo+V0NV8G1jcctR/9
S8BJ6Uj/gmMMbNd+cYy5QEAPR0jE8DwDT2oHLD+9mAuZQqylFfEMbHEwVH7K
z4Va8SWHzNIZ+N5zuuyfIBcUXGb0G/IZWOJxtst0CRe4Hr22mysYqKcWeTZY
hAsaD/u53HoG8kfebMsX5cK3XrtiJw4DN92zLHktxoWmQ4Fjg68ZeHr3OC4R
58L1v+EXfT4zUNZ8+hxDkgsyQs1hU9O88yYpoa5kLpz6HkWcWmDg8yRB/XPS
PFxK7LSAKBM9Dnjk3ZHlgmNmfkS8DBND6u+OPpPnwuW0zA8yGkyMmu/me6vI
Bb4vG9JyaExcKVD/Y1qZd57+9b6hOROXnl/XJqzKBe+ptxI1W5i8/79AhKw6
D3cP6d7oxEQVw1ptbU0uGPsJf+72YmLToplmhjYXlFvG7DyCmCgiYea2VpcL
8uwzYt/CmBjH+fHDQp8LH2PJKidimdg6FJWywZALe0tWRgteZ6J6hNmGDVQu
+CXz3uRsJk4m2gpb0Hl6qz3colLMRNnpsU9mTC5sH1meX1zLxD33jT7STLhw
fsFhl3k7E2e1KEs0V3Phh9jIdk4vEweCq5ylzbiww9og0+0DEz94vRsQXMsF
5/2X1oyNM/H0m8NpU+u4QE3x1Qz7w+T1p2HKG+BC8WVjT1FhY6RQ3/bUW3Dh
+WGX4VuSxqjVqOCWu54LJj0bqw0oxngsL54RtZELGfXeL5/qG+OT/jpPLysu
xOYYWNqbGuPmO+qfza25MGYj+vvDRmMeHyZbeisXhqeO/T66wxglhrZJT2zj
QrjioKWQpzEOxT5jN9jy8l355MWNQ8aYf6RrKsmeC42/Ysr1Thij+J1Hl/fu
4IL5wcevnkYaY+Wh1EyDXVxYNNC+cUeiMVakXaXPOHDhfwD+NYQj
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw1Vnk4FV7QroRISkUkUd17rZe7y5IZSpI1hUplK0VISFKSyi8pylKyZd93
rru3ooWspVVRUbRIKorou9/zPd/555x5zsw7887MOc+s8jrktG/OrFmzEmfP
mvW/+/8tAv7/abT5YI6iWB42i+z2zrGEVYO/TrmIZXuVgAq1HGdoGAjOviuW
2w+XXL1p6AGeXpa/d8wmYHdJOVUyex8oVu75b8UcAuYk1tTekjwIy7JgvawE
ARMkPNMHmUGwpfQPac1cAs67UR1+eigYDhlRtPZLEvCZe7FaYfoR0GEsN30q
RUDKFHWDqW042Dw84xI0j4A1P68LWNMRkBXW6cuUJSC7dnLvmcpIWGg17UOU
I+D3Y9XZsfqnQNsmfx3KE/BrilrNx5hoGLSefBWziIDRf60jn/aehvclr/TH
FxOwoXBFjS39LLyPa16VqEhAVZU/sy3Ox4DjmjfXXZQJWPenfV3Vm/+gct1E
wkZVAj7tIJifp8fC6YnEFx4rCejXsmK65dx5OF7+bm/hKgKe1w05evBVHJjK
9SguJRKQtTys1Uv/IhwJWNRZoUXAzivjOqWn4iHP6O+RQ3oEvGRL62N1J8DH
pKYhNwoB++VeEU4rXAYvNfd5wQwCpkVkjp3lX4Z13y/V164l4LHLhms0PBOh
u27k/vJ1YrneT95xXhKodHxeVWlOwJ0rBSoK1UmQ9bIn88BGAgZsbeO5OycD
SaFvsZ0NAet3PwhYO5UMFj9X797pSEB+d87D1JwUeCJVsfWyMwE/xgb6R1he
gWf5x9pGdhLwwQRX8vXwFfAdick54kHASGPBNlH8VTB90ZpL8BH3Q1WFliI1
FYrX2xVOHSSgofYsz4HHqeCso3Jy8jABP91L+0oKuwY3hrfMaIQT0NVWpuPF
sjTIu0yfCDxJwII1QqVJXhpk4XKjgbMEnPlJ/Hh2Rzp8To9NPnVB3A9vf4Qc
/ZMOHEP9nvVJBPT305zTcS0D5EgjreQ0Ak5JmQ7FGmYCJ3hwg1kOATuiLBLy
ejJhHfuw3JFiAooW/QlQCckC33TDka4qsb1P3+LPC6/Df1HaDds44v6K2bhc
seI6dP2J152+QcDdZbvoV6yyIfKglGprszj/xkx133fZkH/piu3NNgKGH/DZ
bmWWA01zimKf9hDw6p2zH2ZfyAGj5kWpS96I68tzY3o/y4H1nDVw5AMBo3rR
2m9NLmyQKrGaGiGgwrcQA6VDudBzfSiscIKAxh+WzewT5EJAFC8pZBYRFVHn
yXbJPPBccMxjnwwRCcLwF18d8uCPs0ZhxGIi3jt5xYyQngdp5kCsVyXiljsP
Tafe50EzR7pQnkjE8T9SSsHkfJCocBq6qE/EjRVPl8aG5QNXs6iOvJaI215t
umh6Kx/69Ezuj5oTUZr+9lmCdAF8T5YY7rEhYtav024nHQrgc3v1y15nIsqJ
3M7IphbARCp7j6QHETcsa2ukvSmAhvOOhg5+RFRf5Zw2TiiEvJxEkiCUiEvm
h8U6HyyEXwU7RyyjiPiWl6nmUFsINicOOI6dJ2LZEamv78YLodnLVf5WChEZ
XYVJi0yL4LVsyXB5NhED66Xqnp0qgo78pnxeGRGf1lPHDZuLYKBZcmaggYiH
7iYoUGWK4cIGLp9yh4g+Bvdv3LUthhuDK65lPCJi58pi4ZdLxZA2E7aT+JyI
P0Jnuqu6i6Hrp9TdtvdENNkU3T1PsQTeFyy5nPKNiKUDxZcmXUqgr+JrzLEp
ImJAwocz10qgOuPH3hPSJHxCesIveFECD+deHclcQsLvRyPGdi0vBctwt4GX
6iS8V9IYVbGzFFzcB6RZeiTUCFRwTU4vBeaNkeVVa0mYb90YovCyFM482dFn
YUlC3sOlz0gqZWBVq73s5xYS1tVNnXvsWgZZqXFn7+whYf9yqeRlV8vA3PXJ
cNlBEkadXiv743EZEM/Gy9SEk9B19PNcH4VyME8JLOqMIWGcakV2kH05dLzb
e0YumYRhZYp/F18oB0y74u2dQ8KSBDba3S8H7ZMesj2VJJw5++6aukQFuJd5
mXgKSbjoTiEjzqwCKgnHBNIPSdjecmlT/LEKcNjbaPPgKQndUzIXaLMrgCso
rM8bIGFQu8Kd3SMVwC9o5VwdI+GDU3sKdLUqgS+hs7xgliYqfpn8m+RZCbNh
dn6LvCYWCTYtTUmvhGa7PiVZNU2EsyGGBo8rgVGWa+Klq4n3Srdw986vgn7y
0WfdRpr476LlEGN9FSg+f1vjtkkTP2qqr86JqIIdJ3kJf100sVl65lZRbRWU
7tda27BPE+Oq6BrWQ1XA7eaExoRqov8eUsG5ldXwaL+FXMAZTSzZwqjx2lYN
UVfn3j+YpIkFnqnlL89Xw+u+pIDoXE3cpW49a/RmNQQt6H9QWaOJS9w/Ls//
UQ0hzuvyRm9p4otMW+bkkhro8XdrtO7QRLSIoIyRa8DynM04740m9vZ/5/Gt
auCX5SlJsxFNnN5wT2aLZw1svNIufD6tiQFrVd15ETUwOyJwIHaBFirRVMa/
JdeAb/vUZns1LXy+/q3c74oaKPgWJtQia2HQxuh3nc1iPDfLOcrrtLBx/RAn
4k0NKFjQvqjaaWG2+quWX+M1oDrn0EbGbi0cOznsbrGwFmpykt94BGgh/asX
z0OzFnbqZZ/OjdRCRNtlW6AWehV/zxqP18Jlxs63l7jWQttxf60917XQ+0D7
RElgLbT60h68qNLCJPPsOQr/1ULX/KHqA7e08P5JU5JtVi186Emulu3Uwtt1
10t2smuhNqcg9Va/FgpXGHWattYCU/h97bnvWkjkjr4fe1sLa8YEez3naKNv
9BLdyN+1oBFf8sVuiTbazXX8+kq+DmwsWvNsCdpouagyeCGxDg5oZO7YzdTG
BQ3REsomdaAY9Pd91EZtfHM4YOiXYx0wLzIV2a7aGJPl6FfqUweEut+3/xzQ
xgxJy27aiTpoe7hH6BihjUZNV32TEutAhjT0nHdBG8k2N449KKqD4nUnRqhZ
2qhQsM22R1gHdrt9u4RV2rh3QEmX31kHKU57XV1ua2PTkx730ME6yFgU6zK7
WxtPtYQypCfrwNveuVD0XhuL6t6NHZavBy31uuWxv7SRbbd0kL26Hogxw/He
0jo4kj6zrZNVD+0zZU/tVXSwPjjxYtPmehiRl22z1tXBQvu6nsQ99fDwVqT1
tnU6uAYMI9YG10P2qn5CoIMOVsm9a+TF1AO3KWBtqqcOvjjr9ndxWj1oGDTv
7gjRwavf9QOsKurhsv2HQKX/dHCa3+zucqseXD9QN/pf08EuXW817K6H538O
3Ows00GBv8a3uYP1cI1eUbf+hg4eTxpSK5yoh1XWx2eaOsT2/aFjGrJseOvG
jtz2TgcbydYN4SvYYOWaLDf2UweP7q+pqtBng5Ft7bksaV0cQj7pBrJBpUXi
kctyXWyeoe0rc2LDSWYvR42six99ympD97Lh+YqPxDHQxapOn60rwtggf0F3
4rGTLu5z3p+Ye44NO7fLyjTu08Vv6h51c9PYEHVsnfGtcF0cfsn9a1nGBne7
Z74PLuhirmkMZ5+QDbbD5kffXNfFvuqLxL2P2KCw18xidp0u8pTNLpm/ZkOz
+kAZpVkXlRrq1s58ZUPT4pxE/+e6eGFZuU/6DBuKFzKesT/rorlp/G6lhQ1w
Qo6zS+afLqpzvTyD1Rtgl+8lCb/Fenh48mlDlUEDHGedqHxK1BPjMa+3QgNU
HYszdTDSQ41NvrsfOjRAaYhK8mNbPSxz+sMscW+A4YHnyd4eeliwVcbvwKEG
uOj0YNW/ED087+FqIhvVANObWRpF5/SwatT4c3xCA1wvuxW8PUMP40T5gh9Z
DZDRbz+tWK2HCjXKn0wqG6CHrlrw5q4ePvnG4fuIGkByXolN3VM93DRK8Q1t
bYC1a5qeX/6kh3uutxnue9kAaT9iKREzergjbf9eo+EG4PXsWBu4mIzlJ/zJ
3ycawMztfY8/iYzqxr2dF6U4YJ60/NsRYzLOObPpopwiB5bamfqdtyfjAXyS
GbSGA0N+j8jFXmSMU6EDn8qBKY0rGh1hZDSfV1r9AThwZUOR9uwLZKyflNH5
Y8eBwSvbKOuyyTgTzR8edeNA4nyjFWfqyegdX6bd7ssBa3VKT/d9MrpT3QmJ
RzlgqLpjvV4vGaMjhpYYx3DA9YCiw6VRMrrZfKA+TOLAt9fSb6fm6qOB5Tmu
WQ4HxhSWvjusoo/zhLGv0ys5EFi22+Q7WR+Hq1i9rwUc0K+xenrMQh8PPD/4
WfoBB3a8C8mc76qPRexEC5UeDljNv3u06KA+UrNzlBe/48AhFwenzaf00eeH
esHYCAcyio8oTaTo4ziTpCqc4oDRj5aqilJ9PLVxR/3BeVwYT9WQOnhTHyOv
jeTOVeTCJf5padpjfbwQUq763youvMk0vD57SB/vGg9uGyVzwULyVsOLv/p4
SBAdvd6YC4zkLiOBggGePDHxJGojF6wIHkr5JAOsXW1/utCJCy6MZMMUEwP8
fm+liL2HC2RsOR/vaIA/PVLYlX5c2K6d8SdhnwHupvpnXQ7jwvGMrpBrEQbY
SB0v3n2aC4+DAwdLLxlg33lFScUELqwlFJs0FhighIz5ICeNC96kQe8Bvhgv
/0z4+kIupO5qtlnQYYCbJk6MCGq4wD297O26AQOkt3mGqYm4kJX+WiHsjwEW
F/81O3ifC2GVxA87pSkYa1cVVtDNhesdXlEzChQMcgu0efiaC81fRlsLV1BQ
+Kz104shLuTepTU6alLQ/+HX6Kc/uFDblrfrH5WCU13J627NcGHV3MeXak0p
4nlIaXOKDA/MEv237beiYMce38fOS3nATjTI03CiYCZHWXKuOg98O8eCXu+i
4AoFO9lsbR7In83nZe2nYEJgywJNBg/cFlge9gymYC/ru1GmGQ9mc0aTtCIp
2PPuJm9mEw9YQT2KP85R0KK4vd5+Kw+kUw3HbieJ8Vbt3HZxNw9Mq4M0krLE
8UoYN3L382BK69s1nxIKBt77oNV1WKy/mrXNrJ6CA67HKp8f50GN1uvNKjcp
aPqoPLw9hgd+/y4dmXhAQWmFl7V1l3gg6Snf9vwxBcey55yKSeNBerPu5htv
KNhGuy9jlc8DWa2OwYJhinieDDgyUcEDg0dj1y79pOCx+31DVzk8qJUs2BX5
T5yP55Xnibd5EPpvjk6gLBWvhC+IzH/Ig8ozFpOeilRcDa8+LnrMg9Sm4nvb
NajYuDFjJKCXB3eIcbFOulQx/2MNgkGxP6mtRg4sKuq72HpMjPBgTVxkt705
FRXjEhcTfvPg5v6rdltsqUhvDv6Gs/lgW2tS4OJKxSnPJhV7WT7syVvRuceL
itYxUmybJXxI8v/T4htAxdtP9vUbreCDhmR+wtFwKubriW4rE/kwOTa5NPYM
FQudE8OGyHwIV/vhmpFARVmB6ppSFh8KMuK31KZRkb3c/ONO4IPM2d6phwVi
/PWp76et+KB+Y/aWwWoqUm7uXZvkyAeTdn0bCaGYz7lcSeUdfFhSWzCw5h4V
Te9M+F3y5MP9/PplVl1UZHo1nfvty4eoKcEb/14qHv+07PjWYD7ETmgxrnyk
YuhirndOBB9mUiIW3x6j4tLjqh59p/kw5WUS+nWaiq93hSYsuiDm7yq5TU2G
hkxWsRwjmQ+V+acqHJbSUBDu+Ns6gw8nL3iHn1Wn4T9mU6BTPh/mGgfXCXVo
OKdVPt6unA+ktJPOv5g0/Bv365BJPR/ytA7soprTcJvvBH2FkA8tPap3D9nS
kJRn9+vbXT6IHidH17jS0MHrSwenhQ/Soc+u/PCioV3gmb6gbj48+zf5Z20g
DSfvn4SVL/lwNVG99NQxGnpslZ5/6y0fJL8FX285S0OXCIndW4f50Oht0KN0
mYY2HcscX43ywTEzY9O+DBr2VhXPuPzmw/Fo2Z8NRTTU7+85fe8fH+yWvuqe
V0dDb0bMuLa0ANw2h/fvvkHDNsKOkGh5AZz/tF254QENdYI4i9sUBWDi9++I
/BMaBnAav8qpCWCs5c9P3z4aPljip2ZOEMD28LeX73+iIUvgLPDVFUAtyc1S
c5wm7rfx3v9oAmioVZI/P5uOZ0tPZV0zEsDLqfYPX+ToGLD865JsFMB4m3Wr
kzIdbzpMuqZbCcCJ68oVrKGj1B296Dh7AaiOPC4iGNDRMrKj6JCzANZRCq5c
Nqajqehnn/UuAVwt4EXNWIrtA8PWq3gLIFY03zNwCx3ftI1/fO0rgNlKecz+
XXQ8OdT/PjVIAHd2x/3ZeoCO+ym+dlZHBaBAe13yMISOfpIJxl8iBfBU8gaY
R9FxAJTv/HdWABMSLgJBHB1b+RnjShcEoPbj9VLWVToGPz06mpkogBcqKTb1
uXQ8KPO8UfmaAOavubOTVimOfxc7Ju66mP8crlk9j45Z37s2jxUIQPlV5w9m
Ex2r4xo1HcsFQHoXHCbooONc6U+UgloB2FjJNuIrOjI+hEaMcMX1UFnw9MEH
Oqbc91I2uCmA9+TJcqcxOroNRa/0aRLAQqkd5m+m6aibG5ST3CKAy1x+0kEZ
Bkq+y6rldgpg7mN25uRSBjpVWu/rfiqATpvPbhc0GFiUGNP+vlcASzyk2tT0
GOi5mjnryzsBvD3F/VJryEDzQ/ILPg+J9Y15XKv1DGyJSJd+OyKAppUtOn32
DDxTzZzT/lMAK8o5FuE7Gfh866KFdZMCmGY4/F3sw8AT0/oYP0sI8t3+26oP
M3BmzsFidykh+FiMWtlFMjDrS7CLtpwQ2C/vPP4Sy0CTgZY9nxSE0BXY9TM+
hYH71rR15S0TgoepUgklh4EnPctuO6kJ4VNPwqcn5QyMBj/TydVCkJQ350dw
GdhX/9k5TUt8/85IYXUjA71DB9Uo+kKg+cV/a2lnYKH7h4KbdCF0ily2HHnJ
QLVB56kNRkJwfc+lr/rAQGv/UGqjmRCO3X2R3P6dgZkCN1ejDUIQSn8JjJwW
42//d6LYWghHlYh3yTJMbB7Xq1vgIIS/P+/E9S1l4s72i1L+24QgZyx1L0mD
iS2Seefv7hDjTZocttJjouui1s0K7kKYw60/P23IxOvyFju27xVCyOYmuYb1
TDxEVmtK9RXC12ctEwEOTHwg4ZDeESiEIL7OJi03Jq4cLfr0L0QIVwLtpt77
MNE3tKtR65hQ/D/lyecGM9ExcTtj80khSJVkR7mfZKKfRsHmvWeEsMjhto16
HBOvkSeXHo0Vit9TTFD/FSaaOETlno4X56/56Oe8XCa2T7Nm/ksSwmTPaoFP
JRP9P0kYnU0VwvUelZe6fCYGbytxj8gUgpvqr01jTUyk7bkX5ZsrhJ+JTnMF
nUx87tFftKVICNolPTJnesV8xJMZrVwIleaarnZDTHzGC4UFNUIwKPk1rPyT
iUZ819Z+thCyT/y8NfiPiZZl85Ir+UJIL+l9Wj+fhfV3D+WH3BTCPEd/vTPL
WKjq7CpDbxRC312fm1vXsLBFzb/r830hqB9KiSMasDD90rp51x8Job/7bsJv
YxZe0DATWHcJoTSw6cGjjSx8mdL4Y6RHCL3cIFaeEwsfWEvfiX8pBMf5BT3h
e1joG0XSJ/UJYXkOFDj6ifFyV1vx3gshNEI7RzuMhUGX3y7bMCSE7j229yVO
szDhI7ni4RchrGlOXdYXz8LhDdyF1t/F/B79SxCmsbA/YbH93V/i+MiRummF
LLQ1EgQzJ4VANVjw+WgtC5fEyZ/PmxHCqYzaVtcbLBztdc6UkRDBgtqg1rUP
WXjog4jrJy2CR8rOQ8t7WLh53OVD83wRjL0I0JjpZ+HftSvpqotE4GDffvjd
FxYW/P5R4rdUBC+UEl7e/y329zrHia0sgu2LHm6vmmuI7no9xr9XiIC2KfvT
lUWGeExa25+1SgRbvzMSTq4wxKqyFd8DiSLAHXXmB7QM8VOp8pNcbRFYvV4v
sZVhiPfIgeodZBG096l0maEh/jRwfT1OFcGtGwdKdW0N0YUzvkyFJQKNpgNx
KtsN0V5+xwumsQiERJfgeXsN8ZZUqK6dmQg+jQa5/z5kiB+1NZXdLURwQXLa
Yfi4IeqMm5Qe3CiCGVkLi1fnDLFAyWcoeLMIdvlcYLQnG2JR+vq+UHsRlFK0
iHezDfEyeXfqYScRbCAfXMwtN8RcW9JyXxcReN8um6zgGuK+yOkgt50iyBnE
3vxGQ3Q+o1e4aY8IGkkXGjI6DHFJytAtipcI/gfDUoVa
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw1V3k0FW7QLiSU0oooISR193vdq5hRIkUUrT8SlT1bIZJ9C5GdLNm36y4t
UpGlRCmVJSokKSJFEqL03e9853v/ed/nzJxnZp4z854zijauB88ILViwIH7h
ggX/e//fIeD/vyy2zzguE2CdfvZrAxYVhCTL2CwBfpicsmEraxfc6nKrDxJg
++eDn/1eG0GOsRZ7UICf17oaPGCawcvQcDv7hQT8FnLqTqjoUUhcZT8pKkRA
2f5Po6IdFqBFDzV5KMAfbbcuy3h1EhqmVnpdEyYge1WxtpDmKchz6jsdJ0LA
ByJblSlZZyB8xEAmdxEBXbPPfVAWtgfyQZ2Yl6IEDNq/IuOVvSOoHt5TvU6M
gF5b+vzIL5zBuD0gP1icgPuG7W8D1RXMtybuWLyEgMmr2Vqzz9xgnPM4qGSp
wH/GwW/TvDvUzI452y4j4AHevI4c6Rw88Q+cRikCdt9TVOm2Pg+pIxfXMVcS
cGR6uONkoic8qbj0Yt9qAk4m/5suafCCsZK7S/zWEtDv3Ivt/F/e0Oky/fSJ
DAGPzVUeOKfqA1+2Zi2gyBGw31Zv7PthX+AoFRVVrifg+TNmLxQiLsIh05Kb
xzYS0FfRiCNU6QdrNnWsk1Em4OdMI5OkwUtwiPCrY0KFgGEnjvq1rgmAkB6P
zuHNBNxOfxT4n1Ig2GkdWP1Xg4CvIPVNzr1A+HaPHLKVSEDr5ihypWkQMBea
S1+gEJDfZDSbORQEzTUpDX10AlZKuxSY+gfDi5AL/qdYAr2SvQperQ4BcoEM
U1ibgPR7v93l2CHgK8/8VIMEJLwqiyDqhoLpJS3PFD0Cfqh3O7WkKxSO96j2
Xt5DwABbn3COcxhENZdIphsRUMnByHO1UDj4mqyYeWRKwO+3eyt1UsOhZ/jI
FYlDBNzrdP3tlq0R8DBJrsb5GAE9rRMduuoiIKU133fEkoBvlS1mdx6KhPw7
/TdDbAT1XTJWch6OhPmF7oeZdgQ8Gup38cCly1BISjcXcybgLaWX+T+kouBu
+v7Mn24ETFdbor2vIAqyrlDlZz0JuK3t06iFZjQ8vZD+UO4iAV/2LrVUaY4G
bYngS0cDBf24RGd7vkUMWFrmaPHDCLhQYy/r9fcY+KN6fEgpmoCqGaqS9wOv
QObnJ278qwScN55xM10ZC36rqx4dTSHglV0Kyqn5seBrXfFcLlPQD8G6gzG0
OPD9/NP7dy4BjWIOBZEex8ExK6cbP4oJGKXaaVW35Sr8dWs+LcIl4PVdl5g1
Hlfh2nvfS+TbBLzay6fF378KAy/zBi/cF+izu7qOKRQPkytVo9/VEbDMWH3f
bcN4GD1ZfOhwEwFLZx7pCcfHw5f8y6TRFkG/DWZtVHkTD1Y6PxZldhAwK2SF
uaxCAsSbPa49003A7B8Nh/vOJMA/qRsGhh8F81dZnudVngClM5si9IcJWLRt
2e33EwmwYutRO8txAkaXBYlLsxKhvNKw9co0AYXOTyorBCRC4/t6Tte8YL7d
ysKnGhIh287ss5YoETPToTJTIgkShyxOVkoScU6zVHuFaRKYLJdYbLyGiMrd
jAKz5CSomjKvn5Mn4g75RO9T75IgzX6x96NNRBTZ1KCPCslwe1v18oKtRLSa
1sgfPpUM54988MiiEXFfdORGq5JkKLl8O4K3g4h1OT/Nc0aTIXbXfvo7PSK6
O3x8U05Kgddq6TbrjYnoOrXJIPR8ClzadXTqwiEinnf/vEP1bgpEm6l1jVoS
cUax+FjCXArYivt9vWAr4NPZDU90UuGucbHselciql35Ed8UlApPgjoN3noT
8e8LykxcQyoo1a624AQScf2CgXWKi9PAb43RjvTLRMw4va3Q1zAN7jXqv8hM
IGK1fYxeZnQaTAXypysziHjTrKkkrCUNAlKks0cKiEh7MRbCWJ4O16nfi2hc
IsroWEVxTdNBNSF6OrmSiL+mb3l8i0+Hgi3bPJfVE7HH4MWvibZ00BiYFslu
JqLdwZYXNauuQeL239F6HUSUf7mkytT8Gmz13jy28D0RjbPkfUuSrsHDR3ar
OoeImEprannccQ2GLMN6634QceuEsG/J6gw4e3MH5eEcER/vmtEzNc+A4Bq5
uVEhEvbemJiqTsyA3+6LF4uIkZD/1Pb497YMsNyjSlSVJGH9ly/bP63IhIGP
FWfMVpLQf0TdMds0E3yZ3zKjpUnocm+iQj4uEy6t/9v4Qp6EXxsUJk60ZELz
U6lOeSUSRlpk/jy9JAuYlvurPdVIyJywjCcYZoG7TZfT260k1NSzKqgKzwIp
06edBhQSLnbLWLy0IQtUxXTG6jRJqD0mlqawMBsmDxkV62mTMCAgiTalnQ3C
jmI/2nYK8JRcTZxvNjiZh9Y47SEhCDtIj97JBo9LrxYu309CRq+GypKf2WAm
/6e82oyEkgO/WkYJ18G4fM3N88dIuEadNnvV8ToMW2kIa1qRcM9v9aTpwuvg
lrAvQfgMCYm7v0Zs7L8OmZphB945CuoPY/cvWpYDPoZfKFVuJDzcJZZhoZED
XrTwzUVeJFxaUGuftCcHinU9NmX4kTDw5wk9zpkcYP2rl7kWTMK3gyabi4Nz
QKr4ynReJAmftLYtD76eA6kh4zcrYkk4afJnSrs6B2oPimu3JZGQfuTmu3dv
ckC9eDZi5hoJG/RL7x79lQNBBl/DNucK8p88GVe5IhckY0TVbYpJ6FaheGJ6
Wy6cue93qpBDQiGn35tk9uaCjVWI2sQtEvqG3/0ka5sLusWH7PbcJ+HtFWPZ
f4Jy4dct2pqSOpLgPx8+VJeVCxU/7JRXNJEwpZq79My9XKh30A4NaSHhAYW5
xpGOXLBeJbHlXzsJT4TC5QPjuSCvvGVx6DsSft6bdTR9SR5oHV24bGU/CVUS
BrQequaB3545UukQCQm7YhjPdfNArizaxvA7CY3l7x2stMiDNZmE5IlJAV8N
KTXEOw9qRu2rCuZIeK76v6XkhDzIPvGkyUqIjP84ulW15XlQ8nWgXFmcjK27
wjnEpjyoErWwHF9ORqWTtt8C+/MgqPvds8drydhHrgi7NZcH7JjVX/PXkzHB
7G1Q05p8iHJr4kRtIqPk96ffqon5IG5ULeqrQcap90s6Ew3zYWVM4xd3Chkf
D3ANjE7lw5lLDfoeLDJ2PtlrOuiXD83B11ddRDLaZv35a52SD22GRjtjDMi4
YfSUVS0vH37/bX5cuJ+MD2auh8w/yQdzX7X4pkNk7BAy9lX4mA/3fXxSf1iQ
seVKkJnSXD64Pf70TPk0GZ25zxQWry4Ae5t0xRNOgnotCeMtWwtA9EF7dI4H
GQntGzq9dheAX3vP3xEfMj79EDSw8EQBPDoh4aQdRMaQ46VbXL0KQG22pjE1
koxDAQdqamILINDQUWQ2jox+Z7NvjBcVgPiGy9KnU8m4J0lWZlFtAYykF/58
nU3GZk3eoj+dBeB48EiMSREZQyfYsa+/F0Cf267XrzhklNG93xQvWgjmbfIP
j1WQUXv1h8ekDYUwqlKgP1JNxuMOftk36YWwSqLkcHADGaVG9OykjQvBcfOi
QcXnZHyYsIthdboQok2LvjxpJ+Nfqw7FqIuFcD0+9KB3NxmFhfMxLaEQmg8W
S28bIKNpVknp5dJC8HTctHVkhIx2IernT9QVgjdtYyh3gowlorcq13YVgkZx
yyrfWTK66MvG3PxWCE52Li+NhCh4WsxTnCJSBIHdB9mqEhTckKa4J3ldEYhr
v8tYvJKCvZz7J3tIRdBW6pE8JkvBbot1zosNiqCKmh7zXpGCiWJHQtZaFkHC
2FvPDnUKcq3ra8XPFYGw8KvdrWQK9jl81OqPLIKYGyo/OlgUDAzwWZaVXQSR
9knOfboUXOrma659uwjMmz+VjxtSUDlhidrDp0UQevd7kdhBCo4NhuRo9BWB
vmW6idpxCl7c6dDtM1kEA9TuDCMbCsZedJkoFy+GM1L3Ay84UrApz33B4w3F
cE51388yDwqWo+/Gh9RisFx+68uALwU3Z1SeLdhTDEdfqhxWDqGgtFCAsLNl
MQi9GyQ5RFNwRGnvXxmPYliz1tClIpGC3qcqvNjhxXD2A1dYLJOC7F3+0coZ
xWC0LGrwZAEFfRuDjgTximH0+39L68opmN1/f6rhUTHYGVU4qlRQkDyJYd+7
imHYiTF99QEFnfX0Fea/FoOeZFyxUCMFx0PW9v/8VwxvHfzdfV9QUPK/NUMv
V5XAEKV970ynIN5stXGCWgloxzmp+/VR8PXtTPL27SVgIkMXFv1CwRWZR3jN
+0ugqnPri+RxCqqo5w+gTQno6lgFavym4H9Du79meZaAmvqX5U0LqWihtnag
P7IEZNonPOwlqGh2d2ZoaWYJBLTfu758FRXti/vWKvBK4Lh0REy1HBVzFj2N
kXlYAsnvbhFdN1Hx1a0Htr87SmA4pyRAbRsVq2iv6uuHBPkRej0+06noGCZX
5T5bAtn+b/6V6FDRdK7eVVyyFO4+IK33MKBi3ubRP5EKpTCmHV2PplQ83tgU
ME4uBVHXzIHVx6hILQhfg3ql8F+Hmu93aypaZVt2ex8uhaez/y62OFKxLy3k
e6p9KSi4iH64cY6KcYEk5xzfUgCuRlaGHxXZBzLd42NKoVfZtSwqjIpDyvNy
Ttml8Gl137x/LBU/bY+O3MYvhaS0tPgLqVQcV/TqeFNfCtTopmPeOVQk13yT
P9teCmFBRfsvlgrsPvIBI59KYaTK3y70JhUX2qrJHJgqBaZsSUZCFRVZttsW
5S4ug53ilz8WNlBRyUb/1DuZMlAPSKHWtFBxs2+wyV/1Mjg2YBbe3UlFhZ3D
g+Lby8B0kVnb3z4q6i7w0V9gVAaKkrTlKsNUXPlDJfqDRRnUOxfSDkxQsT7u
bWvZ2TKQaj2lFTxHxX0D7ppW/mVwa6WWzF0RGsq+qnvzN1aAVRc2TkjScPJs
dFv49TIYW5aznSJNw3M2l3VneWVg1rzE3WsjDVvg9M6jdWUwrGdwoladhtyh
Oz9yXpXBfYNTc0upNAyZWOrc8aEMLtn7o9UOGt5e97FlYrwMNH43qNzZTcOP
7FzqnwVssJh2y19hQsMjU4X3xqXYED739Ib7URoyGzX9Xm1kg8JmFcNOaxpG
vr+SmkFiQ5zMZ2twoqH4hedqB5EN4q98JsvP0/DTIxHDSRM27C05+XuDPw3f
u9Okg63YQMFNDskRNKRr7ebOubDBwNFih1Q8DZc6Ld1i7c+GjXJcp7hrNKT6
7C26eYUNN448G1tZQMMrSWU645lsiFY+V3+NQ8NMeLhsXTkbZl3c36pW0vDC
iBSFVMWGdYuukyrraCgZ/+8RpZkNnT79tfuaaWhi8aFP8S0bOqQ1Aj+10/CJ
/vecv0NsOPTC1zGol4ZqDUZKjVNsEFXo8VYaomGG0+KAi4vKoWaJXW7TOA3z
Cle0rV9dDtoi+MFtloZrLfQZHKVyaGtP3bZBhI5RHLtGdXI5LIpjB7+UpKN+
/oYswXYB24Ia3oRK0/H38GzHiHE5iK5jquso0nHXFY9IokU57Oq2Ozu3hY4B
Ff2t1o7lsEK/PruaRsdE+6hnQRfKIf/JgztBOnQUMk6KiwsvBx77I3fvHjqG
uS5lRieVw89/dYHSB+koteTz+/N55VAR/Uvly390JJn9yjLil4PO3c1p1Wfo
OIi/Y1fWlIN1wLLWJFc6+lvHP2t8Vg5zR22b3XzoOFC886zD23Lw3Dx3yTSE
jqvR68rsYDkc3JL/mXqFjkmnfXb7TpbD3X6YW5dKRwbjEvfLQg6IiNbcXZRL
x4rklP7dyzlg7bZGZrKMjt7/HkzHy3PglLjhqsHbdDRweCneos6BW3dsC7pr
6PhcMYo0zeDAnT0Rjzue0FH25tVQKT0O7LZ/4dbaRsfF9fYbZA9wwDXUMae1
h46bZ3zXrjjBgR11SftfD9Kxe2Rl2IwjB8I+XPXsGafj7fkTwS+9OfCKxVk+
NCuwH3JTTQkV+GfvlP4lwsBP97UuG8VzwGvf7XDR5Qw8GJv0cCKLA9VvXI/K
yTKwvIIxElnGgdFN38KpygxUi6mWXl7JgXw97lKTbQws6si3CXvEASc3+HRW
k4HmHKOPX19y4McEQ+yqrsAe+puzs4cDZtL0cxX7BHzLX/Zc/sKBC9KfFN4f
YmCrbkdY/SQHPCVmxCROMlBYf6J2eAEXpNoJ6ixHQX4XJnOFJLmgu8z0otN5
Bvqcjty5VJYL7Qu3zeb4M3DxA+27oipckIzOyXkbycANVuGyEyQunJeMc1iT
yMDK/Xf8XuzgQpb1oIl5FgNLKoVnMvZwQbwha39KMQMlxsJzj5tzQbmh4mT3
DQb2eGrFSZzkgh6VGaRcLYj3Z7aT7cSFjlVMtksjA7fbRcTqeHPBM7L1bfUr
Bu7uCHz2MJgLex6piy3rZuDXXMd8ZiwXDH+5kG0+M9DUq0wjJ50Lt7XfmN4b
Y+BPg0if3wVciEkvtF41y8BeW0KeHp8L29oVrNxENFEsovR+UBVXsH+l6b1a
polGz7508Ru5sKrMQZIqq4kRrQ+WtbVygWk0dTtNWRNX1Pac+9zDhaKKUsZC
giYe298j93WIC0p101ecmZoo00uXG5jggvBNizvvdmqi/cXd4S1/uWBHsGTv
M9ZE8zlD9zIxHniohNvXHtHEXQvPjPus4kFeg/Mw3UYTldZkSO/YwANdO646
z1kTx261z45v5sFI+PgmDW9NpNq85aRRebCx/ENnaZAm/qw5pkfV4YGwFW27
Rowmrkv93Fq3hwdrZUqNeSma+Pr3uIOuGQ8UyCISjFxNnDVqV6iwFODOlc61
bE0MsGkSlbfnwZGpUtd9dzRxU+xXspcHDzzpRVLv6jTxWpXu7Ud+PGju+brX
6Zkm7gvj5YhE8CD1ue26f681kb9vXpwVz4PgsxIXkz9oYoNRt5B1Bg/E8lrt
CV8FelZ3ZfkV8mDD3Zq+p780Ub3H/ls0jwddx7u77RYwMWXNF+G4ezwghzKP
iS1hosTKxJ9hj3jw3eW7GXsNEy1fR79waxHwR8o/Md3IRE7XmyKTLh5sPjV8
Y2YLE/MUzsQq9fNgvjhYMp/ORGfLBanDIzzYLr6+ywSZ+GSRVVvBJA+iaJMS
//Yy0fjsuoPm8zw4/XhvIf8QE5U93qz6I8yHNE3HvNMnmagzvJPyRIwPvW/z
5tc5MbFveDwmVpIP/nX77rR7MlHS0WeryUo+KN59+Dg2kIlua21lJaT5kMV0
VjeKZmL9SapFrRwfxo7c6l2SwkT7WNO/Lhv5gA/E+1pyBPGbFBbJqvBBLGlI
PYHNxLhNUxcfqPNBN+DZ/aN3mBhfK+doQeADN0YrVrGeiYN1z7p+UfhwYHNd
zugzJga50loua/Lh5fLv3+91MnEEvA/K7ODDMn0Lz8v9THQZKHHNRT50i5aS
/htlYuaR1q0qu/mQc//CeuI0E5N/fY3PN+SD3ognc5EQCzODhork9/NBgnrA
v3cpCzO0is5dPciHVK36r5XSLKwb/vtv/jAfxPODLyUpsXDLRKWZ/X982PDv
COncNhbyT8Z7PbcS6NMovtCcyUKfOS03jdN8WLHXdpSxi4UjB47tCbPng22J
7pjcfhZGPg8VfecsiP/QU1T4GAvvVhveVHfnA4P4kTB6ioWPnTebnffkgz7F
+UyXCwvLiMnj93z4UMmdL2rwYSHDfSZ+9hIfPslHjd8KZeGPx1wdRjAfSAEi
UBjHwuVzYvPO4XwQPeIQl3aNhVdVjbqyo/jwK/3e+yuFLKRX3mh9FsuHj0Vz
6mF8FoaH2k3+TOCD1vbtLv5VLPz5Pk5fOpUPNvaXS3waWdhxXfclPYMPyy//
ee3VykJ3VmSyyXU+tDL4Pz17WCjVdCrndD4fCuHxvNcQC8XWP506X8yH7Azr
SZ8JFj5/k3s9kM2HPBt+q/9fFn5xe54bweMDPOxPDBPTQtnd8iJRt/gQ93ML
M3aVFm7jHmuJqOSDOrmxKm2DFhKX7RQJqhL0D2dCrlBdC6kfInietXy4ETF5
6BZNC12etL0+84gPBg2r7R6BFooX1F460MSHn5hr9HqvFmqkf+Awnwn0LR8V
Hj6khbdUHzjLveRD2MX9UfMntZBEa6v73caHln6l3jXOWnhDMYHf3skHycbm
3wRvLYzsOr2z9J2A7x671zBYCyU7i/183/MhY5wYbntFC+12c88YfOTDcXrj
eGiaFjIX1QtLDfLh+sf+dYX5WrijeoNlxzAf/gcfjm/W
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["y", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{4.74113028702827, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768226842147584*^9},ExpressionUUID->"36f30f7f-2a0f-4937-b91f-\
0bfeabc1fd2b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Block", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y2", ",", "dy", ",", "py"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"y2", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{
       RowBox[{"q", " ", "ys"}], "+", 
       RowBox[{"a", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}], "+", 
       RowBox[{"q", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["t", "2"], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["a", "2"], " ", 
            SuperscriptBox["ys", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]}]}], 
      RowBox[{"a", "+", "q"}]]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dy", "[", 
      RowBox[{"t_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     FractionBox["t", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["t", "2"], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["ys", "2"]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", "q"}], ")"}], "2"]]}]]]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"py", "[", 
      RowBox[{"t1_", ",", "a_", ",", "ys_", ",", "q_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"a", "/", 
       RowBox[{"y2", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}]}], "*", 
      RowBox[{
       RowBox[{"dy", "[", 
        RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"dy", "[", 
           RowBox[{"t1", ",", "a", ",", "ys", ",", "q"}], "]"}], "^", "2"}]}],
         "]"}]}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "y"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"t", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "\[IndentingNewLine]", 
     RowBox[{"Show", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "05", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "10", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"ListLinePlot", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y2", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}], ",", 
             RowBox[{"py", "[", 
              RowBox[{"i", ",", "1", ",", "15", ",", "1.32"}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "0", ",", "20", ",", "0.05"}], "}"}]}], "]"}], 
         ",", 
         RowBox[{"AxesLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"y", ",", "py"}], "}"}]}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
      "]"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.768225693552536*^9, {3.768225884939062*^9, 3.768225941243465*^9}, {
   3.768226107524678*^9, 3.768226165825839*^9}, {3.768226294497385*^9, 
   3.768226295952194*^9}, {3.7682263525743113`*^9, 3.7682263827365294`*^9}, {
   3.7682264663347282`*^9, 3.768226495206081*^9}, {3.7682265806372023`*^9, 
   3.7682265848570004`*^9}, {3.7682266878228827`*^9, 3.768226695736403*^9}, {
   3.768226829735633*^9, 3.7682268339146967`*^9}, {3.7682274026803427`*^9, 
   3.76822741588741*^9}},ExpressionUUID->"6887fd03-2631-4e34-90c1-\
a93db1de36e0"],

Cell[CellGroupData[{

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxV1nlUzHv8x/GMlFJp36ZlpqmZaZqZZqkQ935fZMvewtV17RXZyb7WtYRb
RJRkTyj3IkO2i0SEQV2UpUuFlCVdRYn06/7u+/M75/f9p9OZz+fxefY+38+c
hJNmh0bxDAwMtnQwMPj35/9/bLEz/d8nm3M78brTjv/7/RynuvHk0XieLfy0
/z5XubpMi4ujOrHPb3I752qXLTOxxX9OMXdlR90kvQVbf597vaTPsAF2tpgS
/e9Tyg3efT+r1oXtf8xtetEUdcLLFnf0/z7l3AluiecOX+ZVcOuUDfa7A9n6
Sq5k9QmnC/2Z/4Jz6FuX9z6M7X/J8e2nKlWT2HnV3M0wmxUr5jKvhvuptC6y
OJ55tdwC5b35ohTmveU+Nllazs1i3jvOv5/rQt1Z5tVxaw4cu/lSz7x6Lrzk
hkNbJVtfzxV3HDHuWxPz/+FGfhu0tdTCjvZ/5DIbsrISxHZ0XgM3buW2RBPO
jrxGTq9f2mfUaDvyGrnG9ZF3p8yzI+8TxwsyGdA9iXmfuYk3J5ReOcK8Ju7I
l1t/fr/GvGbOMOleWG0l85q5oYJllsvbmPeFqw0avzbX1Z68Fu7ZxZ6Ra3rZ
k/eVCx7/06oPY+zJ+8aJXmy69X6ZPXnfOK++gl+W7rInr5W7UtZ9ZvJF5n3n
DgUP+dnnOfPauF0hgZn9OziQZ4C43IFv/xY50HoDvD/1ufldfwfyDXDU5vjp
2dMc8L/btR1w/c9fFJM2OdB5HbD9VHVS/knm8XDxYao4oYx5PHR7P2vKyW/M
4yExfHbFjx6O1NMRkX+XwHugI3kdYbi956hZsxzJM8T6va+7dNnuSJ4hVkvv
xHy74EieIYZ6F6RwL5jXCVeTdhWVmDqR1wnDzcImntA4kWcEr0duxY9+diLP
CI6yvXsHrnYizwgnFrbNbT3qRJ4xLI2EBp8eMM8YH1cXOSq+M68zvvGK92ZK
nMnrjJOlY5NGhTiT1xmjtwreBy1zJs8Es6cm/x2T5UyeCZbbB2y+fs+ZPFPM
XNoUNLqFeaawehEzzNWLT54pQjxkVrYj+OR1gXB84PfAZXzyuqD/7qjU5EN8
8sxw7c2RqTZ/8ckzwwzXA1YFrcwzQ7iRYc8MbxfyzPGhtWvG7pEu5Jkj/7Bt
4414F/IsMPH2PzZOx1zIs8BT1/33Nz9xIc8CFQ+v2vsYu5LXFcKXfrdrta7k
dcWOI3trbk1wJc8SO1ud59xJcqX3yxLD5hZNrz/vSr4lstYtqtPUsP2WCCob
YrPNzo3Os8SK+hmt1kFu5FlBdj2n7NgcN/KsUJfa40H0HjfyrJDgNkkeqHcj
zwrnGgIF0hbmWYFfP/mzr9SdPGtsjL/2dcQod/KsUVI4ZPXGNe7kWcMy9Nyr
pyfdybNG6fqI+L6V7uRZY7j6XXmlsYA8G9y93nG53F1A87FBTFTpg/gAAXk2
yDxzZF/lUAF5NihoNskYHCUgzwYOeRfjLy9nni2KVh2y/WEb82yxb2Wu3bWj
zLNF6suCgeFXmWeLFGVm7PsnzLPFJ8X7sZs/Ms8O8pJvxT1MheTZ4d6BZ2nv
hELy7CBp4lYd7iEkzw5T88ePnBYiJM8OfXgGb/xihOTZ48zfP1kYxzPPHjOV
RtsrdjDPHhqdYeiVE8yzx9QLGc7ZRcyzx66wUYVpFcxzwIG3n72TmpnngIY5
M4QbLD3Ic4DToxtrf5N6kOeAFZYazTZ4kOeAG2OreJmjPchzRJy13cMzczzI
c8S9w7yEv9YzzxGWyrKmj/uY1/65dY6x0znmOcK6+8K0viXMc0JxhPWGBbXM
c0LXS96Xj3YQkeeEOLm/62snEXlOOCybnyDRiMhzwrYl1VUzBonIc8b0v/rZ
nZkkIs8ZiudthkbLmOcMl5mq9IgU5jljRWnGudyjzHNG9/3ZwyyuMY+PiBHj
e88uZx4f3aPHLHvQyDw+QrYXV/9g7kkeH+9c42cd9fIkj4+To863uvzoSZ4L
4saNiNs6ypM8F1z6lF7VZbYneS7IXTHDakMC81wQ6OLYYrKPeS5I5kVu3HSW
ea5Y/XDjCfsS5rnCOqDbmAO1zHNF3dS4JWqeF3muKOS/brnq7EWeK9wGhN6L
0HqR54ZzPmavPw72Is8NodMuazZHepHnhut+8zOVK5jnhv1pSbKS7cxzg+Lp
9XMLjzHPHUZfVUHuN5jnjsVa1blbz5nnjqzMJRZLmpnnjpqOVgEyKzF57lgx
u7/ombeYPAEu4dTNbX3E/613EiC2rZfrsDFi+r4RIGCCibXpfNo/RICD4et2
FSWK6TwB5vlMzt2QRV6cAJ8vb+439BJ56QLsORs4zKaMPJ0A++7fy3/6gfUI
kNz789ZDnSX/edUCiM03n48VSqhPCF6yThEUKKE+IQ406KpswyTUJ8SMS3bF
NdMl1CcEf8bWd5fWkBctRISVvW/abvLihOhiemnT3Dzy0oWozy3jDbtHnk4I
peT5r/Ia8vRC7LNfaWTeQUp9QvTfsnHtBycp9Xng7ptOzfc1UurzQP4+/qjz
g6XU54EvwYIdByKl1OeBsE3JeYkryIv2gLnYMmdxKnlxHrheMXV69HHy0j1w
TbehYWQReToP4N7angMqydN7IPF8Sq/AFtbnAf1Cs3qljTf1iWBxZNpwL7k3
9YmQdC043LWfN70/IlQFRzXbj/OmPhGMmtP8rRd5U58Iz6yeduqaTF6cCMrM
fpPNs8lLF6HwdpeB5gXk6UQ433XlMYun5OlF2PR75y1WjeRVi2DYoHljZy6j
Pk9sztpzii+WUZ8n+owxfuvByajPE03Vvdf7jJZRnycOFvRM8J8roz5P/LWy
pQobyYvzRKl/RurQTPLSPfGJF7p7zJ/k6TzhuSLm47SH5Ok9Ee7fZ8uyOvKq
PdG/e+iCJGMf6mu/RymeO/cJfKjPC5pno7+e6uFDfV7Iu3pg261QH+rzgkvK
zYmV032ozwvK4sPjvqwhL84L727IEqz3kJfuhfOS0DL5GfJ0XghI8x08sJg8
vRcuhVc/i6wlr9oLsQ9yNv3Kk1OfGGcmFozaz5dTnxieV3/VXvGTU58YRytC
hFVD5dQnhmxGlovhFDn1iWGRyPOQxJEXJ4ZofaticDp56WIsWdzjhzknydOJ
gc9ThqTeJk8vhu7uwNEXX5JXLcaVM9ljX7WyPgl+N4qOsHBQUJ8EC6ZGD+yu
UlCfBC8z9kkmByuoT4KZCofGTZMU1CfBLr/HOReWKahPApENL7h2G3npEizx
P3fb4Rh5Ogk6PlSrBtwgTy/Bngs5sYsqyKuWIK/zrJQjX8gzkOJwU3HiE2sl
9Umx8bB2rLlcSX1SDHxpwOvdT0l9UrTV/7F4wTgl9UmxP+z8pZxFSuqT4tr+
4yUVyeSlS5E7THjcIYc8nRTrlv4ePvwqeXopVhU0XU4oJ69aiihrXV3+J/IM
vPFmYdqzFgtf6vOG/z/RSf5SX+rzRvDgd81zevtSnzc2v29x++NnX+prX396
VmttrC/1eWPVbZ+tkiTy0r3htNLtadQh8nTekDv2LD14mTy9N375c0X8y0fk
VXvjAPfmiedH8gxkWMLrX3+yk4r6ZLj/LrAozFpFfTJMqJ3Q2Oimoj4ZZm4v
ik31UVGfDHMt1/Xr3l1FfTIUvj0x9Ulf8tJlOOUcWb48hDydDC+qLu51H0ee
XgbLO89zC6aRVy2DV2qdVfQi8gx8kCqwvmyyhvX5wD56wdk/klmfD7bF9G8N
2c36fLDBOy/xczbr88G6rc1RGXmszwe28/qux1XW54MHMfc/vrrH+nxQU1V5
8Ldy1ueDlA7Hd6trWZ8PlOnLy8s+sT45Bgk2T1jJU1OfHPwshbdXVzX1yeFY
sN9fz1dTnxzPt3ZbGytVU58cQ7J/cOD7q6lPjiJep7cFvclrv8elrRVt04aR
p5OjZLhkpM0Y8vRylLX4vrkwhbxqOVqCRl6KnE+egQIp2Q3F5vGsTwH94xjh
mSTWp8BP2Y7HJ+xkfQqMMZ28xPQw61NgQ8djq07pWF/7+sMTrozLZ30KrOjy
8geTO6xPgZXIbNQ9Zn0KxAZ3eTWumvUp0GTzm4VpA+tTotuclDmn21ifEmqT
NNOJZhrqU8JsrGm5mZOG+pQ4cnryy7NeGupTghPyRVEaDfUp0Wt6TpoVp6E+
JTztknpfGkyeTomc4RBMH02eXomahj5axyjyqpU4vtxuaeFc8gx88b2tR+O8
leQ5+WK71G+/4DfW54ts3w1xd9NYny90pZe3LD/I+nwxduKEB7Jc1ueL5M2N
Ax5fZH2+2JZm/C7hFutrXy8Q5weUsT5fPOr57OqrF6zPF7MnXv68rZ71qZA6
9efRfVtpvZkK81f3rmkw0VKvCvt7dD6Uaa/9b79YBbPJQVvCRFr6/0aFSo8N
2R1V2v88tN+Lqjl1ul5a+ntU8BiaMj4ymLwIFb4Hb/xmO4q8aBWym+uvFU4i
L1aFmqOTzy6cTV6cCoNfrSqVLCcvUYW8ES/dHq8nL12FhsuqLRu3k3dIhYVi
I0WvA+TpVHDcbvTx/THy8tvX+z98vvcCeXoVhgy0/xxSRN5jFTa5zPYzfEhe
tQq/WK7bmVdJXoMKxzbypDF15BmoYdycWM7/Sp6ZGsev3z1z19iP5qeG6eR5
5+Jt/Wh+arRoRZV+Qj+anxrD0pKUNQo/mp8ag56N258R6EfzU0M2qF+P4QPI
i1CjpHP9J144edFqzFB3LcubQF6sGsorYeXTZpIXp4Zwx+xO7kvJS1SjcYFd
6P115KWr8eZz85WEFPIOqVGQfDe81z7y2u/t+c2DTf/5nbz2e3vQRlyVdY48
vRpvzezKf75OXvu9LexR3NT1Pnnt93aCyNK/8Dl57ffWlb8pZek78gw0eNLN
0Eb1hbz2e/tjmEL3qpM/zU8DgXFhbIa1P81Pg9c5CeEh7v40Pw0MQzQjjeX+
ND8NZlz7dcHF7v40v/b967qdju1HXoQGV251tZWFkhetgXzx7S0V48iL1YAv
8lGmTScvToMKs/qaoYvJS9TAXFh+xXAteekaBDXknr2whbxDGjT/6Xdn3h7y
dBoEj5G2eR8lL1+D8iEhwyrPkKfXIP/4/PM7rpH3WIMIbnTQiBLyqjX4JbSg
xvgZeQ0aFD5aknP5DXkGWlRH9F+/qIk8My1iPn6I9zUMoPlpMSOUS3ttGUDz
02L/hdYbe10D6Pun/T1va7QZLQug+WnRuvzDUstuATQ/LfLcz34rCiIvQgv5
WOf0+BHkRWuxVls1PHAsebFanJaUCxpiyIvToiToYZffF5KXqEWkXYZl1Gry
0rXIP/pV6ZZM3iEtpqUWRpftIk+nxbIXN84kZ5OXr4W521/CQXnk6bXIHXLq
YMer5D3W4vWHH3HxHnnVWmQYBDUuLCevQYvsui35qlryDPwwbW/rwTefAvA/
l2zO1A==
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxV1nlYzen/x/FKSmjfnDad6qydczpLpbJ8XjNISPaUDMPQSJHGLpKxpL6t
RIUZKdmyli1rQ6gmKmVNtnwjlCgyJvrl533/ruv3+afrXN33436e93Wuc27+
rMgJc3S0tLTStLW0vv39/48Ltmd9ew5wVwYt0RH+3+sizuHYi56Z3a/dNd+e
K5x/ZtrXydrs/2Wc8vqDezN0XPDdqeIERbNWnOzB1tdwLblGFwJ7uuDX0G/P
Ha49wnbFUH22/z63PUoTHW3gghsV356H3GX9TfFf+zDvCfdXZsusCiO2/in3
yF370nNT5jdwL1b8GDDCku1/zpnsGXa2rR87r5Eb/UdNXpMd815yUQ/5h8V8
5jVxyQ0dc44JmPeaGyBtnBErZd4b7hi3wiXTjXktXM+3kQM63JnXym1UtFn9
4cPWt3K5uZUD48H8d1z1umO8c75s/3suckdIf/UYdl4bZz2s5VTzROa1c9kW
tr7NU5nXztlazVUoZzHvA5c2av6Nk2HM+8iVTTRfvTqKeR3cwN63tmxcwbxP
3JQ7LbOr1jLvE7c++yymJjDvH26JonKx8xbmfeY6r432d93JvH+59x0mJlF5
zOvksqb9q9d+hHmdnMdw+6WFZ5j3hYt37sg+cpl5X7n1OUfKnlcwr4urGz9M
Nfku87Qwqfq6dddTtl4Lh8ISzj99w3wtVPUYN72zwwX/u12jjd+iYgYG9BDQ
edqY3Dlq8x0jAXk60HZvzE63EZCng9y2vLw4oYA8HTzeIX98RC2gnh6YHpOe
aMAxrweSVyY0bxvNPF1UVKz8MTCIebq4ZHa4wncO83TRvmn2zV9/Y15PTIj7
knBmDfN6QmeowQivJObpYUX9r36N25mnh5llP9/5az/z9NCUXORdfop5+tj/
T/n5ryXM04fdufT86TXM6wXdpMqJTU+Z1wtHH3/R/bOVeb0wxjHaZFUX8wzw
Lje+7HcjIXkGaBo6Y8NxeyF5vTH+jHKHvlxIXm88ujBw9vpBQvJ646l51UCR
v5C8Phg5Y8qatyHM64OTXSHJD8OZ1xfODcnlzdHM64sXsysynBKZ1xeCYY7T
Vu5kniEsLpauaT/EPEP8dddrfuoF5hnh8zNe2pibzDPC3pH+U10fM88ISw6+
8Ja0Ms8YO8f75Ppqi8gzRrV1aZ91ZiLyTBB73O91vbOIPl8meLgs71ygh4h8
EzSf+PjpjS/bb4IN0bH87CARnWeCfPOjJyPnMc8UST3MvUJWMc8U185Pk89K
Zp4pNn2YYrc+m3mm2HqiMam4gHmmaLfq7Gt9lXlmuHB7mzDuLvPMYL35XJjJ
K+aZYUDzgl8LOplnhkdRRwsijMXkmSFxUuSTIU5i8swx2Dg5TuwhpvmYY3Z9
NSR+YvLMEWX3dC9CxOSZQ3frwMAFC5hnjt3HNM3H1zLPApt2vejTZyvzLNDn
N59JK/YzzwLrxDfCOs8xzwI9LnS821LJPAuMkVzewjUwzxJl4fUdXz8yzxJX
knaWVveWkGeJIYebj592kJBnibF9J848ppaQZ4l20cMN53wl5FlBcM+h6t5U
CXlWyF6pfK8fyTwr9JPu2uW3jnlWaNIJT9qewTwrHFvaFfUln3nWuHtU1jOq
mHnWMNHja32oZZ41zq2fZR/fxDxrvF9X2k/+lXnW0J285OgTMyl5/dCpU7Ur
VyQlrx9uiWIOLBkkJa8fCu78lBQ4XkpeP9zfscbQN1RKXj8EbXZsHhrNPB7s
Uve0jk1lHg+Rc1Prw/KYx4PN8PUr084yj4dVVp4p1yqZx8Nim4jnvf7LPBvM
X9kxNOgz82wwV+vo8hPGruTZwLQhLMBe4EqeDZr2f07b7ONKng3GO0lNLca5
kmeL1SsLtu+e40qeLfgzfL76RDPPFkVDxvV9kso8W/j+MWdb6l7m2WLYmvIF
/ueZZ4eSV/vnmt9inh0CYrSC/vuCeXaIsM8xvfyFeXbIKHANP2AuI88Ok/R0
B+6QyMizh0N+YFAGJyPPHm+/GO/4Y7KMPHt4DrxfdzhcRp49ivdZtF9fyzx7
LLxx/8LrDOY5YObf78x5R5jngMCimuqxJcxzQJ397pqUB8xzAG+Z08d7rcxz
wJPbV6xc9eXk9ceehDTzjfZy8vqD/9z97yaNnLz+mNrVahc4Sk5ef2Tu3/Wy
/Gc5ef3hNuaIkd8y5jli+xebhTeSaD3PEVVrolqm7pHT940jAqJKw1vP0n5/
R5xafrE8qZqd54i8jcta1C/Ji3XEz4LtZx9/Zec7Yuhdf/N0S8V3r9AREes0
9WNlCupxxOrWiC9mQxXfvUZHiMekBtcHK6iPD+m1g3ePLFRQHx/pksHT4+LI
0/DRss27NvRP8vz5sBikzR9zkrxQPuIcZsl8KsiL5aO0Nf2RvIG8LD6K2nwc
xZ9ZHx+bGkIeiE3dqI8P29ZfPrqJ3aiPj43F/OmDOTfqc0LC2pJ/xwW6UZ8T
jn29XzRvvhv1OaH6qv+6hPXk+Tvh46RZQ4/tIC/UCSYTiv5bV0BerBN2V4wI
NCwnL8sJdzYFrx32lLxCJ5hNSp649hPrc8JY1ZuHT/WV1OcEh5ALVRvMldTn
jJvXeqyS9VdSnzMcFxy9fVuqpM+PM8Lm3Kld66mkPmfU9j+xUPkjeaHOyD29
P/vpGPJinRHi4zVtazB5Wc64/Mlgx+g55BU6Y9eDF5N0o8ircIb1qQtrL61i
fc4oOJjJW72J9bmgdM1ei8HprM8FEXoe4V27WJ8LsmOOW5bksz4X1HTt6/uf
06zPBdueX/abdIX1uSDMu/xy/0rW54ItitxFzQ9Ynwu+JI6ddKGR9bngg7z5
p5T3rM8FZUtOxv/ylfUJIKvurPLuraI+AaZ4qOVmVirqE6Ay51HGG76K+rrv
XQf39C6Tq6hPAFEHt2aft4r6BCiuXf82bjh5WQLMLZ4xed548goFMPhYezDg
J/IqBPhRR+uVexh5jQIMCTQ3tF9CnpYQp+unGOmvZX1CeGbIXr5PZH1CzFfo
bX2SyfqE2Ju5wLhqD+sTQl2oO+GvY6xPiIaG6CknzrM+Ieae22FzoJT1fbuX
cdt21bI+IXZODLya8YT1CVFb9zQn7Q3rEyHn9UdJ0ifWJ0LdkfOTE3TV1CdC
28IIfryJmvpEKBk9flO8nZr6RODdu77hP2I19Ymw4/FgyxR3NfWJsNpErU4H
eYUiJBZo7m33J69ChOs/PdPJDSKvUYSFBc2HD80mT0uMWDPL26cXkscTY/00
0eKSVaxPjMp9OnG3NrE+MQx00g2epbM+MUwUdzveZ7M+MfrMvjOm52HW173f
7KA+r4j1iRGVs5yvuMr6xDDzWpoxrJr1iVGx8vmcafWsT4KqYLP4JU2sT4Lk
mpAvKR9YnwTGFyWX8rU11CfB8NR35aWGGuqTIFbmYf+Cp6E+CR7k/16gJ9RQ
nwT7pIvjRGoN9UnwfOvRzJFDyKuQIH1F47OIUeQ1StCv6vastEDytKQIvzXc
8vQs8nhSjCgz6KhfQJ5GCvnjLl29aNYnxbA2k0FucaxPCrv5yqzgLaxPikGm
03gbdrE+KVbf2VF0PJ/1SeF9XnvZ49OsTwqv3QcCjEpYnxQRtkWDh1SxPlcE
j5vxQ+RD1ucK/5u1gbtfsj5XeIWGRNe2sz5XjNMbcqiXtjv1uWL81qrGwYbu
1OeK+TcjxYt57tTnijf2axfkC9ypzxVhMb+dalC5U58rCgLPfrEbQl6jK0YH
3f1hyijytGSInT4udnMgeTwZHANOnLo5izyNDBc/ZD3rE0mevwxxLbu0R0Wz
PhmOr44wjY9jfTL8svSwcdkW1ieDj12/zwbZrE8GP72wm6MPsT4ZUnVmJySf
YX3d53+ucb1VwvrkWHc74ZhVNeuT4+bMmVbT6lmfHGaeA0JymlifHJOz3q9q
+sD65GiZG7tCpeNBfXKEddUErDTyoD45rtq++HzFxoP65JCXFUUbiTyoTw6H
ERMqgzUe1CfHm3fn2/I48rQUKHLt++L9aPJ4ClQOD9qHIPI0CkyYd0mdMps8
fwUWbJwT92gheaEKXHNfnKtYzfq61++32bAmnvUpsDsjSVq9lfUpECTW3+yc
w/oUkNddK1p6hPUpYL/cNLv8LOtzg96/yqH9r7M+N2TELt69uIb1uWG5RllU
/pj1uaHF+8Im/hvW54a83BVGKz6xPjc8mVLqV63rSX1ueNnD1FNq6kl9bqgx
KK5dZ+9JfW5YHenr/EjiSX1uaLzBc/T29KQ+JS7iRFn6j7S+rxKjAtMd3gWQ
z1NiUdcg+4AQ2i/s/h2N9SjJ/9WT7jdKeP5sYNZ7MXlQ4kyIX8+wWPL8ldgz
aePO0kTyuu8NXUND7oizyAtV4jfXX47H55G3SAm5/hDZ6+PkxSrx8VLK8DEX
yUtUItJeq/NoOXv/Svx5xifA/C55e5XY3dLis6yBvEIlsmsqi+veklesxL+C
9EfoZPNRIvWHj5v39hrw3buvxFTzEw/7Wg6geSkhNEw5u4g/4LvXpkQCz9+1
Tj6A5qeCTmqhfKjPAJqfCoMkacX5vuTxVMhpK3xmMZE8oQq6fi2bY2aQp1Eh
4qJl1ctw8qCC0rlH1sTl5PmrYBux+c3F9eQFq1BzOKdMmkZeqArBplZuGX+Q
t0iFy2XVtroHyYtVoU/vi8lRp8jrvhfY/Xt14+PL5GWp0Hr8rk5AJXl7VXgu
eK59oY68QhUUose/y16SV6xC9ORL63e2k1ehQrZVjJ6hthfNT4XEJGv9GEMv
mp8KvmkJG97yvGh+KljsuRc7U+hF81Pj5quen2rUXjQ/NeDCe+XLkcdTozjb
NvDsaPKEalR78wYqgsjTqPHPSMfMnNnkdd8D8vf8EGEdRV73PWBicuqpxNXk
Baux/ITTUp0E8kLVMBSaHFy+jbxFalSOXjT+bQ55sWpcezI3PPQoeYlqvHxl
3FF/jrwsNUoK49sml5K3V42wv/6ZcbOWvMLu91O5YeCIp+QVqyG+PnlDcTN5
FWoknt0yyOczm58auXXhP5/Q86b5qVGxtG+rwtyb5qdGy+u8Vwf6e9P8NDDa
P2+sQOZN89OgwSHFfreXN81Pg6SSkZPsh5PX/bsfql/zPmu8N33/aPBs5JxP
VtPJgwbxDwfNTp9Hnr8Gep8yPMyWkReswbjTp8JT15EXqsEj07qexqnkLdLg
622/Hsk7yYvVQJE7/BfDA+QlapDzvJ8g6SR5WRpc/buPn+Fl8vZq8HBU2N9J
N8kr1OCsccwRozryijXYGJPZmvKCvAoNkg/1SjNtJ+++Bj4hjilbtHxofhro
tqlfWRr6fPfaNPg9ZuvuTJ4Pzc8dKXl/nrAV+uB/AGhF13s=
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw913lYjfn/x/FT2miR9qNSp06n/azti/tFjJqylGSa7ClK1pAYZB1jKjI0
lrTYlZgppEgYTVEkIpE1mlSWVIwov3zn8/7d/3Td131/Hp/neV/nOlcfwayF
IVHKPB4vTYnH+/aXrq//u5yxd8+36zj37KHxZD5PzO6LuUmbXSOi+u9dFN+u
vzjnLQ81Xvz/82tcwHHPH3cpifGfdourGC0ek6hM79/hKh38y7cNEGNO9Lfr
Hnf4U2XFfRVa38BF6R7jQtXEuFH97WrkXnbvMlXWIO8pd3cMz//5QHr/GZdm
Z3SqS5P8Jm6uww0PTx1a/4K7c6b5+ild2q+Zu/5Pt/8P+uS1cIKXUTvlRuS9
4qqykpKH88lr4xYOWq7zkxl57VzD2cjuVgvy3nCjHk4Z+qs1ee+4EyVLQqfY
0vvvuLfzSldMcyS/g0v7PPvHNAmtf88daMq93qWg/Tq5sLudu7d4kNfFXaup
3RHkS14XJ1qrsxEjyevmtj454zZ7DHkfuJJhgviiIPI+cubnlHheIeT9y10r
jzvQNpm8fzmt9c3m1VPJ+8St6Zrv8jCSvB6upHzLEZNY8j5zhq7jFRsXkfeF
m+a4Yrd5AnlfOOvoqB0vVpPXy+WflTTe30heHzdmQqGk51fyvnJ2gozR/r+R
x0O1bMndK3vpfR4mqB3ZFXOAfB5O9mZ4++SK8b/lCiXU5Jau8iqg/ZSwzvqn
gbNLyFPG+hHRv5+7Qp4yemol9e5V5Cnj7qmLic/uUM8A/FHuJjnTSN4AqHap
Hi14SZ4Kttx/u63hDXkqaI/n77b/lzwVqOUZzD+gJGGeKr5kt53305QwTxU1
/zjKtA0lzFOD/qaOFX3DJMxTQ3Flx3Bjewnz1FDeuUk8WUGeOgLyz7wv9SVP
HY1+I9wC/cnTQF9x3sG+EPI04JAx6mX9VPI0YJclO3xvLnkDUay6IqUnnryB
WFCt6u+3lrxBUNpXsuaPreQNQtLKRQ9HpJM3CKvGq2h8zCFPE2Ym007W5JOn
iaWvV6yoKiZPCyaVsbqt5eRpIV89ztLxNnlaSC19HJL6mDxtJJZMCtFvI08b
2dP3XSv+SJ4O9vIb/4SylHk6mJvx5eVpDSnzdGCv/jnMc7CUeYNRFF314Iah
lHmDEdyQPGaJmZR5unAanRwvspay75cuRr7/zrXVnnxdfFafH1kqpfW6+OdN
U12WO+2ni4G/V85IG07eEDgfXPw4bTR5Q/Bn4mKbnCDyhoDz3q1dNpG8Ifia
1b2g7UfyhqDy/AOBaBZ5evjr+MO+BTHk6YFvWfu4fBF5evBob9jrsII8PXj+
MEVr/1ry9NCaqK5t/jN5+rCJq1uem0rz0cebJerC0enk6aNnkOxt+37y9CF8
KS7MOUyePqJvOgVG5pNngA8bD++QnSGv/35lZJRWKXkGSPh5XVbnVfIMINo8
z/yfavIMML/58fnmOvIMEeHQNvl9I3mG0A57f3PgS/IMoTXheJ/Ta/IMYaow
KY/oJs8QNjv28tJ7yTPCzpNPtj1UlTHPCLU5rcFOOjLmGcFtpZ5oi5GMeUYw
DlJufzNMxjwj+LgXb5hhK2OeMeJmbr3RKCHPGGObzXIjPcgzhmvpvJ4ukNf/
fFd51vYA8owRe6x6lVsIeSYQbFq+qPlH8kwQcUtzRnYkeSb42GfrPDuOPBP8
qV5cIltGngkeaH9t01hDHh8WqsmHXm0mj4/L4/wq72wjj4+jE8K9K3aTx8ev
ahOf/5VDHh87U1QPXMslbyiqcndNv19I3lCkBiXw3l0gbygWqs+P1f2bvKEo
Tf15g2cNeUPx1s5GPu8+eaYYZ9kx5fAz8kyhK21q/aeVPFNYvxn+l7yLPFO0
yH67samXPFPYrijueKomZ54Zxo66azxKV848M8SsnWh3ii9nnhlq615pWlnL
mWeGVq30vAwnOfPMoBm9/90wN/LMUdP269VjHHnmaK1WDPEKIM8cV06duHQ7
hDxzPFKdWLpkCnnmmDKtooMfTd4wHC167V+5kLxhmHOrPX91InnD0J3grOW1
gbxhmPU4fHxvMnnDIHoxJbIinTwLFMXMdNmdTZ4FejJrTy7MJc8ClSFhZWNP
k2eBXSPvhcgvkmeBkNhlYeaV5FniQOjOIp3b7H2+JVbNq4lUa5Sz3xtLeAX0
+as0s/VBlpg1SDFJ4x3tZ4lnWcXL9XqYl2QJUyvjDCsVBdvfEpXCgac9dBT/
eYWWSNbclB9qomA9ltgxvShhuZXiP6/ZEiqiAcqZTgrWJ8AOdyWfKjfm8QVQ
3bPWsA/MUwjwpC5pjVsg84IEkIZ5z1k6iXnRAqRcNblUNJ15SQK4zTyTyIul
PgF2Rz3ZOG4p9QnQPSv9ds4a6hNgycFBoT1bqE+AhckZPZN/oz4r+Co3FpXs
pz4rcDd+Xm11jPqsMIOX4rutgPqsoDZTrZVXSn1WmHfLe1lCBfVZYc7ZnNr3
tdRnhcvz73csaaQ+KzT9mVf5sZn6rGCqoxewroP6rDBxnFP04C/UZ42QjlH6
B9RcWJ81FmfU+HkOcWHfH2s82j63rc7UhfVZI8KqrnepyIX1WWOHpG8BX+bC
+qxxe98n+RVv5u2xRsz1r74Lv2NeoTUSTRdttAxmXrU1xsbW9NyNYF6zNYan
VOzaFs08nhCD6kXfj11MfUKU7nmiNfgn6ut/nqd+p24z9Qkha61Py0yjPiHC
K/KGx2VQnxBzq3k1vkepT4gw2+Ue+gXUJ0S3a/Wi9gvUJ4Sj/ov51yqoT4h8
mzKb3NvUZwODP9akpj6iPhvEz4rMXN5CfTYIfV0dOKuT+mygm+6ZEtxHfTY4
VD06fNRAV9Zng7tX8o54GbiyPhtcVvGLc7FwZX02uKDHy5E5uLI+Gxz90ukt
d3VlfTZY0hfo4gbm8UQwGxa8zjeQeXwRnl2fM9Q/jHkKEWpXD/44aSbzgkTY
G/FcZ04c86JFyKvfGb4qgfpE+OWH7ps71lOfCMsetUXnp1CfCH6HE/lVu6lP
hNn3zj1uO0h9Ioywazw5+BT12eJQini9Wwn12SLmqV7wjHLqs0Vw6gCDlFvU
ZwvemB1/XXhIfbbg58354W0z9dli3ZeRVcL31GeLsppPBlN7qc8W8RcTxLs1
3FifLZ4Pvah7T9+N9dki81DTaSMLN9ZnB9fhBgY/OrixPjs0H9xum+3qxvrs
kGh9sqUFzAuyQ0/ovQkuQcyLtsOuus3h6yczL8kOk3onfLk9i3l77PD5UINc
tIB5hXYovH//w6pE6rND7V7+yLqN1GeHxTmJOpLt1GcPvtGrScn7qM8ezmGx
eu1HqM8e008PGT6ugPrs8clL9U5BKfXZw2DhT1X8a9Rnj2yDS4INddRnj5BO
+1tvnlCfPWZnCGuntFGfPWQyR4sbH6jPHjkO105zyu6szwHTBHuTT2u7sz4H
NKcH5Djy3VmfA0LKdrw+JHRnfQ7oCUScpdSd9Tmgys3JJNObeUkOiEnl2s3H
MG+PAwb6LWnKCmFeoQMMu67/az2NedUOWHhxmm1uDPOaHZCqGRwrX0Z9jrCb
eefChSTqc8Rpmc3QgGTqc0RC/m+r63+nPkdM3Zn4fM5B6nNElAY3quck9Tmi
bEZ4ZmoJ9Tkipff7duHf1OcIP7OD9qW11OeIghO9wZMfUZ8jskUDZna2UJ8T
tGbMDUnroj4nfI18I5DxPFifEz4EzKq6renB+pzwTnv/98uNPVifE97P3bDP
1NqD9TnBNVe15IrYg/U5oX67xYF5XswrdIKx6P54o++YV+0E890jyq4EM6/Z
CeMME9sXTWUezxmWx47csYxhHt8ZS/V7F91eSn3996eKL21Koj5ntH4nLPNK
pj5nCLtT53b8Tn3OgEpY8fGD1OcM5eon+ZGnqM8ZgrSMkRbnqc8ZSlFqSxv/
pj5ntKjmDN93m/rEOFH2KTPiMfWJURV0NM28lfrEeFcUoP+sm/rEeOO71fKI
kifrE8NJano2TtuT9Ykxs77olgvfk/WJ8SxMOL9P6Mn6xJBtd95yTerJ+sQY
rH58WLoP85rFaCxf6jzbn3k8CRaNTPhTEco8vgScX9ZRlRnM6z/nd1xt0qqf
x7wgCfyf+j3OTaA+CVb+8bdJ0gbqk+Cy56risG3UJ8GyCStKxfuoT4LgpEaB
xlHqk8C960bT8wLqk8B52kpe2UXqk+LSE6NlGdfZ+1pSFL9/MnzVPeqVwiSE
HxHxnK0XSbGsSbvC540n+/9Gin3Zg5MsepgHKX5el7BhgJoX+zxSHIo+fLNl
iNd/XrgUswfwpteYe7HPJ4XGtS5Zkb3Xf168FA21H0dlu3qxzytFWvWGXVtH
MC9ZioEtfMHysczbI8WoshEvZ4Uz70j/fqN/eTIhinmFUiQVbtTGYuZdkuLt
kptx0tXM6z+HVmmpfxb8wrwGKQyM7p4x2MW8ZimWmr/cq5HDvE4pzPa8Otp7
gnk8Wf/5Yu+DznPM05LB/elZadtV5vFlmLta6VjTLeaJZCgePGr4o0bmKWQo
2jq2o76Fef3nxviZ7y/e6aL5yfB2mdbhWzxvNj8Z7musyrmp5c3mJ0PscauC
GybebH4ypNu8rrsh9Gbzk2HCymvqNVJvNj8ZhFfz/Gt9mLdHho+SlF11/sw7
IkN327z2+6HM6z/3XTAJDHw8g3mXZCgtkf/xIo551TJczpPw21cwr0GG48kT
N3ZtZF6zDFOLTr/t3c68ThleSReEa+xnHk+OS/uyyvSPM09LjrEO8y0tzzCv
/xy3Lu1rovNl5onkOPN5w3XvG8xTyJH72VE3sIF5kOPsWueAiJfMC5KDX34l
Pq6D5ifHqkCH1DW9ND85siuPpKcN9GHz6z9Xma399bChD5ufHHf9+mJLBD5s
fnJYjo9X3HL2YfPr90NlTc2ePmx+cmyN3LaibzTzCuXIWd3SYRTCvEtynNu8
b6x0GvOq5XDw0dz6fSzzGuSYbZ95OGo58/rPXYb7L2auW8+8TjmWZT6Iz0xl
Hk+B0ueR1hf2Mk9LgbIrNXkPjjCPr0C69HfNngLmiRT4Jd9txNAyH/b7o8AX
ThzoXcW8/nNVWoyS3dR65gUpEGnufm9tE/PCFZh+Njz04FvmRStw7vWH7IrP
zItXYEdtVkm7ui+bnwJZ51uy9Ax82fwU0PWPGe9p6cvmp8DioAsVM5x82fwU
uHJzrfovHr7s90yB419CtQtGMe+SAiesntY/nMC8agVyD1ZGqU1lXoMCAe/O
nZHFMK//nPTbmml/T13GvE4Fzl+OSd+6jnk8FzwWpArPpfji/wBf7uZw
       
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["y", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7682274165147123`*^9},ExpressionUUID->"990c18d6-94eb-40a7-9e5a-\
08e57c1a9395"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJxd1nlUzun/x/E2EaV93/flbrmXbInPK0uWaYiMtcmSqWSXiZCKDDWJjDTZ
RaKkiEhSolX7ehdJIlLWVmR8zW+u9z+/zz+dzn1dj8/zvE7nPhmv2jj/NykJ
CYkYSQmJf3/+/+d4/L/PZW73qVzlOokA7r/fszjX1U+sTb/v4RxF/z4PuC6l
sxd27Yhin5dwN09MkvYZPML9p1RxRp7PT41Nj2PnazkP7yrX594nOV+ff58G
znNnv5F7xFl2v4nj5c3ubGhJ4MrL/n2ecPcPzA63dEhk3jMu1OZr9qtdSex8
G/fHWL319wsvM7+dc9Lre7RK/gq7/4JbtFz91O6fr7L3dXB/10gIOqalM+81
97vjd+fwFdeY18mdlUvV3RF0nXld3EXXtt7kQxnM6+YOVNhsHEq4wbx3XNdf
uikLM24y7wO34XdXpwt5mez8B05mro9KTekt5n/kJlhaBVdW32b3P3EpTSrD
ouuz2Pt6OJ0omRWSDXeY18uFf89aZFibzbxeLrOxPL217C7z+jjexWNKzg9y
mNfP6U+b8twh8x7zBrgeXvjE24m5zBvkWpJjnnXOzGPeICcTUD/dJSePeZ85
988TZdsd7jPvC6cxkBxUdfY+875yWhFrIkcp5TNviMt2unXpWHA+84Y4x4kt
97Z25jPvG+fT9sD8sscD5v3DZZaqHh939wHzvnPzvV4JzEwfMk8CWT8regQc
eMjOS0Bc8uaydfdD5kugKbLGyG1OAfd/10WS0NiqJm69WsDeJ4m2fbsM3igU
Mk8KXW99/DetLWSeFISLF3psLypknhRO6ctFDTcpYj3SyIwe3mK6s4h50ti3
NNGwtqaIeTIoebdxgq51MfNkoJEgrSW1u5h5MogLdUk9WF3MvGGISm7temBa
wrxhWLZozsPkrSXMk8WinC7jmQ9LmCeL8x5hr8+plDJPFgP6wz7lLC9l3nB4
f4iXT0gpZd5wpDWXDHr0lzJvBHp4/b5N3CPmjUBs/uCXcQceMW8EZE5/wu+V
j5gnB/XXUzOPqZcxTw4BXZcfnFtaxryRSL0UknPidBnzRqKgX789oq2MeSMR
7rHYa7NpOfNG4cld1amLVpczbxROGPVF40I58+Shrm9uLWwvZ548/hiyeM43
rmCePMq/5QW4eFUwTwE9Zr2hfscrmKcAXo/kseT6CuaNRsr+3VbySpXMG43C
R+vjYmZVMm805qzx53F7KpmniEyfeg3tO5XMU0T8rwqBph8rmaeESl6D5TXV
Kvb3pQTnO7+VrrOvYr4SZhclHi6cWcXuKyFDVdkrb1UVe58Srn+pG+W5q4p5
ynCe/NXvRCx5yniqFusUepU8ZWDiq4nyReQpg19zzMCllTxlLGhsiDQaIE8F
AaOOGV4ZXc08FYQbpG55aV7NPBUs/CavXOFczTwVZBm93e3rUc08FRTe/zwu
Y00181QxrDks7XpINdtHFYHiC+6+seSpomAwZHdNMnmqcLJZdrQvlzxVmG6v
f1ldR54aRB1KuX6d5Klh7c2W1dnfyFOD04iXao+Ua5inBpeWmmHx5jXMU4Pl
0hBfiwk1zFPH8RWa3lvdapinDrU103TDl9cwTx3bz3hcWbiFPHX8xXnavg0n
Tx0u9r+lzIwjTwPBlREi/8vkaSBc06BkfjZ5GrjSWO0vXU6eBmxn1CoHPyVP
AzeKP1zLe0+eJvTfZU2olKhlniaeZZ85clm5lnmaWGqvds7dpJZ5mnCXujyt
QFjLPE1sf2i3eMTUWuZpYYl1+TUdD/K0UJBubfptFXlaEMcFBaVvIU8LZ/US
gsfsIU8LczXm90bFkKeNoRe6p2+dJU8bA3ejx2WmkacNJfe5QRH3yNNGothB
S1hOnjbeRswoSH9Mng4W+8nZy74hTwcW0UuHhIPk6eDI06SGcbJ1zNNBLu/r
cnW1Oubp4PcaxfFlxnXM08XVCp+vng51zNOFl9vSqcXOdczTxajb/IujZ5On
i8PzHG7xF5GnC/PpV2QdVpOnh71uRiYjN5Onh51Pxh3NDyZPD2va2l8sjiRP
D+vl/ePLj5GnB8nMrY7G58nTx4jFJmMXpJGnD7tzanq+2eTpY715yMqlReTp
oz11TIh9LXn6KLC509X+lDwDRM6arbvzDXkGCL/WHdLbR54Brr4JjnCXrGee
AXTe3008JF/PPAN0+i/Cdc165hkiOaUv/7ZJPfMMMXaKa+x5u3rmGWL1Ejn9
gPHkGaLhvu49y6nkGcL1Vljz/Z/JM0LJ8s01LovZeW0jnJP9VebSqnr2fWOE
FvVvZb3r2H03I5yoXLLfahu9zwjTi+uipoYxL9QInWbCMa5/0vuNcO3UuQZ+
LPMyjHBoRlGB9BnqMUKW2cNfci8xr8MIuaGTxd7Xqc8Yger+pz5mU58xvnxT
7PUroD5jJAcesy6toD5j5K4bEakupj5jnHmqt+KnNuozxgSFyX1r31CfMZaF
HY7Z1kN9xkh58XnnhiHqM8b1dMsv7sMaWJ8xojNi3Q1HN7A+E6xefzS/SaOB
9Zng+fS5R0ING1ifCRpO1EioWTWwPhNcTFOec5TPPB8TLF3TfVtyAvNCTWA4
5Bji6cK8eBPs9bnZcmEW8zJMoFzjqPR4HvPKTBBQs2ve9yXUZ4Lj4V6PlVdR
nymqom91qPhTnyk6pbelSG1pYH8/pvjTKmFFWxD1meJX3SXOaWHUZ4qvqx4H
rIugPlO8XR41UTuG+kwReWGg8ObfzMswRYiofuaUs9RnitYLCj33kqjPFKMc
7/Xz0qjPDOtvOIdHZFKfGWZu0n3UmEN9Zmj4YPtFo4D6zOCSvp+bUUZ9ZlDM
jCj2q6U+M0gaPbm/s5n6zGAUG7gotI36zFCXmHAj8DX1/Tiv/V16+XvqM8Mu
870bJ/RTnzm2Hw8zkv1GfeZo7U3hCqQbWZ85gr3V+wJHNrK+H59nj/HTVW5k
feaY6tmde12zkfWZw+2fPSaTDBpZnzlsd6bfvGPGvAxzTA45cZrHY16ZOcrs
WiQPC5jXYQ7TrL3Sr8cxT8IC+zvVikSTmadtgfNxhzcGTKM+C8zSDjBMmk19
FlA4d2uwwp36LHD4cLNe10Lqs8Dae4+vfPWkPgtEpKNEwpv6LJBTrHHkix/1
WUDRr8+icwP1WcBTRiKpbCv1WWKG42t+4g7qs0RF2vvnW0KpzxJV0980j/mD
+iwxppgb++5P6rOE/du3yidjqM8SyywiI7k46rOE7qapd8Unqc8S8aov8n0T
qM8SQ6trs7qTqM8SwgDNu76p1GcFfsbCF+Lr1GeFk2ea3HCb+qygOz9K8XQO
9VkhUlXC9VM+9VnB88U6uUnF1GeFi0PXt+wupz4rnJjueTyzhvqs4FZ66u+X
jdRnhTyTJftGtVCfFSwa9LdbPac+a/hl2hxwfkV91jAZt7FsRjf1WeNLVtSy
2R+pzxqfGxt/mtZPfdaoSliSMeYr9Vmj+llVkoGEmPVZYwgZk7/LiFmfNcr+
tD/YKCdmfdbY98j6UtJoMeuzhnCz64WNqmLWZwPHLW2xDlrM07bBkpVqMa/0
mCeywauwzMtxxsxzs8Hwxl97OAvm+djA2XZF2DMb5oXawFa7zifIgfpsMCR5
JHOkI/X9+Fx5zN6j46nPBj52eq0ak6jPBuld/k9iXKiPB5WdIw8Oc6U+HsTR
yVJbZlMfD3LIn9M4h/p4+P7+8J4xHtTHg8jUMC1qEfXxUL6Ye/lkGfXxINMa
PcZiBfXxMPd8YLrfaurj4f0/PJ8LftTHw57gaz5N66jPFimJjfeHb6Y+W2y5
NWm/w+/UZ4vxa+cXugdRny3UUxdErw2mPlsEzl/wLiSM+mxhWSXsO7iP+myR
03n+WmwE9dki2cteGHeQ+myRFme770gM9dki4afy2/tjqc8OB8zUHgfGU58d
nL2bPy8/RX12WLGr0mTqOeqzg1VmkLdRIvXZQT9vbMnAJeqzwzw355UlV6jP
Dk7n/h4fm059dthgK/JcdoP67GCgWi7WvU19dgi/K5ndkE199pDymqEYlUt9
9rgR9r5t4gPqs8fHg5ZcRyH12aPR9bPwz1Lqs4fHvJ9KbCqozx6v09oUCqqp
zx7PXLzkl9ZTnz0UJ7lUdYqpzx6BFztXb31CffYQF8fWf26lPgfEJXvb7Win
Pgf4h8zb1tdBfQ7w1J58b+0b6nNA0uJO+Za31OeAS3/3rp/1kfocsEanvSu9
l/oc0LJRJ0Z1kPocINP+3HfzV+pzwPnHvjtK/6E+B8yafrvGQKqJ9fHx7EPh
jg3Dmv47L89Hbb//rqwRTayXj17NFW3fRzX9d9+CD1etGRkuik3s/xs+lhpd
/LpbhXngI0a988Etdea58XG9Z6V6txbzlvChZzXrs64e83z4kH2Zs32GIfMC
+NDdWXhygwnzQvmIT3bfEGPOvKgf5wcE/WlWzIvnI+GL5aRSHvMu8vEqQ/zT
M3vmZfBR1lBj80nAvDw+bHSin393ZF4ZH0F71+6UG8+8Jj4GMm5+Gz2ReR18
VPHPbVaazLwePnZedWtVcKH9BPi28P6c4dNoPwE6lHuKhlxpPwGkS/Pmv5tF
+wnw7Fpv/2M32k+AgP3T7hbMpf0EEDfMS06ZT/sJMOicXHzwF9pPgEUXiwzW
Lab9BGg+pHTDdRntJ4C6q/iQvhftJ4CFyfKsDytoPwEOF9WMy/Om/QTw95qj
EuVD+wlwuqp57oI1tJ8AltIbB7TW0X4CDCh8UGzeQPsJINouOBu3mfYTYNna
vqvzttJ+P3rfdk8ZsY32E+Cu2u1V2UG0nxAruA61tbtoPyE8XPuXa4bQfkJo
pi+cnRdG+wnR/fK35t/CaT8hslZv0Rixn/YTIundHZmkCNpPiE3ZG1KmRNF+
QoRfTlV6HE37CWG27oDTphjaT4g72RIOUkdpPyG8wuR6Dx+j/YT4LLv/kF48
7SdEpPHc4YknaD8h2r2sV9qcpv1+9PErE66cpf2EOKjRXc07T/sJsapYvzcp
kfYTImxl72jjS7SfELIHPlnGJdN+QqTGHpw2MpX2E/34frXz35FG+4lwlbM/
/eoa7SfCrW0tL+fdoP1ECNYOds3KbGLfPyIM/TylQD+L9hNhtvgX35Bs2k+E
bqc6wdMc2k+Ea0/KrZ3yaD8RTvJmLPgrn3kBIkzOG5/Z+ZD2E0EQdmjBpCLa
T4TcB7aO0SW0nwgxGzuWPHlE+4mQrb+/1LKCeRkiTJxYEbmpivYTYbH1pjOZ
NbSfCKm/aih8qaP9RHgXslzs1Ej7iTAY2TosqIl5PSIc7zI8fuMx7eeI9yfP
xL9taeL+B2fW36A=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nk4lfn/x3GElCVHljj2Yz0HZ2taMN2vNtRIJg3atKu0zJT2hEoLYyoz
UZQGoVDZQvZdqxTRSqN1SmmhaBvf5jfvzz+/+x/Xudz3437er+s4jsWin2cs
VVJQUIhRVFD49+f/PxLi/z0yuGnXypdC0Yf773UxF5pYybupsJgbKf/3qOW0
r81eKQ5fRb+/xLktuW8vGFjH/adc5yaI3E/4lm+i81u4Lu2k1JCtIdyywH+P
Ni72LX+Q5Gg4XX+HKzj6/aDA/p1c49V/j/vc52ANx4aZu8n7izOf+zBxVM5e
Or+Tm9xeV544NIr8R5zP4utuDxdH0/WPORX1BZ5dpfvpfk+5uds+mHtHHiTv
b+6z2/Xw3vwY8p5zoqqpz9vafyevi3vVvbCoS/UQeS+56n1TI2zFseR1c3kR
WnZhvnHkveHChZ9Ln4UcpvPfcLpVD475phwh/y23Z5Tx6uqGeLr+HTd6Q5i+
6YsEul8P52z8/soijWPk9XKaN5TU9zgmktfL+c3XSwyddpy899xs0fEjE1f9
Sd4H7kizgvTppCTy+rjOqyJftZYk8vq5DSMHXCMWJJPXz22y3aHl+yqZvI9c
0pAz/K1bUsj7xGW7bW9/qXyCvM9cultnb+aBE+R94bqWJglzDVPJ+8Ltuyb8
+UtKKnlfOQeDWXcjRWnk/cN1/cHP8s1PI2+AmzzFyH2Bczp5Clizwc05tSqd
zldAR1rAKHO3k+QrQHl6oE7z5ZPc/10uV0TpPd7lIq9TdD9FjLW129504xR5
Soj48e4ag5kZ5Ckh646Oyv7WDPKU8O5R2QWpbyb1DIJRtPICxbZM8gbho3HM
4c8zs8hTRsRAsZ9ZSxZ5yngkLDq10vs0ecoovNWY8+DqafJUMEa8NX+rxxny
VCBKj9N2rT1DnireZu6YKPj+LHmqMJk04aG48Cx5qngqP31soVM2eYPRI4pw
OZ+WTd5ghE5pbjLUyiFPDe2ZMX8998ghTw028a5+nrtyyFODcnDr5PHlOeQN
wcC0kosXP+SQNwTeH11UH4lzyRuK5OBRTgeX55I3FPp9mVuuJ+WSNxSy0jnC
1Nu55KljROSKKHXtPPLUUeDc06XqnkeeBkqdi07Fbc8jTwMtBkUWpfl55Glg
pEt7xfrneeRpwr0ptbvWNJ88TQR21lpn+OSTp4WmhlsdVvvyydNC4eXhCaPL
8snTgrLw3f3O1/nkDcOMgGdSK8E58oZBr9jAbuCnc+Rpo3jaMJ/gfefo/aWN
RtuQqTtKzpGvjduXXmTYv2TXa0PwOkJ7tUkB3U8bd6KazT29CsjjoeFLSPiF
0ALyeNBfr3v7wdkC8nhQ3HSrObajgDweOneHmL7QLCSPh8amr0HtroXk6aDr
VWDQLysLydPB1oTU6yfiC8nTgczf12fzhULydLDmn+SM7l7m6SDRZEj0YMsi
8oajWoJztV5FtM9wFO4f3C7YVkTecFQOU62xO1lE3nDsnp1m1tJcRN5w6F59
nSf4h3m6uNT981i+/XnydJETzFtb4nOePF3opwwaoRR6njxdjJcmvnx38jx5
ujgcPv7MbzfOk6eHVgv3ES2fmKeH6MwHXbWCYvL0cKpK4ekCz2Ly9DDHz6su
c30xeXqYy1OdlHKsmDx9+JV3WXjUFZOnjzMPRxkldjFPHyd8dvydrFNCnj6W
lxa6+40tIU8ffSYq78rnl5BngPm4ltS2u4Q8Ayx+E6+RklVCngEULYe8Mr/B
PANk373U7/OBeQbY1vnrExd+KXkjvv19f1h2hyslbwQ+DhyTOy4pJW8EYmv6
P43eV0reCOSumvfzp6xS8kZA+fg7bGhiniEuup82zXjHPEPo/T2xME6vjDxD
pEyXnRs3pow8QwR3ZdQmzy4jzxBF0TH7q0LKyDPCmVNh5UePl5FnBE69sE9e
xTwj1H8weRTZyTwj1GRNsjquVE6eESJ8/APWCsrJ48NvirVceVI5eXzcLxs+
0W9JOXl8tGVYO66MKCePj6Pm7/cjlXl87LmXp3y7lnnG0DOxtpc9Yp4xprWk
x05XqiDPGHu+2DyUWFSQZwzNqXZpbVwFecZo/FoVPD6ggjwTcAMJnWtDKsgz
QY9Vb/jyBOaZICT7+EPr88wzgahHMS6zlXkmEDrx7fveMc8UWXtD7TS0K8kz
RcAof7MXDpXkmaLhyurDMVMqyTPFg2Qzw0GBleSZwmtFkIjbWUmeGXJb//Zx
O848MxQGtuobljDPDM4/aPQVtTLPDPHzNDcK3jLPDOv4A0OcVKvIM0eTqM02
d3jVf+cbmsMqz92Hb1FFnzfmcC1ZenmVU9V/13ua40Rx/OU0lyq6nzmmXkg7
2OBBXrg5HO+l+Tf9RF68OfKH8wKqFpGXb46XiqX34n8m76o58j7dVJ8bQt5T
c3iufm07OJL1WcB13OflR2NZnwXG2fww2DCF9VmgQzfWOfws67OAMK5n7I0S
1mcBuDxz0bjA+iwwXsV/o7SF9VlA0hxnOv4B67PApSsBK1y6WJ8FZt5qizLv
Y30WeKP6R+EbpWrqs0SwepzZaa1q6rNEWfqM/hlG1dRniQjTM+ueWFdTnyX+
OfulcrG0mvos4ftVg3fNlbxwS5yLNIuz8iAv3hLF5q9Cl/mQl28JBc+Tn+IC
yLtqiYbqj6PzV5D31BJzWtSXlq1nfQKo3N2RnRfG+gS4lRI6KS6qmt4/Amy8
neq9LJb1CbB75QgFmyTWJ0B9f1hocybrEyDBUbVvVQHrE8BZOOfQ+0ry8gVo
7CwIX3WZ9Qkg2Nz65MZN1icAl6j0yvoB67OC/Kl25fLnrM8KRwQLIhJ6WJ8V
Vha0Lyn9yvqsMOe+yr4rg2uozwrOak90r/BqqM8KpwWGshJ+DfVZYXx7s0q8
dQ31WWHXq7aCZeIa6rOC7eywZTZjyXtqhS2FZVzrBPIUrJGwwGDxek/yDK3B
K8t5P8iXPLk1dFdM4kfMJ8/TGi822/f1Lmd91tj8p89p33WszxrrF86cl7GN
9VnjD26uw6sI1meNgQ4XF8v9rM8a452WZnkcZn3WiNr7MnFBEuuzwfamSHlQ
BuuzwZSY+OileazPBhEGppdmlLI+G1zZUaUmq2N9Njh960bQoEbWZwO/EZ5a
F1pZnw0c3Ft42ztYnw2WbSj8w/oZ67PBuYtvcqtesz4b3AwVRnn1sz5bmHQX
j21SqKU+W0zdldo+YUgt9dnir9I/f8/g1VKfLWab6mwYZFRLfd9eO+kme1vW
Up8tjOevlcUIyYu3hbdSxqR6GXn5tlAZ+frdS2fyrtpic52jv9pE8p7aQtNU
5YDBD+Qp2GGWfWOukQ/rs8Ngp7i7vDmszw71OfaCr4tYnx3Mp6un3Q9ifXa4
fXjLlpx1rM8Onp1rijdvZX12SDJO2f7dTtZn9+3zYW/H00jWZ4fp+jN6o2NY
nx1CB/e02cazPnt8ecw/XpTE+uyx7+y4ha6nWJ89+sr2jy7MZn32qNilOMa6
iPXZQ9t7+pbICtZnj2iVXt6jetZnj7Tb4hGyRtZnD19VtZSNN1mfPV5Futfn
3GN99hBfDzv810PWJ4T/8m//Tl6wPiEU85WPW7xlfULY7J/9RdbP+oT4OlA2
z3mA9Qnxe8fJttGqddQnxMsNC7eJNOuoT4hK0ef5erp11CcELGYceW9UR31C
bGgeNuaqRR31CaF/LnNGvB15CiKcvRb4ea6YPEMRlvv7TjYYRZ5chADP2RMv
upLnKYK3gkDtl4nkBYqgfl6SrjWV9YngP/qmONWb9Ylw8EdxkcSP9YnQtek7
r3PzWJ8I1pNPq4qXsD4RzNUc3iUFsT4H7PI0txy6lvU54P6CiyeDNrE+B2y7
P/pQzXbW5wC+pV8/L4L1OWBF56PH/lGszwG/HF4bdPgg63PAao2g+MY41ueA
Sdc1d34+xvocoFi4fqTFCdbngCee+6vGZbA+R6j5W46amc36HOEx+UbqwgLW
5wjHZF3jZaWszxEPo7isJdWszxGrrcMWzr7A+hwhU7s3zaOR9Tni0Znvwpxa
WJ8jIjs9lTXvsD5H1AtLuh51sD5HrB/TMzH/MetzQtSUqfxtL1ifE5xju8Nc
3rA+J0Tkvgzrfc/6nGDS72Sf/pn1OeHsi+2R3or11OcEq9jwsz2q9dTnBKPX
ZWkHNOqpzwnzXI+EWOnUU58Tngf5Ic+gnvqccGCt2T9jTMhTECMz633NeUvy
DMVIHll1VGpHnlyMURPcYk84kucphv12SZmWnLxAMZbMGmISPIb1iaG66vu6
69+zPjHaqvkVthNZnxha8jb9zR6sTwy3oh13q6exPjEOFenrqfiwPgkuzV/b
PN6fzteQ4FP3j6ab57FeCZJV5ymfWkTX20jQ2s8/eGNZPX2/kaBd7+vV3lXk
QQKtfp8G3jr2PBIcbZq1124TebMkWHPakT82hD2fBJMv3oyeuIO8YAmSrjk/
c9/DnleC51ay79x+JS9aglTJ+h3jDrLnlyA3MblNEkteugQeJyZwJgnk5Utw
wP1C/aA/yauSYPmJvesfn2D7SFBsVfdT5Sny7kjQ3ZQWfOgM20uCyvBxtxfn
kdcjgY0w8jfHIrafFBv1ghLflrL9pLC3yOblVLH9pPj0dVjv8nq2nxTdK528
jC+z/aTI3Bhnf/ka208K95yKA+ta2H5SVK5Si9K7zfb75n2qtMi/z/aT4s8O
4wU/dLL9pJCrTfDqeML2k2Ks5rj3K1+w/aR4H6Ae0NvN9pNizo6DMZt62H5S
2CDpyPs+tp8UWY8/blvzhe0nRc+KKZMeKjTQflLk5dh+8lZpoP2k8MwzSi8Z
0kD7SbE/P9bbTKuB9pPi48aPimE6DbSfDEtWH6q5o0+ehgzFz1ISxHzyDGV4
OHn67+Fm5NnI8NE2L/eqgDy5DG1HmxV07ciDDHs80/f6OpDnKUN6Ns/rkIS8
WTKoy/+e0ziSvEAZZq94eV5xLHnBMlSNur5K+j154TKYfRkZNnc8edEypNZk
9e2cTF68DLsCC9pTp5CXLkNHVc2Ymmnk5cvAax6pfe9H8qpk8Hoxd+Xrn9h+
MgQ3h/w4MIvtJ8PX3oZLQwPYfjIkRATc4y1i+8mwKdXvN91Atp8c1/cXPdUJ
YvvJ0VuyvltjDdtPjueDNmUprWP7yeHReNiqd0MDff7I8atdyoLOLWw/OY5+
nBF4eTvbT455/Fmu2TvYfnJU7/zp+YHdbD85Pi+6F7wqkrxgORKm//Jw0m9s
PzlezY92MYxh+8kxxjth9/NDbD85olL7GgqOsP3kGHqpVyX0GHn5coTJWz0m
JLH9vnm7mmKVUtl+cjxI1eypOMn2+/b6xenATVlsPznUR1Z8EGWT1yNH2mC3
jPt5bL+RWH3ONSKysIH7H/0Bo1I=
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJxd1nlYjfn/x/FTSEUl2k7a9zotZ0mIul800oyyxogpWcqWpexihGyjIiSh
RZv2XevI2JeYrClbWiTVEGkPX37en39+9z9d5zr353E/z+s617nSX7Juto80
j8cLl+Lxfvz9/9fpqB9XKieXoPj870ZwP1+XcCnz3RSONc7kbCU/rqvcXNM0
9fXzPOj925y2+vHmpgZv7qdyn6tzdnaBlg/d/4jzFAbWW7uv5Jb7/riquMr5
TTujD6+h8zVcXEH2tgl167l7d39cL7j2C6s05gwEkPeaUwrS1hmmvonur+MC
i21He4i2kN/ARVcOZImnbaPzjdyNF7KHQpcF0vOauLzFx1ct2rmTvGbuyfZq
05iIXeS94wz2FjyOrQoir5WzMCvr0qrfTV4bV9f2V/Ck//aQ9557uKL8hGzP
XvLaufr1Ub+tkd5H97dz93ujq1YN30/+R26Jq9aWAdUDdP4T57CsfKu27kF6
XgcXNldx7G3TQ+R95had6tbqt/mLvM/cYS2npKyxh8nr5FKHKS6sdQwhr4tb
bzDh2cEpoeR1c/NDX1UmTwsjr4fLGJfYZzvrCHk9nK3TqQh1wVHyerlhOQ7x
LplHyevjBleOjBHYhJPXzz1ftCy0PCecvAHuyHa9P7+JjpE3wAVe7DnQlneM
vC/c2vO77+6VHCfvK3dRf8aWq/nHyfvGHeMUy1MlJ8jj4cm4s69t80/Q/Tzc
SNE0XyqOIJ+HCg2pNnFuBPd/xyVSaK0THIy3OUnPk0LmumbfnMyT5EnjbPvX
/gWCSPKk8cfukutxKZHkScPmdbNrkPEp6hmEoKImo55zp8gbhKywiFYZnSjy
BiPY3+vX9Kgo8gZD5GX5sUHlNHmD8eiwT1z2kdPkDcGM0/U6CvJnyBsC+fIG
x/69Z8iTQWTvoJdbv5whTwa8rRavgzefJU8GoZrbx+t8OEveUBi7cY1Oy6PJ
Gwod2xdvPr+KJk8WjlPz3YTzYsiTxVG/EWM678aQJ4uM5BGXJjvFkieHBSsP
amiUxJInh/o5nyfYq8eRJ49Nv4eHpc+KI08e29ddT6k9HEeePMwELyVV1+PI
G4a+yqKXYd/iyBuGmxOK5suNP0fecLguyF44JeAcecPx3O7Jucnp58gbjpK8
zBZe4znyFDC3ub93l1Y8eQpwcMqOvOQeT54ivro/OHIpJJ48RTit3ZC361o8
eYo4Pujso2/98eQpweSNpIKTJJCnhBUzOzZyqxLIG4Geuuk5X+MS6Ps1AjfX
LvPe+TSB/BHQvvN2dZlCIp0fAdVdSheLnRLpeSPw957dkzZtSyRPGecbuZb2
rETylKG/NyJd0JhInjI6b0rvNOYnkaeM/AALj1duSeQp4+bGcod5e5LIG4mH
DX6C0MIk8kZih8w9470tSeSNhNsuV8k4nWTyRuKPKC3PjFnJ5I2Ed6ludm1w
MnmjMPxL1diHRcm0zyiods+QDW5JJm8UkDnStlPrPHmjcKxY6YHxjPPkjcKt
mLBu1d3nyVOBnbfWlet558lTwUGH7W5jGs+Tp4K7hSHFy1RTyFNB3/XfjNyd
U8hTgf68zPxBW1LIU0VXT8zhDedTyFPFneetDxOeppCnCpsvorwTQ1PJU4Vz
4oM5zmNTyVPFVs1XDcW+qeSpIThF8WhbRCp5arB9mn2g7loqeWqI+nyiP7KD
eWqofSmnM8IgjTw1/Kp43eC3mWnkqUPQUePo/GcaeerYsS89ZXBGGnnq8DOr
jdxXk0aeOg7dmzHltkw6eeq47ynVWilJJ08D0ctVrkV5p5OngVnKpcNNQ9PJ
08CwmWbSW0vSydPAliVh9SFvmKeB1DC5/3yUM8jjo9Pg9OJBDhnk8aFXorHb
Z0UGeXw0lgpCQ45nkMdHganDra3lGeTxcfv0+k0W75inie1Ho6rPjcokTxNh
LSK7WodM8jQRlDfzUf3yTPI0UaNxrjMjPJM8TTTneDQ4lGWSNxr1byUNEY3M
G43zhUsnXlDIIm80PoUcsTtrl0XeaMRsusWftiiLvNFwC9hjfeVAFnlaWKUY
elEqJ4s8LQSZDh8hX808Lai1rl/3/BvztKAhu8F4s2k2eVo4M0p+x7Pp2eRp
Y63u8ouym7PJ00bv7vcSqehs8rQh+6/I4trVbPK08an3XcusFuZpY+Wzrd5z
ZXPI08G+z7GBy0fnkKeDnWP8/RZZ55Cng4iVO+Y7TMohTwfel3/3kXLPIU8H
FSuii9N9maeL8eJ3WyZuY54uiudW3co/zDxduDh9ua8cwzxdTDr48cK8HObp
YuhNLnrPFebpoeqf1RkRj+l+vh4s/N/LHm3Kod8bPTja21b799B5Vz24G5zh
Jsjn0vP04Krvv6xtdO5PL0gP9n9+Wr3PKpeer4dfJ7oEynC5P718PUhH7i9a
NzOXevTAD02fcnkxeU16SNgW/Vt/AHk8fSwsM2/VDiaPr49pKwe5mkeQJ9FH
v8qVcO1k8lz1MSHq9eu+Qtanj5OdZZ6Xb7I+fYy0O2bpX8369HHQd7e//DvW
p4874ftnhvayPn1crdjxX69cHvXpI81Zy2+mZh71GSA2oPfDUYs86jPAFdPg
s2X2edRnAMVnMhH3f8ujvu+vnyYNVC4gz9cA7SFeXSWryAsyQNkzmaSw7eRF
GcBjpatg+l/k5RtgqkJBek8UeXcNkC2McglLZX0GWD7FykiphPUZotlxi3fg
LdZniIFRc3QfPc2j748h4qf671F7y/oMobxtXvqULtZniEd9C8q8h+RTnyE2
rE97tFwln/oMkRvgpLrQMP+nl28IOfvuOHtxPvUZQjRjZaTMpHzqM0TeJCX+
pRnk8YzweanQeZkXeXwjDAp949jlR57ECDtrNQw3BZLnaoQbEftG1h0iz9cI
jo+KLO1PsT4jKGwfHh6UzPqM0Dok16uggPUZQXl1QsGTK6zPCDW9ubmN91mf
EaydAzfWvWJ9xlgyau3ou22szxjpTrevJfaxPmP4VZwJWy1bQH3GmJ9y7aSe
WgH1GePy8099Vw0LqM8Y/iuSqueKCqjPGC/nCNyqHAuozxi2aQmbpriSd9cY
Gfu+rE3wIK/JGEkaPXPbfcnjmWB/qcFUy43k8U2wvPuF1++7yZOYQDN+Xol/
GOszwbfmIwGBZ1ifCRr8PJI3prA+E/gvcF/veYH1mSBu36fWMVdYnwkWHths
+/Vf1mcCi5cdywqfsz4TFMvPOOXVzPpMwV10eNf1mfWZ4kW7c8AuqQvU9/19
9atuPQoXqM8UXngRsVjzAvWZYscvYcvKTC5QnynyPiQ/GiK5QH2m6LK+MQCO
vHxTLHH06vWbRt5dU1RV59cf+p28JlNUrnj1IHIpeTwzLLO/VXtyHXl8MwRm
WRsfCGR9Zri4Nr50xQHWZ4ZBCQeKJxxnfWYQm6qN5cWyPjPsueIxvTCN9ZlB
eZFYzauQ9ZmhdLJ7cvdl1mcGPxcXtb33WJ8Zpmn67eTVsD5z+Pl9+rSukfWZ
Y+64htAHH1ifOVp7RvsY97M+c3xumnFktUwh9Zljop2sYaJyIfWZo292ol2l
ViH1maNed8HrNtNC6jNHkK2d3RdxIfWZ48Forek8R/KazLHr+A2HLhfyeBaY
VHFTs3YOeXwLzE081FfqRZ7EAskf3T4dWkmeqwVqi6zVXTeyPgucWaPzp9Qu
1mcBi4nNE9IOsT4LDIXQx/kE67PA9dsbFKtiWJ8FqmPkXD1SWZ8FjtgbiO/n
sz4BHJVuPbYvZ30CjLlZOzXqFusToHqfWWzrQ9YnQI7ZxPeil6xPgJiDR1z8
3rI+AZ6WBlw+/ZH1CXBtlrLfxX7WJ4BZTMDCx0OKqE+Aig/b4muViqhPAKeq
pjm1/CLqs0TR4rl7HhkWUZ8lTJY64m+rIuqzhGJmd2zUWPJcLfHHnIL81ZPI
87VEeWtwqHgaeUGW8Lz3O/fenbwoS0TP7H0W40VeviUSFFUCflnB+r6/rydS
q/VnfZZo8yquXhvI+qzwOLb9Tkcw67PCkq5vX9aEsT4rrGlv3fMykvVZYfKT
qFWTz7E+K3TU/3v9bBrrs8KmEGFSWz7rs0Jq4S988UXWZ4Ujnf7iNTdYnxXa
b33jxVSyPisY1ahFXKtmfdboFl/++rqO9VmjdG+LW0cL67PGS3fvY/0drM8a
k6Y+fN47wPqs8c7t4fj3Q4qpzxrq7x6XVSsWU581ZnmL/EvUi6nPGl4D+iuP
6hVTnzVsJl3L8zQvpj5ryJjyPfXF5PFssG3OkC3P7cnj28B19iylECfyJDY4
eC/VVuJKnqsN0q7Hdt53J8/XBoNvp3j7eLI+GwQLdIPbfVifDQYmTl4bsJb1
2cA9yM6qdTPrs8H6uiGVC3axPhsYtsYuvnyA9QlxY6Dmk85Run+4EHN2rTu6
4RTrFWK2prTLpTg6byKEajPfVDq1mP6/+f46zXjCxFzyIMSpge3ha0rY5xGi
59C8sScvk+chRLLDi/GFt9nnE8J+i3ryvQfkbRBCd2L/wRc17PMK0bVyyYf6
OvJChBA2KzW9fsc+vxDPq7O2VX0kL1mIwXceFl7tJS9fiM9vulNTpEp+ev8I
AcO9i/bJldA+QrRtvNLgoVzy06sRYnlv22QTfgntJcQIC8NDLXolP70OIU7I
rbuSbEYeT4QTs6/1LRCSN1yEvUk8x6HjyOOLMKOwNTKdI89EhJJtY1VcppIn
EWHL7KDyF9PJw/fzDm7xK+eR5yrC6a9KFe89yfMQQc3V+Bc/H/J8RQjve6xR
70feBhEGmc12n7mRvCARWnzLpIoCyQsRIahZ01JtL3lRIiic93215i/ykkUw
OxpkWB5OXv733kw7maFRbD8R9s1wCneJY/uJ0CVxq9xznu0nQnzO2zsXsth+
IuQ+OxZWd4HtJ8KirDIjmYtsPzFEY/+ONLzG9hNjc+Hzj+Mr2H5ilN2Z7vDr
Q7afGEtPjg2eVcP2E+PYm6T7s1+z/cT40z3S0u0t208M3U3d5/Ce7SeGw+dY
e6tOtp8YxeXzeaMG2H5iWJlUD3yULqX9xAgZcnX8HblS2k8M3puMf86MKKX9
xLisrXHGV72U9hPjyZdNDy10Smk/MbhWk/XNRuT9I0bm/u07YwXk3RVj/L/Z
g2aKyasRQx6dw/rGkdckxkD/ithojrwOMU6+0bhp70weT4L916VDHriSN1yC
ilUq3YvnkMeXIK5CoNzmQZ6JBBNN1BvWeZfS748E9XoRm/7zJQ8SrGpxf7Bs
DXmuEmR6dH19soE8DwkmKMgPnbSdPF8JEv9S/pQURN4GCVZ47ro1+ADbT4JX
Y4qOeYay/SRwGqrokXOc7SdBrMkdwy9RbD8JuBWG/U5x5OVLMN7B6W1wMttP
gmMPfmm/lMH2k+CK2Ridzjy2nwQKE0ZtMyph+0nQrXxfdvol8jokUH4z/Yn/
dbafLfaM8Wk6UlHK/Q/Diar/
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["t", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.7682274166529512`*^9},ExpressionUUID->"f374ff47-38e3-4b45-a3c7-\
d7bb109152d8"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.011111111111111112`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJw1VHk41V20lkSKTMeUeZ45jnNUUmtJKSWZEg0okqlUSglJKfEZK1QaDEmo
kCLJPMvMOef3ExkaFerLmPjcc5/73P3P3vtZ79rrXe9aaysd8bc7ys3FxZW4
jIvrf/f/WxT8/5N8wdcVtzn3i/crRXq5AoDa2Ee4clPQwqNfS2XpMkxkril3
XEHBH8Jpj0IuxMDdU0bBwfwUfJW6abnn3A2ovj1xpHUNBRUPjtw3LkiBr0Fb
rLeLU9DevdNixP0e7LrfkzUqS8GDwTOKNlFpEPdx9miBGgV1qnaOsgYyoACC
VG8bULD6+s4IDYMsuKY/KXHfhIKXtP+WfQ3Jhq4rBdJlFhS8Zix7vLohByS3
ThSP21PQRHb63RGBpyAj4aVPPULBfa7i9y/ufg7N9mKhoacoeLuby/DL1gLY
x5rw6Ayn4Fn6kmmEWyGc1e84o3KTgmn8z2QuBL2A37PCwqeyKPjYYngqN74I
GNvkAoteU/B6u7b/QsZLiMh43vyplZP/TZk8x6JX4NDVKLk0TMETZy1MHlUV
Q+dyG5eFWQry7PEU7W4pgb0LO2+w1ojjBg3N0I6u15A5mZUVqS6OeaToijhm
KbhcvBXDD+K4NobHbRnrDbS2Xtji6CSOEUul+xR6ymDqukf7sdPiWMxuKxhs
fQvc5vzb18eKo87jZGHT2nI43OzGqn4ijnJbt4wYFFfAkz8tb/+rE8dJnYiN
r7MqgSe2w350WBwHchOHRndUwW7FYOGQJXHkCWBuMyuvglFz16uFchJo82cj
70eDavhQvtEjwlQCJWZzgzrTqsHSdV/YzwMSKBXlHb1auAZUPsa1jAdLYJlJ
yZPk0BpQ26p48MI9CaRvHKg4M1oD1ez1xxPKJdBzuFYtx74WHlta7dcZlMDi
FrG7697Wwj1bk0yLZZJo5/LVUFWlDi4V7vgxoCKJpbuF7AOu18H4y5m5MQtJ
JJq/52iN1UGeWP4rfx9JJKO7Fa2s66Hh7UG9I3GSKHGGQgw+r4ekl19iq15I
4vDVEPnvgg1QzkxWj2RL4o9xT5+Tvg2wbvzEsRcLkkhzcrQ/39gAMQ7+Q5uV
pfC+HH8Mn3IjeAx0odYOKSyO4xtQCW4EnqSNjidOSOHV/VkKPd2NcP3h19Wr
k6SwecJ/g4xWE1zRbPNeKJNCiYzlUtwXm2C3Vs1N+CiFKZfMnsV2NUFt7L2m
rlXSGJM7+KNWpRn2CNgfLqBJ44F91nW5Z5pBjZDvJPZL477yH0o76ppBSvvh
wx1XpDHTPvxbumgLFAQunVrMk8ZZuRW/y11bQJhXiWu6Vxrdf90RyMhrgd9X
mqT0/pPG/L7mOfuZFljg7nyYqbGWU++ZYyS8gxesQ7GOtmsxqWZuft31d+B0
Q3HcPHgt8jz4jWc73oG/V8KAd9ZaFP9mXpws3gohEsbxDR1rMeBHTm36/lY4
fmHW3Gl+LT57Elae+qAVRD56W8upyWD9jNzHqOFWsFXWFqHYyGCEvZPLKZU2
UHI1+c8kWAb734qZ7/NoA4v7R5MTHstgquJ0HD5qg7rvT7zEumVQXE5Ni/ax
DfzkMkRqFmXw2oL6CFWpHRx4eTamasli22JVgJlLO/xcFEq9v1cWJ1WnLnnd
bYeqbMpUY7gs6kwuS85ltsPhd/+KST+XxbzIi5oCwh3wXi69J75PFhveHU9J
tOyAIWathA6fHFp7++jA5Q5Q+kR/N2okh8WeTAnpNx1w+8nDby1ucnjnkGCg
yr8dcHdx7cm2WDns0GFpFIp1gvWpJt9fb+TQ9M3RFj/9Tsi6dm6C9k0OdzZm
JTTs6ARztpXYLXF5LBITcak60gmhv/wWRc3l8cV87+qDIZ2g3ZDLfn5SHk03
//VKTeqEieQNvZ4P5PEDJcnk0vNOiJQ/omvSKo+48etGgcZOKJ00UdScl0dq
d7K82WAnyPxynzHQVEAHNitacbYTosPr/to4KmDA6mSFp2u6oKve6kp0hAJG
yD87/VmtC4TtSj+/f6GAjosCIu2mXcC67hy+dVgBSxXHLx6z74I9hmP9w3yK
2FD9Z12Rdxe0NywP0VVQxBV94fkvwrrA+yirN9xYEQOJRzbHkrogs+RJ2vBu
RayfC7vYndsFNXP8qbuOKqKJ9oFb05VdIFlcHl4Zoogq55mfu3q7oCnsMWXT
LUU0+iJc6TXaBWkXC8Xr8hTR99WAR9liFyR/qtnhUMvxX/mZ8k6kG27qZwaM
9ymi2UD3ijtq3TCtN34o/rciauwPO6a+oRt0uxY6N6xSwrtuku5nrLqhI+ND
ypiSElK8t8pEuHaDxiyEZW9QwvMP7Z86nu4GryrXvT62SngTDuqOR3TDFm6u
73RvJTTTP5q3I6UbSgb2reELV8LQjigjn5xuOK7PmzR0WwkjJOWb7cq6gVbE
Y1ddoIRP2V0+y9s475Wlrs1pUkLd7T0ioR+64Z69Y33KkBK+bPpVWPWzGzJ+
zGjFzimh3ETphg6uHpg86acUJayMQ2UPb+SI9IA00Xj1H01l3K9PSbdR7oFQ
YRrtFiqjDXfO1npaDzQeGuHOdFLG83V6TivNe+CSqDiz5KQyOmu1Fa6174GO
bO7I7uvKWF+gpbJ4pAeE9dmzv9OUkUgJCio4zbGL5vJJlypjmmxGKONyD4iu
D0zZ2qWMeyTspmISe6DTWTTq7KgyLnySeVCS1gNCFVqVectUcPZt3LrifE48
XYbcV2kVFLbZExRV0QPZ2mciNWgqmEUYSNHaeuBW0JcRv50qOB61vb7gfQ/4
dm8TLzmigk5e/Pq833tAb3CJhzdYBdXj9i/Q5npA9jj1jvNNFbzxIZu1jrcX
QlmppYV5Klip89dVnNIL69NzrNfUqeDZbqH1rUq94Gzjaubfr4LP2z3/HjTg
2D0PBPdOqaCL1X7zJtNesE3q/LJJUBVXv6Y+XrOzF8bkwk/kqaligq1BCXVf
L7xwfLMou1kV1bY95TXw6IVLLjaXbjiq4hUrReVVp3qhYvrOyGp/VQzuX3er
JrQXCkP9RKIiVdF7+OMnp+heMJGVmudPU8XjAj532pJ7IYHbIzrutSouKz5D
V8rshSvM6AKJLlVc6aRs7JDfC6LG6w5kjKqiXjpF9lhZL0x4XQoy5FbD42ph
h/c39kK9zNf52rVq+PEZI0y/pxfkt9t1OBupYb32mx8fP/RCqY7A19+71DDa
cqdM8PdesPOppMV7qGFE4VjY1HQvNNDPZOqHquHz76FRNsuYkJ4Sq92VpIZr
f77Nihdggt77htLA52o46rMPX0gygfcv1VyhUQ1z86ZrXisz4bwRtbRlUA2N
t1gkZeoxISszaE3QnBp6OPPLBaxnwrflIsbaIurIqpap0DBnQqi/hcoHLXW0
KAnvq97NhAp82Xxrizo2u57qNnNiQsCSqZz1AXVM5z3E8+QIE4zd+EVXnVHH
AfHF1ik/JjxyuHavKUYdUzucIzXPMeG0jnthVJY6bmvqjTEPZ8JMZfy23RXq
OKpKY1j8w4QHr02sxdjqWHg/nUVNYkJaT0fV+5/qGL+9sX75QyYkmM3ceLxS
A0tV6/ZWPmGCumD8mwAlDay8tJlwf8EE7oQiPXMTDQwU97n/bxkTMiaLRij2
Gji/KDTlVc8Evwrxzm++GpgbmKzV0s4EGb8bYxURHH+/ldHiBBOcRSQMUu5r
4MMPsm67hpmwelVF3KliDdwguHna9zsTfhWyua07NPBAeELiuUkm6GsMXtb9
poF5n/4En1jg8JW4yCu4TBNfFGjM26xggUVi9NWf0poYV5Rko7CGBe3fV8z1
0DTR4/itGlKCBVVpMo5vdmniyLY9Ny4psOCPpeLtDA9NZKV2c1E0WWAfl1Ac
E6qJj/NFrG9RWSCoLpx7PlkT93uPvV62gQUNQ16+nvmaqLBADztoxoK6oqjJ
vU2aeMXz1cAjSxZgx9WN24c1UaSbLvzelgUxb26amsxrYkB3iO2SMwtaAwV+
6Ytp4d0Il/ciR1iw5onPHjVdLeyMK/ki6sOC2DpLB7ltWji6/Fwe92kWjFge
nZNw0cJ/NDPchoNYwDuXwhA9p4WHZJxN88NZ8EHk/QqhBC38e+R9gF8UC/Qz
t7kL5mjhuGvMRulEFtS/W71DsEYLox/NNry6zYI3Qhefr3mvhWFGzB1b0lgQ
93RlosiUFg4+EpysyGYBzyTtu7igNq6mV8zo5LMgPuvBSxl1bTz+0jQiqpgF
Ww7w/VAGbdxxUuYdu5wFs1/Mrus4aSPrl+68RD0LHtVsjGSc0kazgkjY3sqC
7ovzIxitjULFUU1ePSxgMVKTd2dq4zLF/urgPhZMc9vdP/BWGxWTAvddGmaB
aqj3bx+mNvZmZbwM/MYCB8aWxOAJDl56abnrT05919udjeXTwRC1K/4bZlhw
96bq3TRFHTx/N1yRd5EFtA9Of19u0MHBqTyoX86G4tqMWy12OhjqLj4duIoN
sjebDw/7cuxlDC8ZETbod2a7/InQQfODY5UvJNkw1qgdKfpAB63+u6y8SZ4N
bzTs2LolOqgbXPDqjSobjFMMdu3o1MHNYakPdHTYUOHw5YPHqA626g0sSzBk
Q0Bvbtxlbl1UKb2y/Ns6NpQcrnFMl9HFyFFKo9FmNqjWXjaqputiZkqCf8BW
NuQN2SqN7NZFS+kAheydbND2y5LlOaaLguklc+02bFgTw62scUkXExL6ZH84
skHl+qLerju66Fvx/unfg2wIOr9h08kXuhhVgM1c7mzAmWNWye90sbxJ4sa8
FxuK2nc4lX/SRSGvafXRE2yoLsk59HlRFw/ycGW3nmHDU15P5zWSerid/o2a
dYENZ708d6yn6mF7/s+R05fY8Ck1TcPdUg87t33vY1xjw3E9yam4I3rIaALj
iX/YcI9O5pYF66H++LjIvUQOPzFuy9FbenhAPToaUjj8GKXvJJ/rocxJ87fE
PTYsZxpStzfq4R2xTzXHMtjwoCw34NyQHi549JSOZXPqtfLEzSd/9JAWIPn2
2DM2ZM92xvSJ6iO1yPET8YIN0dlGhwR19fHeQ9IKX7NhxycubrNt+ihjFyP0
oJwNS7+enT/roo/RYlwWv2vYkG7/piL3nD4e/OTHv6mJDXXp+V1DCfr4eOHF
6YttbCi0VsqXzNXH1G0H7xZ3s+HahacOe2r10arl/u3PbDaE1cxWRvbrY5Wy
89XVA2w4Klo0UTWtj+osufOaI2z4HpjyYX6NAXoVa183/coGxr+esQxNA1Re
59+6fYwNlrvG5k6aGeB8acyBnf+yIX58Xv7ZfgP8w2bv2jrDwb86sTgaYICd
Gc5FjL+ceO90bmjEGmDXUGe2PBcB0hfl3x99bIALWLR5iYcAXamNrEeVBtj6
j34sm5+Ag29Dwz8RBnj1ndaT7DUEZMD3PtXfBkg7ZfHIX4yAIG6LXy9WUJF+
ejjJQIqAnjGTJntRKjofpiR+lSXAbdRtakqeil/Di3NSlAg4ntQUkKxDRT72
oUlQJ+CU8LVt69dT0VTXLXxIm4D6HwVefVupqCvd6xlkQMDLtR79IbZUXFh2
o3gVnYCPI+UPFVw4dhHGlVvrCRBuGyys8aGip57soMQmAtSSJ0Q8z1Gx4IdP
f6IZAcmKopX8EVQUDV4Vu8KCAAnPs6+fJVCRiMvlPr2TgFveFou296nIjzXW
bGsCorSKY2ZyqLj0M+Eyw56AazfmjqYWU9FIRSE/Zh8BlNNbr2MtFduc4HP/
AQJ6vXt+f+6gIs9gHEPdjYBvI8OP/umn4p7MwAIvDwJuLsu/bzhKxZ//6Xg+
8iJA/05IP3uaipdDCz1JPwJ2Ksa7XeQ2xLwsdjXfKQJksvS01IQM8XTJpkiD
swRI1aQzWmUMcb2vXYNNEAGDN9ZdDdA0RPFnDnG+oQRY5WySlGEYYqCdw0RY
OAFN3Ct+1JgZokYnbTr2KgGsxaElH2tDLB/NLEyKIqBrj8ZesQOGmOuiT0uJ
JYA9b/C97Jgh5qfoXr2RSMC8+d4KjzOGmLGr7XVkEod/zmSnYLghXlelvA+8
Q0Ar6a1UEmuIpu59f1zvE7AvRyrf7a4huoV0KJunE3BglXvQqmxD1CwOclfM
4ui5/HnYyyJDlKsybp59wsFnu1W7VBmirZXp4eanBISu/rSJv80QTdJvr08q
IOAiZk4VkYZ4Qtfo4IGXBARYrv7s8sUQ5cXaCJnXBMyK/bNm1aQhRrxdVsYq
I2DdyZsnXy0ZIrfLdqGYSgIM+VNWHRag4cvwn8MbawkQOLSqX0Cahv/GasCX
BgKevHL/9FqNhmyLP7R/WggAJRmVozQa2tvuatZuJ8DUNzdFBGj4LX9YsL6L
AFXxWLOKXTQcMnMR2M8kIHcPKvo60VBok1nnKMGp9+QWI6mjNAx8POpxpp+A
/BDxC/WnaEg0JTH/DBLw39KGqdMXaZiS66534SMBSZr0dMV/aOgTZntu+gsB
OQZRl9pTaHhQenOF73cCiliViSGPaJjtNCowME7AocNuvdqFNHxye+q45b8E
JMRPbSfLaei99uOPgilO/6bwjUW20HDAf22i2BwHr6heZcymIc/HkWOn/hJA
bPxQ+/kjDTPfH7vQ8h8B/ocrZ279oqHlttfd8twkJHvtd9q6yMnvV8OFEytI
OHPF7NskvxH2zPiElK4kIX3DyseZEkY4Jek2vLSaBAF380R7FSO0kNpeZCZE
wrByVM5yqhHuV3z896IoCXdHTk4UmRphovhobYk4Ccq7b7p6WBrhi8nD4mNS
JPxnGb1AcTRCWU3LPzKyJOTM/aqrP2KEvJ/Lz29XIOFbnvvrQH8jlAluuHdC
mYRdn8NYGiFGeCfX5kSiGgnFNp/kyesc/KzhTL4mCZOV1MToJCPMmNfY1KJD
QqA6r55phhF+LSJ2DemTIJXE+3v8uRG2srq1fxty8Azm4MMyI9ReGzeyRCfB
aofEjG2TEQZd8Q3mX09CnKw/nYdphLNFrxbXbCThoPC1u8XDRthJTT8lvJmE
59Hcmt4TRhj83GpQ0IwEvrmYfpm/RrjoWG3Nt5WE/Ib2knY+On4RmWxcsCBh
lfvp0nAKHZe3VNlNWJIwb6QyTFei41Dh1Mx7KxKsU2L1v+nRMSBy69v6PSTs
/OCSnmpCR4Jlm5tnR4L2zm0b9myn45xpblPsXhK6Vv6a5nag477HjfJ+TiT4
GQqxi93o2Bcv/NLiAAn61fb9PsfpKG5BxMu5kKB023+FwgU6qiu7lv5yI2Hq
rLhdzzU6JjR2r6tyJ+H7zFx15E06+rhYi8Z4klCT0O5gmkbHB519exy8SXgT
v2vVv0/pqLHcf1bKj4RHYuojWaV0nBX8JdR3goQfAuL9+xvoaHTeMC3lFAn1
GzpnhXroeMB3+rntGRLcVIQZ9YMcvuNjW1aeI0FOJu7mhTE6vqW8PlIWRELf
Oh4x6h86usEXim8ICZvt9Yo+r2CgvcWMq2QYCYp89QGpogyULHDcWRVOwtfc
SAdbBQaOfT7adzSCBB5b2l4+XQaWepyWWBnJ0aPu8tny9QzMnnjDkx3F8b+2
7lXANgaeLDuRtyWGhOoWIYq2HQMjcp4Jv48jQff8u8QhFwaq+l03OZlIgoyK
jn6KLwPflHEZcN8iYUjg17fd5xnoEs4/lZBMgqBSfzXPVQb+4Y2Ml71Dgvlk
4euyRAZGK+3hy0olYe4tve30AwZ+dNE6rP2ABMsDmktaeRx+1I6Mp2kk9FvZ
Wg+XMDBWYqxLJ5OEqvwzb27XMfBIk9xUdhYJzuBkbtPFwPDDU2uUnnD6z67m
G98HBvJe/62RksvRlwjKrfzOwGdJsVtXPSPhi7PF9XOzDM7/qudzIZ8E798/
ww14jPE56D/4WsjRww5SvgobY8m5gc+2LznzXLbY+FDOGEOlQy1Ki0k4tjQl
5qRtjAu7t9TLlZKwGPLzgvA6Y9xJ7D0WVsaZN4XXC03mxjhm0mv4oZyj16G1
d8JtjLGwv03LpIqEq0Yje0wOGeM9ne0ON2tIeKXRrzjpbYybq9YXj9Zx+tWc
ufppoDEahsc7bGokwUM8VfjoFWOsrNWlxzVz8s/7qy+fYIyJ/l+c+9+R4JNc
78m+Z4xlcpEtGu0kBH9sLEnIMcaNG9ujT3Zy9JfvVtpZbIxOWicfFneTUGj1
8tHyWmN8dkhCcL6X0x8/N2N5hzFOhLkSJmwSUrnMpwL7jXEuenBFEMn5byYS
q6ijxnj3h8Ldl+858R4uPvo+bYw/7z28Mz5Awv8AwJ2kng==
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJw1VXc4FW70R0YS2SUjcq89rnuvy0WdU4RKUgqltDSMhtK0S4mvWbaGWUbZ
I/vuUNk0rNCiqFA05Of3/J7f+8/7nuc55/M55/N53vdVO3x651EBPj6+OH4+
vv/d/28R8P9PbIvzAhqL8bbW+qPI7wgqxR+FkhfjwLuNUt18R8AuOe7fbn4C
Srbu9TIM9gbS0zevDggQ0Nq9X1t94SwQqw9frlhCwI26NllO9RdhMkui3kmI
gJ8l07P9r/jDjLfiZUsRAiZ8V1xCSguGVB+Kn58oASvS1i05NncVWCI3w/+J
EfDPueX6vF3XgZk8efi5BAFV943cpRWHwSCVv/GdFAE3DXDq7y6LgI+XN9rb
yBHQ8Ui79ciRSJDMtqqZXkVAIbGDdp9ro2Hr3a6cMSUC7vP7qeoQHgs+/WqP
tdQW8a3bg2fK4iB6dPZoMZGAuowtY70Dt8BE58OBYB0CTkweqvosHA/FcJmQ
bEhA5s0toZqGCSD09bTJLJWApaESWkFOiXDDYFr+rhkBg3X+1H70T4KsrDbz
cCSgLGPojlNmMnRcK1aotSbgDZrSSSYvBU6nua4hbyOgyfkgeZXxVFhpNVk5
4UhAM6Ufzw4vvwPpsorWE3sJKN4hIHZD/y4oyp8wIB0moPMBubuB2+5B3JaT
Lyo8CLhX916ypfd9aHaUCQjwIWByJ5/RB6t0MF/WefvGZQIOP9d1WtqVDs69
k+7tIQQ8T12wCD2YAaHpNbg3goAXNUMknCYy4LxBm6/6bQKmiz5WvHI5E/7y
ttrp3iFgkXXAwBfBLJialZT0ySHgA+vhmfyYLEjZ90d4pnDRz6PpOiUK2WC8
SflC2RMC3mzVOf03MxvC1WfTC1kE1Fu55024bg6EZhY2v3u+mH9bscCpLAf6
dlgZ7X656N/m1TYHzR7Aro6nKxeGCXjqvLVZNuMBPPKIqBv+QsDBHDeaqvVD
aF/i4PZ3loCC249Jd7Y8hLM+geb2S4hY2yfVUmWfC7v/brnVK0FEuqZWQFtH
LvBTP6THryZi6I43p1buyoOs6ZycMA0iFryWForuyYOhNP2hQjIRp0brnho5
5YNbYHykKBBxdaTgQf7efIi+EjGRuJWIv5Tikv7sKoDnz69sdHJZxFuodl7T
VQCN0o+fWx8l4qhOVa6XwyOYueneevwsEStfvigeev4IdobNRzwJIqKp4ZWy
K7aPQcBS1MY0ioi6DxIlLdiP4fLAcdsPqUT8nh9iqb6uEA41H+xl5hJR2Wrj
iGFlIYxFV9NbKon4gfLoziGDIsj91VL3j0PEad1Q8yc5RaBUG1/g1kXEwM2d
bQoSxSAY1eY4NkzEgfy4t2O2xVA0NC947xsRNVIsnO2uFcM2VT9J/wUiCp7r
2bShvhi+Z4U3X5XQwIVtNU1NP4thzPLA9RJlDXT4ZS48algCO56Q0kT0NTDj
HM0g9kQJDNabu4daaKD8bP7l9vQSGJZpN9e000ByratO9qsS2HzAOeirqwau
CveIEJMshYoF1+h+Lw2sMJv+LGxTCuqj0S0TfhpYa1aVmxhQCh/dnyetjdTA
rpVVarVlpUC0Ut135Y4GUs0HGnzHSkG2oSlo5pEG2rRlT7JVyoD50vRkbL0G
HhtmE/Mcy+D3iELctlYNbOO9HCTcLIMHm+326g5pYGWLTKpJXRmcz/9I1/6m
gYI6U/3DX8vgzg6zLGt+Tdzp9tGIoF4OHSubxK5Ja6Jc9Uqthd3lEFxi+3lA
XROrt61wPHezHPov5tQ6GWviC03/LSE15TBR/nPui7Umvmoez9P+Ug7X/YLV
0l00Uf1rqORJ5QookCmqOO2pia8jOlXt7CsgaomMqau/JvL++gc/DawAXt0+
/cPRmijvK/tqqLACbv5wVgpN10T+iy87EwYrIKH8QxSjVBOHr/urjItXwoz8
3+UruYv8bfOeAxaVUN+TqBH2UhM/TxzzPONVCStv1XpIjmvildTs9qyUSjCZ
OHW89K8mkl2cHC89rYRBn6JS7xVaeOpfRt7kTCVE7jr9dv1aLbyrLBopsrYK
1q2IDtMy1kImCcvZ9lXgPtCB2rZaWBktMqDuVwU+SsMP0FULG1cIs7QeVoFg
grnTqVNaeH1vzpquzirIKKZMlIRooezzr6Xq/6rg5v2PYmIJWtg8eZquqP0E
xM6a7bqcq4XF56R8ahyfwDWtFx5/a7VQPnPJKoHAJ7Ckfvb77TYt3GB098vU
wyewTZt1G0a1MCl4w+OojifQ7DUw+++nFvao2azq+v0E2FF3mjqWaWNk/tBn
tno1rH88UVKloo25DL4PB+2qYftyx0PFZG10dbbn5PtWw4xm//Vaa23cJyVs
lXmnGoivVNpf7dVG5/rParacaki/QpoSOa2Nj0doq+9+roZVOvfv217TxizH
kE8Z0jUwJuAVlZqkjSdqK22c6TVQfGHBZ75AG2eVhabqD9TAyyI9IR+GNh7A
1vTe6zUgKazG96NbG498S1meWVADtaGHlcPHtJF/reiEakcNTF1rWqX/TxuL
3jTPOf6sAcHd54veSuug3/B/780Va+GvQPv9LE2dxfv98/hrqIVOzcC88xY6
+GvhDkXfvRZKe/dHOe3QwQTW3G+Tm7XwOi1I3PqYDpZ47z/9u6AWXG6pTlj6
6aDgvSk831YLSrHZ37bH6mCTzSOVvKlaOH0idsAjRwflPllWJsrVwepNoVfi
anQwczu5fL1pHfjL02J4bTp47nMeO2NvHfiu9n639L0OVkXGRTP86+DklVlL
l986+Dg3qD7tXh2c4Cu6VL5CF0GscpbCqAOpUQ97ZaIucn8qj4YP18FY7u+4
W2a6yCqwItwTqIcda3WkZB10MdTRxc1HvR4CrpSmZhzVRefNRIqgVT2oHTD7
Z+ani/11MpbO7vVQvd5h+dtYXezNI+p7hdaD9d2jibEPdDFN9Uc0ZteDVVDL
Kbs6XbzRVyr4il0PnPHcEzKduiinTNQmj9aDfSCfy/uPurit60HCdoEG8FbO
lGLNL+b/1RghqTVAUqmuV56MHopv0crphQbYJSxonqathy/mGec2uDWASoGT
SxLoISykDvv4N8DX+RVpd3fr4TRhJvhEagPQzF/3PfbSQ/+ieyPEJw3AeCg7
8zRED3Wn+RPzexrgzIvX9Z+T9FDHQFF7dqoBDj37LqNQqIcFYYFayyUbwam6
q2M7Rw/daC5rxvUaoU85oyvmjR7ynp1MitvcCAoX1/589U0PhzLWKCw51ghv
e9jyuiL6aO/hqQtXGyE7Ik7mhrI+lvR8crS+1whq76jPxij6WHmsR16hphH2
LnxTctqij2Zbl89W9TRCcu79Ty0H9TFlv/gF9e+NYLitUML2oj6eVVwQNRBm
QOr86jMvovSxTbdXs0SGAe1BPpN7s/WRUGrjqKjGAHufJq9vNfpoUXO0xduA
AZWXGlqiOvQxqzqlJcecATk3Lk6SP+njlqc5sTxbBhwkptYM/dNH/b4cl7bd
DLB8aScTL2eAZTJSbozDDPC+RhnYrmeAX/hr+1JOMyDgm/e8tKUBlv7uFtvn
zwCtbbF7BvYYoN3Jr5oi4QzQ4eW/LDxjgBbr/5xIS2BAvPY6t7AwA1yvsVVE
IZMBk4n07mP3DHBQNsEsuJABshb8atsqDFAncZreUcOAMJXDembPDRDNP5ov
f8qApm/xg/qjBrhByOWCURcDqqfNVLV+GyCpM1FlwxADbo66vtGSMsTmZ24e
5p8ZoPjtyE9DLUPc9bI3QnWWATcYam7rwBC/Cd+u/CbAhIgQzh8HJ0M8J5a4
5pEEE4r/va72PGmIdQ92zu1czYQOrt21iFBDDFV5fPY9kQk/dx22LE4zxH+F
fxuPGDFBcmf1+75SQ3SaXy7VasGEjOc2TuIthlgeviaRYMuE3pt7QqyGDbFa
dSLwuCMTpHdFO4bMGSKf3cPfiW5M2G70pX9YhIQ85i+TMg8mqLjWt1+XIaFr
l9jROl8mtPKW+OutIaHQm5Ci0iAmqJ4q6unRIeHLzECrxAgmeBzt7Q6hkfDC
q2yH4wlM6F5Tfoa0kYTXvVbxaaQzIasqN314Gwm5c0GBnflMcDUz3Zewh4Sp
+sKz3hVMYM2Jpm09SkIzHdf4H41MuP/m4y5BHxK+GK4I9m5hwsrK+pBGfxKq
X+p539HNhNL8ZIWAmySEuwITxCEmNAU9kF0XT0LKB8nGE2NM8BY29lq4T8Jk
9YOhqdNMSA8skeMUkNCrYsC9dp4JXQsPl/9XtThfv9DNZyIsSHzHst3FXuRf
+l72mRQLPOgtrDVtJHykrkCuUWTBbYOscxNvSLhhoFMohciC+cjtu+o/kPDa
RG/FcUMW/NCf2B8zRULNvUHHNegsaD5fEX7kHwkvV9ZBz0YW6HX8bacvM8LU
gyuP+NqxwNmYrC8tb4RSdcU/ljixoC1zMOmLmhHKelgphh5gwYv87GXN+kY4
fkl7duYECzRnIegh3Qgv3Xd85HSWBYzu0K9hm4zQ99Cu/Xl+LDjBOLDbc4cR
3oZ9ehOhLBD92Z1vv98IFwbNzddGs2CjAN841cMINxgcLbBNYsF6Jxlx5fNG
GBH25e7BdBZUDThLiIQYYUBbOMUzjwW0JL1PU5FGuDkuJfJoKQtOGggnvE02
wtCVKs07a1nwIPnUivZsI3wWwlhK5rCAXCa4k1lshI9ednguecGC0VE/5/I6
I3ReZSfxtGexv9q01XlNRqhn0yUVMMiC1BRIvN9thMfPV94mfmTBHUcnbtJb
Iyxv+lbC+MqC7r7hzLgvRtgdqBNhP8eCzM8/taPmjFB5sprexseGvsK63RGC
ZNxyLXtgoygbps94q4VLkvFt7f1beVJs4GzdcTNciYx7VaTPL1nNBoVXT6//
p7UYG8hmOKxlQ9rQOrkYKhmVDviQ43TYECBJJscjGR0E8qy4ZDZEllJepdqR
UYj6deqLGRue7h8RyHIh4yWOvstSSzacKZ14/MidjOIqQjErt7IhWFqup+oM
GfdovyhZ7ciG0H2avhx/MooYJL6RcmVD20OBsM6bZOQWa6vPH2aDqEC86Eg8
GVW3i+X0e7JB0uDl7FQ6GV8lXb5cfJYNYu6924Qek9Fu+FT1pSuL9dL5IgrV
ZExXygwwvsoGn8xLagZc8uL7EDb4IZwN0qYXkqw6yLhdfudMZBwbnl95d3Tf
ABkDRaZ7NVPY0L5HOvz8GBn/vlO8V5XOhugu1/mYH2S8Wbj+kEUuG1Y0aDcW
8FNwti7apLKIDZtiv7c0iVOw4Rq/KbFqcT49Y+WPChSUdNh+ObyBDW8KrpYK
a1AwUmhGapTLhoc6vmGaZArmvDJcRX7BhncJRcmb11PQSXhp5oVuNsRf/jDi
vYWCE+E23OI+Nqxq7zkc50RBw/agpLcjbPDq3CRXdZiCLicWv5NxNtg0i84O
nKIgf5ngPbXvbNAfWhAU9qOgRvTev+Q5NlhNS1oYhlFwfqFuv9kCG5ROklL2
3KbgrcGHvSbCHLCQ2qdw/T4Fv5w/5KcrzoGA3rTqkgIKNur+OSAnywF6Hf/F
oSoKotrO5B+rOWCakWcvwaHg+c4Vps/VOOCtWL1ufTsF5cvzd6ZocWCPw4EN
p/spWNh67M8+Qw7YtXY7ZXyi4AkXp00raYv1x1z9umco6Ga317LJggMOwusf
LeWnogOf+tIzlhzYkdD+YZ04FcWekB5IbOHAydbTWr4KVHQx6TbMduDAF+WQ
UwVEKsbuMKwiOXPAI/Bs5agRFT9fNLYv38+BUqeaeaX1VCRueiRs6M6BrS4v
NzhvoaLqUr2pdE8OBLs5BN9youI1O9W1y3w4oGpfXtl6mIr9B5seel7kQMOP
lBGx01T06zeJZwVwIGzyPv8WPyoqrnWekwrlQEmAt1R4GBU9hkffuURw4MiF
xyuab1PxTJKPZ1IsB8yUVv0WTafiyeWeKS8SOWAr7NG69REVrdrFr/65w4FY
AfeI6CdU5K/0paplLfL/7tLt5FDxvV00Y30eB671RBTLd1Bxqcta2q4iDrQe
OiS/b4CKtps6sg9VcECaZuKaOUZF/QxZpeO1HNidMuU/9oOKIxFQ4M7kwOSJ
4MtGAsZ4khh0aO/TRX0WuuyvSBgjeWnfNtsXHOAqfvzNXm2Mo4+Ngwy6OKDf
XO0noWmM4cN2guKvOaBis7NtD8UYuTo1n0cHF/X+XjedA8boazptWfaOA9W6
yz9ObTXGiM1bFP3GOdC2yeUhuhijWcJkkPk3Duz0bCTHuBtjaMmXoJkfHDh1
42jY4BljVJ4z0H7whwM8qm+WQYAxFo4HhDvwc2Fn7urrQeHGSEgILpwW5kJG
UpROR4Ixrv5alxOznAsuWiK31DONcb9Fsj9Bmgv6fbzqC4XGOObpjKUruaB8
SSq9pcYYY3zW/DNV5oLwH5LlmqfGmF/wg/VkLReSgn0zfLuMMYPKSDPS4sIl
Cqm6ZcgYaRutE7L0uTBJr7+p9sUYtQNIdRIULuRkXZa4PGeM7ntElc+ZcuGt
c5NthyANhb3XcdrXceHTEimajhQNe5mKDZqWXOgSZXRfU6ahBKVX/pItFwJO
W6sPatPQuirkDXMbFz68UFCl02gYXyUvJ+TIhQYsb47fSMPmAz6dG1y4sMUp
XuW7PQ1/T+5QubSfC+cWLJTtXWmYIbxfMPcwF6jBxpyC4zTsmVOM7TjOBdpB
UellvjQckJt/PuPNhSeutkIewYv8c448qbNcyN51405TJA3T2vaEaV3kwoKl
a69WCg1PPdJXpPtz4azukZLwHBpuauqOtAxZ1FNkvd7nEhqmt5p9tLnBhZ+N
MZu2NdBwjEA2tv6PC6eV+f4WtdAwm+Qbsj6WC/eemNnLvKRhyd2MXlLCol+T
k2YXR2lom7URlFO5kN7Vxuj7SsMYm6fcJfe58IcYP4h/aXgiK8z3XRYXYjf8
vPVgqQlWEzi7G3O5sFemvH+5nAlOtuWci3/MBQ3xmJpzaibYGLz+1ZFSLkQo
2On26Zughk54lH4VFwRiy/QtzUzwgpzn3e+1XLDQjmMUWJugtlqRVDGDC5nT
ZSOyjib4e37FzAkuFwRtJ28FHljE9zKwV2rhgneDXPsnLxPMv5Co3dLKBZL6
khTHSyZoU9wQc7aLC4ret740hC7yey+NkHu16O/jzGaduEW8341qZf1c2CMl
b5h01wTvDyod3DrMBVZzh6JgvglSlm60H3zPBbFlDdE+lSZIF1//w2ucC0p/
uDeGWCb4w03MbWaSC99KXgrYt5mga0hs3MVpLrwjvuOv71ucD9OTf8xywUBz
6KreJxMsePfL79RfLvjtbgy9M2OC0x6brUb4eJAuHygszm+KpcWavx2EeBAZ
tVIkUNwU7UpXP6gR5YF1XMT1rwqmGF2W4LBGggey2a+CD2mY4q8Lv/iDpHnQ
Oi4010U2RfeT8azX8jxAgsK4NZhi9cfMVENFHjDSFZ1qtpriyKbtt4LX8KCD
rmBu4LJYr1la8lydB782qyZnuptib1onn6wWDwqyN3iv9DHFG3YPwpz0eOAY
HVsZGWCKD4qk7ONJPLhUvvaCQIQpilE+ub6g8kBcQzL/UqIp7vX48oSfzoO2
red2fM00RQat3dtoHQ94b094HSsyxTV/qUH7NvDg0/iK2YFaU8xmFcxe3cQD
Tln49O4mU7x2rGIgezMPPJi/DrR2m+Igg2XK2rY4T9t1c5thU5TqpEr27eCB
1tPd1xkTpmg/vs/r6+5FvWpuW5j9NsVznf47FvbwIKvP62C5MB3nZ3jNy9x4
8PzC8m8GMnRMDXXrkzrMg8nPOeN5a+h4Mds5SvYYDyRyPbcT9ejYHl31QdqT
B6MqMcoZpnScqfGdXH6KB1GczbuUN9FxbMnFAoGzPDgm0jWVsoOOti+SCDPn
eTCy+eicvBsd/9PKPDh8mQfh/Rbu8Z50TPu181hLAA+E55KMpS/Scb/iHoui
EB44VFV6xV6jI/Pq7rGY6zwYlOoTWhFLxz+H+855h/PgX4/tkug7i/1uPzNi
FcUDg6xNR8Tz6DhxINJcIY4Hme9WEaMq6GjqkHp9LJ4H3GdituIsOkZkz/Iq
knnQv8XjWVQrHZc1zwgF3uFBzYrAQok+OgZRemw3pvPgRmDyt5iPi3jX2hIE
snkQ/WhpnNQMHYeyxacbHvLAzFU15jafGQ6NPzp2sYAHgtPkcTlxMxSjNvzU
LeLB1cCEjGQFM8wRsc7rL+VBTM69ckUNMzxZbhEaXsmD/wFr6HD3
       
       "]]}}, {}, {}, {}, {}}, {{}, {{}, {}, 
     {RGBColor[0, 1, 0], PointSize[0.011111111111111112`], AbsoluteThickness[
      1.6], LineBox[CompressedData["
1:eJwtl2k0FW60xqlMFRpkKIoIUWcenHOwtzQoFJJSkTKEVChJKopmQxQlM5nn
gzMJ/5QolUiliCISGohk7Lp33ffLu37rWfvdz7P3p1fj0HEb1zliYmJR4mJi
/3v/+7+zHsX+/3xuU9qtIkZAmXS5tgdfEHZdpu9zneXsPZay0V+sYP3VNukv
s7xLJ1fJ284etuaw9saIE1BN6VZfb7cT1G0ibAmYQ8DPmzeboaor1OuZ1UbO
JaADKbCLYOsBGeP1da3zCNi4p/dc4o2j4LooG2wlCZhSVhTA+ewNPaMxK+ZI
E/BXuafyzilfeLNFzKxLhoDywWorFyj5QZSuYtHIAgIGCmgr7Mn+4K73woAl
R8DExqlCinkAvC7vfVa0iIBP2qWvhbsEwrOvo2Z7lhKQe/CW54Fz50Cjx/U2
RZGAb8606iTFBEFDcnCYsQoBV4eUtSS/DYbj80/JnVUloJ5uxR/Vrgvwnuc8
2r9qNs/g9VCT7xdhY9v+5Tc0CdjsXnVb+m8I5It8bffrELDLO27b0TmX4OeR
ytOO+gR8NZ741nPhZYiadNkbRSTgIQtV/6llVyCtO/fZCJWARi5Vp9VWXQW7
N7/vXjUgYMQuOeZTnWvwtLEp2sKIgAfujqlOEq+DdpBcKG4g4A1V04xC5g24
3lnOcNlCwJwFcvs6jcNAtFLjBN+CgN6rOR+ubgoHNYG4GNuGgHvCOxozzSPg
aa1X2sBuAuYb3J+gWUfCwou9as8dCEgzvRujpH8Tzo8cpbU5E3BBsVGaWcFN
ENVezVT2JOC8xiVJ+sQoWEbfQQ31JmDbAZfwquIocNQ/fVfNn4CRZ9TP/yNH
g6aba/SXc7P7qPx7ZZAbDQU8YntrKAGPZV14HkK9BVusSokTNwhYqbHD/1Hp
LdDVSNhkdouA0SBXlUO9Dc/Jvm9q7s3uwyDhE630NlhJZsZ4pM3uL3v5WmdK
DBROJ3AMcwnYoCw+SCmJgcbcykA2l4ADn/WvphFj4YLmWRkXEQELjve5FRfE
wkUTtzuCGgIm/JqZ3Kt/ByaaiO+YDQTcf0FYm5J9B94UVQV8fk1A4qc+i+A1
d6G4lkEsbydgML9X62/qXZAYkcji9hCwMCJmQHJlHFxt/Rn5/gcBQ30ct+bF
xcHgCZW7a/8SkOy4bqhb4R5I5ikcTRMn4usbrilFkfdgKmWgwnQBEXfc61op
Oz8eGr/qk2WXEXF+VbfxZEg8LL00dHpmJRHvjM/9eHo6HoT1Q8ZKa4kodlrv
U+ipBKj9fYmwm0rE8OVnWCt/JsDWgvLhSiMirrGEL6aHE6Hd1IRhbkbElbT2
npGORJgR5qXP2BDReEupJckuCfQSNva8cyDiTa9F9NHnSaCbTM54607E/MxF
1RtMk0EocTp84gQR93pcVVYWJsOx5xJmpkFE7No5wmErpYB4vOh88XUi+u2O
isizToHgM95tJrFEPHO8NrvzRgoE7pgnPZZKRF39j9S3tSmgquxY2FhAxIlG
/seIfylw8vvp0w1CItZx+HtkWKmgXO+5qL+WiBZ7i/Zt8k2FAikvdf1mIrYx
3qRuyEuFiMoOm4gOIgq5Bf1iX1IhQLTLZukAEXf1TY4HqaZByoH4p8IxIhqZ
Ft2ptk2DeyrtJTiHhDO2TZHVYWngnjDVUyZNQtNjJ7hBj9NgrdSkHUuehLfm
Jrz+N5kGfLeGDy+WkVC7h9oA1HSwfh+2xVeVhO5Wv0+CZzqs2xR2QluThH8/
by+eSUmHDcOb6f1rSVh3zMXp3Lt0mJQ66lxJIqHas69HKmTvw9cf3S3JTBIu
C5KvFJjeB5k79U5RxiR8cPGCiV/AfVif7tMRtYmEWV+g/1fhfSgJ8FmTakFC
jZCYPP0v9wE4d2Wrd5JwtG7OuTUqGfAvefTYwF4Slvrq2XdYZkB9xQcN7UOz
/U9WGdldzIBHOW0zxzxI2NztpR/OywAV9aaOWm8SnpV8sSakPwMMBt/f0ztN
QssgC6rBykxg7dm/MDGIhPvjVB3yrTOhP0BKVu0KCZ1Eq4o6QzNhjVfLqdwI
Ei6cfsts5mfCD18prU2xs3nGdkiH9mfCxHzyz8FEEmLBEtqoahZo9RBKUzNI
GC2Qb1qzIwvcXq4zdy4gYX1SxNiyC1nwJzQjmlxOQoaTak0td5bPOLsurCTh
VaMzlvQvWeB/5ULy78ckfM4LE7gsywbty0fUvj4n4UTtNi3bzdlwtLejordl
dj52BaVz/bNhn97A7uF2Ev75m3TjRFY2yNoNv5TpIeGztoHm9HfZsNAqZ2bd
dxISp8nc21I5sIKqXLtvlISb7zft3MzMgTXR98Rip0l4enlHt8AtB24Xdka2
SZAxNFvu5mBMDjSl9luvkyMj7V3Rlc+Pc4BxZon2VUUyxo3cnrzzOweULOYM
/lhJxs6PMisXrc4FQ6YwxEmHjFvlaldvs8oFr4PXX7QTyaj/+73x5vO5YNmr
mutsQMazl/Ky5+XnAr3yyMQIktFLt/POpfezekxt8s2tZLz2Ysemp5J54Jn9
PJBhQ8ZXDuIDjdQ80Lh0yrt3LxkTDys8jnPKg32vFjilOJPRerFooU54HozN
6Kx38SLjAivdOaeFeVAiJRSR/cjofyiiK6wnDz7I/huQPk/GnAiZ766L82GV
RNj9b5fJOLr63sG5RvnwcLtp/etIMqoLlS+4uudDlpU9p+4uGb+I9MPDbuXD
DcmdXY9SyVimY1R/uiofbodLpD3NJePTe95+et/yoSE35kBrKRnP3IxrTV1a
ABEW/mK/HpAxop/M6DQqgONSRz0XPSFjMNfqddfhAqiMuBLCaiTje+XU0fyo
Avipu4ZypJWMfcX23UYVBbBdfWh/xmcydn2ldsd8KYBFpO7+r/1kzOI5G5bL
FoLmD+NHlBEyDodFMhIYhdBHvvXi0jQZk/zqVcwPFILOaeHQJ0kKWvpeJNRc
KQTLjW+UNi6ioKdceKV4cSF4BO3ULVKhYLDOwkXzWwuhqeXbgtWaFFQc8D7e
9q8Q+hfG5iWso6Cy9Ik1p3SKYIFb4q+VDArGL51/9sP2ImgcuPE4Gyh4bNXh
SulTRdD/nLqYvZWC4xd+UMUTi6CmKP+/ZhsKSr8k6z1+VAQfJXZW+u6n4PD4
t37r/iLY71g3pOJGQY8Pp512SRdDFv+7Wf1xCl4aSQ48vKIYDr8aLDgXQMFz
dB+vA4RiGPVfv5AdQsEYj7N7jEyK4VCH/Y7pMAo6PdztKm5bDNpf9jvXxVKw
wT1RkOdWDHyPg7S7KRRkUb75GwYUw0RSU+HxXAoKdr2tL71RDPU2dtWWZRQ0
M51+tTipGGI2vLWhVFHQ5OpQuV1xMdh4+tmp1VNQqg4SL9YUQ5rtbb5cMwXf
/nckP6alGAKPNDpLtlNQz+eH9M3eYmBvnTGb10tBYzat1efvrL/51F3Svyho
uzoeOPNL4HOy8NSSCQpaaPi4DK4ogRWrlRJWz6Mi+/zwkUvrS6BeS6bMQI6K
Ww3NAiWhBMIWXCqwVabinDuX+cetSiD6AN//1GoqqoTnbXp4sATmac+dk7SO
iukBidsmfWd1prhhA4OK+yrWDqiFloBEXNCyGaSiucdci7UxJdDZEnyeYU7F
SYWaKLXMEiDZcQ6f3EVFTtynTxO8Egh/rPwf/wAVY0crHB7WlQDjYHmAmCcV
lzCi1/m0lsBd187Q7SepeNXtgs/8byUweii2OfU8FZ9FXbYKHy8B3/T5thNX
qfio4ez3cRkuHA9LmNh9i4q5m1W9rJZzwWhOO1+USMVk3/GfN/W4AC+unFud
TcUandCECjYXnMTCjSK5VJT7IBnzahsXJA9K9otVzvK7jKnGvVw48orj519H
xV9hjn+Enlw4zEttGm6iYsUHyYyIM1x4eLR1yLedivYeFvrbr3OhuySvfqyX
iltky/L+xnFhhdySrReGqFhEijOLyOHCzu3r3OSnqHh403oteSEXbIY2Lk2T
pGGfsb9TYD0XfBIaTVmLaTi1dOeq1++48PGm+0DLChqmbfG5qPiVC/tWt0yf
1Kbh4gC7vE1/uBBNnDmmQqbh64m9FU4SpdAcP06p4dDwhHfu68MKpeDx7J/R
8c00LPE1XbZPsxQCVniHqlvTUIY9lsKmlIKlZ+PEm300JO/wuCNpUgrG4XUx
kW405JrIq1TvKIX577S3WfrQcMSZtNnFsRQq4zoXyp+l4dzwHuM/XrN6ntTr
lss0PNeprOkXWArk/ndRSVE0fBJzacnna6VgX5dn7JVAQ+PX/HXsu6Xg/lys
0SiLhrJnFkYFZ5aCnc4pg6VcGg5IlDiWlZXCKP259+CD2XxH0sve1JSC/tIv
R5/W0fD9eEnJl1elULCmek1uMw0JmwNPfu4oBYXi8xERH2l4aOmxFc8HS+HE
IeekU300zDN9+vj+RCnYfn9ufug3Db0a4iOOSJfBolhWuPUMDfdkP45VVyyD
+8832W+UoePDtuGJR5pl8KYmL5OtQEcf94zWXeQyeDjP1Iu2io4fd+pbvjUu
gwdLxFLJenSk5ab7bbIog6yp3xwKnY75l6aPpduXge+MOY2BdMxQ/rvrl1sZ
qK60vmBkTsfLotVb1p0sg8/PDi83s6Pj4bF2x90XyqDpnPzYroN0XJ5mJ/SJ
KIN7+7rkDnvR8V9fpG9gfBnkvbttH+hPx24v+8yT2WVwbc/oy+iLs/722no7
lJeB38cBt4JwOqZcGh6g15SBaUaASsNdOu67coo287IMXN4KOgbS6aj38bcL
r60MTHTbC+WL6CiYv+OuY99s/nDCRYaIjlBp9O3PSBl4fFpi7VRLx/Zfm32D
xMvBOmKuQvirWV3pkeVf2XIQ2xL96EEbHR2xPebg8nJQyTu852cvHc9ujHCp
0C6HC1MbGrSG6cj9mflagloO1Y3jCg7TdPxDeDKFUA4nqvwJd6UZeMjYcdzL
vBy6llcteruUgW9bS7uu7S6HpPvdZYqrGNjo3tF0x7kc6MYKCnv1GOjCru+M
PV4Ovek3dVLoDAwsJKy5ElgOAZqFfX3IwMpjaSL3K+UwYfvWimbBwLnpVwSc
W+UQ03LZ/uJuBlJ0FJliyeWwa9pqqvkQAy/W2G/n5ZbD5P33FO1jDFx8gKLo
yCuH0tbWP4EBDBRtsM0ce1gOTfdUNrSEMtDLzEwx5EU5+KQGyBFvMtB8udc5
sfez+RW/7QqLn9W9hoePfymH9XaeSwYzGbjLoDu86Wc5HChbbLydy8CBvytc
10yWwzhb4jW3koEjvTsij0jyQOH42QaVpww0ZEhr3l/MgxSF/zRCWhg4YXOf
0ajKA5vfa1/96GRg16q9nwZ1eOCSoNW0f4CBwTQGY5rCAzJZf9WLPwxsWqG6
XcyYB6l6T8tgDhODbj0x+mPGA0eNe2Flskw0aahb3rmTB72xW1P1VZi46/61
CZHj7PvV0d/vazExc8hy+JoHDybM0UudxMROPkHJ4iQPGhjrlJM4TIw/uvK8
eBAPPCJgUG0LE/UM+zi513ggY+rbnWzDRCkkuW6+zYNlI8/+ajoysfbpCbm3
STw4XuWok+vBxNYkGQv7HB5ELLD2pPgxMZK9mvKqlAe6B18/eBDMRGP5+hZ2
FQ/KyGuWbw1jIr2uc0tcPQ/8C26de3dntv6SbvJAMw8cbgd0HU5nYrGu4Q/y
Rx64SsPGiUImJl2NNPP6yoNqJ/ukCBET34l8H94b4kH49LZBrSdMfGy92Kty
kgemqulrK5uYqJvku69Fgg/c/Gnr3R+Z2PAzIK1Tng8p2nMP/u5jounb3p2d
KnxY6ORuEzXCRP7BXRdfa/Lhn/MPDbKYAWo7G+OD9Xz4s/VQQ/MCA5QrGEuO
Y/Lhl2zitlNKBrh/Z1npERM+DLuHxK/QNMCqgdBwijkf6LkSohqCATq82A0/
bPnw7uaqtCNsA0y0Gv+Q5MgHJe3WHYqbDTBdTsF3ozsf1O6aVNdYz+rqZMVO
Hz5sXxYw6O1ggIOOgtZjgXxQz858re5hgC3Jv579DuXDyaXT3s0nDfDQn3/T
RyNmuUj436VgAzz6a+Dixzt86N+sVc0OM8ANb+I8N6TyQWs0wn3ojgH+7npZ
m5DLB5xnJ8xJN0C/MFLGYCkf5jzvLHAuMsAc3kYVSiUfNKISNqyqMMDIUR/K
0Sd8EHeVPNn+xAB/1f8TS2rkQ59EqnF8swFqvVeMedzKh/zq8aR9HQY4Rnk4
8+kzHxossqLU+g1QFNJv+bt/dl78rUs/jxrgR1un6MnffPhhdF09U5yFJlua
28an+LCOtILnJcvCb5bNrB8SAjj4jv+KpsJCpW8tFa1yAvhsp3V0RouF1k5k
H6GSAMg31199SmKh45SGx011AchL5ayMNWQh0eQx12GtANprT653MWOhpI6K
gwZFAN4b/EuotiwM2Cnh38YWAJgmZ81zYqGFjbV8mKkAhh53L3x3hIVXX+TQ
qBYCMPtk2pHrz8Lc2uTRV7YCOFP8RDk4hIXznmY7uToI4CErUGgXycJQ/VWh
v1wF4Gd1upIQz8Ipww3HfI8JwDq4XUM6i4W2wYz1A6cEwBx50d3FZaH3Z4nG
vUECWO94Rqy6ioWaA8kHH14RwH+din4Jz1j4ZOr98MqbAhAOdxoHvmXhzqDj
N0/cFYCyjcq+fV0stFk+x6w6ZbZft2yd4Q8WLutT0ZmTI4D4FPngVROznLuG
Y1gigCsX/EPmSrLx7tSZqKNCAdx3y3jZt5iNf6/ZMWMfCsBlrtiBRjU2Zhq1
s3hPBSD9dITMX8tGtr9S5osmAbxvGtuYQmfjKsPJq+3vBRD1PCTmugkb/3gc
+tn1WQAyfSoapyzZSOqT7/30TQAbq016Dtmzsa21MODt0Gy/Tdc6rVzZOO9Z
M+/RuACCS0Nl0YeNIz1jOdniQvjp+9KLdI6NqBly4JKMEBoWSk1qXGPj4Mma
bvvFQlBQfFOuEMPGw+ODG7RVhHBSreeedCobF+lpXutXF4Jq3Les6Xw23pY5
XpOpK5z9X9z78FswyzaPJ/aShMD8xCMNPGZjSIaYsZSBENzPiWd3v2LjDt7A
nTwQglB+o/HHdjYKA5gKZluEwL9uOfSuj43+NsFV7duFcOLgcNXrkdl6I8s0
D7tZv34LM16JcfDejHzDDwchtEoHpr5cyEFFizUbvVyF4JmzmvtCmYNREy3K
XV5CiF3zveWFFgfn6trYWp0UgtWZp1KNJA72u1WI8wOFoPU4z6zJkIPBfcvX
KYYIYYwYHtNixkHZLLeOo9eFMDpwZLDVloO6N4M1q6KE8EDZ3LzDiYPCAoak
VJwQKkWU4i9eHLy0wzTKLEUID/OIKoOnOfiHatl4MUsIOWE7Q0dCOZhW/PVZ
eaEQHPhlP6dvcrDkQ3TE53IhfCMds5dO5OCBwgotyUoh/BefXL00h4Nk5oM7
mo+FYKl3VF29nIOneG1DrAYhXIj6F7D+IQcrnm032toshPLJkGecFxx0jmWG
Wr8XQu6k/iLz9xyM7sl4ZfNJCLyg9Vv39XDwvO2ddZZfhaBSW3PCa4iDq/zG
UvGHEALN9SLOT3PQaCSZvX5UCCn1mbFRMoYoqNojtnRKCDTVoBsZywxxvXbr
1NAcEbwxnfEUaRhimMQj1jMZEajvOEF9td4QxXry/4tfJAIVW3J3L8sQH6op
x7spieC6c+TpmU2G+Gbar1lvpQhSz/UNKdoYIgxoe/dpiUBwOd6S5GiIBZfP
nEvWF4Ge4YLr2zwNkfWyaK4VRQQua5MyXE8Z4nwcXTBhIIJliVVJFy4a4tSk
e3IiiMAv6cOJpAhDjO1RrmNvFkFll7Pmg3uGeLl2TliThQiqaxrzPmQaYoOn
wtjBnSKIJd1ZMME1xJQG/cWD9iK4VsAwWV5tiIbaSt3HnUQwBQRzToMhdqnH
+H13E0GUh7iuwztD9Oy3bXI5KgJnNebboO5Zv/Z/Zt6cEMEBnr1t+k9D5MjO
lzI5M5vn+5+UuklDvH998XBGsAiim5JFg1JG6O4QVD/vigiSK/qSlygYYQed
H+0QLoJFZh47WOpGaColZ198SwQ+Fg/qnNYZYbL2M83pOBHUvAySumZghOCu
OWmaIoKcKVtZ7kYjZBmZfg3NFEH+6k/v2qyMMLpp46/qfBHkpte7SjoYYY0u
feUoVwRbfwnKyR5GKMtZGqAlFMGt845PHPyMcGzxK+nt1SKoeOgRe/2CES7u
2f7Gp1YEHRoRWoJwI7xId+2NbBDB/wChwYeZ
       "]]}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["y", TraditionalForm], 
    FormBox["py", TraditionalForm]},
  AxesOrigin->{4.7193654431116645`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{
  3.768227416800727*^9},ExpressionUUID->"70f8bf07-33aa-45b9-85e5-\
dd65875cd444"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{808, 696},
WindowMargins->{{236, Automatic}, {Automatic, 50}},
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 141, 2, 30, "Input",ExpressionUUID->"0969f764-a2e2-4495-825b-c3c7e3b9ff16"],
Cell[CellGroupData[{
Cell[724, 26, 596, 18, 30, "Input",ExpressionUUID->"e543de1f-06bd-479a-9fbe-0cb6e6962b02"],
Cell[1323, 46, 1416, 45, 73, "Output",ExpressionUUID->"f6ff5cc2-05dd-4996-87d5-818a638b1a24"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2776, 96, 1944, 56, 103, "Input",ExpressionUUID->"7f9b9687-91d6-4d20-a6f8-e44153372b71"],
Cell[4723, 154, 424, 10, 42, "Message",ExpressionUUID->"f2d97b61-4cbd-4777-b9f2-f5af06fb947d"],
Cell[5150, 166, 419, 9, 42, "Message",ExpressionUUID->"d8cac1ca-5323-441d-8f73-7a6a743a5e42"],
Cell[5572, 177, 422, 10, 42, "Message",ExpressionUUID->"9f1ae279-9a4c-404f-8eae-66f82f36c5d1"],
Cell[5997, 189, 420, 9, 24, "Message",ExpressionUUID->"ada4d452-d4d7-45da-9fdd-6d19c72ad756"],
Cell[6420, 200, 3781, 123, 227, "Output",ExpressionUUID->"406e2520-2cde-448d-88a8-6587fb24c501"]
}, Open  ]],
Cell[10216, 326, 163, 3, 30, "Input",ExpressionUUID->"ac1565f5-0ea4-4916-bb67-ad6223cc633d"],
Cell[CellGroupData[{
Cell[10404, 333, 1036, 34, 75, "Input",ExpressionUUID->"601c707d-020e-49a1-bfec-951bf9c8e474"],
Cell[11443, 369, 422, 14, 76, "Output",ExpressionUUID->"73ec9aae-eefa-4158-9689-bef1e6f21bd2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11902, 388, 9088, 245, 759, "Input",ExpressionUUID->"a7331946-02cb-4944-94d2-6d52516aa801"],
Cell[CellGroupData[{
Cell[21015, 637, 17768, 312, 250, "Print",ExpressionUUID->"9225d6c4-2851-4455-966f-88283e92aac9"],
Cell[38786, 951, 18108, 317, 245, "Print",ExpressionUUID->"375efecc-8215-4264-b094-e3a173bee3c7"],
Cell[56897, 1270, 26590, 456, 244, "Print",ExpressionUUID->"042050ee-f9ad-4340-84b1-81d823ad2a33"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[83536, 1732, 9238, 247, 759, "Input",ExpressionUUID->"1ad77a14-16a7-4530-86ff-195ed3453a94"],
Cell[CellGroupData[{
Cell[92799, 1983, 17142, 302, 241, "Print",ExpressionUUID->"370e4ae6-f103-42cc-885d-1e6fc3443410"],
Cell[109944, 2287, 18506, 325, 242, "Print",ExpressionUUID->"6971046a-32d2-4157-91c6-4d30ee5d4f13"],
Cell[128453, 2614, 25757, 443, 240, "Print",ExpressionUUID->"ca21f638-c553-4a6a-b27e-ef203bdd6862"]
}, Open  ]]
}, Open  ]],
Cell[154237, 3061, 234, 5, 30, "Input",ExpressionUUID->"6ad12263-ba6d-4be0-ad4e-277118529b10"],
Cell[CellGroupData[{
Cell[154496, 3070, 1010, 34, 75, "Input",ExpressionUUID->"a726c872-1a16-46a2-8e88-983255767838"],
Cell[155509, 3106, 430, 15, 76, "Output",ExpressionUUID->"2e950e23-cd07-4735-893e-b501769a00bd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155976, 3126, 9170, 246, 759, "Input",ExpressionUUID->"376494a4-9642-4846-8522-8a5025cbfe7c"],
Cell[CellGroupData[{
Cell[165171, 3376, 17562, 309, 235, "Print",ExpressionUUID->"84f5193e-514f-4aa9-8ece-1fb2972b1c26"],
Cell[182736, 3687, 18209, 320, 245, "Print",ExpressionUUID->"15152a69-38b1-424e-af20-fbabe5325630"],
Cell[200948, 4009, 26592, 457, 253, "Print",ExpressionUUID->"97f6bdd6-0010-45fe-a842-042843539624"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[227589, 4472, 9222, 247, 759, "Input",ExpressionUUID->"1951de73-0e2a-45a6-827d-1802f2a687f4"],
Cell[CellGroupData[{
Cell[236836, 4723, 17924, 315, 239, "Print",ExpressionUUID->"5b1544a2-2d7c-4ee9-b052-f885c57d4f7b"],
Cell[254763, 5040, 18442, 324, 234, "Print",ExpressionUUID->"b128ae3e-a5c3-493f-91b5-5d8ba8e60d20"],
Cell[273208, 5366, 26269, 452, 240, "Print",ExpressionUUID->"8068fd2e-1180-47c4-ab20-db535f055650"]
}, Open  ]]
}, Open  ]],
Cell[299504, 5822, 283, 6, 30, "Input",ExpressionUUID->"6e497114-9819-4e4a-adf2-b7278821fe44"],
Cell[CellGroupData[{
Cell[299812, 5832, 1006, 32, 75, "Input",ExpressionUUID->"6e4b1fde-8e6c-46ed-b5f7-7963d9c38d98"],
Cell[300821, 5866, 452, 15, 76, "Output",ExpressionUUID->"3121d7a2-8ee1-4714-a6ac-9311c6ee244f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[301310, 5886, 9198, 246, 759, "Input",ExpressionUUID->"050e5dd7-bb71-4b67-bed2-93dd89bc80b4"],
Cell[CellGroupData[{
Cell[310533, 6136, 18092, 317, 237, "Print",ExpressionUUID->"e14d5570-6edf-4cba-969c-8080111dd7c1"],
Cell[328628, 6455, 17775, 312, 245, "Print",ExpressionUUID->"04e6de98-6dae-4fe9-ab78-dd45457eaad2"],
Cell[346406, 6769, 26253, 452, 253, "Print",ExpressionUUID->"4af3a77b-8a2b-42a8-89b0-abb0c0103ce4"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[372708, 7227, 9250, 247, 759, "Input",ExpressionUUID->"74da18eb-991b-475b-8c77-0803e35c22e0"],
Cell[CellGroupData[{
Cell[381983, 7478, 18583, 326, 235, "Print",ExpressionUUID->"57c10064-2054-40b7-be53-e8f847c47104"],
Cell[400569, 7806, 16863, 300, 233, "Print",ExpressionUUID->"030580b0-b7c7-4abb-a87c-167719b27386"],
Cell[417435, 8108, 24447, 424, 241, "Print",ExpressionUUID->"0cdbb500-5e8a-4fa3-99fd-f56cf1e3b5be"]
}, Open  ]]
}, Open  ]],
Cell[441909, 8536, 331, 6, 30, "Input",ExpressionUUID->"2b4fc2ea-df7d-4423-b8ae-a6b72dd98b8e"],
Cell[CellGroupData[{
Cell[442265, 8546, 1027, 32, 75, "Input",ExpressionUUID->"5d9e9eb3-e888-4eb2-806e-83051708d6e3"],
Cell[443295, 8580, 446, 14, 76, "Output",ExpressionUUID->"92e93f27-6b2a-4e85-a743-7cfaae6e6cba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[443778, 8599, 9218, 246, 759, "Input",ExpressionUUID->"cfb0b290-eeac-46c6-ac55-055739872a89"],
Cell[CellGroupData[{
Cell[453021, 8849, 17869, 314, 250, "Print",ExpressionUUID->"daf5b314-707b-40ce-846a-469588d48670"],
Cell[470893, 9165, 17994, 316, 245, "Print",ExpressionUUID->"55ac04ff-3f3d-4243-9d5f-6322c8cc6b0d"],
Cell[488890, 9483, 26666, 458, 244, "Print",ExpressionUUID->"36f30f7f-2a0f-4937-b91f-0bfeabc1fd2b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[515605, 9947, 9265, 246, 759, "Input",ExpressionUUID->"6887fd03-2631-4e34-90c1-a93db1de36e0"],
Cell[CellGroupData[{
Cell[524895, 10197, 17901, 315, 250, "Print",ExpressionUUID->"990c18d6-94eb-40a7-9e5a-08e57c1a9395"],
Cell[542799, 10514, 17964, 315, 249, "Print",ExpressionUUID->"f374ff47-38e3-4b45-a3c7-d7bb109152d8"],
Cell[560766, 10831, 26665, 458, 247, "Print",ExpressionUUID->"70f8bf07-33aa-45b9-85e5-dd65875cd444"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)