README.nb

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

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

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    427387,       8374]
NotebookOptionsPosition[    419098,       8237]
NotebookOutlinePosition[    419490,       8253]
CellTagsIndexPosition[    419447,       8250]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
s-curve-beta: Efficient Python implementation of the smoothest S-curve robot \
motion planner ever\
\>", "Title",
 CellChangeTimes->{{3.876426830130887*^9, 3.876426834237083*^9}, {
  3.876466882776988*^9, 3.8764668843286457`*^9}, {3.876473017692429*^9, 
  3.876473018236402*^9}, {3.876474251178877*^9, 3.8764742627031307`*^9}, {
  3.8764745066288433`*^9, 3.8764745094420853`*^9}, {3.876489604788558*^9, 
  3.8764896069870863`*^9}, {3.876493973235075*^9, 
  3.876493990454947*^9}},ExpressionUUID->"0365b06c-745a-4547-a2e4-\
ae4413524abb"],

Cell["\<\
1. It\[CloseCurlyQuote]s 2022 and you\[CloseCurlyQuote]re still using a \
trapezoid motion profile?
2. Your robot is vibrating like a vacuum machine?
3. Tired of the mess in the code because of the multiple piecewise time \
regions?
4. Want a simple single-formula smooth motion profile?\
\>", "Text",
 CellChangeTimes->{
  3.876489614029393*^9},ExpressionUUID->"d3756276-5e39-449e-bf97-\
36faf53bef22"],

Cell["If you answer \[OpenCurlyDoubleQuote]yes\[CloseCurlyDoubleQuote] to any \
of the above, read on.", "Text",
 CellChangeTimes->{
  3.8764896198631277`*^9},ExpressionUUID->"5cc7324f-6d37-4f25-be27-\
de7a93c069a2"],

Cell["\<\
Based on the answer of Cuye Waldman \
(https://math.stackexchange.com/a/2403818) I present this Python package to \
calculate the S-curve for the robot motion planning with a given maximum \
velocity and acceleration with a single formula.\
\>", "Text",
 CellChangeTimes->{{3.8764742898774443`*^9, 3.876474322630554*^9}, {
   3.8764743543183527`*^9, 3.876474368452612*^9}, 
   3.876489626081716*^9},ExpressionUUID->"fd60b6bd-e8fe-42d6-9a08-\
2e051362802c"],

Cell["Here is the complete motion formula:", "Text",
 CellChangeTimes->{{3.876489635359808*^9, 
  3.8764896394731693`*^9}},ExpressionUUID->"c29a99d2-4395-4873-a971-\
360dcefc7240"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "p_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", "2"], 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{
      RowBox[{"RealSign", "[", "x", "]"}], "*", 
      FractionBox[
       RowBox[{"Beta", "[", 
        RowBox[{
         RowBox[{"x", "^", "2"}], ",", 
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"p", "+", "1"}]}], "]"}], 
       RowBox[{"Beta", "[", 
        RowBox[{
         RowBox[{"1", "/", "2"}], ",", 
         RowBox[{"p", "+", "1"}]}], "]"}]]}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"motionTime", "[", 
   RowBox[{"robotVmax_", ",", "robotAmax_", ",", "motionRange_"}], "]"}], ":=", 
  RowBox[{"Max", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"2", "*", 
       SuperscriptBox["3", 
        RowBox[{"3", "/", "4"}]], " "}], 
      SqrtBox["\[Pi]"]], "*", 
     SqrtBox[
      FractionBox["motionRange", "robotAmax"]]}], ",", 
    FractionBox[
     RowBox[{"32", " ", "motionRange"}], 
     RowBox[{"5", " ", "\[Pi]", " ", "robotVmax"}]]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"position", "[", 
   RowBox[{"t_", ",", "robotVmax_", ",", "robotAmax_", ",", "motionRange_"}], 
   "]"}], ":=", 
  RowBox[{"motionRange", "*", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"2", "t"}], 
       RowBox[{"motionTime", "[", 
        RowBox[{"robotVmax", ",", "robotAmax", ",", "motionRange"}], "]"}]], 
      "-", "1"}], ",", "2.5"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.876466895958542*^9, 3.876466983147256*^9}, {
   3.876467193853772*^9, 3.876467197420228*^9}, 3.8764676123520517`*^9, {
   3.876489768165517*^9, 
   3.8764897718833857`*^9}},ExpressionUUID->"698b4204-04a7-43e1-9695-\
e4462e712941"],

Cell["Let\[CloseCurlyQuote]s make some plots.", "Text",
 CellChangeTimes->{{3.876489770998453*^9, 
  3.876489779828198*^9}},ExpressionUUID->"a7fb1c76-0643-411a-8c39-\
a9a10c712b0a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"generatePlot", "[", 
   RowBox[{"vmax_", ",", "amax_", ",", "range_", ",", "label_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"tMax", ",", "text"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"tMax", "=", 
        RowBox[{"motionTime", "[", 
         RowBox[{"vmax", ",", "amax", ",", "range"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"text", "=", 
        RowBox[{"\"\<(t, \>\"", "~~", 
         RowBox[{"ToString", "[", "vmax", "]"}], "~~", "\"\<, \>\"", "~~", 
         RowBox[{"ToString", "[", "amax", "]"}], "~~", "\"\<, \>\"", "~~", 
         RowBox[{"ToString", "[", "range", "]"}], "~~", "\"\<)\>\""}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Text", "[", "label", "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"position", "[", 
         RowBox[{"x", ",", "vmax", ",", "amax", ",", "range"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "tMax"}], "}"}], ",", 
        RowBox[{"ImageSize", "->", "400"}], ",", 
        RowBox[{"AxesLabel", "->", 
         RowBox[{"{", 
          RowBox[{"\"\<t\>\"", ",", "\"\<\>\""}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Epilog", "->", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"ColorData", "[", 
             RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}], 
            "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
           RowBox[{"PointSize", "[", "Large", "]"}], ",", 
           RowBox[{"Point", "[", 
            RowBox[{"{", 
             RowBox[{"tMax", ",", "range"}], "}"}], "]"}], ",", 
           "\[IndentingNewLine]", "Black", ",", "\[IndentingNewLine]", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"\"\<motionTime = \>\"", "~~", 
              RowBox[{"ToString", "[", 
               RowBox[{"N", "[", "tMax", "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"tMax", ",", 
               RowBox[{"range", "-", "0.05"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}]}], "]"}]}], 
          "\[IndentingNewLine]", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{"Evaluate", "@", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"position", "[", 
              RowBox[{"x", ",", "vmax", ",", "amax", ",", "range"}], "]"}], 
             ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "i"}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", "tMax"}], "}"}], ",", 
        RowBox[{"ImageSize", "->", "400"}], ",", 
        RowBox[{"PlotStyle", "->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"ColorData", "[", 
            RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}], 
           "\[LeftDoubleBracket]", 
           RowBox[{"2", ";;"}], "\[RightDoubleBracket]"}], ")"}]}], ",", 
        RowBox[{"AxesLabel", "->", 
         RowBox[{"{", 
          RowBox[{"\"\<t\>\"", ",", "\"\<\>\""}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Epilog", "->", 
         RowBox[{"{", 
          RowBox[{"Dashed", ",", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"ColorData", "[", 
               RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}], 
              "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"InfiniteLine", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "amax"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ",", 
             RowBox[{"Text", "[", 
              RowBox[{
               RowBox[{"\"\<maximum acceleration =\>\"", "~~", 
                RowBox[{"ToString", "[", "amax", "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"0", ",", "amax"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1"}], ",", 
                 RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"ColorData", "[", 
               RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}], 
              "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"InfiniteLine", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "vmax"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ",", 
             RowBox[{"Text", "[", 
              RowBox[{
               RowBox[{"\"\<maximum velocity =\>\"", "~~", 
                RowBox[{"ToString", "[", "vmax", "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"tMax", ",", "vmax"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"-", "1"}]}], "}"}]}], "]"}]}], 
            "\[IndentingNewLine]", "}"}]}], "}"}]}]}], "\[IndentingNewLine]", 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"ColorData", "[", 
          RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}], 
         "\[LeftDoubleBracket]", 
         RowBox[{";;", "4"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "~~", "text"}], "&"}], "/@", 
         RowBox[{"{", 
          RowBox[{
          "\"\<position pos\>\"", ",", "\"\<velocity pos'\>\"", ",", 
           "\"\<acceleration pos''\>\"", ",", "\"\<jerk pos'''\>\""}], 
          "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.876485641551496*^9, 3.876485693884836*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"2deca0c2-8aa2-41eb-8ea8-e03898a5215b"],

Cell["Here are 2 examples of motion planning with motionRange=2:", "Text",
 CellChangeTimes->{{3.876489751831093*^9, 
  3.876489757460464*^9}},ExpressionUUID->"2bf13387-f57e-43f5-871b-\
fb917dd0dccb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"generatePlot", "[", 
      RowBox[{
      "3", ",", "10", ",", "2", ",", 
       "\"\<Example of motion where motionTime\\nis limited by max velocity\>\
\""}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"generatePlot", "[", 
      RowBox[{
      "3", ",", "4", ",", "2", ",", 
       "\"\<Example of motion where motionTime\\nis limited by max \
acceleration\>\""}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8764786215311937`*^9, 3.876478766948141*^9}, {
   3.8764788016109133`*^9, 3.8764788468746367`*^9}, {3.8764815880150137`*^9, 
   3.8764816542460203`*^9}, {3.876484110714589*^9, 3.876484429126606*^9}, {
   3.8764844644691257`*^9, 3.8764845472559977`*^9}, {3.876484610011456*^9, 
   3.87648463975775*^9}, {3.876484680066813*^9, 3.87648468759245*^9}, {
   3.876484788713483*^9, 3.876484898846274*^9}, {3.876485019108128*^9, 
   3.876485056251244*^9}, {3.876485154852666*^9, 3.876485325384033*^9}, {
   3.8764853967716703`*^9, 3.8764854012096167`*^9}, {3.8764854345244923`*^9, 
   3.8764854375138187`*^9}, {3.8764854691359777`*^9, 3.876485527916924*^9}, {
   3.876485582283012*^9, 3.876485622602337*^9}, 3.876485671658914*^9, {
   3.876485702408095*^9, 3.876485777619166*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"065b3396-6044-4133-97ea-dcc92ffb30ca"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     InterpretationBox[Cell[BoxData[
       FormBox["\<\"Example of motion where motionTime\\nis limited by max \
velocity\"\>", TextForm]], "InlineText",ExpressionUUID->
       "8813b1ca-4068-4bbd-8a07-260f32a7340b"],
      Text["Example of motion where motionTime\nis limited by max velocity"]], 
     InterpretationBox[Cell[BoxData[
       FormBox["\<\"Example of motion where motionTime\\nis limited by max \
acceleration\"\>", TextForm]], "InlineText",ExpressionUUID->
       "f90356a5-64c0-4100-92eb-653df7ac6730"],
      Text[
      "Example of motion where motionTime\nis limited by max \
acceleration"]]},
    {
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwt1Ak0VWsbB/BdmYdIRcotRKZIRDjaj0KIZChRqaNUKtc8C0ck7uU41yzi
ZArJrA4ZjsySeSYkc4VbplC+99z17bX22vu3/s/z7He971pb5Ka9ye3tGIZ1
o5vxvMCPfS97Z4lj/7+4q7oulxoQgPFOyis+xT1k2eljoP+fXxG+nTr3xebh
Bc+LDGuEy+/EuWdTeIgGVxlePJwuhts42xnTeKz+80qQMn7OiTNBw9OaYetv
htr4UcfMicbxuwxPGGma4NwO2nLGBg8YbtEStsTn7cbdB0rsGO7uXb+Nz7yu
GsvncWRYQanGHrdQJjO71joxfJBd0g1vLrkmrerpgkwqyGHxxQlKMhd+ybox
cvXvgwF4TvFP5+pxd4YzZWkhuNCJxrjHsZ4ME99eo+BhRTEVegbeyFR9Mb8o
/LfC7XHubT7IwroU03jcrlCRtbPEl2HLsrkkfHHfNn59JRLyWOVcdgqeaW4j
+YrHH3nxlJZpBk6Ma1PjmWMYE3N1z8YF+5XPO9Y+QqYQqoTz8E6BpBtdSQHI
5v4GRwvxvy4zOyl5BiLTdpvtKcHPxNoGxpo+Ru7nvn+ehm/0dsX8lA1CDr5B
Hn6LF/MTsq6yPWGshzxWX4XbmqW8rRhneCKsme0dLhbD3nqoIpgx33uDWIsP
9ziM+ceGIM+4F83X4+cvAfNZg7+RXRzzSlpwlugMgcwjoYx6WvBSG17ZzS3N
sS0MuTuGvawDd9vjqm47xLCNdHxCFy53cdiwtYSMXPj8HrUHn47UtJKnhCPf
PLnS1Ie33+tR1VOiMNZfUSk4iAdnqRu85PmHkZsIKozi1noOl4YfMiwXO/Z7
DNeYTb3OPcewlPKM1zj+U5LT0b42ApnwVxVtEu9txL2oxyORR7ulH07jhTZO
AR1JDK/OYBaz+P3MgWhFzyjkY9JqN7/hZ3W5k62nGJZz0KUs4KIzGpnRptGA
kW61//1tER+SyCxblY1BLgo+fvsHTmsYqpFMQMa2OxnQlvCouzwfLNhikRuu
+h9YwQ1euI2+HUcmtcls7v6JS+pkz3y9EIcs8Vw8ex1nmv747x8VDFvLyZts
4uVHtJlIsfHIH0m0gS1cNmO3lJZBApq3YUab3QExETdc0t4hkyLVhvczw2/f
l1VMqomAaazkFpuzQOtlTbM68WfIvyTLNthAWSv8uXgiMmm9JcCKA5Llh74+
5ksCjB6lRujhBAd254CzW8hYTVnB9E7oX65szXBNBoxKDwrW5AWNcY79rF+R
SUambft3QbClcf8tWyqy8FLtGB9YKM/aiVk8R/0iJ1tb+YF8NDzqYhQyNdmi
aFQA3okqlQW2MRwm4vVzH0jz+DNPaqcAJnw0+pLuAVif3peYrpCKcm7XFRlh
kBuprO75E1k+mKg5KAw3u62nmbOQSZQ7OWEi0EzPV7hzKA0wXkc2aabDkBCv
23SEKx312/IRFI5Ae/j8vJkOcr5GdhunBDAFRe158giZrrsm/0UCbJ3Gbkyv
IZP+cSt6KwXq+h4rLyYzAFucVpbPkAWH0weF+oVfoPk5Sin5cpB2svY02zVk
jV5CTPUx4BLjDbPpRKa8O5K/IQ8fN18clqrKBMymttn/iiLw/TivZ7GObGR9
gmVDEc7O/rALUcoCzMHgumTyCcjtgbLZl8j5PJ9cviuBb26fUXZcNmDBUgUe
9SpwiMjqK+OUA1hcwso/cgAriqeD7bOQaYPsT7YAWlm9I4rGkCdC74nd1wDf
vPkMwoVXgKlMbXuldRpGfve06R/NBWzNa4/1Lk143ckzGH4LOfQRV2KIJpAz
9Ca6niILbfGM79CCU4YVa1fZ8wBLY1HO+a0Fic/SRGynkCmT5+q4daBMZWFv
/858dB4sIz9jdCBDlOuAlzTy2JVUa1Fd8F3RFq+0Qh4OW10EPZBNKlU9245M
ciY5xehD6DfqTbNXBYCxjbbVXTECj76Ku2uNyEvm0mcKjcC6etD26QSyvLrZ
dk5jUI/e4z5yoBAw6dA75nRj+KIe/Pedv5AXG2+nqpnCuVD7Yre7RYDxNd1Z
sTcDZbfQ0n0ByBe9pyeGzUCUmFVZloRsthqgoX8Z1hU/N/7uQW784Kh31Byy
hsw+BmkVA8ZSPjK3ZQFsMjhLrEgJYJv53woXLOETT6lOrjqyEHMip9N1KFtS
DKm7jEwWVPqyfB0eVEpxLYUhf530E9tGhFbjvXzG68ic25Y/8VtBlMfXPzi7
XgOmrhq8YHML/rS8e0N0HtmmmWn69S04e2acqsr+BrA+jdwSZmtY5ew/bAPI
dVtuH9Ot4UpyjVTdS2Rhzvuei7dBpP6pkl8gDbAhNdHVPBtYz97rHpOMLD7t
sMx5DzrDKbRXZcgpAy9GbO5BoEUQYXgR+ZtBuZv4fZj56nha1bIUMKLW5mjW
A8jdrXf+h1IZYOlJAdljdqBmtWp9d/otYPFpO6+xOoOyxZpbM1M5kDqdcb9z
zqBg/DNYVhQ5X+i9JtkZpE5v5Py4Vg4Yvl2gWMAF9olsLfl1ovx3qrKOgius
jrE8jquoANIZXGAyyB2+97PGbgwiE28f8O52h/l2tqzra8gNLz9WinrAFJ3j
g5hiJZA+b+WZVHtAL3Xn3oJM5MQfHNUsXlBM5E9viqwCUrw0p3XRQ8g3F3hz
tADZ3H/8OJcP5BjtawpvrQJMMK2w9LYPmAiHrWQz0QEzHNJe3+8Lerzh+x2B
DqQ54r2LZD9QWYy4+auYDnSxzrq/DPxBIP/p973UarQfAx92pASC72G6S8ur
atDgYH+22hsIEzGTK4/eVgPJq6jpLNdjKPSR31jorQb6+4kHa+6PwVC/fkcz
9zvAyu1ECkyDIHDq3z2+3sgnRu3KhILhXyG9k1NmNUD69NpUZfVvMKfYlSZa
1wDdxdlRSiUUKndEEUydakCjcQP8PEMhdG4E6GEozxvhu/IrFCRpLrpPa2sA
k2nw72Ynw3VTqoWhQi1o2P45yH2AAu9DVr1fc9cBNSzc7YddBNSyEKcihOqA
dIhcohkfAeUBjUb2MnXoe5tG3TURkOMTLy6pVwdj2szn3whGAtmR0BYfiPrD
fx0OaYwEIws/UZ8NVG+8cemRQjT0SLI2ac7WA7WJYLWiEget6faKwmv1QHr4
b2H6gzioF+1/tsnSANRzccVPk+LgtVCWU4lYAwgrYLZmzPEQx6svJEFE7ug+
LNgbD1fWyPYcfQ3oRGpkFgITYLSBn7+jthGIgoRDS/uSwfBM7kGbrkYYc6ht
CjdNhvJybYmtT41AV8u75UxOhqcFLiqyW42QT4/yCtlOBbOEzishqk2gcXK+
bMiLCi125OTTuciVfg+uOD0H2l4WqcLYZlg0b09R9UkFCcqz43oZzSB/ZkBb
MjkVYjiU1MaKm4FyZ4blVHUqOG/d0t/Z2Qz0Y1FiA8xpIDdb/ed9rvdA8c6O
/khJg7Ryn0JR//fgoPCEKJ6bDpRby4TI+y1A3RPsfpAlE2x6Ck4d82gBeqCr
r4l0Jmjo2MH7xy3of7zLKsswExakp8/seN4ClErJ2arYTDD83q/n3NcCGkG6
xv/IZAGnf/llU60PIEyKqGmzyIagpADn3QdbQZgzT5yzIwe8B3a9jOxog7iS
1le2/AUwcXFX9KWxNljslQhdlSsAw3ZeP4GFNuC1uOMdp1MAlM9Pss6ztAP9
xNU0Ic8CuDkY5NNxuB08vv2slftYAKyNgeID19vRfuhc8MsqBKNUkutMdzs4
rPg6rpkUw2cLj72s1R1A9D745N7cGzCI5Hgy19ABlBzW6WQWGrxuSVz70NoB
5l/OPZ0TpUEwVA9FDaN6PQG2iqs0OCrOkSK61gFGJWzXzFpp4LKYIIcf6wQH
PoMcyzelwPSkSsf1WSdI2p9c7op7C0eKWbw+e3YB78BXnaX4KjhZ4ZK2W7oH
eEXF9JYVa8FjTbMP2+qFNL+ld5eLmqBXuFAurLgf5EsvxxP828Da25/cSx4E
vkMJZIEzXVAdKF/sTByGmIyOhhquPiB4+/7O4xuBiBialfOnQZhMlTXOmh2F
+m0uH7gujULf8KkJavsYiNhbVgaNfIIu0t6095WfYHN5TeUUcQKUN4fPUjPH
gSKEFR5bnAKJ+R/etY8+w6OpymSHO7Nw3JOgpGM/AeU34j1lhL9Ck1cnSdBg
Epr9f6d+KJqHIxoNgiZvJuGATMbFq8sL8D/1tfjt
           "]], LineBox[CompressedData["
1:eJwl1Ak0Vlv/B3AapFKIUtJA41WphAzla0oyFC4qDTJmqN6S2y1FJA8aJSIy
ZEhJMiUVXRUa3jTc5JZUrjnE85xztiie8+7n/z9rnXXWZ+2z9vmd7/7tre7x
H0fvUVJSUs30ljwLji054/+wHX905zs7jhXia42Cx375Trxv32ljPiJCZIFK
bnJ3J6I3TrA/a8LCfMWm/fM+dKGwNuNUeiIH35hDai6PvqH62tFrWl8I1LZ+
d/2Q3A3HjxMy9Ef/QNej+Fn3BD0oV2oJ41cOwuzq6cBvHr1oCB7rEbNmCGO2
BOY9MfyON9OVNqus/IkvuTE+w/P70F2y3GnJwl+w3CcsPcn3QfuLTnPWwC/U
1kVFBfT2468JZy4UPRpGt8PqgTdeQvSsym439xtBznUNVdO3Qnxvy+t9PjgC
7bv3E1XeCVFa9jVq4q8RVNU4Tu2rF4I7ZpttMzKCxpYTCikfhFhYucX9qbQY
k2e1ypCvQlx20hDmTxDj0IUs9nqfEHlJ+uEr1MSwCp5fpyAngq76ylhVYzF6
bRaGNVuK8PeDodaTIWL4DLVcSbQSwfz865/rj4vRfC393kZrEexeDr0aHy7G
e+kZbIWdCDc9ZhfGnBTj4d2JPpedRFitHLYt+LQYsfNENo4eImjtuSCYc1mM
Vb8eqFSHiGB58MdfwSViBOc53M4tFWF/ZO2RE21iLLw3LSaiTAR74vp+aocY
755+8nArF6F4W82z3E4xlrZ7T1OpEGFpWsrhp91ifJ4THCJ4IkLcq3aZAaEY
JgmZNt5/i/BkkamOwogY48LYTg2hCE//iE81UuZReq78kVgkgm3onbLMqTx2
pYakNLJ0fs8LQbIqPMrvj9sU94PON1av+fUMHv5kZpk0L0JBQmDExjk8Xvlb
nGyexKDsK3ZM1OQR75wwN20Jg59bS+MExjz6zeduPLCMgcmlGe6V4GGtffOo
xXIG1criPsaEh7T8o4ZubQZPhubauJrz2Pes98xqQwZvXnYrqlrxsDKyGHpj
xWCU7FvznQ48fs1l3472YZDQUZUx7MHDRT6Ub9jNwDL+tJ2cF4/iEdlleX4M
Kriw56rePHwbZ0fb72XApA6v0NnNo/6itXFqEIOm+09ebgngUSCTmacXwSDw
uektv4M8PHrtI/wyGMRvN6m/dYJH3hEp+1mZDJL/1bsTHcGDkSlUe5vFIDqu
J8XjJI8Idfky/VwGrwy8jykJeGS71HWNK2CwaTD8kl8Mj86qDRuvPWDgu+1i
Yud5HnsSzGa0NjBYczVgltYVmr8G037pAwM15Qnp3dQjt68WWzcykFFM072W
yuPcCynb4s8Mmvn0LNV0Hrf5h6HhbQy8xvXGDl6l9fgZtc1haH185NyYXB5/
Guvc3j6Jherj4AypYjq+tFdfV55Fz9Gi5QXUe2ZmP56kyEJ+bU2lawn930Gl
hofKLObN0f5YWMrDtpgdnqvGYovp4ByHuzzmLiyxbtdkoXxsTKRHBY9nk7Q7
9lqxmDj36rG6Gh5mw9/+Y2nNYu44VcPttTwqu68OzbZlkTUQJtdNXfxUcdKb
TSz2d/czo57xuBIuWqW9mUVxpHnjby947CeF4QPeLMzmm5TYvuIx/fPyWccj
WGjONLna855HmL+cpX4ki/KChucuDTTPH137RAIWX1KeGDyiLpuSWeV5is73
uxxz8R8ezlbKXlYXWHDOLu9XfOQRVzKYp5jO4ozxxn6rJh4/Td6/e5HBoqzC
ruE6tfurouGITBaGDbsny37mseKb/8aBHBalYzyDqqlfz/4sasxn8XtJ1WLd
rzzkTj3Sz75Pv1f2q3LgXx5BKmnuOypY+OWIpGxbeHzKDj417SE9R31FaRnU
eX+taop+RPO5cL5vfSuPDSTn+N5nLILDG76fa+Mh2HWqVq+BxXBGxJC4g+6H
1b87PRex0OuuKQnooXlkkzdHWBbV1cQyn1pLMclOk7Bgo6Zt6qV27WmyPD3I
4uS2hCr/XtpP6T4GdjyL6NF/Grh/p/0vGzz7rRwHqcGICbr9PEL/UEsJn8yh
othfdy91QstDFW0FDuV15Es29eOK0YoXlTg0/+lbOEXIQ+3A2dHOqhyuLH+1
o4v69ceMrg+LOCjsWRNwjOHRYWnuHfMbh+T6C8/zqYdL2v81WMJhPLexsIl6
8TnNT8laHGxuBM4wYnmcMCut267LQVAfHsBQ6918WtxsxmGxaUuiDaH9N91/
+QULDtqDC2qDqD0j5fJNLTmsXpcqSKWOdXPIydzAIXZUctV36m6lT4le9hzy
E9jfYgZ4pB7rO9a1g0MWt21b/g9an/Xlsko3DsL+9S1vqbVmWAjj3DkU/3GW
HaCuunPZc603HScW5Rjk0dJnYR23h86fZ9r8X+pF7ikqa45y0JKfufX1EO3X
5ZYOiiEcWtUNW79Tl48IT3WEcsjYoTlG7ic935ItxbEnOFxbdXnSeuo970Rt
7TEcsq18nMqpi9ZZFZ9P4lAdNMYt+hftRyW2xyuZg6acWkkGtVlL6gLDKxx2
RrnnlVPXh7JJbekc1qhER3ZSD9xNO26Qy+GG/N3RpsM8jAUb7k2+waHFvVjg
Qh3lxDGteRysc34WB1BPF23wOVfAobY2ZEICtZEmsW29w8HwUfyLVuqTg+mC
8rsc9J1wa4D6Za111dl7HApTrTB+hMdOz4xV+pUceh8cDVpGHXbFRvVsNYdJ
KUH6gdQ1kzM79d5xUMna+Oo79c+jB6p662lejqz8rxHJfjK5nNnAwdb+4VRZ
Md3/T75aT27kcCd/yX516oOHZxW0N3P44KV8wIH6enuvIKWFw95nqW3bqb84
Vrg5tNE8AuXVfamtl21TrOzkcNF63I8QavWWpKD4Pg5vcX9RLrXLJl87ayEH
p7FDTCH1mYrVC6UYDkYJr0/fpx681PBPAOHQ9E/C4jrq1zbKRubDHFQPFs4W
Uo+516o0NEL/1+mjzyC14cKS3gKeQ1GOTrgUz+OalGOa6miC2fOfaylQh9w5
L82MJ8jdahayjLpYw60xdyJBPP/RR4e667xWyY5JBP66ixYZUTv513k9VyC4
aqWmZUW9ZM7EZxkq9H2Ffq9d1LvONGa4zCA4oFCq5EN9aejGEbmZBC2bE1MD
qEfVWy05PJtAO77N4hD1x2jBuU0LCN6Ji4Qx1JMHnHePXUQwJfdk1DlqC88F
Jg8WE8QWVY3EUReurRYtXEoQ1xd7KoW6I+/ii6ZlBJder8xMp1ab7pkVt5yA
CXBOyaKOYqSdxdoEiQb6OjepK9zeLivVIbAp4+sLqJmXGTL+egTy4a5bi6l3
5qL8vQGBm3n95HvUuttDZt4yIdB5LzasoT4Rs7Y5wYygbdSSLc+o35SNZIda
EFTd5F3+S71HMVTL3orgyeHtw2+o7xsbs/rWBPvGI/sdtewe8V11WwLP9tAV
DdTZtaGm7CaC8tN/DTZK6mGNZZocCGZOm6L3mdpEnX9R/TvBdA9v16/UTUeP
O13aTHB+To5rK7XmDcw4vpWgU7ZxdTv14Qb+8+5tBO1JGfQ45qG0Mmy3gRtB
9FQfm27J+uw0WarhTpAvyPq7h7rgtJRogifNL6V/3Xdq646w4CYfAg1tDbaf
OknJFDW+BIOCNVoiSd4m0mMK/AkeTq/bzEjySAk/e3wfwTT2+mFOksczU0ff
/TT/aLUDhHr2gLSKQyCBXaeL64Akn3mPPxkEEXxw69L5IcnH/kSGxiGC4Ftu
0oOSfELNvCceJvi7Z0OVxC43R2lyR+j4Oe3AIWrR2IiSmhCCxk3zi35SG68y
P1xwnKDynhF+UZ/ZNXptYjitf8K+xxI3nn0iHRZBsKJprdEw9eIHEbW+kQS7
OpbkSXyoy/y0QxRBXV+Z/Ah19dQx9oYxBB0Pt+2ReIp5tfK80zS/aQlVEu/a
f/LjxLMEXmmf5MSS/FIt0rhzBIUfcxwkHn4xxvNzLIGUiu95ia0HqxfVxhEY
74qvlThpQWRvQTxBkl/yD4k7HNcVJV4icD3eqcFT64SNPRSWRBAa2GEl8Ylb
NYZ+yQRfI3g/iV83RvIOVwgq7JIEEqvJWlYbphEcu6mULrG/rkzMvAwCk/S3
JRKXe9TayWUSTNVdXiOxTKxgCski0PIUvJPYqdLyn885dD07ln2VOLNb5kpt
LkGR2pEuiYUqT3fdvkHg9P5uv8TG66IWJN2k/a6uRyQ+E7i+O+wWge2MNUMS
N6aPu+13m+7X+EnDEi+ue3rQsYjAr/HbiMSHfkbpG5XQ9TGYyEs8xVn2sdxd
gmzn7v/zrdvRNl/u0/z+/zL5H0Ge0Zg=
           "]]},
         Annotation[#, "Charting`Private`Tag$6921#1"]& ], {}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{
        FormBox[
         TagBox["\"t\"", HoldForm], TraditionalForm], 
        FormBox[
         TagBox["\"\"", HoldForm], TraditionalForm]},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Epilog->{
        RGBColor[0.368417, 0.506779, 0.709798], 
        PointSize[Large], 
        PointBox[
         NCache[{Rational[64, 15]/Pi, 2}, {1.3581221810508404`, 2}]], 
        GrayLevel[0], 
        InsetBox[
         FormBox["\"motionTime = 1.35812\"", TraditionalForm], 
         NCache[{Rational[64, 15]/Pi, 1.95}, {1.3581221810508404`, 1.95}], 
         ImageScaled[{1, 1}]]},
      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,
      ImageSize->400,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotRange->
       NCache[{{0, Rational[64, 15]/Pi}, {0., 2.}}, {{
         0, 1.3581221810508404`}, {0., 2.}}],
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwt1Hk4VV0XAPCbTCGkXiLVdaMMZUrIcBYZriQhIVLmz/SZh2hwlSkZbkKG
ihcJyXTJJSFkSua5TGXK8JK4KdO37/t853n2c87vWWuvs/b6YwvZuBvZM+Bw
uF606G/9BO0nfou2GO7/T9SXOewZ8RzQv0mFpao7r7dsfYlG//q18qIqdTFU
VNDFgm61WGlOjMob7mdNtKF7+dgLYSxe/uOg3JDDv6aFyWOeJlzKrC4udNst
6mth+n6Xn33edKd70kDDCPvr48cgU6IX3W2aeEuM8fOitDrZh+7e/j/22Moc
11fxIT+6Zc/Uu2Pjf2QeHyAE0H1kj6gf1s5mrLntfAuZVJzPfBerEvBbm6Hc
ocdVVobvY3niSdldm0F055yiPsD0Do+8GiEE02319hoZ0xBxCzEi3kNOvyAc
FI8pndq51uRyHxmvQ76cjMmeIZ9RIYfQbVk59xwTUxXiLC4NRR6vnsvLwPBa
JdMiQ2HIy6qal7MxvosaNSlb4fT6wr7+eRjnld4nXIQHyGTlGnwhxmRp7xGi
HYlsFqx3sgTbtKPp/HZ+iEzdb3KgDPvpGi7kFhuFPLjX+SIVm/M5+OcrJRo5
4kbMl7fYxO3cbtPBGHo/MeONNdhgiNKrts1Y5MnoVtY6zLFx6n06mUyvf2vD
qgGz1ZWU/Ex4hDzrT/mnETM3qmE2IMYh+3gWlrVhJv0s3pFDdJtRI1Y7MENz
g7EGl8fIvYl7KrswvdGkCztbdDuKJ6f2YDo2E+VnyfHIJX87pfdhmtNiwj6E
BGQbBVrLAAbOXuSCUroH31XzD2PyXrudjg0l0uNG/LJjmCztQp+lyxNkySfj
2+PYqcB49aQtusXkZwO/YsL3RAT2EpKRlSNrqFMYntktjFhK91iv+O0ZTDDy
zUqwdgryr1nc1e/Y/jjiR5pzKrKUuJLNIsbJS1aQ2aJb0kOHvISxpQxmusQ+
BRzJtvPh4jLGkOF0e5zyDJkSIWP/E9sWKZkV0H6O8hm89Kir2O/cP8ZXBulu
sgg+RMOWix+eat1MQ/kdEpv7f2M0gTm9e8R05BN/i+T9wVavcd5PI9NtJylt
tIktjZssDRH+Rh4hUYd2sOnZmSZ9Ygaqt2FC/b4bOsr32MQlIpMeK30RYAJq
mMRm3xSyGq2g1IwZIoXdpS1DMpG3RCs3WMH7J7k1vQeZ9KftvjUbXKsrsZsk
ZAGuNl5JuY8dpKxoSS7vkXH1lcUznHBQ6uDpQu4XgEuvDYvQ4AaG7bOfVm4g
kwwudwjsg97UO7sCt+nGrzaM88DNAUbnCOWXaL+QQns7L1hnH2dsi0ROT7tK
GeMDXV+d51zDdEcLBf4+CIL7o7oTb+YADn8y4YrOIajV36/8oiwXxff60iTw
kHv4TN8sYx7gpCOsNIbxELdg4n7SGJlEdsiPFgK7yJRMygoytyerOOMx2NMo
xFEnlY/2u/Ioyx6HlXiNbKYg5CK1vA72E/DF1l7tfDtyrc669PwJKNiV69Pp
+hrVe+RHeSsGRqrSI6O5BYBbnpGXzj4FyhxG/oTfyNz5ZzKKJEH4s/c+B51C
NM9+5cT3UkC7Wa61OI1MrjtetCENF82PDmw9KgKcY0NrsPlpqFOXzkqrQDaw
k2PeOA3yYuqe6hPIHnrXRdPkAL9uwx4qXYz645rwWTkDKwnZwNGBHCFWfLNR
ERK7TuUIcFAAl5RKeyQJUJX5XVBQBpk6vCd8B+Cb74tHh02QJ6OchJ3VQFrg
8C18OrLi9K7XmurQasOhf1yuFHDrgQfs9mnAslxz3YmryFH3OJ4+0AA+lhAF
sbvIgjtcX3drgt2rDfzJZuQsZvn8bU3Y+Tn3U+ZaGTrflO6HvUQ43pjteDoY
WZp59HciEfSSbEbkspHHzTPtCDqQojLcqLCM/CX61zKcB7nQlmTVkDdovt4k
r8QL4MibA+fzywHHOtbxwdwAYmZtS3W7kFfNxM+VGEBZ5VExPRqytIoJA7sh
MNx4wnNJjQo48SgHs1pDePoybMq4F3m52T5T6TJ0Kto/tNqsABxPiwPN3QRo
bEI4G6FKwBnfmpn8YgKHR7742Gojm/y6r3bBFJyDja87kJGbP3meP2kGjK0a
Mq7CbwHHXDU6t3MVzloQBvz1qgC3WbRYsmQJRtZ//Go8kAWZnrJ7XQfX/3Tz
siQgx/CfmV+7Dune90wSR5AXpoKEd1kBa9TXvlK3d4Bj37U2wWsN/VUZvT/I
1YBTORux5GgLy3WBPmfLkB1bGWfe2AJbi9GB4CHkAbWCMiY7UO1jMOYm1ADu
w47fyAs7yFq06ZGkIOPZnQOW7eFs7L7vZc61gPusRPhV6AjacVvUodvIIjMe
a+xOYJTwPWIrBjlj6OWooxO4pr4X1aIgL+pV+Yk4Q/pLT8feDWQrzc2xXBdg
qe2aWYl6D7gXz+/njbtB3/KjaanCOsAlZ3FeY/EGQdM7l0bq6oDU7Y0F6XqD
3TtHamQ/cpHgR40Yb1h9AJFTWygfY+Ar5fMBnmOLp1L16oG0nSlPlPUFgys6
vsxzyOcwvqkwf0h6e3qUsoVsZX/oVq8/jAsdJVrvawBS06uRasJNcP9n7WCV
IvK3nUKj9zchJjyzyjMc+elPtvfMgdBWsb17RPgD6k+c3Y5yGw7g51wjFT8A
ySz4qwzHHbgW1tenoIfi/FklFfZ3YN4o/2WcN7L+Z60/AneBbeHqBZ06lD9n
5WQcEwTEI2VxlBuNUCvc/SFSLxjq7rkIRaY0oXkMfdqdEQK2109en8lvAjW2
Pc9+9YcAo9JiimZNE5ACKS3aHKGg9cPtwM63Jqj9OOmy7h8KzTe8WHxONQOu
yk2o+HIYfFIJWLSsRZYbc6sUjIBBWliFzHQLkCbeXFb89RACuom0mPUWqPXx
9hRTjAKBAtbTC2ytoNa8AUEBUWBhH5mfLdUKtYWjPOZbUTDaE512KKAVcBJN
wb17YmCyKD6UieMjqLn+d3jvITIsOWcYDsm0ASk61u+nWxy05tqcqNVqA6uj
MWUayXGQPUvYyr7ahv63adBbHwfXHTJzfILbYFyL6WI5/2Nos87a4epqg/TY
rWMPmh9Djln2a22PT5BuuHHlnmwCWGnn7SktaIf0FmVrmmISqIQ6j6XUtQPp
9o+SFy5JwNcgXhbcj+K6SaUpz5OgXf2V1aXtdsDL4lxNmJJBRTW/fO5iB+C7
eo/x9yfDQbkCe6HFDqiFeomlkFSY5R6yakroBDV+5aOrB9PQfUwyiUrrhFqP
hpbYy2nwzumEnmEuslKhrXdMGsTV+Sp8ruqEotr4wAcM6aDiw8O59K0TpBX+
qfwcmA6PBi685ZXtArXqIBdzr79B6Xn1Xw7tXTBu1plx9k4mZLXas0sMdoH0
uSEt0bRM4PrFsWt5ogtIDrPMqu8zYfKSxULAWhcUScULDzFlQeyu9bpowW4g
38pLGCFnwaSdjEeZczdYyYZbiRS8gGiJrFZGlh4gH4jwP8KcA1k88nlC3D1Q
FOJ710g8B6p+Nz3A+HvQfbzPOlc/B+aa5nVuSvQAqVr0e82THNC2O900f6kH
1MJ0DB9J5ML207r67qQe4CbF1XdczQN3zomqdPFewLMXirB35YPhj8OFKvp9
QC5rf+3KWwzMkVIWR8z6YLb/RNQvyWKoJKiz4Gz6gPWqw60kYjEQjO1u1Pv2
Qa2cRZZgQDGsvsnj0n3WBzcXfzdIjhRD0m0FD9OFPhA9R7wUlFsC4yyGMl6R
/eBBu+u5blQK7kdCKC8bB8Ds1pFwp7ly6PQknZ/oGABSPstMGjMVpD/cHhMY
GgCDed2UOQIVVlx82WPmkc/zsb6zoIJfhYOtD/cgKJaxXjNpp8Jd4/P71c0H
wYNHL9+yvAJiIjm9hxcHQdRdYa0n6S28piXJ7v1rGFiHFoiryTVwhNPTts/0
C3AThM+vnW6A+agzpZ0fRyE+aLXOlNICLha98C1yHIQrTJOVgzuASzikzL95
AriPpsbwnesBvai/QlRx34Cc3dVUzzEA/LrbsbhjkxCZSLX2nhiGeOURCcvr
U9C4y+cTx5UxSLu3n6k8ZBoE3S2rw0YnwHQL3PLqZ2B9bV1R1WoScvj0pTs2
ZyFKEFcitTwND8IpUj/wcxA0XZ3m4fAdDkpw1eRbzkPFjeQACfwCKAjXPbQP
XYBPwduZnyj/QGoQr9vmgUU4JJFtbLG2BP8DeyX3Bw==
           "]], LineBox[CompressedData["
1:eJwl1Qk0Vlv/B3CRlyRUKJIit0mhkhLXNykpURFCJSqFbq+QIooMoUSlVMaK
clFX5iRXJSISGeLKlHDNhWc653nOfz//96x11lmftc9ae/++e1Jz+a/VCVER
EZFu8gq/PaN7mADVUZwbyraxEp+ATWSP65eeMbT+OGJuwv+J9OaeNZliE7hu
KbUveuskfEUszxQ9mkBeZWpUSvwU5KnVh74Z/UTFk4tPtDqn4Z+aNxj8+Sfs
2qRSN4uxUeS06XfvM79QMr83iFnHQWm1q873GZNo9xd3iTTk4oaYxGePW5No
WjjfbsE6HvTsHm0y1p7CWJ72Ac3lFJ7Y/Pv7nTdT0O3U7X7MojD6h6a03tFp
VEhdv/niDQ1aR8nPZmoaExvSfpi48fH13flb0WEs/OzLHKnm8HFtNT9dLIKF
4sKuq7MpPoxuXnnpF8UCJ2BPmjmfj8dHortPxLCw+vVB56oZApzhPtIyus9C
0gH1iWwpAWZqf6oZy2Yh597mYB0VAdY90BDb18SCvtq6WGUjAaI8G7znLWOj
+RX3e2igAINhDcFHfmPDNKaet/OyAKYJDTGZK9iwquV+mhUsgGhlQ9a2NWw8
d1HNiQwVwG9R43evjWxskQ9y9L8mwKnKRusvO9nQOX0zfMl9AXaqNG2IO82G
mTf7b/88Mp4PLZMKhWx4hVX6XekToLqapXu7mA3raYdmhX4BbnxU9JV7xUa+
4/sPTwcEUKq35UiVs6GVnHChakgArZYWmqlm4+6nH/9hTQhwsK9FfOgbG1Ur
jHXl+AJki7QuKBPnoOZcXJKBPIOzouyDBpIcWF4qKHykwEBv5oIHxVIcFBy7
6SO5gMEbCTuVPFkO7orrddcrMWiRaV2aocRBzh2vEMslDEQWt666tZaD4i4c
nr2agY1+q4GrDQd8+/xb4UYMHAQZXa12HGy7q+T8GgyOvPMP2eXAwQd5wdiv
rQxcLVQ/rnHioJK71NzBhMEF5xMOk6c4+FI7NFfZjEFi5OSFoAAOZko2mBzZ
z6CvTbbwwWMO7vWXp9IuDAaTe+yln3BgFnfNQvo4g9FjefzADA7KpoKqlU8w
YI3a7nB+xsFUEq2je5KBpGhy04oiDrpL3tUe9GCwZvWayfwaDnyrjZ+5eTPw
9jfTqf9J6j20tenZFQbqY3GfFKc4SOzRK4gIYdDo3HP6CIuD67eGE1xCGazf
5f/nKI+DBv0TAfPDGUwsyFaXnsmFFSf4rlskg9MFsgq7FLlwd7wdPxBD6p1o
4b7dwgUeeizWSmSgeHzZPanfuVCVl0oZIn7f+l89K3Axa27yxidJDDT+lvTu
MeGih0l5rJzC4Hv0lhFmDxeuEiOxnIcMjmomdxo6cZHIhC2NfMrA3vXEu8IQ
LlTe+qeK5DLwrGyI0w7nYuTiC+3nxOHLjVwzIriY+/v71w55DPL7FWc9iOZC
Y8n6tpx8BnInP1gGxnNhb8xZsr+IwYeTmu0mWVwoBMwMcyllsMnt58TnRi6k
lz4MqHvPwLL68NtdzVyoSyhvOVTJ4PiqmttvW7lIYwVJDxHf+veRXn4HF15D
479EPzAYczsQEN/PRX6YSfuqGgZP3IskjvC42K6xNW/PJwYKpwNVh9V40Fy0
9eFwM4Ov/seH9DV4KHneUm3bwuBBpHlhxHIeuhLe6b8hVn2qZLlck4d8a+lf
t1sZLO8tCHTW5YFlY9us00bW88GxjlZTHq4bWY6bdTDguDZnLN/FQ1GpRUsG
ccm5Up9z5jwYtJyUkfzGwOh2lPT8fTwUzjzmU0Fs+mm5oaU9Dwfyyldu7GJg
t90pocKDh9xC6jWrh4GytenJ+Wd4cE//KbKnl0GH89oNLp48bD/1MzmV+Ohl
qobx4UHtZszYzu8MTpXE87Zc4iEguGX0Rh9Z7zqf7V/E8iBIDeEK+hncVzFe
mFxAzsmh93kew6TesTbTniIe3ldMm2YTJ5Z7ndMo4WHqquLeEeLk42mNmWU8
hDreKXcfYZCWLRFdVMVDlNh5fedRBs8NP81oaONBlBMitXGcwV8yJ3XkO3go
y3Xf+AdxTjdzxK6Th5d1051pxHmh60q/9fLQff5UzrwJBsW1cb5Dwzwkan86
PEj89pDjsJiAB7nThh4Bvxi805pS2ilCIaHpZnU2cYVItFmUKAWpKcucDuKq
tLJ0OQkKe/70UjKYZFA7onZ0sRyF8KZgj1/ELQGDTXrqFFYa98abTzNotQwW
89egsIHzW6UP8delyutfk3ti846k8CTifyrMY0w0KdwUfVA+Stwt/deufboU
nt2ZXBXJYjCUeK7MzZRC2pSjYzabgZWj1tJOMwoT4zt7G4hfKQ0EW5lTyDsX
Pckivn734A6DfaR9ensxOAy0Yw1qpR0oxGYad38k9gmZ0f7XHxS0ZBfZ13PJ
/BqXGGh4UuhT2/J9lHiHiHfSPS8KDw+vninNI/s5sO9o8Hlyr224P2cn8Uvf
qgGrYDIeM9cDxcQCt+jp6TgKFT4znSIoch6sNLVzj6ewWlolL5W4vl9Q3Hmf
wpGrzpnFxKnHPAOqkikYLogIGyA2OWwtdj+DQqZskZgxzSB7kfSJOVkUep1z
w22J5dsrKoOfUdidzsv1IO631Ytyz6VQWRkodYc4Yp/SXMNSCgZv4mq+E0/I
NHrllJF8D+AZi9i+LqpJ4w2FnCQzzOIzWL2bjp9TSWHk1UWftcR1Jl2qXfUU
ZBJ8NnsRz9uUvubKdwoLH1t+GiVenvY1ovYHyctqUpYi3jJX+ofiIJn/fWUK
kgIGzsNeSVkjFAqyNT3ViHNStso0T1P4elz+7H7iCmkf9yUcCn98SOo7RPzV
72mlG4/k4SWrdoqYsZa5LBBQuL1bgh1IbCnZMb5CkkYjSlY8JXY5J7vHS4rG
AXHurxxi395tGaXSNAzv1F8rIU4q/fPo/rk0OlrvrKwjHvE83+CvTEPZO0d1
glikM3PtexUaIwfaXDnE8uadkbJLaLxI1w0WYRgY/LZjW9oyGqoa1VpyxFFt
8/Lq1tB4ar8tcC1xsqmp7EJtGnFMm6sucW6en4fLOhruG1esMCBui+5ext5I
45GZipYZ8cptz+OWgvwvN378KLHhXz0T7sY0zsrlz3cl3qeiYFFgQqPXLj7J
g/g866L4bjMa6+P6tvsSV2bu8vXeT+OL4MVEJHH7gsDG19Y05j0NvXqDeCw0
R0vSlkbsi3L+LWIFpwUDiQ40bo3FRiUI+6/dbTJwiMbd+nWPUoT9619KWedE
45eHTcJj4uPzf9hVHqMRr79ZN4v4QtDCfDlXGuaFTNNz4uuj5nKOp2jIBjvY
5xLnVeV+GD9Nw8mkSeYlsWhAkL6SLw3dZsGW98QirhZVTy/Q6BPVPPiBWLBX
2UbvIo3yLMb2IzF3Wb6ndRCNdxcO0Z+JWXOCBT1XaJyZhbQvxFNsi+ueYTSO
/bik00I88XHgaXQUjeJrf3PahfUW5G9UiaaxSHGe3jfikZTgd5kxNBa6nHDo
Ih7wXtRVFUcjZkm6w3fivsODp23jaQxItm/6Qdy7s4DXd5/Gj3up5Dhm0Llo
r6JoCo0IBVfzIeIOcZW02Ic0ssMfNw4L8x4fXLckjeSXML5jlLj53RULwz9p
qK9Xnxwnbny295+aLBqccEOtn8Sf41Xc7J/TKFtYZ/eLuNajMNQ3j4biZMaF
KeIam5B54oUk/wiVs9PEVdiXeruYhsWArQOLuGLVYi31VzS+Og3qsonfzh96
lfOahv8zpxkc4nJ+4S6Uk/0wvKtc6LKBkNa6t6T9xnovLvHLV4snh6potO/V
eMEjLkwfCvKrofH6pQEo4vyYIhnJOjJ+qTNvhc71C028W09Dp+N3A5o459j+
1b810jjar5kp9HML1eK8Jhp1Y4WyfOKsTcM7trXS6C9zPC10hlrxl89tJD/F
O+VCP5kd5uzUQeN48j/SAuK06f3jo500ctrS9wv9qEs1MKCHhsiCUzFCp1YP
S83uo2F0NK5S6KS84nv3+2ncc3vAFvpBUtjylf/ScLg8oM4Q37tqlV84TOOS
V7+Z0HfPLtm2Y4xGVwjjJnSc40j9lwkapRb3woW+tePlYZdJGgFZ81OEjtUO
H56YprE1pSFP6BtK1n6XOTQUNmq/F/qa2FIJGYqG1rHwL0JHjI7EJfLJfPav
7RI6vPWluqYIHy9U/AaFDn0TnvNSlI8DzUXjQl/JsjYyE+ejXE1vWuigO0tr
WyT42KNkyBX60uVR+xNSfMTGzaGFDnArGZiU5sOt/V++0H7WV89dkeVDXX82
I7TPCrWbKfJ8pNkM/b89qZLsUiU+RP73bP0/0lrYOg==
           "]]},
         Annotation[#, "Charting`Private`Tag$7039#1"]& ], {}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{
        FormBox[
         TagBox["\"t\"", HoldForm], TraditionalForm], 
        FormBox[
         TagBox["\"\"", HoldForm], TraditionalForm]},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Epilog->{
        RGBColor[0.368417, 0.506779, 0.709798], 
        PointSize[Large], 
        PointBox[
         NCache[{3^Rational[3, 4] (2/Pi)^Rational[1, 2], 2}, {
          1.818783486985395, 2}]], 
        GrayLevel[0], 
        InsetBox[
         FormBox["\"motionTime = 1.81878\"", TraditionalForm], 
         NCache[{3^Rational[3, 4] (2/Pi)^Rational[1, 2], 1.95}, {
          1.818783486985395, 1.95}], 
         ImageScaled[{1, 1}]]},
      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,
      ImageSize->400,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotRange->
       NCache[{{0, 3^Rational[3, 4] (2/Pi)^Rational[1, 2]}, {0., 2.}}, {{
         0, 1.818783486985395}, {0., 2.}}],
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]},
    {
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV0nk0lXsXB3AV5ymRQobSQKVMXQ2UDN+fhEhJGYsQlVxDpCJlzlWZ5dCE
CiFkLHMRleqauoaicM55TCGlhMR73j/22uuz1l57r73Xlj7ufujEfB4eHjY3
/p+NxXi+l9XYaG2ReufvanFEQ/DZe4tSI3W87Ox2P6t6RUuw06blstE+dD2V
3mc4laNl+MXpkrGPKcxv3p8Svl+rJTh4X8jO6Chk55t3Gci1ajmddTMpEbJH
rdSqahlvlpah5+LbxMcRxgGLXJlSI1qKHhmc16xTKLaWjRM4/lNL8IzuZhOj
v7GqXmvvtdY/WqNurAsfit2QPjj89Oh8Xgw8edaTJ+SB9IPOOW28/LBSjeQ7
V+sJ87mN9Zr+S/Gm2FpezccLXtVajz0vi0JdRcH4j9J5rE1mHYiYL4nsoqmz
1awL6HsYf7VRZDWktr9OvJLggwPKR4LWdkojopBZaWDki3kD98KO/FqP2a0n
WILzLoPTFtrQb7cJbgXbqJZiP2xfJ5PPu0IRYxLzxPapBEA/U7PbRVgZGZZO
m3KEAhF+aiqlSnsr7BIbdwkNBWKvRvuB6dvbIdmhut+jNgiTR4cqVsjswDUL
Pk8VnxDYL1k82lSsgd0JLiEJh6+geSl1Xq0O+N32njmlFArePauvigVpw8X8
fnkl6x9s+GmRJ8Cvi/XMRQ1rKsMQuXnK7Oi4Hrpaz/QEJlxFU0DbcdGJvdhv
Bj49o+twjXAqNTbYD0Z8uniGbDjcbO9cj7lljKr/BOX550XgwkuD4GMLTLDZ
tOtAQ3Ekvg8ZfbuTeBj9cTr2ytFROC5aHL5q0hRNp1vVDFSisXTOkFNzwhxh
mRpGj4RiEO33RVHGxQqOBmfMui7F4GVD5iElvqMggw+OCQ7FQHnk46O5bGtM
bVrs4V4bi+fDayXeiNrBOeND/DafG+Cf9e7UG3GA3l7BZMe+G6D6/Tx/TDhC
ZoBkxB+OR36r3u6EhSfRuTGj7JcSE6l9F8PndJxg9PB8dzkrAV9dpiLWrnLF
Jv2sgWHjRIQu+10KJzfw9n/6tqoyEcafJjTfl7ujQlaXNyDhJnp0JUUNtDyg
lC4it8foNpi6yV5zW73AjLX1Sq25DWFTp4GtAucw6/foGa/aHVgc/F2cMnQO
DRY65nUb7iLkRcsFo6cXcGbR2WC9uSSceVj0ozbaFx0/qxrSzyVjY3p9RPaN
SyAs/hXUcDL4C9vsBJMuI8zGpMPBJQU3u3vaLar9uf876Lbe6h5e8zl8dt4Q
hEjFqBumN+7h1sT71vTKINTIqJSFNN5DUvHg2nLLYMgLBfLRuvdhuPJklE9C
CKb7Je6kbX0AmeXWMmk7/sHtm3vrZQXSsGhnzg9Dvgg0RY2OmuunoXDYYe+5
dxHgDb0h+k9QGkZjF4qmMyPh4tlj2z+ZhpCzSdHCK6Khsc974iGdDtyLyxit
j8GnmYfr5J5lQCEoKVLKKx7C4/sNrKYzYJm15rznWDz0BsfdrqpkIrTodKKN
GxO5rSgbfJSJN5ctvX65JcAvt/1gVmIWGoW/TB0Ovok1dpSfgmc2Li3QWnxh
6i4mtmmHuWdm48zjgLORV5LQQPnGFvZkIzu6aruISDL8Ho+mqxvnIN5gT8I2
yRR8nm1t3KeYi7z1MwXrte/hzt1UaZe+x3Askf9ZUvgAZTu/Lu9YkoeFluXK
JnypSJcRWHlRPg/V727bp1qkwm9Cd0OVfR40cteFX5pNhVJSqZpeUx6Ux4bX
TZumI3wk5bh5Tj4Gbwo0WGzIhHd75anJ1/nw0zlwsiQoE47VH11ucfJh6Kq3
or0nExrxohc+ryyAyP7ui8bJWfiiEXb95LUCrBwtcVPekA3DcPei86cKIcWk
glpMH2OhghYjQboYEd+HLbfIFKJXqFQ/V6MYL/XcecuPFqLsx7ardRbF6Ni+
uPBefCH+rpIT+BFRjOzdTVtD+YvQYLJc2GS6GJ0ullbZk0W44T28avH7J4gd
M1/g0fcE0i9vqfiHlGBOz0F1gCrHdNbyC8zkEojuiF0ksb8cLVHRJTllJRCf
qeRLiy1HiFWoetdYCdKPlzu1ra7AwLCHtppNKY4vaDBnqlciV8Rg/7hKGW5o
JzReCX2GXfa/HE/1l0OiU/TQhHINVK0mz7/hrYCajEvBa+sabDWZClOSqcBq
uae6zWE1kNP+nT1uXYHNUe2ckN4aSEjP/fBvqYDEuiLJc/Ev8KuHcSWxshKV
LxjeHlQdiuzE0urjnoHZrB8bK/Ia4nm3vi9PqYZsXXvQs/oG+K177vUupxp6
HrGBE7MN4DDpiaDyahhq1o1ZbW9EwWXl31/bqjGwRHcwLbkRB/a9XPBGsAaH
s81sNmk0IaTvm6ifbw32vYt79F2iGd+kDHb0mb/AlH7g1yZWC95e/eX7RLAO
T3Z3Sn8rbkP3KzGx5trXMLvylo6hehDt8FM9zvkdSjgmu19p0vD9sOxRXHMj
+NMGbg5EDYFt5b2cqm5G4rcOkXnWY5AtYlxk+7xHoqtRlZL1OHZUeqWKyLdi
cMhO3/bYBLwnddp55tqgPHTwrFP6FNrWFmyOKOrA6v1pcS+yZ+DoGxjZFvkR
bwbE16zpnEN1iHLRWbsufF4ZzZN0eh5R9/WbfSz8GRl1gfxZRfMJ/UDJJHOw
G1ef95k7ziwg7V2anJSmHnwJcmkSEeAjJ9U1o6z+68HFgPHdx5bykYmbGruE
O3qQetdgOk2Uj4hZqEcHd/dgq+DTrUqr+Ih5806Nk6M9YPQvyVqxmY+01W27
oSDQC4VxqfwzxnykNVduzxP9Xsh/bdWaF81H3gcsT31b1YsPIxKzFxYyyPOk
lAnPml7Uduocnl7MILkVCgYrXvYiPzWp1keIQa5Nao86/dsL1adk0l2MQcgZ
t52Mrl4cKRq5qraeQbJtX70jU73wO6IeRcAgIVo+P4u3seA8PiwocZZBPK15
99rsYGF+oLiKxnkGsb0YdYtXnYXShE/WNj4MsutJGg7vZiHMby6L6c8gY0ot
V8cOsmC+ZZUCfZ1BbFYprFZwY6FS3H/RtwcMojrTpZeSwYLMlFN3VTODzFrk
ty/MZoFpGqB76D8GeVl4xcnjMQshu2KmWW0MYvb35mu7n7Aw3HvIeKaTQbw+
+v/LecECr4ht3JI+BikokTGV62ZhV8g3Kn+KQTafc7IvWM6GjqJ32+Bqikw0
aXxfIclG2H1LfllpilQpLgsOlmLjgtgfX9t1FNnPKU01XceGk3682JuNFHE5
vHhgQpkNEX3NlX7KFMnakuumbsQG5WkyYadNkY2j4761QWxobR4qXGJPEVOB
D6HnQ9nIrd2uvcKBIgHyVTGbrrGxoZHHX+YERTpOhj0Mj2GDp3pmkdxpioR1
S703TWGDb7T5wBIPigw16crTlWwsStojrRZAEbGv8ioJ1WwseZjlLRREkd2C
S4lBHRsm7ue9WcEUuWXw0SznHXfeLgt3v38osq/GLfBcJxsxu8SVIiMpkl2Y
0ME3xcZOcd0ggTvc+c2X2E9n2CjVyN6Uc5civGP2o6d5OGhi4YxhMkWsFRV5
GygO2j00ey/ep4hg2vO/mGIcDD+e1CrMoIgbczBUdjsHFWNxUYFFFNnio66i
785Bh7oRHVNPkZ2tp/3KPDlY2bjwbv4bimhtSXyldJ4Dx4O2RxreUsRw8IeV
6GUOVF60c2b/pYijVa5f7zUO1okKbNVooUiCmvRr33QOTD//7b3xI0WS4o2X
fc3koK9q0EW8kyKp3y4fOZ7Dgb6CvgNvF0XyMj8O7y3iYP5wvWnrJ4q8kbyx
TKyGA19ZVd3DvRT5M8U4mveJg030GuVn/dx9zVVS1/VyYOnaJu8/QBH+AocR
JoeD3rd26zUGufd2fu5/+QsHsvx6IjlDFFH+6JNqOMVB2bu3nc4jFFFVzRip
nOEg3j/+tfAoRTRj21S38NCIbBgteMq1oeG2enGKhvr6cv/JrxRxKBse4YjS
0Nb896fZd4o4i63cYSlBY0u89Fua6zOeBgFvV9LwWjVyx3OcIpfk04ULZGiY
hTurBP+gCPOW7Q5/ZRrO3VmqARMUuTMREfB9Gw3bIdvhX1w/OFRRf2IHjb9i
ku+6/OLeg1/S2kiLRrGr2XejSYrUX2wJkDTi1vf12A9OUUSRGe7ha0yjfFZV
Qn+aItH5esc/HaLhr366/x7XlgNlOvesaBwKE2k68JsiFQvObV9gQ2Ok58Rg
Ctdr1/y14YQdjcVf964c43rA7AFD7hQNveJLr6/MUMTIw+bXNWcaT15l67zj
Oi9cfGDYldtvj2K70B+KeL+4Xp/nReOkXLdeJNddn3XLhL1pqM1OyNRzTabn
srx8aXxZvlF83ixFFm7xCt8ZRONRd7K+E9cuRpsv37pCw3BpS3AC102nBlxn
wmj8Cvja/oLr7cH3jx0Lp1ESOqozwnVikrXx8ygabImXr0TmKDJTKkZk4mis
bXZ12MG1XWuTcgiThsOXT2KWXNeOXZPuu0ljXFeIdY7rTQK6wnvv0nCz/10b
zXX4xrn5WSk0yuzuPMvgemx36fjiVBpSi0aaK7k2PXaW4/qQxsaagd+NXJf4
KLU2ZtF4Hn9ds5trqfj+ui25NBSVW5hfuA7Iu/ckLp/G7+5S6ifXnLdHH/4s
oiHJJNG/ud5AXkkeekqjYkXsyVmu/wdHRcDe
           "]], LineBox[CompressedData["
1:eJwV1nk0Ve0XB3Cp6ygqjSo0CBVCI0m+Bxkib5QhGsySt+FGeaWBiCJRMiWk
0ku8mStKAxkbUMmU0HDPvbiZ7jlSGX7n98dZZ33Ws9fZz97PftY6y1yP7vQQ
FxMTa2Wf/7/vn1aL9H7GQ+miGM/xCYJssRl37Kzk4W2TbMoAaz1usYVBLQ8f
RqwKeazTLvno3XnDw7i/+pdm1lMy1FdzGnjoc7yvUs3aq5xSOPCBh5itzSGF
rN98TptR28TD2rM5I8mstX45Tqi28XBoSDs0hHXs3HkDkZ95UNU4ueoA6xHN
+q6+Lh6KnP15pqz3WoS/s/rOQ9IevRJl1i88jcoL+DzUxrxJF2N9MeXRHb8+
HlTyfV7eHydIYfGx2JZBHvKzk4YDWVs1qoXqMjxsnlposIP1Aqk0z/E/PDhM
71rCGyPI0yqO9s4TPOS2ShVms+4ymGtWLk4hyMZu/1HWmf4XV4VNpaCedHrs
xyhBSscaLhJIUxhPPj6YyZqbOzrNXIbCxmcvx5xZ61Bc4XRZCtEV/zrV/CHI
ml0OuXFKFKQ3O5kf/02QV9YoLTJYSaH1jLa0DGuHmf3nhWoUdJVC3DJ/EWTP
q/OORuso+PZ3vq8bIUgpwzzOoAEFKWH9o6FhgmxccoqbbExh8bV9K31ZJ48Z
fzLdRuHa3O2aAwxBqpd8yku1orBb+oNYF02Qf2kRe7c7UTiXf/hh/BBBzp/x
vuqnKwX5nq7PfwYJsrM3ec0dTwpzY9uS97HmZqwlfh+mIMiZ8nX+AEFeXby/
IOM0haz1ny87/2DzSz+QnJxEIaat5poVn83fE+ibk0KhrS3JLJAiSI8a8w6H
WxR+5VAJWTyCHA7pKszLpGBrWS3x8xtByv6Rctr/iMJ/RZ/VDnQRpGO364OS
Rnb/A9XV6S0EqVi9eqlHC4WwpmdIaWb7kT4SIdNO4fwncbuYJoI85RzlfOAb
hai7oft9Gtn8zSVS84Yo1Fdp8Kc2sPVUyrhyZ/LhI8iVTagiyOAvSlKfZ/OR
WGjGP1JJkEpjOkXb5vMxX3FGrVEFQXqvd5FYrsBHTp5axfcygqRv52d9VOWj
/qdm2uSnBCkZtFOka8LHBd7J1Q8KCHKtbux5zhk+bi+4kNd9g+2HbeZqnyDW
w7Y27kkE+c+x0qaOED7qBCNz2hMJsjTz+8riCD4WDMsJyuMI0lR2w1vvRD7M
G2/9OBzNzjf9cV5DIR/vZ6s92xRMkKE5shlJPXxsPHBULtuDICMj9V5Z9fEx
fqL11C03gozxdvkhMcTHiLRpaKwLex9Vstf5/uJDqX13HHcfmy9V/4WFpAAb
7Z+WiNmy9UR5tI4qC5Ckl331nBFBuh8tlHJyEeDNneGUqYsJ8m/LFo15HgLI
F4tviZcjSB+1MevXXgIIXygnLllIkEF8k0RtrgBLk/8KXTmX7bdTm5JMoAB1
njmWc6ax9e+YpF+WLEBww+3VlowEaaS1g7u8RYBL93xk7GslyMy3E7o1nwQQ
39v/PbxKgpT+O49zuFOAeTUX75W8lCCb7s668ZASQKaD4cg8kyC95BortzHs
/p8oLk0skCAjJRzkuLO7of7qceD8G2x8u2tV6fZuDH4pNn53kI0P95O3K+tG
W8B+x0PjHDLDnatcWtGNBSVBIYv/cEgK3hqKNd3o7LfQqvvJId2G95F9dd2w
PtEmqzLIIfe7GbuHtXdjTJa3rvgbh7TdMve/hz+7QVQT5p41HNJwMH+zrEYP
RHl9Tv3RHFLe4YdjS1IPElvj0r/KckhBWaxCSVgvhH/eZD6hJ5OGty75dLsK
8bP5S2JYuTg5ZbdP1kvdH7jJH98UGzCJ7MgI9xxV6kMeuE1Hfk/A5MhA0fmJ
PtiQ2UEOM8ZQ9fbChb+F/ahrnqnsU/sLPdbaww3uA2gUhqVOzx/G3UzFRQbv
BiDf4t88NVsEoYVKUJfJIIamfGy5fmIAAVnWuRlFg/B8I1qwWL0XsbZxS1PV
hmDYuS50woYHV6FVyMG0IYx5h01PkuvCP/rrc/dOF6HnVUn/imvNGFIX6myY
KYLymuX1ZtxmHJJLL58+S4ThzKivQZbNcB2Z0/RsrgjXl1k3bpRsxvYC0ehS
eRGSuP+senK2CUtVCs15qiI81zv0ryb3I2qmr6UOm4lQUP90Yp7HByz4rKkQ
GCLC4r/EbhqurUeQt7SJTqgIM00X/kkYrQP/p+DIYJgIKXoGhouq6/Bw9u0X
bhEi1HS61t7dWwdbs7nuZldFKD64e3Nb+FvEFI5kzbopgsTc124VwteQjijT
SX8sQjMnlDvcWIPjsqku+0pFCGjx3CN+twaf0gMi5j8TQbfs+3O9EzXIer6u
/WKZCC3yz5dumV+DbczdwMM1IrxzXnXwsGM1wpwjqjY2ifDFaddQbG8lJmnv
sqkdFEG6bkULueYlFqQzDSdFIhy8d/rnJMmX0JiVaKnKiPBRIbtpoKMcjr3t
JpdGREjvHO2zv1yOopuemywnREgoSt60XVgGL8mAxe+kafjrDLu8L3iB+tY0
QcsKGm3KHSf6K0pBmRh5hK+i4cfRujp8phSjhbwvm9RoNOTX2Ttql2JllOqn
JA0aGd+5v7WznyDYsOjt3g00rsanTd+e8Bgbs6sLugxpGM3v124LKkbK6b7T
gn00vjE2f2KvF4Eyv/7wqRONUNUUNw2HImgs3DoQ40Kj2b1asH5hEV48uO62
xYOGVtQTjfCkQnzt22oec4gGOqIbLG8XYIXLDVm9UzT4mpfEUcVOtaaJ9awz
NIaLVCX+jcxD8dhABHWWhpL56qCTu/JgnmQyfiWYRsWk1xtfV+Ti0IfB77xw
GhJrOLtvTctBvrFZQXQiDZm93EsVz7Lwe46o1z2Jxh9FzTEZhywYfk1R1k2m
MZ4hPbKOvofGs6LE7zdpiJ+5VzWqfg/Dj1IDN2XQcAgu04zNzMBmVWb7twc0
un+v0rlXnY7KGbf5Gz/QaExWDd5kehO/Tx17IWyk8Xt+iezlx6nQ6iav326i
YaOvvtFUMxXJLzvNZ7TR8Az9miGUT4Gvv0IOr4vtb5aWRK/kDSz7mng8to/t
z59BUnF5Aux2eFmaD9AoIVYRV/+LR2SptorYEA0x878i9mjHYyS+qflvhsab
OXIFYtZxqLeYu9lolIZxcse2E7HXcOZB9KShqQyEyyYftNhzBQWKTm0ZUgzy
3vutVKGjIYjWKNw3nYHSnN2+1uujYeP91r1WhoGF6dZFx0svQ22JVE2aLAOt
l62B+b0RcI5sS7NbyKDL8NsZwZYIxP+6d1JajkHHcLNsdkw4xBvN1PwXM1Bk
Xri8MrqI1othUTuUGeT7tduvrQjFjGHbA5wVDDhqdScuqIZiq5sy+WQlg4a6
VR22184jb0vFoIo6g4yfreU2h0JwYWiS7fhaBj8VFlrFbj6HDXvPyN0nGTh+
UfG9fD0AweFbuuIMGfS1PbvulXgSDQ/H0s9uZRCZbJ8qluKPQ7POaliZMZiW
YNe49ZEf0qvOGoh2MHAts65X0vTFkEhfot2awRMV2wd9jj4gl028qtjFQG3i
QKl65DG0nwq0ibdnYLxEJ/7J2FHMWRN0YJMTgyqngGahqTec95Pqii4MnE+8
HwmnvZBzSWxwmhuD2SPGx7yyD8CcCgpo92Swgx8VH6XtgcQ5Bqj0YlBeTdVm
SLuDIidNyfFm0K5U73i31xXBN85dDjzCYP/lhZm9Vc5oqDHY6cVlUHHjgc+U
MCcsHp4ka+3DoPX0wWtrru7DY6vgNEU/Bu+PVDc86nSA5FlDDyl/9rxqz6il
K+6GXba4Kn2SwT4bbu/Df+wwyAkprDzD9sMOEgftd0F/nZF/TiCDbHq88+oX
a0Q6T96ScI6Nt6DF6NNWWPkkpMorlMH3aHvf+jcW8BMYXbK+wODo7/GbfQe2
oWLeFCvdcPZ7F5ZP9V9uCmfu+VapywyChCZRyb8MkZOyNZWOYrA++dMHWbb2
0VdT3D5fYSC+R+gXEKcP85GKFVUxDOL1HxPsXzUSlUOFObHsfMWl31qjpANq
p3F+QjwD7vm4RwsMNmB9EMcvKJEBlR21wSxuLYLvV+oeTGKg+aH/oesSLdS3
hU5YJzPwXexrMPZEDfKSJhW6qQwWXe9ZZ35zBbw3SIQvT2PPvy7owS3echS7
VllK32awUGB/pfXSUkhcCZvN3GFgF56BbQpysHlq0vz5LjtvH0NqFD7Ow+0e
ieSqDAb6C1+FDGrPwoBstXPuPTbfCtOEraenQd/4gnJiNtv/Mv0sneeTEelj
2hN0n4FXEneqwo5R/babRO7BXHZ9wFavyFikv/Jtte/OfAavCImHpccF+n6/
L+hsLmTXI0PHhZx2/YoVZmPLH7D3S11VeHbXa/3ZtpLl0o8YVFp/ckxvLdR3
Dq4JY4oZnLeLaNm8MFL/fu5Fi47HDNbIvwk8bO+o9z+X8cUY
           "]]},
         Annotation[#, "Charting`Private`Tag$6983#1"]& ], 
        TagBox[
         {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VN8fB3CKiKw1mJlrKyFZUtnpc1IooRRCqWypSArZsitLWcpSthCK
rCltRETIPjN3xmhooRJFWSL68ru/P+5zn9cf5znr532OvMuFw+6ruLi4honv
//+DElzTL5uddr1SGSlpfcy9S6iRfvSFhQE4lM2nO4gfBKH3TrRQiwNQUSB0
cfe0O5hPnLlyMMgGNB7J+Ipt8gOh7/dETlkcA4mG3ueKC2Fwxtfb+rmIMxh8
dhtazL0K5pcEs1GQG3TEca41udwAIR8TdWsLT+goqBId7U6HSe/PAexab2Ck
uD52+i8Txp42fqwWuQgTX0dSqGfuwrva4yp6QX6gcmULbfvvQkh8nPFqv0UI
XJHT7hK8VQnL290/C3GHwsuPr3jGnleDd80OPlptGIz1ntaR2FEDJfZnlCtE
IkFhVGDf3721kHCU95JWUAzoqyUaZDHrwNIWeE0troPdrUqfyF2tsCb9vmSJ
4g344VzqqaX3FhoYQioC3ImwRumqgIlOG6jbcKx6apNgy3nyooZRB8SVGlqU
idyEDbNWCh7e3XCuhJ2+IygNYuYZzoOqdFC7v37LXotseJ6XNu3FPQQZt076
FTVng9mbhfLXtUOwHFbWyKOXA8I24bransPQc3SPXevmXJA87a/ux/4APmt9
o01X7kJs8C3Pk86fwEH7u7eCQwH4NmhtCHQZhezMfR2K64qhYJZmqPVsHGRP
8YVtvVQOs3Zm7GXVWeDfumvNbflaMKJ4KSxNcSF953k3j291sHlt+T71bj4k
WZ01TcpvgsDXhfopy8KoM34+5KlQK/i3RAT8zhRHH9okJPpb2qH28gXHkXQS
sjKulDlDbwex4/df1+aTUH29idLKp3aYIdWyIspIKOuRn67aSjs0SG9fy91E
QnbZNMd4vQ445PhdtHSChLq8k/J2V3ZAupVIZBpIoOekNVtqbr+DZqZ97OtP
EijFdc4g9VwX7OQrr6wXlkJn8EdGGoFdcMz741F+SSmEzLyh82oX3H1TuGAh
K4WmVL4Zry7ogur8aakmDSlkNT2w35fVBWEvDO/aHJJCgpH1R4/s7Qb5y1Xr
lVKk0LW70b7rZXqgdGOrwnkBMjohivyrtvaAd77PNoYYGWlF/bt8QK8HVq4Z
L+0gk9Gou39wtE0PiNhqtg8pkdEeNY/ImYQeeH+ZvWFwLxlx1Zsn0+d7QFTh
zza/UDIKYYuVpfb3AiNAha3wnWhvI5Zu+7EXmh/ebFL9RUZWfaLhklO94LSv
eWrrPBmljMSWWq7pA6cbpZKivBTkMngttH9TH6xryz5/QY6C+NpjNrNP9EHU
J9pKnC0FHSqM8B9j9AFfLt+yzAsK4nGOOLef0wfv0G4poUYKeiETcfLhSB/8
+qpjPd1CQRuzwvd7TfeBR20Y9V4fBc2lhEn/EumH8xSt+YxvFJQVdqV13rwf
kr9E8uLrqWjEIZDE19QPEUpnhHPdqcgiVSB2vK0f5gJVO6nnqOhpV85Cd08/
jPMP197ypqI4aHqfxukHTc+j688GUJHqZoF7Gxf64Uq7w8izOCry+5WtvkuD
Bpf/1V0dKqWioS3q+fLaNLAyG5wZrqAiU9fXYrxGNEhY3Jcw8IiKpJijs53m
NPBv5td48oKK6uvU6hxO06Ctc6e1UAcV8cQ2mvnn0iC63aPD9CsVnX9t/cK+
iAbact8L3n2nIubfERXDMhpomuTkmf6kohIvfuHVL2iQJbhZQGmWmM9ha0YK
gwYkc/nMeG4MpUuPnCoXpIPXr9ibOAVDy3b+tGRxOvBqpD55L42hMyl8e33J
dNjZQPrHlsOQ/mpVJX0lOrwNLVxoUMTQ8JjfzzZjOmRstilV2Y4hxSdrgkeC
6MBnL/QvzgxD5l7V+kURdEgoWdPEY44hbwXHJbdYOnBr2y4GWmDoWVrFla9p
dOC8znxnbo2hff424d+r6OAh3v411RFDXmrL8PApHSLC3I7Qj2Mo5csDLs9X
dBCSHtQSPIkhtu1S5I93dFgS1HNyc8XQOe17MVNf6CBanGhY74mhpMkDJtU/
6BBzu+JE43kM1dyf4704Qwfc5+HCywsYWpLYHzvNxYACkkt6ti+GbsxPxc9R
GcA/tS94VQiGKp8bJS9ZM2DHmLmhRxyGaD7fDtbbM6B9jrFqOh5Df5Rvioae
ZMD+juem/tcxBJmjN5e9GICVa+xzT8JQX9D1NO44Bkw0VRtNpGJoVlPLtjmJ
AV7KtEW9dAxJjQ+TotMZsKmlSTcyA0POjttv8xQyQFDmu+7fOxia1mdn8jUw
QHmy+2hyLoYkZqIc21sY0JHZoXzvLrEfZarU+E4GdG4LC6vIw1A0NSJHgE20
l1Z5WVGAoRL6FqfODwwQm9MsuHcPQ13X6dI3vjKgq269SEohhjb8U8wTmmXA
q9HMSJtiDOk+6TvZs8iAAGWn2K33MeTkFSyXzI1DA1VXYonwfU53gagIDke8
r/VHl2DoXVqASz8Jh9MTiiuGpRiatJDfdAvD4ay13vNJwjqv/IrWq+CwJ1y+
16AMQwqL4OChSfivq+AoYXEdQeE6XRwaT72Lji7H0Iovs1kY4RD7ZZMepQJD
P6oLAlzMcNgrb6xaQpj900v1qRUO/5H+OqlVYuitiu6ntXY4+KnK9pYSzi/q
MX/khsNGRxnfuCoMJX7KXOHxIsavXf1gnHCwjPsTe18c3tZvlN1bjSGPY9vO
lgfjkAb2g2mEbe4sSXNF4cDvozXIIbwbf0s7Ek/051ggiz3CkLr4rdgHKTi0
eFwtO0yYetDJcOk2Dtl23WERhPlvKP+2ysPBCDyyignPtc8U37uPg0nynpUm
wp95Gx3/VBDt+W0rccK9xgki5rU41LxOKflIuD7ctiW3HocI6cnJz4RL6+WC
fr/B4Rp+OopDOOPvhJpJJw53f/5x7SYcrf3s8x0aDhnPctJqCfv4Rt3+wSbm
12dPSifsVG1pgT7hcEtO/ZsnYfOfUtxpYziMM+UF9QnrqIzWfpvC4cM5g6gV
Yr4KHlXnDOZxUM2MsawnLFYULJu8jEOzy1pvH8LLH00Yn3mZYC04MEolPCEt
Fq8txIQRSe7HDcT6DjhyjBI2MOGQ5W22PeHW2w+mh6hMWKischgn9qeGcemB
5iYmqIU67/QlnCe26/hVFSaM7nh7bobY3xtWa8XYmkzQiP/73znCQdcZrap6
TPjqSZ5iE+fjdHtecARigu4qU0CEkbH2qNJBJuRMHuKeeYghtXDuzBA7JvBn
BvsDYUp9l2WvExP+5JhZRhPncVbL9dllLyaEBASr/n5A1MeWlITWeCZMDMS8
cy8i8vD0MSDfZEKw7dKV80R9RBUqznrdIcanXpbjRdTPcelXThseMMFj/qGy
dT6GRMXGt7m2MGGbp1XG42wM/WdZ++VpJxMMLIrwy1kYGk+IyBKgM4E0eviG
ZiaGWngkeWo+MYGLNO2WSNR74MIeFtcKE8Kad44NpxDjfVTAz+JlgZaw7rrA
ZAzVnV3Rq1jHArrf8c61RJ4sD77McaCwYI1EiKwkkTcxrzRdarRYoOEVt4sd
Q+Tv5eTUOEMWXHRcdUwnGkNt6j9bTuxhQUz7Q2pSJIYE8kuUBK1Z4Ky8NWlz
GJGnUbI/Xb1YkFhRZ//vMoa2G4TK6PuygHTd55msP4boM4MHRYNZ8Dv1zRsD
Ih8l3DNq6mNZsLVNatyJyM8cM6FAUiELdlCLks09MPRg3dKqNjYLFA1NbN7a
Ennear8z9yMLpOOG5fyPEOsR+tTd9xsLRNaTqjAi71WnLrbLzrFgNZZIsiPu
g5r+scRA0QEYCzulcckYQw0ZTCkVswEIcuZrOqSGIaZcjXrikwFo4DZfrP6P
itAJTZs/dQNgbCJuoLVIRQ+zq4NOvhmA30nb1B79oaJwiaoWTdoA7B6aUU2Z
oiLldeWOzKkB+LqQ2zv+kYqC54uvyW5lwwh338ENzVQk3ZM5/KiADRu6PIRM
w4j7XZDMQy1lw6jJc2gJoqLpfXe2xFSzoXfqr4u+PxW9fZPhZ9fIBrealzHC
XlTk/SJVYInDBhkswMfOgYpeFyVq75UaBKt7We2nt1ORW0hkEjNpEFB6bP+d
YQpK0JFaLZ0xCJq72zbtYFNQ1UxlgGvuIAw2Fs610ilo0ZNz6lfZIOzd/VsO
b6eglOM6OwQ6BqGQ7ErPrKGgOqOfLKPV7+GmZeqdhhgKEudykC8OeA+tuE7A
1U0U1BSz7YnvKQ4slofXXD9ARln1DsWGHhwoy7sfyiDeb36zURm83hxwWb5l
IrmLjJTd8MDbIRz4mzBJT9hGvM/2BBvVZXCg/6uZggqJjE6tanm7qpsDieo2
rgeGpNBy+FH2Tb0h6MjdJKB0VgoZhIQtV4kPw7OT2z3rLkiiL4Vq1qXfP0Db
qvuWI/wkxOIYjeb3fYQhV9ORokBxRI8gFXU2fALtRYeBsnZhpP2PY5pf8hnY
WqX+Ngb8SGlyJqQlagSi5Iv1Pr/hRppBBlpmF0ZhzdjNFwGzs9ARTIsgW3yB
83kT4ls2ckARtZEPP/sCXH/oxb/ZN+B/cENyGA==
           "]], LineBox[CompressedData["
1:eJwVlXk4Vfkfx8lSytgaLvcehWxZxlqK+AhJmhpbopSShCYhoSJroogasqRS
EhGyRErO1xLSaMi+FElZuu49F8eUmH7f3x/nOc/rec7zPZ/l/X5/FT1OOxxf
wcfHR+Hn/++SMM1E37rPwLfQlccbSCRHXkl4+ItPgM0tw1HFWJq8VMLIz5qe
APeBz5VL0fzIUvcP/w39k6DtctFzInEV8k4IJpzrp2DFk5jJEAlxRLjOHOjP
moaAMZm2bS5SaLI+Vb4m7iuIRGkabJWTRhb3rgZOebCB1G2TH3dhIPltJ4ds
vNhgcM1YWOQoA33rtbUq8GHDVF/DZXUfBioRXS1zwp8N7LV6e/afYyBmaHzN
eDgbBnba5p7JZKDZvZf4RjPYcGPEOimvn4Fyly5e633Lhm5JvdUjDrLoYvrh
fze9Y0PR46wuhwOy6IC+2ZG0HjaccDxIoaOySMJ7Wc9pmA1zwh6sRH9ZFNZ1
oadzCp/varT0PkkWORWGEu2CMxCcHSDp1yKLBF0CCxuNZ6AxQX1Jd7Mcsnrq
kfSn2QxUNySdDDeVQzFSjv7SFjPQ3m7+ocFKDq1oN9h8YtcMEII2jVsc5dDP
7XT9apcZsNTbaNVxWg4taoYO2J+dgcQrsxNF+XKI9zN81WjpDBQVGBkISjGR
7iG/r/EVM+BkYqDxpywT+T8//FavegaUMuu7/17HRJwgSI2pm4Gc4kXjUE0m
Yk/xKai1z8CLsslVIVZMNNkVY+Q3PQNDrcXpUmeZ6EN+gteSMgekNXQNyzqY
6JtF42UvdQ68exjm1d7DRJIflgo6NDkguOPj8tggE1n96v/1gT4HcvtfOC2O
M1FRpLP/HnMObLl01n/gGxOFum44f+cgB1SUGzv3r2chqTUvk8xvcCBjT9/K
XSdYSOvhQklhGgcMolODrp1koR3bdTt+zeSATRFXrP00C4WG5EpN3eVAx+GP
rzaFstDIp4T068UcoPbeF3saz0KPa53vjbVyQMDU4K5PAQtZ+1GVsT85YKje
fevuGAs1vTG22yLABTJ5KdPuCwtZbLz09aswF94L2Lp8n2Ihs3E5JUcxLij6
Vv+iz2OhzQcskxXluXCxblHV/CcLqVrf9Kkz5oJmuE5guxyBHuSOCgaacWFQ
ccON7wSBlPg1c1QsuFDzOcdJXoFA62rJ3sRdXGjjk3m+W5VAMvpTlgdduFBr
bddjqU8g4XXb1n07y4Vys0fNd20IFHshrqboHBd8Stnbduwm0IqBDif3cC6c
C1hpPLaHQP/9dfxqcyzmdmbDCkcCLYgkf0v9iws7nycPvXcjUNCJgb9s0rlg
Uu58ANwJNNu0QWcpiwvTNf0OGUcJxIl4dvzYfS6USj4s1PUi0Bf64zu9Mi4U
efG9XvQjkKejlt/nSi6wtmtNMQIINPYkWCTzGRduHgoN1jpDoA8n15jzIXze
rO07kxAC9X40LH77lgtJr8w95y4SqLn98uWTbC6kKcbmNiXi/n1YR0e5XBi6
nRBgeo1AwYKlxvvmuPBt/baykmQCqZn0zpgtckHWc23U+RsEsnKS0hARpMB1
qduiOp1AlOLwzUYhCpBD1MW5DAJlc/MELq6kILVlSEk9i0DzV7a+n11NwQ0h
k3vns/E+6o+kDEtS4KlyxLkph0B2yRrLN9dSkKmqU9N4j0BLbvM+9tIUGNUz
wl7cJ5DTt8uWzbIUsGPWrEt9QCC+ZvsnkUwKvr0R+hGUR6DHf7HkTQgKPLj/
Gux9SCAhndKF0vUUpL+tfDqVT6DypdBjvooUyOwPWyoqINDhNosO5Q34/86b
bnk9IlDV8d5HmaoUuFnHDzcVEsjDIEfGSZ0Ch06tcO8iAonx+8aIaVDwRqQ/
QPAxgbyyl91itClgDfg6qhQTSMq35bWpDgXy333NCjHXGV3f/E2XApWh++fU
SgjkK3Qwt1yfgjbVDYK3Mct0KUucMqSgx/q/4dWlBGrI4YSpbaZAx9dGIACz
n9+zqY9GFIhcYgT/g5m5Ldo5eysFg/YxhqpPCNQi8nujswkF4Q55pmcxB/VJ
60qaUrC7MyOlFrNC3kj2GzMK1o6d11rC/HfgI5E4cwpsj/lKGJYRKNT8TLC5
BQXSPy+beGJWFjP9tGhJwQGthceJmDuGhO2e7qBgWmfgWDHmsEcdtad3UhAi
v9+9GbN6SNZGjV0UdPSn3+nD3G3leXPcloIRmVcKHzFHSv0mcPd3XO/h1Z/H
MGuN/nvadS8FFmvSpocx9xfXD6+1o0Bud6ruP2X/99PVXW/tKeApba2qway7
a19VvCMFQn5V57MxD8us32C5jwLvEfPwEMwJ45PJy864fgHxl7aYN5eXL1W7
4HmB61YZzGMRYT6BByiI7nblDeD+r+2x7tVyo4Ae/X08DbMxS8Jy4hAFju7+
kraYv0wOlN5zp0Bto2DoAp73japcwu0oBXf/3cW4hXna3mihwxPPg/1j6W+8
vx0/m6uivSi4uXok1Q1zzmPnEENvPJ+tS6XjeP/OK4O/pZ+kIOPJtlMfsF7K
KoVqdp2i4J6dhJgdZlGPtHM//CiIr7io8xzrq6G2cvFwINb3+7u8EKw/eV+r
FxJBFAwrSV5/g/UZyui+0HCWgjq1rBIG5t8C55ZUzlGQtTL2aCbWd6aa/k92
BAV7i8RvWmB/zHfXk3eiKDATvCp9IJdAe6PtI+1i8H7W+In5Yj8Jvvfnr4yj
oDFqk+8Z7D//G6UCF5IosBx+9lwT+/MNQJNWMvZXm+OC8C0Cqc68jf2QgvXZ
xMwfzMT72MkRskilIFdc3+sk9r/NstYqkVsUWM1I7dHH+ZBbWNv6PJuCCoVr
yp0pOA/3/57w5x0KXDz8T3njPKksP7m64x4FsrZF9pE4f9Z7F4qmF1CwJ1Xb
ZV8cgc5LG7fbFFJgSAmXVsdifTW8TloswvXv/XFGKoZAV+SnxA6XUpAcUmFd
FoHz9Z2apEoVBYEpFkKpoQSyj6zu7K2mYLagpaEmGOeD9s4b8TUUnOJP/9oX
hP0d77WWXYv9oNMZvuxPoLemedIVjRSUauzOnvEmUF6BEnN7J643JTP26H4C
6Vc/T2d0YT8P+KwcciIQeuUgzemmYEKMl7nbgUCDY9ESt/rxvFjaM5I4/8Xk
PwnTI1gfY1usDSxwnl7PnSvgYH+dobJaNQgkkGMSEEFRkBeusqJCjUApJV2c
fbMUfPwvKjhVmUCFbwSmVyzg+Uacidu2jkAjQp6jbss4X1y1LRQl8bzPK7dL
iPJAgTyrYUqzUE98re3ELzxwOyZxLAPfhx7pTq0vxXkQWrP50fQMC4VVxjb6
ruWB/arCw0H4Pi3jjNc0MXnQ+zAgkOhjIeaxvIehG3mgNfbDh6xiIfZu1chR
ax6Yn27JdcD3udf3sex0Gx48MupJ++jLQqMP79bsteWBqV76K28v/H9+ubna
PTwoKOSNuB9iobrqNV6ZTjw46P1QlGfLQikbeLsdPHhwWwNV3FVmIYMfLxhN
4TxQz2vW1X/HRCUFoYYXIngwvnN09PXfTKTuvMleP4oHEj2xH11bmIgoK7mS
E8uDuHMRfR61TCR44t5y2FUetD3d81j2IRP1vov7tCkT9+uqW/FrKBOdL7Qv
za/kQV3tpWwnGSZSrZFJiKnigZ5FWshpcSbqahnycH/GA92p5NNRq5hI6/Nx
GUYtD97WitZeWZRD79efD49r5MEvJuGU/gc5ZJ52f/fxdzxoZf2qMJQrh1ZG
zk0oUTwQftxifVNdDqXuS1O4ozkLD0eeiSvLyiKupcLeAO1ZmPlUUmgmLots
9YsuWOnMQpzQlI69sCziF6/vndafBUJVWuDwPAP5tbITjYxnoX3gHylGBwPZ
mFh977CZhXqLjYRIHAP9UJjrFPCahREPGwE+tgzyYNvF+OTMwqGnNXOfcqRR
iJlhqdsvc3BW2bw8Y1oKyb7XkY+ImYP9cusGvPTEEb+Ro9Nr3hxc4f2blRWy
Ct0O44RNHpqHmPaCaMscfvRK7P7E5q55mLWJ/aleOE8uXghA7O55uBBj+erp
2XlSd8o8837vPIiG9JW7bJ8nsxtHbMUG58FNajxirH+OPBMqX/J5dB4UejT9
JETmSMWxjKBUzjz06xdv0vbjkeFPk/lnRWjoq1rOqs9mk+VK7oP5a2gIHDSU
/WHMJieTf6s49AsNlqLX6sIGvpJOvu2eryVoqNEOqnZjfCU1169pzWHQIKsW
ElB8c4ociI+79ocKDUv54/zJD76Qm9zCWcXmNAyxbwUrCH8koxNMR9MsaHgR
0BVWkjdKdlQtP7hoRcOBLsHlth2j5J+SF3+zs6Eh5I83AwHiI+SD5ovb5/6g
oWe/338HVYbJtXqRJ7a609B2ifhSea2XPHLYXEvpKA2DxuwexlgPWXKVj7f6
GA2M30SlZjf3kLZfIs8Pe9EQO8GOUP/cRUbfikqK8KNhemGg/JRTJ8kTiql4
FU5DHai89FvzmjQzsAwtiaBBXJcv/cVkC5l4RMA0PYqGrg+HTjHamkn1FzHN
3pdo6BRdvuCe2UQe8Y8dWJNEg5KqtZ7OKUSW3La6M3+NhuHQ8pi+oTpyqU3w
2PsUGox6XwvtmKglM1QusUtSafCdDd6iLV9D/jN46ad9Ng0nVyw8qhErJ4lV
1k3Gd/D8xwMbrH2ekL6bhBM25NDgOvEl/8G9YlI4JU6KzqUh2/l+gvmNfNLp
pXXf+zwaojyvP7avekDenxbObs6n4fFIzvW47/dIsx2XVTKK8H7XTQXJvc4k
EwN3TkcW436NfU8EKqaRg3dXlvqU4u/NasMmX6eQ6u0tZxzKaPBOrdBeuJFA
Bi9e3mJSQYPp1lZdW4dosknNZnnDUxpa22IDoDuElNq3qkG0mobT328dMfju
Qx6Jbo2jn9EgkjSbkHzMgSwujd/94TkNLzU+Fbyq4K/7Hw4tpWk=
           "]]},
         Annotation[#, "Charting`Private`Tag$6983#2"]& ], 
        TagBox[
         {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nc8V/8XB3BJtiQZpWGEzGTz+ficY1WikKwilErLqmRkFEkiqVCSJBll
ZfuILiFUMjKSis8ovkqirMTv/v66j+c/977f5/0673tkDvnsPcLJwcEht4yD
4/9Pa3GOSXqDK82Ht/+EfHwaCL3odqy2osDKzL/+3ywFUOija1eolSVIlEn4
mZmJ4q4xrwvWQfugeMgzeDReAoVGM4XdrQ6AQ2KyI1VBCr3OeNtWCXvAY55J
7kdWG3GXv8A9DPIE6vzL2P4b0qjql8tqYRyDBr3mMc9BGRTyNVe3tToJOy7X
JO8SlsNxb8b5D+XesPqrTO+E2mYcqXgxVCzsB8RkyFQ8RR7byl2UDYLOwsKa
fdcGVBWRoqNi/U8tAD5wRFf9FN2C+WVzZ+oZ52GGkZnB+2sLxpcm11pYhcAO
vVQ5hURlXNQ8whBaFgoSqz500+1V0LtEi6erPAzcC3YoRoqqYq6T15YC4YuQ
z91a8/yCGsY6rvDXCYoCQ4t7amG8GmiScioqxe4yDP2miwTYa+Df3u7kObVo
WFlTWno2QwNPOWTW1DKuAOuwu8ZPjW242x5WbLe6BlmXqziRponcSdkSuQpx
4GH6vmkkVBPr3gsp8y+LB2tal6nBc01U3ze4p738OszbGtzm0dHCmDyq1VPh
RPgV8OzPI0lt9LTwtR+8kAgDXwryBvdoI44+Oij0XyIUGtqtEIvSxrktAn4+
jTfhloXJQtaYNp7I/ZCkFXQbpN115QSLdXD7TqEHnl9vAyvd7YfwFx2UHcHc
JLskmFU3e2shpIsfFXPpM2rJoPhndOrsMV20ygn4UsNIAXs+juqtonqoli2q
ZGZ1D5KvX/J5Y6mPyTfdzmY13IPcloDIXWf0cTHs6QsugzQQTR00lU/Vx3ZH
U4cm+fsw8zEhYZGtj758ZyK3L6VDxds7pXcDDLD/T1179rkHwOGXmeB41wCR
wb+O5/sDMLHuuxFbY4Axrrb9h09lQKF0peX+RQN01h313uz8EPotjywxQw3x
umrC7X23H0KuWjpfQpohNsjq0KPePYS4TaFEPd0QlYUvrmCbZ8KczHeF5j+G
OP9NMu2x5iM46VxkHn6Ugvfu7mxVEHwMd/SHtqlqU7EjYXzcYcdjEGgNnNps
RUWu6Ntrrlx6DFz6XOdfHKbiKf8ht2+zj8Gl/yXrcyIVqZaB0znsbBjZkR4/
OkpFX+ON6/ulcyBi+uLb1UtUzNJrNOZ1yYF18ew930SNUHDzqnivrhyw0iP2
JVON8NNCjpzSi1zw+tnfvyXWCFdP7bZwns+FLJF/tS1pRrh9dMr7qk4eSFlJ
tUsVGWFhD9BHn+bBumfzHF+6jDCssM/myZ0n4K3jW/BLnIab3HnCVPzzYe3h
Trf5RBpOaxnH+OTlg6youjY+oGE7T8jN0qF8mHHC3t35NAwrGs+mWBfAJa8r
OQ1NNPy82PPOUrUQzr96syg9TcOKLuGBhMOFEL7rfmfpMsDr2Ras7tRCqDyt
d2m1EKDRntrZA3xFkDgadVBHDjDtfpbMqa9FsKo9qnXDbkC6/k+x/pXFsCLL
/OB6R8BsWUGpYOVi6EgTO/qfO2DYtLl8nUcxGJ5vDJo+A6iWXm2wvaMYJk+7
8A6kAErG9NJGxoqh+8toilsGIJf/lGkszzMYX1bRWpkLOGiutqed9gw2pfEk
DlcBxv3IOORQ8Az2Uxs7N/cBBvbVHptteQZRvosPLD4DetYPnEplPQNu9bFR
UzYgNWnN+c9SJfDZR3wHfRJwjBpz7WhsCfgmFmR+XIHYq/D4Bm92Cbwc+3mt
hRexYVVD0pP6Eog18g15KICYyvr7YHy2BPoqGnkkRRB3xfmUBRwrhbaAD3+k
pBB1A+KqJSNL4anlXe3TGxBl3fPq6OmlwLd3PPPpJsR5LWbLYk8p1K9sTJ2Q
Q/y6gaM941cpRJQGHJ+RR+zi2dBtIlQGMlIKk2OKiHkfHT5Fm5VB7crrlekq
iLebzjC2uJfB+j5XXVc1xIiiG9/aQsrAydBlim8rolNk26+VpWWgmCGUq66J
aHb623RxexkcV536nK2FqOHItbD3vzIQCPbpEtJB5FWhcafIlIOCb8fxXD3E
YeHqHYXUcljukHi8Vx+R/lvrapNjOYTGOJj/Jtv15ofCtkH/ctgrxpDkpCCe
rFMS/B1fDlHJ+UtLpM0eZe0WyCsHYfeva8apiOtjNiXINpaDaU7gmTdGiO22
Yqtt58th8sl4wH5AzNG9YeclVgF7zSxt+JHcj5RAUrhGBSQZ/P74hLQTR3Rv
smUF8GWEa1GNEbexOSQLj1bAf4MmvnWk+dtCnJsuVoBllt3TbSbkdVI4nTqY
VgHsyZh/SaRrbvkNTlVWQAnnhfAx0rcDv28Q6K6AasOrFpqmiKddj7nJjlfA
r7WdZ06Q3m7CyDDgq4SIDQbit0lvVHRl2GyuBLvMUzuLSM8I9Mt5QSV4NHyS
eU66Y2LvkfD9leCp1lxNJ53b8zY7+VwlBP1TVHxK+iJ950jBjUoIv9IeEU96
/4OXSk1PKyFE0fqTB2mtKNrJweZKmOPlt9tCWvB4df7UcCXcG1OeHSLXy96t
Pc7/rxKGmXmMa6TrNIu2ykpWgYmk1RYl0ikSyn4GWlVQFpz1uYqsh+9CVonN
nirIDFsjRSG9c3jT72PHqyD69ZvJIrKeMs2pOuFRVSD//W2wBOn5J2Lnkx9U
Qcz8yCs/8jy6Em5UFdCroHQnMV5HQ3x6VmC+sacKPLlbli+R5xflHE0ZnKiC
28ztUpqkXWnLQqcEqkG+2MHCiTxvXbkLdfyK1ZA0y3roR+Zh5LufsYFrNZwI
cJYJI/NT3/n9kk1gNdDbTXz8yHylVhxrPHarGrpWlug4kfmzjHDdkdxaDQl3
XAM5yHwWilrsntKhwxnnquFaMt9XZl9e57elg1xA0zJrdUT3T7QOmVN0KA18
pf5eFVEkR9vOJpMOyu/4ZuhKiGcNpZ0LVtbA5z5t1QVZxN2b7qU2KtXA24/3
M7bKICpwiQ9+NKuB3WvWFjiS/dn3VsCNP6QGNjNMOy+T/WzoMeN57FsNhKSp
rXERJffnPBvQxvUcPmd/muMm+1/Tdi5GTfY5dJwTEH68ElHJ+G/+lMtzMHpD
kazhQ5SUWfod3vUcND4w0x8uAs4McV++U1sLCxW5esc6ACf7eVL+DtTCjiMK
cjptgOMdvHkHZ2vh0df5N2MvAb8S/G83a9WBwUzwqGglYG/GSrFnuXVQr8KQ
sEsDLHMXf9x66wVwGStyPz0EWOwkUan67AVE9B8dX3MAMN9GsjWh/QVs75Yp
Om4HuFc6fvoJFwFxh23035sCWqxKWEdOW1BUubOzmLzP9SduHvpXRgBDrvlJ
5hcaShSnTopl1MOXpQOrtSzI/4cccfZNQT0sRg9/GgQaspLZ05dq6kHJ86fD
eV0aloRq/P3ZWw+fvH5mhcnRcI9l8/I2oQaoof+Z6F8wwqivv9aEhTTAxJuH
39/mG+Gv9RZ6Xx1egvU1kSHkNMLXV2dCKoSaYHur9xntKxRs5Hb/enN9E5So
Lg+7HkTB55EtNj4qTbDLzK/u40kK5ofeld9i0QRVIK5mY0PB636Ud3ejmiDK
rb8zU5KCNs7hsqF/m8Bqta/3UrYh9mzhaTUdbQaK6vQyUXLe+PJKXLyzsQWm
hkymdzbq4Y3Dfyi3TryBh/+4WblXtTDkg8jTW53vYOW9d8n0G+rIdA4U46nv
hAeLNS2DU5tRoYw7mBnUDfvtjgaqFEigXu3ZLFHlHrAaS/usmTADgbOmfRxL
veA6UpMWMcdH9EqXqMeX9cPaF5xazr82EJ4hF6/3Xh8ATbfqt6/zFYn6KI2y
M+6DIC7nc1gpfStBCQlbLFr9Gfiud3DXamkR7EdqtnmjX2BGUK1V5aIu0Tdo
xMroGAIh2cqpEi0D4ijFKMH5/RCI13wzj6EZENN3qYar+4fg4CoNWQcLA0Lc
kXIj8ssQ9IUt+n08aEA4dOpTj44PgW1bllHcVQOit0nrtorgMPwIvMN5+ZMB
0VOoZFaxYxiEuqNDX4UbEt0RYlmv64ahbqR5SLeAQhDpGdP+DcOwPMNgz2w5
hSh8rmKxrnkYMHq3UkkdhYidNR73ejsMiWMicsIdFAJ9vfW5B4fBRfQoh/ck
hch3e/UG54Zhk6etcZ0OlYiiBf0p12KARLDH2owKKuHvwrXTVY8BGt22Tafq
qIRbcEIqF4UBdjlbKrc1UwnDisdgZ8IAzvWjx7J6qMSEWtfVCRsGjJy780n1
N5Vw3aCyUcWbAfZ9C+tbtxoRuguD2zNyGWBGEbJQfGhELDo+6+PNZ4B02a/r
l3OMiObSy15+RQxwbjb8N1hgRNifVI81qWDAnNpz6/N0I+LsQPhb1ksGMIP+
ljt3GxElVbL7lL4wQMc0svf9chqhfs7Lo0SMCUudSyIP3GjEdAd1ct1aJvg4
8bOkj9CIOlWRyMj1TLg5btt87wSN2M2qztonx4ROva6qC+doxCk7gZFpDSYc
/+1uMhZLI55sK/SmWDGhxG+1bXAZjVAcnwppvMSEfE37/gOcQOwT/BAdEM2E
NzGDXId4gIhQrkvcEsuEtgcjv9wEgeg/GpMTl8gE++r7/KbiQMR8Wd+9L4MJ
Fh5KstlKQPzXYa7MrmWC2wUXyy97gBD/qayTUs+EkKQryh52QJgIrUKLJiZE
cq54MeAIRKrFgH3BGyYE+jusKHcHwrLB++K5j0x46K33Z4U/EPmlKf0r5phQ
76DRI3mL/H7nBWblArmeNOtasRQguCY8xo9zsGBXWKcN/z0gXFRVudp5WJAu
WHB+IBMIocfE1mRxFgjv/1AmXgKEd/JotII2C67GdvgttgOxLYiis8OHBUKm
nEWmy5DQ7zkeRvdnQY73g+BHnEjQtt15pRbAgp//iu8vLUdi1+hv5zWhLPD6
GzGaz42Ep3Nh2HAsCzK719/6KIBEioFMS0g2C67lifBfFUMiPcla5GceC46U
mRsUiiOR9St0/6ECFgzFHq59J4FEcd7A951lLJjf1/aSZx0SbWtvi4g3sMDU
2K3JciMS/+a4DxR/YkGMMXeYnAISXA46WXLDLJhl5o8JKSLBX3L4RzKLBTLv
lPN/kxY/QYSHjrHgn7W+fKUSEhoDQVm75lgg6BH9W1gNCV3d3B+1CyyQSOr4
M0ja6Gav7jYONtQ1illkq5P726XVKsHDhnMvVdhqGkgcpn//wVrDBo/AjxOr
tJA4IS6l5yTJBjN363CCtK+/RcRrKTbIdi0dPKWNxAXl7NUlsmyo//tCpFoH
ieRUN71wDTZI6IWYKOgjkTYdHzGpxYaHE/FOVaQf7X3eekSPDR1Z1BfbDch6
8K91saKxIfqWQpiTIRKtwV0Ra63Y8L57L2FNRUI1Oc4vxJoNr+b2STaQvvFs
+6FPe9mg/FmerWGEhNMI3fShMxt8fBYHl9OQeL78nPZyVzZ8vfOdx4u09Kat
8kfc2fANA3JaSI/YP+JWOsaGhmE1s3BAwsrPdSb2BBvoRebGPaSL4yRGvp9m
w8ZXb0rI8ZkIfHmttfgsG3iclk3Vkx78bE5fHciGyvF79XzGSOD80pOzIWy4
dC2Caw9p3m1n4/QvkfUd5P72mvQpK/XQ1MtsoGy9G73CBImOYyOnF2LIesg7
plJIa0dmHjwYxwZLwkDWm/SddBdrIoENx98ZbrxPeqFaHGVvkes5Yn+9hbR7
T4dGVDIb3IMj/SdIN07Eyny9y4YT+4m2NaZIbBE0X73zPhuMpHlTdEjHKS5x
Pslgw/xJ+769pCdMqqcEssj3h+dcO0V638EzrNM5bGj+MVN6iXRVkFrPuyds
2CC+wyaJ9Pqkb03bCtlgLBnnnkU6ovhhxa1nbFi24y2LnGcJ1usDOX/K2JAj
vfxTJWl5fLV2byWZp83ze2tI/w+Gtps+
           "]], LineBox[CompressedData["
1:eJwV13dcTm0fAPA8tDRoUI+GpJL2oHnf9+/XpEVDIqmISkLDTFMqKas3SUND
lFBSGsR7JMnoEZKk9dA9Shr3fU5E9J73r/P5fj7nnOu6fuO6PteKnQc8d/8l
JCSkPk9I6P/P27G6mWGP2BCl8dPzgR0SPZv++A4+ZUPQn8KkStqMiEYXm+ds
uChcYlxIuzgjinH1FRv0hAu9M2kvKNfTF+5kg9/SS9+O0A5t4aiEvGODMPvs
TADtV/3F0s+72XCsN+2YPW2jGd85nV42PHBJ2adJO1t+yWRmPxt+MjLe/0X7
h+HrofEh+nubKzV9tkj4uaS/cR9mg9HFlnm1tIlgu5a7XDZMav5+mkL7VGHD
1cPjbPC/8bJSjfZYY2R2zxQbmsb2vuTZIOHepZtiRbEhVNU68DZtRYni4D+/
2JBtlszRpR2r5esTOMcGsW6JHjYiMWQjv77lLw7EPv3MLKBdcfTU6lRxDgSF
FAX/ASQks22X8SQ58NArd3Ul7Yjq2YXOizmQ3yK8w5O2BSdiTEqBAyFSe/Rz
WUi0e22tvqjBgaz2HOYMA4nzxhrLbLQ5wAz7+i2e9tZFEyfHdDnwcyw/Soj2
6IuTvnamHPA6tnVm2goJCds7wlM2HIhz2/2nxgKJruXHIwocOFDwqdZrKe2C
3w6f1jlxoDNgLu6wORJ6TZ/uXHHnwB6nEQ8dMyQ2GIn6uQZwwGfq1kyAKRJL
pd+2fd/JAfUnyTOlJkgMfi0wvhrMgQVvVV//a0yvp9xE9Oc+DvjfXjzraYTE
BVX/u+WxHPh8VSpwvj49vuQ9sfl5HCDYdXsLNOnxRxOiqwo5oPpCqrtAA4nd
7c4DW0s4IGukp3h5JRLTyUO1dyo40F21QSNlBRIKvyQC/Bs4YD4cGKirgoTv
yM57TV0cEK8Jyrgjh4T6M3213T0ceJ38+uR+WToeZT9OL+7jQOC2/C3aMkgc
DzwbGPKFA+0N0ufPSdPjf2iSWMLnAMO53E5PnF7P08U7IxZxIeZZ0DvmLyBO
/Ksh0S/LBV+ZmKA9P4DQ+G1R57SUC7WlcsQZCoiwNTtEVqpwwfQBDBETQJCl
NZXvdbiwVq2prfMLEGKJngIrRy74dConXXoBhIlV9knhOC5kM62Tn2QB0eVd
oR+VyAV+4HCw+DkgjkQ2dw8kc2FA4KSxPgOI5oph7cbTXEhyMDS4kwzEOoW1
HWG5XFDb0ZOhcxAIP/L9ks5aLmzK9utv9wIipUqhPG+UCwkO5QnVUkBkZjJe
uI9zQUPSdm2VGBBZYTu+ifC50PB8ILdsPhDFWjdNo2e48Pnu8n1HZ1hE8xUW
4SLGg9RjsgHNwyyCPLv746wmD/Q9LyrUN7GIXQdqJQJ28IBMk8o5vJ1F7HXr
MViymwcss1WXw31YRJTub4+XoTz4Jvt8l68Hi0jkOuaaR/BgLt9tq4oDiygI
6NVYnMADlyrmG9RjEV0b57EeF/DA1U+n888PJmFntDFiZQ8PPKx0v27PZBIV
HXNW7Z94YPDrzLcDKUxCcu8d4X2DPNBRNFwZE88kuq/J5NdzeFA0Zat3JIJJ
hCp1PXWieLClJfut3CYmkSmyVSlCdgRUahW29fxNv9+3s63ZdQTu7zD/frGI
QYSmH1be/HgE6lp7AjWyrYnyXRGaza0jMBgQVjicYU1wIMxAvX0EMmucPa8k
WxNB09tx/J8RCLHxWP0nyprwD3LYldo3Ao9N1G8e8LAmvJnyt+q/j0D8zJHp
ZVLWhO1UjbWCwSi8d7x8LS/BilDe+s23J28UEq2tTyZ5WBK8x9kqTalfwdAs
ZFvWPjPCtiQjamTnGIg6qe5t9zElFmyJqnxi9Q0crvQojX03JAbK04NnNcYB
I6Tsw+ZpE477J+tOzo1D4e412ikiakRbR1ra3rEJePavTutwqgQx6mE+3blr
Erx6rYrTxCbhWoX6Mps3k5Be0+Hm9n4JjrloJQ45ToHs0ABD7poGxlR6VJfX
TUH7ktNuby/rY7b3RbUrunxYzfuk/vWwKe4cc0/eU8yHRQ9Ni4XqzLHymJC7
SikfKmz7OIIWc+SL3FF+c5UPgy32fYNvzDF5xaJ6i3I+nDCWLy+ZMMeyzR08
0So+qCfFnXypY4FcwmnD9Qd8EB7cdrSqyALDL9r+/aWbDyaVMjUByZZYp85n
5/TwwVjm4CnPC5b4u7rkrnMvH/LiduUwiizx7Ash17v9fCjTu75y+r4lVs89
ik8a5gObbCj+PWWJ/D3Ww8v5fHBqVBny9LfCI6w11X5SAshPqNzcZGiNfL0x
i7WLBHCnwMktk2mN4UplLVIyAtAciyU9Xaxx5w+57kfyAogrHl74INgaXe8K
ZtWUBfBIInIDWWCNalq1zmwdAaRwR3N+ijCwXcqEs2+9ANaufqf1qpOBtrMj
BxydBRDxW+/qRB8DH46WzKi6CmBu9W2PBSMMvPtMRqpzowDMj84fF5rHxIKk
KVMTHwHsiIx6YG/ExAjqTtL0bgEcnHv163MGExX7DVUSkgWgUNV0970ZCxPD
JB0tUgQQ7lUfuQ5ZyP3O2z+VKgDoZtTecGJhvWwpEXRaAC+fnQgFPxZ6r5ff
tf6CAGysjOB2Iguzan9UyhQJYH9jkXNCGwt/4vt3L4oF0LgwfWz8Hxbu+Kdm
NrmUHu/NlltuH1hoNBK2YfqaAOReNK7q4bLwtWr/VO8tOn4yZdGqYoCSpx9b
lN0XwJqOaNltDoAHFa7s2N4sgAqHVqxxBfxUFnN66SMBqE2mzKe8ACv/a9p3
6jH9/9ztA/Y7AZ2oawn72gUg7lgvOj8eMDXwdJtZtwA6wtJS/q0BHP8WPDHx
QQDDL6fCFzQCbj5up3jjIz2fQa6p3CNAzZzZPUr9AvDpyhwTPAdsfblfSmiY
jrdj25tHQ4DzzL02PZ+i83XBXchIGFGxjOo8JhBASTFr9xlRRAOZXDcdSgCT
Kk2mQ+KIvl/7HDN+CODSTaHO3dKIdUXBlm5zAjhrq+05sRTxhaR4/W8hEqzc
z7pPKyL+e+ymSdVfJGQs6LLiL0OU3jSpu0iEhN6KgQvtqoihYjGqbyRJ2LZu
NuabJmL8IeX8JGkSJqwcFuatQrz4+ZGCyWIS3l77MGe1GrGleb7Mf+RIGHmR
1rNVD7Fn9fUzdktIMFcqy/2gjziRs34huZSE7xoix5wMEZUjz8z3XkZCyn9E
vcRNEE0GDBOFlUkQJCVo+5giOrm8nb2nQoKl7bf3uWsQD2sqTC9dQcL4z7r9
380QM7Oaop6pkxDzuGaNvAVi6dy2iSMaJMzweGkaloivPxbzelaRIPzsbPpy
a0SOo93u9NUkvGreKrOQgThby/7XUpeEBZFLP3Jpy6445T+qR8KlOLGORiai
9lmdT3kGJCi9W/cxloXI+vXKx8WIhA+qxIgpIHqHHuj6ZUwCX99otJ92+HsZ
j1umJFS5rW6LQcQTtnUdfmtJuF0hvWehDWJu9WZnKXMS9EvkH2XSrlaeaXto
QcIybbwzzxaxLT3fbr8VHZ/FwTp7aPdNMwlVBr2+nToKT2jzg4YYr5kkvLs6
F7jIDlH8zYmmBCAhVkuL70ZbjaVpZmRDQp7rzbp42mY3n90dsiWh7GVoVglt
V8Uwwwv2JCR9nX+onnZQiuQtG0cSWh6POTykHcOv0uavI0Fmz/bxe7TPB3hc
K3UiIXfNVp9i2tdfCVZ4uZBwcPDmnljaDy1zrsx3I2G4gSflTLvruoVS3QYS
7Nv26InTHpX7dGmXOwnVExtuN9HzF0qKk1/iSYKcfNzRbbQVxpdfeOpFwtNV
hYfG6XgYbGuROuxNgtd6pcwo2vbtu05r+ZCQ+krzKpeOp+9aUdEPW0jYv/FW
iRvtiNIbyWm+JOyo999fRse/MHY8lredrieLFgkNOl8c58v1DwNIMBj6WWZJ
59Pgb/vJrB0k9PMuDjDofB/hjq8ODSKh4kl6jj5dH8S9y0HM3STk5O2tlLBC
FDtpXygbQsLx/H3fu+n68vCc6OaG0u9bbPc9Z474edzeOSucBNESi3dtdH3q
PJxIDtlP94tPQ7EDXb/RGXkPGREk/LfOQXDHGHGB9qQRN5qEq/niWa4GiG7T
eWHNh0hYORiYFUv3S06rQ9mFI3S+F4sm5uogrtqRr8A4TsJQ6vHU/2jR6zV0
9JCJI2FXZMPGKA3Ext+TpznxJKjPKIYw1BGd8xz/nD9BQrh286cLKohZoVPm
wSdJcMjZx1ZWQvxkVhBpnUrPf8nynCy6/8PfTQ2z00l4czANmHL0flFSoPog
g4SsUv+hyMWIvw+s23L+DJ2vnoij56UQz0oWvrS6QEKks0nPaXr/qXFYf/dc
LglcK/voARLwp5zg6648EpzIjO993wBtPxdqWhWQoHyoIvIWB7ArXpA7XERC
XZfC3eYPgNMNVxIsy0m4MFnwJ6cBkJXq1CR9gwTmhvr3MtWAaZtI/pdKEhRd
hzx8rwMqTjkFn60igegMjfbMBrTWoVy/3CPh83jLhbf7AE/+KEptbCDh/Ynp
t7eDAF+1ORNnmuh+EqqY89wK6B9UbGrxkITnVY5KM3aAiQUuy860kvDFoZRz
bSngU+lSrtk7Eibf/LdXpIY+X45HEmNdJGgcE5MxKPv/eYKXS7tJKPdW3a56
iYUFTwadpXtJEOGHKG6hN4jooypV7CG63/vIVjV7Flawx1LzP5NQUGa0M2kt
Cwc8mwM8hkmI32Ced12Lhc7622QecknYu2FtOEOMhSs+5x7MHqfjMy3NT25n
4uaNoW7Ok7RlV7393sDEzGZzLSE+XV/6Eit1y5n4I6f7w16KhBXcGIeOk0x8
7SJvbTdLwmPzG6JfGUyMu3duHl+cAsmwHr9PRfT5rR7QWy5BQUXJ0TsjpxnI
O2dQu12KAgf5lVsqDzFwU1jHrueLKUieFr7Hcmag7nKJ9mIFCoznxbzLmbDG
j6dSz27UpMBmRMFHTMcapae9Q4RXUZC4Yuhc4yJrtA/SxAfaFHTFTjqLUVZ4
h9k6paVHQYgEGZH4yArT+PO8/5hQsPD8VYcKVytc6xendBsp8N8VY7xpkyWe
SGcOXbSlQF44PNrT0BI763+XxdtTsF14X2+tuCWGy8QbuK+nYLo16XVWswWW
tcXbCDZSEO1h9txvmQXyBSyRPg8KuAtc9i2epBt0xdyLVi/64pMYOyT21Bz7
jidsyvGh4KKJ+6t74eYoZ5wYYhlAQYyU++Wou2YY6I966jsoGPgd85JIMsOq
DKGphUEU8NU/v9J2N0NnTmJMXzAFfukT63VH1+KJ/KQzCfspEG/w7lsluxY7
2208QyMoWIfJNgc/rkHV6XkKHlEUaLvVxF0uWoP33U8Uqx+m4IX/5iE77TU4
JZxc+zSOAsH9spQnq02RZWp3tCqBAmuluqMpHBPMDJzPvJREQe7ne/frSkxQ
+0FyW2gKBQqDr94skjPBwzy7DI80CoKivIZknhtj65IF7lbpFIgYx9jrxxlj
YMTJjxL0xa+XLXHMYdAIqwrtr5BnKdDd8I+pyBkjnH2xIKj/PAVzSf0OIRZG
mKuZMlaVTcHTTe0zXdKG+Lo3Zc6jgIKpBZ/CW+bpobKYY6vVFQo4W2T3MvV0
MWytSPrKYgrOv792U3KDDoqcT5WlrlIQ3KEgMxytjZseOn7ov0ZB4JXh+DOH
VmHpqEhBWzkFbdP3b9zeo4UshzTN3JsUGMjxXR+oaWBm1LrRxNsU/BBbJ1vV
r469RaLVe6opGAoft4hMXIHaHc+iPWvo/L2uu+f+lxoe/plmYV1LwZYvIdGL
7ypj66r1v1feo+Dvpus6NRxFlPUWa5FsoOtJ/z4jOEAeA0+0p1KNFPx67ZaV
NyCJt6tPuQzcp+CAWE+Y5pkC+B/Alb7a
           "]]},
         Annotation[#, "Charting`Private`Tag$6983#3"]& ], {}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{
        FormBox[
         TagBox["\"t\"", HoldForm], TraditionalForm], 
        FormBox[
         TagBox["\"\"", HoldForm], TraditionalForm]},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Epilog->{
        Dashing[{Small, Small}], {
         RGBColor[0.560181, 0.691569, 0.194885], 
         TagBox[
          ConicHullRegionBox[{0, 10}, {{1, 0}}], "InfiniteLine"], 
         InsetBox[
          FormBox["\"maximum acceleration =10\"", TraditionalForm], {0, 10}, 
          ImageScaled[{0, 0}]], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         TagBox[
          ConicHullRegionBox[{0, 3}, {{1, 0}}], "InfiniteLine"], 
         InsetBox[
          FormBox["\"maximum velocity =3\"", TraditionalForm], 
          NCache[{Rational[64, 15]/Pi, 3}, {1.3581221810508404`, 3}], 
          ImageScaled[{1, 0}]]}},
      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,
      ImageSize->400,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotRange->
       NCache[{{0, Rational[64, 15]/Pi}, {-32.529154178752755`, 
         32.52921365795511}}, {{
         0, 1.3581221810508404`}, {-32.529154178752755`, 32.52921365795511}}],
      
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1Xk0ldsbB/DzVjSJNCg0SJS4RMiY7yuKTLmKlAZEGboyl9wSIUSRmZIh
U0mZriEyJEMUiZBIxeEMxupUOPze3x977fVZz1p77++z19p7m+1FM/tFNBrt
GzX+P5vEHoz3HjurdX0D+dvj8RHN8E9Mrft6+3Hi+FTVqnw/rYUn3LNeemaw
m5N702qTpVU2FiS1ydkKW9MMVL3bX2iVCd30ttGzBVtD0dc+qU0rZm9Lj1Lv
OXgJRWyVj+3TcrMQ0Fjm7AxRPV6VhcphLRPvI/f75i5C7usHDemJCa31LS1+
x/TccSg9ok1Ej6O1pG9MXjvSE2yWWPjEF67WNFPgq3SvN3wPSyo2/bMYgzMK
0evEfeCmcvWWVMYyvF1xVHfeyRfqPI4GLxP5USni/XOk6Cpy086vZOatwSPp
hKx3c34wWX3uUpKXEIw29z/uF/eHovvSC8WPRKAj6RJopheAQNEOy47DW6Eu
u3Cy0fkGLP8czVRWEsce5UhlzchAbG1YzMualcCufdv4C4qDQPjwMjJpUhA7
UEiX7A2GWN+Bgz91ZLDBWKc6iXsTG/qnPK0a5cBv3hkvIB6KKw9/Be88qIA5
O47+H6db0Hj21FbbVRnfL9zc5nInHORMPndfuQqYnhtnvhZFYGOKxVyFpDp6
AtUft87dQbDFtNwLZ8ChYbg2NTISaa2kOrZr46yBnFyfeBQ6K8zeJ2ZQ92ZW
zWuqdxcWPR/S7QYOwOLDUo+w3rtw+tE1cDZRD3+fMP1c7xyNJN1LNb4Oh6Bv
+6VULTIGqw66cBbpGkOXvkvCUzwWPt2u8T9NDwNO7pH5xbG48kS++Ua5Kfa6
L3bc3huHC+MLK2pnzbCHY9h1yjkei23zpxVkj0L2Sox2Ajceybqneh47mkMi
QFJklXgiHqjQGmSXWGLtXb0WjlMy1G555njUnQK/UKSKAjcZv8b5vqkdPoMV
ST0Zznfuof3Ne4MpD2ssSnf8d7DoPjpcvMsfbLHFZMEt2ddzD7BXrdrqXJU9
OCJMowC9VLxyDS/JLj6HHyf5bzyITIVE+1JVtcLzmBi0mOgVT4Ne2encyzWO
oI+ONJropePquu7L0dIuaCtdbns3Lh3Z71aNfHe5iLJgmbmu4XQYDamGRZ1y
RZjERflTgRlgNMdE3Clxw25rToJz7UNYPEz0don1xMbdGxWfrs5Ej6j7uP8x
LyyaV3szfSYTO8JUyx9v9kZn8lXiynwmLu89vdzyv0u43L3EKUQjG68sjytl
C/vCJmvHktawbPh88vEnuL4w8NJPEfiYjf1nZgOTh/7FprXhHXGXc5B1LWk4
reYaakzWamSW5OLDmz7NfRb+WN6wja9udx46nBb/lfQ4CNMxOlk8fnkY2f3p
qRkZjE9n7clDb/OwU+D0DePuYOQTuZ7tF57gVVpgsiBfCMz2yfcP5OajMs01
iDcqDMYntnZzo56h0Ov3hCBPJOq05R8+KH8Gy0cevxg2kdi7S9tN+8sz8JTW
x01WR0Lst+3KIPkCSEZ/CQ73i8J0bBb42gpgPrWCtWZVNOLeyeaI8BVhI2+B
yrhNHCozGJs2KRRhoXtOIux1HL55ZUZttiiC3y/y616leMiLbPYVSy3C6uLx
5PoVCXhty2eyQ6kY/NXrDKvqE7Hwnfld4WQJCuVee/lduI8dDVkOiv4lYLww
aT5Bvw+jBNt+pawSWK7qMjO2SUGS5scGlckSjK/POOtz4gGUgpoT9wX+hwrr
YtPZvFQ4COXgUF4pYvnsioca0nF79GyxwbtSTLRyXqTwZaCkYusuI04pLI8U
vqCbZWDRmfg1h8kyHLyuKbztSwbuZQcPH+0sQ9iDRR77l2SiXdX+lvVcOb6y
yncets+GmpV49yWjSrj1SV+Uis6Dmc2Md7VrJdRzqkyFGHm4cL5DaGlsJaxT
60Xu4AlSPQIs4vorMaQ9HLFt/AmWhX/tKnapwiVG/MfXfz/Fh8r0zqnIF7Dl
uh9NEi6A2h1BRolTDSR/ZHZo7C7Gwbvcst5/a+BorZw4bFsMs1hGCPd2DR5f
OzTZGVeMC8m1UgeKapC04p1O4EIxUrPdHDpna7BMk7VFsrMES2vejUyH10Ll
QgndOawUXZNR9N1P66DOqZ8fkn6OTceuHu6vq8P2exK/LS48h12VQ1nYhzpo
3hz7Kpz/HD9CETbMrcPiDZdP3t1TiTXbx2STjV7CUD/bzwhVMDXX9+JlvsS6
usmK3vPVaC2fX9wv8QpSorRs75la1AU4bwtLagTzTky+F7cBZ0//dXokrxFu
4wT2SDZiifpYkm51I2bW+cwLGDfiwJTLuoVvjZCPUP0id78RTWfcl3rKNiE8
TUfwj1YT3mj6jJ2qacLxoq01JSHN6OEElyvQm1H85pNWgFIrJpzS/+5VaEXm
LXuJsz/bMbq617oxth3KQilPLk52I0Lm4eslS98jfzxIZqHsM/6e2vxU06QL
7Yp/fU7t+oaLWwKLshu68adgY06IyyiecBL2rFr/EaI6g1m1DDa28Lud7Tr2
CTvS3+otFE2CFa5c3N4yANXHce90d36Hs1UnvoUN4pDvo9/XHH9CQCKw5FLT
F3CEcnvjm3/BKHx94D7aNxzXTNLbTcxA2GD+Dm37EDwFtRxiJ2YRo9Evc+r0
MOj7Q/14e7l4ELCWpzSQjiFrw0uvXBYQplTWURhKh8A1j3FZrwV40k+m5t+m
Ax4Of9/1XYCBQZZGVgId66+/eG8SsgCOoJp7bB4dptygxLi0BRinnf7s0UlH
S0VHzpn3C5itzi2XlxiBcJTTMrowjTzGhcujlyMwEJue6vWgkTXK+sSdphHk
bw+pvuxNI6VdTGM83ozATeOp3XofGjk3YF2h2T2Cu45/9uhfo5HpNf68bcwR
PBC91xodQiPZN16mfBcchUbF/Om6ezTy+gq9Nk3rUZz8FOJ9+SWNZOw/bLvN
fhRh+YWT7a9opJnvsZ88TqMY9euS3dlEIyXZ50XbPEap9yF5vLWVRr5+E3Le
5uYodgxY+XC7aOS6qNcLQfmjeBRmsXt6hEbmbDCRb5sbhabAZpEdKwjS4Ylh
2RmCgR9Zi6+u4SPInTqHyEkeBkqnzvfPrSLILBddU0EBBlpnp2JaBAny4St1
1yPbGAi3FntvKkyQqR47n3UfYGBH52q5mZ0EmdBGkx+8zUCbGF/IKx2CtLSf
L3WNZqDixvW3rgcIcsPsLIgEBhS/JfCI6BFk3I5fh8XTGFhdraZ7zoAgY66O
XbQrYuA/8++/h00JMlLm49PRbgZ+roiY8D9FkKE3i3ZPiTERk3Xy4S4vgtzI
mdw8JMlEpHxF3DNv6rx2cnzd0kxwnMnVypcJsk47d7RSiYlWa/n4vb4EOTOb
khaiT/nPQ4aoP0FecA1bK+bKhHY8DC+GU/WBRmKtFxODDp/930YQZIgxzyTP
FSYUvyeqydwhyEzp662sG0yENk9L90cR5MCQV1BpPBO8WTYrt8cTpOlxm18m
1UzskH3nvTeNqjemDGvXM7H0W0PsP+nUfns/vVdqZsLcw10+PYPKs/bYM5H3
TEhtye1enEWd942RI51OrZfLGsp5RJBK+1X7rvKzoKKeV+pTROWVEajOO8VC
Ydp+faWXBDnH0U43tGUhPv2K2Mp6gvxS5xnEPMfCD81z1Z8pPzrx0VDKlYXE
I/GmAQ0EqRmW2ZMRwEKtkMrzvGaCtGZoTCdls+DwsCk0ro0gdUtcutTyWOAa
5JUeaifIXf5pZT3PWCj5eiV3hvL0xqV+QhUsmEeo9ph3EGSgfsfKu60sLJuc
ODXVSZA52Q6SoVMs8B1sZVT2EmS4R/IyKQ4LMoPpukYfCdINb1kNMyws37PF
ppeyerdi4ZIlbMgb3hhg9xFkK++C1nUhNgQEs0Z+9xPksw4F8a2ibMxE7zPy
HiDI2BQ7nhdb2VAsuuk2Rfn03tcts1JsGLnUcwc/E+SkfazlJQ027PinhDO/
EGSnQpOGEMmG6AYZ/9VfCbKcO7OlRJeNKouDOT6UA2Kth6eN2Uj0q1U+8I0g
172ScXexZoMgTQxrhwjyd+Rp81X2bLxVXPNUZJgg+09GqeY5stFewtvhRjnr
B2ee4c6GVfMec2E6QapI1N2yD2Jj+b0IE+MRgkzytlQaC2XjRlSKfjTluabx
T5632Yi4X7+hm3LdP6JygfFsDOqtV7YcJUjJmoIPK++xgcrtN2Iph6zR94tO
ZePYd/6sdsompZ7t6blsGIfpO5EMgixYvtJHOp8Ns9BrK70orzuZtq2wkMof
au2fTfkj7a177XM28hbmmDxMgtx3xE70UA3Vr4H0AQXKqZkzL9vrqTy3W7Ks
KNsb7Fw/+IYN0tm/OIdy072qqvMdbCxq5v5poSw9ceTcxAc2jpzsWztGOUKb
yX+pj42NY2sW8bGo/kdfL53/zMb5yvv1UpSP0IWsg4fYCA/0stKh/J/qk2X8
1D9B+MQ0WFEWvqVTEDvGxr8Hf/K4U/63v/f45mk2htdECwdT/rzbdVEmhw2L
q45EAuX9AbyP/5plY1eKZ1U25czOe0eKF9gY4i0wLqG8bKfinMaSMRyqEy2s
oezs0/zw5bIxmB8tZDZTfttyxthw1RjUKtx/tVOW38L52SE4hjNOVj1dlJP9
hFzm1o3hYuF/nG7K/wP4yN85
           "]], LineBox[CompressedData["
1:eJwV1nk0Vd3/B/B7SKQSSkWINBOluj0h74NCgzI8kiZJiCRfU4gMJR4lKZlK
JEqmMkuUSqiQmaSQBuFcVwj3nlu/8/tjr71e67PWHt7788dWPn7G3F6IxWJ9
YMb/z33Unr/+ihTO5Bf/7hgiSMWyb6Tvago9EepZ9YyD5/j/ZK2jcGujcOhr
xl+PSl8P30AhJ11o41PGRnkZWpJsCvrKGkW5jDOF0R+nReG5zeXZKYzn7m+7
vBQUXt2QY0cxdss4temBAQVFp95N/oxbeMQndWMKn2f0iToyZpvEhxbvYdYT
UX60j3FCsrq6rhmFyuD0tWzG9GhV+2tLCsKzPf3kGL+IHV3VdpTC1a+icd2D
BLn8Z1jjYTsKaoVddmWML2kr+n51pKAXJS0Sy3hP7663Y24Ukm41VRkyfqTZ
537Oi0KNjHP/EsbSoWeXCPtRWLEuop3zkyA716S5SF+gsJEXrnWVsba/lkxi
GIV1L/2zDjK+09BYoXyFwvfdy0aXMz7hIZDYcJPCV0EeL3+AIEfK9+fte0Bh
c/1OsaIfBKk0oFa5NZtCyOGOdc6MzecLv1fJo2Bba10tz7jY6dHwZBmFyIOR
pn7fCdJ/odjqlAYKebIidQu/EWSu3md2RAvzXhkRl0u+EmSPS+EOz04KPvbF
zywZ6786Zmf8hYJIqH1QRD9Birk9ucOdoJD6TNyzrY8gtW5F5XTxKBRcTW+x
ZXyq2r686i+F1zUvHgz1EmSDvHRX/CwOOoKnciZ7CPLmG2cZPQUOFOZ3bR79
RJDLVOSvRG/nYGLc2cz5A0H+u/dX4rmdHGQEVok1dBJkqG/tQ/u9TD2kha3B
eOC9Z83WAxxIdBRN/mxn8vavF/pyioPiQFUpvVaC1Gk/76t5gwMvO8EbrwaC
dCUsw+XjOfBbvI3IqyfIZDXVuJlJHOiGz83/WUeQQhc6CrvuczCtpR5s8Y4g
azXWc0PKODD5qPlRrJYgLf/rc2jp48Db4HIur5Igu6VynJ2+cyD+DzdEgfGJ
RB/Xv4PMfnBZpfucID2z5nmrjnPQqOXe51NBkDH120IvzBxhzrN3aesTgmyW
Sry3UXUESj0ZXOV8gjRNNO+94TmCvJXPveXvMv2xTPHrGt8RqI6GlU4nE+Sx
rJ8/ngeMYMwoqan1DkGeKQ8aGbo0AgeVooiLtwny6ufcPwYJI7j/+OfSt3EE
Wb9stsJ4xQh4J4KlOZEEmd7Wp5YpzMWFmM/St3yY/S79sF05k4sr/DXRMmeZ
/mdTsaliTJ0SiY70Yvonfop1ay4XLekSi7zdCZJ1aF7b5UVcpGn3G61xIciD
vToBp1W5sNpQm7jYhiAlhuLq11twUZI0IqtoQJBPbiUJ5Vhyca2VlbJTj8ln
z70taw5woa7SV+QOgnyak3tX+QgXMBS+UaFNkCfdXntJO3KhtjtFib2JIF9O
/FIY9+OiZ4g/nb+cIL1Ze11LUrl4ZpZl0iPM5OEpMnN1OheXazfX1BAEuXug
PCn+ARdxtONkzl8WqdSoWu+bzUWn9nCAB59Fvk2epaZTzIW3br5m/y8WqYjX
PyvfcHE9Y2mJZR+LfB2gY/+Wy4XmUdu1l8tZ5AL+2sOfdEdhUuJ239qFRWYq
HOGo6I0iXjx49hcnFgkyKsjZYBR5Dg43TzqySOfQsbRJo1H4JAzJuh1nkS/m
lVNSZqM4uzJ+4uQBFum63CTQ0G4UlkuzvYW2s8gakzOpj8JGMeir+7hTlkX6
pRQMBDeOYlHp9j7HoL8osdmyzcP1F3w7pvfH1gtQ/sZhfT8xhhCvnN/GM2hc
FRZtPHV9DAa8BuWLcjywrVK36GmMw0jh6YHp3knct/y57eaLcUzpaPkdyZ8A
dVp1DvvYBJ4ecc9y1RsDvV7W13J8AombKm6XjzI5vTp7PTL0N2RKrxwNs6EQ
4dbkIa0yiS3b3VpexgxgRm37mEzxJEz+lWzbsesrLLd2aDtYTkFUNTY6+2MP
PPyM178fnYLGVfcdByU6Ye1g/6r4wjQ4nP8FXU9sglt1U4zGpWmsTik+Ex7U
hEsrdR0ywqfhtS84P8qhCYXfF85KjJzGbKMcy2bNJkg61u4NiJvGmGWVyJq6
RtQ6qnYZZE2DbZQQqSLUiC1Oo9zG5mk0etTOnzdZBxmXAMUhZR6Mt97VD9pd
g06/E4Nbl/NwsMzF6rRKDRL/210cvpIHJa263+f41VB8ILt3pSoPdyVa/wiy
qrHyS1GA7SYephsWWMRKVIN9gNPdYchDdGDrW6WuKlhtt7lVdYqHd9Iqaj0R
LyFnYeg435WHh5+mbSQdX6Lbdt3G4248fGn9a3TC4CWOBfLf/vXkIe1j+b+e
9AucLIvjaZ3nwXDkzDa22wv4rG+0zrvGww7xk4NGRyuRIK+3+E4RD7fPnbG7
/7AciZwPhn0lPJBaUvvnupTjdqW71/IyHlb/l36rVL0cd06kNWc+40E+Rsao
u/Ap0rJFI0tqePh8Y8Ua66oy5Oo0EE0feLgot6B5PbcULw8fGhL+w0NHblrs
5XNFeKU+LmvE4uN2SEXIFcMiVLEijSOE+JiKCLrbLFWEmrRn6ZKifCTl3whV
f1iIumHlYwqSfARov9Nb8bEA7f4DrexlfERrW92V3JOPwdtez5wM+agISw+o
eZUL80PqSp+N+TCoXFeZYJeLp7I/gs1382E2o/63xIxcXIk9sEPblI8DEeOL
vhjmQOOadt2cg3ysn/b+vqY1C54XiK5Hp/nozj6yfOPch+jWK9Ne7sbHBItt
p16SgR0sj6R4dz5q/juf9M42AwsDvh4LPstHVklL5lDpAzzxrvlhHsyH1eiN
sOeu9/HHKXJiIoaPE5zuc3em7sFhtaGVcxwf9C5Jdk72Pbz//qf0cwIfQ98n
lx22vYcUOzf/mjt8HNmfJZxYlwqDIxbCCRl8JETGFkRn3kW4qayUTjkfvRus
z8aLJUN6S7paSD8fexWymlcdisPKtM7wum98tNZ9SJH/FQstqTnfFg7wEWWe
sVohIha2Q+5JWcPM/atfJKLiJh4nkxJtE3w0jGvICDRisFese2SVGI1AjbI9
w4bROO41b4+7OA1N/9SR45xr8P6in1E+h4bxFX2dT7HXkFT+8JiZFI3ajhjx
orYoDLudbfKTo0GfCPBq2BaJiA/SBfVqNJ7bDR3wPR2OO4aG8xZr0LgSRssb
d4chv8D31PENNAjl8AezTMLwIbJXZXIzDZFA/202my5htX5ujBJo6Cdb+q2V
uwidR31cZz0ad9p3pdnHX4CpvIxJkQGNo2PzjoUtvoCzv8+J7DKm4bpz3kwf
xRBUZ+709jCj0SjrI9ZDBqFrUUBzhQUNJwuJOtwOBOfiY3Wx/TSifE32eZSd
h4zNoh+3D9JQGXkyt48IwIn536yq7Wjs7yyXcC33hZB/0FZZbxqsiKVOrd0e
YDmY1DzwYc4zdOtRo7wH/uyTs2Sfo+FuqvdOxtYd0yqFbhZBNKouidYf++0G
7rsfDyIjaIgqS/UF3ncBp6hws3wkjffnzy2+4XQKw8nBrzKjaMhpjx94t8kZ
PzyW9NTE0FhYsF3Frd8Rn5fsWyiUTCM5w/R8b7IdukXk067dpbE2j7/XI/U4
ukYGNixNY/J+n3AxN9sWba9CTHQe0pCBz+3CRzZoztn38W0WDb/+fYdNR4+g
MU7eyTqXRp1vz+x8vcOoO1V80buAxoJ3r3mbJKzx1vKCtEgxjXZupsnsCCvU
wDTlRimNRDPlLKkF+/Fy/uDTxxU02kbe/SNpboFKQfFOVNLoEv2oWSJijmc/
LnTUv6TR7+LzdKjaFE+eKowN1tAwmHwVk/plD4rTB4N839LY6Zl/36JwFwqj
SiTE6mk8dPhWXJFsjMd2ZmtXNNP4IP1wyODlduSaKJYWtNJY8td+IGlKH1lb
hnbod9Botu48qGakh/uzQ21tumnMKthoH7lfB2kTZiPUZxp9itFmk4Fbkdqj
GODfR8PZdsmb0+1spLwZEp/9lcaKgZmnxa03IamgND7hOw29BRWCnpmaSEwK
Xbn6J/P+xwdrxyo0EB9mXlg8RCPnk8LhkkpVxP5vqf4ODg372L4B1oLViDk0
/L6FS8Otb8K+sGg5ru94cuT4GI3MZfbCqfeUcU3j0hB3gsattWuqxUoUcFXW
wjdwiobFVMssQdFiXBZWEpXg0zh0Ztl9TSxAODUcc1tAQ1x49slgE0lc6niy
TJUlQMNjm8m/xbNw8cWlx0+EBLAq/HPwd7UwQrIsdI1FBEhbJVScFSDQDbqp
VNcuKsDUzsMF11QmdM8HUtb24gJsvvdReUPtsK6/U9mPsTkC5v8llz3D4Iuu
r0WYV8g8xmyB4uBwq673tn+FpaQFOM+WsMtxrNL1XKUcnbxAgH+04nqV0nN0
3aU4iuqLBOCcZs+x5F/UdeOXZZfLCtAmpEV4Zlno/B+1Dq5n
           "]]},
         Annotation[#, "Charting`Private`Tag$7101#1"]& ], 
        TagBox[
         {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VdsbB3BE4ThnudJcQpThhsgV0rtMkSbiUmTIlKFIGbrlRihjxUF1
y1AoJSUhQyhkyJCZMw+JyhwSCb/9+2M/+/n8sZ797Hd933ctOVf/Yx5CAgIC
HOL5//tI6v47wWNu+2JvTk69rZo2SGAN70s3MwKd/arjptaGsPx80S3I7Biw
Plx1dvnnOJSNXVPa7OsAwdJ3UvsCPaFsbXTwKTNXUI67tC/PJABS/mqh7aZ7
whGKWqv7posQYIv0RX19ob3KQ7QmNwzWtLSE2ZmdB6WyzvIuyxgQZo5pGCYG
QoOxZdDrhQSYGkafVOjBUCOzYen4TCJ8FLcxWfK5DI52gxd1DW6DsaJf1DGz
CNg1Pu7zhvQQ9HYun2z0jYQ2iTyFxUdZoKmdqL03MQq8t+PkioM5IGv6akiR
fh2yresq5Mty4bf7rPm8Tzy8DX6/PohUAPbH3q60NKOC5h0nldGXpWDbt+pC
HJ0KijWkyPCmMrCyt+S+902Gkic+kd0D5WDuyi/VTUwB8j0TsqdiJfx1foX3
NvptyE0vtNzi/Q5WU81aZn3ug/JTqVBj13oY+vql8YhZFgzHacSe+LMD2kvF
XKm3s6BouUpoKLEDyq6r/u4dzIIw5ddrpGc7IE7BX8MxKhs0VcqfWdR2grrL
7F3fmhxYqRogxjrVDRf7hX1i9HNBzr6jIO5NH4g1yEnUqueDAHT1/Ghmw+3O
nU82ShTB05rO4q9hQ6DrIN8fcqgS4j3f6XkNTEHvZNKQekEt9NrWbBGM/wW1
Eb5ycfcawbA/OcbAXBBP+GRZ0Xe1Qo47r9ivWhh/laS7NKZ2AGl7RIGTlCg+
ZhBum5DZAeO1OurnZERxlfeOQ1ZPO4BnCDH/qIhiam2QDrOyA7atcyy5YCSK
9wZKUSYGOiBom1C0yHlRnNR/8M1azU5wDQsKud8uivUyqtd4fuwECUrNqaAo
MXxDNadZeFU3CPrnxm3uEcc5Un/lyUl2Q/Dw/vaTbHFcOd8Yu29DN3hHS+9N
HRLHw40j5hdVuyG088y18TlxvN9dq3HkKOEEu3tGW0h4Ka22rutuN5xODpjx
cydhfwq/8oFKDyyIGlxoHiXh6z/Op1Vp9cDMDNSTfpBwBks4lLG3B9DuWAHT
RRJuzVPSlz7aA5WfJf/MJEtgJbNz5dEXeoDzpXDH1E4JzAtbLvGr7AFVL3Hj
P85KYKvvWwr2HukFrYk0a+VBCbwyTt1B5ngvVM9K3RAYk8AV8oarBFx7YaPG
gvjHGQksb+PuXBfUC68HM9sOCpPxzOs8ZJHeC7TmZ4Zd8mR8N1TnnN1oL+RH
H7wl5kTGvFVWu87H9cEKFa3ldW1knPLAlW2d0gduxsI/irvJ+IBuYKx2Rh98
rH6zwpxBxq987vDnCvtAw/HmacsvZBzVxk4Ko/fBTuMw1WEBClZK9plKUOoH
rqFIE9akYH+ZqKLchn74tKxhEniDgjsCwg/w2/vBxUs3IYRKwRr1odyN9H7I
6U/ZdP4OBU/5BpFujvRDsdspyuGHFBxc7ukWKEmDgu8VOveKKfiKzYHVhvY0
uJYnuy+JTsHcXNOnl9xoYPcgq0mUQ8F4wRCKz9Dgqpl2SsgnChbK0vPdEUaD
9kynMb0RCr4+oVpHzqHBD/GND47/puCbcZQLjDEacPN+dk1sRniCLS4m/ZMG
ZTXtlkxZhC13rco8LECH7CkDiWoFhKVoy83vpOjQdumkvvefCN9W/C6fq0MH
veSSEFt9hDPedXdduEoH+py0fYIdwsurO7yex9EhY6o6d8QeYZfTrUtDyXQY
pKhrGjkhLE+pV7F/TAczx5jFHneEHzu8jsAtdPj5qNI/KQDh57N3NclrGOBR
79zvEYuwuN1J6/UyDMgKXOxTSUDYq3Rr4LYdDDiuef7Ml5sIK1x8XKKrywDa
wP0TZikIp80X7fF0ZEDhULxRVgbCv06EnAjwZADl89nZbQ8RPl6hdynUnwFz
Kf2G6dkIr75c84Z6lQHdX0weBD9BOO73x31vHxHesy7yfSHCX09SnZtfMODO
ptJfQsUI76/6O7y3lAHZrVskdF8jLHiFVTPygQEDtJjF+AqELy5/M1k/zgDZ
xaMKbbUIewqJHAz4iwkxHjE9lZ0Iv3dt8g0FJkyZZq8O6ibqURefEG3OhGs5
2VMKvQizI6U+ptszgfJtO9WXhrCNiKxV8xUmfFvwcU/hIPzKYyCgN5oJtNC+
AjEewpINj6m8RCbsbBbMDOYj3HJ9Z89sFhMGDuX76HxG2EhU325bIxNU3awb
bL4h/MBrKUStgwkGRoX7oocRXmqquatLZ4KN/E7nwhGEy2PNGUdHmLAmo+fe
6BjCa4dJC/YzTBjeqlG6OI5woEX7Js9FJjw9I3Zl5STCGiRbx1DEggSTZ+Tl
7wjf9N1wJXo9C/6uLOofn0J4tIWVQZVjAb+3/EjfNMK5CW68J1osGMq22Z/w
A2Hhse2CxXtZsEJRt8l+FmHXw8Nyb01Z0MSpmJf9ibAMJcCt144FhQYH/VLm
EN4gW2z56BQLour1SZbzCEtr/jQI8mXB/iQWX/AXUQ8TPVXTIBYsPJeefkqY
ZPvv+jVhLCimt4H5AsIrvd6JDMawoOPqTBOLsNClFdPFVBaY1ITcOv0b4bn0
2DabxywIb3GkOS8iPF3QWqHwkgWXZPNPthEer0FPZspZ8G6LmvyuJYS/dR9L
fV/Hgr1KPOV4wp8HUyNS2liw1bwmkEmY+5Pm797PAtkd3SvklxFmiG123M1n
QRdlI82JcN8mZwvhERbMDqVNJRHu3Jml0zPDgkYtD5s3hFthUCFniQXm0mFL
DMJNVkpSgaJsyMTz3ycJ17n5LhtLscFLdFB9kXB10IvR1ZvZsNLKtnyZcHn0
d/qAIhsEU9xuzREu/m93Y5E6G46zFYu+EC54FlIcqcsm7idlim2E86oqHlob
syH5mt7XJ4QftS/e3HaYDai5ZeES4Qd8HDpty4ZK1q1TxoTTpiO961zY4HIj
f6MQ4TsijbbJPmxw222hVEr8P3WduIlbIBs0CpPjXQnfVD68S+sKG3K8XpsK
E47VT5RZEcMGP+NPdmlEfaMOd5O6kwjnH6hTIRzmvHY+6z4btt6Siy0g9udS
wImh84/YIGL7ME+FcHBkWrdRARtI34SU04j9DEjlvpMqZ8PUswgRYcJncuVf
fKplQ12os6ErkQevco/7r1rZ8OcrBvs1kR8n9kjQMR4bkn5WGRgT+ToxoeYm
P8wGXaGSFZeJ/NkInrecmmZDkZuX+lMinwcV51SoqzgwLGxQ9XUG4T1nhXmd
ahzwKyvqnyH6QSvMrO3hHg4sWlInuRMIqyXFVQQYcWDjKPufGqJ/FEskU/+w
5UCzttHA6VFivi5utrD6lwPsWr89Rl8QJiMXHbloDnAtexZ4gwiLymUrfE/k
gG3JpF4w0c9LJsrLiTnE9yq3akYR/T6SoF3c0cKByrTUnWpMot4n3OLnejig
n7X6dzodYb3tSa6yHA7cTsiPFyHmSdzbUclzkxxglihMv+lBWGkq+yxaw4X3
m81WNrQh3FHdaaIjw4WFj08EZlqIeRa/vMl5Bxf4rw0aNjQj3Kjg0PxClwsx
QmplhxqI+WYnteOIExds52scLKsRpijgpaDTXMirt+jZW4lwyeTZ3vRzXPj1
MkFejpiPwnEfIsciuPBqOsO0swTh7MpwXkIuF3IPS7a25yPMk5v4r2WSCyFb
tSTN/kM4ZnxzwPQ8F6w+OMQW3kb4rqNizg1BHmSYxo2vJuY9VrG+XCLOgxe4
PuIdcR7cqnuhLLKFBxfOPFooiyTqP+txPceQB1rP+JeVziDs69ADA3E8eFzS
4S+hQ+Rx47Mk+i0ehB2R/KWshfBL+tWB9hQeLP0oxPvUEZ61U4+uzOCBxId/
SQd3IBxuE/cx9RWxnubQ9WMtwimHsaM5gwfSrD9EqDMUXAX5l54r8wGFp5+e
eULBvKWI1mw1PgQfNyweyybO5+oTMve0+JA/oS3MyaBg872raq8b8EHp6IXS
7BQK7trjKuZixQdurt3zujAKHtq1/q7UP3xwmGocs7OhYKQQVRLSxIfhB0HM
T7Nk/NK7utW2jQ817Y2inEkytiyYG9Du4kOV/jVaxzAZU/XOSs0w+WCVKeid
ziHjtVa2/ucm+MA5dp/aVU/GMleUlL3XfgL1onDNAioZq9Fa0+zdP0FDaI2F
8XYyPpSwJspAYAA6BKYVvbUlsLG6aWKT8AC8/PloZIS4v+l1BaZZiw1AdGf3
79PbJbDy+p5ib6kB4Pu/Fz+0jri/5VAHUxUGQOGK5pr3cyT89g0yGzcfgN6C
K9+CKkhYc0RMPDNpANbrKU9O7iHhDRZLtwS2fYbTISX1zfLiOEWfreroNAgN
8yKr5IJW4cyI1SKlUUNgbGSBD/0njO0WwS+v7gu4jd1r0VARxE/WHdFo//0V
qkQDtPtFFiA2ukj9u+wwqPI4t0vbp2G9Knqb7zgCOU/fWDs4fQEdhdp4j2uj
4CKbwy91bod7YWv9fkuPwcfJ7a1/rw2H/wF3Op1f
           "]], LineBox[CompressedData["
1:eJwVlnk8VPv/x5W1GTOnJJUuSZREQ4tS6l1S9+pqEb6htNipJEnWQkmWkDWu
yrW00EIYW5yPK7uyZkv2rcXWzDkzmOF3fn+cx3k8//q8l9fr9flssL522m6p
iIjINPX9/79/wmjRV3ECCic2NZjJ+eNmIQP2rQOTMJr67fmjhTE848uARqbo
NFg9G79tHszBPUROuBSkTkNQSrlX48V5XHZe/dy3AzNwKmHaQvf0EuSdkjse
0DQDzXFdCWo3xVDBhd37b7j8Bpt2nSTzYEn0odZea2gJB3bxonnGy2go7djI
aVUxDsyZloo5yNBQaL3NTQcJDmz1Y9M91tGQxaeLxT9pHODsVBEGaNIQ2WRp
wF3JAbX7D9SMjWlIq/OEufgmDqg7HPaqS6ChjFEd/83HOCDDnp9erURH4Q75
qU5GHFil7+LpoEZH7uM7KrNOcCBxciQrW4uO9H9o0bRMOHDplDND6xAd9U+o
x+45xwG/oXTPwUt0JE8ovjR04QDmLjK4MpWOIkQlmy5HcyC7Qb3ysYI06nHN
UO2L5UCK1CHnD6rSaGvvYZ/TCRz4lvLUoFNTGtUU+m/STeaAk1XhQ/5+aSTq
Mucr8ZwD2/XdNny1kkaenRNb/i3iwOwy9TbVZGlk/abtbns/B0a0i7+VyjBQ
tvyNLsMhDlSXJBYNrmWgxeAVrNIRDliktF9fVGKgZOsT3Wk/OKCyOueKEouB
OlbXaF3nckD5s94hkb8ZyCiw5BtdigvrJm+v2hXAQDpnUncfYnFBVd92/6Ux
BtK6URIcqs2FVeEDCrITDKQe2dbRuoMLoyJ5KfhvBlKolvC038OFjKdGQSIL
DCS2+3Jh2CEuNEjqR2+RZaIWuZ267SZcsHy7eVEOmMilvXLvZU8uZC2sCzGO
ZCLH372hed5cYP/aMiYby0TWTH630JcLiaLvXjU9ZiKzo+o+UQFUPaKlptqp
TKTHjijJD+WCu2wolpDHRLT4M3oiT7iQfO1BwO8OJnpu9n1/XDkXwFl3smcN
hiTPK5djH7mQX8X5OPcHhhztzxqEVnHBrz/GEduAIfVbn47dqefCNm0ppsIW
DL17nHPG6QsXYqJr4mv3YKjwq9f1/d+5cL32zWe7/2Fo7fB7bsFPLuQtt/aa
ssCQ96+ft7ZPcuH+Dn7jNSsM6Qmtbm/mcGEyucXT1BZD5Yr6YSuEXFiezAl4
cx1DdZdoGSPLCbBViS1LDsXQVufDahdXEtBk2a0X9RBD4W6+Wd2rCMgcUvzL
OwpDJ+5O5jTKE7Dtgc6CdjyGWtNbyopUCDjfoprP+hdDO9/Q9XduJkB0oM2h
Iw1D8fkGlW+3ECB7ZejxzecYMq9i16dtIyBFc84lLgtDPWNJnQ/3EHC3NqzI
Oh9D+6dbz0rtI+CHfbpmWQGGnvKl+wL3E1AqyZRZXoyhi8vujNzSJ0A6mq+S
UIahYXWb35eMCFjNe3V4ezWGJq5ulda5SECYhMJ0UjuG5lT6Qu5bE/CK/0kF
OjEk0RMt2WFLAMfxwq/uLgwpHptb6ulEgFiPJGu2h+pvU+1skRt1nozMhaZB
DFl+871Fu0lAyZ9WktrDGLKP1SIsbxHQ3eK/J2QEQ3eWPp6e9yEgfvCaltI4
hrJ77cf2BxGgyN1mNv4LQx/i5O0igglgcV2VxScxVGP0ebA3hIDoylmXtVMY
Gije1XsngoDIT3sD1GYwNHn9+9mmKAKu6WYYbPxN1a/2pEsphgDHoeLAVRwM
ySSIfSlPoPo1uuTcz6XqP1F4WiaJAEn/3BVFBKUf8StN1skEfOzdwQohMXT4
Rmu96L8EuG85U4PxMXRKPdjQNI0A3am6Q1UUnxvYW52eQUBbHFPTfRZD7idT
/zuSSYB9xAdT9hyG/CX+dzD+NQHjhyUjj81TeihdVjb6loCitEGddoofu5fu
251DAL/i8N8WAgxlbL1eFJxLwGTOhvpWit8PquzuzCdA4cbN/CNCDJUlduap
FRJwS2LvsncU150K3+5VTECc3ZVKbAFD7ZIHs2s/EDAaRP/uQPFgGUdTHieg
z2LNjQKKJ2++yHIup/TXEme9QPGcxtktJRUE/Op9wNZbpPw1zHxBryJgyJV/
1Y1i2X/+UzlXQ8C/3hPBzyhWOu2R+rqOgK4ZN9GPFGssU1cSNlD1NMX19VG8
B317cryRgJ+r7NZxKDa49Wjd02YCrGtm8oUUn9p2JHGylQAhceLtIsXnRvhy
0E7pnf1IdJZip+TXsZGd1L7Vm/O+U+xhclGmv5uA4TubypspDqTJRml9o/w2
83pzDsUR5dWMgD4ClKsDxoIpTvL0CWseoPox/7hoRvFzFmuZ8jABu7D4a+so
fj86eN9tlAArW3mdTqr/sifxYhXjBMyMeJwOp7je9Fjgyp/U/Ha1VuymuJO+
sGgzQcAA3SKkm5r38H85fnlTBATp7Ex1p1igtdbLjEv5/UB6XQS1r7+yblsk
kQRoGNFdV1Acozqs28cnwMFhpCSM2re6/Ls5RyGljzOCww6UPjxiZb++WSQg
ovu/2zWUfsqZ3iW/l5BQVYdZbaDYXPSIr68ECUZ8uyXFPAyl+2WeK5cioSdT
qmqW0ucUD9svQSfhbIHtVm2K7//qFkZiJGx4/ujLfUrfuV9c76StIeGriUbc
p2kMLZxsvzAuT8Jhx1mjOso/x+r2HdRUIOF+2JGUMspf/WUSSwo2kMDaPiwX
QfmP+TI5sE6dhNSHV3fUjFF+Vl5qg2mS0O5zhh0wSuk12eGwKYuEcVGppu2U
n/UebRfr3UHCRElwpQ/lf2fvmqAZPRIq1izNfEnlA5uraa8DJCzJlWlT/Iqh
JddijvocIuHdx/yocCpPHtuclxQ/SsJVmXL8BJU/VUbcB2tOkhB1tGLsaiPl
32oLJytjEsLbWIkpnzBkdQg3TDUhISw+oKuuHkPcXaE0DXMSzr3bJC5Rg6EN
65XC4RIJMQOaQjmEoSuJQVfu2ZAgV3pZXoLKv8KVP41q7UiQFb9c8auEyi8p
NsPEmQT22SMFKVR++s78HWl/g4SiUSmFtLeUHipuRT8Mos4PWf5kxT8YClMX
Zog+IEFLYfOrg48xdOBRYJFXKAkFQutSuzgMpZ1/2G8XScJTqd3CR5EYcplN
3XYgkQQ9P89Wt7sYEmN9rpt8TcKkvNJbMycMFcSZ9Nq+IwFf1a08YkfNT9A5
051D7dOxN9nZGkONtUNrqtnUfOkBKWfOUnq3nbV/hkh45SQ2UmSEIe0kFdFT
bSQMHn1p+0yT0qtIplxVOwnvz7ZrRFL3YbwDS12viwTfiLI5d1VKvzv3Gqv1
kvB7yamXygpUvjaefCYyTkLy830nJaQxdF7cZ1/OPAn1C/XCyTEmCnVtviGz
kQcx9q0qf1H3+XhQc8B5VR7MbFm53jSGiY7+0xyZuZkH1goH3M5EMNHSquYs
fQ0evHPRVzW4x0Re61qG3HbxQNFifUP+Neq9UNVi0vonDzI7/BLmDJjozz/a
dsRe4YFK4dgj5ncGStduO9TvwoOTEVcbJYYYaOmfbSc1rvNAt77fm+xhoLLr
bZc/3uTB5Ms5xQ9N1Hunui2Ne5sHq58k5vUXMNAmty8rzR7xIP1r43DkPeo9
U9POWcXmgWbHcd+HqxmotpbcGVPIgw8z5yS/YQwUUS/nsbyEB+bDx14pSzHQ
2sb/8WmIB1G5O/ZE8aXRtvZ2wWItD5xHTbO5ndLIfLhd/Mc3HtzMdgwdTpBG
r0U6VpeJ88FsqvzHFaY0MtPt2GdvxociU+HOxF4aslx42ddxhg/an9zvvGmj
ofMV3ncNLflAX11fWVhHQ/bHFes1LvBBoKpinMemIc9LdpYcRz7MnFbPgQga
Sg7hePr78qGGXaSQuY+GhrswdlIaH9YfVKcPRS5DN7z/0mqc4cOm1xF5aYpS
yMLeroJ9dxYOfpRYf3GNOFp1xU/x54Y5aA/ss4q3XYIS/zi05mn+HKTp2aYw
DefxH8k3y5yOzkPMuXtRCy84uMzuDI3AoXnI/Xgg2I8+hm9K73zQMDIPU2o+
xYtNo/jeFdIjcuPzUMltT02KH8Uv/XR7kvVrHlQkvu/5Q3kUz352kPmFmAdl
G+UDlntH8BNSPVObpQRAGuqe3+g6hId2yeR+0hDA2nnxM9fG+/CnR49ia1gC
yLSUqLTz6cPf53pdttYWAJ44kfWa2Yd3PezfyNslAPMHjVFaOr24mv7bWCUQ
gPu7mCPbQ3rwqkxDjxvGAnBZPOC9+2AXvtTXX3ethwBOFiU/lBe04CL2x6tf
eArgyOfm0vCoFnzhpLyZjo8AarapND9RbcFnN+a5mvgLQJCzsPeFcTM+XT/2
4mGoAAyYR5QMbRrx3nUn5ZY+E8AyVrhk1+ZavEf8j/Sof6n6uW+1LB1q8O6p
ce316QLo3Hex3+9lNf6lIvC43isBsMUy1zewqvCGy+x7HrkCmOkOTr1iUoEX
lShwflQLoBzfWfB9ogRnZ/zw96oTQBoz+0vxq2I8L7KAKfVJABef1yfLOBfh
2TbG6qotAvhsOCJWyWfjz+lBly70COBUW15ImPF7PJ0wnproFYBN2EWDgZ05
eGqfop/vgAC6R7i/KxSy8Se5hY8TRwVQF5HkmLvkNR579ldj67QASiprOjU3
puPRR4qsrDkCaJiI7mMdT8WjWPd/ThMCyD4WEfQuKAUPE1WSZM4LYPix7kdD
wyT8wcSv2GShANqWWxRLr03A73cUKW8VEULLKdbzEHosHphlcuAvcSE0eOUx
rpaH4/5xSg3tkkJgTWQY3osKxm/fmbCwownh7PLvU78LA3Ffp+IxjrQQxp1O
uDKCfHEvk+CbgZgQipeff3rfxR332G8qukJGCBt1PF4ORjvj7ps3PHomK4RC
f/NTK3jncLcVk4rbVgthyOWzbm2AAe46X/z6w1ohuBqb8/FSTun/AfbH0xs=

           "]]},
         Annotation[#, "Charting`Private`Tag$7101#2"]& ], 
        TagBox[
         {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
          Opacity[1.], LineBox[CompressedData["
1:eJwV1nk4VO0bB3BkSdkHSYslw8yZCpFCvfeDLCFFC8keEr2WUKm8SmlBtlTS
hiwpSvYtHmNJDFJ2aQ8zZkrKtNh+5/fXuT7XfT3nOc/3vs+5jppXkIOPkICA
wBpBAYH/X+2uWdw4xjv4Typ2UrrcchHi33D+uWNpChpekevFaviwUDh3MNzS
AU5edY/bulQAVfJiaCsDDkAYZajH8s4iVKl48ZinpRdUmS9eln9LFKUatA/o
D/pCUavmmbXG4ihkn7Tx4oAAGA+Kzpm6vhTZHdt9Z3g2CAridmap1ksihfb2
KEfLoxDVxvRFddJIeJinY5IUBgGPC0ped8igKY70R2LwGNjdEEpyfCyLOpfs
2TbvfwooQ12UcFsKqlU+Nj1WEglHFbf+/Cghjx4Sabnds1GwJKhdU6BZHplR
A887WEaDmUzuQrSKIjJat+DyPOAcCImt69rYqIg2bEzauCXpPHyWZLqB5zKk
al48Sh28AAfTfZolEpTQrDff6o9/HPD9t14fLlFGP45cVAtMjIfKutyrS/VX
IE6Y0t+PJVfAYDhJfqpoBRo4b/SINZsIbmNLopIzVyJnh3rRXZYpQD2ep6Xs
tRrt6xMLjR1MgWi5mAoV1mpk77zrXVPAVSh4H8we01NBVl4fKgyTUsFlzNZN
eU4FGRxddHjN4HW4N+P1TbFWFW3g2/S6BtyA+Oce7VvZqmjdyVSTtLkbsP7J
cp1EBTWkEU1VllS/Cdh/OpwVoIYoKZbtfP9b8GZMxXm/tDqSUkzapDt3Czh1
60ajDNTRkvSB+wGJt+FvnZndvIs6Eso6fPp9yR2IYOXYyT9QR5NP49a1zd6D
gxseuSpsWoNGx8ee21lmwbe/5cmHjDVQV4W4V8r1LCiPdI6xdtFAlRcYs71f
ssAtfufxnNMaKFYjSMf1/H2Y+yra2VmjgbQ9+GkBDdmgsNGp1FCfipS0lfSe
yORAtZX9ey17KhKaN+yYcs+B0uEjAVn/UlHPrUjBk/M5YMRN1TbPoaIT/cL+
l4zzSO+4GCGtiTxzNYVZsXlQ4x2zaxFdE1mHW92VHsqDmLCxUZqpJlpJiX91
/cQDGIhMXG4XqomwHcU4pywfymdM0NpuTSTeoibB1C4ASU3HwZDTWmgq1SxX
JKoAVpyVUfZL0kJvDvqg7Z0FkBC99710thZ6LJgf9vJIIfwjUW16ok0LOWzV
GXmb/xjUoowHWyk0ZCzhcFz9z2O4XXF16hCVhjSGQ2V9rZ7AYWnrk9iAhvgn
Ksx5o0+gUirbNdOJhnY4q/TPJRfBJV0pFaObNMQ00cm+V1UEe5umT9U+oCED
ukmIyYciyMRjI/MVNKT622tpjM5TqPd9kd/SS0NT13JBouspOB655XxMio6u
d697oCxRAtv3eidwwuio9j575UrdEtgpWC36O4qOPoXnJK/aVwKfTLRL+mLp
SEd51SnVjBIo7OwKFs+gozYvCTtN/VL4HEpN2dVKR5P6rUyt/aXwSOci60c3
HS0TO7+J/l8p2L5XvxMwTEfej2ZU17aWQgNLO2WIR0cLPzg/dF3KoKA+JxDL
EEizJddP72wZrN20WZyynEC2aV4j+rll0Gs8vHGrGoHStwy1bJosA7dG1oPl
ugTSj3lxc+v5cmBPNvvO2hHI2TFGCvLLYUtmqYTCPgKdpZucQ53loPL34oSY
K4E6OyqPmClVQJyPSnKkP4H8FB/A9oIKyO0ieEXnCJQwfrDUursCEiy3vb5/
mUBl1Sp0W34FvBUrtg9NJJCQ+w25nagSln2I0c9PJ9DtvAtf9vRUQilLhzjx
hEDMCFPnfX/Ium9TiGMpgdg2852Oq6tg38qbYQpVBDKYDK909qsC3S1nC9cz
CfRys0+cx2wVCDfqt795RSD+EjUBL7VquH8yvLuyj0CrRt6EHbSohuVZa6PD
hwjkf3aPm29SNaRbv2ElfyBQ0m6Z14fKqiH5htzQ988EqqCyLA8PVYOykskJ
vXECCbeZ6R7RqAH/6W4Ll68EIm4v5Py7vQZUrlt8MftOIPvAGuWgwBr4lTgy
KfmTQHfl9ISPVtbADqPPGtZ/CNT8+euJ0JEa+JiaWl47QyBu+UNemFAtVNTw
LsrNE8jwgHr/cdtaaLAYLvMTYiAHz7/H6oNr4VekVaG7MAMdOfRKUexaLXj8
K9toLMpAF/59WG5XVQtW7GDqnBgDZYRG77s+UgsqIVpC2eIMVB3hzB8RfAai
mpEXdJYyUE/UhutUzWdQVG72LkuCgRbHf+wtDXwGATRqvaE0A6mnVIfPpjyD
B1/u33GTYaAtaSkK2yqegUOr28JhWQbad9e/LG74GbQUT0m5yDFQULbp3tcL
z2BrexJfn8JAlx4qTytr1IG/hsD7n6SziqZSvazqIMr13s9b8gxUW96m//BI
HcQZ+roSCgzUV5vV8z2pDtjrx0wzSE8yT4YZltWB7dddHXOkl7xwkD87SN7v
Y5CGmSIDaXQRpa1z5Pq8J0HBpLf2Cu2RUa8H5dMr+2JI7xse+uFoUQ8p+d7/
nSMd/KH46j3/esgYHUw4TDp2LFZvLKEeiOKj6zaTzuZ5vV5fUg9Fee1R38j9
6n4YhR7rrweZDtqjRNIDf+QodTP1MDh4rEeJ9J+o8EEhGQy+J2xV48jziJ7z
zNdUx9B0ZqJ4lDwv5cKOCGt9DCXrTIsYpFUvG24PtMBQZMM1dibzWhtPXZ7i
hCHESz/iKJmnYaIsu8wfQ82AfFwYmbdFylzl4GkMrXKGqR5kPxyusS/NJWAw
j5svN5BiIPe0Xie1TAxOY+EKv8j+HbnVQDMvwbBDxLs7k+xvxN3C337NGJJE
zSQ2LSHnI/Nma3w/hug9ZmPli8n5yAvx65nBYP1hXuC4CAMVPnTd/FuyAfws
Ss5ULCLnpXD74pWqDXBlfaT6J0FyXkrUHhzc1gC6xy1tZucIJIa7x6biG6Aq
l3nLcJpA8o3PKhTvNUDR4LK0vikCqbbkXzR62gAUs8pC90kCGbHOakX3NoDp
3qpbBhMEChzQPSS7mgkHpNPL/r4j0KnhVZs26jBh+72Ropk3BLr0VlxsvykT
TPpXFrIHCZT1+UNuhi8T1geoKl15TaDeyeRR7SdM0ONbVP1sJtBKx8idI0wm
eDZbWsiR77/3M7/K2D4mLIqoPaVcR6CflyH2yxwTFN37fCbKCCS3hrfulm0j
xMvmvEzJJtCuvVbhopxGoL8f/kX5j0BpNXpvS+YaIcTtru7ECQK9V1Ox9JRt
glBqmuSTUAIFfZ1Wqt3cBIEKNupzfuT37eL92pCLTXBKQ5VX5kAgVtX8ohGN
Zrj0VL29WJ3MR5VzJHZzM3wpzErwXEkglwu9vZtsm8Ew9GTpvAKBJhwK8lJC
m0H/jFOSsDiBlnD321gxybpIhZvJVzqyXF2WUuLeAu1vNY9eK6MjZnSAWmz6
c+C+j63duZmODrqtdRsreA5llepOl3XoSNiIl76t/jmcKfLQLafRkfn3QPmF
T8/BJZrxka1ER63uR8XC1rWCraTIqprfNNSxJYLnilvh8JPZPEo5DQ3wL1Tp
jr4AL1HXQUkaDX3zz7If1GXBYm2TPj+uJmrL99LC5iwwCUL2Sz9ootxx9bnc
/Sx4YtpMvd+ridx87z8IO8uCgfEh5ZI6TcTyzF6Q7mbBrs0M3t4kTfTAKbfQ
IrgDFn5efFqqq4k8LB6Klz7uBBdxvTf/kP8b4zKDHs+vvQQjecpsQtsadIWR
3SYs9hp2b7wfLWquiuy/r3qyxa4XvLokzd6HLkdBq8+X5LX0w/jZYufso7Ko
kJ+2QVJhCAReDdnvrFiEVkuFHOx1fAP5XUtVne9+gon4jaUv299CcP0OPePM
6fqAAz3wKfY9NDYdatH6thhLa5wvO976Aa57N+UtlFOwbbzC+a0CnyAk98eV
rXuU8XLr+USBNZ9BaevPgR9/VXCq8QjD1e0L3HH0EPnvmTq+F00RqTg/CvYR
7KZzsxo4Vr/yVfHlUchrD9a9LELFYaMuGY8TRqH43aVDl6So2No61zg3bRTO
6SQSYapUzJc1PHqtYBRWCBl8EthGxTsy3d6F9ozCNlH5Ed5lKp6pz6/S0RiD
qn9SqBKymthxDgIfNo7BiqTT2dISWhhvtBJMbB2DS+Y1Gs4ULUwE7koN7RgD
F+H+fXeVtfDsW4/qLf1jUHcfsSh0LZyFz4p2ccbg+Jd9I8XmWph7rvHuD9lx
iOv4nYcjtfCZJZZdWzzGYV2y31UKWwuzTXd6qfmMg8ySH6Yp37SwwynHaRH/
cXi10vzcEr4WpnIPregKHYeJFJ/iMSEabuu4dMjz4jjwlYae7FlJw/LJbQsx
j8fhULr63t87aPjBMjudrtlxCFvjxnMvoGG/QptKd0E2bNC+fqbwKQ1rmW1H
kyJswHq6ntPlNJwbuG2XrDQbmuLeiIU10HB2s1HwbjU2mJ60GVjbR8MZoVpF
/eZsiJQ3nIqbp+G0LgGd9wlsCDoheXPGmo6dfOYrgq+y4aNBTFryTjpeNjMD
gmlsGK007VbbQ8fXNX/tVM9kQ10NcHVc6Tg1khfkXcKGm2qmleJBdJzEGHoy
3s8G+3g+kZNMx5cvlmh/V+WA0MyqyqhXdKzEn1z1mcoB/40s/LiPjnO910v0
Exw4Pq490TdEx0yT/PFafQ4I+2VnyX2i478zdzMvWXFgR/3euE0/6PhIcCxF
NZgD09bf6g3kCPz37XNBSjgHbrZn3P6lQOBLO0QmRU5ywKm7NPnpcgLnEGdY
E+c4UBHVw5RRI/Dbz+ExFTc4MPJoRPe0NoF37ff8ZVfPAWnNDx2iNmT9+d0v
Jk0cmLxs9d3JjsBHDN681n/BgbZNLI1sewJfpjgWKb/mwJ0w42qqE4GZHbaH
R0c54PnlRHKvN4H1TTcPR0pNQEZab+zYaQIrMaTrC1wnwJHS+bA7j8CzfJMs
G68JOMCC5BUPCfyBGRbD8Z0AxVaOu3sBgR86D9nQgicglddS2lNE4C2xOQP3
oyfAJKNW/1gVgT3YxlPpeRNQtmqvfeoLAm8rC+w1LJgAU+2U9NPtBKafzawc
KJoAlWnWc7cOAk8piUUpVk8AX9mqQ6abwOetXi1NYU1A/O/+SMYAgR/k+VEv
f5+AO99Etxl/IXB86K3FNP4EiJToFTeMEjgEOida/k7A7zyOgOk4gY369YqF
hbmQn7gRdCYIzBJd+OeMIhfEXqkYNU4SuOiVrrrKCi6cokfkKU0R+Npdb5E6
FS6INPJ+HPpBYDeDtvYZGhf+SJ6h/5wm8KTPNafjxlzw7OgXavxL4B7dVmNF
xIXJ+FTvsRkCV839XV22jQvfDmtni8wROPqax5epHVxYeBxUq71AYPlmxtFA
Dy45D447jBYx8O8kt72SPlzo8t+Svk6YgUdckjcXHOaCCfrZqCzCwLk/+fPs
o1w4uNyn8KMoA2/SYMb5xJD7HzDopS1h4PRjTvq8y1yQ3vnftjHSs61f34Ql
cGG13UfWvaUMzPx3xfrzN7jgk5dDW5BgYCp+2rf0Nhfy/IZmciQZ+JKcVdTV
DC74Luobs5BiYLuKsJdZ+VxQDO8RPy7NwE/Fl0YQj7ngElgMojIMLO+SqVZc
zIWGGMmERNJDAp1HG2q4cEf/T2iSLANv3e29YjvmgnW+/9LFcgyckfO38WUT
FyL5yjURpH2stRTed5DPUyZ40IbCwK23nz079IoLH+tWH3hEmvi22/dbHxdc
X1oGiMgz8BUTjtTxYS78Xgi5up/05NUzFfPvuCC14urrPNK7RxU9Lnzmwq7c
TMYk6fLNhYul2FzIGEm9tUGBgZfHmT29xuMCo9R7TRDp0yOD+1dNkfn1iDfm
kH6nHSyUw+fC1L3Ik32kTaNFH62d4UKLdvV2QUUGzum5vbt0gQtL9lTraJJe
rKU3ayzMg+WpEdrmpAMiXmQ3LuZB5vqf5m6kO9vdd9hI8iB8uVZYCGmd1fzp
V7I8KBOUqf6P9K0oxcBZeR60zuRGnif9PwzDj4E=
           "]], LineBox[CompressedData["
1:eJwV1Xk8Fe37B3BZimzZQ5Ysxzkz9kpl6bpLWSNL0qIIKVSPr0oRhVDxFJWy
VNpEIVRCoiaJEpFseaQs2c9xhHLODH7z+2te79fMa+65r891X7PS9x+3A4IC
AgJaiwQE/v/ay966EKnOhnoyJypOESfUK36hcCYb/ujpnT5EO0YickTAgA2r
7Ry3udEe2Cd79YIJG1pxloUZbdunj8yXmbGhfH3NBnnaeULQn2bOhmUpmrvH
FXBCckdbkgawwUTY+tJr2iGPglfnWrPhtZZJZyLtr/xF3w3t2HDVaNLclbaZ
U3p86Vb6vm7iCxnaGXcMDTe4siG3TMiuQR4nqMma9vcebOhzDvgdTfvtjUm9
tn1skPkgntwphxM6I+ebvfzYkCzjF3OadoKFevjAQTbEGDUkLae99adD/VQI
G3rShEeQLE4UmfaGnj7BBqYwx6JBBidk40+qCkWwIeuCWq4r7U5W9mHZc2xY
NZ9Y67AMJywizRUyz7Phw6fhiNfSOJH1ublq5b9sCAlqsNWn7X9sTsrkOhve
lhzG/0jixETljqfbctmg2Gy4wlocJzSH9Yn1BWz4OcU5eHIpTrjJCTVpP2WD
wYerb7PFcKI0sGj8bwUbwl7PZ40uwYlIRVHm3c9siF/JFdEWxonCjT1miV/Z
YKi4rUZDCCd+HC7ZcryTDaYiWVcUBHFi0zsfP7s+NuS0Z+8aX8AI0ZCXWdwZ
NniLVz2wITHC/Gbyky4+GxgPyO/ifIwIrj1QWbPAhjUKYcz6WYz4vEK2K12M
A0peHRyTPxhx/WOQwkY1Dqz4k2JTyMUILe0V/17ZzIGYUJdtuwcwYrvz78zT
9hwY+Cv8sLgPI+LDPzw+4MyBRRpbpQR6MWK46Xjd+p0cUOlPXJH4HSOKIhsF
+4I5sET+s6FjO0ZYtp8JN73GgXXKzQdiajHi6CKPCyvSOdB676dcYA1G3NHH
0xbf5sCL7m/f7KsxQvBcR0lXDgdyh18X/qnCiA9GxtzYCg6s7VeMnyvBCI+L
vQFfezlw28rfgLiHEd0yT4ICBzng2DAx6n8HI/wzTx1dGOXA6dA9j4VuY8Tx
fOkwfJoD9m+FMaN0jEhttIo/t3gCOqwY1hsuY0SLTOaDVfgE8D29VK3CMcIl
0+3nteMTgKcff/vGASM6tdQHWOETIDF23uqhLUb45I8MvYmagMiNZ97HbcaI
fyqjJ8YSJsCyIpdvsgEjLvcUzltnTMAha22RLSYY0aglrjZdNQGFDyb+OCli
xMO2Xv08IS4E24vu5PzHIlwShvYzFnOBle3t866DRVBm7Bv3RbmQ5yl4+spX
FuGWPitwU5IL5M28keWfWITAHum2JCUu/Jdr97r1JYvY/dMy6gjOhak/29sF
brAIqbG0RmN3LmzUsT9vZM8iXt68LfjEgwuXezu1mZtZhP/WB2tZO7lwxrt+
WBlYxKsnhfdW7qWfd+zhDK9mEYdC3p+QPciFs7M7F63RZBHVM7/VpiO4YCxd
MBE/wyTCBJyPlt3nwpUyo4JlN5mEz3GRxcyHXMheFRrseJ1JOA5X3k7P5UK/
7FT+2WQmodmMN4YXcCHupFJJ6zkmUX9HTN+ylAtHDvJmjQ8zCXV4P0J85IJG
tIDycwsm8T7K8kA9lwsxV7lLBtr0CHkS8/q+YRKuFy+vNfzLIPLU9nK0N07C
XvIEuHAZBKDk6CDrSQh2qrY7PMIgguKnsv/aTsL2uDqp1P8YxFvpSraM6yQE
jkvF3n/DII7qOJ218ZuEXwtZra8SGESd0z/3i85Pws25ocbBZQwi4u7z4Zjm
SWDER894KOgSZd5rrY4d/Q3JClbf8SdaROXHAOP+RVPwx8ynPUpVk7gstKQ5
+OoUJB6bTaOyVAgzz/trNxpNA3rVcDNsTo7I8Rixuv52GroOjp25WryUYB/B
Jcx8ZkDq/qrTjPE/byhj5XCP6Rkg03a7jT3vgs53J69eiv8D2yu2rfc2FESJ
IV+OyWr/hQ0yDumiJjJI+EP7lELpX/AUnhvenLMceazvsAjwmIUmZQ+74DWa
6FiEnXHT5Cw82mo9sFCpjbQ4qZ8Vp2fBcfM+XuhHbdSyv/fwvj+zoBSf8udH
mzYytY94zObPgkOET1wuRxtxlQq0JIR5sHll2ciYhg46/EJawV6RB0d+C93e
GKODArjtvGpzHli6Spd3b9BFiv7a6UuteHDZr2FThIMuet/xj5kb8KBAyCty
2Q5dpPNG9FivNQ+uici1MI7oov5L5uMLW3lgOujwk5epi3zwrB5Lbx74rYzS
NZ7RRbsCDrwrPceDbyoTH5IfMFBI7ZdUowQeBBTO1skWMVACY0PAows8yByp
SEiqYKCSQUWxzEs8kMOEFu/7wkDLDn5wjkrjQVbgpV3x8wz04SDeZZ3Pg7Jv
9TFNO/TQ2sBJbnMLD25GNg32zOsh5497q+3beFC/Xz6dL8pE/qz6a9UdPFj/
79EZMTkmujpy36ykmwfcyY5gIT0m4gRuj0wb5MGjyxI23s5MlBNUtmQfnwdB
p+Sc8jKZSOFwlPrYSj4oVKbXCLNYqDPCf3S9Dh9iKdbyPmMWyrzoWHqBwYcb
M9fin61jIfVcZWcGzgcD6fYAfTsWYvS9iNq/mg9GvuGOsQEsZLaT091hw4fB
TuOEnLssNBvQ9ohhz4fxitMjBbksVHGi8vgJRz6cfPbA6mEhC224ligh58KH
Q3znoOBKFrL5zLB03sWHoWe38hw7WMhzs/fNmmA+xBvcFXNYiiEVd5uDckf5
UDASKRmwDEPd+w1W+YbwQXb8SkWoIoZ8zpL1C8f5cKSp/uVeLQwdqkjjm5/h
Q3D2qsGT6zF0yrh519MUPkz3ZNo+9seQOZTpClzjg0bL7aD3gRiinLImna/z
wUtJ9FPzUQxFBx++OJ7Bh2ezSf0lpzB0IUf0pd4DPlT7i9QWJWEoY8XG5Vkv
+ND/pNxldyGGMjnfbHrL+LD0V+dVh2cYukWEntCp4EPrdKspqxRDWf7ZLXmv
+cCSA8bTKgxlFyy5VFbHB+eW9SIjnzD08MzdV/yPfNha0rvfvglDOS7rR60a
+PBoqZJjWguGHk8H2dY00/VdWrKD7MRQoeXnRV++8eG6UNG23gEMFUkdNJbv
5oPLG13p/CEMFf9c2OfZwwc718LI/aMYeh5nUvm9jw9iduc41yYwVLKjflTz
F13Plthy6d8YKmX6KfsP8SGCN/vq5DSGyhtSw0bH+OB4VW5WnIehl1kGDw04
fPAPiZleS2KoIqT2awiXrt/Kv0+3zWGoSn7W+O80HzLCG6c3LsLR68EUb/O/
fGgrmbJYIYQjopx1OYrHh8Os/LpeYRxVe+0ZE5rnQ+7xYwaGojh6ZzitbCtA
QrAAVlcihqMagUt2iYIkRDi/0mGI46i2RfdkozAJnc12urESOKrLfv1w2RIS
1mzKz/0giaMPYZ6t7mIkHHz4v0SeFI7q7biCaeIk2KOf+fLLcPRJ5aJJlyQJ
xVcmRpRlcNQwvtJHbRkJWzc5aonJ4qjxdcVlH1kSCpa5mvbR/pziXvVAnoRv
ZdJ/s+Vw1Ow7PjaoSMLL5i1OrvI4+rI6XgVTJoF84iMzRLtlsbr9EVUSjpie
1ghQwFFrZ+nJYjUSLt7zcv9Muy1vW86UBgleQScvaCjiqD1yuNVMiwTG+FDG
LtodzjFCETokKK055htJu1NTxbSKQcLdivjK87S7fj/zEWDR+xM3jT1N+78a
x2RrnISUCKNLnrS7bwxUJRiQ4FTTWapKu+dQ1PhHIxKu5mOddfT6P8wVVSVN
SbicUv1xD+2fEkX2LqtJWFjo9uugv7+3x/bUNTMSZsy3nzGn3Vf8M6d9HQnL
y7K4cfT+B2LD25QtSPh+o/FKKV2fX9tlhfdakTClnLSuia7nICPf9C6QYCWi
/OozXe/hWev9/RtJiBLcNlEijaPRWydeB9rQ+bnNvF1N5+W2x1Czx44Edqq5
dyGd7yvloRg3RxLcF776ii3FkU7nnf5aJxK+xMqkbqH7498bO7dYuJBgKnnv
pe9iHM1sl8ktciPB8mlShg/dT/vk6kV1POh8q0x5GwRxZJRi0SCxm4TquD77
W3R/pjtPG8R4kSDR41itQvevgOST5Jl9JBgk6X88NYuhlovq7j1+JCScd7jY
Qp8Hc7uOErcAEsR/6Nc00uflweIUxbpDJOjnfEzJHcfQ8XOLuoqOkBBkqto1
84ueRxsrLHRCSJARcmgJ7MPQFoFjt9NDSZh/ouH+qgdDilEDPjEnSbgzl989
046hsxa3q2fCaX8y291Dn+9hnodOUCQJbg6iDg8+0+ctrG7ILYbO0/iQz9v3
GNJaE21fd46E7Nlb08pvMZQ4tS7fIoEEkYY97U6VGPIKyTuqk0SCs8F6dxt6
/swHXpqZSSVhNIdR9L9bGApg2ngGpZHQUL5o1a0bGGoanC/vySDhbIdA0p0U
DN31C4msyyIBn2cfMIrDkPVed6GMRyS8u27rEETPxwJViQOS+SR0C7XyXH0x
JN9VUxvzhIQ84mWF9B4MDe4wSwx6RoKFc9wf8a30vHRRlrGsJKHSUr2YwjHE
lWoJLX5NQlLjG6dEbQztakxs1XlL57Xncd+oCoYwBypNspaE37vf22qLYajR
+of6jyYSnmfvnvHvZyHZtQ/1Y/tJ0Ar9cPr9Zfr/k915oeEX3Q8Gtc2ycSxk
LiPxS3GYBFSuHGwazkL7x0Jv54+T8FXWsGDQl4WK7yCpthkSdqnszFRczUI1
EseDNGZJMPdq9RnRo/9/4bm1gXwSal5EP01UZaEFd6mz8/P0ev5KY2aCLOQs
2j2hJ0rB/FkpSb1GJvI9Ib01dCkFTRKrYr3fMFFY36ZHlRIU2KblrfZ9ykS3
Kx/7uMpQ4MlPnn2XykTjISe/RKhQ8INx59fQTiZK/Cb7vFGfgg8B/V/U2vVQ
lo2N9HIjCgbkVws8qdFDz56HB/uaUFCw/lo0+UwPfbv0U/vvGgpcPzmYfL2s
h5ibClM1gYKR7VruHtZ6qDbPPuyYKwXMb8zoliwG6lKKaqlyp8DZsunwyAUG
4sQVG4ruoOBRyL2FolAGUvBWGrq1m4IY2QFz2y0M5C/3y7PWjwIty2jxiEFd
JBgZvV45jIKU9AKiSEkXCQQ41eWeovefrPasZ1YHzW9T8TA7TcGChp9I0jcd
xNMuCXGPpoBaI1XtkqGDuJ+Gci8lUtDZ0tppKauDOC9K1qy4RMEndbl3QhPa
aPxOzLu8ZAoSctY1GH7SRkPHVH/UpVLwTuXM0L0YbdSjuk1R8A4FeWV1lQmD
WqhbZEV2yj0K9tX8UuFXaaGuiWETjWwKxHo8Pz5J1UJt72KdLB9TIHJc8OEb
0EINwaVxYc8p2HLyunlP0kpU73FOVqSUAu8f+vk5XitRHbjcvVZOwSb9Gddw
/ZWoWm70VXEVBSpZb+uUP2qil6/Upkbr6Pxc1yz3HNVApQ9Ho8Pr6XwecL/u
itBAJcllUqKNFORmo19VSzRQsZ8rpttCAZe3I1FfRR0VOqmXP2+lwMLwY+Jk
lhrKXzu2ZVMHbdFJkX811VCOePx+724K5IcWjyUrr0DZM64T7B4Kzi8Ks76e
ooru/1CPiuyl4Nxno9QcIVV0+3l5esYgBVcCxF/1dSuj1D3jTV+5FOiyrDrD
3JTQ1S0v9/pOURByJV/q8V1FlGKUMMadoWAoc1Hr/SEFlCSkuUSKpECt6qZf
vZc8usAeT701R0FNhcXU/AU5lNDxUgsXmINn0mH97MeyKDbffYOdyByUSDY0
fK1ehqKvaza0L5mDg7IOFneDpdGZs+xdB5bOATpmvoXSlUSRgRVDUxJz4OQi
VH7l8VIU7n7+RKz0HGRkdFjZ/lqCwqy2C8nI0u/bOn3Br1IYHddbeeWO/BwM
U6lmQn8FUKgMR91QaQ7sNTer7Vs6CyFkRUGl8hykbo5TuVh7Hv4PCbTEMw==

           "]]},
         Annotation[#, "Charting`Private`Tag$7101#3"]& ], {}}, {}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{
        FormBox[
         TagBox["\"t\"", HoldForm], TraditionalForm], 
        FormBox[
         TagBox["\"\"", HoldForm], TraditionalForm]},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Epilog->{
        Dashing[{Small, Small}], {
         RGBColor[0.560181, 0.691569, 0.194885], 
         TagBox[
          ConicHullRegionBox[{0, 4}, {{1, 0}}], "InfiniteLine"], 
         InsetBox[
          FormBox["\"maximum acceleration =4\"", TraditionalForm], {0, 4}, 
          ImageScaled[{0, 0}]], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         TagBox[
          ConicHullRegionBox[{0, 3}, {{1, 0}}], "InfiniteLine"], 
         InsetBox[
          FormBox["\"maximum velocity =3\"", TraditionalForm], 
          
          NCache[{3^Rational[3, 4] (2/Pi)^Rational[1, 2], 3}, {
           1.818783486985395, 3}], 
          ImageScaled[{1, 0}]]}},
      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,
      ImageSize->400,
      Method->{
       "DefaultBoundaryStyle" -> Automatic, 
        "DefaultGraphicsInteraction" -> {
         "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
          "Effects" -> {
           "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
            "Droplines" -> {
             "freeformCursorMode" -> True, 
              "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
        "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
        None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}},
      PlotRange->
       NCache[{{
         0, 3^Rational[3, 4] (2/Pi)^Rational[1, 2]}, {-13.543979574807867`, 
         13.544004336666433`}}, {{
         0, 1.818783486985395}, {-13.543979574807867`, 13.544004336666433`}}],
      
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]},
    {
     TemplateBox[{
      "\"position pos(t, 3, 10, 2)\"", "\"velocity pos'(t, 3, 10, 2)\"", 
       "\"acceleration pos''(t, 3, 10, 2)\"", "\"jerk pos'''(t, 3, 10, 2)\""},
      
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
                   AspectRatio -> Full, ImageSize -> {20, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
                   AspectRatio -> Full, ImageSize -> {20, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
                   AspectRatio -> Full, ImageSize -> {20, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
                   AspectRatio -> Full, ImageSize -> {20, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}],
                "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
        Background -> Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               
               TemplateBox[<|
                "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                "RGBColorSwatchTemplate"], ",", 
               
               TemplateBox[<|
                "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                "RGBColorSwatchTemplate"], ",", 
               
               TemplateBox[<|
                "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                "RGBColorSwatchTemplate"], ",", 
               
               TemplateBox[<|
                "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                "RGBColorSwatchTemplate"]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}]}], "]"}]& )], 
     TemplateBox[{
      "\"position pos(t, 3, 4, 2)\"", "\"velocity pos'(t, 3, 4, 2)\"", 
       "\"acceleration pos''(t, 3, 4, 2)\"", "\"jerk pos'''(t, 3, 4, 2)\""},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
                   AspectRatio -> Full, ImageSize -> {20, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
                   AspectRatio -> Full, ImageSize -> {20, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
                   AspectRatio -> Full, ImageSize -> {20, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
                   AspectRatio -> Full, ImageSize -> {20, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}],
                "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
        Background -> Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               
               TemplateBox[<|
                "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                "RGBColorSwatchTemplate"], ",", 
               
               TemplateBox[<|
                "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                "RGBColorSwatchTemplate"], ",", 
               
               TemplateBox[<|
                "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                "RGBColorSwatchTemplate"], ",", 
               
               TemplateBox[<|
                "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                "RGBColorSwatchTemplate"]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.876478735929901*^9, 3.876478767722946*^9}, {
   3.876478810345896*^9, 3.876478847625618*^9}, 3.87648165509121*^9, 
   3.876484123390485*^9, {3.876484171921898*^9, 3.87648431950242*^9}, {
   3.876484425033553*^9, 3.876484430402624*^9}, {3.8764845208681297`*^9, 
   3.876484547934304*^9}, 3.876484641752771*^9, 3.876484688913109*^9, 
   3.876484900171303*^9, {3.8764851768228197`*^9, 3.8764852077590513`*^9}, {
   3.876485240073616*^9, 3.8764853010999537`*^9}, {3.8764854798814917`*^9, 
   3.876485529363833*^9}, {3.87648558377661*^9, 3.876485623513989*^9}, {
   3.876485757433968*^9, 3.876485778577033*^9}, 3.8764897234578753`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"081c837f-83d0-4c80-9458-32f15b6ce609"]
}, Open  ]],

Cell[TextData[{
 StyleBox["The motion curve always has the same shape, while horizontal and \
vertical scales change",
  FontWeight->"Bold"],
 ". This property has the following benefits:\n1. The maximum jerk is smaller \
compared to the case where you accelerate to the maximum velocity, stay there \
for a while and then decelerate.\n2. The curve (function ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"t", ",", "2.5"}], ")"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "097aa242-c328-42fd-8a22-1436a5452087"],
 " for ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"-", "1"}], "<=", "t", "<=", "1"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "c4c2b432-07a2-41d3-a770-c1cfae507dfb"],
 ")can be precomputed, so instead of calculating Beta functions each time it\
\[CloseCurlyQuote]s possible to do the linear interpolation of the \
precomputed points."
}], "Text",
 CellChangeTimes->{{3.876489802149184*^9, 
  3.8764898892435293`*^9}},ExpressionUUID->"e33664ed-871e-4a7f-8ac4-\
bdbd10942add"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Multiple axes synchronization", "Title",
 CellChangeTimes->{
  3.8764903995149393`*^9},ExpressionUUID->"3689095e-e04b-496a-902f-\
6496bee1632c"],

Cell["\<\
To synchronize multiple axes simply calculate the maximum motion time of all \
axes and use it for every axis. This will minimize maximum jerk and \
acceleration of the initially faster axes, decreasing the vibrations of the \
robot.\
\>", "Text",
 CellChangeTimes->{
  3.876490405729739*^9},ExpressionUUID->"38c0505d-39ac-4a65-8f78-\
1f947ec90843"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Derivations", "Title",
 CellChangeTimes->{{3.876489729140835*^9, 
  3.876489736577985*^9}},ExpressionUUID->"b7147d08-7669-4b18-a819-\
30e799dafee2"],

Cell[TextData[{
 "The original ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "751d7616-c731-497d-b2cd-526f71be3d5c"],
 " function comes from the integration of the superparabola, done by Cuye \
Waldman. We can prove that his integration is correct:"
}], "Text",
 CellChangeTimes->{{3.8764940290630817`*^9, 3.876494037283152*^9}, {
  3.8764961171859694`*^9, 
  3.876496142563006*^9}},ExpressionUUID->"ce22a2f8-c357-4c94-84ae-\
b4081ff1e1ca"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Integrate", "[", 
     RowBox[{
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          SuperscriptBox["x", "2"]}], ")"}], "p"], 
       RowBox[{"Beta", "[", 
        RowBox[{
         FractionBox["1", "2"], ",", 
         RowBox[{"1", "+", "p"}]}], "]"}]], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "1"}], ",", "t"}], "}"}]}], "]"}], "-", 
    RowBox[{"f", "[", 
     RowBox[{"t", ",", "p"}], "]"}]}], ",", 
   RowBox[{
    RowBox[{"Element", "[", 
     RowBox[{"p", ",", "Reals"}], "]"}], "&&", 
    RowBox[{"Element", "[", 
     RowBox[{"t", ",", "Reals"}], "]"}], "&&", 
    RowBox[{"0", "<=", "t", "<", "1"}], "&&", 
    RowBox[{"p", ">", 
     RowBox[{"-", "1"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.876494267615069*^9, 3.876494330121307*^9}, {
  3.876494360881792*^9, 3.876494368823896*^9}, {3.876494703774929*^9, 
  3.87649471756767*^9}, {3.8764948054639482`*^9, 3.876494838945032*^9}, {
  3.8764959312164803`*^9, 3.876495952964663*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"b04461ef-ec23-40f4-ab92-12c3a7291d20"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.876495943813838*^9, 3.8764959563270283`*^9}},
 CellLabel->"Out[35]=",ExpressionUUID->"c66194a8-acac-4e69-9413-f34aa3f24a16"]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  FormBox["f", TraditionalForm]],ExpressionUUID->
  "214bc8bc-0835-4cc3-a71a-7afc37f31774"],
 " gives 0 and 1 at the beginning and end (here time goes from -1 to 1):"
}], "Text",
 CellChangeTimes->{{3.876469985393062*^9, 3.876469999458562*^9}, {
  3.876470317460743*^9, 3.8764703250983686`*^9}, {3.8764743991064034`*^9, 
  3.876474404752619*^9}, {3.8764896886790648`*^9, 3.8764896893340178`*^9}, {
  3.876490111137143*^9, 
  3.876490111600316*^9}},ExpressionUUID->"c42ec116-9624-470b-b40f-\
a4cdf8f760fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "0"}], "]"}], ",", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "1"}], "]"}], ",", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "2.5"}], "]"}], ",", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "5"}], "]"}], ",", 
    RowBox[{"f", "[", 
     RowBox[{"x", ",", "100"}], "]"}]}], "}"}], "/.", 
  RowBox[{"x", "->", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.876467212883342*^9, 3.876467220065053*^9}, {
  3.876469339929504*^9, 3.876469340170846*^9}, {3.876470002504559*^9, 
  3.8764700112658043`*^9}, {3.876470331782333*^9, 3.87647035122729*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"c458bae8-ace0-4f08-ad1c-85c698eeefc8"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.`", ",", "1.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.876469340406321*^9, 3.8764700115239763`*^9, {3.876470349920115*^9, 
   3.8764703517792387`*^9}, 3.8764896812422743`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"f979755f-be80-4d14-9691-9380019ddea4"]
}, Open  ]],

Cell[TextData[{
 "Example plot of ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "936ee09f-8ca9-4d29-a360-ec6885f76885"],
 ":"
}], "Text",
 CellChangeTimes->{{3.8764899840261908`*^9, 
  3.876489988931809*^9}},ExpressionUUID->"d575a477-1b70-4b92-be5c-\
ac36caef6b95"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Column", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "2.5"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"ImageSize", "->", "400"}], ",", 
      RowBox[{"PlotLegends", "->", 
       RowBox[{"{", "\"\<position f(t,2.5)\>\"", "}"}]}], ",", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "@", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{"x", ",", "2.5"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "i"}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
      RowBox[{"PlotLegends", "->", 
       RowBox[{"{", 
        RowBox[{
        "\"\<velocity f'(t,2.5)\>\"", ",", "\"\<acceleration f''(t,2.5)\>\"", 
         ",", "\"\<jerk f'''(t,2.5)\>\""}], "}"}]}], ",", 
      RowBox[{"ImageSize", "->", "400"}], ",", 
      RowBox[{"PlotStyle", "->", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ColorData", "[", 
          RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}], 
         "\[LeftDoubleBracket]", 
         RowBox[{"2", ";;"}], "\[RightDoubleBracket]"}], ")"}]}], ",", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<\>\""}], "}"}]}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8764704178046513`*^9, 3.876470427126053*^9}, {
  3.876473640718555*^9, 3.8764737060153217`*^9}, {3.876473784508601*^9, 
  3.876473837294956*^9}, {3.876473910923684*^9, 3.876473941886599*^9}, {
  3.876474068290454*^9, 3.876474105807294*^9}, {3.8764744632765427`*^9, 
  3.876474487323851*^9}, {3.876476554491747*^9, 3.8764765574784613`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"cf80ba3a-455d-433e-880f-8e3f19b0d15c"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{
       GraphicsBox[{{{{}, {}, 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwt0gk4VPsbB/BRmUhKKCmVNLrItWaJnHfCVdYrpFAZoqjsJVEZKk1lmQoX
udllKzJjyS2HKJItuWrKboyhXG7WqPx/Z+7/PM95zvN53vf9/pbnbHf3s/Nc
RiKROtFLfNVgw9jS0gRO+v/j920H49vCf6YXZxuVsDR3Ts3850eGPUb/+kD9
l0mBqXEaP420lKzdeZ8FntyRI40FDTqT+nn/eTZqJ8ZO9XrAGRDYY9xGB5t1
DN77rltgrq2JMaa37trH5vcCN5vKW2Mhb+6EvOoQuLNr4RBWdT1tQ02LwFo6
da7YIjxiP20UeKuo0kls70KVHauOMP1JEdkXu8xunCyqFtT3fv0YhFX7dsXm
PhU479fKi9iSElc1nS0w7a+jdIw69G9TcjHhdEtK+DUs4s8lr3sFhOUPMO1v
Yi8Oi6+MyRH4WNVYLLZccnNOVDrh/uqxgruYabOSCf0+4UkjU/tE7HqU7sDF
REE+5fyFFOwV1TQ86A5hpiEun4aJLB7c4hNN+EiElWomZl7m+tfJG4QrpRyl
c7Bbfj5OtEjCH8RPW+dhzcphc06XCTNcY7sLMXEuI8E+RLCf2P5XxZjNg0Rt
6yDC3JgmkVIs7kj2WzNfQX7YIo2NtUuW+lG9CfMvsP4px+xutBRquxI+F1Bc
9gy7t++T+a/Ogv5KxjSOdS7yR3YeItyZKFpVi60vn70ub0vYSyX5fh3m6L+C
ssmScGmGd/pL7A8VyRdSZoTd9WZfN2AfuNto4vsE+39eLduEuTgZppL0BHU7
Wa02LFXK3GBBk7DaH/0/27HeFscPU6qElXX5oR0YzThQekSBsOEtvPJvLON7
eGn/FsJ9nSqX3mOD5TG2HzcSnuOTnDiYx6786JY1hNVVDNx7sJzhcpUGUUG+
/wFmH8ZLq2+sWUHYo/32eD/mLd2/gr3wD06isxiankNYQet45qMZZNKyQKtK
LvaFsUh9OEm4wSViMw/z/bHhcgqP6G/b9V1qFCuuoGyOHyD8S4ZiwRg2GaD1
NKabsIeaht0XLJBnPUPvINxDr+RMYBfarvmcqibyFh0rR6ew6M/B76crifo9
g+5NM1jmSu99kSxk6uxj9pFZrBms1/+ZR/iHUtXiPDboAuEqWUT/QvNVtwVs
7oLmaMWfyDXxBoZ/L2IKJeufd9wl8uuqnoz8xPSbV/5Ci0FOr4limJDAmv+N
OX6DmLe1b9skBCHyvR4ilwnLT9f3L4NWZu5q7BQxv12vtZUM3KKk4DduxHya
E6tvJXxrvNV/5CjhmO2h30SAIuTHDjqILK+acOiAGIQG6B3NNyTq4udnd0kA
M0b5la4usgaDZvJRAnLyN2vUaxDrMU8WxayD9oGl5X2KyBIBIiorpGCnXWOh
tAQxf1bSUGsD7PWtWp+5CrmEWtAmJgMHbxWFqwsT5z0wr/FZBi69YNpbLIyj
vDvBrL9koUPLaTGcizw5oquRuwX4Npae4n3IEkU6mSVb4cdpo7YUDjK1yzCx
dhsoZW3PKmtFZr7YWbIoD5elxiw+VyJ71TdFOO+Au+rd7BAWsq3HbvLiDsiz
bN1Kfozsb3VcKY0CHVdLv8pnIZesHTj3VRGUpkNTHGOQGcpPQl4pQWen2Fit
G3LS/dk7auoQ4VFWXXgUufKj6I0ldVCbPn4v4TAyN9qbcloDGFKle72tkfV5
Qo9MNcHI7kicxB7k+VBpj3XaMDYg5LGgjRwduTr1pjYkBRTqc9WQ5ZbWDi7f
DV+ZPwcqKMjZZN2in7shty17t6sEcb5hi5fiemDvaiNqLoasQe79lqgHpIm5
Hi0ysb5zloeCPjivsbxB/v4FJ3XHzE3CHlhr/S/n0QgyPYgemGgIIU1G4d+r
kUX62l46U0HRecSe9xR5+oiKcSkVOkaZSu1sZK29jsvE9oGqKPdtVgGySvTJ
IzX7YGD/LYplIvJko2eWgQlYvOx6neyDLP365KyfGcw50B9c9UJ2CBvhdptB
Nlc5yOcEsuPcVarlflhafllunxNyY0uAueoBYBvv8OObIpOf9Y4tmcOWGj9p
PTnk7yXjpRPW0Cypc85ABllOOFUs0AZCPRfeGUkix8rqfJ6xga5V1++ZiiB/
GQ6nCNkC81CKpN30Z5y0WmhmYMNBWP65XsKnGXnvHsaElz2UGt3y929A9mpa
MVJuDzTm7+1BL5DfUx+XCTvAM52PcaGVyC+XgntyHCCYPrGGkY0sL3b64uQh
GF2/STzrEvInA4W54iOQ5NV3NvcCsuKI/4yYE5j9ld2cH4icyXnY6+UEmTT1
6BIv5HGrZ8GKznC00FSs2gGZZvq9L98F2qh+ohxV5JwHVwv6j0PZmXrhtT1j
OD05e83RlSdAX95XM/c9ckcQFm5xAqo6ZY4ZdSCXyL0xiT0BNUZn2GcakLFl
MmwZD2haK3mi8Qnyzyzd/Vqe0M9yrYmIQjbGZIajToG7l+iXjRHIbp6bwzpP
wbAcS6YkDLmhsKdawQvGrpP9ev2Rh5aK7Wq9YObwoy2GLsipU6tqyadh1feF
0Gl1Yn8qYh6ssxBTkp17W2UMJzlFDGqu9gEJT5sOBUVk2ezSp54+sL41Q/ng
JtRv8+m3hU2+IJ9+4MOjFchjNG+HWD/QMU3UOcUZxWsoHS9vWQUALVpzkhM5
iu6D07I88xyEsu9GtVwexamrRP+c6zoHCd1TcrUhozg9lPXabPV5aFItN8/z
RfNvuGfmL5wH7RaDrGBnNP/Md/sT+2AgrzF1lNJC3t3nWyUXAkVxjs+sBvg4
faDcXn8uDF5VVNhRu/k46XxQgLL+JRjo2ziq/Z6PUxsXIfziJdig8Wn95hZU
L+mVdP5xCcLbXf1GK1F9V0NEp+gVsFvnrRDF5OO0sz4fxTfTYf5uGAMHPp4e
Exc85RsJI3K1Y2YGaL1tsWUmyZHQlUu2bt3Nx2vOfbftrIsEVtWddT3KKN9M
2LpC9ir4Dj5MWZBC83E/dtxsvApDmp1FOvwRvObg4qFIrevQ2q76tpA5gqe/
NnSb1WfAM+dAbe3bIzj90r+lOWcYUMitSKi6jvotktgpDxjAmDd2fh06glO1
SGcdhW+CibzTEM8D+W3nDtmum1Dpd31m+54RvB/qdk1cuw1Za3plkwZ4OE3W
cNv0xji46wIr93Tz8H7/+tdx9nEQmZc+zelCNig+ERQbB+7GJ9o2N/Pwmpr4
0JvLmKAQzL+WVs7DbfX+qfoUyoTMnq8TubeRq8PPOAfegfSila/KdHjof2nP
3HP5HjC/ebEcNXg41Zjzm1LaPaCbNaXPqfBw5kk+2aj2HtD6o8P2yKN89XgK
RzgetklLaj5fxcPTwwoSepjx8CBMLrW+bxj317pBU3ycAKkWmoHvbg7jJdKM
C1vJSUARs2hqvzaMt187f8VOJQkK37grtIYP4xLz69zybZKgyiq+o/E86q9W
GsX/SAKOzZxWtdswbht14OCdXcmwwf75VN6eYVyDfreuzSkF4lzMz18Z5eJU
sWJFsbepEHnWLUTZnIvnlbU+OrshA3pjj6dWmXDx+a5foufUMsDgiUuNJcbF
JZxOhiXtz4CvM4dEfLW5eONul2y5ixngFm6RVLqFizPGv9Wr9WQA9a52peHX
IXQf+38Pz8+EnxXC89b3h3Dm7JWAebtsCFtecCFwfBD3Ctt6w3vsIfgmHyfT
+IM4s2jlSBo5D9zVpRKshwZx2meLlDGFPLBwuVSqxBnE/c1lRJ675MFGls14
bz2ql4kcdWzNA7b7lLtl6iCeJGlVdKwiH/6p3WtDsRzED/jpzbxLKgQ3ehul
K28A1+B82T+dXAwJz4eTUk/34xQFivmMNhuq+pRWFyn04qnh0y8Os57CDgmq
scODT7jV08PJhhE4lKowTg8OfcDltt2PlTGug76XT+R1dbvwzNy3DXWrG2BY
NUELL3+HP0isdAsaaIJ1V/J11YTe4l1C51pWH2oDVd0J1ZypZnyn37HqqN63
cNV0vP1pSAMuNDuvb0TrhPUOj5lOMi/weDlSqfpkF5TOvlzbSKnCb/Gq0/xP
ciDn03DM6LXHeJ1r8sVd8t1w7KAc+9OJePzviJ9ZLaxeMBRWf9g/bIpv3JXr
4DLTB/8D6N+d8A==
              "]], 
             LineBox[CompressedData["
1:eJwd1gk0VVsYB3AZShISioqI1OOhumb5FEUZiocMIYqX9LyS1+BFZAhlFiJR
lEIiMoXMIZJISOY7uMPZ5inD2/fdtc6667fOWvt8+9vrO+cv7fK3hSsnBwfH
EL7Y/+o8yllDZAPwpudaWfAMgerIOskAmzfQR3Y01l8Zhj0T7xe1assg0ozv
dITeKJzI6G0zs6mF4sb08LTEMThmKsw1++4jtLz494XSABminL77q5S0gl0v
X7oGFxU+mu3afFq4A6q2jvivHaABS1rU72tyJ/T78LiE6YzDP94KzlFi3fBt
+9Yz2w7Q4Xu/kIVbUw+gQmVLhb0MOHdLh7rB5AeoD5CGMuYYUKegHl7HMwB1
fA9iCmqYsHdjBS3TaAgmDmWS9d1ZsKvC4xhP6DBMjWUzmxdYICK+tOQZMQyl
xYP3Nv1iAf/10Pye2GFYuG2SabzCgmXl5ztyU4dBodLG+eM6AvoyBiYtCofh
iaXMRC4fAQn3zZ+kDwxDfpJGgMpOAgTs1ee1VUdAU/pAtIQuARxLnK+8Rkbg
2/vF0SBfAs6N9k7foY6AYVT7kuEdAqpb83UjmCNg0br4eWMAAf5pjl1ZcyOQ
7yKZHxZEwJpB+Vo/3yhoifjb+9wnYDXqqrXhoVE4cDkmROoRActyQ1w7g0bh
5LX5Dz6FBMybVzo2yI2Bd3DjrbtjBNztffNTV2EMLGftvolScH3Oz86WqoxB
sX1DUxaVgL1X7tnlaI+BypOUmx/pBFhGmlvHmI9B0mfy+rkJAvJbyKYOvmPQ
JH+EJLRCgLu+wOHZrjFo+Sc+VVsEwUwLR4Vn3xic8ntX/EwUgb/FtBZtEK9/
PsabdxuCJOcejR90vB6P2lC7OILGO89INRxkePvQK9BMCoFMhZpihCIZygfB
YdNvCH6QnHbIBZFhxbYoNkQXgduiqmBwGBn0E8SdKwHBRCU/FzmSDE0iq8SU
HgJuw3J65iMyNC7uNrbTR6BkK1ou+4YMXa30LRJGuB7fTzayfWTg5u3QdzRH
sLdRPWGPCgWSKNXpyy4I8sMFwgNVKWAUf9+U/wICrVNk31EtClTN+DdLuCI4
1RPrmnGMAjOpyyqkPxHcpLNIe+wpMFRe12rjgeCTQGanTAgFrjcfee1+DcGV
M0JbZPopkHBWr+v1XQQuL5WT5YYpkDqs9i40EIHVotme/RQKPIhlpLgE4eel
RKiqTFCgQ9P19tYQBDyDfHa63FSwWAhIcA9DkOzGk2GnSAUP+7hEahSC+n+W
SHG3qQBPPXYpPUZ4zsSrEgKoICnCl0bHfrVN0zA5hAobtzxRfZGKILLshu3T
aCqMrKVlSKQhsF2Z8X2TSQW3DczohacIiCDU+KmVCo/XgneHZSEQjx+z4d5F
g521PukcbxFoBEqJecvgufy3QDkP29rLrnNUngbChxsq7QoRxJ7+Ylp3kAay
Ugd784sQ8G+uOHrXiAZ2RxakzEsQrAbHKXJ400DsNnewSwWCsRtHOZZbaMC/
++nttgYEnH/6Vnp8oYHMBgmts40IdluX+vz4RoPMOX9+OrYDSWm2fIgGXnQ0
xdmEoHtCnH5rjgZFwfp9+1sQNLtPds5Lj4OBrF6hyWcEefbpWdM3x0Fxh95T
xjcEpO97ltb7jUN5XnezdTeC9xZZJhKB4zCYUqdZg910Im9SL2Iciv7gn4r7
jmBUvUI78uk4zFlZf1PpRbBdpKd9X8s4ROiaIaN+BE+i7GV02sehtMK0+yW2
3KZB71Nd46DT/acA708EBzkp4tcHxqGY+7x3PbbpxPT5uqlxsCys3qc6iOBu
q+CCww46vC3+VTk3jIDXKO7k1d10uPR8ksNkBEFUnVhqkBwdDC5OPknHfly+
62iOMh1kYqIIw1EEJS8VHizo0+F2QDcrcgwBM8hwd9xlOqymBy6uUhCcOXzH
qKmSDmr0hkIPBoL+WYpgbS0dGupnj+diu+SZfX//kQ4z98ROMbEvS0m6vemg
Q7D9w+pLTFzfusrABDIdwrluaDqzcD8blqoubGYA50IgnyrC/fRzCXEUZkDV
20uqf2GXqbWY2mxjQFnb7EAmdn3Wo35jaQYM3biYLzyBoDdMY+mgKgMeK392
oGFzm11XXefAAKHLOh63pxCErx9YXnJmQEpXTHMutuCHY/UzbgzgmzHL78eW
UBH9g3aFASavvMS1pxEoCxddaQ9iQEhXgMcUtl33ZE5qLgP2HRlJNJ5FMBRp
ey2xgAGHFuQavbFdDWu0YooZoHEsNSQV+0ppdHNQNQNiOZOrWdghycpUjy4G
5D2c3h82h6DA8S8ZrWUGZM7Y2+fO4369m9iVvo4JE8hwpANbhN9bfP0GJhT+
EzE9h329zEfo6xZ8f9agFBbwPIuErrrLMyE6+8jQJ+za5md9jyyYoCS4w7Z9
EcG13Xu7184wYUxaa5SFLXvjVYerAxOeOvzGzb+E65HNbzpwkQkvDj3abIht
fKeyuNmXCZlGbpal2F2kntjFl0yo9+Z2Cv2FIPi+faRTHhMU+HcWpmOrjQyE
NRQywfGec3YpdlIU2T+migk620KDqdgO9CnP/V1MyBYs4TqyjEDgyPVLUb1M
GHF+G2KNXZ246Do7wISTz5feemDLHONwqBlnQmOjL99DbEraZmPbNSZo18S3
jGInzkUf/8DNAg1LeD2HbWQqclSOjwX5qUawcQVB9pKE5qQIC5jv//X+Hftv
q33yYb+xQCDFW8MLe4FPn6vMigXbM8w+s7CFCYH4WjsWKFlMC/7CVujok211
YoHJ6SpR3lUEjolexwfxd7w4V+GKNHbdnmdhPH4s6LkgctUcu3+9p4RgIAv+
akodO4s9N66Zsz2UBY5egtIXsffld7QqxLIg7uSGeV/sSJ11QhYvWPAVyuWz
sF9KtaXb57DAkmdxKh+7hvPRAdd8Fug8bL9fjj3TpPLHzXIW9H9/uK8N287q
XMKTzyyQuJYvOYHtraEo/7IT79ey120BO2LHQklBDwsKnpMCONZwf4ejeutH
WCAp26wkhC3n+WEnY44FWbZHfX/H1jW//3oG55D4tV43ErYN6YzuKgcBl1Tl
5bWxw5cIpy2bCHhmtFPJCHsiRDJDXYqAeCF04Rw23yX6oSOyBFwVKtrqhr3H
tLj+5H4CRs4kpnpgW281ozgcIuBg/JjBdeyKNN/9QYYEdK4WTIRhd989UR5h
QoBwVtC9SGzkKmqcaE5AdEH1Siy2jOLry9n2BMQS0eEp2NqCt1YKz+Ec1H7g
WRq25ZRBZKUrAVMeVikZ2PdK+998+ZuARE0NUg52espLvT5vAoyL17rysMv9
vDtGbxEgGGBn+xabacA/PRdIgJN+l0AZtkWHttquJAJI31a1Gtj7095UU5FK
wBingk0Tdk1mn/HZDJyjctasP2Gr3LzlnJJHQN3Ns8tfsGnDRkytIgI8N0Jm
J3aa8fYbfWUEnCf7qXRjC0iVPBBvIKD0/oeFPuzG0JBtZS0E7BATVvuJ7Ttl
9czmCwHbXVztBtn1NcyUJP4gIErqud0odoZy/VH1YQKovH3qZGy7R3Ft3Thn
kZPSVynYzZcPjopOERAq6mZMx/bvXuf5bp6A3JCMrwxsDb2OBUucqxJS0DEW
9outVwTieXGfD8pMI2xHX3h0SADPSYiO0iS2KFVAtnMrgqrtbWemsIPKX2sK
4xwlNv3y5gy2jqxvfYEsgqnQnVdnsacjTE6Z41xlSrW2m8POnt/RN6GMoMeJ
RprHdnFmXIhWReDz2mndArbEp3KkrI3gK+NENdsdpHCfdpyzfCIPei1i6/Hu
jxYwQdB3SrZgCXvh6oJEHs5VlWXa8Av7zY+Pz03P4Pr5PGvZdjuWqMI6i8+l
/7D2MrbkG7f3D3DuOkdRyGa7e7vaccWLCNqIYsEV7Ii7PB2f/sLvmSr7y2wb
MLvsPXCuChV7WM32slUmhe8WggtPfvCvYhd9uHY12w/nuN7n5mx77NdfPoFz
Fce2i1Fsy8QJ3xvHOUr3XHwj233Lw1vCcI5Kck+eZzvGreDxvof43O5QZdaw
jb74yzclI/DzohixzaF1+u2f6QgGA9fc2S7JkDq84QWeG9OkELY9N6OPL3IQ
3M7Zmsb23htVFscLcJ/SOgrZ/jkU8ZNcjM9NVbmB7fiTDheDcQ5SOh/SybZJ
keK0bC0+T8rvg2xzSS771n/E36Gdt2hsl9/7xHuhDc/VtxLEttdkchxXJ36P
SKvNsv2b/SXJjB68jrjOItvD9Zqvjg4giI7fvMx2ktJG0gjODe594ytsn07q
qQoYx33R3LTG9gePG13VMwgyrej/WwnE6P/v+//fBPwHBUeynQ==
              "]]}, 
            Annotation[#, "Charting`Private`Tag$7203#1"]& ], {}}}, {}}, {
        DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
         AxesOrigin -> {0, 0}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, DisplayFunction -> Identity, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox[
            TagBox["\"t\"", HoldForm], TraditionalForm], 
           FormBox[
            TagBox["\"\"", HoldForm], 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]], ImageSize -> 400, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, 
           "DefaultGraphicsInteraction" -> {
            "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
             "Effects" -> {
              "Highlight" -> {"ratio" -> 2}, 
               "HighlightPoint" -> {"ratio" -> 2}, 
               "Droplines" -> {
                "freeformCursorMode" -> True, 
                 "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
           "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
           None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{-1, 1}, {0., 1.}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
       FormBox[
        FormBox[
         TemplateBox[{"\"position f(t,2.5)\""}, "LineLegend", 
          DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
             FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
             False], TraditionalForm]& ), 
          InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{"Directive", "[", 
                   RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                 "}"}], ",", 
               RowBox[{"{", #, "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm], TraditionalForm]},
      "Legended",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"], 
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, GridBoxItemSize -> Automatic, 
        BaselinePosition -> {1, 1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{
       GraphicsBox[{{{{}, {}, 
           TagBox[{
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[0.880722, 0.611041, 0.142051]], 
             LineBox[CompressedData["
1:eJwV0Wk4lA0XwHEKFUKk/QkRkuyRxGESZYtU1iL1ZA0RiVBSZAvZKkm2Z0QS
g0blSJQyU1kiSdljzNz3FC1I3nk/nOtcv0/nf11HziPgwL+L+Pj4hnnz/60G
q1gLCySurt8ioj1ssitgRj5+ZpZEqLOm6L31M6qs1lSc+kHiuXwbvgLnDKNv
p6CZzSVRkrPoUbVguZGWsrXH2CSJR64G/jz89IlR8JAz38AYib2EQpeH9Csj
Wq5XXu8giXZ1dfLPmzuNfh4O3dX5icSP2wuDTgn3G+mtiP3I6CFxneJvfRfK
iFFYW1rYiw4SU2//0/VKddKo/vKdVY1MEsN3lrz4p+yb0Rzcp9FbSTx42vri
fc+fRrtm6w9UPyeRtX5F+o/OOaNIWiu3vIHECr779vQ5Pmjw704poZO4u1/I
tshPABaUR1TzaSTmr/srp2i8FIyHv72+8YDEkLDEosvnROHi7QWv6/dIFPTw
bJpOloAmh+VLkotJ3K8zlLRNWgoWS64vvpJPokV+ofdIpzSYMpR3X7hF4k45
fZXYtjVw+Yru4LksEqmF7gp+8+vhhbFpdHAaiQ7i3xe4PjKwr8bt8ck4Et1/
e3vMRMlDQsApJ/cYEufNJN9Mp28GxpaIX06RJBKzNXL6L5XAJi9L2zqYxFvj
Fzon0lXhmmNRu5k/r69C903wVnV4J1kVYOxN4t9XJvImUxpwII5Zpu1GIiXs
1oTcsDZcN+nbt82ZRBfNz5fmQ7ZD19z4V8VDvP5evjyZ9XpwOFBAYZ0lifa6
ll6qt3dCtopkk5QZ75/Mq9Ep4bvgw4iM+3ITEm+vcJjf7GsELk4GuXx6JNaQ
ehm+u00gV2rfzllNEpNV711Td6LAZ+bhD1OqJKZIeqb9CdsN7pSglV83kVj+
/ZP7up49cGJraRJTjMQXhL2BsoQlFI/WqrxcRqJfmebCbJgVjN1pbm0UIHFp
9vuUXLY1eK8cEKDNEsjvpR9vH24L/vOrIm+OEWhmNk3KttjDgzqF9RmDBIbM
xAnNFR8E7mktevInAksoXe/Tkw5B0Jj1jwsdBG5tSMqU93WAs29jT3k2ELjF
U/rtB38XSJoM7Zl+ROBcOqx+n+kKBUu8TWKqCUyyMhCYfH4EGGAtfZtKoAjT
wL11nTtsqpR+2pFOoIvkdsPZOg/YwVii5J5M4B7T5JmzXsfBenwmlRNH4NcT
OTvvbzgBYbKfTyyNJLC3giV1IPVfeJNaImrkSWD2jQvHRYq9YKQ8J7TtGIHl
PbUrGcHeMNOaMODoSqC8sDDhbeYDCvwBtGA7At1ZH9JsfvlC+Gk911IDAu1S
Kfpa8QGgeKC1bKUEgeR1vYxvtGDY5V8vXSBMIMqNe2nsOgN2CeXR6oIEWhWz
FCNbzsD5plR7i1kO/nNwWMv8cwh0aDnNRY9wMIqfPtimHAaRUiyLyUcc9KWe
PfZjUySkq3+ihVVzsF32rnlHWyRQLd9sFKrg4JqTT+Leh0ZBx6Wq77KFHCwW
TPI42BkNytPhNw8nc/D7B9earfYXoatLhPXsGAeDkHa80TkWLp6oaShz5eA7
xfPvB+mxoDZ99HqmAwdZE0puc2svQ7xU1S5vaw4ung9wW9N/GQwPOF6T0Odg
bN6wrmBAHJS8LdJxk+DgpbQnbfPPEsDezWbZPhHefa2TaW80EoGP/NWvJcTB
Ho1049v5ieAsZhkn9IeND6PKsrdfSgJx62+997+y0Xdg7JzzwRQIe20Y/aeB
jZn0j8ecpNJgs/NX+zE6G/8snxNvOpAGHROpyu9obExZGtJdlp4GqstG2gvv
sXG8o2/D4pXpMGieoGCZxUbWNaXI5xuug0VL96sbp9hYXXnzY75ZJvzTGLBS
bwMba0eEZB3/3ACG5PYzO1ez8aCVaPt5i5sQ/u9sp6EkG9ubg7tkbtyEbuHL
102XsvGKA216QO8WpB66KXlgehJvOUwG2EbkwuLJZolTjEk8MmHhM7H2DkxI
r1teeH4S7ba4KQq7FECO1xe/krOTeK4k/5pgQgGYPS5ilAZN4rcEpoExvQAK
3NWTKr0mcdzxvV3wmkJwLTMVaTg4iTL6C+vf9RbCW+OAZb2qk7gyk++Zu1cx
1Pg2C4r3s7Di0agxnUaFHbL+miU9LIwJHdpmyKVCfdfqI4YdLKxKbqwVVi2F
RkNfmu9LFupvNQyMKSqF1+KSx1sfsjBOaz9lOOceDFS7NV68wsLToVyq27Vy
EP4zGz6tzsIXfMo7TztVgnuSJrc3ZgJbCiKMNMZpEE5Lv8KMnMDE3UKr7UVr
IPPT1IZnYRP4W2toQ4ZGDbxWrd1H9Z9ASsNCQuC5GtBm7iwMdZ5AyU95Y2mi
tSAkZnpYSmsCmVPL1/rvqIPya4efWA2OY26l4Yk9JXT4nR4RjzCOqRHtciIf
GqBQ7PPanMExjDzdqa/Y0gK5FppBnVdH0e9D00eVXgbE+B0L27JvBOOrdlGT
l3VAxOJ7Z4M4Q+g4/tu8Q68bjl14q9BNHcSfbhP5ayw/QubT0ZxcnwF0o9R9
33DsM9R/URYt3/QZDW2aFuZ9BkFewphyMK8Pu4ozmzrDhqFKJd5naPgDmkiK
nei8OwpfWh7K6up246dCY7n54q8wqpqphbWdSDEwPJDtOQErokp11fjb8a/V
qtAHCpOgqkuqFk8x8ItW3qd7mWw4qRYdTe9noM9P/sqoW2y4oyjewXzJwHdx
b5k2d9kguVr97M9bDNyTuH9ouJwNv375PzM3ZeDWHhpl8DkbmujEIVZGGz5m
wCWlb2xwNCSi1HVfY+CdbpuevRy4ZMp5Rw97ic5WamuC2Bxo2sver3P8JYrs
7ZHX/cYBPuvJNxXWLzE9u4Hy8wcHzh+aYBRueonUKocanwUOhJ4cbU1mvMBV
0a6WCpIEeMX3Nx6TfYG5BZFbe3UJsGIwK5e1NuMWD0qESSQBCe8Y6rFVzeh8
Jjvv8kUCWrvaKv7mNuMlqdoHLZcJ2NP/qnzqdDMeBlaWfgoBRkQLtX99M/7N
KnTm5hGgIdGQ/zDgORZT817kIAHSBytSnVY3ofLA/RHmPAFVion1exY3IbNv
JsCanwTbGc8RTfIZskSi7F8JkJCQJ7dD+OUzVPITl60VIeHveMaX+tBnKLGZ
Sj++loSxyAi1Dd2NuObEElMxHRL896flPN2C+Ea3IunWSRKo0xbsTH7ErNcV
ZUXeJAzdEDD2723Ao1bxIvf8SDg8cvbrxqsNuGAolVgaRAKcO6p7Yfwpejzr
Co2IIkGicGsX5b8n2Lh9u79PJglVP1vEWxXqcVPZ76DARhJS7hU0Gc3QUemX
TLTecxJ8j0aH1DDpqC9qLjrbQoLCix19BaF01JB6WHK6jYSszLKSyNZHmLx2
4aVKNwnhOmmG2n51WDTaLNvM4vWMn+KWGtehj0P9OIVDgnauRaGsdB1ujylX
fEqSwF4ssEysoRZdDbj8RdMkHO0M7RoXr0X6urUKBn9JoAS5+uZV0zBRld/M
fCkXNirqb5SOp+HZtxY6Hsu4MNcr3Z7oSsMesbIP4cJcoJm81T0nSMOjiQmU
YlEuKK6gLDroUI13PUfTP0twQbhS6cayuYcY8kRwYmgNF4r7RpMnYiuwqD+1
QEOJCx/Pr7pzW7sCpRP3L57mWWyjeaXd0H3MWudwtEaZC6Hu1A463Ee5wLRF
WipcMBv1WZ0wW4ZibXwLktu4ME6Q+SqBpegU8rQwWIsLG1Jlqz5vLEW6RWDm
Km0u2GraPU9nUjGEPRxVx/Oj4KrRWRUqLjyP2DGlw4Wrv8+otI2WoA1/IuWA
HhdUFs1W+7oUofuW7IwKAy4cLVRpkREuwg4B3e8au7iQburS3fmoEO11Yvc8
5Hn2ypPfBqsKMT+gnlFmyIU2kWhD0fa7eCMiwjkeuMB3/4FNY/RdPN8X5THL
s47NgNsZtbvYefyQm48xF3JTTWI+Jeajc/kqPVMTLnxQWZrilJyHfC7g+oXC
BeNT3pXPWLdxcG7bUpPdXKA+eN2xZe9tZDtqUvN5PqeTvHp2US5Gf5VpdjLl
wjojybs3w27gyWYn7+o9XIi5EPx8UXcOjgZRqwXMuDDZ1DXqo52DGbq+3+x5
fmKerWJAZCH9oqA5m+cjdhtofccz8GN3laPAXi6wp37ohzRfR124Obeb5/NZ
b1Fs83WcC/5cfJHn3L6YNpOxNKQPmUv84lk1ytWuzywNxS/Yv1Pbx4XHsro9
Z/5LxdjK+OwTPNPaOlr2t6fgLmsTg9c8d0lcaY9JT0aZlIrVszxPHdLvr7FP
wpMia+eULLigNXBnen33VbSVbeiO5Nlusz3f/ux4FPg7+qaY50AfIdEYxzg0
KhpltvH8YNpPfvxjLKamWw6ssOTCG31Z9fW5l9AivWBKk2ciqnOnzZEY7H5V
tdyW5+XNV8wubryIKdQQNT+eHSXPFHlhNC4WHT10hefs3I+P35hE4gzMXcrj
uVvRpFOnORyD/1Y9ovG88uF/rJtmYVgSsGS6lWd7A7FF/K9CUERlensfz+kt
Z9Z6WgajlVZI1CTP7/b3aTCZgWg7d4U5w/NG2qXUk/l+CCcV5YWsuHCr1Ra1
ij0xuMk2WoLnNf3/EH9LPTCBuXhoDc9bh9/rZx1xQadqQ0sZnhVFA7PVPO3w
1/L5enme9QXV/xsYNUWheW3qZp7/B+CGgOw=
              "]], 
             LineBox[CompressedData["
1:eJwV1nc0198fB3CpEJE0lZFRIhmRMvKsyN4VUmZGg5JKlJWRlT0yCpGKzLLX
p4yM6huJZCVKfHw+n/dHIaT83r8/7rnnce7r3Pu695x7X1fE4bKZEysLC8tn
sv2/V14t+2TkuybY/io83WnAxK0ErY6LinbQGvHSFyD9z887PVPWCbFVx0c3
kg64UODaLXUBH/Qq/LlIrzT/coh912Ww5WSLsZBu2hEe+oDXA/aq2//7qc9E
cLKo+4HoazBdEvUfI621ts6yi+sGQtTqlT6QZg88eeRiuDfGXtJnGki3/WZI
rmb3QWRdVXUe6Qi3ML7MYD987hQNiSf9eDrWV+B2ABy55S28Sbu4SDlX/AtE
mqPJuiOkdURvWAUdCkZYi9usCOndQ01GJj4hUBnQHmUhTTWzPkBdCEW9m3Fn
lR4THdz5eyoPhuN29t2uONLP2uaEg29EYOJP7udzpF3VYzmEZu+iWifuHy9p
w4XBJapCNLKdPLeP6jIhUyY5XekRA8VFa5SSnk/8Sts9HwuTVNv7uqSrOW/1
NF5PQJe8R4GDDhNZezd1F4smIuqsVpoQ6TsmxZ333ydC54iqUp82EyeSx954
Sibj6uh7L03STBGDRqmhFIxqNkut0GLik+Y4ZUtEKuYUqiPzjzHR4BJQv+pA
GirXuaebko4sLKsajk1Hnp9/a4omE7uUBYvjNTMgI91xgkuDibVnKgv8pzOg
on1ZJvsoE7/8TPNdMzLhW/CgUom03WijmZhPFjyPr/5seYTc3+7fhn97HiLt
pNTp22Ci/YWtZmn4I2zo4fU6q8qEWot0k8TII+TGhVr2qDBR0rtwJEMpF6p3
w6iapJMXEhA5lovYYw1igspMOKJNxenQEwSa7CVKlZhY7pCT55/Og21iCbeb
PBMeg3+LY7TzYfTHh79GjolxeocMW0Y+zLJcP68i/ZbXSfqX3jOU5rp7Jsgw
kWaeKvHuUQEyOnWlkvYwsX90hdBty2IQvmK5UjvJ/GsspuXyihGXXhdkL06e
R3xh88hCMSyMdjslizHB9bBgf5ZhCYZ/75VfFGFiycRycJlRgh6eNb/yhJgY
KimWpMg/h9PAHp38LUxkuts0H6osA+Uq+0NZDibun1lTlPSlDEVK/6lIsDOR
olN2j85eDrGu2SEBNiZid3BefGBZjkeKFkdYV5H3p7N8/d+FckS78LFdXCZg
L8dtW6dWCT3lx6Y+dAJizNoFlcZqOMwLJL14TcDnnUbwDL0att+9JIgmAr35
b3iK+GtA73kit+sVgQinATGRKzUQnbqSf6eWALN/0ZB9Ry2oGx+arC8h0NCi
nN3tWwf5G1V8RikErNIr9VyVKeCtbGW/6ESgzAs9O50ocPmxb2GzAwEe81bb
L7EUnHA8davBhsAr3k/XzCYoYPI772exJLBR45bxff2X+OSfnWqkR+BWVZp3
4OJLbFlbQWyRIaCb8/mdkWUjSqu9vM/+ZIAZUuTc4taIHL2TXkkMBlLOBS2r
BjWi3STRqInKwMTevfKSRY0I6d0VwjfGQFhVQOLKVU3QmjFX8u9moO2dxOmq
4iZoWByLiH/BgPb89QkR9hZQvF6qPXVn4Jgh38rZ8lYs5jr6vRumI9p+zfRC
eyvWZiTXm/TT0Xed5cu/oVYE2UTf7+yh40IGo4aDrQ0bLw0fev2WjCc6PATM
2/Bu+Z5UeA0ZHxc0qjHXBq2MtoRLSWR878yreKUObLobs4aiQ0eM7acAucq3
+NEZrlqWS0OrkSC3CV8Xel0OZ+hsmwJdZJPfh7RufAsvKr1wcxLXr+2xj9nc
C2vOIme2+h/4NMhr5tzWh8kZjajNld9h5632g91gALOOsSu31o6hac+BiKbV
wxjol5lvC/yKXWvqJh7pjGDob6GrS9cwBOsuHlsd9hVaorZh+yr6wbLImucx
OgoWYdGGJKte/Datt2nZ+Q11Wb2/s65+wICi7fadwd+x/Z/y2Iv5t3C34F0v
OjiOgEfCY1YjLeBP/Ga5SnACvXLeFodYX+JgkPDma6IT+LazJUqohwJzD6vu
MYkJSOd8Jr7mUhBv0mnYtG8Cp3y9fFu1KVjLXXc0UGcCCq2q3uuiGvAvJEGa
5doEZH4JpWQJ1uPbjaMsSx0TcHsR6SdvUYOi01lPfnlN4qT3rtTdsuVQ/CS2
yOY3iQv7xw5Wcpaj1uyJwbagSXiIyJ1yHC9Dm27R9OEo0qkaR7ZllGHsQJ1q
9MNJBNmfKZvlKcPWjX3vd3dMwpB/if/q3HMEvl03b72dijmlzVubB0vAoZOg
d2UHFeos5qMKdSWIadr8IHgnFft/t6s2pZfgfo3g0WeyVAiEhFUfPl2Cyqd7
7s5rUPFNv8L0cmUxaMHaOxJcqTDfwqhUaimExSF/nbZ6KmKM3c+85c3H4Oz4
usZGKsLu+Qq29eXBocjoU20rFUpu+SysD/PgKizkXNxFxZ9amMrty0Pgivqg
5O9UrHEx5vayeIqilsUGR+4p3G5YPVdT+BirjDz3r7CeAuPP2opD4TmIYBte
WrSfglH7PhrXqRysoxxrnnGewrQ/dR2/ZA62yW06PuE+BTUfg73M9mzI8pW5
vw+eQuaOhPXxPNmw6p1+9qBgCo1ropwf52Sh1MZNVGVpCrdCY/fsWUyHQzlT
MGsFDZEijDNl2enYuPYaPxs7DbkGsQ1d+unwrL7J+2E9Db3WDHpbZhpUNob9
Oy9Bg5YG0fvEKBWN7dn9qWY0KM7dchJoI+vWjl29yxY0DGzw+DHqnQzxG3ld
TtY0sCZEVapJJ+OOeEmb/DkaJk+1MPPik6DvX1/R7ktDdMmBs+ecE/FRsS9+
4SkNDazV2baS8QiJPB1tW0RD/qLgD+NvcVAaHQ5veUHDnVyj/q7MOKTEfA+I
a6Dh9tqVuhFb42BN/XlJ8iMN1NmwW+28sRjP5NY/tUxDMtevccrBu5jn1FhZ
fZKOLy2TnE6HQsDH4ElstKLDrjDy/PBQMPZ09Yu/taXDx7iGzC0YNvc8tL6c
pyNRc6z0b3MQmsSyw1f70VE2tX28+nQgotVW8Jo9pmM8aGLU3NUfT4XfZZ1+
RsdOUX1/4zd+eMWaKu9UQsdg1qLdDmk/zLTJHfci35kt7MbNWr98YHXSLjnj
Pzoc9T72hN67iZ2XKAJTc3TYL6+IHlDyhLppZOHMHzo4Q5d2f3h+HZaKFur/
WBhwuPPPMlruOiIWGbbruRiITkiSNpO/BuYdoZwDwgwMykT6fNX2AOcFqsIR
cQZo4wG1w11XIGZY0awnyUDz2Z/Xk62vwHyD0bi1AgPOj8rdZG+6oy7TVzJY
m4GIv3nG1TFu6A3UrYkyIOd3VTBko7iCcNqkf8+UfJeft9kVT1+EqHSha/5p
Blbtm/ThsL+A0KrB4s7LDOQP6ld7urjArEtVSTCFHB9fktjG6wBOVa5XdQ8Y
UI5OtvSxt8erR/36Z3IYeKoRttRUYQc5L2/79CIGks/43er7bAMe4cq7/C0M
3K/KojO4rfA67M6W6g4G7kwNXKmmW8L358lsy04y3kBjA+2jBWgtM5X3Bhhg
+bRL7kT1SbS77hvbRNahzDnpTQV9pgjoXXGp/DeZX56H0f6fJjh4uGv+xF8G
3sbQ9Mv5TPB4gztPIgeB7tQNnZWdBrDxRaoCD4FYx+1Ei4o+Nv3gEe/eQED7
rLipxnNdBNcUKvMJEzhuI/WFrV0LauK+zaXiBL5+fjDBce4YfkUZGJtKEejx
6Ps2vUETDvZTjrH7CfwJiX85EXcE297UELKqBB4JFLcUnD2MLsWIm+8PEyAE
WGdDg9RxmEMylseAwISdSkOGpgrmr8xvKzIlUGtsKD2ucxDFA625hhZkPlls
03GOShAqdq69S9bxntBrDZSRfejdqqQlfY7AM95JpbjD8ogKXN31xo3AF0rY
2Teuslg6+Wic05sAx2HPEZUWSZRRrl7J9yMg+jjE56acBC5KaizpBpP/CsO9
z0ubxSGawBc6GU6uv02Ndd1tUfQvfV0fHkMgsP5wQY3jDsQ5l97fnUTARKUm
pGBIADqdARJtaQTmrjk4zavxg0XF5LlLFoGkfRQPv++bUJkjfIj9MQHh15sT
jvfw4RI30fr4GYE6yvPim5y82HWjwUyrlEBQ8XnZ16u5MDQSNfS9gsDC0/6D
77zYkKhnfS6kjoDdJdbC6POsMCiT/iXeSGBl3QPixeO/6iuFlnybWwn8tt+S
fMfht3pN6BsOx3cE1hY0nDiwNK3uMZ2WsLKbwLrrreXpXVR1qdMXhHL6CJwL
U05SVR5T/9qsnHd0mEBpTHBevHS/eorMGsXRMQLLX+/ruqZ3qpuk9DXcniRg
/PpEfhh7kzoH61NdEYKcv7fb0yb6uTrl4o2PL2cIcFulZvnOpql79mjZ2i0S
yLMekczdeFVdBpupy+Q/cEuNJJfC2BG1/wGUPLst
              "]]}, Annotation[#, "Charting`Private`Tag$7278#1"]& ], 
           TagBox[{
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[0.560181, 0.691569, 0.194885]], 
             LineBox[CompressedData["
1:eJwV1nk8VdsXAHCVoldRmVO9kpBIKJJhqZQQyliJylAiKhTKK1PTq2TIkEwl
cy9ThRsteqYfSpldrnvudUmSa3bvkfzO++N8zuf72fuczx7WWntvdr5k5bZY
QECgj3r+e+8AyeGFBS4e0HrI8LAm9C/xt9zjk1wc8Rz5xcpSgYJidYXJaS7q
bxF5c1HfCMa9oHpkjIuefrf1DaOtQEPJ3HnwBxfXsSoSSh+fAl/2SQFikIsu
t3cnFHNd4E2Se0o3i4sW6gvbKlU9QHtNOL2pk4tuj30V+mX9IKAxKqC2hYsd
gskxq3j+QLudKln5iYvxbwIeE38EgR5Jsyr+l4tbdlka7HcNBcP+8Yan+Vx0
0NgqFKH+EEKSF9xjcrkoVzmnuqErAj7arxJ6lMFFuvX9w+31kWDUpHQg+BkX
bbfsTE9OjgGTt6ffn7vLRZHLqo9vvnoKVnc/5Wme5qJPXdTfmfHpELOvx0T1
JBf1qjTcem++hLa5oW8KtlxM5PNWbr+QAXaXBeXXmXHx5dsBsa+HssDhhG6S
gDYXrUPCXOPk88B1e87DTyJcDLm5hKeaXwj+zeFe5z+MYmmcrr1EJQ0e/rjW
OVU6iks2WH5wOfceXghd2BdaPIoKcd1eFavKoQnMJZKzR/H95+ywkNMVIFcg
UdESPYpWDkp4UagSPkdmrjQ4P4pFUpHfSps+goJVfZ746lF8N2Yv6JNeD21t
K4arzv7Ey/7Wf7g/a4ENlZfEtdeP4MnQ61NF+kx461m9VJQxjImC8s4XJwfg
zEP1se7Q77hJXz7wRewI8KJv3EMYQsXWAJ1CxXFIF+mTSWANYvH3d1v1hyYh
2gGEdHoH0W/QW37PxCSEZqdNdXcM4k3tG24qvybBeb9Ls2zTINIS4tIEVk+B
3LWh8NR3g7jHTC/RXnsKXjAmuJkPBnGQ9TK7PHwK0l4J1b7dPYhyabyyI+um
IclU3af1/gCmfXYeZqnNgPwK04Yv4QO4ZunGq/e0ZyCv0Vnu860BfCvrFqYE
M0A78qSl/uoAZl+03GJrMQPdFrMaH84OoJvUKYMzF2dA0rpiMltnAL+8vHZS
L2sGHjuYXL35nYNfPVNSBKRnQXK986cbHA4WzptZtW2chZTe61sDmRzcVXTL
9vnWWXjt+Krdt52DJZ2NRoqas9B0WlTrQhUHc5VYqWzzWRB2bZ+xfspBN1Vl
GcnQWQi9eDZgmwkHc6J36Z0fmIW+CKck2gEOxs2baPT/mIW9hQ6VZgYcXNrA
lLWfmIWJaVthb00OdvylXK2wMAtnb5kmFG3g4IZtLkZu0jwwjNYs1Z3ox7a+
qSFHEx78LlnKM3/Wj6J6WoW7M3hwkr54PTO2HxsMrD7+k8uDd78W4HJkP94J
+PFiQwEPvPeRd6Nv9+PPOcFmDo0HjIZRqc5L/Vhr8py2+gsPyhmd2meM+tEY
1m/r4/HgxpJcf5+fbAzzEDtjasQH76dOy84MsfHqx6n0S4f54KwmFmvez8aK
V16Fj47wwdQhqEipm43HfeMU39jwQbrY4mdfNRsbBRyu5bry4Y3zpLNZEhuV
plSs9ML4kM3LGt8Tz0brorilo3f48CziVLBCNBtNOB5/JfzNh1BaTfKie2yk
04+XdUbx4djahK4SXzZGpM84LKTyYbRKz0LejI3a5LLNkzQ+sO3He9ccYqPC
uzuL1T/wof1nhueCIRtTnCMzzlfxoVxG9D5di412UZ1qWMeHB1dY/0bKUePV
arCSauOD0uY7OvN8FrpfX1Hr+YMP60v21g9PsZBG7ivdPcoHUXOuXReXhd3e
dp68MT7MBBz3Kx5gYYyajrj7DB+qvyjnX/jKQscBXZ8xARLOBjfLd2SzsGP8
w+UMcRLsulMNGOksrFURquNKkmCqcfk4J4WFHlHtipoyJOzirH448YSFFndS
l2dsIEH4sNWkSAgLFwU/sNqtQMJ8mtwqySAWftZ/tuiwEgkT/AmFDf4szBiL
K7dWJqEnL+bkdi8Wzh9QsrfbQcJr0fYq4xMs/P5sUl5Yi4R094weCxsWblsb
r9OvTUJC1dVpW0sW8qQXnyrRISHEV3Kb60EW2m6GRlN9Emw67SOD1VmoUrrd
YaMRCXMpdKey5SwsdXO8HXCUhLHZ3IBKQRa+lpZI5BwjgXP0RnTdAoHkQnqV
iTUJnxevr22fJvBAZ73pgi0JL845qk6wCNzpKXNUyoGEeFQ15vcSqGl9YdmR
UyQ8lP59RqCLwJR1lS2BjiRcbUh5IvKZwLKcvfmVp0k4vIOYU6YRqHD1U9ic
Cwn6dwskNN5SFi2a4bmSoEEEq+kUEKh2eG8Y140E2ejNLsaZBI4NbvlRd56E
1T/GgyyeE6iVGlyX406CoNHHONskAl8+9cfwCySMTjs3uEQTuGivvqCCJwn9
Fpocj0cE7vYVtxqh3JW15PeVewRKi8VX5F0k4eOJl+rBNwksqqriSniTUFLk
Z3Y3kMCY8FsllZRfrTjoFuFHYIS4eKrrJRJiKwYSkjwIFP/5uzn+MglOAYk3
td0IjB99NqtxhQQlTUvXltME+nS0Lq+lPP5zianXSQKvl7oJHfMhgZZdqiZs
S6Abe+14K+UwFy+JdEsC99FT6ix8STiyUW5O35TA9Y7ND6oo98U8qPUFAs0X
GxIRfiRkWRi+EtlLYPZLSZ/vlC8vn47K2UXtT/OHKd2rJOhU5/gbqREYrbf8
wh3Ki285OTK3EejfXt9cT7lRR+zAdXkCu/Jbti25RsKTqToliT8J3L/qt/9u
yk75QSIFMgR6n5B/f5qyoof6lKk4gVNKm6dCKI/JD3YPiFDfa7dsSaJcxkzE
4OUE7nCXMntNOTTRMkNWkMC8yhaPUsrxucKSXvNMdPEcCqNRVt7kw3oxwcRD
bwzi31Auj+151fWNiXShDxmZlC1WHAwQYTCxbfxoQSRlIvj1AaMWJlbIckp8
KPvMSIler2Nistm5iiOUBS+G0PPLmZjoXF+1kXIcazhjoJCJcQ7zNUPUfLfZ
21yRzWLitAnZkEu5vKlC71gSE7cef/fVlbLFfkXhu1FMPF2r3CNJmSiJbC2/
Q43vu9VQJbW+PqpkysQNJsYqqZDOlAXTXTyUrjCxZf7tmnlqf+KkP+12Okf9
f2Jc7TFlpQitRU8cmCj/vN9WhvL7JWlN/zvKxGP5keHPqP22CFyesHCQ6v9F
oEKCMjHq47Jbl4kfq/UF7lHxIkg/SKZtZaKghWWeDRVfcZb5NR3rmGj2aJ9E
PhV/SjXSUStXM7GDqxuxiLJ5wQ/FALIPm/MTCyO8qP53omwtm/tQLiKv18SD
6v+L3HS7ug9P7gxiuFL5QbviOkIr60PYrjLjT+UP85R2mMLLPpSKee9759x/
8csomA/oQzUzgUoj5//i9VCQpncfpnO3pm06+198FhhfcOnDpY3Bz6eofL6y
PKyvzbwPP2zNXHmbyncaU2nlKzmqPbwx0/g4CUF6i/5JlO7DqZH3hb/sqHx/
2m1+X6QPz8iTw7lUPam0+vvxOZKBDr8CRyasSKir+bF2cwsDX2Q+OqxuTsI9
uepi0XoGkrQhdr4ZVW9vJdn8rmCgeNtwsaIpVZ/2mMf15DCQKNv+e7ExCW15
r2XiQhjo2MA55m5IrYfwXVq4PwPLHxRhgQEJ9m6nHXy9GJik3HNxQo8E+sbV
yUdPMHAgsPD+Wap+sqKubFqhzsB/d3JHRtWpeuK/SzGY6MWWGqmTdZtJKGhb
We/d0YsrpMQOvfyTmr/6gLtjUy9G2NDDrlP1fmo4NndvaS/GmSTw11LnwZzj
rOr0417c2fiaOylKnQdGtF0eQLX/HS7j/4sPW1Yb7rdJ6cEVtg77H3zhQ8RO
1nWPmB7kuYx32XziA+9oaHHwvR6EUu1ayQY+NEVVy//j04Niu6rzwv7lg5+Y
idAy4x60u1zTuugdH2olrZpKuHR0yzkgH/WUDx4bXO1k99ExMJZ+W9iBD236
Sx+ra9HxYKCEN2HHBwOnzDrj7XTMxZxvBVZ8EEsd2uMnQccJelqcril13m7y
kv30vRtPvfNZx9vDBxH5a8TN6G58syDpJyrBhyLlex7s/i4UUF7/pKaOB39+
PVO2vbsLD+kss2n8yIOH/jrCVz934UQYQ6mhggdu1cMZQmVdqNvmIlNczANp
J3OWSkQXfsp4YKGRyoO/otYe99/ThT2tsa3f/HhwmJd0cOWjTlxXl0foy/KA
WVO4SUurA8dymgVEbWYhyJpvtEelA22zpv0Z1P1NmmV4Ya9cB24pjHDJNJ6F
o7+aCw1EOvCcaU6qou4sVGqM7jcebMe6I8nEt82zkJaq7HY8rh1Lxfapnx2d
AefA9JzrM224ghOUYBQ2AwMqsRr4rhVzxlZF6ydPw5qbOVo7Fn3FLKHOdM1z
k6CixVXJmGzCjOo5nznhcQgz+vmlLKAOBcJc/zfqMgISNq8jT0h9RCv1QqnF
JwahaKZGtF6ehtpp1eWHnAnI6Bl49D38NT74aRjuZN0KjsfWv+lxeYKrjc/6
qU6Uge5StSxiwAgPJtz9lvfMA/4PiomZWQ==
              "]], 
             LineBox[CompressedData["
1:eJwV1mk4VQsXB/BMFSLDRWTIeA2Fe1OisjSYCiFjylQpZciUJFGGEqFSyW0k
QxmTImERUkol83TOPgeNnEOmczbp3e+H/ezn93Gvvf5rLWWfIIfDvEuWLJmg
nv+/DQX08onRnWCWeeFr4X/HcAOTR/GcaykwuyRlhno6UHXiJdf41Qu4MWc9
7a9BoFVOX5ut6yuoqE912vrwC5rZSPDNPGuBUk3BRvW8MUzz7InVr3wPAbSa
g6t+TmCLrYKInUQ7CA8X+ewMn8JxZamzn7M6IEom7NvaizO4KepBcMPDDrgY
0vKsNG0Gz3euO1xW0gFNnVUX1t2cQekL5taprzqgkXfrP3J5M2gyFiG360cH
sJ4e8a5snMG05/3PG4w6wTTjTsCf3zP4z+777LLeTnjcy5WpCpzFMw/XDt9j
doK5ZGvyzfBZfP27qjt1rBPChoYbg8/M4r6y9lr/JV3QdlkhUvrSLJ6X4kvR
1OwCZzlO/ZrcWeygH9a8H9EFZSsOSRr2z2J4mI53mnQ3NOz46HzAdA6lhdg1
zsrdoF7GiFllMYdV98pXKa7tBl5pJ8M2mzlcaDX6VLStG3arDluous/heWVL
aPXvhpbU6OJz4XOY+uGQgkBjN9jdeRwt8GgO8zTv9p0O6oGovzWFZIU5aFnn
vWH76R4Is/Y7yyPOwe971a8IJvRA48E4w2FpDq6NKbLMzOqBrrzDQVdVOFje
VV35rLkH9OqVq+4ZcbDufM/1idW9YFX6sjHUl4M9g2IOvm96oS7J6OWvag7u
Sj7cG/a5F+Jendn4CDlYY1TtETfYC8x3dlluTRy8f+Pg8fsTvUDS+aQK2jh4
1O55fP+qPig+vbVgns5BstG90tavDwx4a7uj+LgoX5gnbyjUD7eeMiS6zLiY
6jafbfZXP2yqj4tqtuLikuV2Wo6K/aBSlnKr1IaLI4e4G4L/7Yfk6Cr2CScu
Fita7ync1w+hRQt9+Ye4aHJ18pxSYT/UX1B3Hj3HRa/ILV+XWQ+A0kD1o4xK
LmofetPFch4ABV5T3YVqLk7ZOjZ1eQ+Ac7mCzP46Liaq+T/IiRiAD0lDogLN
XCz6+J875AzArMHjw/PtXOSqz388SQ6A+DOW3qkfXHwldqHugMAgqAz/1D48
zsWUeYninWKDsGx6KnDXBBfXtGtfktAYBFP11He/Z7hofmbfzhL7Qei8qPdo
GQ+JVz+/qBotGAR3P7XUPCkS99ea5b9/Ogj7pntcZFaRqF7Qfv1p3SCEfhWy
j5UjsSr6e8i5zkGw9nv3zliJRJqm7DqFJUMgFatWZa9JYoFk7mp+4SHQ0DHo
iNMmMXhRX+in1BAETBaKl6wlkb/T8muVzhCsO/bz1w99ErVjTj1wdBkCg21V
CkuNSJz240/f7DME/0wL6nCNSax1TD+rEjAExb2qdiNbSLTTLnCfOD8E3hv5
B7NNSTzZ1SOVUjIEvW66HfUWJDbqGF5qFKCBRvt64RhHEj30HHMmV1JeJXe5
34lEzr/BNUpyNBDZICmj50LiWuNCVpQuDYL38EOjG4kZlkp7DVxocNc8p+Gm
B4m61lv8fbxpMEZ2+770JPHNHreE9OM04ClqF+71IvG387XKsRgacCQk7Rd8
SPQ9vEw+t4AGk5lDRRO+JC7xU9vQUU6Di6rOBoNHSMzy32bLU0uDeFbh0/qj
JH4IjYo90E6D1SyZG2HHSDwakXkreYAGud7mczuOk8gb9az8xSgNAq+ft17h
T6LhefaIFEkDyxW+Hy8EkPg5YcXiDn46MLT/nTcOJNE/SUsmRJQOua+cZL5S
vp9+0OqDCh24qYvy2idINM6I9VlYS4cxt2f8DZQ7b96J0jakQ+17jT67YBKX
3+spTtxNB+Wokp3uISRmZ0+/rnCiwwMNvv4uylvyxAmmJx1a3dNcrUJJ7H6k
yxU7Roc9HifxGeUTxbslIIwO38SHRFaHkSj05KhOwFk67Jv/vj2S8sOKhJ3/
XaSD67bmA58om1RlH3h7lQ6lxZkH1oST2PcST87dpoNISdo2P8phOJimnk8H
Jaee5YWURRu5BXuf0CHe/W75KOWC19Kvzr2kQ/caKRPZkyRub10/UNpMh/Si
gMdmlAfb7KaHPtJhU+nA7DHKJ9sDRFb008EoLkMlibJY1yUN4xE6TK77uPY+
5ce9+XCURdXDq+mvMspmg02uNzh0mIss6auiPMGe2OTDQwA74e3pasq1wTFm
kUsJWGa6d66C8qUpEYd0YQIyJZNtCyi7hN/2yBcjQFGhPCaDstqc9vE6KQKU
dIQvRVKePPUiokuOgO3Y7+9CuY60iB9TIsBp5ZG/dSknn+lO51Mn4MBSTtVv
6ntdFw/dkdMm4KJZz5rXlNVjpx79o0eAh7qdxwXKv3jOP7c0IKDweemJbZQx
TqzR04iAW407XaapeqcI3Pt40oSAhk+e4vcpawjWfHtoScDZgpDfDOr//WrR
PZZtQ8DqlhqH05TrEh/8vOdAgGSQVb0wZWf+C6ys/QTMK1cyZKl+UGnkBmV6
E/D2jk/GDap/WOf8J6/7EpCbOLp/BeWEP/bT6ScIEDm+at1wEJXfuqbw1HAC
rg7fW7+Tsny04VzyaQJWNBfb3KX6tYKUJxPjCfjRrlC9lervkZmvf85kEsCS
nzqkReWjrGLfudN3CGg9Ys5x8CPxTGgb76lsArTc2rLCqTz9NVkuEFpEQGe8
v3Aelb8dY9HCfvUEuLwUuvyUyqdo4USKbzMBviZCKbneJPb7HRQ91EqAuoDz
jXQqzyFfLcU9OwkwX1xstafyn82UlHH6RoCPoV5BLDUfAh8kZjqME/A6RmHG
2JXKkxdX1u4XAaoyNCuWM5XHIZr87gUCgrSMBU2p+cPT90hlmxgDQh5HdabZ
kvj+pvxDEykGHBQRdZKwITHTOU19ixwD1ByP9l/eTaJ+Z5imoRoDyn+K/Qqy
JNHrI+iu28SAuI+Du4lt1LxKLS/V3sqAqXDr79rU/ONYq/+juZ0BvRY/Lwaa
kJjWKmSgas0AZ5uUNoKan3XNXUayXgzYMpJ1KHg9iQo1x80ELjJgUPrrle2q
VL1kSTLwMgOYla9dWWtIXHHyYlnvVQaQ8ZaMK4okLujlri66wwCPZ7Yb62Wp
euXQJh2eMmBPVc2PFytJvJFsf/c+jQEGYYmuyiS1P7/R9wqNMCDRw0rNao6L
CWaBgmHfGXB+xr706DQXw/5cCrOYZoCW5DxvGouLDqFNu1iCTBB68vzeKSYX
Rd0N5zZvYMLtUL0yfMPFpVXNRbnGTAi7axd0kNqHv/9y9FlpyoQvo5KsxQYu
jn040cbcxQQVBVJb4SUXW7c/zknyYkLkpY15s0VcvKCtYNeTzIR22+B3CmnU
Pid5H4UwmXAiT/KpCbXPvYb7pmK+MsHm6GMRDWrf178vM7k8xoTu3MOmS6l7
IPaeR2f+LBOGtRh6T7Zw8c/O6j+DQsNA33Vj+xMdLi6mBTtbrB+GyyUqt/ct
5+KCOsEnHz8MnqFdb5xqOLh/ZaWtVtIwNErxr3arpO4VzuVbG1OHYenUc2en
cg6eebdZzz5zGCTUoi9vKuDg/Imb+xKLhqHpw5cVj69R98pL2ycTncOgU3Fn
0ciPg3P2tR7N6iNAmhVlSK7k4Pm+0iETnRG4zJItqVzOQVHv7P1V+iNwRMPl
+l5eDmqcuLCvcPMIeERc+xwyM4eOqfbOV+xHIMZng+6egTksax21ORA9AhGo
WRCbO4d+O0S3znSOwP6k1cfb18/hgIHnavX4Udj+rFQhddMs+nI3rExIGoUr
Norv3PRncaJ2Bd9o6ijwrKrjU9ScRX6L6h8Pb41ChWOlUrrMLOq6SVWrlY5C
z/ebO1bPzmBs9DtXtf5R2C1t7fDxyQxqvDa8oar/BVbrlxnXq87gCRcxcZXB
L8AcGkefX1MomzHiyq/wDVwetUtLhkxiifv9/KlT30F2Xd26hKYxdNkaY/mm
9gfQ5dfHZaZ/wSceASrGCz9B90ecQMA2AjlCO/heOI3DUcuc3m7RDpRgiWa8
2jcOSepCdyJon1GnvV/tvec4lGWZf1pb8hk9boaY0/3GYfqXMdFl8xkbVbOT
BM6Ow7L6cq+1qe2YuoVHzCFvHFjKR0o2S35C9UCU/zk7DmsMZV9vPdiKJvbJ
xdPz4xDCpgWJC7aiq4GLyeISFswWh+b9XfoWL5EsT3FhFkzqBN5UWniDE4mK
OYZKLCC2yVm53WrBmnvRWvEWLIhLdN88xGhCh/bNGxUyWfA25Pxisi+i0Gbh
hpo7LBDSKArKr6jDhof9u/fnsOAkjVX0lq8O9U9Fev9XwoL9fiF/GeTWoKhS
ZYpsMwsYAUVP18y8wLf+/w5L/WLB933Fks/bKjC2myfw2RwLtAWWfYjXrcBN
pu0cx98syBZNyytOf4p5kidEM5azYTbWOONvt3KMry42klBig1Qnnxt3thRN
l2uli1qz4X1ViR5rVT5ygjlyJfaUI6stulbkYelAS66NCxvaRvHaaf5cVCz1
fZniw4YlsnKR7n+yccHp4RehSDbc0m/4FWx9FyswNPjxWTYok0z67fDbeFxr
x4JVPBtitpYIzuZnYf8CQzwpjQ3V2YJRu7VuYmWO0tZleWz4mRwebZ2fjoEi
7Ja8Qja0jB3O32KWihoRdQ7mT9hwNPbvxZ69yZix68DRhBo2CM+0XpesTUDr
irVTaq/YsFHa+ZyIXBzyKS5EN7WwoRe+7sdrsRgymXWNr4MNw3+yivpaIlDb
/ZhiTi8bCuI/f+07E4qMJqNH22lscF2w2BU5F4iZuoIGzGE2vH77af7n9SNo
l9lbd+47G2QyhdfdHvXC5bwFVspsNvibxhMTXCfE4xGd9dNsOPc+RmvjtAV1
z5p7epFsuFHr1pA0o4+6IP3jzx827NiYMnRsL1H7P44ZIu4=
              "]]}, Annotation[#, "Charting`Private`Tag$7278#2"]& ], 
           TagBox[{
             Directive[
              Opacity[1.], 
              AbsoluteThickness[1.6], 
              RGBColor[0.922526, 0.385626, 0.209179]], 
             LineBox[CompressedData["
1:eJwV1nk4VV0XAHBkTtx7z9EoqSQkMjQQ7k6izEKSsVHmRHgVogkhkSFJgzKE
MtwKxTpExDWEVySSEHdUvIqK73x/7ef3z9p7r7X2ftb6YwEHTwoJCAhsFBQQ
+P+qTl/OWlzkQ5XGOqmzXwLpAXMbY+fm+YCeCYXvXfmFXlqhqTT9Hx9GPvjr
t6yfoH/3ozdwpviw0WDN5pyLXLqWsuWxcTYfhr40ORcLfKcHjRwRGB7ng1Ws
vE7Z3A86I/t0Tv8XPhiWhrk0wAx99lCIfvcnPgR1922VdJ+l76Re/sj8QO5X
/r4o4PNPeljrzbC3XXwQ8jRjhpnM0auv3FtOtPHhTj8RuSVznq4/X32w4g0f
1FYPvZYS+0uPYDRPFdfyYcmCUtYF5QV6rX9vUl4VH66ZhhV7GyzS0dfvLbef
8eEr2mJmlSuAou8unk59wofbE7lvvOUFUb3jMrHEx3yo3Rxnsy9NEBkzlfde
vMMHDl+dGhkqhA48d3916hofxAfpe37jwig+wM/JI4YPLx5/Gj52ThgxVc7/
dIrgw7rdG/Ntu4WRVU66tmUQmY/WeNX9sSLo4LW2Im13Prgqcyzv9Iui1D0D
B7Ye4cNp+1QvRxUx1PN74puSAx9WV+21OREqhg6dEVZcbc6HHv45K4a0OHJ2
2p0tsJMPU+kXeC1bJFA2dkBvXpMPgfHGg4wACTTUdqhvWo0PUWNjL13LJZCH
0Vn82wY+PGz0vI/rSKITWwoT2qT5IG9kHo+rLkWPx16oNknwwcacWvzzxFI0
fq+hmRDmwyGBsPHBnKXICx8WZszz4BJjYn27jBTy/7s8ImucB/1/Z+6Oj0uh
0I7Lfp61PCjavCs72F8aJbBDPsxU8oCes6+GfU8aPRTz2hNTwYN6BTOL9E5p
xKRbyt4t4EGw3IqZdA0ZtKFUtqYrhQd7bdpdX4zKoF1Msc0eiTzwveuIrRWn
IMuJuWTuNR4olCgIxa6loDCFoRPiETxIOlsQ4G5KQe3JeVKGnjzYfnOkyjCD
gkaLM0Naj/LgxPCq+KAnFDTXHD982IUHFsN2iy41FKQoGMAIsuWBgOCq7oMj
FBQeuNOlcDcP4nZYz7KUqUjpYHMRTuGBU9yHK1WFVKTvXy37UJIHUYHXal9X
UpFtfHGUhggP7of8+n65iYou1Cfbmc1zgWK5P8pzlIq6tJx+R41y4YSWR078
GhqasDI/uewzFxqnvA1alWnor7dBR1Y/F6SnBFp6t9OQcu763OftXJDbb2Zv
a01DERjLjF3JhXM1MvNjUTSUovGJEVbBhbze87wb12mowLxdXvQpF2oP8Bok
Mmio61L5D4VcLjy9KG8fUELGmwnPOpTIhbg+MUFqHw319Cxl1R3lQvjWmu3y
mzAUfeJ5bZELF+ZZbYr+WzGkPuOWmubIhQ/v941kbcdQLFau72XJhRtOd9cl
7MOQwcHDNyi6XHCLeVnZexxDrC+CJ+a1uTB9UFtvuQ+GMgOLdo2qc2GXWJDs
9rMY+pG88OWlIhc2xfJFaRcxlNfxSMedwoWyhZp/bbIwZOduJXFgKRck/Rq2
pt7HkAD/56CWKBcUy4XkX+Zh6Ii0+TXRPxxoKonoelSOIRnL7/0l3zgQMhXy
WP4dhl5/ynqaMcKBQHu34eB2DHn7Gl+KHuSA4Tuh8qfdGGq4nqHm0M2BH45y
4u2DGAprMYj6U8uB5+H9fXVTGNp05JvdeBUHVoyNKe/+D0Ndk8nKnQwOKKZe
6rs9hyE1idH3uU84UM5oVBMXwtEX03hF83QOFG666P6UiqOkD9pzOjc5YPev
gedhWRzpew62ySdwQHp2yGtyJY7Sr24L/RHNgamJgPV163Bk1tj77rYfB3y4
WZct1HD00/5izqXTHLC0S0nR1sDRo1GVIL/jHAj1+yizRAtHi0si5PY4ceBI
oaG4y04cFacqfVe158DilMjHMV0cHdnY2Yhbc0BwMKz5sD6OGEYbAyaMOWAw
Yp07j3B0tIu5t4vOgfV150dU9uJI+ljIytd6HOCLf/tqtA9Hp6Pf1d3YxgG3
UsF2rQM4kqUGpf+zhQP+K/pFJM1xVH9fzue4Egc0O/fmtFrgaC0RgO+U40Bq
dkC8tA2OmLTtwXorOIC7uLXF2uIo/OR8twGNA+5bv/bxDuJIuRK09yzjwLPU
+g5kj6NeySupxuIcWEo72RPpgKPLrmbTpks4YPK4T7zwEI60S2XszBfY0L69
KwkccZTskEU7OMMGikAIXu6EI8MC97MOfDYo6fU7JB3BEXdeseswiw0H1u/0
dXTGUbYlS9NljA1lH++ELnMh833/2U33YTYUXanPKCX960fw92MDbOCGL+cg
Vxzl7dOzPdXLhpNXGKm1pO0zF0u93rPhGe5bouKGoyXsBoofkw3uXoRjDOly
g/gzZ5rYYPBqsrSZtEeydWdQPRvuOfX2/iEt/RXfFlrDBpm3W77Ju+Po9faP
N8Ir2WD1znRRnbR37D1+RAUbxmL26G8lvWrghHX0Uza4BbGqV5Fu3qr67HIh
GxyjOzJmyHghF/nSsY/Y4Deny68hrdjN8L9+jw12cdsGz5Hu3hTenpTFhpHt
YRFypGPC6OopaeT9LdLYZeR9trUKJ6Uls6Hfhmm0g/TQ2hZu5nU22H7dkFNI
5iPhzA3L7KtsmM7zWClFWu+Nfcm9aDasU6AwXcl8TsquXpZ7gQ3KyVHdOWS+
M09/9s0LZcMgs25/B1kPk1ePmIVn2fAGe7aPfxhHM8u81Ur82PCkf+zrAlm/
hx4aCaWnyf3SW/UXyPraVMywK46zwTwh0YtL1n9RpNr8pRsbDiWuv8Qk+8Ol
yHhprT0blhlf/XyE7B/JBQmfOms2CMnr2EmS/VVl09HSYMaGiVcBsk+scbR8
1im+FbFhtHzpWDXZnx0oQKJfjQ1yaKuRogmOIlN1vD5tZoP1hHTNYWMcqY3P
NX/ewAZ9cS8UaYSj2OuXY8dXssHJmVOVbYgjo97bYjPCbIiMFRlW2YGjKWV3
z5+LLPjXpVVsUhtH984rNs3Ps4C2e//4bU0c/VF4dlXwOwscU63XvCff83Of
BhGZQRY03/iRn7EBR7sU/DXzPrCgNkG8sYh8/9U9K1wNulhQzNL695kcjggD
H4ZPEwtchXy0Y5fjqEWGdry5jAUyT8uyL0jgaLjCnYi+yoLOsNeqcRwMHTst
wVkZzYJvPbsG8ycwNCZXsaL0PBl/Wmnx5Sj5H18RDRg6w4Ikngqr+BOG/nMs
WbvbmQWxzZZ17FYMSf6ZD5/RYEH1UhrWmY+hxNJHeddVWdC6PKhTJhdDlJNW
XRs2kfHKzayMcjAk2/5AxXY1C5zPnf0YdQtDCvf395UIk+fxvnnInfzPtxun
b/fsnwTZnb2RhAOGPBI0p/pjJqHFqkM+/icNhTNSrrZFTMIJzWO6Zd9pKO3T
tFxd2CREuIS8amfTUIvaiwMF/pMgdtVClfuZhrTb9HJDjkzCmdKKNVVNNCQq
bXwI05qE2Wl7p8w0Giq+cei1xZcJiNVXpbxTpaFfKedjgT4BP0xjGk8ZUNE3
uTqWid4EUDyfP/yoQ0W9eaKW7ToT8EDPP8JEjYoqqm9SB1UmwOe7urPoGiry
H8nPmscmoOIiU0j5FwV91ewp3j7xDUzX/af8t5ScJzrV3hclf4PNHuobDMh5
I1d6aFXml3FYjOwoqGxYhrLNNM92x41Bkn9lASNMHMX4Hg1TOTAKxb41Uw6K
S9D5JU9Cz3JHwJOystTdcJ5+9GKHYm/BFxBKGuhvyOfS02rGMrO9h6HNz75K
L6aNXv1ZWap4wxAQMZxOB+Nh2EhBRvY5A5Dq5Jd4hfgB5aqx3iNf+6DM5Imo
Zf5f+NxYprBjRy9E+lzfT2tbQoyppWnBi24or1g0Xb5MnKBGFu5QF3wP2YnI
Ysk2KUJtB1/t8TQTCguySljJMsQp9aioqkEmtNNNHS7kyBD3lGS62pqYUPem
9pFwsQxBW6EROnuHCV92GmrNvZUhfv70rzM1ZkKE0o6WwD8yRH0Vz4F1qxWC
5n9d7tCiEIcNeJEaO1pgeovgFb9MCnHJmNtZFdYEB/vVU3UcqET9fo61zvEm
iEhfZ1F6hEoIWLLbn1o2gVXkBtPNHlTigsMkM3dDE1QTFAExHyoRcmqsOZH5
FuR7sk4lXqQSp2MHiaMKb0F9/znb50+ohAWzrVSiuQGq2p+s9/1NJeI7mRqX
yxugUCshxUqARjT3tD5dyG4AJd0cNTURGrFv8F3xdGAD6O337++TphGGvMaC
wTUNEIM9FPy1nkZso9TeLwt4AzEbl/MsTGmErP3TZKcV9bCib9bfIolGlCtd
r963pB6q++97HUihETZznqOa/Dqwv2a3xiidRsTnrN8l2VQHcw0tD5RyaMTC
xK3P1SF18Fh5Uu11CY0YjzivLtdLwCbO6raVTBrhb30zs0YFYFhCdOiWCEYU
zJhx0gQBhlaIvBOTwIiR28LIv78WtC05ziFSGHFoNPSbfFwtDFx4EWqCYQT9
H7cdFydqYKhF83y5AkZQcrf0GOW/hh8JvnZVehhRPtso06xYDasLXgRH+WBE
0pOH9YZzVaDRbj71yB8jfNyizj1vqwLKybg9jYEYofh218DDkCp4sUbp+Gwo
RqSnFeVFNFfCWcaW9NWXMSJc56aBtu9L8F2tddj7DnmeCb+pQvQS/vMp/KWf
gxHa2Wa5CrIvIXnZW0/JBxjBWSIsIV37AhgKZqVpeRjh1h3SMyHzApwllT77
lWGE0VkXn5wKBoTGiLoovsUIeSVdedlYBrR5rXmZ24wRv/tl3193YYBxWvbH
ta0YwdjTseMfEQZc+nnmH6FOjFCiGgnZO1aAZJS3VGI/RkiWbr4t8bsMEqZC
9PLZGPF4YCxx8vJTSOA9CeEuxYmPF5bfu6v9FPIDc1bmLcMJaXnTUtuREsie
vbLpiAxOhHgUdFXRS2A3so9i0HDCZMx7Rfx8EdzdKLJVaxVOTPD491XPFEKZ
xLG9tptwQi5ZoXxIvhBqh7jnCSWcsNG0fZPSVgCG3YZyW5RxojKofGxetQA+
TYWl/lDFibhfwaqtY3lwYtrX0WwbTqgKzVf4OD+C2dZdlLV6OOGWq9q4TvIR
qN/6UGq0GydSjJ17uytzoVQi98VxfZyYv/r61+7lucCyV/+eYYgTrUujDKTe
P4C4Tfry74xwQqDkmRUR9QCcWo6OvtuLEzpWw+7B6g+Asu6+9FtjnMhO3hPz
6fp96JWaSCo1wYk+VfEkp8Qc6Cuw3G1lhhPIz6u0jnUXTt0alFc1x4mCZy1d
KvvvgkxRxklBC5z4RydxxbxQNuy1kpd7aIkTqw1pD7LCboOE0APVYhuciLkY
9EaoNxPyJJ4oHrfFCXZ9z5i3diY81MCjZQ/ixGvTDNXdvHQ4pVvu4WuHE662
coyB47dAcXVD5YgDTnCm/9M915AK1D/lU4GHcOJCegdIb0oF81anyj+kswdi
WveM34SvFgmzwodxQi3SxXbA5CZsmP/pG0P6lcKOD8H5yfA7cODsb9KM1q5G
6/dJkPpvh9qwE070UK6+j0lJhK38hmHzIzgx7aA7+NwuAR5az2+sIK01fG9m
TW8cmEzOOAY744TtJjsB64xY0LnxcH876TPeolIxh6/BKTjavNEFJ57N+G6c
+HgZAsfZwXWk23UVNNZkX4LO5NwHEq44wYvs1rNyjYHkHBNXS9LLGq6aRMtH
Q/RHZn4C6cO04EenIQqWxKlHN5HOyP74qn1PBGgUnpj8S7pXaU+3TkM4vPzs
OazhhhN4WT4ryyQMysV0TrmSttstLST47hw4HawLv0o6pTF4lad5EDATpeSL
SHdaD2xrazsDp8SpNq2k5RmXkk/d94UrzW8p30jfabYBrcee8Dlxm8cC6ZWD
a3kLhcfAY+GAIdUdJ7Z8/Vc33dUZtBiSRetIK0mdyVD3tIW3YiF5KqR1RTTy
h8eM4QdH9w85zxL/A8GaKdM=
              "]], 
             LineBox[CompressedData["
1:eJwV1nk4VV0XAHAzGe+950iDOZEIFWWo1o6IDKHIENIbFVIkmkioNyJESCIl
otBgyBDHFGmijCVTxXVHU6ZXfOf76zy/56xn773WXns/W+noaXsvPh4eHmVe
Hp7/fw0EtfMGf++BSZbB4iYPnLiUZNbqq3sEfs0lM1eRXgq7cC9L2wteBS3s
EiEd7vPM7+tGH6gJoSpNueMEv+PATmHV0/B9piuxl3SDYvS/9ymBILLaLrGK
dFSK8pntt4IAjV9RuEvaTLzaqV0sBMov+u4IJC0c4bDbN/oCJGRL081It8xy
1AWFL0OY1TVlGdIxp27QsqLCYEmhljnshhO5EwmhslfD4Ub7O5MC0sePb/Qu
W4oAya/+DzRImyuHuETujIJV8zKPfx/GiQ0/GmxsL1+D4f7n+vdIM+zdtjPm
/4XO613i86440SpRoFGuHw2DA8HW2aSftswoRIXEQLCqlpwpab9dCSLyf2Kh
a0DS54oLTljP9y0ytt6CUVvbUWnSWiXqE+WB8fD3Uc9UnjNOzCUPsTbMJcDU
xFRljRNOVIhe6qw/lwQJwiy+ckeceLBJ+muxcjJoiZq0yZG+blvclvE5GXYn
uhy74oATB1N+vg9WT4GtPapDWw7ixLiSVf3GH2mwnvVd29UOJ7r3jNTKxNwF
of5vemm2OFFzPPyNwPZ06NA7xt+2HyduFpa87k+4Bwe2Rv/RtsEJVQO54tt7
MkGc7mvwYh9OiB8uf3ZlIhNabESuNFrgxFSYXYFfZhaU1myI+2KOE0eG6+3X
XX4AVfHh/ANmZH4bZq3/dmaDpl7k4QpjnHj3ymPPi+gcWOnHM3zWACd2NGk2
qA3mQHv6q7qt+jjxvGt+d+a2x2BbcMqPsw0nUuaT4ObPx5AOL9Yd1MWJY9Bi
6LUzDwImq+WHtHBiuVVn8+qJfNAMSjzLuw4nAvv+FsfvLYCb6zas9VfCiRF2
q5ZQZgGkRYokdirgxAeKl+bUvqeAHUqkJ8viRLrjXbWPOc/gw20X605pnNAb
5pW/6lQM6ReXVNyEyfVXHprQyS+GKYvBoFRBsh63CxsH54vhByDjj/w4IZb9
TO+B9XOgRR9x1ODBiUVbp75lznMI2BTr82IOI348L1av3fwSLHpqQn7TMSLr
jHvjzvISKJzTZ3OaMCLj8IqiOwMloNmy6vjdBoxIMy9JZQuXwrvqGm+ow4gE
RVHf+06l4F0dOxdajRHhbaXUv/OlILgiy7/pJUZ46kh4VO8oB1Q9NRaaiRHr
xqvmDesrQEoyzTs1ECMufzSJmmZXABxkzQedxoiugveSRasrYWy/3SFrP4yI
8fq+TimgEtiu2oEcL4wY/7ZgLaxYBS9zU/QmnTCipsng4dfQami7evsIzy6M
cLlXvs/PoBbufJ39YSiAESXnoXO9Vy3Uums8C+TBCEnHZo+BhFq4Ki3u8HiR
RtRRuoPs6bUg+o+CwX/TNAI3ubQ/w5KArE2NLid/04hLr9MvRCwQkLk14Mb+
Jhph8aj3o41TPZgka/TtvUojxq8VeTedqge5PQaD45dpRNqJyGWjyHpQutTC
e+c8jaBv2rRZvageGugLWZ9O04gbr8OT+QUaYM/hZhdhdxrR8lHN9XVxA4xN
WrnFG9CIvXPn6ErCTdBrUe+8xKISptY0/j+lzbDQFkwPN6UStzxXTMy/a4bY
vJf/OCIq0XOOZ2DpRzPsseNvUTOiEj6ZnEoRoRY4kJNhU6NDxnNbA2UdW2BL
8y/vyrVkfGLksMlMC5zbHeHBHacQPl3Tdbe3tcKJ3rjTdmkUIt6jO1yn/APs
FHNXQ2VSRLONnIQtrR2YNZbdwTLiBFtJOuxL+leo3Nz1xchQhDgXpOEZv7IL
+u0yls0FBYjuPoq9d0sPcNV3fragLtUeubBjVNjqO2hN8pRE0KZrGzS2xzQI
9oNRp16/7s6hWtUV1fQc80Hw/PNwpbB0I8hV+5oK3hiCDiNj6RonJvAs8OUH
Dg8DYdfQ/vz7PMzavXFvWv8L5taJTpVE86Hvuh5r10f9BuHKaGcjTxF05hCF
qtw3Aj9W+5cdeC6Bjj7RTl8/NAJZQ5QLEg0SyGHeZp36yAiMpJyg1nRKIMN7
cXo64yPgadlyk/8/CSQ4IOqyS2AUVk2YKMqbSqJ0b8FHLpqjEOyoePRatyRq
PLegm3R5FJ7sLpQtm5ZCZW9X16RcHYWDv7YfkuGnoHwZg73p10ehstVF4ZMY
Bd2qCHHOThiF+IujEhpyFOT8dzq0OGcU3JPbrmUDBXGiuG/ffxiFPyHKXy5E
UtDq5F9OAnJ0cJ50j70vREX6kQorg5TpwNU7328qRUWOgS5ff6rR4eOJqYsj
MlR027bNumELHUbuDB+jqFORuES1cYQ5HeTmtcoELalo6VqSJk8QHeIcVcd8
46joV4gxz2IrHf6MdSu0idEQ3/HQN75tdEiKETf0wWhI0fH1xe+ddHDA2iT/
W0NDbrpafyoH6aB749wLno001DW+mnFhhg4eptLO6Xtp6N3Jia+zSmNAy/va
vxBOQ0WuD/Kmzo9Bh7TD1xUsGtLtXrcgFDYGtfcN56YmaKjKPs9qTeQYCISW
nOyYpaEWi6IJFDcGtlWMxRB+DP3cXm10K3sMLLxzTpqvwdAqvOfzhtYxOBVx
3ZjPDEOZ8a7KOz6PQWJlW90+SwytFxsI2t8xBiMDDkU3bDG0hW9kdXD/GDx7
Y5j8ywVD1uNT/zRMkvMnBkyuOY2hiA9Sc25rGXBeVjE76A6GRMyT9gUoMkDd
TueHeDqG4htW3o9az4B7C7SEu5kYyqiUM36qzYBPkVqrE/IwVP5EI3bOhAFc
kWYG9zWGWFF7FZP8GGC0KfeNby+GzvK8D8wNYMAOPizG5AeGFi7ZNFUEM8Dg
YWmV5BCGhM86+AyGMyDGXUDoCh1Dyp7/lGy6w4Dhs15bm2YwdGjnFfOWNwy4
tHjHq5uCo74/I1L19QyQHVZ6+hHD0dEim+6qZgYQQk2FZStx5Kcg713czoCj
fBH3j8jiKIL3TWTKbwb8bZcXpKnhSKRSxTKBwQDfrY9pGeo4iguMpcVwGdCX
3gurNHGU9tM1O3SeAVZVlXkjOjgqalqoOSbBhNXbr57sNcCRbtjR6+40Jvio
Pts8aYSjim2t1k4yTHjIvzVwcSeOGvPu9lkqMeGsa4Tg7904sjjCm2OqygT1
M4GaDSY4+rTqpC9oMKH/qnjQbVMc9UbrL2zRY4JTQqqYgAWO3I0f1GkaMiG2
F7Ry9+Ho14JwtCowwTtseaWBFY44vt0yayyYQA1T7tfZj6MgFRjAbJiQs6Ui
7o4tjub7cnMlDpDxjz88ZtjhSMAmWI/XjQlSPx4Wex3EUYxQ/+KCJxMkZpbP
3HTAkVStaeO0NxkvJmGY7Yij5JDCmxxfJqh8p07mHsLRGh3pA/QzTAg8qxCe
4YSjLPrlNcPnmFASIPX+qjOOVLJ/DX2/yIT1uyIrHF1wVOBsld95hQmEyc/N
a11xpE0rOfM5isxPxX3NZ9IlrWv130WT84+NOgUexpFhZORy/S0m5GsZfBVw
w1GtEfNtdRIT1tp88r9Oes+0/a2yNHK88BHKLOnWZ5UOz+8zIYknMtPRHUf7
vZTlCh4ygbPOezGHdIdczK9HeUyQOUeTGibt0jXx9P4zcrymd5USHjgavOV8
NvUFE+QNY3+qkfbaW2eYWMaEZSeZUzqkGcsb+G5WMYEm+tvw///PvE54F0Uw
4VfaRh1x0jNn5hLCmpiwVNStPUCOf0n9iNP5ViZ4WNyRfUCaZ7hZIfAzE9Ke
NPbYkL6erj3q28GETKMwMya5fvEDqUVevUyojUrYe450otjyOY9+cr75sDcs
sh4rG713Ov9kQk9veLQd6YzLnwQO0JkwJRwe+4isn5Letg9WbCZItsvkDZP1
zmXfTzKbZEJoWVKFJOkX7qeUDReZsM35s+kmcr+Olo7LPeBlAUf2Q6EwuZ+4
eNBqIWEWWP89SntP7n/T0VncT5wFvkKT5iFkfwRXXKR8obIg389NVfwAjtQo
S2L6MizYcFLiSjTZTz3eV4UzZVlwbQVLlUv2nyF+Y+mkGgteYs4vAsn+ZPqI
LXzWZEGhrY5BAtm/GXW3/uhtYYGGTIPLHXMcLfnfYfHuZEFyb1uxwx4cFTet
oh83ZkHGxJ4oijGOjshm/Py4lwWyCZ66LwFH9e8efrtrz4Jn6wz+yTfE0VlF
1a7lQyzYXWYRtrSd7L+Q/HYvNxaM7nlSaKBH1lvlecvmEyzIFNe55KmNo+2X
tjamnmLB3dmi59bk+aa3l9X+DWRB96CiugJ5/i2vvCl7F8oCfVtd0QBlHC12
opfakSy4fKJJYEKePP+ajYV3brDAP0HJ22EtjijfWnM8k1ggY6p5oZW8fzp0
e27PP2FBqV3yBQ9+HF276XrLo4gFK7Ao88UlDG0b7o9uesWC4e2/si8tYCgt
/nd4Yg0LvIvXzyhOYMiNMemv3kHm51PDu9yHIcndwT7xvSwYD1YUzu/GEJE6
7/WnnwUVE16RW7+Q96Mpj1vdGAtK1u5rpL/F0EiWhKXzMgsm/D28PhRhKHUm
waxWgA39mVWqgU8wZG6NG68XZQNu837FTDaGChbWGEzgbHj6UX86JRlDpx02
qEVvZIPrq/tWuucxNCdqwl/hwIZGk99iCfoYonEkk+td2LC0uco7SgdDGu3f
VD54sOHI2gA3xw0Yck8NNBs4yYYHYQOtiTIYalj3MFowjA1pj+pF3aZpqE/I
f41UJBuUZv6+1GXS0MyYwdNVN9igI9a0YXSIhjY8b/+gcZsNx63VZr99oqFb
O3gp9rls2JHXQ53KpaEnCh8fuD5lw8rRFJWUDBqq47u72es5G+LMZloot2lo
ukXnwPlKNkhb3+W7eZmGXByOpGR+YoNe72WP6/tpaL1/rSxzhg0dWaWf1dlU
tMvuZuH0f2wotO9YEhukIifdQ7uWeDgwtuAW/eYLFcUscDyoYhywOmxvGFtO
RePX5R9tV+CAaeL55aYwKqrOClWP2suBuC8F0hL8VNQVYVEZZ8UBi/jO8tuT
FMT1krZMteNAVeYO1vchClLWLPQrcOXA58WIf0prKejf133Fbac58PRTwaWT
5ynIvt1om1waB3gGlA68q5BCokZiddX3OWA/1qV/+qYUqsv5Znn4EQcc9EPy
bA9LIZ3zFzzvFXEg27Tucul/kkhSoTx2dRMH6iejV0brSKK3N67LVLRy4BPa
aHmLfL+FTjo8dGrjgOBk/or8JgnEapouT/3OgTCIWClySAK989vyU3qSA+G5
HU+rTomj8C5e/9JZDgS5hHDf6IgjfdQ+d/AvBzJ1Dg5lTYqhXOyMZLIIF3RM
q8WHAsVQVGWhAU2BC59j9OTtjomiHSqhjS9UuCCr4jdtKSeKpuKs9ttt5MKh
jMRVnR0r0FFP5rEEPS647C9nH4YVCImoJ0hacUHOrHQqlUcEzQXMrSmy48IP
zxqG+zNhVPy9+bH1IS6cX1QI3+QojOSLvatij3Jh2oB3feQjIdS1apuZ5gku
nL5rNdRpJoTiIgTb35/igtvbZYnmUUG06JAzInqBC7vaJw2WlQRRSe3ZgIIw
Lpzq3Du7UCmAfNVNFi2iuPDk1c+0v7YC6NviEDU6ngtT9q2b95/lR+WPFHYK
53JhMzYlrxbDi/wluM25T7mAW7TN+QvwItWQGnuzF1zwz39QZH6BByXvcztx
rZoLYs7J1GcPlsCqRHNKpZ4L++9tPbX26F/gl18MbWzmQudCT1AKbRECJ9KT
+L+S68vJd2TrzcNGVx/5Rz1cSA84PWWZPQtDjQb5xv1c+P2WV7af+QfStFbo
Dv/kQtXjGb9dEtNgm9ZTc3WMrKd32GDC3ASI8D2xUOJy4aOfb36wDhdqfUM6
iGkusK9IXfeNGoPgTjOPIwtc8PCPuHsOHwYtWMlYXuZChbaCeOBQAPwPIJCH
kA==
              "]]}, 
            Annotation[#, "Charting`Private`Tag$7278#3"]& ], {}}}, {}}, {
        DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
         AxesOrigin -> {0, 0}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, DisplayFunction -> Identity, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox[
            TagBox["\"t\"", HoldForm], TraditionalForm], 
           FormBox[
            TagBox["\"\"", HoldForm], 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]], ImageSize -> 400, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, 
           "DefaultGraphicsInteraction" -> {
            "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
             "Effects" -> {
              "Highlight" -> {"ratio" -> 2}, 
               "HighlightPoint" -> {"ratio" -> 2}, 
               "Droplines" -> {
                "freeformCursorMode" -> True, 
                 "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
           "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
           None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, 
         PlotRange -> {{-1, 1}, {-5.092948857341286, 5.092958168554332}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
       FormBox[
        FormBox[
         TemplateBox[{
          "\"velocity f'(t,2.5)\"", "\"acceleration f''(t,2.5)\"", 
           "\"jerk f'''(t,2.5)\""}, "LineLegend", 
          DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
             FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
             False], TraditionalForm]& ), 
          InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"]}], "]"}], ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"]}], "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm], TraditionalForm]},
      "Legended",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"], 
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, GridBoxItemSize -> Automatic, 
        BaselinePosition -> {1, 1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{
  3.876470427444028*^9, {3.876473653537887*^9, 3.876473706583778*^9}, {
   3.876473803499905*^9, 3.876473837769437*^9}, 3.8764739140457897`*^9, 
   3.87647395148722*^9, {3.876474094310343*^9, 3.876474106986875*^9}, {
   3.876474482796496*^9, 3.876474488159783*^9}, 3.876476605339703*^9, 
   3.876479726745276*^9, 3.8764896958693733`*^9, 3.8764899558313227`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"25e7e6ec-4bef-424a-8b1a-dcd53174a048"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Proof that the most optimal ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "81acba12-474c-4b6d-b339-6d4e8c327a28"],
 " is 2.5"
}], "Subsection",
 CellChangeTimes->{{3.876470361413377*^9, 3.8764703792160797`*^9}, {
  3.87647046952039*^9, 3.876470482412838*^9}, {3.8764745166522427`*^9, 
  3.876474518473477*^9}},ExpressionUUID->"4e41f074-62a6-451c-b55c-\
5c70c60037c1"],

Cell[TextData[{
 "My suggested value of ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "97dd142f-a811-4684-93a1-efb1bc8594e4"],
 " is 2.5 which gives the lowest possible absolute jerk, \
let\[CloseCurlyQuote]s see why."
}], "Text",
 CellChangeTimes->{{3.876470022662263*^9, 3.8764700374312067`*^9}, 
   3.8764701666105556`*^9, {3.8764703860618973`*^9, 3.876470402633843*^9}, {
   3.876474521106118*^9, 3.876474523199342*^9}, {3.876489965156178*^9, 
   3.876489969624362*^9}},ExpressionUUID->"8ec9f845-519b-48de-930b-\
246600aa4fff"],

Cell[TextData[{
 "Visualizing derivatives with different values of ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "d62c804b-49c2-4b72-808d-3d99773bcaf1"],
 ":"
}], "Text",
 CellChangeTimes->{{3.876490003337358*^9, 
  3.876490007893219*^9}},ExpressionUUID->"ff28ec6e-f6ca-49b9-aa88-\
838bf63c9dab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Show", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "@", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"f", "[", 
             RowBox[{"x", ",", "2.5"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "i"}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotLegends", "->", 
        RowBox[{"{", 
         RowBox[{
         "\"\<position f(t,2.5)\>\"", ",", "\"\<velocity f'(t,2.5)\>\"", ",", 
          "\"\<acceleration f''(t,2.5)\>\"", ",", 
          "\"\<jerk f'''(t,2.5)\>\""}], "}"}]}], ",", 
       RowBox[{"PlotRange", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "11"}], ",", "8"}], "}"}]}], ",", 
       RowBox[{"PlotLabel", "->", 
        RowBox[{"\"\<p = \>\"", "~~", 
         RowBox[{"ToString", "[", "param", "]"}]}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"Evaluate", "@", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"f", "[", 
             RowBox[{"x", ",", "param"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "i"}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotLegends", "->", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"StringJoin", "[", 
            RowBox[{"#", ",", 
             RowBox[{"\"\<(t,\>\"", "~~", 
              RowBox[{"ToString", "[", "param", "]"}], "~~", "\"\<)\>\""}]}], 
            "]"}], "&"}], "/@", 
          RowBox[{"{", 
           RowBox[{
           "\"\<position f\>\"", ",", "\"\<velocity f'\>\"", ",", 
            "\"\<acceleration f''\>\"", ",", "\"\<jerk f'''\>\""}], "}"}]}], 
         ")"}]}], ",", 
       RowBox[{"PlotRange", "->", "All"}], ",", 
       RowBox[{"PlotStyle", "->", "Dashed"}]}], "]"}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"param", ",", "2.00001", ",", "5", ",", "0.15"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.876488992797196*^9, 3.876488995668398*^9}},
 CellLabel->
  "In[744]:=",ExpressionUUID->"c8928a29-1ffb-4e96-9d3e-6d51c5d66c11"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`param$$ = 4.55001, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`param$$], 2.00001, 5, 0.15}}, Typeset`size$$ = {
    568., {117., 121.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`param$$ = 2.00001}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Plot[
         Evaluate[
          Table[
           D[
            $CellContext`f[$CellContext`x, 
             2.5], {$CellContext`x, $CellContext`i}], {$CellContext`i, 0, 
            3}]], {$CellContext`x, -1, 1}, 
         PlotLegends -> {
          "position f(t,2.5)", "velocity f'(t,2.5)", 
           "acceleration f''(t,2.5)", "jerk f'''(t,2.5)"}, 
         PlotRange -> {-11, 8}, PlotLabel -> StringExpression["p = ", 
           ToString[$CellContext`param$$]]], 
        Plot[
         Evaluate[
          Table[
           D[
            $CellContext`f[$CellContext`x, $CellContext`param$$], \
{$CellContext`x, $CellContext`i}], {$CellContext`i, 0, 
            3}]], {$CellContext`x, -1, 1}, PlotLegends -> 
         Map[# <> StringExpression["(t,", 
             ToString[$CellContext`param$$], ")"]& , {
           "position f", "velocity f'", "acceleration f''", "jerk f'''"}], 
         PlotRange -> All, PlotStyle -> Dashed]], 
      "Specifications" :> {{$CellContext`param$$, 2.00001, 5, 0.15, 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{612., {153., 159.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.876489233329372*^9},
 CellLabel->
  "Out[744]=",ExpressionUUID->"54d040e5-582a-4a26-aa3c-78b364eb15d3"]
}, Open  ]],

Cell[TextData[{
 "Calculating largest jerks for different values of the parameter ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "21f9e563-6bb6-428d-9f05-10778fae2e98"],
 ":"
}], "Text",
 CellChangeTimes->{{3.876470216632102*^9, 3.876470244818653*^9}, {
  3.876474536505361*^9, 
  3.876474541444812*^9}},ExpressionUUID->"c012cff1-b07f-4b8a-918b-\
4c64aedc57cb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"jerkValues", "[", "param_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", "param"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "3"}], "}"}]}], "]"}], ",", 
      RowBox[{"x", "->", "0"}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Maximize", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"f", "[", 
            RowBox[{"x", ",", "param"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "3"}], "}"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"-", "1"}], "<=", "x", "<=", "1"}]}], "}"}], ",", "x"}], 
      "]"}], "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.8764683019121323`*^9, 3.876468323289171*^9}, {
  3.876468385593081*^9, 3.876468388990053*^9}, {3.876488875849101*^9, 
  3.87648888887252*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"58f7b35e-975c-46c0-b733-48c9a7f43c8a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "@", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"x", ",", "param"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "i"}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"{", 
       RowBox[{
       "\"\<f\>\"", ",", "\"\<f'\>\"", ",", "\"\<f''\>\"", ",", 
        "\"\<f'''\>\""}], "}"}]}], ",", 
     RowBox[{"PlotRange", "->", "All"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Epilog", "->", 
      RowBox[{"{", 
       RowBox[{"Dashed", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"InfiniteLine", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "#"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "&"}], "/@", 
         RowBox[{"jerkValues", "[", "param", "]"}]}]}], "}"}]}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"param", ",", "3.1"}], "}"}], ",", "2.001", ",", "5"}], "}"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.876468404672085*^9, 3.8764685949960957`*^9}, {
  3.876490028612372*^9, 3.8764900426306887`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"096f0eeb-a5dd-4b87-91e5-0dd9986f2f21"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`param$$ = 3.1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`param$$], 3.1}, 2.001, 5}}, Typeset`size$$ = {
    413., {112., 116.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`param$$ = 3.1}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        Evaluate[
         Table[
          D[
           $CellContext`f[$CellContext`x, $CellContext`param$$], \
{$CellContext`x, $CellContext`i}], {$CellContext`i, 0, 
           3}]], {$CellContext`x, -1, 1}, 
        PlotLegends -> {"f", "f'", "f''", "f'''"}, PlotRange -> All, 
        Epilog -> {Dashed, 
          Map[InfiniteLine[{-1, #}, {1, 0}]& , 
           $CellContext`jerkValues[$CellContext`param$$]]}], 
      "Specifications" :> {{{$CellContext`param$$, 3.1}, 2.001, 5}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{457., {157., 162.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8764892439505672`*^9, {3.876490024541485*^9, 3.876490042965116*^9}},
 CellLabel->"Out[13]=",ExpressionUUID->"cdee37af-8698-4968-84b3-ad2c80f7e68e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"paramData", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", 
       RowBox[{"jerkValues", "[", "p", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"p", ",", "2.001", ",", "3", ",", "0.01"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.876468749666728*^9, 3.876468750369357*^9}, {
  3.8764691738198566`*^9, 3.8764691852906523`*^9}, {3.876469268107617*^9, 
  3.876469268847322*^9}},
 CellLabel->
  "In[372]:=",ExpressionUUID->"e5c4aab0-55b6-41a9-a1f8-afa7a8123059"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"Transpose", "[", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Outer", "[", 
          RowBox[{"List", ",", 
           RowBox[{"{", "#1", "}"}], ",", "#2"}], "]"}], 
         "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "&"}], "@@@",
        "paramData"}], ")"}], "]"}], "]"}], ",", 
   RowBox[{"PlotLegends", "->", 
    RowBox[{"{", 
     RowBox[{
     "\"\<|max negative jerk| (at x=0)\>\"", ",", 
      "\"\<max positive jerk\>\""}], "}"}]}], ",", 
   RowBox[{"Epilog", "->", 
    RowBox[{"{", 
     RowBox[{"Dashed", ",", 
      RowBox[{"InfiniteLine", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2.5", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "->", 
    RowBox[{"{", 
     RowBox[{"\"\<p\>\"", ",", "\"\<max jerk\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.876468699731121*^9, 3.876468729280511*^9}, 
   3.876468761578179*^9, {3.876469138623946*^9, 3.876469155867292*^9}, {
   3.8764691928417263`*^9, 3.876469249634572*^9}, {3.876469285924971*^9, 
   3.876469306048986*^9}, {3.876488754436145*^9, 3.87648877516394*^9}},
 CellLabel->
  "In[738]:=",ExpressionUUID->"19bf13c1-0018-475e-978f-fd5058895951"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[
          NCache[
           Rational[1, 72], 0.013888888888888888`]], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwt0X1MVXUYB/DzfgTp3nNfz71uJpaXFHLkFEbE5ItiBlu5BUONiSIobxaJ
mm8o6w9CklRMLSGXYEBqIjXUKb7cxF1QCARKQbuUgcqYgAIqhEhwev44++3s
u+f3PL/nM311+odrOIZhEse/iTMg7kKEF8eg9PbYnVmSDuM/fjlWBkuzD6Zn
BuugxX4Mtj6aOW/kYx0ykvN7MkMZnJ3l0bzlmA451raG51EMnLmOi2/d1qHw
mndFRjID9u6jB88m61GhFTBo3+3Oqw/TQ4vzGWRGH73UtkmPieqOEgZbHg81
cif0GL98fCQGv0nLv/D/W4+JadoaGNzIeXn6qqcCrV0Hg94lJzu3OxRo8XMG
b75sXr4QCkK1B7Goq/aeZI9VEN1RMj4SC19XZNeLTQq08QNY+AjGgd59CnZo
BSw6zw7uS/1JgRbHsWhv+jlt1KWgVHsQiz1nwurs/yjQ1pHDYkakOyh8VEHj
xPiFLArmP1nL2AzQ2lWwEC/aXquea8DQRHxtvJ/z6l51iQHaettYlO/P69ua
aoC2jh4WHkkHgruzDfjfg0NgFJeaXGRApFbAoTxo0ubBiwby4HD91L2P9rQa
yIOD78MWXeCggTw4dDieVKQoRvLg4OG1uL7cz0geHMJ++bw2a7GRPDhsbu8K
cScYyYPDOn/93cgsI3lweN3i0l8rNJIHh6ZzMX1154zkwaE3beOt+BYjeXCo
Me3aJjw2kgePyzfi7QFeJvLgEdubpwy8YSIPHr/GD2XPDzeRB48TXy7a/M0q
E3nwOJp4/PjOHSby4KHEFFSuP2wiDx6uorDB/jMm8uCxKs5nlGsxkQeP1vjb
h6b2mciDx5E/Ui+852UmDx5vn/3g4NhMM3nwsMg1OWGLzOQhoPp0ruPgajN5
CNBP62/YkGUmDwHOQt39PwvN5CGgoPWya9l5M3kI0NkSPFbeMuM7beEClj5L
2pAxYCYPAf7rmLH9ioU8BCT0ri11zraQh4DnK9wJI5EW8hDwzlOJv5JkIQ8B
XRE+nt9mW8hDQPuUoofDxRbyEBD0u3Gs44qFPERsnP9qYafbQh4iuq+sCen6
10IeIr7akpw8pFrJQ0TmoePzvAOt5CGi2DU1tzHKSh4iri9ortq93koeIuYW
x9RE77WSh4iRoLBS31NW8hCR7ukf9UqdlTxElFVV177ospKHiMZ33+/OklXy
EOH0zR9iHSp5SEjunPOjulAlDwkbYyMmB8er5CEho1FNv7dTJQ8JIcP9t344
opKHhBnTvQN6qlTykPBX3/CcBXdU8pBQvWFF7bEhlTwkPHDPHjCoNvKQ4Pgs
+lRegI08JCTudT4xRdvIQ8KF7UlVZRk28pDwtOBqSlO+jTwkdNcvuzF42kYe
Mj5NPSmWN9jIQ0aX/8Oy0R4bech41BRet8jLTh4ygsqdReV+dvKQEXqzo/Jw
pJ08ZNz8flu6lGInDxnFJyL6Duyyk4eMkMpOr5IyO3nIiJt2aW6gy04eMtZ8
4l8Vd99OHjK8t63c9bUwhTxktMScT1s1Ywr+A7mZmf8=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[
          NCache[
           Rational[1, 72], 0.013888888888888888`]], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJw10X1MVWUcB/Dzds+RCRL1nHN5EVInyxdWSJFlI76SsC6BCQgIQ0xAJRTy
jWgKJGTgdQhekzm7mApeIZfKJaT5mihZYICCbLxkSLw4MnyrKcMmwel5/jh7
dvbd7/n9nt9nZtInkWsEjuNSJr7J0z/xnMlR4DBl8dcdbzV7YuJnfqHGYXx+
d8yZo9Ohx/M5OEYXDY+2emBzqmUkO5BDz6yBqHxvDxRqXS1Pozi4+cUlxu93
h7VhRvXmVA6JKQ+8rao7qvUCDm/Ozro9y+YGPbZw0O42nV8AN0xW99s4HCzw
VdoHXDFx+cRIHCL5jjSLxRWT03S1cHj1VNKFsGBX6O36OZR2/lQwY9wIPX7K
4U91qCHqkhGB+oN4eO+qex6eb8TyftvESDzsCUvOlYQaoY/vz4O/WvfiSc2I
HL2Ah8Uv6EfTkAY9TuRRf77HqJ3VcFx/EI/3U/Kafy3WoK+jkMdXj7fNXrBO
Q+vk+FYe5mmFxU5BGvR21Twq33be4/eyhtHJuGGi/x8hTZnPVejr7eKxzPFS
gr1Xhb6OER5hNT4+V6+o+N9DgOPWXRuLKlWE6gUCppi9Qh7tUamHgN2N5ZGd
mSr1EBA9e+pn81ap1EPAVvHCvjaTSj0EZJU7Lb7or1IPAV8GHajpnKVSDwHl
sc9yiItKPQSUDfpkr+ZU6iFgQ3pMlf0hoR4C6qbaxdE+Qj0E/CWczZ5zi1AP
Ae/tDe5a+DOhHiLMA54VHucJ9RDRm3RGazpNqIeIGeXXXlpkI9RDRM3pEudk
K6EeIrIWbJ8SsI9QDxG7rQ7bL5sJ9RBxWLkVO5RHqIeIkb2FY5XbCPUQkVt6
Yeb4FkI9RHzvaLk7mE6oh4gDKx+ei0kl1EPE3L7MuLBkQj0ktB/saqxPJNRD
gulkZ0xNPKEeEgpHina7xRLqIeG7d+fM+zuKUA8Jcf84+L0TQVCmL1xCQbJ3
28hSQj0kZPbZ05RwQj0kHFriad75AaEeElwvLhpcHUqoh4SK/KrEMhPzkKCt
Xzfma2IeEiKfH74z3cQ8JIgulviVJuZhwMfLj914YGIeBgwds/1yM5R5GNDl
6z7AhTEPA9I6a3/fFs48DKhcN1gU8CHzMGDwix3dIRHMw4CbK3Ib90cxDwPM
gS0bvWOYhwGb6gOePVnBPAxw+HzTcSWBeRiQUX6/PnoV8zCgrOL1U71JzEOG
LbC3p2It85Cx3DrQdCSNecjYeeS6Q0cG85DhdfbfNwK3MA8Z06Ybn9zOYh4y
zI+WidXZzEPGWPkdr9o85iEj+YcMbbiAechIPVFyJbyIecjYtDBY7rMwDxmv
WAtajh5gHjIWxrW6lBxiHjLs7rWtlRXMQ0F6UM4L975lHgrw27WB2GrmocDJ
4r1mpI55KPgo4ob9xEXmoeC19KWPixuYh4J77XOjD15nHgqGA2zOjW3MQ0GL
+OlKz27moaB4Q96O0j7moUAMPHTZd5h5KPhmbdT6+w+Zh4KG3Kr25lGC/wCg
748s
         "]]}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox[
        TagBox["\"p\"", HoldForm], TraditionalForm], 
       FormBox[
        TagBox["\"max jerk\"", HoldForm], TraditionalForm]}, 
     AxesOrigin -> {1.9803750000000047`, 3.5475982650217137`}, 
     DisplayFunction :> Identity, Epilog -> {
       Dashing[{Small, Small}], 
       TagBox[
        ConicHullRegionBox[{2.5, 0}, {{0, 1}}], "InfiniteLine"]}, 
     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]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{1.9803750000000047`, 2.9909999999999997`}, {
      3.5475982650217137`, 7.4504121184729755`}}, PlotRangeClipping -> True, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"|max negative jerk| (at x=0)\"", "\"max positive jerk\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", 
                    FractionBox["1", "72"], "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", 
                    FractionBox["1", "72"], "]"}], ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.876468739885559*^9, {3.8764691388528843`*^9, 3.876469156253634*^9}, {
   3.87646918871625*^9, 3.876469193175337*^9}, {3.876469235881151*^9, 
   3.8764693065441113`*^9}, 3.8764887759718227`*^9},
 CellLabel->
  "Out[738]=",ExpressionUUID->"f8283844-2849-49c3-8ba3-5fceee5b029c"]
}, Open  ]],

Cell[TextData[{
 "The best value of the parameter ",
 Cell[BoxData[
  FormBox["p", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "ead28f16-af23-48fa-bfc4-2e7c329922ed"],
 " happens to be 2.5, where the max absolute jerk is the smallest."
}], "Text",
 CellChangeTimes->{{3.8764702515746727`*^9, 3.87647027581476*^9}, {
   3.8764745498356028`*^9, 3.87647455687757*^9}, 
   3.876489318583935*^9},ExpressionUUID->"c65cf38a-d65d-4faf-92f4-\
9163b303ffeb"],

Cell[CellGroupData[{

Cell[TextData[{
 "Discussion on ",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", "<=", "p", "<=", "2.5"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "f2efd9d5-b1ed-4d14-9851-960db43a64b9"]
}], "Subsubsection",
 CellChangeTimes->{{3.876470361413377*^9, 3.8764703792160797`*^9}, {
  3.87647046952039*^9, 3.876470482412838*^9}, {3.8764745166522427`*^9, 
  3.876474518473477*^9}, {3.876474841265606*^9, 
  3.876474860479308*^9}},ExpressionUUID->"3048ac33-bdbd-4f21-adfa-\
d3494121c2ed"],

Cell[TextData[{
 "It\[CloseCurlyQuote]s possible to achieve ",
 StyleBox["slightly lower maximum robot accelerations",
  FontWeight->"Bold"],
 " at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", "<=", "p", "<=", "2.5"}], TraditionalForm]],ExpressionUUID->
  "8b36c72c-ec1d-4d14-9bf2-fac01769ce6a"],
 ":"
}], "Text",
 CellChangeTimes->{{3.8764748655451813`*^9, 3.8764749202042017`*^9}, {
  3.876474996263596*^9, 
  3.8764749968120127`*^9}},ExpressionUUID->"4e914716-ae77-4a03-9f05-\
3b9370aa20fb"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"param", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "@", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"x", ",", "2.5"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "i"}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"{", 
       RowBox[{
       "\"\<position f(t,2.5)\>\"", ",", "\"\<velocity f'(t,2.5)\>\"", ",", 
        "\"\<acceleration f''(t,2.5)\>\"", ",", "\"\<jerk f'''(t,2.5)\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotRange", "->", "All"}]}], "]"}], ",", "\[IndentingNewLine]", 
   
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "@", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"f", "[", 
           RowBox[{"x", ",", "param"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"x", ",", "i"}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "0", ",", "3"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"PlotLegends", "->", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"StringJoin", "[", 
          RowBox[{"#", ",", 
           RowBox[{"\"\<(t,\>\"", "~~", 
            RowBox[{"ToString", "[", "param", "]"}], "~~", "\"\<)\>\""}]}], 
          "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{
         "\"\<position f\>\"", ",", "\"\<velocity f'\>\"", ",", 
          "\"\<acceleration f''\>\"", ",", "\"\<jerk f'''\>\""}], "}"}]}], 
       ")"}]}], ",", 
     RowBox[{"PlotRange", "->", "All"}], ",", 
     RowBox[{"PlotStyle", "->", "Dashed"}]}], "]"}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.876474926307119*^9, 3.8764749287202253`*^9}, 
   3.8764777605394897`*^9},
 CellLabel->
  "In[580]:=",ExpressionUUID->"2a0d491f-adea-40fa-836f-ae944ca5501b"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwt0gk4VPsbB/BRmUhKKCmVNLrItWaJnHfCVdYrpFAZoqjsJVEZKk1lmQoX
udllKzJjyS2HKJItuWrKboyhXG7WqPx/Z+7/PM95zvN53vf9/pbnbHf3s/Nc
RiKROtFLfNVgw9jS0gRO+v/j920H49vCf6YXZxuVsDR3Ts3850eGPUb/+kD9
l0mBqXEaP420lKzdeZ8FntyRI40FDTqT+nn/eTZqJ8ZO9XrAGRDYY9xGB5t1
DN77rltgrq2JMaa37trH5vcCN5vKW2Mhb+6EvOoQuLNr4RBWdT1tQ02LwFo6
da7YIjxiP20UeKuo0kls70KVHauOMP1JEdkXu8xunCyqFtT3fv0YhFX7dsXm
PhU479fKi9iSElc1nS0w7a+jdIw69G9TcjHhdEtK+DUs4s8lr3sFhOUPMO1v
Yi8Oi6+MyRH4WNVYLLZccnNOVDrh/uqxgruYabOSCf0+4UkjU/tE7HqU7sDF
REE+5fyFFOwV1TQ86A5hpiEun4aJLB7c4hNN+EiElWomZl7m+tfJG4QrpRyl
c7Bbfj5OtEjCH8RPW+dhzcphc06XCTNcY7sLMXEuI8E+RLCf2P5XxZjNg0Rt
6yDC3JgmkVIs7kj2WzNfQX7YIo2NtUuW+lG9CfMvsP4px+xutBRquxI+F1Bc
9gy7t++T+a/Ogv5KxjSOdS7yR3YeItyZKFpVi60vn70ub0vYSyX5fh3m6L+C
ssmScGmGd/pL7A8VyRdSZoTd9WZfN2AfuNto4vsE+39eLduEuTgZppL0BHU7
Wa02LFXK3GBBk7DaH/0/27HeFscPU6qElXX5oR0YzThQekSBsOEtvPJvLON7
eGn/FsJ9nSqX3mOD5TG2HzcSnuOTnDiYx6786JY1hNVVDNx7sJzhcpUGUUG+
/wFmH8ZLq2+sWUHYo/32eD/mLd2/gr3wD06isxiankNYQet45qMZZNKyQKtK
LvaFsUh9OEm4wSViMw/z/bHhcgqP6G/b9V1qFCuuoGyOHyD8S4ZiwRg2GaD1
NKabsIeaht0XLJBnPUPvINxDr+RMYBfarvmcqibyFh0rR6ew6M/B76crifo9
g+5NM1jmSu99kSxk6uxj9pFZrBms1/+ZR/iHUtXiPDboAuEqWUT/QvNVtwVs
7oLmaMWfyDXxBoZ/L2IKJeufd9wl8uuqnoz8xPSbV/5Ci0FOr4limJDAmv+N
OX6DmLe1b9skBCHyvR4ilwnLT9f3L4NWZu5q7BQxv12vtZUM3KKk4DduxHya
E6tvJXxrvNV/5CjhmO2h30SAIuTHDjqILK+acOiAGIQG6B3NNyTq4udnd0kA
M0b5la4usgaDZvJRAnLyN2vUaxDrMU8WxayD9oGl5X2KyBIBIiorpGCnXWOh
tAQxf1bSUGsD7PWtWp+5CrmEWtAmJgMHbxWFqwsT5z0wr/FZBi69YNpbLIyj
vDvBrL9koUPLaTGcizw5oquRuwX4Npae4n3IEkU6mSVb4cdpo7YUDjK1yzCx
dhsoZW3PKmtFZr7YWbIoD5elxiw+VyJ71TdFOO+Au+rd7BAWsq3HbvLiDsiz
bN1Kfozsb3VcKY0CHVdLv8pnIZesHTj3VRGUpkNTHGOQGcpPQl4pQWen2Fit
G3LS/dk7auoQ4VFWXXgUufKj6I0ldVCbPn4v4TAyN9qbcloDGFKle72tkfV5
Qo9MNcHI7kicxB7k+VBpj3XaMDYg5LGgjRwduTr1pjYkBRTqc9WQ5ZbWDi7f
DV+ZPwcqKMjZZN2in7shty17t6sEcb5hi5fiemDvaiNqLoasQe79lqgHpIm5
Hi0ysb5zloeCPjivsbxB/v4FJ3XHzE3CHlhr/S/n0QgyPYgemGgIIU1G4d+r
kUX62l46U0HRecSe9xR5+oiKcSkVOkaZSu1sZK29jsvE9oGqKPdtVgGySvTJ
IzX7YGD/LYplIvJko2eWgQlYvOx6neyDLP365KyfGcw50B9c9UJ2CBvhdptB
Nlc5yOcEsuPcVarlflhafllunxNyY0uAueoBYBvv8OObIpOf9Y4tmcOWGj9p
PTnk7yXjpRPW0Cypc85ABllOOFUs0AZCPRfeGUkix8rqfJ6xga5V1++ZiiB/
GQ6nCNkC81CKpN30Z5y0WmhmYMNBWP65XsKnGXnvHsaElz2UGt3y929A9mpa
MVJuDzTm7+1BL5DfUx+XCTvAM52PcaGVyC+XgntyHCCYPrGGkY0sL3b64uQh
GF2/STzrEvInA4W54iOQ5NV3NvcCsuKI/4yYE5j9ld2cH4icyXnY6+UEmTT1
6BIv5HGrZ8GKznC00FSs2gGZZvq9L98F2qh+ohxV5JwHVwv6j0PZmXrhtT1j
OD05e83RlSdAX95XM/c9ckcQFm5xAqo6ZY4ZdSCXyL0xiT0BNUZn2GcakLFl
MmwZD2haK3mi8Qnyzyzd/Vqe0M9yrYmIQjbGZIajToG7l+iXjRHIbp6bwzpP
wbAcS6YkDLmhsKdawQvGrpP9ev2Rh5aK7Wq9YObwoy2GLsipU6tqyadh1feF
0Gl1Yn8qYh6ssxBTkp17W2UMJzlFDGqu9gEJT5sOBUVk2ezSp54+sL41Q/ng
JtRv8+m3hU2+IJ9+4MOjFchjNG+HWD/QMU3UOcUZxWsoHS9vWQUALVpzkhM5
iu6D07I88xyEsu9GtVwexamrRP+c6zoHCd1TcrUhozg9lPXabPV5aFItN8/z
RfNvuGfmL5wH7RaDrGBnNP/Md/sT+2AgrzF1lNJC3t3nWyUXAkVxjs+sBvg4
faDcXn8uDF5VVNhRu/k46XxQgLL+JRjo2ziq/Z6PUxsXIfziJdig8Wn95hZU
L+mVdP5xCcLbXf1GK1F9V0NEp+gVsFvnrRDF5OO0sz4fxTfTYf5uGAMHPp4e
Exc85RsJI3K1Y2YGaL1tsWUmyZHQlUu2bt3Nx2vOfbftrIsEVtWddT3KKN9M
2LpC9ir4Dj5MWZBC83E/dtxsvApDmp1FOvwRvObg4qFIrevQ2q76tpA5gqe/
NnSb1WfAM+dAbe3bIzj90r+lOWcYUMitSKi6jvotktgpDxjAmDd2fh06glO1
SGcdhW+CibzTEM8D+W3nDtmum1Dpd31m+54RvB/qdk1cuw1Za3plkwZ4OE3W
cNv0xji46wIr93Tz8H7/+tdx9nEQmZc+zelCNig+ERQbB+7GJ9o2N/Pwmpr4
0JvLmKAQzL+WVs7DbfX+qfoUyoTMnq8TubeRq8PPOAfegfSila/KdHjof2nP
3HP5HjC/ebEcNXg41Zjzm1LaPaCbNaXPqfBw5kk+2aj2HtD6o8P2yKN89XgK
RzgetklLaj5fxcPTwwoSepjx8CBMLrW+bxj317pBU3ycAKkWmoHvbg7jJdKM
C1vJSUARs2hqvzaMt187f8VOJQkK37grtIYP4xLz69zybZKgyiq+o/E86q9W
GsX/SAKOzZxWtdswbht14OCdXcmwwf75VN6eYVyDfreuzSkF4lzMz18Z5eJU
sWJFsbepEHnWLUTZnIvnlbU+OrshA3pjj6dWmXDx+a5foufUMsDgiUuNJcbF
JZxOhiXtz4CvM4dEfLW5eONul2y5ixngFm6RVLqFizPGv9Wr9WQA9a52peHX
IXQf+38Pz8+EnxXC89b3h3Dm7JWAebtsCFtecCFwfBD3Ctt6w3vsIfgmHyfT
+IM4s2jlSBo5D9zVpRKshwZx2meLlDGFPLBwuVSqxBnE/c1lRJ675MFGls14
bz2ql4kcdWzNA7b7lLtl6iCeJGlVdKwiH/6p3WtDsRzED/jpzbxLKgQ3ehul
K28A1+B82T+dXAwJz4eTUk/34xQFivmMNhuq+pRWFyn04qnh0y8Os57CDgmq
scODT7jV08PJhhE4lKowTg8OfcDltt2PlTGug76XT+R1dbvwzNy3DXWrG2BY
NUELL3+HP0isdAsaaIJ1V/J11YTe4l1C51pWH2oDVd0J1ZypZnyn37HqqN63
cNV0vP1pSAMuNDuvb0TrhPUOj5lOMi/weDlSqfpkF5TOvlzbSKnCb/Gq0/xP
ciDn03DM6LXHeJ1r8sVd8t1w7KAc+9OJePzviJ9ZLaxeMBRWf9g/bIpv3JXr
4DLTB/8D6N+d8A==
           "]], 
          LineBox[CompressedData["
1:eJwd1gk0VVsYB3AZShISioqI1OOhumb5FEUZiocMIYqX9LyS1+BFZAhlFiJR
lEIiMoXMIZJISOY7uMPZ5inD2/fdtc6667fOWvt8+9vrO+cv7fK3hSsnBwfH
EL7Y/+o8yllDZAPwpudaWfAMgerIOskAmzfQR3Y01l8Zhj0T7xe1assg0ozv
dITeKJzI6G0zs6mF4sb08LTEMThmKsw1++4jtLz494XSABminL77q5S0gl0v
X7oGFxU+mu3afFq4A6q2jvivHaABS1rU72tyJ/T78LiE6YzDP94KzlFi3fBt
+9Yz2w7Q4Xu/kIVbUw+gQmVLhb0MOHdLh7rB5AeoD5CGMuYYUKegHl7HMwB1
fA9iCmqYsHdjBS3TaAgmDmWS9d1ZsKvC4xhP6DBMjWUzmxdYICK+tOQZMQyl
xYP3Nv1iAf/10Pye2GFYuG2SabzCgmXl5ztyU4dBodLG+eM6AvoyBiYtCofh
iaXMRC4fAQn3zZ+kDwxDfpJGgMpOAgTs1ee1VUdAU/pAtIQuARxLnK+8Rkbg
2/vF0SBfAs6N9k7foY6AYVT7kuEdAqpb83UjmCNg0br4eWMAAf5pjl1ZcyOQ
7yKZHxZEwJpB+Vo/3yhoifjb+9wnYDXqqrXhoVE4cDkmROoRActyQ1w7g0bh
5LX5Dz6FBMybVzo2yI2Bd3DjrbtjBNztffNTV2EMLGftvolScH3Oz86WqoxB
sX1DUxaVgL1X7tnlaI+BypOUmx/pBFhGmlvHmI9B0mfy+rkJAvJbyKYOvmPQ
JH+EJLRCgLu+wOHZrjFo+Sc+VVsEwUwLR4Vn3xic8ntX/EwUgb/FtBZtEK9/
PsabdxuCJOcejR90vB6P2lC7OILGO89INRxkePvQK9BMCoFMhZpihCIZygfB
YdNvCH6QnHbIBZFhxbYoNkQXgduiqmBwGBn0E8SdKwHBRCU/FzmSDE0iq8SU
HgJuw3J65iMyNC7uNrbTR6BkK1ou+4YMXa30LRJGuB7fTzayfWTg5u3QdzRH
sLdRPWGPCgWSKNXpyy4I8sMFwgNVKWAUf9+U/wICrVNk31EtClTN+DdLuCI4
1RPrmnGMAjOpyyqkPxHcpLNIe+wpMFRe12rjgeCTQGanTAgFrjcfee1+DcGV
M0JbZPopkHBWr+v1XQQuL5WT5YYpkDqs9i40EIHVotme/RQKPIhlpLgE4eel
RKiqTFCgQ9P19tYQBDyDfHa63FSwWAhIcA9DkOzGk2GnSAUP+7hEahSC+n+W
SHG3qQBPPXYpPUZ4zsSrEgKoICnCl0bHfrVN0zA5hAobtzxRfZGKILLshu3T
aCqMrKVlSKQhsF2Z8X2TSQW3DczohacIiCDU+KmVCo/XgneHZSEQjx+z4d5F
g521PukcbxFoBEqJecvgufy3QDkP29rLrnNUngbChxsq7QoRxJ7+Ylp3kAay
Ugd784sQ8G+uOHrXiAZ2RxakzEsQrAbHKXJ400DsNnewSwWCsRtHOZZbaMC/
++nttgYEnH/6Vnp8oYHMBgmts40IdluX+vz4RoPMOX9+OrYDSWm2fIgGXnQ0
xdmEoHtCnH5rjgZFwfp9+1sQNLtPds5Lj4OBrF6hyWcEefbpWdM3x0Fxh95T
xjcEpO97ltb7jUN5XnezdTeC9xZZJhKB4zCYUqdZg910Im9SL2Iciv7gn4r7
jmBUvUI78uk4zFlZf1PpRbBdpKd9X8s4ROiaIaN+BE+i7GV02sehtMK0+yW2
3KZB71Nd46DT/acA708EBzkp4tcHxqGY+7x3PbbpxPT5uqlxsCys3qc6iOBu
q+CCww46vC3+VTk3jIDXKO7k1d10uPR8ksNkBEFUnVhqkBwdDC5OPknHfly+
62iOMh1kYqIIw1EEJS8VHizo0+F2QDcrcgwBM8hwd9xlOqymBy6uUhCcOXzH
qKmSDmr0hkIPBoL+WYpgbS0dGupnj+diu+SZfX//kQ4z98ROMbEvS0m6vemg
Q7D9w+pLTFzfusrABDIdwrluaDqzcD8blqoubGYA50IgnyrC/fRzCXEUZkDV
20uqf2GXqbWY2mxjQFnb7EAmdn3Wo35jaQYM3biYLzyBoDdMY+mgKgMeK392
oGFzm11XXefAAKHLOh63pxCErx9YXnJmQEpXTHMutuCHY/UzbgzgmzHL78eW
UBH9g3aFASavvMS1pxEoCxddaQ9iQEhXgMcUtl33ZE5qLgP2HRlJNJ5FMBRp
ey2xgAGHFuQavbFdDWu0YooZoHEsNSQV+0ppdHNQNQNiOZOrWdghycpUjy4G
5D2c3h82h6DA8S8ZrWUGZM7Y2+fO4369m9iVvo4JE8hwpANbhN9bfP0GJhT+
EzE9h329zEfo6xZ8f9agFBbwPIuErrrLMyE6+8jQJ+za5md9jyyYoCS4w7Z9
EcG13Xu7184wYUxaa5SFLXvjVYerAxOeOvzGzb+E65HNbzpwkQkvDj3abIht
fKeyuNmXCZlGbpal2F2kntjFl0yo9+Z2Cv2FIPi+faRTHhMU+HcWpmOrjQyE
NRQywfGec3YpdlIU2T+migk620KDqdgO9CnP/V1MyBYs4TqyjEDgyPVLUb1M
GHF+G2KNXZ246Do7wISTz5feemDLHONwqBlnQmOjL99DbEraZmPbNSZo18S3
jGInzkUf/8DNAg1LeD2HbWQqclSOjwX5qUawcQVB9pKE5qQIC5jv//X+Hftv
q33yYb+xQCDFW8MLe4FPn6vMigXbM8w+s7CFCYH4WjsWKFlMC/7CVujok211
YoHJ6SpR3lUEjolexwfxd7w4V+GKNHbdnmdhPH4s6LkgctUcu3+9p4RgIAv+
akodO4s9N66Zsz2UBY5egtIXsffld7QqxLIg7uSGeV/sSJ11QhYvWPAVyuWz
sF9KtaXb57DAkmdxKh+7hvPRAdd8Fug8bL9fjj3TpPLHzXIW9H9/uK8N287q
XMKTzyyQuJYvOYHtraEo/7IT79ey120BO2LHQklBDwsKnpMCONZwf4ejeutH
WCAp26wkhC3n+WEnY44FWbZHfX/H1jW//3oG55D4tV43ErYN6YzuKgcBl1Tl
5bWxw5cIpy2bCHhmtFPJCHsiRDJDXYqAeCF04Rw23yX6oSOyBFwVKtrqhr3H
tLj+5H4CRs4kpnpgW281ozgcIuBg/JjBdeyKNN/9QYYEdK4WTIRhd989UR5h
QoBwVtC9SGzkKmqcaE5AdEH1Siy2jOLry9n2BMQS0eEp2NqCt1YKz+Ec1H7g
WRq25ZRBZKUrAVMeVikZ2PdK+998+ZuARE0NUg52espLvT5vAoyL17rysMv9
vDtGbxEgGGBn+xabacA/PRdIgJN+l0AZtkWHttquJAJI31a1Gtj7095UU5FK
wBingk0Tdk1mn/HZDJyjctasP2Gr3LzlnJJHQN3Ns8tfsGnDRkytIgI8N0Jm
J3aa8fYbfWUEnCf7qXRjC0iVPBBvIKD0/oeFPuzG0JBtZS0E7BATVvuJ7Ttl
9czmCwHbXVztBtn1NcyUJP4gIErqud0odoZy/VH1YQKovH3qZGy7R3Ft3Thn
kZPSVynYzZcPjopOERAq6mZMx/bvXuf5bp6A3JCMrwxsDb2OBUucqxJS0DEW
9outVwTieXGfD8pMI2xHX3h0SADPSYiO0iS2KFVAtnMrgqrtbWemsIPKX2sK
4xwlNv3y5gy2jqxvfYEsgqnQnVdnsacjTE6Z41xlSrW2m8POnt/RN6GMoMeJ
RprHdnFmXIhWReDz2mndArbEp3KkrI3gK+NENdsdpHCfdpyzfCIPei1i6/Hu
jxYwQdB3SrZgCXvh6oJEHs5VlWXa8Av7zY+Pz03P4Pr5PGvZdjuWqMI6i8+l
/7D2MrbkG7f3D3DuOkdRyGa7e7vaccWLCNqIYsEV7Ii7PB2f/sLvmSr7y2wb
MLvsPXCuChV7WM32slUmhe8WggtPfvCvYhd9uHY12w/nuN7n5mx77NdfPoFz
Fce2i1Fsy8QJ3xvHOUr3XHwj233Lw1vCcI5Kck+eZzvGreDxvof43O5QZdaw
jb74yzclI/DzohixzaF1+u2f6QgGA9fc2S7JkDq84QWeG9OkELY9N6OPL3IQ
3M7Zmsb23htVFscLcJ/SOgrZ/jkU8ZNcjM9NVbmB7fiTDheDcQ5SOh/SybZJ
keK0bC0+T8rvg2xzSS771n/E36Gdt2hsl9/7xHuhDc/VtxLEttdkchxXJ36P
SKvNsv2b/SXJjB68jrjOItvD9Zqvjg4giI7fvMx2ktJG0gjODe594ytsn07q
qQoYx33R3LTG9gePG13VMwgyrej/WwnE6P/v+//fBPwHBUeynQ==
           "]]}, Annotation[#, "Charting`Private`Tag$517338#1"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwV0Wk4lA0XwHEKFUKk/QkRkuyRxGESZYtU1iL1ZA0RiVBSZAvZKkm2Z0QS
g0blSJQyU1kiSdljzNz3FC1I3nk/nOtcv0/nf11HziPgwL+L+Pj4hnnz/60G
q1gLCySurt8ioj1ssitgRj5+ZpZEqLOm6L31M6qs1lSc+kHiuXwbvgLnDKNv
p6CZzSVRkrPoUbVguZGWsrXH2CSJR64G/jz89IlR8JAz38AYib2EQpeH9Csj
Wq5XXu8giXZ1dfLPmzuNfh4O3dX5icSP2wuDTgn3G+mtiP3I6CFxneJvfRfK
iFFYW1rYiw4SU2//0/VKddKo/vKdVY1MEsN3lrz4p+yb0Rzcp9FbSTx42vri
fc+fRrtm6w9UPyeRtX5F+o/OOaNIWiu3vIHECr779vQ5Pmjw704poZO4u1/I
tshPABaUR1TzaSTmr/srp2i8FIyHv72+8YDEkLDEosvnROHi7QWv6/dIFPTw
bJpOloAmh+VLkotJ3K8zlLRNWgoWS64vvpJPokV+ofdIpzSYMpR3X7hF4k45
fZXYtjVw+Yru4LksEqmF7gp+8+vhhbFpdHAaiQ7i3xe4PjKwr8bt8ck4Et1/
e3vMRMlDQsApJ/cYEufNJN9Mp28GxpaIX06RJBKzNXL6L5XAJi9L2zqYxFvj
Fzon0lXhmmNRu5k/r69C903wVnV4J1kVYOxN4t9XJvImUxpwII5Zpu1GIiXs
1oTcsDZcN+nbt82ZRBfNz5fmQ7ZD19z4V8VDvP5evjyZ9XpwOFBAYZ0lifa6
ll6qt3dCtopkk5QZ75/Mq9Ep4bvgw4iM+3ITEm+vcJjf7GsELk4GuXx6JNaQ
ehm+u00gV2rfzllNEpNV711Td6LAZ+bhD1OqJKZIeqb9CdsN7pSglV83kVj+
/ZP7up49cGJraRJTjMQXhL2BsoQlFI/WqrxcRqJfmebCbJgVjN1pbm0UIHFp
9vuUXLY1eK8cEKDNEsjvpR9vH24L/vOrIm+OEWhmNk3KttjDgzqF9RmDBIbM
xAnNFR8E7mktevInAksoXe/Tkw5B0Jj1jwsdBG5tSMqU93WAs29jT3k2ELjF
U/rtB38XSJoM7Zl+ROBcOqx+n+kKBUu8TWKqCUyyMhCYfH4EGGAtfZtKoAjT
wL11nTtsqpR+2pFOoIvkdsPZOg/YwVii5J5M4B7T5JmzXsfBenwmlRNH4NcT
OTvvbzgBYbKfTyyNJLC3giV1IPVfeJNaImrkSWD2jQvHRYq9YKQ8J7TtGIHl
PbUrGcHeMNOaMODoSqC8sDDhbeYDCvwBtGA7At1ZH9JsfvlC+Gk911IDAu1S
Kfpa8QGgeKC1bKUEgeR1vYxvtGDY5V8vXSBMIMqNe2nsOgN2CeXR6oIEWhWz
FCNbzsD5plR7i1kO/nNwWMv8cwh0aDnNRY9wMIqfPtimHAaRUiyLyUcc9KWe
PfZjUySkq3+ihVVzsF32rnlHWyRQLd9sFKrg4JqTT+Leh0ZBx6Wq77KFHCwW
TPI42BkNytPhNw8nc/D7B9earfYXoatLhPXsGAeDkHa80TkWLp6oaShz5eA7
xfPvB+mxoDZ99HqmAwdZE0puc2svQ7xU1S5vaw4ung9wW9N/GQwPOF6T0Odg
bN6wrmBAHJS8LdJxk+DgpbQnbfPPEsDezWbZPhHefa2TaW80EoGP/NWvJcTB
Ho1049v5ieAsZhkn9IeND6PKsrdfSgJx62+997+y0Xdg7JzzwRQIe20Y/aeB
jZn0j8ecpNJgs/NX+zE6G/8snxNvOpAGHROpyu9obExZGtJdlp4GqstG2gvv
sXG8o2/D4pXpMGieoGCZxUbWNaXI5xuug0VL96sbp9hYXXnzY75ZJvzTGLBS
bwMba0eEZB3/3ACG5PYzO1ez8aCVaPt5i5sQ/u9sp6EkG9ubg7tkbtyEbuHL
102XsvGKA216QO8WpB66KXlgehJvOUwG2EbkwuLJZolTjEk8MmHhM7H2DkxI
r1teeH4S7ba4KQq7FECO1xe/krOTeK4k/5pgQgGYPS5ilAZN4rcEpoExvQAK
3NWTKr0mcdzxvV3wmkJwLTMVaTg4iTL6C+vf9RbCW+OAZb2qk7gyk++Zu1cx
1Pg2C4r3s7Di0agxnUaFHbL+miU9LIwJHdpmyKVCfdfqI4YdLKxKbqwVVi2F
RkNfmu9LFupvNQyMKSqF1+KSx1sfsjBOaz9lOOceDFS7NV68wsLToVyq27Vy
EP4zGz6tzsIXfMo7TztVgnuSJrc3ZgJbCiKMNMZpEE5Lv8KMnMDE3UKr7UVr
IPPT1IZnYRP4W2toQ4ZGDbxWrd1H9Z9ASsNCQuC5GtBm7iwMdZ5AyU95Y2mi
tSAkZnpYSmsCmVPL1/rvqIPya4efWA2OY26l4Yk9JXT4nR4RjzCOqRHtciIf
GqBQ7PPanMExjDzdqa/Y0gK5FppBnVdH0e9D00eVXgbE+B0L27JvBOOrdlGT
l3VAxOJ7Z4M4Q+g4/tu8Q68bjl14q9BNHcSfbhP5ayw/QubT0ZxcnwF0o9R9
33DsM9R/URYt3/QZDW2aFuZ9BkFewphyMK8Pu4ozmzrDhqFKJd5naPgDmkiK
nei8OwpfWh7K6up246dCY7n54q8wqpqphbWdSDEwPJDtOQErokp11fjb8a/V
qtAHCpOgqkuqFk8x8ItW3qd7mWw4qRYdTe9noM9P/sqoW2y4oyjewXzJwHdx
b5k2d9kguVr97M9bDNyTuH9ouJwNv375PzM3ZeDWHhpl8DkbmujEIVZGGz5m
wCWlb2xwNCSi1HVfY+CdbpuevRy4ZMp5Rw97ic5WamuC2Bxo2sver3P8JYrs
7ZHX/cYBPuvJNxXWLzE9u4Hy8wcHzh+aYBRueonUKocanwUOhJ4cbU1mvMBV
0a6WCpIEeMX3Nx6TfYG5BZFbe3UJsGIwK5e1NuMWD0qESSQBCe8Y6rFVzeh8
Jjvv8kUCWrvaKv7mNuMlqdoHLZcJ2NP/qnzqdDMeBlaWfgoBRkQLtX99M/7N
KnTm5hGgIdGQ/zDgORZT817kIAHSBytSnVY3ofLA/RHmPAFVion1exY3IbNv
JsCanwTbGc8RTfIZskSi7F8JkJCQJ7dD+OUzVPITl60VIeHveMaX+tBnKLGZ
Sj++loSxyAi1Dd2NuObEElMxHRL896flPN2C+Ea3IunWSRKo0xbsTH7ErNcV
ZUXeJAzdEDD2723Ao1bxIvf8SDg8cvbrxqsNuGAolVgaRAKcO6p7Yfwpejzr
Co2IIkGicGsX5b8n2Lh9u79PJglVP1vEWxXqcVPZ76DARhJS7hU0Gc3QUemX
TLTecxJ8j0aH1DDpqC9qLjrbQoLCix19BaF01JB6WHK6jYSszLKSyNZHmLx2
4aVKNwnhOmmG2n51WDTaLNvM4vWMn+KWGtehj0P9OIVDgnauRaGsdB1ujylX
fEqSwF4ssEysoRZdDbj8RdMkHO0M7RoXr0X6urUKBn9JoAS5+uZV0zBRld/M
fCkXNirqb5SOp+HZtxY6Hsu4MNcr3Z7oSsMesbIP4cJcoJm81T0nSMOjiQmU
YlEuKK6gLDroUI13PUfTP0twQbhS6cayuYcY8kRwYmgNF4r7RpMnYiuwqD+1
QEOJCx/Pr7pzW7sCpRP3L57mWWyjeaXd0H3MWudwtEaZC6Hu1A463Ee5wLRF
WipcMBv1WZ0wW4ZibXwLktu4ME6Q+SqBpegU8rQwWIsLG1Jlqz5vLEW6RWDm
Km0u2GraPU9nUjGEPRxVx/Oj4KrRWRUqLjyP2DGlw4Wrv8+otI2WoA1/IuWA
HhdUFs1W+7oUofuW7IwKAy4cLVRpkREuwg4B3e8au7iQburS3fmoEO11Yvc8
5Hn2ypPfBqsKMT+gnlFmyIU2kWhD0fa7eCMiwjkeuMB3/4FNY/RdPN8X5THL
s47NgNsZtbvYefyQm48xF3JTTWI+Jeajc/kqPVMTLnxQWZrilJyHfC7g+oXC
BeNT3pXPWLdxcG7bUpPdXKA+eN2xZe9tZDtqUvN5PqeTvHp2US5Gf5VpdjLl
wjojybs3w27gyWYn7+o9XIi5EPx8UXcOjgZRqwXMuDDZ1DXqo52DGbq+3+x5
fmKerWJAZCH9oqA5m+cjdhtofccz8GN3laPAXi6wp37ohzRfR124Obeb5/NZ
b1Fs83WcC/5cfJHn3L6YNpOxNKQPmUv84lk1ytWuzywNxS/Yv1Pbx4XHsro9
Z/5LxdjK+OwTPNPaOlr2t6fgLmsTg9c8d0lcaY9JT0aZlIrVszxPHdLvr7FP
wpMia+eULLigNXBnen33VbSVbeiO5Nlusz3f/ux4FPg7+qaY50AfIdEYxzg0
KhpltvH8YNpPfvxjLKamWw6ssOTCG31Z9fW5l9AivWBKk2ciqnOnzZEY7H5V
tdyW5+XNV8wubryIKdQQNT+eHSXPFHlhNC4WHT10hefs3I+P35hE4gzMXcrj
uVvRpFOnORyD/1Y9ovG88uF/rJtmYVgSsGS6lWd7A7FF/K9CUERlensfz+kt
Z9Z6WgajlVZI1CTP7/b3aTCZgWg7d4U5w/NG2qXUk/l+CCcV5YWsuHCr1Ra1
ij0xuMk2WoLnNf3/EH9LPTCBuXhoDc9bh9/rZx1xQadqQ0sZnhVFA7PVPO3w
1/L5enme9QXV/xsYNUWheW3qZp7/B+CGgOw=
           "]], 
          LineBox[CompressedData["
1:eJwV1nc0198fB3CpEJE0lZFRIhmRMvKsyN4VUmZGg5JKlJWRlT0yCpGKzLLX
p4yM6huJZCVKfHw+n/dHIaT83r8/7rnnce7r3Pu695x7X1fE4bKZEysLC8tn
sv2/V14t+2TkuybY/io83WnAxK0ErY6LinbQGvHSFyD9z887PVPWCbFVx0c3
kg64UODaLXUBH/Qq/LlIrzT/coh912Ww5WSLsZBu2hEe+oDXA/aq2//7qc9E
cLKo+4HoazBdEvUfI621ts6yi+sGQtTqlT6QZg88eeRiuDfGXtJnGki3/WZI
rmb3QWRdVXUe6Qi3ML7MYD987hQNiSf9eDrWV+B2ABy55S28Sbu4SDlX/AtE
mqPJuiOkdURvWAUdCkZYi9usCOndQ01GJj4hUBnQHmUhTTWzPkBdCEW9m3Fn
lR4THdz5eyoPhuN29t2uONLP2uaEg29EYOJP7udzpF3VYzmEZu+iWifuHy9p
w4XBJapCNLKdPLeP6jIhUyY5XekRA8VFa5SSnk/8Sts9HwuTVNv7uqSrOW/1
NF5PQJe8R4GDDhNZezd1F4smIuqsVpoQ6TsmxZ333ydC54iqUp82EyeSx954
Sibj6uh7L03STBGDRqmhFIxqNkut0GLik+Y4ZUtEKuYUqiPzjzHR4BJQv+pA
GirXuaebko4sLKsajk1Hnp9/a4omE7uUBYvjNTMgI91xgkuDibVnKgv8pzOg
on1ZJvsoE7/8TPNdMzLhW/CgUom03WijmZhPFjyPr/5seYTc3+7fhn97HiLt
pNTp22Ci/YWtZmn4I2zo4fU6q8qEWot0k8TII+TGhVr2qDBR0rtwJEMpF6p3
w6iapJMXEhA5lovYYw1igspMOKJNxenQEwSa7CVKlZhY7pCT55/Og21iCbeb
PBMeg3+LY7TzYfTHh79GjolxeocMW0Y+zLJcP68i/ZbXSfqX3jOU5rp7Jsgw
kWaeKvHuUQEyOnWlkvYwsX90hdBty2IQvmK5UjvJ/GsspuXyihGXXhdkL06e
R3xh88hCMSyMdjslizHB9bBgf5ZhCYZ/75VfFGFiycRycJlRgh6eNb/yhJgY
KimWpMg/h9PAHp38LUxkuts0H6osA+Uq+0NZDibun1lTlPSlDEVK/6lIsDOR
olN2j85eDrGu2SEBNiZid3BefGBZjkeKFkdYV5H3p7N8/d+FckS78LFdXCZg
L8dtW6dWCT3lx6Y+dAJizNoFlcZqOMwLJL14TcDnnUbwDL0att+9JIgmAr35
b3iK+GtA73kit+sVgQinATGRKzUQnbqSf6eWALN/0ZB9Ry2oGx+arC8h0NCi
nN3tWwf5G1V8RikErNIr9VyVKeCtbGW/6ESgzAs9O50ocPmxb2GzAwEe81bb
L7EUnHA8davBhsAr3k/XzCYoYPI772exJLBR45bxff2X+OSfnWqkR+BWVZp3
4OJLbFlbQWyRIaCb8/mdkWUjSqu9vM/+ZIAZUuTc4taIHL2TXkkMBlLOBS2r
BjWi3STRqInKwMTevfKSRY0I6d0VwjfGQFhVQOLKVU3QmjFX8u9moO2dxOmq
4iZoWByLiH/BgPb89QkR9hZQvF6qPXVn4Jgh38rZ8lYs5jr6vRumI9p+zfRC
eyvWZiTXm/TT0Xed5cu/oVYE2UTf7+yh40IGo4aDrQ0bLw0fev2WjCc6PATM
2/Bu+Z5UeA0ZHxc0qjHXBq2MtoRLSWR878yreKUObLobs4aiQ0eM7acAucq3
+NEZrlqWS0OrkSC3CV8Xel0OZ+hsmwJdZJPfh7RufAsvKr1wcxLXr+2xj9nc
C2vOIme2+h/4NMhr5tzWh8kZjajNld9h5632g91gALOOsSu31o6hac+BiKbV
wxjol5lvC/yKXWvqJh7pjGDob6GrS9cwBOsuHlsd9hVaorZh+yr6wbLImucx
OgoWYdGGJKte/Datt2nZ+Q11Wb2/s65+wICi7fadwd+x/Z/y2Iv5t3C34F0v
OjiOgEfCY1YjLeBP/Ga5SnACvXLeFodYX+JgkPDma6IT+LazJUqohwJzD6vu
MYkJSOd8Jr7mUhBv0mnYtG8Cp3y9fFu1KVjLXXc0UGcCCq2q3uuiGvAvJEGa
5doEZH4JpWQJ1uPbjaMsSx0TcHsR6SdvUYOi01lPfnlN4qT3rtTdsuVQ/CS2
yOY3iQv7xw5Wcpaj1uyJwbagSXiIyJ1yHC9Dm27R9OEo0qkaR7ZllGHsQJ1q
9MNJBNmfKZvlKcPWjX3vd3dMwpB/if/q3HMEvl03b72dijmlzVubB0vAoZOg
d2UHFeos5qMKdSWIadr8IHgnFft/t6s2pZfgfo3g0WeyVAiEhFUfPl2Cyqd7
7s5rUPFNv8L0cmUxaMHaOxJcqTDfwqhUaimExSF/nbZ6KmKM3c+85c3H4Oz4
usZGKsLu+Qq29eXBocjoU20rFUpu+SysD/PgKizkXNxFxZ9amMrty0Pgivqg
5O9UrHEx5vayeIqilsUGR+4p3G5YPVdT+BirjDz3r7CeAuPP2opD4TmIYBte
WrSfglH7PhrXqRysoxxrnnGewrQ/dR2/ZA62yW06PuE+BTUfg73M9mzI8pW5
vw+eQuaOhPXxPNmw6p1+9qBgCo1ropwf52Sh1MZNVGVpCrdCY/fsWUyHQzlT
MGsFDZEijDNl2enYuPYaPxs7DbkGsQ1d+unwrL7J+2E9Db3WDHpbZhpUNob9
Oy9Bg5YG0fvEKBWN7dn9qWY0KM7dchJoI+vWjl29yxY0DGzw+DHqnQzxG3ld
TtY0sCZEVapJJ+OOeEmb/DkaJk+1MPPik6DvX1/R7ktDdMmBs+ecE/FRsS9+
4SkNDazV2baS8QiJPB1tW0RD/qLgD+NvcVAaHQ5veUHDnVyj/q7MOKTEfA+I
a6Dh9tqVuhFb42BN/XlJ8iMN1NmwW+28sRjP5NY/tUxDMtevccrBu5jn1FhZ
fZKOLy2TnE6HQsDH4ElstKLDrjDy/PBQMPZ09Yu/taXDx7iGzC0YNvc8tL6c
pyNRc6z0b3MQmsSyw1f70VE2tX28+nQgotVW8Jo9pmM8aGLU3NUfT4XfZZ1+
RsdOUX1/4zd+eMWaKu9UQsdg1qLdDmk/zLTJHfci35kt7MbNWr98YHXSLjnj
Pzoc9T72hN67iZ2XKAJTc3TYL6+IHlDyhLppZOHMHzo4Q5d2f3h+HZaKFur/
WBhwuPPPMlruOiIWGbbruRiITkiSNpO/BuYdoZwDwgwMykT6fNX2AOcFqsIR
cQZo4wG1w11XIGZY0awnyUDz2Z/Xk62vwHyD0bi1AgPOj8rdZG+6oy7TVzJY
m4GIv3nG1TFu6A3UrYkyIOd3VTBko7iCcNqkf8+UfJeft9kVT1+EqHSha/5p
Blbtm/ThsL+A0KrB4s7LDOQP6ld7urjArEtVSTCFHB9fktjG6wBOVa5XdQ8Y
UI5OtvSxt8erR/36Z3IYeKoRttRUYQc5L2/79CIGks/43er7bAMe4cq7/C0M
3K/KojO4rfA67M6W6g4G7kwNXKmmW8L358lsy04y3kBjA+2jBWgtM5X3Bhhg
+bRL7kT1SbS77hvbRNahzDnpTQV9pgjoXXGp/DeZX56H0f6fJjh4uGv+xF8G
3sbQ9Mv5TPB4gztPIgeB7tQNnZWdBrDxRaoCD4FYx+1Ei4o+Nv3gEe/eQED7
rLipxnNdBNcUKvMJEzhuI/WFrV0LauK+zaXiBL5+fjDBce4YfkUZGJtKEejx
6Ps2vUETDvZTjrH7CfwJiX85EXcE297UELKqBB4JFLcUnD2MLsWIm+8PEyAE
WGdDg9RxmEMylseAwISdSkOGpgrmr8xvKzIlUGtsKD2ucxDFA625hhZkPlls
03GOShAqdq69S9bxntBrDZSRfejdqqQlfY7AM95JpbjD8ogKXN31xo3AF0rY
2Teuslg6+Wic05sAx2HPEZUWSZRRrl7J9yMg+jjE56acBC5KaizpBpP/CsO9
z0ubxSGawBc6GU6uv02Ndd1tUfQvfV0fHkMgsP5wQY3jDsQ5l97fnUTARKUm
pGBIADqdARJtaQTmrjk4zavxg0XF5LlLFoGkfRQPv++bUJkjfIj9MQHh15sT
jvfw4RI30fr4GYE6yvPim5y82HWjwUyrlEBQ8XnZ16u5MDQSNfS9gsDC0/6D
77zYkKhnfS6kjoDdJdbC6POsMCiT/iXeSGBl3QPixeO/6iuFlnybWwn8tt+S
fMfht3pN6BsOx3cE1hY0nDiwNK3uMZ2WsLKbwLrrreXpXVR1qdMXhHL6CJwL
U05SVR5T/9qsnHd0mEBpTHBevHS/eorMGsXRMQLLX+/ruqZ3qpuk9DXcniRg
/PpEfhh7kzoH61NdEYKcv7fb0yb6uTrl4o2PL2cIcFulZvnOpql79mjZ2i0S
yLMekczdeFVdBpupy+Q/cEuNJJfC2BG1/wGUPLst
           "]]}, Annotation[#, "Charting`Private`Tag$517338#2"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwV1nk8VdsXAHCVoldRmVO9kpBIKJJhqZQQyliJylAiKhTKK1PTq2TIkEwl
cy9ThRsteqYfSpldrnvudUmSa3bvkfzO++N8zuf72fuczx7WWntvdr5k5bZY
QECgj3r+e+8AyeGFBS4e0HrI8LAm9C/xt9zjk1wc8Rz5xcpSgYJidYXJaS7q
bxF5c1HfCMa9oHpkjIuefrf1DaOtQEPJ3HnwBxfXsSoSSh+fAl/2SQFikIsu
t3cnFHNd4E2Se0o3i4sW6gvbKlU9QHtNOL2pk4tuj30V+mX9IKAxKqC2hYsd
gskxq3j+QLudKln5iYvxbwIeE38EgR5Jsyr+l4tbdlka7HcNBcP+8Yan+Vx0
0NgqFKH+EEKSF9xjcrkoVzmnuqErAj7arxJ6lMFFuvX9w+31kWDUpHQg+BkX
bbfsTE9OjgGTt6ffn7vLRZHLqo9vvnoKVnc/5Wme5qJPXdTfmfHpELOvx0T1
JBf1qjTcem++hLa5oW8KtlxM5PNWbr+QAXaXBeXXmXHx5dsBsa+HssDhhG6S
gDYXrUPCXOPk88B1e87DTyJcDLm5hKeaXwj+zeFe5z+MYmmcrr1EJQ0e/rjW
OVU6iks2WH5wOfceXghd2BdaPIoKcd1eFavKoQnMJZKzR/H95+ywkNMVIFcg
UdESPYpWDkp4UagSPkdmrjQ4P4pFUpHfSps+goJVfZ746lF8N2Yv6JNeD21t
K4arzv7Ey/7Wf7g/a4ENlZfEtdeP4MnQ61NF+kx461m9VJQxjImC8s4XJwfg
zEP1se7Q77hJXz7wRewI8KJv3EMYQsXWAJ1CxXFIF+mTSWANYvH3d1v1hyYh
2gGEdHoH0W/QW37PxCSEZqdNdXcM4k3tG24qvybBeb9Ls2zTINIS4tIEVk+B
3LWh8NR3g7jHTC/RXnsKXjAmuJkPBnGQ9TK7PHwK0l4J1b7dPYhyabyyI+um
IclU3af1/gCmfXYeZqnNgPwK04Yv4QO4ZunGq/e0ZyCv0Vnu860BfCvrFqYE
M0A78qSl/uoAZl+03GJrMQPdFrMaH84OoJvUKYMzF2dA0rpiMltnAL+8vHZS
L2sGHjuYXL35nYNfPVNSBKRnQXK986cbHA4WzptZtW2chZTe61sDmRzcVXTL
9vnWWXjt+Krdt52DJZ2NRoqas9B0WlTrQhUHc5VYqWzzWRB2bZ+xfspBN1Vl
GcnQWQi9eDZgmwkHc6J36Z0fmIW+CKck2gEOxs2baPT/mIW9hQ6VZgYcXNrA
lLWfmIWJaVthb00OdvylXK2wMAtnb5kmFG3g4IZtLkZu0jwwjNYs1Z3ox7a+
qSFHEx78LlnKM3/Wj6J6WoW7M3hwkr54PTO2HxsMrD7+k8uDd78W4HJkP94J
+PFiQwEPvPeRd6Nv9+PPOcFmDo0HjIZRqc5L/Vhr8py2+gsPyhmd2meM+tEY
1m/r4/HgxpJcf5+fbAzzEDtjasQH76dOy84MsfHqx6n0S4f54KwmFmvez8aK
V16Fj47wwdQhqEipm43HfeMU39jwQbrY4mdfNRsbBRyu5bry4Y3zpLNZEhuV
plSs9ML4kM3LGt8Tz0brorilo3f48CziVLBCNBtNOB5/JfzNh1BaTfKie2yk
04+XdUbx4djahK4SXzZGpM84LKTyYbRKz0LejI3a5LLNkzQ+sO3He9ccYqPC
uzuL1T/wof1nhueCIRtTnCMzzlfxoVxG9D5di412UZ1qWMeHB1dY/0bKUePV
arCSauOD0uY7OvN8FrpfX1Hr+YMP60v21g9PsZBG7ivdPcoHUXOuXReXhd3e
dp68MT7MBBz3Kx5gYYyajrj7DB+qvyjnX/jKQscBXZ8xARLOBjfLd2SzsGP8
w+UMcRLsulMNGOksrFURquNKkmCqcfk4J4WFHlHtipoyJOzirH448YSFFndS
l2dsIEH4sNWkSAgLFwU/sNqtQMJ8mtwqySAWftZ/tuiwEgkT/AmFDf4szBiL
K7dWJqEnL+bkdi8Wzh9QsrfbQcJr0fYq4xMs/P5sUl5Yi4R094weCxsWblsb
r9OvTUJC1dVpW0sW8qQXnyrRISHEV3Kb60EW2m6GRlN9Emw67SOD1VmoUrrd
YaMRCXMpdKey5SwsdXO8HXCUhLHZ3IBKQRa+lpZI5BwjgXP0RnTdAoHkQnqV
iTUJnxevr22fJvBAZ73pgi0JL845qk6wCNzpKXNUyoGEeFQ15vcSqGl9YdmR
UyQ8lP59RqCLwJR1lS2BjiRcbUh5IvKZwLKcvfmVp0k4vIOYU6YRqHD1U9ic
Cwn6dwskNN5SFi2a4bmSoEEEq+kUEKh2eG8Y140E2ejNLsaZBI4NbvlRd56E
1T/GgyyeE6iVGlyX406CoNHHONskAl8+9cfwCySMTjs3uEQTuGivvqCCJwn9
Fpocj0cE7vYVtxqh3JW15PeVewRKi8VX5F0k4eOJl+rBNwksqqriSniTUFLk
Z3Y3kMCY8FsllZRfrTjoFuFHYIS4eKrrJRJiKwYSkjwIFP/5uzn+MglOAYk3
td0IjB99NqtxhQQlTUvXltME+nS0Lq+lPP5zianXSQKvl7oJHfMhgZZdqiZs
S6Abe+14K+UwFy+JdEsC99FT6ix8STiyUW5O35TA9Y7ND6oo98U8qPUFAs0X
GxIRfiRkWRi+EtlLYPZLSZ/vlC8vn47K2UXtT/OHKd2rJOhU5/gbqREYrbf8
wh3Ki285OTK3EejfXt9cT7lRR+zAdXkCu/Jbti25RsKTqToliT8J3L/qt/9u
yk75QSIFMgR6n5B/f5qyoof6lKk4gVNKm6dCKI/JD3YPiFDfa7dsSaJcxkzE
4OUE7nCXMntNOTTRMkNWkMC8yhaPUsrxucKSXvNMdPEcCqNRVt7kw3oxwcRD
bwzi31Auj+151fWNiXShDxmZlC1WHAwQYTCxbfxoQSRlIvj1AaMWJlbIckp8
KPvMSIler2Nistm5iiOUBS+G0PPLmZjoXF+1kXIcazhjoJCJcQ7zNUPUfLfZ
21yRzWLitAnZkEu5vKlC71gSE7cef/fVlbLFfkXhu1FMPF2r3CNJmSiJbC2/
Q43vu9VQJbW+PqpkysQNJsYqqZDOlAXTXTyUrjCxZf7tmnlqf+KkP+12Okf9
f2Jc7TFlpQitRU8cmCj/vN9WhvL7JWlN/zvKxGP5keHPqP22CFyesHCQ6v9F
oEKCMjHq47Jbl4kfq/UF7lHxIkg/SKZtZaKghWWeDRVfcZb5NR3rmGj2aJ9E
PhV/SjXSUStXM7GDqxuxiLJ5wQ/FALIPm/MTCyO8qP53omwtm/tQLiKv18SD
6v+L3HS7ug9P7gxiuFL5QbviOkIr60PYrjLjT+UP85R2mMLLPpSKee9759x/
8csomA/oQzUzgUoj5//i9VCQpncfpnO3pm06+198FhhfcOnDpY3Bz6eofL6y
PKyvzbwPP2zNXHmbyncaU2nlKzmqPbwx0/g4CUF6i/5JlO7DqZH3hb/sqHx/
2m1+X6QPz8iTw7lUPam0+vvxOZKBDr8CRyasSKir+bF2cwsDX2Q+OqxuTsI9
uepi0XoGkrQhdr4ZVW9vJdn8rmCgeNtwsaIpVZ/2mMf15DCQKNv+e7ExCW15
r2XiQhjo2MA55m5IrYfwXVq4PwPLHxRhgQEJ9m6nHXy9GJik3HNxQo8E+sbV
yUdPMHAgsPD+Wap+sqKubFqhzsB/d3JHRtWpeuK/SzGY6MWWGqmTdZtJKGhb
We/d0YsrpMQOvfyTmr/6gLtjUy9G2NDDrlP1fmo4NndvaS/GmSTw11LnwZzj
rOr0417c2fiaOylKnQdGtF0eQLX/HS7j/4sPW1Yb7rdJ6cEVtg77H3zhQ8RO
1nWPmB7kuYx32XziA+9oaHHwvR6EUu1ayQY+NEVVy//j04Niu6rzwv7lg5+Y
idAy4x60u1zTuugdH2olrZpKuHR0yzkgH/WUDx4bXO1k99ExMJZ+W9iBD236
Sx+ra9HxYKCEN2HHBwOnzDrj7XTMxZxvBVZ8EEsd2uMnQccJelqcril13m7y
kv30vRtPvfNZx9vDBxH5a8TN6G58syDpJyrBhyLlex7s/i4UUF7/pKaOB39+
PVO2vbsLD+kss2n8yIOH/jrCVz934UQYQ6mhggdu1cMZQmVdqNvmIlNczANp
J3OWSkQXfsp4YKGRyoO/otYe99/ThT2tsa3f/HhwmJd0cOWjTlxXl0foy/KA
WVO4SUurA8dymgVEbWYhyJpvtEelA22zpv0Z1P1NmmV4Ya9cB24pjHDJNJ6F
o7+aCw1EOvCcaU6qou4sVGqM7jcebMe6I8nEt82zkJaq7HY8rh1Lxfapnx2d
AefA9JzrM224ghOUYBQ2AwMqsRr4rhVzxlZF6ydPw5qbOVo7Fn3FLKHOdM1z
k6CixVXJmGzCjOo5nznhcQgz+vmlLKAOBcJc/zfqMgISNq8jT0h9RCv1QqnF
JwahaKZGtF6ehtpp1eWHnAnI6Bl49D38NT74aRjuZN0KjsfWv+lxeYKrjc/6
qU6Uge5StSxiwAgPJtz9lvfMA/4PiomZWQ==
           "]], 
          LineBox[CompressedData["
1:eJwV1mk4VQsXB/BMFSLDRWTIeA2Fe1OisjSYCiFjylQpZciUJFGGEqFSyW0k
QxmTImERUkol83TOPgeNnEOmczbp3e+H/ezn93Gvvf5rLWWfIIfDvEuWLJmg
nv+/DQX08onRnWCWeeFr4X/HcAOTR/GcaykwuyRlhno6UHXiJdf41Qu4MWc9
7a9BoFVOX5ut6yuoqE912vrwC5rZSPDNPGuBUk3BRvW8MUzz7InVr3wPAbSa
g6t+TmCLrYKInUQ7CA8X+ewMn8JxZamzn7M6IEom7NvaizO4KepBcMPDDrgY
0vKsNG0Gz3euO1xW0gFNnVUX1t2cQekL5taprzqgkXfrP3J5M2gyFiG360cH
sJ4e8a5snMG05/3PG4w6wTTjTsCf3zP4z+777LLeTnjcy5WpCpzFMw/XDt9j
doK5ZGvyzfBZfP27qjt1rBPChoYbg8/M4r6y9lr/JV3QdlkhUvrSLJ6X4kvR
1OwCZzlO/ZrcWeygH9a8H9EFZSsOSRr2z2J4mI53mnQ3NOz46HzAdA6lhdg1
zsrdoF7GiFllMYdV98pXKa7tBl5pJ8M2mzlcaDX6VLStG3arDluous/heWVL
aPXvhpbU6OJz4XOY+uGQgkBjN9jdeRwt8GgO8zTv9p0O6oGovzWFZIU5aFnn
vWH76R4Is/Y7yyPOwe971a8IJvRA48E4w2FpDq6NKbLMzOqBrrzDQVdVOFje
VV35rLkH9OqVq+4ZcbDufM/1idW9YFX6sjHUl4M9g2IOvm96oS7J6OWvag7u
Sj7cG/a5F+Jendn4CDlYY1TtETfYC8x3dlluTRy8f+Pg8fsTvUDS+aQK2jh4
1O55fP+qPig+vbVgns5BstG90tavDwx4a7uj+LgoX5gnbyjUD7eeMiS6zLiY
6jafbfZXP2yqj4tqtuLikuV2Wo6K/aBSlnKr1IaLI4e4G4L/7Yfk6Cr2CScu
Fita7ync1w+hRQt9+Ye4aHJ18pxSYT/UX1B3Hj3HRa/ILV+XWQ+A0kD1o4xK
LmofetPFch4ABV5T3YVqLk7ZOjZ1eQ+Ac7mCzP46Liaq+T/IiRiAD0lDogLN
XCz6+J875AzArMHjw/PtXOSqz388SQ6A+DOW3qkfXHwldqHugMAgqAz/1D48
zsWUeYninWKDsGx6KnDXBBfXtGtfktAYBFP11He/Z7hofmbfzhL7Qei8qPdo
GQ+JVz+/qBotGAR3P7XUPCkS99ea5b9/Ogj7pntcZFaRqF7Qfv1p3SCEfhWy
j5UjsSr6e8i5zkGw9nv3zliJRJqm7DqFJUMgFatWZa9JYoFk7mp+4SHQ0DHo
iNMmMXhRX+in1BAETBaKl6wlkb/T8muVzhCsO/bz1w99ErVjTj1wdBkCg21V
CkuNSJz240/f7DME/0wL6nCNSax1TD+rEjAExb2qdiNbSLTTLnCfOD8E3hv5
B7NNSTzZ1SOVUjIEvW66HfUWJDbqGF5qFKCBRvt64RhHEj30HHMmV1JeJXe5
34lEzr/BNUpyNBDZICmj50LiWuNCVpQuDYL38EOjG4kZlkp7DVxocNc8p+Gm
B4m61lv8fbxpMEZ2+770JPHNHreE9OM04ClqF+71IvG387XKsRgacCQk7Rd8
SPQ9vEw+t4AGk5lDRRO+JC7xU9vQUU6Di6rOBoNHSMzy32bLU0uDeFbh0/qj
JH4IjYo90E6D1SyZG2HHSDwakXkreYAGud7mczuOk8gb9az8xSgNAq+ft17h
T6LhefaIFEkDyxW+Hy8EkPg5YcXiDn46MLT/nTcOJNE/SUsmRJQOua+cZL5S
vp9+0OqDCh24qYvy2idINM6I9VlYS4cxt2f8DZQ7b96J0jakQ+17jT67YBKX
3+spTtxNB+Wokp3uISRmZ0+/rnCiwwMNvv4uylvyxAmmJx1a3dNcrUJJ7H6k
yxU7Roc9HifxGeUTxbslIIwO38SHRFaHkSj05KhOwFk67Jv/vj2S8sOKhJ3/
XaSD67bmA58om1RlH3h7lQ6lxZkH1oST2PcST87dpoNISdo2P8phOJimnk8H
Jaee5YWURRu5BXuf0CHe/W75KOWC19Kvzr2kQ/caKRPZkyRub10/UNpMh/Si
gMdmlAfb7KaHPtJhU+nA7DHKJ9sDRFb008EoLkMlibJY1yUN4xE6TK77uPY+
5ce9+XCURdXDq+mvMspmg02uNzh0mIss6auiPMGe2OTDQwA74e3pasq1wTFm
kUsJWGa6d66C8qUpEYd0YQIyJZNtCyi7hN/2yBcjQFGhPCaDstqc9vE6KQKU
dIQvRVKePPUiokuOgO3Y7+9CuY60iB9TIsBp5ZG/dSknn+lO51Mn4MBSTtVv
6ntdFw/dkdMm4KJZz5rXlNVjpx79o0eAh7qdxwXKv3jOP7c0IKDweemJbZQx
TqzR04iAW407XaapeqcI3Pt40oSAhk+e4vcpawjWfHtoScDZgpDfDOr//WrR
PZZtQ8DqlhqH05TrEh/8vOdAgGSQVb0wZWf+C6ys/QTMK1cyZKl+UGnkBmV6
E/D2jk/GDap/WOf8J6/7EpCbOLp/BeWEP/bT6ScIEDm+at1wEJXfuqbw1HAC
rg7fW7+Tsny04VzyaQJWNBfb3KX6tYKUJxPjCfjRrlC9lervkZmvf85kEsCS
nzqkReWjrGLfudN3CGg9Ys5x8CPxTGgb76lsArTc2rLCqTz9NVkuEFpEQGe8
v3Aelb8dY9HCfvUEuLwUuvyUyqdo4USKbzMBviZCKbneJPb7HRQ91EqAuoDz
jXQqzyFfLcU9OwkwX1xstafyn82UlHH6RoCPoV5BLDUfAh8kZjqME/A6RmHG
2JXKkxdX1u4XAaoyNCuWM5XHIZr87gUCgrSMBU2p+cPT90hlmxgDQh5HdabZ
kvj+pvxDEykGHBQRdZKwITHTOU19ixwD1ByP9l/eTaJ+Z5imoRoDyn+K/Qqy
JNHrI+iu28SAuI+Du4lt1LxKLS/V3sqAqXDr79rU/ONYq/+juZ0BvRY/Lwaa
kJjWKmSgas0AZ5uUNoKan3XNXUayXgzYMpJ1KHg9iQo1x80ELjJgUPrrle2q
VL1kSTLwMgOYla9dWWtIXHHyYlnvVQaQ8ZaMK4okLujlri66wwCPZ7Yb62Wp
euXQJh2eMmBPVc2PFytJvJFsf/c+jQEGYYmuyiS1P7/R9wqNMCDRw0rNao6L
CWaBgmHfGXB+xr706DQXw/5cCrOYZoCW5DxvGouLDqFNu1iCTBB68vzeKSYX
Rd0N5zZvYMLtUL0yfMPFpVXNRbnGTAi7axd0kNqHv/9y9FlpyoQvo5KsxQYu
jn040cbcxQQVBVJb4SUXW7c/zknyYkLkpY15s0VcvKCtYNeTzIR22+B3CmnU
Pid5H4UwmXAiT/KpCbXPvYb7pmK+MsHm6GMRDWrf178vM7k8xoTu3MOmS6l7
IPaeR2f+LBOGtRh6T7Zw8c/O6j+DQsNA33Vj+xMdLi6mBTtbrB+GyyUqt/ct
5+KCOsEnHz8MnqFdb5xqOLh/ZaWtVtIwNErxr3arpO4VzuVbG1OHYenUc2en
cg6eebdZzz5zGCTUoi9vKuDg/Imb+xKLhqHpw5cVj69R98pL2ycTncOgU3Fn
0ciPg3P2tR7N6iNAmhVlSK7k4Pm+0iETnRG4zJItqVzOQVHv7P1V+iNwRMPl
+l5eDmqcuLCvcPMIeERc+xwyM4eOqfbOV+xHIMZng+6egTksax21ORA9AhGo
WRCbO4d+O0S3znSOwP6k1cfb18/hgIHnavX4Udj+rFQhddMs+nI3rExIGoUr
Norv3PRncaJ2Bd9o6ijwrKrjU9ScRX6L6h8Pb41ChWOlUrrMLOq6SVWrlY5C
z/ebO1bPzmBs9DtXtf5R2C1t7fDxyQxqvDa8oar/BVbrlxnXq87gCRcxcZXB
L8AcGkefX1MomzHiyq/wDVwetUtLhkxiifv9/KlT30F2Xd26hKYxdNkaY/mm
9gfQ5dfHZaZ/wSceASrGCz9B90ecQMA2AjlCO/heOI3DUcuc3m7RDpRgiWa8
2jcOSepCdyJon1GnvV/tvec4lGWZf1pb8hk9boaY0/3GYfqXMdFl8xkbVbOT
BM6Ow7L6cq+1qe2YuoVHzCFvHFjKR0o2S35C9UCU/zk7DmsMZV9vPdiKJvbJ
xdPz4xDCpgWJC7aiq4GLyeISFswWh+b9XfoWL5EsT3FhFkzqBN5UWniDE4mK
OYZKLCC2yVm53WrBmnvRWvEWLIhLdN88xGhCh/bNGxUyWfA25Pxisi+i0Gbh
hpo7LBDSKArKr6jDhof9u/fnsOAkjVX0lq8O9U9Fev9XwoL9fiF/GeTWoKhS
ZYpsMwsYAUVP18y8wLf+/w5L/WLB933Fks/bKjC2myfw2RwLtAWWfYjXrcBN
pu0cx98syBZNyytOf4p5kidEM5azYTbWOONvt3KMry42klBig1Qnnxt3thRN
l2uli1qz4X1ViR5rVT5ygjlyJfaUI6stulbkYelAS66NCxvaRvHaaf5cVCz1
fZniw4YlsnKR7n+yccHp4RehSDbc0m/4FWx9FyswNPjxWTYok0z67fDbeFxr
x4JVPBtitpYIzuZnYf8CQzwpjQ3V2YJRu7VuYmWO0tZleWz4mRwebZ2fjoEi
7Ja8Qja0jB3O32KWihoRdQ7mT9hwNPbvxZ69yZix68DRhBo2CM+0XpesTUDr
irVTaq/YsFHa+ZyIXBzyKS5EN7WwoRe+7sdrsRgymXWNr4MNw3+yivpaIlDb
/ZhiTi8bCuI/f+07E4qMJqNH22lscF2w2BU5F4iZuoIGzGE2vH77af7n9SNo
l9lbd+47G2QyhdfdHvXC5bwFVspsNvibxhMTXCfE4xGd9dNsOPc+RmvjtAV1
z5p7epFsuFHr1pA0o4+6IP3jzx827NiYMnRsL1H7P44ZIu4=
           "]]}, Annotation[#, "Charting`Private`Tag$517338#3"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          LineBox[CompressedData["
1:eJwV1nk4VV0XAHBkTtx7z9EoqSQkMjQQ7k6izEKSsVHmRHgVogkhkSFJgzKE
MtwKxTpExDWEVySSEHdUvIqK73x/7ef3z9p7r7X2ftb6YwEHTwoJCAhsFBQQ
+P+qTl/OWlzkQ5XGOqmzXwLpAXMbY+fm+YCeCYXvXfmFXlqhqTT9Hx9GPvjr
t6yfoH/3ozdwpviw0WDN5pyLXLqWsuWxcTYfhr40ORcLfKcHjRwRGB7ng1Ws
vE7Z3A86I/t0Tv8XPhiWhrk0wAx99lCIfvcnPgR1922VdJ+l76Re/sj8QO5X
/r4o4PNPeljrzbC3XXwQ8jRjhpnM0auv3FtOtPHhTj8RuSVznq4/X32w4g0f
1FYPvZYS+0uPYDRPFdfyYcmCUtYF5QV6rX9vUl4VH66ZhhV7GyzS0dfvLbef
8eEr2mJmlSuAou8unk59wofbE7lvvOUFUb3jMrHEx3yo3Rxnsy9NEBkzlfde
vMMHDl+dGhkqhA48d3916hofxAfpe37jwig+wM/JI4YPLx5/Gj52ThgxVc7/
dIrgw7rdG/Ntu4WRVU66tmUQmY/WeNX9sSLo4LW2Im13Prgqcyzv9Iui1D0D
B7Ye4cNp+1QvRxUx1PN74puSAx9WV+21OREqhg6dEVZcbc6HHv45K4a0OHJ2
2p0tsJMPU+kXeC1bJFA2dkBvXpMPgfHGg4wACTTUdqhvWo0PUWNjL13LJZCH
0Vn82wY+PGz0vI/rSKITWwoT2qT5IG9kHo+rLkWPx16oNknwwcacWvzzxFI0
fq+hmRDmwyGBsPHBnKXICx8WZszz4BJjYn27jBTy/7s8ImucB/1/Z+6Oj0uh
0I7Lfp61PCjavCs72F8aJbBDPsxU8oCes6+GfU8aPRTz2hNTwYN6BTOL9E5p
xKRbyt4t4EGw3IqZdA0ZtKFUtqYrhQd7bdpdX4zKoF1Msc0eiTzwveuIrRWn
IMuJuWTuNR4olCgIxa6loDCFoRPiETxIOlsQ4G5KQe3JeVKGnjzYfnOkyjCD
gkaLM0Naj/LgxPCq+KAnFDTXHD982IUHFsN2iy41FKQoGMAIsuWBgOCq7oMj
FBQeuNOlcDcP4nZYz7KUqUjpYHMRTuGBU9yHK1WFVKTvXy37UJIHUYHXal9X
UpFtfHGUhggP7of8+n65iYou1Cfbmc1zgWK5P8pzlIq6tJx+R41y4YSWR078
GhqasDI/uewzFxqnvA1alWnor7dBR1Y/F6SnBFp6t9OQcu763OftXJDbb2Zv
a01DERjLjF3JhXM1MvNjUTSUovGJEVbBhbze87wb12mowLxdXvQpF2oP8Bok
Mmio61L5D4VcLjy9KG8fUELGmwnPOpTIhbg+MUFqHw319Cxl1R3lQvjWmu3y
mzAUfeJ5bZELF+ZZbYr+WzGkPuOWmubIhQ/v941kbcdQLFau72XJhRtOd9cl
7MOQwcHDNyi6XHCLeVnZexxDrC+CJ+a1uTB9UFtvuQ+GMgOLdo2qc2GXWJDs
9rMY+pG88OWlIhc2xfJFaRcxlNfxSMedwoWyhZp/bbIwZOduJXFgKRck/Rq2
pt7HkAD/56CWKBcUy4XkX+Zh6Ii0+TXRPxxoKonoelSOIRnL7/0l3zgQMhXy
WP4dhl5/ynqaMcKBQHu34eB2DHn7Gl+KHuSA4Tuh8qfdGGq4nqHm0M2BH45y
4u2DGAprMYj6U8uB5+H9fXVTGNp05JvdeBUHVoyNKe/+D0Ndk8nKnQwOKKZe
6rs9hyE1idH3uU84UM5oVBMXwtEX03hF83QOFG666P6UiqOkD9pzOjc5YPev
gedhWRzpew62ySdwQHp2yGtyJY7Sr24L/RHNgamJgPV163Bk1tj77rYfB3y4
WZct1HD00/5izqXTHLC0S0nR1sDRo1GVIL/jHAj1+yizRAtHi0si5PY4ceBI
oaG4y04cFacqfVe158DilMjHMV0cHdnY2Yhbc0BwMKz5sD6OGEYbAyaMOWAw
Yp07j3B0tIu5t4vOgfV150dU9uJI+ljIytd6HOCLf/tqtA9Hp6Pf1d3YxgG3
UsF2rQM4kqUGpf+zhQP+K/pFJM1xVH9fzue4Egc0O/fmtFrgaC0RgO+U40Bq
dkC8tA2OmLTtwXorOIC7uLXF2uIo/OR8twGNA+5bv/bxDuJIuRK09yzjwLPU
+g5kj6NeySupxuIcWEo72RPpgKPLrmbTpks4YPK4T7zwEI60S2XszBfY0L69
KwkccZTskEU7OMMGikAIXu6EI8MC97MOfDYo6fU7JB3BEXdeseswiw0H1u/0
dXTGUbYlS9NljA1lH++ELnMh833/2U33YTYUXanPKCX960fw92MDbOCGL+cg
Vxzl7dOzPdXLhpNXGKm1pO0zF0u93rPhGe5bouKGoyXsBoofkw3uXoRjDOly
g/gzZ5rYYPBqsrSZtEeydWdQPRvuOfX2/iEt/RXfFlrDBpm3W77Ju+Po9faP
N8Ir2WD1znRRnbR37D1+RAUbxmL26G8lvWrghHX0Uza4BbGqV5Fu3qr67HIh
GxyjOzJmyHghF/nSsY/Y4Deny68hrdjN8L9+jw12cdsGz5Hu3hTenpTFhpHt
YRFypGPC6OopaeT9LdLYZeR9trUKJ6Uls6Hfhmm0g/TQ2hZu5nU22H7dkFNI
5iPhzA3L7KtsmM7zWClFWu+Nfcm9aDasU6AwXcl8TsquXpZ7gQ3KyVHdOWS+
M09/9s0LZcMgs25/B1kPk1ePmIVn2fAGe7aPfxhHM8u81Ur82PCkf+zrAlm/
hx4aCaWnyf3SW/UXyPraVMywK46zwTwh0YtL1n9RpNr8pRsbDiWuv8Qk+8Ol
yHhprT0blhlf/XyE7B/JBQmfOms2CMnr2EmS/VVl09HSYMaGiVcBsk+scbR8
1im+FbFhtHzpWDXZnx0oQKJfjQ1yaKuRogmOIlN1vD5tZoP1hHTNYWMcqY3P
NX/ewAZ9cS8UaYSj2OuXY8dXssHJmVOVbYgjo97bYjPCbIiMFRlW2YGjKWV3
z5+LLPjXpVVsUhtH984rNs3Ps4C2e//4bU0c/VF4dlXwOwscU63XvCff83Of
BhGZQRY03/iRn7EBR7sU/DXzPrCgNkG8sYh8/9U9K1wNulhQzNL695kcjggD
H4ZPEwtchXy0Y5fjqEWGdry5jAUyT8uyL0jgaLjCnYi+yoLOsNeqcRwMHTst
wVkZzYJvPbsG8ycwNCZXsaL0PBl/Wmnx5Sj5H18RDRg6w4Ikngqr+BOG/nMs
WbvbmQWxzZZ17FYMSf6ZD5/RYEH1UhrWmY+hxNJHeddVWdC6PKhTJhdDlJNW
XRs2kfHKzayMcjAk2/5AxXY1C5zPnf0YdQtDCvf395UIk+fxvnnInfzPtxun
b/fsnwTZnb2RhAOGPBI0p/pjJqHFqkM+/icNhTNSrrZFTMIJzWO6Zd9pKO3T
tFxd2CREuIS8amfTUIvaiwMF/pMgdtVClfuZhrTb9HJDjkzCmdKKNVVNNCQq
bXwI05qE2Wl7p8w0Giq+cei1xZcJiNVXpbxTpaFfKedjgT4BP0xjGk8ZUNE3
uTqWid4EUDyfP/yoQ0W9eaKW7ToT8EDPP8JEjYoqqm9SB1UmwOe7urPoGiry
H8nPmscmoOIiU0j5FwV91ewp3j7xDUzX/af8t5ScJzrV3hclf4PNHuobDMh5
I1d6aFXml3FYjOwoqGxYhrLNNM92x41Bkn9lASNMHMX4Hg1TOTAKxb41Uw6K
S9D5JU9Cz3JHwJOystTdcJ5+9GKHYm/BFxBKGuhvyOfS02rGMrO9h6HNz75K
L6aNXv1ZWap4wxAQMZxOB+Nh2EhBRvY5A5Dq5Jd4hfgB5aqx3iNf+6DM5Imo
Zf5f+NxYprBjRy9E+lzfT2tbQoyppWnBi24or1g0Xb5MnKBGFu5QF3wP2YnI
Ysk2KUJtB1/t8TQTCguySljJMsQp9aioqkEmtNNNHS7kyBD3lGS62pqYUPem
9pFwsQxBW6EROnuHCV92GmrNvZUhfv70rzM1ZkKE0o6WwD8yRH0Vz4F1qxWC
5n9d7tCiEIcNeJEaO1pgeovgFb9MCnHJmNtZFdYEB/vVU3UcqET9fo61zvEm
iEhfZ1F6hEoIWLLbn1o2gVXkBtPNHlTigsMkM3dDE1QTFAExHyoRcmqsOZH5
FuR7sk4lXqQSp2MHiaMKb0F9/znb50+ohAWzrVSiuQGq2p+s9/1NJeI7mRqX
yxugUCshxUqARjT3tD5dyG4AJd0cNTURGrFv8F3xdGAD6O337++TphGGvMaC
wTUNEIM9FPy1nkZso9TeLwt4AzEbl/MsTGmErP3TZKcV9bCib9bfIolGlCtd
r963pB6q++97HUihETZznqOa/Dqwv2a3xiidRsTnrN8l2VQHcw0tD5RyaMTC
xK3P1SF18Fh5Uu11CY0YjzivLtdLwCbO6raVTBrhb30zs0YFYFhCdOiWCEYU
zJhx0gQBhlaIvBOTwIiR28LIv78WtC05ziFSGHFoNPSbfFwtDFx4EWqCYQT9
H7cdFydqYKhF83y5AkZQcrf0GOW/hh8JvnZVehhRPtso06xYDasLXgRH+WBE
0pOH9YZzVaDRbj71yB8jfNyizj1vqwLKybg9jYEYofh218DDkCp4sUbp+Gwo
RqSnFeVFNFfCWcaW9NWXMSJc56aBtu9L8F2tddj7DnmeCb+pQvQS/vMp/KWf
gxHa2Wa5CrIvIXnZW0/JBxjBWSIsIV37AhgKZqVpeRjh1h3SMyHzApwllT77
lWGE0VkXn5wKBoTGiLoovsUIeSVdedlYBrR5rXmZ24wRv/tl3193YYBxWvbH
ta0YwdjTseMfEQZc+nnmH6FOjFCiGgnZO1aAZJS3VGI/RkiWbr4t8bsMEqZC
9PLZGPF4YCxx8vJTSOA9CeEuxYmPF5bfu6v9FPIDc1bmLcMJaXnTUtuREsie
vbLpiAxOhHgUdFXRS2A3so9i0HDCZMx7Rfx8EdzdKLJVaxVOTPD491XPFEKZ
xLG9tptwQi5ZoXxIvhBqh7jnCSWcsNG0fZPSVgCG3YZyW5RxojKofGxetQA+
TYWl/lDFibhfwaqtY3lwYtrX0WwbTqgKzVf4OD+C2dZdlLV6OOGWq9q4TvIR
qN/6UGq0GydSjJ17uytzoVQi98VxfZyYv/r61+7lucCyV/+eYYgTrUujDKTe
P4C4Tfry74xwQqDkmRUR9QCcWo6OvtuLEzpWw+7B6g+Asu6+9FtjnMhO3hPz
6fp96JWaSCo1wYk+VfEkp8Qc6Cuw3G1lhhPIz6u0jnUXTt0alFc1x4mCZy1d
KvvvgkxRxklBC5z4RydxxbxQNuy1kpd7aIkTqw1pD7LCboOE0APVYhuciLkY
9EaoNxPyJJ4oHrfFCXZ9z5i3diY81MCjZQ/ixGvTDNXdvHQ4pVvu4WuHE662
coyB47dAcXVD5YgDTnCm/9M915AK1D/lU4GHcOJCegdIb0oF81anyj+kswdi
WveM34SvFgmzwodxQi3SxXbA5CZsmP/pG0P6lcKOD8H5yfA7cODsb9KM1q5G
6/dJkPpvh9qwE070UK6+j0lJhK38hmHzIzgx7aA7+NwuAR5az2+sIK01fG9m
TW8cmEzOOAY744TtJjsB64xY0LnxcH876TPeolIxh6/BKTjavNEFJ57N+G6c
+HgZAsfZwXWk23UVNNZkX4LO5NwHEq44wYvs1rNyjYHkHBNXS9LLGq6aRMtH
Q/RHZn4C6cO04EenIQqWxKlHN5HOyP74qn1PBGgUnpj8S7pXaU+3TkM4vPzs
OazhhhN4WT4ryyQMysV0TrmSttstLST47hw4HawLv0o6pTF4lad5EDATpeSL
SHdaD2xrazsDp8SpNq2k5RmXkk/d94UrzW8p30jfabYBrcee8Dlxm8cC6ZWD
a3kLhcfAY+GAIdUdJ7Z8/Vc33dUZtBiSRetIK0mdyVD3tIW3YiF5KqR1RTTy
h8eM4QdH9w85zxL/A8GaKdM=
           "]], 
          LineBox[CompressedData["
1:eJwV1nk4VV0XAHAzGe+950iDOZEIFWWo1o6IDKHIENIbFVIkmkioNyJESCIl
otBgyBDHFGmijCVTxXVHU6ZXfOf76zy/56xn773WXns/W+noaXsvPh4eHmVe
Hp7/fw0EtfMGf++BSZbB4iYPnLiUZNbqq3sEfs0lM1eRXgq7cC9L2wteBS3s
EiEd7vPM7+tGH6gJoSpNueMEv+PATmHV0/B9piuxl3SDYvS/9ymBILLaLrGK
dFSK8pntt4IAjV9RuEvaTLzaqV0sBMov+u4IJC0c4bDbN/oCJGRL081It8xy
1AWFL0OY1TVlGdIxp27QsqLCYEmhljnshhO5EwmhslfD4Ub7O5MC0sePb/Qu
W4oAya/+DzRImyuHuETujIJV8zKPfx/GiQ0/GmxsL1+D4f7n+vdIM+zdtjPm
/4XO613i86440SpRoFGuHw2DA8HW2aSftswoRIXEQLCqlpwpab9dCSLyf2Kh
a0DS54oLTljP9y0ytt6CUVvbUWnSWiXqE+WB8fD3Uc9UnjNOzCUPsTbMJcDU
xFRljRNOVIhe6qw/lwQJwiy+ckeceLBJ+muxcjJoiZq0yZG+blvclvE5GXYn
uhy74oATB1N+vg9WT4GtPapDWw7ixLiSVf3GH2mwnvVd29UOJ7r3jNTKxNwF
of5vemm2OFFzPPyNwPZ06NA7xt+2HyduFpa87k+4Bwe2Rv/RtsEJVQO54tt7
MkGc7mvwYh9OiB8uf3ZlIhNabESuNFrgxFSYXYFfZhaU1myI+2KOE0eG6+3X
XX4AVfHh/ANmZH4bZq3/dmaDpl7k4QpjnHj3ymPPi+gcWOnHM3zWACd2NGk2
qA3mQHv6q7qt+jjxvGt+d+a2x2BbcMqPsw0nUuaT4ObPx5AOL9Yd1MWJY9Bi
6LUzDwImq+WHtHBiuVVn8+qJfNAMSjzLuw4nAvv+FsfvLYCb6zas9VfCiRF2
q5ZQZgGkRYokdirgxAeKl+bUvqeAHUqkJ8viRLrjXbWPOc/gw20X605pnNAb
5pW/6lQM6ReXVNyEyfVXHprQyS+GKYvBoFRBsh63CxsH54vhByDjj/w4IZb9
TO+B9XOgRR9x1ODBiUVbp75lznMI2BTr82IOI348L1av3fwSLHpqQn7TMSLr
jHvjzvISKJzTZ3OaMCLj8IqiOwMloNmy6vjdBoxIMy9JZQuXwrvqGm+ow4gE
RVHf+06l4F0dOxdajRHhbaXUv/OlILgiy7/pJUZ46kh4VO8oB1Q9NRaaiRHr
xqvmDesrQEoyzTs1ECMufzSJmmZXABxkzQedxoiugveSRasrYWy/3SFrP4yI
8fq+TimgEtiu2oEcL4wY/7ZgLaxYBS9zU/QmnTCipsng4dfQami7evsIzy6M
cLlXvs/PoBbufJ39YSiAESXnoXO9Vy3Uums8C+TBCEnHZo+BhFq4Ki3u8HiR
RtRRuoPs6bUg+o+CwX/TNAI3ubQ/w5KArE2NLid/04hLr9MvRCwQkLk14Mb+
Jhph8aj3o41TPZgka/TtvUojxq8VeTedqge5PQaD45dpRNqJyGWjyHpQutTC
e+c8jaBv2rRZvageGugLWZ9O04gbr8OT+QUaYM/hZhdhdxrR8lHN9XVxA4xN
WrnFG9CIvXPn6ErCTdBrUe+8xKISptY0/j+lzbDQFkwPN6UStzxXTMy/a4bY
vJf/OCIq0XOOZ2DpRzPsseNvUTOiEj6ZnEoRoRY4kJNhU6NDxnNbA2UdW2BL
8y/vyrVkfGLksMlMC5zbHeHBHacQPl3Tdbe3tcKJ3rjTdmkUIt6jO1yn/APs
FHNXQ2VSRLONnIQtrR2YNZbdwTLiBFtJOuxL+leo3Nz1xchQhDgXpOEZv7IL
+u0yls0FBYjuPoq9d0sPcNV3fragLtUeubBjVNjqO2hN8pRE0KZrGzS2xzQI
9oNRp16/7s6hWtUV1fQc80Hw/PNwpbB0I8hV+5oK3hiCDiNj6RonJvAs8OUH
Dg8DYdfQ/vz7PMzavXFvWv8L5taJTpVE86Hvuh5r10f9BuHKaGcjTxF05hCF
qtw3Aj9W+5cdeC6Bjj7RTl8/NAJZQ5QLEg0SyGHeZp36yAiMpJyg1nRKIMN7
cXo64yPgadlyk/8/CSQ4IOqyS2AUVk2YKMqbSqJ0b8FHLpqjEOyoePRatyRq
PLegm3R5FJ7sLpQtm5ZCZW9X16RcHYWDv7YfkuGnoHwZg73p10ehstVF4ZMY
Bd2qCHHOThiF+IujEhpyFOT8dzq0OGcU3JPbrmUDBXGiuG/ffxiFPyHKXy5E
UtDq5F9OAnJ0cJ50j70vREX6kQorg5TpwNU7328qRUWOgS5ff6rR4eOJqYsj
MlR027bNumELHUbuDB+jqFORuES1cYQ5HeTmtcoELalo6VqSJk8QHeIcVcd8
46joV4gxz2IrHf6MdSu0idEQ3/HQN75tdEiKETf0wWhI0fH1xe+ddHDA2iT/
W0NDbrpafyoH6aB749wLno001DW+mnFhhg4eptLO6Xtp6N3Jia+zSmNAy/va
vxBOQ0WuD/Kmzo9Bh7TD1xUsGtLtXrcgFDYGtfcN56YmaKjKPs9qTeQYCISW
nOyYpaEWi6IJFDcGtlWMxRB+DP3cXm10K3sMLLxzTpqvwdAqvOfzhtYxOBVx
3ZjPDEOZ8a7KOz6PQWJlW90+SwytFxsI2t8xBiMDDkU3bDG0hW9kdXD/GDx7
Y5j8ywVD1uNT/zRMkvMnBkyuOY2hiA9Sc25rGXBeVjE76A6GRMyT9gUoMkDd
TueHeDqG4htW3o9az4B7C7SEu5kYyqiUM36qzYBPkVqrE/IwVP5EI3bOhAFc
kWYG9zWGWFF7FZP8GGC0KfeNby+GzvK8D8wNYMAOPizG5AeGFi7ZNFUEM8Dg
YWmV5BCGhM86+AyGMyDGXUDoCh1Dyp7/lGy6w4Dhs15bm2YwdGjnFfOWNwy4
tHjHq5uCo74/I1L19QyQHVZ6+hHD0dEim+6qZgYQQk2FZStx5Kcg713czoCj
fBH3j8jiKIL3TWTKbwb8bZcXpKnhSKRSxTKBwQDfrY9pGeo4iguMpcVwGdCX
3gurNHGU9tM1O3SeAVZVlXkjOjgqalqoOSbBhNXbr57sNcCRbtjR6+40Jvio
Pts8aYSjim2t1k4yTHjIvzVwcSeOGvPu9lkqMeGsa4Tg7904sjjCm2OqygT1
M4GaDSY4+rTqpC9oMKH/qnjQbVMc9UbrL2zRY4JTQqqYgAWO3I0f1GkaMiG2
F7Ry9+Ho14JwtCowwTtseaWBFY44vt0yayyYQA1T7tfZj6MgFRjAbJiQs6Ui
7o4tjub7cnMlDpDxjz88ZtjhSMAmWI/XjQlSPx4Wex3EUYxQ/+KCJxMkZpbP
3HTAkVStaeO0NxkvJmGY7Yij5JDCmxxfJqh8p07mHsLRGh3pA/QzTAg8qxCe
4YSjLPrlNcPnmFASIPX+qjOOVLJ/DX2/yIT1uyIrHF1wVOBsld95hQmEyc/N
a11xpE0rOfM5isxPxX3NZ9IlrWv130WT84+NOgUexpFhZORy/S0m5GsZfBVw
w1GtEfNtdRIT1tp88r9Oes+0/a2yNHK88BHKLOnWZ5UOz+8zIYknMtPRHUf7
vZTlCh4ygbPOezGHdIdczK9HeUyQOUeTGibt0jXx9P4zcrymd5USHjgavOV8
NvUFE+QNY3+qkfbaW2eYWMaEZSeZUzqkGcsb+G5WMYEm+tvw///PvE54F0Uw
4VfaRh1x0jNn5hLCmpiwVNStPUCOf0n9iNP5ViZ4WNyRfUCaZ7hZIfAzE9Ke
NPbYkL6erj3q28GETKMwMya5fvEDqUVevUyojUrYe450otjyOY9+cr75sDcs
sh4rG713Ov9kQk9veLQd6YzLnwQO0JkwJRwe+4isn5Letg9WbCZItsvkDZP1
zmXfTzKbZEJoWVKFJOkX7qeUDReZsM35s+kmcr+Olo7LPeBlAUf2Q6EwuZ+4
eNBqIWEWWP89SntP7n/T0VncT5wFvkKT5iFkfwRXXKR8obIg389NVfwAjtQo
S2L6MizYcFLiSjTZTz3eV4UzZVlwbQVLlUv2nyF+Y+mkGgteYs4vAsn+ZPqI
LXzWZEGhrY5BAtm/GXW3/uhtYYGGTIPLHXMcLfnfYfHuZEFyb1uxwx4cFTet
oh83ZkHGxJ4oijGOjshm/Py4lwWyCZ66LwFH9e8efrtrz4Jn6wz+yTfE0VlF
1a7lQyzYXWYRtrSd7L+Q/HYvNxaM7nlSaKBH1lvlecvmEyzIFNe55KmNo+2X
tjamnmLB3dmi59bk+aa3l9X+DWRB96CiugJ5/i2vvCl7F8oCfVtd0QBlHC12
opfakSy4fKJJYEKePP+ajYV3brDAP0HJ22EtjijfWnM8k1ggY6p5oZW8fzp0
e27PP2FBqV3yBQ9+HF276XrLo4gFK7Ao88UlDG0b7o9uesWC4e2/si8tYCgt
/nd4Yg0LvIvXzyhOYMiNMemv3kHm51PDu9yHIcndwT7xvSwYD1YUzu/GEJE6
7/WnnwUVE16RW7+Q96Mpj1vdGAtK1u5rpL/F0EiWhKXzMgsm/D28PhRhKHUm
waxWgA39mVWqgU8wZG6NG68XZQNu837FTDaGChbWGEzgbHj6UX86JRlDpx02
qEVvZIPrq/tWuucxNCdqwl/hwIZGk99iCfoYonEkk+td2LC0uco7SgdDGu3f
VD54sOHI2gA3xw0Yck8NNBs4yYYHYQOtiTIYalj3MFowjA1pj+pF3aZpqE/I
f41UJBuUZv6+1GXS0MyYwdNVN9igI9a0YXSIhjY8b/+gcZsNx63VZr99oqFb
O3gp9rls2JHXQ53KpaEnCh8fuD5lw8rRFJWUDBqq47u72es5G+LMZloot2lo
ukXnwPlKNkhb3+W7eZmGXByOpGR+YoNe72WP6/tpaL1/rSxzhg0dWaWf1dlU
tMvuZuH0f2wotO9YEhukIifdQ7uWeDgwtuAW/eYLFcUscDyoYhywOmxvGFtO
RePX5R9tV+CAaeL55aYwKqrOClWP2suBuC8F0hL8VNQVYVEZZ8UBi/jO8tuT
FMT1krZMteNAVeYO1vchClLWLPQrcOXA58WIf0prKejf133Fbac58PRTwaWT
5ynIvt1om1waB3gGlA68q5BCokZiddX3OWA/1qV/+qYUqsv5Znn4EQcc9EPy
bA9LIZ3zFzzvFXEg27Tucul/kkhSoTx2dRMH6iejV0brSKK3N67LVLRy4BPa
aHmLfL+FTjo8dGrjgOBk/or8JgnEapouT/3OgTCIWClySAK989vyU3qSA+G5
HU+rTomj8C5e/9JZDgS5hHDf6IgjfdQ+d/AvBzJ1Dg5lTYqhXOyMZLIIF3RM
q8WHAsVQVGWhAU2BC59j9OTtjomiHSqhjS9UuCCr4jdtKSeKpuKs9ttt5MKh
jMRVnR0r0FFP5rEEPS647C9nH4YVCImoJ0hacUHOrHQqlUcEzQXMrSmy48IP
zxqG+zNhVPy9+bH1IS6cX1QI3+QojOSLvatij3Jh2oB3feQjIdS1apuZ5gku
nL5rNdRpJoTiIgTb35/igtvbZYnmUUG06JAzInqBC7vaJw2WlQRRSe3ZgIIw
Lpzq3Du7UCmAfNVNFi2iuPDk1c+0v7YC6NviEDU6ngtT9q2b95/lR+WPFHYK
53JhMzYlrxbDi/wluM25T7mAW7TN+QvwItWQGnuzF1zwz39QZH6BByXvcztx
rZoLYs7J1GcPlsCqRHNKpZ4L++9tPbX26F/gl18MbWzmQudCT1AKbRECJ9KT
+L+S68vJd2TrzcNGVx/5Rz1cSA84PWWZPQtDjQb5xv1c+P2WV7af+QfStFbo
Dv/kQtXjGb9dEtNgm9ZTc3WMrKd32GDC3ASI8D2xUOJy4aOfb36wDhdqfUM6
iGkusK9IXfeNGoPgTjOPIwtc8PCPuHsOHwYtWMlYXuZChbaCeOBQAPwPIJCH
kA==
           "]]}, 
         Annotation[#, 
          "Charting`Private`Tag$517338#4"]& ], {}}}, {}}, {{{{}, {}, 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6], 
           Dashing[{Small, Small}]], 
          LineBox[CompressedData["
1:eJwt0gk4VPsbB/ApRZvIVrdUCMmdsk8R5x2lRUWhFHWvURTKEpFI9posmSwl
V10MWqjEKKn8JgppbEMLIcvM2EtMEar7O/3/8zznmefzfN/v+zvnPEf1sLet
60wKhVKML/J/HSgN/Pr1GVH+//P+vor5ffJ/bmkcMyso0tMc+/rbDTPqVxFf
POHF0MhvK8Rz6IS+ltVh0eBv+yvV2BF+3Y6UThHpMENJmyMEJ93tRkvXb1uH
3/MhvtkHmDa1kaYnQlAQsX5RVCvvHWkGJ4sbSQS+vhxYySfdaXFSOY4ojf5X
iVtLeqQ0dksSMQV3OY+rSfsURrCvEaaTpbZFFaRL3rCzMogQTvVIftnv/d5T
q3KIMq+3l3If/7b1bpc7xC8tATWDQ3pOs4xxAUHv+VJz7T7p7Z2jd4uI8Ou/
3JLukHb7Ojf1EVG+X1oqPoe04cuYn08ICbllOeczSK94aXeKS1jwtDaH/UNa
P6pqXQURfZ7WdeYK6fKtNP1KopJuEep3mXTHhEHEK2LOlM1yzzjSmjxbtVrC
stjpydELpKf+WRTbQMR4ezowIkh/mL5WwCd4a4LHHUJIx827KPGGkBYwU+wC
SZt4ZEe/I6xvXDGw8iMdKCjY0EokHMhu3OpF2svVd0U70SBX6E13J33u5z7l
TsL2Qm2egRPp/Q+qmD1EkvkHy7WO2GFrItrdhUTzVF+v5j4yH9J74NZL2PvM
Ul+6k7SvpUzFIHFVW65cfivpWOp+lU/Ee8FKhrQ5Nrdg9PjuEeKgw8Z0ynoy
b14QMmOMSJe3NJnUw6Yv5Wv7i4mOWvv3Y1Ry3nORztRXgrHJV6FXjcw3cEbh
O5E5HVrYuZzsb/SI/zVJdD+M39O6hPQpMGqaJlz+vB1Xu5C83/AduocokCN8
qF01l+z/bPnbdQaI/n1RzZ1F5s+vep6ZCe4KnbM4k58QhVG4aFbFLLhTN5x1
9yt2xquK8YnZMMScot8cwe6UYLFNpMDrh1JImoicd98w2TUX7j9SX5bchR3G
1pPdPh9GTuo/jm/DpqwO5ZQuAF+R1dcwPjb3+uqQShk4XR/leayM3Ce9/BMh
D3GDAe/EJeS+uMgxEwXIknI3jygi+5wN+0AReGCleP0WmZcpFzkvBrUCxWf8
RGyfedeDZZVhA09qNSMem07nSdotB6u+76zhC9gFWZHjN1ZAoEqHy5wQ7EAZ
l8rbKlDHyl1AHCPPT8iJu7YKBPmpAa+dyb7WiN5hdfheHdN54BD2CGPXAl0N
UJ/hzfGzIefvPMj4oAlBJ9cfur2R9F3/uae0gRW/ppJGI8+737TE7U/Iub1M
94Uu+byfLdqdqdDQ9Uviowb5PjU4L46uA03b6jwFWTIvje45qAemXqWKWfOw
J0os0of1wCYmP1RnNnZqs7tXhD6cLWfZ7ZgcxufRfoYUGwBf32EqVICtcHJC
bRMN+qx3ukp/JHNxQegwDX54mNWntWCnul80SF8PWmxVdnEdto+KKpIwhhD5
gR2DJWSukGEyvRESddo4gUXYDHmqRoUp3NpZt0LyHjaz0Ycdbwb8yMJRFTZ2
W9iyM2sBtMRBafbx2AJ2e/4uc2hunj/w3Bm7ur7RQGELhLsUl+UdwqY/YjrE
b4F14r+TUvZj1+mlms/ZCkz5QlN3K+zR1lAXiW1gZnsgQdYYe13orm0ylpBb
n23oJEtarD0vzArsnKznWs7HPvRtT6GSNVA+j7frS2KfYs7Zed8aHBfuvCA5
PYQoATPCHES7QcbqS8vdXuxHG8uUaTYQWGMWOl2GHS3HezJkBxqOvXaix9gZ
jtdMt+8Ffj9Lq4GD/YfVt9fZe4E6V9DIvoOd8qlpmfM+6NoWo77zCnaVtmqu
yB52vHz76pon9jkJ90RNR1jO9VZYrzyEwsKFn6KeM4AnZ3TKZDE2T1qHRnGG
INfJJjM5PL8uMj8EnOHtvOgkiznYaDO3ETkDa1+anK14EFGMX7XdqDoMEoMv
ZD152Ed2wx6xCxSaxfj4VA2iMNttg3mmrsBg7W7wK8f2N1p7M9oVnhq1JgSV
4Plg6tNzfxyFgLDPC5nZOF99cvT59mPQr7hUmn0W5zbUQaVKd0h1+3gi9zT2
mH31/SUesPVJNu+2L55XKTf6ctwDshg6cQVu2Fkrx7wVjsOhPIv5ZXvxPJqC
E54noJ7uPbeFit25W68FvKH4+IvZMu0DiG4wNq5c7AsbVLz0ct9h/5m8cXDY
F0qbF/9lxsdOZN3QXO0HXLPjnONVAyhsccp8UZof1MjIHal+MIC46m98WRdO
QWeREzf8PPaQhm6rfwDMm54MEuvgfrKCs8etIIgvyM6N1R5AlJU7t5/+HASy
rtZ8NQ2cn3VaOUULBsW6zDU2S/H+L+JKt6pgUMnY/v7uLGyxlrxg+CwYWVwx
OtbSjyiatpfTbEKBEac30hLRjzrtjJf8MImAIE7i+doQnA9S39sdiYCUtjHl
54H9iEEZNe2OjYAa6kPLW179iGv1wDm3PQIMak3YAY54PsZmQX1kJEgutLCX
1+/H5+kQj1ujID/B/umurj5EX19pdLPoAlQ+emRLb8NW9UvU6LkAXR+X9Bu8
wzb+UdchxwQl3Q+Ky2r7EPe8ruVMPyaENjh595f0IUbBSK8M7SLYLnJXO8/C
OWtbsWNVDEwkBjMR9CFKvKS5zeJL0Kv8fGCrCd7XYhgybnsJ3uZKWtUZ4lzY
vll06RIUlV5e1L4G93e/7LgulQBe3TfTJuX78PfrsS1wOgF69Jrzjfp6Eavx
YNHEdxbUNVAb81i9SGU003efdBI8dfQ1MIjtRQ32PbU1OkmQJ3iUUhqN869N
847aJgFzYpPjq6Be1MkOcViYmgSbVRx6RC69SDZAkLxaIxlKvKO/qhr3IoY+
5J/fmgLshR1/pHaJkGwc896W3KuQeBCkjNtEqCH2yuU3vKsQcStD3PJWhDJq
DljFjl2Fw5uO1C/jiRDD4qi/m3kqqAX0Rf37EPsc9/JARypktY9+zo0VIfrf
mapKqmmQkS9VWWyE+zu4Wpbl6ZC+Q8+36aIQbTcXpItNM0F9/o6ahighYvwV
5XrGLhPyXh9WqwsVotRwcZSMRyaU7krmV/sLkSy9lO99NRNarMf1y5yFSKt7
wShlLBOU7J6N3TLG/YfqvsfuZkHCQUv/c/0CRN/ct8ReJxsiTjgHrrEUoAOX
Xyjout2EYIk7p32Hu1EfsWpiycH74BxWr/72VhcSvEo1bJ0ugpRnwtR0j04U
t4v9fmFlCZR+1FqQr9aBDhhR6UUpZbBKlr5p740PSDJUdr+UZTkUajM9unve
o9Khbtdn/Jfw8eUDFRrtLYpKpr+PTXoFQmqKPnrYhIaSzNZ2WNfConO3aetm
NKI9Mnq2wpoGoNI+U3PGeGj5GSnr0918iLQYbngcWIWGU4Qe/WZvQHHvPZbD
4nLkIzac/zrzHRR+eylTrV6KZlawj9EHWiDngzC+P+oeurF20PSqVxv8ZaPM
+XAkGY22KvNN6jpg42ydm51CC7RNv4Mw/PYR/gNILqeN
           "]], 
          LineBox[CompressedData["
1:eJwd1Qk0VmsXAGBD4rpFSUIh81jcIiG2KMkUiszTHw2EpNCNwmcsU/xEo6iU
Ql2SOVOmbhEJmX3f5xvPaw6J//Wftc5613POWWefvc9e75b2CrD15uLg4KjB
5/qqzaP+fJRyBIaoqaOUDaOgNc4pGelQDNNlKjLc38ZAdqpqSbehAloc08tT
1sbheF7/v1YODZA2m/W0XJ8MRy2FuOfLWkBaY+uXAH8KpLh/v6lR/gmquOva
1yKp0GIlsdlaqAv8JAmJ67mTwJbeHvE1pxuOqi/y386lwZVgVc8UkV5w0xQ1
eZhCh++DW2x9WvvArX5lG08UAzzCDk3yWvwAEmWPq+ApJjSqaic28gzDLxuN
fkF5Fij8UU3LNx2FKZWitoFvLJCo9j3KEz8G9n08rr6X2MCxzPUiaHwceA0V
yYiHgJ82NW7N8mS4IOzsERVOQFR/8ZCBKhl+nTI943GDAAHPJy7vNcjA6nss
pB9JgEJgnFOhHhmsv/IHzJAIOJVsY59mQ4YPAeIqlrcJKGmnWLqGkyGwR725
IYeA88YC+vM9ZOjV3UEqfkfAD033nfIkCvjzNorfZRDgs6QlGJNAgXYO2wpx
FgFTNZu4KckUWNrxWfQ+m4ANxyoZ+dkU8Gpx33lvioC9jtsr5YopcHiiRjNx
gYCb4R0OcgMUaAiypqlxIVD4qJ0pq0GFe3vyqDGiCEoSBRKjtagwErskOCaG
QPcEJXxClwoz129z6u1EcKLvjnfeUSrYp/sZMCUQhDLYmrLOVPDZYKagL4ug
QyC/WyaWCtkJ/vRnexAEnt6yVWaQCrrREioZhxF4FajnyI9RgdTOv7fUCIHd
kpWsMpUKt/46p9JtjOPdS9LSmKLCbGTgZgETBDwj/E4GGyZBN6E0OsQMQY4P
T56T2iQ8GVo+L3YSQdOVZc3065Mwaxc6n/MfBO8+itVmRk4Cq54dl3MGwYsd
OsdyYieBbGC3M9sbQXJFiGNu6iRU9UqZpJ9F4Ph7Lrw4fxKszav++dsXAUFC
Hzs+TUJqdq+GxGUEYhlkhw0SNEijDHXlRyI4GC0lEixDg06R+NmsKAT2QU7d
E4o0uGk0OJcQjeCOdadl4z4ayKTvuXshBsGmzdVGUaY0iK3TvSiZgGA1Jl2N
I5gGthpvS6xTEZBDjDhW2mkQ8fTF2/EHCLjOhtf4dtKgYIA39+1DBLvt31/7
8Y0GiSbHwiMfIXDV3DtfOYrfn3yCc1cugt4pMUbYAo4fQztyJB9B2/np7p/S
dCht61fweomgyPnx89lQOty2P9HdW4ZA87vs8sYIOjBCU8bC3iGosn1uIR5N
h4P2wwK7yhG0Hi+aNkyiA4l0ptX1PYIJ7Wq95Fw6NIxYNPZWIhAV7vui1E4H
qwNpeo/qEER9Elx03cmAksvgmdSKgM803ezSbgakmvmrb29DkNIo8oAkzwD+
XEPV+9j3KyWMCtUZoCZd9fp5O4LyAtXbi8YMcMi5xSz9hIBFOrY73Y8BTsnz
5QWdCE7r3zBtrWEAX3WY0NJ3BIPzVMGGBgaU+Qt7ePfhfiqy+l7VwoBr2jMz
ndh+UpI+xV0MCHS8zHjaj7+PsyY6k8KAudqYvcd+4Ho0L9ee2cwEoZ7xv88O
43pEeMW6CTHhoOYvx1bsigPtlg47mLBzIjBGaQT31/PsQXNpJgQpxH2kYvcn
HFzep8WEm5sW15zGEGywuqrF6cqE1K9DzTJkBIkbh1eWPZmw+LT+fSi2YN3R
pjkfJogqhnJ+xhbX2H6SFsgEAfG4zKsUBOpCpYFfSEzYb+YzXEdF4NQ7Xfjg
FRPs38h77KcjeON2UUZ3hQki/FkiT9g437IpicecLBhkt3vTsYU3BYtt5GXB
SW02pwaB4GrFtS1ft7JgRmdFtgpbVzh+9bwiC+ZOOsu1IQQNbU8Gsm1ZsG0q
9kPTNILLuxV6106zYCcrW4dzBoFcyIsub1cWjNZ2/6mPHStX0vrXORZY8g3W
vsU2v1Hzri2cBWc59K9kziLo0ey7s1TAgr0N4z0wjyDmlnOyexELniboQBD2
gfHhhOZ/WPCx+7JgPvbdFMrNtFoWxNr1kHkWcD8zZvyVe1iQLK92rQGb+miz
ueMaCzS9lfh2LyLIWkg1qdvAhmeKIfuPY5taChvJ87MhnsrsuoT9cllcZ1qY
Da/Ov/Stxw6wU1JMUGHD2gMrFaclBIv8xtwVdmzI9EnMCFpGIEQIZDQ4saFJ
aVY1DVu1a0DukzsbXIoLTxVju2UFmYycZ8Pw6qQLA7tR9kkCTwQbqkULXJx/
4f7b6C8uGI3jZz+7cxV7ga5TKBrPBhGncvc0bKWSrk+qd9hwP2Oxvhk7+RDn
FttnbPDPC6hSXkFQIPXvY+dCNhxZCao9jF3Plf2XdwkbOpS83Ryx51o1ToZW
soGxeVNoHLaTnUfmw89s6PlbS3EEW96/bhdzgQ103sFd4b8RGNjcej33iw2l
N66bpmA7aJ42WOUg4HTHNolc7MRlwn3rnwRY2Go3NWJPxUrmaUsRIBo3KMWz
ioD/AmP/YTkCPktVFQhjy1q+azJTJqAXqkdlse23WVFd9xPg1mvseRi7+lG4
MukYvr98ojIUuzfqeGWSBQEjkYpfY7CR93bzLBsCvjHOPrqDLaP22u+lMwFq
kVauhdhx7weLOwMI0BNcvN6P/fhegeFAMAFFvI72ZOzKiOCuiTACfHlJTAKb
dWTT7EI0AU6FgRbcawhsu/QOSNwl4D636ZoSNr/en/XVDwh4GFb/ZR92ff6A
uUseAYaS/icPYWuEhnneKyJA5SAKtcKmjZmydEsJyAveJHEa+5G5aMhABQGu
/kSoO7aAVPltsWb8vE+2SwD2x/jYHRXtBMQGllCvYofP2D1x6CRg1VppTwQ2
q3muPOsHAeZTQ7O3sNv89k1snyHAQOd3fD72zV5O/7KfBByivhV5iX3QsGvx
1G8CSA7SF4qxn20LFMjgQ6AvNeZTge0WDtn7BRAE+6QK1WJvnxSQ696G83Io
jW/AJlW+1hGSQpARItHfjn1ILrzpjRwCf2Zz2Wfs2SSLEzYqCIyyX3h+xfby
ZJ5J1UKwP3FKtR9bvKMSqevhPC9WWwxid2kmXvtiiCCzLePwCLYhn3KqgAWu
W5LxKzL24qVF8SIbfH0qTm4Su/hHy1PL07jvmkuv0LF9jmZpsF1w3HKuXCa2
ZLFP1W0vBDa7C5+zsXtFD5ionUOQwEVLRNhJUTxdHRcRqAnOmU9jr9jlU/nD
8H9oPes3h11ad/nSywjct1qmn+exfZWNV46TELhY0oV+YsukC8XR8Rx12p2g
t4g9sDK2NSEFz1Ffn+NL2Gk+b+4r/RdBas4H/WVs086biq05CKybvov9wubQ
tX579jGCW0Ws4XWX50np8z7D+XwyTF7B9t+MWp4V4jlnIKL8G1shpNbW5A3u
06/FJeseGk0aouC5abHRRmEVO8PM9VxMNYJ8boNb67YoVZuVa0DgkVc1um5u
yZXwphbc936CSmvYlXEdfGf+xftCxg2vdQdN56Rzd+N9e802bd0qzhck8/Ac
Y0FX2brHmnReGOG5dC7LqGvdd/f+oTk+gcBsAZHXbX23rzYSz4nfv2Rm1s3H
VXBcGu/zW37KL6+7zjek58McrhfFeHXdV7+ZuHvgfU04uHVt3XtBhLG+cvz/
mIL/AQUyXUU=
           "]]}, Annotation[#, "Charting`Private`Tag$517424#1"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6], 
           Dashing[{Small, Small}]], 
          LineBox[CompressedData["
1:eJwV0nk0lXsXB3BERZIhNHGRJIoMGWPjdXNV5ohIpaLMIpQpQ2V+DZEKZcxQ
Coci2ciYo0yJpAwZz/Ocpy6ljob3vH/81l6ftddee6/v+km7+Fif5eLg4Ghl
v/9XJRBb+POHwsK1//K2yPzc7/Nje+wPFoV/pzgai5Q+0X9crSK3+JVC83aZ
8aXCt/pfvKCV+Ezhomo3P2Qs6KvKm7nMMCic2ujab5OzrO8/eYxjfIbCVJ/k
VSs+XEDLPpc7MkGhzXT/9tRYPvhmF7h/4D2Fej5dumPrhEFTKOYd/S2FWY9U
C12SxSG4OzW4vZ/C/u///oroloD6q3fFmnooZCmQxt6nZGAFHtLqOil0TDre
vUFHDvaz6q2rX1AowaQZBPsoQBit8/ODRgrvNzgfC+FUhkbvoeTiOgo52067
f1tWAYOpLy9vPaKwls+Eo8ZXEyJz/pxLL6OwwXq6WOCCDrQcXb8mqYhCHUbz
ZpM8PTCmy//nyh0KRVLMRMKNjeDqNY2JS5kUeg//bVssZQztBsYR/qkU+upZ
zaaKHADTmhPPXK9TKO83/P2a3kGI9/FyOBlF4b4rliGXAw4DfVfIskMYhfqK
gzY8LeZgnpupZuZP4dDKtpRjvVZgfb2nXO0EO3+7rG1F+45CuuGo6Z5jFGKA
Tt1kmT0MrszNytlSWFA1sddA8RjY+XLLbjlE4aG5iRFjs+Pg6KCbzaFJofNb
wb1MPhfIFjHVYamw8/9LRqDpiwt86LEbXtxN4bJC/Xr+D6fhpNGFjbMyFNZz
9qev6TgLZxRLE3sEKOx65dlq8O48FE3XKnTwUrhzxId2k3CHmbutnU3c7Hzc
uMRsuD3h/MZxbhqLiQ4dis7Ef7zB+5dY2O0ZJpb11dRWRPpB0OsYL7dGJhrO
SOz0aQqEREbg26WnTOQO5+Syjw6C/DXnDaOqmdjKqrhvbRoMdDATzSlh4jfZ
vVGBHy6BzGPR5/1pTJRx3Uf/Z08YvEop5td3Y+IWdXp9z54o+PQgK7D7FBOp
Ac9E9/tR8KMzftzeiYluI4lVUTLRIMvpQ/O3Ys8bO+VIS8TAZT9Np1JdJhar
yx/nkr0Gctad5RsFmUgXo6LTg+Jhv3e9aD4fE18/Ku25sjYBrOIfRCjzsPuj
lZzvbydAaEuKzUEWiWO85weGXyRCv6rDSsQnEnXHt/UNyv0XwkQWDjKekmiY
syQvsCkNBgfXLTSfIjFnf7WEUNFNiDxT01juRGL5pkody183QWnJOT3jKIm1
X1xPbbfLgliRqv3nzUicSYgJjuG9BXrW9v8V1CZxX2VMrHzQbSh+Xah+QpBE
rc0dmhVeORD8Ui/iZyOBlFJUYuVkHuw4NmszU0dgqf8wX5N4PvTPp8j30ghU
S9Y0FzHLh928n/oKygjMyOcKv/40HyZM4mUPZRIo/WTtj7y0AjjYNtR1y4vA
j8SIUohNEUg0+WzU3EYgj+C78tzVpUAX3hegI05g9Pr3hs1GpXD5LGtAT5jA
BXV3LumIUhjiu5puvJbATEd595vfSyHF9raw9RIDg1kZxY7MMljFaBX0ojPQ
0rovVGr6AcyLbllfEMpAl0u75E0jHkONRyvPhrEF/Horfp8fQQMtKW+V4rcL
6ES81KvfWAP1g+LH9foXMGdXG0rr1UCTngfNo2MBVaqzBg4l18DLDcKnOysX
0CA9u4JXtRbGq080RV5bwNtaCePiEU+A7yfr8pLyAs7fuJH7XqkeTiaqfB6J
msc5Sz4TvnGE72khsQhzKBrXbPS2qQ0KBD5szpqYQYXh0GNnSumQfVDlwkDc
ND6Ku/fZcbEPojxPBe8y/YRpvFXSmkFvIGRVWdAFchKFZpWoCKcROHXltexQ
yQQmveFwmuIeg4zn01nZ7uNo9/3KqkDTcaj/KM//QOYDJp8WH/ypOAnbBQ2M
juSOIldJb+PC2BRUKcS6T04NI36RcAjLnoaPbZVSGhpDuLl83Mhy3yxM785Q
xdoB9BvrlG5OnwOh8FINJc4+bNdzolHz87Bbg9pdtEhHT+YdCVMuBrgqRUTU
jdFx6lRO1ePVDLgrt6G/p4OOdjOSh0XXMUBYXDno2x06Tk+djHsjwoDlZe9m
E2M6Sj3QEVPdwYCWOqbtwo1u7AiRaD9mwgB7PWa4ssZLDP0wxXM2jgHRxmRv
XXAHmlKdJmrcBLT8Q1ion+5Ae57d69vWEMBhxnhVYdaBP8dF22zWERBqO08v
kOnAzdZ/eM8JExDoOt2ZRG9HRfWBIQ8pAs7FjjWdkmrHO6LVix91CThM73nM
29mKrsO7hAN9CYjvpSvHVLWilu7ir0J/AjoHuyt+Z7di4yW3rt5AAv4e63qw
6NeK6re3/pIMI0Cf2VYytrUVdTee7MyII2CvYOO9Sp8XmJhXdpHII0D0SEWK
g3gLepzmjNHpJaBKLqH+71UtWBJ0JG2wnwDLH26fVKhmFLVtGPF4w96fK63F
19GMsta6wmnvCPg9d+NjfWAzhqzb8dfzTwTMhIUobRtqQsmDCTZJ3wnwtkjN
er4LMVGh4IaIJAklSweJDE7EnoHL/EekSJi8xW3gPdKIq3e/qEyVIcHuU9Cs
ZFwjlt0yj+beSQJccta4Mvcc+Qp5tDuVSRAsUBw0ut+AUaf5izsMSKj61rah
U7Yet9RL2BWeJCG5LL9F/0cdqp/TvVvlQoKHc8TFmp46fPvCIuH5GRJk27VG
8wPrUOks82DXORIyM8qLwzqfooO6jPNTXxIuq6fqqXk+QZLP9vpSBPueOa/P
pQZPMFx53xA9kgS17IMFUqJPkPPMrZa8aBKIVdy8Ao21WHG++ILhdRKcBwIH
5zbUotadP3L2ySQYXXDyyK2mocomgezJOyRIymlLisbScHnPutyYHBJWRkT7
EpxoGDRVrbX9Lgk0w9cal3ho2LJjVsMunwQ5ISOuI0er0SV+g0V6CQl8j3fe
4l2pROr1vqrzNBKKRqeT5mMqMPXSTOTVLhLehYrdzVGrwG7jy8+KXpIgIGny
2GryIQbfy/vW0k1C4MmS/jp4iPPmv32Xekg4MO0uHs8qR0MhSz+1fhLmmNQ9
Bd9S7J8aCZV+R8K2FKmqD5Kl6Obn2CA0SoKlitWLtJ4SXPv8X9Zvtp/6V02z
FErwjORAQO8YCXHfAxS6p4ux6nbsUYsJEhS4WNUejoUofaH6WcMsO58Chba/
+ApR3JL2PnSOhDRjx6GBpwU4YtTC0p4ngXWt4buuWAGyDNL3lC+Q0L0uQo+/
Lw9Xa3N7nCdJ4Hj4yLwpIg8Py5z1E2KSoG4+fiJAKQ/lnrH8a9nOTjGMep9w
D0VCTnotUyQMK6xNdkjKRTGrICXbf0kw8Dr/uHkhBxXvjYpMs13y6GX/rn9y
cCm6bslvkYRL6kniLK5sVFdKKolaImGLvnDe7eBbWFfhOBTxjYSoK/4vuIay
8IqgVcYy24yWwWl3tSx01pCx8FwmocHkpoIuMxNlsoSqD38n4bjVNtro6Rso
NmKtM/+D/V8Wv2pfbE3HEI0DXw+wSAjNfI0CO9LRTbe8M4/t7NGobsOZVNTv
y3hqvkLC7nAnq9EDqeily/XmHtvPpDTeBtxPwYo/D3k/s03r7m+z6EtGNyrj
2dWfJAwKXuuLSkvCJdsGLTrbi7baYzU2ifgk8VvPhl8kqI7fXdo6FIfh1yMM
ktm22mHDYXEzFs/MPZPoYtvXfTV/lP11NLKZFeb8TcKjJc/tc+9iUHInw/gc
26+0pZS3ZkcjPZkWeZNtZviAjvnxKKT/Mh96wfb61msHIiUjcTUXzYhk2144
oPAcRmBuxli7yB8Sbma/e/bKMAwZku0ummwPyRkOqLdexmjfc2L2bG+svL9w
+0AwqnThxEW2bXQFuDi7LiLXYEdrCttpbQGb3Q75o2pJKJaw3WsxurenxxeN
ut71PWdbkhad4nrPE6fkPq68ZvtOpyWqFrkhp8R1vY9sbxqTYP4udcGX/r2Z
DLYVp95oZx53xLsn6tZ8ZVuO3/emkpsVbo00SFlhW5tH+f74tDFybUpz/c32
/wChlJmE
           "]], 
          LineBox[CompressedData["
1:eJwV1Xc41e8bB3AioykpqSgKGRWlJPEuGhRCklJWoUJ0KuNLUkhWhCRkJclW
ZGTkICOKZGSFonLO53ysOGT8Pr8/nuu5Xtd1X8++n1vcytHQehEHB8c7qv2/
V1m882Xf4GEsWhdmM79AwD38aL2dkgW0Otc+G6E87+kWE7/TGvzCem8GKXtd
zbBvkb0K7irJ/nbKXMbf1XilHJH4I16qhnLlZn+/ZwI0eP0s835D2SdSwkn5
4U14JvqyYykfXVZi0rzUBXmWUz7elHnvnT5k5+8GWoewjC3l2imWzGJeD2hI
Mn4eoxzg8EAw3scTfS23CiUpp4yG3t541wunukuec1C2tZW1eTt/D9VTjysy
5wloSbic81bzQbew0sQdytt6KvX0PXwxk56ifpLysOEF5eFpP8yOSG4YnCNQ
vzxNrmCfP+oENDLTKafXTm7ycQmAwz2DM46U7dVD+cT+BiHwu8M4MUtAd7p7
dnj3QxTFBA+mUt6RJzNaQAvBjhMfSAvK7Ih+5jZ2KGo/ZujU/iNQtMS9lX4r
HMVTwTI3ZwgkbF/Tki0Rgb68p0MrKd/Xz26K/RyBpQ2R+1KnCRhF/vjoLBOJ
bzEZMZ/YBEbEdeiyPVF4FX7eYmySQPvhoXLhgKfg6OSuoVEus/Uq5VaORkLn
gUryL4HAzLzC3tAY8Ji+9fg+QUBKRTQ77HAchE5fnnw8RmDZ+YKMO6Nx4DbY
suzfKIFxT4M0+7h46PcrFp6nbDFAN9zikQD5hrcta0ao/W2b0p1rTcTkqPsG
c4JA3Rvzw7n+yTCMeM+n94vAgWr5Sum+ZGQXv37kMUQgp236UNzeF5iNHHn9
cpBA5HQ4An+8gA27v2z8B4FLqN1vrfYS0p2lHBf7CCzUKyiKjL6CY+vZk3Ed
BGjdc9khx9LQ4XvFMbKdwBBRv4MnLg3cfw1lA9sINAhYy48fT4ergN31q18J
RBs/lW5MzsD2Zd+0OZoI7BngFLtrkg0L1149/w/U+ovPjCq8ysbLg74PLaqp
8wjLrOqbzsad0rkupSoCSxMz9iTo5iD7qXDi1woCs/om3QusHHBtHOsYKSHQ
k5MtU674Gronm7fFviYQ72RWpVaQhw2inJnlMQRiz/NnPf6ehw6z0zwq0QSi
tPKeELz5aFAcu5EdRSB08xK7Zyb5qJQeCwp/TOVPU/6quel8ZLrFluwLIWCp
sNy85EABFg1HaU3dJbBl5N30fnoRDgrf6DxqTcCjUdNngihCpP2W4P0XCbSl
fVyRJVIMfqn9XbKWVH5Yd20Rv14M5TcCJzgvUO+lc0aXd/M7DPCVefsaUe+j
WiWp5XYJrH7PZDI0CJyLKThur1KOCr7dmYqiBPJc0SppXQ5RW6vgovUEVhjX
mH8PLcdA3Jc16usIVAi03zT8XQ7ZKRVxtdUEhDTdT8aeeI92iRc7VvNT/0Vh
tNu9mfdQ7Zn03zTBhPbzb416JnS0MefDSmqYGPHNsql2oEMk3vHHryomoi57
L6h60/Hq+Vd+AToTv7dvV5TJouNX0/VO4xImHhR6RXBxV8KxoyWqLIeJ2kZp
08LsSqx/QcxMRjFxjH3rtzhvNbpKBdkrbJk4oivI9Te/Bp8lNzTPTDPw0JJ/
dLquBqb/6njjJhnouMXxfb6nBrqlP2PVxxm4Gscq5uOphaC/3U8XJhVP1tM2
GlMeV5qq76XiH3kPaE7WIsK/LWGcTsW3TVSE7a3HxiesSkN/BkLM270UChpA
mxXPsV3BQI2e6HJ9wWZobLWNm+v/A0J8jeeX6BaYpSuwDZJ+49ZNOcuQtW3g
HJPyvnTsF9q7BQxtajvAXnWJ67/MQVi4HfjFq9MFhuKhleTqn6iUUw6oXNwL
W+WgxlYMQIq/5HeyVh/KVS4EBbv1QbTE7sjiB/3wE9Y4onuxBxwzi17RBgaw
V1G+VsXjG6YMSs2qJX9im5ZtxnRXK7qUzDdI+gwi0LmLWMb1BU5nBFZJdA/B
86+qLt+HBohE/DThFv0Ns4D1pwqufECWacLLcdc/WOrzzkl9w3ucUbujVVs6
jNLGOS2O9nx0/x1aSacPw/JQaq9dbj6ssvTa39UMYzapeWQkMB/2m8RsspuH
MeO4vuXYoXzc4yz1jhwcRoTHo0DZzDxkVc+UXVrOwNb5wIIW/zfg1nPew3mB
AblYOb49Z3IRwNM7O2PJgKol/4NxpVysLD9SNWHDAE065lOjYC7WK6w59duJ
gU/kopnWTznYKZjn9NmHgTT/oua9Wjk41zaa/iyDAf6OhdjHXlnINXOQ2D/L
QE64Kvt2UBqs8kdEEziZSP4mx8N1PA1Cy26K8PAysTjzy8In3jQ4F/0n8GUV
E53XF1wO+LzCfqEH81ekmVCR56ineaWCXpfU+dSQiZzSRz4u91PwVakjbDqV
CdL5SqlyfRJ8A00fmmcxkemyv44dmoS9A73+1W+Y+P7Xpo/HJAlRIYNej8qY
uCG/b2rJr0RcGB67JvOViQ8GD/cU8iViKH75ibMLTEgKuwu9yI8De4kmV9Fp
qi4s1tSrd46CIGtFBP0cAQcpo6lYsSjINXdubTAn8Cm4Moej5gnMntCOfr9C
4NDynDgPkSeo3JLkv9iTgPF2D8eT1Y/x8ACngGEKge1qCmdf7QtH6qbGBNN0
Av0aQ5/f/AlDxaKnitY5BFYq7fQ1ignDRK3CKddi6l9TmGSf5QjDudMWkXGf
CJhptkt5NodC8lr5RgZVhyYuh2T82RwMdYPAzAmq7tGsBZuEIoNgonRGfZ6D
hSX6Tn+clwUhYIZlvmopC1lhtfEDswEYuS/2XHkTCzat9iFXmQ9QEn9bxucY
C3I6Du5NPL5ou6ddHKzDwq7tj5SKQ3xAWq858cSABVpfqOugiA8k5DPt00xZ
UD2lcZxrlzf8CruzmxxZOCNys/ja9bswbFbdKxrFgn2qxlslUw8sUV1aUfKM
hfYBhT6BO+6oSO48cf45C30K5pBJ+Q8Krm6WMVksGDWZrls774oVmwqCRKpZ
2NggnyzUegsfHtwXLqpnwVB22SDP6lu4PXY6yaSJmp+r4+xho5tgVk8UPOli
gY93lXVqHw119rt+rBljYeWbw2Xa4k7wauO8lj/FgoJKcU7E+DXsO9jMNppj
4fOu5c7H0x2QstppRQQfibZHda0DO+zgU5ypIriJBHNl7z8FPxsc2Hq7Kncr
Ce4f4R8OXrPGeLDOSQNZEjdpL1y2nL8EK0vGpdA9JLQJ7yonHSsc5JMJXaFD
IsvvxlW5hfNgX2evzzIgkbxvTZ6eqimyu2pe6J4hseEUvcHI9yzEsm3eBVmR
+Op8h2ebpjHa1u09Kn+ZxMfEOFfuAiME31vc/NGBhI7bL9OBfacwezp5aIkb
iT2CO6UrbPSRV37jeponCc2NtLYkST3YyWjOavuQsDbmyeWKPoHO2f5V/iEk
3petYla2H8Ujm9zYbY9JJIU/Wa+ReBhaTV7StdHUeqeKldX9NFDwfJMabwo1
3r+zI10Gari2nKxJSSdhM8K94FWnAimXMsOjuSQCLvK4P/tvL3r6gnsG35IQ
0t1srG+9GxHHL1z2LSGhnxPmV+ivAJ08+fGtdBLiKsrrhj/LgUts9nZVDYmH
ZqyP2hzSKPb7yHepkYSYRLnKp2QJ0Eajw7laSDR17mZfdReFrOlVsecdJO77
tzm5R65Ff5XKK41eElEByurHYwQQtYNfaeAHCZ7gg1kvhXihH9VRdvcPiVkr
bfFToXPqfItStcVJEtcPiX2RSh5RL7dz+fp+gkRug9ixv9E96s6tR80tZkjc
SPmV9SyhVH0H1g4vLFD3xTfGT5eYPfA/o9P15g==
           "]]}, Annotation[#, "Charting`Private`Tag$517424#2"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6], 
           Dashing[{Small, Small}]], 
          LineBox[CompressedData["
1:eJwV1nk4Vev3AHAqQ4jIlPgarkqokESDpUKI6kopLhlSUukmRTTIlTQoGYpy
JS4qisw0LJWQjkLm+ewzOOeY4pyzDxr89u+P/ezn8+z1rOfd715rvVvX75Rr
wDwxMTE6df3/fQ2o8ubmJlCUUVeofzPZ+tTMH3EzsxO4t/z6rpZvIVBUYrqC
L5zA0i6PfMuv0WBm4OLHHpnAU1a2x+3rEmGDYkwPrXMC463MdseWZoENY7Ix
rXACYx7N0ozuFoPrtab8dYcmcLjwZ3Gn03sI+xpz8ujbcQx/tdwsFVugrU2W
9853DMcP56hWO9FBq+aU8gbNUVxrMMhrVeQATWl96Ea1URx5x0/wM+RARMDs
ty1Ko2jvkNhPbONAh8zVJFvpUZQ7sfds2RkOJOx7oOQqGEFVB7ORrDYOzB+p
XXySNoJmKrWuj5O4wFXRWJR9YQSDNOz1QXIEyo7XSij08/BTnPmx+2/HwFIn
2DS3k4fmH4uEBu1jUN2m5rWllYdbs/vh6cgY1Gw5Xnq8nod6I2bLzqmPQ6OC
kn/DSx5e27h299bT4zBUcqjmSiwPV3jerMjUngCZn7MRgrU87Bj0mGza8B18
bpl+747m4raZGfPs4EmIKE2MbbrIxRsfnjaZh01CSh9f8104F8XfLtqOlyeh
0bjc8UkwFy+2pn16mzAJ65o2Zp/z4GKpn/vJwOJJkJS33b/EjIvOgQrORwWT
UHBn/2tnOgcnHZ/v1DozBXUVFa42fRxM9JazbIqYAvqgOnddJwePLvtrzbno
KVA16VVZ1sTBSs2z1iV3p+By86FT3EoO/lqhp9xTOAWuisf0YhM4uCZLobWX
NwXTiZFxCBycCw25WOXJh2HNdzz7jVT+kL4T2v586MiVdPlizkGBR+rhi0F8
KKm+q9i/ioPLD1qG6p7nQzCR92B2CQd1JCPsZe7xgWHaVrCeM4zzZ2WdfL7w
4UuzcUt+wjAek3gaYGglgNceIevW3RxGXPmmNxkEkM+sSKm+Oozf0suTRHYC
iJve5vEpYhiNRm8257gKYLvOQQb78DA+0NAtyjkugMpTV4W6VsM4HP8rzTxd
ANnyA0tT6Wy0uPGm6KFIAImeIGXVx8aEbP/T0z8FEP0kU9Ddwcanb6T5LvOE
4LfN/+syGhv/Pqptw5ATgt45Tsyjcja+qjQ0rdAVQlb/1ETuTTaWx2uMSjgJ
IbNAqq5sPRu/9wYWOaUIIWEmsGS/CRvnjwb1v08TQpR9Y6bIkI337g+Lm2cI
wWfoVqSVDhuzzHUsxfOEoK2sZPpGho25zzde31EphIxIzfTaQRZWdpzddLVb
COlOpiHfrrNwcFD+c7MqCfqyTo3NMSx8O2V8YrUGCfmf/fS+XGbhUV+RVowW
CdXOya0NZ1n4wl29SlufhO5dIrO3vixs+bJJoGBKgureN/wnViz8oZVY0u5I
QsaSjp255iz8neQg0eZMwvK28ezstdTzyPqLtN0kmO/TcctYzsIzeTmc/H0k
uLr/U5qkyEK9pGSavi8Jdzwdz17iMnGR4OM8sTAqv6ZfUySTiRomHUcen6fy
90UsPz/IxJ2CRqktF0h44VXQfqadiVUaXAn/KyTQDilYHHvHxCjJp0uDbpIg
fbid3JvGxO0JNW0BGSQk6I/v+jOZiVbCkYL8TBLUWJJ5u+4w8dq0WtdIFgkr
jli6O15lYvHgtLFnHgl2gQ8rrE8z8X/ud0TCQhKiT/iGr3JkYrNOqp1WDQkD
t73Tq7czcWv+SWOz9yRsfOlZs9OaieuSuVE2tSRMCfdJB69jonPx0HnHBhJ8
LzulFmsx0T5Ut1+umYTXj3e83q7OxPwdl/3GWkhQr7UdalNi4o+eh/7130ho
lgYDkRQTZUO0ho52kmCTuK5y0xQDeeX3+R4DJKSXmvTRRhl4e8AmTmqIhOmO
1WLewwy8sfJd7nM6CUXLDByi+hhoumtvHJtJgnaOZldtHQNXb1+iIDtCwu8K
iWmXh1T8mYIyHZIEj555moMpDMwKWP/qiIiE8p9z8HcCAwc21R3JnSYheOvs
tcSrDLz6UbZC6QcJ/Y3jap2nGHgqK/LkozkSLMdGNgUGMbBYJq2tWEwEyQrc
QzOHGXi9smMCxUXg7MbIW+bBwAwVdKyfL4LX/Z0bfGwZuM8w7fUNKRGoi7V7
TlozUFVZnjwuLYJQvdbL0VYMbPnv1aT9QhEYH6XV/7eGgaMjNAuejAjirn8a
Wb+KgU+qy/8plhUBM79Oof4PBqr4stJC5USQ/r3GnavOwMIArVXsRSKYVnob
GbGEgZv7CnJS5EXgtv7VI1l5Bhp7xk9ZK4hALqJsePV8Bo5kuSy4vFgEgenF
sviLQM2YEpqKoghq3xau3TNNoF/GuRO5lCPnPwsLGSOQ/0LHqkxJBMFp3pI+
HAKX27/fYLREBH5rl6S4MAh8QnoMPKTs5Hmh2KCbwOb41atOKovAetJkq2ob
gbeP2TU3UTa9xvo6/yuBNIfFy1epUPtRsmtsoJbAuR8R/V8pyznOv0BDAuU+
Tm9fpiqCuYEKmepqAhsiWV6+lKdCT6TllRH4QaPIOIsyW0bXIKWIwBvp9S/7
KfdktpdH5xOY8+PB+BI1ETRZ3LD7O5fALLM0pi3lGpp1m9djAhU2m6b8TbnU
j++3M53AMKVW8fuUn0znTVreJ/BoEc+okvLD239FrUgkMHAxT7mN8m19RQXl
eAIlV8NbHuXo6o//iscR2Cp2cNVPyuf2RBhPRBPoFpvrLq0ugiD2mld9FwnU
qLznpEDZ+wLDsTGcwMKE1PmKlP9USu2qOEOtT2ZZzCLKtk+cj+YEExihE9+0
gLKltTiZeIx6f5oXnaTyG7eVxUQdJlBV5mcNg7JOUNCS4EMETrZ2nPxMWVlM
O8vTg0Cmrhf3OWWpe99MHPcReH7yl/lNyrNGcWixh8Ctmw1c/SmPv9u8S38n
gfU/nbZZUCbcJ/sU7QlMWt0uuYBy+1jO8TkbAi0+rX9Mo/a34R+P2dFNBG5u
7FVKoPx6qcL1HgsCjYwsvHZRLir8oNZgSmAqu+SKFOX/7MJzy4wJlBZ9uPKK
+r43T9M/JOgRaCjurqFM+ZLUPddLWgSSExVllVR9hPzrRD+uTuC01lGzA5Q9
PpX8tpcn8LPuifZrVH3tOhQYb76QwMrRR7/VKG8VamrqLSBwEb1fPpuqTwPd
WKtfM3RcamLOe0rVr2bFxgaegI6cy4aVyykruEzs75qg4x4GOySdqn8y/EBo
CYuOql9PlkZQ/VHbbFh4rIWOrY8778xS/VV5ZHCLO42OxULdURfK+T+TaLb1
dIwzfWaTTvVjosEvrvYbOrrtNOlaRfWrb9RX/Y4ndMwJtuBKU/2+v/uRdX82
HTeYmB23lKT6w+zvA8wMOpb6p+j5S4jAnLn41lQyHbdpzFg8o+aFtIMrX/4K
HRMfSGrOUfPmV6beItULdDxQI39KmvLUzNQKrTA6Vu10nrfoNwm9+UkeRifp
+L/4L+NSP6nzQqH93Y6DdAy+UyPxkZpv2YE5vbvc6Pi93DbqCTX/Ut+dFe7b
Tcc3G2h214QkXDmjuuqwHR1lwLnCgk+CW6d7QpQpHSOs6Ae9xkn4kdHjXbWQ
jqIY1udGBgnfRc/CaxbQMTquKNWfIIG5JzKxfm4IkaZRJ6Lm85d5mnXtwiFU
UTR3UKLmd9YRr9VT9CFc6e2ksLiLBIc1Qz8Mq4fQ6eWtzrWfSUh5w0pNDxrC
0+f+rV34ggTv8AeXNgQMoZVyuxE7nwSDdbsPtx4awjKLKbc3T6nz+knlWul9
Q5gZ+4HvmUOdT0k3687AEFa9Ukj2SCdhZZCpwEl5CD3qq+je10kIWT2bMRU5
iPfrXtTeOUTCgmz/IIPTg+h2clNN/V8k3FNvWu99ZBBVL9NLZw+S8Gp+Ju3T
nkG84eOT8KcbFd9jN5u5fBDzYs7ZfHCg4mPv7tv9dQAF/56SqjSh1jNoIFeg
N4Abwya2838K4cJm8ecP1Adw0NdqccOMELakdbtclx/AkpqFBamkEGpcb9w5
MtuPEWNd7qu/C6H+44iSbms/6l8NztNnCKEt/8XSe1f68UG1n49zgxDGw8xX
Rg314cyzr9I37gjhj8U229wyevHEQnwhpySE2yb0iKCkXpR6cz82dpEQpvdE
l0TF9WLz2rbeH9JCoN2t1X8e0otC5XSJ7jkBhC5xlJLc0YtNRn5xXmMCqFN1
pVVM9KDK77SehHoBBGkd3r9saw/21O80eR4ugGLDuCCC0YXsWLcUHer/U7vF
p8qouwvvHe9enNXAh1thVtJnv3Rhxfmnj7U/8CGglpcjVdWFz/xGFypU8kHd
24VufLsLzdLs9fExHy7eVToQZtmFXQb3ZgNC+eAwnW4nF9+JYnvH57pV+TD4
8aWOhUUH7u5gz1XtmQKWcYoZln/D3MeMmMDq76B46anFGvEW7Er9XCCWNQbG
FhPGOXwa3hoP4E/UcOEf27HmqvB6DAywuPRhOwtU3F4kHFR7j7H5vi0rHw1B
MflRoUG/GvfP++Yju7ULcnpZ8dyYF5hgFZKQHE0Drz81S3v9kzFT4+3W58tK
YJPE2rwhli2KiUmpRd/3h/8Dheez5g==
           "]], 
          LineBox[CompressedData["
1:eJwV1nk8VP/3B/CJtCBbpJR8s5WlqEhIp5QlZMtSkrTQhugjtCBJkSz1kaTF
HpUs1SeJnGTN0iJljZk7MxjF0MzcyZbf/f1xH/fxfNzH4977ft9zXueuOnza
2UeERqMNU8f/n43E9PLp7J1AuySlePnOETQk5qyM2lsMae/Ek+stW1FtrGLC
5H05bEv7n+2lwQ7cldPVar/3PfSYz1h6dNLRYrecqOC/BhCdkT3pFMrGpIMd
l/TLWmDMwGcfM5mDDfbKixzlvsCT0rUFthUjOLJKIaIt/St8tap7m5M/hmeD
dQ4lLfkOv8/W7Ssz+40dvTLOvo2dsMKwPoj2joc28T6dwW2doKdtmbqujoeV
xm+8ons7oVlmvfW+Jh5mph45lTnWCdrepfa57Tw87vjqSvfSLjhRDyjD4eFk
zf4y+xNdEJFfKtguy8cVTx+tMBLvBvegrrEpLz4m7pvKtpDvhrj8wUXlR/hI
W+Co5bKyGx6bFsWfOc5H1tEJw6AN3bBe52NOdxAfn620c3jq0Q1WA1tUIq/w
ceut8SiVp93gUsNbuPQxH73PbRmcb9cDKz6+Gozk8lH7aOO3UbceOOv30USV
z0eevUvtt0M90LUuWvHdHz5eVffLygntgcrfeb6jcwRY+OnefsjpgQumM1oK
8gKc0Jj6FDLZA42Cva/ijAR4q638NbugF0INyECRCwL0fGuR3/KiF0Ki5GPk
IgWoUfDl9ouqXpC53sdRjhbg63DOmaj2Xpib5f5QM16AfWuWrVWm/YDoJ+JR
s+kC1I4My3Jx/wGfHLsftpYLsEbH6HqNWB8Eyzo1fOQJ0EvPJWdcug8e5lb/
FBcK8M+GoEoVpT64xOc0mk8KUNfk6eiFdX0QuiE1P49GYoq1yh4D9z4omW1u
NVpEoq/P/BV5BX2wKkft3A0NEhdkdDy7atsP63SNV484k5idza9/6doP8VWi
KQ9cSdzySJZOHOyH1fZa8bv2khj4zFYOgvthU2u5XMoBErsqMER4vx+U1A56
8Y6R+KQzH46P9kPL+Pqcrgskai6sHMq1poO2cVGVSSaJvxvWnczeTYddcmrS
DtkkVl3N+pnhTAdBbwXHK5dEt7nXRtM96RBgyjQKKiAxZtaJnxxIh8CWj7Le
JSSyBIOzF9PowHpjed0HSSx56RF1/gEdPu/R6FpfTeLFf1pFwrLpsLvE4f7E
exLlx5+L/VNIh9MFsucv1JO441e4xIl3dPi1U8bfupVaL7FY0XWIDsInGrNi
3SQGZF1Ncx6hA1vt52hsD4km3hPLHH/TwXeDutn8HyS2/ehbYTtNh/tzL3AF
/STO6Xqsul2GASfWRsXcY5PYcmdF7lYFBviLPDafGCAxzS1JY4sSA0Td9u5x
HiJRvz14jZE6A076d5wgh0n0/gTr1m5mQJGkssW8MRJ1E58Xa5sx4EuMZdjW
cRL/2GmsX2POgHhfCX7QbxKTmsQN1OwYsGPPODbxqf2r+2a8zJsB+nG8yzsm
SFSuPGUhFssAN+bfaMc5QpRfNjkZkMAAzwrmEUcRIUqGxJZ03mJAqZ/nAxtR
IU7r5S0vfMCAo6qyS9aJCbE7p2/c+QX1fNuqkZIFQmyj+edXvmaAhnfYieiF
QvxwYMpTs4oBkr3f9B3FhfhacWnjRCMDHny5fK9TQoip8U4PM/sY0KDRU5wr
JcTEof494ixqP4YG3HdJCzHGImBhMIcB/Zl5ZkOUg2evB1vxGWD/ZkeFvKwQ
/TyXaZdOMKD37yOHbMpHyvP7lWap9dDqlLTlhOj8T63N6EICjOYY269ZLESb
z860vdIE6LLkXjykvH0t479qeQL0bYutpOWFuPn66VM6SgQsXOMofp6y/uDM
/26rEBDpZzTRR3nNzhvf/6oT4CmeL7dVQYgqWUo3jmsTcIxHd7lDWWq/kdDU
kADNgAq7zUuEOO91XWGeCQF+zP6/kZRn5F0OS28jgHbqe1s1ZX4QoXjOgoAC
kl4/Q/nXx8BWwoYAvbDtXRsVhcjSmb1s50jAAYbxgqOUe2ITNr9yJUCoJumc
SLmNvXxUZT8BH9ZPvnxOucn8SU6cNwF3pi30vlB+n7F5H8+HWm/IeuRQLp+u
lzpwigCH5L+HpymX7HOtrQ8koHELd+nCpUIseMU8px9CgLe/Rb805czFZ/TS
LxDQt3jHSxnKaYE0tmgUAeKq2qkSlJNbE9P9rxLwNG5LNI3yNW1lx454Aq5v
qTzHpe4fce2p2PabBATq/gztpBzCMq54kkqAmq3ExQrKAdsbA+XvE+B/3etK
GmXfh26aEVkEKPZqJp2m7DXF6hl8RABr/aP0bZRd9/5z06mQgIzwlXkSlO3+
m2NVUUqAXOmXws/U/u2US55WLyNApGpOSRLlLadXPk+sJMAkdazQmvLGlsJj
f6oJiNChZ01R30tby1T5cAMB6aflEgooq1790NbcQoCzywc/B8pKTPdYwzYC
gpotYYz6/rLbBswyOgioqm8RiadMmxR5fIYgYK7spGsRVU/ezC5e5CBVL9Gy
4kD5XUvJ1oRfBGg/3BjURNXjpQyv9nySgBqrEecvVL3SYw1V/psi4GZKcZMd
5W1nJE++pzFhh1gb972MEGd3vpntFWeC7McbWzKo+vdad9NmWJoJC1kOh8Qo
Vykevy2UZ0Lm3ca1vlT/RAwr6MipMMHjoP5rxUVC/JsU5Ga1kQkyZXqnTKj+
8zpnneWymQl/dMi8s1R/Vh1W+XXIjAnDRsrhT6n+jTBsjbpoxYTHycTkvPlU
vXaveVa6nwkp+ZmS4VT/e9bOCqu8mdC36b1IApUPlc++m7f4MOGhCzfuDpUf
Fy9d6Rw4zQTLsmqL+7MkTmvQRVdcYYLuhQe2R6dI9JQus9eKY4I1PSjbepLE
yj8JdzclMmFX83TEaiqPLjab6jmlMeFdUXxNO0niVOAdj6uFTAhYxHIeofJt
ssK+dKydel/jDbsVBkn0yNOYnuliwuzFf1yzqDx9kzhtKdFPvZ9BdctqFonn
Dj3p1eAw4V5Eh4g6g8rHefMW7J9hwvpeC58uKr+FTm+96jRY0PWpt24Tle+X
u4p/bNVhwa9LhRvMm0mUOpTt+VqfBfOnDkxZfqDmU+A1j6emLBA7qn93Sx2J
LolObjedWPCucll7RyU1X5rYuw+Es+C4psGLlifUPHTubPl+mQV/T3wS86fm
U0NXk61jLAt2/Qi+M+8RiX1Dxbt2/MuCdL+CQI0sEiXnn7fQeswCJmNzo+wd
Ek/skDITtLPAptYgLCeKRH4TrTKgmwUjc1WZ3yNIvOTMMxnqZwG3Z3ug6EVq
fhzq3NwzzIICXybHKoTE+shsg2oaGwqzDdZEnCRRtXKTboIuG9ScLcweOpHY
Y3BwucYVNuSHtWhnKlHzfsJQOiaODdMVSkliiiSOvZUUZSeyQeLaNeWji0mc
a/VmOPcuGxoGOaWSkiSu26fwRr2YDW2mUnESMwK8FN68V72bDTMBr89U/RCg
Zr1Rqpr+AEzNf2Y+cleAJdelrkcbDsCptaX3g28L0MSBHc40GQCVELNhfrIA
HTpv+eRYDEBd7vJ99GsCDBseMVDbPwBa/dpuh88KsFkq96vq1QH4uyDMQdZB
gIHuMrKqvQNwxGhwt/QMHw8X6KVrMAagbbLVQor6P3OdsFfTGhgAfrvir3k8
PprcSzDUHxsAzg+brewhPor1i3tsnTsIZ14db3Nt52O6r1iOh+4gBK9yjxZ7
wsfas5MG/14chKjue263Hfn4qn5ZVWrUIEifV/BrsOHjY0Vjq/Srg9D6MluU
t5P6Hy0P3ZeVPAj+kgEvNhnzcd8MP7w4dxBWvxbhnl7Fx9Er3PrmlkEYzxRm
FIzxcFkKa+9c5SFY/aLQSOs6DzdHqywJVh2Cg9mCmxOXeeh2xuMrc/UQ6KXK
LXl/gYe3HD/vrtkwBO0jr1NM/XkouajS/LL1EFgtsjH57MDDvzH/6tKCh2B9
wuJ7EYt5yAo1p003DcGcFK47M+U3Fu3PzOeFccD6mw7rROQ4GnSoTc6L4ECA
cVTQ15BxrHDOt1OK5sASY2aDYcA4Nu4qGt+WwIFT6lJNLM9xZBpVmiZmcWDr
gYapn8bjuFS+89OaJg6UD839+uD3GF5ukf5zYPkwbBhLM4/xGkN3s0jrxrfD
cF9B7pTGtlHsFQxIv38/DF7FwfeKdUbxcJF9R0XDMMhuXmamoziKfiorfYu/
DMN5H5cP5MgIXp7zNjqVPQwyHh/K+9JHsKhusuroop9gNOF1nzv+C+fahxjO
OfATRmNqzorc/omlXv6qJtM/4fCNOrZL0RD+Ed8hWu46AntFaCmJSQx0/mK6
STltFGJvJ2nWln1FcVOJ6soHo9B8mqloGPAVq3O7bT1zRuGY0vKIC+pfUT/s
3KF7RaPw4Dw/Lja5DaVUym4sqxsFtYyY2mzfL/jBbwNT4fcofPd79CNL4SNu
W6CVLGXHhRtL9zS/8anFP0F/lIqcuOBkl5LR01CDxT0NebvduVBae/VEnlYN
riz2rbhxmAuOZdMZG39V47Rr7oD4OS4ErNlQE9RdhWU5KmbzH3EhwnFU4fnb
lxiwiNvw6CkXXFLHW0VDX6BmaJWzZSkX6Au2h+fpPccUmwPHYyq5UF0ZHldi
VoxnxtP/Ff3KBXWHlUvHOLmovf/kypxO6vqxu5o3nLKRUWv82LyPC59mdA/e
OJ2BjmmdVVEcLoSOLQnQpN3GBSIFu1ZxuRArJWSkxiYhngptf8fngk34PY6L
RAyGfLM86D3JhYRJld8SsmdxHSwZnp3lgvBhfbF6fErV/wFAYO8L
           "]]}, Annotation[#, "Charting`Private`Tag$517424#3"]& ], 
        TagBox[{
          Directive[
           Opacity[1.], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6], 
           Dashing[{Small, Small}]], 
          LineBox[CompressedData["
1:eJwV0mk4FHobBnBRBzPzRzrRghRJKgxS6sSgVCpSaY/ojbKkpFJJNSRyyB4Z
IclSCQ2yPg+RwYw9LVK20diGooXEmffDc93X79t93dez1NFjz0lxMTGxO6L7
f2qbKAzMzIwAJ9yuYmZGmeExoRY4MTkCTtnTA5++KjOyX9A1xr6PQMjlsh3Y
o8zQ09zl2Dc4Ap7UhLygamXGurn+H7hvRyB5TZvWurvKDEbP19q45yPg47o+
fkpFmbHnNu+Jvv0I6PJKIukMJcalBn935zIhJGpW9ZgHLWK0tlIHyh2GIcbr
a4HMqAJDGT3+Xqc0BH2JRwMjCucx8lwr58h2DECRpTnvTr4c4/i/9NH3zH7w
V5gXf0qfyvgVcTUQTATwQvKHvm3WHEaKzKeFsV194KdG1+uREGOwLOmeLUF8
ePTzo0FM8HcTppuD98rtvcC+w5vQfSowuSqReclzuBuqDz/le9dWmzjcaFBv
S++Cc3sjmRcKWyG6lB/LcukEs1ttTuKm/VD0WZP2dNknkF9QfNtecRzU5Bhm
+x60w9opH7fCK5OQqxXo0t3zDtLLfy/VOyGGn6tyVA0N20BjFX1Bm6YE8ldH
60F+C+xIeUIbujAH5/pmGGrPagJfWgvdN1USA/I1OXI/G8H3rtd3yjNJnBSm
HRobaoT87rkbItmS2G3/2Oflu0ZY+MvEIuaVJOaaplSYZTdCa+dpF6cuSdwz
J8HqgH0jMDPGu7SVpHDFwqU8sasN4K7YF3I8VApXG46sTh3jQsnJ9e8tTkqj
k/b164UdXGiYMlm2yU0aEzVkm3nVXCgee6OmfV4a5RV1Lv2I58LwzNPdYjel
8efPM+VbN3PBO0LS5iRLGisKhbYDUXVQmnRmiN4sjQc3CX11DGsh9vjs0DdG
FIxY69tkrloLtYK3gmUMCtatkVE/SKmFTY1GUy4WFDRW0a658akG7pam7xzc
Q0G1Gfd5zQE10C6vH/XUlYJCHE7zessBiccTpXQWBf02DzcWelfDkbNWPhYT
FKzYNmRtcKIayrecS2+cpqDYrsH6rF3VoKDeV2o7m4o+tv3clGXVQPtT9Wi3
LBUvOvE5IdzXUL7EzlF6ORVPBXagg+prGNYcZQVYU3Enl5ctzamE+1vjZbOT
qHinkavjn1sJgdtnTt5LpSKntS5rmlUJsfvyUi9nUnFLR83TsXOVYHBbsUub
TUVjYVV6x+JKWH6MvfVoNRV15cqScjxegT/XurViiIrz92WFHVKsAMt8Mlim
T8NcjeCiLRIVsFZ32KJoHQ13Tzj30kfKwb9Ebm3ORhreebB0PaW6HL4RdU64
OQ2nBVGfiy6Wg3nE1RrlvTTsu3ZVW6kNwXO5cL3DORqesQ6PLV0JUHK2qzY6
k4bp45ZD0bMAZluYe0hk0bA7bjbjzPsyGFvTn+qWQ8P9vZe+qASVQbPhrFr6
SxqaXLYzvCEohdsrHYcDqmgol7Kq1SytBPbFfUk6+lnU90eVLEe9CP5KFCvO
kyUYmvmwwniiEHysE91a5Am62l2/kMcrhB7O7f7B+QTVX69vf3ixEMznG24h
SgRjop88vsZ5Ccx5Uv5zNQleMQjfpO9WAA6ZN5eomhDcL3AfzWAUQG9Xya0B
U4L6LMsU1fkFsL3XtOD5ZoJDErOlZcryQd10pY+WJUG7loutAtl88LZzD+na
R9DM86jrgxds8DOo49meJqiiYaQyP5ANU+MPBVxXgr/fz28KPsoGV9/KeuMz
BNmmDYaX57ChfaB3Sv48QY25ZuL7DrwAnZXxnT4+BCnZK+Kkf+dAs3FH1f5Q
gqnt/JB+/yyQ4hVIqmUR/OCjkJignwV+Uw97W58TlFHZmm3T/QyU+bXrmDkE
Lx5Pby40eQYDo42MBjZBC76L4p3JJ1DUktehV0xQIBxJ0jqbAdGfu81Uqwkq
hanmflLJgN76OL8gDsHddJtXEbx0mOcTskFYQ/Dl+Vz+pFY6BEutomZyCQb9
8tKq4z+GzGHjdYNNBLXEJ1+4HnkE97/XFEW2i/ZJ0apaQnkEtOSd9uyPBCM2
H2lreZkCYnK0K40dBCcDSn5tVEiBA4tM5X9/JlhHvb6J1pQMgmk/3sJegmLP
nlvh9WSghQ6pKfAJGlh12ntpJ8Pgx/BR0keQFWbK/BicBI4pEUMjXwi+05IK
PRTyAAok3T2uDRJkuJ/OLh9IALxYfMl2iGD689rmldsSgJds8UNzmOBlgxDF
SXEWrNCct79CSHCRsXzyfe84+KpyK6nsK0HmjfOvxNti4YJT4WHPbwQHK1r5
LvqxMHBaK3jpGMGSrfe0NgpjoOtFhZXnOMFjNkrs9hNR8ESRe7zjh+hfxr4b
XaiMBHb/XEmXnwR9YhpAZnkkmFRX7P4mMqudWWfaFw59zf+r//6L4Grfozbt
FuEwuWa/+LkJgsWqhm+90sIgzDn3/ReR2XXNVdZNoWAR9cSTM0mwVS6giRkR
As6Htxno/SY4ZmvUkbf3X5AYtY67J7JeZ+L44rYgqJ2VtMt2iqDN8r1i1vcC
YfyMgPVM5LMuf9GYB28DixV/d9Yfgs/H3dQEH/zhfKSZPUvkeiNVncUsP3is
avhPj8hC35YNVseYsDczqmT5NEFSGWBxU+UmBOnadZ4Q+aC816NTcB3MmiLS
EkS+x/pQXG96DS6/o8u3iNymYdpiUHkF9Mo2qs6eIfh3TtrAfQtvcDfMadIV
ee9GGfFZNRdAOyFM45DIEVVeC513nAeP5naVayI3Wrfr8nhnQd8qsoglsgrb
L8wpyQ2uSGVPFIgcz9kNeqnO8I/Dxo/1Ii/oUBZOZzhCyEsdxy6RV/W8MYo5
dgQOh0YFj4isQTt7T9vZBjKYxw9OiGw0Ryetk78ZWheXxv0R+T/XgZao
           "]], 
          LineBox[CompressedData["
1:eJwV03k0lO0bB3CFhjHP/ESoyRAV0WIJpeh6ypKWEd4sR4WWsUs5hEgGJZL9
lezK8hJGlhclc9sOWcoa2SokEUOWkOX3vH/c5z6fc75/XPd13ZfMNVcT5mYe
Hp6HxPnv1uRXyv7yTRe6dr59traBIZ8Y/SYnNRvoM06dHCe87uedmKrEhMP3
fob1EvZ3zHPuVHSEbdnP22sJ85p91ibJucKdiPqKXMK1u0KCk4Xd4C9xc70n
hIPiZG8dCXeH6usMdyfC+pRKi3YhT0jreaWvR5gUYHrSKcQbqGfvV9IIN/6e
VuAn+cLq3YruyXUMhbo8EkkN8gN7qyvR5YSzZiPvSbL8wXLU6Zc/YTs7Rdt/
1wMAzTUl8RE2kPW0DNQOAm1j2nfOGob2DdYaGvk+gMMvu7ruEJ4wuXJkYjkY
itxCE3pWMdSE5e4vOxoC6g8fuLEIv2xclA7yDAUly8kpOcLOJyIFpBbCgNP0
+/2NPxhiLA+sThwOB/0HKWprKxg6VKIwW+YWAYazbO0owkuxX3/uW4qEOVPR
Y3nLGKog+3TXeMTA2aSB/vzfGEo7KNbJlo0F7XySgwThh0bstqQPsXDKUrzL
ZxFDF+NGmu8oxMGm5SEd9QUMzcicr1EcjAf+LfRQx18Y6tEd40iEPoOd7cwt
L2cxVGXn/5bvSALoMKNtxmYw9Di/pHwoMhF68uIKGFwMyWnS2dG6KaAwe+7V
0CSGKJfL8u7PpgAztkhycQJDc37Guc4pqeC2sMoUIGwzXGOy2zcNzgxpRdPH
ifft+81Y604HVaaDMXkUQ++KrXVfhWQAx87DcaoPQ1r1B2rlv2QAT7pESdEn
DBV+XD6ZopEJWpnJ/W69GIpbjoHHI5nA13yxbqQbQzeg8RhTOxtMhl1Xg9sw
tNGkrLJjNgd+jliQ+uow5Dawxo44nQtDDRpKjFoMjU01HdqSkgtxDktqb6ox
1CLMPDB39iUk9Mj1BVdhKMHsmXxrRh5EOis/HinDkPrwJimWBRt0fRaDM3KI
+l+bzyrnsGH8mfW/37KJfkTn131ZZoOlwzVn2SwMCaXnqacxCoGxVd01/DmG
Vo0sBjamC2HfQ2qbciKGBgvZChyVIlgRjl5PeYyhviRLUQnLIjAUjsuKD8HQ
x0f8azcDisCfc/jjk2AMvbe51CbVWQTkvVotjoHEfIRJnn7uxVBFY4ly72Io
9ZZVnXZZCVBf9FNlHDCUdFmw4O/PJRASeFe50xZD8QYlT6dIpbBFpPiT/w0M
Re4iOyVblMKPo7M1762J/Wsr3bq2XArGuekzamYYuqqMWVdqlcGEame54ikM
7Z55s3yspgJaK71W34hjyLdVJ2h+qgJoQe6u6aJEvbnN1IIdryGDoficJUzs
F7N/t8zt1xAzVquvSib+W98Kg7TrDXQcYIddXKOgqnrN5533KsGBaiuUPExB
lollZ501OSChYNqlnUNBJV7QvZfJAVuFqBM+mRRENWuw/hzJgeL9wfbF6RRU
LdzjbjLOgSyN9D+iCRS0TcfnQtI5BJU2T6TiQinIpzzBO2AFQRpZ3zzFkYLO
vPjUamhRAzylR2Or5Cho5kGBbb1LDTSOszPtZSko3j5w43hgDVw0CszGpCho
/OBBFYWCGliqPOFrIEZBj8r9Y3n5aqFJQMCRxUtBja3yl8rZtZDoPGrG81kI
nV7yGJch1cMOuzoP1WghpMcQ4V0obYCdsjKNdj/IKPyq4OzyuwboKaqIPDRK
Rr0ePJ/XBxsg10n+18wQGTmmTL8W2NIIceYB9+27iDy3yU3SrBEkxTXqZDlE
PipwWGexETSU/l6ojSHyH+erozWaoOiDylK5JhlFWPf4K5e1ALlp1NfFSxA9
/KkFYy0tMBdpExZ1WxD5eT9fSxxuAdkV3ZuFjoLoZozLXRK1FZjFp3OGLgsi
wwZe96EbrdBSrba6igsiqpKyXZjIezjCyBc7KSCIwtcfMcZdPkCL1HaJ79EC
qMGQjhmJtINEftdfufEkNCUj5teR0AksQVthSjg/8nDffzVC/CNcMctTzTzN
i3oGhE1sG3thcuREjgqLB9l4a30nne8HZs6iuunJP5za/UdCa/mHgLqpY775
+jxHTrByPMPgC8jnDgayGiY49EonPf5HX+GYylHK7W89HJ6VzTluw8NwKcVE
L5FVD7+N31rV7x2Fw9J3ReilY9CvZr1zb9A32JDnv//UZgFumQtvlR0YA9MD
KU8H+zdgR+yoBR99HDSk2eYlNH684FJa9pzXDyhzSQ6mkIRwc+37Bo1vJ4Da
Ve816CyMv7JykT22OgkGUYOFZY6i+BJZh7fCdApovvR1nnZx3KT9uAY9fhrI
iDmAydJw8nGh6srkaTi3bX77IRUaXp3Rd+7yi2mIebIkaYzTcGUv76uJBdNw
gXvdJ9WKhlOly8J21E+DlWtd1JVEGv7OWXVE7Nc0fLiat8dabCeOCyhEUs9z
gU94+4inkCS+dHuJVmDMhQ5+J+osTRJn9zdkMsy5kLtLbZOLoiQuxbZ9E3aN
C0H1+7Rdzkjiq6YZY2RvLjQ3J1IjgiXxshfS2qQsLhQ0/SNBNAK/iXEbsl5y
AbZavV4TpeNynlUm+q+48NU3ZE/Wbjoee/aK/YNKLujVnrqwcYqOu80mxPB2
ciGHAusdLDqueMlR6kUvF7J8MgfCo+j41zrNnFNDhP8XEMBIp+NG8b1VrB9c
6MlK3tOJ6LjA5n/OyHC5sJEzsCuhjY5znDy70DwXNDqiRq9/oeN3uvWtbVa4
4C391lV5ho4fAvGJjQ0uNEZZ1Wxs0PH/A77dGCo=
           "]]}, 
         Annotation[#, "Charting`Private`Tag$517424#4"]& ], {}}}, {}}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, 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]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{Automatic, Automatic}, {
       Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    TagBox[
     GridBox[{{
        FormBox[
         TemplateBox[{
          "\"position f(t,2.5)\"", "\"velocity f'(t,2.5)\"", 
           "\"acceleration f''(t,2.5)\"", "\"jerk f'''(t,2.5)\""}, 
          "LineLegend", DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                    "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}, {
        FormBox[
         TemplateBox[{
          "\"position f(t,2)\"", "\"velocity f'(t,2)\"", 
           "\"acceleration f''(t,2)\"", "\"jerk f'''(t,2)\""}, "LineLegend", 
          DisplayFunction -> (StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
               "Grid"], Alignment -> Left, AppearanceElements -> None, 
              ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
              "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
            FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
            False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm]}}, 
      GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.8764749296227503`*^9, 3.876477761791136*^9},
 CellLabel->
  "Out[581]=",ExpressionUUID->"7abc3af9-2f2d-4ea0-bed1-85626a51a299"]
}, Open  ]],

Cell[TextData[{
 "Using ",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", "<=", "p", "<=", "2.5"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "8878f2a6-c0ee-4ee7-9d0d-ed33a669559f"],
 " can shorten the robot motion time a little bit at the cost of increased \
maximum jerk hence increased robot vibrations at the beginning and at the end \
of the motion. I have decided not to implement this at the moment."
}], "Text",
 CellChangeTimes->{{3.876474942145796*^9, 
  3.876475081775316*^9}},ExpressionUUID->"e413813a-3d7c-466d-aa51-\
c35a5b0e578b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Rescaling function ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "7af094f0-6ce9-4b91-a107-9b4f07341241"],
 " for the particular motion parameters"
}], "Subsection",
 CellChangeTimes->{{3.876470301680915*^9, 3.876470311700412*^9}, {
  3.876470496516389*^9, 3.876470552179059*^9}, {3.876474568083473*^9, 
  3.8764745803584337`*^9}, {3.8764796070241756`*^9, 3.87647960926785*^9}, {
  3.8764893314847603`*^9, 3.876489335121046*^9}, {3.876490098579425*^9, 
  3.8764900995197363`*^9}},ExpressionUUID->"a490cf56-6946-4f9b-a744-\
1534ac205dec"],

Cell[CellGroupData[{

Cell["1. Motion time from the maximum velocity constraint", "Subsubsection",
 CellChangeTimes->{{3.876480462203548*^9, 3.87648046644376*^9}, 
   3.876489343312396*^9},ExpressionUUID->"34e38d7c-0eb6-40d1-a00b-\
ce1b74066565"],

Cell[TextData[{
 "Max velocity at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", "=", "0"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "9557d457-e72b-4cca-a928-a738a2e4df33"],
 ":"
}], "Text",
 CellChangeTimes->{{3.876479614580289*^9, 3.8764796202629957`*^9}, {
  3.876490140838936*^9, 
  3.8764901415507193`*^9}},ExpressionUUID->"7f3188fc-c38d-4145-922d-\
f63a1f360618"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"maxVelocity", "=", 
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", 
        RowBox[{"5", "/", "2"}]}], "]"}], ",", "x"}], "]"}], ",", 
    RowBox[{"x", "->", "0"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8764796249805613`*^9, 3.8764796522472897`*^9}, {
  3.8764796946247377`*^9, 3.8764796972100163`*^9}},
 CellLabel->
  "In[610]:=",ExpressionUUID->"8b1369cc-ceb0-4eee-bef5-4872ad63321e"],

Cell[BoxData[
 FractionBox["16", 
  RowBox[{"5", " ", "\[Pi]"}]]], "Output",
 CellChangeTimes->{{3.876479638640346*^9, 3.876479652730311*^9}, 
   3.8764796976719093`*^9, 3.8764803913010893`*^9},
 CellLabel->
  "Out[610]=",ExpressionUUID->"90888f4f-de6c-45c3-8fd9-6d6344ac5ef2"]
}, Open  ]],

Cell["\<\
With the given maximum robot velocity robotVmax the shortest motion time can \
be derived from the equation:\
\>", "Text",
 CellChangeTimes->{
  3.876489359531424*^9, {3.876490166124083*^9, 
   3.87649016718302*^9}},ExpressionUUID->"575b95e0-47df-48df-b598-\
9faf00536598"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"robotVmax", "==", 
    FractionBox[
     RowBox[{"2", "*", 
      FractionBox["16", 
       RowBox[{"5", "Pi"}]], "*", "motionRange"}], "time"]}], ",", "time"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.876480607201331*^9, 3.876480630650673*^9}, {
  3.8764809958012857`*^9, 3.876481009344718*^9}, {3.8764894307380133`*^9, 
  3.876489433586609*^9}},
 CellLabel->
  "In[746]:=",ExpressionUUID->"0798d170-6036-4630-ab8e-29edd09e2550"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"time", "\[Rule]", 
    FractionBox[
     RowBox[{"32", " ", "motionRange"}], 
     RowBox[{"5", " ", "\[Pi]", " ", "robotVmax"}]]}], "}"}], "}"}]], "Output",\

 CellChangeTimes->{3.8764806311230087`*^9, 3.876481009783637*^9, 
  3.8764894339754257`*^9},
 CellLabel->
  "Out[746]=",ExpressionUUID->"16897e76-048a-4799-8e0a-418193138c0c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2. Motion time from the maximum acceleration constraint", \
"Subsubsection",
 CellChangeTimes->{{3.8764804692696543`*^9, 3.8764804708269053`*^9}, 
   3.876489385049098*^9},ExpressionUUID->"b3b6ebf7-5d78-47c6-bcc9-\
3495a11e260c"],

Cell[TextData[{
 "Calculate max acceleration at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", "=", "2.5"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "860c993d-def8-4589-83d6-a6da50df7ff9"],
 ":"
}], "Text",
 CellChangeTimes->{{3.876470556447525*^9, 3.87647056416226*^9}, {
  3.8764709405144033`*^9, 3.876470940546754*^9}, {3.876474585655064*^9, 
  3.8764745869123583`*^9}},ExpressionUUID->"1bf79f49-a3f2-4b4d-9f99-\
5192f2e58189"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindMaximum", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"x", ",", 
         RowBox[{"5", "/", "2"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2"}], "}"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "<", "x", "<", "0"}]}], "}"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.876470796953726*^9, 3.876470821594056*^9}},
 CellLabel->
  "In[408]:=",ExpressionUUID->"8b71e788-7b34-4df5-8b1f-497378aed7c3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.6539866862653763`", ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"-", "0.5`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.876470822572104*^9},
 CellLabel->
  "Out[408]=",ExpressionUUID->"000dccf8-a221-4892-b54b-b69f4fd66f3f"]
}, Open  ]],

Cell[TextData[{
 "Maximum acceleration happens to be at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", "=", 
    RowBox[{"-", 
     FractionBox["1", "2"]}]}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "127298ce-2921-43ea-85be-061f0d41e157"]
}], "Text",
 CellChangeTimes->{{3.876470919616918*^9, 
  3.8764709515803556`*^9}},ExpressionUUID->"4e767e11-bbe4-417e-84bf-\
4beda8508aea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"maxAcceleration", "=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", 
       RowBox[{"5", "/", "2"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "2"}], "}"}]}], "]"}], "/.", 
   RowBox[{"x", "->", 
    RowBox[{
     RowBox[{"-", "1"}], "/", "2"}]}]}]}]], "Input",
 CellChangeTimes->{{3.876470847914667*^9, 3.8764708624748297`*^9}},
 CellLabel->
  "In[411]:=",ExpressionUUID->"c5310b02-f6e9-4911-8359-c4841dda4985"],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   SqrtBox["3"]}], "\[Pi]"]], "Output",
 CellChangeTimes->{{3.876470850445794*^9, 3.876470863602373*^9}},
 CellLabel->
  "Out[411]=",ExpressionUUID->"1c7bcb37-d223-4330-8689-aa3dbbfd79cc"]
}, Open  ]],

Cell["\<\
With the given maximum robot acceleration robotAmax the shortest motion time \
can be derived from the equation:\
\>", "Text",
 CellChangeTimes->{{3.876470989612647*^9, 3.876471126698608*^9}, {
   3.876473158735475*^9, 3.876473180007317*^9}, {3.876474604351009*^9, 
   3.876474611039736*^9}, 3.876489416375927*^9, {3.876490190013915*^9, 
   3.8764901908725033`*^9}},ExpressionUUID->"3c7e3252-2808-4bdd-b6c1-\
f2993ee2504e"],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"robotAmax", "=", 
    FractionBox[
     RowBox[{"4", 
      FractionBox[
       RowBox[{"3", 
        SqrtBox["3"]}], "\[Pi]"], "motionRange"}], 
     SuperscriptBox["time", "2"]]}], ","}], TraditionalForm]],
 FormatType->
  TraditionalForm,ExpressionUUID->"abbe966f-45c3-410d-8131-7df83845b0ba"]], \
"Text",
 CellChangeTimes->{{3.876471602165799*^9, 3.876471642901738*^9}, {
  3.876473305747364*^9, 3.876473329240768*^9}, {3.8764746312925253`*^9, 
  3.8764746437033663`*^9}, {3.876489426612936*^9, 
  3.8764894269019003`*^9}},ExpressionUUID->"527cd6d1-e999-4872-b3cb-\
22fee33ca4af"],

Cell[TextData[{
 "where ",
 Cell[BoxData[
  FormBox["time", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "9e5342bd-49e5-4ff0-aa6e-54f70c45ae4e"],
 " is the total duration of robot motion."
}], "Text",
 CellChangeTimes->{{3.876471697735869*^9, 3.876471711953184*^9}, {
  3.8764746461774282`*^9, 3.876474659771969*^9}, {3.876489438848555*^9, 
  3.87648943905529*^9}},ExpressionUUID->"ffd1973a-273b-425b-a3ef-\
a3f4660a87df"],

Cell[TextData[{
 "Let\[CloseCurlyQuote]s solve the equation and pick the solution where ",
 Cell[BoxData[
  FormBox[
   RowBox[{"time", ">", "0"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "de7983c5-e52e-461f-81da-2cfe82c82364"],
 ":"
}], "Text",
 CellChangeTimes->{{3.8764746725855703`*^9, 3.876474693877225*^9}, {
  3.8764894457911167`*^9, 
  3.876489446248405*^9}},ExpressionUUID->"60ad6511-d270-4956-9d21-\
2bc3aaac07ad"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"robotAmax", "==", 
    FractionBox[
     RowBox[{"4", "*", 
      FractionBox[
       RowBox[{"3", 
        SqrtBox["3"]}], "\[Pi]"], "motionRange"}], 
     RowBox[{"time", "^", "2"}]]}], ",", "time"}], "]"}]], "Input",
 CellChangeTimes->{{3.876471646894107*^9, 3.876471728599072*^9}, {
  3.876473346709875*^9, 3.876473348173245*^9}, {3.87648945213498*^9, 
  3.8764894556957207`*^9}},
 CellLabel->
  "In[747]:=",ExpressionUUID->"ddff2c6b-3401-4c7d-95f7-a6c2b3bdd993"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"time", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["3", 
         RowBox[{"3", "/", "4"}]], " ", 
        SqrtBox["motionRange"]}], 
       RowBox[{
        SqrtBox["\[Pi]"], " ", 
        SqrtBox["robotAmax"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"time", "\[Rule]", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["3", 
        RowBox[{"3", "/", "4"}]], " ", 
       SqrtBox["motionRange"]}], 
      RowBox[{
       SqrtBox["\[Pi]"], " ", 
       SqrtBox["robotAmax"]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.876471690645515*^9, 3.876471729039402*^9}, 
   3.8764733507205772`*^9, 3.876489456046688*^9},
 CellLabel->
  "Out[747]=",ExpressionUUID->"b7b9cbb0-c446-45d5-bd94-e1dbd0b9864f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3. Motion time with both constraints", "Subsubsection",
 CellChangeTimes->{{3.876489466849547*^9, 
  3.876489468376031*^9}},ExpressionUUID->"16bc0bba-7dfa-4ed2-b18e-\
1b32493c98b6"],

Cell["\<\
To consider both maximum velocity and maximum acceleration constraints we \
have to take the maximum of the above motion times:\
\>", "Text",
 CellChangeTimes->{
  3.876489483236125*^9},ExpressionUUID->"de352379-c064-470d-9de3-\
d776bfa9a6cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"motionTime", "[", 
   RowBox[{"robotVmax_", ",", "robotAmax_", ",", "motionRange_"}], "]"}], ":=", 
  RowBox[{"Max", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"2", "*", 
       SuperscriptBox["3", 
        RowBox[{"3", "/", "4"}]], " "}], 
      SqrtBox["\[Pi]"]], "*", 
     SqrtBox[
      FractionBox["motionRange", "robotAmax"]]}], ",", 
    FractionBox[
     RowBox[{"32", " ", "motionRange"}], 
     RowBox[{"5", " ", "\[Pi]", " ", "robotVmax"}]]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8764717430688963`*^9, 3.876471751866811*^9}, {
   3.8764733582534943`*^9, 3.8764733648997507`*^9}, {3.876474697135648*^9, 
   3.876474700005519*^9}, {3.8764773363517237`*^9, 3.876477363168153*^9}, {
   3.8764806661724358`*^9, 3.8764806759230022`*^9}, 3.876481021962755*^9},
 CellLabel->
  "In[624]:=",ExpressionUUID->"c6f0a969-8ef5-4afd-9122-b4e6a8b54676"],

Cell["In the future I may add a maximum jerk constraint.", "Text",
 CellChangeTimes->{
  3.876489491114427*^9},ExpressionUUID->"e8061f7d-e472-437a-a4eb-\
00a084c9692d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["4. Final motion position formula", "Subsubsection",
 CellChangeTimes->{{3.876489500181222*^9, 3.876489515818515*^9}, 
   3.876490682565035*^9},ExpressionUUID->"662891ea-1e26-4542-ac88-\
c580429f2436"],

Cell[TextData[{
 "We have to rescale ",
 Cell[BoxData[
  FormBox["t", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "4a033520-d0d9-4a62-902d-91c8642efad7"],
 " in ",
 Cell[BoxData[
  FormBox[
   RowBox[{"f", "(", 
    RowBox[{"t", ",", "2.5"}], ")"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "a3738a23-7d00-4b90-9c72-1158361fa0cb"],
 " in such a way that the motion would start at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", "=", "0", "  "}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "74ec16f8-c52e-40d1-a63c-c7381857cfd7"],
 "and end at ",
 Cell[BoxData[
  FormBox[
   RowBox[{"t", "=", "motionTime"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "845dfdc4-889c-4c2a-99af-8ec38cd5e0ff"],
 ". Additionally we have to rescale the value of ",
 Cell[BoxData[
  FormBox["f", TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "1b65996f-9c2b-4e01-95a8-d79266619a23"],
 " to go from 0 to motionRange. After rescaling we get:"
}], "Text",
 CellChangeTimes->{{3.876489518122007*^9, 3.876489543259207*^9}, {
  3.8764902254735727`*^9, 
  3.876490249390696*^9}},ExpressionUUID->"717fd9b1-edce-4838-b7fb-\
651d9a11cfff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"position", "[", 
   RowBox[{"t_", ",", "robotVmax_", ",", "robotAmax_", ",", "motionRange_"}], 
   "]"}], ":=", 
  RowBox[{"motionRange", "*", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"2", "t"}], 
       RowBox[{"motionTime", "[", 
        RowBox[{"robotVmax", ",", "robotAmax", ",", "motionRange"}], "]"}]], 
      "-", "1"}], ",", "2.5"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.876471133067896*^9, 3.8764711537510242`*^9}, {
  3.8764719208852777`*^9, 3.876471938404703*^9}, {3.876472158998608*^9, 
  3.8764721623180857`*^9}, {3.876473371809977*^9, 3.876473374903882*^9}, {
  3.8764735181711884`*^9, 3.876473520938469*^9}, {3.876474717814432*^9, 
  3.876474718144849*^9}, {3.876481544183593*^9, 3.876481554012424*^9}},
 CellLabel->
  "In[625]:=",ExpressionUUID->"73be2e5e-89c5-4968-8087-8be48fa152a8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example robot motions limited by acceleration", "Subsection",
 CellChangeTimes->{{3.876472643140113*^9, 3.8764726568711033`*^9}, {
   3.876473575435721*^9, 3.876473579333653*^9}, {3.876474768012*^9, 
   3.8764747878518457`*^9}, 
   3.8764903450891438`*^9},ExpressionUUID->"4efd6d89-bc57-4253-bcb4-\
bc4270f1f3f0"],

Cell[TextData[{
 "Almost unlimited maximum velocity (",
 Cell[BoxData[
  FormBox[
   RowBox[{"robotVmax", "=", "100"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "34b21ba5-77b9-4cb6-a4e9-5125e71e547a"],
 "):"
}], "Text",
 CellChangeTimes->{{3.8764903148150053`*^9, 
  3.876490335503271*^9}},ExpressionUUID->"376c0262-1e72-475a-bd44-\
60a84f72a32e"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"robotAmaxArray", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "4", ",", "8"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Vmax", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"desiredMotionRange", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tMax", "=", 
   RowBox[{"motionTime", "[", 
    RowBox[{"Vmax", ",", 
     RowBox[{"Min", "[", "robotAmaxArray", "]"}], ",", "desiredMotionRange"}],
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Column", "[", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"position", "[", 
          RowBox[{"t", ",", "Vmax", ",", "#", ",", "desiredMotionRange"}], 
          "]"}], "&"}], "/@", "robotAmaxArray"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tMax"}], "}"}], ",", 
      RowBox[{"ImageSize", "->", "400"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotLegends", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\"\<motion at robotAmax=\>\"", "~~", 
           RowBox[{"ToString", "[", "#", "]"}]}], "&"}], "/@", 
         "robotAmaxArray"}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<position\>\""}], "}"}]}]}], "]"}], ",",
     "\[IndentingNewLine]", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"position", "[", 
            RowBox[{"t", ",", "Vmax", ",", "#", ",", "desiredMotionRange"}], 
            "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "2"}], "}"}]}], "]"}], "&"}], "/@", 
        "robotAmaxArray"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "tMax"}], "}"}], ",", 
      RowBox[{"ImageSize", "->", "400"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Epilog", "->", 
       RowBox[{"{", 
        RowBox[{"Dashed", ",", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"InfiniteLine", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "#"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}]}], "]"}], ",", 
             RowBox[{"Text", "[", 
              RowBox[{
               RowBox[{"\"\<robotAmax=\>\"", "~~", 
                RowBox[{"ToString", "[", "#", "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"tMax", "-", "0.4"}], ",", 
                 RowBox[{"#", "+", "0.3"}]}], "}"}]}], "]"}]}], "}"}], "&"}], 
          "/@", "robotAmaxArray"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotLegends", "->", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\"\<acceleration at robotAmax=\>\"", "~~", 
           RowBox[{"ToString", "[", "#", "]"}]}], "&"}], "/@", 
         "robotAmaxArray"}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"AxesLabel", "->", 
       RowBox[{"{", 
        RowBox[{"\"\<t\>\"", ",", "\"\<acceleration\>\""}], "}"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8764720548997107`*^9, 3.8764721051593018`*^9}, {
  3.87647219640016*^9, 3.876472535418755*^9}, {3.876472572545456*^9, 
  3.8764725763191433`*^9}, {3.876472623247231*^9, 3.876472633930593*^9}, {
  3.8764726717136517`*^9, 3.876472703891862*^9}, {3.876472742432064*^9, 
  3.876472871562701*^9}, {3.876473424643548*^9, 3.876473451828328*^9}, {
  3.876473543824408*^9, 3.8764735471699467`*^9}, {3.87647359001309*^9, 
  3.876473590081786*^9}, {3.876490269583974*^9, 3.87649030428369*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"f52ce923-695e-47c4-9ec6-552f24513a43"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{
       GraphicsBox[{{{{}, {}, 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwt1Hk4VPsfB/CTZUqjTVosV6OIbA03FDmfyXa1ypqlZSRCWUpxqZtBSWJQ
KNs02cky1iaKsW+FulJjF7IlKmuo33fu8zvPc57zfT3vz/dzPuf7x5E+727q
wIdhGBvdvKcl+c5PuspNHPv/RW3TNVvkWgNvTcur0bHskpnjcJ3/c472ig4u
Z/5U196TZ0o4WQp/2x9dn8L14Xl6V+o+XO3NhBe/PO0/zwUZ4kuZwiH77AN5
vjB5wgKvCVJOdGAE8Tx0Uu88Trc/wYrh3uP5tT7JFT9Fca+uFw3jub3j53U8
Yr3RpWW5CJ7V1Kv98NmbH2eiaiN5lhKSD8JtJpxuKds/RKblZxPoeIX14uo6
LJqXH/ze+RCXabgXeZYRw3OGMjsWD9YQl5jXfswztew0E59MyUoJ58YiM4/K
+KXgppu1VeS945FJRhFmmXiJf/Nzjmgiz2dKx3NxiWnbQ9YFDOT+8vGsApyy
12t4QY6JPK2jb1aCX3XEFWrneMZkrnuX4imJBPfI2qfIEdoVpAq8o72l8ExU
ErKV/zGlKlxI+NHCHvtkZPZmS9Fa/KDeOZ051RTkj+tcjjfgbr5yAVVYKnLw
OXp3M87Mn6qjt/JMovfXteLvRp8TbRlpyENhTWve4QIk2kk513Re/xtL1HZc
85RR9A/tDORR78KvHXhC7UepUG4m8rUrecXdeMsy094qI4tXzw6e6cNX7XPO
kPF+htweI1Q6gO+7pDo5bZCN7KQQGz+IOyYtqr4SzUEueOrMHMYfcyu97g3y
fF5zrnEEb94YUmZRkMub/1W52Dj+GMJ2zsuxeLmpmNoUrmr7Tf9MOM8qj/p/
TeNNXhYXq+d43qMx6vsdX875Izu8Nh9ZO6SCPYtHN/q3zCoVIPe1K9ycx1WG
h6dto3ieH8WsF3E7yVx1eftC5L0KWudX8J+aIlb0Jp5VPIwifuNRZl6+M6pF
gNHs2+5PYlAXgldwsGLkwmBVB344l5Y0sNsJGeO7eowtAAuVBIGwVp7rbf0l
CKCw2GJkzShB9a2Ky5uFoFr0z0sVgs+R5Z7KZq2F0+RHYbKuPF9QIZsKQ/jF
c+++abORe2hs7gaYeT9lG8J9gfotWbLHNkPfUpxA8uFSlD/U6hbfAk3Shjll
L5Apc7lFVluB6Zrw60tsGfKKfOnSdrj/8K90wbUvUf3P14F24uD14ruxlC8y
J0pL+70EHBU8/NTY5hXqX12aPyIFGoozh52akJmcoGA9EpBMnnynaZWj/SfN
WsWlYS5hVq9AvAKZNFPTvxNMxE08Q1w5aL+0ZkvLbjDMSauPSUVmPrEu7JOD
g5RlieQensOkfRflYbdjek3Z8UrASErRFkaKsJy/smVSuQrl667PKZLhu76Z
y6IDMjmYqtdJhpEPGeWCDGRahGN2mCq8WzG7KLW+GrCNV9YoCPwJGYez2MZf
kZmXRbTVNIDR/Vv49O4awFiUrFaiJjx0t7BzOovMMVogT2jCrWhsrX8LMi3S
q7DsAJgPWNoW5NYCNj2iQU7TgSPXsvPKPyNvzFZPYuEAq/kEmqXq0Hl2aMdU
Aigo52QP0pEjqnazliiA+fD/EnWvB8yppsnfRg/miNam0unIJy/sIyzpwQQj
N025D9nj2Fn5J/rQUWNtbGjcgObbMHDtuwFkb2Qxvfc2Aha8J//vOiM4lXFa
r3OqCbDH8XORKsbQktfI2SvTDBi7U+jub2MwfK6B37FCHgp1lnE5CfvqNh4g
VyLv/7wqR98ERIZqVIIevAZswVf0wiYzuDehmt1VhxwaIJxwzwywH4w9qkvI
kr83fOI3h6lVPjLd9m8ASyFoZP8yh9c7lMXV1FvQ9w0fqV13CvTk4h7ddUYm
E3oXY05BqcrqLT2JyP02yRd2WkGmzsCGYEIrYN1h89NgDUG20YK9H5BpnrSr
MbbAbL61oP+qDbA1fa21NlQ4baz+3P0D8oyVgm4BFbb9O3E97hsy+aAlH9EO
6J1WP6Zk3wKmEOpoxbGDf8bUvsbRkacbHJK17MFm9cjg9Ll3gIk0Os65O8LW
+4lJEr7I5jdGhrod4e16czvDKGTL+UDK0YtgtLWyN74BueHNlcNKTqApG881
VP0XMMLL3vHfziCqZ9yawNcO2DJrsmDKFZS4o7v1JZElBROIV93AwD3g1oQ6
Ml1MfWLWDbzii5W1nJG/DPvJrPKADz8kQj+0IhNXzQ5svQJxKaNGIonvATt4
IHjKyRMKtAKYL0qQnZoERko8oblNYoHahvyBklsseA2Wl0+k5/F3AFb726sn
9RqcsSgWPO6CTCK6+ExfBxIhoOqu5gfAurR2zuf9DfsTJMT3miDLjnjMEn3A
RK34SocLchI3vdfJBwLOjpJkGciTx156yfrCYMkJvyqBj4BR9Zf7Mm9A2kWJ
gytvkVMZgVn9t0Cpsaj46uVOwGJT1p9eHQhc6f5cw+BOoL3zxP2OBEKQLzFD
PAWZJdmsRw+EPsXzcVVdqB7n21a07TY8oG/wEznaBbRfyRp/qd2BRTMXo4I9
3UDTxbcNB92FtOzoQ0EGyFQHiRvtd8FUsFLLxg65/llP+c5gyC7ZpswXizz4
O8+0MhioYrWbTNf0AC3hx9pKQgjU9e7o+va5B82nQLxQGAqemkfba/l6gWbl
/0lVOAxIEV5vYqV6ARNLKXjhEAY+h95UHLJEPtFl8FOcDkopvimRtah+nOps
Tg+Hh87vXVVT+oAj86425FgkkH0NaGxWPzoP7hv+pChI55euL3rVD5S1Qonz
HVEgFba8Lr+pH2i+hY2GwtEgzCyMzxzqB07z0KUF72gYqZV+Hrd9ADhlbtL5
ZjHA2PRr8iZtALB9fW6lko9BOLPE9tDJT0AbKDHbPx8PgWoPknTOfALONc8r
e/YnwM8y17EDLp+A0rAEfj4JMNoi4612G+V5vSI2KwlQPfPgwS72J8AU6/3b
hRjgS3FvFCQNAuWya+c6CSb6P8ppNk0NAi0s3OuHWxJk6L5u6V4ZBOoOerFe
bBK45Hg4ThGH0PuWT7ZXJ8GXgBfRovJD0G8gePy5WDJMKx+dOUsdAmb4yq57
DcmwEOiW/6MN2WTJIkAtFdaSixX/KBgGZqO23dz+DGiOs67eyxkG2s1vBamX
MiBU8JeNbgvKjzwuimNkwPouw5CL48NAUsMuWwpmgkjQx9H8nZ+B9LZ9l1hH
Jkh0L6UaPvwMHKhWnLr9DJSCdUke10aAIqa9Y2Z7HkjetBI4FDACHI+axnCz
PCB6uI1uikDWyrP3pOfB+Kk4VuGzEWBxonzv8bEgQ+47Zf7TCJA1v5Z2+bJg
V/1Tu1smo0Ap97tkczUfxAmrkkNVxqDfqi3pwD+FsPbn1rtnDo4BWZdrIP+k
EBYnlS6pHBkDmuMoQaeyED6+t/qzzWEMWHujZLiCRRCTyqrenDgGETeyonsi
ikDEgDoURxwHqtpdqmxuMQjdrpDNHB2HCNFgbykCG7ZbSJiHzo4D6/b1W6YK
bJDf7R3gzjcB0/Ob7DJPsMGoQaVPXXICaOXyYxWP2BAszHhcZTwBlCAjk0jF
F7Am+iaxu2QCNtIeVLdalwIh7cC39Xe+AImYJ0t8+xLSDYzuHxOeBA/+zV55
AeXwP/j3K0M=
              "]], 
             
             LineBox[{{0.9110321441778474, 0.1205251420319775}, {
              0.9432898682460509, 0.13424581855331685`}, {0.9449957515838809, 
              0.13499742532139458`}, {0.9484075182595411, 
              0.1365085413475864}, {0.9552310516108613, 
              0.13956246011717233`}, {0.9688781183135018, 
              0.14579764719975796`}, {0.996172251718783, 
              0.15878205816072732`}, {1.0507605185293454`, 
              0.1868411931763727}, {1.05235305296759, 0.18770216732750455`}, {
              1.0539455874058348`, 0.18856556447812034`}, {1.057130656282324, 
              0.19029963393274807`}, {1.0635007940353027`, 
              0.19379691594933002`}, {1.0762410695412599`, 
              0.20090838349291884`}, {1.1017216205531741`, 
              0.21560143922294484`}, {1.152682722577003, 
              0.2468858100125504}, {1.2525998792436732`, 
              0.3156712736386291}, {1.284433736472338, 
              0.33967686089337623`}}], 
             
             LineBox[{{1.2877145378426376`, 0.34220847316827196`}, {
              1.462166897011489, 0.49226274466390674`}, {1.5718167581126348`, 
              0.6018178735039064}, {1.679461571832793, 0.7203081991876441}, {
              1.779852055979484, 0.8400208386053276}, {1.817143086300318, 
              0.8866221412922712}}], 
             
             LineBox[{{1.8204238876706176`, 0.8907751521639455}, {
              1.9903657287073417`, 1.1168277202732009`}, {2.100488917288508, 
              1.2734958863724146`}, {2.208607058488687, 1.433639235796167}, {
              2.309470870115399, 1.587509750372561}, {2.4188281987460822`, 
              1.7578539609876151`}, {2.520931197803298, 
              1.9188972860357447`}, {2.5705078736298255`, 
              1.997401552830245}}], 
             
             LineBox[{{2.5737886750001255`, 2.002598447169755}, {
              2.7296206181597267`, 2.2486635101638304`}, {2.8309577572664595`,
               2.4065195325036397`}, {2.9407884133771636`, 
              2.574034770041939}, {3.04861402210688, 2.7334874159322164`}, {
              3.1491853012631297`, 2.876572847682077}, {3.2582500974233506`, 
              3.024413115405389}, {3.3600605640101042`, 3.154558912079075}, {
              3.4598659832158702`, 3.2739702990248567`}, {3.568164919425608, 
              3.3936373307283128`}, {3.6359265732856407`, 
              3.4629793876384642`}}], 
             LineBox[CompressedData["
1:eJwd1Qk0VdsfB3AvXiHuvvecY0gqvF5KpfIQSb4aUKRZkSbhkalQT6WiuDRJ
MhQZCilPPVNSIhHRIBUN0uNlyhQpumT47/s/a5111medc35nn9/+7d9Wd/Ba
7zROQkLiDT3FVyn2zEPlKfJojY45VnNvInL2L5JrXMTDfdkz57MeysHtv5v6
dnIEn/9IaVnmKg+ZRsOZd98TdDSnd1WK5GFjoWOg+5EgM68hZOJPeaRkaln8
00jQ62+VYjkijyWBk11S2wimF27Z9fgXHrw1RtLO9xNc3KjRmyHLg4dOI3tb
mo8bFw0C56vyUOubfOHsdD7+UF8QrrKEh2uDsy4sseejumCwKegID3vbPR3/
3cYHzr0YMj/Gg9H7HL2jO/iwejZYJRPIQ3W+8btCBxrPYWrmySAehv5aN8XY
lQ9dLmDrodM8rBnwSzM6wMcc9/PCaZd4EPU9LjAI52O5z48Hh3J4WNXl1Kzz
iA/P4PKDx5t5WCIqPdZfxsfafrtahVYedKQ0Juc/5iNra1lFWhsPKqr/rjN+
ysfshDi/xx08tFvaPDB/xUdEVcv4gV4eQv82i7Vv5KNU01SXP8JD2R7NtcJh
Psr3R8YbcQT5B4I7LUb5WHX0dt5VBYKM403CiRICZO0+7yutRBAZm1gYLilA
xK/6jS8mETg+UZodJyvArSjvE9bTCMZpSY/PVBYgt8Fk20QtArR/LnivK8Cg
bW6EcAmB3YxatUh9ARA9aVehCYHP7ofB1gYCPOJGv/SB4NrHS2tKjQQoGVSz
tFtGIP9qVVPGUgGqn3UIVCwI6u5lyAasFUBC+uWy7esIfM/stZ3hLkBka3HS
sANBWKV9UaOHAMsjT6+WcyRIG7/ytzgvAe59D6hUcaLvB6h3Ex8BeuOH5+v+
SWC6/1XA4EEB6u+VPtviRsDbrnv9WYgA3pWmN119CG7MEw14JwtwwR41N48T
OM+cm0pSBYj9T/926AlaR+oOGzKuCRAa0RnnEESQxDz7p+WGAFWGTv6skCC6
P9FlS6YA1qLAaNeTBEEF5nXGhQK4bL0Q03aOYKd5TKH0WwEWX3Gbon2ZYCqe
uaW+E0CVk03soK43+EVlaZ0AEwQJetfiCTZruR04/FGAxrHEZJVEAmt5k3lf
mgRwnNAVLrpCYPS6Nel1Lx3fWLDayTQCxR36QQmyDFRKDiVJZBOM+AQNb5Nj
0HE4a94t6ubQV75TeAyIcVmhXQ5Bdran02UBA41pOu8zc2n88WlmscoMtpiK
pq27QyC8qSQTPYMB5y8V7HCfoP+n6OzZpQxk1a74Py+j4+Wbj1+9nIHaBJVF
9uUEJb9HHZUzY3B1IECugzp8zQKv0ysZ7O3o6RtXQTAn2XXtybUMsoOX1c16
QutpVR0TvJ3B0unIsaoiqLlYEON/iIHWZFzprCXY4bredqo/g/xbbypt3tB1
b9iuUnyEwce4UsOH1BIfFBMkA2m8DXJ9F97S+FO8U06FMPi+yaZ2Pu0TQVdm
Zl2MZHBmiXWPRT0B8X7gvSiaQd791W+uU8cutdGtj2Gw6M2fPGlxH2k6cWda
HINcqd2+j6jrf28ovHaFwYac4pl6DQR66VFPcm/R7+X9LBz4j6D40JwzNpkM
XFO/Slh9IrCyLF0tymKw3OVrQhK1Q1dvtdFtmp/z576YN9F61bZ6W1LA4FDg
m+6wZoLW7HHN1RUMhpNODI620vop8Brp+sRAv6Msx62TwLwwMlTYzODRo36z
DGpR0V1WrZXBtxDFNV3UtiWSWhvaGQRtjSre00WgWhljc7eHQajkX4a7ugmS
3zz4J3iYgYTohKxeD8HGd82Lpo0yuJ+9R8+DWqpOpjx/jOb3ef+/KdTOHzfU
d45j0fiXSybTS6DV3Ca9XobF5XlV2z5TZ34lDlMVWRD3xW7+fQS7vul231Fi
EVtzvjKDmum39Vs3iYXMd+vMempfUXJYkCoLyxvek4y+ESwcW1jQocFCWBPo
1kddJLeTuzOPxUzTTzGWtC978YIT1y5goSP6vdyXWo2frtWhw2LhinhhPHUg
+x1T9FmEj4st7qZerhLqcWIxi4yob7NODhA81cwsX7OSRfL3rVszftD+suLL
ZDlLFr095p9eUgfsnrOvwopF9v6z3waodROvTzZdS+/3L883ERFcVryyV2cz
jZ9u2viU2v3XCBUFJxbaZLLti0ECs9+qvV46s2hSX9TUTa1myis768IiaZuW
lNwQrV//U17j3Vlc++OSvDm18ffjj354s0ixcN6YT81r8vGsC2DxyFdqR+hP
uq9JZJdGH2ehJaeak0RdMrVXeUMQi+0hu9LzqQ/YuZc+DWGxWCk0uI264aWj
cmEYixvkjqTpMMG9nqseB8NZfNqVLbShjpT/r0QvgsWq1KFsN2qLlds8bkWx
KC8/IhtFnVm8qSTxMotFDyOfNFGf+veCkn0CC4ONJjcHqB2HX7orJ7HIjLcw
kRkhUDawVjqfzKKr4LDvXOrAf8zcj6ezkI/zNfCmXp+wUNEpn4VSsnVVN3X1
X0W5kvdovtZ/Iz+prdet2HC1gIXV2iIF6VGCVVIbwhuKWNzOmL1XnXrZHk9Z
uzIW7xy5feuoS5b1XxeVs/CoiG+2p8YUf/OYCpoPb6LuQr24+mRQzVMWF1ZN
+HGEWlc/ddT6FYuXJvc006izyZz47tcsNv462JdJPb892+hMLQujqBen71HP
vVzsV/mORf3bqJnPqWeMq+9b1sBCxSdzai91ygeH858a6f9ufO8sota43T4v
8BOLrFTdQIkx2q9dfrgXtbCYOr1Sm0+tVMW0GXSxSLNdemQudXTapeC33Swi
x94761JzgWrTD/Sw2KOnqWlEzdfV3pXTx+KKhaq2BbV07MoPcwfp8/wex53U
Qp/qg8+GWOzj57LO1FKrNyu7DdP53RwT70b9i4TTputjdH1ENi8/QD3kFPBC
YzyH16NZvSep/UwmeD6cwIFJCwoJox5QDpPbKcMhPKt4JIK672ncyng5DhFf
wk/FUe9N1fhsxOMQ/WLB1UTqL0dvCOsIhz63TXHJ1J0L7pQqsRxiDA10/6be
M3GJQx7HwTJvrOYW9efmRxKbFDmQQDvbbOrmmFfGEZM47FhWw7tLXT/SfUdO
jYNu7eiiMuqxzrdhH9Q5NI+bvaWCWqPuoVP6bxyK/x6zeUr9Z14Ua6HJodTP
fria+lTKsQ7FWRw8ZUxSXlNnRLg+bNHisLvl6Pw34v/xNPY6oc0h//QDUR21
wjZNs/XzOUxWZPQ/UhtYCqao63BQdnCya6A+otnypEiPw7lpqXZN1EkKL66c
XcihTbpuYQt1ieRdP3tDDi0Xk0ZbxfPTeGbG0GIOoQrOlh3Us6sOjFQs4ZAh
TH7VSW19f2dNDGj+4npWdFNfuKh7XG85Bw0djW891HnCqbZSZhxEwsXaX6nf
+UrPf23OoUj5+eY+cT2tq/+415KD4rfrft+pTU3Kc01W0/yHqu7rp3acm3ma
t4bD6jYbuwHqkMmxDh/Xcni347PuD+p0mSDDjPUcDt3c8YuI+vkPD/7hjRxe
da4sFru3ZXPbSht6P0zHe5Bar2R2VJsth7o107OGqLdkKrjnbeVQeNfI5Cf1
oYSxpcHb6PhlPUvEjj/TPmnjDg7z642NhsfE+93rXo1dHHa2zk4Xu8ml8PFX
Bw7Pv+SREerxm9MSih05tBZtdRd71orz+8850/wpRhWLbfXHYavtLhwcEz7I
jVJ7qTv9NncPh8z3qevEjiBrhn66cZBQcjkndu6IwcsnHhyW7IwsF/ttp8b1
S14cLrrG/hB76L3cMZd9HOyOtWmMUatWDGxa6MPhqHerhdgmeY1zxu/n0HBi
zFVsh5QnkrUHONxffVEodnBEbl2yHwf/v9lEsa8HJGR5H+KAxJc5Yj/xDA01
9eegoDevTOxue+8d/KMctHcLX4vNt7TXbzhG57N1boPYOoZm8rcCOWSpHvws
9ibN+c3+JzhsrL3TI7afgkqBZTCtd3X9frHjJKUiVEI4WE1aPCh20ddul/ZQ
ul4j5YfFbmx4a5J/ioNrXfuI2JJVDxVDztD5MZw4JrZFetSj6eEcUjZ1/N9h
Qlfvkgs0f/8/+PgfTtvnZQ==
              "]]}, Annotation[#, "Charting`Private`Tag$20162#1"]& ], 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwt1Ak01NsfAPBfllLJk1SyvVGWFmN7SsTvO9ZnqYTsifhXlmwplTxvSEL2
LY1ME9NYQoOIhLHvE1MRWbNGJUulkt6dc/73nHvu/Zzvud/vPd97zpVx9bU8
y4NhWCma3NVG5eaPOKVgHPv/cOnWs/rebw/c/YTbmI7NW9mvrH4PrknjiWI4
rnDygZ5bANcJu05r4j2jqS30/mtc0wdtLXC1rrlA3r1kroW951zxn3mC0epu
N7i+pjnhjzdGEDPPUiO4fnAsLwSPczvOTOuP4jrutn8kbkvybWgRjUUmnRPy
T8IThIy9VhUSkFlTaXQK/iX4zXJKUyIy4VBmShbuMOceQnRLRqbJhirm4bX2
3zc0Y6nIJz4H0Zm4bGtU4mlqGrKKjndsGR55SFzi25F0br13Xp5V+Ed6Pj2+
/y5yN/Zyfx1uue2I0t4rGcjpckIHm/Dy0I6nLNFM7n1OdI614RKfHXXtS6jc
84et4AVOUg6cXFGgIcfM7i7i4BfP4fubvnKtHd+9pxenZ673TWx6gOwXekpg
AO99xS51SslCvtdOcRvGNwreWdnnlo08u6uROoZr6zvrfFWlI3NuyJpP4D5B
CmH12ENkraVtf0/jtOL55rgXXNdbt0fP4pyZp5sdqQzkq8xE6U84H4F8QsE7
B9m225V3AdewNU5dOpKLHOH/fs8Sfq/pjXRMfx7y4/uw9A1nr9Lc7HLzkXlq
6Iwf+Dp1j1zZK4+QlXQfxP/C1b1UP342LACMHJVsYofBuazvqtWihSh+c3ye
nwfS++sCo8a5pnO+9/BCh3B0lXVJEfKvPQ+q+SEdYnd/U2AiK/KyVjaCquOC
gVM815cnq0wFoT3Q+nzDV2TylwKnOiFYLZQqiG8qBox1WntEWARS20LZXxRL
ACP99NpyaxsoTU5+dkxBZl19c0BkO5yRLDq4160UObJmykMMfmiI2MW1I2Oh
TkMa4pBiFRi0rPoE5T92+aqUJDRH47UsrAzluxCuvIsAzoysMXl3ZPLvu7dU
ZWClbj1f7AtkrCJlh+1u2P+dbWxPLUeeyzfokIUG0b+8avmfAkaQW6GIy8Mp
lTuxct7I5K+30q4qQPx5Z87CkQoU99+yeGY/LL+ed4zur0Tx5SiDIBUY+Unh
yzZ5hlzXEHFZFdpljAqrKpGxSkzhuhrQvO+tfbhbBRjN5uI1hjrcTv47h3/T
c5SvxyO38yAEVi6aSwchu1CnlNYOgRm/yQNzh2rAugdPQLgmHDqwbOLejqxi
72HcrwUEi/uLZK0a1B8ehxwtbfh674t+iXgtqj+m6L4HwELcIiDamwVY632p
De16YFTIaEl7iJwr6eKTpw/apFWJ7CHkq2Lm/AkGIH8up7HqWB26j82IUYAR
rBb/2v6RWM99j/zaVFNYNLDy/H4WeXTF2bTEDKb7cmv4qcjpEhPCfUeB88vq
vLRQA8onZdmvaQ65JvkV5p+Qyf62m9QtgTr4W/CUfCNgwY6bpCYtIdnX+oz7
aeTB5YZeihWEpGKbQtnIfjrZ4aLWcHLMxrGkqAkw9bboYj07ML1U8LhmCrnC
hz4ubg+wgYevQ7oZsJg0V+MVe9hPLCwYj0Pm89T+XO8I2DXeNVHfFsBWduzK
vesMXzfbW8rkIPOZzRQdd4E5ahGDOILMkZvweOkCvY325kbmrYD5/BjLnjwD
BcJM2hXlNsBEB6V3K/0PbHNP6Q/MtwN2SU5NxtYD2I/bWMqyHYAtP9qp8NsD
jJ4ewm/aIdcExB3I9wT1ZmFNlTrkNG/GsY0XQGSiUSkiqRP1q/Jb4wcfiJpT
LXjbjGwT1Rtb6AvYEnWf6k/kTlP51sN+ML/umuygWxfqx97Wx+v8ofNPorja
QTZgmRtNrudcBH0Fyp1bHsjbmmnE7QHwTGnD9qFMZHmtU5TwAMjTGfsjcv0L
wLZ6dBW7X4IIx1T+4T5knYuGJKNAoHWErBhUdwO2FsERcwiCU+YHn/r2IZ8l
ZRMng2Dny7nLlAXk3yB0+OJ1iBuwW5qX6wEsWz1IOykY/nmv9okSh5xsIOA1
GwIOG6bHPztzAPMcMTz6OxR23M7MkghCnputdbEOgx6hk2eMUpDVBIJjC8LA
eEfdcEYrctU6IY3TN0BDLqPfSPUlkE/sZ/9ih4OovvmLezyvAAuDfYvTt0Cx
f0beQPIVkEUNTG2OR4Khb1jI3EHkZ2J142WREJhRRtTyQP6QEBIaGQV9SxIx
fS/QeYJPw7cjt4FCnzEWyXyN6qWrmA7FQYlWGK2y/DWQJT2HhWzjoaNbYsWl
G7nQ7d1OTjysrh7PeczbC2Q/ya61swngZF3Gf8yzFzDK0b+yzycCYX1Y/S2N
PiDNCCnTopPh8D0JcWWLPiATpeoEOMlgoVbm3+uJ4i8ZZQTxFAg7PUOQoyL7
lQq4FqTAePnxf+v53gApmX+7bn8qMM5LaP/qeQPkriNxctbpoNj2pOzihQFg
1WXeEX+bCf0yo0VGkQOAWRW2CetRISJoc644fQBIr9nGS3lUGDngSql/OwBk
duLO0OD7kBT3x78iZm+BpEzI8E6jwXcrT+OSfYNAY7HLmE5ZwChI1Y0wRL4k
SWpNzwJL/jothzOD4JJKv+/0KgsKyncSee4iM6ZreI9lg8uupq2WAkPg0mEe
b2pAh+bhP98uTA0B4br71D4zBgRomL1q4hkGbDXK1SaOAYSEwK670sNAm50W
EuAw4JpuV62uzTCwvq1vWHXIAUV6ED2xaRhGSx//cTggF5I9Xnur0keARghq
sKvOB5UgQ3IFcxQIHEakftVjyOGVaXlSPQqskThlGX4mSMeubiluHwXhJovI
UUUmCNJKM/ImRsFP2Dfvz3+YMN0k85QiNgbkhXw1OqEYqFvXPgaTx4B1w1xh
NqAEBPPKHXVPvAOVDmL1v0fL4IZaUpaOE7Iuecg0uAx+VHm/1/R8ByyDe28c
Cspghi17RS38HdAe2iyabCmHhuWkpD0VyCJDTHdOOQSRfNv4CePA+lT2rMWj
Av2PChrt8+NAGooNWOuqgly9Tvbgr3Eg6If/8Nz8HDwL/c7Nb56ABOcrXkST
5/AhrDJVdO8EdP9V9OhJ03P4TDRbPu0yAaOfun9011fDyg2f4qXuCaDFHq9y
7aqFTSplB6RKJoHJu8oJFKmHDop9gzJrEtxTzayZh+ohhn/NQY89CQKKWaI7
HetB6K1R9PnZSXChe9++QK8HkYg3M8W7p0BMjUdcU7MBJAZ/PjRKnoLI0jX7
c16NoBipR/C7NA20lh7s6mIzSAbb8emGTYOLTvdYsUQLbPbzmdmaMA2E+Yxd
uwxbYNaWwix9NA2jCpee+6a3QK7CIunbu2lYOVwhDLqtsKflwZkQixlwVz9F
881oA/H167JjlN6DmHBUo/PFTtgYXiuXNzMLkQKueQdsekDMWuJkzJdZiCFr
/u726YG98lfCfHnmQPvLvoXoWz1g3Ko0clByDi5VhjC1K3sgUpCaXm8+B6N2
jzrvSHFAIDV482D5HGADV14RZzmwnqG5IHTzA7j0D+SPJb2CHEPj20cFPwJf
zfuIkiev4T8JkBAh
              "]], 
             
             LineBox[{{0.9110321441778474, 0.34273413269348274`}, {
              0.9432898682460509, 0.37908206027654123`}, {0.9449957515838809, 
              0.38106212553787344`}, {0.9484075182595411, 
              0.385039679597051}, {0.9552310516108613, 0.3930644475392291}, {
              0.9688781183135018, 0.4093923031011033}, {0.996172251718783, 
              0.4431580192435287}, {1.0507605185293454`, 
              0.5150919494791284}, {1.152682722577003, 0.6647082348472315}, {
              1.2525998792436732`, 0.8296688462900217}, {1.284433736472338, 
              0.8857630860503241}}], 
             
             LineBox[{{1.2877145378426376`, 0.8916363287852191}, {
              1.462166897011489, 1.2262750604066612`}, {1.5718167581126348`, 
              1.455185196956621}, {1.679461571832793, 1.6894186904131392`}, {
              1.779852055979484, 1.9128206468141982`}, {1.817143086300318, 
              1.9963252420171198`}}], 
             
             LineBox[{{1.8204238876706176`, 2.0036747579832053`}, {
              1.9903657287073417`, 2.381532420318562}, {2.100488917288508, 
              2.618585129138147}, {2.208607058488687, 2.840524276994685}, {
              2.309470870115399, 3.034710041282543}, {2.4188281987460822`, 
              3.228166609672593}, {2.520931197803298, 3.3904356519869623`}, {
              2.5705078736298255`, 3.462305777104575}}], 
             LineBox[CompressedData["
1:eJwV1nk4VfkfB3CJu53vvcfIiEaS0UKSSmh/NyZXMpQRfraKbBOplJYbIYW0
UNq0IU2GkFLZlVJRjErbdKlUROFSli7x+94/znOe13PW7/t8Puf5TPQOcfRV
VlJSqqSbYp+8zyFG94QKrI8V25uVMuC+FN9wGVSBKnE1W2NFEJSttfzxsAqw
e9PIezGBuWPxlruqqnASBOc2ryCoPv/jftYYVUzd0+RT6k0gmxezYdsMVfwV
P/nZ270Eizcllaj5qyL/wpFNn6sJpI3Zq6yeq2Jeyv0guY0Q8VNF4VGvVCFN
GUyLtBPCPHRjRoVUFV/XzzRXWSFEIm/O1/nvVRHnmi8Z7SLE77PLE81kqlgQ
VihpXifE5bj6h5MEHLw0neamHynErtm9S3iLOGgyjDLOKhDCMMIl0HoJB67a
x3ykN4V4/qAoMeZ3DlJltUNMiRCmXhFvlJZzsF53k7PPbSE+xHHDv7twEG2i
d7mnVgi7Ju3C9k0c+FdJ1ZNbhBgfv8ik9iIHHv5T/37/swg65Gnbin84sByK
01TSpj7sf7HhMgeOg0ER2jrUxxJ1pNc4SMw4b26lL8K4tGbB59sc2CfBebOJ
CJpF+1p5TRz0fAysWmwtAttWl/q7Jhdjn5p7nw4VQRTk4/FAmwu9kPp6lzDq
rv6xduO5MK/LXfbTDupevcN/GnBx2eNnT0mECGRUaLj3LC7SO/t1jeNF4GmP
dYu052KbR0eh0jkRRi1bPaZ0HxdGE4vkkioR7EzUvGfs54JneMOw/r4IJ8fc
vpJ+kAvTtfITE2tEMGnSt49P5mJ6Vv+c0joR3EJb4pzTubDPikmqfyFCwdng
YVkZFwt8ilPC2kTw65G0TerlQudP6+5yAYv8F8aWpwa44Hxo+VxKWAyVNu4j
Q/R4nJF1oYjFkdjFBl+VedCZo6N7SZ1Fhc7o1bfUeJi5/ojEdxwLLfH+Bjdj
HjIcK7p9DVk8PH2y4rAPD+6SfLuIpSy8Bv5Lve/HQ5m0pU4oZtHjND56JJCH
gH+XGZ22odeL0n8P2cjDLHnXxrzlLPwis6vtw3mwDgvwKF/JQsm3/KnwBA/i
oW0XwzxZmJl8aE2o4aH6njb5XyiL+/snV9+p5cHWsObjxS0s3FoDsgbreXCa
WVYm28oiKrUjaP0LHl7GeQVHbmdRp97fbfuBh3me2zpjw1kE9POH+MM8rGkZ
d9QylsXZWzPU4mby0enHkxieYhG9KmOv6hw+pPwjAQ4p9Px2rcFoSz78yudM
Cz1N30dDuSV8MR/KAQ3mBWdZPPJvKAn9g4+sYqVTOuks5KId/qsD+eDobxgX
l8Xi7YUOqTSIjwN/5s04kM3inqW3o9tGPtx2vjA/dJnm7b184aptfITnLtE/
kMvC8Mb4Mcv38rHF8lBayFUWrp6V5eZpfIS1KLc+L2KxqMfcrCCDj7tNnoPF
xSwMYrP/mZnJR6bl4wlnS1h0XUlONs7jIzi9JNW9jMU+Ff+/9Mv42JygVHT7
Fovr2Yym6BUfssZg+ez7LNTlTsEf1QSIOa5cVP6EBTjuW6doCFDm3Obr+ZTF
BvW14YFjBdCz3pgip64xCj7YMV6A0UZ6aabPaF7ue3N6jQR4iXCnhBcsukuv
d6guFUBWbPN46DUL3eqSXrGNABnWQXdjpCzsnt3+Eb9cgP3PEtyYRhaZHbVC
kaMAWkdzwzSaWKzRbZmuuVqAvuVm5zXfsqjfrblh8g4Bdt15Yyl9z2I4QScs
YJcAkSNTpjt8YGF8Uj8ia7cAST+Fvr1FHXfF5JDJPgHe1U9JSP1I1/POOtf8
KH3/9jv6K1tZ5P22rdM6R4Anc6a1b29nIbUP74u7IsCaUquMl9QC9z3DNddo
Hjdlcy0+0/oMPSxyKBbAgVkwIqPWzbhk4nJfgFkHtQ1cOlgcUn25wf+dAB5l
E4O6uljwtsj5pz4I4GhgYLpARuuxWediTasANf6yvljqLRVrX0/vpNenVR7V
6ab1u+Oz+JtcAG+Z57x5PSwmdwzrRWkwUEuOKLX5xiLVfWLp1bEMSK1Yso9a
u8bK5cM4BqemerneoSaX4g6KJzIIq3PeMq+X9tsadbnQhEGtVZGPbh/t34ZJ
T1PEDMQTlqWX97OwtLLZ8MiWgVFRjkYX9dX8v/jDfzCQ9nTd0h1g8fehvMVr
nRj4XeislVAfsJl7ecpaBm9setuMv7Pg3HQX/28dA6+fAtxdqHdPimje78+g
OjpMI4p6s/Idrc5gBtpLl6x7Qu1aare3YCeDGn1JVpCcxROjEL2WcAY6OUVx
SdTLTyWVjI1ikKjxW+l16kVhz7t3xjIoth1lNERtYLrGa0kyg8Lelw5Rgyxk
F0It6nIYyJW3YsMQi1LbB35L8xmo166MSaCO69Y5XlrAYIeF2YRMar3F975l
lTDQ2HXM+w31yv+0rsZWM3Cv9HO3/kG/Z1Twu+FHDKI3jznqRd0+pVItrJ7B
8S93ZoVRR29dH7LuBYOOs6evXqC+qlZuvOQjA8fohs5+6oib6h6Fn2iecavS
mGEWtl7+CTO+MPjelfRIl7o5W619/FcG+5ZFHrOiznX01T7Wx+DA+hUWq6h3
fi+yIXIGrou03Pyo1cU+l+RKBOemlBjFUjd13Hy+SYXAe2em9Dh1VjLhtHEJ
Mt/nj/2b+rfm6+teiAgMMqfNvEMdGs7TL9Ah+BTRaDhADQPPldP0CMjCVx4q
I7ReHuZHpv9KELj/01Q16gwt9zeJRgQ2X7STJ1NvrMgT8UwICgb1LWZSL/BT
WbR7JoH2DqFkPnXDtZwzwZYEqYELO+ypU92UH32YT/BXlusEV+qgUS6D7osJ
LrxWkq+hVnFQcrO1Jmix2n9lE7VZu+PYKU4EyoX9zoeplZIuWZ9zIdBTGaV8
nPqRxdDWn90JXCU7152hXrf3YsNoOsfcIj+cM6lNjeWjJb4E0QfPtedQDz2x
n90TQODR8nbBNepjegNJb0MITLmuBmXU3vftbruEEnR2k7Lb1CYb0mR1YQSP
n3v/co/6XomtQ1k4gaijdkbdiOJ/fD7CLIre/65N22NqL/63nOwYgrvFM0Ke
Ufc5nyUpCTQftZaW19SCrXvqnh0i0J9UkNVErXs0MPGnIwSrwueL31HPyndw
/OMYQfOX6rL31OJ/52jEnyRQN89iW6g9On55fvc0Xe/Ar4s+KfJnlE8qnSdY
cE5i2059Ulz3y/aLBLuqqkZ1Ul/2LWi8lkmQ7m+a10V9a0/K+a5sAiNO4OJu
xfdJi1w7LY+gQZp+rYf6U4Xfr/5XaT1tEwq/KfJqtPuYfp0g5nSDXS+12tCs
S02F9Hkmelv6qOdajhg5VxC8WlIfPkBt7/zxS1IlwUmbjd7fFXlueZhbW0Xo
vMTMllOHHcnfyKdz5Fz16zKF9185MWvpIzqHWkjODFKfqwv/FvkvnUMr/S2G
qK9+8blR+oQg5eLuSoXvCWy3Dzyj9dlYuegH9X9TTeeZvSJoXWaco3CnteZQ
iJSud2++aJha2XeoLPsNwbjrv61TWHNP8+7WZoJ6l5pchaelPVjyawtB/Jjp
XQqjInf06jaCM5Jlk0eonRqTq1K+0H562u+kcMDgztjnXQQqD/m7FN6lvXaZ
+leCQ3NszyicaCFm7Ptof93cdUPhjFXTa+O/E1wJ9HyocGHomMNVQ7Tftqa+
Vrg26fuKUUpCSM92tyrcnPdGfeFoIfSuf5Up3Fdb1bCdI8R/SuhXWPAl+3gB
XwiXbb6DCusKjrjKiBBFj1t/KMz5KIj8piXEgoGREYX/D9J9Pbs=
              "]]}, Annotation[#, "Charting`Private`Tag$20162#2"]& ], 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.560181, 0.691569, 0.194885], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwt1Hk41NsfB/BvJUu5rbq/oqtpsbRQpLR+35REimRLwhQVaqJoutyuJktJ
2UKyzZ2yja6GZEl+ZckSapRsgxhLl0QmSRTd3/E8v/M85znn9bzPOc/n889Z
ftz90InpFEUlkzm1Wm8I/B6qeYmm/j+Yr3dZjItsMbW/uWNyp3XrqtFikeuU
s86n6NC0muXdXU6eUw5faWZFvxFHVyaLvKe8/xKDRWu/+sieoc6ZcsyJ55fp
H+nywTpO/lMW1kmH0mVXNRJPcK8SF/OMH8fSoU6mWbdF14k5NbqXk2kbPffn
lQohU/nl+n4BHT7H6PSEWjgxb4uVRR799VLzSFR5BLFeUT2jiD7y0cVXwyly
6j7LSaGcLrIdl6mgoonH0rhtNfSqF9cjHLi3ib2s62Xr6KDNikrftt8hZi4s
+tRIDybfTw4TxRK/mPs0t40+tHC7pvrFeGJlzvwnnXTelZr8YoVEYp9n53nv
aSWJnb5tNpd4qXrVkn5abz37/Zgaj/jZKhXtIfr8SXpN+eiUJ8SffIbp5ERp
94jyu8TRUpWPv9KN9cJH9lH3iKfpy9mO03LyMWOrnZKIrc/uPj5J79jtuHNU
K5m4bSh8kMJZHzW/UiqFWEZD98QM8B4OVYTWTjn45jUladT15c+246aC4uRI
pivIQYrBOajGSiPeFqZ7SB66NkbRX7bzyfmwwGLRXCSUNyvfFKUTG8g9/bAQ
wgme02H+/an+hkNVf8U0HVf+qot/E9v3/hm2GDqntQYlezLIe1VdXqpKOHlv
XOupwgNiQ9p58DfcEZWwr3cTM2eUMzwZqJkXXGiVLSBe/8hfbgXuIGTFN7Us
UAxOl1qQCrTsPhvYh01Z9YX7eTVUs61OPR8l5owuLfBZjYkHv2WElT8ExesZ
uPBBA9FVV4Rf12WTeva9pFZvgOb79xK7KGLmtj8cz2rh2FLBJnWnRyQvDQ7W
1MF33QWHQ6uJJfub3e5vQpQF22dEKweU2KXmxlZdVATTRcVULqh5HwxKIrfB
MfVep6oLcVZirsRxB8ZKpKVCaomLXaNu69NYMy40suXmgeLbLypdqY/nChtP
F83MBzX2rz978y4c3RATosIibh40lrHajbBTjnWftz8m9u3uytuDkYYhu2BR
AenXqCZmkQk6fsRJJRk/AaUe8fZ+5n5ULzd8UFhA3Ew7eRwxBY+V8HMgthDU
74EXqj8fxI3IvWkzZ/0X1OuOpiOd5mAXDJsp+xDnWOyVbjkEk5nGd82OPCX9
XB4412uJzWtHjF2qibcMW0RNWIFh/tcwZ9szULLSq28r2WA04evubMUiUAEu
835etIW5orlnMKsYlJHTg9pMBxg+SK28nULcKMoQyDOxQ29CKekdcYB22bpK
JlRPppUVHigB1bfT/9GB45h4OLloUKMUlLOVVWbSCQwbWLiNnyBm0ANfgk6i
t4n/bCaX2NLv/BOvU6ibtDilPOc5KE0P841MV/CN7z82+0QsK/z213UWuG3/
yh9VLQPVz2cVpZxFpLvVMRcH4pZGX40qd/hGU7OuCIkt/RdqLjwHy05ru2xB
OanXO8yV64l9XhmZz/4hnsz3UDLxAmSmS9UoV4DynOvZ+sMLazQeZHSHErP8
Dha4skF5z/ip4F4J6sCTaMvfvTE62/bQ8jTial5yh6EPPnIFqRodxJOB2R1L
/kBjma2ZodkLUAqRqudfXULGvCzexfVVoGznlq3czIEN/+julqFqcN6pXBs2
DoAws6p4/aoaUGqzrjkJA2CYv5kOPFwDTokgXtkqEDoV87ZuKCG+rJN4zfUq
FvSUaV699RLUsfymHEEQrn/UymitIC6TOEgbkn/yC3e11o+X4MRITavpuI6h
ad6r2pxegVKJGylRvIGXyzQUtTcJwTmmVjgiCMFutbiYa65CUBmpRqwjoXii
KbPoXSLJPUzZV2TDkL6zc26QdC30mEHORpvDcdUuemZ7Uy04PxuzTt+PAK/G
d8zg6WsUy9tu1GyIwlGzTfnuTcRnrq8c1ovGf95+vBD3mbiJe3GtIBqhLYe/
DKm8ASeV+ikTcht/ftD+FBf6Bnrffvkl4+gdHJHp7ZY41oFTkLU8f08Cfr2R
eE/Jpw56F1+KJVUJeDPH8phhVB2ozZI5FWaJMPq1pD3+RR2Ku9f+NGFyoasS
LzLUegseVWPpv48Hhd1mtQnT68Hw9fONS7uHdaI+VYOl9eDYuEQEf72HPe5+
vh83EZvsKjE3SAI7Pldjmys5L8eMd+1JQtMXpZtNtfUQOy+eaNVMQVxyn9GC
xAbw5iWbCAbTkL3Nj1eQ1wDqio15sDEfNa+VxpivG8BckxF2IJWPiQnTtMwZ
jRD7XI0NOZ4Oe6vcmQfcGsE4M799zj/3wZD2K72m2wRGqFRQ/xIBtiQoKa43
b0KxDj8wI0AAc+3cc41uJOelvHSWCODn0MdQ4ZJcz7W+sDoT3Xmml0ulmnFQ
YYIVWp6F1FNKOybfNMNDxboqPzEb66pycs+faQFzwPgAIysPouVigWFQC8SL
Vz5J+5GHqz6z+YrJxOPewtq9+ehYezyutLUFHjmarTO68nErdO7lBSatyDJ1
fSurXIBxCzej7NVtkLgVtg3mFKKifVnr53/eQX1pZXhsVjE8dU3qy6e3g8lm
yjWJi8EIZ7+KVW5H1quG3NPzS+Ct/6pI37odWzYccYn3LMG6ZJ/kiPJ2eAw4
71+yoxSRrg0sreQOyIZFWua9e44NPns4j7PEEGd/NItxrkTajOWVOU/FCKef
1S1MqIRyyMQvD6vF4KUEZYrfVkKe9yg+vUcM9VnenacNXqC3fHl+3OJOePwt
O7FvdRW4838OXuJ04o5eYbD+9BrIp+fZ6R/sAq9rxb70z0L4a9+6t9O+C9To
GbH9xlp8L2R92OrWBcmmPewTF2rRJ1x1UTugC4eTnN+xvtfi+citWysfd+Em
7RijHfAaPnruVTMZ3ZDdFiSYiH1D/jc13eqhbvze8Ok29f4t+LteCtsmuzFi
UOBoNKcebg88Tg7N7kFfp15iiW49BvwKohXUezBwZRnH6EY9JBomIw7MHlya
TFXk6zRgzP/swy+ve7BlX4F/ZngjZm3IXftb9ntYsm8FilgirAvaxfDw6kW9
1in3lMIOLL10WErfrxd65fY7d0g6MNvjbN/88F5Ml64q4iwQo98mLuvR373o
8vC8c2OvGHy1Yb1vXb04o+I3mpctxsrKu8d8zfsw7PAixSGkE4rS05Juan5A
/zch+5lFN+QCilTS+/qhfizozzcrepG2x+jGfvlB+J5zsNxqOoD/AVtov8A=

              "]], 
             
             LineBox[{{0.9110321441778474, 0.8928548363480753}, {
              1.0507605185293454`, 1.2749970940934134`}, {1.152682722577003, 
              1.5811774785319634`}, {1.2525998792436732`, 
              1.894011225335729}, {1.284433736472338, 1.9948031109448405`}}], 
             
             
             LineBox[{{1.2877145378426376`, 2.00519688905516}, {
              1.462166897011489, 2.5492309252712944`}, {1.5718167581126348`, 
              2.868833901583456}, {1.679461571832793, 3.153150058682495}, {
              1.681030173147585, 3.1570333678483324`}, {1.682598774462377, 
              3.1609086551810535`}, {1.685735977091961, 3.168635077064844}, {
              1.6920103823511292`, 3.183990705181431}, {1.7045591928694657`, 
              3.214308360376716}, {1.7296568139061383`, 
              3.2733329534041093`}, {1.779852055979484, 
              3.3846752032379586`}, {1.781553368497463, 3.388287465285361}, {
              1.7832546810154422`, 3.3918889339801535`}, {1.7866573060514002`,
               3.399059421150021}, {1.7934625561233166`, 
              3.4132701140560235`}, {1.8070730562671495`, 
              3.4411666895253896`}, {1.8171430863002456`, 
              3.4613523906336345`}}], 
             LineBox[CompressedData["
1:eJxt03tYTVkfB/Bz9t6a0jlnp2RUEyd0ldDEeJP2l25KGlMUjVLJqUiFhkru
Rcg1uQ8pEpJK5choXt3lliMZhuRWulHR/XTOu87/7x/7Wc/nedba6/f7rrWM
giI9V1E8Hi+bfKrRNVLyMFo8zJVorllnXKKJWslPOXYBw9w/BSPHjJVr4qGk
KN0mZJjj5b/4UEIJUCpp3T/pj2HOc8+8skFWgFyJpz9zZJi7pyEJnWwhQLJk
Al1ePcxVxo8yiPQTwEFS6u4wS8HJV0oFMX8L8HjxNkm5vYJzTJDv4FUI4Otg
t93JScFJvw3d3FUjwHpx0U0XTwWX1PyTe9xzAdJeXdF3D1dwiz5nc2ZtAig8
jnxenKbgMpN8X+/WFUL6S0CCRF3JHbzY4rlQIoSjieG5ZpGSCy4or7ZcI0Tt
6Fe3QnWVnHhuTI9alBDNXV5tqycoOWascfS1WCHGZLt4RtopuZyDA4LCZCE2
iKeKY6KU3KII7+6aPCGsNBR39v6j5BK455+YfiFWhI5XpL5VcmGhA19T5UIc
rgLSm5Tcx369l2K+CF2Ju8qLvys5/evN7pNGiuC7I6HpD3UeRlinvn5nIIKh
QuNr5iQebM3mVcyyFyGjbzRPw4+HicXtFwO2imB32djoUAAPxw+88pu2U4Q6
75nzdIN52NJ93nwwUQSmyCfBaA0PsQUcFX9ABEn0aXXbWB4OvI3qmXVWBPOu
8aPWpPJgGRvQekoqwo1WiwmPHvEg8/dt1OgQ4ajcp37eUx7eRoYs1u4UYaMo
cZ+0joeDhv5But9EsLd+253xLw+ew7U+mgMiPI5NKYtr4eHqixfyIobFF3V5
sNkIPtQ95U2sAQuZvrneOXU+egOfhZUZsiiy9H6kI+CjT61Nuk7MYuui3BlK
bT5kFiH3S4xZiE4Gq9WL+dAK+6hjMI2Flemjy7vs+GiaoxP61oGF9n8Gfx/g
+Mg1S/Sa68yi181UK9KBD7nhDsdz81mUROyI8XXjo87ax9l1IQuPohmu05fy
4RWaPyPYm0WE07nWhg18mK9Jsc0LYXF9ZeQU22t8pNc0dJTvZvGqfUp0dA4f
/XpMTVQSC7WN7cU5eXzMPH+jYuw+Fv5JYfMnSvkIszxs4XeA1Ht95UpBBakv
fsZoaQr5f6/PqYYGPu4/zS27fZ7F6W1jGse+5+NM//og8wssKtWfm3h94mPX
srP+qeksxhl4FlS18ZG3csa2oEssnnDuT3L7+SgJapQ9vcpi2l6M2KVNIUot
a7l6IYvl2soFd3UphCaE/MUVsUg6c/do31gKS+xz7my4xaLxuq04fDyFYwMf
rzy9zeKIzGb2EksK9mbed1eVsOg2MF9n6kwhy27joe5Ksv+l5luBrhTiDxV9
7ali4WaVqTjjTmH7trgZvdUs0jExWcuLQl1+0q6OGhaeqwwvD6ygoMX5Zt16
zOJmzqg3D2IppMcvGV3ynIV1FCVdsIUCVSi4lFHPInf6t6MPtlOwnJ/SlPiC
RU5B3fwHeyisDRlMwUsWWcUnCmpSKayI2YxDr1mYxicdcjtFoX3Ra6XvGxaZ
c2JX15yl0HrTOW1iA4uM//qKazKI9U+fvfaWxblKw+T7eRRkJzKtTrxn8VOS
KMS1kMLJwUsX3D6wOOOqnHtfSubXV5sMEZ982NhX/TfJJ27udq9PLFJkGSur
H5H9+vTGvW8meTaYz65qofC4q2VrfDs5/zT9MS4dFM57TOMzHSwSAzW7Kjsp
5Dt+Hkgi3vmxPbOyj0KCmzB0/xcWW1pvaFeOoHFNZtGyvpOF/Fpah5MGjb03
vtY2EcetPVJdIaBRHswGLe1iEdO5fmuFDo1u945TNt0s1vfOaC03okHX2urI
vrHovGVS4WhMwzfmU//P31lExv6YVm5Go9PK8E4Kcbi8f0n5VBrW3v98ce9h
EUL9da9sDo0aL/WqzF4WTWXZZx3m0rC/ke7YTxyc+OemMkey3lhX5tLHIkh9
25SyBTQyv06c+Y54uWjeqdJlpP5wq/rhfhYTXcrVfvCjMUbfxtRugEXrNufo
BQE0Nqb2fIsh3tTl9mudhMy3idT9Qny0zmtE0wYakrW/alQNslgmrF9vsYnG
su3u9weIxc5LGyPiaHj6hllNHiLv79byO33baTQtPi7fS1x9etU6jYM05u1f
NmuWnMWhZ80NC4/Q+LFEnhtA7C1Y7X70GI2o4ty+PcQftkSYGpyh4c4cp58R
Xy3qPLbiHI0HTz/Jeomjvq6nLl6g4T1lV4LeMAtFwKY3llk0ej1L038nrjg1
4LbuGo2IujC9zcTJss3Swhwaajqrd58i1nPcnmJfSCP+8DKfZ8Q2pntdF5XS
kCv8VsxWsBhaoXnrWAWNi7yFOl7EpScPTHpZTfL80PMxjPjXkUeVgU9o8JfL
vh8jHuMwem2mjIbH5Cy7K8SvNx9/1fqcxl3l5sK/iFd3nC7c8JpGQJrZwnfE
000MJ0rf0rjQG/NHN3G///nD8vc0SkRF7ygluY+1GWsSW2gsvnjxpBGxu4bJ
y/vtJP+EP9unEmvPy3IWdZL69o86MYc47Wa20Ylecv/u5fJ9iEParQ79O0DD
xrKjJojYyjhPPn6YBvOgUr6W+M7xwhdZNANrnQnZO4l3PvnFqUONwcupMdbJ
xPPVi/Onj2Tg26XzcypxfWzJgWItBt5OYQWXiP/Mx5BCh4HHuJtzrhMHt5WG
OvzIYNLFIM8CYotJTvV79BlI0rJ6i4m7llc5PDRkIFbLtrpHLE11zdMyYrDo
8l5FJfHWxw/GLZnEIL/Za/VDYgFqB95YMDhdc8+4nnjcvxGDo6wYvP7wW+gr
4ukbhUNO0xkU2b5Z1kDsOCp7KNaGQc5eRvGO2DvbTX79FwaNlN/ST8ShLi3y
d7YMeN8jwz8Tx73fM6xrzwCS4jltxMlbTBSuc8n629lPOojPj61QbHEk9cy+
atxJnH9zpTLPhYGZVN2hm7jcg+I1uTFIY7Qmf1fl05LG0/dgYJ440NhD/DmB
43v8xmDwyteQPuLB8Q38nYsZWK0SlvUTC+/EU0U+DLJP+PUMEIu9DehWX3Ie
0a/4Q8TWXbfpcf4MLF6Et6nsmLyU8Qwk/R9pK5Cr+jPtY3YHk7wv6wcOq/or
TR1RHMIgetPVbpU3+9mofVnNIOrlzHAF8cF+mdqECAZXDZxrVU5LWfeD9zoG
7m0uRkpVf1Za6vuiGQzrHQtUufx+jnrJJlX/YSkq1wcv1OiOYxCn3SZVuUXZ
pmGylcHvxeI6leWn94303cHAbkd3k8qimeaaBxMYnHE3/aay+GmVZukeBqHL
AwdVtg6XCHr3MagZo69Q2fGHEUKLgwwWzDqrVNknPUPof4Tk/Wnw//p/ynPA
Sw==
              "]]}, Annotation[#, "Charting`Private`Tag$20162#3"]& ], 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.922526, 0.385626, 0.209179], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwt1Ak0lekfB/B3srSZ5mY0FdJVlhJZBmlxv7KFFoRSKozJGlKNypS5mUKK
rqLFNrfcsWSJm124Lq41dKNriyvrkAiJkv6vc/7POe95ns/5nt/zO8953/eR
/8338OklBEHcJ5/F+YjGjS8R26/QiP8Pp2ZDm7n2YyCXnIS762hHOhVmOO0e
i66Us7em0ZRtHxu6nF/0e9d+P9orYXQ1q/0yafr6Ir9QmtbLUX+RLfTF/FIZ
K4b2NVUiTNvlb9LM1Y9VU2mVwWrxpxOCF/OU6+G5tAiXQ1n322+SnrXqUymn
HTXwraiWCidNUXnXW0tjrDLzmldmkLaX1szk0z5daZuOqookbXvJZ1kH7fio
e6Cayz3SQv2mhF5a2bG5pTwimvTxEPl9QzSFmpuRpxLuL+6/8FjuAy1UV1rm
8+6HpA1lpzZP0cZYT1l32h+RtvtkMfWZdvjn3du3XIwlbeyZeecbLe9afT5H
Kp70bf/PYksgM+Gw9xg7AQS9oi61RAwG6v4Ds8pMMvd6XTu7HOdcaSpVM4vu
eOFevgqseHHfyKrHpM/6DlAk8aal8fnJqCdk/VauluQaLJd4MLvVJXFxf88P
Huuwx8hRf0aTBYJzY5y+QRY+AcpBXOJfEAZp27XXU8HMHudFNJF20mPLHN0E
/nD+SoeEpMXz77WoV4AolW6l7J0MgpqSEHdJGTuOmkVP7U4h++16Ouusgriq
Nrnb7akgNDa6mwVooHGe6WKf8pSs/xzZa62FH7Q9UhQuppG57eU/DmpD20tz
bMIkncxPW93y0YXrkznNEqkMsr9JT0aeHh62l/vf7CNNrXL0Ut6NekpYsR07
k/Tl43ZcfTxE+KbPylkgrCqsgkr3QtPho/HJO6T1wtUXLI1Q52/nVjFDmpMR
z50zxnzGhvQ7Vdkgzpo1uT4yQ3TttcZPqmyy/kvkCMMC2wcGJhyiSNPXVC8k
HoCzbKbOFpfnIMxs035hWOHLDkn7iDrScYpOAVXWiLLxD5jWzAFhT7W2WWED
XhitjEPkgph4d2BtpR0ck570KrmTbgtJ7Np5FLPl4qLhTaTNVlfUc+yhMtdo
diwhD4RsjK1Q5AQqpH71KhPLB8GIVOrjnMQJjQfhit6kjX+/WMdwxB03R/7H
3QUgGg57BeU6Y7p13CGsvRBEgVRx7gpX9HyNEU00LwJR8/vQD3ZuqJM3zSgu
JH2kf2tgujuY3nEL7x8Vg7h+skv5uhdu3duXLLbiBYgZ6SWDot7wL5y0lAsg
vasl8dM9H+wXM39sebwERMAe/prxs9DdNm3uXkf6DJI+NviBav3PJH1XKQiv
gsAQ9jnMxH0yYkuXkf0Ni85FX4C1tPX5MG8OiNAL6w1LL8E0I6n6/r+kZfPS
ht9exh6DeZnEt6TfSuOM+J9Qck2uLD5YDmLMJzP23FXMZ39bM6bGBT1D1L/2
5DVMGtt4zp3mku+n2k/i5yAMCVJKxRLI3KSi/NDLIPC/2bjJraoAETTtsN76
OlLMnxZYfqgA3Uqm+MWDECR0fZc4oVQJQp/Pm/APxT1fO2f3U6RvnD/43OEm
AqOJFdcaSZ+PzFDRvQXb3iMO7Mwq0Jd9udqscQcWF9KflQ5WgXPQT+fXjQxg
6RLRejkeOPU781amMqCilpHeF8GDQc1t8WU88h65LLIg5VsNYu3qrRuVojCz
8thh+eRqGBBOg/t4URhNyExS6yFdk8PnekTjTeUxS1PLGnBsXs81F91HOiWL
eVG9FgaK7K96wY9wNOWEUcd4Heg7FQZ8av9B47NajrpCPZi/5tj9aMGEab4u
7YY96QcWRauymdDmUXZqlNeDrsN5Q73+GJL9lduD7zaAEym1pZOWiIaNatJa
Oo0QPu9XcF6eDCPlmAchHo0gVPUWBsOSUbR96Zq38WQ+urzQfFUKUvV7fwoV
b4LTF1ZUtnQqgh2ixboFTTAQ/65+wiINzPrAWeOSZvJ/TqU0iGThhKVOvq+g
GRox0w/lbbOw9vXoHzEfm0HR/iR+5d8sRHTYT40rvgLHaPNb4/3ZuPqf1oeY
iFfQ2M8ZsEhk4/jSob4JRz4oJoNso+Bc/HIr/olMAOmYv0bpQ7l4tcrW2TSK
D06r5lKBeR7Mfinvjq3hQ9iic5u/Oh87FGPbTTVfY0L8Xq7SswJIGVk2xS1p
AcXYa3In9QVU24eVjGVbwOgg1ptEvoCJb1DgqE4Lsux7enxESuAfm6u2y6MF
Z/k6KzaNlkAwJXNb0NQCztfJ36g1ZYhhDZtJxreCE2YfzewqB3tXELMwrxUM
88A/reS4qG+WmXVqbkWog8Pd+05czM8fSn4m8gaUBceuwUEuTtrlih30fAOD
3M2nnnypAFU8iBuyQwDmhCC2hcaDXpyMtLq1AAV88a+SYTxYa+X6vfEUYHg9
Y91YKw9Bp4apigkC0Nt/rviD/M768g79xRVtA6OpbVaYWoMkN5k93161gZKk
Fe6wpx6qtTm558504Mp3VlzZmWa0ywszTUM7sEygIHWa2YzggJUp0qwOxKV0
2Xq2NKNn228x3M4OcK7uC4nSf4W7ET/9Jbm/E7875zR7SPExZ+Npxt7ahQth
AUOKLa/B697Y+XHwLdpsjJ5tihPg/I79LVVLukGpaJ1p6xSAyvB/+UiuG6FC
4ci4TBsu731ZtvdIN7ZojOchvg2qrABWZFU34uTHyk+z2nHPo9Vbk9WDWSfr
yrLKTmgEmNALsoTI/OFmQ4SSEMki8tU5JUJwKJesu8yFkAuf/zG7Tgjmx5el
h72FkGA+j03tF+KJ/sG1RTlCDFXJ58es60VBzfCPfia9SFi9MHaF3ouAruiL
fj7vIJGa57DX6h24sqbvdbv7yftFeUfdeB+mJz0d09RHkGLY0Nj1rQ8S27Tq
LZ1G4Jlx1nV8ZT90/3FbtyFyBO+DCqOltvQjTq84TXNqBBNq+6dPOfXjymHv
Sf3CUcz+7ZM91dyPheojJcUHxrBCI3fbBvYALmVwdQmzCaiGGlLPXhhC+n9h
9ptLp7D8epli6vAIJNcZuYlv+IpkE7NbByTGwEs+enWg9zv+B90bYbE=
              "]], 
             LineBox[CompressedData["
1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAA0ycb4iwn7T8cLFRBDQ8AQEUv8ELq
z/A/cIwyUVH3BECYHkJwY3HyPxJ2RdN3NwhA7Cowe8h38j8++K3mWUMIQEE3
HoYtfvI/1RPzZzRPCEDqT/qb94ryP8KIZY7SZghAPIGyx4uk8j9e7DpmspUI
QODjIh+01/I/Y8XFSvjxCEAoqQPOBD7zP5ltczJgpAlAfLXx2GlE8z9KwlHS
Pq8JQNHB3+POSvM/+EyMzhS6CUB62rv5mFfzP6y+7r2mzwlAzAt0JS1x8z9m
seSoYfoJQHBu5HxVpPM//NF9aS1OCkC3M8Urpgr0P20NeNrt7gpAsLAXX5YR
9D9OsSEdfvkKQKotapKGGPQ/eix2PQMEC0CeJw/5Zib0P5mQpfvrGAtAhBtZ
xidC9D9wzk+zNkILQFAD7WCpefQ/zjg9jauSC0DDccBjCo30P5rWwtUVrgtA
EAaelg==
              "]], 
             LineBox[CompressedData["
1:eJwd03s0lVkfB3BKJc45W8SoFJoZJSdJRmXkt0NC4g1NprtbT69BohsJlbAk
g8FETsqLVCIpOUpqksZdokFIbiWXLpzjnOd5DrO9f+y11+eP317f7/qtretx
xNl7lpycXAw5M3d7r/7vIekT0KLGFvc9Vcb9TlR1xucJEK1UquCYcHBXnZCN
E09Aprf0nO4mDm6q2u/ppyCCsrSJ1BVOHFxSlmdkqCOCXSWCxJxADj6fZV5b
uEsE1qqL4dBDDtYK9JIrrhLB0jF+wfB6Ls7tanfj14ugtCw7SBm42MjOqSjn
tQhMhOVPdGy42ErHzONyjwj+Hnw2YODKxT4NqPIMLYKvr4+erjzCxcJVj6Jt
DcUQEvTL2ulsLv6lbwHqThHD2KVvj7Lm8XCPYzS1K0MMyw2Mm49xedinjK1o
yhLDuKPWZXM1Hj6T+CHgeaEYcoQLLe4s4+FsKG/OqybvSaO3qP3Ew+NXDqcG
ycQQc8H0B9EBHk5wrVg633sS0gdONBkU8HCFUdpVru8kfPX5PlirmIfHOEHa
qkGTcNPMJVO+lIcdXujpLjk7CWHXWiNuPuNhRdP4H1YLyHzLNiqghYfDv9tn
sKN1Ejx+jhK8n+ThgnHT/J2dk1DDL3q4lOXhzkaV1bv7JkFJNb3RUQ5hs5hK
Q8+vk9Cv2KaVoIiwWGJgfJwrgfDxUaMETYT9O+gNaVsk0Baq8TTeFGFBSYtQ
4CABffvItdpmCNclFZhluUjALbzXImcTwqu2eZjfdpfAmjKpW5I1wgOPqqH8
jARUlFOffd2B8F7BZZv3DySgOPRzcKMPwheDA18OPJbAO3+fqSd+CJftdLD9
9FwCPZeOdmQHIKzJk7MffyUBxzvR1S4nEG4Jo7bPGZNAXaTWMJxFeNtBU1d9
PSmcem5VtzcFYVV5O4azWgpTt06P5v+JcNv1PVlf1kmBL6XjJtIQ9uqL+PJw
sxQsTueE+lxFOPRQbZzNPin0Z/hkfMtF2HJe97pVXlIIvCbjy91EWDHvSwf3
NylMVL+4Oec2wslD6vqtp6Rg+FPsNUkBwvm+B194JkthtsEltYgShAO5Qb5b
r0ghe/htimMpwhsKLqgZZElhrDPnpHoZwpWfb7l/K5SCkntjclw5wl2BIllE
rRT+mij+R7cSYV5wrOnVWTQYGY81iBpJ30WCrrPzaeg2Wrd/xyuE08sKI71V
aGB/HNqc24ywHtvSzF9GQ5QU25i3Igzh2kcebaThf6NrZy/pQHiujrFGJqbB
a94yseVbsq+n1uXnttKwcND0iVcnwm6zfJTtd9LQ+ngfSu1GOODC/RttAWS+
wetcUS/CpnovHR+fpOHu1Y3DN/sQZqvaRZlhNMSme97J6Ec4RnHaioqjwUQ3
P+LoIMLXL9r1iG7Q8OqJolnHEMKH+Xuj2wtocKtfY33jE8KG9f6G5Q9oWGmV
ZnhkmOyblxwa+Zzk0XD9+HkE4ebEbk21dzRcs/pQX/IZ4ZW6CwfCB2gIoNUL
d3xBOOyuXdHIMA093ODEj8QGjfftqiQ0jCQ9TlT6hnAk52JIsCoD7QFT83Qn
EO648tRmUJOB0rbgEAHxWgOxqos2AymVBvs1RAh327nf5vMZsLdxLpIRr49e
3/luCwMdhVEoexLheA2/PAcHBpZ5xibPkSDcn5N1TOjMQKW7hPYkTqjkcv84
wIBTr0r2d1KEB12s2qe9GcDl92b5EW/qO5Xj68tAblF+SAXxJ/n+TTbBDHjM
9RvbQyOMExcpFYcz5L/Pn5tLnKrj9EY7ioFUOs9/lNgKyvylSQzULd3vc4xB
OCM0ITM/n4GwnfPjvViEvylX/baomIHLcY5304ntrjDro4QMdGXnJjYQi4WH
mg5UMZBU/eHlGhnCDnYZGXV1DKCCnvX7iLPaXh3e+JqB2F4lQQyx06S5vFoP
A30ZMaHtxLlRgfXhgwwsV4hcME3MqueljYwwYLlkumn5FMJ5JmrGVVIGQiqX
KHgTTz23nTKWY0FB+UPieeKdLmE1mXNZsH13Puwa8azAIY9gNRag69GNVmI3
ee01g4tYeNM8JBslLkhwZZx1WFAy5g4qTCOsoBP7skKPhVhPoe9i4j2FFX/w
V7MwGO9z1ZD4noXoQNo6FsKyIqM3Eys2rOLPNWNh1NnZxIX4/khK5TsbFpIk
BfODiJVCaxMctrNQWbDN/iyxu7L8PqELC6WbHoTFE5emm+rr7WZBs/vGvXRi
3ipfUdJBFmJKKr7mEHsJrz+bPkT6XTq59S5xme0/l3z9WDj/3xUVQmKVNs7u
9iAWMlbO9vqLmKIs9WxCSF5Wc3MNsQfVudjiLAtm1S7jr4j3UyeQaQwL3w8s
aG0j/pVSUTD8nYX312vGu4ldqVuSH1NZaHB7uLef+D+U9ehSAQsfTzRpDRFv
o7rfq2ezUOZag0eJbahTb7i3Wah7vaD1C7ElpVo75x7JL/x7YJzYgsqvkJWy
8Gf5szAx8UbK5r6ogoV4CL0tITahevJGq1h4max9kiY2okIEA/UsmL89PsIQ
86mFSV0tLORuGFSXEa+gCqJa35L+3v6yGS+nbE/X97Lg6XYlf4p4GdV75MUQ
CxMtEfxp4sVUqFf5Fxb0YwovzFid0vj1wSQL1mv0n85Yhbq7/c4UC4HMjr4Z
cyh7y5w5MrBo6hLNWJHqNxVwZLBBWCKb8WwqzCBFTQY1yW+mZ3y99niy+SIZ
HJya/r//BbNjPcI=
              "]]}, 
            Annotation[#, "Charting`Private`Tag$20162#4"]& ], {}}}, {}}, {
        DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
         AxesOrigin -> {0, 0}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, DisplayFunction -> Identity, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox[
            TagBox["\"t\"", HoldForm], TraditionalForm], 
           FormBox[
            TagBox["\"position\"", HoldForm], 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]], ImageSize -> 400, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, 
           "DefaultGraphicsInteraction" -> {
            "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
             "Effects" -> {
              "Highlight" -> {"ratio" -> 2}, 
               "HighlightPoint" -> {"ratio" -> 2}, 
               "Droplines" -> {
                "freeformCursorMode" -> True, 
                 "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
           "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
           None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> 
         NCache[{{0, 4 3^Rational[3, 4] Pi^Rational[-1, 2]}, {0., 4.}}, {{
            0, 5.14429654862995}, {0., 4.}}], PlotRangeClipping -> True, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
       FormBox[
        FormBox[
         TemplateBox[{
          "\"motion at robotAmax=1\"", "\"motion at robotAmax=2\"", 
           "\"motion at robotAmax=4\"", "\"motion at robotAmax=8\""}, 
          "LineLegend", DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
             FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
             False], TraditionalForm]& ), 
          InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                    "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm], TraditionalForm]},
      "Legended",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"], 
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, GridBoxItemSize -> Automatic, 
        BaselinePosition -> {1, 1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{
       GraphicsBox[{{{{}, {}, 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.368417, 0.506779, 0.709798], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwBYQOe/CFib1JlAgAAADUAAAACAAAAVjCF+o4ufD6LjvDyv73TPWDQQlP5
2Vk/OEYr7kVTIT9W2yT2wNlpP97JgV9geTg/PidUoUJjcz94FJeV1nRGP9Hg
lcek2Xk/K4p6PqpEUT8yzet2AyiAP1AOLsxkG1g/+6kMijRjgz/RvWUIwadf
P45jTrCW2Yk/KrjRudJQaD9XQG/DxxSNP8lDUHW2+2w/kA5Ia/wnkD/CHhn+
WPRwP1rraH4tY5M/X1fleDk9dj/tpKqkj9mZPzLu7mq7C4E/UhM7Lih3mz/O
DKok/aWCP7aBy7fAFJ0/aiZAk7pLhD9AL3bl+CegP6VTw7oiuIc/CQyX+Clj
oz/CdsQYdQuPP5zF2B6M2ak/NJdeKuywlz/O/KBjWKiqPyfBC4OAyJg/ATRp
qCR3qz+4qGqD0+OZP2ai+TG9FK0/EJpEDWYlnD+YP40i9yewP6idsVAdaaA/
YRyuNShjsz8qqRJ8Q2KlP/TV71uK2bk/64owiVkssD/f+5oEo0m6P7X/vQLm
kLA/yiFGrbu5uj+AKbYVFPawP6BtnP7smbs/Miq5q0rCsT9LBUmhT1q9Pwgr
cQncYbM/URpRc4ptwD8jWtCviru2P6hJqrhP7sM/Aj/S1PXKvT9XqFxD2u/K
P6vB0bTof8Y/FENPz5wC1D+NZsA6aOPSPyzJtLVybNo/2FbBHQGL2j8wekWA
uLDgP0DXk4g9SOE/59cnN8rv4z+lZOC0br7kPyyIQiBwdOc/DSaCr14S6D8c
fFgEQYLnP/HCNy9wHug/C3Bu6BGQ5z/jQT+IeSroP+pXmrCzq+c/JhddtXNC
6D+oJ/JA9+LnP3cjAocFcug/I8ehYX5R6D9jf3V3m8/oPxoGAaOMLuk/Dw7B
YXWE6T8JhL8lqejqPwRvp4oc1Oo/GFUbVIz16j936kbPXN3qPygmd4JvAus/
aYcUPJXm6j9IyC7fNRzrP3/RbIXu+Oo/iAyemMJP6z9/jFeaQh3rPwiVfAvc
tus/apNx9G5k6z8GpjnxDoXsP/wIPXPK7Os/FneVH/KR7D/39D/FC/XrPyZI
8U3Vnuw/EjSJAEX96z9G6qiqm7jsP77kECyfDew/hS4YZCjs7D/h57En8i3s
P6hFSItMDO0/ojqGwddB7D9auJxZ
              "]], 
             LineBox[CompressedData["
1:eJwV03sw1WkcBnCinUi0RZJySylRVnZU4nEnbbKlyORSSEmKlbNrS+1uG+VS
LrOVLEIXl62EXDuTShkbTa5HJLkkcn7v+V1cDh32t3+8853PvH+8833nefQP
n9wTPE9OTm4ff/6fbUba/SZGYhhzJzU894xBoaG0NkqfggXJ3Lt+aAx+MSKr
8E0U6iaWJMmJx1BpIqsOsaagbTaj3MyNISzFucrnAIXKoeymnYpitPl0ldum
UOhtLLJrMRAjXzx7X0We4GHczitKfmI4L3W7ld9HIGe8eU6zSYyc+nC9LIog
2EFxvKxVjBlBWva1rwRvhDUKru/E8A6n3J1UJLDwTQ7xGBZDpdVy15Z1Epg5
nNswKkchKrNxh06ABP128xtszSk4bZLYj76RYGjOzDEqicI8wW2jUx0SHD66
NVGQSuGp0EdlokeCu53p2pHXKGxzr2+XH5WgKvCQ6q5bFMxOZBzVUqRRSldb
ZpRRWFHkmOy6hcafhXo2KV0UOhlpZLMNDd+c3IYFvRTStz3w8nSiccHl+3RB
PwW1Ri39gD00WrL9xNu+UFAcoUoFYTSmlFfkeH+lQK290XUnh0Z/4WQLWUlQ
FO4uNLlLo6bujUe3HsHRxwp5j/6hUcBYqwgNCQacwsOE1TSaYw5aHTMhEAU5
zLW30bBOKxfstyJ4nis2nK/EoGdK3SfRi+D8aK5SghqDXEZ494sPgY25N7V4
GYNh1U3m9n4ElXXPKlauZuDmGy9rCyK433fNzcKagfR27cmUCILrOvanAiMY
hNT7dwZfIhgzNvu1QcDgdpSswziRwM5S56JpLANf88iw4WSC0d3TNycvM+ge
uHnAJZ1g+2+PXiXkMyj7lGCfm0VwNSmnRVLIYPHgiYnVtwiGbiS/31fCYCa9
0+7vPILkR6GsrpBB+7BjTvQ9gr4BA92yTt5bNP94UUJgIVlsrNXL4KZ2xfS8
MoJLX2ctYgcZ3Hm9SmXrYwJzjW43V5rBgChellBNcME5LbpHmcUa2W7DpmcE
6woUmhVtWCQFx7fVviU4U06LjjmyGHfKW3q6leBt3YeBZjcW8fl5jGE7Qcy7
Gul1LxZLRtamHhcRvF4YtcY0goV4JjQovZdAb/lhs1QBi54zHQ+U+ByfNvSw
mjzLYmOjfHb0RwIda5Mf6y6z+PRDcajlIMGp8MEz+/L5+8C9Lz1HCF7EtMRV
F7KwtS+xiRsl0Ip7mqpbwsLbwNS/5AvBs+zMeyNPWGhltWWMiQmWFV8udX/B
v69rViHje3K88mdhaSOL4jCl2G8kBOpvPdvOdrK46li0aI7m8/Pe/kP/exY+
taWdFEPwZMRs1GWQxWB7lXsHS3Bk3iK5JTSLz3mezonjBNWqM8qCSRbz12xt
8JkgUNUe0eiRsWjqrZbqTRJUbK7fcEeZQ5n1zvD0Kb7HDzX9//qWQ1y91UIP
KUGhaWjqxeUc3FJ6PspPE+QX1tZH63KQv6/OFvDOMlKTHlnLobyrCa4zfL7y
D5l4mXJo+Y1r6OGdol/m72LBwblOcCWE7/0F7QMvjew5/P6vr8hfRhB7vUiq
uYNDrF7xwSbeAo1ZkwUeHJ6v2mjw3Sz/v6keAVP7Odiu61ufwDtULS/tsy8H
A9e6qG7eQYnjL0VBvI1aFQzmCHyVXKcbjnPoVF0h8uO9/2KGaVUkB+mnTCaF
t4eCOKDgFw6Nm4M9a3i7nUf6jfP8furnZt/xdpClvLoUxyHHVkpLeD+PeBqo
nMQhMXL7TzO8/wMQuuOx
              "]], 
             LineBox[CompressedData["
1:eJwV03tUjHkcx/FkLEtIueyiTSiKLkS1lf1QG7rRWmvsCcskkz2t2k2WdHNp
O2iVNkNrpsiOjYbM1iSRJBNTE6nWpnRDh8zlN6vneeYa++wfv/M9r3O+53ve
//yceAkbYq2trKwi2ff/fPbCNTfldwp2VF6S+QOB27/dBWEXKXzb41zxmvX8
PR4P/a9Q6FNUO7ewdlBlmt2kFM5k+b8pZT09rt1jVjUF26Zmcwpr20Fn3oQ6
Cnef5+4IZj2et/+0WU4h5lfJTGvWnL6mhyolhdhlYQtvvCd4H+1g6W6nsET6
2wkea31ngqeyi4I4riqEw1r3zT3e7QEKPwa/4ApHCN62TRVI3lBIlIQ2uLF+
tZ6vEBIK83KdjpVbCHqUNy05DIWxmy5ccWP9NNTGK22EwqQha1ehmaC1cVvM
DxwaTNnhMRzWTcFSwdYJNBpSv1vFMxE03B3dFGlHw/Ovrp4qI0FVTamXxxwa
BfraFcEGguu+5pjPFtAItJaNPqgnuFwZeWaSB43KmDjPywyB8Nq7EW0ADR1n
Re0biuBISWBzOZdGQnXFP5SOINUx933xNhojUfm6PkKwTziwJC+WhoO650C9
luB7wS9nE5NotCwPeslXE0Qdb41dkkuj/94ev6DXBGFj5xU6CVhHdZj7BwmC
jyYrp4hocGU6/32vCHzSZ3q/u0Ij8bbj0qMDBLN/2mlV0UjjjvC0u0c3waWe
Z5sXt7D9JfYW0TMCr9D1UnE7DUGO5MSYTvbeHH/e2X4aXbL5w7c62J5Hk++n
mWgoZq/5qLGFgPo8a7beioHlUakV1UyQLjbtTRzLoK9qReOnTQT5qYPOMVMZ
HLP2qI5oJLjpdit7rQcDrrE+OuoOQZDAq79+GYOr8rCOwNsEylGX/AICGJiu
58x1qiHo78wbcl/LoHK4KOSJjGBc9q5wex4DcaSt8rGEYNPLKZN7TzPY7+ht
u6aQ3V+XzecKGUQpoo9JBWxvjaWutYRBcchxrX0BQdqp14kN5QwqVsoP3z1J
8Adq20oVDJLjxebqIwTD5+IESSMMlpUNHFwYT5C3sc7h41g9xLLWBBtfgjqv
wqKJ8XpkrLM1uXoTaG2SHO2S9PhAS1d+4UkQIXdxmnVIj8mKtAnhC9hen5Pz
3UV6lHZGt9HTCTJmbF301d962D+fMiaf0mJPl8mvMMSAiZkiPlWqhaiq46Yo
woCUzasqNRe1UOZf8y/52oAyspzTW6SFWzgvsGyHAa7rk25cLNBi8JYCtWkG
DPzJvdqQocUW0dnVAzIDtrx7oOFu1CJ8u89GVxcjVOeTu18wGtiNCjXbuBtx
7/GDcb06DTovRJfovI2oDcjqbH2rwc6Xmbobq4yIKh61W9SrQequ5pzVW43o
2XAuv02ugSR+uzymwIjFFZlLy/M1mHTguE+RtYn9L/VhwS4atJ3q/cS+z4QW
q2Hn3cvVWOg0dTBj0ISrerFK5a5G+vVQqVplQtaTdgvfRY1FjytDGw0m9Cfc
Hx8xQ42jNidSDtiZ4Zy+dNp9gwq+2b7P+0LMeFqePpRco4IwNa9YIjFjmr+r
TuenAp8f5LI6xYIdP8vkTXPfYv8Hy3mO/QiEIdTelV8O4T+LnqTo
              "]], 
             
             LineBox[{{1.8204238876706174`, 0.7871148267744676}, {
              1.9903657287073417`, 0.6437131171861167}, {2.100488917288508, 
              0.5364002205528033}, {2.208607058488687, 0.4222314855470692}, {
              2.309470870115399, 0.30955304845292875`}, {2.4188281987460822`, 
              0.1825670393803431}, {2.520931197803298, 0.06127714757355057}, {
              2.570507873629826, 0.0019637752277202663`}}], 
             LineBox[CompressedData["
1:eJwBwQI+/SFib1JlAgAAACsAAAACAAAAlYZPhB6XBEDj8ybMVRZgv9zdq1VD
1gVAnqLdppH+x78diT4uzaUGQDuf6H5Yh9O/AUlfE7yGB0BmoMF5z2Dbv8ub
mL+PYwhAQpfwWTlS4b+dwC8QiDEJQMSV2ZcodeS/EvpUbeUQCkBQ1jaaWIfn
v44F2G5n4QpAJfeS91EJ6r8IdPoJmeQKQOxUvQRnEuq/geIcpcrnCkAcfbYL
dhvqv3S/Ydst7gpA4DQk/YEt6r9aeetH9PoKQBiGiChRUeq/Ju3+IIEUC0AY
Z0N5ypfqv7/UJdOaRwtABLb78Bcg6784Q0huzEoLQAVCbnhnKOu/srFqCf5N
C0CJ7uWrsDDrv6aOrz9hVAtAUlBqDTBB67+MSDmsJ2ELQG7jpHjiYeu/WLxM
hbR6C0D7cwDiE6Lrv/CjczfOrQtAn8wqxZgd7L+8SshmRbELQJEIQWq8Jey/
iPEclry0C0DMoJ5E2C3svyA/xvSquwtAXF24jfg97L9R2hiyh8kLQCJCciHb
Xey/shC+LEHlC0DqCSrUJZzsv3N9CCK0HAxA1TG63b0S7b9AJF1RKyAMQL67
mbniGe2/DMuxgKIjDEBQoNZx/yDtv6QYW9+QKgxAGhexbCAv7b/Us62cbTgM
QBbOPEEAS+2/NOpSFydUDEAR7n4VNYHtv/ZWnQyaiwxAGEJkPWHn7b8KdYPO
1Y4MQAuM4R0U7e2/HpNpkBGSDEDTALSgv/Ltv0fPNRSJmAxAmp5MhQD+7b+Y
R84beKUMQMUHQpIpFO6/OTj/Kla/DEBQrif/Fj/uv3wZYUkS8wxAoP4biVGP
7r+QN0cLTvYMQKvsKecUlO6/pFUtzYn5DECNA6+p0Jjuv82R+VABAA1AGgO9
VDGi7r8eCpJY8AwNQGwUig+XtO6/eFrXq2AWDUAQFKPStsHuvyRCSUk=
              "]], 
             LineBox[CompressedData["
1:eJwV1Xk8FesfB3ClEM7MHGdyu4o4oT11SCj6tqgsV1QqouTaQkhSaaMSyi4i
lHIJqZQ1ypNdZCdCHHvkmJvoouj3/P6Y17ze/zwz810+o2DtesB2vpCQUDm+
/n9fwAksWiLLAtZfmUmDVWNIuFPx1m1zFqg7ao51LmGQI0+7U+I4C56Vfy+d
Wcagen9TXtBJFpzjRziQCgx6sPlWV4gDC5Q3iRGyqxmkGTKkHunJgsDwyqj3
Ggxy3Zk29DCcBU7vn9XaHmbQx+hibYUofB5lfZExY9A2pj3icQwLvFWn6lwt
GSQeJwFJCSz4Etd44ZANg5ImnaPTnrNAPO67z7MzDOpIUdHLrmLBccW7hXG3
GbTz996H6rUs+GDevi00iEEpplaTuQ0sSOqT2+cVyiDP+WGP8ttYsNZffW5T
FIPYFuPTaJAF5o1K2SqPGHThlbjxjhEWzPGb7VsTGdQltiK5WMACtnNf9Llk
BqVnHzxQNsGCuPUzLpFPGbSXzE6rmk+A9/s7r62zGfTctkbIUISAQbt/1hfm
Moh+M3C4ZhEBr0UJKSqfQb0O0sL1FAFi4VOK9woZdKX4/LEWOQIW/5e6i1fB
oMxzWpJ8LQICRGT/vf+RQda7+ieUdAhInapR3N7GIIod/NlpBwH/OpwYbf/E
IJf0nuf/7SVgXqeoynQng9b0+ZuQpgQUSEmdqO9l0KcMnpbpUQLy91qKbupn
kP/VTm7sMQI+NXprBAwwaPDPjRPK1gRE9bpulP/CoEfGrVE6rgTITmww/TLK
IGM5n2s33QlQmXDjLhxj0NzXNQ5V5wgIK5t2+ZNhkIXfVc3DlwkIqtHyWfWN
QRKmq7hx1whw0UzavWKcQfncRvHe6wTY9+VfX/ydQUsKlTpPBxAgbXjSkT/B
oIo7daWZgQQs9M5kv57E/TG7+Gw6hIDyLlWVgB8Map74cNU3igCP1UcqySkG
3Sj2tK+OIUCTqdpRjs0LlTdmxxPQEkms95hmUMhaD4X4RAJsg98cyplhkM60
rHhfMgHDu0RD9H8yaLS8YnxVGgF5ib3qH7Fj757pcHlGwM+SXQZmvxikb720
NCsD1/elQnUT9rRKWfpMJgFyZ89l687ieZp1iYRcAs6LaC16gX2kesnVW/m4
frbOZeQcg0Riiu0+vMXP85UYtsfOtnPeL1VEQI/ZkrO52DZq0hpHS3E9GyOt
57A589/JP6ggYLzLP2fbbwYV151a1F9FQL/b1Gl37DPxnPHVtQQkeQn8HmLL
O71td20goPObu3Apdq2GfUl2MwFe9ZHd3dhXRNjpP1sJGFtsu/Q79rrm/Ls7
OnD9K79lz2K3P7K54tdFgNAPo+e/sQNcCbuaHgJEcsKEp7E1tPOMOAMEqK5p
yBrGHhK33mL2hYCha8pFDdhRbRLyD78ScOpb+sqX2LrJ2WIDYwQoVfgM+WFP
nD3xbc04AYKjpb9NsRN3LGp3myRAnYxyXYp9gMwszpki4KSNjHob/v55ny2e
/vpJwI8BzwOB2BlpInd3/ibgy+amki3YJy5kXPafT8KAhFlAO643scfctnYh
CbfV1R57YDv1PFM3lyShReefqmDcLzu2x6sQkgSeoYQbG9tqh9aGMikSXOwH
Cu7gfh96VK608U8SHI782mWP58OoIfCR7TIS7rYXX63E86M376Bs7HISPlSR
lgrYOie7aRFlEkymbOfl/4frE5YUunU1CX1pYuXTeD5Vi5wkz6wjwSrXZu0m
7FUKU8KdPBKUksNabuH5luqhvr/cTkLXwXWRNf8ySJLd6jK0kwQ9h2nDKrw/
ojviR5btIcH/jm5CId6vXwmre/0MSVDn9UsH4/0btNrZYGlGQkrQadXKIQbx
Q8X+irAgoefSkRyfQZx/72orK0+QMCYsVs/D+1wvf+ydqh0JkwV+ZZfw/ufz
z75YdJaEiiXz01JwPmRRWmu3e5IgminVLNfBoBcg9MTjIgmvS7NDA3Ge/JMQ
+KD7GgnuUkXICOdPsFVSUHYgCff2lAydrsP5Eeq06GsIrlezSkxCDd7Hd5t8
5SNIiIry+VRVjfNTvvDynRgSbF4oLxSpxPnF/+h0MpmE+J71s9LvcF5Q8UNR
qSTIvXWSEcH5dwT+/vtDOgnchU4lowUMMkxgzLdkklB4TDc3AeenupWYPusd
CUWDYrKJzxm0iK+56vUnEqIDqHh2LIMO7+NpqH0mQVt2ZSpE4/fPWLPvBZ+E
klnrt7aRuH8+Sx2Shkh4KrZlNiyEQe7c2SdhkyTsuXKhyf0Gg07z+JxsMQpm
ZeSfm55i0F27zlh3cQqqFrdzB2xx/e63rdgoScE6h644R2vcL+EG1ackBdMS
PglHjuG8bCo6+EiagpxTCwZeGzKoxSMxIkiRgok9KTYP1+N+pjxcaqBMQfGx
j+tC8P+Q+zk2UWwVBf7BhTMeSgxy072beWMtBT/nGadwZfH/Ttq36SKPgmfJ
W/eLSOL3z7Xj2AEFXXPVs2NDYyh5enWEjgUFj+2aFPdFjyG3YRebLksKFqzh
LD8UMYa2fsrcfPUEBWdkddyPBI+h+jzttrfWFLxz2am0++YYmjlvIqt9igI1
s+Ufsl3H0P4fF55s9aTgTeuVezO7x9DUeEWBRigFW/KGwohhASrulQxqC6Pg
ZPDpOpE+AQpqNDl+IYICg2q+149OAeK+6hDKi6JgfuqM3Jt6ATI8w+huiadg
Q3xMFj9XgB4x0vWb0/D5HXX9ITcFSH/Utp9XSsGu1r8uB/0hQDpTJdcmyyio
/2Yh+pkUIN4C7tK8Cgpc+vVTuWICJLOsy0S7moLkTFWN0KlRNGxwGO1tpMB7
8FDGRNso8n+6574Fn4KgDIfb/fdGUZnjSuNbvyhwY4pGnIlRBMNfCj6psaHz
0KxaTNcIMldukb+rzoYDNR7XnjWPoLN/F/kaabBB5Y/qsryqEZT8OWZ/yVY2
yCkrmmTljCBWo35f+k42SB5c83J78Ahqz08X9zZmw1DOa9m0rSPII9DNTNmZ
DQawRqIvZBilqkz9cE9kg3F6cFai3BckfUL95gNxKXAsFVlutWQANUcX3Lvs
JQWsG92WUTY9KKrAdXa0VwqWa9skEHodqHplRvl+PQ7IWN4MnXvShA482CJt
m8eBvDIdvysSFaj+fGGWcD4HOlZfyv9dX46MTHQPPi7gwPvJj4/vR5Uj/QUH
Q7sLOfBDZFhjGbcc7XJ0ETcv44CsDVfHXKsMqaknzRk1cuCbvubxFW4l6I9a
qSGNUQ4k/Vp4xPULQlFPYnxbBRzYbCFSZnsJIdpHXtGT4YBTrOBpOoEQpbbh
ZOY4ByRv14VuVC9EYvf1OtZPc2DXywhdXsAbNGPrXccVoaFXaLvXFniNOmcF
uZLyNEzmxwXJ/HqFfn9tDe5QoGG4ruFtYOgrxG0vsk1bQQN3o2JDvNIrZJ8T
ydm3koZ7mXNaT0xeonEXbdcbG2jgU7ryen+/QGL8QOWZbTTwNgWKflqZitbW
es5W6tCg/eP5RnP7FGT0xqr5HmDrWPGvpDxBEdFq1zfvpoEQTVv+QSUZyZl0
fnYzoAF1+j12PpiINhevjRwyo2FJsVrusCAWHc1Y7JxzjAZLKqMlP/U+8nrw
e6evJQ2+KdVxUo4x6J1X07/ckzSEGAwsKJuKQoaqlwyPO9BwuyUr4I5JOHJV
sF2x3pGGqjtWu3vUwlA4uX/mpxMN2wcnxktkQ1HrV25KjCsNMqH3HTLnBSLr
f6qEWzxpcCivbFu/4ibyDc9qT7xAQ40gvFvlr+soxfvBS3cvGr4bBPu+8PVG
Agv3E9RVGqTua5bq6XkhysBCvfsaDRNss3zJP88jnuYe1nMfGgZMVJIDJDzQ
hcUyBQa+NNRezGKdLnJGscILwmX8aJgdS9K7GWqPCr8JHIb9aRCTGmbG86wR
v7t1e95tGoTcjNxYvhZIuLZI2i+QhjfU8Qe3XA4h5TdPBabBNLhs8kzpDddH
+9IiSxVDacj3PmrM/m8bcoq+Fvs9jIaPF2s13/soouBbp9yLI2gY4kn+RG+b
3v4PbCRCeg==
              "]]}, Annotation[#, "Charting`Private`Tag$20253#1"]& ], 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.880722, 0.611041, 0.142051], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwV0Xk41Ykex3EJMZSSK5kSUigkaVwjPpZsV5KISvZCIZ6IIde4VIxsKTuR
fZkMJesYW5YhyxSN48hyHM5xzpF95/zm3D++z/d5/fX+Ps9X2tn76h1uLi6u
MM78f1urPNmMVQ7WFlEIESlLnddy7Nez3CDdwOWLIqHUY1qwJsuuNpHu4pmi
m9BQnBW05axe67n4wnOr80sN2Rl/jSd25JECodDn98J1xxOqPUz/3fKhoNUd
Hl3Q8MNWsVCUmks4mD2VI6rRQYh1uVyeRPoFD7vZMi0Oj2Gj493aIRqDxDkH
LQXDSMTvM/bYlovHxSby9I5zNG4y3UOUXF7gg+QkrTk1AbN5JXlxpFTwHQoM
d/LPwNWDmsryAemgrjhe+XgsC1X/665uEs2EpYBF19hsNnTO+E+ty2UjeyPr
lNmHXAgIJa8ruORiMfmwxN7PxchoG5KMJhWDi3KwPS7nHXq3s12uF5XAgZ2a
MxRRiV1qd4tkA0px9qw0D4/Pe7jmbJxtEH2D4gfEer1xNVIQI7MmV44Ppo0U
2uF6OB0pOy/v8g4ZxyXVriQ3Y3lwzjaKVAvbnyTjHN27MLaVxpNrUoffxl9y
LfF3o0va8E19bR1++VQb7ljSjWyvDDYrtR6iKg5E7dxHmPKavDa/2QAKO/Iz
PbwPFhIWvlFeTbgsoelq6PYJRSYlNebfWiHzKF06Z+Zv2BTd0h+e64LLM+H8
vIYJiOqb92VwD0D8FG8otZEFxT8r3z/wHEbjl4SM8gdLIEmPlxlGDkN7YvCx
T8QSngYJFknkDcMn36zreMYSxk47p7WQh2FOGZe43baEhFjhn0VMyShVnck0
ObSMDct7xm8VRmCuHSiUXLOM9tFj5IXpr1gzT0yvm1+Br7rpQBv3KMycYu42
716FVLx/T6rkKAaHus1rxVYRqNvTqGs9Cq4J/pPBF1ahmBeU97xtFErNlkaX
Ilbx4u6g19m8MTic/VldQGINKkEGoTXl43Di23fkxbl1FO6W7qhsGIe9Rvvi
f/XXIRmzvbeiaxz502OmNy3XIZT9Lr2YOg6jElt72oN10Nqkq9PEJ0A+wbdh
UbGOVwfYs8GhE7B9ZDrreHoDQsVVtrpXKNh/SeKUgugmwlUTcrTsKDCSuryh
KrOJzXqvGY17FLgKSv6opLIJeq9sgOpjCtQGvZYWTTfRupyQcLyGgrcXKoNb
wjYRpOP9J6/UJDy9siges5ug/S2n3jU3iY4WTZ36qi0U6X3sHdmZhK2uRl9H
6xbuvfFxnROkgnp8RbG5fwussNpEUXkqVgvP/hjE2MK8kumyvSMVpTXSNJ6j
21gPv1+x1E/Fyj2nUwEh26j9JmLCN0ZFc8S7KrOobQTdqB4Xn6UiWOpaxf6k
bWwrc+3XFphCuovKiO2bbewafn4/UncKf/x1PoCPvI3vVN6fPvp2ClZ6noFF
qjvoTrvReqZpCosFnQn6WjuI5mXf1OudwpAwqafLaAf7yIZRbowp9OqEpWTe
2oHI0yF6hcw0csEUtnqyg+9HtvINX0xDcu+w7q7PO1CM1JPy8aMhcf+glKED
G0eCr/PohtFgP9otoeHGhqDPffqBeBpSu9tixb3ZYNiklb8rpSFvQvlrRggb
RXKLOmsUGm4b8FHqMtg43vHaKcSCjulUfSXTQTZE6qsNzB3o8DDy5OYdYYP7
tx4FKS86Ok5OapRS2BhP2lhojqTDZLS5+/c5Nl65WoTxNtExQAp0XuYnIMG3
KzdaeQY5PjEtleoEvtsUi7C7MANnuS9OaloENmYVPZT/MwNH47ob2XoEhgav
n+u/M4MDJg1XtcwIJOWXtx7MnMG58dvuz5wIPE1tL6SWzGDPvya7vFwJPIwZ
efa+ZgYrhceeXvAgYPWQ38pmYAZNA6Q9WX4ERAwcqWmCDLSxdPR+ekqAW8O/
0+MwAynCRn4NUQQWFKN/vSDHQIeWA/dcLIF+0Rq/UT0G9tTdOn8omUAsVZhX
JoiBaX07weACAiFDJ2YWIxjQJ3mpypYQ8Pqo2dOayADXy+36mjcELlW6Jd6p
YEC2rHyzoJKAwOPGE8V0BvwHBgxSmgmIX/veKnqFga1938jeHwjInwwI8+Zm
IufuvPsPHQSMO5XHzh9hYqJSzTP+I4FIoVcpLeZMaPpe1PjpC4GUrxvt+beY
4PNdKOwYIlBUdm0l8i4TpzV8D/GRCXRe2XvVPJyJvIdxbPMxAvyJwYIjVUxs
2emKidM4fdchjcZWJgTG71eO0Tl9dTX3nH4msneHOyQxOH0S84M7gwkx8E/2
zxK4XmK0ZLrGhFI55Q+rOQLuj3Klz/CwwOXmX9YxTyDiqG3IylEW8m3W+oKW
OP/6VvXr0CkWCpbjeOuXCRQ0ipDr1Vkoj/u3NWOFQFX8fYGsiywIGpBb+dcI
tDt1qYdZsCBmfu+K2DqBL6onXe/Ys+BCjO2IbBCY3h320tiDhY/V2r1sjvkK
NBb2PWHBb54+lrtFQCwg8djicxb2GjudsNsmcNJ4wWzwFQsDxkeSeHcI/HDY
LLimlIVHuKiWybEho6gkvYYFWUdBblk2Aet6HlJIGwt1jaW70jh2jXbc4/yJ
BXUzt/MEx/52v583GOPc2x2RZUkQeKIsfluexYJ3p71eMscvCd8EwQ0WSGkG
Ul0c5/X3NX3jnYW9TaYmi+NCA+Nnl4RmESpqPb3K8T/lSzT8
              "]], 
             LineBox[CompressedData["
1:eJwV0XlUjXkYB/BSWZKTTmbCpaR1KlGYUuo72hSjmivnihkl0qKuokSS9cSh
MrTQQkUSadFqGpNIi5ZrjBAZUVHife/q6m7vb+788ZznfM5zzrOcxzRsDzt8
ioaGRoA6/s/PrFjDdlYU/Od5j0kJgeRDfvk2HwqKp+y6ArW1m6Qv1mykoJH6
dW+w2nNOs3UsQikoD506NlVt8+Cq5dNj1fWvZe+vMgQrbHTDPh+kwLsoy7FX
20sR/jsvjULeBbuSmyqCoN4HLXeyKPyVLtGZo/bOywup7GIK0cWzOmOVBAnc
g6wDlRSSg1zHGhUEJ/Hcb2szBddc3yi+nCB7tsMB904KDnXTAo3ULn2fXmba
T4Fhs6/YywgenfDSGqcogPPdYdtvBP1BxQ49cgoeueGGBlKCUQtlSNU0Gkaa
wgUfJQRaXXX3Ekxp1D++m7NNRLAtecCVu5SGcH/18IiA4K6dqjnCjUZe0uGu
TXyCmPM+f2wJpjG88gSXfCbo8NztHBRBY//29h+dJggWSc81bUhU97slvrF1
XD1/y6uGn87T+NKUnRM9SmA/i1nhUkQj60HI/E3DBKfvL65fXkljMKxzs907
gtXmMbWWj2m4t6QZlgyq76OYKj1NPtyKs+TXnhIwRWb2U/X5uN3d1y7hEWxm
+1aSBXwUjD+Jdewl0Gs6XyFy5sPHN2FXQgdB4lHz8oE4PjZGuqcYNhP87ehn
9U8qH/0Hkqp7GglsPsSW9aTzQU9OjsbVEbz1ayptKeeDvdIz+vhtAh/DdSWl
7/hov05HPLxMUNzOXXSF5mPwqIXTSB6BIimr6KKSj+3SqGXCHPU+XNrfW0+A
I0tvNPRnqPd55rTB2VqAXM2qwuYU9X8Lu/2MQwVwPbzy1FQOQcnXX2ewIgRI
kxbEK38h4Pnzu4y4AmDuD2+Gfiaw1pzja5AiwI6aXb57PAjehP/mo31JAI1h
XeM7dgTeSwUeE08EyLvf/G+7isGUpOtWcS8EcHCz8NOYZNDaskVP+kaAxPUL
x2xEDFz8259rTghQ1NrHC/zIYFlsfuQ8bSGGQswGh/oYzK/wyvR1FsJCnhut
n8/gpUi2l+cuxD7Ht+EBWQyyXao5Qd5CRCXf+3gknYF+9zzTULYQhqyezNpU
Btqf6LqkGCG6q9bODgljQFvmvSorFmJ/24uKV5YMKrj+LXY3hBiX11wwN2EQ
2ah1rbZSCDHrLSfUiMGINzempVmIDQGLsm9NYzCw05M87xdiQYMi8cyYCm1X
KXOdGSJ8dl7FpJSqcMnYI25HvAjh7AJbjqEKX2yWHepKEqE+X1wom6HCGifj
tCWpIhS1+bllaqgwESAv+HZGhOMC8eJMSonVx2o7z5aKkMbm2H7qUOLdyGKT
+pciHHmUe8ogSQnrm1o8bXcxrCftZ3L6FEhpEA5EeYkxNjQeuP6hAk8fDI3w
1okRHqaT6dikQPLrP2WXOGK4mZyd/rpYgd6ZCRZL4sUobLjdmLFPgTjuaMqm
UjE8W3e3ZXyvQNPydtsyXQnMzFx6TTbKUVNjFJJrIEFB5N3yGG85bi2JvpA2
VwJD+YhdhZMcV6z0ZbssJdi9jxWoYslxkhXcYeUhQZpgFiMdkSFQiwq9eVCC
D59Wja+Nl6EtvnWHboYErY3Vl2N8ZfgPMCyogw==
              "]], 
             
             LineBox[{{1.2877145378426376`, 1.5732048618834686`}, {
              1.3610105529143146`, 1.4050897433165888`}, {1.462166897011489, 
              1.1385438440475553`}, {1.5718167581126348`, 
              0.8132088904244931}, {1.679461571832793, 0.4675980882342865}, {
              1.779852055979484, 0.13173128048347885`}, {1.8171430863003177`, 
              0.005554391732020789}}], 
             LineBox[CompressedData["
1:eJwB4QIe/SFib1JlAgAAAC0AAAACAAAAjnBmzHQg/T9g5nGtM8B2vy4J/ruJ
2P8/w+kTW/lX4r+v6ioizc0AQJeKOdV8bu2/rWNvLTqrAUB4kSGBQK7zv9rs
LXR0rgFA9mb1Nam/878Gduy6rrEBQGUSF+UI0fO/XohpSCO4AUBE8y4QrfPz
vw6tY2MMxQFA3Seoq4c49L9u9leZ3t4BQCqAr49+wPS/MIlABYMSAkCCNndS
OMn1v7OuEd3LeQJAaAqX2g68978ycAK4S30CQNeCUVY1zPe/sDHzksuAAkCx
iOPNTtz3v6601EjLhwJALCm3iFr897+oupe0ypUCQLKCMxfUO/i/nsYdjMmx
AkBrkvT2Rrj4v4jeKTvH6QJA9Ykdr+em+b8GoBoWR+0CQGTyna9atfm/hWEL
8cbwAkBU9wN2v8P5v4Lk7KbG9wJACIEEL17g+b996q8SxgUDQAJZi0zvGPq/
cvY16sQhA0ALnAocWIf6v1wOQpnCWQNAxRTeUQRZ+78jR8QGB10DQKvwtsLI
ZPu/6n9GdEtgA0AcVGXQf3D7v3fxSk/UZgNAtJbppcWH+7+S1FMF5nMDQMsQ
EnSvtfu/yJplcQmOA0DFtUV/9Q78vzQniUlQwgNAET9pThu3/L/7Xwu3lMUD
QAwQLvIlwfy/wpiNJNnIA0DOK35YIsv8v08Kkv9hzwNAR5WsUvDe/L9q7Zq1
c9wDQIPuxUfgBf2/oLOsIZf2A0D/2v6YClH9vwxA0PndKgRAy7Pl/Fzc/b8e
2276ES4EQCu9y4dq5P2/MXYN+0UxBECu17Wjaez9v1asSvytNwRAsFpleDz8
/b+fGMX+fUQEQI8J8PozG/6/MvG5Ax5eBED8OQmjZVb+v0SMWARSYQRAs/3E
rold/r9WJ/cEhmQEQDONBfWeZP6/e100Bu5qBEB2XSccnXL+v8TJrgi+dwRA
jimRQ+eN/r8KzppuZpAEQKLB95jLv/6/1I1xFQ==
              "]], 
             LineBox[CompressedData["
1:eJwV1Hk4VXkfAHDinHtxr6SyTUyFSKikaPX12opSiZJ1UohsdSslZJDIlEuJ
t7GUNJMo6qpRlm9aLCOKytglETJlj9t1f+95/zjPeT7PeZ7zfPclXsEO3nMk
JCQKmef/76txO2M10qSBeynwcu0rMV6X11AwzJIGhWRJ7vI2MQ6FpSuK70hD
WPpjq/ujYgzfc1E564U0VDu1DfSpE7z0dYVKU7U0jL11i9PRJHgj4W8Vuk4a
SLl+5X5dglXIUgtqlIbuLb+KkowIztWPXrSlSxocnZvlLKwJ5kiHLun6Lg1r
Ds4vRH+CrBabR/t+SENM01iwdzDBgHwVu0axNEy5uD6b5hFc5/Dk+AuKAv5E
MD0QTrA2e7b6znwKzh5UPjVwkaAhr8FNS5mCyZgTq4XJBFOss0cz1ShQ+jXe
YSaVoNu/8FPyEgoC7sf+hZkERzbEBoWupOBrf0VUQAFBJ3knqVEjCgaVjn4Z
KCT4pEc73X8dBYIm3asOAoKx8dWV7psp2HQxNP3fxwRVmmUXWtpRsCFj+Svz
KoIRee155fYUZJh6PdCpJfgxvGCLiQMF+w9pC4R1BAs07Q/r7acg94PpmG8j
QbOjyaUKvhREdc4b8mgnmGvpteuCPwWP9Dp17nYSZKus6ZMKYuIBkdtAN8Gm
infy349TcEDfNkP7E0GTlFs3Q05REJyllqXTTzDD+6Tp0BkKXmtGxykNEPTh
qHh1RlOw4pdK4ZMvBOu6B6b2xlEg4xAXGfIvwVWCx4lvEiiY6SxrUfxGULjf
9eFzPgWjgc8kNMYIehro226+QsEV17qquHGCLyRmux6lUdBW/XhPxwTT/z+z
2HeyKKjJ1hbs+E5wPCw4UzOHgpESvUi/aYLO9mCUeYuCQ+VaksdmCJYvmVet
lEeBl3KIqa+Q4NLJHld+AQXPF/IWb/tB8HzNgxGZIgqaJzIfKosIDv8ecy5G
QEHQZ/+JJsa7gh3VZh9R8P5nj9awWYIP/6NdePIJBR9bqANzxQTVlKYsRsop
oDyF5/mMIwerWvwqKTim2mUrZtxblhbY+4KCjZfd/3AmBLfyD89xr6Hg99iV
admM7x5cn9ZcR4FqxwK1t4wVTWT1d72m4EN1y4pxxqGy7U9rmyhQwV21hHFH
Z76TRTMF+olu36YZJ+jKR/zaSoH/jXvTHxiv44XkYgcFO90kZEoY95Y31c12
UzA70K0eyZjPXju+sZcCm0O9xmsYb96TphbWz9Sn57bdP0y8Q5kz5iWDzDyE
NHv6M04bcPWbGqagZJla8DCTv+WaCr7xCAWlS/VC3RmPRiwuOTbO9D/1xYly
pl5ZNdHdRVMUFNYWHuYwtpvfR3+boeCBzpMdtky9p91tDA1mKagye7I0lOnH
rdt5TkckaNj/+lJfCtMvh3G5iDwpGs7WaFzJZPpZEP+mTluWhomRtQVnpwju
f2s0fpBLw5ht8bx9kwRpjVS1HAUafj7W4aLOzMcvgv1+Gso0fFlwnH9ylCBX
XMp3U6OhKFz9tMwIs19bNUquqdNwKP3T5sSvBBd0faSVtWio+m+Goyszr5W6
VoZOOjQsWSh3M2+QYBDvT6fLejQkR6ZU9X8mWMMOyJ27moaSX6ziDJh9CF8z
ac7eQsORnKTSYWaflkfu87M2p+GUZNe5+60Em2se82MtaYhf1qri/Q8z/x6R
3RJ2NCxrsbqc3kTwUzwrYmYfDbsNhMWraggmv/XLNXGlYTDjWPaRlwS3aLyq
O+FBQ26C59bUZwTTBXy1sUPM9wjtxuIygtu7VEuGjtKQ0md9Q6uI4IxueLfu
CRq4y2W83jP35Q9eF+17iobptXatx/MISsjcdOqNpEH/k9TA2RyCxWv0x9sT
GS/adrTqMkH1hC2G9bdoaAS7OwuY+7eI83ZwVx4N55s1oncHMU7yvfWugIbE
2gWSYX6MU/mLOgQ0NMdsH7/oyezDjY+yXyppOJm+IrfSlqDS47jP7C4a3msb
mjkz91tp0083f+uhQTI5LXanMsGFWOih0EdDpYcUz2ge04+XLe+Vh2l4p2G3
o1Sa2YdGvRfLhDSEtN+Rax0S49zBhuuWSizYZ34jykogRvmAg241qizoXS0q
+57P+Nt35e3qLDgcLXiQmst4cnHSHi0WmHl5vrmSKkaOJC/Cy4gFOyT0pa6f
FCNbVdklyp4FYQfsv34xFqPkNs/5ZXEsqDII8fPPmcXthgpeKy+wwH8kdW5V
+iymz68syrnI/N9kNlQ+aRYNu5baJ1xhwQGHdZneZ2bRhdcfvzeHBS2JYRkG
e2axODNQPFLOgramhAodIkKfsTOD2pMsEGycufZxqwjv/6Nv+t9pFqwfEPp0
bRKhqKwzjiNigZNwS0z1KhGmnDfTGp/DBt061vMDKiLERVKeTxXYYCZWlfyr
/weq2Fx456LPhka5u88Gz/7Aut/TMekgG9pc9OqzcoXoMd12vdqHDbdPCnpt
0oQ45qgeTfzYcM896kRPghBV5HMsg0PYMNTgq90fJESfqPxa+wg2XD6ez1tn
KkQJ74q33DQ2pETIDE9Xz6Cx4afPiX+zYbS4ZXp9xzRmPl2pEL9aBnjmGSFJ
rVMY7ZR7jlorA+In67x0qqfw8JDKj2hTGSgorntQWDyFxgvm9EeYycC83Mn8
5KQpfOX7rpS3QwYOTHTlZFhOoVD+tK+nnwywGoaNO/In0dn9WcW6GzJwePLv
1BPBE6godAzsU5CFhq0Fz/Rej+IlqiXIt0cWLDLp3DniARy5yTNpuCsHF4bb
9XsiO7DMtsbH6r4c+HeEKl3X7MD40UVXy4rlQEFosyK2ph0Xm1VN3CmVg6HA
09FPFdtxd5vKg/O1clBu13lsRV4rPlCo0DfvkwOtPSa7P3U1Iy+CvbR4EQdO
+3zecy+0EUHLffeKxRww95Kwz9dsRE7d/agcTQ7cyi5UEb1+g7kqrt18PQ4k
Xfiec335G3wnuJsRaMqBeLk8A+dn9Wg85KCs48iBsk/1+yyqanBqbybnWiIH
hkrLLTfORZQ9EdPw/hIHND5POkdyK1Djsh9/XgoHNjhXbOXKl6PN67ULEtI5
sC28SdNCqRTTbRp+OnWLA/OUXIyuWv6FBd7FnYLbHChxllQs3/sIn8Zcy/6W
zwHF0SO9uUce4gD6aPo+YPLRtfpNlCnA9aZEby9yQLdr96PWZUVov7dvOPkZ
ByotAmY0c+6h1/G6e/UvOfComOI5zRbghaI0I6tXTDzZ/psqa/KwTXfVBuNW
Doyl/3G39vFN/GqtJAru4EDMoMUTc9scnOMtKs/v5kCXYMLQvfc6rrhRY67Z
zwGqP6vvwoEMDFc9sE1xnAM1Vo5ZX86lIN/ERs5+isnf0PKlsjUfc50M6hNm
OBC+qjZHY/NvWMKbn/RSxIEXrS9Djy6Jx/rkmV2SElz4UhLVc2hTLH4s7Fbc
LMWFAHWd3OrkKJyqf/nuFM2F9vXinS7bw1B2OP9qsQwXPvr/eSpMzEMN2RTn
EQ4XdB5njg/xA9BI95SavgIXnpfd/TBzxgutrT06fOdzQcKW61g0sgddDllm
3VTigrnDwOLAfRvxq0S36KEqF7LVqyWv96VW/A/elovR
              "]]}, Annotation[#, "Charting`Private`Tag$20253#2"]& ], 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.560181, 0.691569, 0.194885], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwVlXk41dkfx+3Fve5XRlnHUrYpW0qmlM9HlpQtNCoqW4slNGkyTCkiiiTF
yDaURCoqQkqWZBAhupZrue7KJUtKZZnf9/fHec7zes7zfM55vz/nfY6GT4jL
MREhIaFqcvx/djOK/ZFkcM5840eXl3ICirlXx07X730HYVgqzqE0/AC4DWh+
re3zhy+G7ONvrX4Hc519eTt9Q0H3uOYx1v0L0DmS2pTfFw7tlgcjuXvjwbhN
cFZU9yL4in4QOjqXDAtF1KubfS+BREnUeesdaZDk61ia1ncFmmY9HespebAf
Qxqa5K6BfedQf51dPiTTbAMXdZLhzEqK1/rK++Au8IvU970JHpd2+J+nlMBk
/oP86323wcLPnjNdWgEuP5kZ6IZlgtd2Ec9eVhU8j2qtqJXLhiiBwcpArZeA
hmc533Rywaa3UKDmXwuS1L+//eJ7F0bVB+xsfBohq7FXNbGvCDRzDqt46HVA
+2Ku74HCBzCxpq11P7cDhDf7F2qGFYPHsUyh0DudcPzO942v5B5BzcNt/Eb1
D5AO19bO65SCQ9CXKMvNH8Fb5bGJru8zELYx1XIsZsBcz5TH1b4qePBWOsTS
lgPDCxlid3e/AJXaRzuCGjnQomHzqLrqBaRZFOb9ZMmF3KCs5Ynb1bAU2q7a
CDywE9+d5+T+Co4V7w6xNR8DZyXn0KtBtcATfSh33n4SCnc/qHT61ACmmyh+
+q2zsL/wkGX/VAu8p797Zq29AO0lzbWGmq2wb9Wmc4u+C2BTscU89kArsJkJ
G3PzFmDzW5mtRnWtcDhe/m2xyiLIst8YXE55B0Ll7WV1q5bgnZq+krFJOzBq
Tp/3nF+G3NbIb1avOuCH+dplUzdhPORkUhFC7wCvT99C9oYKo/wHwR8ZMx1w
o0stwi1ZGJP6D3ye0uoE761qJ9e3COP5MeNPGUmd0KYq+pdguwi6r+Cxpj27
gFlaO5inKopylk7vs0S6YYjzUCKiUwz1+vjaVirdIJPgbu4uEEPrkOhIgUk3
SOnH1KwVF8ezmeX62/y7QVZx1ULgr+JI/6ycSH/fDXSTF4YD2eKYkc+3lc3u
AeH6HEPqUQlUl4iujzOlg7lcLKeZsQJ/zVJWMnSmw7Tw2d+DP69AZ+Py3z8G
0MFk6a78vORKjD7CV9fKocNHTpRV2ZaVyHrueKFerBcS8aHBQNJKLDihvH2p
sxdE1M68erNVEvWay8pPn+yHOaGw9T7hUtinMfLYJr4fGpROJMxdk8LLEZRC
pfx+YBj+W+ZzRwqHN/hk1A/0w1Omg2hXixSmJBEXZO0G4IuuntwPRQp+dw2w
ffoLA5gzP9sffkLBgoepFpetGfB6IGYur4GCLuJ129y9GWA33LOmroeCD5/L
64vcZoBruHpU0ncKeik2rnJZOQiMr17iR4GKb4fUBma4g0C3qPlb0EDFUFO7
7kaRITiWGiLT8YGK6sln226rDsHTAmeJJBYVwy3aXlu4DYH7tf7NaSLSqJcf
kX+jcQiow1ZmH82l8aZ/T9DG/GG49NeuZqlSacR6oRPitcNgpCsbHvVKGieU
9Lz6BobB68XibEeLNK47blFUKzkChl3vNX6wpfG8fHqmn8UIaLrrRp+Rp6FR
hPXFytIRKJ0MpIv8QcP7ohpNZa9GwG7T+qFdF2ioem1R+knLCBDOMYcCrtCQ
mvsss4g9Andf0kp3ZdOQ16hRkaHAhPXJMfa+DTQ84rS0lKbFBA8qt/DmOxp2
9/Za3TRmQoNZlHdeDw3rBde7EuyZUASig/t4NMxZtTx57iIT8rPka5QlCVyd
2bc5/BoT0o1mq7esIjBRs/yvPzKYUBZaLG6oSGCE6UnJ4DIm+DhUhVXoEvjb
4X5NTz4TZB4ce6ljQ+A7bnmgxxcmVMYaLus5ELjz1I2n+0VGQe2ZzGViH4FG
l2xxr8ooXNpj4XfSm0Bq0XMPi72j8OdXuBgbQeAl45Q7Ow6PwpmDCQtnLhL4
ozpobGvAKHz4y6HO4jKB/HbNMOOYUYgocdkYeoPAhrmUlHWVo0Bcz3xvUkDg
tsjgPrXGUXjv19hMFBNYumKPukrXKIT5xao0lRCYoyT8WG5iFIR+vd/TVknq
wZBmcXUWfMkqZpk1EzjTvEdGRJ8FaTmVn4TaCPRz1d6/vJUFRr19/nc7SL3H
B9lfXVnAY7bWXKSTeqcqN3z2YoFnnmFudT+pN/zW6akgFrSrtgl1D5J6E+2E
+HEssNPw3pvNIvD+ap1d7FssqHYQt3XkEqj6j0jSSB4LjhmZdzD4BKbqDnUz
HrMgPLNq0lZA+vO0Srmvmqw/suteyiTpj1mqT8+/LLh8b2Chaor0582pos4e
Fhx6eeVrzQyBPLqOacsUC5SEjSe9vxBYuPNdO2OJPP90PqExT2DAo1PHpyhs
CDQqm6n4RuAGhdXLwkpskJF7lqH9g8CJ6KpUOV023CldKxu0QOCjycP6OltI
vvPEM2GRwOADIo1brdjA7TRLiFoi0LCh4JC9CxtMtrRkOS0TOK1vN3fEiw0W
WSlZX0h+kj6V8HswG2QD51NC/yPwtOitdTHn2NDkHxffTPKm4F+r066yoSp2
KXae5LlehktROhum0vHWEsnlllHj1QVsWDLyfTlA8tnHWtHtZWR9t7srUkg2
VWxRZNazwd814II6yd8uBT/53MEGt/P2+nHk/lWfZHdLDJPrCyuV35LnjThY
MaIwyQa55Csug6Qeszcef25YYEOb9+jgO1LvooGQjLkkB/a9cW66Rfrx6nb+
/b3yHNgigoom3wmMFNsNvlocoGvD0CPSTwyZ/PjHJg7c+1dK4z/Sb+H+G8Hx
Fhwo+BA3oTtHYL3VFolMJw4c3PfGbsMsgTEl/dmPDnNgbuf8bolpAq2VLpjU
BnJg1PHibBXZX4nYdW1d4Ry4/IC314bsf9NU01FOHAdC6YOnisn7Ee9+cnE+
lQNvTpsdGeMQKGVUvuHnpxwIfO3WOTVMYGvGwQbDWg5U+iWGVDLI/Iovu+9s
58AuiiLVvY9A2oDN1RPjHMj++PG0bheB760FGhHfOFAzVun2WzuByaXXqxIl
uDBxwvWkRwuBspd7+U/WciE154X35zoCP0yfu/jGiAtuEoGHYl8ReMtDQ4Fu
zgUlekbNNJmnNRsDdi26c6FuZGjalcybMmPhns1NLswr8NMdMghk2OTuOJhH
/vv8CPeHt8g8PrHqCSzhwocS5a/sJALV466J3WjlQptNzDwrmkBNYzXfAVEe
SL0vbVfyJ5CT1fBjchUPLMPOUPb4EFiwwi9FSJ0HswaD2a4eBOoOltZpbeeB
qbWY2Fd7AvXid6qfOsODt18X/gk3IFDl3AExi2ge1Hk2TN/RJpByKpi/KpkH
z+yHTxeqEji+P6P0WTEP/GvF7G1pZH50ZnF+lAf/XXVUGxTQcF1TnnekMx8a
W47IB+TSULa6wtrJkw9cjv+BI2k0FClp+0U9iA/pNZsYhok0HEn7PlMXz4fB
+z5zAWHke3vcOVq8lg+r6UsnLO1pqCQhfDfRYAxOjZ+vuTYljVI/1sQd3j4G
ChMvR46wpPH7pF6gwZ4xcGH0h9Lo0tjbc2BTx7ExsOHMmknWSGPavdKGn7LH
IJJLiwm5Ko2y1l7sDMo4dJ0qfyfzszRKxrzWKuKPw/gDgw3b1lNR4TflfYlf
xmE9reKFojIVdbXDokNEBLDTc82JIQoVbf81GDZREUC98nUv+UkKxlNz0uud
BFDedIu5+zEFV6aeozCeC0DhwvqHdRsoKFGwdYYWOwGpQoe2xvwkhWvCUtVm
b0yAdm12op6wFGrbzjj05EyAo9GhoJefJNFmvPBBZuUEDD8N+uVmsyTGGigc
1Z2YAO42bptqpCQWWtsm2FMngZIR5ubsKIn/A3t6hSY=
              "]], 
             
             LineBox[{{0.9110321441778475, 3.143507602293233}, {
              0.9415839849082207, 2.950573036745441}, {0.9432898682460509, 
              2.9393256936804346`}, {0.9449957515838809, 
              2.9280295252253414`}, {0.9484075182595411, 2.905291556502237}, {
              0.9552310516108613, 2.8592390299325086`}, {0.9688781183135018, 
              2.7648755318947043`}, {0.996172251718783, 
              2.5675043146138345`}, {1.0507605185293454`, 
              2.1413942385047555`}, {1.152682722577003, 1.256938163806604}, {
              1.2525998792436732`, 0.32025916247233177`}, {1.284433736472338, 
              0.01571017306750283}}], 
             LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAA2eIpj3qa9D97YCjeUxaQv5BUvx0J
Zfc/zjk6mVs6+r+/MJmeDWz3P0YEl7zid/q/7gxzHxJz9z/+aP7PTbX6v0zF
JiEbgfc/T+ZSu84v+78INo4kLZ33PwItpVZ0I/y/fxddK1HV9z/kJhtvFAX+
v27a+jiZRfg/nXNMQe3XAMBLYDZUKSb5P2S/hiurSgTAEgFJ+wwt+T8UMg/c
cGQEwNihW6LwM/k/mxZXRiF+BMBk44Dwt0H5P1T/TtRBsQTAfGbLjEZd+T/l
dPKtfhYFwKxsYMVjlPk/p8aIRc7cBcAOeYo2ngL6P6qEcF3/VwfA1Bmd3YEJ
+j8mjyMy5W4HwJq6r4RlEPo/jrL/PLKFB8Am/NTSLB76P1T9uYgBswfAP38f
b7s5+j9cNncEcgwIwHCFtKfYcPo/RjyfJYO6CMDSkd4YE9/6P7hIz1quAgrA
KCEU5X/l+j9b+JVr9hQKwH6wSbHs6/o/Pwk4GCYnCsArz7RJxvj6P/OzPPQ7
SwrAhAyLenkS+z8bPsWEP5IKwDeHN9zfRfs/dwXOpJQbC8CcfJCfrKz7P6BZ
E/LuGgzA8gvGaxmz+z+OQ9x3BCoMwEmb+zeGufs/j3JRMP84DMD2uWbQX8b7
P9OXWfCjVgzAT/c8ARPg+z+hzFGyqJAMwAJy6WJ5E/w/iJqhoo//DMBnZ0Im
Rnr8PwtKWAlayA3AYmfcGj6B/D/JdgzT7dQNwF5ndg82iPw/aZTejV/hDcBU
Z6r4JZb8PzUvp4Xc+Q3AQmcSywWy/D/sQ11LOikOwB5n4m/F6fw/NDv593OB
DsAaZ3xkvfD8P9JtHondiw7AFWcWWbX3/D8Lv0rTI5YOwAxnSkKlBf0/wdil
SEaqDsAz/vygBBP9P12vM3kSvQ7AAy5JpQ==
              "]], 
             LineBox[CompressedData["
1:eJwVlHs4VVkbwPdxtk6c4+x4iql0oQxdRIZSn2mtwhhlkHItl6JdueQuVLoc
CqFcUiRMKpocJZEoe7mVpoTcihEVUi45xi2cvb89f6xnPb/nWXu9v/fd77vU
DvraHJLBMOw6u/7bzX3J10ErpWDAynppQIMQtZLnnpg4SkFsWNP8/SoEaiRV
C4zcpMBnV3VZ9AoCvSZLbuofloLhq1v5iZoEqiK/XVwdLAUq8S6m+psJ9IC0
ccETpcC2WWhbvZdA+eSQzdxVKWi816P7ah+BcsnzZuOZUlAG36wpOEigTLJM
tzdfCr4ypfqyfgSKI9W5NXVSoKxsITMZTaBo8ulUeYMUWIQmL25NIJCItBsq
apMCfnBXS0IKgcLJ2NacXimw7w2RJmYRKIRc/ff1QSmQN1S17LxFIH+yoiJ5
TAqcoJ8cc5dAR8ixXBFGg2KJTXRrEYE8yLiMEzwaqN7arRtdSiBX8ufEQCEN
HI538xc9I5Ad6RTurkoDilHSelZLIGOyysLYkAbvTIqjTFsJ9GbvabJmGw0W
nS3OjX9HICdjozOmpjT4cO23c486CRSwsqTIzIYG4l7DLZkfCUQLA+vrHGig
s2uUc6CXQDFSnS/mrjToM+jbJ/OFQNkdd5dYeNNAaZX/jZ5BAq1/SerXB9Cg
UWwasGyEQKWPV1lahtEgQKn5oeEogUzu9BxuOE2DokCOnd4YgRpSbpy1Pk8D
s7g2G/lx1kfkdL0pjgbSpuBsNEGgfn+VYptkGpimrdxkO8X6ubW8aU6jQY3h
Jn7dNOtnmTiwN5sGS7X1VRbPECj2V0uZtjs0+GFUsvv3WQItWs9XtRfT4Lcb
IQ9t51jfJXUG74pokLzIcuN2KesrF2XlWEaDR6v1n8vTrO/U9qMdiAaJGuDo
Q5ZN+ulz+17QQDvolpIhw/ZXS3nGP/U06E8qLbvO8r7q0BLnFhr0WH137GK5
v9Cg8UMHDZ596xyYYzkge+yr60caeGzd6DbDMp1wn/vxCw1+aa4sbWU59pT3
soMjNDDWPjOYwLKy95rNn8dpIPk7QqLB8p9O/dYeszTIcB2tTmd91pvnePZx
GFA4qbl/mPUv3ewWSc5nQMuStKJlLJv8vCzzi5ABltL26nVsvo0LOx4fWcSA
phtp51XYeuznXm36upQBFmNFEz0/CPRFsmfQU50Bi4nl/Gi2ngE9C2SHtBjg
YjWKBGy96Tf1y310GIBOeSj6sv9DOd/MxteIAfyxSq/XEgLdTMe9R3cwINPr
heeL7wTSjqmM8jdnwLX43JGsYdaH/N+TQDsGRJTn+n0dYH32Tr8d38+A8O8T
Hk79rI9x8VCwOwNk/U/8nfeZQIErdVaG+rHxInjtXV3/9d/Qlh8hDHgcuie4
poOtlzRvT/gpBnD/PRAY3c7G71C/cDKWAYHx7RF5jQTa8LI7W3qZAX0t2ZF4
PYGePM4oi7jKgHsmko5fX7LxU5RHztxiwMOuMK/fK9n4omaezD0GeJ3elLWY
nZ8B/8tqokIGbEkVKdex88VYyttGVTCg5KNPzdP77P1ydHnMOwbskeG14Rns
/B1ZQV/pZkByc3D8H6kEuvwCwpv9DNilnHbI5zKBJFGimrJxBvxae9tXL5Lt
77OR/cHzMfiv6y9Pm44SaEz3Cm+Oj0FppY55M/u+XOy5rXWOwCC4VjB4j31/
noIXngnKGHQU5Pt+siDQMlru+53VGEzDDII9tAlUIl6yQFsLg56zuwuWaxDI
0nndxqJ1GDwafoO5r0qgiKcWgZQeBo+42o3a8wnUE35pqh1iMJ8Htj3rF6Kc
qYWYnDMGFdyNv3dfESKjXA21S24YHBdO1gsuClGL3aYdizwwWDhiN7ngjBDh
JfaRal4YjNw5YZh1VIjIoPT5W8MwuFXNT6NlqxCtkaxQ9LqCQUW7eL/brQqo
KltXT3INg9OJDz6a1ykgJ+vte45nsPkaJik8L1NAsfcPXhHlYLCrYWm5aZYC
GvK5vTijkL3fL07kTiqg+9/WqtfXY7A35PYR9WEBSpqzb9vRhMHPSdLKxC4B
ChFGxZa2YNBb32Cmo16Atul1j+V0YnBtr77RrFiA3oQlV4d/xeC3dxPRQd4C
NDJ/zkNLlgMfKZdb2H/iow2a9bkiIw7EprXibR/KI6UtM/t+AA48V7WAWZEp
jyZ3ai7wNeZALfO42Ocx8qji2NlQp50cOD1uvivPTR5ZlhiYb3TgwJnTX5Qq
BfLomGnmtw+BHPint/ijs4scErv7am+9x4EF+Ytj5AZ4qGNIOyiogAOXnhSN
6zbx0LyQobKCQva8wwUzozIecok++vuqUg5U7qB+Yi7ykFDs7i6o5cDwttq7
hht46NikfdqHDxwYmDNRluozD+nGQFmRkgy0mA26PvgOR0UFil2vwmRgPRoQ
lHly0H7hjrQqRy60bbm2ucpnjFplVjOP58yFQZwtfwTrjFHfTv8WtMuNC6M/
e3TrSyTUcclOqxaSC6NSrSq6giRUUsse2f5ALjzBe6s1cXKUqks/5C+XwIWO
2+82n1IfpvQ1Y8ytq7iwb+H52eY7fdSsK/9xSi0XPlZU1NXR66OqrsWvfl/H
havvNOyYfdZLWcknMQcauNCmJfzWeNtnynM4vTjwHy4cbXfRahd+orKL8tWu
TnLhT8NU5/QvXdThoQ2XOn9woXbKQHvK/n+oDRqFcyukXPik1YHOON9JlacW
t+dxcSgqcTij2v2eaguriC9bgMOw8NzhhTltlAA2/uhai0P3kCQNwblGannn
sRnFDTiceBsqvn2lgdoYojBruhGHg+u3Z19a94ayy985J96Mw6WfUpbgh15R
WT/V0qdMcGg95ZyZqvSceljkzhSa4fDCtp5wzVc1VI2lDNa/E4d6f1lnOcZU
UwORgGO5G4dr1p2mfVUqKT3JE+5yFxy2i6uXp3KeUCZxDrjNARyum4pSO/G+
hLLTnMLPe+Dw5L67ygXoEXXCWX/eiCcOm22f+fZQD6iE6bfz1I/h8H7d60xO
kZjKTvbn2fnj8JJMXpQ//y+q5mXB/Irj7PdoVlSnn0O1efwhNxaOw+Ohh8Wz
8tnUV2ZQ7ucIHDpHPA/Zq55OzaXHyjudxaGtgbtPWWoKJdy0hp8QiUMzsZ2C
80wCtbLpBb/qAg5L32t2WdRGUXrepGAyFofJqXTpA/cTlAlPVmFtApu/escW
ot2Lsr+Zo+CSiEOVt/VpN/WsqDN5SsKMZBymZfKjgr2+V/wfWA3K8A==
              "]]}, Annotation[#, "Charting`Private`Tag$20253#3"]& ], 
           TagBox[{
             Directive[
              Opacity[1.], 
              RGBColor[0.922526, 0.385626, 0.209179], 
              AbsoluteThickness[1.6]], 
             LineBox[CompressedData["
1:eJwVlnk01O0XwBUqUbLGDPO1a0NJkehe60uEFIVKeF8hRcurKIp6VUKWEpNq
EkKoZE1K9iVbjcYYg7FkCtkqZPvN7497nvM5557n3nvO5z7nUXT3s/9nOR8f
33Ne/P903Prfn2jNy3toX0sdfgaq7zneanxglukEA/etN5JjzoMjS+V3OdMb
YgMCGu4tRMIe9YNPjD3OweT+FpptJBXaeu/VpjIDQbhtPuOTaypoNw0H8G+4
Cvyk33+t88iGuUyRCB2Pa9DmWD3cmJQH0R42LxOYt8DpdtIv34C3cAj9Kmsl
o2DpsR59cLQcYtZanJxXjwED1YIrB6oqwXnYK0TDIx5ELAKnJT7Xw2hqVuod
ZhLMlsU8i0/5DPYSuzU3XHgArypqF1f6t0NhaGNRueRDGK17LFxuwQDUChic
UaeBPFVWaUSWBUIi92c2ejwF+aWFIPv7HEiu7qBEMjOhWegvCQ+v79A8T/M4
nJEFrF2NShaxw7BMxztD5cJzCL7sZSpUNgKeKbPbyiRzwPnqhogcuTFIhCil
afWX8Dz3rGnj/AS4yeXu2ODxGg4uxXu+XD0NP9vHXCKYJVAjdc6Vj86HPXNU
gaeWb2CSuZS3uG0ZNiia55SWvIEQDdqocswypJ1KXhxJKoWSEte3n62Xo5Wg
5RNb5zIoPb6pyq2WH/eT9p+LOFUODsEtHQbvVmCGZVax7Y9KEHm9TNT6kQg+
6loSOaJWBbJzZxhzf0Qw3s/BzetYFcRJPdALOLQGQ+7xrQ5troK+wj63CtG1
eJDj6JKXWw2Ccb4RV4JFkS+Qf1HSrxaaV06pT6iK4aGMIyadYw3gcde8Zzdd
Aptf1JdrqTSC2ea3RtV/JNC8aOee/w43QlQT/K2gKIk6Net2bf3QCH4UqX7L
U5IoPlClGR73EaS1lFcd4ZfCj4QGSXtHM6gaxgpLqUmjiTr1/g3vZujZfuNu
qKU0vtFcKcV+2AytGQepxb7SmGnIEb25ogUe+iy7eT1PGsNd7gl2M1og+7Xo
jlu71yOtMWTGtKwVPDcNKv4ylsEjtjuK/BitwLm2yZjtLoPrPw//S51oBcMC
dcOIMBmM7jw8NabaBj7c9MhtH2Qw+Jv2D2p0G6xsNDmas1sWnVcO9Y+7foIe
tSp7OVUSSprYtiQvp8Mrza+rNteRcQuTq2YqR4dQVkJgUQ8ZzfzCQoZ30CFh
LH6Kf5qMAQ8KNPS96dAUmufVpSKHjClyJKOFDitj/GxuBMshNZVrIf6wHYrv
qSQ/U5LHPP0wWklhO9DYwXYqO+WxsZU8c7yVx8L0la6W8jg/b/PsBf8XmM2b
IK31k8ejDgWC+3y+gKqLAdgVyaPCirCKG7oMSPk5+rf9bgrqJZNJWvsZEPzW
WzZtLwX3axec+eLDgJkihfv5ThQMO8ZVUH3EgKlq1xKhCxTsL7S5UiHQARbD
9ftu51Jw3pr7xZvSAfV1bXMVpRSU7A/VFNPrAEtDLXJRHQVNRQvYric7QMO/
IprOoWD6CbLBQlsHnOgrje9fR+C7hfz41OEOSNipK75IJpARbzNsJciE3sO3
6XQ1AleVh1KpekwYXyVKKtpNoIIjedLIngl1s2eTKswI1BvJt/x2kgklBtIO
EbYEestwZ3QfM8FOYddVG3cCw3JD7XqKmVCTXze+9ySBVFNyRvgnJsQcKnjM
f57ABn+bQ+2CnXDH3OpD5nUCt9TnF5z17YRUgZv+9SkEMhV7c81vdoJwdqei
fhaB4UHCGaTUTtA5uAdcXhHYs9mdWsHqhIYbfJzcdwRGXo+KT5juhItm2Rc5
Vbz+2MWRPhIs2BTG97SqgcC4aNEr4lYsKPMP705uJxCG9C9+9WSBuqSgUFwn
gbwX48ybMBassauc0e0hMCkx1if6EQu2HTB4G91PoPnEWw/3NyyQsU91Txgi
cMqSe2TnFxYIaw7N2QwTSEuRcFw9yYIg4lli8Q8Cref22Hav6YJAj917P08Q
OHvAxyJvYxe4j+QqPf5JYHr2PaNwsy7IlXqvIzdNoL3gB31nty5ocO6M3ztL
4NLRke2awV0wtI44uGmOwOzC9RrLk7qArewcUTpPoJOoidqX/C5gtQtaLy4Q
uMLrNJHV2gXkMIsXk4sEvi5PkgkZ6QJ0n2pIXCLwuGy1mP0qNjx3DC0c5/Ga
s+Or1VTY4PtKKuIPj980kAX+ABuEBS4dK+Sxp/JfC00ubGgeU9ynwmOJy2d/
P7nAhs8zhL8p7/5y+sOxf+PZkOai2SfNq++rUc+1fMGGQ4MZ7x7w+pUN/8mR
b2SDbnOk4mfePDXdBGviKxsmEy6ol/HmPadrRa9e3g3K3LRRp188v2ICmpIo
3eB2fjI2c5LAj9wnNaf0uyG4i66dPUZgoFHTeyPHbjiYcHzMbYRANepMsdTZ
bmhoNxlq4BL4aVI571tUN0xcqNEfGuD5lBqUGlvdDVH6lRf1u3g+zac9/IfT
DTp1lelnGDyfHNoSdi10Q/fF00VHPhHYu2LDLY5ODxxI27nWtpbAKNcDYQV2
PeD5IjjZ8QOB+sUhl2759sC7sfcPxUsJjPduP7UttQee5lbeycghECv4TgiW
94Cm2bamsHSeT6Qtx5msHnCxGJcWf0ygsqdRZrlQL9Qm1p+2u0NgkDgjLWt9
LzwfmWxaCiew9Z1vyl3VXmhvucX6O4TA4PWJD7yMekG4ZnmWnS+B9EqNRHvb
XkAlvXIGb782+VfeNTjaC6cqr2hJORH4pe5H1LrAXhgveFb/2pTArUFmV4tf
9oJUdi7rugyBz/gVa/PLePl09+LoNQRSoubXvGroheHg0iyn5QSK0F4/yBzo
haHZJN/twxQcqlYsospw4Gyz2/s/JRQ8ZruwkKDKgaiAcZpYDgXpHR2m8doc
qBlU6Pz+mIIVw3c+3bbmQAyf7tzAdQo+ElscvXyVA2cqAlLmrSgo9YCpExjF
AQMTOneTIQUjVQou/UvlgPOvgB45TQoG6foKnc7nwD6uY4y1KAUdjnaquHI5
kKRE+93TLI8imYUuRnZ90F294f6SsTxe045LMTzaB2qDGWEhW+XxT+mpb7t8
+uAYQ1G0Sl4euc0qF7Sv98G+W6RPT6flsPJnXJxycR8IO6SHlWbIYRD61Qsq
9AMtJ//+RT45HGKo6zaM9QN7MiGRdoOEGcYfm7sW+qFxzNBnly8JfXL8PceE
B2DYy7o1wY6EI2El9yQ3DECdnss1mgwJxzWsfh47PgCXNnJKp9Nkceba6VdT
rQPgoHNMf6ZABldvLdgsnzcIfGJ8z0/kSGMj1alSq3wQrE2JbRtvS2Ok4KKz
cfMgmBx9q1XiJY1rWeYRJ74PAukRe9BMWRrFwzu4r5S+gnfsbz9yghSSu+bS
zOO/gjv5W/Kyc5K45aaxgv/5Ifigfy2DLCKOcpcPCxiFDQGTEuuwZlAMhf1P
c8VihuBFkdtHZpkYfj9Effn6+RDUNlH9BPzEMEN9Eqf7hkC40Yovq2UdKtc+
cQvZz4XDIetHBKREkbRi2dNIzW9wM5oSlNomhELX36tmcr9DjWJH9bPTC5Bu
ZnHbWmSU93/brqdZng7/A3/mGgU=
              "]], 
             LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAA0icb4iwn7T9+lTM4LsCmv1562Dtu
L+4//6upb31S7b+4LP26Zz3uPwhlKiiMyu6/bJFGuVpZ7j+hDiRQ89zwv9Ra
2bVAke4/Nr3sEJ3K87+k7f6uDAHvP+0zrhrYnfm/RhNKoaTg7z8f3StwpYwC
wEUv8ELqz/A/twiUxwuIDcACd6UncNbwP9Q+gfPG1g3AwL5aDPbc8D8i6Lo/
SyUOwDpOxdUB6vA/Vr6c4qzBDsAwbZpoGQTxPx0f1wHE9w/AGqtEjkg48T9J
sAv3XywRwO4mmdmmoPE/pWS0IPd0E8Crbk6+LKfxP+W8tyVYmBPAaLYDo7Kt
8T/Qp7WflLsTwONFbmy+uvE/ARTV2J4BFMDYZEP/1dTxP+KMCrTwixTAw6Lt
JAUJ8j/rNlQ8TZkVwJgeQnBjcfI/PbMiLAyVF8DsKjB7yHfyP50W12q+shfA
QTcehi1+8j9s20tnRdAXwOpP+pv3ivI/tzn2pdAKGMA8gbLHi6TyPymwnZzV
fRjA4OMiH7TX8j/4veonZVsZwDTwECoZ3vI/v8nkIUd2GcCJ/P40fuTyP7xN
riL6kBnAMhXbSkjx8j+dWTBS0sUZwIRGk3bcCvM/h9SdJ0UtGsAoqQPOBD7z
P5y5IFwD8xrAfLXx2GlE8z+O6D412wobwNHB3+POSvM/y3YRlYAiG8B62rv5
mFfzPzJG6BAzURvAzAt0JS1x8z9o24MfMawbwHBu5HxVpPM/+4YBmmNYHMDE
etKHuqrzP334lRP7bBzAGYfAkh+x8z/rYhbRXIEcwMKfnKjpvfM//ngyUH6p
HMAU0VTUfdfzP9vtWvgz9xzAtzPFK6YK9D92RzqkP4gdwLCwF1+WEfQ/56i5
/9aaHcCqLWqShhj0P1KCJI4rrR3AnicP+WYm9D+ydwVcC9EdwIQbWcYnQvQ/
fOc+fZ8VHsB+mKv5F0n0PyGrii4aJh7AdxX+LAhQ9D9UWTtOUDYewGoPo5Po
XfQ/xu2m/u1VHsBQA+1gqXn0PwcoSUXpkR7ASoA/lJmA9D/Fs1qIOaAewEP9
kceJh/Q/aHgPkUOuHsDDccBjCo30P9YUmr0zuR7AbeCgFw==
              "]], 
             LineBox[CompressedData["
1:eJwVkHk8lXkbxkmkZLKX5fhhlKkjUaLFuAelRCpRllDH8piUDNU7iiJZ3jIl
vdFCzdsIZS/F0avnN1mydkSbLdnaZD/Pcw7nOczz/nF/7s/1x31d3+s25B1z
C5onIyNzjp3/747+lZdP3RTC9qurcte062POcKxkVakQBlHGeCmjj7VC2s10
K4RQ+njRUKMiwipDy3lKpBCW3uarZ2ogPL+3sX64WQjTCSYBwVyEv7VppBd8
EQLxxbPqmgfCg7uIhswxIei5+kWG+iPc08xnUmghhHM3i0QhCLfW+QUcnU9B
u0zvU8vTCDc6lKb7KlHAzbmbOxiPcDWWa9ypRkHN5IbyHSkIP6nMMzczoOCS
982sDZkIl1hLAvRNKAijM37EfyF8v2xnxg9mFFRwBFzpA4Qziyalo5spCOna
bJJRgXA6d6tFrz0F9VOilqlnCKfmZQQKnCiYSGF85WsRjr9r01S8nwKFLLlc
x1aEo9Hl2Tt+FEwWzS09+Qbhk5l9FqlBFFz8fWO/VyfC4dqWQbFHKFCu1B6Y
+IDw4fTE6+GRFORkZop/HkA4UL2j6eAp1p/vJmv7GWHfVO7c7jgK/lzO6574
hvA+5TNr7ZIp+CUq6VevUYR3X2gNsrhMgU6/1r+PTyC8Y8GPNwzTKQi0kOo6
CBF2OH+iWTWLgphRLFdLI2wjWz8nm03BrdB4oxkxwlZndNZNPqAgo1vWp38G
YXPJkeD+UgpWhKenxjAIr/ydvNFWwfqFbsxtkiJsRKm2PCcpILedi2+eRVgv
IlDmUR0F7u15i2LnEM7p6fA0baEg11iO38dqc6ddpffaKZhrT/w8x+rKspqF
qJOC2U/jcZ2sdjDYxLv+kf2H8+njv7G6+WJxpepnCsbu9+TXsP77RMbqF0co
WPCLq+ZrNv8j72bofCHLW3bu9h2W7/DLJTUxMxQkT5WsN5EgLNyYoCeSoYG7
MLXh8DTCZ+7NHA9fQEPDnKfTYRHCiqrhLV+VaVAlX2QvpxBOix5aHqBBQ9CI
bnPmJNvni/eZbh0ajNq1SwRjbJ+9rW89DGmoByX7Z98R5q96mrTdjIb7TKr1
yyGE7dPNP/5tSYN35YHYsT6WXzZnw+bNNPg/TLFr7mF536d+Xb2dhjCZ36Tl
r1neLQr2ua40yDUX9tUJWN7i0zcNPGhIyDmkeqWR5UsKdlbn0XCd42a6n2T5
Jrv+Sgmh4e9XifJ7+Syf3x5G/hgNWaSxwqJHCK9Zb1MoPk1DS1yj//177L8G
VJd8uEZDfoNfTUESm++aROzPpEE3Ldk47iybX8mQrXdpaDO/fVblXwjHXPkc
Xl1Mg+XP6boHgxDOhqq2vAYa/rC3xs9tETbLX8s1aqUBhyo3hFkiXKGVF3/r
LQ087a91b1ayfUfSLC8N0JCaUfTgtTrCU7dC0iOlNDxeln0ifVAfRy/4MPpd
TgRuV35N0HmvjxUi924LXiQClZ2rCr2a9LHODlux51IRiLQwb2GpPrYXq3vb
Woig42y2/5oofZzqTnIWBolAqyil8g7DwaT5jdvKR0TgqtSWH/aNg0cXRyK1
SNZPeVf6yDsOdqldYagbx96f76yQlHKwotUl49VZIjgaU885wOPgs0t9uXve
iMDuhO/e7WV6uGjKqsCjWwQZu20zjLP0cLdAZbX3gAiMhoe6Hybo4U3JNWYB
EyIYf3N82ScPPUyLuWtPKIshLu+QfcGkLg7rnNlwY6sYfOtPGgxwdHHWk9f8
LBcxGOj7/ETL6uLmtKJNd/eKoSb4RcSzIR28yplnk39IDMuo6pfHCnTw0NMG
qIoRw1Sn8cQBKx18IOu6Y99jMQwZ+Vj9aaONnQ9aua9cMQ1dW/iHtTWXYjVZ
J8ni1dNQva9aU2dCC7//r8/d8XXTEOuQ6tXTrIUDB2LHy+2moTYYhxbGa+Ho
4KYUR99pGHUuCYkd1cQFRw7WBvxnGhp82gW+fA38Q9QFq9vzZsB0ai6xwUQN
t135sEy9dwaW5GSm+XEW4p8MNYbODs0AJTnOf1+niM+UOJV+H56BuWnXEptw
RcwVlDnViWdgf6wPt/H5Anx+8cVTUWoSoMRJy6wIBWydZN3du1UCfCOH69uK
5XBmdOqdggIJ2FVtjX+YyZCTSnWh2o8kYFqS9PPFKQnpdEtinciXwIi8w9uh
HRKS5ge3+tdJIMA4otNWMk3uEtnIqn+UQLyBIdcvQETOi/jKi1JnoJyRVtGe
k6SnLFrzSZuBMpncjk9PJ8iiVHeJmwEDUy8DKobRBOlTTF41Xc2AhssWl9q3
Y2TZ92s1vY4MtD3IC20wGiYJwn6F4ykGvLnbLOpd+kke0a1jG8fA+ooLe0a5
faQfcXKJVTIDap5N3sIlH0l34oF4eToDfc5Kr3QFXeRuYssIJ4uBO25Xj24p
7yCdiQ99mtkMZPRUq6zNf0faE2pN8g8ZiNQt9BJUtJO2RAEprWBgPEFlsKP9
FbmRcCyjSAb8NW9EvJgRkObEqayhFga2t3vVf5utJ00JjbSe1wx0lA+7zD6q
JU2IosQ3XQzErcgeNr/0nNQn+o/VfmXgyWMpoXCaT+oQ0YFV4ww8++I+lriu
jNQktLwei9h+Hv/bbZdbRKoQJTsLZxmI8NJW0hXcIxcTO+zvyUvhXFiYmDd3
i1QkBq2yFkshMErg/y73D1KOOMO9pi4Fy4aXay7pRZIZsZbJcdpSUB7VaGzr
kiX/ATN7SAs=
              "]]}, 
            Annotation[#, "Charting`Private`Tag$20253#4"]& ], {}}}, {}}, {
        DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
         AxesOrigin -> {0, 0}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, DisplayFunction -> Identity, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {
           FormBox[
            TagBox["\"t\"", HoldForm], TraditionalForm], 
           FormBox[
            TagBox["\"acceleration\"", HoldForm], TraditionalForm]}, 
         AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Epilog -> {
           Dashing[{Small, Small}], {{
             TagBox[
              ConicHullRegionBox[{0, 1}, {{1, 0}}], "InfiniteLine"], 
             InsetBox[
              FormBox["\"robotAmax=1\"", TraditionalForm], {4.74429654862995, 
              1.3}]}, {
             TagBox[
              ConicHullRegionBox[{0, 2}, {{1, 0}}], "InfiniteLine"], 
             InsetBox[
              FormBox["\"robotAmax=2\"", TraditionalForm], {4.74429654862995, 
              2.3}]}, {
             TagBox[
              ConicHullRegionBox[{0, 4}, {{1, 0}}], "InfiniteLine"], 
             InsetBox[
              FormBox["\"robotAmax=4\"", TraditionalForm], {4.74429654862995, 
              4.3}]}, {
             TagBox[
              ConicHullRegionBox[{0, 8}, {{1, 0}}], "InfiniteLine"], 
             InsetBox[
              FormBox["\"robotAmax=8\"", TraditionalForm], {4.74429654862995, 
              8.3}]}}}, 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]], ImageSize -> 400, 
         Method -> {
          "DefaultBoundaryStyle" -> Automatic, 
           "DefaultGraphicsInteraction" -> {
            "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
             "Effects" -> {
              "Highlight" -> {"ratio" -> 2}, 
               "HighlightPoint" -> {"ratio" -> 2}, 
               "Droplines" -> {
                "freeformCursorMode" -> True, 
                 "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
           "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
           None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> 
         NCache[{{
            0, 4 3^Rational[3, 4] Pi^Rational[-1, 2]}, {-7.999999635318999, 
            7.999979169439353}}, {{0, 5.14429654862995}, {-7.999999635318999, 
            7.999979169439353}}], PlotRangeClipping -> True, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
       FormBox[
        FormBox[
         TemplateBox[{
          "\"acceleration at robotAmax=1\"", 
           "\"acceleration at robotAmax=2\"", 
           "\"acceleration at robotAmax=4\"", 
           "\"acceleration at robotAmax=8\""}, "LineLegend", 
          DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxItemSize -> {
                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
                "Grid"], Alignment -> Left, AppearanceElements -> None, 
               ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
               "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
             FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
             False], TraditionalForm]& ), 
          InterpretationFunction :> (RowBox[{"LineLegend", "[", 
             RowBox[{
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
                   ",", 
                   RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                    
                    TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                    RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], 
                    "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
               RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
               RowBox[{"LabelStyle", "\[Rule]", 
                 RowBox[{"{", "}"}]}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
          Editable -> True], TraditionalForm], TraditionalForm]},
      "Legended",
      DisplayFunction->(GridBox[{{
          TagBox[
           ItemBox[
            PaneBox[
             TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
              BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
           "SkipImageSizeLevel"], 
          ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
        AutoDelete -> False, GridBoxItemSize -> Automatic, 
        BaselinePosition -> {1, 1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]}
   },
   DefaultBaseStyle->"Column",
   GridBoxAlignment->{"Columns" -> {{Left}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Column"]], "Output",
 CellChangeTimes->{{3.87647209725841*^9, 3.876472105548031*^9}, {
   3.8764721878442717`*^9, 3.8764722283655567`*^9}, 3.876472267940998*^9, {
   3.8764723131693363`*^9, 3.8764723363480864`*^9}, 3.876472395748426*^9, {
   3.8764724832013807`*^9, 3.8764725365564823`*^9}, 3.8764725776707783`*^9, 
   3.876472627542598*^9, {3.87647268397264*^9, 3.876472705345777*^9}, 
   3.876472773144773*^9, {3.876472822715667*^9, 3.8764728728864307`*^9}, 
   3.876473453852482*^9, {3.876473534995863*^9, 3.876473548343523*^9}, 
   3.8764735915868177`*^9, {3.876490277664833*^9, 3.876490305902402*^9}},
 CellLabel->"Out[23]=",ExpressionUUID->"c555d22c-80ba-45b9-9c49-133724d1faf2"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1119, 790},
WindowMargins->{{Automatic, 3}, {Automatic, 0}},
FrontEndVersion->"13.1 for Mac OS X x86 (64-bit) (June 16, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"cae89331-8fc5-49f1-8f1c-48d7157d14ae"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 547, 10, 160, "Title",ExpressionUUID->"0365b06c-745a-4547-a2e4-ae4413524abb"],
Cell[1130, 34, 413, 10, 104, "Text",ExpressionUUID->"d3756276-5e39-449e-bf97-36faf53bef22"],
Cell[1546, 46, 216, 4, 35, "Text",ExpressionUUID->"5cc7324f-6d37-4f25-be27-de7a93c069a2"],
Cell[1765, 52, 466, 9, 58, "Text",ExpressionUUID->"fd60b6bd-e8fe-42d6-9a08-2e051362802c"],
Cell[2234, 63, 180, 3, 35, "Text",ExpressionUUID->"c29a99d2-4395-4873-a971-360dcefc7240"],
Cell[2417, 68, 1808, 55, 153, "Input",ExpressionUUID->"698b4204-04a7-43e1-9695-e4462e712941"],
Cell[4228, 125, 181, 3, 35, "Text",ExpressionUUID->"a7fb1c76-0643-411a-8c39-a9a10c712b0a"],
Cell[4412, 130, 6342, 150, 493, "Input",ExpressionUUID->"2deca0c2-8aa2-41eb-8ea8-e03898a5215b"],
Cell[10757, 282, 200, 3, 35, "Text",ExpressionUUID->"2bf13387-f57e-43f5-871b-fb917dd0dccb"],
Cell[CellGroupData[{
Cell[10982, 289, 1466, 27, 115, "Input",ExpressionUUID->"065b3396-6044-4133-97ea-dcc92ffb30ca"],
Cell[12451, 318, 104014, 1899, 681, "Output",ExpressionUUID->"081c837f-83d0-4c80-9458-32f15b6ce609"]
}, Open  ]],
Cell[116480, 2220, 1069, 26, 104, "Text",ExpressionUUID->"e33664ed-871e-4a7f-8ac4-bdbd10942add"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117586, 2251, 150, 3, 98, "Title",ExpressionUUID->"3689095e-e04b-496a-902f-6496bee1632c"],
Cell[117739, 2256, 359, 8, 58, "Text",ExpressionUUID->"38c0505d-39ac-4a65-8f78-1f947ec90843"]
}, Open  ]],
Cell[CellGroupData[{
Cell[118135, 2269, 154, 3, 98, "Title",ExpressionUUID->"b7147d08-7669-4b18-a819-30e799dafee2"],
Cell[118292, 2274, 495, 12, 35, "Text",ExpressionUUID->"ce22a2f8-c357-4c94-84ae-b4081ff1e1ca"],
Cell[CellGroupData[{
Cell[118812, 2290, 1191, 32, 64, "Input",ExpressionUUID->"b04461ef-ec23-40f4-ab92-12c3a7291d20"],
Cell[120006, 2324, 175, 2, 34, "Output",ExpressionUUID->"c66194a8-acac-4e69-9413-f34aa3f24a16"]
}, Open  ]],
Cell[120196, 2329, 536, 11, 35, "Text",ExpressionUUID->"c42ec116-9624-470b-b40f-a4cdf8f760fd"],
Cell[CellGroupData[{
Cell[120757, 2344, 794, 21, 30, "Input",ExpressionUUID->"c458bae8-ace0-4f08-ad1c-85c698eeefc8"],
Cell[121554, 2367, 575, 16, 34, "Output",ExpressionUUID->"f979755f-be80-4d14-9691-9380019ddea4"]
}, Open  ]],
Cell[122144, 2386, 320, 10, 35, "Text",ExpressionUUID->"d575a477-1b70-4b92-be5c-ac36caef6b95"],
Cell[CellGroupData[{
Cell[122489, 2400, 2274, 56, 136, "Input",ExpressionUUID->"cf80ba3a-455d-433e-880f-8e3f19b0d15c"],
Cell[124766, 2458, 57277, 1044, 545, "Output",ExpressionUUID->"25e7e6ec-4bef-424a-8b1a-dcd53174a048"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182080, 3507, 440, 11, 54, "Subsection",ExpressionUUID->"4e41f074-62a6-451c-b55c-5c70c60037c1"],
Cell[182523, 3520, 586, 13, 35, "Text",ExpressionUUID->"8ec9f845-519b-48de-930b-246600aa4fff"],
Cell[183112, 3535, 351, 10, 35, "Text",ExpressionUUID->"ff28ec6e-f6ca-49b9-aa88-838bf63c9dab"],
Cell[CellGroupData[{
Cell[183488, 3549, 2742, 73, 241, "Input",ExpressionUUID->"c8928a29-1ffb-4e96-9d3e-6d51c5d66c11"],
Cell[186233, 3624, 2865, 62, 331, "Output",ExpressionUUID->"54d040e5-582a-4a26-aa3c-78b364eb15d3"]
}, Open  ]],
Cell[189113, 3689, 415, 11, 35, "Text",ExpressionUUID->"c012cff1-b07f-4b8a-918b-4c64aedc57cb"],
Cell[189531, 3702, 1156, 32, 52, "Input",ExpressionUUID->"58f7b35e-975c-46c0-b733-48c9a7f43c8a"],
Cell[CellGroupData[{
Cell[190712, 3738, 1639, 46, 94, "Input",ExpressionUUID->"096f0eeb-a5dd-4b87-91e5-0dd9986f2f21"],
Cell[192354, 3786, 2038, 43, 338, "Output",ExpressionUUID->"cdee37af-8698-4968-84b3-ad2c80f7e68e"]
}, Open  ]],
Cell[194407, 3832, 562, 15, 30, "Input",ExpressionUUID->"e5c4aab0-55b6-41a9-a1f8-afa7a8123059"],
Cell[CellGroupData[{
Cell[194994, 3851, 1384, 37, 73, "Input",ExpressionUUID->"19bf13c1-0018-475e-978f-fd5058895951"],
Cell[196381, 3890, 11191, 242, 250, "Output",ExpressionUUID->"f8283844-2849-49c3-8ba3-5fceee5b029c"]
}, Open  ]],
Cell[207587, 4135, 472, 11, 35, "Text",ExpressionUUID->"c65cf38a-d65d-4faf-92f4-9163b303ffeb"],
Cell[CellGroupData[{
Cell[208084, 4150, 504, 12, 45, "Subsubsection",ExpressionUUID->"3048ac33-bdbd-4f21-adfa-d3494121c2ed"],
Cell[208591, 4164, 494, 14, 35, "Text",ExpressionUUID->"4e914716-ae77-4a03-9f05-3b9370aa20fb"],
Cell[CellGroupData[{
Cell[209110, 4182, 2322, 65, 199, "Input",ExpressionUUID->"2a0d491f-adea-40fa-836f-ae944ca5501b"],
Cell[211435, 4249, 92153, 1658, 244, "Output",ExpressionUUID->"7abc3af9-2f2d-4ea0-bed1-85626a51a299"]
}, Open  ]],
Cell[303603, 5910, 566, 13, 58, "Text",ExpressionUUID->"e413813a-3d7c-466d-aa51-c35a5b0e578b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[304218, 5929, 609, 13, 54, "Subsection",ExpressionUUID->"a490cf56-6946-4f9b-a744-1534ac205dec"],
Cell[CellGroupData[{
Cell[304852, 5946, 224, 3, 45, "Subsubsection",ExpressionUUID->"34e38d7c-0eb6-40d1-a00b-ce1b74066565"],
Cell[305079, 5951, 395, 12, 35, "Text",ExpressionUUID->"7f3188fc-c38d-4145-922d-f63a1f360618"],
Cell[CellGroupData[{
Cell[305499, 5967, 492, 13, 30, "Input",ExpressionUUID->"8b1369cc-ceb0-4eee-bef5-4872ad63321e"],
Cell[305994, 5982, 277, 6, 50, "Output",ExpressionUUID->"90888f4f-de6c-45c3-8fd9-6d6344ac5ef2"]
}, Open  ]],
Cell[306286, 5991, 283, 7, 35, "Text",ExpressionUUID->"575b95e0-47df-48df-b598-9faf00536598"],
Cell[CellGroupData[{
Cell[306594, 6002, 493, 13, 56, "Input",ExpressionUUID->"0798d170-6036-4630-ab8e-29edd09e2550"],
Cell[307090, 6017, 392, 11, 51, "Output",ExpressionUUID->"16897e76-048a-4799-8e0a-418193138c0c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[307531, 6034, 235, 4, 45, "Subsubsection",ExpressionUUID->"b3b6ebf7-5d78-47c6-bcc9-3495a11e260c"],
Cell[307769, 6040, 456, 12, 35, "Text",ExpressionUUID->"1bf79f49-a3f2-4b4d-9f99-5192f2e58189"],
Cell[CellGroupData[{
Cell[308250, 6056, 553, 17, 30, "Input",ExpressionUUID->"8b71e788-7b34-4df5-8b1f-497378aed7c3"],
Cell[308806, 6075, 295, 8, 34, "Output",ExpressionUUID->"000dccf8-a221-4892-b54b-b69f4fd66f3f"]
}, Open  ]],
Cell[309116, 6086, 404, 12, 40, "Text",ExpressionUUID->"4e767e11-bbe4-417e-84bf-4beda8508aea"],
Cell[CellGroupData[{
Cell[309545, 6102, 502, 15, 30, "Input",ExpressionUUID->"c5310b02-f6e9-4911-8359-c4841dda4985"],
Cell[310050, 6119, 237, 6, 54, "Output",ExpressionUUID->"1c7bcb37-d223-4330-8689-aa3dbbfd79cc"]
}, Open  ]],
Cell[310302, 6128, 433, 8, 35, "Text",ExpressionUUID->"3c7e3252-2808-4bdd-b6c1-f2993ee2504e"],
Cell[310738, 6138, 645, 17, 54, "Text",ExpressionUUID->"527cd6d1-e999-4872-b3cb-22fee33ca4af"],
Cell[311386, 6157, 445, 11, 35, "Text",ExpressionUUID->"ffd1973a-273b-425b-a3ef-a3f4660a87df"],
Cell[311834, 6170, 452, 12, 35, "Text",ExpressionUUID->"60ad6511-d270-4956-9d21-2bc3aaac07ad"],
Cell[CellGroupData[{
Cell[312311, 6186, 528, 14, 60, "Input",ExpressionUUID->"ddff2c6b-3401-4c7d-95f7-a6c2b3bdd993"],
Cell[312842, 6202, 855, 27, 59, "Output",ExpressionUUID->"b7b9cbb0-c446-45d5-bd94-e1dbd0b9864f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[313746, 6235, 187, 3, 45, "Subsubsection",ExpressionUUID->"16bc0bba-7dfa-4ed2-b18e-1b32493c98b6"],
Cell[313936, 6240, 253, 6, 35, "Text",ExpressionUUID->"de352379-c064-470d-9de3-d776bfa9a6cc"],
Cell[314192, 6248, 908, 22, 61, "Input",ExpressionUUID->"c6f0a969-8ef5-4afd-9122-b4e6a8b54676"],
Cell[315103, 6272, 168, 3, 35, "Text",ExpressionUUID->"e8061f7d-e472-437a-a4eb-00a084c9692d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[315308, 6280, 206, 3, 45, "Subsubsection",ExpressionUUID->"662891ea-1e26-4542-ac88-c580429f2436"],
Cell[315517, 6285, 1227, 35, 58, "Text",ExpressionUUID->"717fd9b1-edce-4838-b7fb-651d9a11cfff"],
Cell[316747, 6322, 885, 20, 50, "Input",ExpressionUUID->"73be2e5e-89c5-4968-8087-8be48fa152a8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[317681, 6348, 319, 5, 54, "Subsection",ExpressionUUID->"4efd6d89-bc57-4253-bcb4-bc4270f1f3f0"],
Cell[318003, 6355, 374, 11, 35, "Text",ExpressionUUID->"376c0262-1e72-475a-bd44-60a84f72a32e"],
Cell[CellGroupData[{
Cell[318402, 6370, 3987, 98, 304, "Input",ExpressionUUID->"f52ce923-695e-47c4-9ec6-552f24513a43"],
Cell[322392, 6470, 96666, 1762, 531, "Output",ExpressionUUID->"c555d22c-80ba-45b9-9c49-133724d1faf2"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)