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

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

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    265861,       5715]
NotebookOptionsPosition[    262505,       5653]
NotebookOutlinePosition[    262943,       5670]
CellTagsIndexPosition[    262900,       5667]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"ClearAll", "[", "\"\<Global'*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.92615667517485*^9, 3.926156686424818*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"1e6115ea-cb4c-429c-be4f-790d4d1d31c1"],

Cell[CellGroupData[{

Cell["Einf\[UDoubleDot]hrung in die Computer Algebra - 2024 - \
\[CapitalUDoubleDot]bungsblatt 4", "Chapter",
 CellChangeTimes->{{3.9270239720010033`*^9, 3.927024011562078*^9}, {
  3.927277035400279*^9, 3.927277036245101*^9}, {3.9289036792676163`*^9, 
  3.928903680025075*^9}, {3.9294897222784357`*^9, 3.9294897236673803`*^9}},
 TextAlignment->Center,ExpressionUUID->"d64facf9-cde0-44d8-9a21-ec4ca1aa32c4"],

Cell[CellGroupData[{

Cell["\<\

1.  Aufgabe: Monte-Carlo Integration\
\>", "Subsection",
 CellChangeTimes->{{3.9291847280327587`*^9, 3.929184749818014*^9}, {
  3.929429764978565*^9, 
  3.929429766840497*^9}},ExpressionUUID->"23432cad-5230-40b5-a317-\
c8c4980d7eee"],

Cell[TextData[{
 "Betrachten Sie die Funktion ",
 StyleBox["Sqrt[Tan[x]]",
  FontWeight->"Bold"],
 " . Finden Sie einen analytischen Ausdruck f\[UDoubleDot]r das Integral von \
0 bis \[Pi]/2. Berechnen Sie dann das Integral numerisch mithilfe von ",
 StyleBox["AdaptiveMonteCarlo",
  FontWeight->"Bold"],
 ". Wiederholen Sie diese Integration 1000 Mal und speichern Sie alle \
Ergebnisse in eine Tabelle .  Erzeugen Sie ein Histogramm der Ergebnisse und \
vergleichen Sie mit dem analytischen Resultat . Wiederholen Sie die Rechnung \
mit MinRecursion -> 8."
}], "Text",
 CellChangeTimes->{{3.929184706154632*^9, 3.929184752820571*^9}, {
   3.929184968321639*^9, 3.929184969957851*^9}, {3.929365530549366*^9, 
   3.929365536482552*^9}, 3.9294299817729883`*^9, {3.9294897551769123`*^9, 
   3.929489759333022*^9}},
 Background->RGBColor[
  0.94, 0.88, 0.94],ExpressionUUID->"0c994294-8b24-46b0-af70-a078d2ebd91a"],

Cell[TextData[{
 StyleBox["Hinweis: ",
  FontWeight->"Bold"],
 "N\[UDoubleDot]tzliche Befehle",
 StyleBox["  Integrate[ ], NIntegrate[.... ,  Method ->  .... ], Table[ ], \
Histogram[  ] ",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.929184762310068*^9, 3.9291848295548697`*^9}, {
  3.929433376163692*^9, 3.929433382627736*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"f6256c2e-429f-48d0-b4be-914d6cf36107"]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.  Aufgabe : Heat Equation", "Subsection",
 CellChangeTimes->{{3.927277050612318*^9, 3.92727707649513*^9}, {
  3.928918446621532*^9, 3.928918451598735*^9}, {3.929366379654975*^9, 
  3.9293663803622017`*^9}, {3.929429773368278*^9, 
  3.9294297774785433`*^9}},ExpressionUUID->"81f65acf-4ce5-4bdd-a26f-\
c212e099ea35"],

Cell[TextData[{
 "L\[ODoubleDot]sen die W\[ADoubleDot]rmeleitungsgleichung in 2D : \t",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         FractionBox[
          RowBox[{"\[PartialD]", 
            StyleBox["u", "TI"]}], 
          RowBox[{"\[PartialD]", 
            StyleBox["t", "TI"]}]], "\[LongEqual]", "\[Alpha]", 
         RowBox[{"(", 
           RowBox[{
             FractionBox[
              RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                StyleBox["u", "TI"]}], 
              RowBox[{"\[PartialD]", 
                SuperscriptBox[
                 StyleBox["x", "TI"], "2"]}]], "+", 
             FractionBox[
              RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                StyleBox["u", "TI"]}], 
              RowBox[{"\[PartialD]", 
                SuperscriptBox[
                 StyleBox["y", "TI"], "2"]}]]}], ")"}]}], TraditionalForm], 
     "errors" -> {}, "input" -> 
     "\\frac{\\partial u}{\\partial t}= \\alpha (\\frac{\\partial^2 \
u}{\\partial x ^2}+\\frac{\\partial^2 u}{\\partial y ^2})", "state" -> 
     "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "418ee112-f33b-40ea-ac2d-823fab6d260b"],
 "  \nmithilfe von ",
 StyleBox["NDSolve",
  FontWeight->"Bold"],
 " f\[UDoubleDot]r  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{"-10", "\[LessEqual]", 
         StyleBox["x", "TI"], "\[LessEqual]", "10"}], TraditionalForm], 
     "errors" -> {}, "input" -> "-10\\le x \\le 10", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "e5d988bf-6f97-4e24-9f3f-3b5a6a745c96"],
 ",  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{"-10", "\[LessEqual]", 
         StyleBox["y", "TI"], "\[LessEqual]", "10"}], TraditionalForm], 
     "errors" -> {}, "input" -> "-10\\le y \\le 10", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "5408f6cf-70fc-477c-b85e-2a157c3ee7a4"],
 ",  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{"0", "\[LessEqual]", 
         StyleBox["t", "TI"], "\[LessEqual]", "10"}], TraditionalForm], 
     "errors" -> {}, "input" -> "0\\le t \\le 10", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "fe948ac9-eeb0-484e-8f7b-b27f52abff09"],
 " und ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{"\[Alpha]", "\[LongEqual]", "0.2"}], TraditionalForm], 
     "errors" -> {}, "input" -> "\\alpha=0.2", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "4641c821-c02f-4b0c-8235-4f237bb3f112"],
 ". \nNehmen Sie daf\[UDoubleDot]r die folgende Startverteilung an: ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["u", "TI"], 
         RowBox[{"(", 
           RowBox[{
             StyleBox["x", "TI"], ",", 
             StyleBox["y", "TI"], ",", "0"}], ")"}], "\[LongEqual]", "exp", 
         RowBox[{"(", 
           RowBox[{"-", 
             SuperscriptBox[
              RowBox[{"(", 
                RowBox[{
                  SqrtBox[
                   RowBox[{
                    SuperscriptBox[
                    StyleBox["x", "TI"], "2"], "+", 
                    SuperscriptBox[
                    StyleBox["y", "TI"], "2"]}]], "-", "3"}], ")"}], "2"]}], 
           ")"}]}], TraditionalForm], "errors" -> {}, "input" -> 
     "u(x,y,0)=\\exp\\left(-(\\sqrt{x^2+y^2}-3)^2\\right)", "state" -> 
     "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "2efc6a00-4d0a-49d5-81cb-29e4410cc290"],
 "\nAu\[SZ]erdem gilt als Randbedingung, dass die Funktion u entlang der R\
\[ADoubleDot]nder der betrachteten Fl\[ADoubleDot]che verschwindet, d.h  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["u", "TI"], 
         RowBox[{"(", 
           RowBox[{"-10", ",", 
             StyleBox["y", "TI"], ",", 
             StyleBox["t", "TI"]}], ")"}], "\[LongEqual]", 
         StyleBox["u", "TI"], 
         RowBox[{"(", 
           RowBox[{"10", ",", 
             StyleBox["y", "TI"], ",", 
             StyleBox["t", "TI"]}], ")"}], "\[LongEqual]", 
         StyleBox["u", "TI"], 
         RowBox[{"(", 
           RowBox[{
             StyleBox["x", "TI"], ",", "10", ",", 
             StyleBox["t", "TI"]}], ")"}], "\[LongEqual]", 
         StyleBox["u", "TI"], 
         RowBox[{"(", 
           RowBox[{
             StyleBox["x", "TI"], ",", "-10", ",", 
             StyleBox["t", "TI"]}], ")"}], "\[LongEqual]", "0"}], 
       TraditionalForm], "errors" -> {}, "input" -> 
     "u(-10,y,t)=u(10,y,t)=u(x,10,t)=u(x,-10,t)=0", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "b573d379-7f82-4e14-98eb-ea01fe73670b"],
 " .  \n\nStellen Sie Ihre L\[ODoubleDot]sung graphisch f\[UDoubleDot]r \
unterschiedliche  Zeitpunkte dar.  Sie k\[ODoubleDot]nnten daf\[UDoubleDot]r \
u.a. ",
 "Table",
 " oder Animate oder Manipulate verwenden. "
}], "Text",
 CellChangeTimes->{{3.9272770901442833`*^9, 3.927277092641013*^9}, {
   3.927277185346107*^9, 3.9272771856473303`*^9}, {3.927277252766768*^9, 
   3.9272772671818*^9}, {3.927277302864485*^9, 3.927277463347023*^9}, {
   3.927277706768195*^9, 3.927277719884879*^9}, {3.927277863195435*^9, 
   3.9272778708688498`*^9}, {3.927370509360157*^9, 3.9273705252168293`*^9}, 
   3.928903684652719*^9, {3.929368030184607*^9, 3.929368036743704*^9}, {
   3.929370487842849*^9, 3.929370526401534*^9}, {3.929370564885112*^9, 
   3.9293705972225122`*^9}, {3.929370634691163*^9, 3.929370701997981*^9}, {
   3.92937079508566*^9, 3.929370824611269*^9}, {3.929370955389948*^9, 
   3.929370971799344*^9}, {3.929371072195261*^9, 3.929371139855863*^9}, {
   3.929371250439012*^9, 3.929371439854095*^9}, {3.929371482571669*^9, 
   3.929371563146839*^9}, {3.929371657764864*^9, 3.929371708687866*^9}, {
   3.9294300038763313`*^9, 3.929430006643029*^9}, {3.929433602363061*^9, 
   3.929433638222227*^9}, {3.929433673493279*^9, 3.929433676901382*^9}},
 Background->RGBColor[
  0.94, 0.88, 0.94],ExpressionUUID->"dca6c4bb-3fc0-4683-9406-d7b66e69e308"],

Cell[TextData[{
 StyleBox["Hinweis:",
  FontWeight->"Bold"],
 " N\[UDoubleDot]tzliche Befehle ",
 StyleBox["Plot3D, ColorFunctionScaling -> False, NDSolve, ",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.927697452926697*^9, 3.927697496340514*^9}, {
   3.927799140561171*^9, 3.9277991410026693`*^9}, 3.92890375785045*^9, {
   3.9293720699237013`*^9, 3.929372089579043*^9}, {3.929372140474422*^9, 
   3.92937214765552*^9}, {3.929430029656291*^9, 3.929430037495228*^9}, 
   3.929433391560141*^9},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"1396b715-7b91-43f6-922e-830a151d4cc1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Startdistribution", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Plot3D", "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"x", "^", "2"}], "+", 
            RowBox[{"y", "^", "2"}]}], "]"}], "-", "3"}], ")"}], "^", "2"}], 
       ")"}]}], " ", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", 
      RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
    RowBox[{"PlotRange", "->", "All"}], ",", " ", 
    RowBox[{"PlotLegends", "->", "Automatic"}], ",", 
    RowBox[{"ColorFunction", "->", " ", "\"\<Rainbow\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.929371738878084*^9, 3.929371740229327*^9}, {
  3.929434048271817*^9, 
  3.9294340719002028`*^9}},ExpressionUUID->"9af4ea99-9018-4777-b34e-\
a6e3d19a2ca0"],

Cell[BoxData[
 TemplateBox[{
   Graphics3DBox[{
     GraphicsComplex3DBox[CompressedData["
1:eJx1nXmcztX7xkkkTGgshcmeFmRLYZiPpSIVoVDapJSyZkm0addCkkqRNmtk
ydiGeQhJIhVZylJjyRpaJPHr63O975lz/zL/PK/nes7cn/tcZ7vP+ZzrnPKd
e7a554xcuXJ1zZ8rV55/Py+fXOTrkycrJvisv/WvOg3mLayTaH5OuRGVyhve
f+HqbXPKvF131OqS25qPKGP41wW3Np+/5cIrPy6Y/ET3zSUMv21826uK1OhS
b8kpO0Wz7dRbsvG7ATfV/+RU+nyGJ584Y+dv20/W//QU/kcm+I73OjZetb9z
g1yn/rIywBeee8HI2aufajAuTp8G3v79OP1Hsf0I/BvZXxj7Y3j5+rE/E2P/
DR83IfZ/RJxfw99KivO7KObH8FaLYn70PfJ88h1e4ZPvfF40sl+DUkk9r4Rn
8MdLX7bqjj0H68Ez+NTUXe0HHSvXAJ7BR68c1eRI03yp8Aw+ZN5HB17c81Eq
PIO/+8idvR6ckKchPIPvmdSn5+ejKzSEZ58ensFrzo/twzN42S9jf+DZ6lfD
2H94Bn8sJc4vPIO/PirmB549n/AMf9RP0oHDJ9/5pL7BM/iXzz2+bNFNz6bC
M3iPMZf2WF31zobwDF7yovNffnvG4YbwDF6414pxX+27uhE8g7e4s1j59ds6
N4Jn8IZKD8/gfWUfnsEz5Q88g3//fOw/PIPTXuAZHP7h2fMJz/BEe4dncOon
/w8On3znM7Xm/IPlDo5uCM/g/9wR8wPP4AdrNTn5+Rs7GsEzeNXnns07Pqt6
GjyDp31cLPfnM5qlwTP4LUoPz+D1a8f24Rm8h8oLnsGXyH94Bod/eLb+UvUf
nj2f8Awf9J/wDE57h2dw6qf5Jxw++c5ny0fTFlW/rUQaPIPPm3pizT2Fn06D
Z/Az7hidcecb84xn8Da3j1j445MrjGfw4koPz+DHZB+ewT+RP/Bs+RL/8AxO
/Ydn8I/U/8Cz5xOeyTfjETyD03/CMzjtHZ7BqZ+WH+HwyXc+h78/osrJKeuM
Z/A367/xaKOvDxjP4LePbjpkyC0HjWfwcUoPz+AzZR+eLb/TYn/gGXyQ6j88
g3+j/MIz+Gz1//Ds+YRn8kd/C8/gjC/wDE7/Cc/gtHd4Bqd+4gc4fPKdzx/T
/0h+ZcgG4xn8pmbnfLho8mzjGXyW0sMz+HjZh2fwzvIHnsHXyX94Bt+i/MIz
+IuDYn7g2fMJz+SDeAmewRnf4Rmc8Qiewek/4Rmc9g7P4NRP/AOHT77zObnd
hZUPVy1nPIPnVnp4Bm8r+/AMPk7+wDP4DPkPz+DblF94Bk+fHPMDz55Pixfl
L+MpPIP7+gze0NVn8FtcfQYv7uoz+DhXn8FnufoMntvVZz6fcvUZfKqrz+D9
XH0GP/P5sD6DF+od1mdwX589n/CMX9+4/hmc+BOewfu6/hmc8d3GCeHHXP8M
PtP1z+DjXf8M3tb1z+BTXf/M51bXP4O3cv0z+HLXP4OnXBz2z+BXLgj7Z8+n
za/0fOZH8AxOPA/P4Jku3gBnvIZnG39cvAHOeATP4J1dvGH10cUb4P1cvAEO
n3y3eeFjYbwBvs3FG+C9x4bxBvilq8J4w/MJz9ZuJoTxs81HG4bxMzjxJDxb
fOTiZ3D4h2dwxnd4Bl/n4mfwGS5+Bqe9wzP4chc/g29z8TOfX9cK42fw214I
42fwio3C+NnzCc/YY/4Oz+DMd+AZnP4HnsHhH57BM918EPwbNx8E3+Lmg+Db
3HwQnP4TnsFp7/AMTv2EF3D45DufB9x8EPzRC8L5oOcTnvk/1kPgGZz5OzyD
wz882/pKw3B9w/qzL8P1DXDiT3gGZ3yBZ3DGd3j26eEZnP4TnsFp7/AMTv2E
L3D45DufL78Rrm94Pt16XXSa9broNOt10WnW66LTrNdFp1mvi06zXhedZr0u
Os16XXSa9broNOt10WnW66LTrNdFp1mv83xGns/Rp+wUSvDZZ3iR6rteeCVt
6Sk7uQ2/tMPUuRcN/DptfoxH4NcIHx5/N3yd7PAde9jhO5+Z19//eNejB9MW
ncrvzkzwTbccLFlq4E/2XPDFSs9zwW919rHn7YyK8bSpwvGT369xdsB5Lv8P
PtXZ5/Mz5yd4d9nnufy+zvEPfqvjH7y745/PVq/Gdh4ZWPho8xEVEnz+3v3d
t19aNdXaF/i8wbkfSm2Sfrm+R6dJH/n0+HnFqd+TE5Vr7Pry+Rb3mP+0s+sa
TU3KO+VDK1/Sv6n8gsPHgWktG6y4bIfxTPp0pQcn/e9KT/sFzxNVrvXnU7Mt
Hb+D4yf4q3lXFdtRfJf5A/5e+7mH2uzKjm+xd0Gh4etWNt5q/mBvjeoDfoPD
D7yAww/PA8cf+h/wBk/tvfnFuXvsefwOjv983lW5dsrXz71m/vN/lyg9/pO+
jNJT38DnKF/UM/Ain8T8k1/wN10/AH7AlRc4PNu4Jrxk96I39v15scVp4Eld
Gi57o1B/85t8lHH55fctD8Z2SMfnhkpxehsHlX6M/KkV58vwmmpf5Bc76S6/
4NRPeAdf4/of/KVe2bq60h+T/9ghPeUIP6R/5e6QH8qTcrR1eKVf4vixdU3h
lDu/l1S5Y5f0yfIH3kgPb+SL/yvv6i3PoV5hl/TJrt6SHn8oR9IvUTviu63L
CsdPG2fUTrFL+oHqN/Cf369WeeE/9sgvfnocu9jBPn6QHn9cfx6dpj+PTtOf
W3q+06+79Pa+0tvxOPm19fNFVx294djS7PokfIXDbV1H7Qs78Ep7Jz049R9+
wKk/8AhOuVhcrefgJ99pN/QnPBecdmTxMP+XGdux92X6P/Jr78toTy6/1Gv6
JXv/pfTvKL29/xJ+TmboP/9Hf0U6cG8H/ha4cdnWFzPD8gLnufw/OHZc/bF6
5eIHwyt1L15jc/rZCT479f1rePVH5qSNPVWOxzP5/OKJ3TXnvfhLWo1TdvJE
6aeeeyhtbeviXx94fX8a3/kdPG+NUsPTuxeOwC/f2vfWNf2mWzp+B68f44nC
MZ5YvyXE8fPW6mOnd73muzTS8TvpSQdOevID/sjq0VNuXnfQ7PM7+Mo4X5b+
gPI1NE5n9maJH9Lxf6QnHf9Her6bPccz+JPyh+/8Dl4qzq/xPEH55Tu/g/Od
z00qd8qRfOxw/jPutf/hybbPvHPAxkF+B+e58LBRdrDLc7BPOv6P9NRz8t1Y
9vnO7+AbihbpUqlFxQSfm1Zd1mvHRQsu1/fI4/hBPeojfsCpR5PvHHO44bN7
DadfqTBl4V2d9hxM++bU9/WZ5OOn36p/3/nwWEsPP5VvvO2FKiM3G076bves
GTcxNcPSgV+l9Hzn81OlhwfwQkpPuYIvlP+0N/BXlV++D4nzkTZH/pMv/G3v
8kX6qg7ns6L85Dv+7msd++nKKzpNeRlOf0q8VteN17buqLiC8Qi8hdJjh/o7
Rempf5TDY2pf/D/PwT5+YK+um9eAY9/ev8qvFi6ewd6ZGjfxg/q5NnNESuHp
y+25/B/p4Zd29qjrH8CfU7nznf8jPf4xPt4p+6THHnZIx//d6fyh3l2SiP0n
jqH8iye+3z90derl1EPa3fuqt+DwV17tDhyefHuhHHZ2eHFur7rZ80N+B6d+
8vt64fgPfoP6Gf6f9uHbOzjtBf/4vbLzE5x+gOeBr3f+49cNrj8kPe2L9glO
O6Ueg8+RffykHTzmxkGeU8j1YzavkR3aLeXsy5f6fKvrf+z9cq/rr+p93Vfm
P7/Pcf7jb0vxAE76ZfKH5+Ev/Tz1DJx+nnoGXsHVN+r7WPlJeyD9Mtffgo9x
+eX/Frp6zv/RP9NOiOPgk+/wDe7SJ06T3nDibObTtxS8uEHHxSOsHg8+FTee
m/hJ8RXp6YfeUP9Gevh++4t3anxWd5PhxOn9Hqqw4J7XPzeccrixys7Xm7TM
fr9Jfb9+/qI7xs7cYunph4hLwW0/SeMyc6e8kD0uU09mv9av65af1hhOfVt1
bpUX7vhurtVn8GkqX3gB3zSkyndVajxh9Ypyoz7DF/gfmbm/OjxvvM1TwN95
uNv0yy5abPUQ/H1XD8Hp9/ADnPZCvbR+UTjjEHhl2SFf8E25U67glC/5pV2+
r/Ilv+CHVE/IL/jTKnfyC95W5U5581zKnfIm/Wcqd9svJXygyp3yBp+gcoc3
8Fkqd55H/1HI1Tf6vU6u/sD3g7LD/2MPO/w/z20uO/w/eEdXD/n9bpUj/TLp
PxQPjLs8d67Ki/6F9F3EM/UBvJd4o98B36ryZR3E7KuePByXu6W/UPM45qXg
a117Jx+T5T92ycdc15+Qj7vlPzj56C3/4Y30y1zcTvoLXdxOvjcpv/hDvue6
/pB8l1J+wW1fofLLc7E/xsVL2G/6VNyfkB77tyTifgMc+zvUb7g4yvf/kR8v
4J32N1j+4AftfvX6lUdnv1vAngf+boeo3de1b7L8YGfeuKN9cz37otmhHQ/T
uhl2wEdqvQI7tNdCig+xi7/4SfsFf0jljn88H//BeT7+4wfph7n3JqTHT9q1
jY9Kb+ub6ud6KT3tnf7yoOJ26jd2HpOf4Nh5Wn5Sj7EzSjzzHd6YF2AXv25x
7zvA8RM7+IuflAs4cTv28Rf/sQ+O/9gnH/hP+dJuGPfp58G/cP08+CDXz4PP
dv08OOM7+QHv5PphcPpz6hk4/RX5Ab/b9avg9Ev4Qzue5sZr8Ltd3Iu/jBfg
/B/jBTxQvi3dPAWceBh/KE/iGdIznhO3gFPOxC34Q3rGfXDKnzgB3Oq5+klw
6gXxADj1gnEfnHrBuA8OHxMcb7afVrzht83j5D9+gxPH4jc4cSztBZxxhH7c
xjE3PlpcLDuUB+W7R+WCn9STAokwngSfoHKhHoIz3tHfYZ9xBz9Jz7hDuWOP
uBE+aR8funKhfXRx5YidXq5d4Fftp8J6iF9Xyx/swPdWV69ITxwCDt/EIeQf
vuGZ/MM3PPPd3huU6ftMyqyPjU/yUdvxST6udnZs/4LskB/q3eUtjn1478b2
hlP/Cypf1G94vuyBo32TUrOs/fB/jMukB2ecBcffmmvXDCry2UjzHz9LpcR+
kn9+z50S8mD78D/I2tyyXmR28P/+v1+5rX3HAfZc6kOxeX3mf7o3e76DPeyQ
L+xVerLJDaVnXm980k/ml//8P+W77uOKC5bk7d0InHYzYNXFK+/du6wRduH/
hdsOVDprYrLZtzh8UOUVpRqOSyt/yp/zrT4c7VVg4cuFN9r+avDV78f+H95U
dGJ69+I2j3sio+TxHcc6mx149nbAdzo71OtLL78kf7593dNSYjtWXhN7x3ZM
nyU8TXzuj+1Yez9nYewPfmMPO+DYq+Ls4M/38od+jd+/d36aPdkHJ+6edP6q
5nn7b2vUObVYh0otzjP721Uu5Mf7yf+DYwd/sOftkC/44Xk+/YGR56w/+Xi2
jrLzifK/9b/0gStbnTxv7smTKbbesmVrgfkFq5Q3nPR139657fODu+ot+a7Y
0pMnz7P0D7Q8//7iqR0NJ32/F378uHS94tp3mmzpqy39qd4/A66qD076qy95
uuoVzf5o0PrUc5MsfYeW+cpW+3VXfXDSty6V+7It/Yen1lX7JP2RWQtPlJza
tAE46bulDT/ZbVpWatyujph+tvSAhk91H9CtATjp2ySSRv/0eAHth0yYrnau
9unVjtPbPOZm2SE9dnZIP0J68OqyX4f3i7JT59PYf3DSN5L/N8Q8WPr54gec
9LPFTx31G7ZvXfyDk36G+F8cl6Ol33NdXL7gpE8aGpdv/NwUS3/x9rj+gJv+
4J24/qgeWvrJT35/ybibRtYFJ32PXBVO1U/qLfs0X/x9/TfJ+/fWo36Cf/7+
371ndunUgHoInpTeL0+tvYNSqW/gA2ZduKxKtdYNqVemC+zzyU3vXfBDQ+oP
+IEvz6jbd+pFjagn4E1H1Ptn7OPXN6LcwZtpfzLlDn610lO+4Ltln3IEL/VQ
7A/lBT5b/lMu5s+cOL/wD377BzE/8Axe98+YT3im/364W+VN7dNTGsAzeN3y
pSq3SjyRCs/g6yvuXvbwuuEN4Rl884+lR0/d3qYRPIMvOFmqYM8WXzeCZ/Be
D89Y8vLDRdPg2XSv+aZ3fmR6rTR4Nv2p9tvDM3gjpYdn8C6yD8/g6+QPPINf
sSX2H57By1SK8wvP4EfEDzyDt34g5hOeGcff/fqtTX0H5UmFZ/BZbb5Ye3nT
Dg3h2fQK1/62suRb7RvBM/jOd/NsHHpHvjR4Bq/UZPZ7e57tYfyYnfGjzp4+
baHxA77+l4+f3DLtLeMH/Ibo4mOto9Zp8AN+n+IQ+AGv0DL2E37AS7eN8wU/
4IPWxjzAD/HUJUNb965f7QPjB3zn3lZT7i+wz/gBvyN58Nnr/9lk/IC3fezE
4i+L9TUewLf2mdzz+tsOGg/gA6Zc2+7w79uMB/B3dpQe2fez6cYDeH6Nv/AA
/of8gQfwffti/+HB8vtinF94ID6fsXHvT4/Vyt0QHmydIG+d50bXbNwIHsBn
PjPxwgKtKqbBA/jtivPhAfy1OTfcevfIb40H8F23N97TZek+4wG89Ce/X7q6
wEbjAfwi2YcH8ILPxv7Ag+k988X+wwN4301xfuGB+Oi2lRWG9LimnPEAfvjL
vssb39jJeAB/s/4Pd/feUs94AF+vdVF4AB8zsewtjd+cbjyAzxtUdOPujruM
B/BLLukz5YUNPxkP4FNkn/yCL1kV+0l+wfN+GeeL/BK3+3IH/92VO/galTv5
Ar/PlS/4z658wWu48gW/0pUv+EWufMGfduUL7suX+dRnrr2D99kXtnfwDNfe
wV937R18t2vv4MNce7d9nq692zqZ7MMDeLtiYXsH77Q/bO+2v861d9P3rQ3H
BfBqbcNxwfQfLcNxAfzacfG4AA/gr02cc862I9n9P3jdPWH/b+s9GkfgATxd
9uEBfLrr/8EvbBf2/+C/uv6fec29D4RxCPhJF4eAX1IpjEPAr9sSxiHglXOV
DuIQ8LWKE+AN/PWlZ9boMrO28WY6PhdX2LxM9uENfJKLK8CXurgCvEOFMK4A
P/RgGFeg77n2zzBOBu/zQRgng3eaE8bJ4CtcnAy+6aEwTgZfvSqMk8GbvRbG
yeCbXZwM3vy1ME4GX7oqjJPBz+sbxsngXT8N42TwvS5OBm/8YRgng5c4GsbJ
6KWe1DwFnk1n9044XwYvOzScF4PfeGk4/wW/onQ4zwXvEoXzWfDnFofzVvAZ
k8N5KHjnxeE8FLxuFM43wQeVDueVpuu9NJw/mp0Xw3mi+T8mnA+CX5M7nPfx
HrCi5oluvSJivcKtS0SsS7j1h4j1B7fOELHO4NYTItYT3LpBVNrN98FPsz4Q
sT7g5vsR8303r4+Y17v5e8T83c3TI+bpbj4eMR+HTz5vvavw1G9bdLV6W2b7
OS9131w+MaFdxY05623LaoWbbK5bIfFbwe3VSuWot+zXnr3mf7rO7Ho7cVnh
aen7KyS2lv/n8O6e2fX2e+3bmXT98F4PTvjZ6m3e24uUGvFhxcTAWfMHfD76
cCp81tH6QLtzT47OySf+522yOut/8QN84v/MwbMa/dJznNVb/L+y3dGzjn/3
dwP4xP9WBV8pUeXvIlZv8X/hiYH785y9wfjE/3GfDhvZY8qNxufhe8+7rlKL
lESJKycF/S2fv/bJ1zlnf/vxG+dX2px+QeLznlv7V8/R3559av22bKLc1Ko9
VlfN7m9rd0k60fzccol/Chdvd3+B7P628/SkT9O7l0uU63jljK/2XWj97fDj
Sd0qfVEusTy1yzUbttWy/jZT6ypXLBkR9AOH5P+8Mc88WadwM+tvle9ESrVz
/x78b9xi82X5f+LTq/KfXa+d9bcF5P/UskvmnvFg/1T4rCP/K76+ZMK6gq2s
H8B/dM30A/i/+r0376vTMbsfyP9h8r7mI0omUid/tzFnPHBPvM6Z+HFC2WI5
4wE+f2u87vW+OeKBslq3zjun+7/jTnY8MDhviXfSu5dKXDdxUvL6mtnxwKYx
JfKPqFQ6kfZDufxTs86xdYkr6pbs231z6cSRop8+0nVmMVuXGMk6TFLxYFw7
S/5/cPTJfFfkv9Tihy7y/++ZLVc1q73NxjX8b3vB1HNLzG5v8UM5+f/sR48v
nP/bSzauPSr/0d3DM/53nros9dl92eMa/l+RNeO7tw5mj2sXnGpHRRP7DzUN
4s9Bep+Q67fGH+WMP+P9GsmJZgPfmVQwR/zJZ4ux1TdWvy17XWJEk6Kpm9OL
Je7Y+NTTlUpmr0uk6Lnvvfty0WqPzDR+HtFzL3rk6Bkr7hpo8RXPXbx1zsY7
LiycFvaTyYmv9d4Efl7Tcwd2O9HklTdetfjqV72XuOG6X4tsW5YdX13/0LnF
RlQqkRh5+2NfDMkRX3U9VV75E6tLru2Vc55SQe95LsiV0TbnPGXzKf4LJl68
pU7B+TnmKaO0v6NQ3TrPdyucPU+5V/YnX1/qykaX7jceysn+Y9pPEq4HFkpk
aj8D+W0jvtNUf8hvIb0nWrp93F9ZOeLwuD0WSTwf3b2hf444PH5/9Vdmz/tv
Duahb+k92NfHf6uXcx4a2z+ZWeGOzz/YfUP2+kNC+1Pa1or3dZDf8rK/O8/k
1bcU3GT5HSX77OsO16tzJ57U/hCr/6fqyRmJHTvG3ZPvjM2W3yuIT9WPkd+4
3PMmNr798aic86+vT8XVyzNb1Jj8ZM51hgy9h2l///4OOdcZlp/yZ3tmyb1D
2lZqXtnyNV92GuXe1LF916mWr5myM1PvncnXNN5fSd+H/0v13u3NL5t0fjvH
PLqu+qGlGgfxv4aef4Zw/F+g92WXyg7+v3KK531pKYvfnZD0bhHzn8/jwy5J
nfvqmrQwPjyU9q10Lvg5Wu+dqnSL+cHP92Ie0n4Vn/gZv1/LG/UR//hZS885
T+WFnwPj8o2mqHzD+Dl39FSNsF4dkP3FV60fX6L2AfOfz+dbvfVC7a470sI4
Nnc029WrM+P6nPaW6jP5Hc6+yH/i+k9+L4jrc1rNbjcH6xt3xe0rKqf2RX7z
6732d2qP5Jd+ro3aL/kdqX1KL6q9k1+136jt8qVb06autPyeLfvl9f4duzZP
fWnvX28ffjYtnDcVioaqX4KH7+N+LHry1rgfg4cUvcd/PXfc78FDPK7lj6Lz
434SHq6L+9VokvpVeDio9623qB+2+Wncb0fPqt+GB/zt4eaP2E/d2uaPscd7
Gg/Y/77PztfK3XGT8YD9/Jvi8Qi7fJZ6Nx6/4GF9PO5E1z0Sj3fwMFDv4fv9
Ho+P8KBxLWp0pGmwvlE3Hn+jazX+wsPGeLyO+mu8hgfFJ3aujotnovsVD9j6
v/ytr/pDPKN4IyozK4434E3xQFRo7KBDv9acZ3Gg4ocoofgH3vBnjeIl+LpA
/nyj+Are+PypSRyPwRv+nJgYx2/wpngpSv84jvfgTfFhlKX4EN4UT9o5OfCm
+Dk6PjKOP128HY1UvGrvp+L4Ntqt+Bbe8HeY+iXiQMXPUd2xcfzs4sBoo6uf
+H9U8Tk84/8PiufhGf/bFY3jf3jOL/+LTovnC/A7Rf5P6B3PL/Cbz2594/kI
POP/e/UnBesbZ8XzsujpzpeX3j3mPZt3sz+3g+ZB8DwpnjdFozVvcvPEqIHm
WfB8XTwvizI1L4PnuL2Uj/I9Gs/j4Bl/l2tcc/Oa6BO3voH/2zSvhGf873RD
PA+FZ/wvUDGet7p5YlR1bTzPhWfNK6P0pHheDL+ah0brb47n0eSXz6rqb/me
pfhwVcmX1l+998U0eCioOK20+m3wixQH3hzEgXmiYuyrvb7arg/OX2zttIOe
88O+9rmHLnnCnjtI8dJZw4cOe2fUUsPLKH6rNLf/NTXWfmnP5XO4xk2+j3e6
Y/xppN8HKz3+DNFzc+m52FmiOGeL4grww4qXMhUv4Wd+jcs3yE/wXooTGpxs
+vGxvF+kheuT2TpB8Kryd7Tz8+hlsf3+zv5GjYPz33x67ZGzXjb8av1ff5Uv
9i9Ax6DyAs+tcXmbK69vZP+F8+L64NpjgvZIe2D9ZKfDf9X/Fbo7Xufhucx3
HtI4CP6Y5lnTB8bzrLBciiZW670w7ZH5UZrGWdrjZL3vfm5q+F7+RqWfuyVO
j332udefWPeZCzctMz55H/q43r+QHryv3tdgHzvNft19wdgzt9u8Y4XmCzco
rgNnv/wJ4TzXzsnZsOWe7rlW2nPBp00qde2Fz+01HsAL9Fhw1mMDdlt6//4U
P0mfT+nhLf48nNHv1vh8V+rDnDg+z2y0fHTy4LZbzf/Vmi/s17kx+P+GSw++
Q/OUPWd/9cvIytvNT/azXb7x26fr1vjF8gWedVP3QVOSMsxP8Do678LWk4XP
dun5JF82j8COnkt/S77KaB5Efp/Vfrdmr4b5jd8fbU/7VfkC76l5TWvxQH7f
1zxlnvoT8Gma16xT/4Md3lfyvtv2/8ifT5Vf7JD+J5W77QtS+tl3h7yBPyc7
lPtY5euY8gU/8FA0OEfoiO2T3989rlc2DxW+Vzj8g2eoPmM/XXi62oWtK2pe
0FntC7yF4u1trh8Yr/dTf6kf4LnYeUTtHbyf4uc3tM5Dv7dP/Vk19WP0bxYP
OFz9YeT7Q9bD3X4z2zfI+wV7/6J6eGnZf0oPqp2dX3uPr30CYT3Pynj55rD9
2rk+smP7zVSONYTbfjPhlwXtIk/kcdsnJvxK2QGnfB9TP4b/vG8tNiHc/0P9
/071n/rTW+PpgfufSG5YJXufwMPCy2gcB9+leffawl9d/fPx7HU8xrtUF88k
K275akuIs971uMZNePtL6zZ9ZT/cp3c88yGN7+SXdR7WAcCfUhxyXrc4X9j5
RnHIHvGA/0MUPzzh4hziin4OL6Fxf5KL04gHRgiH56Pyc6n8BCdOO9P5afvf
3XPxf7Pzn/jqBxdfsZ6zXTj87FQ5LnK8sQ6TW/7gZ1etHxbR+gM45dYhpWTT
t5ZuNPxnxb3XzZo57dXXdhheWvHnr8W/erlV4yzDr9HzGw2P16PA39J4t2ZY
RuusXIns9Xl9nq/0fJ+n9EeUnnp7pX6/XX6SfrTWrzppHQ/8HfXP3Vr+OSWx
eLb5U0rpays9eIbS93Tpe2uc+kT+gCdpHWmW1kVtXqO493vxQ/kS/zR1/aqd
Uxj083ki4vY+Lh62cyiVnvJjv8oEF4+BD1U8ZvME9fOD5Y/xKT8baxzBPvFS
Po2z2KHd9Xd+0r6muHbEc+9141QPrau/qXV1cNbn71Y9BCfO3KL9QuA1tV5d
/My4XMALqt7+oHLBT3QTWa591S8Urw/f6+rVUsVpL7l6kiV8uHDSV9TvPw4L
6/mrqlffqF7hD7qJza4fQIcySDwzrr2peGZ/05z3ETC+70wroziQ56ao3mbl
Cfn5U/OpxeIH/G71G03Ub4Azby3n2qOdN6P9bPjzsfDGzUI/iSfflp/Utzri
raOzT/z2kOzTPwwTn9cqngSvRDt2dlj/nOrq21rWUV19u13rt8MdDzynk+yT
L/RBHbTPENzOj5QOHZx+4Ebp+uGhuZ7TWPbD/dt/ZKKzwx87z+nVTSs7z15m
9RM8Uzj9zEo37vBc4qWK2j8Jnqz+s9nlL9/8wXk/mT9FlI93lF/qLXbman+m
vR9XnD9bcT7+o4/Z0HVg2cHNs+M3+r0i4od82TkuSm/rdcI/Dt7j5ImYX0x1
+BCX3tafld/myi/+0I/NUTniTyfVq0WqV+CsS3RTvcIOurF0t9+V9YpX3Lhs
usDl701+Y/lThp+ndewdej8L/r3Ww/8YV3DJ8WWjLb+sU3V17yvHqn4u0PsL
eKDetutZfUfBV58z/Af1z59pvQW8u/rzOu2WRnN+m2j2me8/ofkL6an/dyke
Bud9ZTut84DXUD9/TnrVWr9ct87qD7rRil+c1+yrYQes3sJDlt5Hg7+s9wv9
ah177o+jedy8tWj0qPbVU295j1DpkXAdZq/eX2xx6zbYqap9m/D/m9Z5HnTv
O0bpPXgx50855beE8ku7Yz5YuWa4fkJ7qV0zXD8B7yqewQtpXLhE9vGnjPAK
7rkvqf73z4rrCbidm7ohxrFv80rVH/Bb1V6eUD2BN97DLnD9A3q7PWrv1HPw
ja4fYH1ylmvvpJ/p7DP+vuP6T/Dhwmm/EzUepbpxjXL5c17cX4EzfuVV+jAe
Tk60VbsGL699F93UrsHZX/GT2jU464EXa/9wOL4UTTTQPSPglNs7bpxKKP1A
l57+4QU3fvHcG136WYrTbtM9MrbeIjvvOTtTlP5ml55+o9v8kE9/jxh4hsbH
4a5c2J9wpbND3NJR6eGF9/4XuvWuEyf/93fIxjvq8yztK2ii8YJ2xD6E37Ve
BF5LcebVbjwlfivonku811bjPvWZ+vmdi2OJ/3cpTia/7wlv6XjjPfvFjp9J
St/GpacfWOLK0d8fhD+MXxmunpfR+DXN1fNv1W83fy+u59hfoH71c1ffeP8+
2fmTqfQvuPQ15M8xV//tXBelt/ewKoc2bvz9Qe1xmNqj7X9Q/TnHlSPrQlWD
/SRJEfH2ttZjBr/97M2GH9L6w4duXQU+u3XctmRz+45mn34pKagnyVE9/f6F
9l+Rnn6putLz3jBd8/F82n9i+6WJ27e3qT5pTTnDWRdlv43pPZXfWUrPe7q5
Sr/+zMxcuerlNXyA4vlUPdf2UzGvEW+mrxS+SvZJTztKUnpw2lFtFz/zXvuT
Y2Pfffu2KobX1vv31/X+HZx9/sMC3UFyRDz8geoVfr4rPispX+A/qn+oK97A
iZ+XNHwsajUgG79YcemhbWet/jw9r9XDPPL/uPwP49Uy0Zv3x++7wdGzj5ee
PRzXSkTTpN8E1/uj6A2Hl5adHqViO+iEWcdFz856LjjruqbjFY6OGH0mOLpX
xhtwdJqMB+DoE+nfwdFtwS84+jXag09PvwaOHor+Ahx9EDyCo5ex+4qEowdh
nz04+gX45D0/en/4BGe/PXyCo7+GT7ODTkd8gqNvhU9wdJ3wCY7OET7B0f3B
Jzj6OLsfTjg6MrvnTDi6KvgER2cEn2ZHOhq7f0g4ug+7R8fxZvfSqt8Kz0mo
aDj6BdOlC0fPbvfVCkd/bffVoouSXtjuqxWOTtbuqxWObtT6BeHoKO1eB+Ho
DU0vJxxdnp0rhz5DujC7j004ui27r1Y4uiS7r1Z4qKOpGHnewvueku18ifB+
qGQ7jyK8ByrZzgcI74FKNj17eA9Usumvw3ugkk13HN7flJxAnxje35ScQK8X
3t+UnEC/Ft7flJxAnxXe35ScQE8U3t+UnV87R4P9KTovAn5s3V46FPix/WU6
J8H07cLR9cMPODp0+AHn/T71EJx1YOohOOtF1ENw3s/CMzjr1fAMzrwbnsHR
A8IzOHo3eAZHnwXPnjc7P0XxFOeQwDM4OiM7l0E4507Y+QvCOScBnsHZpwHP
4OyXgGfwXcF76qwMcNbT4Bmc99p2bjjrx7JvOlLhrEvAMzj6Sng2/6XvM/2Y
cPRu8Ox5g2fiJs5vgWdwdFvwDM45Hnbug/CKirvgGZz5LzyD874gPKfuiFuv
5rzif+fTeo8cnut1JJP1Z3gGZ54Fz+C8z4Vn8Pd1DgY8g6PHNJ2hcPSD8Ox5
C+9HTmRwvg04cWJ1xz/p57p7gUl/sysX0nOOCritX7ryIn3qf96/nMi48T/v
X06c5v7lREbH/7x/OWHv98P7lxMZef/z/uXEae5fTmS8+5/3Lycypv3n/cuJ
jM3uflV4aO7KkfToPcFtn7gr39OUS+TLhfK1/X2uH7P99Z+G/Rj4btePmf5J
/QA8gC93/YO9z3T9A3hd1z94f/Cf+e5sN97Zvgk33oFzDg/+g3NuDOVr+/g0
3pEv8DQ3voCjXyZf4IPc+OL9DMslOZrh4hzT67s4B3y2i3PAOfeGdgReQ/EJ
9Rz8GxfP2H4iF8+AT3LxDDh67bB8k01fHJZvdr7ggflrUhgfGo5OFh7AOTcJ
HsA55wcewDnfhv4E/A8XV4Nz/gn9iZ2Xo3k3/Qk452nAMzjnS8Az+HQXV4Mv
dXE1+F4XV4Oj14Znz1vYjlKij8L5juHojsN2lBJxDlXYjlKiI26eCM55QfAM
zvk58Gy60nzhPNHOH1oVzhPBOZ8EnsE5ryNs1yl2fkXYrlPsfIawXafYeQJh
u04x/XvYrrN5c+sbEeehuXWMiPO73DpGxHlTbh0j4pwlt44Rce6QW8eIOKfF
rWNEnFfj1jEsvVvHsHNO3DqGnfvh1jHsXAu3jmHnMLh1DDs3AD7B2e+HTtvW
T6TXRlcMjr4YHazp5qWHRf8Jjg4UnSQ4eskNWq8HR1e4T/urwNHBoRMDRy+G
rgkc/RQ6IlvnkZ4InQk4ehl0EeDsJ0dHzXoFemp0v+C5pf8tr/e74OWke31T
+4rA10ofukjvw8Bvlo4S/Rv4Oung0GuBowtDHwX+sHRS6GfA0QGh9wBHt8L7
LdYN0C/zvhl8qHS7vCcGryg9IPt1wI8U/u1wiy310tCVgT8n/Rq6KXD0XOh8
wP+RXgldiq3DSF/D+y3m9QWl1+P9k60/SG+LTgwcvRg6KPDXpIcaFNzbmJyo
L/0OujLmuVdKX4ZuCnyX9FPofGzdQHof+jvmceiq0P+AowOivhKXcv4D5xfY
fmedY4DeHnyw1qvRmYOjN0d3DY7+Gn0yODpl9L3g6HzRnYKz7xR9Jjg6Tdo1
+O2Ve3Wq8Us70+OBo8ujXdu+UenIaNf2vki6J85xIB4uK545dwD8mM4fQG9v
+zi0D4H9uODo0Nl3C46+hvfrpnvWe3D0qODoUmnv4Ou1bwH9oekGpEOkvYOj
m6O9g6Pzor3b+Qrap0E7Bc8nHSjtFHy1dI60U9PnSpdHOwU/Wzoy2inxKjp9
2ik4enbaKfga6Shpp/b+R7o/9Gng1aRTG6x9w8RvP0s3jT4QfLx0gujZ7Nw+
6do+0/4t2usb0o/TTsG/ld4NPRvtHV3bI/IHHN0ZejNbJ9Q+HPRd4Oi80HeB
N5TOi/1Ptg9F+4XY5wR+8f5YB8f+JPoZ9HTsiwVH18b+aXB0auz/AEenxr5w
cNoFejPTP0l3xr5w2/cqf9inTr2qqvyiTwNHp4Z+DBwdGfoxP+67eMnel61w
48gN7p4R26fgcHhGP8X+S9KjV0KnRHr0SuiUwNEroXvBDjog9D+kRwdk+h/W
t2Xf7l8Uz+jO8N/0QNr/zHtoOxdK+gv2+YGjJ0JHAY6eCN0dOPo7nss6W4FA
F3b4/+mn0NHRz6OnI1/g6OCwDx7qzrIywDn3kvfc4OiSbL+XcPRE6NOob5Qj
8wL6Yc6Z5P096dE3hesJeew8Rp4Ljl4JvRA4uiH2gdn5MSrfcJ6YFPG+gPpJ
/8l7f+obeIq7d9vGEb1fSA/8TDb9VN6w3ZkuCX0m+BnSMbn31zZ/yRvG7WZn
kWtfPeQnOPUfHdMo145ecveMk76GS0+9RX+EfeotOkHS235tV3/A0amF9wod
yURfFt6vncio85/3aycyZrt76qmf6BCZb4Ina518UVDueSJ0iKOCcs8Tkd9w
XSuPnZOJHdtv5XgzfYlweABHn4XOys4vkd6K/oTnsv8qt4uj0FWhy7L9lRpn
0U1Rvuin0F9Rvuiwyrnx8XEX71k/pnHtGzc+7gn6vbzWvxEPo+vAf3RVIxyO
rgq9Bzi6qgscjq5qkeuHt7v7oMHRT6Frwk/0TeiyTL8r/8kvz0VPscTh7HtH
74F9dB/MH8HRfaDrAP9B+g50HbZfVfoOdCng6FPQpZgd6S/QQYGjh0K/Ye1a
8x30G1aOsoPOARy9AzoHcPQO6BxMV6p5EPUVHL3DatcPoONAD2O6H/E23vUP
6FPQWdn538ov7dH0Txpf6JfA0TGxbkb5ck746CDOzxM1dXEFODqscD0zKeJc
cfZh007Zj419+EE/NcTFmf1dewFHJ0W+7Lwx2QnXRZMizn9mfzY4+7RXuvaO
vindtbvN7t55cHRG6P3wB90fuj5w9H3o4sDRx6GLM12C7JgeT3gttTv0eODo
8sa7+Wwfd4+w6WC0T/st2bd6K/voA8HRCaKT5LnoJe28R+HtVf/RSdr5RmpH
1B9wzrHHT3D0OOhGTK+vdsq8CTzUj2TZ/m3OS5/m4g32LbNf2e/3Zr8y+WPf
MusD1IcF7j5ceGMfPvXK9JfKF/tlwdnfzj5XcPRl6MrA0ZexD97KS+tCrBuA
b9P+W/SE4OgK0ROavi3QeXH+fCKjw3/eV5vIQLfF/nhw9skvdTj77S939kP+
s993s09+lHsu++TDe2wTGejFpjg77J9nHzw4++ETzk64Hz4rg/bFufqUu+mZ
VO7hvbSJDPRZ7D8GRx+R7tKjj6D+2Hih+rPIpWdfengvbSIDHRb71MHZr/6S
S89+dfaRg7OfPLyXNpGBPivTpWc/eQ2Xnv3krD/A5yx3Ly39NvcUfOPSsy6X
fpo4E10BdtAXoCsAvzrQr1G+yRH3IKCfJD06SuIc8J5qj+H8MTni3gF0VvQn
PbImFTk0qIjWl8618a697mu7yK1bdnX3sVo/H9zLmb1et8Ddx4qf6NRWBON7
cvSEWw8hPboz6ift9fla4X2s4OiqwMkvuir0VODoqqiH2EE/Ndzh6KfAsYN+
Ct0UOPopdGXwhr4s3CeQJ+IeGfRm8IDuLHzPmxRxv4zdR6h6wb0k1Adw7rNA
V2k6VPUb2CG/3HtyrsZr8oXOFD0n9We2uxfSdFGyT3/Oc9FroNMAf1XjBfkF
r6z9Y6wn2PsFjeN2r6Rw9JjoMMHRY9IuwNFjrjzNfIT8gqNLfd/hUx0PPn3Y
jpIj7n9B10r5om+lHG29QumJ2+19luKK8D7EI5noetDzgKPrQc8Djq6H9y+U
+07pX3gfQbmfoXk07wHxH/0pulNw9Ke8H7T+Qeux6EjB0ZOSL9sXKn1Nf9eP
1Tge3jsJ/wMVl4bzkeSIe4gYL+Dzvr3hPZJ2L9C0EIefO1ckivdvdabVN/DZ
jYYtb93jartfkvo2dcxrK58d9EGanSst/n8eE7+34rww8Ap6z0X/AL6pd7W2
2w/0TeMcbca73NKVNJB9nttB9tn/AH6R9m1yHhl2Vmp/HTol8Ks0TqFjAUfP
wv4E7HMPyCt6fwQ+vk/s/1jNX3ifUlF6nG0aT+08UemSwvWo7HVIcHsvI/0R
5ytZ/BOcs5QdJ3zg4nZ+L+ridnDSo0eiXNAlhfddJjLQ9Ux2/qDfQX/l89tf
8QB4ffHzheYL4OiPwnW5bH7ASY8+6xL1P94O9wTYfTK674DzkcEv0XsuziMG
L6n3p9wrYOfM634Ezse386F1zv/Lyi946c0P5+/YqqKt19k5mnpPN1D3E5gO
W/cscE8AOPcFcK49OOfbL3JxBeckj3TxAOcJc/8B7Z17HLiHAPyE7iPg3Hw7
11PvSTnnHfwunffOPQp2347ug+A+ADv/Se9zOb8ePFXvfzk3FpzzbFlvt/OK
9B6cewXAuR+B80/BOcfVzskXviy4byJ7PzP3U3C/Ajj3LIx0/QnnwXJuKTjn
l1I/LT7XfRaLXHzO+dvUQ1s/0/4K6iH4P9qPwb0XtKPW2tfB/Q3g3OPAfQPg
z2jfyPjTtEfqm+0vVX3jXGlwzpemvtm9Mdrfwr0R1n/q/gjuObBzqbV/hvP9
wTnnn3PwwSPtV+Fcb/DR2s+zQesh4I/rvGviK/Brdf4z9Zn34NwPQn0GZz8S
9dn2K2r/kt1DIJz7CDivH3yZ9keNVTwGXlnnrnMuOTjnk3NON/hIndfNvAm8
r86vpn2Bn9T5zLQj2gf3dGgfWva+RO1D0/4Ww0do3xrrM+AvaJ8bOmTwTdoX
96H6c9s3qH10ZTUPAufcddalwTmHnPO4wTmXW/sADZ+tc6e1b9DwsTonuaB7
b8I5vbldPNlaOOfz0n7H6NxXzskF57xc1qlovy11riznIfK+/gq9N+T8Vp7L
Oa6cz0g/tl3nNHJOH/Y5r4/9BqTnfDzOg7PzQfUehPPpiH84p47zg+jfOJcJ
XTQ450pxvht20nRuGzjjSJrWB9jXQXrOsRnr1rU4R2KFW4/inAfOKQDnvIKR
bj0HvT/nueAP57pwPgv8/6h58cduHsp5Sm+6eRDnLRTUvjV4vkz71qa5OLam
4iv02HZfg9KjM7f5kfDSLn5DT018Y/td/zzzx5z3QNn+0gJ1quW8vwz8/W/z
17owx/1l4N+W/urgwH7Z90CB99s3f9frQ7L8+d6JLmXfKvR7gfx2vjd4R+mm
aSfgZw8Y9Nr9s9fZOd52b+qAqff1P/qMneMNPrru0E71Z/1q53jb+cqD6nw/
+FgR25cI3rv/K7sGHf7Z7icCr6B2Bz+m862Z8dFlOe51Ar9u+qTz/85xrxP4
pqwPDwwtkX2vE/jkj4rdsatk9j164Pku+ujnB5ZeYzp68D3SQcMD+J3t1h0s
tGmJnRsP/sWomv2erBbZufHgb/wyeUmbRC87Nx684hnN7lq1v42dGw/eXfyQ
X/hYEL11smCO+xbBr/ryg/5XN8i+Xwm8+ZE7K/bpVyT7nBnhJwoM2dnhy4uz
z4ERPkx6ZPIF3uL9MS92yaqVfR8x99Lc0qFXk4OP2L0Ddr+E8ku+wKkP4T1x
yYn57aq0f7xaD4sbwFvqudgH/1I8h+fQJidOunrIcz6vHN7XY+eOqxxtf7/w
1Ifjeu730xauHt53Y+etPhy3F7+f1t8XY+vk9y34Lef9PuAbDhcvcW6Lsv/v
vdUt6ofJl+nOjsTp8RN8ieozfpqurVzcD+AP7d7fCwM+492Rh8blyr4XBnxr
icNVhs/r4c79yxMdO1az7o6Bn9l6H/gr7l4Y8MtLxnbsXjPhr6neki/w/uPj
9ku+wOvvj/s921fHPqj8G2tMGXZ29n5H2rG7nwW8801hPQRfofYV3vuQFF22
M+5n8MfmBWXi/jnM179xfuO4/Yb5So7qz4j7sTBfyVGpdXH/D5/Y261ywQ54
Ru24n8QOeIFC8fgSnn+YEh1XPaQfMHvuPmXTDR2Lxy83jkRnunuW7f4ZjXfU
P/Bhei7l59cBsEN9ZHy0+9yFb9W4YPVe+Gt/7u9dqVXF7HN6hU8Tb+E51cmJ
DzTOhvdg/tv/aHwJ78FMtn4YO9QvxmXsgG/WeIQdcPpt7IJnqD+0+aTw27V+
aPfdqF701bhv54MIn6TxjueCX6P2xXPB71O7ph6D7y95qNY5xReZP+B3a33V
dG7C9zqe7fzOsmH/A874i5/gT6g/xE/wmVqv9vtb7lA/aXpL4TOUHj/tfFnX
f4L/o/rp1yv8vWC0gw7/eX96IuOX/7w/PZEx9D/vT89+v3y69Ub8tHH7P+89
T/y/e89pB0UGhOMU/BHX4T/4neH4aOsVb2mcDceR5GiFxuVwHEmOmgXjeJL1
b13U32Kf8smvOAH74CMVV2AfnDgEPm09Qc+l/dj5TBfmvP8xj/WT4biTZPgX
aqf4Df5847AfoHyIb0M+U6LKivfC+8hSLF/h+JUSrRSf4fiVEm1QudDvgSfU
jsgXOOOmvRcUXkPjVzgOpkSpGo/CcTAlWqTxxc1rIuJVN6+J8qoc3bwm+lv1
x81roqaKu9y8Jjpf8ZW7rzZqqXjGzV+iVMUDbv4SndC47OYv0fkaZ938JSqo
cdPNX6IUjYO2HqF8bAv6yTwWD/wsPLwHOdn6W/oXK2d3fizp6cewY/t52l/6
48XVss+ttXNFhNMv8Pub2peOn+CbnB3Tleu5tq9XeE3Fbza/FT8lNY/DP56/
UM8N7eeJNuu5Yf+QJ/pJvMEL+YJnW18WDg/8v70vE046nr/d5Rc/PT88/7ji
W9uvLHsvu/ubyEflv+P0fOc53d251uD5tT5j6936PUP+2Pk4wtu4emLn4clO
eC50IqO89quE5zwnMhZovxDfTRcgnO/8Dk6+wC+S/TCeTIo8bvXKnZ9M+gcc
Pzy/gjsf2HQEZ8dxvs0r1F62ungGnHkB9sGJK/CT51Rw/sMfPNj+EuVjpjsn
Ez9nuLgF+2dIPxXOm/4dHxVf8d3uZXL27TwExTPhOYSJjNd1HoLpJ/U780fS
2bmMSv9/+YP6eg==
      "], {{{
         EdgeForm[], 
         Directive[
          Specularity[
           GrayLevel[1], 3], 
          RGBColor[0.880722, 0.611041, 0.142051], Lighting -> "Neutral"], 
         GraphicsGroup3DBox[
          TagBox[{
            Polygon3DBox[CompressedData["
1:eJxFnHccV9P/xz/3fu655xaVVDIyooxIRhKKykpCSpNQITt7hmTvEVJ2RsPe
FZK9Z/ZIsikZkRH9Xk+v8338/jiP9+tz7rnnrnPe7/d5v1/n03r4qL5H5rVa
bUKo1eqSK0o2leyoH3OzWu1TldYq4/X7HNV/ocZtVYapbj2VfYpabQPJNSSv
VekpvKlkD5UNhdeUHKyytvCqkn1VVhJuJLmL+nlFuLvKx/Sh0krlJJVmKj/o
esdLNldZTmUXnbOyZBPJv1X20/l/SW6u8rPa/qB7vEblbOH5Ona78BThpcK3
CU8W/lv4TvVxtMpWKmepbKnSSaWd+uFd/Ky2l+s9jBNeoRTW71OEP9HBzdSm
jdquJnmB5ELVn65SU/t1uX/VP6qygto+wjuItdoJOnyujl+hfk4V/lTHNlBZ
X2VrnfOayooqTVUuUPuD1OZYtb9O7S8U/kbtLtaxX4QvUXlc/TZX3WOSO6hs
pmNtJPdQXQfhX9XmR+5NZX2Va9XXLaq7Sf3dUvdzLVTbScJX0Vb4ZuErhRcI
L6YPlU1UBuv3IJWgMlltJqrNr8Ib63pNdLyUvEHlauGDJSepLBG+WfIfleFq
u1RyJ73Ho3XumbqX3qp7V2125L3reUeq/jjVv6/fO/FuVfqqTQ+VqHKtrnuu
2nwpfLfwrcJ/Cj8kfCfvXvIeldsE/1L9DOH7+SQcr/vZl6j+LuFJwn8I3yp8
tfAi4ad0vdmZv8VD+r2j6nfTPX+h32eqrKPyj+7/Dslpkh+ofCX8nuRUyZ3T
HLlSzzJO8qbSz8nzNlY/81X3eeY58KmO9ZI8VHJHXWt35ovKZ8Jj1b672m8S
/e47Sj6n32OEh0jupTbbq+zGMcZi7rnTS32N0bm55O0qazJXJFeJHg97Cf+Q
+/v+VPdcYW5yvSN1rJ3wl5J9VK5Q3VV1j+vVM4/tLjq3PXOFOaA23wl/JHlG
4TYrSX6f+9zthVsL35Lm81X6fZrkwMI6g3s7Q+02Upt2Ktvod38d6yb5qn5/
XzM+QHIPyc15n8IjM49zrjFV93cvzyv5iso7wutKDtE9dWTMSh7HeFTporK3
fj9bc/2F0f0MFO7Ac+VuM4UxpDaZ5Aa6n3nC60veod9Thf9Ru/X0+y3htqp7
Vee8nHTX3SoTVbqiS9RuC5UdhDdS+6PUfpRk+8LjIUherHvoKbljJR2mdtup
jGBe655OFD5P8rHSuu8cyY8kP0xz4z2Vd9LcuUz9DFI/O6ufB/X7gdRmU11/
E5VtGdOSW+Vuf4zG5IHoeJ13hp5hsPBzOna68CDhZ4X7CK8ufDljU+27C3+o
ulEqfYRnqf5QXfMSvpHkHJUnhc+XPFvyK7Xpr1IwpiT3Yk7q3C8YO5KZ2n2D
fhY+UWWo8Avq81/mmMoA/T5J9ftKvogyVvuvJeapbh/dzx7COzAHVf8M+lLy
CJUGwrnkeWp3ktp8pHMbFrYhX6M/uB7PovoNC+vaBpIZ18j9XvaXXEH1Rwjf
mPnbLJ9ZF6OTb9R7WzNPNohjOr9R5m/aKX3zVVSOKmy/lpNsldveNea7Zh7f
jO3T6tZ7r+v4CTyb8PPCp+pahzOe0QGF7WELyX461lVlF/SNnn8041Ntji08
z1pKdiisO5tJPpzZFmOrMr67zl2m+umF5/a3uuYRKrsz7nRsf9X/KPy96i5T
uUD4K9Uv0bUuEr5MfXxZ2B+4WvLIur/FE2pzon6vxbNL9i7sF6yOrS+tcw6X
/LO07Rif7Br4F507UXgCNld4gvC16Chsd9KXC7hGYdu3UMc3Vz831zx/RzEG
M/sfm+r3Ih3vpbmwoLDtu07ywMy6Dp13bmF92Fry0OCxt47e4Ridd5jwW7ru
mXW//7eFO9f/M+u1U4U71e0fnYjOEqiwZdhvYXVRO4N5JlzybYV3Em4uPBp9
ULdfcTzfULiB8DmMF+EVGe/CW9b/G+q1k5mrws2ET2EOCzcUPk94O+HlhC/A
DtTtp50g3FN4JeExwgOE2whfg50QXlX4QuF+wq2Fxwn3Fl5F+HzhPYRbCV/K
fBdeTfhi4aHC7YRvEN5LeG3sgvDewusLXyfcX3gd4auF90FvCl/PGBVuKXwW
voPwusLXCg8UbssYyO1//YktVtlZ9S0kT1d9N+HlhS8SHiG8qfCtwjOFHxAu
JQ9Q2Uz4NtU/oX6WCm+hsh7+oGRHxpBe5r/4CWp7iMpWwnfxXfRBewofrLrH
VB4UjjyHPlwPbI6O765zj8nsAxyqY1ur/m6de5jwNsL35G6DjvtHdWfo3H2E
T5RcT+VT1fXUADme8aj2M9X+OOFdhGcI7ye8kfBN2G/hRsKXCO8rvCF6Rnh8
9H321/1soD7n6tgw9Xls3fXTeZbC+qlgXKvNF1xDbaYW1jNfMp/Uz0B0jvpZ
xvhU+38lH83sh+AfHq7fu6nNY+qzUJmSeQ53E941s39wsfo8GV9C8nXJ/TP7
rFfw3iQPKu37MM/wK/DX8duxeePRiSpLhFdRny1zn3tlad/pYMlzdA/H6/gH
Oraayqq5dWg73f/bks+qzVO69s30Kfmm5CmZdWszteml9k2j1y3Mi+P0+xfh
xugu4R9L+8Urq80o4cXCx0pulBlfrrKk7rFzh9r/Xvd4+E3yUrX5W3h7lQWl
ddFKMfnTwr8zx1W/hvBnwb7Kxiq/6fdidJbk7bnfQWeV3/V7y9Jj9Ve1PyGz
rQ4qb6mcmtnG8J7mZLZVT6if57l/ycdVnhNuKXl06W90mOQ9pfsZUdqHw1fC
L7uh9DgZpmvNUv0LfAfJ6SqzhZtJvlS3b9Ombv/5KeHmSJWXhVtJPqnyovCq
nMc5wqtJPoMN0nWeTt9n+8x2kbp5yfa11ft6iefQvXRVu4bCdcaUzt9P/byU
21dmvOArXVXa795V8uLSPtIBkv0y2/ph6FP9jsJD9VyXlvYbDyztL1SM0ZrH
5nJpHO6rdntKfq5rXljaXxsu+aJ+v4ktqHse5yp99Xtoad3yqOTTpddpz0i+
VHqt8rLkZirXCN8iObm03ZoiuZvm4Wl6jruF2+N/qn4mfZRe676evtc92Ofo
79hfeB72rfR6ij67q59x3Ff0PTMH7yo9d04XfpNvXtknHqE2+wf7RVxrz2Df
bIbwK/hM6bqsSfEHtmR9UXqM8Swbq5856me06hepDBbeQXKb0usj+nmr9Dd9
V3Jk6W89TvKh0j7Hw6XXei2STrhe5bL03kak8Yl/Ozy9f/zbbQq/86V1r48W
CH8muV/wt0av7qvyj77F1pJ/1K3vJzPmGEeZj/WVrGX+xvuV1v8r8E6Elwl3
ZV1Qug16fm/efWo/QfLa1Nffydf9iHmW+dtRP6z0HO2BDiit//sGjyvG2wmq
OzbzeoLrbV96DXIra6tgn/k64TtL69hWure2pfUL9V0rr0OGR49/1n3vlPbj
vs7sy22YbA0255TS/s+pkmen9QLrhnaln437Ob90POUCvpX6/0z9j1X/o0v7
RqdJvqC6N3S/a6NjVF4Xbs2zq7wmvJbkTvgrab36p8ofmfEhmeckPv1vuX2z
toXnBOs31m4zJMeq9KFdehaeaRLfVXIj3oHOOSzzumhnlaGZ1wjHCR+e2Qc+
s/R69AHJ+zK3b5yuf2i6h5mZYzp7on8zxzJYL/+s8lNmXbm8nn873ety0d+/
bxoDfMOhSW80TP2iZ2qpzfyafVl82iaSP6ju+8w+eUfiIPh1kosyx1+wr6yb
e2deOx9SWhaSDXTtI6hP439w5vVRv/ROGffDVY7kvmu2J9gVdDo266DMdovj
I1KbUekcMPE36rsnH4G1zIia40Wcyzqd8YPd2730efjRZ9Y8NrgO8YAHVSap
/g7Jz4lBCG8h+Vnm+CD2eyw2SHWDNL7uTdf6jnGQ7oc+H8ts/5ii1I1K18Mn
oB6bSDwOvxCf8PGEmwh/Vfc6rmF6Jp6ZvrctrKcPS2sO4gvEFg5I/fMebkv1
P6b5GNI83iy9T2w0cwKbgQPeLtmP7UrPNcZUN/Rx6WfaGH1f2r/apPTznp/Z
PjHGt8gcg3hNfb6nNuvXfb/D0z0/n1nvfZvsEOMOvbdObnu3qOaxzDhgDOIH
obd5/u6lz2O+HFnYB+tWWJ9cJDyB+1FfjzCWJe/DzxNuIDkAe6q2A/SNpnFM
9XXJQaXjHl9LPoqNF16RPlRmCTfFh5LuGqX7aCTZX+3W5trqZ6Hw/cT4hO/H
n+Ab1R0nnCb8r855AH8Cf7DuWBxxuQK/W2Wm8PL4ferjSsa05Hfq80Lha5Pd
4FswH8dF2yns1f2l4049S8cmuuv4g7nnaJbm6dvB/gwxm86l4w9tJK+Kfp/Y
wxvr1lfoLQbm4KQHjtGxAZnnOLaXOfId9rKwf0u8eVpme833wnbRP2Px59Jx
j3XxHVR/Tubfv5WOjawv+Y76/ES4g+SrKu9yn5Jzkm3Fxh5Verz0lnwXu8h4
w0dT+YgxgM5W+UC4HbLumNXmku+rfCa8GWNQZa7wpvg4Kh8Kb4iOp53wBpJH
lF4HfC7ZUWUFfEK9v32E3xaeI/y22r0ivEbdNgW9eKTqr89sXxif2KDh6CH8
jtyxnx0L20TicdjFc/FLiFVrzFxWOu5yTPLf8Hsv4buUjpUMD/aDqSfe0q/w
dUcX9vvx/9H/+Ifgi+ij7vjKK/i9mX1r5vzfme3C5zr2V5qrc2q2SWPTnH0z
+VTEUZmLZ6bve42ud0bmWNspdevRl3PbGPokd8C3PTdz7ItYCP3gA/1WuP4p
1hSlY2T99Fyzc7dlzcb4YJzwvi6qW1/Oze1bouP/t17BJ2QsMlfIPWALLyrs
V+M/jy+dH1ie60THeN7Bl8icP+AYa5cLE2bM4pP0Tfd+Rbr/tmm+dE7fgnp0
3RXR7fFlbsN2ZNaH3Pvl6f7R5eOTnj8nOp70rmTL6HuYWFpfc81DiIGW1nP4
J/hY+GD4cj/WvV4bUTjeSD3tB+bOc6Dv8hT3266wTp2Y9Op3det7YlrUXZfq
j0i/D5ecWXi9Oi+3D4L/x/UfLqx3Diyc22IM7F3YphETxAbM1u+bMsd1iXPf
mjlOx1qDetYbzxa2m8dInqX7OUbnvZs7VndLak+Mnnj4JXo3U4VPUNttKtsr
7BbHsLeTM8fB2qa1Oc9G3e2pnnUHY2Zpad/ov3xU6VwA18pK+5qc26j0uoR5
+mHheDFxY+KG5PCwyZ3Sc09L43/d3HmO1kkfoZdY49xLX+jz6Pl3X5qP6Gf6
5B5Ys2Ebx5R+h9hLfp9U2FaPKWw/703vtkj+Sh/Jy6PfX+/Kfji+fr+a43jT
M/tauyXdhQ7jHh/K7JOcWdhfJl/H2oSYRFB/Z+n3pcLzC8/7GUkPTFebWZnX
eoxh/BXW6uSGqN+h5rk+M+kQ2hN7eqS0n4K/QjwL+876i/fL/T6Z7vmFzMeo
b5/sOPacNs+lsfdkekbG/+x0ba47K2HyU/jCxPr5bs+mc/slfYReQrc+k67F
NYj3oB+Ip7OOo2/WUujFFzOvx2jL/TGHniyd15glObv02vxwzffvS783xg+/
qZ+V1hZvZI7VkMslL0JO5Ihgu31y6bUzmDrW0MSPiP9gP4bVrNevKBzneYc4
SfCzoM8/KWz3L5NcMcW3iXMTp6c9sfqjg3U+tgOfFN90DO8cP0ny9OB1N7mY
McG5R/Io5ERYy49S/RnB7Wj/fOn8J2uHG/X7ycI+w5WFx9bcNBeaF57HxOk5
n35eLb2+/yTzXCdO8FH6Xlybe7g0Oo4+N93nG/g6ko1L5/i4Lvm/Vil+gu5g
LcGagrF+tc4fr2v2q+wzkFt8W3KC6r7MfGxs8HnUE0f/POkK7Aq6Ap1WFY4t
kQ+ZqPJt5rw2+U3WaO+XzmuQ7zuu5twHec9j0R2l687Wdc4KrqP9wnSfPE8M
PpeYHvkL1krkyFnbs8bneWm7KLWnL/r8WPXzU19zS7+rBemdk3+kH9qQd2ZN
d33htd4v6XuxxqOeuOUW0d/yi9LPx5qN9Rr90x6fB98Ou0o/1NEXa8YViSnm
1nF/qN3Fkstx3brXtYt5H/r9e+b8KblKct8cIw/OGvmWwsdZM++eCvXkfDmf
trRBt+CjwEU4pu6Y7dO5dRT+CuuKZZnzZOTI7ijsc9wu2Tq6fi+9v7Wi82jf
6H5G1523ei13Hr9UuV6/V4vOe41Q+7t1/nWquxefNsWNpyY/vJ7bl8DXAJM3
uq9wHw9I/lCaF7CK5EHECFT/sH7nufvHtzs3Om/zcfR6gXz+qqXz+1XuNfMD
qU/yN6uSTFH9t+jVuv2R2WlO/Ja+LzG/Jrl10GKd20j4kdyyce77WEmyRe5v
ht9FPb53Q9b9uXP8I9X/zjWf2zk3Z4O82l+l30nz0v4A1yL/+E3d72B68h+a
5eacsL4Hs7ZfPfe8Ze7NS3O4cZIcw29Fn6ycOy+JXCXFw1smPCq9R56DXAKx
Ju6ZNQXHV05t/ncOc3hB3b4dubKz656P76U4OvF09A46bNWEmyWM3z4n9UOf
2DL4May7Ryd/G3/plMLx71cl18qtC7hGnngvJMrOCY7hd9Y3bA+vQ22C7nmE
5AHci9oVanMXdik4tk/9BpIbRfN2aH8TsZEUn3ynsH17r/A5nMv685dkAyKS
caz6JsFjp1cae6w3yO8Tizst2FZwrcOC7WGb6Hw/69/lg8+nH9bJXaPXvFtJ
HiJ5WO5j/xaOnZJTJaY9LHc/HVQOFt5U8mH1+YTarlB3Tpk23Otm0e+H90Tu
lrH2b/B5R6k8zvvPfT2uhe7iuvBASDJunDv2+FZhv+C1wnGDNil2gN+Ij4h/
uDT5hKwn/sul5rYDf5f2u/AJXyxsf/A7p6RziaNsVTruTfybGBX+H7r31TQG
XpZ8vTB/g3t4pTCXifp/S7chrwE3gPf/tuTz6Vpcs0vp2CwxWp4JHgbfipw+
vIX3C39vvjvnLlO7DXPHb5FwR+CN3JWZR4VfhJ+wee6c/kdpbDBG4MjAlcGu
IzdP+MPkA3OtN9L75L3iD3EPrBkZg4fn5m81TGO7geTYusfSHB3bte586MTc
OVbylZOEhwhviS7NnTPtLDwt93vDbzxPclFpPdRE37av2myCLVCb5sF54XeC
1zqsefC99lSbDpI3o0uiuU/o3m1Lj3Hi3EfVvQ5j/d1fZUBue/FraX2yQ3Be
tTt6N3c8gfzO6nXngJ4SblF33of4TCPJZ+oem00kn1Z5DF9Fco1o/bmj+nyZ
Y+hdyR4qawlfof6HC3cTvl/4vGhuyZr4hqrfFruTO5fdWvhK5orwdtiZ3LnL
KYypaJs1INmFQcmeYTOwIdgS7EqPhLEpcCXwOdBN5Pz3SO/wooRZW54VnSP9
J7qfPdO5cKzww/DBhkjum9sHgE9FG3KI8PRW0L2FymvbPrlzgtjYPunefi2s
85oWzlHumpt7A08EDFdkH8mhud8jOd/b8BuibTr12PEyPS+2Fn9kSLofctjk
gh/NbfP7p2+9pHAb+Idwf+Db4etiK3fLnUvGh+L94AthW3lefJ4/C9vCeYU5
HOiDk1lL6TmfZR0bPafgbuLnf1f4nRH/fjQ49nik2swIjj2OEn4yWB8eK/xY
cDzwaOGZwTHDo4QfDx5vjLsborkqr0uuTwxI9d2FNw0eJ8yzXoXXQuQHOgSP
t+3V5oFo/kE3+DOqX1P1PYS3FF6PsRr9HK8yDusex4znwBohuP40tbkrOIZ5
iPB30fEv8mKvB+dEThd+KjheerzwdOGHhY8Qnh0cOz2O+wmOtR4ePX+YR8RR
v4meV7zP+4Jt0KHC9wdz2w4TfjA4Xko+9o3gvMwZvKtoXgW5uV51P9cEfY9u
wTqkp+q3DdYVOwt3D9ZLzPsh8C+F91B9p9I5aHLRg4M5AH3IjQhvLLwTY1a4
q/Cu0b4/dr9JkvgBxOd6B8/Z3dRmt+D5vjv3FjzHe6dcYifhKejDYN7RnthD
7J/wAOG1gnP3/+mD4Djkdqq/I5pz0wU9Gqxv906/GRtn5+aPjhTuH61nftWx
u7DJwdyqvYRPFj5UeCA2nfwfY0n4xGD+z6Do3DQ5IHJQcCbww/uq/s3gHNkY
4beC88VnRudLPxbeWHLt6Pm2LDgmwhwFwweEF8jahvVQpzT3qeuU6julNuiG
+zPz9pizMf5/7oj86ja5c2fzUxyDvAtxjbHCddaCuf2otVTfUPVfSPbV3N1W
+Njkz3yW9BL6CR7ItrnXl3uUXjPBCV1Y2NdeVJgH0j33uqpRtA+GD/9N4XUb
11iS9Ab648C67Rpc2onYiNw27tPCYwfucIPc9Z3SNbjWD4U5seQaWSd9lfrn
OsSlyRHB71iWe27eo/qbg7lk5BzuDOZqHqxrvRjMczg5mnuNDR8sfFUwt21f
4auFzxceKnxNMNcabtoLwVyLk1T/fDDX4kThV4JtJTbzpWAuxCmqfzmYC3Eq
czrYhmJLnw7mV5wQzU/7j5cteX4wF3GI6i8RPpnxLHxDMP9t/+g8C/YHLvCN
qh+v+v3wA+u2++Rdbgrmzg2Lzu+wpuwSndNhLQofYEow7/2gaO4c+S54K9OC
ufEjVX9rMI+F/Myk4JzIAaqfKnyH8IHRflPHpPNvSLFfYsAtgrlq7wbnYubX
nDeH80/MnNg5fEXGW65+1k46nDm+TjCvbJ5km2Au2eeSK6UcFfewTmWuCfai
bTC3bT7nVeajYDu66ncX1f+M/tbvC+v2q4krwZeAuwRHmZzRDMmBwdzXPyRb
VOb48g6bV94zwPsfpGND1OZP1jfBvLUvJF/B9uMzMBaEzxdeyjiK5lUtRT9E
7xloUJqXRVyT/OHWlTlbpwu/GpzHYSytF8yR+zLYJ2Ru/ER8NZpHyPPeF82T
4x5aBvPl3sc+RPP/OPeeaO4g77CLrnVx3Trh7miuIe/5zmjO2Vzhjmrzcd15
sc0r55DQaasE8/c+lNyscj4JvYe/t7fubU38uGCu4CfBvuXyql8suUYwn/DT
YG4qMXBi4fh8+H5cd5PKOS1saNvKPAN8g00r56uwcSsF8yffw/4XjoWTH+xQ
OX+GjW5fOafFvPsh2ULs/jbBnL1FkjcWjv/8yLq1Mo8K/2TNyjwq7PVGwby7
b4K5dl/VnK/bMJgD+XVwHpE8D5zw1pV5VPg2I3XsELX5G5up0h4dL/ltYX/0
+8KcwC9rzg1OSToPXiKcfPL6nVlXBfPNfgn+9oyBXdBRdXMI0OcHJVv5VzCn
H7+WWPiepXPdcL7Yg0Ge6CbWPsnu4y/BhSWe9rXkGpW5X/gkX0Tvo1iDOVo5
X4v+bB/MUfxWcsXKPF10Jjxj4prw+dnLA1/9ksL8PWwaPnGzyvtt0FdwocmJ
kDM5K9mbs7GtlWMBG6vNFsG8uwXBe4RYp7LfAT5Yy8y8Yvb+wPeAJ9IxmFP3
Q3Cc/xHVjy3M/19Xcjv1vXLl/Dd677rofUK56gYEc92X0Ecwj/R7fI3KvGf0
MBxm1r13cf3KOXV0ILzhDun+m1bmK2M79qm8Bp7AWKqcl8UurFuZT4MfuFfl
GOs1wrdE84nRmTdH84NZ670QzRlF5zwRzan9UfjJaG7oT+gM4evrjk19EL0v
a0XhD6P3yTRjjEXzhj9W+0nR3GLm0a3RnGb0xm3RfOUPgnMo09NYWi2YG/yR
JCRnuNH4SG9gq4Sj2r4fvc+qqfBL0XsJGP8vRu8lYHzeHs2NRod0CuZrLZTs
n/jZjXW8SzCfludaFs2Jx9dqF8wl/kryvTQH2If1bDQH93dscjQXlu/4pvCl
wpXaPB/NtUW3PxPN3/0NmxzNG2Z+MV/g0MCb6ld6DsKDmh3NzcWOvB29X6uh
6mdF86HRJ59F7x1amVxD9B6qlsSoo/dWrUTOIno/VQvWbtH7ZyrJ+dH7lFYv
vUeI/CN8uc+j9zW1Ks3jxM+CmzRH5cq6Y85bBccQ8HvZO4S/BndoXvS+ptWE
16/MZcTfyCpz2fF7WwXzwBkPv0dz9/HVf4veA4B/vjiaB4yf/1g0V5vv9WN0
bIK11cxofjnzdGF0PIK11fRojjjzaEY0L5y5+Wv0+p/1yC/Ra3vWIw9Fc9PR
qz9Fx0pYl21YmZeAz/Za9P6i+/Rc61XmqLHO2qAyZwJ/7NHo/Sro23aVOTf4
bI0rj1X8vZ+jYw2sZRpVzklsLvxgNA+eMdak8vjBH4NvSiyNfV7Tovno2LKH
o/nx2IiGlX0A1gsNKvsArCmqyvtPWMusGrw2YY1SVN7jdDkx9co5+6eE/47e
68I6CA40uSV4VsQSiQNuIxkr711hXfNX9J4Z1mhbB3Pa0Q/3BscPaf9INKcf
vf19dCyGNdSC6FgV6+iVg/cLMPe/jY7drK3rLone58PabfnKObkXVT85et8C
OmFq9D4E7H6pNlXwvpg/o/exsK5kfybrQvjA16MLap4vxMKIiT2o+q2j46vE
WdlHx9oS3Ui8Et4j+94uCN73h86BSwBnAY7DsMIchlmF+R7kj/crvMZpqnNG
VvZR8FWIkZBrnpriGBdF8w3gHRDTJoZ4KvU677yadQh8TXib+Gmsv7qm+Xt9
9F7G5dT/ScF7QvH9yN2zN5A9gnBz8TnxPUcH7/fEVyRXzrqO8YyPjq8Oz/PS
4HUHviJxD9ZuxMKJn9d1bETlePhywgdWjj+zYZffvEPi1gep/s7c4+GPwn4Y
/liv6JjzobnHPJwKuCAjC383YpvEM9m3iP3ctTLXi7HEe+wZvH8B/bmLyq41
615410My80ixrcTSianzfoiLEmsfWpjrcmvheCl7ddmzi2/OnlD2hhIrJ/aN
DzC8cGyOe4MrAx9lcmFuIbYYvuRtwfEQ1ilwKuCasydgnOqvqdn27V05r8Oz
w+PCt+qRfGG4FHAY14v+LnwfYoC763otovlgA4l/F97LTC6VnCo+8iDW5MLP
BvPKWN8Ra4XbtEda8/ZUPz8XXkfDlcXGwaHCb8R/XJjWt/ii8KDwndjzBw9q
dGb9AL+I3Dz8B2Jr2ycfEq7/czX7NwMK76lkb+VzwRwt5u+Qynk4/EZiwuxh
YZ/KV2kNj+93T3C8C3/viuD9v9jxh4LXrcSa4HXjdzVOMQS4snBmWb8Ty5hb
eF4xvxhvxOfflByq618ZvK8Wn+QRbDCxCPRedGyEGAmY+OJ+av9wcNx4zbL2
X47jXdXvWzmXSU6zeTT/E64jnMeTSvN9dqjMm4c/D8eemD9xyY8Lx0Cwucyf
84L3rZel97Cxlw2bTu4zS9/929x5QvZTsz9tYooDsCd+Us12HC4KeRPyJ+wN
YT8I44E9gOxzOb1w3o09D+yHYO8JPFbiUORE2JuEf7hT5dglnB/2yRPLgU/b
qjLnkhjgf/5d7n3e5PXIZaLr2CsBn4N9POgxuJ9bVd5nSD6PvTnkVsjLkGdg
TQqPnf0R5FKXpvn4fm59y3ecGLyfGr+FXC15T/Kf7IUhB/QSPmFlviaxUPI4
5JxeSN8C7hQ8bvbVMm+2qBxfIM7AXmPiNcRt2FNP7pg4/e+F+Wm8c/Lq3SqP
6UuTv0Melj30rGdY1/AfAsQq2YvTqXJemzwfuQFy5cS+iZuzLxGuAPe2SuKk
Et/YtzCfEBsB5/abmvehrl6Z80qsldwu+X7iA+S1iS0NrpxnX5Z0Eflxctt3
Sl4XvN8c34/9vAfUzEO5JTg2RTzq6ei9Z4uDuSLs4R1XeJ8ze1XoZ+fgfWG0
Ye8HnFL2erAfjVgKMRX2I8Br7aL2X0fnYFqX3nMLZ4i5B0eZ5+L5+G8F8szs
k4LvyjX3rMxVYF04EBy9/425yT5i8tVwRm4P3meHPwnPhBwv/I7JKg/V7LvC
jYMjd6HkHcF76PBd2auA7caGfxm9Z495DR8PziI8X/bLFUlnkg/Dp32oMLcQ
O7wla/TgOBu5APZXFEmPzQrmoPLs7PuF54S+gLPEvexeeW8IuUXyaz2C81zE
veEywU/C74KzRQ6OOQJHCD4Qfg6xSvR358p848uF+1TmJME1QrfAQWL/Ncf+
D8hXPnQ=
             "]], 
            Polygon3DBox[CompressedData["
1:eJw1mwf8l9P7xp/9fFsaFE1NIklUKrRoUFGISqUlUXY2WSFE2aOyIjtlZKeM
smeUn1FIw0p2Vv/r3XX+r9f3vL7nes75nGedc+77vu7raTL6pENPTKIo2jmL
Iv1FC/IoWqT/C9MoalARRUURRZcKf6VO75RR9Izalwq/oPbGan9O+DXhF4Wb
Cj8l/Krw88I7Cn+qQffUb0/UseX6/5La31V9mdp3Vnsb4TbCA4V/0PgfCK8W
Xim8l9ofF14s/LRwI+G2wnsIHyr8o/ovFn5b+FXhFmp/T/gL4Y+F2wrXVJ+D
dN63VXLhl9X+ntpfU3tL4VjtbdXWJY6iebrX59X+utoXq72Z2pcIvyO8VHgn
4WW6n2bqv1HHblT9EbU/q/rjaq+v9veFVwmvEN5T+BX1aaL+jTT+aar/rTJS
+AT1uVh9XlT/t1R/RfXm6v+Y8IvCTwk3FH5H+DOenXAb4XeFPxf+SHgP4Q66
/okar0LHC+HT9f9MtV+m9lL4WeFlwouEmwgPER4mfIbwZv12J34v/KHGqKL2
c0q/z/pq30347NK/ryfcSvis0u+/rvCuwmeUfj/bhed5eunr3za830ml51Ot
8PxOFn5auEqYLycJPyVcOVzfKcwx4arh+Z9Zej7tILyL8FJd/3LhN4W7Cl+k
dzZRz/YgPddewt+r/2W6l7rqs4v67q+yl+q/qn8Htf8mfJDwM+rzsvr+Knwg
84u5KfyzcA/ep/AS4dNUXhCuGeZXP7UfLHyC8G9q+1G4k/BD6v8Cc024v/BE
tf8qvEl4X+F5al8svFG4s/DDwouEfxLeR/gR4ReFa2e+n14qe6heXWUb1Seo
HKj6uaXnZwON35r7Lz2fm4f1ckHp+do0zP/JpddHkzBflut8tXj/Ot+daruw
9HpsFubrhXqeXXWuN9XeU/h39e+r9meFX1HfSmq/Unit8PvCFcKXC68Rfo93
r/+TmOsqJ2vM/rrmU1XfR+UJtfXXeIeo/4lq+139PxLeVvgstd0lvEK4tvB5
wnOEPxHeXvhC4XuFvxBuKHyN8EPCX2mcdcLHa/zeOtdKtdcRnqz2e9T+sfB2
wucI3y18fun11jisp//lnivMmfvU9rlwA+Fpwg8KfyZcX/hK4QeEPxWuJzxV
+H7husIaJtpH480VPlh4gPBJwn8I36qys/q+rmsbxnrQ8xqsa/1U7e2Eh6n/
CO5f+G/17SbcVXiU8M/CXYS7CI8U3iR8lPBw4TOF/xJuLNxYuIfwt8wfrkHn
O0LHxqjtJp3vMp3vN53/X7Udo2PHqu189d8iXE9lEHNf5T/V/1S/o1TvGOb0
djrWX/97Cx+u3x6j8bppvEHYC13/3mo/Qe1nqL2V6nupHC/cQO3V1N6s9PW+
pmOJcK4xxqv+vI5to2v4T/g81T/XsbfUd2/hDsJD1LZR+HaVccLvJN7fHlX7
I8I1uI8Kr/GWwn1Tr/2OKqezn3Ctat839bu5SL+/WKWlju+s9oN07Dv13Ufl
lMRjMnZHlb1VH6r2n9S2o8qwcP+NuLfc++VFao81/mrhpsLXM4bavxRuJnyD
8DyejcqTwhXBHn6j9l2EZ6r9cbWtFd5VeJbwE8xn4ebYFuFHhdcI7yR8s/AC
4Q4BD9Z4zwv/INxeeK7an2OuhfVyoNofE/5auIXwTWqfz16m9/e63t9Vej+p
rme92ndT++1qX6j278J+eY/wM8INVI5U/Sr95iH9tnF4Hk+p/Kn6ePWfwPpM
o60L4XeNO1htswTnq/692tupfq+OPVv6Ornef1T+0G82qL216ncwptq/Fd5T
eI7w08LdhbsJj1bfX4TXCbcSnq32J0uPy/h/hT0eHyHT/wWRfYc3WLPqczZ7
AL6CyqfYO/XZXX3X6v8Oaq+l+6us6z1FpY7qDdn/VT8k8162Rb/5V32vEz4p
8m9epK5yMvaS/V31l/WMpqv/SB17SfWHWSdq21nH+ql+l8qfqm9W+VXHT8Yf
Uf1qzoU/pf/T9NvarBHVZ2qMa9S+v44NUN9xOnad8GSuIfMYjPW7ymxd31Ad
a6p6Ux1/VfXXVJon9lmWqt5QZSf8j3A9L6nsoHpj7KHqb6i0VH0X1qPqnQrj
N8P+tVr1S7DvvE8de0glUf0YHXtL/2sKf8TYqv+i+p0qbWPf892qj1fZVfWf
uF7Vv9D4P6j+veqD8G+EPxdeI3yo8KzMfTepbNCYR2b2pT5TuUH1OSr/0F/n
H6761/r9L8K3q34E/qP+V0q8pzyg/2vVPk/1+/Ws9lP7Gzr2mvqfoXKOjh2u
/tuq/q7KNNVLlTexver3s+ofqBym37+oYx9ybRqvMrZSxzbiK+vY02rrr9JO
9dcTr7dC5WyNv0LHRqvvy8IrVb9PZUvs/XoJc1pjXC98sfATqn9beP4wjwaz
/+l/gS/LfsPzTz3f57NmND+uV/8L9PvtVY5V/ZnUvtnisB5Waz3kYX3cI7wG
myG8hPPlnj8Xht/XC893Cvu92k9Rv2/Uv47+vyT8pPofrfbL1T5W+FwdP0nn
PET4JpU9VZ+jMlv1nDmMr6D+L8TeA/5U/8803h/YfuFbNN5AlQNUf1f9hmOf
1f6L2m/Tsc36/afsedhG4e+FT1Q5WOMdoD6HqH4HfgW+jdr3Ej6h8LvY+k4K
z5/zVa/NPao+Q8fO4/0Ee/a1xq+W2qfHtz9Gx49WvTrvhvVb+N7u0LE7VT+w
9Pxing3V74/V/xtYz+xZmfvQl7V5JOsn9Vil+hBwnagyS/XvBL9hzxauoD3x
/snzncrcV/uIzPPzbOEqFNW/S70W+wnvJfyVrqfUscexCbr+S3X+00P/0ap/
qfaC87An596PuL4/wvq8XH3OVL2aypjCNgPbgU1qkdsGYYuwKTsJX1N6/9tN
v+2m+ztIuCq2DD9CeKXqGzRWXZVLdd5PNOZ61W/jXtRePzM+kPmi+trM+8F0
nkdYb601RhuVj1V/X2U31VslniNTM+/N9GE9rtL4G4kHVD5XvZKO7aW27sKt
Mo/BWLurLM+8HvdIHAN+ovqPWdg/NOYPPE+VLtgmHbtE9Wu4hth7Jv44Pim+
KT7nDnoem3VshPBQlT9UX1J4/yiDvWWfZ7/HxhzKfqv2D2PblNdVf09lFb6s
ynWqt1efPvjPGu9L1adnjqW5p89UvyLz2uIe2E+ISYlNuybeQxdmvpaa3AN7
s8Zcw36rPu8zl3X93wivSPw+qgn3UH29+o4U/i7z2uqlslH1zan30t7CP2Xe
E9kbifH/l7kPfXsmfn63qqyLfQ+3ZI7DiccjlfOIcUv7C/gNo3W+m3jmsW3Y
ENVXF977+6qcUtimYFs6qazK7J/+p7Z7VR9VYZ8f358YYnu9j3U63l24W+L5
tCT4xvjI+MQLg2+Hj/trZj8Yf/hfjXmqrm+5zvm16s2wN9gmfGS1363f3Jrb
3r+ttpoqs1RfWvj98J4G6Hq2E54ZeQ9jL6uW2/c9WXib3H4y/vI4nonw7qX9
Y/zksRVeR6wnfNIHg4+Br4GNOln1KoX9hfXMf+JZ4Wq8L85Z2J/YDv8t9Fkk
XCfxb0Zl9nHwdU4VvkT3+7HqqzV2I/2fQgyZea6sCe+P+UM7/Q6rsI+Ar/Aw
9pP3i31PvEZZq9V1H6eqflpinx1/g7GJaYlt8XHxdfGZm6v9GR2rJXy+cB3V
49zPBpLqv8wxH7EfMVqj3DEbsdsOwvVyx3jEesSUteGmCvsj+CVVKxzzEvvW
VHstuB1sitobEPMWjumI7YgJ6+eOQYlFiSHr5I5RiVWJobfLzQfhr1wY2b8i
RiRWJEZskDsGIBZoKtwMrqfwWsePHFjhGJNYkxizYbielbH31LcLxy9T8LkS
x5fsFyvUXl/lVfxLHZuROCa+XPV26j+JZy3crnBMQmzSRLgpfAg+bOKYkdjx
C7VvFp4jfBvPk5hM+AHsW25/5Emdqzk2r3CMRqx2rtp3Lm0jH8J3SG0731bZ
NvP19VH/V3L7Cm+ofb3aWqqtg9r2VtlF9evUfhm2H9sAtwGfofHH69g43h/8
ROKYldj1fo15r357Hz5mYZ/hOq41+BL4CMz3WanX2zW5r/Va4Q/Yq3XOJ/Tb
B1TOUn2a2s9R+4zUfMah+n1rtd3IWuDZqn0K8RO+m/CbcAKJf3NWbh8Efwy/
DN/k2tx86c3qv7I0Zwp3yhizS4/5feJr5lyM+YPw9ZHPtVvgHw5JHY+1CvzD
wanjndaB/xiQOl7aNfAR/VPHj8tUXtV4Q3TsyNzvoKHu54LM72apyitqH6z2
I3LHz8z1fqnjUZ4B3M4VkZ8Nz2xdYs6HZ/kuMWXie7w8tw+Ir/Fc8A3xIfEt
nk3tW/IMflT/GyI/m1sLx5L4Rh+VLt/C5UZue0F9niN20rG1aluusl71H5gj
hTkmuCbmzBW597z1YX/7o3CMSUxIDNsu97EaPO/UfWczx/F98ZvgL4XP4l6E
K4RrYE8i27aOFbaf/L5jsOc3cQ+sFfWvVWH/a1Nkn5146OHc/OVjOl5P7Y0z
z6d9sd+J/QtsY9sQo1Qpbaux2RN0rduUtrfYXeIh/CFsFzHTTNWXafyPiLUC
H/qFjrVX+6TINvw1tX/M3hH42W8z2/PZOrYhM95feI/YNv4N9V+Jvx343teF
Vwi/E/jeN4U/EX4v8I1J6WcBZ9O78BxhrkxXew34bh37QGNfG/bbn+BJ1b47
Pm5in/Qe4XmpfVV8UPaeR1L7psQk2NaHU8cq7EnMnbtT71XsSexNc4VrV9gG
s3buSm2b72CPwLcl7lF7C/y/2DHJbzr/TLXfqPY5al+l/g/m5p/nwwOo/w3C
tzAXhWsSfxT2X8vcfFaFfrOfxtmJmKH0nLwyti1lrtLOuyZGLkvHZMRmD2q8
Ovr9Q7n57wXCdYXvF14o/Kjw9hW2SbgC7VPbKnhD+EM4DvgSOBm4GTiSvXJz
PnNDe3vhMfj2iTkTuBNiemL70yLb88663n9VH6vje1eY44br7q5jPYjnCnO1
2PB9Ve+Tm5+ekJr/ZY/emPgZsncPV5/OsTkCuIKHsTnC+6lcqfr/eM/qGwv/
rfog9iTh01R/tfQeBR9/euq9q0fgf8amvjbOCfdMH66lV26+/bjUfP2+gb86
OjW//hl2CPcSnznzHge/Pyn13tc7N/9+fGr+f7L6zAvxTlXV5+uaF8S2YeyX
77MuUq8B1sJzal8WO4afUniPaqj2NyLvXTOJTRPvEewVz6jP4tgxLbEtc+6v
xGuAuQhnOyn4I9jjKZljjZYqTVTPCs8leJe+5HOwqbE5iJG5C3VimRH4v2q/
nXtRma36XJW7Q7w7vjC/dWe432qZbXILbF8UbHXpXAjviGf9eurcAjkGcmdL
UuceyEGQK3uQcwS+oC+xpsa8J/Z+viG1v3FG8JfwP8hxkOvgHeyT+x2Qi+Ed
8W7yzNe2v0rrzD6c/kV7p/bt8LmgGjuk9sXwyfQXdUztq+EDVhLeL7VviA9X
WbhLat+OmECXGXVKHSvgk+Er9kztq+GzVRHumtqX45q59gNS+1JwknCTbXVs
z9w5H3hy+PJOudcgsfGRqdcmNqg5tja1beI3+IKHpx6LNYzvOyis7aNS+/n4
+3DRxJQ6HHVOHWviI+OL9krtOxODE3v2SR2bH8ZzSpwjJVeKTwC3DOeMr0AM
T2zUO3VsD/8J94DPCZ+JTzcae5/a18MHgRuGc8U3weeAq2XN4YuQwyKXxZrs
nDveJhYipiU+ZY2/rPYjI6991ii5MPYU1i55R/j0oxPnQ+FH1kbmUOFb8Hng
euHI8YV4xtzLsNTPnhigGntd6tgAH7qqcLfUvnWl3PlRchTkBLhGxhqe+trx
MfGVLkjtezInudcRqecqPie+0uTUvig+Etw9OQd8p8qFfQ98JHylv3L7rvis
9C8L+yr4TPhOXxZe23AcX+Hfa82uUlsLfH7hHuRU2LeIP4VPg7MK9msrt5Y7
P0kOiVzSwSq7qD6W+KvwGmQtXhji1QEqrVQ/RuU8riUzR4k/cDgLoTCXjI+4
QPVOOn+q9srCV+l6Y/hEte9IjK36RTp/47Cf9MJW4ENljn8OEr5Bz+lb5ofa
Bwr3VvvgzJwk3GQf4c9Tx6eH5d6TGGty4DuuUjknNkcCNw5nBXd1drAnZ6uM
VP0dlRPUfoDG68Lehz+vtt0K11OV7oXzVdVVP1flGtUPUv+NqfMTtwlfXbgN
TucUjbe78AzVLyUGUH1cuD44w2tVTwpfK8+A++2s8Xrq/IdrvFHYGjjE1Hzp
aOE91Ofa2Dk4cnH0oe+MsD9XLcwV4kNsIDZkfcfm7LAv7Ur7anBS7bGXOrZn
bJ8KfnOX0loCfK5dS8eUxJas5xtKx5ufqP4/YoDcnA/x/JesUXy1wrH/6oDJ
QQzU78dEfv5wGHAZrOfrsZf4l7Fj6mWB71ge+xhtcAI3Z+YL4AqOV2mi+vex
+TieH3MFjguua1DgmODbyAVchZ+XmHNZHq6Pa4UTujj3O+fdw7mQX0EzUSN1
jh4tBTmDrzPzh+QSuGfunZgZfm1dYW4HzqiJ7udDtQ+MHZMOU9vEwlwqPjvx
2XGFuUl8Pvy56oXXJn3oi8+O7z4oNj91KnMyNqc8HX8+sx3DnsHHo1lAu9BO
eGhhm45tJ364rvScYe4wZ27nWeXOdcBRvB3m69jIOVjmM5wr3GuPMD+HFB67
vcpRYT3xLsnpT1N9eO789FDmGPtH5hx9Tx07VG1n6lgltR3HfCnMacNtY48O
UPuOheP52iG+G8N+kdvnxR8eG3K8xHDzcudgq+TmbzqG+Xl95jnJ3Gys8nLk
nALxI/NtRuY5xdw6WPjKzPYAfm2I8DzhB/H5w3z7OPi3N+r3TdTnzcg+Gb4Z
+iPWRo3Y/OQhgYOF476scDxTLzaXeHSF5w+8KTFZ5dI5F3Iv5MsuVv9Fufm7
lzX+OuyH2qvmzinN1/9Ghe+9WuBD4FCJs1jDg9TWv8I+J2uctd6vwpwEe+wM
7Jf6PBGZwyc+alA4vi5CfFS/cHydh/iIa16dOSbjXsiZvJc5P4W/yTt4WP2z
3O9mfOocf6fg3zVljUX2AfEFR4ccLvmHHwr7lB9lzlfha/LM4TPJPfEu4Fzh
Xr/BHjLfC689OHi4eOJT+GX24M8z50Du0P8bY+dG4CPZ+7bmc3QNhxWOp7GB
2MINcB5wOTr2Vu5n3ij1O+ZdwI+R18fnw/cj/wK/8Ivwj6k1BLcmzvmjLSBn
/VTwb28und/NYu/J6FVYD+R5ySl0Ye9MHcOwZtB2rOIdR+bc4N7QyPTJrM9B
O7NJfX/Hd2M/zpxj3jG15oTcMxol8rbYXLRLAzL76qxR8o9oEqYEPhOtwpbU
uSJyUOQP2+v3nTL7BPgGR7PnRbaB2MIrCtvuUTo2tXAOFJ4BvuGIwjkZOGX8
1Z657fWOmX0EfAXWGP5bRea196XaY9UrdGxEbo3IS8Gfu6X0HCYWOj/z3EZj
B8c/TseugMsorPdZpGP/lNaY/ZPZx0R7Rt6NvZI9c/fMff5LnS/lt2hG/srs
H6IlIb8HpwB/BveHzcB2/Bzbn+J+m2XWc5ALrk4Mn5jjuTK35mhBiI/RIqHh
mp9Yc4O2C83OYyEe5n2j4Xo0sQYHbRccSIMQ723lRlLHz/hkzQpzKPVDfAS3
QvzYMMxX5i+cClq61yJzLWi00GqhwUK7iEYLrRYaLrR+aJTQKqHhQguIhgQt
CZwBWks0X81D/IZ2sqOu4e/ImoEWrN/C8Tkx6D6F5/89mW0gWg40LrcFf5Z4
g/hjZogX8LXRGD2fWPOG9giN0guJ3ynaJd4X75b1MbW0RuPuEB/BP6BZujOx
xhMtE5rRSqk5F7SkaD6vDXw0WtCRhfkHNGOsPzSKzyXW1KFdhNNCe7gsMtcF
3zEn8CFwB8Q/8N3EWMRaaEThu5tEjofQVN0V4iO0VnBoaAuXRubW0CiiVUTD
iPYTzR/aPzSMaE3hDH9KzBHBJcJ5fRr4YLgwNItoF8kfPx/8v28j58ix53VK
73XThLcvzVFtCnwB3BWcFvwB+W64Lvh4ckczg72DQyK/fVdkbon8PrYAmwD3
iqYSbSUcJNrcloX3ZnL4vxfWC5Bvh2ODa4PDXBv4XfgK+It1gU+9OTcH9k3g
g+HGKgt/EGK2c3lehbUX7KE/F96fmmf2Ua8srSvGtmBj8K/QGDYLfAJaWfgF
fAl8CvgHNKToFZZE5hvQkKIlXRxZOwz/gG3FxsK3/JJb+wNH9l/h/flP4c0q
7Qtr7P6CMIgdL23LGo+8R5MfgeOF6yWfeZuud4fStqON+tctzZHBlV2Nf1X6
fPtHXmN7F9aUojviGjoIP1VY24TG4enC+x0xLj76rNIcM/mN4yJzz2h0iRWJ
GdHuwteTO3ksdjyGf3BqZg7n8cLx2F2xNcV/45uqzIl9jPiM+AWtABwQXNBE
jflW7Bz04sJ6ALg5OCy4LPQw5P7hSAfjW+BvxNagYp+w12gX0Bd9w7suXEdz
gfaCeGu9zjdT+G7sucobsc/JuZuX1jeigWlRWl+A1hrNzfPBv8PW8JsXC/Nd
C2P73Pje5HjI9RweOz5GkwA/BGeHXntFYd8PH2NlwGtj55wv0fk/Zf2p/p3K
lNyFOpqDT4K/sjU2iR0vfFw417U2jAf/C9fLGJ8VzpGvCHw7v2d86htC+2HY
s8wcKFwofCu5UfZg9uKxKvNjx7j448TfvGueOc+eHAjc2f2x9XYn5tYinRXb
nlcr3IYmCG0QfAK2D40LWhf4PrQDT4T5QrwPjwjngP4F+1wjsx4DbTyaF2ww
/hmxMj4MvgzXyLVi7++HgEusFUVDuib1nkY8C2f9d+KcClw2nPa/iTl6uG40
m2g3j42sVYdDJ+fNM+XZVhJ+P7GG8MzcOQNytfjk5BJGqeyr+vjY+iE04mjF
4dDRtm8j/ElizfvU3N8sJHBjkb9lQEOfpubg0daj0d+SOGdJ7hKOAK4ATrW1
6l0Lc9VH4b8V9n/+Sc0ndyvsk+CbjAj2b2FhbndRWO/vZM6Bc2xh2A8Whfc/
PPgzaGH5/czSGtJliTWyaEvRiKAVIV5Bq9lWfY5LrFFtU/oauJZhKq0K80Hs
bV8F/2NL4NvgrOCu0GQuTaz5R6tJTor8LvETuSr8ReYWGqSehXMg/yTOoZAb
gd85MzPH+0Dh949uAv3EJaX5avbKayLrY9DwsHZZwxepPq703GBMxmYNs5an
pea+xpbWamHTsG1tiEVjx3+1VD9G7XMjzzHm2vjSc4t74F6OLX2tzDnm3nGl
7413zLseUdp2YeOwdUeU3mvZg9mL8eF/SW0zsB1o7tHeE59ul5njgevhGfAs
Bpeeq9hAbOGRwsdHnsPM5cNLP2veKe92UOm5zx7PXn925twzGky0mMROcBFo
AOeqPrH0XEXTh5Z1Qum5zBxmLh8tfHNkHwRfZDrca+zr/zm1xh7/qY/+H0M8
BacceQ4wF9D1wwWgKUOvN7K0L4MPgi/SQ3jHyD4Zvtno0rEDOk70kqNK+yr4
KPgqR+n4RZE5yGHwHCrXRrb/B2C3cl//AzpXlwrHyHA1T6aOnY8vHTuzZlm7
aJZvSaxxRstMPuCUyPEy+Znhap8a2SfBN0G/jZZmfFgfY0rbMvJ+nI/kAPqR
Y4mPWe+ZtZXEOz0ya6jvS6xHRFs9pLSWnT2FvaVHYa0YexB7EfE1ujP0Z1uw
pYXrPHN8138Ka2+3ahRUP79w7pNnAv+al9ZyoalA30n+BG0RGt1/Va9ROJ+J
RgCtAJwKeyXXPibMH7TE8AVnBc4C7gI9VFr6fHC9xNDE0pML751wlHCV5xbm
in+KzM8S35M74h5JNODz4fuhoUBLkelY58Q5sUcL880z1H693ld39tLc56YP
fRkf7pc+54T9EM0nOXXyifBfO2X+pmdp4Ifg5eHn7yjNd05IvOftofqk3O8D
Dh/7AYcEl8Q7vVRtO2jMeyPn1MitdSqtNUJztJ/qQ0vbBmJAYsGjSmvB8dnx
3fmGAF0Sv+lSWmOD1gYNPd92EEMSS3JN8K9ooMnJ4uOR77y6NDdOTE9sjz4F
Lp81wftnjjPXT+IZldaDbGFfS/xtHZoRtCP495eV5pvh8pjz8OvoI9BKwBFf
WjrHTK4Z/daU0hx6L9W3Sezfdy/NHaCJ4nuInqW5D2I8Yj00r/DZ+JN8j4aP
gK8AB9Xv/9dzbP4VHhbOHu7yo8Rc/madb2hkjQn5Wr5XQjuFDzqJ55I7FuL5
or2/uDTXuC97Q4Vt6UC1D4mdn/0zd/4FTQr5WTSt8P13xNa3JZl9y9vwb1Rv
BPcX+xrZbx4p7AtODvwDeVvmKjYEW1I3cz5kbtjD/8htG7GR5KbQ73Munjk8
Kvp63ic5THKZxDK/qv+4sJ/xvdHw2HwIvAi5kpGRj+2HXwNXFJuDhecdVpob
7pB5vbD/jIk9R8j7sF8yNmuGvEm9cL3kS9A/oiHHt0OzgX6Ddcx65hsrvrUi
h4s/DJ+JnvTf3HonNEpoldA8kDuCL7o9tX4Z7o17Qp9dq3AuH40OWp2ahfUW
aJLQJm0rfFPknD+5/wk6x62xcyxwTnBH7CVjwn66feHcNpoy9Brk43nX+CjE
YbULx57EoOi16hTWf6CpRL+xf2kugJid2B0+nNgZ7TO5FeY7sSxaf3JJvdRn
98gcA1zDISr9InMGcAcTM3NhlcL8GVCaS4DTgNsgHwP/1ivsj11La+fIyZOb
P6Pwu14b2R8cWJoLgQOBCzm0NBfGfML34hsSviUhR4We+wHhOPE3Eg9m1iCj
RSbeIe6B84L7QsMDP4qGm9wCOQY40BcyfwuCZhN+dExm7gCNOfzm05m1vWgm
12HPha+I/Y0I+XfmHfOPNcPagW/kWwc0+VlmPQHcLjEc/i96BbhjNCLwRXx/
wV7OnOF7DWJh2m4RPl714zLXmRPMjRNLc1NwPHA9tMNPXh3691X7fpE5Nbi1
v3PHwvhj5F/JyXF/3Ce5un6luTc4Ori6/qW5Ojg8uLyDS3N5cHZwd+xT7Fdo
HNCzkhMhd3dE5lwJ39NwLV9H5scWJ8718Q0J3zccEPbTcalzH31Kc0VwWnBb
vUtzWXBIP4f5xd5EvEfcB6faW+3HpuZayR/0zewfE69hb2rm9ln43qxW6W9n
0ERvW3qP4J3hT2FriZ9HJf5meELubxz51rFy2G+IEYgV6EN8DWfeMbPPgf2H
M4U7nRjiC743IRcJJ4S/CWfcNfP6gEsm5iL2Gps4n9gSnyrxMfRe2Hu0uWjc
m5b2SfBN8K9aYzsL50rI+ZH7A6PFR0NfqXR+j++S8JHwleBE4UY/SM31Y2N4
h+Qkp5de46z1NfiDhfVyaMHRdFctvSewN8B5tCn8zSP67iPw/0vzU1USf6Oz
qTBfjw88Vn2mlY7X+c6HGJtYmznH3IMDalvYZmG7iAmJDfPC94r/sVtpH4Q6
Gu49w/wltzwgMb/XvPBcY++DiyJf8kVqvTnadfimgYm/+fhRfauX5qL4poTv
iTg39hN+Ff3U+sL3hka9XtifiFWxqfDz8APMNb7Z49s9vh8g3iLni5ab/M6C
zPEv2nvyU00z54jQ/nfOrC3oQUyWOl9EvoRv/vgWknwzc4M5cX7ub0KZ78MT
51PJSWBbsJtwgWgM0Bpwj/Bp5F+Hh/Hgn1kv5CL45pTvK+Ek4Cb6hvWAHrNP
8K/RppEvvThzfAlXxPqhL3souVf4VZ49mly0uWlhfx9bS7zJO2QvX5X63U7P
rWVE44lWlJwnuc91keNr+FN8KzT1vxXWR3TLvL+jRYDfRNO8OjL/vvUb89TP
j2/P4Q/PzQIHVFjfjtYCPSv7NXptcka432j/6hXOvaHZ5H2QYyPXxvde3xV+
/3SOw/wmJiM2g8ODy0OPyNhpYj1B3cK/5RsL3vc2wScipkXLgf6AvtiMmwvz
oZsyP3OePd/3kWuG78F+bdVfRPZ7eBbsl+SG+UaB7w3IH8NNsOdvzU3lzi2z
BuGHicmIze6MHBv+HwtQNjs=
             "]], 
            Polygon3DBox[CompressedData["
1:eJwt13egz/Uex/GfM43iJrMTZYTIKDdFVnVlVeJeQpEWaXATEU407JF1iERl
RJkVqawKSYO6aFFWtyGkm65R9Hj3PX+8zvfzen5en8/3+/t+P+tUuKN3u15p
qVTqA8qk9v7c7NonPZWam5FKTctOpXKyUqlF/HHBOermyczCC7oWon7YQ67t
sFy5j+W6Y3dlJoryYHyB/p6WaU/D+S/kHlbXV+ZvfDE6W7k3vkL5Jrn+ru/x
t8p1Ulfas7yAHcbysGeww3QrNhOrjjXgK8t9hTVwz1PYlXwmPam8Vy5dpqb+
R7gOp07K4+S3uh7lb1OeLVdTvhH/M3XFZmGXYA35C/X3FpZNr2ErsSPUhX9W
rgZ2FV9Gbg52BJuKzcQqYluwUvQuthHLzkqeoWjBVGokP4qu8Dx3a3fa7yjC
z+Y7xHPLfYn317YfPpAeiW+nbqS6La7n6u9p5QNyI+Qmq78Wb4c9j9XGase7
l8vDLsxI3s8E7ABWvUAqdQ82m77lz6fFcie0nSs3X64YNkn5IHalXB++OE2T
248NVzdJrjA2EduNDcaewtp6lgHYZqwLdgv2R/xurLB3MEh5MJXS9nnskNwU
uRlYSew57CdsMjYd+z0z+e2FtO2vPIAOxTvBpslVkasXY1bbCdgubBA2HjsH
m4rtw4ZhE/Pff3yHzp5zvLptrj/xHZSnyl0kdzlfQdt34rvRamwt9g/ZTjHm
5V6k1fwFeFH1v+D/oxFYOW2XKJ+UmafuRZkTMaewN7HWWEf+//QQtgpriXWI
saBtZd/oMe/9cZqkv+N4X7k35FrJ3cxfE2NfbpTMDkrJNaFr5CbKXQBVkPuN
7sOWYA2xlnwbuYexTdgtWGdsrf5uU75bX6NpHd+IzmAj+W10ht9IOe5bnJ9A
k/X1QYwjrER4moIViTHkHq/z57jPcf5X9+mJLeIb6Lc5f4zuxRZjV2Et+Jti
TCsP1HYQTdTfMe3PlvmV/1r+Yv6XWItiTcPryl/L/1N2KPYJdi/WEztI7bE8
rDL2d/4Wuaewb7GR2DhsfMzDeH7a5fcMjXEWY1L9LNn68W7im2Nv8ln0qroV
ct/He+XH668cVpP/IX4LNgErj9XiC2Yl466Y8TyaH0P/0udj2Kdy98ndg/0Y
HJuCVcLq8o/LfYOlPEe25+unr6NUONZW2q2uKt9MrrPyQqye+BX58ybmT8fs
ZC5+4HqaH638h/7ulK2GldB+Zox5rCR2ki+GN4uxgR/FZ/Dp+Fh+L3+VXCb2
AvaM50rDmtAA/gv3aCA3RMZPTpXlG8n24QvgZ0U9fy+t5M+hNXLL4vfSPv1N
1VdHeirGLW2WqRTrutw7Mb6x1/nitBZbHvsNtpYvG+McewPrha3hy9BG7HXs
AWw1X5o2YKuw+7FV/Lm0DnsFmx7j3DNsyUjG5mm/bTt+uUy/2HuwEvxQuc+Y
y+hrbBvWCuvBr0zLH8PanqIKyhtifY25FHsCLZUrSCu0XRhrBvYeXzH2YOzt
WDOwjbG204fYOqwPtoG/gMrTd3xZ93hZ/Rn3WeIeB/kHZT/xTsfzLWhs7JHU
SrkvzVHXUq5pMP1M1/ZpeoW/h17BisSapd+X4xyALYv1OX4ftgCboH17fX2o
3d2xL/A95V6N7x3rGLZIrge2PPaFWCewl7C6WLbr52nJGeSy+N6xz+hvO9YL
e4//N75Ou/PiLIG9qc2eWKP5AXLnYpViz5ebi53C5sc8xr6mq7FxacnaHWt4
l8xkTp3BT9NI7XZjTZXHxHeTK5+ZrGOxnq3yPN+re1LuQVqvnBP7ntxb8fxU
n89N+2tpTpXhd1ETbBR2FlaOX6y/XH19QZfGnBDeGWcEuUfSkvNbKX++osax
v2BFsPP5L2MuYcOwwlhOZjJfY96u0d8hdcP1dxe9pJxOS+VekLsdmx9zX3YB
NhvbS82wgVgJrDK/g+ph/dP+WnZSJfk7tV2IpcW+EnuZe+7Dr+MHy5XELsof
k++mJ2fAOAtWtgAcli0Y40lnR7BL+f2yzZUfxUtpW4Wvo21PPku5omx7uW7Y
PLnfY/+Ve1Zdw/y1pJhyJbkOchWxrtgJfg+l8wfUt9B2KF5a26r8VHyG+pyM
ZM/dmZXs8R3TkzEfY/8I35c2YRXoI23Xa3s99kCskzI3YK2w1tj92FvY9Vhr
7BKse3xX5TPu8yxfiBpj+/jWsc+7b3l6LRaR2B9dlsjfINcr1kPZG7HrsRux
3rHOYW2wG2L9o278KX2dpGdkrqNu8b3xRnJNZHIzk3U+1vvfaabM2+47Rvn9
tGT/X8+vps3exxasrbrhWcmZLc5uVbS5A6/qWj87OdcXjbNWjE8+Kys529bI
Ts7gcRbPw4bpbz2+3zPVjjGqvgC/UP8HsCf4q6m18ozo37NUi3MO1hZ7DquF
1YmzVMxR5ePpyTkszmNF4xwXvz0jOeO2cY/PZK+UGRTjSL40f4qGxPqPdcZ6
8P+Nd42NxnKwGnynrGQ/iH2hij478yfxR2OfkOukrjt/Vjw3/53MfirMn5eV
fMP4lstjHvLLaIhyKcpVtZRvLnu7zDLtG2ON9TcY+w9Wi2rSD3E2oM+V69I3
cp/IDcS28tXpM+x97A5sQXqyr8aciLmRS9vjndNXch/Fb8B28HVoF/Yxdis2
Oe6n3VHvb4/n6499GGcK2i63Sa5ljOf05LwR546f5QZgH2HVaEesz/GOYx2L
+U27sa3YI9jH/MW0E9ucmewzLeP76+tJOsgPom1YDfpcbovcNPcZ5bm6eX8/
xpon8yh2HZ8R80rdHL5FjM947/pqom3TWNPiTKO+l1xTGiPzR5yzZTbzD9NC
/oqs5P/K37Q/RvX4b2Oux34ge5666vx3MQ+xsdj52CV811hLsKOxX2JTsCci
677T439uystOvu+n+Xt07NW1rIm1sIzMZK2LNe9SvgtNV/8zP01/eZnJ/+Ox
Jw6L9VR/o2T+BGsu+9A=
             "]]}, 
           Annotation[#, 
            "Charting`Private`Tag$5536#1"]& ]]}, {}, {}, {}, {}}, {{
         GrayLevel[0], 
         Line3DBox[CompressedData["
1:eJwl0jtPVEEYBuBZcAHlmtBDtkG57CIYAiZuqM1SqBVZOhsChVTcQwwkBIEQ
CoLbEDsgxFYNCJ36B5CLXBT5FQRoeCYU73m+7xTzzZk5qbdDb94lQgizsquI
dcHjirXJEGqYYj2fMsNuZpljD/Ps4wAHOc4JGVcv8QNXWeAnbnCLX7nNn+wr
CaHD3Bv5rd/hK2koDuFA/5iHfMIjNvKYTfzDZp6whadMMyNn6laex/3zL9v4
j+284DP+j2s+CKHTzFu51H/n67gfe9zX/+IPfuMXbnKda/zIFc5xkQsyph7h
APuZZy9zfMkXzDLNDOvY4RyuuWduNT/zuSwXhVAVz5OVcQYrOM9yzvFRvEc+
5AynpUz9nqWcouXDJJPxnuiTwygdQRhmUTxTL7sS9//DHcFmPYQ=
          "], VertexColors -> None]}, {
         GrayLevel[0.2], 
         Line3DBox[{1299, 1588, 820, 1298, 1952, 1492, 1300, 1953, 1493, 1301,
           1954, 1494, 1302, 1955, 1495, 1303, 1956, 1496, 1304, 1957, 1497, 
          1305, 1958, 828, 1306, 1959, 1498, 1307, 1960, 1499, 1308, 1961, 
          1500, 1309, 1962, 1501, 1310, 1963, 1502, 1311, 1927, 1964, 1503, 
          1589}, VertexColors -> None], 
         Line3DBox[{1313, 1855, 2026, 1312, 835, 1314, 1965, 1504, 1315, 1966,
           1505, 1316, 1967, 1506, 1317, 1968, 1507, 1318, 1969, 1508, 1319, 
          1970, 1856, 2027, 1320, 1857, 2028, 1321, 1971, 1509, 1322, 1972, 
          1510, 1323, 1973, 1511, 1324, 1974, 1512, 1325, 1975, 1513, 1326}, 
          VertexColors -> None], 
         Line3DBox[{1328, 1858, 2029, 1327, 1859, 2030, 1329, 851, 1330, 1976,
           1514, 1331, 1977, 1515, 1332, 1978, 1516, 1333, 1979, 1517, 1334, 
          1980, 1860, 2031, 1335, 1861, 2032, 1336, 859, 1337, 1981, 1518, 
          1338, 1982, 1519, 1339, 1983, 1520, 1340, 1984, 1521, 1341}, 
          VertexColors -> None], 
         Line3DBox[{1343, 1862, 2033, 1342, 1863, 2034, 1344, 1864, 2035, 
          1345, 867, 1346, 1985, 1522, 1347, 2102, 1590, 1591, 1523, 1790, 
          1945, 2140, 1593, 1629, 1719, 1720, 1718, 1230, 1596, 1631, 1808, 
          2104, 1946, 1807, 1775, 1776, 1865, 2138, 1348, 1779, 1780, 1866, 
          2139, 1349, 1822, 1823, 872, 1350, 1986, 1524, 1351, 1987, 1525, 
          1352, 1988, 1526, 1353}, VertexColors -> None], 
         Line3DBox[{1355, 1867, 2036, 1354, 1868, 2037, 1356, 1869, 2038, 
          1357, 1870, 2039, 1358, 985, 1571, 1359, 1652, 2100, 1572, 1592, 
          1573, 1691, 1360, 1937, 2103, 1594, 1630, 1595, 1721, 1361, 2141, 
          1791, 1597, 1632, 1598, 1102, 1362, 1778, 1574, 1777, 1575, 2120, 
          1363, 1782, 1576, 1781, 1577, 2145, 1812, 1364, 1825, 1767, 1824, 
          2040, 1943, 1365, 1989, 1527, 1366, 1990, 1528, 1367, 1991, 1529, 
          1368}, VertexColors -> None], 
         Line3DBox[{1370, 1871, 2041, 1369, 1872, 2042, 1371, 1873, 2043, 
          1372, 1604, 2044, 1928, 1373, 1653, 1922, 2115, 1599, 1578, 1654, 
          1374, 993, 1600, 1579, 1663, 1655, 1375, 2116, 1656, 1698, 1580, 
          1601, 1581, 1722, 1376, 2142, 1792, 1602, 1633, 1603, 1699, 1662, 
          2106, 1377, 1693, 1700, 1582, 1685, 1583, 2121, 1378, 1694, 1584, 
          1686, 2045, 1923, 1813, 1379, 1819, 1768, 1818, 2046, 1944, 1380, 
          1874, 2047, 1381, 1992, 1530, 1382, 1993, 1531, 1383}, VertexColors -> 
          None], 
         Line3DBox[CompressedData["
1:eJwVzUlOglEQReH66afgCgy4BRMXwFA0oi4AJbED7BNmDlSksZlrXAG6AVQU
N8bH4OSeqvsqb7nR2WonEbGJw2xEPU8KEQd8myf8iJd5ir/KY3NFruA7F5G2
/5O/ONH9yClq9m/yHzO0dF25Zj90W+V9PKC9+DsTMeYDNHCHCW7R0a+7++CJ
20+5hx6+cI8N/al3Qz7CPm5QtR+5OdM9mp/QRMb+RT7jXFfyZglFZHV9eWH/
LnPmVXlp3pF58xXf5QV+zecYqCSM
          "], VertexColors -> None], 
         Line3DBox[CompressedData["
1:eJwVzztOQkEUBuCDcLlsQxstdAVa+4JGN0AiDTZqaYyNlTGGhBBaY+WzkZeb
UEEKd4OI3xRf/n/m5M7MXT46PTwpRMQBF1nERx7xK8/51OfyklX9iz99Te6U
I5ZkvRJRlCsszEryzazHWN+VfYIBV2z7pmW2pz9QYEbbXs1sqD/SpMM03cU+
m+Yvcs4rVbr8cFv0dvnEMzXO2EpvlJnzR/Kd+3S2ddWspB+TW1co07C/ITP7
6/KOSZpZX/vPbz3Xb/Rp+i7dr/8DkeopPg==
          "], VertexColors -> None], 
         Line3DBox[CompressedData["
1:eJwNyj0vAwAUheErUUW1foNFUjYdGE06SYomVaOEbowigvpqpAOR0kniz1Cq
KmnFtx/jGd6cc897J9a3l7cGImIR9UTE+HDEWjLiXM/oZb2mT8tZ3GHDPifP
7DMyh7TtZyjiD7845b5l0d7kP/QvfOKEu7GtcO/uHt7QxzF3yeW5hruCzGDE
kX1B38QV5vkLf1V71/2KDq5tS9yLfsi15TMe0OAKXEs/4B7lE8Zs93KKz2Kf
u5Up+6Tcc4/qq/qOPqKX9F39H9qSKag=
          "], VertexColors -> None], 
         Line3DBox[{1421, 1883, 2064, 1420, 2001, 1545, 1422, 2002, 1546, 
          1423, 1783, 2003, 1547, 1784, 1924, 2004, 1688, 1769, 1548, 1687, 
          1925, 2005, 1689, 1707, 1820, 1549, 1770, 2136, 1666, 1801, 1667, 
          1642, 1757, 1759, 1550, 1743, 2130, 1802, 1804, 1803, 1643, 1649, 
          1760, 1884, 2113, 1614, 1658, 1659, 1617, 916, 1616, 1660, 1661, 
          1619, 2114, 1650, 1551, 1644, 1618, 2006, 1552, 1424, 2007, 1553, 
          1425, 2008, 1554, 1426, 2009, 1555, 1427}, VertexColors -> None], 
         Line3DBox[{1429, 1885, 2065, 1428, 1886, 2066, 1430, 923, 1431, 1785,
           2010, 1556, 1786, 1926, 2011, 1772, 1814, 1815, 1690, 2122, 1585, 
          1774, 1816, 1817, 1620, 1158, 1613, 1645, 1761, 1762, 1758, 2133, 
          1806, 1615, 1646, 1764, 1765, 2135, 1696, 1697, 1586, 1647, 1651, 
          2101, 1930, 1623, 1587, 927, 1432, 2012, 1557, 1433, 2013, 1558, 
          1434, 2014, 1559, 1435, 2015, 1560, 1436}, VertexColors -> None], 
         Line3DBox[{1438, 1887, 2067, 1437, 1888, 2068, 1439, 1889, 2069, 
          1440, 935, 1441, 2137, 1771, 1561, 1821, 2146, 1773, 1562, 1805, 
          2144, 1621, 1840, 1844, 1845, 1763, 2134, 1622, 1852, 1890, 2109, 
          1766, 1624, 1891, 2110, 1442, 1892, 2070, 1443, 939, 1444, 2016, 
          1563, 1445, 2017, 1564, 1446, 2018, 1565, 1447}, VertexColors -> 
          None], 
         Line3DBox[{1449, 1893, 2071, 1448, 1894, 2072, 1450, 1895, 2073, 
          1451, 1896, 2074, 1452, 1897, 2075, 1453, 2019, 1566, 1454, 2148, 
          1838, 1841, 1839, 1851, 1455, 2151, 1854, 1849, 1853, 1850, 2150, 
          1456, 1898, 2076, 1457, 1899, 2077, 1458, 1900, 2078, 1459, 953, 
          1460, 2020, 1567, 1461, 2021, 1568, 1462}, VertexColors -> None], 
         Line3DBox[{1464, 1901, 2079, 1463, 1902, 2080, 1465, 1903, 2081, 
          1466, 1904, 2082, 1467, 1905, 2083, 1468, 961, 1469, 2022, 1569, 
          1470, 2023, 1906, 2084, 1471, 1907, 2085, 1472, 1908, 2086, 1473, 
          1909, 2087, 1474, 1910, 2088, 1475, 969, 1476, 2024, 1570, 1477}, 
          VertexColors -> None], 
         Line3DBox[{1491, 1628, 1063, 1490, 2099, 1921, 1489, 2098, 1920, 
          1488, 2097, 1919, 1487, 2096, 1918, 1486, 2095, 1917, 1485, 2094, 
          1916, 2025, 1484, 977, 1483, 2093, 1915, 1482, 2092, 1914, 1481, 
          2091, 1913, 1480, 2090, 1912, 1479, 2089, 1911, 1478, 2111, 1626, 
          1625, 1627}, VertexColors -> None]}, {
         GrayLevel[0.2], 
         Line3DBox[{629, 821, 1952, 630, 835, 658, 2030, 850, 673, 2034, 865, 
          688, 2037, 877, 700, 2042, 887, 711, 2049, 897, 722, 2058, 905, 
          1995, 732, 912, 2001, 742, 2066, 922, 753, 2068, 933, 764, 2072, 
          944, 777, 2080, 957, 792, 2089, 972, 807}, VertexColors -> None], 
         Line3DBox[{631, 822, 1953, 632, 836, 1965, 659, 851, 674, 2035, 866, 
          689, 2038, 878, 701, 2043, 888, 712, 2050, 1274, 1275, 898, 723, 
          2059, 1276, 1277, 906, 1996, 733, 913, 2002, 743, 923, 754, 2069, 
          934, 765, 2073, 945, 778, 2081, 958, 793, 2090, 973, 808}, 
          VertexColors -> None], 
         Line3DBox[{633, 823, 1954, 634, 837, 1966, 660, 852, 1976, 675, 867, 
          690, 2039, 879, 702, 2044, 1022, 1023, 889, 713, 1163, 2051, 1031, 
          1266, 1242, 1243, 724, 1169, 2060, 1041, 1267, 1247, 2143, 1248, 
          1273, 1271, 1206, 1207, 914, 2003, 744, 1211, 1212, 924, 2010, 755, 
          935, 766, 2074, 946, 779, 2082, 959, 794, 2091, 974, 809}, 
          VertexColors -> None], 
         Line3DBox[{635, 824, 1955, 636, 838, 1967, 661, 853, 1977, 676, 868, 
          1985, 691, 985, 986, 1019, 1084, 2115, 991, 1024, 992, 1205, 1125, 
          1162, 2126, 1032, 1067, 1033, 1244, 1167, 2128, 1168, 1042, 1071, 
          1043, 1997, 1151, 1046, 1209, 999, 1208, 1000, 2004, 1121, 1214, 
          1004, 1213, 1005, 2011, 1199, 1197, 2137, 1198, 767, 2075, 947, 780,
           2083, 960, 795, 2092, 975, 810}, VertexColors -> None], 
         Line3DBox[{637, 825, 1956, 638, 839, 1968, 662, 854, 1978, 677, 1012,
           2102, 1013, 1014, 1082, 987, 2100, 1018, 988, 1083, 1020, 993, 
          1025, 994, 1095, 1085, 1027, 2105, 1088, 1134, 997, 1034, 998, 1215,
           1170, 2129, 1171, 1044, 1072, 1045, 1140, 1098, 2118, 1048, 1126, 
          1141, 1001, 1120, 1002, 2005, 1122, 1127, 1006, 1123, 2122, 1007, 
          1202, 1200, 1270, 2146, 1201, 768, 948, 2019, 781, 961, 796, 2093, 
          976, 811}, VertexColors -> None], 
         Line3DBox[CompressedData["
1:eJwV0K1OAlAYBuAPBHVjo5oImIlubgYlGNjUgk4MBucoCgrD4t8mm0oisnEF
mChki3MWfwq3YHDgDVB9DM/e93znnHBO/rhRPk9ExA53yYi1uYjBQkRbL+kj
va9X9Gf9SZ/p76mIw8WIT/nBF9fcsGpelaecUGOdTfMNmeSMOrfs0mWPDE1e
aFCg6N6+7FFhiQveaLFtvy0vuSL3P2PIgb0t+c09D+Tp8MgKU36ZcOT8spxP
R6SoWqdl1ptf+fEHOTmmwB8D2iVk
          "], VertexColors -> None], 
         Line3DBox[{641, 827, 1958, 643, 841, 1970, 664, 856, 1980, 679, 1016,
           1159, 1230, 1229, 1233, 1231, 2141, 1232, 1160, 1235, 1234, 1238, 
          1236, 2142, 1237, 1161, 1240, 1239, 1241, 1149, 2125, 1150, 1036, 
          1029, 1069, 1038, 1049, 1143, 2107, 1142, 1224, 1222, 1223, 1173, 
          1252, 2130, 1251, 1255, 1253, 1254, 1179, 1260, 2133, 1259, 1263, 
          1261, 1262, 1182, 2134, 1059, 1295, 1296, 2151, 1297, 1294, 1293, 
          783, 963, 2023, 798, 978, 2025, 813}, VertexColors -> None], 
         Line3DBox[{645, 829, 1959, 646, 2028, 843, 666, 2032, 858, 681, 1203,
           2138, 870, 693, 989, 2120, 1117, 1187, 881, 704, 995, 2121, 1118, 
          1119, 891, 715, 2117, 1096, 1166, 1097, 1039, 1218, 1219, 900, 726, 
          2131, 1175, 1177, 1176, 1073, 1077, 1249, 908, 2108, 735, 1089, 
          1090, 1055, 916, 746, 1091, 1092, 1060, 2101, 1081, 926, 757, 1061, 
          2110, 937, 770, 2076, 950, 785, 2085, 965, 800, 2095, 980, 815}, 
          VertexColors -> None], 
         Line3DBox[{647, 830, 1960, 648, 844, 1971, 667, 859, 682, 1204, 2139,
           871, 694, 1268, 990, 2145, 1189, 1190, 1191, 705, 1269, 2045, 996, 
          1193, 1194, 1195, 716, 1109, 2052, 1030, 1070, 1245, 1246, 727, 
          2132, 1178, 1051, 1074, 1153, 1154, 2123, 736, 1210, 1003, 1075, 
          1079, 2114, 1080, 747, 1008, 927, 758, 2070, 938, 771, 2077, 951, 
          786, 2086, 966, 801, 2096, 981, 816}, VertexColors -> None], 
         Line3DBox[{649, 831, 1961, 650, 845, 1972, 668, 860, 1981, 683, 1272,
           872, 695, 2040, 1188, 882, 706, 2046, 1192, 892, 717, 2053, 1040, 
          901, 728, 1287, 2061, 1052, 1280, 1282, 2147, 1283, 737, 1056, 917, 
          2006, 748, 928, 2012, 759, 939, 772, 2078, 952, 787, 2087, 967, 802,
           2097, 982, 817}, VertexColors -> None], 
         Line3DBox[{651, 832, 1962, 652, 846, 1973, 669, 861, 1982, 684, 873, 
          1986, 696, 883, 1989, 707, 2047, 893, 718, 2054, 1288, 1289, 1290, 
          2149, 1291, 1278, 1281, 1279, 1998, 738, 918, 2007, 749, 929, 2013, 
          760, 940, 2016, 773, 953, 788, 2088, 968, 803, 2098, 983, 818}, 
          VertexColors -> None], 
         Line3DBox[{653, 833, 1963, 654, 847, 1974, 670, 862, 1983, 685, 874, 
          1987, 697, 884, 1990, 708, 894, 1992, 719, 2055, 902, 729, 2062, 
          909, 1999, 739, 919, 2008, 750, 930, 2014, 761, 941, 2017, 774, 954,
           2020, 789, 969, 804, 2099, 984, 819}, VertexColors -> None], 
         Line3DBox[{655, 1010, 1011, 1964, 656, 848, 1975, 671, 863, 1984, 
          686, 875, 1988, 698, 885, 1991, 709, 895, 1993, 720, 2056, 903, 730,
           2063, 910, 2000, 740, 920, 2009, 751, 931, 2015, 762, 942, 2018, 
          775, 955, 2021, 790, 970, 2024, 805, 1063, 1064, 1065}, 
          VertexColors -> None], 
         Line3DBox[{806, 971, 2111, 1062, 791, 956, 2079, 776, 943, 2071, 763,
           932, 2067, 752, 921, 2065, 741, 911, 2064, 731, 1994, 904, 2057, 
          721, 896, 2048, 710, 886, 2041, 699, 876, 2036, 687, 864, 2033, 672,
           849, 2029, 657, 834, 2026, 628, 820, 1009, 1066}, VertexColors -> 
          None], 
         Line3DBox[CompressedData["
1:eJwVzz9LgmEUhvHzqlFDgXODETQ7SkQNDSZEZbmY5RQUTZWro7VJUyAESX8m
P0DNEdTiKq3u0lBBS0PQz+Hivs65zzM88wenlZMkIjaQT0cMkJ+KmJOvWOBZ
+YQjPj0RkfAeVsx3mYgH3OMnFdG1r9rfmo/RxQ1Guivdqq5gzqGOfQx1bd0b
38MsauhgFyVv3t2cu3kxNzCDCi5R1u/Ivpumm22ewRqWdEX5rDvTlfmf3JKb
eLQ/NH/zRbdf8nf8P/ua/JyMuObr/INf8GXekv+9mSc/
          "], VertexColors -> None]}, {}, {}}}, 
      VertexColors -> CompressedData["
1:eJztfXdQlNnSvlnEiKusspgAMSEi5tiKiAldc9bFiLLmnBUjBjAiiopZMaMi
ogwqqIgYSIrEYYacBAMoGL93mGdu1ff+qpd97w+u3q/2r6nq6urp092nT59z
+jlvo8lzh04rU6pUKVutUqXKCr9v+8q6Hmkhp/ZXMi7qRvpQ4ncn98FxCvqH
/n+DngF6R9BTQJ/QR03fCfquUjsL6QUWavpmDzV9YZmdf8nPyf/Z7CCVni2i
J4Een+dTSF/hp6avMVTbIdviSxcV3Ta11qVCO1grC+llPK0bqOjd7adcV9Gd
fExuFMq5ERBzWKBf0u/qr6K3XVYv7K/4OfmsPoz+P5s9LT/cLKRvOZFZSG8b
vcv9r+xjWT5thKlAD5yuV72VQF/q9MxsnUCPnDx0x7VGcnJQfo20jPah2Pp6
sl1KBcWmUoy2jpzq3WvePzvOhyq1vGTkmaagV+DfCv4Y8HPyWX0Y/X+U/bl4
4PT3fdNlVIWmcqqT6HVDIdC9GoSsiZYrqEL3IN21O2OpTmNP7evmMjq6tMPJ
d45KutV4le2U/aFUvZrTVd9Rj6hg6/H8i1apdGvcgPy42cE0Y4X1eNmZVxRF
2kGldDPoBvgbgP8r+MtAvh7kn4B8Th9Of268JZ0/ufnIxQ9nz46Xni8fWO0l
PTm1+X5nj0SaeDd5/I1pKbQy/POQpNBMOmXeeM2iJ0/pSDfdIyvK3qdyCa90
3p/MJOOdaZ6XWz2i6Hzzi2O0/Gk5+IeCfyf4R0K+HPJ7Q34pxv6c/tx4iyv/
c+sLlw+5+c7FJ2fPPROnXF507hV9qVh1XC/TZNqW5xm/vX0SnQoY2b761jBq
eWBw2zW590k7Y2KB0aIUmgL+1+C/DP6lkP8L5G+E/BPQZzL0qbpNrU8kk3+4
8XL2kWpnbn3n5heXP7n5zsUnZ88rCce//Gksp+taz7I7R/mQ8rTFH9viFeQN
/iQXNX9+uppfC/IPQH425L+APl7Q5yX0iWH058bL2aek45lbj7j8yc13Lj45
e5qCPwb8EeBfBPlBrdXyl0L+EeizEPro/OB4Lq78zK1HXP7k5jsXn5w9V0P+
B8g3hPzP3f63Pqd+cH4u6XqDW4+4/MnNdy4+OXv+bPXGj66fxfOXy58c/397
/fzPfvC/i/7P+cY/9JKgG1/W+7OTdwx98C7/rOJkGVlUNd7YPkNJho3SNgSO
CqVVqx/empcZT+mnDL/YzU2ntqCfAz0G9AaQkw85VkXIyXzazWjV3EzyO9jk
Va3Ae/Rs6vzvu9Pv0QHHxkvs2iVRuVnXp1sFpVKnynu1VpeLoAzwXwL/Y/D3
hPxAyA+FfE7OUBHdCXRuXNz/cnI0/CfA/wj81pCfDPmBRdiNGxcnpzbkfIKc
/pBT0vEjy+jWr++dOMrwdlvX8I0PNat31t2kipL0Bz8zNdv6inYOWJW0YaAv
ZWxvcrnnjUQygp4foacl9DSOqWTyvl8aLTmWMNV2TCpNqbvV8Or5UDIQ2ac3
+M3Avwj848Cvlfuw7ew9YeSpN2dsufD7NNXLZm+5WSksfejRCvnHTmfQ8DUv
9lu2SqGJF64senA+mFa/HFup2eJMKhW2uf6C5X605Mmv9120/OiCc9rpGanx
ZOAeY7bYPJWCwk713TIqjhxE8TAI8SDVPpw+GZ+Xd7wVnUUevazSXusrSTf4
04ov24NYeg9lG4VhpRgKaVR/x2YHGfWY0O11j3YJlA7+MPCbgb8/+J+Dvwv4
J4vGtRLjGgn728H+nWB/qf7l7Gw7pf6RT4nCuFtcSwtcE0JJEyrlLMhPo2t3
al1p0C+O7jeaGJdQSUZD0if+OaW7ktV/DuRchJxoyBkB/qfgbw/+NdCnGfRZ
A33qMPNLanxyccLFlR30D4L+CujP+fEm7OMP+/wO+3B+nAf5jpD/EvI5ug3G
NQPjao1xafQpY6nWZzj04eym4U+G/t3Bz8UVJ5/TxwHzyBTzqCbmEUf3xjzN
FM3TrPfqvKH3mzpvrEHeUMJfLeCvbfAXN16Ozsnn9PnZ6oePV+bYP9oZTLfM
4lLrx4TT7yOXT6jqmE4fQH8M+lDQNfNLG/NrWRHzvaj4F8cP5xdOTy6fcPMo
B3IqtFbLGf9vjpfLS2vB3xb868CfDfm6+F8bkXxxvuLk5P+uXncOYN0pwLrD
jYv7X06O1Pix8TWxr1c3TPCfQ7bjxod013F5614vU6jv9aF7P+3JopeGOnLn
nonkec5/itzyKd229xx4vkcWBVUonTHF7wWVn2USs37oQ5Zu6aY1UOtJODXc
YXr5UuYdanyg5vyQ8cksfRzoq7ar6TqgX+6kd+9mRDi1ufU5Ijw1gd4ODOim
vSBVMr9Hjc6vDVZm0vLJi9zatfWnrevLTLNo5sfSL2Nc7TGuJ3+qx9UZ9smF
fUJgH6n8pqDXNFLTszRyoE9r6LNKow9Df4vxTsR4vTFejm4Bv1+A36Ph92vQ
fyr0j4P+HstTtGslZlLC8C4hTknP6dcBPTvNmnSfpXtBzgnIyYMcTj7H7w35
D0eo5RPkc3Sp8e8P+/SAfRSwz45IZe1ARRa96f+yTmyanLTOOlwP7PuYsmfP
8TJelEnHHL7UTh8j+MNvs/cvZf2o/fOve2u0jaJj3YxD3XNktHH+9LHW3xIo
obvf63o1Y2jAyzo+5oOFOvjjrGHXjippdIJ2q6B3ITSwuk4N22OPKd+y79hD
L1KpPKn5R4H/9Qc1vxX4HcGv1VvNHwD5FuCvB/ka/U9A/4wzav3jMN4hGO9j
jLcb9D8K/e2hvzXoh0FfCfpw0F1BXwb6TOhZA3qmY1wnoGd76NkRekr11xes
1wrsI+ZhvZ6FusICdUUX1BUfwf8G/IvAPwf8PcDfHvya+TUY82s95hcnn9OH
k8/psxXrZj2sm+809cyDabYmk4LJxMT2xPCbLymy8oWlg+LTWf4r0H8s9N8A
/V/A7wPg9xD4neMvt18t3xzybSCfk8PxV4f+O6B/BvTn/LsdcVtjgDpua2He
5WDence888C84+ZLVevskxGX06lyzT90nRNTqJZ+4zVVN4Sw9E8D1PQ6oDcE
3RN5pjvyTBPkGW6+c/NFah6Qqg83v7h5Ggn5rSG/I+Rz8c/lGU4O519uXZ7x
0WvtrJ0hpL/cYuKBJbE099L+m3PD09m8pLHDRNjBBHZIgz7G0Kcl9CmuPD8e
er5cptZzAfR0hJx1kCNHvk3D/47C/94T/e/fzc8lvY84Xb7qrG9NY2hVkNnJ
TfYyanq8SdrBJgk0GvXVLtRXtVBfjUZ+G4z8NgL57UFquValnaJop27Dtj2C
k+nFyvzyawOEeDtgd8mvbzCNCF8/MdQjgg65uA2drp1BOtvvDaj1LZMMbpyL
NasTSgXLp94pm3efeszJWf2oSTyNnl7V2apmKvmMu3Dnaxc5W5f2aN15Tp99
mWTsttI1t/dDWpXuO+XqNT8aInNaP6pcKLnn1c2Krx5P2S7ua1ZdSaeQxp8+
rn4YSmU+BQ6wvRJAYxfWXBZcL5Umwr/JIv+2ODupd+X4WPoytOzpdo1kNDJv
04HoP5VsPN9x89KprIigGctqjPFc4EstzbvNu/c1kdq8Tb+a8TGYdAI6+zWc
HkwPr6wKtHiZJjnvcfOFi8/XkGMPOecgh/U749+n8O8e+Pc5/DsccXIecfIr
4iQCfp8Gv7uJ/F4Hfs8rwu+94Hc5/C6D3y3g987w+zr4fRD8fgh+z4HfI+D3
rAK130fA72mz1f/bD/9rOF79vxaQMxhy3kNOCuRcgRyrIuR0h5wukJMLOZmQ
cxRyLCBnCPzoCj8ugR9bww6VsF9Igh1Ww1/t4C8D+Ksy7HzXU23nCNjZEnY7
ALvtgt2qp6n96w7/HoZ/9yFO1iFOWiJO+sDvFbCPM4Dfn8Pvt+D3S/B7O+hf
GvrH/k39H0L/KJH+TtDfCfpzeVgT/0sQ/2cR/9oY7xmM92gR4+2P8b5FnDfA
eEMw3nMY73mMl8v/hsgn35BPxiKfuCFvzEXe6Iy80QJ5wwN5Ixx5Q2qefwJ9
ekOfSOjz8FM1qxXN5BRcrVWOk8A/WSevdhe5gp6vGLWteV4c3RnYcVj1JB+q
9NH+3plcBVW+OHheiw8xVGZzvaYzh8volHmt5+eClXSLOW8vh/P2fTivyMV5
xS+oD2ehPkxCfcjpqfH7cvh9O/wuVX+pet5m+GuAfw/4c8Cvi3ENxLjkGFdR
et6FnlrQsxpjZ25fUFx6cnV7cenPrfslvb5LzedcvpKal7i6gsvzUtcLqfUw
V89IrVu4dZ+rE6TWAyW97nP1rdQ6lltHpK4XzRm/eMMvdvCLGfxiDr80g18e
wS/ceid13eHqRq4OkVpvGIn0GQN9TkGfOdCnI/Th6hOpdYhUO4cd3XC4Zd4L
0ks21Dku96WTvwWeMQhJkqz/Y8jRh5yzkBNpG7lqYnYcTXk9O9Ux2YdSTGIc
dn1U0CCM6xXiRx/jujf07pudWSnk+jakeY1LqeRruET388swdl3m1tmW15v5
b4uIpuPzhqw7s1dGdd/Zur7pn0AXoKcB9PSEntdBbwi6B+htbc/ZBOrKaStV
an0h1oea3xn2e/cUBXW94HPxYZc4er/kzMSwKjLSHvNsor6lkoL2nvrlYWIW
6Qw9uO4Xqzh6rNstZty5QFbOW9NGtVeVl9Pbl5XClyl8KHLkGEv31wpqC/2P
QX9d6H/cUOmo6nOb5jI+XFX/uE1a915V/zzzc//VXqA/z9OJ0xfoX3qf9B4v
0PtW8XZZ3FROw16GUKBAP77YKOS8sK71mDnasmVeJCkqDNiw6quMXGsYruxR
N5FmrlyvHC/I8V3eK9xI4L+3/Fm3WYKcNiL9m0F/xaxXzxsFxZHejHUOm177
0OtbTmvrVFRKlrPgSkyTnN1xZDl06EVFgQ9NH3fc2bRB0XIcRHJiRfpkF6EP
55c5In1mQB+Ozsk37WN3ta9Af3bOsVczgT6nSkTSIoHeD34ZLvJLccnh7MPx
/2z3v/9uf2mHv9mfuQX0QaDrFNE/H2Klpl8G/Wkx40ekypeqv1T7/F+lv2Ho
0xuo6WO81fSrOmp73q+5qJB+feenQnqF95cK6W3+CGmrosc5ul8u7HdtmntB
Re+eG6Orol/a1/2Gim4UHuT9V/3JHD8nn9OH058bb3HbUxxXvZ1vFdL79VH3
pY9squ5LrzmSqqjoh+L33iy0Q7NRvoXntG32zlwo0Jcuqx7fQKA7rjvqPFmg
nzu8fkqwkK+W995r76myw7VjwzYK+Wr5L2b7jzSQ07jVhhVvRwt5bJ1Js8UJ
PN6K4+fkc/pw+nPj5ewj1c4ntdX0NJma7qIHnMglg1KF/equ3W6r6HPrOPir
6L8Psz8YKuxnE9cW+KwU6HlPlrjXFsZ1a6DO0XCnOIqMcXbe+cmHLiuW7NjQ
UEnus+xcZhwMoX2bO415ER9EQwY3XmxskEZVHz05MapKNI3oeGDpb/dkFGB/
panrcaH+P7BrtbK0nGq/f3Whl1Kwg31tjzY5fB3C6cmNi7NDpsiemn7y2ZYm
hfRxY7QL+/nP3HpaSJ9yuFXWKIFebtTojMYCXZH3YsIcgX6m0RivkRPi6E3v
1Crzy8uo8oYydrfaKcmzYbuN5U8K+9y4GkGXaz6iE2ufN+9T1p+W+q3PDk5R
Ug9F8+8ee1Lpg+uzO/NPRtG9wB6ZVt7hZGAYctJn/l2qOLVWZu3Zyf9PnaOp
Kzh9OP258e5Ev/0G0Fcg/0cdcDdW0cOsH15V0YOty19T0fv2nLfBrrGcZn9N
3LYwSqgb69rfyo9XUCNRnT8OdX4/F7usI0PDqalWH/OdfybQy4Q/FjeIT6XQ
rJSHnnuz6Kxe1y7W+ZHU3NLzckBBAJXXn9nzeY9Iqj39SJ8dNsl0rNbyQOf7
idQY8r9C/mjI1+gzC/ochT6c/tx4b/ZS0ydgPW2E9dS4brlcVb495ZcqU9Ef
RN96pKLXW7zgUOnf5BRu0Xqpb4wPdep3M3lOkoJ24VzUHueiZjgX1Q0sbe3l
H05N6h3PbNzkLpXJSh2lNTWZvOV5te6+yaDDEedGTM5PJoP4+c6VewaTc1AZ
pUVQEp1Z3Wq+Y2Aq7elc+kPUoJfkIjp3NYF8Tk9uXMXld1P4twL8mwH/hsG/
MvjXHP7Vh3/rwb9O8K943z2mmP1bXPP9JOb7W8z3qpjv1zDfzTDf92C+H8J8
7435fhPz3RvzfSrme3XM92OM/OKa7yW9Lvg2jexwzSGEwurc7+j02xNqce1M
6zNmafQtQJ3/RyP/P0P+v4F1JArryBWsI5z84sr/P6oOOc/UCTmGM0rn15eT
1q1Sc+VCXeGxOa2hLIHn/9nqin/q5P9MnVzS+1xuP8jtK6XuQzn5/+wr/6H/
/8TtDtCtQa+GuDIH3Qb0dkWcb3D1Q5bE9fRnO5eYgXw1WpSvPKzU+a3vRnV+
exCrzm8eU2zaqei3Ex0K82HIHK/CfGjqfMRMRTeP23dFRd8YfO/SX+UB5elP
Bip6E9t911T0P8sdvK6iV0LdMh91SwjqljK11XKO31bLaaz7Y/Oq1HrAdm3P
wvX33TT1+lul68jC9ffUSpMzqvV62VFZqGq9Prz9zErVep0WpLPLQKhzchpX
73hCoE+xv3LJRljf1+g9iegvrPt6M7ueCRXodx7rG/r+xXsInV73iMgxkFO2
e2Pd70KdXHFb9B0tpYJyzXpq9Rf4p18yyW8q8PuOSR6iOu99GBT9XSXn+oyB
hXXUh9QzhXWUzgf1uEqbq8cV9e0/g1vn6rfyz9T13rG96npPt7K63rN/X/BY
VR+GWAy5WlgfrvLYq6oPX2ulXdXZHUcvG8ycoCPUk186bFnn2EBJEbdPHhk4
KJwWvas13aWNH4WErGha4XEyTahVziPROI5Kzz33cKaOjKb3zzldfaCSenUc
27+eIF9RNtTmpCD/44sWbyYL8rl7k/pL1HYzHKS2m0e7f6++4ur2uaI6/zTm
y5q1Swv3BU8c+hbuC8YaexXuC94t71vgKOwjEhsuS5kq7CMylp6/fVzYR9h5
fbJ5Z5dFnpu+OfikRNDprtMTyjcPoKfoJ7FCP8mrIvpeuPg5Dj9mwI8Hi6jD
uXzb7aB6f+eL/d1p7O8UuuZOqv2gbMNmB9V+sGFIkqdqP3gVfR2v0dfREn0d
boNqDno8IYpcs2tW7nI3mSZ+2FW3QWYC29fN9Yc8CZitVNnZM+RGlsrONjR/
8py/yGOcH7n9OOmp9+/TsX8fgP37poi3fwQayWn4gK9mLsJ4d0/f1KG7QkFe
y5P7D/N5QRevjxs3JtOXUqt9GpKdlkSdcO/8Af0AYbh3rivC9/UDvu+ei9rO
NQaq7dxn4F/vozk6J8dycXvrd0Ie8/jl2ouLqvr5pM2ExUL8+Aweoyj3IYRm
7O1nZXNHWE8cJ2ckXk8nb+Bc7gHnUgY4Kc4+nD05+3P+4vzLxcPmKZ+n6VfI
oo6/1q171TmUbmyb4ZvR8IGwT9h+d+rBNAqatOnsJKtUyhvq+PDk9NB/9VNp
8JLNIUcczw0Qz1z8c/bn5hc3H7n5y813i319bfLqhNBCd7uE9S+E+WS+SRb7
MZ364f79G+7fG+H+3e+bwRmT4bG0vqx5xTsko+TdIev/OKuk18hLSchLWchL
XB7j8p7U8w0uD3N5m1tnzy0uZzl8SxxNe/Xdud0XH1qiV8/0tqGSvn3c87tP
bhxF7Yx91CRJiKsRt2dF5CooA+tRBNajr1iPxOvXB6xf3HpXXOcbRdXV4vWd
qwe4+OHqjdjG0dUdVfN07bguegJdL3O4yyiBns7UP1y9xNVXP+p8Q2odztW3
XF7i6mcuPrn6nKvnufqf2y/8t5xvcHRuH8flVW5fw+0ruX1oSZ9vBCHfrkW+
VSDf1t9TIUI7O4a+D5t/2HykjKJtM7Y3Dlf+q+/uvajv7jzqQDPUgXmoA28P
W91kaUEw2Q3Uj1thFUzJtkN+2RKWRt+3FbwfEB5LLcM7RQcZyqj2kXWbE+cp
aZBvdtBU12D6vOO+6fk54WT9+dnpISvSKaLs+GGrrEPItHpQ6xsF0ZR1zvFB
ubR0uoN18xHWzSysmxzu+AT4n4G/3DA1/+/431z87wD87w3UFQ6oKzKBn7VA
vZSEeskf9VIc9BwDPTOgZ/8xA2TrDgeTovWij3YtIsnH9Pvgl9Uy2HryGfS8
Dz3jMa4kyLeH/FTI1710Y7b5qxhafXT3io7jZJTXoF6zN7FKegD/2sO/ifBv
CPzVF/56AX9dg78K4K+38Fc1xEPZ4ep4UCIeiisOvzPr4GTss0phnzUF+6xq
uBceLroX5tbZKOZe/iL4p4J/MfintL/s/G5pMI384JZ77PkL2rZn1gv9m+n0
CPcvbwzU9y+lcf+yQHQ/+w33NYtXOOW9/6KkO5b+WdnOqVS/XqM68lVR5MPU
hzeZem9Z4Fiz9Nxg+pL+NPKtcRRNfm0S1K10Bt3ddPz1c0UWxf66tWG9ZDkd
Tl14Ylyfx7T4xaGXv7zOpD/HlXtzIiCJAmw+LGl29hl7f7oA/PPB/wT8F0Xv
uybifdcen5wf6n6PJ60RBT3ntk+lmbNO5w7oEkf1sV8owH6hL/YLHH+dOnMH
XTdNoK2KwRc6HBHs0+fgHTNhfLNH9w4oNz6LmlkqXZf5J9K2kR0mdbv9lKb2
KR1l+C2EqiWnZ0YsfUwpjWZu8g9KJQ/RexdD8a7FXPCnJKn5Y8HPjUvzv83x
v9vxv9w+SBf0z6L3TxpiXNswrmoY12jYoQrsMBB26I58koV88hj5RLOv8UL+
+Yr8w913z8N4kzHeOIxXc6/qD7+3hd+9RO+BDIbdVkDOHcgJgxwzjGsHxpVr
pR6Xnsg+Gr9PRVztQ1xlIa4mg+4Cejbo9xDPJxDPmxHP3D7oJObXA8yvYH31
/DojygNLRXmgvigPjMd8P4z5vh/zfQzyT1nkH1vknx9Vh7yzHWZwqVcC9XWr
n9PvWCo9vZDrfqp0FFVBn8AM9AlUQp/AZVGcJyDOv0BOf8i5DTkFoPcD/S7o
dpgX5pgXuzAvOHr5GWo5AyDnPOTsRB7rnqHOYxORx5zQ//MO/T+26P/RxL8M
8f8d8e96vl3Ql9As0h6TeWhVI6F+ses+tXOHQLLGOl7TUb2OD8Y6Xrdf6r3b
puG008P/wOxTfjT4bKf1dknJZIF6xgT97caoZyaAPht1Tg3Qn2Hd7IN1MwLr
phnkE+R3hfxrWN/9sb7vx/rOnQNsxbjajFaPqxnGdQV26A87hMMOGlx5F8hf
A/lXQb8E+m7Q34neLbkJ/eUifHQg6JugZ1Po6QE9d0PPg9BzKPTU1F1O+N8d
+F9NHeUC/d9Cf0/Q94CeI6IvAz0JdI3d+kCf29BnL/Q5B31GQ5/2OH8ww/mD
G84fdhs6TjKrHkXGC73L1T+dTLFVEmaEGSdSpKfRjW+RaTSt/MqyTTqkktXa
kauamoWShUHo3rq5KZS/Rd7A4kIqjTs3wGhzcBg9wnnUeZxHmeI8qqKx9vZL
lUMoe7pJ0pnEp5S4Z1P3gCNpdA/8m8DfGvzlwd/VVs2fAf4D0LMZ9HwFPS/h
HO8KzvGycI53McxzyboNYfRqy/H7Y7Ue0Imcef0/Lkuh26JzvxTwnwd/LPhP
gV8L+pyD/nHQZwrORbfgXHQ7zkUbwD6lHNT2WQn7TEZetUFedURe1eT5SOR5
V+R5zXx5ivhxQfxo+M+D3wH8vqjH2qEfRhv12D7UY5aoxx6gHtPkeTfocwD6
zMc64ot1xBh1WvZv6nW2KtbZa1hnNfPrJPTcBT1zMY9sMI9uYB65Q/5DyH+I
dWoBztVrbFafqz/GufonxOFExGEzxKGmP/AA+oVOoV8oBH45D790hF+M4Zfv
iNtF8IvmvaCZmF9yzK9ziBMPxMlrxMkpxEku4uQ84uQk6Pki+g3EeV/EeVvR
vMhFXCUhrrj8oNkfzYWdt8DOvngP/wXew8/Fe/jid880daAr7HMQ9pkM+3xv
pLaPFuLWGfYh5I3JonPLYZiPNTEfK1dVz8ff0c9min62UPSzuUNPfXw3oQK+
m3ARej6AnsOh5x7Ibwr5MZjv7SG/OuQnQ/5g1JOVUU+ORD15EXLMIOcR5MxE
vJ3CPY4b4s3ohjrehiHeyiPerGEHD9jBBXZwFukZCfmnRO8eNGHePRgJHHpv
0bsEXniXYBnk14f8HMjncHa7Krxyi10ZTFGRrUafOPOC7vw2fnRbj/R/0Z+B
LgOdW3e2ifonj6F/0n3UrH0f3RJp/K3O+uWeCvOo7p7vtWQR5IrxrhH1Vd5E
f+YR9GcaoT+zC+r8t6jzn6POXzvvfu3PL8MptPs1n1lH7lDP+lZxg4clUzbe
PegP++jj3YP14PcGf3fwt4f8b5AfDfka+hfQI0V0Mf9l0XhnYbyr4Mf28KMR
/DgZcWWNuFqNuCqHuBqLuGqEuNov6kc1hd2ewe9d4PfL8LsiLfj5SOdYWpVV
tpVdaxmN+Dx77/ztQj7F/ewV3M/KcT+bZrCjxfb4KPJMrvQ997GMAvZO2vjM
M4FuIT93Qn5OK+K+0lqZfm1xn1hqPnHP5a0WMvKq2G1v2EUl1WbOW0yq5CwI
bxpBXXfYx39x9SW3eqU69bFOYu+DNqEeNkA9bIN6WI5znj9wzpOGcx5/g4rB
HYT8bKw/+l7QikTyLe091+JSCs3eo5c7MDWTQqdO6HFiRjDds5E13LzsPnsf
vT19VWaZ5nLqPfRd4jyB/muL7xtLCXRNX72uqK9+IvZBZUT33dz9RalH/7tv
8ynOZ0rlq/mjRfxifXShTyDG2wLj9cJ4vWDPLNF+8KaI3gJ0B9i5Kez8B+wc
DfntId8d8sNBNwf9Muj3ESfPxffaDL2fKH68ET+1ECc9ECfuiBPCfEzHfAzA
fFyJ+f4G890S812TN8JEeYN7F5G753VGnjyLPOmFPLkfdFfQPUE/j3WtDta1
8ljXniFfWSJfWSJf3QR/GtbrT1iv0zCvV2JeD8W8TsC8tsS8foB5nSWa1w8w
ryPQP7wU/cO10T98Fd8ZGYLvjETjOyNc3n4EfifwvwJ/P+S9cch7dsh7mu8o
2TLfUTLDd2Ri8R2ZqZDTF3KsIKcC+JeDPw3807E+ToQ9nbA+ct9pcoadbeAX
XfjFCHKGQU4s5JwAf2vwVwY/d97F2e001osJWC+WYb1oKjovKo1zsAui9WUe
+PWY80MDrPvfRes+dz6g6avvjDp5H+pkbdgtE3b7ArvVgH1+h33yYB/N94BO
gP8N+Ln3lrnvB2nWr9Wi9SsMcb4WcR6GOI9FnHsjzp8izhMQb3GIt3DEm/hd
xI6ad6XAfxT8EeDfDj9ugB/N4UfNd3luiL7Lw83TAujpAT3vQU/uPFD8XrQm
roa9ddnw4G0c7a437MhzYV3I33351G8fFGSEc5UZOFfpg3OVD+7vhztkxFHn
L+GR01J86PzsryvbFSioiej9AQ3eh+u/MhLhgzT4kd6i/pOK6D8Z197ar4Ox
nMwyPe2sonwoRruV/7F4vt9mPMMf2etI13RhvXBosm3rEtU96cf8zZXlfN8L
Nx85+Zz9uXcVvsxwa1RP0N+5z85XMkGOc97mw1sU/P17tgh3cAW4g4OIq7Wi
/MCNS2y3PbDb6CvxXW4J9Ek5bTe5CvS9L554Wgp0WbPdRvGC3XbRFb9lKr/0
XB1dXZDD6c/edzN4du57SRq6vojOyflR58NS8XpScV5S+2d+NjrX18H1yXA4
KQ5HxuHpOH5OPqfPj+pLkdqvwvXVcDgsDqfG4Qc5HCXHz8nn9CmqL+g/bWcO
N8ThtjgcHIc75vCJnBzufzk9S/o9DQ5vxeHdOBw6d7/PnQNz50Xc/Sx3Xs3t
uzn9ufGW9DskHN6Ne8eA69Pg+iW4/gTuPI271+bO/7lzCQ4vyY23pN9v4fCG
GrxnJVHdxe1/ufsC7ryau0fmzp+5fRZ3n7uMeQeDG69UuxXX+zYcXSo+tKjv
L3PnBuJ9PbdP5+73ufOWor6/LN73Sf3+MmeHkvZLSeexks4PJb3ecXj5kl5f
flSdw72H8KPqmZ+1rha/j8Htuzn+//a6+p994s9J/+cc48fa7Wezj9T5yOG/
OHwchxPkcHAlPb84PBeHd+PwrTM9H3iqzkm2ah2brzonWVEmLlp1TsLh14oL
r83hiDm8LYcXk7oucPgyDj/FyeFwVVJxQBwO6yvOq/fjvHofzqs5vDmHv+Zw
yhzOl+s75XCa0an7WmbkxVGo0V2z5EQfmjbrxZHhufy9AIcj43BPnJ05PCCH
u+dw6By+hrsH53CpXJ8Dh0PkcHMczovr08gEDvQVcKDfgAPlcI4cLo+r27m+
F65fhcNRcrg/bn5xuGmp853Dj3P8HK5NKu6sKJxXAnBeMuC8OHxWPnBwpsDB
1QEOjsPTcbg2qTg1qbgzDi/WG+MNFY2Xw6kVF46suPBTxYVXKi4cEIc743Be
HE5KKp6Iw99xODIOP8Xh6TgcHIc749695HBJHJ6I8yP3ziSHb+LeY+TwShxu
iMMZcfcF3L0/R+feh+TwUyVdt9eCnl+gpzX05HBMNUT8A8EvFZfE4QQ5fByH
U+PwZRzekMPTcTjEnTgnf4tz8uk4J+dwiNx4uXcyOZyXVHwWh7fi+q84XBWH
z+LwU1JxWBzeisNPcfVwSeOqOHwTh5/i8E0cPksq3koq7kOD7+jzN/EdUvEp
HB5KKo6jpPEOHI6Dw8Vw+BQOb8XhnjgcE/dOuFQcFveuONePzeGnigsnxb3/
zPVpc/gmqTgjDvfH4fuk4uPEuLzUInB5HD6Ow79IxQlyeMldEvGS3Dv2HB5H
Kn6Eey+9uPqWpfbhc/3zXN+sVHzZ3+2H1+BcpOIKpeK2uD55qf32UvvkObwY
1z8vtR+ee1efw1lw+Cyp+AgOZ8H1pXM4LKn96lw/OYfPktpPzuFQuO8UcOdy
XJ0pFV/AfQeBw1GeF+EoAxkcoqaPevOGxOyPTeWk826tywVhH2R/v8r7BXIF
dRN9r60SvtfG4dE03/XbgO/6ORbxPVYOpyYVd+YhOp83LWZcVUnjpzh8Gfcd
GQ53xn1fhvsuCfc9Cw6nyX33hMOZSsWNcutOPtaLayK8xiv0jy1E/1gt9I9x
36coLjwmtx8pLhwr9/0XDt/akPELh0sqLlwPh38ZjP1vIPa/etj/SsWfSsWT
cviadshjechjVZHHNPvWDahLt6Eu5b5DxOFxOPqWWYs/fRbyg1PgWbsFAn2r
27E1ZYV5uu1+RZ2QaoL83Rsf/yn3oRHthwW6pyvo+4aKLQ5nvKJTd1vOqdPR
l6Y28li8bnsie28Vg3uuMNE9V4Vt+tv2D4+j7XF++ydUlNHxUdo7lndSsv1v
nHyubzNahCvRQn+du6geM8Y6xf0v9x2Qb1vV+jtC/9PQn8PjcLgkqfijaKZv
kMMHcXgljp+9fywC1yPG70jFYXH4I6n24eRIvefi7k+l9pV9Kl3fTtU/4NVh
8S5V/8AEm3EPVP0D3D0dJ5+7B+TuDbn6hKtzuHtM7t6TuyfNZt575+5nuftc
7h1+7v6auwfn7s25/gGp7zlz/bdcPuH4uf4H7v1tTh+p/Rhc3HJ9I9x85O5B
uPeli+s9ZK7fhutX4d735vp/uH6hku6/4vqjuH4qrv+K69f62fobpb7P/6P6
D7l3eruBPgj3Mi1A17zTayt6p5d7L/cx3pVdh3dlE/CuLKcP944r904j914f
9z4e9y4c904d9y4T966U5p23C7jvaIX7jsWid4re4nyAe8eGe0eCe+eBe6+A
w/tz77pw/Uvce0rcewtfRThrTd8ah3PhcNkcvaTx1Fz94CDCa9TAPC2L+XsS
dK8i+mZvQU4v8H+G/JwflK+4ddMWddooUZ22tYm6jjLYrq6jGmSo66hrNqUK
65+Q70cK658hzvGF9U/tqA71VfQeNseuq+hTp568oaJz/e29ap0qlH+29JtC
+Q//OFgo36StWp9H19X6PNEq3nfja+b1KKw/x29U158jl6rrz9MtchxV9aHl
hxqvVPXh44bam1X1YWCboIJ8of73bBc6XnWOV1DXfZ3qHC/t7UDHEYZyooOV
bqUJcTt15V7jOAWPR9YZdKiwrrOd4FxY18177FdY11m29SnUs3KWWs9lS/69
8fbzGKl02xVHJ5ZFHmou1LFZO+p53RHqWO5/OTtL7afl/MjFObdP4eYLt24O
BD7iHeqHKtgH9fk6PsDFWMXfdFBrwS/+h5+4LhXqpX2ie9to5GGOn4tnLg9w
4zrnXTZZVact/5qZqarTtoem2qjqNNPNT9YGO8bRnO/+AYGCv34LGV7pfUMl
VX3oLPf0DiZnp/2tczqGUeev8vehlukkw/obiPU3G/14JpAzF3L0IecxE7fc
/OXyXuquTL1dwr6m1oVJBttU+9N1zrdbq97jYtZ9K8ThScRhNuKQm19cnuHy
Mzd/uTzGxTPnF6nzjotDLu9xcrh1ROr/Ftc5wEb77ytU+46YGnd3qPYdbVo3
8FXtOzi7cfI5v3B+5PzOxQkXV/1EcajJh9z5IRf/3Hzh1oXWonmth/nYibTm
X14XQmcWHg8w7/iEFD7OnV07pLHnq5ydufzD5Ssr5Lf1ovymZM7tNe8MN0ee
jECe5Pi5/MnFZ0l/P527X+bOD6V+91xqXcetj9x84dZlbh3vgzg/Jcq3Uuc7
V4dw/8vVA9y6w81TLg8UV33L2ZPzCzePuDzA5SUu75U0vpWLQy5uuXzC5cOS
xn13RZ48hDwZhzypoR8R0bl8uxl5zBB5LKmIPNbj5rOtreyyaNEut5qRsRH0
ZdSbB0bGAdQL9COgVxmtpv+KvvT66Esvhb50K/AHgF8f/AnM/5qI9NfUb5x9
quF/bUTvcmj+1w//q4f/5ezG2ZmzgwXoB0DXhnxL0E+AXq0I+1RBfeuC+rYL
6tvbou835aC+1QL/A/BbgN8d/jWFf4PgX1+czywUvauvsdtE6KMFfbZBjhHk
KBk5mu9LbhH1q5xEv4oP+oUOoV+oPvqFZKC7/k36HpH8/ZDP0Q8w69oZkX2e
Ylxz8D5wLN4H9sf7wGlMnc/tU7h9ATe/HET6H4f+nB04ORz9k+g7YrrAT3H1
lXg+Di+inhmD9xAm4z2EfXgPQSr//wDqQlAv
       "], VertexNormals -> CompressedData["
1:eJyFfXlczc/3fxKyvO179rd936Lldoc3kb0s2UlZ3/Y1ZCnZiWRXyJaQLZXS
7Q6yVlR2ItlStJCQ/VevOc8Xd36f9+Prn9ejY+55nTkzc86ZeZ3nmbrO0/uP
MzYyMppgamRUOP852f1O+l3bHyF4Gin/3rGlf49YuHfavbCKd86XPtfsURjo
R6aGdPRPHhXe+MxYr3u+48JBd7dcvOzFgK0R/XxalJ9wZH8E6A13T3cMCXQ/
N7DjsjKLp28+B3pi47fetu3rRE5Y5Ru1YLgmEnT7R++cjxnPjvyp9/k0aL+/
Stc8iYtPHugRXjHxn4DkgRdU+mnR3tqZG7Zv2kThb11+tSH/ACGPVZYsj5Ui
v+WCzYby/zVD6a/FgxDD/raur+inwytJP6TH9rI+oUfoFfQex199Llf8SDie
oBuHTpm04m79c8YBoactjZqoctaf92VY4TYOke3azDNdcX2o2i/H7ZsmdXVp
rRuoPDvpQO9d9sVTnn5JN3XHnfi9o56q9Ap1i+zp4lw+yvt0sanjNltHgd6x
dOUsT+ta5waZf/ZKTh+q0o1Fexu5fbrgrxm/05B/sJBHEyrJc0TIb23c1lD+
3mFKf602HTbsr9VJRS8WmpOG+iF9dpD1iXmJearKT3qEXkF/VPa4tWP09kg8
1Xm11L1x/5mhOr+9/sEBN86p8i8d1CHQs8XKKG33FqW6uPmoeljeZFClbT3L
6p/NPrrLemR9vTpPjl/tUL3LAP2sHQsupVSYr3/0q+BfNltlFnjGb/TwyMxd
Lfh0r836ZT8Fvator90ntb8p+Gu7zTHk/1rIY7NTkue4uyK/5rG/ofzjyin9
tJ5YzrC/G4TerfqFGeqH9Gkh6xPrHOsedMxLzFPQoUfoFfR7CRe+LWpzLQpP
0D/W3l115bxV+l1NF8UG221U9bO8YY2eJ0YY8WXKsyy/M+z0zwJ6HePMrKDD
5ryq8hzEp0Se/+tnPr3WvDY7y2+20K08s/BhbKUpPP7ui6AP+fTmoj2zkNqH
Cv4sUuI/v44ij3ZAM0N5eiQqctv0STSU/4HQu+a0u2F/fwn9WB+X9EP6tJT1
CbsJO6rSaV1h3YOOeYl5Cjr0CL1CfovUyjcut7PgeCb8dS2sgH6yiN7CPn07
/2f5hqbfs/bx2bUOfdHlZbO/Dy0pU8jjLL/3bU/sef9Evrxojdd19maxCs8r
THZffErnylc8S+r6mF9Zcz9lXWgGqynasxRq70ntswR/tkDiv1PIwfZJ8vQR
etcurWMo/3bRX5ssqb+Vdij60VTbYagf0qeVrE/4Ifgl0GE3YUdBxzrHugcd
8xLzFPMHeoRe0V/zs91P3S/3iONZqcX4ui0av2G3KievPVDuEr+pPO9wv8nN
+5fKy2RXdzhvcmpzQrOsfu++1zslsjYn2h4/m5DFNon2bA+1P0zttYIv60H8
SxP/1UIeVrGooTyvhfwsQ5L/iLA72oZNDftbZ5eiH83Mcob6IX1ay/qEX4ef
Bx1+BX4JdNhN2FHYQ6xzrHusX8xLzFPMT+gReoU+Xf/ZvWBKkyT1ub3Z6niX
Hems1cyDgxfG6DS9+o6cf2Z2AhsXMbJWaEYWGyna8TnUfi+1nyb4Mzfif4r4
m3xX5GGTSJ7FJM8qIT/bLMlvu1PprzZJ6u/dYEU/NlmSfkif1rI+ESchbgId
fh1+HnT4IfglrC/YTdhR2E+sc6x7rHfMS8xTzE/oEXqFPms3rbyrXuPO6rOY
160pBe81E+35xxmi/WRqX7yBwp+f3yn41yb+gUIe1oHkiSB5Koco8rN9kvye
vkp/tSNrGPZ3agdFPzaeZQz1Q/q0lvWJuBNxqDyfETeBDr8OP4/xhR+CX8J8
gN2EHYX9xDrHusd6x7zEPMX8hB6hV+hzMLXDM4DaM5rPVsRfR/zL0Hx2Jnnc
SJ7DNJ/9Jfnn0nx+L/UX8zlZ0g/p01rWJ+J4xPWgI+5EHAo64iTETaDDr8PP
w77BD8EvwR7CbsKOwn5inWPdY71jXmKeYn5Cj9Ar9DmE+OJpQvzPkX3uU9RQ
ntqNhH2u2chQ/q9kn0c3NezvQ7LPL8oZ6of0aS3rE/si7JNARxyPuB50xJ2I
Q0FHnIS4CesLfh1+Hv4dfgh+Cf2F3YQdhf3EOse6x3rHvMQ8xfyEHs9J/Bu9
FnLgCXmKNhfxRuG6hvI724l445GjYX/nU7zhusNQP6RPK1mf2Gdi3wk69kXY
J4GOOB5xPeiIOxGHgo44CXET5Idfh5/H/IEfgl/C+oXdhB2F/cQ6Pyy1x7zE
PAV/6BF6hTyWt4TceKr63Cfi5+Yehv0d307Ez7tcDfVD+rSU9Yl9O/bxoGOf
iX0n6NgXYZ8EOuJ4xPXq+FLciTgUdMRJiJtAh1+Hn4c9hB+CX4J+YDfnSu2x
zr9K/DEvMU9Bhx6hV9DrlRf9xBN0x0CxH8yR9EP6tJD1iXMQnIuAjn079vGg
Y5+JfSfo2BdhnwQ64njE9aAj7kQcqo4LxUnwM6DDr8PPgw4/JLeH3Xwo8cc6
ny/Jg3mJeQo69Ai9quv9lNALnpI+O8j6lM7r2qvr3fC8Tm0vndep/KXzOnW9
SOd1qpzSeZ3aL+m8TqVL53W/15HheZ1Kl87rVLp0XvdbHsPzOlV+6bxO7a90
Xifrs72szysN8jR3qgVwPFct3XMh/F02O31Q6zQpO4EnTJjof9LyMU8KS++6
YOZbdlbQWTrRbxHduKHye2ba0JAPfg9+4JNwd/s745+HOJ4ue0c3fprf/qL3
rlLuDjFsRcbs4nWiXrDQZ3/v/tgvjX2/pbRjxW+L9hOofa7gz+KIfxzxx+/B
D3yIzg8KOg8nOvqD/qFfeB/ej/fi9+AHPt4Joh2ek6m9yUQDOdk14g99QX/Q
G/qj9o/a4/fgBz4O9Hs8VxCfqfZ93KNOvgnDE+NeKn3H9ayQj6F3z7j1MW6c
Gwo6tevwH+3N5fYjbNum1po7h6fbvxrz5ckq7jOm19TB+XZ76CiX49tcTvEh
yvM8t3jvdNX/WDbLOfvFpcsJD55Q6GPWx3cn1Hnyq8O4jDf/nOenly85fGjA
S97gr4t2iU5p7KVozzKl9s9FexYstf980CPUb9Yl3r708+ddNl7nY8te/rwn
O4vhb/w/6BkurQt7T33Au2fGBJXokcJtXfyqBZ9KY50dsqLPF/dlrZVnJDtU
/FNu3/hsFq6/EdCw103GtndqnJf1nEfY31hidSSNbaf5sJrm3VnMK9IL9AT9
QC/QE/QDOSAX5InzHLml0Jo77Ljt+lHLbiSz1V8LjZ1Q/Y36N/4fdI+GXWZE
jj+mPnM9Jke4p2WzeNGO36DfLaH2lUU7biu1X0bz+watI8zz40LvzLijGLfG
pH+MK8ZZtSc0ThhnjBf0C31Dz9XKlDAb8+oOq6c8L7F1pW5dOhWTyfqx0yHP
S2zTPB1um2TcZie7uGZ+rxU/shnkRj8g/9vSCh9elPhsIT6PGoh2eKK91wBF
Hn50gJBnN8kz2FjpF+saLvqF9YV5iXmK/mJeYp6iv5gfmC+YJ5hPmF+YVyVI
D9lKPy7xjSQ/xg/jiXEsTPoZIfTDoR+M3zLJXiWTfu4Q/53EH3/j/0E/QeOe
Sv3CuKcKeXgGyTOD5IHeGgi9qXbpLc3XGPrdQmqP+YT5Bf7gi/eAP+Q4IbW3
EeuIPRDriNnTOsLf+H/QNzgo65S9EOuUYZ3uEXaD2R1S7AYbRnbjqRgn3kmM
Gwuj8cL8QL/RX/RfpoMv3gP+kANyQR7Jnnf4D3tu/h/2XG2PdrDrEj0U/P6j
vUpfer6R15Uvp/hx/8jbR+Y95Dmv3GNM7TLZv4LOIoieTfQNYp3zIFr3B2h9
YZ1j3WO9Y95jHWD+Y95gHmH+YDwwPhgXyAd5ISfsCOwK1gvWT2GJniL4sADi
84r4oJ/oN/qLfqLf6C/sEewT7FKxgcL+fBT2h/tS+wx67ybi/4L4w07BbsFe
4ffgBz77hN9he4TfYR3I76A/6B/6hffh/Xgvfg9+4CPNH/P/iB9+0xOb9314
8hrHc+ux6uddrmexDve31i41KEl9rhs3qUJdj3S27nK1wSv+SuJGVSo3bNL6
Kj/fbOSF/v9mMPyN/wd901hNj7dLr7DO281H3tyvY0usDmzr2Dtb/Rv/D3r0
NoXOmwo6X0707K3lmu2reI+38at86KjLY+7bMOnY3/PfMLTD79Ae7fA7tE+a
3i3Eq3ko/2583fnKwSje/+juYvuDshn+xv+Dfryy0i9WWfSLpVC/tEIv3J70
40H6QTv8Du3RDr9D+yH0N56uRHc1UuRhxacp8jBnkgd/4/9BHy76y0pvU/rL
1lB/8Tf+H/QpYrzV53oa99NCbm5J/bhH8j9/faTEKf+brPa6X3snOd1iZQfG
dLE9kan+jf8HfSzNg++khxjiA754D/ijHX6H9jsEfx6QpvDn2QMEf/yN/wf9
YNIMn9JrvoTiiXlOf5vL9Gvly0yrkXmRdU30KjNs6DO+lfRjtyXsL5uFV1iX
bLuY40kpXFdrw5Cbfm9YzNmSF44O2c9qfxxbyHJeOJ/5bec3q7vZrPC2aH1U
6/3spVODPTV6RLJrwyyH1ovLZoE/BkW5Tcn3xwNmXStX5BmruSXp7OVq6Wz9
NKvjds3jeJB4shWrv48ynZTFplM7Ln7HqlL7BGqHpzu1dxHtOdrXpvYthdzM
XvSDx5D8vUU/WYboN99I/Y0nuUO2Kv3gkD9R/M3cxP/zGKKPpb89qD3oU6hf
eK4jOQ+THiBvfZJTGi/z/xgvlV6J/PV42k84kb9OoriiG8XvPSmumE5+vYX4
HR9F7bUUf6RRnN+L2v9bSKyry2Kd8RG0vsAX7wF/yAG5IA/44j3gDzkgF+SJ
IX9pRXGojvzm+Qpl9g9zvsLTr3UJdtn7gH/S2xfyNMpkaIffof13sg+PRD/4
MJLflta/qbAHfBONO9rhd2jfjfx4HMXDZ4g/fg9+4IN2+B3avxXys7+vK/Kz
NJJ/mZljUzfrRaHHXqxxHG7ppq7HSTRf7WjdnaV56xSurDseR+tuKq07zHus
G6yX9vbba7wce4u1UJ7PWURa+YQey9PUv/H/oDcUf3Nz+v8wojcjOzOE7Jwx
2Tesc6x7rBesE6wbrAusf9gD2AGsf9gD2AHIAbkgD+SAXJAH6wrrDOsL63Os
tH4tBH/q7y1+mvhj3mMdYP5Dz3gP7Ax+D37gQ+NqjnHG+N4mu2NF9hZ+Obja
yFWdAm+xba6JxR1THrCrZvf7Vsp7q9qjeMmuOpHdHy30wH6Q/W9LcnSh8Q0m
eWDfYe9h52HfYe9h52HfYe9h5wNIzulCTp5AcjYme9uS+CQQHweyt0/ovevp
vbDLsNOwz7DLsNOwz1gnpE/VHuJv6Bt0qX3of7RX6c7NXT09Q5bpNg7Y7+gZ
EsxLGhcfX/1NNgtr08XcdKQ3393ay7HF9hg1vuox7HTOraU63bbAH4P7DH/J
u5F9Sx/wdo3R6CC+6XriKHuPF/xoyXaLx/VNZ7rLs9d1c9rPpwa2SJzkncQz
i2YXmp6UwRYse75oZ1oA33trSVDQ5Yf8RvKMS/M7Z7Lho9LiK4Vd1ew5ZJ6d
2f8lm7074e22s2lsyVPX3geehLKZL9KeZ9V9ocalXduVmF9zzG5WRXneYClF
11reqZvNJt4IcR47NYJtNXJ2i7r2lBm/v7AnYPtbpn3/xG7TgdOssfJMZMVa
jfnseiKLbRbjy1fRPIyn8Y0/d3vmiRr7eNWv7y2WbPDkH9Kyw0p9y2aYx5jX
mM/J+9ttsegbzS3r+NwvdWsfn8AvDOi6O5u1/jzhvWfpe9xKeYbxi/NXzDmW
nslg72D/YPdg72D/YPewTrBusF4wLzFPMT91HxQ+7EmY4DOX+GC8Mf4Yd4wr
xhnju5nGdbUYZxZI43ua5scaMV/YMponC2i8l4vxZxk07ttovOuI8WfxNO4Y
b4w/xt2VxruDGH++isa9P423GPfd/DGNuw+Nd2kx/rwIjXstGu/P75Tx58Vp
3J3ofdvE+/kCeq8jzZ8Jgh8vS3zMaP58VPgk8r+ID34PfuAzjn7/NU7IU4H4
ZNHv75M8pYnPSpqHo2k8H9I4rhZ64I6kBzfSwwYxXsyWxqsvjVcroWd200Po
OZX0PLG9ojdu3V7oLZb0tleML9tH47uHxjdFzBMWQfOkOM2Tj2Lc2Vkad3ca
9+Ni3NlRGvenNO5+tH49qR+LSX7IjX5A/oZkHyypH69I/glCbtaC+hFP8sP+
wh7DDtuKec/K0DpwpflvMlDYqz3Ub/QX/US/0d9UsoevqN/o70uyb/uo38+p
v7D78AOw/0uFHWHtIhW7wmBPJgp7weofUOwHcyG7MU7YCzZN2A8WSnZDiqNk
+28u+4vPYj/MetD+eAvJM6S1STlj0zbsyKRnmq0DG/P7Vfa+LPj+61My5lEX
o7nMaHTgOgv3mfxAlVM9E/PppVwzhvlVCGAxd829S5bdzyMjFmR0+5DNBtJ5
mV46b19O5xTr6Lwd5xWlEBdSnJtJ8SHkg7yQs6gy3lFsTqbp9S8h1/ltGnfI
jX5AfsiNfkB+yDdQOt+DfMulcxUPOg+s52D4nWUSncPMlL6zXKK49xfF7TnU
r2FCTtZUyKnq+dUoRU62RMip6vm40C/Lm6foW9Uz9gPYH2BfAPk8pHNUyAd5
ISfkg7yQE/E64nfE7ZAb/YD8kBv9gPyQG/2A/PD38P/w+/Dr8PPw7/Dr8PPw
7/Dr8PPw7/Dr8PPw77DjsOuw57DjsOuw57BTsFuwV7BHsE+wS7BHsE+wS4gn
EF8groB9h72HnYefgN+Av4CfgN+Av0AcjLgY8TDiYMTFiIcRxyCugf1BvIL4
BXEL4hXEL4hb4O/h/+H3ER8gXkCcgDgAcQHiAcQBiAsQD8Dfw/+vMpgPuzn8
P/w+/D38P/w+/D38P/w+4lrEuYhvEb8inkUci/gV8SziWPgP1Z9Qe/gJ+A34
C/gJ+A34i6eGcabqFzJpPNqSfzAcl3u8KfmH8zQu8HPwe/B38DdLJf7wN/A/
8DuIFxE/Im5E/IF4BHEI4gzEHYg3EGcg7kC8sZjm4d+SH5xJ87AyyTWO5EFc
slfy14g/Pkp+GfEH4hHEIdDvU2n+Q7+Z0vy/8rSl5d6Aq/yl1f3A+2a7uWeG
k8fm6dkMci+W9gWQG/2A/A+Iz2XBh3kQnyUjZ3ncXz+XLRdP/sr5VM7lgvwr
Oh8vJ87L1flT5Ftk7NMOd/jxlk1MXNo8Z5/C7o6O7pum+mP4Z9hb+Ff4W/jZ
rT37vx/muJsfepFUI7LcGeY2PW1e8qt8+VMUOVk1ayHnYpKzo/ibF6X/X0p0
n5w91jWnubDblo9On2nvyMsvvdI8L19+8yWNvQ8N385SejPfPY3W8Gllp1Tt
9CPfP54M/Bw0+hZvUq3z+mfjnrBjjj6nyqe+UX8PfuDTrHDP4PhR43lYrZSr
xRrPYHbvrj55nU9fLeTmvUQ/VPnfzsgq3Nt9h/a9eOrtv4l8tpzM668u3s3U
foutXvqwT7re7+lrhd439+2oybU7si9LHeyjvNvx2RsCrxTQ34bMPtMnX+8/
lrWLyt2zj+1tblI47Go2q3fdYeCCHUV4C9M9H9u2va2/93mNwmeOIv94vlJ5
dlD1oHebtj/07UpezGVIWlNHZ35kS8p411+/+ZQUfLTgs5X4LBV8VD1M77Ex
8fvxTbyuzS/H8KT+zG7nCpMrP7PZGcGHbZT4FLVS+LBcic+IRYo8bK6Qh0Ge
YOoP+IHPN+pPqpBL5RMn5GGrJHlixN8c/y/LGSzprWGtrRtNLUqxn0fvrjqd
czdyfoaFQl/9pM6iqxptvn26PWfG3O9ajAv6KcuJ34Ofykf8Xg9+4AO9QE/o
F94ntx/9d+GI7NeHwm3H/woveCKubvDVuVVew8Hhh37YZ6a0d1Lpa3YcbmrX
qfa5oh5rezU7X0/N819XYv3dJ4FrI7yLFHt0YcB2FYe1c5CuQbfFtpE1N/d2
yK1pr+Ismu/v8DM5cMY53XB75/3TPVU+3QvvbbHGpY6ud6Dvd9c/8EcVoivH
JA4xjRywpEeDEz0bqHy8Ngx5ZTb7pG781H2p5puuqu2tU1embVo1MLLTWJPE
hb091PbB/xr7thiSq3sYePnNnZI1VTyIiZJXNyPyXPyztQstDqvtsxZ1bfqt
Utmocs3aFM5d+4/afnLerS8TjBeFl5FwtSMFH+sMic+wixt29Y+rcq6vhA99
KfjbfGpqyH+GkN96oST/IiG/Zock/79CP9ZBkn60GxX9aD5J+tkh9G/FRhjq
31voX7NT0n/VUsr4Wr4raji+LR2V8bX2lsY35ZsyfyySfxrOH5ddyvyxqr/M
cP54T7waXfJ2Qoe2k36xZ/631Tyxwg2U+WnxZoLh/MxtfNStbUqDc8V+jNTd
sfrNZ1l65wj3W5siR21sfrbgCfrjmE6Njt04qnNekDtp7flTar98dl5t26rl
vKib5a79c8JtmapPO2Mfk13r8qJWpd50+7C/tIrbqnzo6rDKDh30czZ/Gbbn
+1D9D8or9jmblR32yF5v1M5jXY0HS/SXiL6iRp0nEfsGRqZJeNWjor3WRGpv
IvhrJ0n81wp5bNIkeVKE/DYVyhvK/ytW6a+mxkLD/iYL/VjrJP10aqro06rm
T0N9niwbPGGgt2PkoOQ1Ty9X6qu2v/T9Qm2b6iG6Bi6bTv6o+Jt/1WsJ3VNt
9FG9KraxfZn/BH3i4ymti8931Td73euFec+l+n3Ur9ivB/THL6fpA3a/7Fsn
OE9v3StBoe/8kbN5WowZ31g/78lfERb5+/pr9wroz2Jr+J/Nacunel450zRv
KB+6oGH3H/n01EET2l3/2VrnLuFVc0V7NlNq7yH4Mw+Jf5qQR5sgyRMv5Nfq
Jfm9RH9trkj9PfhD0Y/mkaQfh3KKPq1bPTXUZ3TXYRFnj2t07qW75j+bq+3X
f0+4/TJ8XVSeXXZyvf3uKv/CL/f6Lvby1C9q+LqTxcDF+skkz9OL3d6f6NiY
f79/8lhIh8a87L2gzAL6h6rWRz9MXMarzDyWkea0jj84feZRdr7/mhrxz/qh
aaFsaq8STlP33OYaywWzijlmsattm2eMGhfAptztM6lnagi/NPXlvuuP8/2d
33W7L4UmsyXd6+iK1J3BdxT7OvhlPv8nFIekS3GIi5BTW6aRoZy/RL9sOvUw
7JdRN0UPmotlDPXQ/pnuXuysJN0c+4kvV/W+qNKrt1j46uG6WvqbUQGzn003
VdfF8fATE/Nmm/D9M8J658zO1Zt0W6y8NyL7ZWDLvE18onP/7g9zVvGYTT5H
WuTroeQeY8fmj8PZkIzLbePHx/C84R/32zbOZkahX+x69XzI3kW/b9pl1BMe
tm9XQjXXdPb05jWzfmMusbz0Et6TG53npnMXBNYflL/eKc67JMWNZhGKPKz8
TEN52rZU5Nee0hvKv+e50l/NBAfD/kanzDifV8ciyt7nseKXQK90LbBQeulZ
+hh/m1eHX/bWvyU9D21R9npKuV58az+d461yzTjvOtxGiU9EnM83UJyfQ3G+
ZlGNM3e/3uP6Xr6xDtUesXc3Knt3e/KGbf07oGqPHuG8UvC6kuziWTZoZ7ua
a85ms+SsD77fD6WwrIjvPZaViOG60YOm+659w6rQPmKGtI+IE/KwMvaG8hwS
8mtD9hnKH/9M6a+NyWbD/u7y6xO1P8gxauyuiTMrzKmu2qs6IytMazzQS+9T
P+hXaL7/b0J85hxIPJTkNYZnVq1av3l4S92k5RNbfcun36LvBcF0PlqCzkW/
nBnwo9TO6zw1eltKiypnNY8sQqotH5bN/rH/+Tl36xMe9/LzV9Mcrvmn+IjN
9ZwyWBOfQ2kzXz1nPqafb3T3j9DlPh53ot3tdHaXzluPS/zfCjm1DRoYyum+
W+mXzRxfw35h3DuLcVdxFhY07mli3LXQmweN+0Ex7gx6bkfju1uML/9C42tT
X4zvSDG+vD+N70sa32QxviyCxrcRje8sad+dS+Nb297wvddpfO/tM5QT4/tJ
6ldpMf91P8R6V3EiwbTebcR6UfE7H2m9PxXrXYv19Y7W+2Gx3hnWu8Nusd7n
vFXWOys6Qqz3krTes8V6ZyG03ovGi/Ve+o2y3lkRWu9m7xT+LF3iP4bWe9+Z
hvIE0Xovyg3l7/RCrPdYB8P+TrEVfqGusIcqveIP4Re6Cfup6s2V/EIdYW+1
sLd20cIvjHyg+AUGv7DzSvyB/bFh7PXoL+uNk26zYXeXuKzvkcUqtBP2/4Sw
/yya7H/faoofYX7CjzD4kdOCP7sp8b9H9j9Ekqf1T2H/30vynyD7P76sYX/H
Cr8ZaSP8popzCRF+Vvdc+Fm1fRDFIUnCL6v8cygOSRZ+XAs/PumbiEO0exS/
r4Xfb/dTxCHlGihxAkOcUO/E9WdZMeZsSWLVp2ZDhrMPr/w+fS+w86I9KyS1
Xyn4a8dL/Ic9EXHFzDRDeSKui7gis5Kh/DV+iriiw1jD/q4rL+KKmymG+nEQ
cd25RiKuU3FAmRQnXxFxoNq+RpyIkxuLuFHlX2iXiJMbijhTlUdTWMTJIa+V
uFSdz08pTh62RYljtYhjG4WLONmkvRL3ahH31qop4uQlEo6vs2ivNZXax1Gc
3EfiP1bIY/NJkue2kN/msST/HtFfzRKpv1PeiDjZzttQP9kUJwdJ+qwo9inh
eWKfouKnFov9zrlWYr+jtu8q9k2RfmLfpPIvYSL2v38dUfZfv3HZ3mKfe2Ka
so9T6Ycni/1s26PKfvD3Olos9q2vxL5VpQ+JFvvQ8RKO75BobxMjtZ8h+Gsy
jhjyDxPyaEpNN5RnkJBfM0KSf8RgsU+ctsWwvyN8xX4wXNJPMO37dkw01Off
Yp8Ydnqisk9U88+l8wq1vXQuoeLdpPMH9b3SOYMqp3SeoNKlcwOVLp0PqHTp
fEClS/t9lS7t61W6tH9X5Zf26Wp/pf24qp+PRoMX3riyPxxP0L3K/F2rYN6u
1tjZ/rlPj799tk3X/Hn7ILlHgw9/7PfD/ArwnHV0JfwM68Zktr0fv3fUSV2t
zylJn1f+Pn+4MWz8ni7OObq6l0ZMHbfZTI3rPrufKuKYr8/bnVb4Jac3UelB
M2c3u6z7YvlXh8rH/jxvSaPzk3IfIqML4iPQ87o9NfMfxTU36uU45a28r763
UEXv7WaL6muuHezSsM6i9iq9VVM//9VtOlu3a9rdSBfTQ+VfpuXKr++GlbE6
9alW0aX3y6t6uLez1o93messbDZNbNuzspeqt+7vlyj2dnwtZrCPDou7EFRg
b/EE3e1wAa74qG7hxIOtVv+xTz/pZhHo2WJe1MsXLUt1+WNfX3zvgTrPpudF
+W44MPHhut/nALX6NHSs3qWdfo630eOUCkP0P8keWmrcFDvQ5Ezv6FleLvqv
wE0bsVjPz1bW595U3fDnedRBOpcwHWbpNq7cXP0Lan/Jq67Dm/x4xcNs3Lfc
/PgL7Sv9+8+qpxFuNssGh2nXm61S+fQr/2ZKqMchTbVLs62nZh1V+zWs55Ps
gU09rY2KTy7H7nmqetiTo+jNik0+sHf9x0aq3k5dLDy+UYUAi4jjdYbeLBqg
6rnq5AlKPHBzQ3uDffTjhXlFCuKBcc5Oe/7cd09eGmL1OD8ewBP0J0ftqq2c
56rvsqN/XLDd7319TNMHAUXWpek7r9m1u8i6PP3ld8Jf98utND7icCX++pRZ
Yshhc97oY1KKcp7T9eShs/l+bWn6iVq1qmh4sY8nbhbQrbqN3D29Xy1Ns4ot
Dc5/hpy2n1lwLtFvVuv1yTn9eetoj2UFdQD8j/zwt1yfp30TP+ttsQ2mfM6u
Lkr70Ikvl26fslhb2Hfrjm/HPPWTSM4zHWw7DNoSYdNrYfeRr9zPqf3Sr+/9
+P3ss5rYLXd+Fo0NV/Vw89CL8wGWPtYvgluc61rFR9WbrcWYwFXPG1g5dHf9
2kTze94WjdGHF8Sf7ZTn7/14u4iuPgXx5/EeTfR/7t/vFl6S309Pfeeytnsb
/bHfL/7NoeSVdo05ng0LByvx4f6Nsyv/yvbgiZWSW31/vZazJWzj1/x48knc
61E92SlW+Pvomk2GxvIebTq6ZbbJZoerH274bzEvNrJ46Z2NXm/nntmd777/
ns22lHG5139oS+bYz6XQh1ttua/tvCQlD4G+m6RJ303slt/z/PcLt9mTuGX8
z+5clX9C5xaB0+qFaF5dWji9crXf8ydi7Zhubvnxlbtmd+vXf8w32+aP7hbs
U3bEp774c58+dk6diQX7lHvL69T5c1/vF336zcP8fUqFOa6ZD2fn6hd2F/uC
b/ParTZ9t4nXHxwy5OybVbzvqS2tWuXr4aGvafcSUy+zWW8dQjIrJfFlzbqP
nrokg/2gPJJuUt6LPeWL+FH+yAPKZ8japcwb7SExj9T583NSwfpdZ/OFNR43
749xjCvUsmtkfhyuWdSdR/wx7re7/csL7GzRtXYG+/FRNRy2puXvQxM/jBv8
5/69wsUW83bl70NjB0zx9c3f7z9qOlrZD7r0F3kdg7qJvJVNlNdRZUNHh5mP
7/ODLa7063YqmZW7WWdv2OR0dpryd1Mon1fNA6d8l9NSfk7DCl+3jZxvwhYM
6dkocG6u/nhFoeevwn5p221Q7Jk6LkdHuVSNy99/7RmW/unPcTR9sFBXcM5g
YTf79AnjLuq4r2n39m6jgV76daUbHSjwY9i/r7Jbtu1D1T789tFi8/vGxun7
XxnYvIBeIvNJsSlDrvLpvd5/a8R82JvhRk9s52azefS92Z3yMZAP0JVwfZaE
/1tJ+L5Esy9t3uTvoy8tb9b/Tz1Xy1X8n80RivsgZ2nyi6nkJ0F3EXz0nz0V
Pup+fLdr0sa84x35ycVO3sU2VGZbIz4/KqBnJrtM076+w/G8WOFFtagxGcyR
8C03Cf8STziXQe0V/Wgj2r/Yka8fDfSTKfRp82zKtIqBxl3UeKa60L+undC/
GjcuIn9znvwP6EZifLmtGF8txrcr5QuFSflCOb1mHvTss45bTl8yIML7BL8Q
N6PQkXx9Gjtvamry8Yb67DLKtVm3tllsMc2ruxKf42I+s/4DlfnMMJ/L11Tm
vzY5V5n/qj6fdlfWi02QWC+q/juK9aXzdVPWl9rfCoo/XRf1S6xHtb0x2f0Q
8gNYv60pf2kK5S9hvbtWLzZqrylnO5ze3R3s+ogVn9rayCElg9UlnNp8+g6/
FHkFOX7nsv391eeTnq8ih33OjxNcFbvEDgu7xGCX+lxS7Bg7L+yYFnbs41zF
7mnLrFTsnjpeDi0VO6l5l6DYSbW/ccKuRm4UdlWdD67CDusyhR3+fQ4g7HbU
aWG3Vf1kHio1y2/0On2GeGrXom6P08Nzx866sFU1Ryw5v9ibxWwYlJOeL/8+
rzYVPmwdyypFJf1K/OnKPvR2HHu3IL9L+CM2oLLijxj80WPht9Qn/FegieLv
tPPLKf5OPd+4e07xjzYBPRX/qMr5Llbxp5pqcYo/Vfs1WPjfc8OF/1Xj+cfC
X0dmCH+t6ue88O+6GOHfVT5+Ih6IaiHigd/7XLL7b8gPYP4kiXhDXzFBiTcY
4o2n+n5dv08+o3VxXdVgu+6VdsnKPIW+WcQ/rONpJf5hiH/cmynxkva7iJe0
iJduHlPiK+3anUp8pZ5v/OWhxGE2eKpxxSIlftPMc1HiN7VfuVOUeM/ablN7
g/ONiyI+DL8m4kN1X0Px5DmtiCdVfXYT8WdkqqkSf6p8rES8qvsUrcSr6nuF
f3SLmiDiW1XONuQ/8sifgG5G5xurRPysRfxsViy0d0GdokXS+cZy/V+KXegv
4nMt4vNAEc9r22xS4nkt4vmG/kr8b2PqrcT/6nuzFyn7BZv3L5X9giqn9oiy
v9BsnaTsL9R++d9Q9iHWeIL+zwcRh5eqwwzON2Ivvh1+r2ly2J4Dvg0GLUpR
991TxD4oPNxb2Qep+k9toeybzm0S+yaVTy2xz4osK/ZZ6nuniH2ZrskhZV+m
yhnYXdnH6f75W9nHqfSj5OfMyO+BXsZqSkZBnaKx0vnG5B9zXhfsu506K/tK
lT52uLIP1VS9rOxDVXpFc2XfqrmUp+xb1fde2q3sczXVdxvWK/O+q+yLrZum
KPtitV9O5ZV9tJWVVtlHq3oYLewsxxP2dkS9JeFDyxzitXb+dDvvfYDXrvay
QsUP2ew74YGHEz7Yg+x2OuGB21IcuJviwA8+WVUtTaKZZ7eBlunT4/nOCW1r
dj2cxfqX23/v7I0dbIh48h9vvrRr8y2bVeT6N5uN73Dfp6cTu0y9xhv+6pd1
8EomS1356F6Z+Y+4ZmxqiaTmcdwpaHzdPrYZrIPwlxxPG/KbLwl3fJNwxwMp
TmtF/lUjtS8q3su20nub0HsbE642mHC0SRRXzKK8ySMUL62heOknydlFyMmG
kpxnT9+p8svmHv/6bZyD06UY1vjA981pLJOdJ5xgloQT/DJGyJchnqwbyVlx
lcKf9SH+A4n/3MI2PtGVA/hdvr/h14oH2awd3RqUzclm3jSu6yV/WkjCG/rQ
eFlsVsaLPxbjxTbSeD0R84GtF/OB1aL5IK1HNV9iRrRC7/BNotsbK+c7Fv2N
Dc95+gs/yIN1ih/k8INNxD6LfzQ13GddEd+F+STpu3DJMYqf5d7Cz3L42fXZ
bxI2d3TV3Agx/C6/h/xyb6m91+wN3HFGLHc95FzsXNgd/iH+wtcVizNZrPje
yl/Q99bi9P2lkPhew3Ok77Md4s1eVL8Vw5LL3h7p3/cFd8206T5+bxorSfHh
Jmm/4E30It0M6QGfz/Z08b7PV5341GLS41hea6rjmccZGWxOiZ8Jzj63+I2/
u9ju2hLHF+WOvV/7aiYL9T0w/uCS26z380+u7hkpzHZpvb1Dh6az6+L7KTOX
vp+Gifbcntp3ofZ2DURd15SW4mlK9V03N5jReHPyc9a1T/nZG/Ze4C2de65w
yu9vObFf4DbhhnVytoj2vBW1b0Htr27W2IRlveAsxL7nvtFn+ZZdgV7PH6ex
Bx0KXzJv+4A5r5/1pGolzpyWZ7ddOCqTBV6t8PzasQSWmBs9/MXqC+z1vOlP
mm/NYkbuiUejHLx1H6nuRTTVtdgl2vNYap9O7dEvPNGvN+K9fCq9dwS9t8t/
7IOo7gn/QnVyQL9O/Soh+sXQr12kBzOhB9aU9LCA7Ikz5f+uJHvSh+zPWdrX
3Cb781p8D+XP6HtoOH0P9SP9HBT95W+pv27iuypbLn1XzVsq9DaL6oJAbxtI
b7uJTwbxiRX9Ys/OiH75UL8sST/lwg31EEfz0FHMK25N84rofDDRrYjeTcxn
NkjMZ7aW5vNS2gfdk/ZBdmJ98adifbG5tL4mkB14KMXbT8kOjAw1rId5Xqx3
tl2sd/aW1ntNM3HOEyHOeRjszxSyX/+SPVPjDfo7VaJL9lCNW6R8M5UufV9Q
7WfxLdNCsn2ec8exw51fPNbxPaafvdbeTGe1QpQ8AfaJ8gQeUJ5ASiMxvys2
NZznxoIP60d8DhKfksS/oaAz8E+j9agR64KPonXxldZLD6IPIboJ8a9NfA4Q
H72wY2ybsGOsCtmxIJH/w3eL/B/WjvJ/ZtK+/hXN/6s0/62/+LeqXjuBt+lT
zz6y2BP+JlE/qdzwt6w6+XF/4cdZA/Ljq5s3KvSq+DW2tOmQAUEuF9h58zVr
Uutks/60D91K+9DFFM8EU5xTl+KcFUTPoTinI8U5O8lvNhb8uZ3gz68S/3YU
hwygOGQI+fc+vZVzANZXnAMwnAP8ylP6xeJ7K/1if90S/TIjO3CF4pAnpAc9
1SupT/GDE/EvQedU84k+iugVqW7JEKluyS86x7OT6g907ybOK1pPEXJeIjmr
k/6/k5w/SP+zqL9Tqb+O9N6WNI7XSf4HJH9Poj8jeiLRGfU3lsb9DtG/OAi9
dZ8lzk84yVNXyMOK0Hz4SvJo6fxhjjh/4OXp/KFEJ69FCQHXWK9O51oWb/6c
b7xbrc0133TWdXjfoRumxLDyp/5qWzjjGT+0YG33nUHpbFq9WMdyi/PjgNH9
2p/vmMI+rpn59YdfOsujc6hST5UnO0fnUVX1W9z/XpnIO3U9b791yzX2dm/2
xu6Ns9g70V59nqf2LUR7Npfap1J7ko+VF/KqclYX53jMVpzj8XQ6x7vk3PZ5
74+x7O/tKTsbHo3gx1qk1Ustk82K0Lnf0Z6iPc79YkR77kjtj1L7EiR/MSEP
f0fyVKBz0bXiXJRXo3PRRYb64Tmkn41kVxdSHJVDdnUy2fkzFLcsJTv/g+at
Oc2foTR/7CjOcSG/sIbaf6R47IeIx1gxiseKUzyWQfkzoRSPXaa4bifZ+Tck
T0fyI48pTltAfuQ5+VnklSHvqAzF7bOl9VWS4upetI5QZ8CW4sDn5KdmE/+y
fsq5Og+hc/XpdK5uJ+YhL0Xz8CjNw+oiP5BPoPzAz5QfWFOMCwun8+riNC6u
YlxYtjRv69P6Oi/ta2rTvCraW5wPY149oHk1WcwTdoTmSTLNnz1EDyR6Ks3v
W7Q+rtE8r0Hz3IrmFdZFD5LnshTn2JOevUjPI0nP5xO2tbtY+pSmDNXDn0b1
8Pt3XpH044Wf7rYUz5iRfvxp3uI8fxXp5500b+cJu8G3kt0oQXYjj4l1yMhu
7KT12Enks7HzlK+YRfls90lORvcnTCQ5t5CcjiMM41XYo1Jkn7DeLYm/P+XL
fUY+JMXhLSmebE7xpAPZjULEx4v40HccPlnMN7ac5pstzTdjMd/YKZpvwaQH
Tue3RqSHsmSPYJ+8if/8AylVl9tP0nlJ9S5mHq3WLDdrm2471T/oTjj0wEXh
kx0bHfr/6lF0IT1Up/dsIf6EC+NOUr7ojIBq+pzNt5n11ZEDP+Xr+f1yn4Nb
BuXbGUHnlkTPIbo1+Z2HNP/hX9qI/Em+m/InMyl/8nbhrHu5717wNY3K7Lvs
7Mca+h5qmGyczjj1065KpWpXa6zTIK+ytcjPZHrKz+xO+ZmI86tIcX7HG84l
m2+4xn6m1Q5aee8o/2Zz/NyoEdlsJ+lnO9U/WEj6aSLa849Sezf6jmNJ/JcT
/7lE7wp8IdEXSPQVRL8l+ss6NRb9bUT97U3jKNcT8Kfvgw1pXm2jefUP+VNT
mlfHaV7VPijmyVPKS4XeatF8HUTzajWN+4jFe0ZeruzJMi9VvlvD5yBLfdph
RbEvBbhU8X22n/g+y7rS99lQ35OVu5/fxp4X8x4ywf8sizn2eWOhpGz2muIc
c4rf/Mg+96HvlTul75VvTPLq+mr2sc7hK6/vqLOPR5tseXLpUzZbJM5bWJI4
b+E4bzHpMLW4rQ1nrWo1tDxQJYI3bNNjtKlvNutC+5dT0n7/JMXDW2lfb0bx
sBGd8/Si864hdM5z9/vsy+7uT1nWkb65nTbE8J659RMn/vWW7dX7WwRWimaR
z0/repvd4a4DnOzCjLLYafE9mk8V36MZvke3evJpyOtO9fi9DTGBn72asP1V
tr8roJvuVvLqeaDIq2fIq6fv3dxR2geF0rlNLen7RTmRt8kDpLxNLX3vCJTO
eW49VuRhY4Q8HPK8FP3lqdTfbtTfe3ROUryb4X7wOtGbSnTad3Afad+RS/yT
BX/2D/FPJT2/Irot0cd3EN+5Amcafucq0UbQb/1rSC9eRJk/fLCYPwzzZ5yY
J3ySmCfsb5ons8k+jKZzxbWo40H2YWq6st7ZV1rv5mQHxhAddoDw/nydhPef
I9FhB5zIfpoJO8nzyE4OJ/tZjehfid5o+ZMVp6x8dW3J/04ivzbo7qQ+JQIO
azaRvVpC9mp39KWH55y9NbWo/RRq/2uRsq75ZrGuOdZ1hMi74Je/ibyLPobr
mj8Q65pjXY8W+cM8XOQPcxfKHy53xqTViZWHdC5031Es3TMykOw17DfsT3B9
h483ctdqVlP7aGpf+3Dqppnd96l1mexQl6lDQFZZEy/13rSr1H6lRU5QWl2u
6UX3KVnSPTJpSSk1zDMDdV7EB/Zz2qd5941NT+r2UfsW1P59rsvbBfGnNLvJ
P84lfVbR1KvapvNmzVJq35ban/QU4+JM8YYL7l2icdlJfOYTn7s0Ln2p/Xhq
b0XnWsWk8y7oq/Jjo9Wz6/qrOALyF3yE8Bcc/oLOwVhlOt/bTOdF8C+Vmhi2
b0nvbRVuWHe6naHfZ/D7zuTHn1DciPqWY0RePfegvPoilFcf/1HouTHd72NG
ertJet5K89aN9BND43hL6Jk3ovb9H4txXEF+0JHGcQaNSxHp/iAn4b/4R8l/
vaF5Xob8lx3N86J+Yp43MBX+6zrN86Y0PyPo3pwwmm+5AWJ+0rxi/UiejjT/
t1J7Tu09aP6XG2jof1t0FPMZ9/Kco/Y/xTpl8jodS352K63HWJKzCY1jM2n+
dCN6Temc8HjVfq1Wr5zNrtVc9cir21y+a47bs9h8+zmYzm3G0bnKJTpXeXH7
utEY43/5mriylXZELGL9Au4nXchv/53qDvST8CCPKP8qRcq/InwQHy21X0z5
JwdF/glH/kn7vnX+fdSxO19fcWKNMmZV+N7o+q5/5tu4HVTybbTItxlE7ZeL
9gztC9edPfSta2vWaFLPvT/932lbjPqWVUC/KN7Lbkh5Lzh/ri7pbZbgzw5I
/M2pfUWpPeoq/Cv192PYx/K59q15pX1vbuVMtGdnq1Z4XpAHOJkr39/1j6Tv
72YCd8BdJdzBDYrnnIqVZQPil6j2YT/167KkzyChNxZ9zDBPyfhjdt9pE/uw
gzfrh83ZVU1nWSW2kZKf/+V975fPWrNXsdeWzJibod1W/W9FbzXPKvKzXpL8
Jo/m59U9EmNtcsDwe7d/s9gnHkUuRNaV8Oz9wk5EbixTT1deui9pRUo73Y5K
HXS5Zwzp076+D5vfopDGobYhH+DYgWvH+S3Oc3G+Czrww8ATgw68K/CvoAOf
Cbwm6MAlAqeofncjnB7wW+p3Z8KtAccGOvBdcnvgoICLAh24IOCEQAdOBrgZ
0IEDAS4EdOAWgGMAHTh/4P5BR10A5N2DDtw1cNigAycM3LD6XsK1AucKOvCc
wHeCDnwj8I7IswLeD/g/5JsBF2chtQd+LFjiDzwV8FWgA18EvBHowM9kSv0F
3gP4D0lvFrLeUB8B9RLU7xRUTwE4BtCBYweuHXTgroHDBh04YeCGkacEfCzw
ssCpAS8K/ChwfMBPAk8JHCVwhh5Se+DxPkr8gU9zleQBXitIkh94JOCTQAd+
BngaSW+Wst5QVwJ1JkBHHQrgQtR5SHUBUCcAdODYgWtHXhNw18BhAwcHvDHw
x8AJApf4TqIDpwfcHvgAt5YjvRe4LOC0ICdwRMAVSf21kvuLOhqoqwE66m4A
HwM66iOgXgLowPMD3w+8G/DnwKMDP4jv+vjOj+/7OP/FeTDOgXFOhHMjnBfh
uyy+0+L7LM6pcW6N82rst7H/xr4bOEDgAiE/cG7AvaG/wGUBpyXpzVrWG+qP
oB4J6KhXArwR6Kg3gfoTwLuhPgLqJQBviPwM5GsgTwN5EsibQL4E8hKQp4D8
BJyj4VwN52n4no3v2/iujXN/fAfA+T/OI3A+gXMJ4CqBs4T8wA0+lfoLnBtw
b5LerGW9oW4L6riAjjovwG+BjvodqOcBvOGbBCXe4oHHRfyFuAv7XuyDsf/F
dwJ8N8D3ApxT49wa59X4fozvyfiOjHNnnEPj/Bn7K+y3sM/Cd1x818X33BxR
/4LZxon6GaiDARwmcJnoL3CDJxb/T71Zy3pDXRvUuQEddW1eSvnnqJsDnBzo
qJsDnBzoqJ+CeiqIJ1E/BfVUIP8yqgOSGSriSvn+ZZwf4NwA+3ns77Gvx/4c
+3Xs0/FdH9/58X0f5yw4d8F5C/al2KfK9y9j/4d9H+JgxMWQH/hY4GWhB+Bj
gZeFHoDzBO4T+gTOE7hPaVys/2NcrOVxQR0i1CUCHXWLgGsEHXVtUOcG6xp1
WFCXBXYAOGrgqkEH7jdO4gOcKnCrkjzWsjyoi4Q6SaCjjhLwl+o8JH+Hejyg
o14M6sfAXwAnD9w8/B1w4MCFoz1wy8Axgz9wtsDdSnJay3KifhPqOYGOek/A
j4KO+kGoJwQ66t2g/g3iDTsRn/B6hPtHfII6CKiLgHgGdQFOS+2BewcOHvyB
0wZuG/IAVwycsdQvK7lfqEuFOlWgo44V8LKgo14S6ieBjvo+qPejrheqa4M6
N4hjUecFdV8Q96LuCeqgIE7Gfhv7b+y7UUcjV2qPuhJjJP6os3BPkgd1BFBX
APID9w4cPOjAaQO3LenNUtYb6nmhvhfoqP8F/DHoqD+FelSgo14S6ieBjjpB
qBsEOurmoI4O6Kgjg7oy2Peh3grqr2CfiLok16X2qNMRJPFH3QrUsQAddRlQ
pwF01BFAXQHQgXsHDl7Sm4WsN9RBQ1000FG3C3W8QEedKdSdAl2tr0T1NkBH
vSHUHwId9XdQrwV01KlB3RrQUc9Fbo/6Jqh3AjrqfZyQ5EE9C9S3AB31F7Kl
/qJeQLCkH+T5Ie8P9LGE07Yl3Lb6XsIVA2cMenvCwQIXC/pOwn8CDwo6cJLA
TYIOPGExwheqchL+DXg40P0IJ2ZBuDHQgZsCjgr0YYQjciRcEejAyUQTbgZ0
4DqQVw46cNTAVYMO3G97wgGD/oDwrsC/gg5c6EjCiWJ97SH85FLCU2I9GnUS
+LeKhIcDnyzCgy0gfJhKJ3xUMuGlQCc8uRXwQKCfI7zKNMKvqPon3HIc4Zhh
P2tNmazgdQMiDyn4XeDdnnY661mAa3U7Pn9UAc61VXOBBywb/Xbv0ZcavXnN
DbHBXmP4mMwlyjlJMOHWxhOODe+9Tjgu4LpAf004pe6EWwLdm3A1zwlno66v
K0vM571Zxd/7Xzt+P3sTv3lxvmUBXg84W+BugbcFTgy4MXX9Eg4KuCjQ/yLc
Tg3C8YCeTriy3RK+eDzhpoCjQvtmhPOZSrgf9b2Ep2ot4XOB/wEeCPTyhG9N
k/YXxal+wSHaFwCH9e9s++s5E+35Qt9WxQvOrYtWF+fVwJkDdw68OXDXwGED
fw18MvDKyGsCvhd4X+T7uRLudKDIP1Xxp8BnAq8JnObTOT9cz/svYC3i++a0
KTmI1Wg11qLgez3weMDn4bvAQsKPuROeDDiyIYR3Av4J+vEkXO0VCVe7q9EU
pe7Ag1+flDoEwAMCbx9A+HvkIQB//kO61wA4beC2ga8Bzhm4Z+CdgUcFPhW4
1IqU3wC8JvIWeiWtMAo9bM56mblvLcAj+ucKHGJ7wssdI/wccHM1CN8FvBf6
O5jqBaB+API0ksbmpo5MW8v065tYd3rnwY463VlVgAN9sTNYwTdOsH6n4B2B
cyxGeLz6hM8D/2jCj5UnPJlqzynfBXh95C0Ax24r3eOwnfCTDwlPiTj5HeH9
sgj/B/41CJ92mfBqoGuNHRQ8/OxIo+0F+HjgpoEPBF4Q7RsTnm0D4dtAv0z4
c+DRYc8tCec2inBvaA88G/BtwLX5Ee6rEuHPgDsD3gz4M+DOgO8C3gs4r91X
udOIgBj2YkC13hH17/G6JcvsnNQtkwGXBZwW8oU44eAuSzg44OiAqwOeDng2
4NuAawM+DXg15HMCnwa8GnBqwJudl+6zyyK82TfCn9kS7gw4MeDGgBfzEf3l
V0V/WUPqL/BpwKsBpwb8GPBkwJEBPyb7fdRXkr+XATdVUro3BLgpb4kO3BRw
VMBPAacE3BLyDYBTAm4JeCXglIBbAq4H+B/ggfC9Ffif61J74H+ABwIOCHgz
4M+AOwO+C3gv4LyAjwJeCjgp4IiQb4g8Q+CIgCtCni1wd8Dhwb4BPwY8GXBk
wIPJ+Cng6ICrA+4G+Dfg4YCDA94M+DPgzlDvEvUvUfcSeCTgk4BLAo4IuCLg
iYBPA14NODXUl0S9SZwbA9cEnBPwTajDiLqMqMcInBJwS8ArAS8E/BD8FPBF
wBsBZ4TvC6hjivqlwJvh+z/mFfIAukp01IVEnUjUhwRuaqlkz4HPBD4J66sH
4Zu6Szgm1MWW9y/ANcl8upH8PaV1AfwS8EzAGVlQvyZI7YFHKim1Bx4J+CTg
koAPBF4QOEHg4oCTAz7O0XD+MODUgCsDzgz4MuAMgTtE/jZwdMDVgQ78IfCI
wCHinPwo1T/GOTnwh8AjAocInBVwV8BboT4m6mXiuwbwXcB7AecFXBZwWsBn
AZcFnBbyJIGzAu4KeCvgsoDTAj4LeKr+0v3UwGUBpwV8FnBTwFEBPwX8FfBY
wGEBfwU8FnBYwFkBdwW8FXBTNcjuAT8F/BXwWIiHgacCvgq4KuCpgK8C7gN4
qorSPdHAUwFfBVwVcE2dSB7knwM3BRwV8FPANQHnBHwTcFnAaQGfRTgK1oTG
5RHxB84KuCvgrYD3AP4DuA/gPYD/AO7jDuE60gjnAXwHcB3AeQDfAVwKcCrA
pwCXApwK8CnAQQEXBTwU8BvAc2C/A/wG8BzAcQDnANwD8A7AOQD3ALwDcA7A
PQDv0Jvy0csRHgF4B+A3gOfAegceBvgY4GKAS+kvtQfOCrgr4K2AdwL+Cbgn
4JeAZwKOCfXBUS8c31WBvwIeCzgs4K+AxwIOC/XEUV8cdcWRh428bORjAzcF
HBXwU8BHAS+F9QJ8FPBSwEkBHwW8FHBSqPuMOtD4/o78bORrI08buKb6UjwM
fFEPKf4Bvgh4I+CMgPcD/g/zE7g+4Pwwz4GLA04O+Djg4oCTw/w8Rni8ItI+
HXg84POAywMuDjg54OOAewEOBviXLoQPNJPWNfCBwAsCJwicJHCT5Q3nPy9J
+AzMf+AkgZsEXhL161HPHnXsgcMBLgd4HOBGgCMBfgS4EeBIgB9BnfRbUv42
8pWtpPgB+cpyvjfylZG/jDxk5N8jHx95+Mi/Rz4+8vCRN488euTPI18Wee7I
mwWuDDgz4MuAK/tCOLNdpGfkwSMvHvnw9ynvNoTy4pEPDzwh8IXAFQJPCHwh
cIXAawG/BdwW8FrAbwG3hfx45MsjTx559si7R7499D5AwkkhPx758siTR348
8uWRJw+cGHBjwIshbx559MifRx488uKRD488eOTFIx9eradP9fVRVx/4CuAt
gLMALgs4LeCzgIsATgL4COAigJMAPgL4CuAtgLNAPjry05GXDvwV8FjQD/LU
kbeOfHXkqSNvHfnqyCNHXjnyyYHLAk4L44U8cuSVI58ceeQe0viuM7xXmgOH
gvsJcF8B7ilAe+BUgE9Bfj/y/ZHnD1wBcAbAFwBXAJwB1jXuP7gr4c6AnwSe
EjjKn2IdMnvy/8BR4r6BRtL9el7+yeFhFdozs20t3xWLbMXX9a5wX/neR/e1
xUr3tQGHBlwa8GhB7cR9rLXoPtaHdK8f8Gl9pPM64NOAVwPOCHizLtK+D3gz
4M+AO1tIuCk/6XweeKrr0rmKj+F+gWO/ADwV8FXAVQE3BRwV5AduCjgq0IGb
Ao4K/QJuCjgq4KeAK9NK57S4Pwb3ySAPDXgz4M+AO8O9MrhnBvl4uI8E95Pg
XhLcY4F7LXCfBfCZTSS7gftOcP8J8CyrCV8q+6Mq/3GeA7wo8KPgD78D3Ab8
znbyF+MItwG8Rhjljw2lexiQP4Z7KXBPBe6nAA4TuEzwBw4TuEzgMYHDBC4T
fgr4W+BxsQ8CfhV4VuBYgVOdK9mHrob6UXGsuPelirROWWMDPav2gcaFdZDG
BXikltI5IfA8wPdAD8DzAN8DXA/wPMD3ANdzQ+Be2BmBg1HxL460jzaieypR
bw24U+BQcZ4M3ClwqMCfAkcKXCnwpMCRAlcKPClwNcDZAF8TR3ZsTh9DO1aO
4tJ0KS7F/UMrpHsn94QIPM7BEEM8zrzZgl5ztiE9cX1C42GFm7Kek1avP3eo
Hnd1+pmtrNMs6yOdZ41n7zKze/WMcOafkxwCcvLpE4ZuDFqecJ57Fre0HROx
jzUpkRpcOiSb2YnvVvpX4ruVHt+t9ovvXLyY+M7F8Z2ry4upY40fbOODfHo6
zK0/n784vCMwMb+/0/aLPMA+DwW+BPlv8fME/6HSd7Ecyts8LvI2VbxMA6pH
Niu9+YIS/wzUIL/OjeKl20UFjgbxGHAswLXgvbj/A/eBgH+Zl4r8rNlmRX4G
+atmzD9bgMP51rJrWAEupybhcUYKPJIe+CTgkv7rHPIY4aD6Ew4J+KNQyht8
JvUL+KBRxQzxQa2Jv6XE33fQ+AkjC63U3ZD8NfBIwCdBz8DzAN8DPA5wO8Dx
QB7gr+T+1hP6YTVbGepnQJyCO9IDhwT8Ec5jZf0AlzVL0s9Lwi/JfHDPAe49
wDnqR6qP7Ez1kvGdi9N304VSPXzci3CT7kkAfQHV919I9f5Bd6vgvWtHuWZs
5IF4a8/yvfjF5P5K/kAJ8Z1O20d8p+P4TleS7lc4S/ctgA/uCThF9waAPpDq
2mdQnXt8N0R95K5SXIE6wqgrjHgA9zdk0H0O4L+b7iEoSfcSgN5EfCfVn7ZS
vpOq9fNHiu+q/F/xXZXju2odugciju6FUPVG9xnUpfsN8D0375Hy/Zebiu+/
HN9/L4nv16yi0Welri2+X+M+CdwvAf596F4Ec7onAd/NV1L91uqUF438gepU
b/SolBeNeylwTwXouF9hLN23ADrqwKIuLOwJ6paijinax9E9Fp/pXgvQqa4T
tyc/nkB+/Crdb4H7LtDeg+5pqED3NoCOey9wDwboVen+hr50n4P6nYLuGwim
+wdA/6/1iDrai6V4uN9VJV+FDdqn5Ksw5Kucpvs2ytL9G+CPeyPUeySIjnsO
ON17ADrq+6PeP+gBlKfyTqqHPKmzks/DqpxQ8nkY8nliRf6PdohOyf9hyP+Z
SHWfd1MdaOQLWdO9IHfpnhC8txPdb7Gb7rsAHfcx4H4G0HEPAe4lAP0r1ev/
RfX7Qb9B9dZ7Uf115FOhLjnqlMOOlaY63blUtxt8DlHd6jtUxxp01GVGnWbQ
cT8H7usA3Z7uk+hK90uAvpTuUQinexVA19J9Azfo/gHQ91Jd/iCq06/aPaoj
j7ryoKPeejLVXwc9m+qP21M9cnWeUz3ubKrPDXp3qjeN+tOgl6D6yOyD4TiO
oO8mP7YZxo2bKJ7sTfEkvsvY/2oZU/JQPE9OvDo87u9oNnFfpQ179mcxK6qT
24Lq5mopH2Am1ZWdKtWVnU3fC+dK9V0/Uf1W1HPF99Akqs84keo14nsx6vSh
bh/q9aEuHurkoT7eHKoHZ9lffMfR03eQH9Qe9epQpw71mAZNP2Z6zOSUBnWZ
UE+qE9FRV6ok1Xf7TN89Iul7RzX6HtCVzu220vkA6tfUpvNS1LFB/YgiB+fM
bPrPPh3qSKC+Qw6d86DOA+oUJFLdAjPD8zH24IDgA7z/A6rn0prqu2A/W5Py
l0Kl7/tjaH+EukrYHxFdrbsAenvKWxsg8tY48tZmE86l57XCt/uPtFDjK71o
zxKlPLc1RD8q8QGO2njsm6gCXDXit5IDx9UviIeujppk9+c9UI5Nyy61zY9v
hgf1yvzzHqgDSn5+HZ2mwcMqk/+4B2rqSW3FwtNP6t6vrrikycbf90CdLb/Z
d6VJrm5ci/bHqtyoofpTx8cdp43bXDLq6MVXQVGJnVT6qr7Paj43qXhui4Sb
fjvqvF+VvqmayzF3ZnRdXlqlb9w49bP1z4OaDT9fpJnN/p036HtlaaMZW6tq
LBcfutxna+Pf9xfbDehXJN//PX9Vdsyq67/vgarWdG1CaonqVteK/zTA8zrT
uhsrrTtf03stA/PjvKtVeeaf9zrtK+E+9WF+fPZwodvh+X/c69Rqzq9/PN3z
oj6OWPsodOfve51mtH1deGpvc33s628rQoYOVeOfZaHrBj+rYKf3dz51rf7t
+fqHRDfpZdc/YHOvyEoSDtr3ZKUWxZel2Ex73jZ85rpc9b2s0OxOSS3H22T/
WvS92qJZKn2qj7O5cSV/TdbxZic6Vz+oyu+esGySY/Qq6+XiqernvNCLVVWh
J1U/nc6We5qaH3f+eFvWp0KP3/crpfaMrrxof5o+4/Pyl0d25emDT4j48Pnt
xj8qRFTlbU2CBo9p3ZFb1Cj0uID+cOQNh9eHG/A582vVmvbQgQ+7XP5cwbwd
dHRjbqvatXXTJTzy5+ITjO4uGqx1HtendMt+o9V7r47O/d50X5tAmxPiqfY3
VfRTQ/3+fV+2mAfWNcS8UPtbvY1z4damy3jaspPrmxmt499jQqfn5dtPep/W
uITyfvW9pF+bXkLfv/N+xfzTdLyqzEf1vQf8RVwyeJphPm2GGD+bEqeU8VT5
9P6lzG9NNW9lvqt8FtcQ+bTjpXxa8zhlndgYOynrRm3/X/fF3HifsLMAPz/D
J8T3z/tNBpv83Z/9tOVL+mxvbXGzARs65NBSJR9JqqeH71anRHv2WGo/2UWZ
x9p/w5R5rcV8totW1r/NwieKPVDl+a97YQL3rluVOs+Ex4dGt6ucv3+q00DE
ae0ez3qsfe3Fneq5efLKHqyw3aLJ9/PHq3n0qGvPHG7xU7WGNIkaepWZp9mV
2V8ti3Uk/9uZ/C/q1bsJPmyNxKfp/Jzl+fOV/TV2cuOKEVXZcTMxb/ekKetW
W6Wdso7VfNT5LRV7ZzOtgmL/1Hhj8uXa97J2tuIrrOOq1uzTmO22bva6oP0c
8vszJb//dUe8dr3ROvbNZ2T9GabL2LuXQycWzMOD7/0K1pW2rWVSwTrTYn25
jFLsi7bXXMXeqPrcsVaxy5ptpxU7rcrjkKmsW60mXFnHat7pSzfFftmklFTs
mcqnT0PF7muCjyp+QOUT6hRTMB76JT19CsaHYVyeV1Pso2ZUCcVequ2PHVf8
inXl5oqfUeMum83K/NNb5yjzUZ2HGWUidvwvXM98J8VvWT12VPyYGqeVuKKf
/r9wK/Bz8HugT6d5j3Xwf50DwC8OIj+p8id/sIv8A+geu67X4fn7jhmvK+dV
Lt+L+7kOUfYdy4TetEOF3jj0Bv8Kfws+8CvwM6CXyRD2ty/ZY4xjDvnjKeSf
0T6P/FBr8kugv36nzCv9QgtlXql2203MQx4g5iHHPMT5oZ10fuhC/j6M/D/4
x5Ofm0l+D+vluquyvniQi7K+ONZXfJJY1/XFeuRYj+U6NNvauXQCW2xlb9fs
0yV+p93FtxGrstgyOl99LJ2v3hR2gxmHKXZDDz0j/kA8AjlPkt/1ID8Me1Wd
7OFAYd847NtT+i7QUzqv7i3VGYadTKfz7QFS+zlkP4Ml/lgPGlof/9e9YJsp
fkI8BXoVihtqUByBdfQv+VfHKN32oN6/70/H9+Ve0vdHnBsOk84bsT4zab3K
956XpHUJea5RPPeO4jvQ11M8503xHehTKL7xo3gH9A4U5+2iuA/0DIp7tBQH
gT6a4oZPFEfAj88Ufp9N9lT8PoPff0nxYjWKH8EnjeKnSRRPgX6K4o8gikdA
L0RxA+IIvNed4gCjfYbnFV3uKPES2yTiJYZ4aU8vJb7SHslT4ivV/rchO96V
7DrsAOJaxLmQZyXFecso7gN9GsVJiJtA70nxTRbFO6CXongF8QvoU8nfDyf/
j3VUmfzlLvKfsAPwW2PJj4HPM/JDqeSXQIdfeUF+BvTqFKdeoLgVdBq/yMcU
94HemuKzSxSvgV6P4q0hFH+BXpziqk4UZ4GOOKY7xTWqHigOmE1xAejwx9vJ
P4N+mvxrL/K3oFclf3mc/CfoyeT/FpA/BH3E1qt7Y/IucSdPb4fDfyXwvcF6
59P5dnK8oLOxgs72EH3quof9Tufb2ce+LQfZ5dvdvYUmKva2CNmvbhT3oW6w
HX2nTJbq18W2jO3Y/U4C+xbn1tM48QLrv33GzCJeWcy4+euTgYsv8PreC8te
zkhgQW1mNAxYn8WiP1zp82HLQU2ulJceJfjwN4IPH0R8+tF7n0l1/xKE/GyV
nyI/g/zDaP82RMq7rkr1OByXW/8dtf+ger/D12ZCzkZCTn6M5ITfcRN+h8Hv
lBF0Ppv80V2ilxf9ZdbU30DiE0/9+iTpJ5z09oH660j0D6QXd5IT+tE/LtW+
WJerrGWtoq7ttLf45HtHGoTXzGJdKK61oDhXQ/HtPdGea0V7NoHa9yA/ZUrx
vA+N7wfDuvr8Ap3P7KbxqirVM7Gl+VFEqi+dQ7/Plerzt6f6PvMLGdk3Lrpd
95byVWyoHs2zhNMT5wyaq+lK+UJG69wXpjcbp+lHeUSM6Pg78aZoD3pzyoMx
If45xL+o1SfttSPbdM3o/0HPpDyt29J3saKkFzvS02bq10yqD+xN9YE9qD6w
Wd11BfE9P7wkvSDeZ34U5x+l+fmPn+H6KiTaswWiPUf7HhQfyOtrIclvTvqD
3j56Cf1oSH9dSA+IT3pIeQWIP9KldbSa8FNeEn4qieKqZVJ9yDv0ezuJ//tt
lp0L4piZ1Z87F8Q1WweLeOZqrqiDMMpz7OLqPcqodQhrbFfasxNS+25xXrWr
5be7kmtYP+H/AZQb5jk=
       "]], {}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, 
     Ticks -> {Automatic, Automatic, Automatic}, FaceGrids -> None, 
     DisplayFunction -> Identity, Axes -> True, 
     AxesLabel -> {None, None, None}, 
     AxesOrigin -> {Automatic, Automatic, Automatic}, 
     BoxRatios -> {1, 1, 0.4}, DisplayFunction :> Identity, FaceGridsStyle -> 
     Automatic, Lighting -> "Neutral", 
     Method -> {"DefaultBoundaryStyle" -> Directive[
         GrayLevel[0.3]], 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "RotationControl" -> "Globe"}, PlotRange -> {All, All, All}, 
     PlotRangePadding -> {Automatic, Automatic, Automatic}, 
     Ticks -> {Automatic, Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           GraphicsBox[{
             RasterBox[CompressedData["
1:eJwVV3k01O8XTtkKKVuFlJAibcoSelKKQim0E6K9UNooydbX0kKytNijkKWF
hGzZl5mxzVjGMtvHmKFCSsRvfn/cc95zzz3nfe9znvvc51V1cT/kNm/OnDl1
ghASxP/PPy2KjV9p90IvZyhLgVYE5uyjNzb0fjSFUsQ9jtFx5a1popVoMaYL
xz3d9AfwppHTtvNBD9JSYp/6bymGvNdxI++IAQQunE6U/9QN+qvvwZ9dirF+
fZnwY94ATtksvjzI6IJ87B7vkSfFMB/UaE7ZzYBR5GrDokVdsI58dVm9tBhO
yWExnxMYWNJmJPJoeyeCwsedjg8X4/bJn05NkwyMyh+kOF2ioTjY0u6JUgki
FY5oMWyZaD5y5pXucyrG/ZLNq/eWIJNcPDbxjomMOJ/zorUdWOczuW36Zgm+
ha4qkRBnIaj7ydbOX+1wvW6zfnNaCXrN/gte6cKC0/I0oSy1drxwT1c911aC
iZnhA1uLWTA+VdTke7ANredn5OLnfsWiQttl+xTYWFKkuK63rBXv37p72G0p
hYqJ/Y8kNzZGN35TrvdsxYuYf3FVH8uwKmy0zTiDjaa0y1L5q1rhcLxyyolU
jtWdjwupI2ykKy+ZSWptwcrlIQ7T3ApoaerEX9XlwD+ybORhYAsYfftLY4S/
Yf31en+pWxw4iF/ou721BanJcqq6K6qwufLs2TfFHOj7ypLdOBScdevybzas
hv5iEatdQgRkxovLDsZQoLUmkXXergZGp5I39u4mwD9/Js/EggL+kNseEfda
4B3kb4cSqOmTTl47SUb2O+03iSF12DXVMylLIpBsXxgpn0GGh8fP+cap9TDf
692bLTuIOw0uAUInyNisW3CR+rUBljFLKvceHcQRU0mvYQkyfv2603S1sxEH
2B/TWS8HwTLcXK43jwxZhQiDaJNmaEpUhKQVDYLhmqs85xcJm/RepxQmkTBn
E+niua5BTNtP50cySdDMPPlgxJ8M2uEea63JQSwxtzio0ULC1iKO8ZytFOTd
4W7gL+Fik0EUr6CMBLMGj9HFBAUhyROLs/W4sFzbH7QvhwTb7r/panEtcK6d
N+5uz4Wb4rqV9FckuPACHbZatmLbyKKOTV5c3JO49cU9nATPqYWy5v9aISOn
8nkskou46Uq7uT4k+EnE1R7NaQPPUPv5pzwuPg5Lf486T8JjJTXfC87tqDxl
cOcmmYvm3hMhmkdJeKn9TveObAdeBO12NPzOxSApXe3LHhKyjPS5D6s64JV5
aMeU1BCeVW3wJ46TUCLVK1/nQQUp88dy3tIhdJSOpeZEkUBJSirUkachO3jF
b/FFQ1D4UlBzs5kE9lY3h8hCGh467yevFhuCdpfJrxXCZEzWrRH67dCJS8Z3
35rNCHCgJogKq5Ih6chPPTG3C5ZLsvxdfnFxqU1o6aAJGStHcyzK0rqgNdp1
wo/PRTjl9NrG42RsCb7GV7fsxvym+VvjmVxkNVdty71JhoWi/pOQ790YTDdY
WNzFRWODplVUFBkO2X91R572oNr/LNFJ4YJfG+JwK48Mz51fqYcM6HjtEF32
u5YLqWrelZPNZAR23Pcp6KEj0KAqTr6MC51Ka78dPDJiL+xeoXy/F6dlx6/q
FnBhXZYToS5OQdaMeKWfRh92jqyyOpjNhXPluOF+Ywq2WZrUaaT3IeUkLVkl
iIsb1YaMmx4UsBo+n3WT64dIw8NJ3gkuQut8Q5NSKdAebRnSt+/HGcNdNoWb
uYhvrNzcQKPg6tLhywui+1GT/icteD4XH0ji3eOSLSjcLvazp6MfaxWy/9n2
D6KmxTpAxbQFc9xUvXKWDCA08LSdasEgetojtS2ut8A8zOj3/aMD4I0uzRx5
OIjvNGqr59sWPMyz97aLG4C1c7NQsesghHuU77ygt6CN6v5vddcAskkBR0OM
BrG0z1m9anErlGZC/CYVGVi03TDnsMwg1jHSGkd2t8JFPXVe4wkGPLNGRNS5
BEzZPK+l3q14s+9rcPxLBloUU0/+LCXATlqr+L2gFYp1+tvF2hj4uyefFx5O
YNlSp+Krs634lLBIS3QuE8RGjQ8T+wlYP4p2nNjThoM3uPIiG5loV4zydlpM
wE+4aY73ozbwrSqEhB2ZqBCet7O+lYOP3vNS/rW34YHai+G54UzkjnjO3xLN
weAPw933l7dD7e+1TqEvTMTT+smvjnKgfNaDEHZrx1eyVdWcQSbCKg7Eiilx
YENPC/kvqx3H0zXyZuVZuJ319ZQnnY0AW7q25Hg7xu/OvJzZxcLZaB3N7gQ2
8utkmx8bdeCJHfW/f54s2Pm9HDFzYWMI+zxkAzqgrZ3rNZ3Aws4LEvnZ6myo
5PvJxNR3oEYoxGmqiYWNdt53lxIsHFpX8FFRhgoXmrPV3ykWlm/nmvm/ZeF8
rkaR8GUqbBVIQ+sV2bD7wRu95sqC35ao8pEaKszsjENOG7ARljyS6LaChdjP
c2tpq2jYGvlWM/YwGxV2P/cf6WIix9izueIuDavJCtWNXmxMio5PWzxjorqs
ry2LRsOShYGuQk/Z2FA4kbHNhgm62f7uaN1OiFv9nKuXx8aZi5NH10kwMV5b
POD3qBOTIY5JF0hsvFo+LapSzYCktfbgBW4nhmoakDDMRhtp5qP0fQZWUeJG
7My60C1i2NsqwYGkv9BpIWMGDO3Ff21P6ELjrrQ74loc7NoivHhsYgA2nTem
1vztQvF9WSUTCw68OaKlrLwBnHNgC8nadyO71K/Q8wwHubHzL3dcGoBziFiU
dWE3+hidjV99ObgSRvrxZu0AtjvQ82ire3CIp2KvHsHBh69H950c7IfSpg+k
01E9qBo7TQ9J4eDPz4EU6fR+/BYOGR4RosNg+o3b908cmGhc/Ffh1o82mqOE
tzsdmcIjw3a1gr14dPzwDfV+5GVtWStCp0NFSvfGly4OHi2ZcrKt7sNDvwXm
T/b14on8rZkVwxws9ZWS+7KrDxfs+l2VPvdinkpJcNAsB8msFTUry3uxe02+
f5pAR26snivNE/Bbx3Kz94PtvVg1HZa46WkfuOvNY2zUCeTnmemMFNExS2w8
5TinHyf0w1fk6xHYsfRIv50hHSMUpRE1/X40g5KutJdAve/5p0X5PegpEr3L
vdwPUwuFjfdPELBj++xZtaUHzlL+dpmZ/ajPzlIKdyWQ4hO17L/abnAc/2lf
5vbDTn6XWMxlAqOL3/GHT3bjYu6teRs0B0D36RxNuiG4901Vqe3PLvwQGu/6
4TqAMwz33qx7BB5v740sDOrCDVv39++TB/DdQrS+4D8CvW0TbisUuzCVOhTi
1T+A2zkvP1VECPq9KG0YlN0Jvwk3Zz0VBuYq6CY1PSfgI7RGkrezEyIWAwZ/
BPoSdqcunJYi6CtmR58NlYbQuJOLvsQxIM88dYuZJdCR9cfe51+kQZpHJXyo
DMTvnTg98onAuW+eQcpzaIgyti01kWdCMzf8wORXAZ7HQ4/6R1Gx7FFz9Owh
gV4oqBkJ1xIQ+ZmsPbiGihs5V/l1EUxsMqtfrd1I4Acrg7W2sQOZiSh7SRH4
OwN/mSsNBK7rJQeY+3agP0Iyyn0xC6t0ts3k1hOYehC3ym1jB+QCOs/uPMjC
C9VR7lgdgYDOJ+X+jHZYeKUZyUewIKeQ0a4nyItr/+eUGNWOu27XpAfJLIQv
cCm/LXjPozv3Zkv2tOP94R3ML4vYEJld9q64hoBs84347j9tIMylCh7asHF3
jBI7W00gbsUVk8mMNigbdoU6PWFjgggJ3CnIr/B061FwEOipVrqjLpmNKz2m
HkFVBFIrTvpskW5DsJLXZtFFHBDkyRO13whoydkpHipvRZGkqWjnAQ5OVeWZ
SwjyOW6Whe7XWvHjn1RX5mMOaIXndfdXEthasPPoQ41WXFA12m9fz8G1MJkj
OwX4h81Rg/VYC5hm5ypmhAksdCjy1ksnwNg7b7VUeQsczj3TewMCb9e7xmvF
ETB4ypRsetQCalhFxkFvArvmSFWohAlw6KkcCz/ZApuc7ypTHwV8onxiy9wl
wNJI7bLSakF9i/LT1O8Ebqc4zhdzJ2DkHlgu+YcCs4m9Yvu1BiF3XUxnyolA
xGfXN41VFJQsu+nzW7D3cvbk2nw/RIAQ2v04/CkF+iap3xMTBrFv6TEvphkB
E0uNG1bOAn/nRDm9T+AH2VyhWKpg7qKiRBwkNwh8beAMdUyOC7+ijKKGNQSG
6OxdjdNkpKZrW706wIXiQ9u+UkXBvGhWa4XXk0HXPCcdFsDFfuHIdfrzCMhR
3FYGJZHRLvxRtSSXCyXVMymbGByc6f6mXnCfjKaBWd3vdC64JtsU15Vz8Jmt
tpbrTMa3r5Z7VCWGUHB8YcTqRA4W/PDXUdpJRsmLmKO2BkMIvMkQU73HwYm/
A5usV5Hx6RbzQpDbEA5G5fsqOXLwTthU795cMt7Zb7hbEDkElbzQX/ImHPxb
vuO6SxUJaZt9HnNLh8Bvcry0SJmDxM0zd6uDSIiXrklSGh5C4dBm5oIpNszM
i4O1BD4ymi/z0VqRh2AxseMiXWwQJ7wfPxIl4VGdY/U9cx7s1LvJs5/ZCPUw
iB2tbsaDtAxanhcPqqY55n9j2NAJmkg8/KAZ9wImhphJPIw4BHwdv8EGOe7j
2y/mgvq1cZ9ufuHh68FgkUMmbNRqWK3cLtuMxyQjP4lWHh7tDrHKmcdGeR4z
ury3CdHXe/cl8Hg4ZRj+VLKehUITH6ndGU2IV7ovryvMxwadx13nn7CQVycT
WHu9CWnlav3VynzMroxUrTnMwlv7jL+Wpk3IPludcXwrHyS5Z+fUl7OQPGDq
SZJsQr7U+esj1nwkiMfm3Gcy8fxyJ3GI1oiSDxI7/M/w4TH9fKL3LRORkx6O
HSmNqDqWvUDhHh87frwyMfZgIjRIvP2YeyOaZm3a38bwsYiVGBinx0TA4kRL
+rZGtL8eSzDJ5aOfmtIwMc2Azyv9CifRRvRYRl+g1PKR25AmY1fJwLW1JAMW
pQFF81WjPrXzoelcM2VxhwFT8ujnezEN8Oh7qjzUwYdZrMiDdk0G2BHJO3WP
NGD1J9HXKjQ+nEm7ZFxaBxBie6iRo9CA7tDbOradfPiK+r8a8R2Ajvzcw887
6hHhxP/0oIuPeJOyNT5aA2jtyOuzjq7HHr1T24u7+SjymvkgJvClN2Odzwsd
rse0REv1jx4+aJnGiLov2LvHF499lK9H3oDZAY1ePn4xvOtX6vSjVKn8zrn2
OpwtKKAe6+NDY8vVzON5fThN9xBVflYH5YdaTo/6+YL/+Uj5NfE+iCWsfEKy
q0OLy6vBigE+ni+6SAs/1YtMJ/KyALk6PDBY5PmbwUebLzHyOp+OA6v8UvTa
amGyMGBSm8WH9PBpkVIpOsaYG3SGntbi4mvCYryVj6VGajsXGPXALGx+yQ7T
Wjw3tootruRDNYTha3+uG1GbmVYxIzWobc0lAj/woUVNKkp81gV2Z3HP8Isa
TFyQ17dO4UNXw/kPr6ITevejL5ntrYHGXO9g+ad8GF9buVX/Bw0P1vyfGdWw
jettp/vzsbu8z9N/OQ1U0t7wnynVuL9xl0baVT72SydkN+2jYs1NNWWLg9XI
qUn3uuLCxxEHR97SWx24rfIvM36mCr2Okt/0DgnwyVy+xvV1O+qrOox+ZVZB
csJDdtaUj/OTPa45LW1QvJzbYHmsCtsetrvUbOLjqvnLpL8C331RLvREsmgV
zqtve/9YlQ+fZyd6d+u0orjoNO/Ph2+Yv07YJV2Gj39ONIucYy3o5K4J8Hb7
BuVU3asLRfiYfCszoBdEQUV85ypNpW/YoHza//pvHn6NWt3+mktGpm1oRSu5
EqZRkZE9XB4YNxeqhX8mIUrcyMUvuBJ2khXJu3p4YM0PsH0hLZj/Ep6QjnEl
zgb+fJ/RzEPPi98BGWcace7qy6TOnxXwnl5ZubichzadSx8LS+pxUNPaNDi9
AuFeNq23PvDQWNrPqhXwYFvPv/7NDhVI4N9j9r3mofKgvTztYg3UIrL9+mQq
8N41Z2xPLA9FzLrdRIUArz2nVobXlqOqp3dedigPH65vvzGx7Bt+/ZUuM/At
B9VuoZz8XR4yxD6kiXhWoDen7BRbtxxDjSbqd9x5SI7TpMrVlqHG1XM2gluG
/wEdeLt3
              "], {{
                Rational[-15, 2], -75}, {
                Rational[15, 2], 75}}], {Antialiasing -> False, 
              AbsoluteThickness[0.1], 
              Directive[
               Opacity[0.3], 
               GrayLevel[0]], 
              LineBox[
               NCache[{{
                  Rational[15, 2], -75}, {
                  Rational[-15, 2], -75}, {
                  Rational[-15, 2], 75}, {
                  Rational[15, 2], 75}, {
                  Rational[15, 2], -75}}, {{
                 7.5, -75}, {-7.5, -75}, {-7.5, 75}, {7.5, 75}, {
                 7.5, -75}}]]}, {
              CapForm[None], {}}, 
             StyleBox[{Antialiasing -> False, 
               StyleBox[
                LineBox[{{7.5, -75.}, {7.5, 75.}}], {
                 Directive[
                  AbsoluteThickness[0.2], 
                  Opacity[0.3], 
                  GrayLevel[0]]}, StripOnInput -> False], 
               StyleBox[
                StyleBox[{{
                   StyleBox[
                    LineBox[{{{7.5, -75.}, 
                    Offset[{4., 0}, {7.5, -75.}]}, {{7.5, -44.96996996996997}, 
                    Offset[{4., 0}, {7.5, -44.96996996996997}]}, {{
                    7.5, -14.939939939939938`}, 
                    Offset[{4., 0}, {7.5, -14.939939939939938`}]}, {{7.5, 
                    15.090090090090094`}, 
                    Offset[{4., 0}, {7.5, 15.090090090090094`}]}, {{7.5, 
                    45.12012012012013}, 
                    Offset[{4., 0}, {7.5, 45.12012012012013}]}}], {
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]]}, StripOnInput -> False], 
                   StyleBox[
                    LineBox[{{{7.5, -67.4924924924925}, 
                    Offset[{2.5, 0.}, {7.5, -67.4924924924925}]}, {{
                    7.5, -59.98498498498499}, 
                    Offset[{2.5, 0.}, {7.5, -59.98498498498499}]}, {{
                    7.5, -52.47747747747748}, 
                    Offset[{2.5, 0.}, {7.5, -52.47747747747748}]}, {{
                    7.5, -37.46246246246246}, 
                    Offset[{2.5, 0.}, {7.5, -37.46246246246246}]}, {{
                    7.5, -29.954954954954953`}, 
                    Offset[{2.5, 0.}, {7.5, -29.954954954954953`}]}, {{
                    7.5, -22.44744744744745}, 
                    Offset[{2.5, 0.}, {7.5, -22.44744744744745}]}, {{
                    7.5, -7.432432432432431}, 
                    Offset[{2.5, 0.}, {7.5, -7.432432432432431}]}, {{7.5, 
                    0.07507507507507792}, 
                    Offset[{2.5, 0.}, {7.5, 0.07507507507507792}]}, {{7.5, 
                    7.582582582582586}, 
                    Offset[{2.5, 0.}, {7.5, 7.582582582582586}]}, {{7.5, 
                    22.597597597597602`}, 
                    Offset[{2.5, 0.}, {7.5, 22.597597597597602`}]}, {{7.5, 
                    30.10510510510511}, 
                    Offset[{2.5, 0.}, {7.5, 30.10510510510511}]}, {{7.5, 
                    37.612612612612615`}, 
                    Offset[{2.5, 0.}, {7.5, 37.612612612612615`}]}, {{7.5, 
                    52.62762762762763}, 
                    Offset[{2.5, 0.}, {7.5, 52.62762762762763}]}, {{7.5, 
                    60.135135135135144`}, 
                    Offset[{2.5, 0.}, {7.5, 60.135135135135144`}]}, {{7.5, 
                    67.64264264264266}, 
                    Offset[{2.5, 0.}, {7.5, 67.64264264264266}]}}], {
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4], 
                    Opacity[0.3]]}, StripOnInput -> False]}, 
                  StyleBox[
                   StyleBox[{{
                    StyleBox[{
                    InsetBox[
                    FormBox["0.`", TraditionalForm], 
                    Offset[{7., 0.}, {7.5, -75.}], 
                    ImageScaled[{0, 0.5}], Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox[
                    StyleBox["\"0.2\"", ShowStringCharacters -> False], 0.2, 
                    AutoDelete -> True], NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{7., 0.}, {7.5, -44.96996996996997}], 
                    ImageScaled[{0, 0.5}], Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox[
                    StyleBox["\"0.4\"", ShowStringCharacters -> False], 0.4, 
                    AutoDelete -> True], NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{7., 0.}, {7.5, -14.939939939939938`}], 
                    ImageScaled[{0, 0.5}], Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox[
                    StyleBox["\"0.6\"", ShowStringCharacters -> False], 0.6, 
                    AutoDelete -> True], NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{7., 0.}, {7.5, 15.090090090090094`}], 
                    ImageScaled[{0, 0.5}], Automatic, {1, 0}], 
                    InsetBox[
                    FormBox[
                    TagBox[
                    InterpretationBox[
                    StyleBox["\"0.8\"", ShowStringCharacters -> False], 0.8, 
                    AutoDelete -> True], NumberForm[#, {
                    DirectedInfinity[1], 1}]& ], TraditionalForm], 
                    Offset[{7., 0.}, {7.5, 45.12012012012013}], 
                    ImageScaled[{0, 0.5}], Automatic, {1, 0}]}, {
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]], {
                    Directive[
                    Opacity[1]], 
                    Directive[
                    Opacity[1]]}}, StripOnInput -> False], 
                    
                    StyleBox[{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}}, {
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4], 
                    Opacity[0.3]], {
                    Directive[
                    Opacity[1]], 
                    Directive[
                    Opacity[1]]}}, StripOnInput -> False]}, {}}, {{
                    Directive[
                    Opacity[1]], 
                    Directive[
                    Opacity[1]]}}, StripOnInput -> False], {"GraphicsLabel"}, 
                   StripOnInput -> False]}, {"GraphicsTicks"}, StripOnInput -> 
                 False], {{
                  Directive[
                   AbsoluteThickness[0.2], 
                   GrayLevel[0.4]], 
                  Directive[
                   AbsoluteThickness[0.2], 
                   GrayLevel[0.4], 
                   Opacity[0.3]]}}, StripOnInput -> False]}, {"GraphicsAxes"},
               StripOnInput -> False]}, PlotRangePadding -> Scaled[0.02], 
            PlotRange -> All, Frame -> True, 
            FrameTicks -> {{False, False}, {True, False}}, FrameStyle -> 
            Opacity[0], FrameTicksStyle -> Opacity[0], 
            ImageSize -> {Automatic, 150}, BaseStyle -> {}], Alignment -> 
           Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}},
            ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> 
          False], {FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]}, "BarLegend", 
      DisplayFunction -> (#& ), 
      InterpretationFunction :> (RowBox[{"BarLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{
                 RowBox[{"Blend", "[", 
                   RowBox[{"\"Rainbow\"", ",", "#1"}], "]"}], "&"}], ",", 
               RowBox[{"{", 
                 
                 RowBox[{
                  "1.2122204797484965`*^-54", ",", "0.9990727890494145`"}], 
                 "}"}]}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "150"}], ",", 
           RowBox[{"ScalingFunctions", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"Identity", ",", "Identity"}], "}"}]}], ",", 
           RowBox[{"Charting`AxisLabel", "\[Rule]", "None"}], ",", 
           RowBox[{"Charting`TickSide", "\[Rule]", "Right"}], ",", 
           RowBox[{"ColorFunctionScaling", "\[Rule]", "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.929371740856419*^9, 3.929418433567562*^9, 
  3.929429826823995*^9, 3.9294340499261503`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"849de12e-100c-4ed1-b025-9457d0d76c45"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3. Aufgabe:  Legendre-Polynome", "Subsection",
 CellChangeTimes->{{3.927277500699644*^9, 3.927277508593761*^9}, {
  3.92891863099606*^9, 3.9289186386502037`*^9}, {3.929366386383273*^9, 
  3.9293663871582327`*^9}, {3.929429782863366*^9, 3.929429783788884*^9}, {
  3.92948989271952*^9, 
  3.9294898929387197`*^9}},ExpressionUUID->"2edcc4ce-8d47-43a9-bbf6-\
269b44ac30a8"],

Cell[TextData[{
 "Legendre-Polynome ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         SubscriptBox[
          StyleBox["P", "TI"], 
          StyleBox["n", "TI"]], "(", 
         StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "P_n(x)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "6870b978-b5cf-4673-81e7-7f6ade14bf4a"],
 " sind spezielle Funktionen, die eine wichtige Rolle in der theoretischen \
Physik spielen, und Ihnen in den kommenden Semestern begegnen werden. Eine \
besondere Eigenschaft dieser Funktionen ist, dass sie auf dem Intervall \
[-1,1] ein orthogonales Funktionensystem bilden. \n\nSchreiben Sie ein Modul, \
das die Projektion einer Funktion f(x) auf das n-te Legendre-Polynom \
berechnet. d.h. das Skalarprodukt der beiden Funktionen. Dies ist durch\n   \
",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         RowBox[{"\[LeftAngleBracket]", 
           RowBox[{
             StyleBox["f", "TI"], ",", 
             SubscriptBox[
              StyleBox["P", "TI"], 
              StyleBox["n", "TI"]]}], "\[RightAngleBracket]"}], 
         "\[LongEqual]", 
         FractionBox[
          RowBox[{
            SubsuperscriptBox["\[Integral]", "-1", "1"], 
            StyleBox["d", "TI"], 
            StyleBox["x", "TI"], 
            SubscriptBox[
             StyleBox["P", "TI"], 
             StyleBox["n", "TI"]], 
            RowBox[{"(", 
              StyleBox["x", "TI"], ")"}], 
            StyleBox["f", "TI"], 
            RowBox[{"(", 
              StyleBox["x", "TI"], ")"}]}], 
          RowBox[{
            SubsuperscriptBox["\[Integral]", "-1", "1"], 
            StyleBox["d", "TI"], 
            StyleBox["x", "TI"], 
            SubscriptBox[
             StyleBox["P", "TI"], 
             StyleBox["n", "TI"]], 
            RowBox[{"(", 
              StyleBox["x", "TI"], ")"}], 
            SubscriptBox[
             StyleBox["P", "TI"], 
             StyleBox["n", "TI"]], 
            RowBox[{"(", 
              StyleBox["x", "TI"], ")"}]}]]}], TraditionalForm], 
     "errors" -> {}, "input" -> 
     "\\langle f  , P_n \\rangle= \\frac{\\int_{-1}^{1} d x \
P_{n}(x)f(x)}{\\int_{-1}^{1} d x P_{n}(x)P_n(x)}", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "ca154f8d-dc04-4e94-a427-811f2d99d805"],
 "\n definiert.\nBenutzen Sie Ihre L\[ODoubleDot]sung, um die Projektionen \
von ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["f", "TI"], 
         RowBox[{"(", 
           StyleBox["x", "TI"], ")"}], "\[LongEqual]", 
         SqrtBox[
          RowBox[{"1", "-", 
            SuperscriptBox[
             StyleBox["x", "TI"], "2"]}]]}], TraditionalForm], "errors" -> {},
      "input" -> "f(x)=\\sqrt{1-x^2}", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "d00be55d-fad6-4d9a-87d8-3add1bedd3f4"],
 "  auf die ersten 20 Legendre-Polynome zu berechnen. Plotten Sie Ihr \
Ergebnis als ",
 StyleBox["ListPlot. ",
  FontWeight->"Bold"],
 "Vergleichen Sie au\[SZ]erdem in einem Plot die Summen ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[<|"boxes" -> FormBox[
        RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{
             StyleBox["n", "TI"], "\[LongEqual]", "0"}], 
           RowBox[{
             StyleBox["n", "TI"], "\[LongEqual]", "20"}], LimitsPositioning -> 
           True], 
          RowBox[{"\[LeftAngleBracket]", 
            RowBox[{
              StyleBox["f", "TI"], ",", 
              SubscriptBox[
               StyleBox["P", "TI"], 
               StyleBox["n", "TI"]]}], "\[RightAngleBracket]"}]}], 
        TraditionalForm], "errors" -> {}, "input" -> 
      "\\sum_{n=0}^{n=20}\\langle f,P_n\\rangle", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], 
    RowBox[{
     SubscriptBox["P", "n"], "(", "x", ")"}]}], TraditionalForm]],
  ExpressionUUID->"98407789-f8d7-48bb-99a8-856b49b58dee"],
 " und ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[<|"boxes" -> FormBox[
        RowBox[{
          UnderoverscriptBox["\[Sum]", 
           RowBox[{
             StyleBox["n", "TI"], "\[LongEqual]", "0"}], 
           RowBox[{
             StyleBox["n", "TI"], "\[LongEqual]", "3"}], LimitsPositioning -> 
           True], 
          RowBox[{"\[LeftAngleBracket]", 
            RowBox[{
              StyleBox["f", "TI"], ",", 
              SubscriptBox[
               StyleBox["P", "TI"], 
               StyleBox["n", "TI"]]}], "\[RightAngleBracket]"}]}], 
        TraditionalForm], "errors" -> {}, "input" -> 
      "\\sum_{n=0}^{n=3}\\langle f,P_n\\rangle", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], 
    RowBox[{
     SubscriptBox["P", "n"], "(", "x", ")"}]}], TraditionalForm]],
  ExpressionUUID->"9353cafe-ef5e-43bc-82c5-c50027f7749d"],
 " mit der Funktion ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["f", "TI"], "(", 
         StyleBox["x", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "f(x)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "7925d870-a19c-4517-b6fa-360928bcfe70"],
 "."
}], "Text",
 CellChangeTimes->{{3.927277892921328*^9, 3.927277933182638*^9}, {
   3.927278002296256*^9, 3.927278003579713*^9}, {3.92760427167266*^9, 
   3.9276043613983088`*^9}, {3.927604918476722*^9, 3.927604922223835*^9}, 
   3.927604984418355*^9, {3.927699817594887*^9, 3.927699905280695*^9}, {
   3.927699942610712*^9, 3.9277000444406137`*^9}, {3.927700105389535*^9, 
   3.927700116099683*^9}, 3.928903687634439*^9, {3.9289184924096212`*^9, 
   3.9289185521855803`*^9}, 3.9289185840795517`*^9, {3.929372208643147*^9, 
   3.92937221570709*^9}, {3.929372275057424*^9, 3.929372460663375*^9}, {
   3.9293725402614727`*^9, 3.9293726404076233`*^9}, 3.92937270318158*^9, {
   3.9293727599916067`*^9, 3.929372856685869*^9}, {3.9294301458584843`*^9, 
   3.929430212365541*^9}, 3.929430248050962*^9, {3.9294302890520353`*^9, 
   3.92943033697691*^9}, {3.929430370603106*^9, 3.9294304556147833`*^9}, {
   3.929430488361215*^9, 3.929430506402964*^9}, {3.929430618121179*^9, 
   3.929430687952011*^9}, {3.929489894707678*^9, 3.929490031077796*^9}},
 Background->RGBColor[
  0.94, 0.88, 0.94],ExpressionUUID->"5ff27437-36cf-42e7-914e-89e95677612e"],

Cell[TextData[{
 StyleBox["Hinweis: ",
  FontWeight->"Bold"],
 "N\[UDoubleDot]tzliche Befehle ",
 StyleBox["LegendreP[n,x], Integrate ",
  FontWeight->"Bold"],
 "oder ",
 StyleBox["NIntegrate, Table ",
  FontWeight->"Bold"],
 "oder ",
 StyleBox["ParallelTable, Sum,  ListPlot, Plot.\n",
  FontWeight->"Bold"],
 "ParallelTable ist die vorimplementierte parallelisierte Version von Table \
und dadurch meistens zeitsparender. "
}], "Text",
 CellChangeTimes->{{3.927697526090448*^9, 3.927697538036504*^9}, {
   3.927697594019755*^9, 3.927697596852735*^9}, {3.927700069032035*^9, 
   3.927700078914391*^9}, {3.927799136563517*^9, 3.927799137101882*^9}, 
   3.92890375440003*^9, {3.929430256379822*^9, 3.929430269194512*^9}, {
   3.929430701162484*^9, 3.929430828955678*^9}, {3.9294333978494*^9, 
   3.929433398882832*^9}, {3.929433736928746*^9, 3.929433815042824*^9}, {
   3.929433852884632*^9, 3.929433897776409*^9}, {3.929490049219026*^9, 
   3.929490057347425*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"1b9b1820-c35d-47fa-ae7b-539fd320cdba"]
}, Open  ]],

Cell[CellGroupData[{

Cell["4. Aufgabe: ", "Subsection",
 CellChangeTimes->{{3.9273707561824512`*^9, 3.927370759986985*^9}, {
  3.9277024718055773`*^9, 3.927702471961231*^9}, {3.929366393351248*^9, 
  3.92936639424643*^9}, {3.929429788218594*^9, 
  3.929429788336224*^9}},ExpressionUUID->"8c4f473a-1422-457a-9abc-\
01d6455c0083"],

Cell[TextData[{
 "Betrachten Sie die Differentialgleichung ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         OverscriptBox[
          StyleBox["x", "TI"], "."], 
         RowBox[{"(", 
           StyleBox["t", "TI"], ")"}], "\[LongEqual]", "exp", 
         RowBox[{"(", 
           StyleBox["t", "TI"], ")"}], "-", 
         SuperscriptBox[
          StyleBox["x", "TI"], "2"], 
         RowBox[{"(", 
           StyleBox["t", "TI"], ")"}]}], TraditionalForm], "errors" -> {}, 
     "input" -> "\\dot x(t)=\\exp(t)-x^2(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],
  FontWeight->"Plain",ExpressionUUID->
  "5fc3ad33-b662-4d10-b294-f0e174d1d54b"],
 " mit Anfangswert ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], 
         RowBox[{"(", "0", ")"}], "\[LongEqual]", "1"}], TraditionalForm], 
     "errors" -> {}, "input" -> "x(0)=1", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],
  FontWeight->"Plain",ExpressionUUID->
  "bc95c258-9f82-4ce1-8337-f3772ae89e70"],
 ". Berechnen Sie die numerische L\[ODoubleDot]sung der Differentialgleichung \
f\[UDoubleDot]r ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{"0", "\[LessEqual]", 
         StyleBox["t", "TI"], "\[LessEqual]", "100"}], TraditionalForm], 
     "errors" -> {}, "input" -> "0\\le t \\le 100", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],
  FontWeight->"Plain",ExpressionUUID->
  "3812c6e8-bf33-4931-a1a4-1e2c7bceac22"],
 ". Ersetzen Sie nun ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], 
         RowBox[{"(", 
           StyleBox["t", "TI"], ")"}], "\[Rule]", "exp", 
         RowBox[{"[", 
           RowBox[{
             StyleBox["y", "TI"], "(", 
             StyleBox["t", "TI"], ")"}], "]"}]}], TraditionalForm], 
     "errors" -> {}, "input" -> "x(t) \\rightarrow \\exp[y(t)]", "state" -> 
     "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],
  FontWeight->"Plain",ExpressionUUID->
  "8688e291-fd17-4934-b1ea-93fd43464218"],
 ", und l\[ODoubleDot]sen Sie die resu",
 "ltierende Differentialgleichung in ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["y", "TI"], "(", 
         StyleBox["t", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "y(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "53dcabfe-3351-4e8d-b620-d60014097a80"],
 ". Vergleichen Sie beide Ergebnisse."
}], "Text",
 CellChangeTimes->{
  3.92737077097237*^9, {3.927604486722774*^9, 3.927604491953952*^9}, {
   3.9276045372296753`*^9, 3.927604573768821*^9}, {3.927801068780904*^9, 
   3.927801078303049*^9}, {3.927801249029561*^9, 3.9278014725584173`*^9}, {
   3.928208799663024*^9, 3.928208869817666*^9}, {3.928213827606935*^9, 
   3.928213829085759*^9}, 3.9289037011077147`*^9, {3.929102084114977*^9, 
   3.929102084595645*^9}, {3.929185252009728*^9, 3.929185255694867*^9}, {
   3.9293815623897333`*^9, 3.929381675550479*^9}, {3.929381738162418*^9, 
   3.929381740604738*^9}, {3.929381789983485*^9, 3.9293818058139963`*^9}},
 Background->RGBColor[
  0.94, 0.88, 0.94],ExpressionUUID->"eec1f6e5-df75-4341-8880-d804f815ce28"],

Cell[TextData[{
 StyleBox["Hinweis: ",
  FontWeight->"Bold"],
 "N\[UDoubleDot]tzliche Befehle ",
 StyleBox[" NDSolve,   /.->",
  FontWeight->"Bold"],
 "  Rule , ",
 StyleBox["LogPlot",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.928213838169512*^9, 3.9282138497098846`*^9}, 
   3.9289037078793573`*^9, {3.929381683216967*^9, 3.929381726488213*^9}, {
   3.92943084411987*^9, 3.9294308562249603`*^9}, {3.9294334074955177`*^9, 
   3.929433428978739*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"8c226efe-4988-4965-b950-b66da8406496"]
}, Open  ]],

Cell[CellGroupData[{

Cell["5. Aufgabe", "Subsection",
 CellChangeTimes->{{3.92788163522797*^9, 3.927881644241858*^9}, {
  3.92942979266291*^9, 
  3.929429793392391*^9}},ExpressionUUID->"a8035bea-e525-4423-8c84-\
225cdc45482c"],

Cell[TextData[{
 "Betrachten Sie die nachfolgend definierte Liste mit Werten f\[UDoubleDot]r \
die Zeit, die Ortskoordinate und die Geschwindigkeit einer Masse: \n ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["Liste", FontSlant -> "Plain"], "\[LongEqual]", 
         RowBox[{"{", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 SubscriptBox[
                  StyleBox["t", "TI"], "1"], ",", 
                 SubscriptBox[
                  StyleBox["x", "TI"], "1"], ",", 
                 SubscriptBox[
                  StyleBox["v", "TI"], "1"]}], "}"}], ",", 
             RowBox[{"{", 
               RowBox[{
                 SubscriptBox[
                  StyleBox["t", "TI"], "2"], ",", 
                 SubscriptBox[
                  StyleBox["x", "TI"], "2"], ",", 
                 SubscriptBox[
                  StyleBox["v", "TI"], "2"]}], "}"}], ",", "....", ",", 
             RowBox[{"{", 
               RowBox[{
                 SubscriptBox[
                  StyleBox["t", "TI"], 
                  StyleBox["n", "TI"]], ",", 
                 SubscriptBox[
                  StyleBox["x", "TI"], 
                  StyleBox["n", "TI"]], ",", 
                 SubscriptBox[
                  StyleBox["v", "TI"], 
                  StyleBox["n", "TI"]]}], "}"}]}], "}"}], "."}], 
       TraditionalForm], "errors" -> {}, "input" -> 
     "\\mathrm{Liste}=\\{\\{t_1, x_1, v_1\\},\n\
\\{t_2,x_2,v_2\\},....,\\{t_n,x_n,v_n\\}\\}.", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "c5feb617-7468-492a-88c0-3d4fb612828a"],
 "\nBestimmen Sie Interpolationen f\[UDoubleDot]r die Ortskoordinate ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], "(", 
         StyleBox["t", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "x(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "927bf5a7-d4e4-4a0a-8054-790aa74bb54b"],
 " und die Geschwindigkeit ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["v", "TI"], "(", 
         StyleBox["t", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "v(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "6c948dca-760c-45a9-b0fc-d3585735aa58"],
 ".  Bestimmen Sie daraus die kinetische Energie ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         SubscriptBox[
          StyleBox["E", "TI"], 
          StyleBox["kin", FontSlant -> "Plain"]], "\[LongEqual]", 
         FractionBox["1", "2"], 
         StyleBox["m", "TI"], 
         SuperscriptBox[
          StyleBox["v", "TI"], "2"]}], TraditionalForm], "errors" -> {}, 
     "input" -> "E_{\\mathrm{kin}}=\\frac{1}{2} m v ^2", "state" -> "Boxes"|>,
    
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "359ab9c8-563c-4ae0-89af-2d7c29d0b8e9"],
 "  und die potentielle Energie, wobei das Potential durch ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["V", "TI"], 
         RowBox[{"(", 
           StyleBox["x", "TI"], ")"}], "\[LongEqual]", "0.5", 
         SuperscriptBox[
          StyleBox["x", "TI"], "2"], "+", "0.1", 
         SuperscriptBox[
          StyleBox["x", "TI"], "4"], "-", "0.6", 
         SuperscriptBox[
          StyleBox["x", "TI"], "3"]}], TraditionalForm], "errors" -> {}, 
     "input" -> "V(x)= 0.5  x^2 + 0.1 x^4 - 0.6 x^3", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "20d1e4dc-73bd-4f92-802e-dda9ffa0c3c4"],
 " gegeben ist und die Masse ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["m", "TI"], "\[LongEqual]", "1"}], TraditionalForm], 
     "errors" -> {}, "input" -> "m=1", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "a3d717d7-9f44-48d5-ad26-e26d2e868171"],
 ".  \[CapitalUDoubleDot]berpr\[UDoubleDot]fen Sie, dass die Gesamtenergie ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["U", "TI"], "\[LongEqual]", 
         SubscriptBox[
          StyleBox["E", "TI"], 
          StyleBox["kin", FontSlant -> "Plain"]], "+", 
         StyleBox["V", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> 
     "U=E_{\\mathrm{kin}}+V", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "f6e205e5-db66-4c5e-a7fc-89a4d77d46ad"],
 " erhalten bleibt. "
}], "Text",
 CellChangeTimes->{{3.927801965724678*^9, 3.927801967820498*^9}, 
   3.92788163038666*^9, {3.927881790514579*^9, 3.927881830327923*^9}, {
   3.927881863751809*^9, 3.927881944899067*^9}, {3.927882325970059*^9, 
   3.927882364160006*^9}, {3.927882397545876*^9, 3.927882543724637*^9}, 
   3.927882578446169*^9, 3.927885975252193*^9, {3.928209171355524*^9, 
   3.928209268471307*^9}, {3.928209386229618*^9, 3.9282094053739443`*^9}, 
   3.9289037279345922`*^9, {3.929102096091022*^9, 3.9291021846662407`*^9}, {
   3.9293820541631527`*^9, 3.929382201642511*^9}, {3.929383018195404*^9, 
   3.929383033915267*^9}, {3.9294309755699463`*^9, 3.929431135040403*^9}, {
   3.929431368996051*^9, 3.929431371494918*^9}, {3.9294314069617643`*^9, 
   3.9294314384302692`*^9}, {3.929431574736041*^9, 3.929431597787423*^9}, {
   3.929431633643922*^9, 3.929431636157304*^9}, {3.9294322712423887`*^9, 
   3.929432348377823*^9}, {3.929432425672092*^9, 3.929432467331047*^9}, {
   3.929432891226656*^9, 3.9294329169637814`*^9}, {3.929490127645424*^9, 
   3.929490152364407*^9}},
 Background->RGBColor[
  0.94, 0.88, 0.94],ExpressionUUID->"43498629-e356-4c77-80b8-e9fcab297361"],

Cell[TextData[{
 StyleBox["Hinweis : ",
  FontWeight->"Bold"],
 "N\[UDoubleDot]tzliche Befehle",
 StyleBox[" Interpolation[ ], Plot",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.927801965724678*^9, 3.927801967820498*^9}, 
   3.92788163038666*^9, {3.927881790514579*^9, 3.927881830327923*^9}, {
   3.927881863751809*^9, 3.927881944899067*^9}, {3.927882325970059*^9, 
   3.927882364160006*^9}, {3.927882397545876*^9, 3.927882570905937*^9}, 
   3.928903746360633*^9, {3.929432492618292*^9, 3.929432498027419*^9}, {
   3.929432946094839*^9, 3.9294329474313593`*^9}, {3.9294334378422947`*^9, 
   3.929433440358387*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"57213f74-b610-4fd9-992a-1afcbc57a3ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Liste", "=", 
    TagBox[
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"0.\"\>",
           ShowStringCharacters->False],
          0.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1\"\>",
           ShowStringCharacters->False],
          2.1,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.\"\>",
           ShowStringCharacters->False],
          0.,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"0.2\"\>",
           ShowStringCharacters->False],
          0.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1429\"\>",
           ShowStringCharacters->False],
          2.142850731111446,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.43028\"\>",
           ShowStringCharacters->False],
          0.43028145924386907`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"0.4\"\>",
           ShowStringCharacters->False],
          0.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2735\"\>",
           ShowStringCharacters->False],
          2.2734723041622935`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.88071\"\>",
           ShowStringCharacters->False],
          0.8807058187944055,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"0.6\"\>",
           ShowStringCharacters->False],
          0.6000000000000001,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.4974\"\>",
           ShowStringCharacters->False],
          2.497382923696419,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.3642\"\>",
           ShowStringCharacters->False],
          1.364200917423707,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"0.8\"\>",
           ShowStringCharacters->False],
          0.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.8208\"\>",
           ShowStringCharacters->False],
          2.820839707076508,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.8727\"\>",
           ShowStringCharacters->False],
          1.872654493899903,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"1.\"\>",
           ShowStringCharacters->False],
          1.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.2449\"\>",
           ShowStringCharacters->False],
          3.244872601107243,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.3497\"\>",
           ShowStringCharacters->False],
          2.3496884629088095`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"1.2\"\>",
           ShowStringCharacters->False],
          1.2000000000000002`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.7465\"\>",
           ShowStringCharacters->False],
          3.7465017100681184`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.6126\"\>",
           ShowStringCharacters->False],
          2.6125621080361876`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"1.4\"\>",
           ShowStringCharacters->False],
          1.4000000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.2603\"\>",
           ShowStringCharacters->False],
          4.260302656780939,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.4306\"\>",
           ShowStringCharacters->False],
          2.430554348749054,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"1.6\"\>",
           ShowStringCharacters->False],
          1.6,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.6722\"\>",
           ShowStringCharacters->False],
          4.672183777101664,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.5587\"\>",
           ShowStringCharacters->False],
          1.5586789793959266`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"1.8\"\>",
           ShowStringCharacters->False],
          1.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.843\"\>",
           ShowStringCharacters->False],
          4.842959461898668,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.088785\"\>",
           ShowStringCharacters->False],
          0.0887854796017391,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"2.\"\>",
           ShowStringCharacters->False],
          2.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.7043\"\>",
           ShowStringCharacters->False],
          4.704259209312685,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.4266\"\>",
           ShowStringCharacters->False],
          -1.4265660268165903`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"2.2\"\>",
           ShowStringCharacters->False],
          2.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.3118\"\>",
           ShowStringCharacters->False],
          4.311751651071175,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.3784\"\>",
           ShowStringCharacters->False],
          -2.3783726841610946`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"2.4\"\>",
           ShowStringCharacters->False],
          2.4000000000000004`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.8005\"\>",
           ShowStringCharacters->False],
          3.8004967493824564`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.6266\"\>",
           ShowStringCharacters->False],
          -2.62661823139859,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"2.6\"\>",
           ShowStringCharacters->False],
          2.6,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.294\"\>",
           ShowStringCharacters->False],
          3.2939825555000697`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.3834\"\>",
           ShowStringCharacters->False],
          -2.383390835239078,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"2.8\"\>",
           ShowStringCharacters->False],
          2.8000000000000003`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.8613\"\>",
           ShowStringCharacters->False],
          2.861310133224551,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.9246\"\>",
           ShowStringCharacters->False],
          -1.9246023997152506`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"3.\"\>",
           ShowStringCharacters->False],
          3.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.5271\"\>",
           ShowStringCharacters->False],
          2.527107032543586,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.4177\"\>",
           ShowStringCharacters->False],
          -1.417667925402084,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"3.2\"\>",
           ShowStringCharacters->False],
          3.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2927\"\>",
           ShowStringCharacters->False],
          2.2927281706535534`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.93176\"\>",
           ShowStringCharacters->False],
          -0.9317590302168947,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"3.4\"\>",
           ShowStringCharacters->False],
          3.4000000000000004`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1523\"\>",
           ShowStringCharacters->False],
          2.1522868870475413`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.47732\"\>",
           ShowStringCharacters->False],
          -0.47732162919947463`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"3.6\"\>",
           ShowStringCharacters->False],
          3.6,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1003\"\>",
           ShowStringCharacters->False],
          2.1003353663334257`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.044591\"\>",
           ShowStringCharacters->False],
          -0.04459069773394114,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"3.8\"\>",
           ShowStringCharacters->False],
          3.8000000000000003`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1342\"\>",
           ShowStringCharacters->False],
          2.1341505567924,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.3839\"\>",
           ShowStringCharacters->False],
          0.38389528636130055`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"4.\"\>",
           ShowStringCharacters->False],
          4.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2551\"\>",
           ShowStringCharacters->False],
          2.255059558711176,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.82887\"\>",
           ShowStringCharacters->False],
          0.8288727879486892,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"4.2\"\>",
           ShowStringCharacters->False],
          4.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.4681\"\>",
           ShowStringCharacters->False],
          2.468093694613491,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.3088\"\>",
           ShowStringCharacters->False],
          1.308789920173394,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"4.4\"\>",
           ShowStringCharacters->False],
          4.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.7808\"\>",
           ShowStringCharacters->False],
          2.7808035383918015`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.82\"\>",
           ShowStringCharacters->False],
          1.8200107767172535`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"4.6\"\>",
           ShowStringCharacters->False],
          4.6000000000000005`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.194\"\>",
           ShowStringCharacters->False],
          3.193961931065244,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2971\"\>",
           ShowStringCharacters->False],
          2.297074069884017,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"4.8\"\>",
           ShowStringCharacters->False],
          4.800000000000001,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.6888\"\>",
           ShowStringCharacters->False],
          3.688847569676592,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.6076\"\>",
           ShowStringCharacters->False],
          2.607636632776812,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"5.\"\>",
           ShowStringCharacters->False],
          5.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.2079\"\>",
           ShowStringCharacters->False],
          4.207922295426031,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.485\"\>",
           ShowStringCharacters->False],
          2.48499303870686,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"5.2\"\>",
           ShowStringCharacters->False],
          5.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.6376\"\>",
           ShowStringCharacters->False],
          4.637559398466595,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.6901\"\>",
           ShowStringCharacters->False],
          1.6901440550109084`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"5.4\"\>",
           ShowStringCharacters->False],
          5.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.8392\"\>",
           ShowStringCharacters->False],
          4.839246371294883,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.25349\"\>",
           ShowStringCharacters->False],
          0.2534945070719745,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"5.6\"\>",
           ShowStringCharacters->False],
          5.6000000000000005`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.7329\"\>",
           ShowStringCharacters->False],
          4.732886512727096,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.2787\"\>",
           ShowStringCharacters->False],
          -1.2786695592881367`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"5.8\"\>",
           ShowStringCharacters->False],
          5.800000000000001,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.3617\"\>",
           ShowStringCharacters->False],
          4.361650459526603,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.3119\"\>",
           ShowStringCharacters->False],
          -2.31194941316903,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"6.\"\>",
           ShowStringCharacters->False],
          6.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.8568\"\>",
           ShowStringCharacters->False],
          3.8568441384052488`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.6282\"\>",
           ShowStringCharacters->False],
          -2.628181281869617,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"6.2\"\>",
           ShowStringCharacters->False],
          6.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.3453\"\>",
           ShowStringCharacters->False],
          3.345348890835447,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.4234\"\>",
           ShowStringCharacters->False],
          -2.423439457200586,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"6.4\"\>",
           ShowStringCharacters->False],
          6.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.903\"\>",
           ShowStringCharacters->False],
          2.9029810339977926`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.9787\"\>",
           ShowStringCharacters->False],
          -1.9786891415326084`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"6.6\"\>",
           ShowStringCharacters->False],
          6.6000000000000005`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.5579\"\>",
           ShowStringCharacters->False],
          2.557899192041629,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.4709\"\>",
           ShowStringCharacters->False],
          -1.4708772647652313`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"6.8\"\>",
           ShowStringCharacters->False],
          6.800000000000001,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.3132\"\>",
           ShowStringCharacters->False],
          2.31324695188101,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.98112\"\>",
           ShowStringCharacters->False],
          -0.9811232506667218,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"7.\"\>",
           ShowStringCharacters->False],
          7.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1631\"\>",
           ShowStringCharacters->False],
          2.1631102244931766`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.52549\"\>",
           ShowStringCharacters->False],
          -0.5254862349962981,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"7.2\"\>",
           ShowStringCharacters->False],
          7.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1016\"\>",
           ShowStringCharacters->False],
          2.101590240691465,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.091809\"\>",
           ShowStringCharacters->False],
          -0.0918085895999653,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"7.4\"\>",
           ShowStringCharacters->False],
          7.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1262\"\>",
           ShowStringCharacters->False],
          2.126157349135687,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.3384\"\>",
           ShowStringCharacters->False],
          0.33840135062512156`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"7.6\"\>",
           ShowStringCharacters->False],
          7.6000000000000005`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2379\"\>",
           ShowStringCharacters->False],
          2.2379018942801494`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.78285\"\>",
           ShowStringCharacters->False],
          0.7828518785210552,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"7.8\"\>",
           ShowStringCharacters->False],
          7.800000000000001,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.4414\"\>",
           ShowStringCharacters->False],
          2.4413694716958054`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.258\"\>",
           ShowStringCharacters->False],
          1.258032804548396,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"8.\"\>",
           ShowStringCharacters->False],
          8.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.7432\"\>",
           ShowStringCharacters->False],
          2.7431640916955935`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.7627\"\>",
           ShowStringCharacters->False],
          1.762660929333065,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"8.2\"\>",
           ShowStringCharacters->False],
          8.200000000000001,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.1454\"\>",
           ShowStringCharacters->False],
          3.145435931219388,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2494\"\>",
           ShowStringCharacters->False],
          2.2494040950573035`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"8.4\"\>",
           ShowStringCharacters->False],
          8.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.6332\"\>",
           ShowStringCharacters->False],
          3.6332499429370397`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.5873\"\>",
           ShowStringCharacters->False],
          2.5872935142768476`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"8.6\"\>",
           ShowStringCharacters->False],
          8.6,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.1538\"\>",
           ShowStringCharacters->False],
          4.153847917897761,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.5278\"\>",
           ShowStringCharacters->False],
          2.5277765185467054`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"8.8\"\>",
           ShowStringCharacters->False],
          8.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.6001\"\>",
           ShowStringCharacters->False],
          4.600070517219406,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.8081\"\>",
           ShowStringCharacters->False],
          1.8081483923692065`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"9.\"\>",
           ShowStringCharacters->False],
          9.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.8318\"\>",
           ShowStringCharacters->False],
          4.831750346782529,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.42932\"\>",
           ShowStringCharacters->False],
          0.42931610781744056`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"9.2\"\>",
           ShowStringCharacters->False],
          9.200000000000001,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.7591\"\>",
           ShowStringCharacters->False],
          4.759056984581098,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.1335\"\>",
           ShowStringCharacters->False],
          -1.1335359170062103`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"9.4\"\>",
           ShowStringCharacters->False],
          9.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.4105\"\>",
           ShowStringCharacters->False],
          4.410475648231704,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.236\"\>",
           ShowStringCharacters->False],
          -2.23599995706505,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"9.6\"\>",
           ShowStringCharacters->False],
          9.600000000000001,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.9128\"\>",
           ShowStringCharacters->False],
          3.9128246662810224`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.626\"\>",
           ShowStringCharacters->False],
          -2.626011188080984,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"9.8\"\>",
           ShowStringCharacters->False],
          9.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.3975\"\>",
           ShowStringCharacters->False],
          3.3975277976940492`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.4611\"\>",
           ShowStringCharacters->False],
          -2.4610871227909,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"10.\"\>",
           ShowStringCharacters->False],
          10.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.9458\"\>",
           ShowStringCharacters->False],
          2.945826517364145,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.0308\"\>",
           ShowStringCharacters->False],
          -2.030756033740118,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"10.2\"\>",
           ShowStringCharacters->False],
          10.200000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.59\"\>",
           ShowStringCharacters->False],
          2.5899848796960883`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.5254\"\>",
           ShowStringCharacters->False],
          -1.5253908057538792`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"10.4\"\>",
           ShowStringCharacters->False],
          10.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.3347\"\>",
           ShowStringCharacters->False],
          2.3346999699644058`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.0327\"\>",
           ShowStringCharacters->False],
          -1.0327278027282143`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"10.6\"\>",
           ShowStringCharacters->False],
          10.600000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1747\"\>",
           ShowStringCharacters->False],
          2.1747052085717193`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.5722\"\>",
           ShowStringCharacters->False],
          -0.5722015074751649,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"10.8\"\>",
           ShowStringCharacters->False],
          10.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1042\"\>",
           ShowStringCharacters->False],
          2.1041811320186423`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.136\"\>",
           ShowStringCharacters->False],
          -0.1360044735512621,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"11.\"\>",
           ShowStringCharacters->False],
          11.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1197\"\>",
           ShowStringCharacters->False],
          2.119716039514171,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.29163\"\>",
           ShowStringCharacters->False],
          0.29162612882329186`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"11.2\"\>",
           ShowStringCharacters->False],
          11.200000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2217\"\>",
           ShowStringCharacters->False],
          2.221731887032873,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.73197\"\>",
           ShowStringCharacters->False],
          0.731966981852589,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"11.4\"\>",
           ShowStringCharacters->False],
          11.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.4145\"\>",
           ShowStringCharacters->False],
          2.4144556400387986`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.2024\"\>",
           ShowStringCharacters->False],
          1.2023665453911014`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"11.6\"\>",
           ShowStringCharacters->False],
          11.600000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.7053\"\>",
           ShowStringCharacters->False],
          2.705323723293991,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.7103\"\>",
           ShowStringCharacters->False],
          1.7102529268929225`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"11.8\"\>",
           ShowStringCharacters->False],
          11.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.0977\"\>",
           ShowStringCharacters->False],
          3.0977476323128865`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2038\"\>",
           ShowStringCharacters->False],
          2.2038101775416945`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"12.\"\>",
           ShowStringCharacters->False],
          12.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.5782\"\>",
           ShowStringCharacters->False],
          3.5782166636704558`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.5658\"\>",
           ShowStringCharacters->False],
          2.5657853107286397`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"12.2\"\>",
           ShowStringCharacters->False],
          12.200000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.1\"\>",
           ShowStringCharacters->False],
          4.10003920777473,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.5635\"\>",
           ShowStringCharacters->False],
          2.563456504209923,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"12.4\"\>",
           ShowStringCharacters->False],
          12.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.5603\"\>",
           ShowStringCharacters->False],
          4.56033225754325,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.9202\"\>",
           ShowStringCharacters->False],
          1.9202364149717932`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"12.6\"\>",
           ShowStringCharacters->False],
          12.600000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.8213\"\>",
           ShowStringCharacters->False],
          4.821300470769562,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.59209\"\>",
           ShowStringCharacters->False],
          0.5920941335322278,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"12.8\"\>",
           ShowStringCharacters->False],
          12.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.7811\"\>",
           ShowStringCharacters->False],
          4.7810789871373185`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.97647\"\>",
           ShowStringCharacters->False],
          -0.9764713932688168,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"13.\"\>",
           ShowStringCharacters->False],
          13.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.4572\"\>",
           ShowStringCharacters->False],
          4.457198617526808,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.1547\"\>",
           ShowStringCharacters->False],
          -2.1546540761345168`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"13.2\"\>",
           ShowStringCharacters->False],
          13.200000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.9689\"\>",
           ShowStringCharacters->False],
          3.9689044968514398`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.6127\"\>",
           ShowStringCharacters->False],
          -2.612685571880036,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"13.4\"\>",
           ShowStringCharacters->False],
          13.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.4505\"\>",
           ShowStringCharacters->False],
          3.4505362783859765`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.497\"\>",
           ShowStringCharacters->False],
          -2.4969691122235402`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"13.6\"\>",
           ShowStringCharacters->False],
          13.600000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.9898\"\>",
           ShowStringCharacters->False],
          2.9897941810660864`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.0833\"\>",
           ShowStringCharacters->False],
          -2.0832796608057373`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"13.8\"\>",
           ShowStringCharacters->False],
          13.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.623\"\>",
           ShowStringCharacters->False],
          2.6230463824831265`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.5796\"\>",
           ShowStringCharacters->False],
          -1.5795675681443653`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"14.\"\>",
           ShowStringCharacters->False],
          14.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.3573\"\>",
           ShowStringCharacters->False],
          2.3573377328854956`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.0828\"\>",
           ShowStringCharacters->False],
          -1.0827945507206322`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"14.2\"\>",
           ShowStringCharacters->False],
          14.200000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1876\"\>",
           ShowStringCharacters->False],
          2.18762482235794,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.62007\"\>",
           ShowStringCharacters->False],
          -0.6200748087690777,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"14.4\"\>",
           ShowStringCharacters->False],
          14.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1075\"\>",
           ShowStringCharacters->False],
          2.1075186951895906`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.18377\"\>",
           ShowStringCharacters->False],
          -0.18376560244851625`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"14.6\"\>",
           ShowStringCharacters->False],
          14.600000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1137\"\>",
           ShowStringCharacters->False],
          2.1136579616747633`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.24556\"\>",
           ShowStringCharacters->False],
          0.24556402044984843`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"14.8\"\>",
           ShowStringCharacters->False],
          14.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2065\"\>",
           ShowStringCharacters->False],
          2.2064873528735975`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.68597\"\>",
           ShowStringCharacters->False],
          0.6859690980435901,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"15.\"\>",
           ShowStringCharacters->False],
          15.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.3899\"\>",
           ShowStringCharacters->False],
          2.3898517438728217`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.1534\"\>",
           ShowStringCharacters->False],
          1.1533960324810355`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"15.2\"\>",
           ShowStringCharacters->False],
          15.200000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.6701\"\>",
           ShowStringCharacters->False],
          2.6700586489042117`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.6529\"\>",
           ShowStringCharacters->False],
          1.6528527822501458`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"15.4\"\>",
           ShowStringCharacters->False],
          15.4,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.0512\"\>",
           ShowStringCharacters->False],
          3.051240047644521,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1526\"\>",
           ShowStringCharacters->False],
          2.1525942840179653`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"15.6\"\>",
           ShowStringCharacters->False],
          15.600000000000001`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.5237\"\>",
           ShowStringCharacters->False],
          3.52367924174663,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.5376\"\>",
           ShowStringCharacters->False],
          2.5376180354625024`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"15.8\"\>",
           ShowStringCharacters->False],
          15.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.0443\"\>",
           ShowStringCharacters->False],
          4.0442846699561334`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.5892\"\>",
           ShowStringCharacters->False],
          2.5892118957894503`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"16.\"\>",
           ShowStringCharacters->False],
          16.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.518\"\>",
           ShowStringCharacters->False],
          4.518022701999556,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.027\"\>",
           ShowStringCharacters->False],
          2.026998696422546,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"16.2\"\>",
           ShowStringCharacters->False],
          16.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.807\"\>",
           ShowStringCharacters->False],
          4.8070029372517284`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.76168\"\>",
           ShowStringCharacters->False],
          0.7616827544147746,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"16.4\"\>",
           ShowStringCharacters->False],
          16.400000000000002`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.801\"\>",
           ShowStringCharacters->False],
          4.800952105533656,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.82087\"\>",
           ShowStringCharacters->False],
          -0.8208701514699543,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"16.6\"\>",
           ShowStringCharacters->False],
          16.6,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.5024\"\>",
           ShowStringCharacters->False],
          4.502382024708796,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.0617\"\>",
           ShowStringCharacters->False],
          -2.061682445787708,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"16.8\"\>",
           ShowStringCharacters->False],
          16.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.0243\"\>",
           ShowStringCharacters->False],
          4.024315531503292,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.5975\"\>",
           ShowStringCharacters->False],
          -2.5975101166266508`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"17.\"\>",
           ShowStringCharacters->False],
          17.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.5042\"\>",
           ShowStringCharacters->False],
          3.5041699418130126`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.5268\"\>",
           ShowStringCharacters->False],
          -2.526814638118537,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"17.2\"\>",
           ShowStringCharacters->False],
          17.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.0349\"\>",
           ShowStringCharacters->False],
          3.0348710170015227`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-2.1338\"\>",
           ShowStringCharacters->False],
          -2.133824483293441,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"17.4\"\>",
           ShowStringCharacters->False],
          17.400000000000002`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.6575\"\>",
           ShowStringCharacters->False],
          2.6574982742130158`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.6342\"\>",
           ShowStringCharacters->False],
          -1.6341662764483469`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"17.6\"\>",
           ShowStringCharacters->False],
          17.6,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.381\"\>",
           ShowStringCharacters->False],
          2.3809682884798957`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-1.1355\"\>",
           ShowStringCharacters->False],
          -1.135491557800468,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"17.8\"\>",
           ShowStringCharacters->False],
          17.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.2012\"\>",
           ShowStringCharacters->False],
          2.2012347146829834`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.66723\"\>",
           ShowStringCharacters->False],
          -0.6672284882432371,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"18.\"\>",
           ShowStringCharacters->False],
          18.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1121\"\>",
           ShowStringCharacters->False],
          2.1121264457099644`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.22774\"\>",
           ShowStringCharacters->False],
          -0.22774083707034734`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"18.2\"\>",
           ShowStringCharacters->False],
          18.2,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1093\"\>",
           ShowStringCharacters->False],
          2.1092675478552776`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.19906\"\>",
           ShowStringCharacters->False],
          0.19906143080058958`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"18.4\"\>",
           ShowStringCharacters->False],
          18.400000000000002`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1921\"\>",
           ShowStringCharacters->False],
          2.192075587798022,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.63237\"\>",
           ShowStringCharacters->False],
          0.6323653428556701,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"18.6\"\>",
           ShowStringCharacters->False],
          18.6,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.3646\"\>",
           ShowStringCharacters->False],
          2.364597886843891,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.1\"\>",
           ShowStringCharacters->False],
          1.1000204753949496`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"18.8\"\>",
           ShowStringCharacters->False],
          18.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.6346\"\>",
           ShowStringCharacters->False],
          2.6345827540166087`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"1.6037\"\>",
           ShowStringCharacters->False],
          1.603748441632379,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"19.\"\>",
           ShowStringCharacters->False],
          19.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.0059\"\>",
           ShowStringCharacters->False],
          3.0058873993497595`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1029\"\>",
           ShowStringCharacters->False],
          2.102916638452622,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"19.2\"\>",
           ShowStringCharacters->False],
          19.200000000000003`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.47\"\>",
           ShowStringCharacters->False],
          3.4700289537496936`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.513\"\>",
           ShowStringCharacters->False],
          2.5129727250629004`,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"19.4\"\>",
           ShowStringCharacters->False],
          19.400000000000002`,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"3.9902\"\>",
           ShowStringCharacters->False],
          3.990180226956472,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.6091\"\>",
           ShowStringCharacters->False],
          2.609083597930756,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"19.6\"\>",
           ShowStringCharacters->False],
          19.6,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.474\"\>",
           ShowStringCharacters->False],
          4.474010158339445,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"2.1158\"\>",
           ShowStringCharacters->False],
          2.115838830931807,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"19.8\"\>",
           ShowStringCharacters->False],
          19.8,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.789\"\>",
           ShowStringCharacters->False],
          4.789034411348978,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"0.9236\"\>",
           ShowStringCharacters->False],
          0.9236041765415638,
          AutoDelete->True]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         InterpretationBox[
          StyleBox["\<\"20.\"\>",
           ShowStringCharacters->False],
          20.,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"4.8168\"\>",
           ShowStringCharacters->False],
          4.816750916821219,
          AutoDelete->True], ",", 
         InterpretationBox[
          StyleBox["\<\"-0.65721\"\>",
           ShowStringCharacters->False],
          -0.6572149765193166,
          AutoDelete->True]}], "}"}]}], "}"}],
     NumberForm[#, 5]& ]}], ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.929433066080488*^9, 3.9294330995279713`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"eefe058f-c8b4-478a-984d-36f8b2be723f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["6. Aufgabe: ", "Subsection",
 CellChangeTimes->{{3.927882830883445*^9, 3.927882834506486*^9}, {
  3.928918598326088*^9, 3.928918611469805*^9}, {3.929429798859087*^9, 
  3.929429799197197*^9}},ExpressionUUID->"e8ae6ba6-96a5-4994-9ba2-\
b6fd7fc43846"],

Cell[TextData[{
 "Schreiben Sie ein Modul, das von einer gegebenen Zahlenliste die komplexen, \
positiven (",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{"\[GreaterEqual]", "0"}], TraditionalForm], "errors" -> {}, 
     "input" -> "\\ge 0", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "d028baa4-6e92-4cca-8edc-4f2608b4b6c6"],
 ") und negativen Zahlen in separaten Listen zur\[UDoubleDot]ckgibt.\n\
\[CapitalUDoubleDot]berpr\[UDoubleDot]fen Sie ihre L\[ODoubleDot]sung, indem \
Sie das Modul auf die Nullstellen des unten angegebenen Polynoms anwenden. "
}], "Text",
 CellChangeTimes->{{3.927371053261033*^9, 3.927371084275147*^9}, {
   3.9276048923264713`*^9, 3.927604897725162*^9}, {3.92770208010575*^9, 
   3.927702083311602*^9}, {3.927885022915522*^9, 3.92788505108515*^9}, {
   3.927885084140616*^9, 3.9278852227764072`*^9}, {3.928209440488678*^9, 
   3.928209464348074*^9}, {3.92821334635754*^9, 3.928213357351821*^9}, 
   3.9289037349319572`*^9, {3.9289171471002417`*^9, 3.928917195386909*^9}, 
   3.928918613948752*^9, {3.928922952184826*^9, 3.928923002856453*^9}, {
   3.929377528758368*^9, 3.92937757465265*^9}, {3.929377698515272*^9, 
   3.929377967478567*^9}, {3.92937803787433*^9, 3.9293780411845503`*^9}, {
   3.929378856842156*^9, 3.92937887138968*^9}, {3.929433172612288*^9, 
   3.929433176456786*^9}, {3.929433321919341*^9, 3.9294333320177383`*^9}, {
   3.929490204153303*^9, 3.929490228013179*^9}},
 Background->RGBColor[
  0.94, 0.88, 0.94],ExpressionUUID->"dcf7572b-ff97-4210-87e7-4fb6d8188322"],

Cell[TextData[{
 StyleBox["Hinweis:  ",
  FontWeight->"Bold"],
 "N\[UDoubleDot]tzliche Befehle",
 StyleBox[" ",
  FontWeight->"Bold"],
 StyleBox[" Cases[ ] , Select[ ] , Module[ ] , SolveValues ",
  FontWeight->"Bold"],
 "oder ",
 StyleBox["FindRoot",
  FontWeight->"Bold"]
}], "Text",
 CellChangeTimes->{{3.9278859822309923`*^9, 3.9278861601663437`*^9}, {
   3.92821336589966*^9, 3.928213371978347*^9}, 3.9289037416401987`*^9, {
   3.929378873002911*^9, 3.9293789014219713`*^9}, {3.929433350332054*^9, 
   3.9294333655670424`*^9}, {3.929433451291204*^9, 3.929433457407001*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"e897ea03-112e-47be-b9d0-4c16da5d6297"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"polynom", "[", "x_", "]"}], ":=", 
    RowBox[{
     RowBox[{"x", "^", "3"}], "-", 
     RowBox[{"10", "*", 
      RowBox[{"x", "^", "5"}]}], "+", 
     RowBox[{"71", "*", 
      RowBox[{"x", "^", "2"}]}], "-", "26", "-", 
     RowBox[{"5", "*", 
      RowBox[{"x", "^", "4"}]}]}]}], " ", ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"polynom", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.927884214317834*^9, 3.927884242034664*^9}, 
   3.927884319176897*^9, {3.92892301838599*^9, 3.928923096415018*^9}, {
   3.928923149846444*^9, 3.928923276385263*^9}, {3.928923350878922*^9, 
   3.928923408423625*^9}, 3.929377515976323*^9},
 CellLabel->"In[52]:=",ExpressionUUID->"4b0e817d-0456-4464-9d3e-9eec51784993"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVlnk8VV8XxpUMSahIGkRmmedj2ttwLw3GkMiUolDJz1QpQhIloUIhU1Ei
RWZnV2Qs8zxGJCTDvdc13ve8f53P93POPnutZ61n7yV87qrlha1MTEwVW5iY
/v90EL+nouu9iqu9XXp0X+cqdH6gON8XuoLX/bu/0ZrtCelxNyNxQMdrJk85
NV9wh5lcwwKJP2l402S/b9UFV/jiuKJPx30qznbggrAqkzMM9XIJlDpGwed8
1hk1N+3gTeY3AT5/F/ECtsvp20jW0CWkRbQ7ZwH/dC3yZCerBXxSNZH4wmMe
v+wBhxTw47B8RJIz78gczmFqkfrsuwEU4YH6VqkzeH8TLTxUXxt+kI70GBuf
wh8wdU7YhijCkdpCITW1SZzLNm+wL1sITsg8UcI/jePoxeN/zhKzYNftXDW5
LT9x49Nno8dN9qGIT5L1PMujOIqN1LV7tw+tzr0+szQ7im9LZT+RwCmAxpxe
BZX2juKJ+1vTLRsF0Ae9zC/670fxUpiQuqJ/AFmypJiedhrF2T25Tq1JCiIJ
AeHvTDdHcKFta4jrlzCSUfsnk700iB/LKjgXIy2B3OSCg8uGBnGt7S9YdWwk
UJo4d/v3ukHcnDYc1XBHAu3mlw+gPR/E/S3kjIN6JdDy8pXPRoaD+JldvYeO
hUuiL2Vz1tMJA3hAvKpZeJcUstWZuy2v1o/X9NdYpjnKoDjV220GQv34CJPr
590RMqhJlkvUlqMfP5/ikHT+nQzSFZRrCBnuw7FGFJ+5JoNEGJf3tEf04UXI
j/fRU1k0h/6+9u3pxe0E3qgd/iaHwgz/tpYF9uAer+1rD0YooC/Gs2Yqrj34
qtEzwSvPFBCTycyPfJMeHD1g8y/IUUBB1n+aM4/04FGPeUW3Nikgf7eJ+ofN
3XjH81/Pf3MpoouRQ8hFqBufFQmc+BiviE42f3+/vb4TtzO8e9X2sRKKam2W
D//Qic+ezbnx9qUSqu9syt980YlXfRdMnytQQqShhryla514vNQnfdIPJaQ7
V5szdKAT11TImlbmUEYKPNUvC6924MrGeqf4g5URn1V+7Bn+dlwtomTn6lkV
9EE8upzE3I5zHm6Z9LqkgsxX3H8p/mvDR5iP09v8VFBUqrAGR10brvnAttYn
RgVtTiWMlPu34ZRdszu5cRU0eeum3MHuVvx6yEDoh0Oq6IrZ48QqqRY8bNvh
iexWVZRDOT77ZEsLbnUd7XMeUEVjSdvglb4feGFYeCTnpCqy+RXwW/D+D/xd
838HtddUEbjuqBYy9R13cozlo4mqIZ7Mo536r5txjagXhl1+augDrZa7XrQR
D3R9wgp3qqOYNxlfdFcacK28PHFmfnXk6RjsV/y9Ac9v2Mn3SUgdiX7TGMjw
b8CtJGvtZ5TV0dMnb1/dqq/HfVtPRcWfUUc3VB7rKHvV4fbXtBX709WRzdTl
+VxYh797EMSf/EYdKb84ninEV4f/+vqx7thHdTTLvG07V/U3/Kv15/DAGnXk
2OHfOcX9DR94LX5xz6Q60vc565n6sQYXTnoaoSuugQTFMUG+yBp8W//98VVZ
DbTWx9cWfbYGf4natr1W1UBFei1q11lqcDfLtrgfhhpIfJf+VqvTX/FPzoFt
duc0EMd7iaTta59xV4OBW+7JGih7YOLhn/Bq/LaXb6zppgbqD9qblqJcjft6
r5tkMGOIS9DovcVYFd5eNtT7mx1D/s457WWgCi82k7Q23oMh8oQHf9RqBd5l
rTHkKIGhqbl/L6W9y3Br3qyunycxdDBW6MOwYBl+4tOGpqUFhswVLb7GfS/F
R5Xi3IusMVT634eJVelSfNNxjNfUEUP36b7STROfcN9F5+LuKxiS3rr60dO+
CDfvUi/Vfoghx0zp2sMcRfj0nLVrQyyG4gztuztKP+Iylk9bjBIwtBpRSdfa
+xFPuL/5R+A5hpp2BOtwthXiHyy2HNyTgyGmdwWmKLgQPx9TUyv7FkMqpqNO
vnKFeI3jR1nNfAy9iNULHYx+j0vzp6lJFmGoV5o95szDfFzg85MjZ3AMwcuX
3n+efodTBpM+bvmCoZyCxnYp43f48sMZxvMaDF1Xeci/ujUPHyna1ZDdgKH9
urvTkwNz8Uabqj1cHRgKDfnv69buHDx++rafYReGZr50Tngo5+A1D1ofefVg
qNLombTW3Cu8Kqp19vEAhhwsDhYNuGbhvSpCQHEcQ7NLVMyvJhNv3hefOvsL
Q0FPW3AusUz8u5mhfvIkEf9AaJPeZDquNKFm3fwHQzK3z1oMkNNxSvqvr+Yz
GKoQUuvxff0Sv+2X61c3i6GipvZas7ZU/D/tM+nR/zDUyRPRFhqXgtPufdrf
N4+hJWtsqPjUC9wvnbt73yKGlEbTKAe6k/D21xm7rlIwZCF2isnsWSLeaWP9
+C4VQ94erJyhts/wA05UixgahgooXiJT/Qn4pVP0BH86hn5gQvIHXsTjcwP9
e21WMDR3u0PT1CEOL9nI7ZVYxdDOmgjyHcHHuFWdRP8Mwba7fbMu4o9wGRX+
AxlrGHr2or/ih95DnElB+/nxdQx1i+t1qNRE4VeS7e0mCOYtfD2dTI7EfY5r
2fpsYOiUFtfWLQ138bldGQkLBMfV+gq4nwjDRT6f5nbdxFCr2YDC9+8huI60
WP03ggWLwmLdXgbhLaKd1QcZGHpeb44rZQfgZx7LL50neN/QobnNXB+84Szz
hTSCj453YU8dPPH1sIO8zQSLc3o/k3N3wY34jzHNEBzSKdl54KsJPq9jK7VO
sAz3kAeLrAooxfY/YhDcvRCaxkO3BXYezopUgufNJBav+rgBLosN7iGCb8aT
Gz1VvAFnQo10CcGbt68/T5P3A9xbo++E/f//HnleHdI3QPcTcV59gpltRnTY
xINBzvUrY4tEPl+F7t9L4QkF3Rxas08IDn96xFs9JhxoD11QPEowmbPStm3H
PVBb3VD4gdCHLdRaz/P+fTBfrn9ZhuD65TkpFrYH4KRgvmsioW/U5cjdaeEx
gOnGdAKNqMerhdhbB+/EApPXPUxGBLu7S7t92owDGmeOR1YT9TU+EmAXppMA
PPY9zZwg6i859NXUPOgJcBQ7vLK5jKFpSwf16ZVnQNUp3JKd6JfGnW+Olmgk
ga54RRs60V9v62mHwwOSwSeZ6vj+JQx56cayC1JfgCyaeKXfAoZMVgbXp5VT
wR+vkVdyRL/KFUktlPikgZFe+aa+OQzRE37OStJfgsLdLoiV6PcyjptdX/wy
geVQh33FBIZeyvJ1FBzJAjmsM1ajhL8izAtaX7RkgblLV/mpPzFk9XS8yV/q
FegIL6X/HSLqI3zyi/RQDgivSpA5RPi3x3AS54/KBTKWZtdQO4aq3UOqtqm/
AfT8jOBTrRiKfldUOhz7FoRJWK8YNxH9gR0qiDPMB9VQw/UawhDn2ZK84IV8
gFjotLgqwm+3Ld54pRYA/uld1lnlGHIe+2IpEvQenL817v2UOI/kJJdNNroK
gaNz4NHS1xhq+OhkWHi/CAhtae1diMKQdq3MV4nRImCS4SzJcw9D77tX9FLV
igFzShlJMAxDT1fiQfR4MSBPM6a338TQeVCveUGnBLhsEfwj6IEhRqOCosBC
GbhmZMwGSRjyGdwoeGRUDtrknR3tIYYm/zbKsaaWg+hz4ffdtDDUzHNBZul4
BTD589fhpCKGkm2SJL5nVYLOluGdNgcxpDq2RfCOLQ4SKqq3n/ungeTKTy8o
5BITrivj9Ogf4n6Ke1czuoKDQ68PJ5n/0kA70vNUX5ogYPbWmMbap4HWzW0H
GXMI/HLplmn6rIGG3hdI4YpfgNpM6r4PsRoozduxRqekBrTYps9uimigF2e3
5z8ZqQE7hn9OVh7UQInGRc/+stUCo4C3M158GihWiMMzxbYWNP98si+TVQOF
tBbv2lipBcLxz/dfnFJHLgo7nSq160DicOhL61x1JDJfsaL5pQGIH/1+8Rtx
/wd9Nwin/G0AZ9c+C7ES80H3myaufIFG4L3zQ4oqMT9EXRgQEb7WCPYoev51
XVFD8/2rJmxCTSDc7i3fZqsaqq7FMjpuNQPTZ8fFpG+pIbvnJce9sBbg+3hQ
4WqDKioKBF1iF1rA0xf79N5WqSIumzqnkdgWsF/18umeQlX0mafH13KqBZgM
z6UxklQRr8FNsxcnWsHqkRu/Yi+populyddDV1tBic3Xq6UsquhYZt93U9t2
UBhLPS+npILm7+a71V5uBxUemtnvRVVQ4sUwhlZYO/jgydwpwq+CpmRlFaXy
20HHJPP2oTVlFFkaksC8rQMYjmiIPa9RRvXfJexLCzrArOjfIeNTysiI7jcl
zNYF2F2cTe5cIOZHk93M1OIeYMEXPaPkqIBiXLYvrDT0gOlXm4vKpgqo149p
ZHOoB0ReyM2X1FVAHqlz5eysvcA7JcHi7yHi+3+NPgdteoFZF7tTXZk86n0c
NmZA6wXD5TWneQrlkEc35XOcWj8QOBeVmPhQBj1y6glRKBkEMkou/3kwSaI6
00M7zXf/BBQ2IYePfwTQX2G+2+3J42A09NS+JbZJ3M/3qMujvZNAZn3v0e42
PtgzyGPpVj8F8kYivrLNSULn69q/2U7OAFV9Xv0BQWX49ah61FeWOfDyWOMH
XFYTim+vnMoyngeDb5ZdZiQgXKyT88gwmQdFnUK5ZGUIqyPSZ9Is58HhdYP2
57oQ2my7N5d8dh4c4YxKUbaG8C7DghLrPQ9CjsgO8odC+Iv6mxGUOA84WBJZ
cvshzBjbw289NQ8ypF7wpUTowSvpEYmWf+eBldBdJ8HHelDTeUXAfHEe7L9c
xJ/4XA+2Dw0fPLE+D161VGT4vteDW/pyj+jxLIBgja7W1j496NwC5GQ1FkDj
StUYx1F9eKjSk8QSuQDalgNk5Ov0Ia/A6uqVhwvAzShd7782fcjpH/m+N24B
JMedTcob0Ifr8tkH8lIWwNaZbz82/+nD/szhBcuPC0DXeEfY4X0G8Gm0RerL
4QVgknYi2MDNAHLZqy9rqS4CwS0m+mkrBpC1tDYvW3MRbA8yPOi51RBu8Fqd
44aLIO5Vwj7pHYZw9of397Hji0DU5oPinYOGsFH/TeZ950VQEvOb+ljXEN6T
PmTeE70ImAMwcbkQQ8i0ujXXZ2wReEWPC7XTDaHzeN9S8O9FoMM87+POMISo
+b3uw9lFcGP44JN/LCQYkubY+Zq2CGz4rnP27iZBhmE5Y5BjCejw0vnZZUhw
89E1GyPlJZAj95mrx54EHa8bp1tpLAFmvV7hOBcSrD53eNZFZwmMJAhwAncS
vK36/U6Q0RKIPtQifsWHBDf6Jd8V2i+BSX5QejiSBNfFRpkPhi8BaOd+4st7
EjzLXWIqdX8JkOsP2MQXk2Al/WGSWswSeFWvp25dToJBTVryFolLQGYgXevt
VxJc835mF5G3BEQalENTu0jQzu5KdnzhEgh2lfWn9JFguQFp/uWnJRDZd6xK
c5gEb+xduluBlsD54HdbEydJcLXCtHC+cwnI3ipMjKcR67PF1jf6lkAfjLby
WCXWx6yTd4wsAVZNnWGFTRK87vJmUOzPEigdmuV/yEKGdFZWdvuNJbCrlftk
yB4ytJ0ftLy4lQJmuQNTO/aSYWnfxxQ/NgqIOXpFfe9+MgzMc1GO3UUBTNzf
6BeFyHDZosqxVowC2mwL+vRlyDC0r2BI9ygFzC+ZJR2TJ0Mul4yzpQoUkK98
dLe2EhmKe9+ze6tFAc0mHj3j6mT4Yfl6n6geBWTfTF1O1CRDnWAv21QyBfj9
exeI6ZChVYyFzWMLCjjREWaorU+Go3yGXRynKcCnDJ1LNSRDzxQ1q/CzFCDb
XBs5Qyb2zztgGeBOAUqeSXHkE8T+Klxt814UoKIWfszKhAyTKpjMPXwo4GX2
1fyTZmT4vnHCxOEWBfTe2Ca5YUmG2pa9zd2hRP4Pr3IXW5FhXV/jCfNICrBJ
djx+2oYMLV2qGhseUkD17r1fxk+T4fBUwTGDeApI3N7iZHeGDD28M+orEylA
W66Es8KODKnLCUZqqRQg3jhfyHKWDDnZbpCkcinAPTjnvq0jGSbGeNVk5BN6
8inFODuRocheJ4ODRRRQyisqb+lMhvkpFl+elBF6vHS3lnUhQ00xQz1unAIs
Xfv/LBD8LU8NRdZQQH+MaVfaOSI+FSmwtZECFHujmNRdifgqDlTfbKEAM7/j
ViUEXzLg0qF2UoDgfp0yofNkSGlkqrzSTwFlVNZ9/xEcYrmkOTVCAUkF8Ew+
wZz9E2UuExTw8XzAhXaCE116NQamKeBblozYCMGifxpLrOYpwPdqd0gnwQXe
VWo/qBRwU3HE+QPBmvSCYqM1Chj8nP0ukOBvwRkqn5moYI/TLTMJgi3ZnnzU
ZKWC43nv5KqJ+IZi7ikV7aCC2/k+yjoEX9x7o1B2FxV8aFgnZRH5UVK8FF7v
pQKRam/TJSL/EDGnAqGDVOCf/VtFmuAd7yzkkoWpYPzflZ/GhH5PVQzf7ZGg
AncXdm0zQt8jlWoyD2WoYJ3rjYwOoX++gdRbViUqqLDXfb7bgQyxpgPSIepE
fLTMqy32ZFhjyZW7ok0FK53vHv9H1NO8n0nyP30q4FUV+bNpS4aDLkuvZo2o
YOkJ7nCN6Af3PxNibiZUoF6i1NNoTYa36Y0iZ2ypYOyicIAS0V8cIVUZ7Q5U
kJL22Quak+ETtvfCJ12phB/vsKiakmHe3ieHwRUq8KJJVbcdI0ON1Huppf9R
gRtbb951IyIesRuHlK5TQX+E0iAbiQwHVJwOiIVTQdcaLakbkKHbiir33ftU
4MmfzCJK+Ge+ipN5IoYKhn+0QlvCX9uMyqezkqhgeuplna8KGcqd4SsXLaCC
1+204JsShN8Pzb4LL6KCqQMFbesiZKg/9iX9VxkVZCVKq54n/H7a0/t+Vg0V
MM8VtP3aR+h/q8lWtJ8KdFfOozfsRH76GSfDR6jgURaVcWYbkR/rdfjrF6F3
7/vYOQYJvnkkLpn1jwril+8a1hHnVUf6nWURFhrY+tfshMo4CYp/U38qokAD
R9WfOvz+RILvo7iiwlRpwHFvjtoocb5qmk3cGtekgbQBUk/lGxI06427kEmi
ATlFxR3CqSQYOP1XRcSeBix+pQTHhZFgE1dWx5EIGhBc3xHOfIwEbTpu1IVG
04BhfjabrB4Jjj6zqBiLpYHNLT+qNDASpAgxMjKe00CQy4odTZIEBZXtfI4U
0kAf/WYEGxsJep/m2XVkkIgXqE97VBnCcznyyWI/aaAbl+GwKjKE1iumIlKT
NGBiotsu/NYQaj5/qKowTwPJBVPbPBMNIcsIh53utmUwvNmSVHjNECa7sWTa
ySyDi/2XYtcFDeGDElEZR8VloM1evkuc1xAGsxsWu6gtg0DlmRGl7Ybw/JvQ
uotwGfhL/+GgLRpA+TnGjL/VMvjkJKUoVGsAa/xWVeKDloFn9IjZvKsB/PRN
oPrpnWVQrvxVy/C0Aczlx4ySI5YBHVnz3DhuAGPKAs6kxy6Dndd1BaIVDOCZ
DcqtgqxlYFwmrADX9OFc+L9vTc3LAE9wCR+L0ocCCb9stx2ig2Ll2wFucXpQ
I+zwXt8jdCBX3CLlGqIHbXzsOsYl6MCJobwHu6IH48xbTb4q0YHiEY3d3sf0
IOfOSv1QYzoIefDfVbZNCDfvxssw+dKB0K6bc8iJmI8C9JnWG+nAUCtafOd2
XbjV/VaVZysdzH9OVRzq14FCNqU3BrroQFT34Z/TeTrQQUWOWj5KB727l51P
murA7nmB6es0Oiha33dVOkYbNlxa6FgWXgHnVDzLQzc0Yb79y9dLgSsg8tuK
6GCiOlTpEVllvb0CgqpymWxc1WGF5euT+8NWwHShgettWXVYfyx/AT5cAZan
+8b6kBocV6/UiklfAZNc4T+Kx1XhPt7eFsnGFSAZ2H20TUAFhjZz0x0OrILY
AsyBh6wA2Y3jj18TWgWlzh6N/1gU4KOve1PCxVaBjLVi5N8oefii/JD+W/lV
YPzLbJ4SIQdLco4+oBsQXLJHM9tfBs6GGwnFe60C3+MP6sVVJOFpnWDj+qpV
MD9Ou7tmLAgHqZPcX76sglaO3C2+QofguXzTnoq6VcATUHkuiHYAeh0WdCto
WwXmwlWmWKoADN1SFfZ0YhW89C/kOTHIC/NrV6vP71wDzk1+T7hEWeE2U3/V
LQ5rYFSuuLXRkBlFsQ6vr7oQ79eCL9pQWRA3TqqhuK0BocsDTWs57Gi/At+p
Ke81gPSsLZ8LcCH53UXeLeEE9xZHKMTyIrvuhbcpeWsg5KeCW8fYYVToePmI
5jrx/6zWc1wjR9G54vlDL7esg1FbPmW8WAbxcvoKsLKtA42bm2c8H8oi/7Ib
PO271gEcXjlcCuSRJm/k5iWJdRCUecl1v60i+tKQ0Z9kuQ5+xdTeyxhVQZ0q
vXErOevg/CO3ZR4rbXQ32j7GKX8d+OqJ7Slr0UZqY8P3az+uA7rd1bGpEzoo
8dFEyONqYv9Oy1+jJF3kML14RapzHYi76FceEoJoMm3niTOMdTAcFJB/TUIf
0TkMmMusNwBU4GCIeJLR7jmuhC92G8D5RlA6+zsyOtrWL9rstAHkPgj+lvlH
Ro7PfMgjlzaAUHHwbxVfI/RVJOM+y+0N0M+2M5Z8xxjFaG/hsXy1AWLScuCj
18eR2BX84AxtAyzeSrqVL2aGLNu01A4lbgL25fs5rIFWiENrx+fKlE0gILI+
aPrKCn3O6j9xNnMTLJJ5ztV0WiGFwOsuz/M3QUimSZ26kjXiOlzyQKB2k7iP
PEf1/1mjBi+lcb7FTfBZi/X2Fp/TCLJLxXKdZIBRu47OgWQ7RL9G359vwQDF
Hv74lhY7VDBQl21ymgEW3aesbZntkWCBW8WDcwyg5L2L8szLHq1bZ01yXGeA
qtxrdFe9s6gk87AO2ysGyFvQsjWiOKArO//VvXrLAH0FHxfDjzoi8YBqS3Ih
A/zekUWhnHNECccdLt6tZADEJ5bm1e6IfBaS45k7GGDcXSuj6qMTkrb3EMzs
ZQD9wProx7NO6GcNlqs/zAAW9wScmnc7I/PE3uo7fxgg8Hx4idBJZ8S+NeeY
8D8GKPt7OH7hojPCPQM6EYUBVKRpJwbvOiP/LrKT8yoDZO8iz49mOCM5sHea
wWCAiIunYhi4M/ofFJrq5w==
          "]]},
        Annotation[#, "Charting`Private`Tag#1"]& ]}, {}},
     {"WolframDynamicHighlight", <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], 
    DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, 
      Slot["HighlightElements"], 
      Slot["LayoutOptions"], 
      Slot["Meta"], 
      Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, 
          Annotation[{
            Directive[
             Opacity[1.], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]], 
            Line[CompressedData["
1:eJwVlnk8VV8XxpUMSahIGkRmmedj2ttwLw3GkMiUolDJz1QpQhIloUIhU1Ei
RWZnV2Qs8zxGJCTDvdc13ve8f53P93POPnutZ61n7yV87qrlha1MTEwVW5iY
/v90EL+nouu9iqu9XXp0X+cqdH6gON8XuoLX/bu/0ZrtCelxNyNxQMdrJk85
NV9wh5lcwwKJP2l402S/b9UFV/jiuKJPx30qznbggrAqkzMM9XIJlDpGwed8
1hk1N+3gTeY3AT5/F/ECtsvp20jW0CWkRbQ7ZwH/dC3yZCerBXxSNZH4wmMe
v+wBhxTw47B8RJIz78gczmFqkfrsuwEU4YH6VqkzeH8TLTxUXxt+kI70GBuf
wh8wdU7YhijCkdpCITW1SZzLNm+wL1sITsg8UcI/jePoxeN/zhKzYNftXDW5
LT9x49Nno8dN9qGIT5L1PMujOIqN1LV7tw+tzr0+szQ7im9LZT+RwCmAxpxe
BZX2juKJ+1vTLRsF0Ae9zC/670fxUpiQuqJ/AFmypJiedhrF2T25Tq1JCiIJ
AeHvTDdHcKFta4jrlzCSUfsnk700iB/LKjgXIy2B3OSCg8uGBnGt7S9YdWwk
UJo4d/v3ukHcnDYc1XBHAu3mlw+gPR/E/S3kjIN6JdDy8pXPRoaD+JldvYeO
hUuiL2Vz1tMJA3hAvKpZeJcUstWZuy2v1o/X9NdYpjnKoDjV220GQv34CJPr
590RMqhJlkvUlqMfP5/ikHT+nQzSFZRrCBnuw7FGFJ+5JoNEGJf3tEf04UXI
j/fRU1k0h/6+9u3pxe0E3qgd/iaHwgz/tpYF9uAer+1rD0YooC/Gs2Yqrj34
qtEzwSvPFBCTycyPfJMeHD1g8y/IUUBB1n+aM4/04FGPeUW3Nikgf7eJ+ofN
3XjH81/Pf3MpoouRQ8hFqBufFQmc+BiviE42f3+/vb4TtzO8e9X2sRKKam2W
D//Qic+ezbnx9qUSqu9syt980YlXfRdMnytQQqShhryla514vNQnfdIPJaQ7
V5szdKAT11TImlbmUEYKPNUvC6924MrGeqf4g5URn1V+7Bn+dlwtomTn6lkV
9EE8upzE3I5zHm6Z9LqkgsxX3H8p/mvDR5iP09v8VFBUqrAGR10brvnAttYn
RgVtTiWMlPu34ZRdszu5cRU0eeum3MHuVvx6yEDoh0Oq6IrZ48QqqRY8bNvh
iexWVZRDOT77ZEsLbnUd7XMeUEVjSdvglb4feGFYeCTnpCqy+RXwW/D+D/xd
838HtddUEbjuqBYy9R13cozlo4mqIZ7Mo536r5txjagXhl1+augDrZa7XrQR
D3R9wgp3qqOYNxlfdFcacK28PHFmfnXk6RjsV/y9Ac9v2Mn3SUgdiX7TGMjw
b8CtJGvtZ5TV0dMnb1/dqq/HfVtPRcWfUUc3VB7rKHvV4fbXtBX709WRzdTl
+VxYh797EMSf/EYdKb84ninEV4f/+vqx7thHdTTLvG07V/U3/Kv15/DAGnXk
2OHfOcX9DR94LX5xz6Q60vc565n6sQYXTnoaoSuugQTFMUG+yBp8W//98VVZ
DbTWx9cWfbYGf4natr1W1UBFei1q11lqcDfLtrgfhhpIfJf+VqvTX/FPzoFt
duc0EMd7iaTta59xV4OBW+7JGih7YOLhn/Bq/LaXb6zppgbqD9qblqJcjft6
r5tkMGOIS9DovcVYFd5eNtT7mx1D/s457WWgCi82k7Q23oMh8oQHf9RqBd5l
rTHkKIGhqbl/L6W9y3Br3qyunycxdDBW6MOwYBl+4tOGpqUFhswVLb7GfS/F
R5Xi3IusMVT634eJVelSfNNxjNfUEUP36b7STROfcN9F5+LuKxiS3rr60dO+
CDfvUi/Vfoghx0zp2sMcRfj0nLVrQyyG4gztuztKP+Iylk9bjBIwtBpRSdfa
+xFPuL/5R+A5hpp2BOtwthXiHyy2HNyTgyGmdwWmKLgQPx9TUyv7FkMqpqNO
vnKFeI3jR1nNfAy9iNULHYx+j0vzp6lJFmGoV5o95szDfFzg85MjZ3AMwcuX
3n+efodTBpM+bvmCoZyCxnYp43f48sMZxvMaDF1Xeci/ujUPHyna1ZDdgKH9
urvTkwNz8Uabqj1cHRgKDfnv69buHDx++rafYReGZr50Tngo5+A1D1ofefVg
qNLombTW3Cu8Kqp19vEAhhwsDhYNuGbhvSpCQHEcQ7NLVMyvJhNv3hefOvsL
Q0FPW3AusUz8u5mhfvIkEf9AaJPeZDquNKFm3fwHQzK3z1oMkNNxSvqvr+Yz
GKoQUuvxff0Sv+2X61c3i6GipvZas7ZU/D/tM+nR/zDUyRPRFhqXgtPufdrf
N4+hJWtsqPjUC9wvnbt73yKGlEbTKAe6k/D21xm7rlIwZCF2isnsWSLeaWP9
+C4VQ94erJyhts/wA05UixgahgooXiJT/Qn4pVP0BH86hn5gQvIHXsTjcwP9
e21WMDR3u0PT1CEOL9nI7ZVYxdDOmgjyHcHHuFWdRP8Mwba7fbMu4o9wGRX+
AxlrGHr2or/ih95DnElB+/nxdQx1i+t1qNRE4VeS7e0mCOYtfD2dTI7EfY5r
2fpsYOiUFtfWLQ138bldGQkLBMfV+gq4nwjDRT6f5nbdxFCr2YDC9+8huI60
WP03ggWLwmLdXgbhLaKd1QcZGHpeb44rZQfgZx7LL50neN/QobnNXB+84Szz
hTSCj453YU8dPPH1sIO8zQSLc3o/k3N3wY34jzHNEBzSKdl54KsJPq9jK7VO
sAz3kAeLrAooxfY/YhDcvRCaxkO3BXYezopUgufNJBav+rgBLosN7iGCb8aT
Gz1VvAFnQo10CcGbt68/T5P3A9xbo++E/f//HnleHdI3QPcTcV59gpltRnTY
xINBzvUrY4tEPl+F7t9L4QkF3Rxas08IDn96xFs9JhxoD11QPEowmbPStm3H
PVBb3VD4gdCHLdRaz/P+fTBfrn9ZhuD65TkpFrYH4KRgvmsioW/U5cjdaeEx
gOnGdAKNqMerhdhbB+/EApPXPUxGBLu7S7t92owDGmeOR1YT9TU+EmAXppMA
PPY9zZwg6i859NXUPOgJcBQ7vLK5jKFpSwf16ZVnQNUp3JKd6JfGnW+Olmgk
ga54RRs60V9v62mHwwOSwSeZ6vj+JQx56cayC1JfgCyaeKXfAoZMVgbXp5VT
wR+vkVdyRL/KFUktlPikgZFe+aa+OQzRE37OStJfgsLdLoiV6PcyjptdX/wy
geVQh33FBIZeyvJ1FBzJAjmsM1ajhL8izAtaX7RkgblLV/mpPzFk9XS8yV/q
FegIL6X/HSLqI3zyi/RQDgivSpA5RPi3x3AS54/KBTKWZtdQO4aq3UOqtqm/
AfT8jOBTrRiKfldUOhz7FoRJWK8YNxH9gR0qiDPMB9VQw/UawhDn2ZK84IV8
gFjotLgqwm+3Ld54pRYA/uld1lnlGHIe+2IpEvQenL817v2UOI/kJJdNNroK
gaNz4NHS1xhq+OhkWHi/CAhtae1diMKQdq3MV4nRImCS4SzJcw9D77tX9FLV
igFzShlJMAxDT1fiQfR4MSBPM6a338TQeVCveUGnBLhsEfwj6IEhRqOCosBC
GbhmZMwGSRjyGdwoeGRUDtrknR3tIYYm/zbKsaaWg+hz4ffdtDDUzHNBZul4
BTD589fhpCKGkm2SJL5nVYLOluGdNgcxpDq2RfCOLQ4SKqq3n/ungeTKTy8o
5BITrivj9Ogf4n6Ke1czuoKDQ68PJ5n/0kA70vNUX5ogYPbWmMbap4HWzW0H
GXMI/HLplmn6rIGG3hdI4YpfgNpM6r4PsRoozduxRqekBrTYps9uimigF2e3
5z8ZqQE7hn9OVh7UQInGRc/+stUCo4C3M158GihWiMMzxbYWNP98si+TVQOF
tBbv2lipBcLxz/dfnFJHLgo7nSq160DicOhL61x1JDJfsaL5pQGIH/1+8Rtx
/wd9Nwin/G0AZ9c+C7ES80H3myaufIFG4L3zQ4oqMT9EXRgQEb7WCPYoev51
XVFD8/2rJmxCTSDc7i3fZqsaqq7FMjpuNQPTZ8fFpG+pIbvnJce9sBbg+3hQ
4WqDKioKBF1iF1rA0xf79N5WqSIumzqnkdgWsF/18umeQlX0mafH13KqBZgM
z6UxklQRr8FNsxcnWsHqkRu/Yi+populyddDV1tBic3Xq6UsquhYZt93U9t2
UBhLPS+npILm7+a71V5uBxUemtnvRVVQ4sUwhlZYO/jgydwpwq+CpmRlFaXy
20HHJPP2oTVlFFkaksC8rQMYjmiIPa9RRvXfJexLCzrArOjfIeNTysiI7jcl
zNYF2F2cTe5cIOZHk93M1OIeYMEXPaPkqIBiXLYvrDT0gOlXm4vKpgqo149p
ZHOoB0ReyM2X1FVAHqlz5eysvcA7JcHi7yHi+3+NPgdteoFZF7tTXZk86n0c
NmZA6wXD5TWneQrlkEc35XOcWj8QOBeVmPhQBj1y6glRKBkEMkou/3kwSaI6
00M7zXf/BBQ2IYePfwTQX2G+2+3J42A09NS+JbZJ3M/3qMujvZNAZn3v0e42
PtgzyGPpVj8F8kYivrLNSULn69q/2U7OAFV9Xv0BQWX49ah61FeWOfDyWOMH
XFYTim+vnMoyngeDb5ZdZiQgXKyT88gwmQdFnUK5ZGUIqyPSZ9Is58HhdYP2
57oQ2my7N5d8dh4c4YxKUbaG8C7DghLrPQ9CjsgO8odC+Iv6mxGUOA84WBJZ
cvshzBjbw289NQ8ypF7wpUTowSvpEYmWf+eBldBdJ8HHelDTeUXAfHEe7L9c
xJ/4XA+2Dw0fPLE+D161VGT4vteDW/pyj+jxLIBgja7W1j496NwC5GQ1FkDj
StUYx1F9eKjSk8QSuQDalgNk5Ov0Ia/A6uqVhwvAzShd7782fcjpH/m+N24B
JMedTcob0Ifr8tkH8lIWwNaZbz82/+nD/szhBcuPC0DXeEfY4X0G8Gm0RerL
4QVgknYi2MDNAHLZqy9rqS4CwS0m+mkrBpC1tDYvW3MRbA8yPOi51RBu8Fqd
44aLIO5Vwj7pHYZw9of397Hji0DU5oPinYOGsFH/TeZ950VQEvOb+ljXEN6T
PmTeE70ImAMwcbkQQ8i0ujXXZ2wReEWPC7XTDaHzeN9S8O9FoMM87+POMISo
+b3uw9lFcGP44JN/LCQYkubY+Zq2CGz4rnP27iZBhmE5Y5BjCejw0vnZZUhw
89E1GyPlJZAj95mrx54EHa8bp1tpLAFmvV7hOBcSrD53eNZFZwmMJAhwAncS
vK36/U6Q0RKIPtQifsWHBDf6Jd8V2i+BSX5QejiSBNfFRpkPhi8BaOd+4st7
EjzLXWIqdX8JkOsP2MQXk2Al/WGSWswSeFWvp25dToJBTVryFolLQGYgXevt
VxJc835mF5G3BEQalENTu0jQzu5KdnzhEgh2lfWn9JFguQFp/uWnJRDZd6xK
c5gEb+xduluBlsD54HdbEydJcLXCtHC+cwnI3ipMjKcR67PF1jf6lkAfjLby
WCXWx6yTd4wsAVZNnWGFTRK87vJmUOzPEigdmuV/yEKGdFZWdvuNJbCrlftk
yB4ytJ0ftLy4lQJmuQNTO/aSYWnfxxQ/NgqIOXpFfe9+MgzMc1GO3UUBTNzf
6BeFyHDZosqxVowC2mwL+vRlyDC0r2BI9ygFzC+ZJR2TJ0Mul4yzpQoUkK98
dLe2EhmKe9+ze6tFAc0mHj3j6mT4Yfl6n6geBWTfTF1O1CRDnWAv21QyBfj9
exeI6ZChVYyFzWMLCjjREWaorU+Go3yGXRynKcCnDJ1LNSRDzxQ1q/CzFCDb
XBs5Qyb2zztgGeBOAUqeSXHkE8T+Klxt814UoKIWfszKhAyTKpjMPXwo4GX2
1fyTZmT4vnHCxOEWBfTe2Ca5YUmG2pa9zd2hRP4Pr3IXW5FhXV/jCfNICrBJ
djx+2oYMLV2qGhseUkD17r1fxk+T4fBUwTGDeApI3N7iZHeGDD28M+orEylA
W66Es8KODKnLCUZqqRQg3jhfyHKWDDnZbpCkcinAPTjnvq0jGSbGeNVk5BN6
8inFODuRocheJ4ODRRRQyisqb+lMhvkpFl+elBF6vHS3lnUhQ00xQz1unAIs
Xfv/LBD8LU8NRdZQQH+MaVfaOSI+FSmwtZECFHujmNRdifgqDlTfbKEAM7/j
ViUEXzLg0qF2UoDgfp0yofNkSGlkqrzSTwFlVNZ9/xEcYrmkOTVCAUkF8Ew+
wZz9E2UuExTw8XzAhXaCE116NQamKeBblozYCMGifxpLrOYpwPdqd0gnwQXe
VWo/qBRwU3HE+QPBmvSCYqM1Chj8nP0ukOBvwRkqn5moYI/TLTMJgi3ZnnzU
ZKWC43nv5KqJ+IZi7ikV7aCC2/k+yjoEX9x7o1B2FxV8aFgnZRH5UVK8FF7v
pQKRam/TJSL/EDGnAqGDVOCf/VtFmuAd7yzkkoWpYPzflZ/GhH5PVQzf7ZGg
AncXdm0zQt8jlWoyD2WoYJ3rjYwOoX++gdRbViUqqLDXfb7bgQyxpgPSIepE
fLTMqy32ZFhjyZW7ok0FK53vHv9H1NO8n0nyP30q4FUV+bNpS4aDLkuvZo2o
YOkJ7nCN6Af3PxNibiZUoF6i1NNoTYa36Y0iZ2ypYOyicIAS0V8cIVUZ7Q5U
kJL22Quak+ETtvfCJ12phB/vsKiakmHe3ieHwRUq8KJJVbcdI0ON1Huppf9R
gRtbb951IyIesRuHlK5TQX+E0iAbiQwHVJwOiIVTQdcaLakbkKHbiir33ftU
4MmfzCJK+Ge+ipN5IoYKhn+0QlvCX9uMyqezkqhgeuplna8KGcqd4SsXLaCC
1+204JsShN8Pzb4LL6KCqQMFbesiZKg/9iX9VxkVZCVKq54n/H7a0/t+Vg0V
MM8VtP3aR+h/q8lWtJ8KdFfOozfsRH76GSfDR6jgURaVcWYbkR/rdfjrF6F3
7/vYOQYJvnkkLpn1jwril+8a1hHnVUf6nWURFhrY+tfshMo4CYp/U38qokAD
R9WfOvz+RILvo7iiwlRpwHFvjtoocb5qmk3cGtekgbQBUk/lGxI06427kEmi
ATlFxR3CqSQYOP1XRcSeBix+pQTHhZFgE1dWx5EIGhBc3xHOfIwEbTpu1IVG
04BhfjabrB4Jjj6zqBiLpYHNLT+qNDASpAgxMjKe00CQy4odTZIEBZXtfI4U
0kAf/WYEGxsJep/m2XVkkIgXqE97VBnCcznyyWI/aaAbl+GwKjKE1iumIlKT
NGBiotsu/NYQaj5/qKowTwPJBVPbPBMNIcsIh53utmUwvNmSVHjNECa7sWTa
ySyDi/2XYtcFDeGDElEZR8VloM1evkuc1xAGsxsWu6gtg0DlmRGl7Ybw/JvQ
uotwGfhL/+GgLRpA+TnGjL/VMvjkJKUoVGsAa/xWVeKDloFn9IjZvKsB/PRN
oPrpnWVQrvxVy/C0Aczlx4ySI5YBHVnz3DhuAGPKAs6kxy6Dndd1BaIVDOCZ
DcqtgqxlYFwmrADX9OFc+L9vTc3LAE9wCR+L0ocCCb9stx2ig2Ll2wFucXpQ
I+zwXt8jdCBX3CLlGqIHbXzsOsYl6MCJobwHu6IH48xbTb4q0YHiEY3d3sf0
IOfOSv1QYzoIefDfVbZNCDfvxssw+dKB0K6bc8iJmI8C9JnWG+nAUCtafOd2
XbjV/VaVZysdzH9OVRzq14FCNqU3BrroQFT34Z/TeTrQQUWOWj5KB727l51P
murA7nmB6es0Oiha33dVOkYbNlxa6FgWXgHnVDzLQzc0Yb79y9dLgSsg8tuK
6GCiOlTpEVllvb0CgqpymWxc1WGF5euT+8NWwHShgettWXVYfyx/AT5cAZan
+8b6kBocV6/UiklfAZNc4T+Kx1XhPt7eFsnGFSAZ2H20TUAFhjZz0x0OrILY
AsyBh6wA2Y3jj18TWgWlzh6N/1gU4KOve1PCxVaBjLVi5N8oefii/JD+W/lV
YPzLbJ4SIQdLco4+oBsQXLJHM9tfBs6GGwnFe60C3+MP6sVVJOFpnWDj+qpV
MD9Ou7tmLAgHqZPcX76sglaO3C2+QofguXzTnoq6VcATUHkuiHYAeh0WdCto
WwXmwlWmWKoADN1SFfZ0YhW89C/kOTHIC/NrV6vP71wDzk1+T7hEWeE2U3/V
LQ5rYFSuuLXRkBlFsQ6vr7oQ79eCL9pQWRA3TqqhuK0BocsDTWs57Gi/At+p
Ke81gPSsLZ8LcCH53UXeLeEE9xZHKMTyIrvuhbcpeWsg5KeCW8fYYVToePmI
5jrx/6zWc1wjR9G54vlDL7esg1FbPmW8WAbxcvoKsLKtA42bm2c8H8oi/7Ib
PO271gEcXjlcCuSRJm/k5iWJdRCUecl1v60i+tKQ0Z9kuQ5+xdTeyxhVQZ0q
vXErOevg/CO3ZR4rbXQ32j7GKX8d+OqJ7Slr0UZqY8P3az+uA7rd1bGpEzoo
8dFEyONqYv9Oy1+jJF3kML14RapzHYi76FceEoJoMm3niTOMdTAcFJB/TUIf
0TkMmMusNwBU4GCIeJLR7jmuhC92G8D5RlA6+zsyOtrWL9rstAHkPgj+lvlH
Ro7PfMgjlzaAUHHwbxVfI/RVJOM+y+0N0M+2M5Z8xxjFaG/hsXy1AWLScuCj
18eR2BX84AxtAyzeSrqVL2aGLNu01A4lbgL25fs5rIFWiENrx+fKlE0gILI+
aPrKCn3O6j9xNnMTLJJ5ztV0WiGFwOsuz/M3QUimSZ26kjXiOlzyQKB2k7iP
PEf1/1mjBi+lcb7FTfBZi/X2Fp/TCLJLxXKdZIBRu47OgWQ7RL9G359vwQDF
Hv74lhY7VDBQl21ymgEW3aesbZntkWCBW8WDcwyg5L2L8szLHq1bZ01yXGeA
qtxrdFe9s6gk87AO2ysGyFvQsjWiOKArO//VvXrLAH0FHxfDjzoi8YBqS3Ih
A/zekUWhnHNECccdLt6tZADEJ5bm1e6IfBaS45k7GGDcXSuj6qMTkrb3EMzs
ZQD9wProx7NO6GcNlqs/zAAW9wScmnc7I/PE3uo7fxgg8Hx4idBJZ8S+NeeY
8D8GKPt7OH7hojPCPQM6EYUBVKRpJwbvOiP/LrKT8yoDZO8iz49mOCM5sHea
wWCAiIunYhi4M/ofFJrq5w==
             "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
        "LayoutOptions" -> <|
         "PlotRange" -> {{-2, 2}, {-133.99994579592402`, 
            249.92304227439462`}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
           "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
          "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
          "DefaultStyle" -> {
            Directive[
             Opacity[1.], 
             RGBColor[0.368417, 0.506779, 0.709798], 
             AbsoluteThickness[2]]}, 
          "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
              Identity[
               Part[#, 1]], 
              Identity[
               Part[#, 2]]}& ), 
            "ScalingFunctions" -> {{Identity, Identity}, {
              Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>,
         "Meta" -> <|
         "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
          Plot, "GroupHighlight" -> False|>|>]]& )[<|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
       "LayoutOptions" -> <|
        "PlotRange" -> {{-2, 2}, {-133.99994579592402`, 249.92304227439462`}},
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0},
          "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
         "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), 
         "DefaultStyle" -> {
           Directive[
            Opacity[1.], 
            RGBColor[0.368417, 0.506779, 0.709798], 
            AbsoluteThickness[2]]}, 
         "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), 
           "ScalingFunctions" -> {{Identity, Identity}, {
             Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, 
       "Meta" -> <|
        "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
         Plot, "GroupHighlight" -> False|>|>],
     ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, {
      4.503599627370496*^15, -4.503599627370496*^15}}]},
   Annotation[{{{{}, {}, 
       Annotation[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]], 
         Line[CompressedData["
1:eJwVlnk8VV8XxpUMSahIGkRmmedj2ttwLw3GkMiUolDJz1QpQhIloUIhU1Ei
RWZnV2Qs8zxGJCTDvdc13ve8f53P93POPnutZ61n7yV87qrlha1MTEwVW5iY
/v90EL+nouu9iqu9XXp0X+cqdH6gON8XuoLX/bu/0ZrtCelxNyNxQMdrJk85
NV9wh5lcwwKJP2l402S/b9UFV/jiuKJPx30qznbggrAqkzMM9XIJlDpGwed8
1hk1N+3gTeY3AT5/F/ECtsvp20jW0CWkRbQ7ZwH/dC3yZCerBXxSNZH4wmMe
v+wBhxTw47B8RJIz78gczmFqkfrsuwEU4YH6VqkzeH8TLTxUXxt+kI70GBuf
wh8wdU7YhijCkdpCITW1SZzLNm+wL1sITsg8UcI/jePoxeN/zhKzYNftXDW5
LT9x49Nno8dN9qGIT5L1PMujOIqN1LV7tw+tzr0+szQ7im9LZT+RwCmAxpxe
BZX2juKJ+1vTLRsF0Ae9zC/670fxUpiQuqJ/AFmypJiedhrF2T25Tq1JCiIJ
AeHvTDdHcKFta4jrlzCSUfsnk700iB/LKjgXIy2B3OSCg8uGBnGt7S9YdWwk
UJo4d/v3ukHcnDYc1XBHAu3mlw+gPR/E/S3kjIN6JdDy8pXPRoaD+JldvYeO
hUuiL2Vz1tMJA3hAvKpZeJcUstWZuy2v1o/X9NdYpjnKoDjV220GQv34CJPr
590RMqhJlkvUlqMfP5/ikHT+nQzSFZRrCBnuw7FGFJ+5JoNEGJf3tEf04UXI
j/fRU1k0h/6+9u3pxe0E3qgd/iaHwgz/tpYF9uAer+1rD0YooC/Gs2Yqrj34
qtEzwSvPFBCTycyPfJMeHD1g8y/IUUBB1n+aM4/04FGPeUW3Nikgf7eJ+ofN
3XjH81/Pf3MpoouRQ8hFqBufFQmc+BiviE42f3+/vb4TtzO8e9X2sRKKam2W
D//Qic+ezbnx9qUSqu9syt980YlXfRdMnytQQqShhryla514vNQnfdIPJaQ7
V5szdKAT11TImlbmUEYKPNUvC6924MrGeqf4g5URn1V+7Bn+dlwtomTn6lkV
9EE8upzE3I5zHm6Z9LqkgsxX3H8p/mvDR5iP09v8VFBUqrAGR10brvnAttYn
RgVtTiWMlPu34ZRdszu5cRU0eeum3MHuVvx6yEDoh0Oq6IrZ48QqqRY8bNvh
iexWVZRDOT77ZEsLbnUd7XMeUEVjSdvglb4feGFYeCTnpCqy+RXwW/D+D/xd
838HtddUEbjuqBYy9R13cozlo4mqIZ7Mo536r5txjagXhl1+augDrZa7XrQR
D3R9wgp3qqOYNxlfdFcacK28PHFmfnXk6RjsV/y9Ac9v2Mn3SUgdiX7TGMjw
b8CtJGvtZ5TV0dMnb1/dqq/HfVtPRcWfUUc3VB7rKHvV4fbXtBX709WRzdTl
+VxYh797EMSf/EYdKb84ninEV4f/+vqx7thHdTTLvG07V/U3/Kv15/DAGnXk
2OHfOcX9DR94LX5xz6Q60vc565n6sQYXTnoaoSuugQTFMUG+yBp8W//98VVZ
DbTWx9cWfbYGf4natr1W1UBFei1q11lqcDfLtrgfhhpIfJf+VqvTX/FPzoFt
duc0EMd7iaTta59xV4OBW+7JGih7YOLhn/Bq/LaXb6zppgbqD9qblqJcjft6
r5tkMGOIS9DovcVYFd5eNtT7mx1D/s457WWgCi82k7Q23oMh8oQHf9RqBd5l
rTHkKIGhqbl/L6W9y3Br3qyunycxdDBW6MOwYBl+4tOGpqUFhswVLb7GfS/F
R5Xi3IusMVT634eJVelSfNNxjNfUEUP36b7STROfcN9F5+LuKxiS3rr60dO+
CDfvUi/Vfoghx0zp2sMcRfj0nLVrQyyG4gztuztKP+Iylk9bjBIwtBpRSdfa
+xFPuL/5R+A5hpp2BOtwthXiHyy2HNyTgyGmdwWmKLgQPx9TUyv7FkMqpqNO
vnKFeI3jR1nNfAy9iNULHYx+j0vzp6lJFmGoV5o95szDfFzg85MjZ3AMwcuX
3n+efodTBpM+bvmCoZyCxnYp43f48sMZxvMaDF1Xeci/ujUPHyna1ZDdgKH9
urvTkwNz8Uabqj1cHRgKDfnv69buHDx++rafYReGZr50Tngo5+A1D1ofefVg
qNLombTW3Cu8Kqp19vEAhhwsDhYNuGbhvSpCQHEcQ7NLVMyvJhNv3hefOvsL
Q0FPW3AusUz8u5mhfvIkEf9AaJPeZDquNKFm3fwHQzK3z1oMkNNxSvqvr+Yz
GKoQUuvxff0Sv+2X61c3i6GipvZas7ZU/D/tM+nR/zDUyRPRFhqXgtPufdrf
N4+hJWtsqPjUC9wvnbt73yKGlEbTKAe6k/D21xm7rlIwZCF2isnsWSLeaWP9
+C4VQ94erJyhts/wA05UixgahgooXiJT/Qn4pVP0BH86hn5gQvIHXsTjcwP9
e21WMDR3u0PT1CEOL9nI7ZVYxdDOmgjyHcHHuFWdRP8Mwba7fbMu4o9wGRX+
AxlrGHr2or/ih95DnElB+/nxdQx1i+t1qNRE4VeS7e0mCOYtfD2dTI7EfY5r
2fpsYOiUFtfWLQ138bldGQkLBMfV+gq4nwjDRT6f5nbdxFCr2YDC9+8huI60
WP03ggWLwmLdXgbhLaKd1QcZGHpeb44rZQfgZx7LL50neN/QobnNXB+84Szz
hTSCj453YU8dPPH1sIO8zQSLc3o/k3N3wY34jzHNEBzSKdl54KsJPq9jK7VO
sAz3kAeLrAooxfY/YhDcvRCaxkO3BXYezopUgufNJBav+rgBLosN7iGCb8aT
Gz1VvAFnQo10CcGbt68/T5P3A9xbo++E/f//HnleHdI3QPcTcV59gpltRnTY
xINBzvUrY4tEPl+F7t9L4QkF3Rxas08IDn96xFs9JhxoD11QPEowmbPStm3H
PVBb3VD4gdCHLdRaz/P+fTBfrn9ZhuD65TkpFrYH4KRgvmsioW/U5cjdaeEx
gOnGdAKNqMerhdhbB+/EApPXPUxGBLu7S7t92owDGmeOR1YT9TU+EmAXppMA
PPY9zZwg6i859NXUPOgJcBQ7vLK5jKFpSwf16ZVnQNUp3JKd6JfGnW+Olmgk
ga54RRs60V9v62mHwwOSwSeZ6vj+JQx56cayC1JfgCyaeKXfAoZMVgbXp5VT
wR+vkVdyRL/KFUktlPikgZFe+aa+OQzRE37OStJfgsLdLoiV6PcyjptdX/wy
geVQh33FBIZeyvJ1FBzJAjmsM1ajhL8izAtaX7RkgblLV/mpPzFk9XS8yV/q
FegIL6X/HSLqI3zyi/RQDgivSpA5RPi3x3AS54/KBTKWZtdQO4aq3UOqtqm/
AfT8jOBTrRiKfldUOhz7FoRJWK8YNxH9gR0qiDPMB9VQw/UawhDn2ZK84IV8
gFjotLgqwm+3Ld54pRYA/uld1lnlGHIe+2IpEvQenL817v2UOI/kJJdNNroK
gaNz4NHS1xhq+OhkWHi/CAhtae1diMKQdq3MV4nRImCS4SzJcw9D77tX9FLV
igFzShlJMAxDT1fiQfR4MSBPM6a338TQeVCveUGnBLhsEfwj6IEhRqOCosBC
GbhmZMwGSRjyGdwoeGRUDtrknR3tIYYm/zbKsaaWg+hz4ffdtDDUzHNBZul4
BTD589fhpCKGkm2SJL5nVYLOluGdNgcxpDq2RfCOLQ4SKqq3n/ungeTKTy8o
5BITrivj9Ogf4n6Ke1czuoKDQ68PJ5n/0kA70vNUX5ogYPbWmMbap4HWzW0H
GXMI/HLplmn6rIGG3hdI4YpfgNpM6r4PsRoozduxRqekBrTYps9uimigF2e3
5z8ZqQE7hn9OVh7UQInGRc/+stUCo4C3M158GihWiMMzxbYWNP98si+TVQOF
tBbv2lipBcLxz/dfnFJHLgo7nSq160DicOhL61x1JDJfsaL5pQGIH/1+8Rtx
/wd9Nwin/G0AZ9c+C7ES80H3myaufIFG4L3zQ4oqMT9EXRgQEb7WCPYoev51
XVFD8/2rJmxCTSDc7i3fZqsaqq7FMjpuNQPTZ8fFpG+pIbvnJce9sBbg+3hQ
4WqDKioKBF1iF1rA0xf79N5WqSIumzqnkdgWsF/18umeQlX0mafH13KqBZgM
z6UxklQRr8FNsxcnWsHqkRu/Yi+populyddDV1tBic3Xq6UsquhYZt93U9t2
UBhLPS+npILm7+a71V5uBxUemtnvRVVQ4sUwhlZYO/jgydwpwq+CpmRlFaXy
20HHJPP2oTVlFFkaksC8rQMYjmiIPa9RRvXfJexLCzrArOjfIeNTysiI7jcl
zNYF2F2cTe5cIOZHk93M1OIeYMEXPaPkqIBiXLYvrDT0gOlXm4vKpgqo149p
ZHOoB0ReyM2X1FVAHqlz5eysvcA7JcHi7yHi+3+NPgdteoFZF7tTXZk86n0c
NmZA6wXD5TWneQrlkEc35XOcWj8QOBeVmPhQBj1y6glRKBkEMkou/3kwSaI6
00M7zXf/BBQ2IYePfwTQX2G+2+3J42A09NS+JbZJ3M/3qMujvZNAZn3v0e42
PtgzyGPpVj8F8kYivrLNSULn69q/2U7OAFV9Xv0BQWX49ah61FeWOfDyWOMH
XFYTim+vnMoyngeDb5ZdZiQgXKyT88gwmQdFnUK5ZGUIqyPSZ9Is58HhdYP2
57oQ2my7N5d8dh4c4YxKUbaG8C7DghLrPQ9CjsgO8odC+Iv6mxGUOA84WBJZ
cvshzBjbw289NQ8ypF7wpUTowSvpEYmWf+eBldBdJ8HHelDTeUXAfHEe7L9c
xJ/4XA+2Dw0fPLE+D161VGT4vteDW/pyj+jxLIBgja7W1j496NwC5GQ1FkDj
StUYx1F9eKjSk8QSuQDalgNk5Ov0Ia/A6uqVhwvAzShd7782fcjpH/m+N24B
JMedTcob0Ifr8tkH8lIWwNaZbz82/+nD/szhBcuPC0DXeEfY4X0G8Gm0RerL
4QVgknYi2MDNAHLZqy9rqS4CwS0m+mkrBpC1tDYvW3MRbA8yPOi51RBu8Fqd
44aLIO5Vwj7pHYZw9of397Hji0DU5oPinYOGsFH/TeZ950VQEvOb+ljXEN6T
PmTeE70ImAMwcbkQQ8i0ujXXZ2wReEWPC7XTDaHzeN9S8O9FoMM87+POMISo
+b3uw9lFcGP44JN/LCQYkubY+Zq2CGz4rnP27iZBhmE5Y5BjCejw0vnZZUhw
89E1GyPlJZAj95mrx54EHa8bp1tpLAFmvV7hOBcSrD53eNZFZwmMJAhwAncS
vK36/U6Q0RKIPtQifsWHBDf6Jd8V2i+BSX5QejiSBNfFRpkPhi8BaOd+4st7
EjzLXWIqdX8JkOsP2MQXk2Al/WGSWswSeFWvp25dToJBTVryFolLQGYgXevt
VxJc835mF5G3BEQalENTu0jQzu5KdnzhEgh2lfWn9JFguQFp/uWnJRDZd6xK
c5gEb+xduluBlsD54HdbEydJcLXCtHC+cwnI3ipMjKcR67PF1jf6lkAfjLby
WCXWx6yTd4wsAVZNnWGFTRK87vJmUOzPEigdmuV/yEKGdFZWdvuNJbCrlftk
yB4ytJ0ftLy4lQJmuQNTO/aSYWnfxxQ/NgqIOXpFfe9+MgzMc1GO3UUBTNzf
6BeFyHDZosqxVowC2mwL+vRlyDC0r2BI9ygFzC+ZJR2TJ0Mul4yzpQoUkK98
dLe2EhmKe9+ze6tFAc0mHj3j6mT4Yfl6n6geBWTfTF1O1CRDnWAv21QyBfj9
exeI6ZChVYyFzWMLCjjREWaorU+Go3yGXRynKcCnDJ1LNSRDzxQ1q/CzFCDb
XBs5Qyb2zztgGeBOAUqeSXHkE8T+Klxt814UoKIWfszKhAyTKpjMPXwo4GX2
1fyTZmT4vnHCxOEWBfTe2Ca5YUmG2pa9zd2hRP4Pr3IXW5FhXV/jCfNICrBJ
djx+2oYMLV2qGhseUkD17r1fxk+T4fBUwTGDeApI3N7iZHeGDD28M+orEylA
W66Es8KODKnLCUZqqRQg3jhfyHKWDDnZbpCkcinAPTjnvq0jGSbGeNVk5BN6
8inFODuRocheJ4ODRRRQyisqb+lMhvkpFl+elBF6vHS3lnUhQ00xQz1unAIs
Xfv/LBD8LU8NRdZQQH+MaVfaOSI+FSmwtZECFHujmNRdifgqDlTfbKEAM7/j
ViUEXzLg0qF2UoDgfp0yofNkSGlkqrzSTwFlVNZ9/xEcYrmkOTVCAUkF8Ew+
wZz9E2UuExTw8XzAhXaCE116NQamKeBblozYCMGifxpLrOYpwPdqd0gnwQXe
VWo/qBRwU3HE+QPBmvSCYqM1Chj8nP0ukOBvwRkqn5moYI/TLTMJgi3ZnnzU
ZKWC43nv5KqJ+IZi7ikV7aCC2/k+yjoEX9x7o1B2FxV8aFgnZRH5UVK8FF7v
pQKRam/TJSL/EDGnAqGDVOCf/VtFmuAd7yzkkoWpYPzflZ/GhH5PVQzf7ZGg
AncXdm0zQt8jlWoyD2WoYJ3rjYwOoX++gdRbViUqqLDXfb7bgQyxpgPSIepE
fLTMqy32ZFhjyZW7ok0FK53vHv9H1NO8n0nyP30q4FUV+bNpS4aDLkuvZo2o
YOkJ7nCN6Af3PxNibiZUoF6i1NNoTYa36Y0iZ2ypYOyicIAS0V8cIVUZ7Q5U
kJL22Quak+ETtvfCJ12phB/vsKiakmHe3ieHwRUq8KJJVbcdI0ON1Huppf9R
gRtbb951IyIesRuHlK5TQX+E0iAbiQwHVJwOiIVTQdcaLakbkKHbiir33ftU
4MmfzCJK+Ge+ipN5IoYKhn+0QlvCX9uMyqezkqhgeuplna8KGcqd4SsXLaCC
1+204JsShN8Pzb4LL6KCqQMFbesiZKg/9iX9VxkVZCVKq54n/H7a0/t+Vg0V
MM8VtP3aR+h/q8lWtJ8KdFfOozfsRH76GSfDR6jgURaVcWYbkR/rdfjrF6F3
7/vYOQYJvnkkLpn1jwril+8a1hHnVUf6nWURFhrY+tfshMo4CYp/U38qokAD
R9WfOvz+RILvo7iiwlRpwHFvjtoocb5qmk3cGtekgbQBUk/lGxI06427kEmi
ATlFxR3CqSQYOP1XRcSeBix+pQTHhZFgE1dWx5EIGhBc3xHOfIwEbTpu1IVG
04BhfjabrB4Jjj6zqBiLpYHNLT+qNDASpAgxMjKe00CQy4odTZIEBZXtfI4U
0kAf/WYEGxsJep/m2XVkkIgXqE97VBnCcznyyWI/aaAbl+GwKjKE1iumIlKT
NGBiotsu/NYQaj5/qKowTwPJBVPbPBMNIcsIh53utmUwvNmSVHjNECa7sWTa
ySyDi/2XYtcFDeGDElEZR8VloM1evkuc1xAGsxsWu6gtg0DlmRGl7Ybw/JvQ
uotwGfhL/+GgLRpA+TnGjL/VMvjkJKUoVGsAa/xWVeKDloFn9IjZvKsB/PRN
oPrpnWVQrvxVy/C0Aczlx4ySI5YBHVnz3DhuAGPKAs6kxy6Dndd1BaIVDOCZ
DcqtgqxlYFwmrADX9OFc+L9vTc3LAE9wCR+L0ocCCb9stx2ig2Ll2wFucXpQ
I+zwXt8jdCBX3CLlGqIHbXzsOsYl6MCJobwHu6IH48xbTb4q0YHiEY3d3sf0
IOfOSv1QYzoIefDfVbZNCDfvxssw+dKB0K6bc8iJmI8C9JnWG+nAUCtafOd2
XbjV/VaVZysdzH9OVRzq14FCNqU3BrroQFT34Z/TeTrQQUWOWj5KB727l51P
murA7nmB6es0Oiha33dVOkYbNlxa6FgWXgHnVDzLQzc0Yb79y9dLgSsg8tuK
6GCiOlTpEVllvb0CgqpymWxc1WGF5euT+8NWwHShgettWXVYfyx/AT5cAZan
+8b6kBocV6/UiklfAZNc4T+Kx1XhPt7eFsnGFSAZ2H20TUAFhjZz0x0OrILY
AsyBh6wA2Y3jj18TWgWlzh6N/1gU4KOve1PCxVaBjLVi5N8oefii/JD+W/lV
YPzLbJ4SIQdLco4+oBsQXLJHM9tfBs6GGwnFe60C3+MP6sVVJOFpnWDj+qpV
MD9Ou7tmLAgHqZPcX76sglaO3C2+QofguXzTnoq6VcATUHkuiHYAeh0WdCto
WwXmwlWmWKoADN1SFfZ0YhW89C/kOTHIC/NrV6vP71wDzk1+T7hEWeE2U3/V
LQ5rYFSuuLXRkBlFsQ6vr7oQ79eCL9pQWRA3TqqhuK0BocsDTWs57Gi/At+p
Ke81gPSsLZ8LcCH53UXeLeEE9xZHKMTyIrvuhbcpeWsg5KeCW8fYYVToePmI
5jrx/6zWc1wjR9G54vlDL7esg1FbPmW8WAbxcvoKsLKtA42bm2c8H8oi/7Ib
PO271gEcXjlcCuSRJm/k5iWJdRCUecl1v60i+tKQ0Z9kuQ5+xdTeyxhVQZ0q
vXErOevg/CO3ZR4rbXQ32j7GKX8d+OqJ7Slr0UZqY8P3az+uA7rd1bGpEzoo
8dFEyONqYv9Oy1+jJF3kML14RapzHYi76FceEoJoMm3niTOMdTAcFJB/TUIf
0TkMmMusNwBU4GCIeJLR7jmuhC92G8D5RlA6+zsyOtrWL9rstAHkPgj+lvlH
Ro7PfMgjlzaAUHHwbxVfI/RVJOM+y+0N0M+2M5Z8xxjFaG/hsXy1AWLScuCj
18eR2BX84AxtAyzeSrqVL2aGLNu01A4lbgL25fs5rIFWiENrx+fKlE0gILI+
aPrKCn3O6j9xNnMTLJJ5ztV0WiGFwOsuz/M3QUimSZ26kjXiOlzyQKB2k7iP
PEf1/1mjBi+lcb7FTfBZi/X2Fp/TCLJLxXKdZIBRu47OgWQ7RL9G359vwQDF
Hv74lhY7VDBQl21ymgEW3aesbZntkWCBW8WDcwyg5L2L8szLHq1bZ01yXGeA
qtxrdFe9s6gk87AO2ysGyFvQsjWiOKArO//VvXrLAH0FHxfDjzoi8YBqS3Ih
A/zekUWhnHNECccdLt6tZADEJ5bm1e6IfBaS45k7GGDcXSuj6qMTkrb3EMzs
ZQD9wProx7NO6GcNlqs/zAAW9wScmnc7I/PE3uo7fxgg8Hx4idBJZ8S+NeeY
8D8GKPt7OH7hojPCPQM6EYUBVKRpJwbvOiP/LrKT8yoDZO8iz49mOCM5sHea
wWCAiIunYhi4M/ofFJrq5w==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PlotRange" -> {{-2, 2}, {-133.99994579592402`, 249.92304227439462`}}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, 
       "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, 
       "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> {
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[2]]}, 
       "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), 
         "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>,
        "Primitives" -> {}, "GCFlag" -> False|>, 
     "Meta" -> <|
      "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> 
       Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]],
  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]],
  ImagePadding->All,
  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->{{-2, 2}, {-133.99994579592402`, 249.92304227439462`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.928923182658969*^9, 3.928923276674745*^9}, {
   3.9289233529319477`*^9, 3.928923408725122*^9}, 3.929378298901808*^9, 
   3.929419447783949*^9, 3.929429839202365*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"1f1349ab-6174-49c2-a9dc-567d9c8615a3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["7. Aufgabe: Euler Methode", "Subsection",
 CellChangeTimes->{{3.927702464160159*^9, 3.92770246812077*^9}, {
  3.9289186256528997`*^9, 3.9289186284477577`*^9}, {3.929179983074396*^9, 
  3.9291799839427*^9}, {3.9294312418644733`*^9, 
  3.929431242765588*^9}},ExpressionUUID->"43cba288-ba28-4e34-a72b-\
8a11b306f21a"],

Cell[TextData[{
 " Numerische Methoden zur L\[ODoubleDot]sung von DGLs basieren darauf,  \
Ableitungen als diskrete Differenzen zu approximieren. Die einfachste dieser \
Methoden ist das Euler-Verfahren. Betrachten Sie eine DGL erster Ordnung:  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         FractionBox[
          RowBox[{
            StyleBox["d", "TI"], 
            StyleBox["x", "TI"], 
            RowBox[{"(", 
              StyleBox["t", "TI"], ")"}]}], 
          RowBox[{
            StyleBox["d", "TI"], 
            StyleBox["t", "TI"]}]], "\[LongEqual]", 
         StyleBox["f", "TI"], 
         RowBox[{"(", 
           RowBox[{
             StyleBox["x", "TI"], 
             RowBox[{"(", 
               StyleBox["t", "TI"], ")"}], ",", 
             StyleBox["t", "TI"]}], ")"}]}], TraditionalForm], "errors" -> {},
      "input" -> "\\frac{d x(t)}{dt}= f(x(t),t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "bea52b4d-938e-4104-8453-6b9d6d179cc1"],
 "  . Die Ableitung kann als Differenzquotient geschrieben werden ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         FractionBox[
          RowBox[{"\[CapitalDelta]", 
            StyleBox["x", "TI"], 
            RowBox[{"(", 
              StyleBox["t", "TI"], ")"}]}], 
          RowBox[{"\[CapitalDelta]", 
            StyleBox["t", "TI"]}]], "\[LongEqual]", 
         StyleBox["f", "TI"], 
         RowBox[{"(", 
           RowBox[{
             StyleBox["x", "TI"], 
             RowBox[{"(", 
               StyleBox["t", "TI"], ")"}], ",", 
             StyleBox["t", "TI"]}], ")"}], "  ", "\[DoubleLongRightArrow]  ", 
         
         StyleBox["x", "TI"], 
         RowBox[{"(", 
           RowBox[{
             SubscriptBox[
              StyleBox["t", "TI"], "1"], "+", "\[CapitalDelta]", 
             StyleBox["t", "TI"]}], ")"}], "-", 
         StyleBox["x", "TI"], 
         RowBox[{"(", 
           SubscriptBox[
            StyleBox["t", "TI"], "1"], ")"}], "\[LongEqual]", 
         "\[CapitalDelta]", 
         StyleBox["t", "TI"], "\[CenterDot]", 
         StyleBox["f", "TI"], 
         RowBox[{"(", 
           RowBox[{
             StyleBox["x", "TI"], 
             RowBox[{"(", 
               SubscriptBox[
                StyleBox["t", "TI"], "1"], ")"}], ",", 
             SubscriptBox[
              StyleBox["t", "TI"], "1"]}], ")"}]}], TraditionalForm], 
     "errors" -> {}, "input" -> 
     "\\frac{\\Delta x(t)}{\\Delta t}= f(x(t),t) \\quad \\implies \\quad \
x(t_1+\\Delta t)-x(t_1)=\\Delta t  \\cdot f(x(t_1),t_1)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "cdd941eb-22b2-49af-a4ea-0a2d1c54e96a"],
 "\nF\[UDoubleDot]r kleine Werte von  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{"\[CapitalDelta]", 
         StyleBox["t", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> 
     "\\Delta t", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "73f4a12a-3a5d-4e53-838a-8acd0be936ba"],
 "  kann der Funktionswert ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], "(", 
         SubscriptBox[
          StyleBox["t", "TI"], 
          RowBox[{
            StyleBox["n", "TI"], "+", "1"}]], ")"}], TraditionalForm], 
     "errors" -> {}, "input" -> "x(t_{n+1})", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "d768db21-5d39-482a-94cc-d529a047eb2c"],
 "  durch ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], 
         RowBox[{"(", 
           SubscriptBox[
            StyleBox["t", "TI"], 
            RowBox[{
              StyleBox["n", "TI"], "+", "1"}]], ")"}], "\[LongEqual]", 
         StyleBox["x", "TI"], 
         RowBox[{"(", 
           StyleBox["n", "TI"], ")"}], "+", "\[CapitalDelta]", 
         StyleBox["t", "TI"], "\[CenterDot]", 
         StyleBox["f", "TI"], 
         RowBox[{"(", 
           RowBox[{
             StyleBox["x", "TI"], 
             RowBox[{"(", 
               SubscriptBox[
                StyleBox["t", "TI"], 
                StyleBox["n", "TI"]], ")"}], ",", 
             SubscriptBox[
              StyleBox["t", "TI"], 
              StyleBox["n", "TI"]]}], ")"}]}], TraditionalForm], 
     "errors" -> {}, "input" -> 
     "x(t_{n+1})= x({n})+ \\Delta t \\cdot f(x(t_{n}),t_{n})", "state" -> 
     "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "b7384af2-d41f-4e57-8e56-c643dc43ed72"],
 "  approximiert werden. Durch iteratives Anwenden dieser Relation kann die L\
\[ODoubleDot]sung  f\[UDoubleDot]r ein Zeitintervall  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["t", "TI"], "\[Epsilon]", 
         StyleBox["t", "TI"], 
         RowBox[{"[", 
           RowBox[{
             SubscriptBox[
              StyleBox["t", "TI"], 
              StyleBox["i", "TI"]], ",", 
             SubscriptBox[
              StyleBox["t", "TI"], 
              StyleBox["f", "TI"]]}], "]"}]}], TraditionalForm], 
     "errors" -> {}, "input" -> "t \\epsilon t [t_i,t_f]", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "15742bfc-5bd1-4396-bbcb-854830cdde16"],
 "  numerisch bestimmt werden, wenn die Anfangsbedingung ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[<|"boxes" -> FormBox[
        RowBox[{
          StyleBox["x", "TI"], 
          RowBox[{"(", 
            SubscriptBox[
             StyleBox["t", "TI"], 
             StyleBox["i", "TI"]], ")"}], "\[LongEqual]", 
          SubscriptBox[
           StyleBox["x", "TI"], "0"]}], TraditionalForm], "errors" -> {}, 
      "input" -> "x(t_i)=x_0", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], " "}], TraditionalForm]],ExpressionUUID->
  "b413aa8b-fd76-4c40-93cf-727467f78738"],
 " bekannt ist. \n\nBetrachten Sie nun die Ihnen bekannte DGL eines \
harmonischen Oszillators.   ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["m", "TI"], 
         OverscriptBox[
          StyleBox["x", "TI"], "\:0308"], 
         RowBox[{"(", 
           StyleBox["t", "TI"], ")"}], "\[LongEqual]", "-", 
         StyleBox["k", "TI"], 
         StyleBox["x", "TI"], 
         RowBox[{"(", 
           StyleBox["t", "TI"], ")"}]}], TraditionalForm], "errors" -> {}, 
     "input" -> "m \\ddot x(t)=- k x(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "2a867f0d-549a-4bac-8118-115bf249d5d8"],
 "  ist eine DGL zweiter Ordnung. Um das Euler-Verfahren anzuwenden, ist es \
praktisch, diese Gleichung als zwei gekoppelte DGLs erster Ordnung f\
\[UDoubleDot]r die Ortskoordinate und die Geschwindigkeit umzuschreiben:\n\t\
1.  Gl:  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[<|"boxes" -> FormBox[
        RowBox[{
          StyleBox["m", "TI"], 
          FractionBox[
           RowBox[{
             StyleBox["d", "TI"], 
             StyleBox["v", "TI"], 
             RowBox[{"(", 
               StyleBox["t", "TI"], ")"}]}], 
           RowBox[{
             StyleBox["d", "TI"], 
             StyleBox["t", "TI"]}]], "\[LongEqual]", "-", 
          StyleBox["k", "TI"], 
          StyleBox["x", "TI"], 
          RowBox[{"(", 
            StyleBox["t", "TI"], ")"}]}], TraditionalForm], "errors" -> {}, 
      "input" -> "m \\frac{ d v(t)}{dt}=- k x(t)", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], " "}], TraditionalForm]],ExpressionUUID->
  "90c22620-3402-4450-a356-43325b8112e2"],
 " \n\t2. Gl:  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["v", "TI"], 
         RowBox[{"(", 
           StyleBox["t", "TI"], ")"}], "\[LongEqual]", 
         FractionBox[
          RowBox[{
            StyleBox["d", "TI"], 
            StyleBox["x", "TI"], 
            RowBox[{"(", 
              StyleBox["t", "TI"], ")"}]}], 
          RowBox[{
            StyleBox["d", "TI"], 
            StyleBox["t", "TI"]}]]}], TraditionalForm], "errors" -> {}, 
     "input" -> "v(t)= \\frac{ d x(t)}{dt}", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "855b6987-c40d-4ee6-883f-198d4febf4d7"],
 " \nWie im vorherigen Beispiel k\[ODoubleDot]nnen die Ableitungen als \
Differenzquotienten umgeschrieben werden, um die iterativen Relationen f\
\[UDoubleDot]r ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], "(", 
         SubscriptBox[
          StyleBox["t", "TI"], 
          RowBox[{
            StyleBox["n", "TI"], "+", "1"}]], ")"}], TraditionalForm], 
     "errors" -> {}, "input" -> "x(t_{n+1})", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "721bf034-5c73-4cdc-838c-fdb0413a75b8"],
 " und ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["v", "TI"], "(", 
         SubscriptBox[
          StyleBox["t", "TI"], 
          RowBox[{
            StyleBox["n", "TI"], "+", "1"}]], ")"}], TraditionalForm], 
     "errors" -> {}, "input" -> "v(t_{n+1})", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "2c11a44c-eac1-4214-9728-d463e295b099"],
 "  zu bestimmen.\nSchreiben Sie eine Funktion, die die DGL f\[UDoubleDot]r \
einen harmonischen Oszillator mithilfe des Euler-Verfahrens f\[UDoubleDot]r \
beliebige Anfangsbedingungen und Parameterwerte numerisch l\[ODoubleDot]st. \
Vergleichen Sie ihre Ergebnisse f\[UDoubleDot]r  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], 
         RowBox[{"(", "0", ")"}], "\[LongEqual]", "1"}], TraditionalForm], 
     "errors" -> {}, "input" -> "x(0)=1", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "14118e44-7814-4f9f-8830-4f3aee2dd0e1"],
 " , ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["v", "TI"], 
         RowBox[{"(", "0", ")"}], "\[LongEqual]", "0"}], TraditionalForm], 
     "errors" -> {}, "input" -> "v(0)=0", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "c8d3feee-4d27-4ef3-9d48-ab526ea1e9f2"],
 ",  ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["k", "TI"], "\[LongEqual]", "1.2"}], TraditionalForm], 
     "errors" -> {}, "input" -> "k=1.2", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "232b36c2-7d56-4622-83bc-1ff46d6acb75"],
 " und ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[<|"boxes" -> FormBox[
        RowBox[{
          StyleBox["m", "TI"], "\[LongEqual]", "0.25"}], TraditionalForm], 
      "errors" -> {}, "input" -> "m=0.25", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], "   "}], TraditionalForm]],ExpressionUUID->
  "92bbd003-78f6-4a81-aaea-7e6a2233b3c7"],
 "im Zeitintervall ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["t", "TI"], "\[Epsilon]", 
         RowBox[{"[", 
           RowBox[{"0", ",", "10"}], "]"}]}], TraditionalForm], 
     "errors" -> {}, "input" -> "t \\epsilon [0,10]", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "0249a1ee-81e6-4a62-a957-ead2cfff3f7a"],
 " mit den analytischen Ausdr\[UDoubleDot]cken f\[UDoubleDot]r ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], "(", 
         StyleBox["t", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "x(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "9b6c9ca7-7589-453b-9768-664c5d5008f1"],
 " und ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["v", "TI"], "(", 
         StyleBox["t", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "v(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "103a545e-268a-4d48-aef0-f0ed54805f74"],
 " . Setzen Sie dazu einmal ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    TemplateBox[<|"boxes" -> FormBox[
        RowBox[{"\[CapitalDelta]", 
          StyleBox["t", "TI"], "\[LongEqual]", "0.4"}], TraditionalForm], 
      "errors" -> {}, "input" -> "\\Delta t=0.4", "state" -> "Boxes"|>,
     "TeXAssistantTemplate"], " "}], TraditionalForm]],ExpressionUUID->
  "7ab498ce-10ea-432c-a2ad-83d6253985fb"],
 "und einmal ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{"\[CapitalDelta]", 
         StyleBox["t", "TI"], "\[LongEqual]", "0.01"}], TraditionalForm], 
     "errors" -> {}, "input" -> "\\Delta t = 0.01", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "58bebf0c-ed02-4932-a7dc-b4017cb3523d"],
 ". "
}], "Text",
 CellChangeTimes->{{3.927702434731071*^9, 3.927702457089232*^9}, {
   3.9277051623698893`*^9, 3.927705175989855*^9}, {3.927881004567774*^9, 
   3.9278810112517967`*^9}, {3.928903691014721*^9, 3.9289036956982594`*^9}, {
   3.9289186228721533`*^9, 3.92891862371244*^9}, {3.9291799925609703`*^9, 
   3.929180322448945*^9}, {3.92918046154911*^9, 3.9291805342562838`*^9}, {
   3.929180580306048*^9, 3.929180587304311*^9}, {3.929180634694153*^9, 
   3.929180763853003*^9}, {3.929180797426957*^9, 3.9291809110120573`*^9}, {
   3.929180993630664*^9, 3.929181024693157*^9}, {3.9291810593543158`*^9, 
   3.9291811046814337`*^9}, {3.929181178299529*^9, 3.929181343512694*^9}, {
   3.929181422867154*^9, 3.929181487008458*^9}, 3.9291815809457817`*^9, {
   3.92918165309704*^9, 3.9291816542625027`*^9}, {3.929181695985159*^9, 
   3.9291816987530317`*^9}, {3.9291817313276978`*^9, 3.929181846665105*^9}, {
   3.929181910138072*^9, 3.929182007861845*^9}, {3.929182037880314*^9, 
   3.929182139539394*^9}, {3.929182175211878*^9, 3.9291825982424307`*^9}, {
   3.9291829913251143`*^9, 3.929183093882502*^9}, {3.9291831302046328`*^9, 
   3.9291831839767303`*^9}, {3.9291843760438347`*^9, 3.929184377354128*^9}, {
   3.929365408603586*^9, 3.929365428144783*^9}, {3.929490259876334*^9, 
   3.929490276620111*^9}, {3.929490315881415*^9, 3.929490336541912*^9}, {
   3.929490370433929*^9, 3.929490391473741*^9}},
 Background->RGBColor[
  0.94, 0.88, 0.94],ExpressionUUID->"be039d1d-af75-4238-a10b-1d9e1eb4177e"],

Cell[TextData[{
 StyleBox["Hinweis:",
  FontWeight->"Bold"],
 "  N\[UDoubleDot]tzliche Befehle: ",
 StyleBox["Module[ ] , While[ ], AppendTo[ ]....\n",
  FontWeight->"Bold"],
 "Ihre Funktion k\[ODoubleDot]nnte die folgende Struktur haben: \n",
 StyleBox["Euler[dt_, tstart_, tend_, xstart_, vstart_, k_, m_] := Module[ \
........ ] ",
  FontWeight->"Bold"],
 "\nsodass sie f\[UDoubleDot]r die angegebene Parameterwahl durch ",
 StyleBox["Euler[0.01, 0, 10, 1, 0, 1.2, 0.25]",
  FontWeight->"Bold"],
 "   aufgerufen werden kann, und die Funktionswerte von ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["x", "TI"], "(", 
         StyleBox["t", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "x(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "80ed9926-871b-4360-9d9c-e4a1e1ad9107"],
 " und ",
 Cell[BoxData[
  FormBox[
   TemplateBox[<|"boxes" -> FormBox[
       RowBox[{
         StyleBox["v", "TI"], "(", 
         StyleBox["t", "TI"], ")"}], TraditionalForm], "errors" -> {}, 
     "input" -> "v(t)", "state" -> "Boxes"|>,
    "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID->
  "4b09136d-e013-43dc-9787-9f060c7089eb"],
 " als Listen liefert: \n\nlist1= {{ \
t0,x0},{t1,x1},{t2,x2},{t3,x3}.......,{tf,xf}}\nlist2= {{ \
t0,v0},{t1,v1},{t2,v2},{t3,v3}.......,{tf,vf}}\n\n"
}], "Text",
 CellChangeTimes->{{3.929182667092381*^9, 3.929182883714222*^9}, {
   3.929182968169322*^9, 3.929182980476203*^9}, {3.929183197492037*^9, 
   3.929183528766569*^9}, 3.9291835682886744`*^9, {3.9294332472906446`*^9, 
   3.929433277497389*^9}, {3.929490413054171*^9, 3.929490437527961*^9}},
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"8dde55ba-7f71-4186-8a6b-60b60c8b1d25"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1256.6037735849056`, 688.0754716981131},
WindowMargins->{{0, Automatic}, {0, Automatic}},
DockedCells->{},
FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"196fa163-d48b-412d-ac79-ff36fb167757"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 219, 3, 29, "Input",ExpressionUUID->"1e6115ea-cb4c-429c-be4f-790d4d1d31c1"],
Cell[CellGroupData[{
Cell[802, 27, 406, 5, 69, "Chapter",ExpressionUUID->"d64facf9-cde0-44d8-9a21-ec4ca1aa32c4"],
Cell[CellGroupData[{
Cell[1233, 36, 244, 7, 81, "Subsection",ExpressionUUID->"23432cad-5230-40b5-a317-c8c4980d7eee"],
Cell[1480, 45, 911, 18, 97, "Text",ExpressionUUID->"0c994294-8b24-46b0-af70-a078d2ebd91a"],
Cell[2394, 65, 436, 11, 51, "Text",ExpressionUUID->"f6256c2e-429f-48d0-b4be-914d6cf36107"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2867, 81, 322, 5, 54, "Subsection",ExpressionUUID->"81f65acf-4ce5-4bdd-a26f-c212e099ea35"],
Cell[3192, 88, 6298, 148, 203, "Text",ExpressionUUID->"dca6c4bb-3fc0-4683-9406-d7b66e69e308"],
Cell[9493, 238, 600, 13, 51, "Text",ExpressionUUID->"1396b715-7b91-43f6-922e-830a151d4cc1"],
Cell[CellGroupData[{
Cell[10118, 255, 1015, 29, 52, "Input",ExpressionUUID->"9af4ea99-9018-4777-b34e-a6e3d19a2ca0"],
Cell[11136, 286, 122271, 2053, 362, "Output",ExpressionUUID->"849de12e-100c-4ed1-b025-9457d0d76c45"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[133456, 2345, 375, 6, 54, "Subsection",ExpressionUUID->"2edcc4ce-8d47-43a9-bbf6-269b44ac30a8"],
Cell[133834, 2353, 6474, 158, 276, "Text",ExpressionUUID->"5ff27437-36cf-42e7-914e-89e95677612e"],
Cell[140311, 2513, 1060, 24, 74, "Text",ExpressionUUID->"1b9b1820-c35d-47fa-ae7b-539fd320cdba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141408, 2542, 307, 5, 54, "Subsection",ExpressionUUID->"8c4f473a-1422-457a-9abc-01d6455c0083"],
Cell[141718, 2549, 3366, 82, 78, "Text",ExpressionUUID->"eec1f6e5-df75-4341-8880-d804f815ce28"],
Cell[145087, 2633, 559, 15, 51, "Text",ExpressionUUID->"8c226efe-4988-4965-b950-b66da8406496"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145683, 2653, 205, 4, 54, "Subsection",ExpressionUUID->"a8035bea-e525-4423-8c84-225cdc45482c"],
Cell[145891, 2659, 5850, 135, 140, "Text",ExpressionUUID->"43498629-e356-4c77-80b8-e9fcab297361"],
Cell[151744, 2796, 722, 15, 51, "Text",ExpressionUUID->"57213f74-b610-4fd9-992a-1afcbc57a3ce"],
Cell[152469, 2813, 55717, 1726, 434, "Input",ExpressionUUID->"eefe058f-c8b4-478a-984d-36f8b2be723f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208223, 4544, 255, 4, 54, "Subsection",ExpressionUUID->"e8ae6ba6-96a5-4994-9ba2-b6fd7fc43846"],
Cell[208481, 4550, 1592, 27, 76, "Text",ExpressionUUID->"dcf7572b-ff97-4210-87e7-4fb6d8188322"],
Cell[210076, 4579, 674, 17, 51, "Text",ExpressionUUID->"e897ea03-112e-47be-b9d0-4c16da5d6297"],
Cell[CellGroupData[{
Cell[210775, 4600, 908, 23, 52, "Input",ExpressionUUID->"4b0e817d-0456-4464-9d3e-9eec51784993"],
Cell[211686, 4625, 33984, 600, 239, "Output",ExpressionUUID->"1f1349ab-6174-49c2-a9dc-567d9c8615a3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[245719, 5231, 320, 5, 54, "Subsection",ExpressionUUID->"43cba288-ba28-4e34-a72b-8a11b306f21a"],
Cell[246042, 5238, 14638, 367, 436, "Text",ExpressionUUID->"be039d1d-af75-4238-a10b-1d9e1eb4177e"],
Cell[260683, 5607, 1794, 42, 237, "Text",ExpressionUUID->"8dde55ba-7f71-4186-8a6b-60b60c8b1d25"]
}, Open  ]]
}, Open  ]]
}
]
*)