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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    278533,       5320]
NotebookOptionsPosition[    276136,       5240]
NotebookOutlinePosition[    276507,       5256]
CellTagsIndexPosition[    276464,       5253]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Veff de Kepler", "Subsection",
 CellChangeTimes->{{3.810053237136018*^9, 3.8100532445597935`*^9}, {
  3.8101529554661093`*^9, 3.810152958910125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Vio", "=", 
   RowBox[{"RGBColor", "[", 
    RowBox[{"0.75", ",", "0.", ",", "0.82"}], "]"}]}], ";"}]], "Input"],

Cell["Elijo \[Mu]=5 y k=1 y E=-50", "Text",
 CellChangeTimes->{{3.798649073866901*^9, 3.7986490894029255`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "=", "5"}], ";", 
  RowBox[{"k", "=", "1"}], ";", 
  RowBox[{"r0", "=", "4"}], ";"}]], "Input",
 CellChangeTimes->{{3.81015299243381*^9, 3.8101529956279807`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Veff", "[", 
   RowBox[{"l_", ",", "r_"}], "]"}], ":=", 
  RowBox[{
   FractionBox[
    SuperscriptBox["l", "2"], 
    RowBox[{"2", "m", " ", 
     SuperscriptBox["r", "2"]}]], "-", 
   FractionBox["k", "r"]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rc", "[", "l_", "]"}], ":=", 
   FractionBox[
    SuperscriptBox["l", "2"], 
    RowBox[{"m", " ", "k"}]]}], ";", 
  RowBox[{
   RowBox[{"Ec", "[", "l_", "]"}], ":=", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"m", " ", 
      SuperscriptBox["k", "2"]}], 
     RowBox[{"2", 
      SuperscriptBox["l", "2"]}]]}]}], ";", 
  RowBox[{
   RowBox[{"rmin", "[", 
    RowBox[{"l_", ",", "En_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["k", 
      RowBox[{"2", " ", "En"}]]}], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"2", "En", " ", 
          SuperscriptBox["l", "2"]}], 
         RowBox[{"m", " ", 
          SuperscriptBox["k", "2"]}]]}]]}], ")"}]}]}], ";", 
  RowBox[{
   RowBox[{"rmax", "[", 
    RowBox[{"l_", ",", "En_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["k", 
      RowBox[{"2", " ", "En"}]]}], 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SqrtBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"2", "En", " ", 
          SuperscriptBox["l", "2"]}], 
         RowBox[{"m", " ", 
          SuperscriptBox["k", "2"]}]]}]]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rper", "[", 
   RowBox[{"l_", ",", "en_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", "*", "en"}]], 
   RowBox[{"(", 
    RowBox[{"1", "-", 
     SqrtBox[
      RowBox[{"1", "-", 
       RowBox[{"2", "*", "en", "*", 
        FractionBox[
         SuperscriptBox["l", "2"], "5"]}]}]]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"raf", "[", 
   RowBox[{"l_", ",", "en_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", "*", "en"}]], 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SqrtBox[
      RowBox[{"1", "-", 
       RowBox[{"2", "*", "en", "*", 
        FractionBox[
         SuperscriptBox["l", "2"], "5"]}]}]]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ecc", "[", 
   RowBox[{"l_", ",", "en_"}], "]"}], ":=", 
  SqrtBox[
   RowBox[{"1", "-", 
    FractionBox[
     RowBox[{"2", "*", "en", "*", 
      SuperscriptBox["l", "2"]}], "5"]}]]}]}], "Input",
 CellChangeTimes->{{3.7984159764748926`*^9, 3.7984159869199533`*^9}, {
   3.798416056911701*^9, 3.7984160569706926`*^9}, {3.7984161747586155`*^9, 
   3.7984161766369486`*^9}, {3.7984166254793744`*^9, 
   3.7984166610284166`*^9}, {3.798417498268424*^9, 3.798417514652442*^9}, {
   3.7984175680525913`*^9, 3.798417622019879*^9}, {3.798417720677079*^9, 
   3.7984177299400625`*^9}, {3.798418941729883*^9, 3.7984189617750225`*^9}, {
   3.79842112526935*^9, 3.7984211256878552`*^9}, {3.7986453828563147`*^9, 
   3.798645413123825*^9}, {3.7986489322367277`*^9, 3.7986489591002045`*^9}, {
   3.79864899661053*^9, 3.7986490594102416`*^9}, 3.7986490972303877`*^9, {
   3.7986491429010134`*^9, 3.79864914443811*^9}, {3.798649265808976*^9, 
   3.798649270354368*^9}, {3.8101529704584856`*^9, 3.8101529714369183`*^9}, {
   3.81015302148263*^9, 3.8101530330779305`*^9}, {3.8101533631146545`*^9, 
   3.8101534111915874`*^9}, {3.8101546685818944`*^9, 
   3.8101546802051983`*^9}, {3.8101547220150995`*^9, 3.81015480079629*^9}, {
   3.810154906631332*^9, 3.810154915075467*^9}, {3.8101551204215097`*^9, 
   3.810155128237007*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7984176239822893`*^9, 3.7984176370673695`*^9}, {
   3.7984177332085514`*^9, 3.798417736672884*^9}, {3.7984189374777913`*^9, 
   3.7984189795866814`*^9}, 3.7984205261588316`*^9, {3.7984211283707924`*^9, 
   3.7984211286326447`*^9}, {3.798649151838833*^9, 3.7986491573386555`*^9}, 
   3.79864926457469*^9}],

Cell[TextData[{
 "Elijo alg\[UAcute]n valor de \[ScriptL] y de ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["E", "elipse"], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Text",
 CellChangeTimes->{{3.798649073866901*^9, 3.7986490894029255`*^9}, {
  3.8100492307032895`*^9, 3.81004923312694*^9}, {3.810049453965853*^9, 
  3.8100494541659937`*^9}, {3.8100495009183655`*^9, 3.810049504478072*^9}, {
  3.81005063482502*^9, 3.810050635729101*^9}, {3.810051008248184*^9, 
  3.8100510198084035`*^9}, {3.8100555638068*^9, 3.810055565798416*^9}, {
  3.8101549368544383`*^9, 3.8101549539685764`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ll", "=", "2.5"}], ";", 
   RowBox[{"El", "=", 
    RowBox[{"-", ".2"}]}], ";", 
   RowBox[{"N", "[", 
    RowBox[{"Ec", "[", "ll", "]"}], "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.7984205293102922`*^9, 3.7984205657969313`*^9}, {
   3.798421138977787*^9, 3.798421139550448*^9}, {3.7984212278765316`*^9, 
   3.7984212282303286`*^9}, {3.798649165853735*^9, 3.798649194600124*^9}, 
   3.798649268142644*^9, 3.8100493325198746`*^9, {3.8100509945767045`*^9, 
   3.81005099801024*^9}, {3.8100510473931875`*^9, 3.810051065362136*^9}, {
   3.8100525240566883`*^9, 3.8100525418397818`*^9}, {3.8100525814004326`*^9, 
   3.8100526418175573`*^9}, 3.8100526728636637`*^9, {3.810052725181098*^9, 
   3.810052786626117*^9}, {3.810052914120682*^9, 3.810052953400427*^9}, 
   3.8100551249494877`*^9, 3.8100551615630555`*^9, 3.810055283624833*^9, {
   3.810055345775485*^9, 3.810055350040188*^9}, {3.8100556275844946`*^9, 
   3.8100556316228237`*^9}, {3.8101534274232354`*^9, 3.810153429816867*^9}, {
   3.8101535366760845`*^9, 3.810153537109832*^9}, {3.810153567718302*^9, 
   3.8101535701848807`*^9}, {3.810153675331773*^9, 3.8101537118098507`*^9}, {
   3.8101549584150248`*^9, 3.810154975210353*^9}, 3.8101551321467543`*^9, {
   3.8101551713771334`*^9, 3.8101551721706915`*^9}, {3.810155215643649*^9, 
   3.8101552245455017`*^9}, {3.810155277839811*^9, 3.8101553225630302`*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.4`"}]], "Output",
 CellChangeTimes->{
  3.8101534303145885`*^9, 3.810153537543571*^9, 3.810153570703582*^9, {
   3.810153676023363*^9, 3.810153712134659*^9}, {3.8101549717913227`*^9, 
   3.810154975595131*^9}, 3.810155040141972*^9, 3.810155132983268*^9, 
   3.810155172557469*^9, 3.8101552249342976`*^9, {3.8101552792240157`*^9, 
   3.810155322999793*^9}, {3.8102484949824753`*^9, 3.8102485045609355`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Veff3", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{".1", ",", "0", ",", "El", ",", 
       RowBox[{"Ec", "[", "ll", "]"}], ",", 
       RowBox[{"Veff", "[", 
        RowBox[{"ll", ",", "r"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", ".55", ",", "8"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"r", ",", 
        SubscriptBox["V", "eff"]}], "}"}]}], ",", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"rc", "[", "ll", "]"}], ",", 
           "\"\<\!\(\*SubscriptBox[\(r\), \(c\)]\)\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"rmin", "[", 
            RowBox[{"ll", ",", "El"}], "]"}], ",", 
           "\"\<\!\(\*SubscriptBox[\(r\), \(min\)]\)\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"rmax", "[", 
            RowBox[{"ll", ",", "El"}], "]"}], ",", 
           "\"\<\!\(\*SubscriptBox[\(r\), \(max\)]\)\>\""}], "}"}]}], "}"}], 
       "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "2"}], "]"}], ",", "Dashed", ",", "Thick"}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "3"}], "]"}], ",", "Dashed", ",", "Thick"}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "4"}], "]"}], ",", "Dashed", ",", "Thick"}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "5"}], "]"}], ",", "Dashed", ",", "Thick"}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ColorData", "[", 
           RowBox[{"97", ",", "1"}], "]"}], ",", "Thick"}], "}"}]}], "}"}]}], 
     ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<E>0\>\"", ",", "\"\<E=0\>\"", ",", "\"\<E<0\>\"", ",", 
          "\"\<E=\!\(\*SubscriptBox[\(E\), \(c\)]\)\>\""}], "}"}], ",", 
        RowBox[{"LegendFunction", "\[Rule]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Framed", "[", 
            RowBox[{"#", ",", 
             RowBox[{"RoundingRadius", "\[Rule]", "5"}]}], "]"}], "&"}], 
          ")"}]}], ",", 
        RowBox[{"LegendMargins", "\[Rule]", "5"}]}], "]"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p3", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PointSize", "\[Rule]", " ", "Large"}], ",", 
      RowBox[{"{", 
       RowBox[{"Vio", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"rc", "[", "ll", "]"}], ",", 
           RowBox[{"Ec", "[", "ll", "]"}]}], "}"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"rmin", "[", 
            RowBox[{"ll", ",", "El"}], "]"}], ",", "El"}], "}"}], "]"}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"Point", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"rmax", "[", 
            RowBox[{"ll", ",", "El"}], "]"}], ",", "El"}], "}"}], "]"}]}], 
       "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"PVeff3", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"Veff3", ",", "p3"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8101530763685465`*^9, 3.810153126828497*^9}, {
  3.8101534179576893`*^9, 3.8101536527237873`*^9}, {3.810153699833736*^9, 
  3.8101537293877087`*^9}, {3.810153761257435*^9, 3.810153872748909*^9}, {
  3.810153953592512*^9, 3.8101540695318427`*^9}, {3.8101541513657355`*^9, 
  3.810154328652186*^9}, {3.8101543927488575`*^9, 3.810154412317568*^9}, {
  3.810154479800872*^9, 3.8101544859093566`*^9}, {3.8101548249193892`*^9, 
  3.810154873448431*^9}, {3.810154979971609*^9, 3.810155013851086*^9}, {
  3.810155075830201*^9, 3.8101551003370624`*^9}, {3.8101551353439083`*^9, 
  3.8101551395624776`*^9}, {3.8101551807337575`*^9, 3.8101551812514586`*^9}, {
  3.8101552437534466`*^9, 3.8101552680734425`*^9}, {3.8102484253292246`*^9, 
  3.810248440719359*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         Dashing[{Small, Small}], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7fTO8vXMmQ/tZ80EgZ32HrYcOyZ9eAzn+/Zca+l2
fwbntzs9u+4Q9RrON8yb/K+I+wOcH/Og8fSD2E9w/vx7mqUbHn2B8zf5vWKv
sPkO59/1SilfeOInnO+ao6P4zOMPnF/7n2eL0rx/cH56/+WJDyYxOMD436/r
7NM+yAjnqxqvbW95yQTnx4d02fNps8D5jes+vxYOZ4Xz15/b2eY1hw3Or2Fc
vq/vNjucb5ir8NqPlRPO/zTvG6uDBxecP5szUnRtKTecH2AlIey9hwfOX1L7
b+23P7xw/oOfBbZyGvxwvojcglhrMwE4f83ts9OWnkXwpyj1zxNLEoTzm87U
ySowC8H5TyZtmZY+E8H32SPR7m4jDOcz5wu46d1B8PXs/P4HFYogwqdgl76A
sCicz7I/J4p7FYL/Y9qmYF47MYT/L6odWX4PwU/QfKjXUCIO5195fFLgo5gE
nL9n148389ch+F+kdk8PdZaE843urd65+AmC/2Tvo6v61VJw/hwGj8wQOWk4
f/EZh9P1+xB8ua316i+DZeD8+Qxvf736iuBPyVhwQqtXFs6/Efk8pVBRDs5X
WhdTEXAIwX8gJ9GWGyEP56txfdprtgbBz/56+uv//wg+ABBMp0g=
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         Dashing[{Small, Small}], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJxF0HlIEwAUBvCpm6Zztpquqbl0oWWKooGQ5zDKaTm8yqOJNgyLXGolWWke
iYMOJV3GyqZiYeg2D0zUPLASDK/CM60xdax0TdScF+YqqPcefHz8/vyeAz81
4oIhgUAI/ZO/Hbh4TCMWzwQQ/l17YmVjuBTtOWKcadqNPtg6QrypQhPzBcwY
91lwr1VVOL0XzfHb1VqyNAcOfTBecD9IDRYGqifYcRqwx5XSnavkJTBPmdev
jF8BVyicMxpmV8FN3AWTTN918NeQpBtVfZvgEymuDmrONjhbb97MkuyAk4tH
HilLCOz/Xp9w7XLpMQA7HpUJC+YNwQlR9wIsXIjgPPlPDS2aBK4faisMKTcG
ZxnUdBVNm4A9BPYaLskUvCJZI7E5ZuBnprFWsgwyOMybQTvVYQ5+kb0jW9um
gJWbaX7Mw7vBlszKeB8vKlg6PVj2chAtYhVL6Pw94PyBO3b2RnvBqpLmsmQx
+nQHQxjkSwMbpVJPun1Bu/lz9RHplviftHZ3Ks0KTOxOiSPXojfKmiIp/nTc
/8npfY0Cneg845Z7fR94dO4DdZnOAHe0b/yokKNXbd48OXPcGuypqGurVqFV
nbNj7rdtwOUEzqUopi24eoDdn9OFZr7OOTQfuR9cQdBuLejQoouVfUce2oEn
Y78lpTswwSw5LzPsLVrJZBQKYg6AvRfHh8nn0KLOx9a18ehgHk2m5qObxBaj
CQL0XUsSKyIf7WS20uklRed+bjAZk6OnXqWGX2tEFwVpVfUt6PWC72TnHnSf
XhFrO45mDT+vbptEZ0l42uhptIffVK5IiX56a6yGokGvBouW67RornWkT8gS
2rD141ChDs0TFjMcN9AtZ7n8d1toqhNFev4X+rKuX6fXo38D2rYVBA==
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         Dashing[{Small, Small}], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7fTO8vXMmQ/tZ80EgZP7PWw5dkz68BjO9+251tLt
/gzOb3d6dt0h6jWcb5g3+V8R9wc4P+ZB4+kHsZ/g/Pn3NEs3PPoC52/ye8Ve
YfMdzr/rlVK+8MRPON81R0fxmccfOL/2P88WpXn/4Pz0/ssTH0xicIDxv1/X
2ad9kBHOVzVe297ykgnOjw/psufTZoHzG9d9fi0czgrnrz+3s81rDhucX8O4
fF/fbXY43zBX4bUfKyec/2neN1YHDy44fzZnpOjaUm44P8BKQth7Dw+cv6T2
39pvf3jh/Ac/C2zlNPjhfBG5BbHWZgJw/prbZ6ctPYvgT1HqnyeWJAjnN52p
k1VgFoLzn0zaMi19JoLvs0ei3d1GGM5nzhdw07uD4OvZ+f0PKhRBhE/BLn0B
YVE4n2V/ThT3KgT/x7RNwbx2Ygj/X1Q7svwegp+g+VCvoUQczr/y+KTARzEJ
OH/Prh9v5q9D8L9I7Z4e6iwJ5xvdW71z8RME/8neR1f1q6Xg/DkMHpkhctJw
/uIzDqfr9yH4clvr1V8Gy8D58xne/nr1FcGfkrHghFavLJx/I/J5SqGiHJyv
tC6mIuAQgv9ATqItN0Iezlfj+rTXbA2Cn/319Nf//xF8ANF+xIg=
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         Dashing[{Small, Small}], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7fTO8vXMmQ/tZ80EgZv7PWw5dkz68BjO9+251tLt
/gzOb3d6dt0h6jWcb5g3+V8R9wc4P+ZB4+kHsZ/g/Pn3NEs3PPoC52/ye8Ve
YfMdzr/rlVK+8MRPON81R0fxmccfOL/2P88WpXn/4Pz0/ssTH0xicIDxv1/X
2ad9kBHOVzVe297ykgnOjw/psufTZoHzG9d9fi0czgrnrz+3s81rDhucX8O4
fF/fbXY43zBX4bUfKyec/2neN1YHDy44fzZnpOjaUm44P8BKQth7Dw+cv6T2
39pvf3jh/Ac/C2zlNPjhfBG5BbHWZgJw/prbZ6ctPYvgT1HqnyeWJAjnN52p
k1VgFoLzn0zaMi19JoLvs0ei3d1GGM5nzhdw07uD4OvZ+f0PKhRBhE/BLn0B
YVE4n2V/ThT3KgT/x7RNwbx2Ygj/X1Q7svwegp+g+VCvoUQczr/y+KTARzEJ
OH/Prh9v5q9D8L9I7Z4e6iwJ5xvdW71z8RME/8neR1f1q6Xg/DkMHpkhctJw
/uIzDqfr9yH4clvr1V8Gy8D58xne/nr1FcGfkrHghFavLJx/I/J5SqGiHJyv
tC6mIuAQgv9ATqItN0Iezlfj+rTXbA2Cn/319Nf//xF8AAZYx8g=
         "]]}, {
        Directive[
         Opacity[1.], 
         AbsoluteThickness[1.6], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJwV1nk0VWsbAHBKSEQpQ+FIpeFGqZQMPZtuKJKKypApN1wZmkkhUxmikC7J
HCqhgZDjMaYo83B2A5Ih0+mMiOLb3x977fVba++9nvcZ3nevcfI6+s8CAQEB
LnX9/27A3DOWmPgNChsTPhiWN0OZQ9rzI3nfoMSzfU9ZcBNsbxf2WYzfIDc3
Y1rM/COsLWkX8h34Bv95xpCjkw0gFOShdHJrP7Ss4D028XsL13jtA5IG/SAg
+DLhkEsd8M5oP6236Afv7SVZoSdqYcBERGv31X7YJtNYZPp3NdStTD8iU9cP
d14sf+CTVA57b4nINXX3A6GR8ef78zIonvHoCR3tB4dE7SvpLSWQ3avtzpf8
DkRh6J/YtUUQ9rgjpMP6O1TquOiO784DYz3RkljWdxA4V6Gb//UCVBZ4+h9c
OAACyeetRDrMUUul8+8FMpTPOvsbMP1wo0hG6zmdAQg0c/73TkIsLm7VGTMP
G4A+yynvHy5Z2ODspSSpMAgOwu6RQmdeoUF358Bb9UEQ4C6Iqr5fhGUHdJ/6
6w8CS4XfqlZXjE/VF2sxzwyC8uzqQnPpUoyazjjy8fkgBB7iiiT40/FQVFdI
pNEQuIa3CJk3V6Nqo4p1l80Q5O7vdfc/VoNzi722rvEegmnO3+WFnTVYeFPk
U/F/Q1Dy/leZfkctrgjW2to/MgQO9XPr2GVvcaIqREhtbgiUq46Or95Wj28F
Wskry4chN3BY7FZmPfr4u4VI6AyDcsl6ByL0HX7xTSK1oig3NTQxdzZgUclQ
fnDaMLSoDD/qT27A6KntIU2vhkHUQbzSdGEjEpca1Z2/DkPlgMTMg8ZGzPT+
HRyj/gMcysXVGw5+xH9d7NSHWijv2ndcVqgF92U/Wagx+APMRbnfpdVaUGFw
kuH36we4Kl0wvWzZgk1OMcHLVEbA4c1fTZeyWlDDrpKhe2EECN0Phx7qtOK0
hUpw3MpRsC6mp50yb8PWOM+TPZtGwZidur7Yuw2ftJWpbdo7CgMjrJ74O21o
a36MUXFmFEQztQfGmtqw0iREbfT1KKz6xbPeatiONw2GugnrMfAuWFTuqdyB
zL/9zu7wGIOZeJ9w0OrA40ZSgqqBY7Dlmn7Bm8MduM5Ue/OS7DGICF3gXHa9
A6sto691ssfAOJy29WdnB8657lrzb/g4JCXph8r6dOIZ98Yi2+Rx+GSeIigf
2YkfPRwOHi4YB92M+aTOh52YfD7iws7OcZBzCXgQXN2Je6711M0pT4Cr1KvT
DaJdeDEm7N+4kgnY+9H/a1F4F365u3o+tHECrPPIrw3/deG++MI4n54JUNrS
ciMnpwuXJ34qPyXEhKbwZT5ltV1YmKEuudGcCYG2RT+tfneh3KOazFWnmXB2
iR2rYnE3BuSc1JK4zITaRbt6WDLdaJYX5Mh5wIQffjtn6du6cayo62X5MBOO
lgzLLnXqxqMl7sYFM0zQYi71GvPoxrIyga/pEj9hb2mJd5JvN97CzcI3d/yE
7CsGeV53ulH1vf/JIwE/wVBLYKNweTdqeMbNnV/CgtiRoYvHlzBwZkN9UfkK
Flxuy75gv4KB1d9mzgorsUCozi9vnyIDLSydPiduY8G46U7/VHUGXtbVKKm0
ZMGM7dHthYcZCJPOXmL21POiiskpJxgoWvifqoUrC9YRHwLd7RmYuFbg3vBV
Fug61htkeDKwXKz53NI0FsiFNitERzIwpHbBppOPWWDL2PXpaiwDD/nv6kt/
wYIOcZuFBxIZ2MN+aKZZx4JdzAuzEdkMFCTP/mU7yoIkF//pfGSgYY7Y4OOd
bEgzlfLAcQZKOu5N5uqxIXrK98Aom4GMVeeP6RmxYZ1jf9bsJAPdosmqFis2
VJxU+t0mQGLUpdyUKX82XD5VxbWRJtFi6xdL/VtsMAv5ea9alkTFEUmJyLts
cNVuGF6mQGK+7RU/pSw2MNZoZ7qvI7F1n+HJ/e/ZIKbmHrF8J4lJf3wlY9rY
YD4mUVW3m0Sn18/eMj6z4d+EnqzTOiTyNq/UPMtkg1VplbODAYkyyweWxUlz
YNbMd4fzYRJ7G2Xff1HgwIsbEYYXjpKYG2oSqKrKAfl1x7s8LUnc8+sFs1SL
A6Lcv4222JBo23ejse8UB2hirgfe/kOiZeBGMZ4LB+5e0edccCXRTLnZWOQ8
B0weCT4QdyeRcFB4qxbGgbYh+ui8F/U9gRoh/TscsPhnkaTNeRK3p7nts0ji
gKxMi1rGRRLX9RVXXs2n4nsoc4jvQ+Uj8NT87RIORBm9rxX0o+JXFtqbXs0B
hvj59bPXSBR1OPKmvosDfo7yt4oCSRQUmP71qY8DHteiZy8HkTiTmqLFHOWA
OH1MWzWExInesaIV8xxov4PTZjdJHAqI5W1YzIXSJJ3v726R2Efbs0NHmgty
dgXnNCJIbLMPK3TcwIUQRWeT5igSG+e3/LyowYWMoeA/QtEk1qa2q93S4YKj
06k1m2NILO5Vfpp/mAsPD+0O3XeXxIKA+pEqKy4IdWtu0Iql8kvz3Nh5mgue
p5lzCnEkpuMKlx8eXFCwG9XhUE6yf/No9goXpI6vkSiJJzFu3nFgaRAXFrBn
0jzvUf2TKrpWJYoL/V3m62USSAyFAkfNBC58uuddn0/Zv9cyzTiNC3oBiq+0
7pN4JeB3j80Taj3XY2VfUfamZSp6vaLi+RasuOY/Et3wgG1QBfX+X2vYAZSd
7FlJ995xobZJht5C2WY+gcxt48KdwZin0olUv6bqyZV/4ULQ6O4hY8qHYOB4
8xCVj9O6Cd6UDXsj7vWzuPAh3GwggjIEaHTwZ7jgOpI1fZ+yFo2xfPEiHsj+
+T3zf2ug/xEFSR4crE5eHkl5s/36O1vlecA0sjhzjvLa+cYmg7U82Lc7QMGE
skLqeYnjajzgHxe2kaO8EuRN3XbzIFHU0Yik4l3aixHX9HkQVJkgHE1ZJODM
+xgTHmj6EPRdlAVoEqKZljwIXh0R007l41fFS8Niex7sZ+1Id6bMsbMOfe/G
g9Fp6tSh8jk2J1D75QIPeEfuSzpTHkjJWcC6zgPbiJrnbVQ9unp4ATKxPLAW
LLgcTdWr2f9BxaZkHiw/F/DlM1XPd0oGf3SzeQDPH3orUS6zi7l6uowHSnOF
j4Kp/ng5p1l6uZYHn/fmh2XfITEv5ctUeBMPzqiIyyDVT6k9my4V9vMgpGPm
TettEh36LsbJjvNg/X5ex1eqH5X78bk/nwcvt49YfYskMW3Qkmkqyoc5Xy3R
5nASM8ZvuIyo8eGVz/FIo1CqvswPoea7+TDaMJ60jJoHFZZs1muCD/H5vS3t
1Lxkcp/1hR7jw4Y+D1F9ap6yZkgrFV8+tFjvWVR1lUTn3+t8woP4sCDdM9fM
l5rXOa8EViQfsoc1FTuvkPhIULi9IoUPJU59Hz5Q85wtut3UppYP+jtSzrt5
Uv0vE7E3XnIS9JmPk10dSHSV67SdlZuEB94bL0fZkbhxlbKfk8okuPDsDz+x
JfGxYvHrbZqTkPD98/6OkyQ+Wde/7aP1JGwutVn93ZzEZ9u11wpnT4KP2f3k
GSDxhdmoiI/uFEyf7jG8uopaz67cZ7mGU/BWdmXNW2p/jVc6c4w0n4ILN9Y7
LF1J4iXmtxTtf6ZA9smkTowk1Z/RpOaf21NwL+HDZishEukf350O6p2CmsrD
vasmGPjONAejgqZB7KDm+aI3DPx60PlK+rtf4CfnvL6LOp/2n92yZsj4N7g+
v9d4wqUbr8+Lv1JJmYN6Dc6gT2gXusS03+2LFSBeMo95J8R24lT3loq/qgSJ
B8vqA9xed+D6Hc9uhowsIIyPHPQ1GG1He4sIWPqXEOE78yilWrYdb+Rzx6RP
LCLybqit49u1YUFTadjBZGFir68USzSzFa8J5lREfxYhFo+Frg6bpP6nPJTH
zBYtJhb7sPRf2LcgJ2VyEWEsRohHbJB/FtWMDxZbrXx2aQkRdF1MSiewCc21
5aRNysUJ7wK5BlOvj5h1fe7Z5G8JomP7p8EVFz9g3y9vPaWNkkSDWGBEwP1G
XKGUdkpnlxQRUQA9W4sbMO/zx4RHH6WI6ZjnQh0/32O8SkyKjNMyImKs91nN
7vcY9MFfUXnhckKzf3vjp6vvcCD2VYJL4nIiyj34OrO9Hk3L5W4a6UoTT3sJ
jSsb63Ghl5Sh+hdp4gfflvP71ltU32s2f/TcCsLRZfP9+Nk6tPcu2yolvZIQ
jQvQy3OrQyE8a73kyUrilf3N0NnhWpxOeHFMYq8MofjwxbcIz1rktKrW5vTI
ECf4tRJvWDXosOmbeuBFWSKHnnX7XmANdnx/L8WWkSMWWe7SsxavwfKy6fHU
fDlCxHw8NTSrGnmr3ty33CdPFOu5NXw1qMbtPU9LMwfkCbb7RLrJ1yocoPd3
bvVbRZyyi/tzMqgKkwWM3SyUVhOxM26R5WurMPMD0RhQsZrQDyiUSm6oRKWi
gA0jxxQICZOe5IyrlZgqMDEzylcgFly3eaO2oRLjXdPebb6tSPQqvc07UoLI
sBp2PrdGifAPKu2224yokm/rY16tRJy15vW03qvAPiW5MI+TNKKCJiYoJVWB
2syu5iU2NMJUIl+0TqIC4+n35J+cohEBssJuV5dUULu/9LMhJxpxRTB4x5Bw
Bb5IXNph70EjvrNCJqr+0DF4xSKVo0E0YmGw00D4GB1VxTj0XXk0IuXldQub
ejoGkoUinfk0Iij6junqOjp+yvU6cuE5jYgMHUr6XE3HaKOJgYJiGqG6XlL7
VAUdp0J+LNlURSPMfuoEOhfR8d18j9XqLhrxepXt6uBMOqo0P8wsZdCIrM3P
PY3T6XgtxXbixGcaYWEuL7s0lY4aep8C4/toRHZy95mkJDomXe3MkRijESW5
c/PFd+nIOxDPfjpBI4QLe375x9DRTP6YzkEWjTj6ScfY6DYdF5S0NIXxaUTr
orX9jFt0tL0ZI7d+mkaENd5UywijY/FxM6eaGRqhpUf76B5CRylViTzHPzQi
p6GrUjOIju78Rv78PI1g/XggKhBIx/8BMmkStA==
         "]]}}}, {PointSize -> Large, {
       RGBColor[0.75, 0., 0.82], 
       PointBox[{1.25, -0.4}]}, {
       GrayLevel[0], 
       PointBox[{0.7322330470336311, -0.2}]}, {
       GrayLevel[0], 
       PointBox[{4.267766952966369, -0.2}]}}}, {
    DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["r", TraditionalForm], 
       FormBox[
        SubscriptBox["V", "eff"], TraditionalForm]}, AxesOrigin -> {0., 0.}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, 
     PlotRange -> {{0., 8}, {-0.4, 0.24793324460696686`}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {{{1.25, 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(c\\)]\\)\"", 
          TraditionalForm]}, {0.7322330470336311, 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(min\\)]\\)\"", 
          TraditionalForm]}, {4.267766952966369, 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(max\\)]\\)\"", 
          TraditionalForm]}}, {{1.25, 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(c\\)]\\)\"", 
          TraditionalForm]}, {0.7322330470336311, 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(min\\)]\\)\"", 
          TraditionalForm]}, {4.267766952966369, 
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(max\\)]\\)\"", 
          TraditionalForm]}}}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"E>0\"", "\"E=0\"", "\"E<0\"", 
       "\"E=\\!\\(\\*SubscriptBox[\\(E\\), \\(c\\)]\\)\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        FrameBox[
         StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False], RoundingRadius -> 5, StripOnInput -> False], 
        TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendFunction", "\[Rule]", 
             RowBox[{"(", 
               RowBox[{
                 FrameBox["#1", RoundingRadius -> 5, StripOnInput -> False], 
                 "&"}], ")"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 
           RowBox[{"LegendMargins", "\[Rule]", "5"}]}], "]"}]& ), Editable -> 
      True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.8101550145157127`*^9, 3.810155041666065*^9}, {
   3.810155077492243*^9, 3.8101551008177996`*^9}, 3.810155140318048*^9, {
   3.8101551742285156`*^9, 3.8101551923020973`*^9}, {3.8101552335403385`*^9, 
   3.810155324669323*^9}, 3.810248519238494*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<fig1Ej3.png\>\"", ",", "PVeff3"}], "]"}]], "Input",
 CellChangeTimes->{{3.810154350158391*^9, 3.8101543563298397`*^9}}],

Cell[BoxData["\<\"fig1Ej3.png\"\>"], "Output",
 CellChangeTimes->{3.8101543571663437`*^9, 3.8101553426539755`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7984205293102922`*^9, 3.7984205657969313`*^9}, {
   3.798421138977787*^9, 3.798421139550448*^9}, {3.7984212278765316`*^9, 
   3.7984212282303286`*^9}, {3.798649165853735*^9, 3.798649194600124*^9}, 
   3.798649268142644*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ecuaci\[OAcute]n \[OAcute]rbita para \[Alpha]=4/3", "Section",
 CellChangeTimes->{{3.7984578026184807`*^9, 3.798457813042107*^9}, {
  3.810238347864693*^9, 3.8102383525113087`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "=", "0.2"}], ";", 
  RowBox[{"ecc", "=", "0.7"}], ";", 
  RowBox[{"rper", "=", 
   RowBox[{"A", 
    RowBox[{"(", 
     RowBox[{"1", "-", "ecc"}], ")"}]}]}], ";", 
  RowBox[{"raf", "=", 
   RowBox[{"A", 
    RowBox[{"(", 
     RowBox[{"1", "+", "ecc"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.810234811973734*^9, 3.8102348340691614`*^9}, {
  3.810234957871978*^9, 3.8102349721759048`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"r", "[", 
   RowBox[{"\[Alpha]_", ",", "\[Phi]_"}], "]"}], ":=", 
  FractionBox[
   RowBox[{"A", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox["ecc", "2"]}], ")"}]}], 
   RowBox[{"1", "+", 
    RowBox[{"ecc", " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"\[Alpha]", "*", "\[Phi]"}], "]"}]}]}]]}]], "Input",
 CellChangeTimes->{{3.798457827621889*^9, 3.798457940238616*^9}, {
  3.798458390485454*^9, 3.798458434365771*^9}, {3.7984586221699333`*^9, 
  3.7984586332930727`*^9}, {3.7986455514948697`*^9, 3.7986456175658236`*^9}, {
  3.7986460340241785`*^9, 3.798646060047141*^9}, {3.8102348204901257`*^9, 
  3.8102348260652475`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.810238164583146*^9, 3.8102381661081114`*^9}}],

Cell["Grafico la trayectoria en un ciclo, \[Phi]=2\[Pi]/\[Alpha]", "Item",
 CellChangeTimes->{{3.8102381790846047`*^9, 3.8102382061497183`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fig6a", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"PolarPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"rper", ",", "raf"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "0", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(r\), \(per\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(r\), \(af\)]\)\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
      RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}], ",", 
    RowBox[{"PolarPlot", "[", 
     RowBox[{
      RowBox[{"r", "[", 
       RowBox[{
        RowBox[{"4", "/", "3"}], ",", "\[Phi]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "0", ",", 
        RowBox[{"2", "\[Pi]", "*", 
         RowBox[{"3", "/", "4"}]}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
      RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
        "\"\<\[Phi]=2\[Pi]\!\(\*FractionBox[\(3\), \
\(4\)]\)=\!\(\*FractionBox[\(3  \[Pi]\), \(2\)]\)\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"Gray", ",", "13"}], "}"}]}], "]"}], ",", 
       RowBox[{"Offset", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"Scaled", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", ".3"}], "}"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".9", ",", 
         RowBox[{"-", "16"}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7984586650734696`*^9, 3.7984586712038116`*^9}, {
   3.798458725678563*^9, 3.798458764044091*^9}, {3.798459171762947*^9, 
   3.7984591846571093`*^9}, {3.79845990563141*^9, 3.7984599625468597`*^9}, {
   3.798460089758837*^9, 3.798460161017526*^9}, {3.798460224619032*^9, 
   3.7984602383796577`*^9}, 3.7984602913100157`*^9, {3.798460392419484*^9, 
   3.798460435268524*^9}, {3.798460522951355*^9, 3.7984605883428707`*^9}, {
   3.798463255248979*^9, 3.7984632645580645`*^9}, {3.7984636681237583`*^9, 
   3.7984636697740717`*^9}, {3.79864566286265*^9, 3.7986457185754557`*^9}, 
   3.7986457526527653`*^9, {3.798645786690098*^9, 3.7986458137834415`*^9}, {
   3.7986460120898533`*^9, 3.798646066168604*^9}, {3.810233924518772*^9, 
   3.810233927695119*^9}, {3.8102340425963717`*^9, 3.810234064893962*^9}, {
   3.8102342140343976`*^9, 3.8102342577797995`*^9}, {3.810234311512473*^9, 
   3.810234376563293*^9}, {3.810234412247237*^9, 3.8102345020239515`*^9}, {
   3.8102348392546597`*^9, 3.810234847094014*^9}, {3.8102349775811553`*^9, 
   3.810234981420724*^9}, {3.810235128470726*^9, 3.8102351303710704`*^9}, {
   3.8102355494432836`*^9, 3.8102355546331167`*^9}, {3.810235717991865*^9, 
   3.8102357612498026`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}}, {}, {{{}, {}, {
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJw1m3c41f/7x0lFUWkYJUSKlC2icpMoW2bJHqHIHkn2KET2nuc4OOOtJErj
rkhKpVBayEhSRkVlxPf9ua7fzz+ux+Uc19vrdY/nw4WYs4+Z2zI2NrZADja2
/z43icR/O3aTALb/+wh8cUXWmOQvwaw6HRMRSGyt/3OIZM+w6GWHTGSh6MEv
XXmS+TPpn71uq4CUodlWfpKfqnVrKZlogHPLm5DpRgKUFV+LnPtxCI7YXDrR
TnJ722U2i9u6kL0u8EEByXuBx2ZXvD48bayodSa50lAf/hobg8RfcYntJKsU
iw068ByD7CPLRT82EFC7NiwCfpjB0wnrssskMziJiC1vLECES6FalWQd5Xte
U01WUBxJVXl/g4CkcGbn/dLj8GfDE4MgkqXEwtWT42xAsujS6ux6Akq/dqny
GNtD0A7b+s0kq++8MeW42REu/DD8nHOdgEinyPeN3E7QcG51b1gdAbJGu9hP
TDlDruVW6sA1At7fFWirGHSBi9ff/NQkOf+1+M0v3a5Qojwk+bWWgMnVtySd
b50C2rJLaxVJfm5hq5DLcIfT1REXAggCFpsMQ1uLPaD3xaaZfiYB5gcsOjfE
nIaCdD9ThxoCiLC1Orb6Z6H27NpIr2oCNChij20P+IAxZ7mqfxUBxe+yeqQF
fEGyv+iIeyUBXdTWQYFVfvD53+qxP2UEKN4sM8Lv/uD92tXnSSl5fopHJord
AsAt+kVUZgkB9mohb0L6AoD3I5ve+iICena85BR+GQgpzzJDrucQIJ4i27jr
ejAMtqw/pZdNgHvZoG3/7hCYvCcz1JNJgGH/X/s0aghcPlCT1HeFvK8tr5b1
ZYfCfuffeRlJBPzZvSNTMTQMosI2c+eEE3CTOS9duj8CzjHYdFPCCCiKUuTk
vhcBJyV3PjkXSsCg6wnBs5qRQDt7ma4eSMB1uZ0VKeJRoNi17Jv5GQKedGb3
LO2MhgvaTtPD1gRYSQeJ/JaNBerG+0smlgSkZVjPfvSJBbZrHPZ1ZgSI/Jk/
fO9qLET/UOO3MyJg0/Fjwz6KcRB490eS/iECthn+3X95bzwIT0qpJ0gT8KNT
QKhMPREETnB1nZIk7yvto9mO84lQbDrRriFBAOgf7qLcTgSO914D3cJkfTQq
u6YcuAi+8/w38nkJOG2e9nCVxiXQtz/6JmGaBXMyMdaVkAyWp3XVf99gwYMf
+xP6D6TBRffqXTx1LAj8eiFFOTQNelp1rm0hWHC38dat6OtpQAnZflmMxgKJ
loWdy/iuQEuse+abbBb0LLE7WiRfAUOT5ff7AliwvET0p3xIOvy6cn6XjzQL
3uVqqOQaZMK1RNrugh0suNOQ9fWGRyZ4Tm34encbC/iEeh51xGfC0trkgkl+
Fuyq2vJxGjOBVWEzN7+MBQrdDfUcyllQmBLUeusdE9oCpZplhLLhWsN8Q2c0
E277spaiPudAhalOsHI4E6qMtRbc2XMh8OJ1p7RgJpS93RukJ5wL6hMeD+XP
MOGNfOKDeYtc6HkX9UrMggmvPNlXCbfkwnwYl/09CSaYq5yLNizPg+nZ64e+
3WdAp+vdTnnrAvizXkonqIkBjgkusTb+BfBATKHi73UGBClo9164XACGw/v9
v9EY4NHH8L/WXABrxcVyolMY4OrjdLZdrhDECh8f87NigLzIGbZHK4sg57c0
7+nPdIg697SgvLYYfkSfPRrXS4eEsDXNss+KYWj79Pec13T4UPQ+9vpoMdRr
3oqtfESHcaWvBEWsBFSPG0h6VNJh/pvKU+HMEnDflKwb70KHxzLhgv6BpeBa
sMpC7n0NrJM3faOQVwbXHeIyTr6qgdZzczBWWQb7FgYvRrXVgNqbwj/F18tA
1MGgqr6hBnK7TLT+vCiDiYV9Px5l1IDmu8JO3xXlwC/e9CtVrwaYz3ZmhPuV
Q3Abz+Sza9XgNbz77wedCuhcc9LtdnU1tOXiCgGzCig9/+0ZpbQazF/JZxrZ
V8B5r+ZQ58vVkPaQKcYKroA9iyoxuR7V8Fnf5Nbeqgpg6WgeHxSuhpL09Wqn
OSlwIPeoBndcFTB/9Q8btFDg+5y00YGwKmC7OK70o4MCPsySXHffKhhayV2Z
/oEC/ZbDo0zbKhA+snqw+ScFZJ0+3f+pXAXrq7xCxrdR4Yny9GnvYRrcfGyS
YxZOheGf+hvlgQbLJk9vPiZXCZK9ym/blWggpaQlqLW/ElrzDfc6SdFASGTu
t/SRSjiqpPwodD0NPnFa6X63r4SmgvS8k0OVIOI9+kwitRKufv7592d8Jbz+
NBJ1+lslONnH2ES1UsHKq0dEoZwGH+x46ZZNVIgx4cqyYtLgyqO6RQmCCs0r
yyKCGmlQ++nIo2vZVKg7JV9V+pwGqX/ypONcqeCkGvydOkuDQb4i/3XsVODx
H4jxNa2CoPJIlXd7KeD5/LHI779VkLVC+pjiLgoEdXOKb+KoBrehJwIJWymw
yeFzyO411XB15/JGYQ4K8Nlo8eqKVcPv9V5la15WgFqjQ6W0XjU4Roke+OVR
Aavi/H4TudVQm6/RPpFTDoPneLTS5WpgdLzIgnqpHAy25Rp276uBQwmR/yzC
y+FXcpEF76EaeDdedqfKqRxe8XWbBFjUADe74fGNe8phu3wSYzi0BgJXOeqt
vF8Gxs93Nvvfr4GW69ZTY22lMLX4TGm3Ph3++PqvW11bCuKH67Vnj5GsviJO
LLsUpBcNZ+6foIPqUlWCmlMplNzmUTnoSQev5o/la2dLwFTHb3Y0kQ6cKl03
zCRL4PFX7THuFjqcUNX+dDaiCAY/09/5qzKAD6p+U12KgCdMIc9PgwEz2lmy
3UeL4NUhRfTUYcD1gcWtIhuLwPboZ9A1Z8BeQWm6Y1Uh5F/Q6K09y4CXKzr2
014UgCn3Gf7DVAYQT3PBSTAfsiKaDd1WM0Ft1eyPgLk8EOmQq9qwngl7jYQv
RX7MgxkF3xU3BZggQXmcGF2WB8uP9j8aI+fMtv77NxSk8mDZx03iUxpMyJSr
MddXyYVweUNmqB8TLt3u/51nlA2eGr2UwJdMYA/XH3srmw23XhrNi7xhwtr+
4TcbeLPh31iMyIMPTGDLqb0X2JkFyYNdD76PMMF+es+9H1ZZ8PVXs8nAAhNs
Eu/JvrXPhMn8HbIakiwY2L+tKet0OiQLtRXcCWKBaY9tx36jdIh2/LB8XRgL
LDTtC/rk0kHs44CoTQQL1ERfnhWYuQL8chdd3yewoNYirdcq8gpIDfWujs1l
QfXLau+dO9OgQO7BSEAjCzQuVkv9HEuFG1qHhk1vs2ClioRaQ20q7DW5GLMT
WaD31zRbUi0VjpTkFt9uZUHOZaU3Vw0uQ4dprtLl1yxw3t5od9onGWYT7298
/oMFNxg/rB4qJYPW1PlapRkWMPmj0zf+TQL6Unlvxl8WCDS/WlERlQQfX/aM
qy+xYKl14ZJv+iVorJhpVeAhYJfE0/lP1xIhv8WFfuu/vfmd9q8rKBH2Po7k
qSH3alyhnewDtUSgZ8ROXyH3rvSHCeukBwnAccXZXF+egIMq3N7vXsaDpl3r
Ppf9BCzLmCNCJmIhRC9ytYwpAUK0662Hr8fCI14D0Txyz/Nerd6zJjQWzota
zs1bEHDR+pbQFfZYEM3vYyNOEHB8sXu946YY2CqupXnbmYDhvkc7V72LhsED
3iHfXcmctmV6jlUcDUZh53z53QkY2168+RuZM7h5JWgWZO54oexxR1ktCobg
3vqwADJ3zK2sDZuPhAvTH/T8ggiwe3RANy4uEma3jIFTCJnrBrhXRedEwJ87
bK67zxPkXnSZ294UDtaquZEeMQRELLxzlmI7B6H1/LT4NALejIX8fnYxFIw3
ll7iSiegX9P72pn1oSDUFicRl0HAhdO71uWJh0DeVrZINzKHtTMfJNQeDgI3
brj7soDMTQNjflLPAyEpVdZsM5njOAQlPIosA6HF8W2hTTEBfiebvgSdCoCV
/tKGj8kc6K3qeOxnoh9oib8R1KMSYD07VqfL6weyL/INrMkcaTZ+iSM3zxde
LQ7J29MIKFmp3GZt5gOZ/Bs3WJE5VCxZ3mbA+Sy0fotcc4TMqVfeXSJcArzh
l1hskzydzJ21BTHmWWcAr/tITTAISDwcFviAehrWfpsYfUDm3GvUlWt23fCE
V+ryNqksMsd/TuAfee0ODI59xuvJnLw0QczuHzkFFUcqXj4mecvsN/eU327w
RY2fI+QqAclrtj4VFnAl83tQCJK5O0Ql4Om/DS7wPvuZpxuZ07uU//m+XesM
PdtrcBmZ4w8fql9JrHaCSt/+0FySxZdndUesdISWZp3s7WTuL55QPJKz3B7U
O+o3VZHM3Rh/bufCSciu5fwjRnoDZzrbkNw3azgY/GroH8m9z/Zo0ActAemr
J+xJ71Aerw4SeW8OdFOmTSPJJ6rOC11+dQx68ot3cZIeUxplEzuebgLD4m02
xiTzPUmdbowyAIVfAhMpJC8s1BBhPkdgIvz80EOSbba0vFax1wah4iH1KZJz
JseFPuRrQHKh9vQm0rPUh2//Jn9omJBOX6dA8hlPK66DNXvgmUdLymGSO0Q+
KAw/FoTLvT1nTEhe3WoZM7h66V5IeBvzP89rc31XUbNTAusp2SYGJOt9FK/6
u1cR9bdqWRwgefQoj1PucXXctqWjSYLkqNMhJ3MPauHSft3Y5SSv2acn32es
g0nJtawP5PPJfvq0WtRRDzUv8KvTST7osuPxcT8jDJ66KOVLMuVT5DadB6Zo
ISdwToZkqJSRfvfEDLsmunYPNvx3vxkT7p0WWG/crZlK8nvT6g9T763wwju5
mwok27W4OwQMHcezcWwZz8jz/6n6/MvENxuMrnV+YU+yafybQedpWzyxI8h7
lLy/OGrsvRcL9qgtdMLHk+Ts02em82IcUUJBsXuAvH9rl7EvjxKcMNBvZ9Ex
kt84PpwaT3JG5WP2j2+S9cP+O0NENtMV7Xp0j3qT9fVuTcE1nVw3ZA+3KGki
66/LXEDFuvAUet1xOL5E1udMMmXyFMUDo0q0Z8+SXrexrl5a4boXTrHnTY+Q
/bD120YT3kZvrG546ztJ9kulaZjwl6azKPt10WyS7Kff2931Dzr5YmuWsP5r
st82yRSH5Xn4Y02TAI96Bdl/RjduOo/5Y6TMF/xHep27tWu1pFcAzp4V+XiT
7Gda0LfV5T6B+MFSyYSP7PcPb68PGAUHo+vpBGn3XJL991YfnAzGz2cbldhI
r1tZdrtb0iMEMTG+JT2LnCemDV/HToRiU6tjRAk5f14LvmuTOhiGasamdvbJ
pDf+/Ro3eiMM6RwFrNuXCHBKGGkqlz2PzW8iL66/SN6/9XURtm3huHz+QT8t
jgCeIa8Uz2UR+Fh1RjT0AgFsx8r7foRFoCLf6Mt8ch4ej1qL/r8icGft2Lr6
c+Tzrf9QbzcciVvPzat1kvP07z3jkrHBKOzvaDS44U1AOFUkNq85BjP0p9/w
2xIQU7tPvWApBl1GQqkPyPm+OOpnlLs/Fs3tj3G5kV5Y+KXKKPZ6LA7bG2dn
k/thlbCMkBglDu1t178uPkrW87WvIu7RCXjK0yfYQIms5+GztQ1qSTgj0z8t
ykHeh6aV2bKwJPQLFYnLI/ebTLiorW5TEppviAvhWiD387ksm0b1ZFQp/pD6
gvQ89jNyS+r7U5B/59+iX59ZcHRwoOOmeioe6eyVqiD37Yvxe5oxYalYN5cT
lv6QBSqe4T8PNaVicO+sVug9Ftyq9+qoUUvDeEaAyp4GFpS8uNe4YusVnAu6
3yNTyYKwo192JW5OxwY2Ht78aNLbOoMrxNTScUmgz5jtAgvERRp3NR5Px/V1
pgIOoSxgca/W7MpNJ8/jtD6HDwvK9ialvuDLQMbsfoeRkyyYNjZ59oQ3E7uL
mecElVmwdY3JSOaybBQs/FOh0scEDjTjm9iWjYylVVbMt0xoFrb1OgTZmPb2
6totXUxY9fyX77vz2fiLbTSn9zETKkfufsXpbDyqxZRdcY0JtFZPA/fPOehs
ov2ph/TGBrnWhs8P8vDqS8XhHGEmnAwubg3sz8OL6/J9ecm8tjzNYWZhIQ9V
v4vui+FlwqTuXOpf1XxU0O6MNOZgQuFzkxeFrHz82b9pR9IoA340r3NOzi1A
gV4/j7RrDLDwZ5x541aEnxJ2GPUfZEBdhtiH5KgiFP7tvv+zCgPuTDv6qBcW
4Tup+8XDcgxYoF35HvOyCAeNfB91iDEgesI14b56MYY8s31pvYIBP9dMVIyu
KcGPktOW8u10mHgqoHifKEVOSY2IdWZ0iGnZ8P1yWylKxv4xPULm6cYHj9gs
BktxcvLay9BDdOg403JleHUZ/rhA9LUp0mGTTq3ebo0y5F1o8hTeSAfB1PLT
C5QyZErcGc3vrIHQfV/W5nmVY53y0sEJwxo43PuahzusHAtuTHRUatcA+8x1
wXOJ5ZigWrXfSr0GnhnyGOhWlOP3o0v0cskaKBITvkrtKceBwStKQ+w14Hry
s9xZrQrMS587vPFGNdTwq/7avJ6CJ5bZ5arzV8NieJ/3F2EK0jLYqBt4qsm9
URlZK03B4Pi8wSH2atAtF7KRO0xBNXFZdv/xKjAMaokfD6bgr1IBvoMtVRA8
OZPt+IGCh/ydJdNJLxzn5fzIVUbF/szf3TotNAiOPiZpwaCim+G6UyuaaKAl
I2FT0EDF7597bLGWBhesdc4IPKeiFKUwXryQBjwxv8a7Zqmoy5TlpvnRwPPU
2jUWZpVYX8e9gypMg0QtrQa7pUrsGpl6kepXCcs336tmW03D13fKBMtOVQJH
scmekk00fKfOFGKerAT7feof23bRcDyJerxepxIsR/fnfDSnYVQy51z85kpY
V9kpN0+joUzjPg35+1SQ37xLikOvCo13c++pX0WF/s0l5Y/Nq1DU0WKP9D8K
5O6NtIm3r8IeuqdLwRQFHi0IRHwPqEK/2Pg4zx4KSJ5Yr+JZUoWfS5r+PqRS
wPUp1+3NP6twUkn/k5sGBcbDP/MeyqrGh9Pfm+K9K+BvlEyeVEk1VrgvoZ5j
BTzZrbnEWV2NQdmOAVzmFZC174TTtdvV2HPRczpoXwVMOr7dQQxWY6uNa/t6
jgowF+pQN5KrwXYrL3nT3HIw+zB5fG1zDXZJ+Gly3CkDqvsfykB7DT60PGXo
RpTBWx7vO6zuGuxz/Hj1YVkZFMp1GciP1OD95XEZPvFlcCfUpKyPi46F9/K2
ZxiXwW1ax/I+QzqWLMbVzmMp/N2w28i6g4570+UP8S0Vg+Ku1wzooePHD9qe
9waLQYTN4vK2fjouKyHUHFqLIZ2P82X7BB2P/VL5nXi5GCxl1AXa1jDwrrDB
nWChYvDcENhuqc/AkVcY9HJvEUTkmso13mVg1zX8yHQtABuvZVnKLQwcVStJ
NdMrgCDvCnXGUwZefXSm74dMARCe7kfiehiov97bX/hPPsCJMKXPUwzUq03d
uetSPnge7Vx0FGdiunBYniAzD7bLpbGrRDEx4tvIrYTxHDBzj7r1Np6JD8a2
SHm/ygEXI5u4wGQmCq54x218IwfU9lkb5eYwUTRIx2QpPAd6fO4mXGIy0fWo
e/w2nhx4O7PcR7SHiWEttrUuu7Lhhvi7PVySLAzOOagl7JgJlwrsVinsYeFa
i/HxX5qZ8GJIJOOYAgtd3OlCj8Qy4T49suLcfhZaNI8KWw9lwPZsyxw3Exb+
DtvQqH4qA4I+LktjBLFwJHtmDdeZdFge/j3OOIyFgYNTc0kG6RB1u5X3awQL
VXI2/+Xakw6tH9d8Xn6RhSz1Cd3f369AArXuZE8+C88HdSjmnr0Cz2eL3Udu
s3D4d5jZ9EAqHL0jIbHsPgujbxbQXCtSIelOgzNfCwtvfNh54JlzKrQ2WTuJ
P2PhQf/tgdFDlyHcN+vwmw8sTElL35QwnAJ3kqQY1FkW3lJVXcn1OQlm7dSa
umUJPPlErfDspwQw2j1nwlAg8EbFa11FagJsOnjCOUyZwKEzu02n3BNgm7XU
HLs6gREr2W6enIyHl3oTgw2HCTRvD4368S8OmnPtVjYeJ1Dws92WnVtigWd4
Pz/fSQIzt71g5PTGwBP303ln7Ahk/3EheVl5DMhrnfrB7kzgyKavfs8kYyD6
7oqRrtME3r6sGy29Nxr8RIKceM4T2CQ+e1+tJAKSvCotfoQTeC/uZGeGRAQE
LL917UUEgdEOJS7D9AtwtutqlX8MgR+2Dkf4NYaDxL+TwQ6XCCzXYoyqvAyD
Lv8NTM5kAr+Sam1tFQaMLumj1SkEqn8T3er38RxUpg9f60wjsLFhc0b6aCj0
pRRpPssm8BKFwnuJLQSqWUElqrkEcvAcsAxNCAaac7VDYR6BrvO/Fp14gqHH
qmm1YSGBXktH5iUEg8Be/MTcsTLyeW38x7zkAsDVrskzqpzA8fsTdMUb/lC1
ZkStqoJAIVpj8y91fzhw+Nx8L5XAw+UfQzx0/eBFDNsCmTMxlxgI12g6CwL7
5PBjDYES/woiLJ56w3aR1TIP6QQufAlydHnvBfeaxzhDmAS2xG6he82dhsRV
FwN1WQQKaLLi3FefhpIUtuS1BIFPM39J2G7xhErKo/qLtQRueH+wSEndHYQf
Nz5Wv0qg/kP+EX79U7D2yMvYzyRPrzf6MH3CDZ4/6fwtUUegxr4kVvk5F+g8
5cu6RbK9qu8/30vO8DSrkOfIdQLVuvz69uc7wXIpvhaDegJVQyQCkvwcwEBp
x9Zmkj9bKxhxpdtBiZDuVqUb5PM83cgXefUkTArYtRSSHDLceHCy4wS0bzu2
ifQ2dDPhVj8xaQ0eU6t5rBsInJP7F353rRVQlgUxakjmWxVxbqusBazKPv9z
muSLZZEVwUZm8IHGM7CvkTyvoenTz7xMYcOsQEgQycezKckHBI3AdW1aPek9
+DCG3/CdlR4c3u2W/5ZkEW7Zfz7ZOvDNMm3HEslzIj1x7N1aYGW1/ITITQLf
v15KF95xAPQa7iipkCyrJeegUKEMpg/qbuiSfGVxX1iUhjQ8ihvsIz0OH09U
9Mn58cOTDr1a0uNwb3m5RcHpxXvGSqM7DUm+F3W98GCXOPIuQx0gWYVPoiH9
uzxmmb7i3k1ydMSRjCiffSg3s/3cOpL/nnDJ8fwJ+C/x7uXv5POl7jU8X9mk
jYPOND3SQzGXGhewPvwIJpePMq+QnOw+/jzkoAF6iF1ptCa5S6uA2rNojNXR
dE8Bkt8ceskl6HgM1bcfae4gzy+JlixwX9McH0uFtESR/OtNcrKLmCUSwUbe
0iQPh/b9YF9mjYt1fXdJr8P0Uxk9BYPHMdj6stU8eb8nNRwtmyi2uKr7Y0ki
yfv6Szg14+zxubtBGg/J31RbVBwUHdHU5J8HG1kvM9tsW15tcMatLVFmPmQ9
HSen/3IOF9yRQRl+c43AMtNeTqVfLmj6zIbjClmPZo/v7o3uckNZt4NXBsj6
PZY2n1XWfArpV0+27ia5vDU+pum6O9ZxzsvSyfq3uvRKvDfTEyFr+rcx2S9N
vl3yPeak18mK1h8j+4m9dUpi2/GzKNDN/tKA7Df58LJUR1sf3J4ouGMnjaz3
Ex+NXep8MS9c2SiA7N+YZqXutCZ/PGvbyKVA9vems8e2px4IQI7fsTtGSsh5
EWHLlXgvAAl9vziVIgIvqI+yezwMxGVzroM+OeR9dI/XDT4JRo3d43WjWeS8
WxZ37ZpBCN5d/f3L8Uyyn80vi4U9D8GkkxuiRa8QGFnT2/z7ZSj6Z46G65Dz
7O2syMbCnjD8yRhZNXOOQPFk+SmfoQjc7Tl8cjiEQN+Zr2MtrpFoXBq7pT2I
QJvevHXrRyJx/u6KTxF+5PmxU8WPBEZhfad6caQHgb0325RSgqORy8bJb8SC
rMf4b307wmIx51bJO0MzAj0kzSWjm2LxjuqGW3QTAuWW7x18MxeLO8azPhnq
E3ieMnfK73wcRqk4fZEGArVo49ccw+OxXfJ6grEk2T8D3y4IXkjEHpF/mc4S
BAZ907n87GYiUt58PugjRp53qdCzsOlE9P967rS/EIEF3xuLH525iMp59vu3
rSNwdXfwnw02l/DHhjz3LTPkvny85n7k3mR0zUzOv/mDhYodfyY6fJORd+Ji
oMkEuY8/c7huZibjgfXzUu5fWDil6DKSK56Cy1/lUDTekfv7ycMbWusuo+Wo
HTWV3K+DXh0v939JxaxHsh2NjeS+lX2QvVk8DdOFtK69u87CCE+xW5O2aThw
53cJJ5OF3rGRA3GdaWgVV76fp4iFkZuJjGr7K5hjS7e+Re57wa0U/7qj6eg/
ZOdGVyTZYSAhaXMmfvUos0+QYeHdD1lWvfsykb4VfpyQYqGvclCx9PFM9Hx+
cfSLMAs/6V3zqs/JxDPPCvRKuVjYvH47X9zGLORwWSN/4SMTM9Tqr3PzZKO7
4/0+tggmzv4Mrb3wNwfVvX9t6gphYl7chnVrBXKR7t0lWOzHxIUFbMvdm4vR
Hc1XBN2YWD+3RzLXPxdLrvIEsgyY+H4wt+Dw91xsk9tVaSrARIrU6Xqzvjzc
ci1xY1I1A1f1SA4v3inAXcvVTc6XM3Crdco60fcFmBm42O9awMAfTywfq/4p
wBO9xVxiKQwctH9+20yhkJzLHayDPgx0Gr/zRqayEP0zCO7VygysmZ994Zdc
hJw33Mv/NdLR+3LmmtljJZgz/TzkXy0dLTOF9YXOluAxFf2RmSo6Tl/9sGlv
Ugl6Jvpmvcyl47jeo70mD0vwO+VEoEwIHc3vXmrfqliKtXnnNROV6XitXEeT
m6sMx5OPu7TX1KC9xRq5qsEyXGu8yiG8vAa/XbCR15osw6olqrRkfg2mHuQS
6pkvQ/WrdLXTF2tQQMyh7PemctRRKPehnSLfH7mDf/mRchxJqF4xK1aD6rYN
q63o5TjO8TqMj/QDrbfnFR94V+BCv1Xw8uRq3BvhcKXzXAUm8C/GjUdXo+GY
U2h/fAU+FIwfZvlU4+xWsQ/fiiuweVZz7It+NW57YF3w4nkFWfeBHNps1agq
fe3crT0UPCzdblx5qgrN5XJbeb9QUIfqI8ppW4UuT7mWJ/yiIPWTmrHzsSrk
nD6eO7NEQWOu453LD1ThAa6Qa82CVPyx8OLJHG8VOuspHRPSp2Jru5sE6xYN
x7oM5W+QnlfvsmCvtZKGSSufmp4/XYk925R+dc9V4obwtAzl4EpcrdSj5zxZ
iVZrTt/5El2JC+6eBqffVqLONf7b+/Mr8a695LwcvRKTLt/kLHhciaNmFhNZ
hpXIZyy/tGc7DRNvlVz8mELFq+MRz7Jf09CP64RbRDQVddY4NbX303A3t6mc
UDAVn/+NWJr/SsPFU+o5Og5U9HG2iTdYpKECr+KSnQIVu4PM1Wg7q5BiYni7
tJuCx//x8h0NrsLzLLdV5wUo6Nh0L3zP+mqcamcTiuKmoJyiVXL1lmp8NO0Q
HLVUgbYa2hQRiWrsOG7AH/ClAu9mPfz8V6Uab6zUMN7WWIE5ZVKBbrbVWBeT
c7DYsgLV81bWbaVV43vDaiOVtHKMUwv9+Eu5Bj0CRZu+xpSj3Ozm+1EHa/DA
3zsLecHluDQZSOHUrcExb3Heb3bl2D+134nDugYXK149sNtTjo221Ki60Bp0
sXnyObKtDA8F6V4Zb6pBWx53vrz5Uqy249V/ok7HhcL1v5cGSlHthZp5xiE6
Tl7decixrRSfqK4WsdSn46aGKeXV2aX4Ygp+PD5Bx6uJq+WXy5biuFSdjXMo
2UdaJ95n25fgdKwC1aOejiembuqfbCrCX4LJ9YQkAx94S7MVFhfhEPN55GE5
BhphV11nVBF67HtDdKowUJqbW176SBHeD3kk91aHgX2b9nqFdRVixS/PmEQX
BvYW/OSoGivA7uMHi4KKGRjx3v6z58Z8HFj5uiSam4kSnx24bs3koeN5p1+i
G5g4IpUny/42DxveKXg1CDKxIfxPZXhRHnau0mxu38HEx829u8R25KFu0WxX
LjDRJ3WyR5KcU2bH7Cauk3NLtzHn9inTbDxt6zs52cHEUo0P934oZeMe7bNq
cq+ZuK/TKjdEIBuPR1SEu79nYm9bw1BAXxYe3Jj/9eEwE9d73GLKeWXhDVqK
+o5ZJrINPhFsSsjEsUtl1JxtLByY0nAwuJmODdksC4nTLHzYPZKhUZiODrOD
PlFnWcjmuyNcJiIdret+2L/2J/eI093kRe10HPniUu95noWxglNuZzuuoGhT
mOiBFPL16QPh/O1pOGgmszGR3BNl+3xG3ginoD//uzqC3EN/unDxRW8yUkPz
3L2/sVB7aNlWLE4m7+dh0vZJFqpff0QkCidjkwC/YPBvFjoKRave2ZqEMo15
CvXLCZQyWTP5cPNFPKr8NiJTlMy58lPT2u8S0Up7XVmbOJn7N1ntvJeXiM95
34jO7CDw03yOZYlAIhYU+qsq7yHw0Nbn39bxJWDZ6DpCfx+Z29dt2dO2Ng7H
r8FcjzGZo19fzx1+HosFUk+LYo6RufuTpfV8SiyOpcdckSBzgXUgr7AgdyzW
Ms57GJ8gUG/ySDsvZwwWO6xrVXMh8Psttk/srdHo7xHaW+JG4F16Ze94XDTK
zhtqzruTOfzCob6GZdFo+ynhc74XgQc0Z/8JL0Rip/73wrNkTlFYin5ady4S
i18ZL1wmc8xpF7dMjT8RqMw1V0Elcw4H99Xa/T8v4FJS2/3GCwRuP8qz6+WX
8+jPJyEbFE/gim67jzGvQtAqdcHKkMxR22IricPWITgn1uX2iMxZwjOdTLbe
YFzm3/hKhcxhZRVsVe6jQSgrr47L8gmE3v6v04sBuN360hcNMsdZTsf6J8cF
YFCV2OuwUjKX7wsUEl4dgLfEhIRrydy32Bl3VJHPH8vTlprYKASWrrjpLrnb
F/l2Fe48WkXmoHGeHGUnH7ymfaBfl8yVcS30hA1eZ1FqN8/UQTJ3Nms8et8Y
7YWforU38zEIjEqsvxmZcgZ99fYqzJDs8fPSDc3c05iVerrsOel1b9v62WqZ
Hlhj8CTWnfQ47bxPT2wb3bHXI+WP1H8ep9RGW/7wFOoZtz4YJPmopl26do8r
Lj4eOQ5kjjb4lrP5w4ALbjUN3jFIsnF9B937uzPuufjiyAUyd88Lu/XGsTuh
xz+4XETmcqtB69lVPI5oHrH+6rb/cvv7bzv5ZezxnspWqWKSQ/s3d/IessX2
9Voz60kPeLWp5+xyaxtsHXYWiCQ5IOZhyI8zx1Ha51TqMMnW3eHub6OskGGj
aHOI9AhX9eqbt7ItcN/+2rA8khsNRj9n082QK+3x5Mh/nvd1wNMbTTHvnvst
GdJTMrWCI6KrjfDq1ogeL5I9Vqs82Naph/4jc3pUktkUzdNvzeugsfZL3m6S
J0+KDhvuOIQbdH7uXiDZne+DXWPxARz9YlW4lfSow3e3v3g+pYwnNvy230vy
S794znuJ0miS/ST4P49jL71cef0kP/LveT74n8cdEPStU77KBg7hixX/eZzX
Cn2xX/Hb4SC/XaMByf1KM1vGfBRgd+CYqMZ/r3+cof9mqxqsmK/5KEXyVLTn
lj5XTeCeKxvnJrnJNeGP4f7D8In+xuwL+XyR0YaPG9YfhQQFC57bJI+keGZt
GTUA2yKJLYkkP7+d4hlyzwREhi3CDUhWirkuderpMej/9kuRi+QOhuXulBvm
sDJ6g8Zd8vx0vTkPscos4ejJ5uLTJD/MlPjZlmwN9K1CZrwkL0oJKE84nQQp
X6Fbh8n7uSG4/ZaVth0cp3o0vibvd2JeZN9NCQc4JfPbyoHk9vP90nUBTnCu
RifMlqyPpdGaldauzrD/ns5iB1k/gnJ2oX8sXED7zDKJAyRfNAlTkVZxg786
WpaLpLcdXuG27s7OU6B7e52TBck+p9Rzjwq4A+9xpXUUsl4HLtU/M/3rAZKr
d5pLk/Vtd640QqDJC9pOvoz4RHqblciViFC6NzQ3mlXMk/3j0V7r0FlwFtyV
rnquI/mQlf1k40Ff2Ck4MLyN7D8lVsH9HSL+kOFyN/NbBYGjt3uLVXL84bN0
7cd20uPWyKxfob02AA4KBrRTyX5WGORaNFoMAHH/1EJNsv+Nj94M2NUXBMV6
Wmu3kfPBqf3XuY1WwSC+ZuTyo1wCXfjvbv/7PBg4x1tuuJDz5PDa/omrd0Og
PDxh6RI5f44MzRzsLToHa/pfxUVcJj1Lfs/+/E1hUK44bfL1v99Drfg0Y5wS
BtMuu1oNk8j353bJV50/DwVKNjf+JRBYVd+Wx2lzARo6BemcUWT9H0G71FcX
oGPNqneqEeS80oudW6MXAZaJlg2O4eT357999I9qJBTqP7lQFEp68Z2ypMak
KKj8O2p4x5dALiuU83aPAekBhePFDuR8NtfqnKuKAfEtz7ZJ2pHz04ZTPnY0
BsS+a1tV25DzjHK+O9YzFiptylanWxLIqBVtPnQmDmQGHVjzpPd1W7sYVXkn
gNvuuHgVZfL99Te2vmUlwITbqyBVBQL3Pw+OWzaRAF5prv1ysuS86Gjv1j6b
CGkK7WKcUuT5PnxzIfjsRfj4b0e4Cel9u066bkvxTgIrNyvzo2wEpg9ZLhix
kuDh1UntBwssHHtda8I1ngSH8kvvKMyS+/VCxaZTXslw2dhAf5b0QIM34tta
TqeAvP+VX+JDLMwyGLg055YK/+7knBloZiFFQqX5q3Q6GOjkfNwQyUJd2DWw
62g63M/pO/mc9DZhs857bm7p0HbpdkFUMAs7WLFFL0vTwVrJ9+Qrb3J/swwE
/TdlACugc+VWWxaajGo+613IgIV4nLdSJV8fqKu682kW9Dq4e58ZZWLOUqz/
y5Es0Nc7slZziIkCDfGXgjiyofg8R9aaPiZaJFTJXj2QDe/z5cwzu0hvO+N5
ZYTIhpNZV1r07jExesok9VhGDoiKzhe4ZDCRdci1eNIiD+blKlgWe5ko5qGV
ohGQB78uRhCtskxMnmY/k5CeB+X9qsnyUkxEKcXXbC/yYJPMp/5vW5gYXD3s
XqqbD31GA7vZ2ZhIld46dl6lAJLbt6+obmOgqt/2ySDeIrBHHJs2Z2DayVHe
ThmSGZKHTxkycOf4y7U7DYpgwuJVU8dhBqpw7blwI74I7G5e5Urey8B3391V
/eaKwGoy1ZXCz8CN+KjFYrAYJHdc22jXQ0dV0Yb36YxSOGj7KXy5OR2/3pT2
tHxcCnFGZg8ryXx7TdtfhHeoFKp/1d8AMv86HjTy2bumDFSW19TaKdAxV6Pv
rM3hMojK11U8tI6OQA9c//RaGRhUd1ysfULmb6qk1Y5L5ZAuYZK3R60Gb+uZ
S/nnlEOVXYf+qFwNvvR+t6mJUg48M7OzRTtrcM/Ybtn998ohdSf9+I+NNZgR
cWOO/Vc5UKdPOepOVONVvcOtJScroE1I4QulvBqd4jPa5qUocOZ2eyVwVGN/
WN2xdmUK9AZesH0xW4W6wheVcjQpoMW79rD1VBWqPfwyI3ycAp11s4R1bxXe
8sUdMwkUqKJcUt7YWIXBNq2NOEQBt3d5nCGeVXhpM7G+Lp8KTiu97Zc9paHT
SJHGFyoV2giXux+Qhjd/8p4RuEoFppp+fu0NGn6Sqmv0aKXCzW0tr3TLaaT/
aHS/+EmFrL4HSUqhNBzYUv+Apl8JS+w/Dbh20JCx5/mo/+9KOKEDbVfDKvFL
zN30EXYa9PA+Gpg+W4l7aU9nzNfQIOqi9idFl0ose6w6KCRBA53Z9Pwig0rk
WFXzw+EYDWx16Cclt1ai2rScUAOdBhn6gnzCd0jfFPkbFne8CmLqgnzL/1DQ
11jQdpdLFcxd838s9Y2CPC+uZz72roKrnp/86H0UtLbXmZuMqQL33wYdRY8o
KNSRbzrFrAK5Iz68GpkUHOW7lMBcqoICmehXQTIU3NQtVb5YWg01l4RedNlV
YH7B2dPiNdUgVSd2IuUY6dtXD2zSrKsGzezn1po6FZhLdWPzbKkGyS3Gdwr2
VKDcim/zvqPVsHLyRsjm+XKcG3uWYi1XAy8GRjy1csvR19qsw+dmDUQXRXAc
e1aG0k0dru33a8CZysYRgWW44Y1b9rYnNWBeOf+OVkd+XSMXG9/VgNABEaHv
eWU4vT5+MW+uBobeFmjruJWh7bYLDjv20+H+o0+znnOlaH159Il1Ix2m7K/G
aFmUYLqKzOyde3TYd89ohYR6Ca4XY7YKtdLBxMX32JJoCb6yOLa3tZsOcbr7
Hcq+FSPx1Ub+xQ86bKEuLaXEFOOjmgihGmkGsOVc6earLUIJvMIZmcsAGX/h
jRs4ClGDkXp9UwkDilev+Ld5tAAHk863UagMyBM/el7oeQFa8Q7sJK4x4IEh
zZg7twA7+s4kBbQzwIYrYkWpdAGqC+/NwX8MkGt0sS8yzcfjLRQnMzsmGFeK
OG7Ny8Xxc5xzqS5MYPdoM+IKy8XQPP78Zk8mcEtbUsZP5iK7n+bwpmAm7JP/
XkUVzUXZt9ER1qlMOJCqu/wRLQfpTgJHT95lwsYt+ufeXM/GJyyRV8f4WGCe
KiYT+iQTjwTwrU7ZwgLKQmFhOT2T9I5j/PdEWbA95Wfso+RM5PNorVglzYJP
uQPDC0aZ2BBs6aKhwYLpnx/eS3dm4J6nB44Ku7Egd7ZLOfldOq6KgMNVTBZ8
UdKu2/skDe3UEmrTr7LgZf6iTURqGk7JjPUE1rNAY8+0AZqn4d2Fg7Y77rDg
3gEuTem+VEwzHxGUa2cB1/JsDtrPy0gvL8gZ/sKCOn+NLK0tKVjAE+tm840F
F+/dieLrT8bHilJDbRMsMAmTLxqkJGM4r8mXtBkWvHkwlO8hk4z8i0vzj5YR
UNKro7tDMwl9HxynvhIioLggh/+s60X85nNo8ZUIATmj1vhB6iJuCjWbeypG
gBYjMFJ7PBGvfF98TZMkYOLf2ij24ETE+6WcK5UIoBzcL6SWmIChOmVNTkcJ
WLDIiaZUx6GdBnXomz4BtRuFQ295xWG/wwrqWSMC4lR7fJ7Kx+HcNq9ROzMC
yp5eLO69GYvxh3h8hk4SsOdmfsrTthjsbbny65I3AWPxCxntX6IwdAVH8Xsf
An7kZwzmUqOQnQuXxPwJOLWCLurgFIV8v00msoIJcDWr8Lh7IxJDLfnsuCMJ
iH69nFuv8AJ+uc1+b300AdLLlRezNl3AZ3f+dq6NJWCjQ+ymt5fD8drjIv7x
BAICmK3Gh6POo4ZlyLRaKgHBY0aht1zP4YW1Dp9n0gj4GvNuWXNvKG5Lexxf
nU6ACsVktsUqFPs+c3f9yCK/f2rqi7qjISgxkZu+qZAAe9e3Bep7glBvVfVU
fBEBqRt2reCpDETWI9f58WICZgMfSvQIB6LSOvkNFWX//b8MVerkugBkVt9X
K6gkwGbI9ZHIT1+k0bvH7tPIn49b2vbhaV80Eg053FdFgEy+2PCDVh9k2a6d
WqghwH1TcZRojTd+eGCntUgnYLjZLkezwAvfdE6p/WYQUP0pYfp48hlcjG8Q
fcoi66HJstvX2xODUm14aAQBbj7b533tPTB43Y7S0FoCtI1r6j1N3NGuTK6B
/RoBYeuPSOsquCHf0B+1myQvcuUnS4u74o7lf5z/+7tKHlGBp1wbXfBtxRMK
5ToBHOvEdtVPO+J28QO3lesJmBv61svR7oAysdtD7pAcVLX+VjbTDofdrXrU
bxCgp7r8kkjqSTxhSHyoJfmthMCvEp8T+DyBM06ogYDGK2VFAses8dYRrZcX
/vu7vz9/pS8pWuK7/IP335CczX5ee3qjOao4D5jvbCRgn2ls8okZU9zjuCmZ
9Di4mvbJNIBlhCEyD9xqSI69rx0p7auHihqvhz6SvGb05/d3ijo4+ElzBedN
AkwFrw/HzGhiiMafJ5Ikr6rNcTbyVUNLmwkFIPl4BNf+yzPyaLZB9KARybu8
Sl6mzWzD//9/OQbv0gmvH753/geqP1VU
          "]]}, {
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJw1m3c01v/7x4tQRpHVopIGooFI5SqikBZJRVIyUjISUTbJ3nvvPTKzLnuv
e7yTVKShUCpNou/rc87v5x/ncW732/v9el3X9Xo+zrnvzVdvn73OsmTJkjus
S5b897vlxw6D4GYKlvzfz8TBM5UBhAMfvSvb5qgGGlXdrV6EyyvXC4s7noN+
neiHDoSf0/X7hNddAXWtmkUTwrE6P9PXOl4H602KktqE7xiwHhF6egO+Jgtx
7ib8bs0qKfZ11nB5zCCJh7D1eTvNhU5b2KXCP/GuiYJkLdehGQd7aLmt+raa
MNf3ZVIvtznCZcPfkT6E+yKGElspJ9iiofz3JOE9Yz2+mV4PQLBWTHg14dJV
Bmm41g1WeZe/H2ikIEBaKXKHjTu0NLNa+hLepnJLI7DTA9TubQ77iISt/bOP
O3iDb5yQfBjh7T/P5SX1+8A1N6FAecJdd+Q2zWz1BXmhMIObDRQUeMwJuTD9
ILlOmfmvnoLvJ3q/1EoFgJuA/tIgwtFFPjPfPAJhZubw/bg6Cvjr+3wy14SA
fJVW9xrCvHU/m+VbQ0Cran9/aC0FosX+k023Q+Hh6qO/7WooqMmb1+1rDwOH
DfPPfleR9YoC9oI7kWAa9G/4BOGfO3h4hDdFwdNVq8PiKyk4Lmdeer8nCvhE
V+2QqKCAavgspSAWA0/tbL8se0xBfHG6vslAHLjfnCiSKaXAYa9SXbJTPGTF
T2zVKaHgaCjjNnNrAozFX1EOKKJAbcx0k8T9RFBkv7wR8yhQSbcMOCSQApui
TuQ05FIw67NJocEiBSLqIqeqcyiQSlJ7o4QpsH9MIS0xi4IQ29zp7TdS4eNz
1qHtaRT05wY/6Mc0WMe9NxFiyPrNbLA4cCMTNolPsfdHUbBm/dqtie2ZMHZp
UFUvktRLdkTWb7Es4BzuV9QNoyCs5UpIwkgWfM7rXc8eQME3ENgQeSIHHJTW
Sau4UHDyjPOSvdL5EF5N/3frPtkPk9DKLY/ywShRpTDciQKLWZMAnnf5wMtl
Edd7lwKbCRGZroQC2PNesO+7FQVDlpo3XnIVQfniC/6Nlym4Ie9jvudOCawH
Z+rDJQp8QkrXvUstgdYtos4FFyiYXjHPGTFQAk23Wew3n6Pg1PlMmzeSpbD2
W5x8sxZ5/+7Bj+qvS6FLxc5jVIGC9/J/RQS1y+Cv/DGLIC4KDvVgrt2mSljy
3T2xczkFBt4yQU6alSDd/D5sgY0CZ4WgN853KsF845+W80sokLU8UHWrsxLO
LfDr9H1ngrWk/ktu6ypw42HtrH/BBO/ugqW7G6ph6Qtu8yc5TOhYKjPeeK4W
RFIOy2lnMsGvMKxiqWstaN649XwklQmGpvGFB3Jq4burWPXHOCY4CTuPx83V
QrDvOVpHABO+LGU9zJZcB59iPhwJus2EdafvMd3e18PqE9+iNPcwYXiXNed7
hUawtWpnnJJmQmU0a06uViP8pR4pnZZgQnt/iaGFUSPwL5Y/UtnMBJVbNxZf
+DTCr6O1Gp94mTCbxxUaQTWS+1SXNphhwOBIxchh2ybgpkVkZOUwQID+BW7l
NMPKq395+TMY4MWs7cirbYZwMcVOp2QGGMasor/pbwZO4cj1B6MYIGf+9tLx
H83QJcZi7+PJgAPLvFueH2mBgGqVGSVDBnCPaY1tet4Cumu7NknxMOC65SnH
1RxtwJmQvjycgwGiARLdWuvbQOioR9iPpQxYt4t3h+uuNnBVTA/L+0mHDi+l
r4zzbUArk7RhjtJh28T7tfI5bSAy/ItPopQOTT/O0waPtQO74x6f16fogJ/V
49Q9OqCrReRligYdhty1vSsjO2ChI4Xrkip5/zrbro25HcC50u0n7qODpdCe
Y68GOoBh6Ct/QoQOt0Ufu3KKdIL4s/Tp2x9pMJtqLL6+shNyqnUkvj6gQbRn
ePKv8S7Y6Lqp3suBBiVN4se1vnfBAbH77AI2NPDb4R0Sw9YN7sLyjVtNaKDZ
UD6zcUc3XNY4+FdQkwYturttXt/sBrYXHouSgjRIevNsUOpHN2y0tEvdmzMI
srFhw41LeqHOZpHrcOog/KPeXT7M1wv3VtVe0YgbBMvv4v+qN/cCoy514FTA
IPAr7XeLVOkFqTiNWSnrQSicHuaf9+yF6rmbT8UUBkG1JP7fHbY+aPb41ybj
NQAqD87vX87aDz/faNpy3RkAh+UcgV/5+2Fo2J1r9NoAZOYpyNLF+yHzuJGw
peoAbPfPuHZPvR/2xG9ZI8wyAB9nZnsvP+oHHuvCseYH/eDR8NXfnWcAVlx6
I+lv1Qd109I9HhyD8MNruuSkYR9kBe5eNFs1CPKftjesONEHd4rZg48LD0Ia
Y6uHqUQf8CcJN81vG4QV5foHa9/0wn4zl+2S6uS5RQ3HKb1e6Cwx4sj0HIRV
TqNVs/t6QPKFWD7r/CAcfHn6OMfWHmD4t6nIsNBgC8vlE/z8PcDaH71RdwUN
HF+rtQjMdIP4j2cpocI0sF4b+7s+qxs6N9/zY8jS4MUP98lCgW7wqX+namNJ
g6vLPidvn+qEc0/N37AP0WD5mVcOOs86QZ576krUSxo81Nlo5tjWCb2Bse83
vaXBsayglMLkThBV2se6/SsNxAssV7frdIKVwtDJX5x0eHI1MayspgNu0kKS
sw7R4dxG5RtZnu0Ao5dmZJPpwMr7tfuMTTuolCQr1WaQuiv3rP91uR0MHwmx
KueRutflviGr1A7vlmmw76ugg1DFGcMbX9qg5UBJyUw3HdTUN0U9v9QG0W1x
1r4/6CB37PmrNzKtIFntWax+jAEXHCplJte3QifXls0HTjCg7+JiytTyVsg9
ajUheYYBj/zk/o2Ot0CUucqtvxcZ4LRNdktwVAuc+Fx50MyKAXZ/OAS5FppB
/8G+dxcjGBCyq1Ihrr0JdMQrLB+/YICvKe9ds9Im4PS9ue/WawaUCHXn70po
gmrHXRfE3jNgf4OHYKlNE5zf4ZLqTOYMd5K5v+OGJni6XnzN5FImLB+KPr3R
phFYtLmcKrYygSXZbPln6QbwMzbTWDBnQsGuiJ+GLA3wzK4gYcktJpwNXXup
7Wk92Jke27RozQRXgf5qJ9d66BX8WTbhSOZwMYq5D9bBbQfq0x1fJlhMBkZz
2NTCcm22yrtZTGDq6j8+W1ANQ+a/VXhfMeGST8t19KgGtlXtvze+ZsLmkYts
2y5Uw/Q8uEu+ZUKw+5m9r9mqYVmvPMfuSSZo8/ib8BpVQaiUIf3vDyb0hp9X
vMRbCVXudi0J3BS4X3F4aPm+AuRiL5y4sIoC1ax75nfrKqB13D6BdzU5R9ha
V9w3r4COmpTg28LknJRZ9elYYzkcHJYv/ryZgusrq85PWZXBHKeO6ld5CjS9
DufkHi2DZ3fSvl5QpGClde2ea+vK4NaNBYN6JZL7Iu6s7Wx7DPGvHM3vAMlt
VfXGFzc8hiM6qirpx8k5LVPMkddZAlFLDDxZL1KwNCyfsSmpBNqGdjUIG1Dw
IH3ILdyuBN483Fu4jZy7h0Zmc26KlsDSbbWZcldJrhgfKH41UQRXh15/471B
gXRG4LjLwQIwklgX1u1IwRzFsEr9kA/73CWF3Mk5L5QRq1sfkQ+pWn+d95Ic
kPc+/v7r6TzYdP74lLcrBWfMY6xeJuTCDkdP7RlvCm5lffrZezwXNnHFMO8/
pIA+OOxY+T0HfnDpKbE9osA/MemJA8kZBv4XUv7LHX2aylcq5rPg8K3Q3p5Q
cr2vGe/vZmeBdN+88u5wkqsqBTlkdbJgHUMtMDiCgoYb5qbxeZnguVuqTjma
gvaVBjSZCxnw0ubKRaMECjzri7/YVKSC643Mc7mZFJxXn/R8fyUV9PSdjWtJ
jkqsZpnV404F82rfo53ZFDQvMa+QupYCUw2awXSSw7rKJxa1NydB3dmq3bmF
FPxD7hN/HBLhV4b/TCjJcfoOvuGJ/Qngd/SJp30xBfIF3x7TnOPBqva4lDTJ
gbv+fEucpmIgpjDa5nI5yW37xHaY7IwBzm8BlAjJkbK8RTOURzQwJE7wPCN8
cZfTs5xdUbCwy/HXQZJDFXgCNTl9IiH/a3DuBOG2jNR40xcRYBzYIRNYTUHL
e4/7vI/C4W/Xn9LOJxQ8+iJleHk0DJgHcosvk5x71ii4IVs+DHIlxl1nCLMq
amZKj4eAaqFZ9FKSk7+H+zjfUAyBum+2rzwIB2kFfVAXCYZCfu9fi4S9zM++
ErgbAIPPjydPkNzNUNgiF8bmD1snv0gakpzuWmH6gyPyEVT1Cyf2Eh4zdH10
V9wXRNWSfvyX671LaOdflfmQdTOViyVczN/aAareIGJ+7sJPwguVDYfj6Z5w
ecNpE23iDavq7KeOfHUDLFux8yPhN70Cz9YvdYWENwkfpIl3rDhdvC1/433Y
8uSt303CDUOxoXuV74F22sDqTMLW1hUTjw3ugnGLttsQ4dYt737tdLaDTz9P
M1iJB72s5wlNjbUGRl8vlyRh3a1Sy7ZYW8Lx4EoJzf+861Gn7HzBdRhSZJP+
z7P+SvslxjGMwNylVNDxP28bm3gnr60LSt0Vb7wJPxjL/B0VeAQ+HVwZHUj4
q9DZDVwLW9G1sHrXf57XdnLF33UBJ1Ajt7zQj3DtVZto+94LuOIOK58b4ZOX
+ZUsc6/iU46cC7cJ+7kr34y6aY6SgtkP9Qnz1Zi11uyywiEWjvgDhO01jM5a
/rFBns8D4WsIpzjXKHx/fgd18rhsZ8jzhjCMVB3qHNC7qU2+kXCLrmXWbKIT
UnZco36E347NhZq7PkCsmrp1ivDR/dHxN3a7IY+SwzgPYWGpiGsbUt2xz7Dx
YDtZf63HPvu7+Dzx9MGR+46EbyWxVFp7eKFo5ss0ccJ7IdFm9aw3/hEZLeom
+5nj/mlZ0bWH2D/+O+UG4VrugOWqTF8sfad2bxlhz8v8grSjfjjcP64QQ+qF
2nM6/+nWQFTwfGheSOpr9sNRU+2oIJSSpj2XIczpc7rdkDUEe50+y+aRenR8
xg8NdqGoFqIUH0S8zkEnkqGiG4HlelEqK0n9y9qwKupxR2Ll088zl0l/3Dn5
uvxaayRSwXe8c0n/fLM1k7gpF41c35kWO4nXeedd1pcWiEMF8fciH4nHJT1b
MsLVG4dBgrGrVxDeRlMcHveMR7X9h7+KkX7Ofy/mdG82AZ04bt86+l+/21nk
qdKTsXSsy1w5n4JLe5wLepRTMOBzqvhh4nVF75cF2ESk4P3IV5EHyTxRureP
txRSsSXAK3YrmTfT7bFv/kamYX1Ay85q4nHbeJ3LvKbSMLr5V1xwKgXDGtfe
chxJx67x4kbjFAosl6Pgkul07ONjyv5MpGDHXTGriiOZKP1Yu2mUeB/n0ccL
gtGZWPTkz2wAmYfKX3SP2Uxn4vXQ+DE54oFz7tYVwtFZaLdp9cc7ZJ7K7Y+r
2DydjR9enmisCPyvP4VWrYnMw/tGKs+U3CnQTt/6YN1kHo5ouzHDyXw3NTLW
F4J83Po7KGTiAQXrfPVZ5z7k42vpZg1Xcj6IfXR9b3WwEG+lHum9bUfBRtNN
TX9fF+MCvLU7Z0LBq32xfAHhjzGwsTNtnwqZR1Zn54SaHmPm5OTjSnK+/fh1
2D3h82OcC1jI3X2IAl83F/lojTK8FDxyajU5H3umhLo1/pVhRtuu4ABpsp95
k4diLCowcWPiQ0Ny3m4If/GpPaoCP6i7Gd8XIPvb3Ww501KBvtm1MpF8FBTm
RSdKi1Yi43NoVjnxxBVzv60M6ZX4LufBlvx/TFj618DZdX81urktF3J4z4Sa
3AfzR02rUTdrb6D8GyawNa5xZg2vxp4dw2yfR4n3hVxTs5yuRqfCK/9ODDPh
V49q8tukJ/hscKNMSw/xuOK2fXYstWgft0svtJgJE9lxI1kt9ehT3bq8zpYJ
qvvlk7I+16PVjQSzASsmuLh6rE1a24CrjtZvfHmDCT1VRZx3bjegXv7+lImr
TOA3EPOvWYf4QX/V0idnmVAxfYNiKDSikv5z5ZPEGzdVbebWf9SE9xfTX2tO
MkDqUTH38aQmzBMUzsx/x4C0i/3SsmVNeOZY0wQ7yXPK3+Jr5l40oUrc6EzB
EAO0X/QZnNzdjD/tYndVtTKgW7KnhuVpM8b9zYxoS2TAvHXsaweRVpSdPOXO
0CLvFwnkvba7FXPTLYzG1RlQzKJkoqHaip83mMdNH2HAt02hZhwWrSip8Fxq
VoEBX3bsNTpe3ooutUdedW5hwJgGv+hzjTY8kKAQFj1HB/Png44iNu14iv3m
n26Sl1/8UHho4tmO7/5eGD5G8rR/wz6prMh2nF3hotwYS4eaGEuxtTXtKB9b
m5geRP4+lUennqUD5UWCKTlHOqS+MpmeC+vAkzO7Lnpo0mExuAN3FndizrpJ
S8YUDez/yJxVau7EtMZZkcPvaHDzy+L4YaoTF22iMPsVDXpunplUnO/EMy4b
h81oxAfiXP4w1Ltwxc+R2PxKGmye9rIqfdGFPTSfeRU3GtyuUGx5y9KDua9f
Uw2raFA3kjnCIdiDfqul5AKX0+CurqTmlu096HvZvVFvKQ367/0VUNXqwbBC
N8uRb4Pw9PRT+tbwHjzBp340nxqEEPMNrnabe/Ez7wGaKfHCDBbOQG7FPuRf
9NxssGkQanuXB3If70ORp5o71q4dBJvI5efY9Pvw4ac1CnS+QYh/f0L6tUMf
Tnz4bafIOggHfq8JPVLVh1WiHkr5PQOAtRL1qXL96BI2+ChHdwBcOvY0t0oM
oG6CZObolX6wTr969KniAA5dCeq7eqYfWuzWC4wdG0ADnUf3Xx3pB2+ns4Ev
rg/gQGv4AxTrB7FHrq6OqQOoUeLnsONtH0zKyUcncA2iK6tzYez1PhiysT14
1WUQ9R/UhAtc6wWds1vrWXwG8eleMYEzZ3ohxfq2fVLgIF7kkLrqDb1gnDPv
2ZEwiGPi9c7U+l7Ylpw6MloziC1cZfICzB5gV9oWvP3nIIZ18evwqvbAA0Xt
zcssaGjGtlV0x3ri3++7LTmsaThAz3UyX94NRV1ieWwONOSVED2Z+qMLzF9q
zH3zouGIe+TtvwNdoDOzpSQkhYafKUf5C15dcLHsbPnTpzTUGPwcW0q88cKB
fy6uQEfJ75rxyyo6gD9CnIlqdNyecWBnTWoHtISL8c5r0fGtrOJWi6AO4Imu
kL+qT0eT0ncmZWYd4PVjnH3Wmo4l1bce/1nbAbctzVVFUul4UW5R/eyDdlj3
TMfdd4GOXnyBTy5AG3ie5b4txspAU9N3o+pSbYCS7SurljPwMNseURnhNohf
xnZ5kJ+BrNF8fyY/t8KGMTveFgkG1o4atYkmtYLR+AbrbF0GFsrV59jNt0B6
o2eTcRYDNe0e28yVNoNFlXv4XB4DLzRcdIpLaoa91S+TgooZ+FgvYEHevxm8
I5UNc6oZ+DHqqo+RSTPs+9dzIa2bgQzTua0PhJoh+bikUfEnBsa76jW9v9cE
15rWHdm2m4lbDha1RBxqBBkNXhlxOSYm1tafKZRohG0nBGVFFJmovnLVbJNg
I+wQsXNfcpiJU9fT2HAEQWFXu0DAKSaOz/+te3YAof/Zb9XKW0wssGwJTJur
h8m+tfans5i4LfLmBqZtLWz6fYLvdy4TzQOuvy9SrwWOALeO2EIm9pjtmXBf
Vwvf1rQ96ClnIveNcuRtroF0je0/JpqZOPJsmQyDtwZ2GPzatewVEy9GtPP/
/M8bh+7PnnjNxL7DlOJFt2pwuq3QFPyWXC/inlGVTjUY349wYJ1i4p0d998a
zFXBIzmNfem/mHjrfeZevWNVoPZ+lVzLKgr3tTat4hmrgMcXZ2QKVlNYoqKv
xVFWAa/XTW8NFqTw+271c/PeFZB6b3aZ6noKI9fHctCkKqBgINz66jYKC9tC
T8o5lMMMd9hJ1wMUOnbwFb/jLoOQtA+sO40p/KGapH9SrgTyX80XylyjEHSG
EtJXlEDMWC7bzusUSsl8aP9YXwxc4S9qhSwofFmWd1SYvxiO3+HfV2BNIeem
/E1C9YXATBn689SF3G9x8VzFqnx4KSSo5uVG4YD+k87JJ3kgU56yb6cHhYKN
x76sMckD95YFzpveFKr7GqUaV+fCAdPYW/n+FIok9b/OupID7zSXt+2IplB1
y6Vw/pJM8B9KVneLoZDdJf/fxIVMcK4ONKfHUpjp+W59FWsm3DosEmCaQKF1
xOsnaucz4CRDSuNkKoW09P632xbT4BxfYKtTGoXP2xQkGNlpELOk62VqOoVJ
6ke6nM6kATO04MNoJoVCAdtt6zJSoeONlf76PAqfhos2cWmlgF7Jh5oN+WQ9
a9FR8mMyjKoJP1lTQGHfSS8X+YPJMHQ29uGSIgo9deevyY0nQmFfrmlwKYUB
S8ROPJeOB+fz+1OuP6bwVOh228ducbA0udBuXxmFc9Tnf56MWMh7Zz/RUU5h
1/4t//jvxcAZDqkFkjMxf2Sj6nRLJNR2CD0+U01hemfh8PzaSGB1Oyj/nfBZ
Lx0TdusImE+Oz5SooTDP9sFv7g3hgOz+YXWEr/Oc1llhGwZx1zZpa9ZSeEF2
6OjSzlBQzq2U1KujsHcgP+itXQgYeThoMwl/OJRinRIeDLp7Lx/SrqewVaZw
nzUEgVqGpNeuBgoLBjyvzEX5A/P48+ckd2Nr+gqzChU/uPZIdfEv4QNTPVtv
fPaFwjNv8yqQwg6JYL5mNeJtRTOynI0UTh/Xf339qxcE6xg8ukD4z7LPRcsS
PeG4unB+OmGJ6KqepOMeENy7MvYD4YP6Io/kvruBxo29OjuaKDxxgc8mAFzh
5Wvb4auE94536OVE3YcDcs1SMYQF++VM6z/dg+cp/JqdhDuP7FbpPeoAzZmX
5GYJi46GB1Lxd8DnX/Ak8R5MSlCaGv5mA6dys2/uJ2yhtPRvWbgVjLyIq9El
HCDkQys4YgH3V19j3iC8dRwTkmeugejS+SfOhJcee6a+/oAhqCZdtnxIOGtF
uN6XqLPAKer/gXgcxm6vG2TtAZCZddlDPA69tidmefhvxaUD+9X9CRv//PD1
SL4m2qfWbfMgzCVadrP/z3nkj13BsCMc/+fY6vmTxrhki7jWFcI1Rj7dnKmm
uDDJG3yM8N5UvbWCs5Z4ZYRKkiAc+f2BQUCaNQqLODmxEy50ebnHT8sOc4XZ
xV41/dfvnyw8v9vjThvPyBLCrOU0Y4dER9RYucB8QFjVveTudXVnVFjtOqZG
eKithE175gHWvBKqXk44NXKhQuiEG4oKMC4Rr8Os5YasninueNzuD8dewpI7
xbNPanjhbqGHvGNk/21lay8WJnrjHgG3d76EFU5NjbN/88Fnzct/dJN6YfPy
kMqNe4TKY227TAjThsQ0vn72Q5m9Ggq/Sf2Nv+j/sVc1AK/NcxbyEr78vLcy
dSoIz9Hd1keSepXZvVdgYmMIbkmUOi9AuPRml82frhDsdErYx0rq/VhT7m8+
0TBk+Rgdm0b6RbotspmnPQIrLafkZkh/HQ6QXHfTJRLfpeiVyRNOZeG43rov
Cnkq1C+WVFB404WH7Wp2NB5+VqxnQPo37d9sk5ZvHPbtG+J1JP2dwH6Z487h
eIze8qE4sIRClTLp1Ijf8RgCg4lZZB7sziljaTBPxMYRg8PBZJ4E3jX/eE48
BVMXzSScckl97DT3Pe6WgvEPE/5czqFwe7uVx74XKSil13xaKIvCVfqrNy2L
SMX2evE3B8g8O6nuL32NNR3vmrBOXI2iUJGn7/va15no0t1kOR1B6qv6+rbK
g1n4NMT25e1wCjd+qxQ8EZOFoaYXHpmEUCh33rzd5FQ2fvx3eRWbH4VBJaVJ
6vU5aK05p7TlPpkHZx2zKqLzcaPVYKuWE4V0hytpr7/lo3iYsKqVI4Wf2uwb
2U4W4Nx2gY2pdwjXBf6VX1aIMyNvrzXcpHCPXm2WrHUReoVaJA9dotBU8GGR
enoJDv14wGi7QOaBD9/bkL4SLBN71lN0nqzvAeX5p79KkL3EkstGh6zfN+5M
vROleE+vmlmpSa73NKlV7Ecp3uAxXnFckcK25hU73qmVIZ/smuZxeQqb98Yl
fbhdhj8Wxo45ylL4ptnjzERsGcrt5KgPl6EQP+9WffqpDHmYfpcDxCn8ki6w
715kOYZ4Na/wJufrpk9hl7vfVOBsj+XLXm5yfrnzd9/nqcSRTkXfVZwUrlzS
1yehUIldbZ+vey+jsCl7lb2dXyXW1U/oyv5hYtfJzVtbd1chFKxJiiHn/d3V
ZmJn71dju1QfR1ARE42/WkQMr6zFU5oGzz7mMTElYCF4/4Fa1C4PqIBsJh7n
NC0PNatF11CuuOFkJp5lZB6VbKzFntOOEu0hTHQp+ioyb12HvYOXz3vaMHH/
34/hvLR6TIwVmY2UYeK6gh/sF9Qa0fDWTi95SZJ/RAo1/11sxPNrptQHtjJx
r87LZynWjTj/2M/06wYmwguspeIbsS1bdu8XTpJXptw+sX1rROmh7I3D7xho
93BTpFNiE3bYUn3G0Qw8rZjw+tGXZjy2povlahgDl/MXnZNia8FDh3S7DAIZ
yHn7oUfH2ha8s72NV8WTgX6OpTMzKi1olWVb0mPFQPEd6x2XRLYg78IX2xdH
Gaiy+uux9YqtuH+T7tnFaTp6DCda8Dq1YcT4Hj+dCToaHJf8txDYhv0HNnqm
v6ZjwTfr2HepbThp5NQg+5SOpRZC7Wldbdjugg8FkY5tIe7XmWva0fl1Qd9o
MB15M69+WVXZjh085bVx0nTcPX5WunmqAzWis9ZUb6dj5UPqQsJCBwrJ+/HT
NtPx5dLUWutVnegy8ezDD0E6+q99wbNcthMPPKvbz7VIw7UbK+58udeJgUbn
n1zvo2E2i3RwBnsXdozrBbw1pyGbyHOD++u78eyjBy6OV2nY/W3Pr4id3Zg0
J6u83ICGU1xjkH2oGx999d25/hQNjZRbe6qNunGyJObLSnkaqvzNuhic3o3R
2zsddi2hYd98TRO7ZA+qhTs1G4UPIqdnvhXL3l68JDBz5bn/IFaKVnnnqPai
nW7DidNeg7ii2DxK/VwvKlxaFJCxH0Tdn/UhNxx7UXL2WEap3iAmny0zPNPQ
iwVtthnP1xD/eXpzWRTxvI8KIeoPZQfwk6yo4bBeP3pb+errbxnAlpkf4vZm
/fh7r3r4Jv4BfBM2pbncsR/nFlwjo771Y8/WK0kCsf0o3+5wcm1pP0rbqY21
Pu9HW/tfWQ929uO3luEGV4MBlHgxJvRmQx8afBi2Tt45iD96Pph0cvchn8DF
P89lB/F+Dbtn1t9efB+X4br6wCAeMnsA2i96ceUlexd7jUFUm/aRUIvvxZ5O
NX4u00Hc1q6nMS7ci13Lp1faJQ3iGq7T2p+5enBZa6m0JDcNle9GOf+Y68Z9
Kw15xlfTUOgLx8KPj9349GdGWeRaGm7lP8z5pqMb2ZkW2l+20VBSTrr1lmc3
CnQkPLQ9QsNt+yNvavzpQkZ+a06uPQ1HbxbFKIx1Yv0OynToOQ0/vF0q0tPf
iVK1Zi/fjdHwHKdxrX59J/6T6OT/8p6GXDYjelfjOvHbRvmaX99oGHpG+cEu
3U7Mb+pqY3DS8Urk3t0V7R345NDD+Pr9dGzMYTzxz25HPZW7EScj6Hi/PzX9
RmQ7rv52/DQ9lo6LZiMyRz3b0XPia/KZZDqmS1FKE5fbMVQz8IdKHh1t7DnS
Pgm2Y/bD8HNfSB8Uvsl1+ufRhr2r07vuTNLxo27Mv3MXWnHpw3Fcf5CB/Nfs
7H8fbcW7F1/scj7CQKmz+cqRu1tRo37oAKXOwHA6x3g9Rytu93u6+d4ZBtrG
ZnL3VrTgB+Mrf11NGVgqvfn3GG8LRnYtyfANZuDa3VsKBVua8FGw+6DzSwb+
mVat5SlqwmtVq35JjTNQ21bv6ZLYJvQ/lR7w9D0Dl6S/1Xxm1YTJpWn/1n1h
4HnBBfqJdU1Y2j84doWFiUHFGkFnyJyKW+thN0rmVrqn4Oj7PQ1ofyROI9mc
iVyfue5FrWhA5XVFnXo3mXhPl7dJ+XU97mhN1F5hzUTFYzEe90LqUWuNw3Uj
ByauWbw0GvO5DhtTtpQPeDNRcolo+sPcWmSr+rqiMZWJH10/t99Y9wQrv8/V
DlNMXK2/4bTq12r83Xb41JdnTNRdId8m2FmN2bJTfUtfMLFB80R8jn01frKy
8RMcZ+JKRwveh4NVKBmbOvXvExONbLo/7fKuRE7ryMJRck6s7wxSdJwsQ6W2
Cxbt5BzqH+vQEKkvw668Spdbe0juvzJUVhdchnr3NTxWylGoUX63fVKuDLdk
rTqjvJ9CE7v5M2yuj1Fw6O5vXVUK+dboWsDqUjR0khkw1CM5sY8pFvK2BDm2
XrFJ16ew4iSd7UVlCYb+DPg5fpHChmMp969fKsFAT/XsU0YUcnyoUnQ/Xozr
41JCRs0otDrspKx+owA5RD/NP3MgObJFeeeFlQV466GJV909co4urOQzeZyP
xfcN3sc6UziYsVPi6lwefvlcIKfiSuF82Gl7Fr9cfPJGc/q4D4VPDPQWhqRz
cU5Dfu/8Qwr9Dc6dyqLlYOQLf+3sRxQe3/OqRnptDk69imD5FEAhc/xd+GR2
Fi6Wb7ggQ3KK8A2bU4+0snCL69VDxSTHCNLMcjbPZKL4eptZCZJzejlsE2Bf
JnZXKTK4ifetKTO3lW1Nx+f7l+n5JpEceLeZffVoCtLfflutR3LUvjDOM86+
KcinuGmHMclZ35tvOI3tScGb8QFMU5LDuEOn3A+tSMbuANFvxsTj1ogv/Hiu
k4DViXr7hUmO6zsaomCdFY/H3dOW/iKccio4dPF3HCoGHjeikdx30I3vIEdS
LPJd6h62Jx6X+vjojr6JKFxziLX9QSWFPDs0JncpRWHiRXvZvSRXPky5tjEw
IBIPapTJvSa8sUorRGFPBOZue/dV5gnxQnlKzNszHIsbvAv7CK8wnqb6qDDU
cdL6a0o8TlVGQ+uMUyhGRxadfURy7XNLXZOA3hD8eof14mqSe93vOWq1iIag
ncP07H+5mHf90WuaPoGY2/f7VQDJzbliUytTJQOwwfHVriX/eVvEfOmXfj/s
+vFitRXhLZEZ++8L+6LEYlXQfpLTT0pN9FTX+qDTE+Pt0YRNeSdKZoy8sT2r
4cwMYc3F+7B5mRfONFXzqJDcz7/Ms187xwO5rx64FEy4zoZZbn/CHc32yyoN
Ed7qER+297UrBp0LyltLPOLqQkybjcQDPLbxYIHef95hebkk18YJMy9KQxDh
zZV5S0aeOOCS7brXGgnbWimbsLPY49/F9DWfCJcnjPju1LTFkGo+IwHiOa57
/BUTxG/jUu/wffsIH2p2jxkqt8DpL5uSzxJmDG8N5FYzwaNvH8dYEO7+yfHW
Mc8QddNUt/znccdHdNRo3Wexuatf+T+Pm9SSpcILAIN1z0z953HnxO5ka2Zs
hzUxXTv+8zj9vS6tt3K0QFBN4ZcfYecVPvNjZfqQZBav5074Thr9TnOXMYiZ
/Va3Jdwg1jgXvN8MbNnPdhoS5jBZLDufexPKrhU+VyX8ZMRNLIDbBix+87qI
ExZbu0nCvNUOLGO9Hv8jz8vGtvYw3L8Lk3f5HKn/1uN3zhNeuXtgvqG5P5Pw
9bKVH0amnOGJdVqlNWEHbz+RlHQXWKjAXfsILx7apVdU6Abpj3Yo/ST7UWYW
surydU/YsE6U1ZSw257+W4Y1XsC/cdJYmHDnMUv6+VU+8KBC1beF7Hf5UTOz
g098gVP/qxQ3YQuj9d+3rvSDBlOb3BxSP9z6w7Dimj/84Rr6DIT/qUn31XIH
wdv31bTLpP422Ypb+hkHQ5a45e33pD6Dlt9p3HEpBLhW3KbMCf/bd+79m+JQ
8E54N2dI6vvXj5I/Wy9EQOHUjuIVpB/oN+aLbrBGgmv0XJgZ8TgL7w0X8goj
wUJ87+HG//rrlPWHtSzRYN1+55cx6b/H3d7OFXmx8MJ5/qUp6c+93RlGfbpx
cLUhiy+eeNz2c8++vlqMA6k9G3i7ST9bH1Z48PlsAjwL2WW1hvT7Wj61JzVz
SbAloqX8LpkPthVW0fEZyfB71uOoez6FIzOZVkrbUyCY3pjiQ+bJujzfRQ5a
CiR8ykV3Mn/+ur3hshVPg9wcgaT9GcRDtWH0yL00eHgyLWZdOunfIhdVnv40
6M16bPyTeN1W/8O3ohzS4fV++ytJyRRqUYrc1t0ZMAX315TEkXrZsVp63cZM
sBXgCzYj8y9gccNBtMuE3ZH3n66NIc/v7cX4syELPGDtsFUkhRuurCyWuZ0N
3RedKp8HUzj25I++9+o82J7nKFrjSeEP/xe5v2/lwc5DB6rm3Yln3eD0MunK
gyMd6w4puJH9erDs1la3fPCL3LM6gXjhniBh0PhUAKOTW75ssCfeVndCn6W9
GEw1PszOmxCv5tQTuMdbAr4LokkvrpL5dV/CbvpQCRwJOahcdYX8v8fXjdti
SsA6Ju7qRQMyL7vEYpVPlsJguJq2PvG+g5YJR1SrH8OGlxwHZA9T6PO0Luzm
u8cgJ7IxpOwQhd4KHYEhq8tAsSr+nfQBCrNaEk923iwDbZaUCN59pJ/Pt0T9
2FQOAfO7hYOkKJQ9nLf5oG8FyK4f07shSGHIZQXXTWer4UY7GBS+ZWLa2szc
EOdq6Mir78ki3raYpNs/l1ENn54eXRP/ionB/jUv635VQ9m921p3SB7o9G/8
9TPhCcTVue762EO8S6N0n9L7GphY/JvwspSJ4oPpWyrt6mHiDaP55z0mom7I
rzMJ9RDuYmukfZeJP5roHu9b6yHYwWM2yZaJqTq3ov8INsAf7mg2WUsmNhVO
prZXNYBlw4EpUQMmck7GP5r9g8C5ryOQ/RC5n2XbayQONkF2wMLc+nkGCv/T
T0890wQFWkdNHX4yUIGn11/ArAnqwo/x9H1l4J69RUemQptA1f4jv9kHBur8
OhJxaaIJyDCX0KMYKJvkYq0S2gzSJSeLNheRv7deKbc41gIK9GPbHC8x8Pnh
U5u7f7TA1bUJbSJ6DJzLdtEM4WyFB18X++tPM3DbSK4il1wrTA9t3/ZJjYGt
xyJe1Pi0wgvld3wrdpN8Z2bM9VeyDebFj6sqsDJwvV5U5gurdlgyLerpmEnH
ORUXyYce7XDoxFyDH8m3x9Te35CKaofonVd6okn+/Sakv9y4vh2yeG4ZpAXS
cYkMr4gbVwdcP38s6J49HWW+rvrsm9UB8sLh+XuO0lGLeTU4eagT3j8Zn2K+
pGHngv1Kh8lO0Bs/63d0iIYhlx4lHlvohDAevj3FgzS02NfwlCHWBadG+pLs
W2iY3im1JeZWF8xGz8p05NCwun4spmdpN7B2Nbe42NJQI2yAvUa8ByxPWQtq
s9DQ1NPssr18D9i+fPY0YX4QHST0RCXVe8BTa9Tpw3fiKzrLO1zNeuCfrLqN
3cQgsssPaI7k9sAUY5+afu8gOp8rij0l3QtnZirnLkcOoscfrli+XX3g9VZB
/6b4IBqqX1b9ptwHffHbsg6IDOLw+cKhnpPk9fAIbg6hQTy4aqLIwqoPPKYn
JcI4BjFcq6jgVGEfZJ0+VDzLHMD6QYuwJol+YHgcEdpsNIAJun1dYiIDcDDt
QvvArX5s79/855L0AOyWHoLdhv24UWhUPeDQAJTrcfL7nujH3oviUnTDAejp
CRoWkerHNWIXo74lDsB0gM/N8Yk+PJs2vXB45SCkW4y/ZBj1IViuGzJ8NAgK
q/+ucNLoxWCF0J8TIYPQuy1w3YBCL86Wfje8FTMI1w7rbN6wrRfpYl/nLbIH
gS8xf2sSSy8aJgrvl2wbBI9Tx6NVantwuFVrtPXfIMQucQjnk+rBN4fpBro2
NGBlzV45vawbd+qvrOxzoAGPWRzDZ7YLL59d8kTFhQatH3i2rx/vwkjdxIqN
/jQwnmvx241dqNe/3jAzgwbfzKYbVt7rwvW0WtZXT2kQeMMgP2GqE2cWvF7+
UaDDleVJt0V6O3DvPXOzd4foMPrhsNe3Jx34q5du0atKB3nJgfKm7A58fPcK
PeAUHZwlG51PenYgt0rSiiFTOkQtb98optSBUz+1+4Mj6GD2Ore2IqsdRUyK
h32n6fDx00GzIuc2PFMqOdL2lbzOJzwsY9GGltEm5xd/0oHl67JdeXptyJ+w
ttZ4KQMS/3bFhO5pw928U9zfBBkw0fBvdMtEK0bxDHQqKDMgEg9svnimFa89
ZD99yp8Bo7v9+naKtWDqSm/dP8EMGD4YZL56VQtySrMUJUUwwG2NjsPsfDMe
FPK7NJLIAMO7V1hyqGa8b87tsaGEARAfdHLEtxkNk69z1jMYIPRrpNnqcxOa
L2EW3xZmQpNRo5VFZSM+1mqLf76eCUuS1yisT21Ecs+vYRMTbHNKdcisxIo5
Foc/O5iwPS0hVcC4EXvS1TN2KDEBMwwU73I1oqdS7YL9JSbMZDCk2hoa0Iq3
J6k1lgmacnGTAsvr8K+P+EPHRCa8z+z4avKiFtW9xDO3pTJhJD56a2FJLZrI
/Xpgk0OuHw1Ht12oRctHBj5NlUzw+sRdWZdbg3KrpPg16UyITHWX99Z4gvEn
WZx/LqPg1szRyyOelajF/8+njoOC4ywbpY5erMRHY2pWDzgp0Et2cMveXYnF
h5b2zqyigF3q0ifDlxX4fGt6adQ6CnYryn3y21eBnnv1I6dlKPhwoMDu80QZ
HnGZ4Liyh4KUUu+QZQ1lmNofqtUvS8GJpdrDghFlyLL0mWq8IgVpi/nCkofL
cE6Hmvh5hILM7RvM1sU8xmJZAddyHQqesyw5veVYKcabtDYwz1GAR1/9/bKh
FHkEM9tnzlOg/eeYU823EgyZ+LhTyIAC3yRO3iNJJfjigamauAkFp6OVQw9M
FuPoiM9+NTsKTH5H/Dp4tBDdl0ITnz0F4yMMAYOZAgzr91wxfJeCuTfWonfi
CpBN5dfweScKuDcOaQR/yUfR4hwrIXcKlNftOnYnIQ9t/H24owMp4OI/wMs1
m42jW8aHlYIpaFyWKTUUno3nTm8XfBZCwam9PsIJctmYke7IWAynoPRUJ5P3
bhb6bZgxXoil4F2T4+rc3xl4S+lI6M14ChKla14px2ZgjXebJJVAAcvKl9f6
92egLU9xXFgyBfdXifGMOKVj5R7Xqw0ZFPD7BHAW/U3F6H99Q78zyfOZFfcK
JKaiMdua8p3ZFHwxj9l991Aq3r+1I8Utl4LHGafOSrikYNHxuweHCykYVjS8
lLOYiB8u9Y6+KqJA43mGwTZIxAvGZhMvi8nzOfPfiXdNwLVXFMQ6//ucVujH
fssl8djfe0hZu4ICAZWM6PylMTj6O39epJKCLSEHCj8ciUapSon1HwhLOKgU
iHpEYaa7kat5NQVdqrdP32WJxNMWaS2iTyhouuFxI0YlAs9Hclr0E+59NHq+
3CMcPybdfbq2loJdJmZRz1nC8KCTYFIF4QmrIIN3KqGYGLmqXbOOgtbpX6OT
HiF4pM54n3E9BTdZlfj62YLQa8rEZZywqUOLWp13AH5OW7vtv89VZgn97Exl
88eiHcsilJGCz66xwbpsvvhM5ceFTMLOTXvqxbx98OP9la5sjRQkPG3imVzm
jVGP9rIaEXb5e/VnnpcnNmxSf19KuMVk9/T1ZR7o/G/XjkXCO/mOmaz3ckOx
D886VZtIf132z47mcMGTaVKdHoQnpmOMZtid8d2cwLZawn/Y554rszuiaKvn
+DThjuvfWR+y2eMjynxBuJns18JAa+cyW1zJXXX3IGEzu8JVnMut8LvGtZMX
//v+2dUcq3vs5vjxromXDeH5Wknn18uu4l/XsjUehLMMU/l92fUx47wW13/f
hwuyGqvzZz+O//99uWMsTGbRkpi6/wG2D0bE
          "]]}}}, {}, {{{}, {}, {}, {}}, {}}}, {{{}, {}}, {}, {{{}, {}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJwt2nc4lf//B3AjKWkoI6VllVSkMuLjVclIGogQIiN7ZxTZUkay98x2bmRl
9bLPMQ63NIwWipaMFqX63d/r+p0/zrkel3Pu8X49X6/7vq/LrivOOlZsLCws
h6m3/33Wbw/9pP2QAJb/fzW/Vb30P3/Z9oK81sgPz7tvlZyjTJc6RfNqFAeF
W6dGtCjXx/rzpXMfBOnl8GkNynl3/m33b5QF4QMqT1Uo/95qMm5lpwTJGh65
/1GuE7bNL+I+DpIZAudkKauYMUV3vVWB0LzdY/sp79j/6116oxqYLWWoiVIm
89ebCcWdgsAr7vcEKUudkuLKttOC+4ysxrWUS0V9L+05cQ7CFbd0slDWDYh6
N8qtDc/mhmkLdQToqQna3PfWgd0nB69NUp7p/D7n8lYXfOYgr5UyY/8iO2+T
PjxvTl9VTtloUIvj024DeM3DciaNssfgud+dcYaQ+DTDzYXy8ByzKtzeGCSn
63QNKX+8Gzzj8twENrUnbTpO2a7OmMtU5TIoNphKraX8hoX1S95ac+DP2x4x
X0uAWNKakNx2czCc1+t8QjmSZ57tvs8VmFl4/CSJcpFejkzFOwv4zedisoFy
G6tExlyzNQxUGJV8qiHgnlFC82qPq7Bm7MeTTsq7o/JrxPfawL9Sss2T8l1D
qfsOibYwP1T1p6eaANWrBEo6O8Arv9HDGZR9qr6PW4s5whqWWg0nyrtPcvQW
jDnC99FljrWUNc2lbI9oOEMX/cFjpSoC3iX8jmJscAUJfudPHJTL15q+/GXv
Ck32Za+ZDwgwqJvllKa7An3kn6ER5XPuKXvz/Nwg6rf0PatKAhxObtQkPrqD
YrfQm5PlVL0HH/NZdXqCD/9Xi+8EAV5/tAN993iB7Oarkfcpj8woWyZHeEHA
Hc6evzQCUlwOvXyp7Q0OAaxzuWUEPLhaWZPzygf2tibmFBcTcIvzzMi2JV8o
bp3VPEnZRvh2S6ixH/BGPYt7WUTAq4Ouul/RDxoqX7FxU3Zazu9+HXYTZPUi
TxsUEBCt+okrgCsAjga8kyZyCeiNeRonlxIIK4Ki82Uok2NyLtt6A2G11PWq
mhwCzrzpa175JxBS1l1KqcsmQFwmeWjSLAimp7oCSjIJuMCh+ZuxJxgidoG+
VioB+79xMNXrQyCx7kyybwwBtdF2V4xf3gLpFcK3X90lIG1tm5wDdzgos8/J
AOWDJhM7AhTDgZZxq3w5igAJnb8a1SnhMKv1WNkmgoB4o6CJs/q3wWhpWoU1
jACRM2wXL5B3IEa5VFjuOgFV3NKtI/QoMOR3OODsQ0DsdkfmjZ9RsG1D/ni+
NwF/26u/Cu+Ohvp3q5TWexEQYthVHhAWDcIntpcPuhMwZ7aJvK56F45pifzj
dSSg8YlviPyVGFibsT42xpSA53XJKucn74ELhxBfjgkBU6nd5ay/78HzW5vk
K4wJ+LHuMU/txljY0vPJqMeIgBvMAvruE7FwZUmI5Ys+AVf0TzlI5cRCuchz
kYWzBFT/cNw3dDkOej1mXN//RwC32Qvj26/j4arjIb9eJQKMH+/2yvkZD5gR
vZ6mSECYk82a5vUJcPjB9i57BSrv2ZkP/kICPBdPu/L8MAHavX9cy7ITQHN+
LN5akuqnCaZtzZVE8Dn09KapAAFXL08dSPuQBMMaabrf+Ah45m44CSuSoZBf
SDOclwDHpfnzH7YnQ5nDwaQSHgJ4Ur86al5IBpHewKjhNdT+Pp/VUsNkCFnI
ah/+R4P4U4u3JRJT4PVF6UdmUzR4ks37s1M9DdjurGFXotGgTL0wJKMxExoO
Ja50KaXBXo2/pvg0Ezpdqvhyi2nQxWKQMTWbCV8SP55nKaDBNgVpI1XRLDD5
OrgxP5MG6+YI85NRWdRxH78RfZcGbqZqkeLS2XDDX1XxmTMNRJtFovQ5cmDs
R++dVxI0yDe5KzH9MBeWz6V+1d9NA+v5Zbtxei7YTGXG94nSYN+MUObrZ7lg
Vlh0rXwHDda8rJ6e/pYLkXcrnHX5aOBaZu+w52AesGdUC25koYHQ9M8rDiV5
EFnCaWwwVAZXknanCWbfh98Tp8WdXcpg+ehRnhfJBdT6OyhIO5bBK8vykftF
BdB6bWhhxrYMnsQIGLo9LADV3ee0LluUQYTV+sitwwXA3ipyUlC/DGJA+kCh
QCE0fZONmj5aBnn+57sKkgohmO3Lr2esZVByNZhxJa0IyufSm46FlMJNvbKf
FQ9KYJevioSafQl03N29U2mYgFRpfj7mVBFY8S3ku49XAhvbDtezmwtBx3SJ
vcWmGmiTjp2NY/fh8eYV9UuidXAp/AbMtefAPxqbxbhrAyTGzv1cKZEOWe/n
d2uON8Nn9y2Wgl/uwWGD6pUxK1phZuvVgSuL7hAtGZN2SbMdNhc0Af1+CEZ9
6diom9EJPRvbZG8rhGL577j/Bgo7gU8uLmSsPxTdJnQSzj7oBHWO+xMyv8NQ
TXhboz69Ew5sffn0odFtNN/ywCZyvhNcR0QKg45E4wXHdqPbal3g9K1/160D
8fhUrMOuYKEL7rsCkaSahUeCt2pv0mHAc0eBSxYZWVglr7nR1ZgB/wpuHvT5
noWudw8eIK0ZEF0+9v24bjZOPyu+GHuDAdw7Pjdzr8zBkzMWSWL5DPB0jM6v
dMvF6jsxDwMWGfDjqHVQsU0+Bna9LOrL6oYt+4pEdVLy8Xc61zXVkm7wy3ce
3NWTj2XZf/wfVXdDLVeHr+y+Aiwe+LSnsrsb0qSiHGUXCvAGe3N20tdu2NuS
EZUaWoQrN5QWXVbvgU9RQhpHekoxwGxCMOJLD7y+xzN1bkUZrn4c2P1kqQd+
FCnkpSiX4e0vqzm3cfTCn0NT0Q1VZTgsbDRdtLUXlPoj02WyaVh6ukCvTKMX
DE+M3/kTWI4sf08c0cntBae34Z98qivx2g3lqnjdPhBt26Dr86QSF2OuyUaa
9oGJ4K1tMd8oi7q98Lftg6VrCW3sRx7g21h9hUv+fdCiFh/NVvcAnVwjel6X
9EHK/XThi1iFtp5HbblZmdDM/vsaz3gN3pgwT9MqZkLHKqvDGuy1GLJL8LR9
FROmhxW2xovVYvNgn0FwMxPyao2229vVopK2jkTWIBM83TZz8X6vRedPbk+D
lpjgfXH+/rF1D3Fw9/esSfV++NyY7mtzrgFjbWW8zr7qh0j72eatHg0YKvA8
1Wq6HzjTniiPJzdgxMfrdW5z/XBrb3pI7kQDvik5dNWJbQBizWklvzwbsfxi
ld17sQEQ8vQWfZvbhKTH8L8+uwHw23VeNXkl4tziuqjgTwNguyYmuGYvYtIH
0MxYGIC3XbUBr84ibhqT/VOyNACPjzTs1E1CFBBo+EKyk2BRYWhmztuCW5a5
jPx4SMhfFQt9BS3opNrAniNJwujP+Xip+hZcNT55k36ABNHbyyFJvS3oqX1Y
bPogCY9Hll54zLVgqBIL8siTcGZqavHK0VY8LcBdv/EkCRrnuTIX+1vRU636
wkMjEk4IC02mjrfioWO/zOxNSBA/VXP62LdWdKtSofObkfBbd1I4XrANLaJ6
HPWtSOh8cni7iWUbPhPvrPVyJmHlx4kaPq82VO2V2f3ZlYTyux9yydtt2Cf3
7LaBBwmeTWc2nilvw33i+xY2+5DgqsWrbfKrDSV8dadlg0homfXNElvbjmZ8
UYG2ISRY+rHazu5oxxXHrhXGhZGwoNe6HKbajmmeMRb9d0hw/F6/qj2mHaX9
vBRfxFLnc/D9xvi8duTd6j3YHU/CudnzD6xq23HhYkg0kUhCWmD4Ua4X7dgW
ukvLJJWE1FPf9+rt7sC0Mm/fszkk5Kp36jcrdmCevgG7QB4JIhwlm8TOd+Do
xf/Kn9wnYWLHUu6CdwfWkm3yUkUkmBQvihlEdSDP4emfvcXU8TjJpzXldKA9
UzDLpJSEWQulxsCeDhSavGV7maC2zxzhnXjVgXtevXMaKCdhu6j9o2NfO1BD
IHnn4UoShJ1I48WtnfjxtuTZsSpqvfl2K2o5dqJci7ti1kNqPdtN7qQGdqKQ
qQp3VT0JP7ZIjr1L6MS2y9L8jQ0kyDY+fOb2qBMnOnIyCptIUCxLl6x+3IlH
ZsL/RTSTUCBu9mx+qhNbNl6wsHxEgpvDG3/z9V2oNBr9aw5JeNlkujtOpAul
5VQ25beQsOr0cc8WuS7cLmC9qNVKwntGwLEPp7vQsupt+nvKBkMzhmvNulBG
sverVxsJNx8fTNzn0YWsa1TnflG+93KAoRbehU+HMkJd20n4kCPWeSm9C68G
HS8co7z6jIOpfUUXLvA1ayh0UHn2qb96raMLn/CjyR3Ke3axVPsMd2G/0ObR
fspHo3j4vT934Qq9xsqVnVQ+zmeaubDQMZYThw9SzlOWs77CS8cGIROV85Sv
2Z1dOrOHjpjz9Z055XBR+c8ySnTceYajxpqy619JHp7zdLzOdjTflPI5UvXo
ews6vtW7XHqKslZrmMJDLzqmrLNt2k1ZWffZm4AIOkKxK3OROh6mCzvbiSw6
Wo00DDVRjr7Z6fT7AR2vcREd7pRnnZoXy7roOP36RcI2ylPDnq76o3TsrWb9
r4E6f1ke25KfM3S8vYWl4hRlS7VFjxhWBo7qv3vbS62fbpZn7k4+Bs6/eT94
jHKksdiKoj0M7H3p4FhErf+H30fsxZUYWJD2l8ZGucG0tyjtHAO9uC/eOUfV
z3vhVxSnBQND4dJSNFXfKNETcW23GXgretT+HZUHgY+n9XgyGNgWx2K6TOUl
L+YZm34FAxsEJVo4KBuW/bRoecbAlSxDVbNU3p5InKx/94GBjRVuR0gqj6/W
BPzH8oeBdVY6nHl11Hy6y83PK9KN6tnbbu6oIeF43gbZ3sPduPLMkPwbKs+P
39iqeat1o7xF5Of4ByRo99zJrLLtxuCk0xKjVD/I3riXcvxGN0qMPi60o/rl
o7Tjp47IbrxqbsY1W0blM0H/V0l5N1p8VrQZovrNz67fbm1rN4bqqBgdovox
5ep8suXjbuTQ6th2q4CEymi7hLlv3Ti6xWQVF9XPtcUfJ68r9KD3x69/fdNI
CJ1R4ffX7MEz4Q3rbqRQ2yt4+9TzUg/+jfB87JBEwmeP11bH/HrwxG5hO8k4
ar7YLJfItfTg5Nqxe7zU/NlfYiXxhOzBb/sbf5bfIuHL9dFVFuM9GB0T/Vc5
lIRfAU76F9l60fpkx3u5ABKK1SuEE1V6kVBjW5twjYTltSpZrbq9CLcm9Jlu
JPzVqdV/ZdGLVRmZCkvUPG0/bfbuY3Avuv03y5C0I4F/jUCcVnsv9qk3blqm
5rPBF4mffx734vzSqj2D1Pw27JvxyproxdkSg+GUi9S826+g8oC1D4t1vvOs
1CZBcqHt0Cbow13Ebz5NFaq/2w+VHz/bh79k5440AQmfnnAeumzSh6+bQlmE
lah5lbOaaX2jD9kKdbMZh0l4N+qcf7+2DzuCpi8HiZHg5LbP9pEEExuO7xIp
XUGCT05W2C05Jv4rfGThzEJCb6CNtbIqExOF76w7vzgAO0cGf3mYMfHuC7nN
M1MDoGEbbMmWyMSSwku6G9sH4HVEVoBsHhMjW9WOTtQPgPaaBwEXK5go9XBS
Ja1iAIwvr2q73MPErY8+fmVkDIBIv69D2B8m1jiFaPJ6UddTj+zu7Vz96Cy/
knHAcQB6ncYU8/j78b2SyKiMxQBMeXD/cZbqx3Ixjd8/z1LbX4g8x2/Wj++u
tC97UdfvvORyjqDmflxN3jIz7e+H4LjRhySjH91+VBza0t4Pjw+yCHA96UfL
EYmmlrp+cNLoClb62I9v345Df3Y//Eh/t5zBN4CeQ+XWM679UHT2xiTsHMDd
4SGyrNb9QBdge9G7dwDHoiZtWIz6Ybv5kaYcGECFverarcf74Sj3SmMVmwHq
+qPacW5DP7wd61s45DaAqaUbj7ay94NnuDH/Ot8BjHh6b3D7TyZsltGm37w7
gB/dTvdkvmSCIQe34vmaATzuHl9ZTd0vHb0gSxYuD2ADn13WOWUmBEXbnZln
IzH3iuqShRQTjnSIrQjkJHGzk9XslZ1MWAdDWl4bSOxyzTy5i40JWSoPih7t
ItFVN6Iir6MPPmnafp8RIzH84x9Onpo+WHXK7+r6vSRSD6KSdvl9wKG2s2SP
DIkmkqs83oT2QdjBzYrVx0kMqBK2Glftg0vyYyc8VEl8+uXxtcojfaD6b0BH
/BSJKQyHOCexPrjKEA40O0/ikMnp1IoVfdCxTvLlPlMSjbstrQzaesHmXspH
X3MSdRXc7BIqqftPg/H5R5YkegjSe1uye6G6Z9+nzfYk+vE2np282QuF75sD
Rb1INJuZXm98tBem7a31VlwncVXY1/INEtT97htJkWe+JP4bvs9ZI9ALYU3u
leeCSIw5WRTN/NYDPcpiHamRJKoEFD0/QfRAJqtOLNddEj3vq2+4nt4Dcvt2
2TrcI/Evt65V7p0e0L69RmllIvV9di1BunUPSC+1Po7NJLGhyyPTansPxFtI
HYvLJjH+h3H5Xu4eOF1353FoLomi3ic1Jpa6Idxnt/fxAhKJ0nPdEk+74Wj9
UjxXEYnu/PJrG9q6wfrp6IfOYhIb6wpi/qvohsNJwtqbaCSyrd67bkdENyg/
q3bKJ6j6GJpb+nl3A9OmbFSigqpPpvmDAatuuMCnWbu6isTmoQtfzh/rBv2n
JTJW1SRmCGbLB+zvBi/Hd/xVNSSyhl05dH9LN5wn3WXEH5IYGCf4tecbA97E
yWvJ15NY/oZTZNMkA+6J5RcqN5C41SBdQGeQAQey9yntaSLR9tPQ22oaAyxD
fgWuaSZRI9B31UgaA5buPRWepBx7+0nYt9sMCMqKi3FGEjfyWktspJ6fArUU
7UVbSLyr5p3Me4EBL8a8m5iUhUs//Fx3ggFXSwIj7FtJDObZ6MgqzQDVutLX
fyiXZ8O2z9sYcFjbsSWkjcSWNbX7B9Yw4Feb8RGWdhI3MWjtJUt0cP0npeZC
+YSq7gr/aTpMazX9ekL5pngXr9ZTyrPfjQ50UHn027xlYzsd8p7OOvlSZnKe
VRisoEPRf2PKSHnG/lLS7Uw6HLXgHPpBOeq6mKFiJB32iY8fEumk9u8ckDfl
Q4cjVQu2JykHykqlRVylw1fJST8jyoLEhOVePTrYn/X0tqLMPS8v1n6CDjJC
kVf+5/GMJhZ9aTpIBu5U/d/3R3a93Tq5jQ4/ljQl/rc9Bw6eNLs1dFhWUN78
v/1FHr2b+3mxCxQG1bf+pI6H1TFe33aqC3IGBxRbKJtfgLE3Q11g5GEQfJPy
jlVJF3RbuyDzkd/vg5TD9e5MtRBdYC7+nTZKrUeCwGy1RHoXMGWj7ntTfhET
OBl1m3o+Prz/wxrKp+iTCTOeXaDZ+iQ0nlrvxfH0WQ3LLqgLSAvZSHnN7c28
2dpdsLmxYjaUqs819QLxr8pd0E3+PHSGqif3n/zcKMEueHTk964cqv7TK8R0
nq7sgmjn2fyPj0jUFBi4IfitExhSx1JNqbxY5Dowkvo7Yees0M7bVL72RnpI
P27sBB/Fj9bFjSQeUB1IX13cCYUPFCx6qXzesFVc4xLcCbf3vj7ApPL7pl9f
O8ulE2bWN0531JG47dNzkT6TTpC9K3U2kcr73JmMb9vlO+G1TP3+NqpfatYo
fSr73AFDo/K5HuUkLu8LVOwb6YCB63OXt1H9lbDh7q6PXR2gK6ExpV1KYq3b
G2nhnA7YtvGhg0Y+ld+5+Ddheh3gva2uPCKPmq9iaqWrjndAQU7K7/YcEhkO
zN+393XAhHLI503UfFAJYWNGsHeA/6X1n2Wo+SF6xMMnprIdBOu7DuyMp+qX
Ntq8MaMdtjFXLrHFUvkzB0wIbwdxz3jL4ijq9y9XxGRebodl5keTGyEk4p5M
X1zbDge6w3L5qXkmYdXTfHqpDQKmns8V+pPIwuo5OfK2DUSJkM9l1DxccVPO
frmxDSye+EidcKHms6KmmqldG7i+KvQuMiRRyttVqIreCmrOI8Jl+iTqneAc
daxqBbbBnvECXSqvjyVS9mW1gtz1y+OBZ6h6HZxJqfVshXUi73DgGFXPsN8r
WcRbYa/zrdYR6vrhn6RdHRTaAva1P64pPBnAifWLvzbFPoLW/YeCHPoGMPLV
he/l9o+gp0DramzHAO4XoMsbqT4ChvoN+brqAZyOMFIbXWyG7r3DhjbxAyhq
zLMhyqwZ5C5keQRrD+AXo2qDNzJNYMt/Mca5vR/Vh08NK76th7gm6SD5hn7M
G68q/Ij1IJbJuWqxoh8fJ0fsK0urh9fWnscuZfbjsQn/jqu69eC/xdW9xrsf
6ats+TvaH8K44sBPUrIfz8bRBHcX1YEh06jKNJKJIy5jElIBNTDIVST5KoiJ
rd4z2oVmNSAgs+uMgQ8Ta0sfrpY5XgM8yZyjStZM5GH1uOjPVgMrrOePUlMa
txxeuP8rtBpes15r+jffh3ke7gu+MVUQrC5maKHbh3eNdZQ+VlXCSVVbv+K1
vfhs6nvRe7sysHPZJnaTur/UuPyqjutgGezr+3ZB+2cPbgpcx37pZync4dt3
9+ubHmxRH1QICymF02NLhyWqe1D4146glTklYHmDb/1Vox6MWP3ra+FEEWyt
GDaLL+jG6w+DbMXD88HYSGBd+DEGcnbsMLhbmQkfMxPMJWQZqHfcfo+FUSYc
3Bu3r0+SgUc4ZV8GsGfC+1M71PgFGLjxc4BJin4GRK8bPNtMPd/oSUhHHmVJ
h+2GaVXGaXQ038ETuNU8BbTdPP5wL3bhTEmag5JBPMyAuKXpw04cYd9UeUIs
DF6vkukosG7Hnzn80nePu+KfEaWDTVtaUZz/y9kS73to+cx+wdvgEWY/5/4m
x5+GS5t5v5smNaBmv+Zz+cwcXJs4f2XRvQ7nNEeyrRPvo17wS9tuWjUuO04q
HJoswE5X59IrPypRfPjGjuHhIpz0qQ37oFOOHHQZvXUaJXhSXbKtvaMEU/Gv
6JB/KbqOH3hQUlWC93TJHPaQUrzH+f1SUm4Jrq5/Oy0VXoodr2x7AwNK8NuP
+tc3YkrROG40O1WpBOOZpp/Hs0uxiG5sOVxTjNLy7S8/tJSi7xerWuuyIry7
Ysma/W8pbthu+ep9UQHm/YqWE3Ysw1fKe8f2pRbgSYbwsoRLGf477z/nEVGA
i9V9zw+4l2GYh5sBj1MBnvkh+UrKpwz5jHnp1w8VoKXRavv1oWX4IL7fZS3m
4/nwmHS19DL0mhtiCo3cR67ZtuR8Rhmu4kheVt6chzu77whkC9LwIeuPd+qr
89B8/RtvGSEahi5lt1/4lYshA382tG2noZlT/5nrL3Kxdrf47LAIDYVnryt+
y87FxG+J+e/20zBFG1yz9+ai+aQFh99xGkqamKm1HcvBi8bExSprGrJx0mLH
v2Ti+cVVO6uLabjyYFJb4pNMFH0v5RFSSsP+PfxW2g2Z6KuR3q9Do2FLmfPM
s9BMTO5Ym/6hgoaz5Hk/4W2ZyJbg2vqvjobsHL4H6rQykG2S7jrQScN68eq3
VeVpOBgRPMfxhoaKQm60tYlpCFw1jSnjNDyf5nvKwTcN7XqMH0pO0vBZzbr3
cqfSkHeE+7TmFA1t9B7IrZpMRb9nEYuun2l4f1bpU7hAKnJrrw1xWKThIVtB
nQ/ByXh2jP0e/3oC+edtXXTsk9H4sjeHwwYCvedWZaNOMiaa8Y0jD4FSvx7u
KtiVjJZa5OAVXgJlHk4czsMkfJohV5MgSGDls8MDhsuJKLFD/HKFCIHdpmc6
U70TsDp2zyjKEuh+dbzSzywB2ZX/rX8rR1DrXyFuqZGA/v/e9qxUIDBeQD5Z
cXMC2nOcHlJXJPD5wTYx3ofx+CP8P7WHQKCEa4SqzWIcTrdPOOlqEMhEJPxv
xKIjLcjc24DA6yMmagzzWHT2PVoabEhgaGetHa9GLA5/rr0QZUSg/szsyTre
WCzULepJMyYw97/D5eLEPdRw6byUb0agsUjky8LxGHweNDlsb0NgtP5b1p2J
0dhyQVmkz5PAP+/54wIsovFSwdSGfC8CXWn5i1PS0Zhr+tnb15vACwXvN3f2
RuGCLUej+HUCXSQ5kjpZo9Am/flWWz8Ct0XGj/Q7RSC7zIsv+cEErmftd23W
CkfZqWsRK+4S6EbjKBfaHo4c9VsGcinvGJ6Z8Z+9hWsshwchhkCFwZPaOrG3
8MwGP37Pe1Q9/osfFBsOQ1Q7UzwUR2CWTulIgGUoThz+YqCbTOBOl4IgIdlQ
LK1S7nhJWX8Ts7yRMxSFpqu+W6cQeLHe3mtFaQjO8hJl11IJ5Ml9Nf5oPhjd
3Dd7hqQT6HhJ6SLpH4SaN2yZV7Op81PuzcjWDsLUeY6eV5RxXvuzu0gQHpAc
j72QQ+CTAIsgEXogbv9Qf0cpl8DToZkN+esC8fSGCKG/eQQG6TkoX1byx2wz
040ahQRur2y6Z/jmJp5Y/f1XKeXCy6N/DUJuYrHKYvW6IgIDmxU/WPf54XZu
l0ySsgLPQZ1mY1+UaBQ5p1ZC4JBEuoD6TR888CHTcqmMwPf2N5bfCPigefG5
cV0agb027FwBld7op3H+Yxnl+GOumsy3Xvhh/71cI4LKeygLT+5pT9xb/636
fjmBwhnnP115dw3vHOPJ+Eq5aLeW6h7/a7j8bWnT8QoClQ3mRFoeeOD0om75
c8ozqauVhbe447TtaN7XSgIXGG30FdVuuGKWh0vuAYH/aVXs+XTGDdeoH2X1
oXxHb4NQe6Arar3Wy1ukrDQhv3R0yBnPVso1T1VReVlUm5bndMb9ejcrt1dT
f79dfeg/RSdcsgiW16Nc8+8tGOQ5oPtQwr9myp6S9XeH3G1R9LGk180aAi/R
ekf/Fdrg9224spQy38WFwwdfXMXuN7f2PqMcZ7LSOfekNU7XXZLaU0sg3Uv5
97i3FbZZVW84R5lYu3NWjGaJWx+9DPOgPHAs0rqBzwIPjh6QaaQ8usItkUvz
Co56p1x9Qfm0fV2Y6U1z3OttJLNMeclQn024/zL+idIPl6sjkFUn1PmVrCle
7+zepEuZu0NgfU6WMQ5nsR9xpNxnsy9JztUQxTr2KWRQXreQNMw1ehE3+pwS
qqLsdVHh78QJfeQuvJVAp2x/IqIaSy9gYOmv+6OUr/pzFWXz6mJuVLXmZ8on
h46Ehvppo+vfzrBlyiElW+fH+s5hn4Gy4ZqHBNrGSJhUZWphdI5k22bKUtPp
hTEupzDlVmqrKGXDJX8J9xNqOGyReFGKsqb/a0UjXhU0VZAIkaf8PTfe+U4f
oF3NJfVjlD2P5H62dlFAW6kjOWqU//Jy52jwHsJ1xY33TlN2F1rwM3aRQPX+
r5vPUUYW9QlDF0HU+f5GVpsyS8rfMGE726b//78Z/D+/zpO+
          "]]}}}, {}, {{{}, {}, {}, {}}, {}}}}, {AxesLabel -> {
       FormBox["x", TraditionalForm], 
       FormBox["y", TraditionalForm]}, Epilog -> InsetBox[
       FormBox[
        StyleBox[
        "\"\[Phi]=2\[Pi]\\!\\(\\*FractionBox[\\(3\\), \
\\(4\\)]\\)=\\!\\(\\*FractionBox[\\(3  \[Pi]\\), \\(2\\)]\\)\"", {
          GrayLevel[0.5], 13}, StripOnInput -> False], TraditionalForm], 
       Offset[{0, 0}, 
        Scaled[{1, 0.3}]], {0.9, -16}], 
     PlotRange -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     PlotRangePadding -> Scaled[0.02], DisplayFunction -> Identity, Axes -> 
     True, AxesOrigin -> {0, 0}, 
     CoordinatesToolOptions -> {"DisplayFunction" -> ({
         Sqrt[Part[#, 1]^2 + Part[#, 2]^2], 
         Mod[
          ArcTan[
           Part[#, 1], 
           Part[#, 2]], 2 Pi]}& ), "CopiedValueFunction" -> ({
         Sqrt[Part[#, 1]^2 + Part[#, 2]^2], 
         Mod[
          ArcTan[
           Part[#, 1], 
           Part[#, 2]], 2 Pi]}& )}, DisplayFunction :> Identity, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
       "DefaultPlotStyle" -> {
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[1, 0.75, 0], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.647624, 0.37816, 0.614037], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.571589, 0.586483, 0.], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.915, 0.3325, 0.2125], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[
          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
          AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
       "RangePadding" -> Scaled[0.05]}, 
     PlotRange -> {{-0.3399999602659588, 0.34}, {-0.33999995215560963`, 
      0.33999995861332616`}}, PlotRangeClipping -> True, PlotRangePadding -> {
       Scaled[0.02], 
       Scaled[0.02]}, Ticks -> {None, None}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(per\\)]\\)\"", 
       "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(af\\)]\\)\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.810234312067178*^9, 3.810234377085007*^9}, {
   3.8102344138590546`*^9, 3.8102345024577017`*^9}, 3.810234850468431*^9, 
   3.810234982058507*^9, 3.81023555564423*^9, {3.810235719046034*^9, 
   3.8102357618110013`*^9}, 3.8102485696964226`*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.810238214475441*^9}],

Cell["Grafico la trayectoria en un giro, \[Phi]=2\[Pi]", "Item",
 CellChangeTimes->{{3.8102381790846047`*^9, 3.810238221940323*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fig6b", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"PolarPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"rper", ",", "raf"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "0", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(r\), \(per\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(r\), \(af\)]\)\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
      RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}], ",", 
    RowBox[{"PolarPlot", "[", 
     RowBox[{
      RowBox[{"r", "[", 
       RowBox[{
        RowBox[{"4", "/", "3"}], ",", "\[Phi]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "0", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
      RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[Phi]=2\[Pi]\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"Gray", ",", "13"}], "}"}]}], "]"}], ",", 
       RowBox[{"Offset", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"Scaled", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", ".3"}], "}"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{".95", ",", 
         RowBox[{"-", "28"}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7984586650734696`*^9, 3.7984586712038116`*^9}, {
   3.798458725678563*^9, 3.798458764044091*^9}, {3.798459171762947*^9, 
   3.7984591846571093`*^9}, {3.79845990563141*^9, 3.7984599625468597`*^9}, {
   3.798460089758837*^9, 3.798460161017526*^9}, {3.798460224619032*^9, 
   3.7984602383796577`*^9}, {3.7984602804427423`*^9, 3.798460281847742*^9}, {
   3.7984604491878557`*^9, 3.79846045941397*^9}, 3.798463627674384*^9, {
   3.798463677510731*^9, 3.798463681417897*^9}, {3.798645975325097*^9, 
   3.798645988003789*^9}, {3.7986460827200537`*^9, 3.798646085651346*^9}, {
   3.8102345506524777`*^9, 3.810234599047161*^9}, 3.8102348602548676`*^9, 
   3.8102349890102396`*^9, {3.8102355628808284`*^9, 3.810235565305788*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}}, {}, {{{}, {}, {
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJw1m3c41f/7x0lFUWkYJUSKlC2icpMoW2bJHqHIHkn2KET2nuc4OOOtJErj
rkhKpVBayEhSRkVlxPf9ua7fzz+ux+Uc19vrdY/nw4WYs4+Z2zI2NrZADja2
/z43icR/O3aTALb/+wh8cUXWmOQvwaw6HRMRSGyt/3OIZM+w6GWHTGSh6MEv
XXmS+TPpn71uq4CUodlWfpKfqnVrKZlogHPLm5DpRgKUFV+LnPtxCI7YXDrR
TnJ722U2i9u6kL0u8EEByXuBx2ZXvD48bayodSa50lAf/hobg8RfcYntJKsU
iw068ByD7CPLRT82EFC7NiwCfpjB0wnrssskMziJiC1vLECES6FalWQd5Xte
U01WUBxJVXl/g4CkcGbn/dLj8GfDE4MgkqXEwtWT42xAsujS6ux6Akq/dqny
GNtD0A7b+s0kq++8MeW42REu/DD8nHOdgEinyPeN3E7QcG51b1gdAbJGu9hP
TDlDruVW6sA1At7fFWirGHSBi9ff/NQkOf+1+M0v3a5Qojwk+bWWgMnVtySd
b50C2rJLaxVJfm5hq5DLcIfT1REXAggCFpsMQ1uLPaD3xaaZfiYB5gcsOjfE
nIaCdD9ThxoCiLC1Orb6Z6H27NpIr2oCNChij20P+IAxZ7mqfxUBxe+yeqQF
fEGyv+iIeyUBXdTWQYFVfvD53+qxP2UEKN4sM8Lv/uD92tXnSSl5fopHJord
AsAt+kVUZgkB9mohb0L6AoD3I5ve+iICena85BR+GQgpzzJDrucQIJ4i27jr
ejAMtqw/pZdNgHvZoG3/7hCYvCcz1JNJgGH/X/s0aghcPlCT1HeFvK8tr5b1
ZYfCfuffeRlJBPzZvSNTMTQMosI2c+eEE3CTOS9duj8CzjHYdFPCCCiKUuTk
vhcBJyV3PjkXSsCg6wnBs5qRQDt7ma4eSMB1uZ0VKeJRoNi17Jv5GQKedGb3
LO2MhgvaTtPD1gRYSQeJ/JaNBerG+0smlgSkZVjPfvSJBbZrHPZ1ZgSI/Jk/
fO9qLET/UOO3MyJg0/Fjwz6KcRB490eS/iECthn+3X95bzwIT0qpJ0gT8KNT
QKhMPREETnB1nZIk7yvto9mO84lQbDrRriFBAOgf7qLcTgSO914D3cJkfTQq
u6YcuAi+8/w38nkJOG2e9nCVxiXQtz/6JmGaBXMyMdaVkAyWp3XVf99gwYMf
+xP6D6TBRffqXTx1LAj8eiFFOTQNelp1rm0hWHC38dat6OtpQAnZflmMxgKJ
loWdy/iuQEuse+abbBb0LLE7WiRfAUOT5ff7AliwvET0p3xIOvy6cn6XjzQL
3uVqqOQaZMK1RNrugh0suNOQ9fWGRyZ4Tm34encbC/iEeh51xGfC0trkgkl+
Fuyq2vJxGjOBVWEzN7+MBQrdDfUcyllQmBLUeusdE9oCpZplhLLhWsN8Q2c0
E277spaiPudAhalOsHI4E6qMtRbc2XMh8OJ1p7RgJpS93RukJ5wL6hMeD+XP
MOGNfOKDeYtc6HkX9UrMggmvPNlXCbfkwnwYl/09CSaYq5yLNizPg+nZ64e+
3WdAp+vdTnnrAvizXkonqIkBjgkusTb+BfBATKHi73UGBClo9164XACGw/v9
v9EY4NHH8L/WXABrxcVyolMY4OrjdLZdrhDECh8f87NigLzIGbZHK4sg57c0
7+nPdIg697SgvLYYfkSfPRrXS4eEsDXNss+KYWj79Pec13T4UPQ+9vpoMdRr
3oqtfESHcaWvBEWsBFSPG0h6VNJh/pvKU+HMEnDflKwb70KHxzLhgv6BpeBa
sMpC7n0NrJM3faOQVwbXHeIyTr6qgdZzczBWWQb7FgYvRrXVgNqbwj/F18tA
1MGgqr6hBnK7TLT+vCiDiYV9Px5l1IDmu8JO3xXlwC/e9CtVrwaYz3ZmhPuV
Q3Abz+Sza9XgNbz77wedCuhcc9LtdnU1tOXiCgGzCig9/+0ZpbQazF/JZxrZ
V8B5r+ZQ58vVkPaQKcYKroA9iyoxuR7V8Fnf5Nbeqgpg6WgeHxSuhpL09Wqn
OSlwIPeoBndcFTB/9Q8btFDg+5y00YGwKmC7OK70o4MCPsySXHffKhhayV2Z
/oEC/ZbDo0zbKhA+snqw+ScFZJ0+3f+pXAXrq7xCxrdR4Yny9GnvYRrcfGyS
YxZOheGf+hvlgQbLJk9vPiZXCZK9ym/blWggpaQlqLW/ElrzDfc6SdFASGTu
t/SRSjiqpPwodD0NPnFa6X63r4SmgvS8k0OVIOI9+kwitRKufv7592d8Jbz+
NBJ1+lslONnH2ES1UsHKq0dEoZwGH+x46ZZNVIgx4cqyYtLgyqO6RQmCCs0r
yyKCGmlQ++nIo2vZVKg7JV9V+pwGqX/ypONcqeCkGvydOkuDQb4i/3XsVODx
H4jxNa2CoPJIlXd7KeD5/LHI779VkLVC+pjiLgoEdXOKb+KoBrehJwIJWymw
yeFzyO411XB15/JGYQ4K8Nlo8eqKVcPv9V5la15WgFqjQ6W0XjU4Roke+OVR
Aavi/H4TudVQm6/RPpFTDoPneLTS5WpgdLzIgnqpHAy25Rp276uBQwmR/yzC
y+FXcpEF76EaeDdedqfKqRxe8XWbBFjUADe74fGNe8phu3wSYzi0BgJXOeqt
vF8Gxs93Nvvfr4GW69ZTY22lMLX4TGm3Ph3++PqvW11bCuKH67Vnj5GsviJO
LLsUpBcNZ+6foIPqUlWCmlMplNzmUTnoSQev5o/la2dLwFTHb3Y0kQ6cKl03
zCRL4PFX7THuFjqcUNX+dDaiCAY/09/5qzKAD6p+U12KgCdMIc9PgwEz2lmy
3UeL4NUhRfTUYcD1gcWtIhuLwPboZ9A1Z8BeQWm6Y1Uh5F/Q6K09y4CXKzr2
014UgCn3Gf7DVAYQT3PBSTAfsiKaDd1WM0Ft1eyPgLk8EOmQq9qwngl7jYQv
RX7MgxkF3xU3BZggQXmcGF2WB8uP9j8aI+fMtv77NxSk8mDZx03iUxpMyJSr
MddXyYVweUNmqB8TLt3u/51nlA2eGr2UwJdMYA/XH3srmw23XhrNi7xhwtr+
4TcbeLPh31iMyIMPTGDLqb0X2JkFyYNdD76PMMF+es+9H1ZZ8PVXs8nAAhNs
Eu/JvrXPhMn8HbIakiwY2L+tKet0OiQLtRXcCWKBaY9tx36jdIh2/LB8XRgL
LDTtC/rk0kHs44CoTQQL1ERfnhWYuQL8chdd3yewoNYirdcq8gpIDfWujs1l
QfXLau+dO9OgQO7BSEAjCzQuVkv9HEuFG1qHhk1vs2ClioRaQ20q7DW5GLMT
WaD31zRbUi0VjpTkFt9uZUHOZaU3Vw0uQ4dprtLl1yxw3t5od9onGWYT7298
/oMFNxg/rB4qJYPW1PlapRkWMPmj0zf+TQL6Unlvxl8WCDS/WlERlQQfX/aM
qy+xYKl14ZJv+iVorJhpVeAhYJfE0/lP1xIhv8WFfuu/vfmd9q8rKBH2Po7k
qSH3alyhnewDtUSgZ8ROXyH3rvSHCeukBwnAccXZXF+egIMq3N7vXsaDpl3r
Ppf9BCzLmCNCJmIhRC9ytYwpAUK0662Hr8fCI14D0Txyz/Nerd6zJjQWzota
zs1bEHDR+pbQFfZYEM3vYyNOEHB8sXu946YY2CqupXnbmYDhvkc7V72LhsED
3iHfXcmctmV6jlUcDUZh53z53QkY2168+RuZM7h5JWgWZO54oexxR1ktCobg
3vqwADJ3zK2sDZuPhAvTH/T8ggiwe3RANy4uEma3jIFTCJnrBrhXRedEwJ87
bK67zxPkXnSZ294UDtaquZEeMQRELLxzlmI7B6H1/LT4NALejIX8fnYxFIw3
ll7iSiegX9P72pn1oSDUFicRl0HAhdO71uWJh0DeVrZINzKHtTMfJNQeDgI3
brj7soDMTQNjflLPAyEpVdZsM5njOAQlPIosA6HF8W2hTTEBfiebvgSdCoCV
/tKGj8kc6K3qeOxnoh9oib8R1KMSYD07VqfL6weyL/INrMkcaTZ+iSM3zxde
LQ7J29MIKFmp3GZt5gOZ/Bs3WJE5VCxZ3mbA+Sy0fotcc4TMqVfeXSJcArzh
l1hskzydzJ21BTHmWWcAr/tITTAISDwcFviAehrWfpsYfUDm3GvUlWt23fCE
V+ryNqksMsd/TuAfee0ODI59xuvJnLw0QczuHzkFFUcqXj4mecvsN/eU327w
RY2fI+QqAclrtj4VFnAl83tQCJK5O0Ql4Om/DS7wPvuZpxuZ07uU//m+XesM
PdtrcBmZ4w8fql9JrHaCSt/+0FySxZdndUesdISWZp3s7WTuL55QPJKz3B7U
O+o3VZHM3Rh/bufCSciu5fwjRnoDZzrbkNw3azgY/GroH8m9z/Zo0ActAemr
J+xJ71Aerw4SeW8OdFOmTSPJJ6rOC11+dQx68ot3cZIeUxplEzuebgLD4m02
xiTzPUmdbowyAIVfAhMpJC8s1BBhPkdgIvz80EOSbba0vFax1wah4iH1KZJz
JseFPuRrQHKh9vQm0rPUh2//Jn9omJBOX6dA8hlPK66DNXvgmUdLymGSO0Q+
KAw/FoTLvT1nTEhe3WoZM7h66V5IeBvzP89rc31XUbNTAusp2SYGJOt9FK/6
u1cR9bdqWRwgefQoj1PucXXctqWjSYLkqNMhJ3MPauHSft3Y5SSv2acn32es
g0nJtawP5PPJfvq0WtRRDzUv8KvTST7osuPxcT8jDJ66KOVLMuVT5DadB6Zo
ISdwToZkqJSRfvfEDLsmunYPNvx3vxkT7p0WWG/crZlK8nvT6g9T763wwju5
mwok27W4OwQMHcezcWwZz8jz/6n6/MvENxuMrnV+YU+yafybQedpWzyxI8h7
lLy/OGrsvRcL9qgtdMLHk+Ts02em82IcUUJBsXuAvH9rl7EvjxKcMNBvZ9Ex
kt84PpwaT3JG5WP2j2+S9cP+O0NENtMV7Xp0j3qT9fVuTcE1nVw3ZA+3KGki
66/LXEDFuvAUet1xOL5E1udMMmXyFMUDo0q0Z8+SXrexrl5a4boXTrHnTY+Q
/bD120YT3kZvrG546ztJ9kulaZjwl6azKPt10WyS7Kff2931Dzr5YmuWsP5r
st82yRSH5Xn4Y02TAI96Bdl/RjduOo/5Y6TMF/xHep27tWu1pFcAzp4V+XiT
7Gda0LfV5T6B+MFSyYSP7PcPb68PGAUHo+vpBGn3XJL991YfnAzGz2cbldhI
r1tZdrtb0iMEMTG+JT2LnCemDV/HToRiU6tjRAk5f14LvmuTOhiGasamdvbJ
pDf+/Ro3eiMM6RwFrNuXCHBKGGkqlz2PzW8iL66/SN6/9XURtm3huHz+QT8t
jgCeIa8Uz2UR+Fh1RjT0AgFsx8r7foRFoCLf6Mt8ch4ej1qL/r8icGft2Lr6
c+Tzrf9QbzcciVvPzat1kvP07z3jkrHBKOzvaDS44U1AOFUkNq85BjP0p9/w
2xIQU7tPvWApBl1GQqkPyPm+OOpnlLs/Fs3tj3G5kV5Y+KXKKPZ6LA7bG2dn
k/thlbCMkBglDu1t178uPkrW87WvIu7RCXjK0yfYQIms5+GztQ1qSTgj0z8t
ykHeh6aV2bKwJPQLFYnLI/ebTLiorW5TEppviAvhWiD387ksm0b1ZFQp/pD6
gvQ89jNyS+r7U5B/59+iX59ZcHRwoOOmeioe6eyVqiD37Yvxe5oxYalYN5cT
lv6QBSqe4T8PNaVicO+sVug9Ftyq9+qoUUvDeEaAyp4GFpS8uNe4YusVnAu6
3yNTyYKwo192JW5OxwY2Ht78aNLbOoMrxNTScUmgz5jtAgvERRp3NR5Px/V1
pgIOoSxgca/W7MpNJ8/jtD6HDwvK9ialvuDLQMbsfoeRkyyYNjZ59oQ3E7uL
mecElVmwdY3JSOaybBQs/FOh0scEDjTjm9iWjYylVVbMt0xoFrb1OgTZmPb2
6totXUxY9fyX77vz2fiLbTSn9zETKkfufsXpbDyqxZRdcY0JtFZPA/fPOehs
ov2ph/TGBrnWhs8P8vDqS8XhHGEmnAwubg3sz8OL6/J9ecm8tjzNYWZhIQ9V
v4vui+FlwqTuXOpf1XxU0O6MNOZgQuFzkxeFrHz82b9pR9IoA340r3NOzi1A
gV4/j7RrDLDwZ5x541aEnxJ2GPUfZEBdhtiH5KgiFP7tvv+zCgPuTDv6qBcW
4Tup+8XDcgxYoF35HvOyCAeNfB91iDEgesI14b56MYY8s31pvYIBP9dMVIyu
KcGPktOW8u10mHgqoHifKEVOSY2IdWZ0iGnZ8P1yWylKxv4xPULm6cYHj9gs
BktxcvLay9BDdOg403JleHUZ/rhA9LUp0mGTTq3ebo0y5F1o8hTeSAfB1PLT
C5QyZErcGc3vrIHQfV/W5nmVY53y0sEJwxo43PuahzusHAtuTHRUatcA+8x1
wXOJ5ZigWrXfSr0GnhnyGOhWlOP3o0v0cskaKBITvkrtKceBwStKQ+w14Hry
s9xZrQrMS587vPFGNdTwq/7avJ6CJ5bZ5arzV8NieJ/3F2EK0jLYqBt4qsm9
URlZK03B4Pi8wSH2atAtF7KRO0xBNXFZdv/xKjAMaokfD6bgr1IBvoMtVRA8
OZPt+IGCh/ydJdNJLxzn5fzIVUbF/szf3TotNAiOPiZpwaCim+G6UyuaaKAl
I2FT0EDF7597bLGWBhesdc4IPKeiFKUwXryQBjwxv8a7Zqmoy5TlpvnRwPPU
2jUWZpVYX8e9gypMg0QtrQa7pUrsGpl6kepXCcs336tmW03D13fKBMtOVQJH
scmekk00fKfOFGKerAT7feof23bRcDyJerxepxIsR/fnfDSnYVQy51z85kpY
V9kpN0+joUzjPg35+1SQ37xLikOvCo13c++pX0WF/s0l5Y/Nq1DU0WKP9D8K
5O6NtIm3r8IeuqdLwRQFHi0IRHwPqEK/2Pg4zx4KSJ5Yr+JZUoWfS5r+PqRS
wPUp1+3NP6twUkn/k5sGBcbDP/MeyqrGh9Pfm+K9K+BvlEyeVEk1VrgvoZ5j
BTzZrbnEWV2NQdmOAVzmFZC174TTtdvV2HPRczpoXwVMOr7dQQxWY6uNa/t6
jgowF+pQN5KrwXYrL3nT3HIw+zB5fG1zDXZJ+Gly3CkDqvsfykB7DT60PGXo
RpTBWx7vO6zuGuxz/Hj1YVkZFMp1GciP1OD95XEZPvFlcCfUpKyPi46F9/K2
ZxiXwW1ax/I+QzqWLMbVzmMp/N2w28i6g4570+UP8S0Vg+Ku1wzooePHD9qe
9waLQYTN4vK2fjouKyHUHFqLIZ2P82X7BB2P/VL5nXi5GCxl1AXa1jDwrrDB
nWChYvDcENhuqc/AkVcY9HJvEUTkmso13mVg1zX8yHQtABuvZVnKLQwcVStJ
NdMrgCDvCnXGUwZefXSm74dMARCe7kfiehiov97bX/hPPsCJMKXPUwzUq03d
uetSPnge7Vx0FGdiunBYniAzD7bLpbGrRDEx4tvIrYTxHDBzj7r1Np6JD8a2
SHm/ygEXI5u4wGQmCq54x218IwfU9lkb5eYwUTRIx2QpPAd6fO4mXGIy0fWo
e/w2nhx4O7PcR7SHiWEttrUuu7Lhhvi7PVySLAzOOagl7JgJlwrsVinsYeFa
i/HxX5qZ8GJIJOOYAgtd3OlCj8Qy4T49suLcfhZaNI8KWw9lwPZsyxw3Exb+
DtvQqH4qA4I+LktjBLFwJHtmDdeZdFge/j3OOIyFgYNTc0kG6RB1u5X3awQL
VXI2/+Xakw6tH9d8Xn6RhSz1Cd3f369AArXuZE8+C88HdSjmnr0Cz2eL3Udu
s3D4d5jZ9EAqHL0jIbHsPgujbxbQXCtSIelOgzNfCwtvfNh54JlzKrQ2WTuJ
P2PhQf/tgdFDlyHcN+vwmw8sTElL35QwnAJ3kqQY1FkW3lJVXcn1OQlm7dSa
umUJPPlErfDspwQw2j1nwlAg8EbFa11FagJsOnjCOUyZwKEzu02n3BNgm7XU
HLs6gREr2W6enIyHl3oTgw2HCTRvD4368S8OmnPtVjYeJ1Dws92WnVtigWd4
Pz/fSQIzt71g5PTGwBP303ln7Ahk/3EheVl5DMhrnfrB7kzgyKavfs8kYyD6
7oqRrtME3r6sGy29Nxr8RIKceM4T2CQ+e1+tJAKSvCotfoQTeC/uZGeGRAQE
LL917UUEgdEOJS7D9AtwtutqlX8MgR+2Dkf4NYaDxL+TwQ6XCCzXYoyqvAyD
Lv8NTM5kAr+Sam1tFQaMLumj1SkEqn8T3er38RxUpg9f60wjsLFhc0b6aCj0
pRRpPssm8BKFwnuJLQSqWUElqrkEcvAcsAxNCAaac7VDYR6BrvO/Fp14gqHH
qmm1YSGBXktH5iUEg8Be/MTcsTLyeW38x7zkAsDVrskzqpzA8fsTdMUb/lC1
ZkStqoJAIVpj8y91fzhw+Nx8L5XAw+UfQzx0/eBFDNsCmTMxlxgI12g6CwL7
5PBjDYES/woiLJ56w3aR1TIP6QQufAlydHnvBfeaxzhDmAS2xG6he82dhsRV
FwN1WQQKaLLi3FefhpIUtuS1BIFPM39J2G7xhErKo/qLtQRueH+wSEndHYQf
Nz5Wv0qg/kP+EX79U7D2yMvYzyRPrzf6MH3CDZ4/6fwtUUegxr4kVvk5F+g8
5cu6RbK9qu8/30vO8DSrkOfIdQLVuvz69uc7wXIpvhaDegJVQyQCkvwcwEBp
x9Zmkj9bKxhxpdtBiZDuVqUb5PM83cgXefUkTArYtRSSHDLceHCy4wS0bzu2
ifQ2dDPhVj8xaQ0eU6t5rBsInJP7F353rRVQlgUxakjmWxVxbqusBazKPv9z
muSLZZEVwUZm8IHGM7CvkTyvoenTz7xMYcOsQEgQycezKckHBI3AdW1aPek9
+DCG3/CdlR4c3u2W/5ZkEW7Zfz7ZOvDNMm3HEslzIj1x7N1aYGW1/ITITQLf
v15KF95xAPQa7iipkCyrJeegUKEMpg/qbuiSfGVxX1iUhjQ8ihvsIz0OH09U
9Mn58cOTDr1a0uNwb3m5RcHpxXvGSqM7DUm+F3W98GCXOPIuQx0gWYVPoiH9
uzxmmb7i3k1ydMSRjCiffSg3s/3cOpL/nnDJ8fwJ+C/x7uXv5POl7jU8X9mk
jYPOND3SQzGXGhewPvwIJpePMq+QnOw+/jzkoAF6iF1ptCa5S6uA2rNojNXR
dE8Bkt8ceskl6HgM1bcfae4gzy+JlixwX9McH0uFtESR/OtNcrKLmCUSwUbe
0iQPh/b9YF9mjYt1fXdJr8P0Uxk9BYPHMdj6stU8eb8nNRwtmyi2uKr7Y0ki
yfv6Szg14+zxubtBGg/J31RbVBwUHdHU5J8HG1kvM9tsW15tcMatLVFmPmQ9
HSen/3IOF9yRQRl+c43AMtNeTqVfLmj6zIbjClmPZo/v7o3uckNZt4NXBsj6
PZY2n1XWfArpV0+27ia5vDU+pum6O9ZxzsvSyfq3uvRKvDfTEyFr+rcx2S9N
vl3yPeak18mK1h8j+4m9dUpi2/GzKNDN/tKA7Df58LJUR1sf3J4ouGMnjaz3
Ex+NXep8MS9c2SiA7N+YZqXutCZ/PGvbyKVA9vems8e2px4IQI7fsTtGSsh5
EWHLlXgvAAl9vziVIgIvqI+yezwMxGVzroM+OeR9dI/XDT4JRo3d43WjWeS8
WxZ37ZpBCN5d/f3L8Uyyn80vi4U9D8GkkxuiRa8QGFnT2/z7ZSj6Z46G65Dz
7O2syMbCnjD8yRhZNXOOQPFk+SmfoQjc7Tl8cjiEQN+Zr2MtrpFoXBq7pT2I
QJvevHXrRyJx/u6KTxF+5PmxU8WPBEZhfad6caQHgb0325RSgqORy8bJb8SC
rMf4b307wmIx51bJO0MzAj0kzSWjm2LxjuqGW3QTAuWW7x18MxeLO8azPhnq
E3ieMnfK73wcRqk4fZEGArVo49ccw+OxXfJ6grEk2T8D3y4IXkjEHpF/mc4S
BAZ907n87GYiUt58PugjRp53qdCzsOlE9P967rS/EIEF3xuLH525iMp59vu3
rSNwdXfwnw02l/DHhjz3LTPkvny85n7k3mR0zUzOv/mDhYodfyY6fJORd+Ji
oMkEuY8/c7huZibjgfXzUu5fWDil6DKSK56Cy1/lUDTekfv7ycMbWusuo+Wo
HTWV3K+DXh0v939JxaxHsh2NjeS+lX2QvVk8DdOFtK69u87CCE+xW5O2aThw
53cJJ5OF3rGRA3GdaWgVV76fp4iFkZuJjGr7K5hjS7e+Re57wa0U/7qj6eg/
ZOdGVyTZYSAhaXMmfvUos0+QYeHdD1lWvfsykb4VfpyQYqGvclCx9PFM9Hx+
cfSLMAs/6V3zqs/JxDPPCvRKuVjYvH47X9zGLORwWSN/4SMTM9Tqr3PzZKO7
4/0+tggmzv4Mrb3wNwfVvX9t6gphYl7chnVrBXKR7t0lWOzHxIUFbMvdm4vR
Hc1XBN2YWD+3RzLXPxdLrvIEsgyY+H4wt+Dw91xsk9tVaSrARIrU6Xqzvjzc
ci1xY1I1A1f1SA4v3inAXcvVTc6XM3Crdco60fcFmBm42O9awMAfTywfq/4p
wBO9xVxiKQwctH9+20yhkJzLHayDPgx0Gr/zRqayEP0zCO7VygysmZ994Zdc
hJw33Mv/NdLR+3LmmtljJZgz/TzkXy0dLTOF9YXOluAxFf2RmSo6Tl/9sGlv
Ugl6Jvpmvcyl47jeo70mD0vwO+VEoEwIHc3vXmrfqliKtXnnNROV6XitXEeT
m6sMx5OPu7TX1KC9xRq5qsEyXGu8yiG8vAa/XbCR15osw6olqrRkfg2mHuQS
6pkvQ/WrdLXTF2tQQMyh7PemctRRKPehnSLfH7mDf/mRchxJqF4xK1aD6rYN
q63o5TjO8TqMj/QDrbfnFR94V+BCv1Xw8uRq3BvhcKXzXAUm8C/GjUdXo+GY
U2h/fAU+FIwfZvlU4+xWsQ/fiiuweVZz7It+NW57YF3w4nkFWfeBHNps1agq
fe3crT0UPCzdblx5qgrN5XJbeb9QUIfqI8ppW4UuT7mWJ/yiIPWTmrHzsSrk
nD6eO7NEQWOu453LD1ThAa6Qa82CVPyx8OLJHG8VOuspHRPSp2Jru5sE6xYN
x7oM5W+QnlfvsmCvtZKGSSufmp4/XYk925R+dc9V4obwtAzl4EpcrdSj5zxZ
iVZrTt/5El2JC+6eBqffVqLONf7b+/Mr8a695LwcvRKTLt/kLHhciaNmFhNZ
hpXIZyy/tGc7DRNvlVz8mELFq+MRz7Jf09CP64RbRDQVddY4NbX303A3t6mc
UDAVn/+NWJr/SsPFU+o5Og5U9HG2iTdYpKECr+KSnQIVu4PM1Wg7q5BiYni7
tJuCx//x8h0NrsLzLLdV5wUo6Nh0L3zP+mqcamcTiuKmoJyiVXL1lmp8NO0Q
HLVUgbYa2hQRiWrsOG7AH/ClAu9mPfz8V6Uab6zUMN7WWIE5ZVKBbrbVWBeT
c7DYsgLV81bWbaVV43vDaiOVtHKMUwv9+Eu5Bj0CRZu+xpSj3Ozm+1EHa/DA
3zsLecHluDQZSOHUrcExb3Heb3bl2D+134nDugYXK149sNtTjo221Ki60Bp0
sXnyObKtDA8F6V4Zb6pBWx53vrz5Uqy249V/ok7HhcL1v5cGSlHthZp5xiE6
Tl7decixrRSfqK4WsdSn46aGKeXV2aX4Ygp+PD5Bx6uJq+WXy5biuFSdjXMo
2UdaJ95n25fgdKwC1aOejiembuqfbCrCX4LJ9YQkAx94S7MVFhfhEPN55GE5
BhphV11nVBF67HtDdKowUJqbW176SBHeD3kk91aHgX2b9nqFdRVixS/PmEQX
BvYW/OSoGivA7uMHi4KKGRjx3v6z58Z8HFj5uiSam4kSnx24bs3koeN5p1+i
G5g4IpUny/42DxveKXg1CDKxIfxPZXhRHnau0mxu38HEx829u8R25KFu0WxX
LjDRJ3WyR5KcU2bH7Cauk3NLtzHn9inTbDxt6zs52cHEUo0P934oZeMe7bNq
cq+ZuK/TKjdEIBuPR1SEu79nYm9bw1BAXxYe3Jj/9eEwE9d73GLKeWXhDVqK
+o5ZJrINPhFsSsjEsUtl1JxtLByY0nAwuJmODdksC4nTLHzYPZKhUZiODrOD
PlFnWcjmuyNcJiIdret+2L/2J/eI093kRe10HPniUu95noWxglNuZzuuoGhT
mOiBFPL16QPh/O1pOGgmszGR3BNl+3xG3ginoD//uzqC3EN/unDxRW8yUkPz
3L2/sVB7aNlWLE4m7+dh0vZJFqpff0QkCidjkwC/YPBvFjoKRave2ZqEMo15
CvXLCZQyWTP5cPNFPKr8NiJTlMy58lPT2u8S0Up7XVmbOJn7N1ntvJeXiM95
34jO7CDw03yOZYlAIhYU+qsq7yHw0Nbn39bxJWDZ6DpCfx+Z29dt2dO2Ng7H
r8FcjzGZo19fzx1+HosFUk+LYo6RufuTpfV8SiyOpcdckSBzgXUgr7AgdyzW
Ms57GJ8gUG/ySDsvZwwWO6xrVXMh8Psttk/srdHo7xHaW+JG4F16Ze94XDTK
zhtqzruTOfzCob6GZdFo+ynhc74XgQc0Z/8JL0Rip/73wrNkTlFYin5ady4S
i18ZL1wmc8xpF7dMjT8RqMw1V0Elcw4H99Xa/T8v4FJS2/3GCwRuP8qz6+WX
8+jPJyEbFE/gim67jzGvQtAqdcHKkMxR22IricPWITgn1uX2iMxZwjOdTLbe
YFzm3/hKhcxhZRVsVe6jQSgrr47L8gmE3v6v04sBuN360hcNMsdZTsf6J8cF
YFCV2OuwUjKX7wsUEl4dgLfEhIRrydy32Bl3VJHPH8vTlprYKASWrrjpLrnb
F/l2Fe48WkXmoHGeHGUnH7ymfaBfl8yVcS30hA1eZ1FqN8/UQTJ3Nms8et8Y
7YWforU38zEIjEqsvxmZcgZ99fYqzJDs8fPSDc3c05iVerrsOel1b9v62WqZ
Hlhj8CTWnfQ47bxPT2wb3bHXI+WP1H8ep9RGW/7wFOoZtz4YJPmopl26do8r
Lj4eOQ5kjjb4lrP5w4ALbjUN3jFIsnF9B937uzPuufjiyAUyd88Lu/XGsTuh
xz+4XETmcqtB69lVPI5oHrH+6rb/cvv7bzv5ZezxnspWqWKSQ/s3d/IessX2
9Voz60kPeLWp5+xyaxtsHXYWiCQ5IOZhyI8zx1Ha51TqMMnW3eHub6OskGGj
aHOI9AhX9eqbt7ItcN/+2rA8khsNRj9n082QK+3x5Mh/nvd1wNMbTTHvnvst
GdJTMrWCI6KrjfDq1ogeL5I9Vqs82Naph/4jc3pUktkUzdNvzeugsfZL3m6S
J0+KDhvuOIQbdH7uXiDZne+DXWPxARz9YlW4lfSow3e3v3g+pYwnNvy230vy
S794znuJ0miS/ST4P49jL71cef0kP/LveT74n8cdEPStU77KBg7hixX/eZzX
Cn2xX/Hb4SC/XaMByf1KM1vGfBRgd+CYqMZ/r3+cof9mqxqsmK/5KEXyVLTn
lj5XTeCeKxvnJrnJNeGP4f7D8In+xuwL+XyR0YaPG9YfhQQFC57bJI+keGZt
GTUA2yKJLYkkP7+d4hlyzwREhi3CDUhWirkuderpMej/9kuRi+QOhuXulBvm
sDJ6g8Zd8vx0vTkPscos4ejJ5uLTJD/MlPjZlmwN9K1CZrwkL0oJKE84nQQp
X6Fbh8n7uSG4/ZaVth0cp3o0vibvd2JeZN9NCQc4JfPbyoHk9vP90nUBTnCu
RifMlqyPpdGaldauzrD/ns5iB1k/gnJ2oX8sXED7zDKJAyRfNAlTkVZxg786
WpaLpLcdXuG27s7OU6B7e52TBck+p9Rzjwq4A+9xpXUUsl4HLtU/M/3rAZKr
d5pLk/Vtd640QqDJC9pOvoz4RHqblciViFC6NzQ3mlXMk/3j0V7r0FlwFtyV
rnquI/mQlf1k40Ff2Ck4MLyN7D8lVsH9HSL+kOFyN/NbBYGjt3uLVXL84bN0
7cd20uPWyKxfob02AA4KBrRTyX5WGORaNFoMAHH/1EJNsv+Nj94M2NUXBMV6
Wmu3kfPBqf3XuY1WwSC+ZuTyo1wCXfjvbv/7PBg4x1tuuJDz5PDa/omrd0Og
PDxh6RI5f44MzRzsLToHa/pfxUVcJj1Lfs/+/E1hUK44bfL1v99Drfg0Y5wS
BtMuu1oNk8j353bJV50/DwVKNjf+JRBYVd+Wx2lzARo6BemcUWT9H0G71FcX
oGPNqneqEeS80oudW6MXAZaJlg2O4eT357999I9qJBTqP7lQFEp68Z2ypMak
KKj8O2p4x5dALiuU83aPAekBhePFDuR8NtfqnKuKAfEtz7ZJ2pHz04ZTPnY0
BsS+a1tV25DzjHK+O9YzFiptylanWxLIqBVtPnQmDmQGHVjzpPd1W7sYVXkn
gNvuuHgVZfL99Te2vmUlwITbqyBVBQL3Pw+OWzaRAF5prv1ysuS86Gjv1j6b
CGkK7WKcUuT5PnxzIfjsRfj4b0e4Cel9u066bkvxTgIrNyvzo2wEpg9ZLhix
kuDh1UntBwssHHtda8I1ngSH8kvvKMyS+/VCxaZTXslw2dhAf5b0QIM34tta
TqeAvP+VX+JDLMwyGLg055YK/+7knBloZiFFQqX5q3Q6GOjkfNwQyUJd2DWw
62g63M/pO/mc9DZhs857bm7p0HbpdkFUMAs7WLFFL0vTwVrJ9+Qrb3J/swwE
/TdlACugc+VWWxaajGo+613IgIV4nLdSJV8fqKu682kW9Dq4e58ZZWLOUqz/
y5Es0Nc7slZziIkCDfGXgjiyofg8R9aaPiZaJFTJXj2QDe/z5cwzu0hvO+N5
ZYTIhpNZV1r07jExesok9VhGDoiKzhe4ZDCRdci1eNIiD+blKlgWe5ko5qGV
ohGQB78uRhCtskxMnmY/k5CeB+X9qsnyUkxEKcXXbC/yYJPMp/5vW5gYXD3s
XqqbD31GA7vZ2ZhIld46dl6lAJLbt6+obmOgqt/2ySDeIrBHHJs2Z2DayVHe
ThmSGZKHTxkycOf4y7U7DYpgwuJVU8dhBqpw7blwI74I7G5e5Urey8B3391V
/eaKwGoy1ZXCz8CN+KjFYrAYJHdc22jXQ0dV0Yb36YxSOGj7KXy5OR2/3pT2
tHxcCnFGZg8ryXx7TdtfhHeoFKp/1d8AMv86HjTy2bumDFSW19TaKdAxV6Pv
rM3hMojK11U8tI6OQA9c//RaGRhUd1ysfULmb6qk1Y5L5ZAuYZK3R60Gb+uZ
S/nnlEOVXYf+qFwNvvR+t6mJUg48M7OzRTtrcM/Ybtn998ohdSf9+I+NNZgR
cWOO/Vc5UKdPOepOVONVvcOtJScroE1I4QulvBqd4jPa5qUocOZ2eyVwVGN/
WN2xdmUK9AZesH0xW4W6wheVcjQpoMW79rD1VBWqPfwyI3ycAp11s4R1bxXe
8sUdMwkUqKJcUt7YWIXBNq2NOEQBt3d5nCGeVXhpM7G+Lp8KTiu97Zc9paHT
SJHGFyoV2giXux+Qhjd/8p4RuEoFppp+fu0NGn6Sqmv0aKXCzW0tr3TLaaT/
aHS/+EmFrL4HSUqhNBzYUv+Apl8JS+w/Dbh20JCx5/mo/+9KOKEDbVfDKvFL
zN30EXYa9PA+Gpg+W4l7aU9nzNfQIOqi9idFl0ose6w6KCRBA53Z9Pwig0rk
WFXzw+EYDWx16Cclt1ai2rScUAOdBhn6gnzCd0jfFPkbFne8CmLqgnzL/1DQ
11jQdpdLFcxd838s9Y2CPC+uZz72roKrnp/86H0UtLbXmZuMqQL33wYdRY8o
KNSRbzrFrAK5Iz68GpkUHOW7lMBcqoICmehXQTIU3NQtVb5YWg01l4RedNlV
YH7B2dPiNdUgVSd2IuUY6dtXD2zSrKsGzezn1po6FZhLdWPzbKkGyS3Gdwr2
VKDcim/zvqPVsHLyRsjm+XKcG3uWYi1XAy8GRjy1csvR19qsw+dmDUQXRXAc
e1aG0k0dru33a8CZysYRgWW44Y1b9rYnNWBeOf+OVkd+XSMXG9/VgNABEaHv
eWU4vT5+MW+uBobeFmjruJWh7bYLDjv20+H+o0+znnOlaH159Il1Ix2m7K/G
aFmUYLqKzOyde3TYd89ohYR6Ca4XY7YKtdLBxMX32JJoCb6yOLa3tZsOcbr7
Hcq+FSPx1Ub+xQ86bKEuLaXEFOOjmgihGmkGsOVc6earLUIJvMIZmcsAGX/h
jRs4ClGDkXp9UwkDilev+Ld5tAAHk863UagMyBM/el7oeQFa8Q7sJK4x4IEh
zZg7twA7+s4kBbQzwIYrYkWpdAGqC+/NwX8MkGt0sS8yzcfjLRQnMzsmGFeK
OG7Ny8Xxc5xzqS5MYPdoM+IKy8XQPP78Zk8mcEtbUsZP5iK7n+bwpmAm7JP/
XkUVzUXZt9ER1qlMOJCqu/wRLQfpTgJHT95lwsYt+ufeXM/GJyyRV8f4WGCe
KiYT+iQTjwTwrU7ZwgLKQmFhOT2T9I5j/PdEWbA95Wfso+RM5PNorVglzYJP
uQPDC0aZ2BBs6aKhwYLpnx/eS3dm4J6nB44Ku7Egd7ZLOfldOq6KgMNVTBZ8
UdKu2/skDe3UEmrTr7LgZf6iTURqGk7JjPUE1rNAY8+0AZqn4d2Fg7Y77rDg
3gEuTem+VEwzHxGUa2cB1/JsDtrPy0gvL8gZ/sKCOn+NLK0tKVjAE+tm840F
F+/dieLrT8bHilJDbRMsMAmTLxqkJGM4r8mXtBkWvHkwlO8hk4z8i0vzj5YR
UNKro7tDMwl9HxynvhIioLggh/+s60X85nNo8ZUIATmj1vhB6iJuCjWbeypG
gBYjMFJ7PBGvfF98TZMkYOLf2ij24ETE+6WcK5UIoBzcL6SWmIChOmVNTkcJ
WLDIiaZUx6GdBnXomz4BtRuFQ295xWG/wwrqWSMC4lR7fJ7Kx+HcNq9ROzMC
yp5eLO69GYvxh3h8hk4SsOdmfsrTthjsbbny65I3AWPxCxntX6IwdAVH8Xsf
An7kZwzmUqOQnQuXxPwJOLWCLurgFIV8v00msoIJcDWr8Lh7IxJDLfnsuCMJ
iH69nFuv8AJ+uc1+b300AdLLlRezNl3AZ3f+dq6NJWCjQ+ymt5fD8drjIv7x
BAICmK3Gh6POo4ZlyLRaKgHBY0aht1zP4YW1Dp9n0gj4GvNuWXNvKG5Lexxf
nU6ACsVktsUqFPs+c3f9yCK/f2rqi7qjISgxkZu+qZAAe9e3Bep7glBvVfVU
fBEBqRt2reCpDETWI9f58WICZgMfSvQIB6LSOvkNFWX//b8MVerkugBkVt9X
K6gkwGbI9ZHIT1+k0bvH7tPIn49b2vbhaV80Eg053FdFgEy+2PCDVh9k2a6d
WqghwH1TcZRojTd+eGCntUgnYLjZLkezwAvfdE6p/WYQUP0pYfp48hlcjG8Q
fcoi66HJstvX2xODUm14aAQBbj7b533tPTB43Y7S0FoCtI1r6j1N3NGuTK6B
/RoBYeuPSOsquCHf0B+1myQvcuUnS4u74o7lf5z/+7tKHlGBp1wbXfBtxRMK
5ToBHOvEdtVPO+J28QO3lesJmBv61svR7oAysdtD7pAcVLX+VjbTDofdrXrU
bxCgp7r8kkjqSTxhSHyoJfmthMCvEp8T+DyBM06ogYDGK2VFAses8dYRrZcX
/vu7vz9/pS8pWuK7/IP335CczX5ee3qjOao4D5jvbCRgn2ls8okZU9zjuCmZ
9Di4mvbJNIBlhCEyD9xqSI69rx0p7auHihqvhz6SvGb05/d3ijo4+ElzBedN
AkwFrw/HzGhiiMafJ5Ikr6rNcTbyVUNLmwkFIPl4BNf+yzPyaLZB9KARybu8
Sl6mzWzD//9/OQbv0gmvH753/geqP1VU
          "]]}, {
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJw1m3c01v/7x4tQRpHVopIGooFI5SqikBZJRVIyUjISUTbJ3nvvPTKzLnuv
e7yTVKShUCpNou/rc87v5x/ncW732/v9el3X9Xo+zrnvzVdvn73OsmTJkjus
S5b897vlxw6D4GYKlvzfz8TBM5UBhAMfvSvb5qgGGlXdrV6EyyvXC4s7noN+
neiHDoSf0/X7hNddAXWtmkUTwrE6P9PXOl4H602KktqE7xiwHhF6egO+Jgtx
7ib8bs0qKfZ11nB5zCCJh7D1eTvNhU5b2KXCP/GuiYJkLdehGQd7aLmt+raa
MNf3ZVIvtznCZcPfkT6E+yKGElspJ9iiofz3JOE9Yz2+mV4PQLBWTHg14dJV
Bmm41g1WeZe/H2ikIEBaKXKHjTu0NLNa+hLepnJLI7DTA9TubQ77iISt/bOP
O3iDb5yQfBjh7T/P5SX1+8A1N6FAecJdd+Q2zWz1BXmhMIObDRQUeMwJuTD9
ILlOmfmvnoLvJ3q/1EoFgJuA/tIgwtFFPjPfPAJhZubw/bg6Cvjr+3wy14SA
fJVW9xrCvHU/m+VbQ0Cran9/aC0FosX+k023Q+Hh6qO/7WooqMmb1+1rDwOH
DfPPfleR9YoC9oI7kWAa9G/4BOGfO3h4hDdFwdNVq8PiKyk4Lmdeer8nCvhE
V+2QqKCAavgspSAWA0/tbL8se0xBfHG6vslAHLjfnCiSKaXAYa9SXbJTPGTF
T2zVKaHgaCjjNnNrAozFX1EOKKJAbcx0k8T9RFBkv7wR8yhQSbcMOCSQApui
TuQ05FIw67NJocEiBSLqIqeqcyiQSlJ7o4QpsH9MIS0xi4IQ29zp7TdS4eNz
1qHtaRT05wY/6Mc0WMe9NxFiyPrNbLA4cCMTNolPsfdHUbBm/dqtie2ZMHZp
UFUvktRLdkTWb7Es4BzuV9QNoyCs5UpIwkgWfM7rXc8eQME3ENgQeSIHHJTW
Sau4UHDyjPOSvdL5EF5N/3frPtkPk9DKLY/ywShRpTDciQKLWZMAnnf5wMtl
Edd7lwKbCRGZroQC2PNesO+7FQVDlpo3XnIVQfniC/6Nlym4Ie9jvudOCawH
Z+rDJQp8QkrXvUstgdYtos4FFyiYXjHPGTFQAk23Wew3n6Pg1PlMmzeSpbD2
W5x8sxZ5/+7Bj+qvS6FLxc5jVIGC9/J/RQS1y+Cv/DGLIC4KDvVgrt2mSljy
3T2xczkFBt4yQU6alSDd/D5sgY0CZ4WgN853KsF845+W80sokLU8UHWrsxLO
LfDr9H1ngrWk/ktu6ypw42HtrH/BBO/ugqW7G6ph6Qtu8yc5TOhYKjPeeK4W
RFIOy2lnMsGvMKxiqWstaN649XwklQmGpvGFB3Jq4burWPXHOCY4CTuPx83V
QrDvOVpHABO+LGU9zJZcB59iPhwJus2EdafvMd3e18PqE9+iNPcwYXiXNed7
hUawtWpnnJJmQmU0a06uViP8pR4pnZZgQnt/iaGFUSPwL5Y/UtnMBJVbNxZf
+DTCr6O1Gp94mTCbxxUaQTWS+1SXNphhwOBIxchh2ybgpkVkZOUwQID+BW7l
NMPKq395+TMY4MWs7cirbYZwMcVOp2QGGMasor/pbwZO4cj1B6MYIGf+9tLx
H83QJcZi7+PJgAPLvFueH2mBgGqVGSVDBnCPaY1tet4Cumu7NknxMOC65SnH
1RxtwJmQvjycgwGiARLdWuvbQOioR9iPpQxYt4t3h+uuNnBVTA/L+0mHDi+l
r4zzbUArk7RhjtJh28T7tfI5bSAy/ItPopQOTT/O0waPtQO74x6f16fogJ/V
49Q9OqCrReRligYdhty1vSsjO2ChI4Xrkip5/zrbro25HcC50u0n7qODpdCe
Y68GOoBh6Ct/QoQOt0Ufu3KKdIL4s/Tp2x9pMJtqLL6+shNyqnUkvj6gQbRn
ePKv8S7Y6Lqp3suBBiVN4se1vnfBAbH77AI2NPDb4R0Sw9YN7sLyjVtNaKDZ
UD6zcUc3XNY4+FdQkwYturttXt/sBrYXHouSgjRIevNsUOpHN2y0tEvdmzMI
srFhw41LeqHOZpHrcOog/KPeXT7M1wv3VtVe0YgbBMvv4v+qN/cCoy514FTA
IPAr7XeLVOkFqTiNWSnrQSicHuaf9+yF6rmbT8UUBkG1JP7fHbY+aPb41ybj
NQAqD87vX87aDz/faNpy3RkAh+UcgV/5+2Fo2J1r9NoAZOYpyNLF+yHzuJGw
peoAbPfPuHZPvR/2xG9ZI8wyAB9nZnsvP+oHHuvCseYH/eDR8NXfnWcAVlx6
I+lv1Qd109I9HhyD8MNruuSkYR9kBe5eNFs1CPKftjesONEHd4rZg48LD0Ia
Y6uHqUQf8CcJN81vG4QV5foHa9/0wn4zl+2S6uS5RQ3HKb1e6Cwx4sj0HIRV
TqNVs/t6QPKFWD7r/CAcfHn6OMfWHmD4t6nIsNBgC8vlE/z8PcDaH71RdwUN
HF+rtQjMdIP4j2cpocI0sF4b+7s+qxs6N9/zY8jS4MUP98lCgW7wqX+namNJ
g6vLPidvn+qEc0/N37AP0WD5mVcOOs86QZ576krUSxo81Nlo5tjWCb2Bse83
vaXBsayglMLkThBV2se6/SsNxAssV7frdIKVwtDJX5x0eHI1MayspgNu0kKS
sw7R4dxG5RtZnu0Ao5dmZJPpwMr7tfuMTTuolCQr1WaQuiv3rP91uR0MHwmx
KueRutflviGr1A7vlmmw76ugg1DFGcMbX9qg5UBJyUw3HdTUN0U9v9QG0W1x
1r4/6CB37PmrNzKtIFntWax+jAEXHCplJte3QifXls0HTjCg7+JiytTyVsg9
ajUheYYBj/zk/o2Ot0CUucqtvxcZ4LRNdktwVAuc+Fx50MyKAXZ/OAS5FppB
/8G+dxcjGBCyq1Ihrr0JdMQrLB+/YICvKe9ds9Im4PS9ue/WawaUCHXn70po
gmrHXRfE3jNgf4OHYKlNE5zf4ZLqTOYMd5K5v+OGJni6XnzN5FImLB+KPr3R
phFYtLmcKrYygSXZbPln6QbwMzbTWDBnQsGuiJ+GLA3wzK4gYcktJpwNXXup
7Wk92Jke27RozQRXgf5qJ9d66BX8WTbhSOZwMYq5D9bBbQfq0x1fJlhMBkZz
2NTCcm22yrtZTGDq6j8+W1ANQ+a/VXhfMeGST8t19KgGtlXtvze+ZsLmkYts
2y5Uw/Q8uEu+ZUKw+5m9r9mqYVmvPMfuSSZo8/ib8BpVQaiUIf3vDyb0hp9X
vMRbCVXudi0J3BS4X3F4aPm+AuRiL5y4sIoC1ax75nfrKqB13D6BdzU5R9ha
V9w3r4COmpTg28LknJRZ9elYYzkcHJYv/ryZgusrq85PWZXBHKeO6ld5CjS9
DufkHi2DZ3fSvl5QpGClde2ea+vK4NaNBYN6JZL7Iu6s7Wx7DPGvHM3vAMlt
VfXGFzc8hiM6qirpx8k5LVPMkddZAlFLDDxZL1KwNCyfsSmpBNqGdjUIG1Dw
IH3ILdyuBN483Fu4jZy7h0Zmc26KlsDSbbWZcldJrhgfKH41UQRXh15/471B
gXRG4LjLwQIwklgX1u1IwRzFsEr9kA/73CWF3Mk5L5QRq1sfkQ+pWn+d95Ic
kPc+/v7r6TzYdP74lLcrBWfMY6xeJuTCDkdP7RlvCm5lffrZezwXNnHFMO8/
pIA+OOxY+T0HfnDpKbE9osA/MemJA8kZBv4XUv7LHX2aylcq5rPg8K3Q3p5Q
cr2vGe/vZmeBdN+88u5wkqsqBTlkdbJgHUMtMDiCgoYb5qbxeZnguVuqTjma
gvaVBjSZCxnw0ubKRaMECjzri7/YVKSC643Mc7mZFJxXn/R8fyUV9PSdjWtJ
jkqsZpnV404F82rfo53ZFDQvMa+QupYCUw2awXSSw7rKJxa1NydB3dmq3bmF
FPxD7hN/HBLhV4b/TCjJcfoOvuGJ/Qngd/SJp30xBfIF3x7TnOPBqva4lDTJ
gbv+fEucpmIgpjDa5nI5yW37xHaY7IwBzm8BlAjJkbK8RTOURzQwJE7wPCN8
cZfTs5xdUbCwy/HXQZJDFXgCNTl9IiH/a3DuBOG2jNR40xcRYBzYIRNYTUHL
e4/7vI/C4W/Xn9LOJxQ8+iJleHk0DJgHcosvk5x71ii4IVs+DHIlxl1nCLMq
amZKj4eAaqFZ9FKSk7+H+zjfUAyBum+2rzwIB2kFfVAXCYZCfu9fi4S9zM++
ErgbAIPPjydPkNzNUNgiF8bmD1snv0gakpzuWmH6gyPyEVT1Cyf2Eh4zdH10
V9wXRNWSfvyX671LaOdflfmQdTOViyVczN/aAareIGJ+7sJPwguVDYfj6Z5w
ecNpE23iDavq7KeOfHUDLFux8yPhN70Cz9YvdYWENwkfpIl3rDhdvC1/433Y
8uSt303CDUOxoXuV74F22sDqTMLW1hUTjw3ugnGLttsQ4dYt737tdLaDTz9P
M1iJB72s5wlNjbUGRl8vlyRh3a1Sy7ZYW8Lx4EoJzf+861Gn7HzBdRhSZJP+
z7P+SvslxjGMwNylVNDxP28bm3gnr60LSt0Vb7wJPxjL/B0VeAQ+HVwZHUj4
q9DZDVwLW9G1sHrXf57XdnLF33UBJ1Ajt7zQj3DtVZto+94LuOIOK58b4ZOX
+ZUsc6/iU46cC7cJ+7kr34y6aY6SgtkP9Qnz1Zi11uyywiEWjvgDhO01jM5a
/rFBns8D4WsIpzjXKHx/fgd18rhsZ8jzhjCMVB3qHNC7qU2+kXCLrmXWbKIT
UnZco36E347NhZq7PkCsmrp1ivDR/dHxN3a7IY+SwzgPYWGpiGsbUt2xz7Dx
YDtZf63HPvu7+Dzx9MGR+46EbyWxVFp7eKFo5ss0ccJ7IdFm9aw3/hEZLeom
+5nj/mlZ0bWH2D/+O+UG4VrugOWqTF8sfad2bxlhz8v8grSjfjjcP64QQ+qF
2nM6/+nWQFTwfGheSOpr9sNRU+2oIJSSpj2XIczpc7rdkDUEe50+y+aRenR8
xg8NdqGoFqIUH0S8zkEnkqGiG4HlelEqK0n9y9qwKupxR2Ll088zl0l/3Dn5
uvxaayRSwXe8c0n/fLM1k7gpF41c35kWO4nXeedd1pcWiEMF8fciH4nHJT1b
MsLVG4dBgrGrVxDeRlMcHveMR7X9h7+KkX7Ofy/mdG82AZ04bt86+l+/21nk
qdKTsXSsy1w5n4JLe5wLepRTMOBzqvhh4nVF75cF2ESk4P3IV5EHyTxRureP
txRSsSXAK3YrmTfT7bFv/kamYX1Ay85q4nHbeJ3LvKbSMLr5V1xwKgXDGtfe
chxJx67x4kbjFAosl6Pgkul07ONjyv5MpGDHXTGriiOZKP1Yu2mUeB/n0ccL
gtGZWPTkz2wAmYfKX3SP2Uxn4vXQ+DE54oFz7tYVwtFZaLdp9cc7ZJ7K7Y+r
2DydjR9enmisCPyvP4VWrYnMw/tGKs+U3CnQTt/6YN1kHo5ouzHDyXw3NTLW
F4J83Po7KGTiAQXrfPVZ5z7k42vpZg1Xcj6IfXR9b3WwEG+lHum9bUfBRtNN
TX9fF+MCvLU7Z0LBq32xfAHhjzGwsTNtnwqZR1Zn54SaHmPm5OTjSnK+/fh1
2D3h82OcC1jI3X2IAl83F/lojTK8FDxyajU5H3umhLo1/pVhRtuu4ABpsp95
k4diLCowcWPiQ0Ny3m4If/GpPaoCP6i7Gd8XIPvb3Ww501KBvtm1MpF8FBTm
RSdKi1Yi43NoVjnxxBVzv60M6ZX4LufBlvx/TFj618DZdX81urktF3J4z4Sa
3AfzR02rUTdrb6D8GyawNa5xZg2vxp4dw2yfR4n3hVxTs5yuRqfCK/9ODDPh
V49q8tukJ/hscKNMSw/xuOK2fXYstWgft0svtJgJE9lxI1kt9ehT3bq8zpYJ
qvvlk7I+16PVjQSzASsmuLh6rE1a24CrjtZvfHmDCT1VRZx3bjegXv7+lImr
TOA3EPOvWYf4QX/V0idnmVAxfYNiKDSikv5z5ZPEGzdVbebWf9SE9xfTX2tO
MkDqUTH38aQmzBMUzsx/x4C0i/3SsmVNeOZY0wQ7yXPK3+Jr5l40oUrc6EzB
EAO0X/QZnNzdjD/tYndVtTKgW7KnhuVpM8b9zYxoS2TAvHXsaweRVpSdPOXO
0CLvFwnkvba7FXPTLYzG1RlQzKJkoqHaip83mMdNH2HAt02hZhwWrSip8Fxq
VoEBX3bsNTpe3ooutUdedW5hwJgGv+hzjTY8kKAQFj1HB/Png44iNu14iv3m
n26Sl1/8UHho4tmO7/5eGD5G8rR/wz6prMh2nF3hotwYS4eaGEuxtTXtKB9b
m5geRP4+lUennqUD5UWCKTlHOqS+MpmeC+vAkzO7Lnpo0mExuAN3FndizrpJ
S8YUDez/yJxVau7EtMZZkcPvaHDzy+L4YaoTF22iMPsVDXpunplUnO/EMy4b
h81oxAfiXP4w1Ltwxc+R2PxKGmye9rIqfdGFPTSfeRU3GtyuUGx5y9KDua9f
Uw2raFA3kjnCIdiDfqul5AKX0+CurqTmlu096HvZvVFvKQ367/0VUNXqwbBC
N8uRb4Pw9PRT+tbwHjzBp340nxqEEPMNrnabe/Ez7wGaKfHCDBbOQG7FPuRf
9NxssGkQanuXB3If70ORp5o71q4dBJvI5efY9Pvw4ac1CnS+QYh/f0L6tUMf
Tnz4bafIOggHfq8JPVLVh1WiHkr5PQOAtRL1qXL96BI2+ChHdwBcOvY0t0oM
oG6CZObolX6wTr969KniAA5dCeq7eqYfWuzWC4wdG0ADnUf3Xx3pB2+ns4Ev
rg/gQGv4AxTrB7FHrq6OqQOoUeLnsONtH0zKyUcncA2iK6tzYez1PhiysT14
1WUQ9R/UhAtc6wWds1vrWXwG8eleMYEzZ3ohxfq2fVLgIF7kkLrqDb1gnDPv
2ZEwiGPi9c7U+l7Ylpw6MloziC1cZfICzB5gV9oWvP3nIIZ18evwqvbAA0Xt
zcssaGjGtlV0x3ri3++7LTmsaThAz3UyX94NRV1ieWwONOSVED2Z+qMLzF9q
zH3zouGIe+TtvwNdoDOzpSQkhYafKUf5C15dcLHsbPnTpzTUGPwcW0q88cKB
fy6uQEfJ75rxyyo6gD9CnIlqdNyecWBnTWoHtISL8c5r0fGtrOJWi6AO4Imu
kL+qT0eT0ncmZWYd4PVjnH3Wmo4l1bce/1nbAbctzVVFUul4UW5R/eyDdlj3
TMfdd4GOXnyBTy5AG3ie5b4txspAU9N3o+pSbYCS7SurljPwMNseURnhNohf
xnZ5kJ+BrNF8fyY/t8KGMTveFgkG1o4atYkmtYLR+AbrbF0GFsrV59jNt0B6
o2eTcRYDNe0e28yVNoNFlXv4XB4DLzRcdIpLaoa91S+TgooZ+FgvYEHevxm8
I5UNc6oZ+DHqqo+RSTPs+9dzIa2bgQzTua0PhJoh+bikUfEnBsa76jW9v9cE
15rWHdm2m4lbDha1RBxqBBkNXhlxOSYm1tafKZRohG0nBGVFFJmovnLVbJNg
I+wQsXNfcpiJU9fT2HAEQWFXu0DAKSaOz/+te3YAof/Zb9XKW0wssGwJTJur
h8m+tfans5i4LfLmBqZtLWz6fYLvdy4TzQOuvy9SrwWOALeO2EIm9pjtmXBf
Vwvf1rQ96ClnIveNcuRtroF0je0/JpqZOPJsmQyDtwZ2GPzatewVEy9GtPP/
/M8bh+7PnnjNxL7DlOJFt2pwuq3QFPyWXC/inlGVTjUY349wYJ1i4p0d998a
zFXBIzmNfem/mHjrfeZevWNVoPZ+lVzLKgr3tTat4hmrgMcXZ2QKVlNYoqKv
xVFWAa/XTW8NFqTw+271c/PeFZB6b3aZ6noKI9fHctCkKqBgINz66jYKC9tC
T8o5lMMMd9hJ1wMUOnbwFb/jLoOQtA+sO40p/KGapH9SrgTyX80XylyjEHSG
EtJXlEDMWC7bzusUSsl8aP9YXwxc4S9qhSwofFmWd1SYvxiO3+HfV2BNIeem
/E1C9YXATBn689SF3G9x8VzFqnx4KSSo5uVG4YD+k87JJ3kgU56yb6cHhYKN
x76sMckD95YFzpveFKr7GqUaV+fCAdPYW/n+FIok9b/OupID7zSXt+2IplB1
y6Vw/pJM8B9KVneLoZDdJf/fxIVMcK4ONKfHUpjp+W59FWsm3DosEmCaQKF1
xOsnaucz4CRDSuNkKoW09P632xbT4BxfYKtTGoXP2xQkGNlpELOk62VqOoVJ
6ke6nM6kATO04MNoJoVCAdtt6zJSoeONlf76PAqfhos2cWmlgF7Jh5oN+WQ9
a9FR8mMyjKoJP1lTQGHfSS8X+YPJMHQ29uGSIgo9deevyY0nQmFfrmlwKYUB
S8ROPJeOB+fz+1OuP6bwVOh228ducbA0udBuXxmFc9Tnf56MWMh7Zz/RUU5h
1/4t//jvxcAZDqkFkjMxf2Sj6nRLJNR2CD0+U01hemfh8PzaSGB1Oyj/nfBZ
Lx0TdusImE+Oz5SooTDP9sFv7g3hgOz+YXWEr/Oc1llhGwZx1zZpa9ZSeEF2
6OjSzlBQzq2U1KujsHcgP+itXQgYeThoMwl/OJRinRIeDLp7Lx/SrqewVaZw
nzUEgVqGpNeuBgoLBjyvzEX5A/P48+ckd2Nr+gqzChU/uPZIdfEv4QNTPVtv
fPaFwjNv8yqQwg6JYL5mNeJtRTOynI0UTh/Xf339qxcE6xg8ukD4z7LPRcsS
PeG4unB+OmGJ6KqepOMeENy7MvYD4YP6Io/kvruBxo29OjuaKDxxgc8mAFzh
5Wvb4auE94536OVE3YcDcs1SMYQF++VM6z/dg+cp/JqdhDuP7FbpPeoAzZmX
5GYJi46GB1Lxd8DnX/Ak8R5MSlCaGv5mA6dys2/uJ2yhtPRvWbgVjLyIq9El
HCDkQys4YgH3V19j3iC8dRwTkmeugejS+SfOhJcee6a+/oAhqCZdtnxIOGtF
uN6XqLPAKer/gXgcxm6vG2TtAZCZddlDPA69tidmefhvxaUD+9X9CRv//PD1
SL4m2qfWbfMgzCVadrP/z3nkj13BsCMc/+fY6vmTxrhki7jWFcI1Rj7dnKmm
uDDJG3yM8N5UvbWCs5Z4ZYRKkiAc+f2BQUCaNQqLODmxEy50ebnHT8sOc4XZ
xV41/dfvnyw8v9vjThvPyBLCrOU0Y4dER9RYucB8QFjVveTudXVnVFjtOqZG
eKithE175gHWvBKqXk44NXKhQuiEG4oKMC4Rr8Os5YasninueNzuD8dewpI7
xbNPanjhbqGHvGNk/21lay8WJnrjHgG3d76EFU5NjbN/88Fnzct/dJN6YfPy
kMqNe4TKY227TAjThsQ0vn72Q5m9Ggq/Sf2Nv+j/sVc1AK/NcxbyEr78vLcy
dSoIz9Hd1keSepXZvVdgYmMIbkmUOi9AuPRml82frhDsdErYx0rq/VhT7m8+
0TBk+Rgdm0b6RbotspmnPQIrLafkZkh/HQ6QXHfTJRLfpeiVyRNOZeG43rov
Cnkq1C+WVFB404WH7Wp2NB5+VqxnQPo37d9sk5ZvHPbtG+J1JP2dwH6Z487h
eIze8qE4sIRClTLp1Ijf8RgCg4lZZB7sziljaTBPxMYRg8PBZJ4E3jX/eE48
BVMXzSScckl97DT3Pe6WgvEPE/5czqFwe7uVx74XKSil13xaKIvCVfqrNy2L
SMX2evE3B8g8O6nuL32NNR3vmrBOXI2iUJGn7/va15no0t1kOR1B6qv6+rbK
g1n4NMT25e1wCjd+qxQ8EZOFoaYXHpmEUCh33rzd5FQ2fvx3eRWbH4VBJaVJ
6vU5aK05p7TlPpkHZx2zKqLzcaPVYKuWE4V0hytpr7/lo3iYsKqVI4Wf2uwb
2U4W4Nx2gY2pdwjXBf6VX1aIMyNvrzXcpHCPXm2WrHUReoVaJA9dotBU8GGR
enoJDv14wGi7QOaBD9/bkL4SLBN71lN0nqzvAeX5p79KkL3EkstGh6zfN+5M
vROleE+vmlmpSa73NKlV7Ecp3uAxXnFckcK25hU73qmVIZ/smuZxeQqb98Yl
fbhdhj8Wxo45ylL4ptnjzERsGcrt5KgPl6EQP+9WffqpDHmYfpcDxCn8ki6w
715kOYZ4Na/wJufrpk9hl7vfVOBsj+XLXm5yfrnzd9/nqcSRTkXfVZwUrlzS
1yehUIldbZ+vey+jsCl7lb2dXyXW1U/oyv5hYtfJzVtbd1chFKxJiiHn/d3V
ZmJn71dju1QfR1ARE42/WkQMr6zFU5oGzz7mMTElYCF4/4Fa1C4PqIBsJh7n
NC0PNatF11CuuOFkJp5lZB6VbKzFntOOEu0hTHQp+ioyb12HvYOXz3vaMHH/
34/hvLR6TIwVmY2UYeK6gh/sF9Qa0fDWTi95SZJ/RAo1/11sxPNrptQHtjJx
r87LZynWjTj/2M/06wYmwguspeIbsS1bdu8XTpJXptw+sX1rROmh7I3D7xho
93BTpFNiE3bYUn3G0Qw8rZjw+tGXZjy2povlahgDl/MXnZNia8FDh3S7DAIZ
yHn7oUfH2ha8s72NV8WTgX6OpTMzKi1olWVb0mPFQPEd6x2XRLYg78IX2xdH
Gaiy+uux9YqtuH+T7tnFaTp6DCda8Dq1YcT4Hj+dCToaHJf8txDYhv0HNnqm
v6ZjwTfr2HepbThp5NQg+5SOpRZC7Wldbdjugg8FkY5tIe7XmWva0fl1Qd9o
MB15M69+WVXZjh085bVx0nTcPX5WunmqAzWis9ZUb6dj5UPqQsJCBwrJ+/HT
NtPx5dLUWutVnegy8ezDD0E6+q99wbNcthMPPKvbz7VIw7UbK+58udeJgUbn
n1zvo2E2i3RwBnsXdozrBbw1pyGbyHOD++u78eyjBy6OV2nY/W3Pr4id3Zg0
J6u83ICGU1xjkH2oGx999d25/hQNjZRbe6qNunGyJObLSnkaqvzNuhic3o3R
2zsddi2hYd98TRO7ZA+qhTs1G4UPIqdnvhXL3l68JDBz5bn/IFaKVnnnqPai
nW7DidNeg7ii2DxK/VwvKlxaFJCxH0Tdn/UhNxx7UXL2WEap3iAmny0zPNPQ
iwVtthnP1xD/eXpzWRTxvI8KIeoPZQfwk6yo4bBeP3pb+errbxnAlpkf4vZm
/fh7r3r4Jv4BfBM2pbncsR/nFlwjo771Y8/WK0kCsf0o3+5wcm1pP0rbqY21
Pu9HW/tfWQ929uO3luEGV4MBlHgxJvRmQx8afBi2Tt45iD96Pph0cvchn8DF
P89lB/F+Dbtn1t9efB+X4br6wCAeMnsA2i96ceUlexd7jUFUm/aRUIvvxZ5O
NX4u00Hc1q6nMS7ci13Lp1faJQ3iGq7T2p+5enBZa6m0JDcNle9GOf+Y68Z9
Kw15xlfTUOgLx8KPj9349GdGWeRaGm7lP8z5pqMb2ZkW2l+20VBSTrr1lmc3
CnQkPLQ9QsNt+yNvavzpQkZ+a06uPQ1HbxbFKIx1Yv0OynToOQ0/vF0q0tPf
iVK1Zi/fjdHwHKdxrX59J/6T6OT/8p6GXDYjelfjOvHbRvmaX99oGHpG+cEu
3U7Mb+pqY3DS8Urk3t0V7R345NDD+Pr9dGzMYTzxz25HPZW7EScj6Hi/PzX9
RmQ7rv52/DQ9lo6LZiMyRz3b0XPia/KZZDqmS1FKE5fbMVQz8IdKHh1t7DnS
Pgm2Y/bD8HNfSB8Uvsl1+ufRhr2r07vuTNLxo27Mv3MXWnHpw3Fcf5CB/Nfs
7H8fbcW7F1/scj7CQKmz+cqRu1tRo37oAKXOwHA6x3g9Rytu93u6+d4ZBtrG
ZnL3VrTgB+Mrf11NGVgqvfn3GG8LRnYtyfANZuDa3VsKBVua8FGw+6DzSwb+
mVat5SlqwmtVq35JjTNQ21bv6ZLYJvQ/lR7w9D0Dl6S/1Xxm1YTJpWn/1n1h
4HnBBfqJdU1Y2j84doWFiUHFGkFnyJyKW+thN0rmVrqn4Oj7PQ1ofyROI9mc
iVyfue5FrWhA5XVFnXo3mXhPl7dJ+XU97mhN1F5hzUTFYzEe90LqUWuNw3Uj
ByauWbw0GvO5DhtTtpQPeDNRcolo+sPcWmSr+rqiMZWJH10/t99Y9wQrv8/V
DlNMXK2/4bTq12r83Xb41JdnTNRdId8m2FmN2bJTfUtfMLFB80R8jn01frKy
8RMcZ+JKRwveh4NVKBmbOvXvExONbLo/7fKuRE7ryMJRck6s7wxSdJwsQ6W2
Cxbt5BzqH+vQEKkvw668Spdbe0juvzJUVhdchnr3NTxWylGoUX63fVKuDLdk
rTqjvJ9CE7v5M2yuj1Fw6O5vXVUK+dboWsDqUjR0khkw1CM5sY8pFvK2BDm2
XrFJ16ew4iSd7UVlCYb+DPg5fpHChmMp969fKsFAT/XsU0YUcnyoUnQ/Xozr
41JCRs0otDrspKx+owA5RD/NP3MgObJFeeeFlQV466GJV909co4urOQzeZyP
xfcN3sc6UziYsVPi6lwefvlcIKfiSuF82Gl7Fr9cfPJGc/q4D4VPDPQWhqRz
cU5Dfu/8Qwr9Dc6dyqLlYOQLf+3sRxQe3/OqRnptDk69imD5FEAhc/xd+GR2
Fi6Wb7ggQ3KK8A2bU4+0snCL69VDxSTHCNLMcjbPZKL4eptZCZJzejlsE2Bf
JnZXKTK4ifetKTO3lW1Nx+f7l+n5JpEceLeZffVoCtLfflutR3LUvjDOM86+
KcinuGmHMclZ35tvOI3tScGb8QFMU5LDuEOn3A+tSMbuANFvxsTj1ogv/Hiu
k4DViXr7hUmO6zsaomCdFY/H3dOW/iKccio4dPF3HCoGHjeikdx30I3vIEdS
LPJd6h62Jx6X+vjojr6JKFxziLX9QSWFPDs0JncpRWHiRXvZvSRXPky5tjEw
IBIPapTJvSa8sUorRGFPBOZue/dV5gnxQnlKzNszHIsbvAv7CK8wnqb6qDDU
cdL6a0o8TlVGQ+uMUyhGRxadfURy7XNLXZOA3hD8eof14mqSe93vOWq1iIag
ncP07H+5mHf90WuaPoGY2/f7VQDJzbliUytTJQOwwfHVriX/eVvEfOmXfj/s
+vFitRXhLZEZ++8L+6LEYlXQfpLTT0pN9FTX+qDTE+Pt0YRNeSdKZoy8sT2r
4cwMYc3F+7B5mRfONFXzqJDcz7/Ms187xwO5rx64FEy4zoZZbn/CHc32yyoN
Ed7qER+297UrBp0LyltLPOLqQkybjcQDPLbxYIHef95hebkk18YJMy9KQxDh
zZV5S0aeOOCS7brXGgnbWimbsLPY49/F9DWfCJcnjPju1LTFkGo+IwHiOa57
/BUTxG/jUu/wffsIH2p2jxkqt8DpL5uSzxJmDG8N5FYzwaNvH8dYEO7+yfHW
Mc8QddNUt/znccdHdNRo3Wexuatf+T+Pm9SSpcILAIN1z0z953HnxO5ka2Zs
hzUxXTv+8zj9vS6tt3K0QFBN4ZcfYecVPvNjZfqQZBav5074Thr9TnOXMYiZ
/Va3Jdwg1jgXvN8MbNnPdhoS5jBZLDufexPKrhU+VyX8ZMRNLIDbBix+87qI
ExZbu0nCvNUOLGO9Hv8jz8vGtvYw3L8Lk3f5HKn/1uN3zhNeuXtgvqG5P5Pw
9bKVH0amnOGJdVqlNWEHbz+RlHQXWKjAXfsILx7apVdU6Abpj3Yo/ST7UWYW
surydU/YsE6U1ZSw257+W4Y1XsC/cdJYmHDnMUv6+VU+8KBC1beF7Hf5UTOz
g098gVP/qxQ3YQuj9d+3rvSDBlOb3BxSP9z6w7Dimj/84Rr6DIT/qUn31XIH
wdv31bTLpP422Ypb+hkHQ5a45e33pD6Dlt9p3HEpBLhW3KbMCf/bd+79m+JQ
8E54N2dI6vvXj5I/Wy9EQOHUjuIVpB/oN+aLbrBGgmv0XJgZ8TgL7w0X8goj
wUJ87+HG//rrlPWHtSzRYN1+55cx6b/H3d7OFXmx8MJ5/qUp6c+93RlGfbpx
cLUhiy+eeNz2c8++vlqMA6k9G3i7ST9bH1Z48PlsAjwL2WW1hvT7Wj61JzVz
SbAloqX8LpkPthVW0fEZyfB71uOoez6FIzOZVkrbUyCY3pjiQ+bJujzfRQ5a
CiR8ykV3Mn/+ur3hshVPg9wcgaT9GcRDtWH0yL00eHgyLWZdOunfIhdVnv40
6M16bPyTeN1W/8O3ohzS4fV++ytJyRRqUYrc1t0ZMAX315TEkXrZsVp63cZM
sBXgCzYj8y9gccNBtMuE3ZH3n66NIc/v7cX4syELPGDtsFUkhRuurCyWuZ0N
3RedKp8HUzj25I++9+o82J7nKFrjSeEP/xe5v2/lwc5DB6rm3Yln3eD0MunK
gyMd6w4puJH9erDs1la3fPCL3LM6gXjhniBh0PhUAKOTW75ssCfeVndCn6W9
GEw1PszOmxCv5tQTuMdbAr4LokkvrpL5dV/CbvpQCRwJOahcdYX8v8fXjdti
SsA6Ju7qRQMyL7vEYpVPlsJguJq2PvG+g5YJR1SrH8OGlxwHZA9T6PO0Luzm
u8cgJ7IxpOwQhd4KHYEhq8tAsSr+nfQBCrNaEk923iwDbZaUCN59pJ/Pt0T9
2FQOAfO7hYOkKJQ9nLf5oG8FyK4f07shSGHIZQXXTWer4UY7GBS+ZWLa2szc
EOdq6Mir78ki3raYpNs/l1ENn54eXRP/ionB/jUv635VQ9m921p3SB7o9G/8
9TPhCcTVue762EO8S6N0n9L7GphY/JvwspSJ4oPpWyrt6mHiDaP55z0mom7I
rzMJ9RDuYmukfZeJP5roHu9b6yHYwWM2yZaJqTq3ov8INsAf7mg2WUsmNhVO
prZXNYBlw4EpUQMmck7GP5r9g8C5ryOQ/RC5n2XbayQONkF2wMLc+nkGCv/T
T0890wQFWkdNHX4yUIGn11/ArAnqwo/x9H1l4J69RUemQptA1f4jv9kHBur8
OhJxaaIJyDCX0KMYKJvkYq0S2gzSJSeLNheRv7deKbc41gIK9GPbHC8x8Pnh
U5u7f7TA1bUJbSJ6DJzLdtEM4WyFB18X++tPM3DbSK4il1wrTA9t3/ZJjYGt
xyJe1Pi0wgvld3wrdpN8Z2bM9VeyDebFj6sqsDJwvV5U5gurdlgyLerpmEnH
ORUXyYce7XDoxFyDH8m3x9Te35CKaofonVd6okn+/Sakv9y4vh2yeG4ZpAXS
cYkMr4gbVwdcP38s6J49HWW+rvrsm9UB8sLh+XuO0lGLeTU4eagT3j8Zn2K+
pGHngv1Kh8lO0Bs/63d0iIYhlx4lHlvohDAevj3FgzS02NfwlCHWBadG+pLs
W2iY3im1JeZWF8xGz8p05NCwun4spmdpN7B2Nbe42NJQI2yAvUa8ByxPWQtq
s9DQ1NPssr18D9i+fPY0YX4QHST0RCXVe8BTa9Tpw3fiKzrLO1zNeuCfrLqN
3cQgsssPaI7k9sAUY5+afu8gOp8rij0l3QtnZirnLkcOoscfrli+XX3g9VZB
/6b4IBqqX1b9ptwHffHbsg6IDOLw+cKhnpPk9fAIbg6hQTy4aqLIwqoPPKYn
JcI4BjFcq6jgVGEfZJ0+VDzLHMD6QYuwJol+YHgcEdpsNIAJun1dYiIDcDDt
QvvArX5s79/855L0AOyWHoLdhv24UWhUPeDQAJTrcfL7nujH3oviUnTDAejp
CRoWkerHNWIXo74lDsB0gM/N8Yk+PJs2vXB45SCkW4y/ZBj1IViuGzJ8NAgK
q/+ucNLoxWCF0J8TIYPQuy1w3YBCL86Wfje8FTMI1w7rbN6wrRfpYl/nLbIH
gS8xf2sSSy8aJgrvl2wbBI9Tx6NVantwuFVrtPXfIMQucQjnk+rBN4fpBro2
NGBlzV45vawbd+qvrOxzoAGPWRzDZ7YLL59d8kTFhQatH3i2rx/vwkjdxIqN
/jQwnmvx241dqNe/3jAzgwbfzKYbVt7rwvW0WtZXT2kQeMMgP2GqE2cWvF7+
UaDDleVJt0V6O3DvPXOzd4foMPrhsNe3Jx34q5du0atKB3nJgfKm7A58fPcK
PeAUHZwlG51PenYgt0rSiiFTOkQtb98optSBUz+1+4Mj6GD2Ore2IqsdRUyK
h32n6fDx00GzIuc2PFMqOdL2lbzOJzwsY9GGltEm5xd/0oHl67JdeXptyJ+w
ttZ4KQMS/3bFhO5pw928U9zfBBkw0fBvdMtEK0bxDHQqKDMgEg9svnimFa89
ZD99yp8Bo7v9+naKtWDqSm/dP8EMGD4YZL56VQtySrMUJUUwwG2NjsPsfDMe
FPK7NJLIAMO7V1hyqGa8b87tsaGEARAfdHLEtxkNk69z1jMYIPRrpNnqcxOa
L2EW3xZmQpNRo5VFZSM+1mqLf76eCUuS1yisT21Ecs+vYRMTbHNKdcisxIo5
Foc/O5iwPS0hVcC4EXvS1TN2KDEBMwwU73I1oqdS7YL9JSbMZDCk2hoa0Iq3
J6k1lgmacnGTAsvr8K+P+EPHRCa8z+z4avKiFtW9xDO3pTJhJD56a2FJLZrI
/Xpgk0OuHw1Ht12oRctHBj5NlUzw+sRdWZdbg3KrpPg16UyITHWX99Z4gvEn
WZx/LqPg1szRyyOelajF/8+njoOC4ywbpY5erMRHY2pWDzgp0Et2cMveXYnF
h5b2zqyigF3q0ifDlxX4fGt6adQ6CnYryn3y21eBnnv1I6dlKPhwoMDu80QZ
HnGZ4Liyh4KUUu+QZQ1lmNofqtUvS8GJpdrDghFlyLL0mWq8IgVpi/nCkofL
cE6Hmvh5hILM7RvM1sU8xmJZAddyHQqesyw5veVYKcabtDYwz1GAR1/9/bKh
FHkEM9tnzlOg/eeYU823EgyZ+LhTyIAC3yRO3iNJJfjigamauAkFp6OVQw9M
FuPoiM9+NTsKTH5H/Dp4tBDdl0ITnz0F4yMMAYOZAgzr91wxfJeCuTfWonfi
CpBN5dfweScKuDcOaQR/yUfR4hwrIXcKlNftOnYnIQ9t/H24owMp4OI/wMs1
m42jW8aHlYIpaFyWKTUUno3nTm8XfBZCwam9PsIJctmYke7IWAynoPRUJ5P3
bhb6bZgxXoil4F2T4+rc3xl4S+lI6M14ChKla14px2ZgjXebJJVAAcvKl9f6
92egLU9xXFgyBfdXifGMOKVj5R7Xqw0ZFPD7BHAW/U3F6H99Q78zyfOZFfcK
JKaiMdua8p3ZFHwxj9l991Aq3r+1I8Utl4LHGafOSrikYNHxuweHCykYVjS8
lLOYiB8u9Y6+KqJA43mGwTZIxAvGZhMvi8nzOfPfiXdNwLVXFMQ6//ucVujH
fssl8djfe0hZu4ICAZWM6PylMTj6O39epJKCLSEHCj8ciUapSon1HwhLOKgU
iHpEYaa7kat5NQVdqrdP32WJxNMWaS2iTyhouuFxI0YlAs9Hclr0E+59NHq+
3CMcPybdfbq2loJdJmZRz1nC8KCTYFIF4QmrIIN3KqGYGLmqXbOOgtbpX6OT
HiF4pM54n3E9BTdZlfj62YLQa8rEZZywqUOLWp13AH5OW7vtv89VZgn97Exl
88eiHcsilJGCz66xwbpsvvhM5ceFTMLOTXvqxbx98OP9la5sjRQkPG3imVzm
jVGP9rIaEXb5e/VnnpcnNmxSf19KuMVk9/T1ZR7o/G/XjkXCO/mOmaz3ckOx
D886VZtIf132z47mcMGTaVKdHoQnpmOMZtid8d2cwLZawn/Y554rszuiaKvn
+DThjuvfWR+y2eMjynxBuJns18JAa+cyW1zJXXX3IGEzu8JVnMut8LvGtZMX
//v+2dUcq3vs5vjxromXDeH5Wknn18uu4l/XsjUehLMMU/l92fUx47wW13/f
hwuyGqvzZz+O//99uWMsTGbRkpi6/wG2D0bE
          "]]}}}, {}, {{{}, {}, {}, {}}, {}}}, {{{}, {}}, {}, {{{}, {}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJwt13k4Vd/XAPAIKUSDpKKQFKkUKtQqSSKhkMxUosiQMd/MRCRjMs/zvcc8
0zLP3FOSkEoRpYQKhXrP73ne+8e9z+e5Z9hn7bXXXkfI3PbSDeZVq1a9ob7+
91sl6D+lVUnAqv//bMnfPKVJWV7u1Q0VDUF4t9DwWZ0y3/fdjAsaB+DQcuCE
CuX0h/8EPWtkwf2v+dhpyv+8LR2NNU5CZJTy+2OUW2tOXkyfVQT/dLFhSco7
Jf+MJ9QoQ4zJwstdlGlSLdsT/VVB5EJGzwbKb1uY12VqXIRA+W0tqyhf9no0
PsSpBcsXFWu+VRDAOVGnMDl7CZzmmQtfU97e38239Eob3GYgvYFyu+Ti6s21
uvD9/FBUDuV1A96hR1L1YMao0O8R5U9bCpX0A/ShKtvdWIuyvK+EFWoaQ93W
XSqHKJsc5nb7t80U5KuND3JRfr+KaTqdywwGdaZ+1ZcT0HNyM8vynDl8m3vx
MoZyjk7q4cLxa9DNGlhoTTnf2WP/rdfXYYnXzoiHciPTvsSZOgvo3iR24F0Z
AfcrvVLrCm9C1oOSP/mUL9qdCAlPtwQO1qMBQPnSNYlDGkG3QLStwvhiKQHZ
jD77fTp34NfQMisX5QtmB61kVGyh90BmVkcJAc/Pr4JMATtobSt+oUB5PHrp
UTuPPbhIH+xaV0zA3pNCC2oLDtDUs/5IVREBO5BP7Y/dXXi0dCj8BmVrpY2q
xJe7EFvkeqCykIC1t90HxN46gnzHjvdKBQScef6C90aLMwS4SXz7QBDw2N8v
Wwlc4IIR7asH5WLzu0wSVS5wY9NkfSGdALWU+QROuisk8n0klvIJSGTdbigW
fQ9WbFN3HMghoH/45pUhCw+4gqu/JWdT+ZbW4eUz5QEnquRUuCnLDMyryNh5
gu7px/GfMgnom28sH1HwgrVr++Jd0gmY/bguMFvZG5T6X4kKJxFQ0FK93tjA
FziEEg9aJ1LztUd9ckOSL/yV5SktSaDyoWDRp/u9LxTvurlXPp4A20OleroW
flDxeyRR4ikBufviNqK9P5wTacwKDyfgWZzf8d9BD2DxiWlHcRg1v5JC/Lt7
HsAu9v8uPX9MQNCankNXeAKh3/hRBFsoAQoCYxavngSC8s6JVK2HBEy5uPnL
ZwRB2KtluqUPAYrODKOy+mCQmH4r8NiOgFvHGxoerAqDq9/NYu/YEvBdnKfk
7q4w8P3nnqZ2h4DNk/TA66fCgOWFwJW/twnoXvueXccrDIw3zexQvknlr9pu
Z4dV4RBWvJBpZETAdHf1QDZTBAyW9J9POUdAzUr0RiX2KGhMdBI+oEzA1urv
Mu/3RsFN7c0aVUoEJB8d8PM5HwXoKpTQdpqAOP2TjMGHUdDibNnVJE9A9Lkx
hZdc0cCqL5t67CABa4iwOibeJ3Dt9a3bLJsJ0Cw3uvRw71OQ0vjz+PRGAsau
59nqnX8Krbdm37jzUOOzprVI3noK7G2OnyY4qetFBJ6dzn8KzhredxNZCZDq
KqtqOxgLtSO9Z/+bp4MF+0Pa+LE4kO/+ZzvfT4c4zaMPt2olwLuJgZy+Pjr0
yYtofXBIgKlljjL6czrsfLwrpzQqAXysG+T1eujAcj7l8N3XCcA4O0sENNOh
P09sVs80EfbNxngrF9Nhonr4A2mfBPXWxwPkg+lQd+WW8Kh6Crzan+DuFEiH
Yo0hjX7TFLCdfy6X70+df/mFMeNuChy5FMSyzosOpSox0B+bAtP2GkpRjnSQ
0hIc3fspBeKecOkOGNLhq2C23rxnKmQVDMr82keHMLK10rQyDYTYC9mT99DB
KqyMd1d3GtzhvciqJEIHA3K/xqd3aVAd3HDDcwcdct5dd32wJh2O9rTsqVlP
h8zpH0ECV9Jhovdx1uk5Gojv+vYleSEdJBzO0E3LaLApVI88djITuF/FJOYU
0UBI8muyj1YmXHhZREzRafCpslOn73omJK1zEbiWRYPAdYrhQcGZEJl0NXJL
DA12PeTYqDqYCdcXbyw8dKFB5VxDqpBzFmyUflzgJU0D3kklMZOybFhNq+NT
SMyHQcfOqy1qebBRdwsPEZMPLH3btbvN88C8oPfm1oh8iNVPLh1xywMNRdH1
rwLygTZ3s29nTh7EvE7e9dM2H9LnByuEWfOh6IrM/eJT1C86le5vyIeLP4sm
vg3nwaKW11DyaToo6pRcHJjPBV5OFxGVI4UwtXW9/oHvubD+oFoB+6lCeN2+
4bD7RC5wrtmUy7hQCJ8sz22cH8gFuaMdf+0sCmHSO2CLbWUuOH6sG2GKKwQZ
ujOruUsu6H0+32vGXASKd77+Gv+aA5JGv+8ovy4CHi6uVbPF2aAQvE+dO64E
mod4WZZzsiF7M/kzLbsE/Mscsv4kZQM9VDz1RFkJmDQFPHjxMBteJ74UDCRL
4JQU16ops2wo/+tz0WFNKUR86M8v5MqGO3fZQ1KcS2Hrs4k7/AZZMLqobfVI
vwxcR1w8bnZkgLvQQ72F4xXwMTBVKa86A75vN+XpVK0A7/1b1w7mZ4CuHEd3
lkEF5DCnCPx5lAFN233ueNyvAIF/+mbntDKAZ1vcieyGCpipy5H61ZcOH6Lj
fo6rVYLPsee3utvToCVon4GGZRWcn3a5om6VAhw8l/4GN9bAzRKmP390UoB5
Z0s0+bIG+iaHFh4rpsD5fbLxOydq4CnBEWC7PQW8JUTYRzhqYQ89ksH8NBnc
PTw2vNKphSiDYulszSQAMfd1rVO14KyeEh8YGw/PR6Y8W3Y+g+e/7Fe3u0VD
8BhzTrF2PViNjVuWno2GI8TYP2aTergQdr/GZEM0XOb48EPPqh5WZdz8PJsd
BQMx7uW8HvWwyDafvPQ8EhzyzcgX2fVgGlV+2Ig/Avh6tYMNl+vBZHmLvsCn
ENCZUKkpy22Au0/qpL2WXMEgvHwpircJAp9Gphq2ucCnVe4VWsJN8IyJ0ZcY
7gy7y1j4eQ82wXrapmfKQo7gUTXWVKDSBEyG5bhw9Q5wmy/ZSv/XBDk3/j4b
Jy/Dx4T7rq5jTZA00Lr2X5cdluiKGjCqmmG1KdvAWY8wJHHtQUPnVhh2zhrq
HQ3DX65d2Zm+rWDHBXd7zoaj47y45Y+wVuDq//13P3cEXv9PLzo+vxVCuKOK
vLIjMSHf8Y7AaCt4vx+fezH9BI/4eE6+udAGT5OMdcmhRGx995r/+552iL+W
u79bPQmXeM6b5kq3w32TpezzDUm4c22kvIViO5wOTJjszE3GNss/tyeM2iEx
4NOMS30KLlQ+a2GNbgdxCa4S1ow07Nt4XzBtdQfYr7Yz6EjMwoX8g/ydox1w
nf2e5rHxLOQ+KksOz3RAsMKNisX92XhAtNfp278OEObdanSnLht5OX6v5RHs
hLAXNMNDH3LQZJ8N7aJ+J9zfrSy+Rz4f7cf7D0a+6IToH9Pt2byFaLUjylay
oQvS2TfVPTxZiGbPK0p/MbqAUcA4E3OzEMsOxjJXve0Cg7qyuf3VhSj0ZGrl
4HIXsCUcY1c1K0IoFD05JNsNLFf3xp+uKMavxd/Lf+Z1w4XlF9uyvMtwRGq/
DSOkB0IMprtbiTIUuzUjphPXAxusktZzvSlDieJdyYzsHjAfFM9be7QcRYiC
wdTGHhDBiffPpsvxC+Mee9lCDzjach6bu16JlanJcmYmveDCz1l2JaoSn7+M
C9ti3Qs2EncG3jVVIvu8GKPWtRfyTbV2XxGpQs6vh1cPh/fCJZag48Mfq9Dp
6wfBK029wEXLDf13qwaD+lMqNokwoOTKMXX7hBr8vI/0qzzAgHa5FBum3ho0
kPNkU5VjQNzmLWHuUrUoHvJ1/WEtBqj1BUj0/q7FoJlPrus9GLDOSEYq6fEz
DLgi8aeqjwFbBDZ86258hvP6KunsbxkwKxWtsnn+GTqkcXjDJAOsHnEfnTJE
5LacKL6+zAD5DWVMA7z1aLuHtGzcQELlorhG+Kd6NJN3U7eRJaFg8OAXrn/1
uD0qVf+eHAlXF2w4I/gaMLoqkN39JAmly0obClUa8B2p2K2rTEK/PY/oifwG
NNmhEe+oQ0LS2CDbTFMDBr210t1+lYQjG2zLct404HNzsq7UkIRHt9XCxNc3
oq9ZKh9eI8Hmkc8zK/tGtHimlnHAnoTqDXEhSg8bMTwg8s5NRxIWD2Uqi6Q3
4hiL71y4CwnXhld8pl424pkTmwpq7lPXr1TdnnKsCc+yKJcZB5HwvjJfLVKr
CdtGaWzCISTUhH83C7zVhGnfVUVehZLgutHqsEtCExbG16vwRJEQtTV1zGRV
M7Y0CPJ2JJLw09urQ5+/GSW5t4Zxp1DXS2Hc0jncjJWCSdNn00j4wMHWrHK9
GX/Vbxr3ziIhsVZ96tT9ZvxQ2q70IIcE5/l2+tEnzUiuxPD9l0cC+6/ckZ3t
zfi1ajz7CEHCPzPfcp7RZpzYH3BgvoCEKi53pn+/m9GMfFCdXUTCFQ5/fCHR
gkEMNpeBUhKEE7TjKpRacLPfIQedchLmcuvLnxq1oNC/LeyNFZQTNnpefNyC
S2mt8RbVJLgZyT8WzmnBL3U/byTVkDBq/TB3tr4Fv1nTrjXXkjAkvd2zZrAF
s93L3F/XkSArnlHvOdeCUjxbooeekTDB5CZ4kqMVw3dtjulEEtbMhqjMi7Ti
jklZq5x66vkXHKezFVox11Dlx90GEuDYLbyk04ox6boCko0keOheuDVv04qX
A8oYfZSDx9MTIwJa0ezTv7mbTVS8RjLWiCW3YuchfrvPlFsFpHRLKlqxmDxw
SK+ZhH2LQ7JHyVbclVq1o5RyXPuEbvEk9b+R584VytnRl67tZmpD0Y1Rwkda
SBCt7WV/xN+GuYEGPLqUXzf66C4dacPhk6LnLCgnH/ZsM7rYhrefnxgwoWzd
5jhTYtmGh5INsxQp13I33FjxaUPf4IK49ZQdah1qjidS528ZiWui7se86qK/
ZUUbTtxlCzWjzLJC6gY9b8PtsR0Gk9T435w51hQ/1YZnLp75eoUyp4mvUTJr
Oy7KbNhbSD3/vI1bZeTOdix4cXlxhopXZQ/dwvV4O4o+KFTeRnkV6ffnwuV2
XA6/vCJBxVfR8xjbBpt23Msyx7aHir+U3cj25oB23FjcdZGdmp8i4wLar6p2
1L42q+JPze8PZWe1u33tyMLh93InNf/ZYC3/9ms7rpn5oJlWSQLvm1s693Z2
YKfyx5fGZSQ888pJyzvWgVdlrauflpDQFRj0oFWrA41GIy9UU/lneajPGH07
cMfn/cdL6SSsnyh0jE/owJEaY+eQfBKiO/dYmZV1YNW9EtELuSRIrx2Vyf3U
gSlTktneGSQQj11Ndqh0on28ykxTLAlT0ga35E070cRmg9OrJyQ8VI6ePOXa
iTvflPCSkST4hM0/WsnuRM5WphDXR9T6fqM/UoKdmGmwS1vsIQk6Q/EzFwc6
sV6YSaAugISEuwIVUmxdaGMbnJjoSQKPWFS0q0AXfr0oqz7pTsVn3Dg0TboL
HbblfON3JcHU7bR4knkXhk/RFqXsSAjZGJG1t64LrTqWRGVMSJAjZ77/19eF
LrG5Zyv0Sehbt8RX9LkL19re1dulS433laF9BW838m3Wt8i+QB2fLmotZd2N
ZwsLyoKOkWC7zqrDzbsbrfyvLp05QuXTG765pCfduCtd88a4JAkv+++Ie9R3
YyLzq+4RYWo+dTnXBGzsQdkYQjiLgwT+s5US2qI9aH5SIJaZjYQddx/sZTrW
g1d1pqrPr6LiL7Lu0bxhD57cqWpx6DMDLFdvMTqX2YMFbI3f7lQy4JX85ViW
ih6MndF92J/PAFn5pwFJ7T0YfZR+fWMyA0ZMP9jenOpBZpqEAbc/A7jZMFT5
YC+q3HdQ2abBgNb0TuMP0Iv+x3WbZU8zQNs855ueZi/6Rl/KFz/CgPTcWpN+
u15sephwI3YLA+xW/tqxFvaio+eJuzHDvVAvPHlpsxgDg/9OBp8y7gXrpoZB
RRkGvoz+PfZZvRfExPq+q5xhYGjLwS6bE70Qcvmy0LAxA7OLQvex7eiF/jsu
8puiGKjVqtvpOdAD2do3Xv1OYaDogTPCLK09kFU02FVOZ+AxDP1xvbQHfO1S
T5W0MjD8ahN7XVgPWN2InyieZ+DPrwV6ved6IIff22E3E4m3fQjyhEwPLAXu
FxtiIzHN5sXHYOEe6GAy82bdSOLzXb/+NC93w6Odbg36YiSuM7o8U1zQDavM
j0nf209imeQk7EzoBtUaz7V+UiRmJvm6Wwd2w2xDVq2uPInLWDmVZ9oNvyq/
BC+ok8iUsXCmnrsbSlPCbNsukdjJ9uCi3+8uOLgRqu9fIXFf9lDnno9dUGsS
5phoSuJc3ptK9vIu6GDjfMt2g8QEpxPLKsld8DjjVJquFYnKxTXaVoFd8ERv
SjbXnsRtSprf1fS74EGY1hqaE4m2kQtruM90wbi1xuFoNxInH774UCLRBRY/
ZFK2eZMY6C4YkbHcCZkXDp+cC6Xu/0z1lWQi1a+VRZzaG0GiY/fq5XX+nZBj
uFSvFE1ix/RdnR7rTuhzu24gFU9i/orHtdUKnaAf+jmAKYlE3w0jiy4inSB3
7f7lyhRqvH3Wvn3rOsFRJODPYCaJodMuCqcHOyBHi/OrUg6J9JwMde36Dmgu
r6c9ySNRXEWfXzO7A1x3nHo+TVDnZ0Zlr3bqAO3trlq/Cqn4Gqy6WGvQAYGz
pYMfikn0j65wNlHsAK6So4p3y6nxGRN8N7k74HYKj9KWShI/ueg4dv9qB952
nvCUKhL/7eLcIfimHX7tfyy/sYZEa1Zmb8PGdvjq4KF7u5ZEgRsGvIE57aD8
49av/DoSNSok1FJD20Gs03X/y2ck2l21i8pxbAeWETOeMaqbt1TluJak3w5p
Q3fLh+tJjJmr2+t7qh2KpUOlaxpIlP8tcuUK1Y9f27Qr1aeRRAsxwmQ7J9Vf
n9mz6XATiZ/1EksYs22wvGNfWgflFveVJseBNlC0krM430zimqQUJo66Nnhx
4odLEWUWjm0jEWltIDJgP8PUQuKIS1UrZ2Ab/LC+8lmOsj8EHHCzaYO3zK3/
GVLeWyDn9/pSG7RIG7dQ+xz6mMNRiWNtUPBP4e1VypuKssrtBdpg44PfH2Qo
b9i/157G3AbMA2nf/1D3M5bc0T880Qom6XW7cilzurporupppfpXxchTlM2+
tGpuK26Fa4dirzdQ4089LXFGPKYV1KXjiyX+93zftaMO/dcKn3NC4j2p5z/P
4lUoadYK1jd3nKyj4nNR1G61sHIrbFMwqxqj4sebZL3IJdEKHTED++ep+HJ6
KPyZ5W4F21MmlbNU/Bu6hO/2/mwBYT2W2GxqvrS1o+wcnrWAyp1QdUtqPjfF
+xdVpbeAjto1883VJM43dp1eCmyBo5uL9h+sIPGy4oOBO5db4KAVKZxURmLk
ngPJqcdaYGSn75/FEhKVBB7IkQIt0PdCuM+Byrf7P1RuCU82w6z5vy0RVD7K
m0nUKvc0Q7i6amMijVo/6XRDy+JmiPEaHbhH5TNfZvpKxn/U8bI6HRrJJDZX
GrdxbWiGiD6eDa8SSGyMzYrbM98EW+9EDJyPI1F9t1ckDDcBl52H3Z8oKh5G
Jtp3M5tg56fn7b5B1PN0jXlOHW8Ck0syy24BJAo5F86u39kELeMvnxv7kig1
u+uIDEsT6GWdXvz5H4l/rUduB/c2wssF93NXbEkMt9W8d/NaI9jPuKa23qby
V2ajdJ5KI1QomXaIWlLz9fHk0TnJRnjSeXNbKVVv0v/rPxe52AC1juOTm7VI
PPRxY7ZQaAPMCT2IYD9I4ul99ib06nowpNmlBoiTKGexz9IipR5K//x6Ny9K
opuT2eZ9AfWw31HBj9hB4iutI1rdWvXweFo3wmMtiSYDs2zCfQg/+FeV+jcw
UE8vID1Y9hkURSjtTKtgYN7HlJ5XbM/g8/HeyDyqni8p7H93bKAOnvo+DfSK
ZaD30KE/iq51YE0m7Tlnx0CL264xLjW1oDV/pt5hGwPjFYefpSnXwHs/zt0v
zXuxgltGtNW+Egg5cdYPur34WcSn6e7ZSliRZWP5qNqLdakFgqf4K8Fp7YwE
Hu7Fvftba2UaKkB6vWXnOFMvsuW/l43dWAF9Oo9stib14NyaTSPmNWWwmq4+
do3RjfWO3SEjoiUwHt0IWxu68YfkMMfZP8UQW7bTvrm4GysnrvH29xbDB5Ya
cVZqvx/PdeazdS2GqA9OJZKG3fgmf6kzpKcIanNeXzs30YVNZ9aouXsWwjYN
MeWJ351ooSGpUMBCA/PvG97+/NKJUfvPc3ZW5MO9AwqbV73pxI6eqdtHb+fD
L8uT89zPOjHb3DJ5bV8exMTZlPH7dKLO7rlfQVm5EMrwff9zbSemlOdemDDM
hl943qaYvwNdWdPnT7Olg2ZigHEZRwdO/5Afm2hLA8J2bUvVSjtWvHM3fBGU
BtxnRpXbRtvxg/Mrbcf1abDq77DZQm47CrTeFpzclgqPmeSO18m1o97KOo9X
Xkng6h3uYGjchsWcCk+13WJg0mVAa1NRC3I9qnynVecPF0N2HZPNaEFWIaaf
Dmz+YDL+adwopgVVI53zrTX9oObs9bKa+y1o9sC059MnH0jITPhSpNqCRpWH
9d4JeIGWhJpd6HgzFuzUU9S3cAKuQh7tgzubsfpnfbCKhSRU6AkWTKc1onrN
08M9L7yRe3h0r92TRvS4Feh29IYPCp0Ds8WgRryd0ST4dt4HFVF2owD1fin7
64z6GJ8fJjauhFZAIyY6mkZMawZgKp+Lm9Rb6v128MaGruSHqGb+d83xXQ3I
/9Cc2dMgHNOeLszV2iHCl1zd8vtPccpo4cBD6n1auLmdzYV4im8bXhebqyDq
bA8X+/P2KdbF0bxkdiGuNef4rgKxyCvdVW5GPsPi0YFpnpVYfJ1h5EIefob9
4itWITbxeGtQwHbsXy2+fndp14HdSfhoJvJTSVU1mjxpVr3vnooJpl4+xVnV
yFZUe7UuNBXpg0qNtZHV6Lzru+DH1FR87t7P9dOmGn2lRo3et6Ui12D7wlfh
agx4oZaSuTEN90ScFWZ6XIXS/HfF76Wn4fi+guJ7tpUYadRw9HhJOjKXNA1O
a5RjQGHg4pfwTOTNffv4I5Rjfu34kH5yJjqv53s8erAcL1t+HqqkZaK/23vV
39zlqDG4LRraMnF7m/anJ2QZ1qzfH3lvKROPWfvs9btchl/fbNWsMc1CTdfY
0z9MSvGSx+Is685sDP1waj4svBj39O7uuWCbgyGd12JD/YoxqCD473nXHFxu
UWiKcCnG9fXCfAreOTiSoxlNGBXjmjd8Mv8iclDksWn8EfFirO0IT2Muz8Gv
v6vd7zQXYYzbi6W1f3KwtFfwkc9KITqp3ut2vJeLhe1DLhzMBfiKvWlIxyQP
KzOim1g/E+jtepb1vkUeCquv3OYkCfzaeiQ2ziYPN6zMpZ1MIjDW3v9glXse
9lvuNJSRJ/D3ora9f0weWjer55u50PH4Td3P13vysKIn+f31xXw0ti7lCz+c
jzwyuk4523KxPftgxM+xfPyyklo7zJqLmS8yMyo+52OCv9B1vtkcPBTrn+04
nY+D40wl2W05KObxLO7NQj6mMhtZSzjlUP1Z/J/r62iYNesGlc+zsdmrOcHo
AA35OMzWFIZl4aKbudUOBxqmmo6NvPsvC2tHwU/cmYbaxgVb+ayyMOxxocmR
ezQs+TKdEH86C9VeMNvJ+NDQU2uMa3kuE1X2JMYthdNwzeNu7s1XMrEqy0cw
upCGR2Yi3Wx2Z+AFPkM3kS80HKj1WDO8IQPLrERP+H6j4ZW6CPLiv3R8vycj
8e0MDX3Sv/9WGUpH8sK9c4ELNNw8d3suICwdL68Tq89moSOf27Nekb9peKPQ
6MR2QTre5/uZXDqSijCa83ZOnY7/eTCERrpSseXg9xe9mnQMu/l5E0d1KqqX
tHzLukzHmG32h1yepOKGRDJL7Sod+VvrUh5rpKJG/PuIm9fp+GAzC39tYwr+
lBvM+OpGx/jTLcMlV5OxvcdU9GwaHb/1TbgbSidjUXCpyWgGHXtXmvbzcCdj
nUhmrFs2HfVongFPm5NwxYtVIIlGx7iqCj+JQ0loKPXpZUU5HW32P99xcW0i
nlW+HyLVScfUpp8fhZvikGrNP+pN0zFlyJx9Y3IcTu8yyv5vho7SPP+5r3OP
Q0cprrGEOTq+f3eTj+8IdbxIzssX83RqH6nMT0yPRatI3pnN/+hovCM4SDvg
KQ4X6k38XE9g5tqPEZyXnmDtKoE7x/cTOC+eX39N6gly/jP5+VKSwAk/67gG
nicoQzyvtTlI4KCx+d5wRjR2TzILxBwmcFSyJcRDPRqVaDxXOo4RePP023tB
qlGY92oqkK5EYKh26OjW8xE42N844KNP4JlV79qk9kXgyAGVuE4DAiFFfYvm
2gh8IvVphNuIwF3XOZsTOsLx+d0r3yNMCNQ5H6LhpBqOXrdrbrlfJ/BbzkD0
NvUw7HyQIzNgQyCjtHj9WH4IlmntXm72ILB1achujWUIVujn/H7pSaCTzOoC
6d0hyOmzcPqDF4FnvZ4b0xKCUXYmu+qnD4GVFh5fuEIf4saLh+/+DiBwpOpj
tZ9DIP4Rabb1DSVQ8fSmRLmDgbh2uGLQ8jGBQUcD3ixOPcCrw0rZamHUeLe5
bg698QCFlDoc1kYQyN5c+2Lr1QCM1piYvRFN4JVyr+m4037oYyRbnh5PYIWl
Q0zXX18sX13x2ySBiq+rg+jqWl90Vr9Vxp9IYA+hFxkg64sfn/+L9afqQuCN
f+JvJHzQ+oPoUUglsGPQ0+70Z28UuRRjMEHZOnzdKC2Lcu8qpkdpBC4uxX2K
FvJGu7AXL8h0AnfrHl6m83lhv7kUIZdF4Kvyod1+eZ7YfQHmeylH3GqWqRD1
xL/+HG2m2QTWGnVcOLHDA935Xdju5xD4c1hRpXntfyg7Mbn5aR6Bds3Fl6M/
ueDy2DvRqwSBv7xAYOttF/TI5JBByoUSnp9Tvzujg3PTXpECAjW2Jv3qWHRC
caZlHKN85tra3pscjijYM11zsYjAkvTqJMGwuygV9W0lnXLa5pTzw5vvYs8F
570LlOWz+OJuCDrgkNO3YzHFBNLIlW3VUnb4QVXl8rMSAuNrZq4ftbHFEh+v
ceZSKh92q/9e7XKH8oNrZym7+ChIVD60RoVMm93NlFnYTWSSo27jivfSzVVl
BObGrfEITbqFDxPKnspRfvxVJcOv2BL9fL425lCWWE6cflh7Ey/tZqp7QzlN
Z1bzaasFphXZZ64vJ9DsxemjbUPX8e5LZ0VrypMtQnsnx64hm3XIQgzlH9Cy
jvu7ObL//BffQLlLUNXTZrUZCvp/LFlfQaD2kwMeGVymKNJRJ3aY8llaZXj9
QWOUdOwMvky5ebBa4rSSIaoEHn3vQNl35v7RTj19PHfokGgY5e2TQsIGNnq4
tv6Nfj7l4fXdej+8dbGp1Ny7mbJcRpZKxBNtPFI29nSYsqDLe+Oj+ZdwONwn
dYbyST8a+wfURIWzV+NXVxIoK+RrIZKrjis/fAI2U156UBIT/OI8bv+25ZoI
5erQ655LS2dxbd4+qUOUXVp5F+1FFfFNb/eMHOUiyyeVw4kKaCzOnXaGciwX
P9ebGWncX76spEpZ4nz42ZYH4tjyJGnwIuWN9n+qSw22YOL2JRMtyqoW5xjS
hatgL/K+/p/T3YVY5v1FoH/P99OalBXXJWjP2UqBmIh/4gXKfIu2b6Z3HIfI
ghdflCn3xsk5/L5+CsLmGPuAckxbt4GXvBK4nXDQl6FMVltqcm1UgUectP/2
UTZsDHFKnVSDNjabsO2UXTlrZ06gBrxcSY3moHylCn/MdmrB6DfpkN9UvIIE
S0C1/DIErXA6jlPuclhtm5OqA+n316szKPvMem7menQFtnzexldBeUORJtfX
awZQfrL7vhdlsS0Na1rOGsHf05UV5hX/q7erbmWJmQCrXdS8IuWYR6/PNTqZ
wTNHB58VKl/4k9dJN1iYg4HGVsYA5aH8LVYtV64Bt+H8zkLKenl9jW+P3wCZ
/QE9+pRZtPgdfopbQNzX1n2SlKUqzD15dtwE1ddGQStU/urE6XYY/rWEYzKP
tZ5S3v2Lr0i9yRrkHe/+LaPWB89y6afEUhtQuDVl40r50Jh75nzmHQiYd357
jLKJ08lbZkp2EHzBqaGEWn92stkdFmIOwNYu5R9Orc9GIviVdIoDHO91/3GG
cvcF1ZPs/HdB1/CbyU9qPfeoV+TiOkeQ/C9JSoMyB7TVO047waTEGtpXqj6w
fh12tL/pDHXOd/6FUv7r/T3O8b0z8MZbqB+kfIl9rj30hQtw7eEYsKLqzSE9
O68tFW7AahoX0UojsE739lPVQ/dAxZCHpkf5jGiMXEDuPTB1e1kzmU8g88KP
3M0J7qB1Ya6GmXKWxWquCO/74GUdJymYS9XT9RkX2ZbuA69n3mQyVf+s9D8c
8XX0APbTW6N3Uo6p13GOuekJh5JMcStVL/9a8r3Zku0FHsI6ynMZBM4cPLrl
aagPCBko3DudQqCKNKdEF+kDX4Tyr0YlE2hrcyeDZZMvMP/TxTGqvkecn9kZ
HOMLTqp8/B5U/S/gSqycTPED2ujRiYg4qt4883b5UxoAI/G/Js9EUfWb5h+S
tBAABoX9aXciCTTyfOWoKvcA4t98Yzyh9p/qkv7t1fgAAq64ebyj9id0/qi2
1BkIpbYrbJceEXj6/cIj/o8PQYmhGVjtT81nTl/12T3BkN95uLfGj8qP0IaD
7lbBEFWsYFftS+C/Qz80mGeCQRgdGgu8CXxkJ/zXdyUEaAsiDvfuE3jiOlOv
1bbHIBroEhDqSODlR3KmR4hw8DmhM5JhSuDY2jXLEr3hUOx7VeYGtZ9fJXxn
9k2Hw/pEay4RY6o+jnpxyB6IgJJtvbIxVD+grfhPKIyIgNNXd54w0yXwge7X
FO3CSPDjPO19T43aD5/uOmxRGQ2ddvH2pUeo+Jgu+wsMRsOC2BFxIaofWewJ
dRv+HQ1n1a7sDj5E5Z8zaXVb/glEXHZ+qUv1M7Th8Og3z56AOlfIePceAtdI
ephwtcVA4KOXHVL8VN/do/3xx5tY6OQzrepZouORGw9vXmeKA5d6d5fS33Rk
Cdx3/q1oHGic80yJWaD6TWUZo+k7ceBTqC96+Qcdczbt0PVmigetkOcxSV/o
+Pb4Xx7PvQmg7x077/uajvqBP1zBIwkCN2j8symi4+68W+kL6Ulw6vrniSGC
ju1m7/9WdyRBpuHq+jNUf6huddv/Gm8yBH7xkVxL9Y+K1XfcT9CTwcm8wtc8
gY79PdInw21TwH6fkoxaAB1ZnSZFuLNSQWV+zXifLh0fGxtValWlgpn8nEMz
1d+advWlx3WnQsDteN9Cqv/NPlqbBD9SYSnwBL+7Kh23z6n9fXUqDWRuhQUO
nqCjZwnnGcWRNLjP/+lHuQjVD0e6jypuz4DleuEjvVM0DP725F0dPQu2LbUa
iFjTsPbO5Vu3G7LAizYqucmShkIB79V29WdBZiNr+8o1Gl74yy6VspwFJ5q6
FZoMaKgoOHb5t1o2EDLy3uvVaLiPhSmU72s2KO4+L5S6l4brlXktjh/OhRSp
JZ2H7/Kxup02wBjIB0tJsa1Tcvl4/oSNscX3fFCuL1B/L52PG2NOfVizhgZv
TgRr9BzIxx2p3lzWsjTYPNjwKFSYeh/a1yNeHU2D5ZWbbbS1+SjfdMHIRZcO
n0yioi6+ykMeN919re8JoHHRLg1Y5qFr4+KOPK4ikIzf43PKLheH2ty37NpW
BLve+0XoW+bi/BZP8YQ9RRAdEVR6yzQXdwxYVGRBEciPJixZa+ZiwNH1S6wO
RXBZtVV68WAuSixVfJodKIJK56c8gt9ycMnrxpvMnGIgyuUyz5vkYJSVXEOt
cSl8Dg8qm6PeX8PLP3AnWZfCj6G0zqu82dhdPBQfcK8UcCyjpWRdNr76k+tj
86QU1NPUJE79ysJZt+H9kb2lcCKbNlrZkYWOWXWrz5wqA6boKN7tdllY+M+E
MNpXDp4abOV7ijMx/u/3h92bKmEmJMheYk0GPjep2s0qWgkV9ytlvBbS8eua
NFYV2Upos4pm4EQ6OmxeqfmqVwmeBxS4/7WlY9HhTf3FSZWg3/+f970H6ehx
cTro2P4qMHlo26TKnI5h7iHGphrV0McvHej4KRWdBDfa91TUwuNByYTvjUmY
73Vs4/3OWlhVGsczF5uEUfwj54+O1ILkw01h9XZJWEVfFdnFXAc+PBZZ9QJJ
uCjQJeZ4sQ62TcwPnXVKROmTHds7J+rguoJk8d5tCVhVaGZPF0ZweBPEan48
FpkGzNn3jtSDxKRg5+66CJT9fPi16Od6+HzYR93IIwJ1BD5Oif+qB7PXBUdP
QAQGE7LjqlwNUD71zGAWw9Fj9yGVDycaILSeL0CgLgxTL1u+tk1pADcX13qp
C49QZX5Oc93tRrAxmrJRMPbDNiNvpTmXRpiSGZJNbvfFi3VOgaN+jZDukkU7
dNgXM2Z/LPcnNQK7cZfRMLMPDk3122/pa4RbD/Ubrkl74rLcm/kfCk0gO0k/
+QGccEM0q7imahP8GNUcuvf7LtbsSX9UcqUJdmfq8FwscsBtBoODjx2aYJ2M
j2X8djtkHu0RS8ppgsNCtJg9ZTfQuETI+0h5E3hxyT3y47iGx356TzOammCP
74fPR4xNUXrZ7qfAuyaYabUL+jyjg6+HhP0YX5sgXEj55h9PTfyktmdL4J8m
uMS5ib6JWxm3/cnJPMfeDGwBxgtygrLYmF0guX5LM7js2/N69d6A2v8DQQkS
1g==
          "]]}}}, {}, {{{}, {}, {}, {}}, {}}}}, {AxesLabel -> {
       FormBox["x", TraditionalForm], 
       FormBox["y", TraditionalForm]}, Epilog -> InsetBox[
       FormBox[
        StyleBox["\"\[Phi]=2\[Pi]\"", {
          GrayLevel[0.5], 13}, StripOnInput -> False], TraditionalForm], 
       Offset[{0, 0}, 
        Scaled[{1, 0.3}]], {0.95, -28}], 
     PlotRange -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     PlotRangePadding -> Scaled[0.02], DisplayFunction -> Identity, Axes -> 
     True, AxesOrigin -> {0, 0}, 
     CoordinatesToolOptions -> {"DisplayFunction" -> ({
         Sqrt[Part[#, 1]^2 + Part[#, 2]^2], 
         Mod[
          ArcTan[
           Part[#, 1], 
           Part[#, 2]], 2 Pi]}& ), "CopiedValueFunction" -> ({
         Sqrt[Part[#, 1]^2 + Part[#, 2]^2], 
         Mod[
          ArcTan[
           Part[#, 1], 
           Part[#, 2]], 2 Pi]}& )}, DisplayFunction :> Identity, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
       "DefaultPlotStyle" -> {
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[1, 0.75, 0], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.647624, 0.37816, 0.614037], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.571589, 0.586483, 0.], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.915, 0.3325, 0.2125], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[
          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
          AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
       "RangePadding" -> Scaled[0.05]}, 
     PlotRange -> {{-0.3399999602659588, 0.34}, {-0.33999995215560963`, 
      0.33999995861332616`}}, PlotRangeClipping -> True, PlotRangePadding -> {
       Scaled[0.02], 
       Scaled[0.02]}, Ticks -> {None, None}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(per\\)]\\)\"", 
       "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(af\\)]\\)\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7984602824987164`*^9, 3.7984604604572616`*^9, 3.798463629339764*^9, 
   3.798463682439848*^9, {3.7986459766253643`*^9, 3.798645989340017*^9}, 
   3.7986460872104597`*^9, {3.810234563264112*^9, 3.810234599477649*^9}, 
   3.8102348614377975`*^9, 3.8102349906846657`*^9, 3.810235565902445*^9, 
   3.8102485698653297`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Ej3fig1a.png\>\"", ",", "fig6a"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Ej3fig1b.png\>\"", ",", "fig6b"}], "]"}]}], "Input",
 CellChangeTimes->{{3.798463686189786*^9, 3.798463699040625*^9}, {
  3.8102346283155184`*^9, 3.8102346402992563`*^9}}],

Cell[BoxData["\<\"Ej3fig1a.png\"\>"], "Output",
 CellChangeTimes->{
  3.7984636997748547`*^9, 3.810234641645223*^9, 3.810235568891533*^9, {
   3.8102357290530167`*^9, 3.810235764244282*^9}, 3.810248570326061*^9}],

Cell[BoxData["\<\"Ej3fig1b.png\"\>"], "Output",
 CellChangeTimes->{
  3.7984636997748547`*^9, 3.810234641645223*^9, 3.810235568891533*^9, {
   3.8102357290530167`*^9, 3.810235764244282*^9}, 3.810248570521947*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8102382279978437`*^9}],

Cell["Grafico la trayectoria hasta casi que se cierra, \[Phi]=2\[Pi]*m", \
"Item",
 CellChangeTimes->{{3.8102381790846047`*^9, 3.8102382061497183`*^9}, {
  3.810238243444373*^9, 3.810238272826092*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fig7", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"PolarPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"rper", ",", "raf"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "0", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
      RowBox[{"PlotLegends", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(r\), \(per\)]\)\>\"", ",", 
         "\"\<\!\(\*SubscriptBox[\(r\), \(af\)]\)\>\""}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
      RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}], ",", 
    RowBox[{"PolarPlot", "[", 
     RowBox[{
      RowBox[{"r", "[", 
       RowBox[{
        RowBox[{"4", "/", "3"}], ",", "\[Phi]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "0", ",", 
        RowBox[{
         RowBox[{"2", "\[Pi]", "*", "3"}], "-", ".5"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
      RowBox[{"Ticks", "\[Rule]", "None"}]}], "]"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y"}], "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"Text", "[", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\[Phi]=2\[Pi]*3=6\[Pi]\>\"", ",", 
         RowBox[{"{", 
          RowBox[{"Gray", ",", "13"}], "}"}]}], "]"}], ",", 
       RowBox[{"Offset", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], ",", 
         RowBox[{"Scaled", "[", 
          RowBox[{"{", 
           RowBox[{"1", ",", ".3"}], "}"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"-", "28"}]}], "}"}]}], "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7984657232806606`*^9, 3.7984657410417814`*^9}, {
   3.7984657922457347`*^9, 3.798465911548517*^9}, {3.798466140648141*^9, 
   3.798466161158572*^9}, {3.79846632821138*^9, 3.7984663545334206`*^9}, {
   3.798646617427067*^9, 3.7986466330630445`*^9}, 3.810234994254714*^9, {
   3.81023503586075*^9, 3.8102350371088724`*^9}, {3.810235137110574*^9, 
   3.8102352004268513`*^9}, {3.810235572077791*^9, 3.8102355738254485`*^9}, {
   3.8102370178297925`*^9, 3.8102370188459053`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}}, {}, {{{}, {}, {
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJw1m3c41f/7x0lFUWkYJUSKlC2icpMoW2bJHqHIHkn2KET2nuc4OOOtJErj
rkhKpVBayEhSRkVlxPf9ua7fzz+ux+Uc19vrdY/nw4WYs4+Z2zI2NrZADja2
/z43icR/O3aTALb/+wh8cUXWmOQvwaw6HRMRSGyt/3OIZM+w6GWHTGSh6MEv
XXmS+TPpn71uq4CUodlWfpKfqnVrKZlogHPLm5DpRgKUFV+LnPtxCI7YXDrR
TnJ722U2i9u6kL0u8EEByXuBx2ZXvD48bayodSa50lAf/hobg8RfcYntJKsU
iw068ByD7CPLRT82EFC7NiwCfpjB0wnrssskMziJiC1vLECES6FalWQd5Xte
U01WUBxJVXl/g4CkcGbn/dLj8GfDE4MgkqXEwtWT42xAsujS6ux6Akq/dqny
GNtD0A7b+s0kq++8MeW42REu/DD8nHOdgEinyPeN3E7QcG51b1gdAbJGu9hP
TDlDruVW6sA1At7fFWirGHSBi9ff/NQkOf+1+M0v3a5Qojwk+bWWgMnVtySd
b50C2rJLaxVJfm5hq5DLcIfT1REXAggCFpsMQ1uLPaD3xaaZfiYB5gcsOjfE
nIaCdD9ThxoCiLC1Orb6Z6H27NpIr2oCNChij20P+IAxZ7mqfxUBxe+yeqQF
fEGyv+iIeyUBXdTWQYFVfvD53+qxP2UEKN4sM8Lv/uD92tXnSSl5fopHJord
AsAt+kVUZgkB9mohb0L6AoD3I5ve+iICena85BR+GQgpzzJDrucQIJ4i27jr
ejAMtqw/pZdNgHvZoG3/7hCYvCcz1JNJgGH/X/s0aghcPlCT1HeFvK8tr5b1
ZYfCfuffeRlJBPzZvSNTMTQMosI2c+eEE3CTOS9duj8CzjHYdFPCCCiKUuTk
vhcBJyV3PjkXSsCg6wnBs5qRQDt7ma4eSMB1uZ0VKeJRoNi17Jv5GQKedGb3
LO2MhgvaTtPD1gRYSQeJ/JaNBerG+0smlgSkZVjPfvSJBbZrHPZ1ZgSI/Jk/
fO9qLET/UOO3MyJg0/Fjwz6KcRB490eS/iECthn+3X95bzwIT0qpJ0gT8KNT
QKhMPREETnB1nZIk7yvto9mO84lQbDrRriFBAOgf7qLcTgSO914D3cJkfTQq
u6YcuAi+8/w38nkJOG2e9nCVxiXQtz/6JmGaBXMyMdaVkAyWp3XVf99gwYMf
+xP6D6TBRffqXTx1LAj8eiFFOTQNelp1rm0hWHC38dat6OtpQAnZflmMxgKJ
loWdy/iuQEuse+abbBb0LLE7WiRfAUOT5ff7AliwvET0p3xIOvy6cn6XjzQL
3uVqqOQaZMK1RNrugh0suNOQ9fWGRyZ4Tm34encbC/iEeh51xGfC0trkgkl+
Fuyq2vJxGjOBVWEzN7+MBQrdDfUcyllQmBLUeusdE9oCpZplhLLhWsN8Q2c0
E277spaiPudAhalOsHI4E6qMtRbc2XMh8OJ1p7RgJpS93RukJ5wL6hMeD+XP
MOGNfOKDeYtc6HkX9UrMggmvPNlXCbfkwnwYl/09CSaYq5yLNizPg+nZ64e+
3WdAp+vdTnnrAvizXkonqIkBjgkusTb+BfBATKHi73UGBClo9164XACGw/v9
v9EY4NHH8L/WXABrxcVyolMY4OrjdLZdrhDECh8f87NigLzIGbZHK4sg57c0
7+nPdIg697SgvLYYfkSfPRrXS4eEsDXNss+KYWj79Pec13T4UPQ+9vpoMdRr
3oqtfESHcaWvBEWsBFSPG0h6VNJh/pvKU+HMEnDflKwb70KHxzLhgv6BpeBa
sMpC7n0NrJM3faOQVwbXHeIyTr6qgdZzczBWWQb7FgYvRrXVgNqbwj/F18tA
1MGgqr6hBnK7TLT+vCiDiYV9Px5l1IDmu8JO3xXlwC/e9CtVrwaYz3ZmhPuV
Q3Abz+Sza9XgNbz77wedCuhcc9LtdnU1tOXiCgGzCig9/+0ZpbQazF/JZxrZ
V8B5r+ZQ58vVkPaQKcYKroA9iyoxuR7V8Fnf5Nbeqgpg6WgeHxSuhpL09Wqn
OSlwIPeoBndcFTB/9Q8btFDg+5y00YGwKmC7OK70o4MCPsySXHffKhhayV2Z
/oEC/ZbDo0zbKhA+snqw+ScFZJ0+3f+pXAXrq7xCxrdR4Yny9GnvYRrcfGyS
YxZOheGf+hvlgQbLJk9vPiZXCZK9ym/blWggpaQlqLW/ElrzDfc6SdFASGTu
t/SRSjiqpPwodD0NPnFa6X63r4SmgvS8k0OVIOI9+kwitRKufv7592d8Jbz+
NBJ1+lslONnH2ES1UsHKq0dEoZwGH+x46ZZNVIgx4cqyYtLgyqO6RQmCCs0r
yyKCGmlQ++nIo2vZVKg7JV9V+pwGqX/ypONcqeCkGvydOkuDQb4i/3XsVODx
H4jxNa2CoPJIlXd7KeD5/LHI779VkLVC+pjiLgoEdXOKb+KoBrehJwIJWymw
yeFzyO411XB15/JGYQ4K8Nlo8eqKVcPv9V5la15WgFqjQ6W0XjU4Roke+OVR
Aavi/H4TudVQm6/RPpFTDoPneLTS5WpgdLzIgnqpHAy25Rp276uBQwmR/yzC
y+FXcpEF76EaeDdedqfKqRxe8XWbBFjUADe74fGNe8phu3wSYzi0BgJXOeqt
vF8Gxs93Nvvfr4GW69ZTY22lMLX4TGm3Ph3++PqvW11bCuKH67Vnj5GsviJO
LLsUpBcNZ+6foIPqUlWCmlMplNzmUTnoSQev5o/la2dLwFTHb3Y0kQ6cKl03
zCRL4PFX7THuFjqcUNX+dDaiCAY/09/5qzKAD6p+U12KgCdMIc9PgwEz2lmy
3UeL4NUhRfTUYcD1gcWtIhuLwPboZ9A1Z8BeQWm6Y1Uh5F/Q6K09y4CXKzr2
014UgCn3Gf7DVAYQT3PBSTAfsiKaDd1WM0Ft1eyPgLk8EOmQq9qwngl7jYQv
RX7MgxkF3xU3BZggQXmcGF2WB8uP9j8aI+fMtv77NxSk8mDZx03iUxpMyJSr
MddXyYVweUNmqB8TLt3u/51nlA2eGr2UwJdMYA/XH3srmw23XhrNi7xhwtr+
4TcbeLPh31iMyIMPTGDLqb0X2JkFyYNdD76PMMF+es+9H1ZZ8PVXs8nAAhNs
Eu/JvrXPhMn8HbIakiwY2L+tKet0OiQLtRXcCWKBaY9tx36jdIh2/LB8XRgL
LDTtC/rk0kHs44CoTQQL1ERfnhWYuQL8chdd3yewoNYirdcq8gpIDfWujs1l
QfXLau+dO9OgQO7BSEAjCzQuVkv9HEuFG1qHhk1vs2ClioRaQ20q7DW5GLMT
WaD31zRbUi0VjpTkFt9uZUHOZaU3Vw0uQ4dprtLl1yxw3t5od9onGWYT7298
/oMFNxg/rB4qJYPW1PlapRkWMPmj0zf+TQL6Unlvxl8WCDS/WlERlQQfX/aM
qy+xYKl14ZJv+iVorJhpVeAhYJfE0/lP1xIhv8WFfuu/vfmd9q8rKBH2Po7k
qSH3alyhnewDtUSgZ8ROXyH3rvSHCeukBwnAccXZXF+egIMq3N7vXsaDpl3r
Ppf9BCzLmCNCJmIhRC9ytYwpAUK0662Hr8fCI14D0Txyz/Nerd6zJjQWzota
zs1bEHDR+pbQFfZYEM3vYyNOEHB8sXu946YY2CqupXnbmYDhvkc7V72LhsED
3iHfXcmctmV6jlUcDUZh53z53QkY2168+RuZM7h5JWgWZO54oexxR1ktCobg
3vqwADJ3zK2sDZuPhAvTH/T8ggiwe3RANy4uEma3jIFTCJnrBrhXRedEwJ87
bK67zxPkXnSZ294UDtaquZEeMQRELLxzlmI7B6H1/LT4NALejIX8fnYxFIw3
ll7iSiegX9P72pn1oSDUFicRl0HAhdO71uWJh0DeVrZINzKHtTMfJNQeDgI3
brj7soDMTQNjflLPAyEpVdZsM5njOAQlPIosA6HF8W2hTTEBfiebvgSdCoCV
/tKGj8kc6K3qeOxnoh9oib8R1KMSYD07VqfL6weyL/INrMkcaTZ+iSM3zxde
LQ7J29MIKFmp3GZt5gOZ/Bs3WJE5VCxZ3mbA+Sy0fotcc4TMqVfeXSJcArzh
l1hskzydzJ21BTHmWWcAr/tITTAISDwcFviAehrWfpsYfUDm3GvUlWt23fCE
V+ryNqksMsd/TuAfee0ODI59xuvJnLw0QczuHzkFFUcqXj4mecvsN/eU327w
RY2fI+QqAclrtj4VFnAl83tQCJK5O0Ql4Om/DS7wPvuZpxuZ07uU//m+XesM
PdtrcBmZ4w8fql9JrHaCSt/+0FySxZdndUesdISWZp3s7WTuL55QPJKz3B7U
O+o3VZHM3Rh/bufCSciu5fwjRnoDZzrbkNw3azgY/GroH8m9z/Zo0ActAemr
J+xJ71Aerw4SeW8OdFOmTSPJJ6rOC11+dQx68ot3cZIeUxplEzuebgLD4m02
xiTzPUmdbowyAIVfAhMpJC8s1BBhPkdgIvz80EOSbba0vFax1wah4iH1KZJz
JseFPuRrQHKh9vQm0rPUh2//Jn9omJBOX6dA8hlPK66DNXvgmUdLymGSO0Q+
KAw/FoTLvT1nTEhe3WoZM7h66V5IeBvzP89rc31XUbNTAusp2SYGJOt9FK/6
u1cR9bdqWRwgefQoj1PucXXctqWjSYLkqNMhJ3MPauHSft3Y5SSv2acn32es
g0nJtawP5PPJfvq0WtRRDzUv8KvTST7osuPxcT8jDJ66KOVLMuVT5DadB6Zo
ISdwToZkqJSRfvfEDLsmunYPNvx3vxkT7p0WWG/crZlK8nvT6g9T763wwju5
mwok27W4OwQMHcezcWwZz8jz/6n6/MvENxuMrnV+YU+yafybQedpWzyxI8h7
lLy/OGrsvRcL9qgtdMLHk+Ts02em82IcUUJBsXuAvH9rl7EvjxKcMNBvZ9Ex
kt84PpwaT3JG5WP2j2+S9cP+O0NENtMV7Xp0j3qT9fVuTcE1nVw3ZA+3KGki
66/LXEDFuvAUet1xOL5E1udMMmXyFMUDo0q0Z8+SXrexrl5a4boXTrHnTY+Q
/bD120YT3kZvrG546ztJ9kulaZjwl6azKPt10WyS7Kff2931Dzr5YmuWsP5r
st82yRSH5Xn4Y02TAI96Bdl/RjduOo/5Y6TMF/xHep27tWu1pFcAzp4V+XiT
7Gda0LfV5T6B+MFSyYSP7PcPb68PGAUHo+vpBGn3XJL991YfnAzGz2cbldhI
r1tZdrtb0iMEMTG+JT2LnCemDV/HToRiU6tjRAk5f14LvmuTOhiGasamdvbJ
pDf+/Ro3eiMM6RwFrNuXCHBKGGkqlz2PzW8iL66/SN6/9XURtm3huHz+QT8t
jgCeIa8Uz2UR+Fh1RjT0AgFsx8r7foRFoCLf6Mt8ch4ej1qL/r8icGft2Lr6
c+Tzrf9QbzcciVvPzat1kvP07z3jkrHBKOzvaDS44U1AOFUkNq85BjP0p9/w
2xIQU7tPvWApBl1GQqkPyPm+OOpnlLs/Fs3tj3G5kV5Y+KXKKPZ6LA7bG2dn
k/thlbCMkBglDu1t178uPkrW87WvIu7RCXjK0yfYQIms5+GztQ1qSTgj0z8t
ykHeh6aV2bKwJPQLFYnLI/ebTLiorW5TEppviAvhWiD387ksm0b1ZFQp/pD6
gvQ89jNyS+r7U5B/59+iX59ZcHRwoOOmeioe6eyVqiD37Yvxe5oxYalYN5cT
lv6QBSqe4T8PNaVicO+sVug9Ftyq9+qoUUvDeEaAyp4GFpS8uNe4YusVnAu6
3yNTyYKwo192JW5OxwY2Ht78aNLbOoMrxNTScUmgz5jtAgvERRp3NR5Px/V1
pgIOoSxgca/W7MpNJ8/jtD6HDwvK9ialvuDLQMbsfoeRkyyYNjZ59oQ3E7uL
mecElVmwdY3JSOaybBQs/FOh0scEDjTjm9iWjYylVVbMt0xoFrb1OgTZmPb2
6totXUxY9fyX77vz2fiLbTSn9zETKkfufsXpbDyqxZRdcY0JtFZPA/fPOehs
ov2ph/TGBrnWhs8P8vDqS8XhHGEmnAwubg3sz8OL6/J9ecm8tjzNYWZhIQ9V
v4vui+FlwqTuXOpf1XxU0O6MNOZgQuFzkxeFrHz82b9pR9IoA340r3NOzi1A
gV4/j7RrDLDwZ5x541aEnxJ2GPUfZEBdhtiH5KgiFP7tvv+zCgPuTDv6qBcW
4Tup+8XDcgxYoF35HvOyCAeNfB91iDEgesI14b56MYY8s31pvYIBP9dMVIyu
KcGPktOW8u10mHgqoHifKEVOSY2IdWZ0iGnZ8P1yWylKxv4xPULm6cYHj9gs
BktxcvLay9BDdOg403JleHUZ/rhA9LUp0mGTTq3ebo0y5F1o8hTeSAfB1PLT
C5QyZErcGc3vrIHQfV/W5nmVY53y0sEJwxo43PuahzusHAtuTHRUatcA+8x1
wXOJ5ZigWrXfSr0GnhnyGOhWlOP3o0v0cskaKBITvkrtKceBwStKQ+w14Hry
s9xZrQrMS587vPFGNdTwq/7avJ6CJ5bZ5arzV8NieJ/3F2EK0jLYqBt4qsm9
URlZK03B4Pi8wSH2atAtF7KRO0xBNXFZdv/xKjAMaokfD6bgr1IBvoMtVRA8
OZPt+IGCh/ydJdNJLxzn5fzIVUbF/szf3TotNAiOPiZpwaCim+G6UyuaaKAl
I2FT0EDF7597bLGWBhesdc4IPKeiFKUwXryQBjwxv8a7Zqmoy5TlpvnRwPPU
2jUWZpVYX8e9gypMg0QtrQa7pUrsGpl6kepXCcs336tmW03D13fKBMtOVQJH
scmekk00fKfOFGKerAT7feof23bRcDyJerxepxIsR/fnfDSnYVQy51z85kpY
V9kpN0+joUzjPg35+1SQ37xLikOvCo13c++pX0WF/s0l5Y/Nq1DU0WKP9D8K
5O6NtIm3r8IeuqdLwRQFHi0IRHwPqEK/2Pg4zx4KSJ5Yr+JZUoWfS5r+PqRS
wPUp1+3NP6twUkn/k5sGBcbDP/MeyqrGh9Pfm+K9K+BvlEyeVEk1VrgvoZ5j
BTzZrbnEWV2NQdmOAVzmFZC174TTtdvV2HPRczpoXwVMOr7dQQxWY6uNa/t6
jgowF+pQN5KrwXYrL3nT3HIw+zB5fG1zDXZJ+Gly3CkDqvsfykB7DT60PGXo
RpTBWx7vO6zuGuxz/Hj1YVkZFMp1GciP1OD95XEZPvFlcCfUpKyPi46F9/K2
ZxiXwW1ax/I+QzqWLMbVzmMp/N2w28i6g4570+UP8S0Vg+Ku1wzooePHD9qe
9waLQYTN4vK2fjouKyHUHFqLIZ2P82X7BB2P/VL5nXi5GCxl1AXa1jDwrrDB
nWChYvDcENhuqc/AkVcY9HJvEUTkmso13mVg1zX8yHQtABuvZVnKLQwcVStJ
NdMrgCDvCnXGUwZefXSm74dMARCe7kfiehiov97bX/hPPsCJMKXPUwzUq03d
uetSPnge7Vx0FGdiunBYniAzD7bLpbGrRDEx4tvIrYTxHDBzj7r1Np6JD8a2
SHm/ygEXI5u4wGQmCq54x218IwfU9lkb5eYwUTRIx2QpPAd6fO4mXGIy0fWo
e/w2nhx4O7PcR7SHiWEttrUuu7Lhhvi7PVySLAzOOagl7JgJlwrsVinsYeFa
i/HxX5qZ8GJIJOOYAgtd3OlCj8Qy4T49suLcfhZaNI8KWw9lwPZsyxw3Exb+
DtvQqH4qA4I+LktjBLFwJHtmDdeZdFge/j3OOIyFgYNTc0kG6RB1u5X3awQL
VXI2/+Xakw6tH9d8Xn6RhSz1Cd3f369AArXuZE8+C88HdSjmnr0Cz2eL3Udu
s3D4d5jZ9EAqHL0jIbHsPgujbxbQXCtSIelOgzNfCwtvfNh54JlzKrQ2WTuJ
P2PhQf/tgdFDlyHcN+vwmw8sTElL35QwnAJ3kqQY1FkW3lJVXcn1OQlm7dSa
umUJPPlErfDspwQw2j1nwlAg8EbFa11FagJsOnjCOUyZwKEzu02n3BNgm7XU
HLs6gREr2W6enIyHl3oTgw2HCTRvD4368S8OmnPtVjYeJ1Dws92WnVtigWd4
Pz/fSQIzt71g5PTGwBP303ln7Ahk/3EheVl5DMhrnfrB7kzgyKavfs8kYyD6
7oqRrtME3r6sGy29Nxr8RIKceM4T2CQ+e1+tJAKSvCotfoQTeC/uZGeGRAQE
LL917UUEgdEOJS7D9AtwtutqlX8MgR+2Dkf4NYaDxL+TwQ6XCCzXYoyqvAyD
Lv8NTM5kAr+Sam1tFQaMLumj1SkEqn8T3er38RxUpg9f60wjsLFhc0b6aCj0
pRRpPssm8BKFwnuJLQSqWUElqrkEcvAcsAxNCAaac7VDYR6BrvO/Fp14gqHH
qmm1YSGBXktH5iUEg8Be/MTcsTLyeW38x7zkAsDVrskzqpzA8fsTdMUb/lC1
ZkStqoJAIVpj8y91fzhw+Nx8L5XAw+UfQzx0/eBFDNsCmTMxlxgI12g6CwL7
5PBjDYES/woiLJ56w3aR1TIP6QQufAlydHnvBfeaxzhDmAS2xG6he82dhsRV
FwN1WQQKaLLi3FefhpIUtuS1BIFPM39J2G7xhErKo/qLtQRueH+wSEndHYQf
Nz5Wv0qg/kP+EX79U7D2yMvYzyRPrzf6MH3CDZ4/6fwtUUegxr4kVvk5F+g8
5cu6RbK9qu8/30vO8DSrkOfIdQLVuvz69uc7wXIpvhaDegJVQyQCkvwcwEBp
x9Zmkj9bKxhxpdtBiZDuVqUb5PM83cgXefUkTArYtRSSHDLceHCy4wS0bzu2
ifQ2dDPhVj8xaQ0eU6t5rBsInJP7F353rRVQlgUxakjmWxVxbqusBazKPv9z
muSLZZEVwUZm8IHGM7CvkTyvoenTz7xMYcOsQEgQycezKckHBI3AdW1aPek9
+DCG3/CdlR4c3u2W/5ZkEW7Zfz7ZOvDNMm3HEslzIj1x7N1aYGW1/ITITQLf
v15KF95xAPQa7iipkCyrJeegUKEMpg/qbuiSfGVxX1iUhjQ8ihvsIz0OH09U
9Mn58cOTDr1a0uNwb3m5RcHpxXvGSqM7DUm+F3W98GCXOPIuQx0gWYVPoiH9
uzxmmb7i3k1ydMSRjCiffSg3s/3cOpL/nnDJ8fwJ+C/x7uXv5POl7jU8X9mk
jYPOND3SQzGXGhewPvwIJpePMq+QnOw+/jzkoAF6iF1ptCa5S6uA2rNojNXR
dE8Bkt8ceskl6HgM1bcfae4gzy+JlixwX9McH0uFtESR/OtNcrKLmCUSwUbe
0iQPh/b9YF9mjYt1fXdJr8P0Uxk9BYPHMdj6stU8eb8nNRwtmyi2uKr7Y0ki
yfv6Szg14+zxubtBGg/J31RbVBwUHdHU5J8HG1kvM9tsW15tcMatLVFmPmQ9
HSen/3IOF9yRQRl+c43AMtNeTqVfLmj6zIbjClmPZo/v7o3uckNZt4NXBsj6
PZY2n1XWfArpV0+27ia5vDU+pum6O9ZxzsvSyfq3uvRKvDfTEyFr+rcx2S9N
vl3yPeak18mK1h8j+4m9dUpi2/GzKNDN/tKA7Df58LJUR1sf3J4ouGMnjaz3
Ex+NXep8MS9c2SiA7N+YZqXutCZ/PGvbyKVA9vems8e2px4IQI7fsTtGSsh5
EWHLlXgvAAl9vziVIgIvqI+yezwMxGVzroM+OeR9dI/XDT4JRo3d43WjWeS8
WxZ37ZpBCN5d/f3L8Uyyn80vi4U9D8GkkxuiRa8QGFnT2/z7ZSj6Z46G65Dz
7O2syMbCnjD8yRhZNXOOQPFk+SmfoQjc7Tl8cjiEQN+Zr2MtrpFoXBq7pT2I
QJvevHXrRyJx/u6KTxF+5PmxU8WPBEZhfad6caQHgb0325RSgqORy8bJb8SC
rMf4b307wmIx51bJO0MzAj0kzSWjm2LxjuqGW3QTAuWW7x18MxeLO8azPhnq
E3ieMnfK73wcRqk4fZEGArVo49ccw+OxXfJ6grEk2T8D3y4IXkjEHpF/mc4S
BAZ907n87GYiUt58PugjRp53qdCzsOlE9P967rS/EIEF3xuLH525iMp59vu3
rSNwdXfwnw02l/DHhjz3LTPkvny85n7k3mR0zUzOv/mDhYodfyY6fJORd+Ji
oMkEuY8/c7huZibjgfXzUu5fWDil6DKSK56Cy1/lUDTekfv7ycMbWusuo+Wo
HTWV3K+DXh0v939JxaxHsh2NjeS+lX2QvVk8DdOFtK69u87CCE+xW5O2aThw
53cJJ5OF3rGRA3GdaWgVV76fp4iFkZuJjGr7K5hjS7e+Re57wa0U/7qj6eg/
ZOdGVyTZYSAhaXMmfvUos0+QYeHdD1lWvfsykb4VfpyQYqGvclCx9PFM9Hx+
cfSLMAs/6V3zqs/JxDPPCvRKuVjYvH47X9zGLORwWSN/4SMTM9Tqr3PzZKO7
4/0+tggmzv4Mrb3wNwfVvX9t6gphYl7chnVrBXKR7t0lWOzHxIUFbMvdm4vR
Hc1XBN2YWD+3RzLXPxdLrvIEsgyY+H4wt+Dw91xsk9tVaSrARIrU6Xqzvjzc
ci1xY1I1A1f1SA4v3inAXcvVTc6XM3Crdco60fcFmBm42O9awMAfTywfq/4p
wBO9xVxiKQwctH9+20yhkJzLHayDPgx0Gr/zRqayEP0zCO7VygysmZ994Zdc
hJw33Mv/NdLR+3LmmtljJZgz/TzkXy0dLTOF9YXOluAxFf2RmSo6Tl/9sGlv
Ugl6Jvpmvcyl47jeo70mD0vwO+VEoEwIHc3vXmrfqliKtXnnNROV6XitXEeT
m6sMx5OPu7TX1KC9xRq5qsEyXGu8yiG8vAa/XbCR15osw6olqrRkfg2mHuQS
6pkvQ/WrdLXTF2tQQMyh7PemctRRKPehnSLfH7mDf/mRchxJqF4xK1aD6rYN
q63o5TjO8TqMj/QDrbfnFR94V+BCv1Xw8uRq3BvhcKXzXAUm8C/GjUdXo+GY
U2h/fAU+FIwfZvlU4+xWsQ/fiiuweVZz7It+NW57YF3w4nkFWfeBHNps1agq
fe3crT0UPCzdblx5qgrN5XJbeb9QUIfqI8ppW4UuT7mWJ/yiIPWTmrHzsSrk
nD6eO7NEQWOu453LD1ThAa6Qa82CVPyx8OLJHG8VOuspHRPSp2Jru5sE6xYN
x7oM5W+QnlfvsmCvtZKGSSufmp4/XYk925R+dc9V4obwtAzl4EpcrdSj5zxZ
iVZrTt/5El2JC+6eBqffVqLONf7b+/Mr8a695LwcvRKTLt/kLHhciaNmFhNZ
hpXIZyy/tGc7DRNvlVz8mELFq+MRz7Jf09CP64RbRDQVddY4NbX303A3t6mc
UDAVn/+NWJr/SsPFU+o5Og5U9HG2iTdYpKECr+KSnQIVu4PM1Wg7q5BiYni7
tJuCx//x8h0NrsLzLLdV5wUo6Nh0L3zP+mqcamcTiuKmoJyiVXL1lmp8NO0Q
HLVUgbYa2hQRiWrsOG7AH/ClAu9mPfz8V6Uab6zUMN7WWIE5ZVKBbrbVWBeT
c7DYsgLV81bWbaVV43vDaiOVtHKMUwv9+Eu5Bj0CRZu+xpSj3Ozm+1EHa/DA
3zsLecHluDQZSOHUrcExb3Heb3bl2D+134nDugYXK149sNtTjo221Ki60Bp0
sXnyObKtDA8F6V4Zb6pBWx53vrz5Uqy249V/ok7HhcL1v5cGSlHthZp5xiE6
Tl7decixrRSfqK4WsdSn46aGKeXV2aX4Ygp+PD5Bx6uJq+WXy5biuFSdjXMo
2UdaJ95n25fgdKwC1aOejiembuqfbCrCX4LJ9YQkAx94S7MVFhfhEPN55GE5
BhphV11nVBF67HtDdKowUJqbW176SBHeD3kk91aHgX2b9nqFdRVixS/PmEQX
BvYW/OSoGivA7uMHi4KKGRjx3v6z58Z8HFj5uiSam4kSnx24bs3koeN5p1+i
G5g4IpUny/42DxveKXg1CDKxIfxPZXhRHnau0mxu38HEx829u8R25KFu0WxX
LjDRJ3WyR5KcU2bH7Cauk3NLtzHn9inTbDxt6zs52cHEUo0P934oZeMe7bNq
cq+ZuK/TKjdEIBuPR1SEu79nYm9bw1BAXxYe3Jj/9eEwE9d73GLKeWXhDVqK
+o5ZJrINPhFsSsjEsUtl1JxtLByY0nAwuJmODdksC4nTLHzYPZKhUZiODrOD
PlFnWcjmuyNcJiIdret+2L/2J/eI093kRe10HPniUu95noWxglNuZzuuoGhT
mOiBFPL16QPh/O1pOGgmszGR3BNl+3xG3ginoD//uzqC3EN/unDxRW8yUkPz
3L2/sVB7aNlWLE4m7+dh0vZJFqpff0QkCidjkwC/YPBvFjoKRave2ZqEMo15
CvXLCZQyWTP5cPNFPKr8NiJTlMy58lPT2u8S0Up7XVmbOJn7N1ntvJeXiM95
34jO7CDw03yOZYlAIhYU+qsq7yHw0Nbn39bxJWDZ6DpCfx+Z29dt2dO2Ng7H
r8FcjzGZo19fzx1+HosFUk+LYo6RufuTpfV8SiyOpcdckSBzgXUgr7AgdyzW
Ms57GJ8gUG/ySDsvZwwWO6xrVXMh8Psttk/srdHo7xHaW+JG4F16Ze94XDTK
zhtqzruTOfzCob6GZdFo+ynhc74XgQc0Z/8JL0Rip/73wrNkTlFYin5ady4S
i18ZL1wmc8xpF7dMjT8RqMw1V0Elcw4H99Xa/T8v4FJS2/3GCwRuP8qz6+WX
8+jPJyEbFE/gim67jzGvQtAqdcHKkMxR22IricPWITgn1uX2iMxZwjOdTLbe
YFzm3/hKhcxhZRVsVe6jQSgrr47L8gmE3v6v04sBuN360hcNMsdZTsf6J8cF
YFCV2OuwUjKX7wsUEl4dgLfEhIRrydy32Bl3VJHPH8vTlprYKASWrrjpLrnb
F/l2Fe48WkXmoHGeHGUnH7ymfaBfl8yVcS30hA1eZ1FqN8/UQTJ3Nms8et8Y
7YWforU38zEIjEqsvxmZcgZ99fYqzJDs8fPSDc3c05iVerrsOel1b9v62WqZ
Hlhj8CTWnfQ47bxPT2wb3bHXI+WP1H8ep9RGW/7wFOoZtz4YJPmopl26do8r
Lj4eOQ5kjjb4lrP5w4ALbjUN3jFIsnF9B937uzPuufjiyAUyd88Lu/XGsTuh
xz+4XETmcqtB69lVPI5oHrH+6rb/cvv7bzv5ZezxnspWqWKSQ/s3d/IessX2
9Voz60kPeLWp5+xyaxtsHXYWiCQ5IOZhyI8zx1Ha51TqMMnW3eHub6OskGGj
aHOI9AhX9eqbt7ItcN/+2rA8khsNRj9n082QK+3x5Mh/nvd1wNMbTTHvnvst
GdJTMrWCI6KrjfDq1ogeL5I9Vqs82Naph/4jc3pUktkUzdNvzeugsfZL3m6S
J0+KDhvuOIQbdH7uXiDZne+DXWPxARz9YlW4lfSow3e3v3g+pYwnNvy230vy
S794znuJ0miS/ST4P49jL71cef0kP/LveT74n8cdEPStU77KBg7hixX/eZzX
Cn2xX/Hb4SC/XaMByf1KM1vGfBRgd+CYqMZ/r3+cof9mqxqsmK/5KEXyVLTn
lj5XTeCeKxvnJrnJNeGP4f7D8In+xuwL+XyR0YaPG9YfhQQFC57bJI+keGZt
GTUA2yKJLYkkP7+d4hlyzwREhi3CDUhWirkuderpMej/9kuRi+QOhuXulBvm
sDJ6g8Zd8vx0vTkPscos4ejJ5uLTJD/MlPjZlmwN9K1CZrwkL0oJKE84nQQp
X6Fbh8n7uSG4/ZaVth0cp3o0vibvd2JeZN9NCQc4JfPbyoHk9vP90nUBTnCu
RifMlqyPpdGaldauzrD/ns5iB1k/gnJ2oX8sXED7zDKJAyRfNAlTkVZxg786
WpaLpLcdXuG27s7OU6B7e52TBck+p9Rzjwq4A+9xpXUUsl4HLtU/M/3rAZKr
d5pLk/Vtd640QqDJC9pOvoz4RHqblciViFC6NzQ3mlXMk/3j0V7r0FlwFtyV
rnquI/mQlf1k40Ff2Ck4MLyN7D8lVsH9HSL+kOFyN/NbBYGjt3uLVXL84bN0
7cd20uPWyKxfob02AA4KBrRTyX5WGORaNFoMAHH/1EJNsv+Nj94M2NUXBMV6
Wmu3kfPBqf3XuY1WwSC+ZuTyo1wCXfjvbv/7PBg4x1tuuJDz5PDa/omrd0Og
PDxh6RI5f44MzRzsLToHa/pfxUVcJj1Lfs/+/E1hUK44bfL1v99Drfg0Y5wS
BtMuu1oNk8j353bJV50/DwVKNjf+JRBYVd+Wx2lzARo6BemcUWT9H0G71FcX
oGPNqneqEeS80oudW6MXAZaJlg2O4eT357999I9qJBTqP7lQFEp68Z2ypMak
KKj8O2p4x5dALiuU83aPAekBhePFDuR8NtfqnKuKAfEtz7ZJ2pHz04ZTPnY0
BsS+a1tV25DzjHK+O9YzFiptylanWxLIqBVtPnQmDmQGHVjzpPd1W7sYVXkn
gNvuuHgVZfL99Te2vmUlwITbqyBVBQL3Pw+OWzaRAF5prv1ysuS86Gjv1j6b
CGkK7WKcUuT5PnxzIfjsRfj4b0e4Cel9u066bkvxTgIrNyvzo2wEpg9ZLhix
kuDh1UntBwssHHtda8I1ngSH8kvvKMyS+/VCxaZTXslw2dhAf5b0QIM34tta
TqeAvP+VX+JDLMwyGLg055YK/+7knBloZiFFQqX5q3Q6GOjkfNwQyUJd2DWw
62g63M/pO/mc9DZhs857bm7p0HbpdkFUMAs7WLFFL0vTwVrJ9+Qrb3J/swwE
/TdlACugc+VWWxaajGo+613IgIV4nLdSJV8fqKu682kW9Dq4e58ZZWLOUqz/
y5Es0Nc7slZziIkCDfGXgjiyofg8R9aaPiZaJFTJXj2QDe/z5cwzu0hvO+N5
ZYTIhpNZV1r07jExesok9VhGDoiKzhe4ZDCRdci1eNIiD+blKlgWe5ko5qGV
ohGQB78uRhCtskxMnmY/k5CeB+X9qsnyUkxEKcXXbC/yYJPMp/5vW5gYXD3s
XqqbD31GA7vZ2ZhIld46dl6lAJLbt6+obmOgqt/2ySDeIrBHHJs2Z2DayVHe
ThmSGZKHTxkycOf4y7U7DYpgwuJVU8dhBqpw7blwI74I7G5e5Urey8B3391V
/eaKwGoy1ZXCz8CN+KjFYrAYJHdc22jXQ0dV0Yb36YxSOGj7KXy5OR2/3pT2
tHxcCnFGZg8ryXx7TdtfhHeoFKp/1d8AMv86HjTy2bumDFSW19TaKdAxV6Pv
rM3hMojK11U8tI6OQA9c//RaGRhUd1ysfULmb6qk1Y5L5ZAuYZK3R60Gb+uZ
S/nnlEOVXYf+qFwNvvR+t6mJUg48M7OzRTtrcM/Ybtn998ohdSf9+I+NNZgR
cWOO/Vc5UKdPOepOVONVvcOtJScroE1I4QulvBqd4jPa5qUocOZ2eyVwVGN/
WN2xdmUK9AZesH0xW4W6wheVcjQpoMW79rD1VBWqPfwyI3ycAp11s4R1bxXe
8sUdMwkUqKJcUt7YWIXBNq2NOEQBt3d5nCGeVXhpM7G+Lp8KTiu97Zc9paHT
SJHGFyoV2giXux+Qhjd/8p4RuEoFppp+fu0NGn6Sqmv0aKXCzW0tr3TLaaT/
aHS/+EmFrL4HSUqhNBzYUv+Apl8JS+w/Dbh20JCx5/mo/+9KOKEDbVfDKvFL
zN30EXYa9PA+Gpg+W4l7aU9nzNfQIOqi9idFl0ose6w6KCRBA53Z9Pwig0rk
WFXzw+EYDWx16Cclt1ai2rScUAOdBhn6gnzCd0jfFPkbFne8CmLqgnzL/1DQ
11jQdpdLFcxd838s9Y2CPC+uZz72roKrnp/86H0UtLbXmZuMqQL33wYdRY8o
KNSRbzrFrAK5Iz68GpkUHOW7lMBcqoICmehXQTIU3NQtVb5YWg01l4RedNlV
YH7B2dPiNdUgVSd2IuUY6dtXD2zSrKsGzezn1po6FZhLdWPzbKkGyS3Gdwr2
VKDcim/zvqPVsHLyRsjm+XKcG3uWYi1XAy8GRjy1csvR19qsw+dmDUQXRXAc
e1aG0k0dru33a8CZysYRgWW44Y1b9rYnNWBeOf+OVkd+XSMXG9/VgNABEaHv
eWU4vT5+MW+uBobeFmjruJWh7bYLDjv20+H+o0+znnOlaH159Il1Ix2m7K/G
aFmUYLqKzOyde3TYd89ohYR6Ca4XY7YKtdLBxMX32JJoCb6yOLa3tZsOcbr7
Hcq+FSPx1Ub+xQ86bKEuLaXEFOOjmgihGmkGsOVc6earLUIJvMIZmcsAGX/h
jRs4ClGDkXp9UwkDilev+Ld5tAAHk863UagMyBM/el7oeQFa8Q7sJK4x4IEh
zZg7twA7+s4kBbQzwIYrYkWpdAGqC+/NwX8MkGt0sS8yzcfjLRQnMzsmGFeK
OG7Ny8Xxc5xzqS5MYPdoM+IKy8XQPP78Zk8mcEtbUsZP5iK7n+bwpmAm7JP/
XkUVzUXZt9ER1qlMOJCqu/wRLQfpTgJHT95lwsYt+ufeXM/GJyyRV8f4WGCe
KiYT+iQTjwTwrU7ZwgLKQmFhOT2T9I5j/PdEWbA95Wfso+RM5PNorVglzYJP
uQPDC0aZ2BBs6aKhwYLpnx/eS3dm4J6nB44Ku7Egd7ZLOfldOq6KgMNVTBZ8
UdKu2/skDe3UEmrTr7LgZf6iTURqGk7JjPUE1rNAY8+0AZqn4d2Fg7Y77rDg
3gEuTem+VEwzHxGUa2cB1/JsDtrPy0gvL8gZ/sKCOn+NLK0tKVjAE+tm840F
F+/dieLrT8bHilJDbRMsMAmTLxqkJGM4r8mXtBkWvHkwlO8hk4z8i0vzj5YR
UNKro7tDMwl9HxynvhIioLggh/+s60X85nNo8ZUIATmj1vhB6iJuCjWbeypG
gBYjMFJ7PBGvfF98TZMkYOLf2ij24ETE+6WcK5UIoBzcL6SWmIChOmVNTkcJ
WLDIiaZUx6GdBnXomz4BtRuFQ295xWG/wwrqWSMC4lR7fJ7Kx+HcNq9ROzMC
yp5eLO69GYvxh3h8hk4SsOdmfsrTthjsbbny65I3AWPxCxntX6IwdAVH8Xsf
An7kZwzmUqOQnQuXxPwJOLWCLurgFIV8v00msoIJcDWr8Lh7IxJDLfnsuCMJ
iH69nFuv8AJ+uc1+b300AdLLlRezNl3AZ3f+dq6NJWCjQ+ymt5fD8drjIv7x
BAICmK3Gh6POo4ZlyLRaKgHBY0aht1zP4YW1Dp9n0gj4GvNuWXNvKG5Lexxf
nU6ACsVktsUqFPs+c3f9yCK/f2rqi7qjISgxkZu+qZAAe9e3Bep7glBvVfVU
fBEBqRt2reCpDETWI9f58WICZgMfSvQIB6LSOvkNFWX//b8MVerkugBkVt9X
K6gkwGbI9ZHIT1+k0bvH7tPIn49b2vbhaV80Eg053FdFgEy+2PCDVh9k2a6d
WqghwH1TcZRojTd+eGCntUgnYLjZLkezwAvfdE6p/WYQUP0pYfp48hlcjG8Q
fcoi66HJstvX2xODUm14aAQBbj7b533tPTB43Y7S0FoCtI1r6j1N3NGuTK6B
/RoBYeuPSOsquCHf0B+1myQvcuUnS4u74o7lf5z/+7tKHlGBp1wbXfBtxRMK
5ToBHOvEdtVPO+J28QO3lesJmBv61svR7oAysdtD7pAcVLX+VjbTDofdrXrU
bxCgp7r8kkjqSTxhSHyoJfmthMCvEp8T+DyBM06ogYDGK2VFAses8dYRrZcX
/vu7vz9/pS8pWuK7/IP335CczX5ee3qjOao4D5jvbCRgn2ls8okZU9zjuCmZ
9Di4mvbJNIBlhCEyD9xqSI69rx0p7auHihqvhz6SvGb05/d3ijo4+ElzBedN
AkwFrw/HzGhiiMafJ5Ikr6rNcTbyVUNLmwkFIPl4BNf+yzPyaLZB9KARybu8
Sl6mzWzD//9/OQbv0gmvH753/geqP1VU
          "]]}, {
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJw1m3c01v/7x4tQRpHVopIGooFI5SqikBZJRVIyUjISUTbJ3nvvPTKzLnuv
e7yTVKShUCpNou/rc87v5x/ncW732/v9el3X9Xo+zrnvzVdvn73OsmTJkjus
S5b897vlxw6D4GYKlvzfz8TBM5UBhAMfvSvb5qgGGlXdrV6EyyvXC4s7noN+
neiHDoSf0/X7hNddAXWtmkUTwrE6P9PXOl4H602KktqE7xiwHhF6egO+Jgtx
7ib8bs0qKfZ11nB5zCCJh7D1eTvNhU5b2KXCP/GuiYJkLdehGQd7aLmt+raa
MNf3ZVIvtznCZcPfkT6E+yKGElspJ9iiofz3JOE9Yz2+mV4PQLBWTHg14dJV
Bmm41g1WeZe/H2ikIEBaKXKHjTu0NLNa+hLepnJLI7DTA9TubQ77iISt/bOP
O3iDb5yQfBjh7T/P5SX1+8A1N6FAecJdd+Q2zWz1BXmhMIObDRQUeMwJuTD9
ILlOmfmvnoLvJ3q/1EoFgJuA/tIgwtFFPjPfPAJhZubw/bg6Cvjr+3wy14SA
fJVW9xrCvHU/m+VbQ0Cran9/aC0FosX+k023Q+Hh6qO/7WooqMmb1+1rDwOH
DfPPfleR9YoC9oI7kWAa9G/4BOGfO3h4hDdFwdNVq8PiKyk4Lmdeer8nCvhE
V+2QqKCAavgspSAWA0/tbL8se0xBfHG6vslAHLjfnCiSKaXAYa9SXbJTPGTF
T2zVKaHgaCjjNnNrAozFX1EOKKJAbcx0k8T9RFBkv7wR8yhQSbcMOCSQApui
TuQ05FIw67NJocEiBSLqIqeqcyiQSlJ7o4QpsH9MIS0xi4IQ29zp7TdS4eNz
1qHtaRT05wY/6Mc0WMe9NxFiyPrNbLA4cCMTNolPsfdHUbBm/dqtie2ZMHZp
UFUvktRLdkTWb7Es4BzuV9QNoyCs5UpIwkgWfM7rXc8eQME3ENgQeSIHHJTW
Sau4UHDyjPOSvdL5EF5N/3frPtkPk9DKLY/ywShRpTDciQKLWZMAnnf5wMtl
Edd7lwKbCRGZroQC2PNesO+7FQVDlpo3XnIVQfniC/6Nlym4Ie9jvudOCawH
Z+rDJQp8QkrXvUstgdYtos4FFyiYXjHPGTFQAk23Wew3n6Pg1PlMmzeSpbD2
W5x8sxZ5/+7Bj+qvS6FLxc5jVIGC9/J/RQS1y+Cv/DGLIC4KDvVgrt2mSljy
3T2xczkFBt4yQU6alSDd/D5sgY0CZ4WgN853KsF845+W80sokLU8UHWrsxLO
LfDr9H1ngrWk/ktu6ypw42HtrH/BBO/ugqW7G6ph6Qtu8yc5TOhYKjPeeK4W
RFIOy2lnMsGvMKxiqWstaN649XwklQmGpvGFB3Jq4burWPXHOCY4CTuPx83V
QrDvOVpHABO+LGU9zJZcB59iPhwJus2EdafvMd3e18PqE9+iNPcwYXiXNed7
hUawtWpnnJJmQmU0a06uViP8pR4pnZZgQnt/iaGFUSPwL5Y/UtnMBJVbNxZf
+DTCr6O1Gp94mTCbxxUaQTWS+1SXNphhwOBIxchh2ybgpkVkZOUwQID+BW7l
NMPKq395+TMY4MWs7cirbYZwMcVOp2QGGMasor/pbwZO4cj1B6MYIGf+9tLx
H83QJcZi7+PJgAPLvFueH2mBgGqVGSVDBnCPaY1tet4Cumu7NknxMOC65SnH
1RxtwJmQvjycgwGiARLdWuvbQOioR9iPpQxYt4t3h+uuNnBVTA/L+0mHDi+l
r4zzbUArk7RhjtJh28T7tfI5bSAy/ItPopQOTT/O0waPtQO74x6f16fogJ/V
49Q9OqCrReRligYdhty1vSsjO2ChI4Xrkip5/zrbro25HcC50u0n7qODpdCe
Y68GOoBh6Ct/QoQOt0Ufu3KKdIL4s/Tp2x9pMJtqLL6+shNyqnUkvj6gQbRn
ePKv8S7Y6Lqp3suBBiVN4se1vnfBAbH77AI2NPDb4R0Sw9YN7sLyjVtNaKDZ
UD6zcUc3XNY4+FdQkwYturttXt/sBrYXHouSgjRIevNsUOpHN2y0tEvdmzMI
srFhw41LeqHOZpHrcOog/KPeXT7M1wv3VtVe0YgbBMvv4v+qN/cCoy514FTA
IPAr7XeLVOkFqTiNWSnrQSicHuaf9+yF6rmbT8UUBkG1JP7fHbY+aPb41ybj
NQAqD87vX87aDz/faNpy3RkAh+UcgV/5+2Fo2J1r9NoAZOYpyNLF+yHzuJGw
peoAbPfPuHZPvR/2xG9ZI8wyAB9nZnsvP+oHHuvCseYH/eDR8NXfnWcAVlx6
I+lv1Qd109I9HhyD8MNruuSkYR9kBe5eNFs1CPKftjesONEHd4rZg48LD0Ia
Y6uHqUQf8CcJN81vG4QV5foHa9/0wn4zl+2S6uS5RQ3HKb1e6Cwx4sj0HIRV
TqNVs/t6QPKFWD7r/CAcfHn6OMfWHmD4t6nIsNBgC8vlE/z8PcDaH71RdwUN
HF+rtQjMdIP4j2cpocI0sF4b+7s+qxs6N9/zY8jS4MUP98lCgW7wqX+namNJ
g6vLPidvn+qEc0/N37AP0WD5mVcOOs86QZ576krUSxo81Nlo5tjWCb2Bse83
vaXBsayglMLkThBV2se6/SsNxAssV7frdIKVwtDJX5x0eHI1MayspgNu0kKS
sw7R4dxG5RtZnu0Ao5dmZJPpwMr7tfuMTTuolCQr1WaQuiv3rP91uR0MHwmx
KueRutflviGr1A7vlmmw76ugg1DFGcMbX9qg5UBJyUw3HdTUN0U9v9QG0W1x
1r4/6CB37PmrNzKtIFntWax+jAEXHCplJte3QifXls0HTjCg7+JiytTyVsg9
ajUheYYBj/zk/o2Ot0CUucqtvxcZ4LRNdktwVAuc+Fx50MyKAXZ/OAS5FppB
/8G+dxcjGBCyq1Ihrr0JdMQrLB+/YICvKe9ds9Im4PS9ue/WawaUCHXn70po
gmrHXRfE3jNgf4OHYKlNE5zf4ZLqTOYMd5K5v+OGJni6XnzN5FImLB+KPr3R
phFYtLmcKrYygSXZbPln6QbwMzbTWDBnQsGuiJ+GLA3wzK4gYcktJpwNXXup
7Wk92Jke27RozQRXgf5qJ9d66BX8WTbhSOZwMYq5D9bBbQfq0x1fJlhMBkZz
2NTCcm22yrtZTGDq6j8+W1ANQ+a/VXhfMeGST8t19KgGtlXtvze+ZsLmkYts
2y5Uw/Q8uEu+ZUKw+5m9r9mqYVmvPMfuSSZo8/ib8BpVQaiUIf3vDyb0hp9X
vMRbCVXudi0J3BS4X3F4aPm+AuRiL5y4sIoC1ax75nfrKqB13D6BdzU5R9ha
V9w3r4COmpTg28LknJRZ9elYYzkcHJYv/ryZgusrq85PWZXBHKeO6ld5CjS9
DufkHi2DZ3fSvl5QpGClde2ea+vK4NaNBYN6JZL7Iu6s7Wx7DPGvHM3vAMlt
VfXGFzc8hiM6qirpx8k5LVPMkddZAlFLDDxZL1KwNCyfsSmpBNqGdjUIG1Dw
IH3ILdyuBN483Fu4jZy7h0Zmc26KlsDSbbWZcldJrhgfKH41UQRXh15/471B
gXRG4LjLwQIwklgX1u1IwRzFsEr9kA/73CWF3Mk5L5QRq1sfkQ+pWn+d95Ic
kPc+/v7r6TzYdP74lLcrBWfMY6xeJuTCDkdP7RlvCm5lffrZezwXNnHFMO8/
pIA+OOxY+T0HfnDpKbE9osA/MemJA8kZBv4XUv7LHX2aylcq5rPg8K3Q3p5Q
cr2vGe/vZmeBdN+88u5wkqsqBTlkdbJgHUMtMDiCgoYb5qbxeZnguVuqTjma
gvaVBjSZCxnw0ubKRaMECjzri7/YVKSC643Mc7mZFJxXn/R8fyUV9PSdjWtJ
jkqsZpnV404F82rfo53ZFDQvMa+QupYCUw2awXSSw7rKJxa1NydB3dmq3bmF
FPxD7hN/HBLhV4b/TCjJcfoOvuGJ/Qngd/SJp30xBfIF3x7TnOPBqva4lDTJ
gbv+fEucpmIgpjDa5nI5yW37xHaY7IwBzm8BlAjJkbK8RTOURzQwJE7wPCN8
cZfTs5xdUbCwy/HXQZJDFXgCNTl9IiH/a3DuBOG2jNR40xcRYBzYIRNYTUHL
e4/7vI/C4W/Xn9LOJxQ8+iJleHk0DJgHcosvk5x71ii4IVs+DHIlxl1nCLMq
amZKj4eAaqFZ9FKSk7+H+zjfUAyBum+2rzwIB2kFfVAXCYZCfu9fi4S9zM++
ErgbAIPPjydPkNzNUNgiF8bmD1snv0gakpzuWmH6gyPyEVT1Cyf2Eh4zdH10
V9wXRNWSfvyX671LaOdflfmQdTOViyVczN/aAareIGJ+7sJPwguVDYfj6Z5w
ecNpE23iDavq7KeOfHUDLFux8yPhN70Cz9YvdYWENwkfpIl3rDhdvC1/433Y
8uSt303CDUOxoXuV74F22sDqTMLW1hUTjw3ugnGLttsQ4dYt737tdLaDTz9P
M1iJB72s5wlNjbUGRl8vlyRh3a1Sy7ZYW8Lx4EoJzf+861Gn7HzBdRhSZJP+
z7P+SvslxjGMwNylVNDxP28bm3gnr60LSt0Vb7wJPxjL/B0VeAQ+HVwZHUj4
q9DZDVwLW9G1sHrXf57XdnLF33UBJ1Ajt7zQj3DtVZto+94LuOIOK58b4ZOX
+ZUsc6/iU46cC7cJ+7kr34y6aY6SgtkP9Qnz1Zi11uyywiEWjvgDhO01jM5a
/rFBns8D4WsIpzjXKHx/fgd18rhsZ8jzhjCMVB3qHNC7qU2+kXCLrmXWbKIT
UnZco36E347NhZq7PkCsmrp1ivDR/dHxN3a7IY+SwzgPYWGpiGsbUt2xz7Dx
YDtZf63HPvu7+Dzx9MGR+46EbyWxVFp7eKFo5ss0ccJ7IdFm9aw3/hEZLeom
+5nj/mlZ0bWH2D/+O+UG4VrugOWqTF8sfad2bxlhz8v8grSjfjjcP64QQ+qF
2nM6/+nWQFTwfGheSOpr9sNRU+2oIJSSpj2XIczpc7rdkDUEe50+y+aRenR8
xg8NdqGoFqIUH0S8zkEnkqGiG4HlelEqK0n9y9qwKupxR2Ll088zl0l/3Dn5
uvxaayRSwXe8c0n/fLM1k7gpF41c35kWO4nXeedd1pcWiEMF8fciH4nHJT1b
MsLVG4dBgrGrVxDeRlMcHveMR7X9h7+KkX7Ofy/mdG82AZ04bt86+l+/21nk
qdKTsXSsy1w5n4JLe5wLepRTMOBzqvhh4nVF75cF2ESk4P3IV5EHyTxRureP
txRSsSXAK3YrmTfT7bFv/kamYX1Ay85q4nHbeJ3LvKbSMLr5V1xwKgXDGtfe
chxJx67x4kbjFAosl6Pgkul07ONjyv5MpGDHXTGriiOZKP1Yu2mUeB/n0ccL
gtGZWPTkz2wAmYfKX3SP2Uxn4vXQ+DE54oFz7tYVwtFZaLdp9cc7ZJ7K7Y+r
2DydjR9enmisCPyvP4VWrYnMw/tGKs+U3CnQTt/6YN1kHo5ouzHDyXw3NTLW
F4J83Po7KGTiAQXrfPVZ5z7k42vpZg1Xcj6IfXR9b3WwEG+lHum9bUfBRtNN
TX9fF+MCvLU7Z0LBq32xfAHhjzGwsTNtnwqZR1Zn54SaHmPm5OTjSnK+/fh1
2D3h82OcC1jI3X2IAl83F/lojTK8FDxyajU5H3umhLo1/pVhRtuu4ABpsp95
k4diLCowcWPiQ0Ny3m4If/GpPaoCP6i7Gd8XIPvb3Ww501KBvtm1MpF8FBTm
RSdKi1Yi43NoVjnxxBVzv60M6ZX4LufBlvx/TFj618DZdX81urktF3J4z4Sa
3AfzR02rUTdrb6D8GyawNa5xZg2vxp4dw2yfR4n3hVxTs5yuRqfCK/9ODDPh
V49q8tukJ/hscKNMSw/xuOK2fXYstWgft0svtJgJE9lxI1kt9ehT3bq8zpYJ
qvvlk7I+16PVjQSzASsmuLh6rE1a24CrjtZvfHmDCT1VRZx3bjegXv7+lImr
TOA3EPOvWYf4QX/V0idnmVAxfYNiKDSikv5z5ZPEGzdVbebWf9SE9xfTX2tO
MkDqUTH38aQmzBMUzsx/x4C0i/3SsmVNeOZY0wQ7yXPK3+Jr5l40oUrc6EzB
EAO0X/QZnNzdjD/tYndVtTKgW7KnhuVpM8b9zYxoS2TAvHXsaweRVpSdPOXO
0CLvFwnkvba7FXPTLYzG1RlQzKJkoqHaip83mMdNH2HAt02hZhwWrSip8Fxq
VoEBX3bsNTpe3ooutUdedW5hwJgGv+hzjTY8kKAQFj1HB/Png44iNu14iv3m
n26Sl1/8UHho4tmO7/5eGD5G8rR/wz6prMh2nF3hotwYS4eaGEuxtTXtKB9b
m5geRP4+lUennqUD5UWCKTlHOqS+MpmeC+vAkzO7Lnpo0mExuAN3FndizrpJ
S8YUDez/yJxVau7EtMZZkcPvaHDzy+L4YaoTF22iMPsVDXpunplUnO/EMy4b
h81oxAfiXP4w1Ltwxc+R2PxKGmye9rIqfdGFPTSfeRU3GtyuUGx5y9KDua9f
Uw2raFA3kjnCIdiDfqul5AKX0+CurqTmlu096HvZvVFvKQ367/0VUNXqwbBC
N8uRb4Pw9PRT+tbwHjzBp340nxqEEPMNrnabe/Ez7wGaKfHCDBbOQG7FPuRf
9NxssGkQanuXB3If70ORp5o71q4dBJvI5efY9Pvw4ac1CnS+QYh/f0L6tUMf
Tnz4bafIOggHfq8JPVLVh1WiHkr5PQOAtRL1qXL96BI2+ChHdwBcOvY0t0oM
oG6CZObolX6wTr969KniAA5dCeq7eqYfWuzWC4wdG0ADnUf3Xx3pB2+ns4Ev
rg/gQGv4AxTrB7FHrq6OqQOoUeLnsONtH0zKyUcncA2iK6tzYez1PhiysT14
1WUQ9R/UhAtc6wWds1vrWXwG8eleMYEzZ3ohxfq2fVLgIF7kkLrqDb1gnDPv
2ZEwiGPi9c7U+l7Ylpw6MloziC1cZfICzB5gV9oWvP3nIIZ18evwqvbAA0Xt
zcssaGjGtlV0x3ri3++7LTmsaThAz3UyX94NRV1ieWwONOSVED2Z+qMLzF9q
zH3zouGIe+TtvwNdoDOzpSQkhYafKUf5C15dcLHsbPnTpzTUGPwcW0q88cKB
fy6uQEfJ75rxyyo6gD9CnIlqdNyecWBnTWoHtISL8c5r0fGtrOJWi6AO4Imu
kL+qT0eT0ncmZWYd4PVjnH3Wmo4l1bce/1nbAbctzVVFUul4UW5R/eyDdlj3
TMfdd4GOXnyBTy5AG3ie5b4txspAU9N3o+pSbYCS7SurljPwMNseURnhNohf
xnZ5kJ+BrNF8fyY/t8KGMTveFgkG1o4atYkmtYLR+AbrbF0GFsrV59jNt0B6
o2eTcRYDNe0e28yVNoNFlXv4XB4DLzRcdIpLaoa91S+TgooZ+FgvYEHevxm8
I5UNc6oZ+DHqqo+RSTPs+9dzIa2bgQzTua0PhJoh+bikUfEnBsa76jW9v9cE
15rWHdm2m4lbDha1RBxqBBkNXhlxOSYm1tafKZRohG0nBGVFFJmovnLVbJNg
I+wQsXNfcpiJU9fT2HAEQWFXu0DAKSaOz/+te3YAof/Zb9XKW0wssGwJTJur
h8m+tfans5i4LfLmBqZtLWz6fYLvdy4TzQOuvy9SrwWOALeO2EIm9pjtmXBf
Vwvf1rQ96ClnIveNcuRtroF0je0/JpqZOPJsmQyDtwZ2GPzatewVEy9GtPP/
/M8bh+7PnnjNxL7DlOJFt2pwuq3QFPyWXC/inlGVTjUY349wYJ1i4p0d998a
zFXBIzmNfem/mHjrfeZevWNVoPZ+lVzLKgr3tTat4hmrgMcXZ2QKVlNYoqKv
xVFWAa/XTW8NFqTw+271c/PeFZB6b3aZ6noKI9fHctCkKqBgINz66jYKC9tC
T8o5lMMMd9hJ1wMUOnbwFb/jLoOQtA+sO40p/KGapH9SrgTyX80XylyjEHSG
EtJXlEDMWC7bzusUSsl8aP9YXwxc4S9qhSwofFmWd1SYvxiO3+HfV2BNIeem
/E1C9YXATBn689SF3G9x8VzFqnx4KSSo5uVG4YD+k87JJ3kgU56yb6cHhYKN
x76sMckD95YFzpveFKr7GqUaV+fCAdPYW/n+FIok9b/OupID7zSXt+2IplB1
y6Vw/pJM8B9KVneLoZDdJf/fxIVMcK4ONKfHUpjp+W59FWsm3DosEmCaQKF1
xOsnaucz4CRDSuNkKoW09P632xbT4BxfYKtTGoXP2xQkGNlpELOk62VqOoVJ
6ke6nM6kATO04MNoJoVCAdtt6zJSoeONlf76PAqfhos2cWmlgF7Jh5oN+WQ9
a9FR8mMyjKoJP1lTQGHfSS8X+YPJMHQ29uGSIgo9deevyY0nQmFfrmlwKYUB
S8ROPJeOB+fz+1OuP6bwVOh228ducbA0udBuXxmFc9Tnf56MWMh7Zz/RUU5h
1/4t//jvxcAZDqkFkjMxf2Sj6nRLJNR2CD0+U01hemfh8PzaSGB1Oyj/nfBZ
Lx0TdusImE+Oz5SooTDP9sFv7g3hgOz+YXWEr/Oc1llhGwZx1zZpa9ZSeEF2
6OjSzlBQzq2U1KujsHcgP+itXQgYeThoMwl/OJRinRIeDLp7Lx/SrqewVaZw
nzUEgVqGpNeuBgoLBjyvzEX5A/P48+ckd2Nr+gqzChU/uPZIdfEv4QNTPVtv
fPaFwjNv8yqQwg6JYL5mNeJtRTOynI0UTh/Xf339qxcE6xg8ukD4z7LPRcsS
PeG4unB+OmGJ6KqepOMeENy7MvYD4YP6Io/kvruBxo29OjuaKDxxgc8mAFzh
5Wvb4auE94536OVE3YcDcs1SMYQF++VM6z/dg+cp/JqdhDuP7FbpPeoAzZmX
5GYJi46GB1Lxd8DnX/Ak8R5MSlCaGv5mA6dys2/uJ2yhtPRvWbgVjLyIq9El
HCDkQys4YgH3V19j3iC8dRwTkmeugejS+SfOhJcee6a+/oAhqCZdtnxIOGtF
uN6XqLPAKer/gXgcxm6vG2TtAZCZddlDPA69tidmefhvxaUD+9X9CRv//PD1
SL4m2qfWbfMgzCVadrP/z3nkj13BsCMc/+fY6vmTxrhki7jWFcI1Rj7dnKmm
uDDJG3yM8N5UvbWCs5Z4ZYRKkiAc+f2BQUCaNQqLODmxEy50ebnHT8sOc4XZ
xV41/dfvnyw8v9vjThvPyBLCrOU0Y4dER9RYucB8QFjVveTudXVnVFjtOqZG
eKithE175gHWvBKqXk44NXKhQuiEG4oKMC4Rr8Os5YasninueNzuD8dewpI7
xbNPanjhbqGHvGNk/21lay8WJnrjHgG3d76EFU5NjbN/88Fnzct/dJN6YfPy
kMqNe4TKY227TAjThsQ0vn72Q5m9Ggq/Sf2Nv+j/sVc1AK/NcxbyEr78vLcy
dSoIz9Hd1keSepXZvVdgYmMIbkmUOi9AuPRml82frhDsdErYx0rq/VhT7m8+
0TBk+Rgdm0b6RbotspmnPQIrLafkZkh/HQ6QXHfTJRLfpeiVyRNOZeG43rov
Cnkq1C+WVFB404WH7Wp2NB5+VqxnQPo37d9sk5ZvHPbtG+J1JP2dwH6Z487h
eIze8qE4sIRClTLp1Ijf8RgCg4lZZB7sziljaTBPxMYRg8PBZJ4E3jX/eE48
BVMXzSScckl97DT3Pe6WgvEPE/5czqFwe7uVx74XKSil13xaKIvCVfqrNy2L
SMX2evE3B8g8O6nuL32NNR3vmrBOXI2iUJGn7/va15no0t1kOR1B6qv6+rbK
g1n4NMT25e1wCjd+qxQ8EZOFoaYXHpmEUCh33rzd5FQ2fvx3eRWbH4VBJaVJ
6vU5aK05p7TlPpkHZx2zKqLzcaPVYKuWE4V0hytpr7/lo3iYsKqVI4Wf2uwb
2U4W4Nx2gY2pdwjXBf6VX1aIMyNvrzXcpHCPXm2WrHUReoVaJA9dotBU8GGR
enoJDv14wGi7QOaBD9/bkL4SLBN71lN0nqzvAeX5p79KkL3EkstGh6zfN+5M
vROleE+vmlmpSa73NKlV7Ecp3uAxXnFckcK25hU73qmVIZ/smuZxeQqb98Yl
fbhdhj8Wxo45ylL4ptnjzERsGcrt5KgPl6EQP+9WffqpDHmYfpcDxCn8ki6w
715kOYZ4Na/wJufrpk9hl7vfVOBsj+XLXm5yfrnzd9/nqcSRTkXfVZwUrlzS
1yehUIldbZ+vey+jsCl7lb2dXyXW1U/oyv5hYtfJzVtbd1chFKxJiiHn/d3V
ZmJn71dju1QfR1ARE42/WkQMr6zFU5oGzz7mMTElYCF4/4Fa1C4PqIBsJh7n
NC0PNatF11CuuOFkJp5lZB6VbKzFntOOEu0hTHQp+ioyb12HvYOXz3vaMHH/
34/hvLR6TIwVmY2UYeK6gh/sF9Qa0fDWTi95SZJ/RAo1/11sxPNrptQHtjJx
r87LZynWjTj/2M/06wYmwguspeIbsS1bdu8XTpJXptw+sX1rROmh7I3D7xho
93BTpFNiE3bYUn3G0Qw8rZjw+tGXZjy2povlahgDl/MXnZNia8FDh3S7DAIZ
yHn7oUfH2ha8s72NV8WTgX6OpTMzKi1olWVb0mPFQPEd6x2XRLYg78IX2xdH
Gaiy+uux9YqtuH+T7tnFaTp6DCda8Dq1YcT4Hj+dCToaHJf8txDYhv0HNnqm
v6ZjwTfr2HepbThp5NQg+5SOpRZC7Wldbdjugg8FkY5tIe7XmWva0fl1Qd9o
MB15M69+WVXZjh085bVx0nTcPX5WunmqAzWis9ZUb6dj5UPqQsJCBwrJ+/HT
NtPx5dLUWutVnegy8ezDD0E6+q99wbNcthMPPKvbz7VIw7UbK+58udeJgUbn
n1zvo2E2i3RwBnsXdozrBbw1pyGbyHOD++u78eyjBy6OV2nY/W3Pr4id3Zg0
J6u83ICGU1xjkH2oGx999d25/hQNjZRbe6qNunGyJObLSnkaqvzNuhic3o3R
2zsddi2hYd98TRO7ZA+qhTs1G4UPIqdnvhXL3l68JDBz5bn/IFaKVnnnqPai
nW7DidNeg7ii2DxK/VwvKlxaFJCxH0Tdn/UhNxx7UXL2WEap3iAmny0zPNPQ
iwVtthnP1xD/eXpzWRTxvI8KIeoPZQfwk6yo4bBeP3pb+errbxnAlpkf4vZm
/fh7r3r4Jv4BfBM2pbncsR/nFlwjo771Y8/WK0kCsf0o3+5wcm1pP0rbqY21
Pu9HW/tfWQ929uO3luEGV4MBlHgxJvRmQx8afBi2Tt45iD96Pph0cvchn8DF
P89lB/F+Dbtn1t9efB+X4br6wCAeMnsA2i96ceUlexd7jUFUm/aRUIvvxZ5O
NX4u00Hc1q6nMS7ci13Lp1faJQ3iGq7T2p+5enBZa6m0JDcNle9GOf+Y68Z9
Kw15xlfTUOgLx8KPj9349GdGWeRaGm7lP8z5pqMb2ZkW2l+20VBSTrr1lmc3
CnQkPLQ9QsNt+yNvavzpQkZ+a06uPQ1HbxbFKIx1Yv0OynToOQ0/vF0q0tPf
iVK1Zi/fjdHwHKdxrX59J/6T6OT/8p6GXDYjelfjOvHbRvmaX99oGHpG+cEu
3U7Mb+pqY3DS8Urk3t0V7R345NDD+Pr9dGzMYTzxz25HPZW7EScj6Hi/PzX9
RmQ7rv52/DQ9lo6LZiMyRz3b0XPia/KZZDqmS1FKE5fbMVQz8IdKHh1t7DnS
Pgm2Y/bD8HNfSB8Uvsl1+ufRhr2r07vuTNLxo27Mv3MXWnHpw3Fcf5CB/Nfs
7H8fbcW7F1/scj7CQKmz+cqRu1tRo37oAKXOwHA6x3g9Rytu93u6+d4ZBtrG
ZnL3VrTgB+Mrf11NGVgqvfn3GG8LRnYtyfANZuDa3VsKBVua8FGw+6DzSwb+
mVat5SlqwmtVq35JjTNQ21bv6ZLYJvQ/lR7w9D0Dl6S/1Xxm1YTJpWn/1n1h
4HnBBfqJdU1Y2j84doWFiUHFGkFnyJyKW+thN0rmVrqn4Oj7PQ1ofyROI9mc
iVyfue5FrWhA5XVFnXo3mXhPl7dJ+XU97mhN1F5hzUTFYzEe90LqUWuNw3Uj
ByauWbw0GvO5DhtTtpQPeDNRcolo+sPcWmSr+rqiMZWJH10/t99Y9wQrv8/V
DlNMXK2/4bTq12r83Xb41JdnTNRdId8m2FmN2bJTfUtfMLFB80R8jn01frKy
8RMcZ+JKRwveh4NVKBmbOvXvExONbLo/7fKuRE7ryMJRck6s7wxSdJwsQ6W2
Cxbt5BzqH+vQEKkvw668Spdbe0juvzJUVhdchnr3NTxWylGoUX63fVKuDLdk
rTqjvJ9CE7v5M2yuj1Fw6O5vXVUK+dboWsDqUjR0khkw1CM5sY8pFvK2BDm2
XrFJ16ew4iSd7UVlCYb+DPg5fpHChmMp969fKsFAT/XsU0YUcnyoUnQ/Xozr
41JCRs0otDrspKx+owA5RD/NP3MgObJFeeeFlQV466GJV909co4urOQzeZyP
xfcN3sc6UziYsVPi6lwefvlcIKfiSuF82Gl7Fr9cfPJGc/q4D4VPDPQWhqRz
cU5Dfu/8Qwr9Dc6dyqLlYOQLf+3sRxQe3/OqRnptDk69imD5FEAhc/xd+GR2
Fi6Wb7ggQ3KK8A2bU4+0snCL69VDxSTHCNLMcjbPZKL4eptZCZJzejlsE2Bf
JnZXKTK4ifetKTO3lW1Nx+f7l+n5JpEceLeZffVoCtLfflutR3LUvjDOM86+
KcinuGmHMclZ35tvOI3tScGb8QFMU5LDuEOn3A+tSMbuANFvxsTj1ogv/Hiu
k4DViXr7hUmO6zsaomCdFY/H3dOW/iKccio4dPF3HCoGHjeikdx30I3vIEdS
LPJd6h62Jx6X+vjojr6JKFxziLX9QSWFPDs0JncpRWHiRXvZvSRXPky5tjEw
IBIPapTJvSa8sUorRGFPBOZue/dV5gnxQnlKzNszHIsbvAv7CK8wnqb6qDDU
cdL6a0o8TlVGQ+uMUyhGRxadfURy7XNLXZOA3hD8eof14mqSe93vOWq1iIag
ncP07H+5mHf90WuaPoGY2/f7VQDJzbliUytTJQOwwfHVriX/eVvEfOmXfj/s
+vFitRXhLZEZ++8L+6LEYlXQfpLTT0pN9FTX+qDTE+Pt0YRNeSdKZoy8sT2r
4cwMYc3F+7B5mRfONFXzqJDcz7/Ms187xwO5rx64FEy4zoZZbn/CHc32yyoN
Ed7qER+297UrBp0LyltLPOLqQkybjcQDPLbxYIHef95hebkk18YJMy9KQxDh
zZV5S0aeOOCS7brXGgnbWimbsLPY49/F9DWfCJcnjPju1LTFkGo+IwHiOa57
/BUTxG/jUu/wffsIH2p2jxkqt8DpL5uSzxJmDG8N5FYzwaNvH8dYEO7+yfHW
Mc8QddNUt/znccdHdNRo3Wexuatf+T+Pm9SSpcILAIN1z0z953HnxO5ka2Zs
hzUxXTv+8zj9vS6tt3K0QFBN4ZcfYecVPvNjZfqQZBav5074Thr9TnOXMYiZ
/Va3Jdwg1jgXvN8MbNnPdhoS5jBZLDufexPKrhU+VyX8ZMRNLIDbBix+87qI
ExZbu0nCvNUOLGO9Hv8jz8vGtvYw3L8Lk3f5HKn/1uN3zhNeuXtgvqG5P5Pw
9bKVH0amnOGJdVqlNWEHbz+RlHQXWKjAXfsILx7apVdU6Abpj3Yo/ST7UWYW
surydU/YsE6U1ZSw257+W4Y1XsC/cdJYmHDnMUv6+VU+8KBC1beF7Hf5UTOz
g098gVP/qxQ3YQuj9d+3rvSDBlOb3BxSP9z6w7Dimj/84Rr6DIT/qUn31XIH
wdv31bTLpP422Ypb+hkHQ5a45e33pD6Dlt9p3HEpBLhW3KbMCf/bd+79m+JQ
8E54N2dI6vvXj5I/Wy9EQOHUjuIVpB/oN+aLbrBGgmv0XJgZ8TgL7w0X8goj
wUJ87+HG//rrlPWHtSzRYN1+55cx6b/H3d7OFXmx8MJ5/qUp6c+93RlGfbpx
cLUhiy+eeNz2c8++vlqMA6k9G3i7ST9bH1Z48PlsAjwL2WW1hvT7Wj61JzVz
SbAloqX8LpkPthVW0fEZyfB71uOoez6FIzOZVkrbUyCY3pjiQ+bJujzfRQ5a
CiR8ykV3Mn/+ur3hshVPg9wcgaT9GcRDtWH0yL00eHgyLWZdOunfIhdVnv40
6M16bPyTeN1W/8O3ohzS4fV++ytJyRRqUYrc1t0ZMAX315TEkXrZsVp63cZM
sBXgCzYj8y9gccNBtMuE3ZH3n66NIc/v7cX4syELPGDtsFUkhRuurCyWuZ0N
3RedKp8HUzj25I++9+o82J7nKFrjSeEP/xe5v2/lwc5DB6rm3Yln3eD0MunK
gyMd6w4puJH9erDs1la3fPCL3LM6gXjhniBh0PhUAKOTW75ssCfeVndCn6W9
GEw1PszOmxCv5tQTuMdbAr4LokkvrpL5dV/CbvpQCRwJOahcdYX8v8fXjdti
SsA6Ju7qRQMyL7vEYpVPlsJguJq2PvG+g5YJR1SrH8OGlxwHZA9T6PO0Luzm
u8cgJ7IxpOwQhd4KHYEhq8tAsSr+nfQBCrNaEk923iwDbZaUCN59pJ/Pt0T9
2FQOAfO7hYOkKJQ9nLf5oG8FyK4f07shSGHIZQXXTWer4UY7GBS+ZWLa2szc
EOdq6Mir78ki3raYpNs/l1ENn54eXRP/ionB/jUv635VQ9m921p3SB7o9G/8
9TPhCcTVue762EO8S6N0n9L7GphY/JvwspSJ4oPpWyrt6mHiDaP55z0mom7I
rzMJ9RDuYmukfZeJP5roHu9b6yHYwWM2yZaJqTq3ov8INsAf7mg2WUsmNhVO
prZXNYBlw4EpUQMmck7GP5r9g8C5ryOQ/RC5n2XbayQONkF2wMLc+nkGCv/T
T0890wQFWkdNHX4yUIGn11/ArAnqwo/x9H1l4J69RUemQptA1f4jv9kHBur8
OhJxaaIJyDCX0KMYKJvkYq0S2gzSJSeLNheRv7deKbc41gIK9GPbHC8x8Pnh
U5u7f7TA1bUJbSJ6DJzLdtEM4WyFB18X++tPM3DbSK4il1wrTA9t3/ZJjYGt
xyJe1Pi0wgvld3wrdpN8Z2bM9VeyDebFj6sqsDJwvV5U5gurdlgyLerpmEnH
ORUXyYce7XDoxFyDH8m3x9Te35CKaofonVd6okn+/Sakv9y4vh2yeG4ZpAXS
cYkMr4gbVwdcP38s6J49HWW+rvrsm9UB8sLh+XuO0lGLeTU4eagT3j8Zn2K+
pGHngv1Kh8lO0Bs/63d0iIYhlx4lHlvohDAevj3FgzS02NfwlCHWBadG+pLs
W2iY3im1JeZWF8xGz8p05NCwun4spmdpN7B2Nbe42NJQI2yAvUa8ByxPWQtq
s9DQ1NPssr18D9i+fPY0YX4QHST0RCXVe8BTa9Tpw3fiKzrLO1zNeuCfrLqN
3cQgsssPaI7k9sAUY5+afu8gOp8rij0l3QtnZirnLkcOoscfrli+XX3g9VZB
/6b4IBqqX1b9ptwHffHbsg6IDOLw+cKhnpPk9fAIbg6hQTy4aqLIwqoPPKYn
JcI4BjFcq6jgVGEfZJ0+VDzLHMD6QYuwJol+YHgcEdpsNIAJun1dYiIDcDDt
QvvArX5s79/855L0AOyWHoLdhv24UWhUPeDQAJTrcfL7nujH3oviUnTDAejp
CRoWkerHNWIXo74lDsB0gM/N8Yk+PJs2vXB45SCkW4y/ZBj1IViuGzJ8NAgK
q/+ucNLoxWCF0J8TIYPQuy1w3YBCL86Wfje8FTMI1w7rbN6wrRfpYl/nLbIH
gS8xf2sSSy8aJgrvl2wbBI9Tx6NVantwuFVrtPXfIMQucQjnk+rBN4fpBro2
NGBlzV45vawbd+qvrOxzoAGPWRzDZ7YLL59d8kTFhQatH3i2rx/vwkjdxIqN
/jQwnmvx241dqNe/3jAzgwbfzKYbVt7rwvW0WtZXT2kQeMMgP2GqE2cWvF7+
UaDDleVJt0V6O3DvPXOzd4foMPrhsNe3Jx34q5du0atKB3nJgfKm7A58fPcK
PeAUHZwlG51PenYgt0rSiiFTOkQtb98optSBUz+1+4Mj6GD2Ore2IqsdRUyK
h32n6fDx00GzIuc2PFMqOdL2lbzOJzwsY9GGltEm5xd/0oHl67JdeXptyJ+w
ttZ4KQMS/3bFhO5pw928U9zfBBkw0fBvdMtEK0bxDHQqKDMgEg9svnimFa89
ZD99yp8Bo7v9+naKtWDqSm/dP8EMGD4YZL56VQtySrMUJUUwwG2NjsPsfDMe
FPK7NJLIAMO7V1hyqGa8b87tsaGEARAfdHLEtxkNk69z1jMYIPRrpNnqcxOa
L2EW3xZmQpNRo5VFZSM+1mqLf76eCUuS1yisT21Ecs+vYRMTbHNKdcisxIo5
Foc/O5iwPS0hVcC4EXvS1TN2KDEBMwwU73I1oqdS7YL9JSbMZDCk2hoa0Iq3
J6k1lgmacnGTAsvr8K+P+EPHRCa8z+z4avKiFtW9xDO3pTJhJD56a2FJLZrI
/Xpgk0OuHw1Ht12oRctHBj5NlUzw+sRdWZdbg3KrpPg16UyITHWX99Z4gvEn
WZx/LqPg1szRyyOelajF/8+njoOC4ywbpY5erMRHY2pWDzgp0Et2cMveXYnF
h5b2zqyigF3q0ifDlxX4fGt6adQ6CnYryn3y21eBnnv1I6dlKPhwoMDu80QZ
HnGZ4Liyh4KUUu+QZQ1lmNofqtUvS8GJpdrDghFlyLL0mWq8IgVpi/nCkofL
cE6Hmvh5hILM7RvM1sU8xmJZAddyHQqesyw5veVYKcabtDYwz1GAR1/9/bKh
FHkEM9tnzlOg/eeYU823EgyZ+LhTyIAC3yRO3iNJJfjigamauAkFp6OVQw9M
FuPoiM9+NTsKTH5H/Dp4tBDdl0ITnz0F4yMMAYOZAgzr91wxfJeCuTfWonfi
CpBN5dfweScKuDcOaQR/yUfR4hwrIXcKlNftOnYnIQ9t/H24owMp4OI/wMs1
m42jW8aHlYIpaFyWKTUUno3nTm8XfBZCwam9PsIJctmYke7IWAynoPRUJ5P3
bhb6bZgxXoil4F2T4+rc3xl4S+lI6M14ChKla14px2ZgjXebJJVAAcvKl9f6
92egLU9xXFgyBfdXifGMOKVj5R7Xqw0ZFPD7BHAW/U3F6H99Q78zyfOZFfcK
JKaiMdua8p3ZFHwxj9l991Aq3r+1I8Utl4LHGafOSrikYNHxuweHCykYVjS8
lLOYiB8u9Y6+KqJA43mGwTZIxAvGZhMvi8nzOfPfiXdNwLVXFMQ6//ucVujH
fssl8djfe0hZu4ICAZWM6PylMTj6O39epJKCLSEHCj8ciUapSon1HwhLOKgU
iHpEYaa7kat5NQVdqrdP32WJxNMWaS2iTyhouuFxI0YlAs9Hclr0E+59NHq+
3CMcPybdfbq2loJdJmZRz1nC8KCTYFIF4QmrIIN3KqGYGLmqXbOOgtbpX6OT
HiF4pM54n3E9BTdZlfj62YLQa8rEZZywqUOLWp13AH5OW7vtv89VZgn97Exl
88eiHcsilJGCz66xwbpsvvhM5ceFTMLOTXvqxbx98OP9la5sjRQkPG3imVzm
jVGP9rIaEXb5e/VnnpcnNmxSf19KuMVk9/T1ZR7o/G/XjkXCO/mOmaz3ckOx
D886VZtIf132z47mcMGTaVKdHoQnpmOMZtid8d2cwLZawn/Y554rszuiaKvn
+DThjuvfWR+y2eMjynxBuJns18JAa+cyW1zJXXX3IGEzu8JVnMut8LvGtZMX
//v+2dUcq3vs5vjxromXDeH5Wknn18uu4l/XsjUehLMMU/l92fUx47wW13/f
hwuyGqvzZz+O//99uWMsTGbRkpi6/wG2D0bE
          "]]}}}, {}, {{{}, {}, {}, {}}, {}}}, {{{}, {}}, {}, {{{}, {}, {
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          GrayLevel[0]], 
         LineBox[CompressedData["
1:eJwsmHc81e///+md0qASITIyk90i6UmFbEmSESWhsorIyh5F2XvvdV72Hk97
c15NkVFCVCpKS/E9n9/td/45t/vtdZ3rup7j8bhe1+G/6qBvtYGOjs6AgY7u
f9/1PIEfz9URQPf/Pxt+GFuo03jxCYXCx38Uzue5t0jR+KbgqtAJflUYK2zZ
yEDjBiexOzsS9WC6QVGmr5aAo9vptxTxG8JUvYayJ41/lLlFeRSZwNcQZxke
Gvspmb/vTbSAfROB/4gaAoLvKYPXZUtgYAjMkKRxV5lAxRWB66CQW8maWk1A
4dML+73mbYDuxqPzf6oIkJoyu/OSchMoxOAFVRrndvM8cL5jD457LXb7VhLQ
mX9fuDTFEXJknf2LKgiw8GfUH1p3gvvTdint5QQ8SE0+wWF5B+Tj29JaSgkY
phSInBK7C3YZ645ZBAHHuE+xiz5yhX7mD83OFALez2jmnF12Aw279xEzRQRE
y6X4qTV6wLHAyN++hbR49IyGxPm84EgraxZTAW1/2vEFxoHecHWa2eFLDgGH
T2tt1S3wgbs/axxUsglIbx2+YGbiCyaZCTahmQTknVv4EsfsBzzcnstjqQTY
sVzni3bxB9WJJxuzYgkQZZjgfasSBBkn1m9YRRPQI7An2ONPEExgG8ueSNr6
s9/v6ZYGQ5pedePJMALuL5UeK+YMBY+vdeeLfAkILOd5em3pIZjxT5Y89yZg
59gHrbX8MBi6qmP80YOAR2JDb6cuh0NWb4jYhAuN9SjNfkOPwOPuubphGwKY
0o2LFUciYCRx7clFKwIK6NlfdR6KhAzfpxyDVwhouygY5hoRCfw3jUNcjAnY
c7TPyFIjCjy2DEj3aBAw29p01aE1GkS8za+eECHgSFlT1aGaOGDjddH6zU/A
lyQ6xZ/74sHe6Cl/EjcB04qH/OiC4sFRv+la0C7a71lUPRcMEyCl69kQ3R8K
5F77K3z8byJ0H/RKf/6NAqVHWP30ridB7Xr3ZOgiBY75/VasJZPg2vx1tfg3
FEhm89PzyEsG1pawrkNdFOhfUM/ZaJgK6T8nWLe0UIBM4WvsbE8FobMw21RD
gRf3p03fSKXB7PGrDi35FLj/fNsG6W3p8IaVCNwXQoH5/a5PxC0z4LZR8LP3
yhTYHdaXxCKaBU/W/L44ylFgat/S5/wrWcAu1Sj7RJICFxtN+F2TaXzn0hY2
LgqU3dQ16t6RDVv7Jq8lLZXArNXW+ZOr2bCpwbFgT1wJ5Mm1JxhM5kLRq7fO
g6ElUMIeH/ORKw8secTTdb1KoHzv0qb+S3kQknXiaKNlCezfYLpk8TIP5gZG
R1kkS2Ded6By57N84Grbfpa1rhg4w8c+ar0uhCqSjkO/sBh2X2G/e4WzCPy6
iiOMkophX2YXpe1iEdT9V3WnyaMY3tT+9bF5UQSTBmNs/QrFwCVYFWX9vBhc
f+zKO1VWBFwvJuq+vKXAu/lZlcLUIogoSlAWESKgn/D40P+gCA6Kl+XX0fom
+6+dscK1InDfoPv801cC+liDM6p2F0H97v7usQ1loO+mr8V5rRA2lalQnvKV
Q8gvQ7cKrUJo8PJbcVUpB2W4sG/lcCGIUR8J6d8oh30ZAUNOGwvho9I+k/yq
cji/XhYkmF4AL4pe881oVoDo4+YqhfZ84GRTENsfWAkNoo9lzapywXNqSata
uAbud9skbY7IhVVndUYp/Rp4tUPFReJmLpj1/LNd9KoBq40Dbe94cyFvx5D7
8Zc14PGavbXdLwcSuG6bCz+ohV2Kbk8dxbPhxdIOn/71OtgpfTl4dC0LBCN/
kC+k6iGn6BRzMpkFsRMDWlIW9eB6ZraV53YWcL69K0xtq4eyR3Trb0syIYKv
eeVpSAMoaptlMqylQ5LckQo74SYQ3rt2yOthOtjz7fqZadIE0rosh3XZ06HZ
kCNDIrIJMt0sPi0cSANLVUVV7X9NcKxQNVX9eApsu/shqmm0GUoOpsnN0ieA
dnmPVV82AhQUTrB9ewiKrXcWK7ANfjAX65XdeAAxv5+OL023weWAN3FHx0Ng
be/Lihub2iHzn9St4pJAyGXdybhVpx0GJfKiLtJ7g6WNS+2/qXYIFuJos/5P
FHzpZHRjmTtBLiKJ20BTHVfDNllZHumEZ8AN7iGmWBf+YMXatBN+yX9+1OBv
jwE3rriwFHfCnLyAtwifD2pxaK+91uiCB/RCPfcuRWIqucATEd0Nfzz3rUfF
RaHSv1lN++ZuOJ6/1+T0q2h0dC0adn7fDf9Zf1NLso1Dfaa90isKPTC7ea3P
risZS7/xNcXP9UDBupplaXU2Th9aFepQ6gOd55EDyR45+Jr/ief5W33w6VHl
TtEzuehO5O/+FN8HhWdPHJKayMPVSccasS99MG95Qk5fqggvXZqoDUntBy4f
sud1URk2JJ5nwR8D0KMqraPFVY7x248zOvIMQpV2stzHsHJsf9h3f0VlEFR2
GOWW3alAyxXVNPuYQWjvPHfyiG4Vqtd1dxVIDgGcyo5Y6a1Cli0queEGQ3Bw
cTR45HQ1JucWUoXch4AzJCRy5UQNaldGRph1DsHbrw1ecKIOrx/POnvNYBiy
iWd7qlrq8OF3p2oz12EIcktOlDhVj3QzDHvfJQ6Dx42D97i0GlDHyeKO58Qw
rO0bKVS52YTH6U1SdS9ToYl9vVJ1pQlbk7tSdnhRIS/e4R63TzO6LZ38JplM
hX3NnHUiCS3ovSbD4fyCCmEpk29tbVpRNm6vZR0fCQUtLxbUy1qxvSZU/pQE
CdNqQVJOv1rxW6xPvqU8CdekrVx9QttQfevKf1f0SMjaVhRs9rQN9Y1/DB81
IUFki+ryTa521Iyx/RRvRYJ/2M/VjUQ7/jGx+/DFjQS/P3WK/j/bsUnpfMMb
XxKias359ip3oNOae7PeAxKEbbgZOx50IF/O298nokg4H/5J0vV5B0Z5qnpl
JZLAJBybK8XTiQcXL1z2ziChpqPeYNa6E+/uG2seyiPhodPOtYjyTvR58rUn
vIQEo7oKxYOrnXjgpUp1YzkJO78+fFhypgvX9c8NGtSQcOjXzAmmR10oq5F4
1bCBhJ4LTEEqI134IWBlormZhHeJ/J7afN3oyvuiOqSVhOqRz3v22XZj0FSA
c1U7CVNPl2VLyrtxq4tL3clOEtId3aKXf3cjR4vPEaEuEm6MUGfeK/fgVh6J
GisaS4VktviH9qDr0iL3Gm38oxSTvGayB8X3W1h96iAh6XDdrnD2XtQf9c2V
pM1/es3EdsGsFz+pzzB3IAl/0x9u68/uRfLByy/5TSSklP7QEV7oRTWXkKrX
dSQEYFzgikQf2nsJzptWkZD6KWNd8nYfZt2bOiJWSqvXhaKYm419KJrSGt9Y
QML9oBrWd//1Y2iW4Oe7mSTA69v+DzT78cD4KLMJLd9fX898M4zqx3FfFXrr
CFp93hwKV3zVj5ekotcTg0i4VO75+NC+AdQ52O/6zYOEXYLFRpJXBtD/X/f2
O44kbPG9YCuQM4DqH9jjOa6RMOoZa8s4N4CPNzYKzRiSoH1jTOKZ8CCO5DSt
vThLQsKZssZ71wexSrY6/TOt36JFXHWWcwZxTVeoRVKMhP2Dm0wPTQ/ix4RS
tXhOEiay5RMP8QyhzzmpqwcYSYjJcxnQjhrC20pa39O7qOBeey/MsH8IweFR
DTWVCrpcJ/f9pRvGTeU9IhbOVHhldI5y9OgwOl5ob7mgTgXW3ckda7bDGES8
N6vmpsKBrX3K2inDKJDtdi7g8zAExAVYcw0N44KOr3ZvyzAk7n31eJ8YFX+O
bBDtNR6mva9o0KsaUtH/urt5pPAwuHfV/n3pQ0UT4weaH74Owa5JdxwopOL3
yJj7Y/VDMMK16RvvEypWRKvM2voOQehXPYL6g4pOzjN1GWpDcHqfd+NNJhLf
7rgTGLx9CLRYYxuWJEmMCEvLC4kahLcbBm47nSTxTlutS/X5QRB80n6LQ5vE
NuMPB2p3D8KBR0n/zRmTGGiglRD/dACu1Sn1j1qT+PCyZb9FxAC40TM//HaH
xI26Nr+5tQegrFZR7dB9Em3Pe4a+ZByA11SVo4mhJG5We74xoaMfeot3dAlF
k9j0aHLPLa9+KBlhiR1NJlG0zzrY7Gg/aLGd96jOJnE0rP2I6+c+YBY6fb+h
iMT/zv/Y3ZnbB33PwkcXykh8GvabX9e0D/6+714+U0PiWMMfGwGWPjiTxHB1
qIHEZ4ebfmj29IKx/o2PAS0k/ubbNPrMoxd67SK97dpIPD8vw9kt1Qufxr8f
Du0gUVzpaa3Eux6IsTmpN9ZJ4u5C9wK2uB7Y6hImZ9lFYtKWwqGQsz3wcU+x
uzCNuajPvkf+6YYizdPdwrTxP9vSniqUdIPa/g2frreTaOcltx5h1g1cifWv
F5DEvwrTy8nMtPPro2dWRROJl29lb7DGLpDb0GDTWUdir4qY2V+HLriYds5x
fxUtPoOxzdf5ukB7upSFJEg80bplnEJ2gkTRXAtZQKLsgF3AhE8n2EoM/BTJ
ItF/usZ9TboT4k9z6I8mkRiibcqw920HPP+quf3SAxIzeB/NXlPuAMnsqwwm
viQq6D7u5/zWDuUZ0lYDriSWvXtM/zGnHWIHjUcZLElscfnFR7+lHULOZCiO
XCQxRjdg1KCxDdZagnKFtEi869TsN23XBgljCqpnD5GY6fK1t/tZKyzovn4n
IEyiG/dhS7HgVrDmOqr1kINEoRvH598ep7HGR2uOX1QcPtsNvaoI3Xznq9w8
qShw+HhWwnITvNtYkl9nQsWJ5wvvqOZNsKJnOal+nIqHdf9roxtuhKlLzys9
Vobx3MsdhQ6UBjD7Vac/em0Ymd0YR7Xu1cG2iF0nLGAYZ8rZ23i+1IJgdZiM
HecwWhZsEeC7XgufThblywwOocOsMHZerAFijZ5+i8QQtoexiGzRqIJfWkPn
rTYO4R0fiuVQXyUceuVg7fJ6EG8J8r6b1KiEri5Nw66QQfS5ecppWa8Cqnek
LZa8GUC/XA/PLXZl4Dw7c8Q1tB+bK5gihQYKYfsu0f1HLvejdUvM1PmVAli/
wxX+QbYfy/xCD4rtLwBO7qNFZ8f78Of856ud/nnQTEz6CUn1IfHxsP7F69nA
wfNBs2CkB6Me7G18r5EM232YkunLevCbi6bj181JoKTziuoS0oPLtkz+An0J
8DeV2b5Kvged+Bu1Zy7GwTbywTtKajdWn7WN78uNBOsl4wafW10oVZubLLHi
C373uU13qXXhG8G35awj96FJwvXrIH8XCo9/LP3vqQftfcz4Ws9IJw5QI4Yn
l+7AxQiNpFcqnfjLJrlUy+A8zB2kG+8T68D+p+wvP/++i7vYk22UGTvwZOaf
y2Mn3FFjxvXvwmw7uu1dWt3l7IUzP/uGhzPb0Trdz3d9yhcd2Mc3fqCd99vb
0it/zwfjptTD1vacbRgro/Q77n4kkncV7py73YLXD39v+W8sCbW4Lc2LDreg
zS5+iTO2yTgy/FDZ8WczdjANaun8SMY/6uw3lbybUeRJv9f0llSUuFAo8Sai
CVk3knM/2dPxUHmgkX9fA+6dvJhufzMT+ew2MptENeBKnUC7WnYmIpUnNsak
Ac+XXc46M5aJypYcLGJf6lGj8q9prUoW3pILcujbW49Otbf3TrJko8Z+K2sJ
/1r0VttxeykkB+36Wi50n6vFtaetx0OqctCWKOiv4qvF+nOwdmcqBxtdio88
xhpM2RMkcOFQLt79j1IgSF+DPdvHzgY9y8UaM6su0egqtP8Zu73rZx6Ktx6w
c10sR1t+Oe/ByQK8Xzeb8qenHMdnEhrLfxYg/fKv01VZ5fikpdLjxM5CLOMI
HOk1Kscv8pQ8NSUaE++v2PSUYfu+oz4XUwpRxeVVD7dpKTru6tO+plKEItyK
AnfZS7HhfnCDzKUi9JezlhN/RqBNrQNT7a0ipJpZtxVpEpjZam61GFWEEza8
W0eUKPiEq3tNYLwI65wYGfkUilF7w8eowKvFOMAzcfXlahHuz+L0VL5djEIO
5gyvm4rQ8ux4UodvMd4azMMBKMLBpV2x+zKK8YNLU80h9UJ0OWQerThWjOJr
VSdtbPNxZ3DX0OCZEhzPPD6dIZmPpFG81OlzJfhzK8vq3u95mFfCOPvArAQf
050OI+/noXyiQlWESwlOt0y5iifl4kSA1smg7BL0vbgCm8ay8WTBqGLMzxJ8
n/4lcXdONtKrfDOQpadgf1jNRwP7bHSfbXhevJWCLAzqS47/ZWP/ajpVdh8F
dwmOcP2TysLpLoOEFFrc71a+7p2MzEDeP8eZ5H0pSL8ny/ft5QyUflDd3RJC
wdEQ19M7xDNw3e2EmHAEBROm9otQw9Nx/Fbf2eQ0Csoaydn+/JuKxnSMDKIN
FKwQbfG3X0jCL5SEtR2fKJjrysZ7IiQJ10r3fn2xRMEcJ4JJWyQJ/+N30Pf7
SUHBuB/th68nouGl2/aPNxDo5BG4tDYXj1Y1XDO+7ASe2HXQpz84Hotlls/4
cRN4W/njqSei8RiTLrjhJj+B5WPe9mE343AgednphxiB6Sc+vk/9FoO7mQ4x
rZ4gkOHz0QSRuBiUfl528owygfcan5XOyMWgLDXEyVWFwA+niDMr3tGYP8Sd
lKJN0Hzh6aMLTFH47s2+n3OmBJoVp62al0dinMzr44EWBKb02GjEXYjEwTSu
GeZrBIb4yU/6pUWgmjnz5tkbBM791AgOuPYIfehDGzJcCWRlvpbVlB6Oc+cY
wibdCWRa39Gk8ToMNd25PBm8CeRzvNNjfv4hRorPX94RQODv08ni048fYKDs
lqzlIAKj6jlcywdDUXp7Wg6GEjj/9EOdhFoIFqysebA/JvDpqOmhlwHB6Pn9
SXxWJIFTY8qJ7e1BOMJ8kJ4jhrZ/2e3KlyEQ3azeK7YnEMgjXs5sqeCHJ/Nn
itgzCVxo0Zj75O6LEiVng35lEfh49sfGwgYfdPqwP7Yzh8Ak19d42cUbRa5d
KuYpILA/9VXQhxVPnNjANlVSSIu3MdKt764HmpsxpgsXE7jMyhzpcM8Nyx1T
d05QCLyRsp9dcvUuRhzjneMsJXDfPbMgSS8X3L8t+fGpMgLN91Cjbq3fwcwz
V7kvlhO48zHH8jvf2/i+vjHpYgWBvs26JhEbnfBV6gz7mUoCNUq7mV4zO6C7
3q4M7ioCLxxcM/3MeguTeexPvqVxdfsUpz6XLZou8f6LrCbQlXtn0z/+63hz
8cysZA2Bl45sbp4XtUSRDStrtTQ+/PVV/FZpC0y3OXVOopZAtaurkdX2xhjC
cnz6EY2ZNh9NyfQyQN4tMzXjNEZxmfgITm0UaDr9bE8dgXrfKYoycsq0+5vR
cUUa27WkUrabCuE9H+7PujTmu+3sYS8qBpZGwV90aFzJ/ZNX++Yp2F3w8ORx
Gl+OP3axUksHFvU4xnbR2Hhn9n459gtwVYij9QVtvTufvH/oM5qAcq/TYiCN
N6eyxE54WsABz82X99M43lD5bauLJXyertleTIsnqNH53Wv768BPMfrGS2O6
NeQ7ZmMLzvKtW31p+fg6NML7+sotOCbYqDFMy9d8n7otaeIARPfOos00lqEb
69hx0AkM83x5JGj5jlNa87cpuA1/n3WnnKTVw/B+Z9MPIWdIOB7JcYJWr9WU
+eZOfleQ36L19A9BYN7BOW6mDDeQvWW/3Eir//5N//hTeNzh7gG35zYlBNb0
lF1O5/YCfsP98YG0/olcU1fgTvGGXyOPz63kE1jfsifgF5MP6N739NXLIzAw
XufDpUe+oCtZt9BL689o6XiLZWU/uLLR8uMmWv9ukWmNqVvxg/GPow2y6QQe
/ydq+MIsADIzvtqdT6b1vw7VRYolEDwlJwXPJhKoY3PMraU7EDTeS+uJxdPO
hcs1hn7SwdB6xzyzJormHxg93DAbDD1kd7RFBIEuQc8tpJJDYDQnP/pnOE2P
d+32Pt/0AAw5HDQ/hRAoUZmzF96Gwc5EtouLXgTyKyvEPkwIh+5d2q5/aXoP
L9w2vl/vEQTeFKX8pPmB3RCfinzrY/C7WTlY7vQ/5tq9Tz8SdtwXHZCm+Ync
qZHi5JMx4JOiy3uU5k9HxXjEtqbGQG8EsH9XIjC7s+AGZTUGAv8a+iTT/M0k
97dkXH0saOTqjuYeIvCK+psv2+Xi4aLBBJnFR+v3zw+zFRPiYWzDmH8eF4G8
nxtki3/FAzfBtBy5h8DG6N1blBsS4L5y+g7e7QSeXj/9wVkpCRJmS+9t+0HB
yEatrsKsJOA6Uiyn+pWCL73ffBRgSAYL45KK6x8o2Ky32fFTfzI8ttnbenGS
5u8hm/5+upQKEptl9Zc7Kcil4Gx3/nQGhLOl2XWFUTCqV9lF2iMDhMoZYmMC
KFigcuGtUmUGpBQw/T7pSaH5V+DXNYFMIPYspQrcpGAr3fB9BsYsOJnY8IVH
jYKDx5LaF8eyQcFnX9MN2vkXnaF9xHxPDmQ5OXuVfyrBvRe6J3bq50DxGdg8
8LYE+4ZXjsv154CmjMLanYES/M+5zKm0ORc4rtzNephSgu57DL5ursiHUa1i
ffkjJZj1cHx6bikfyAOO9aYitPkWFQJYZQvgjUtqtRpnCabP2lSaVxbAnhtW
Uk5/i1FHTeP8k/pCeNP/NfcPFuO8r8PUxpFi+OrIssZDe4/4MQil3BJlcFaJ
oz/0TyFy9i4+VNcvgzOitbfFZwrRR9r8BMW1DBQCnn91HSpE9lZRF66OMlA6
EiG8Mb0QzQ+cZcoxLYfjY5fPDigWYu+uO/VfkiqgfddbeapNAVbf8fr7tKMC
9DYsZhtoFeCLgOlNPz9VwHZbJsabUgW4UXWedaNSJVwKu/Lm9Pd8PKfl0n1m
oRIodPb7nd3y8dvWaxq/z1ZD/7ciVlHbPKT8XTx2/G41SKymnZ46k4dj8f4f
u7OrYefR67aMfHnoRi/i371eDZV+0aX5z3OR0US59HZjDez1i6kcPZqLa+Ov
ivafqoMM56X69+PZeNTb7cPWqEY4JKTx1SglA8/ctMiy7G4E6ZP1bCetMmj3
Xqf7LKuNEFrjzmckkYEP/HJmnK2agGf++uaTd9PxLXtNgcnJZjgSaMagkpiK
PemzZkL0CK9zJFauhCZi/jGbMl4FhGOKpjeerSXg8955GTcXBAH+/k6V2wno
kSpppfIRYdfAgzc7zsej3A7+OIpdKwjeDSesV2NQLurPkYnrbZDZM8EY0/oY
cePqzFRQG+QLCVhfpJ3jE5s/Tu/Ob4MbIi0B+/4LR4X0I0s75ttg7j8Rtlsy
D3Dmaa2f0a128Nh0YI5XNwCJvKADPN4d8IGBu0pk1Q792oLc5zq7YMM2ph7N
V0Ew8UGG889iF7zWVRjfJRIKc9FTYifYu2HnXj3zCO+HcGp9o47ajW74ALXn
mAUjYFpFKfwiSw/E8n25xSkYC5SQtwGstr3wMqlP5srGDOi5H6FrE9MLsjfu
/3vSnAFpJkef0G7fENSrQRm+lwlrgpIZL/f0gePH8X/ev7Mg18zX076rD4JS
TM2OceTBdo31u7B/AKytB07yvCwB8UVXt8faAzCgXLNzTwMFNu1k8Wx3GwCf
E97TfRkEMHVrbm0bHgDxy4c/yyqUwY5geiLXbRCWiZtbxfkrYKM/49aYrEHI
lxEfYEqrADMzE3blwUFgO/+QUOOuhMiDDgXtPENgwJz3rpG7Co6mprAO4hDw
XG/+ZSpRA9xDVy9yvh+C3e8Zy+qqauC5rU/dL6ZhmK4MUjNQrIXc/itiF4yH
Yf3RpJmcfh38zVaIePJpGB6zS5lwPWiA/fUTN//toMJuTp2hqb2NMJe+ui9Y
lgrftrLoVZU0QkWz1mK8CxV+XjyaYvesCQTiz36ZXaYCm4GFv6g4wh2NMG2h
zSQcGgpq1mxAeFnwZcaVlYT2dotz4YKt8Ob048QlCRIcicAOjapWKHwcF8Fy
nITHFV7P4/62wl8ZC+8eFRLEjjyZEFRpgzBF9rk3JiS0WUqsfn3ZBm1ZdEfh
Ogml1EMlAnztkL4jTUzIkYRXJkcifG3bIfyLR/XjeyT4vLznv7GyHQyTigY9
/Ei4MhZwJO9vO9zvG7k594CEzdZtByxUO+DsZYfYwSgSblLO1h2M6ADrA3IN
6xkkFHI4yIwLdMIk1WNONZ+2nrDE3wq7Trgb2Ei/VkJCmGmvwP3aTlD7Na28
v4KE/YtnjsnTd9F8fOJDWQ0J1KILmaMaXSB2ekw3v4GE+KrFQqOYLmDgiXm+
oYWEPyNfXImJLtBVS/zc2krC6ZBVlmfC3TDJFCs81U4Cn9RFqxaHboiZSuA0
6SThvvtPRZu6bljVv+Yu20XCS6ls/V66HuASLWaxpPG3BdlTL8/2wGdVo84P
tPFbGD/FhUb0gHvD4IOeDhKKv630jo70gHE2p+fPNhIK2uaVWnh6QYnjcL8b
kpC6y9lY0qoX+t7zd6o3kSD0mduav7gXoiR4RmzqSAjV3VX+6GsvnC2pevy8
koR/7Tu87Y70AU4+TXpIkHAp4QpL9b0++FA11B1WQELL2GylaXMfLH433jiS
SYKUwkGKCV0/tCt6WdsmkUD8itMrPNUPR0qviJ6m5V+oNm71REA/XDstmWMZ
SoIB72tO5q5+qPyMZv33SVjckijKyjAAL/Iurt11IeHB++F61TMD8MTziKHt
DRIaN4S5pvoNQMRGfrPMyyQsiR8T2dk6AG76k7K8+iR8NH5aEvd3ACznH/G+
O0PC92I55gNyg5AeN3IAREl4+0RdTr9kECZZ+7NfcZCgtTHu6ejMIMQ3Ri42
MJLgd417WYd7CJ6xjR8b/kKFmxwCLkX6Q8CmTz/aNEiFKPXj9rPBQxD+6ODD
MwVUkLu2XeR34xAI/C2+aeNHBfp5VoGpz0OgblfSGEXTU5D3OYEt54bBOOve
UgYjFSre2l9X9hmGNp3eKeOJYZBWk3Q4TAxDbyJ3zYzfMDxh+q54dBMVuASZ
m1rOD0Pm6RF7BWkqbPubVmEkMAwvfANPzhtR4dLTmOx3LUOgcV5pWDSPCtni
vsnuQUPwYozkrhyiwsvL67y1WkMQyR4yG/+NCgYSu1szdw2ByPX31IVtJLD8
UTc8/WIQBDrSE2X2kbDL33djbvwgtJ/k/5tJ023Bv1Ap0mgQjLWlx+UVSWji
+N1eODIAUoUv28cvkbAw3rH3VuwA+FaqUOZoOj0QW9bJqz8Apo81x9nukFCp
+UOSyjQA0yZbtW94k8Cu7/k5oLcfStbUDs2EkCDM96Ne068ffELzf/nT+oK+
6t81SYV+EDjUqaCRTMJco/TrY9/6IEZBinosm4RrNQZcd4r6YEhSv067iAQ1
1iDZjxZ9kL3jmGR4GQn6p+8eK6b5t/gWuYSf1SSMmDaptAz0wh7DhLBHNF3W
bjxxT8qnF/5xMVLP03S5/ix3YcvhXhDYyKarTtPJxTuseUbve0DJMlTYiaYj
5nN9ZcJJNJ31NMYP0XT2KWfbqrdWD4T1kduu0HSYfFT8yq01mk6Xvu6UpDHb
vrK836XdwJ3obHSMNn7RMee2zJVu6A7YXH2fpnOvIm4tHpZuoJ1hHFtpPvBC
eCKuv70LIoYuRI/SdLh/16EIpTtdUNz+R3eJpsOQ0j+aDwS6IHyyONqgioQv
L5+Xlz/rBFJdpHFTKQn1O8LcW/07IaKEUX5bIS1/TYUSrYc6YZYyHW2VRYKv
sQJvw7sOGGEzu8ZJy6fMUI9dbXQHfJ80Oi8WTcLrS850bac7INuRiyOF5pO7
F40Cp761w6Kg393bvjTdnBD+5WnQDqWZfGdM7UgIOOHOsZ2hHQ7vs7zhepUE
c2pHOFndBsyjO2I3XSQhhemLFDtHG0QLmKZHnCThnLvdSEMrQlgij2Ub7Zw4
oZWzrUYYof6TWefzJSr4/xczEBjeAqI90Ubaz6jw9q+h6bBZM5wTcvxNRlPh
nfARLY6tjfC1kPXayjYqlG25/Z3q2gCvHokX6c4PgxDDXYe8uXrozWBn2N45
DB1EqeBgTx10T3D/6743DM+1mI4XJNSA0c9LHf9NDcEX2W2nfFlqIIPX6tX7
2iHw2G+XkRReDe7nq0uvRwwBjH54kxJcBZwKt+5rKg0BJW0hXfZhBdiav6Bo
pAwCpXfeKySHAv8079J5qw9A9eFtTDfaS8CvcWP0PR6a//z+xvtvuhh+HBKm
mn7rh7yeQfND4kUQ/mJCbCGlH+S6dgRRJvPgp8MGeY8vfXD2oE+RalsG6M1t
6T0S2wvyRr0xbFsygElaKFjqRi8kCh990ZmXBh4bWF4A9EKCgudA+2QydDFM
XS5Z6AERnnHOppA46JcxPfwBesBLR+Adv0soUF5ExZt/6wJe9qdSqf/ZI8fR
J+7LXh0gtzYyMnj1NjZt92ifNe6ApKpOw9JaF1TNCOvfItcBB+fff2lW9MSV
8NsLM8vtsBplFJRmHoC/l1LrPt5oB84/3jIXxh+j3tgdKe1rbaDcH3TQPikC
GVydHC+daYOXDAvCcCYSOfwNDOMF24D31IsHxRFRWP9crC5/thVYr0vaJDDF
4r7/FuvZb7TCuUQ+9r60RJQw+7xL+FcLwMXMo9UiSTimuf+pfksLJE/2baAQ
SXj+0puKiYAWUNzpQj9ek4wxcy9Xt+1uAWvL+iO/y1KRMeEzW/OhZmCygobf
BRm4k/vz6t/ARnjFWtqiUZeNqfdW5lZt66AygrFQ9H026tyxsFk8Wgejz6o4
dNhy0Hp64YzcxjqYfhTA5uGQg/RCR76/TK+Fh6cujhRz5eLLGVe3/a9rQEdy
q1/NhTz8I3e4VeVKNVyZ5dyk556Hi9IBdx0PVcP8vytnjNPyULgxW2OeoRqe
yDOP9M3k4Q5VIYOm4iqwP8ube+5mPiYa/rnw9k8lGD+My+izKED7gnfpXnkV
oPnvfZC1VwEOMsvzCHhVgJXrkRexiQV4af2v1laDCohuiPQqIgtQ9q7npuQN
FZB/NuXYtHwh7jE+eaTyajnUhl0dn/tdiHefzqO4ZBk0K4rFTsoXo8jW9viF
18Vw6kHw96Maxag5p/m9PrkYZtP26pw3LsYXaqVbX5sUw/bpu9Kv7xWj/rY9
n7dNFEH1oQdtijXF+PQBZ/HOd4VAiY3z/C5YgjveR+3/9DcfCuOqM97LlGC9
0+Ygy7Z8YNNgsCg6WYIBRxV8eYLy4fwNzqOZF0twY9b6QdOd+XB22cPEKrgE
vydl874VyYPFA6fv9U6WoI5tm8etqzlA9y14aXW+BJt/vdjRKZYDRcxpmxi/
laBY4I3I89+ygXKb/U/xJgo6hcRksAdmw61zX+WlxSnoPPVsG39xFph27nAK
d6SgSFzSaC5dJjjU14v6ulHwjMGOHPHBDDiVseWWgQ8F8wWDlt7EZ8Cyvf/u
5McU7Jg4kEmVygB++ZP/KkooaLdk3WDTkQbHpOzmjd5S8F0Yr4dEUjLcPn0p
XO89Ba/eeaV5Ti4ZrBp0d0kuUvCF93RUw8sk0HW405X8i4I+N8lzl1iTYGeQ
8UZ1ZgKPLBQEFUUlgGWKEHl3N4EXFpqXx2UTwP3oLvcwDgKbX7jGaT2LhwNi
g+cc9xN4g2/w/hRrPPyxsD3Cd4RA8t/btdqkWKB/QuWJlifQ6tuD03UnYoH1
zdeUL4oE9ooWvFycjIEdSn4811UJfF6SvHVFIAbC5/scdAwJ3PM2/ZVRWRRk
xinDbmMC13zHa+fPR8FiTzh7hxmBHwTbVPN+RsLm3t0PZq4RWM85XpsHkVDI
KfxS9jaBFnL2P1SyH0NLuKG+gQuBBzK+9G5ffAQin/4yXXUj8GztgxN8xx7B
u9SSoVPeBHboKvUJDYaBQ+CF//aFEhgf+pHv3u9Q4C5W2pPzkECKSnjCbZVQ
GOv4bsXxiMBIjU6zosgQeJzKL9YXRWDibq/2IbFgMJv7wqWTTOCWxyYjFeYB
MO3rtKScSmCAtESMHcUfjMd4BwTSCQxhrMg0WvWDZ1OaU+VZBP7Red1VF+8L
MjFLypdzCPQsv39DbM4HxGX2/P6VS6A1fadH12EfUN8UWPK7gMAlxgzW6Rwv
YNxf3m9eRPt9Y7j831OewFfN71tVTKDm5Lkwk7fu8IRldPJnCYEsVLq8v/fv
ga8Y2/IBgkDVZi7+cR43WFbV69UoJZCh1yvxR/Nd2NShbG9cRuCUiHrJWTMX
sHpobKRaQaCLezxXUMptoD/yJ/lwJYEymewyYTxOsMeq/RVzFYHZSXSrQcoO
cCNunfMFjcOvjtrqqt6CN7tWbIOrCXyzKs9pq2kLkhETT4RqCEyuq3IZ0LsO
YgMfL5XRWOl99aKdoSV8XtPYIlJLm29Rc0nN1AKKjXnnQmlcR518l9lpDIZX
glZe0fhDbVwn3RMDED4er8BaR+BCL9uro43a8OPr1UYFGlOfcwS1PVeGgLzv
d//3Py1TD1vKv3oRiCk75/A/ln7D09o9KYIbiu7l/L/x3/wWvk0oI96+zva/
+eiP6znadmpjKe/21v+tt5/xnFzSCwO8N2aU+b/9pAnfClPoM0bF8sPVwjQW
bY2fi7lsgQKGvj9KafGMmGZvbTSyxJFhTvP/xftS620rx/nr2Lf76fsgWj4G
jM8k1mjb4tn0uyHPafn6GXFFKPXsLbT+NHDsf/n05Cn49fy0A4bPhn88RMv3
TKGWQSWvEzadckhQodXjib7PdUrqbfQY4ZA9XU6g8zs2ugkuZzQjRYvFafVj
uBnpoJrkgh+nZFboafW9of1142cOV5QyaaDroBAYeLtr16t4N7ytotDsQOuP
m14XFhjZ3dGM0kYfVkjgvNBrHb09XrjEYWe5mk/b360nYQ5x3qjpZHzAMI/A
QxaT7ne2+aB9k1foEK1/y10Ov3EN88Uraa3fFzIINN/HunxG2w+XLU2vL6XR
9HQn9LUqsz/O3Cpfbk0i0FUnh2E5IgDrBcpehCQQ+O6/3RXp+oGoKv1YVyGO
wIT+bqaHrEGYt100zDySptdMr0aBxGBc5w4Nygwi8IekWlFy7gNUXOcOavAn
0OHLZR8X24c4XC64udmHwGfN1zamS4QhRTz6k5c7rf/tpuU/1ISjz56DSR9u
Efh50XWOvB6B/72b3KBpS/MHNZdG7v4I7Px+/GG0FYExxX/yEyUi0XXhkOw4
zW9E7MO9D65E4kvB/btVtQn8XS9ziwyKxuPPErIl1Gnr7eh+zjAbjbc89i+t
nSGQ2dxDyf50DN6r/vPP7ATND0y27h2ni8WrbKEnGMUIHP2lM6vmHYeueXl7
5YQIdBIss5eZjMOaY3XMenwEtvGKbTc8GY9X5r7qHttD4N8HW3MM1uPxsv7b
+HE6mp6Gnd3OBCTiHgvKI9VVCkpSfPoF5hLRxn5vcdwKBT2uCsepnk3CZWNP
lfkFCh6PLZ03ZkrGvSf3aas/oaAyrPwYT0rB7Cw5ojWJgoaKij+hMx2Tf+re
vRFNQQlZtRo7tgxkZcx/sPKQgu2fDMXmzmYg56frUoQnBdf5GFMvlWWga0PU
4XRTCk6K0LuZ+GaiAG+a6IE9FJTzDK81EM/G3qVk1obtFDT/OiAZfzUb1Zg0
Pgj9R8F5s4N6zInZuOd1r0fYlxIMW/1yKHVTDm52N1gI7i5Bn/Ksw3ozORjf
odvTfasEHc1zh3OK8tD/wFRzj3kJstns3mWxkIfVfbGG0fol+I/+lfZ10XyU
7TtqFXysBJ2N0t0v5ufjCQaln4Nrxbjaf+vm+4ICHE96wMfiV4y7g3Y/Smos
wlD61h5jp2I8kbopyn29CBdit6haWBTj3ELfg+rTxWj8VbA/VbEY9z47m600
VIxXLZ0Zu78X4cGAyvm+mRL0VjnZ+9ygCOmdN2zIES7FRd2VOFsowtkwUf86
x1L0GMjgLzxQhC0OPILHG0sxjVVDSuBfIdaHyz/pFC2j5X1ZbSK9ENVidXa1
tJXhEXolQ+FnBei3m3N0dq0cs1OZciJm8zBbnCe4sagK5RrDonk78lByk4kF
40gV6hl1p4hk5OGP4nsNaf9Vo0jXxuAkozz8ul2qt8isGtPPVz8abs/FPXXO
hgZsNTg2PHnQ2j0HvS6ofn8cXYuf1DvL7+rkYP6lyJCBzlq0bGuSGOXPQVn1
T6qmP2pRfrCXPaw7Gy1UUxV8jOuwZ2daifHmbGz5ZDwxJ1yPh1rGd/21zMQi
j7ajL8gGdPa+3zZ2MBP3zMbcadrciI0yoeqvlzNwwv1s3kZoxOqqa28PeWdg
zaGi7gaiEf+W9xk17U7H3d9PRjyJakKt32XCfu+S8NTVCwVg34L7/XzZuQYj
MNZbh22PQhu+WBJk3sEfgcrGEWnvjNswLuzNL673j5AlZ3fEtHsbPt3TLsy6
Pwz/u94069zYhqX6vhabjYOwsICN99PJdrxkXjj/zf8OqnxcmeXW7cCtDi87
og844k8fNaF1pw7MVyob5w2yRfXBpJpdsR0YJKvQvXb6Ij7bvDzY/boDT217
rCJ/8Qqk0nXL2dzsRDO2LWIMbAHQ9iL8nlh0F/qZdnrViAdB+LF7fDN1XTj/
OJuzSTME5D7d9++e7EJetZu/WTPC4KvCJf0NB7sRIl0Y2J9GwQfvfdcUu7pR
7/7Wbf6xKVD36fqbp+s9qPL2q3zcm1RI8jYbTRfpxQXB/ekfpdKBp7SMy1+3
FzegLSMuZkA286vJwPRe7D4g0hpemQ3dtZlaGkp9KN5258LW4kIwUnLvp/fv
x5ThTelWgUVw7tglPwrRj9sbTu71uFoMgeHvuDTG+vGo6t6nY4IU0J7cKakm
M4COHiymylZlsHL9uf/0xADqEfpFlhNlQNXseJrPOIhJO9bfvzMsB78LOgqK
hwZRMLdP/o92Bei5FoR0BQ/iv3E7mfNaVXAlV2JHm8QQZixN5CpQq4B3TXOH
l+EQmq711dw+Xw149Tv/G+8hnC8UZEfzGhgx0fcPGB5CramOJ2bBdeDqyq+e
ZjOMCoNfHTRY60Fv6tH4x/BhfG++74dFVj3IS81cKK0YRlMvm49LbQ1w6usG
Ca8/w7hraXPbS6ZmOP3+BvcdPypOsPPj2exm6E3jNy/NoqKAMUNWrnwLqLdL
2B9op+KeA2HzP20QFKSeGNevUVF2g/+GT3StkKt8WPANE4mDygIKTdqtcOqD
VPQ3LhLH+l+ftJpvhcpcNanGoyROOte4yRxtg7P1pWh9msT0wdCGMwFtcET6
0q5YXRINjp4KE+RvBycrh/qr10n08Q1Om3Zoh8tf6O+uOpLoHFXe0t/SDpPS
jB0MHiQynfqY/Nu0A5o83XZbhJMYaPOeXrqkA6qPHScKYkkUd9/V77DaAb16
ltsMUkkMvfBLsUyjEzb3TURdziFx7ce12/OJnfBceamhs4jEtxri6jsWOsG8
67+t/mUkPtoveYdLrguq/llwxFWTKB3oe/u/4C44X74p6k89iaJWwynNL7og
X81FjtJM4pXY5/uUBLvh6ib/maJWEmdzeP/43O6GC3nSIV/bSfzK8n7X3dZu
kB/2kvboJLGdY68gG3MP1CwrbD7bRWL/9rgn5016oHT7pIEBjcXFgjJECnqA
+uC0XyptvKnux/XA7z0w/spzL38HiZu3aWheU+qF/OHgwXHaegUhvNX1Qb3w
kt+6h7GFRIH5KqfwwV7aPWALo38Dic8r+5te7uoDmbx7jBo1JL7x56CGGfbB
++/Uq6blJNobG77NS+oDx6unn9YVk/iJzVCKe7IPQpXEDl/OJTGS6eDqO75+
+Ff1JUQzjcSlYbOIlav98PjDn+/340jkGj+gdjanH+6oBrf9odUjXLYj+NlM
PyyW3jJrDCBxn1bm0CPBAdCgHzFrc6f1h/xQkZPlACx2ffTeTquviY30wJ3M
Ach1MctJuUbi8uO3P8MmB4D+1sdRJyMSq0rZlWYuDEJGIJPDJ0US90SxprJE
DAKzXVd5lBSJKZ6Vj+X6BiFsj97AfT4Sw8S8snXoh0B82iymaieJrxFitOWG
oN56hVmWjsRync3nJO2HwOpKw+DyBBUrZOnWF7KGwOf2xAR7AxWTq92mRxiH
oTxJ64qMPRXdl31D/8kPw+tp1gZxVSrysD3fMms7DDYZx5QGuakoIsqo/q5r
GDJPNdBt6R7GrUlsEV+WhsFT7+6j0oRh3DFEdBZwU6HX/ven7TeGka23SHqn
PRUiDD0m6bcMY+83Y5WaGCoQ0Qf/5bwcwlaG5xt/11MBMoLW2bKH0N4tXuDF
BBUoJYWaJvZDeLUi+JkAHQmj3Nr+HnJDWDXG/y1vJwlztWy+XvRD6LQo3XWb
j4QH3/ov2PQNIu+xy5lvFEl4Un61k81wEFXGDgr4apIQlczn/H7vIG50rlG1
NiKh0taIr3VyAGXePiWirpHQ4JnXmJ85gFJRwiL/OZJw3fWKaZ7lAM5Jkdl1
7rT504zkOwUHMLtoVakygIT9Gg/ztsz249nzV099Cyeh7efrXfdz+vF9aS3L
vTgSKEFt6+KW/bh76L/TKmkkJHH93szN349Grz+GGuWSQHIpPDWY7MPwlYX2
ymISJjNWWN4k9aHZL+fFi+UkzFcwh3Qb9mGKGae4ag1t/75lKztZ+pCZPaDj
fgMJb5r4BXoHe/HgTR/OTS0khLGVjHwP6sWG8YXKsVYSfJ9GjaQr9aK6WPSx
9XZaPBpcb5/87sEgFwFrl05aPpcLCqMrevBMzgd+6CJha8LnscUbPdi1nbh6
mcaaUkd3LuzvQSNv+5MvaOP/xLY+Cx/rRvMq0Xe5HSQ8unkyZSayG9+cjIx7
2kaCD7tl/8rZbsyYG6wyQxJ2vo/K61vvQvanp+qNm2jrN3v2jdV2YRXvCcm2
OhJEciadWx260IDVMyC6igRzGythPxHa84vtJ56XksBSRCqKTHWizu30ucAi
Eo7Sm6zWxHXiW2ZN3uIcEj40nfCW0+nEuArPCFVafi201TsqGDqRI1bti3E8
CRF6+dnizR3YI/fnz4fHJMQJZD8rce5AtUsbPH8Hk/C7M/mtvHgHMt58I5x6
l4SvXelMMcntuKXVjUHOjoQ9oQF+dufb0WJwtNXUkvbcJNf31rZ21JS1ttXV
odVLvX/jskcbnj1EiAmcJuHmkbZI/8NtONrE6RB2jASPn/sb9BZbcY/8ZtmD
vCSgozJbhXkrPhesUHv5jArHHq6uHohowal7L3661VKh5Le60q5NLbihx/eX
cxIVpJ2mhmo9m5HCqO74+DIV/vS+sbe41YTFt11n5qeGwWS/reLEhQasqElh
WmoZhkFDmxTvp/WoGnR+t3fqMJy89lqFRa8eReXZjypcGoaVhdM8gjp1+Lpf
k25oYAhS0/usbxrW4NrBS6JXMgfB58LHK85JFXhRUihk2X0QRpST2X+JVODh
nVN05wwGwdgzANJqynFT1rYDAZsGYdPnJz8ujJRh6b/eImHbATBSNHbbSrsX
/fdB9fNBsX6492tH06uf+Ti1MKNQs9YH1ndetRwUyceYByb/Tj7rgwT5YUOh
S3l4Q62KvOjZBzpPrp5f78zBG8bcId+He+GdLOeH2cZMXPpQvbLi2gPL6fTT
7CoJGHmU8WCidg8YZIXOZX6Pw/mPrZbmAj0QNh52+F1BLA4WNW4woXZDhXB0
pClvNEZfdvl85EA3THcx7CsPDMO6OIcIj9lOiFYX4TG55oIHBSXJd82dkL7D
xMVE3gmjqEWHfeI6IWTzgZnjJ26gJ/2b4YtnO+FGzNdNDkYG+Kc8NyGC6ACm
ov/s6B5eA84zJ/66B7ZDQTn378MH/eGTAV+Y5OVWONbA4D6nHguGe0O5+qEV
DmccHV2YjgUXu4d2cfytwOga3t18Lw54Lq2p+Q4gJLeqpv7IiAdZBa3x4jct
8INrUMPvZSIU8jdBLnczyHZt4rKaSYXxWH3j9tkmkLIaUPlklgZWb2aq5Eub
IDWWrqTmRRqsuv9ePXy6CVq5t9RItqaDCouwjI5DI3xIZ3hX0poBO1YYB0NH
6mFn/6md70yzgAhpCtuUVw+/zy+5HwjPAvab+fDcuR46VAOGsSkLtox1b7fY
XQ9qT25bznFmA4+05AFRgzqIvFWSbjGYDTd/aqosvauBTWcqW/ew5sInIY6/
InJVNP9MmwLFfDBrtSGktlfBFpnLBWaX86Fez2zm/ptKOM+eNfLbOx/Ut7f/
+hFaCXyZ7g7VLfnQGPhx6OCbCviZa/3KQa4AhEr+8LEmloNSjwH7gz2FYLYa
3afrVA5P7l1Tt5cuBPNU3sVe9XI4JclgvaheCDr6SducVssg5+m+0HaPQuA/
sLM26EoZ7Fr6sbo0Vgg3X1/ycnMkINHaniMthPYebNF4kFGUgK5LBZbjKUVg
LPSVc32KAg0+xjcGyoqge0qOi+ccBaq/GZm0jhTB9K1bv+jkSoBtTPqR0P5i
sH7zrceSvQjeH7j4cqCwGDbQqwuZseXBrcTrHPseloAnP3598ToXFJUUDGPj
SmCluE0nLCsX9paepJ/OLIFnzPpjhHQu3NX8+PJPbQk4xZD8tbo54Pjg9EP5
6RJopTgryyVkgXSOprGpFAX4Wc2rj1zNgtQLjh6X5ChQeu5CmZV4FrD5mi3L
KlNgs+3TLOO2TFBSdYrz1KeAg5NlWBDtfqC8xq5y9w4FmhUeM1WnpEEQEcBg
XEoB6TsS4bZH08Btewy3Vg3tuYWjlgOZCrdnmeL5mikgv+7x2pYhFRamWTbc
7qfA8srl139uJ8M3niknfEeBwon6Dxw7kuFg1lnHoQUK/M17svV+cRIosEee
af1CgTdn1hl4ZxPht2V5+IVVCgSojaw9MkkAj4JjMqq7CMiY/542/DseYJ+I
q98eAhy2/wrVTogHZxPB0lwuAkIvH/iz8WUcnJm9/zFTiIB4anj2CYNYeM94
kNlNjoDXa0fs54yjQE7v1XL/JQJmTc58dVmLhKow5Z3eZgQ8L1q2k82KhGIL
JQ3uKwT8GP2RJvkhAoTLhur22hBw7FgmHvr1CPbW7RsScCEgfZbD57PyI4jv
+LT/sBsBDS6lt78/DIdT2TXd0h4ENFl4lozxhYHPtsz7X3wIUJEb/TehHQoP
1vXlgx4SwJjQN4yJIfD5Z0/w33ACLif2uEzOBkNCvwG3RQQBPcmE7IB3ELTp
+vt/iSHgsZVwe+xAIKhGroRyxRM0nVbvjeMIhM8PBE4eSSQgWN9cRKbSH/Z+
PMUsm0pAQLL15V46f5C5d+ciWzoBmx11rz3S8QPDO28K5jIIeHSJ5XP6Bx/Q
2bq75nwOAasv6f+9l/OBnrqShC+5BKi2DL4tZb4PFv9JPLmXT8DN00y659Q9
4dOH8ZBLRQS4OEX82vbeHWrPxYmWFhPwZfJzJWPgPWBL1zT/VkKA+f91cObx
VLzvG6cFlb0oKZW9QiIllUdCRIQsFUrZClmyZU1kzxKyr3EsxznZj/3mcCzH
ckZIliwhkgofJW1+8/39+X49M8/MXPd13fO654/595lfTcQL+UbqnxMnk1HY
RkFNXYsH0mg8Q7/8mow6yVEn799xR9IBXftMS8mIn6IkqLP5CAU7cMqblJHR
czE+Us4FF9QWwbx+pAK/X/ZBQcE6J0TYslr5BedrEzY5KhsOSFlN0Lawkow8
mbklSYoPkJ5UPZ9BFRmZ54V+veFli2IF9DoXcd6n/fmUSo0V0tBPeOZaTUbn
Lyafv/HTEvXeCDP8hDMmwR573sUC/bxy/4wehYwyxFUVeFZNkeueaoU8nE9U
aa0IPzJEh+pkDBZwHnAbS+tc0EbWIYMxgjVkVPhha0nMZxUUJre4fAHnhPTm
QqY6CbSy7f+/KyNSjYnGViVReDlHEb6Gc3jPfzLRu1RAz+7CGsJ5rG5giMqm
DWq9vYtCOJ886zd8YKshGK7/t+0Lfr2Y27pvWJ6aQpCpr0oxzt8SvPulmC3A
e9At1RjnX/anxXWbLeF3shTXKv48O+7tsTj5xApuLcmn+uJsRaP3aqjYwveV
W6d/4Hq0O87KJzI9gGSr6vcWOCswH70m0uIAnzUSw6txPUN9qTPrgU5QGx4h
9xfXu/7nY1t75AKWC44zh3HWydyWwd7kCk6h5j6y5fh+DRpzM+fd4PnPsS/H
8fqZ99smfK93h6tXb0vvxuvLW8DBpHHOE76rXDv+EfeDQ7NXwEidF+Tq73iX
RyKjnbL6h8bqfEC2bHnjf/+ZOBulvq5/zg9uNgddsSkio5AHGgYHG/xhUpLA
NID7UeR8U6Tl5BO42x+n+RD3b+GYqphhdiA89T9CSs8lo5EC5S5Py6fAFUc/
UI37na7wgPXebBA4nf5UXZRORs2mXtwyhGDg/32DGJRKRg+ThpkV7J7BqNSw
smYyGQkqt0RuLoXAt7pkemw8Ge3yO3agfSMcekjdi4LhuJ5EowuvGyPA1Ger
0eUQMpq+NaP3MTAS7igW6pkF4f2CQ8Pl8q7nYF2Ta6rqR0aqW6/t38UTC4mx
j8R/OZGRwI67ZSZusXD/j0O4owMZ+QeUPxscjgVi0NiRLrzf0PfnZd7LioP7
K5i0It6PhhrKP/6UjYew2qvblq/h+faQqlxIjIeErh+OWTp4PwvuMeD9HQ/t
PlfvKGiSkdBRx4W97Qmw03Lp625ERpMnQzm5br+E5dPHBhOO4/V8fGvtG+0l
aNF2kFzEyciQ+Dhzj3QSnJCQ3SF/hIw8rq6byvxJAm/mBKm7eL/1eCrg35GR
Al9eM1bub+LvF7rhc8q3dCjgi2x8101CyxuTyeh6BjxWmLfRp5HQ4F/7Q3y1
GeCoLJtCaiKht39ZpEhBmRA2rGXKVUZCj/182005s0Fs4ryMUwIJleqWfw1/
nQPfq4/UGhiRkP6CMfeT2RwYeddsNKZDQgeZph8TBHKBQyiGflGNhO6qk4pD
gnOheiI1iSBHQtWX99kTzF7BU2bGcCsHCSXE/rD7wZ8PrvGtifMNJahJyW8v
0suHeasP4fvKS5CA+yyRGpoP/UeN5w8VlKCb25tM/TbywaLRsf51bAmKETDp
HZwkwPALK5M2yxK07Er4VlpTCBTdjyLKv4koajRYLTa7BDSnl9ffsBDRi7Xt
aaLzJXDQt4UmtlaM9sWgL4IyJHgmNsOQni5Gd34weBUbSUCsOb/nRl0xutFh
2qExRYb0CFrub7tiVMenbmOVUQoKwrSSG9VFyMi59BRHWynES96cdMwsQh4P
eCVWFkvhC197n3BIESo5nLvL8WwZPI/rX7e7XoTKbr0UuTxSBglKbDHnlgoR
m/z0NkGxCpDcOncoirUQHVQQWqTpVYBKveCtpYUCJChE7qv2roCpZ9Heb7oK
UOk7P3fH/grw5JEhSEYUoPEEaoLq00pIzn/5sm1bAbL/Wqott1oFHw+1DI1P
5qM8zkqhZ9y14B+yYJh24BXqi1XfcFSrhdhO4m25z7no+Q3jL2VetWBQ7MHM
UpuL/MjrgrofauH7B3+CsUEuUimiXFmqrcPnqGF+NZ8c9GHLvta7Pg1wXJcu
XqmRhe5f7Rm8XtUAuo3aJ250ZqKWs2MepG8NoLY49JxNMxNZSFhzJVo3wr65
pTc2FzMQreeUs55xExC7/UBZMA09l1u480usGb7N3JWevfcSKVnIi+hoNEPS
+45WFWoiWl3YShiyaQY20WLFA0KJaGngbnVsYTMMbLUol+yLRwM7/FuJMi3A
u14wFsAZh+jjDSHR6lQI/7X2lYUzBIWmSi5UZ7TBqATn7pZ6e3irxcN/j9oG
W0bKXrGWu8Co6CWj8/NtsGNpW+/beHfIjno29egkDSaGtk5yB/oB2wGWXR87
aEB7zv759NZQWODpTDv+px2UQqOm+L0SwGYP3yVDkQ54DXXOwfi8In27LDb1
Sgcce+lY+2f8JcQ1aPEGpXSAiZ6imLxBCti+qNuXqNgJnz9tnqQ8zATzhtUJ
Q+8uoA7A86b6PIjZZvW2MbcLVIT/2Ot75IPtyLnp4934etxQ8FF5AhjIJnTv
PECHC1vkrSorCoA8JJH5vJEOodku6h5YMZxLaLJ5M0eHGDu+NPcMIsTbml9j
4eyGpHeK3nSHEvjPJODBCYtuGPWZuuTFS4bfvHumpf52w1jaF9L3hlJQzY/w
iBPtAZdPJ3djUmUww9T/gq7dA856m6mDGbiP+ce1iSk94B3329U0qByEwH+C
ItcLp5g+pYibVcKisf34aeM+iBqt2flbtQZk/tnqDfn0Qc6hN1gMowaepLLY
L2X3QTdn10MD81q4kkX/cP9THzgVtPNq+tZBhnRCBpWdAXFXfzx25KiH7aZ+
zV4nGHBzkc0zP6seLOsYH6dcGRBxQfmQdEcDDBoJhQTHM4DZMivD3qwRvBJt
Ou0qGLCwf49R6mojmCwMJQ8tM2BjKv+/7CMAE+L1P6tlMbyOaRNxbc1Qpqlk
mXsBg5D9epxmvC0QGtw0zXUFA+6k4DTnOy2gtxLw1tISA79DcQbmf1tA3iU3
T9kBgz1tp0UldKjAleZ+MdoDA2kdljyhNCrsGgjs8QjHQGWIxcrzbCvUMyJU
2F5gsO2jlkNnWCsY7xJ/8TcFA9Wao1Xi71rhtmmHkGEOBs5KOonhEm1wdTRO
f3shBhUu7tILHm2wrC2Qz03GIIxb68HZ9jZQUDuW71KBQYH3WRY3PhrMXU9e
Fq3BQDYkLzLaiganu7nPSTRg0LRXyCSgggb09mVdd8AAC1lIOb+lHVK0DnKx
UzGIjEg1a7jWDjJvxrwWWjGYUVgNXMtshx9MxfmsNAyaDQa7RpfagVzP22uD
s4aS56CVUge0yAdobP3fd1+2GrGw0A4YProlchQ/v/5NsqTSYAdENAmeWWzB
wF3ro5zz4U7YL+DGLotfX39zS/ghh04IkYj8r6geA0v01vICpRO+Um79NaJg
wKQ4vtjE3AUbx5at5MoxiNu4rpOi3QWRTPOxF0owqHkRQ2pJ6IKY4Lk9HvkY
eN/TPSv9vgs6F36Uj2ZgQAi9KNwvSgeq8FuzB4l4vXYkFOTa0+HkymEF0SgM
WKzDBJLK6JDo4xrL+hSvT/XhiVc/6MDOa/VjtycGlZ197k1K3WBHcBXWssfA
84jkk3G/bugr7dhWYIHB/X8pzf9BN3hqz1Kl9TG4LiMg8oupB2japh4UeQwC
r6TMlgT0wChrNa1eBAOhQjqXRmMPaKyb53/mxUC79/6/go0eGFlR0NZkxuBe
SSGx61Qv6D8uvUx4zwDZ5YPGuQ97wTmFlCdIYYBu5IegowW9wBlJub0WzQDP
7REsJhO9kC46xJg6ywBeo5mpZ5p94KX+UXM7NwOSh0uWj3j1wZX8QPU3s30g
EE+y9iT0gZ/1VIpXRB/kUeWent3sgw4i326zW33wdF+2ZfpRBkhK/Nb9c6wP
KkRfCeQbMMDwsbVxRHsvaHa/oidlM2Dl3O4HwS96gegoae1NY0BS22S3oXkv
iA4EH1xbYMDSzp1nN8V7wdoohDVwOwYDxy4VPP/WA+Xm9QMYHwb/JN5eZKH0
QGcM0dBODANKFsXG2a8H5BsV4jRO4T7v1S8/w9oDLC5wflAPz4FrmUcevRs4
gn2in5phsHFF59eR593w8v5PK3c7vK5O1fdrdLuhbeJgSskjDPjmhXicubpB
HtykJP0xWB39a6rPoAPBsEJzIRQDSSWgWkXTIZisgL7E4vvdcpgr16EDB+Nu
2Bk8h4PCJg/UdtLB3nCT2pGNgS9v1w7hji7QintYkVmAAU99Tej1oC4gr39Q
bSRh4N8RWjqr3AWZRf7+ongOpee7jcY2OsH6ivXLIdzHn8pEtS9WdkL5Hxjv
x32+O/LwvUMPO6E1vbJtP56DE45yDv4SnfD6kv50GZ4Tcbs6adupDmASc5xN
xnOUFiBs/SG5Aw6OBWT0t2Hg84in9ee1DoAzzj/N8dw1TlQulLN1gDbp1h+E
s9a6iLVAczssWpnQH+PHP9wzXn7Ksx0CeaTSOfD9JraYKnDItINeFEfr32YM
BHa2nibO0oDnkh5BpwnX26pzjj+NBppe/NQ/dRgk0gMMTfVpsPfaLgI3/jzH
4j1dPFlpYJi+Yy0Cz6UobZzLt7ENtK+9sXiI6+Fi0TLm+KgNaL5NhY24XoTV
J+bXj7bB9yK3XB+8rxHyL62fnmwF5Zs5R4mpGOx0MjnFod0KBkYZsQ8iMegV
OdvPydwKi1xplkxBGFj/4PeUpFDBpexf1m5vDL4dH1hrFKGCa1heWpMNhs9d
mK3GaAtQJ4MCzXB/KL1v3ccU1wJN9r0iwXgu1QuKnIQ2m8HdvYnHTwnX12js
QnR1M4QHC6del8Hg5yxrqvpDvO9beRlTj2DwXkEoXLkR4MVQ7pgDKwbtPZ9Z
t4U2Asse9n+F6QygpL79J/yvAWarFP4xBzBgVWtalNujAT4t98Q13WHA7PGi
K8529XCSI7fUS5gB7/IOy3w3qYU52y7u8Kw+oI0miSq8rQHfO2NXkvzwnGES
NS5GNcDLlz4jj+dwNygorhpTQPVJpbwUXx9QeVILfWyqgOJmUJcd3AuL9wQJ
HF8qYXm1Zrrodi8oXp9SrXGrBH1BS0VbpV4wn3KPuxNaATvsZ0hceO4M3WLd
TtaVQYX4hnSkUQ8c4z9Fe0EqAQWb9Vzv/d0wK+mwwT9JBKP48jepq3SIc0j6
M89LBO6ceI8iOh1cXwdi9oFF4Kh6IizDmw7e2k6RPY8JkD2WIyA12gU76g4f
ZQxlg929nVUbKZ2QpW3Qkx4SBdubmDfVj7YDhXAv5ql0BHTwLJ7Zy9QOI6Uz
NwXfh0Ig52c+/mEa/Lo208RkHAQx8qq92c9oUMWvcOuViTvwnrY32jrXBvAX
m2ett0Knqzr800i4L8zOsJkJOyCewfmuvNBW8E4PPJFe7YJMpoIPf7RshZ9t
/i7hw17olTQzP+/eVpi0Zcv3PheEPqlX3OELpkK5L8tCdnEMEqIb1s7YtcD7
3XIu76NjkbTPo5onGi3wc+TdeoJ6HPrwLFvMRLQFsrjnZMjFL1CAMt/466lm
UP5+1bbkeiKKDzNgsJs1g1yZU2+EbCryKiNkxtc1QYZ1fGugSA7aw7SSOc5V
DyG1ipampjlIwP9AwsXxOhj9o5DmGJWDGl7I+v0urAOuC6z7bq/i60pl7faX
6qDzsqVDcVUuOu34VU/atxb+y5w3FT2Qh9JF0h2IfyhwO9r+2WGNPOTU96qB
v48CdW6uTUFOeUiDd1KpN4sCW2ThVFhzHqIbueoIqFEgfq+MJ+1WProwEZJ6
ILYa/ra+0xzxIiAWAnvDZYUq2CXmmIdSCYg3sHLgwK4qqDGlLUvVE9A5y0VH
+elKuHmQ2fDVbwLyFnXtF46uBMX9v8JlPAvQ3a+6XL8WK8Df2vuE6M1CRK0M
z95ZWg7HzKYEno0UoZg+ti+T90ph/62JtxIrRWhEg/948/lSYCu7ftOerRjx
JbO4jfOVQuW7ypRRhWJkmXNuKSruNfh8yn4bGFWMVmtlbNPukmEXaUlZ6BgR
Fe2sdpYTKAERmXO+LueJqDXmqte7fiKo3bG86a1LRBJB8RofIogw4O7hVOZC
REiDw//Av2JYnuOWGKgkohul9IGdn4pA+m3Wl3aZEmRM655+wygAHfGL5svn
SxCX6DhRKroAru2tlJu8UoI4zX8/fKdTAGlZbo7cNiVI1eJs45FuAtxgH5gb
TilB8c6Pflt050PUyeum+eslSL9baJgw8gpyjZVbn24hoU2nIavC9Feg8jjC
/SQ+17qxqVxduv0K1DvLz2wXJqGqR6cizsznAuWJjlqSFgm9R9vTqT9zgGL+
mIfbkISGo6dGGhtzIGQ362cLMxK6TZ8xWXuaA/1VmytPHpLQ2oZwARdnDpDV
jGSNPElI7AGVtjqQDfGFa+nMT/B1eXXgSMXn9CD2upAwEmI9qtF0+042VLy7
wToXS0IHFD9+nRfPhv8DmKShig==
          "]]}}}, {}, {{{}, {}, {}, {}}, {}}}}, {AxesLabel -> {
       FormBox["x", TraditionalForm], 
       FormBox["y", TraditionalForm]}, Epilog -> InsetBox[
       FormBox[
        StyleBox["\"\[Phi]=2\[Pi]*3=6\[Pi]\"", {
          GrayLevel[0.5], 13}, StripOnInput -> False], TraditionalForm], 
       Offset[{0, 0}, 
        Scaled[{1, 0.3}]], {1, -28}], 
     PlotRange -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     PlotRangePadding -> Scaled[0.02], DisplayFunction -> Identity, Axes -> 
     True, AxesOrigin -> {0, 0}, 
     CoordinatesToolOptions -> {"DisplayFunction" -> ({
         Sqrt[Part[#, 1]^2 + Part[#, 2]^2], 
         Mod[
          ArcTan[
           Part[#, 1], 
           Part[#, 2]], 2 Pi]}& ), "CopiedValueFunction" -> ({
         Sqrt[Part[#, 1]^2 + Part[#, 2]^2], 
         Mod[
          ArcTan[
           Part[#, 1], 
           Part[#, 2]], 2 Pi]}& )}, DisplayFunction :> Identity, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "AxisPadding" -> Scaled[0.02], "DefaultBoundaryStyle" -> Automatic, 
       "DefaultPlotStyle" -> {
         Directive[
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.528488, 0.470624, 0.701351], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.772079, 0.431554, 0.102387], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.363898, 0.618501, 0.782349], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[1, 0.75, 0], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.647624, 0.37816, 0.614037], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.571589, 0.586483, 0.], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.915, 0.3325, 0.2125], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[
          0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
          AbsoluteThickness[1.6]], 
         Directive[
          RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
          AbsoluteThickness[1.6]]}, "DomainPadding" -> Scaled[0.02], 
       "RangePadding" -> Scaled[0.05]}, 
     PlotRange -> {{-0.3399999602659588, 0.34}, {-0.33999995215560963`, 
      0.33999995861332616`}}, PlotRangeClipping -> True, PlotRangePadding -> {
       Scaled[0.02], 
       Scaled[0.02]}, Ticks -> {None, None}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(per\\)]\\)\"", 
       "\"\\!\\(\\*SubscriptBox[\\(r\\), \\(af\\)]\\)\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    RowBox[{
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "\[InvisibleSpace]"}], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7984657425187426`*^9, {3.7984657931055803`*^9, 3.7984659119514637`*^9}, 
   3.798466162040786*^9, {3.798466329110175*^9, 3.7984663550871277`*^9}, {
   3.798646618665366*^9, 3.798646633671693*^9}, 3.8102349961094294`*^9, 
   3.8102350378374577`*^9, {3.810235154896966*^9, 3.8102352013820686`*^9}, 
   3.8102355749426904`*^9, 3.8102370197956867`*^9, 3.8102485708727455`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Ej3fig2.png\>\"", ",", "fig7"}], "]"}]], "Input",
 CellChangeTimes->{{3.7984659517040844`*^9, 3.7984659553509445`*^9}, {
  3.810235084541564*^9, 3.8102350866268306`*^9}}],

Cell[BoxData["\<\"Ej3fig2.png\"\>"], "Output",
 CellChangeTimes->{3.798465956054821*^9, 3.798466364430726*^9, 
  3.810235087740199*^9, 3.810235209657848*^9, 3.8102355775496054`*^9, 
  3.8102370220608935`*^9, 3.8102485711695595`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8102382998058176`*^9, 3.81023830150063*^9}}],

Cell["Interactivo", "Item",
 CellChangeTimes->{{3.8102381790846047`*^9, 3.8102382061497183`*^9}, {
  3.810238303511846*^9, 3.8102383147576685`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PolarPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"rper", ",", "raf"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Phi]", ",", "0", ",", 
          RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
        RowBox[{"PlotLegends", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
          "\"\<\!\(\*SubscriptBox[\(r\), \(per\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(r\), \(af\)]\)\>\""}], "}"}]}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
        RowBox[{"Ticks", "\[Rule]", "None"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "raf"}]}], "]"}], ",", 
      RowBox[{"ParametricPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"r", "[", 
            RowBox[{"\[Alpha]", ",", "\[Phi]"}], "]"}], "*", 
           RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
          RowBox[{
           RowBox[{"r", "[", 
            RowBox[{"\[Alpha]", ",", "\[Phi]"}], "]"}], "*", 
           RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Phi]", ",", "0", ",", "end"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "2"}], ",", 
        RowBox[{"PlotRangePadding", "\[Rule]", ".1"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"350", ",", "350"}], "}"}]}], ",", 
        RowBox[{"MaxRecursion", "\[Rule]", "6"}]}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"RGBColor", "[", 
          RowBox[{".5", ",", "0", ",", "0"}], "]"}], ",", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{"\[Alpha]", ",", "end"}], "]"}], "*", 
              RowBox[{"Cos", "[", "end", "]"}]}], ",", 
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{"\[Alpha]", ",", "end"}], "]"}], "*", 
              RowBox[{"Sin", "[", "end", "]"}]}]}], "}"}], ",", ".005"}], 
          "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"Graphics", "[", 
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Rotate", "[", 
          RowBox[{
           RowBox[{"Circle", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "0.2"}], "*", "0.7"}], ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"0.2", ",", 
               RowBox[{"0.2", 
                SqrtBox[
                 RowBox[{"1", "-", 
                  SuperscriptBox["0.7", "2"]}]]}]}], "}"}]}], "]"}], ",", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"(", 
              RowBox[{"\[Alpha]", "-", "1"}], ")"}]}], "end"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], "]"}]}], "}"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", 
     RowBox[{"3", "/", "4"}], ",", 
     RowBox[{"4", "/", "3"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"end", ",", ".001", ",", "\"\<animate\>\""}], "}"}], ",", 
     ".001", ",", "Infinity", ",", 
     RowBox[{"ControlType", "\[Rule]", "Trigger"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"end", ",", ".001"}], "}"}], ",", ".001", ",", "10", ",", 
     RowBox[{"ControlType", "\[Rule]", "None"}]}], "}"}], ",", 
   RowBox[{"AutorunSequencing", "\[Rule]", 
    RowBox[{"{", "3", "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7985589485424156`*^9, 3.7985590077504807`*^9}, {
   3.7985590417732677`*^9, 3.7985591342655487`*^9}, {3.7985592214611683`*^9, 
   3.79855923068716*^9}, {3.798559287852165*^9, 3.798559298499078*^9}, {
   3.7985593312857265`*^9, 3.798559331970459*^9}, {3.7985606639387836`*^9, 
   3.7985607353756437`*^9}, {3.7985611710784073`*^9, 3.79856120498622*^9}, {
   3.7985612418460245`*^9, 3.7985612468121977`*^9}, 3.7985639875865755`*^9, {
   3.7985641939939127`*^9, 3.7985641957097445`*^9}, {3.7985644058583503`*^9, 
   3.7985644296165752`*^9}, 3.7985644702049737`*^9, {3.7985645732800713`*^9, 
   3.7985645912508*^9}, {3.798565020662382*^9, 3.798565029497279*^9}, {
   3.7985653618030987`*^9, 3.798565366256334*^9}, 3.7985654314500113`*^9, {
   3.7985654763807745`*^9, 3.79856550518862*^9}, {3.7985657676555223`*^9, 
   3.798565776410413*^9}, {3.798565827328982*^9, 3.7985658276620817`*^9}, 
   3.7985663149995966`*^9, {3.7985666607844396`*^9, 3.7985666664688873`*^9}, 
   3.7985672365993223`*^9, {3.7985673121240673`*^9, 3.798567313912752*^9}, {
   3.7985674258964567`*^9, 3.7985674284919643`*^9}, {3.798567477877412*^9, 
   3.798567514506481*^9}, {3.7986478797269073`*^9, 3.7986478909014497`*^9}, {
   3.798648057291314*^9, 3.7986480806647973`*^9}, {3.798648112517392*^9, 
   3.79864811861187*^9}, {3.810235218403634*^9, 3.8102352277197847`*^9}, 
   3.8102355839574633`*^9, {3.8102377092852716`*^9, 3.810237721996614*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`end$$ = 
    5.657720161437989, $CellContext`\[Alpha]$$ = 1, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`\[Alpha]$$], 
      Rational[3, 4], 
      Rational[4, 3]}, {{
       Hold[$CellContext`end$$], 0.001, "animate"}, 0.001, 
      DirectedInfinity[1]}, {{
       Hold[$CellContext`end$$], 0.001}, 0.001, 10}}, Typeset`size$$ = {
    491., {195., 201.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`\[Alpha]$3209$$ = 
    0, $CellContext`end$3210$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`end$$ = 0.001, $CellContext`\[Alpha]$$ = 
        Rational[3, 4]}, "ControllerVariables" :> {
        Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$3209$$, 0], 
        Hold[$CellContext`end$$, $CellContext`end$3210$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[{
         PolarPlot[{$CellContext`rper, $CellContext`raf}, \
{$CellContext`\[Phi], 0, 2 Pi}, 
          PlotLegends -> {
           "\!\(\*SubscriptBox[\(r\), \(per\)]\)", 
            "\!\(\*SubscriptBox[\(r\), \(af\)]\)"}, PlotStyle -> Dashed, 
          Ticks -> None, PlotRange -> $CellContext`raf], 
         ParametricPlot[{$CellContext`r[$CellContext`\[Alpha]$$, \
$CellContext`\[Phi]] 
           Cos[$CellContext`\[Phi]], $CellContext`r[$CellContext`\[Alpha]$$, \
$CellContext`\[Phi]] Sin[$CellContext`\[Phi]]}, {$CellContext`\[Phi], 
           0, $CellContext`end$$}, PlotStyle -> Black, PlotRange -> 2, 
          PlotRangePadding -> 0.1, ImageSize -> {350, 350}, MaxRecursion -> 
          6], 
         Graphics[{
           RGBColor[0.5, 0, 0], 
           
           Disk[{$CellContext`r[$CellContext`\[Alpha]$$, $CellContext`end$$] 
             Cos[$CellContext`end$$], $CellContext`r[$CellContext`\[Alpha]$$, \
$CellContext`end$$] Sin[$CellContext`end$$]}, 0.005]}], 
         Graphics[{Green, 
           Rotate[
            
            Circle[{(-0.2) 0.7, 0}, {
             0.2, 0.2 (1 - 0.7^2)^
               Rational[1, 2]}], (-($CellContext`\[Alpha]$$ - 
              1)) $CellContext`end$$, {0, 0}]}]}], 
      "Specifications" :> {{$CellContext`\[Alpha]$$, 
         Rational[3, 4], 
         Rational[4, 3]}, {{$CellContext`end$$, 0.001, "animate"}, 0.001, 
         DirectedInfinity[1], ControlType -> 
         Trigger}, {{$CellContext`end$$, 0.001}, 0.001, 10, ControlType -> 
         None}}, "Options" :> {AutorunSequencing -> {3}}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{546., {272., 279.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8102375940312767`*^9, {3.8102377116078987`*^9, 3.8102377247073317`*^9}, 
   3.81024857123952*^9}]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.8102383181244125`*^9}],

Cell["Creo un gif para \[Alpha]=4/3", "Item",
 CellChangeTimes->{{3.8102381790846047`*^9, 3.8102382061497183`*^9}, {
  3.810238323123622*^9, 3.810238330173097*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gif", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"PolarPlot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"rper", ",", "raf"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Phi]", ",", "0", ",", 
            RowBox[{"2", "\[Pi]"}]}], "}"}], ",", 
          RowBox[{"PlotLegends", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
            "\"\<\!\(\*SubscriptBox[\(r\), \(per\)]\)\>\"", ",", 
             "\"\<\!\(\*SubscriptBox[\(r\), \(af\)]\)\>\""}], "}"}]}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", 
          RowBox[{"Ticks", "\[Rule]", "None"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "raf"}], ",", 
          RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Alpha]=4/3\>\""}]}], "]"}], 
        ",", 
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"r", "[", 
              RowBox[{
               RowBox[{"4", "/", "3"}], ",", "\[Phi]"}], "]"}], "*", 
             RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
            RowBox[{
             RowBox[{"r", "[", 
              RowBox[{
               RowBox[{"4", "/", "3"}], ",", "\[Phi]"}], "]"}], "*", 
             RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Phi]", ",", "0", ",", "end"}], "}"}], ",", 
          RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "raf"}]}], "]"}], ",", 
        RowBox[{"Graphics", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{".5", ",", "0", ",", "0"}], "]"}], ",", 
           RowBox[{"Disk", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"r", "[", 
                 RowBox[{
                  RowBox[{"4", "/", "3"}], ",", "end"}], "]"}], "*", 
                RowBox[{"Cos", "[", "end", "]"}]}], ",", 
               RowBox[{
                RowBox[{"r", "[", 
                 RowBox[{
                  RowBox[{"4", "/", "3"}], ",", "end"}], "]"}], "*", 
                RowBox[{"Sin", "[", "end", "]"}]}]}], "}"}], ",", ".005"}], 
            "]"}]}], "}"}], "]"}], ",", 
        RowBox[{"Graphics", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Rotate", "[", 
             RowBox[{
              RowBox[{"Circle", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "0.2"}], "*", "0.7"}], ",", "0"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0.2", ",", 
                  RowBox[{"0.2", 
                   SqrtBox[
                    RowBox[{"1", "-", 
                    SuperscriptBox["0.7", "2"]}]]}]}], "}"}]}], "]"}], ",", 
              RowBox[{
               RowBox[{"-", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", "/", "3"}], "-", "1"}], ")"}]}], "end"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", "raf"}]}], "]"}]}], "}"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"end", ",", ".00001", ",", 
       RowBox[{"6", "\[Pi]"}], ",", 
       RowBox[{"\[Pi]", "/", "16"}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7988118584325447`*^9, 3.798811858518494*^9}, {
   3.798811898066642*^9, 3.7988119245123596`*^9}, {3.7988121129364815`*^9, 
   3.7988121456775637`*^9}, {3.7988122488919215`*^9, 3.798812310025597*^9}, {
   3.7988123448824544`*^9, 3.7988124635658894`*^9}, {3.7988126534523225`*^9, 
   3.798812673517742*^9}, {3.798812744174901*^9, 3.7988128016886673`*^9}, {
   3.798816106326418*^9, 3.7988161287054863`*^9}, {3.7988161673001842`*^9, 
   3.798816186965821*^9}, {3.798816432903708*^9, 3.798816440486326*^9}, {
   3.798816502168684*^9, 3.798816523625286*^9}, {3.798816617060388*^9, 
   3.798816696207656*^9}, {3.7988167702818575`*^9, 3.7988167899334965`*^9}, {
   3.7988168467506647`*^9, 3.7988168655408077`*^9}, 3.7988169709978724`*^9, {
   3.7988215391789045`*^9, 3.798821565917453*^9}, {3.7988216075284095`*^9, 
   3.798821613492981*^9}, {3.7988216540325365`*^9, 3.7988217004757004`*^9}, {
   3.7988217790693293`*^9, 3.7988217842813177`*^9}, {3.7988218159670086`*^9, 
   3.7988218398442116`*^9}, {3.7988218720765886`*^9, 3.798821939631551*^9}, {
   3.810237669671176*^9, 3.8102376958018417`*^9}, {3.810237747153677*^9, 
   3.810237776083898*^9}, {3.8102378368773785`*^9, 3.8102378655388613`*^9}, 
   3.810237999901182*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Orbita.gif\>\"", ",", "gif", ",", 
   RowBox[{"\"\<DisplayDurations\>\"", "\[Rule]", 
    RowBox[{"Table", "[", 
     RowBox[{".15", ",", 
      RowBox[{"{", 
       RowBox[{"Length", "[", "gif", "]"}], "}"}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7988167129949555`*^9, 3.7988167179810743`*^9}, {
  3.7988169778818927`*^9, 3.7988169917259026`*^9}, {3.798817037716319*^9, 
  3.7988170380961*^9}, {3.7988215804060993`*^9, 3.7988215805559945`*^9}, {
  3.7988219360026503`*^9, 3.7988219622834616`*^9}, {3.798821993795272*^9, 
  3.7988219954453015`*^9}}],

Cell[BoxData["\<\"Orbita.gif\"\>"], "Output",
 CellChangeTimes->{3.8102378248611*^9, 3.8102380316077347`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1264, 637},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
Magnification:>1.1 Inherited,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 155, 2, 53, "Subsection"],
Cell[738, 26, 147, 4, 32, "Input"],
Cell[888, 32, 111, 1, 32, "Text"],
Cell[1002, 35, 201, 5, 32, "Input"],
Cell[1206, 42, 3601, 108, 348, "Input"],
Cell[4810, 152, 353, 5, 32, "Input"],
Cell[5166, 159, 600, 12, 35, "Text"],
Cell[CellGroupData[{
Cell[5791, 175, 1434, 23, 53, "Input"],
Cell[7228, 200, 437, 7, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7702, 212, 4699, 124, 153, "Input"],
Cell[12404, 338, 32047, 639, 274, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44488, 982, 173, 3, 32, "Input"],
Cell[44664, 987, 114, 1, 33, "Output"]
}, Open  ]],
Cell[44793, 991, 272, 4, 32, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45102, 1000, 187, 2, 78, "Section"],
Cell[45292, 1004, 440, 13, 32, "Input"],
Cell[45735, 1019, 682, 17, 60, "Input"],
Cell[46420, 1038, 94, 1, 32, "Input"],
Cell[46517, 1041, 144, 1, 31, "Item"],
Cell[CellGroupData[{
Cell[46686, 1046, 3054, 67, 112, "Input"],
Cell[49743, 1115, 61595, 1089, 420, "Output"]
}, Open  ]],
Cell[111353, 2207, 87, 1, 53, "Input"],
Cell[111443, 2210, 132, 1, 31, "Item"],
Cell[CellGroupData[{
Cell[111600, 2215, 2440, 57, 73, "Input"],
Cell[114043, 2274, 65067, 1147, 420, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179147, 3426, 335, 7, 53, "Input"],
Cell[179485, 3435, 212, 3, 33, "Output"],
Cell[179700, 3440, 212, 3, 33, "Output"]
}, Open  ]],
Cell[179927, 3446, 89, 1, 53, "Input"],
Cell[180019, 3449, 201, 3, 31, "Item"],
Cell[CellGroupData[{
Cell[180245, 3456, 2243, 55, 73, "Input"],
Cell[182491, 3513, 78327, 1363, 420, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[260855, 4881, 224, 4, 32, "Input"],
Cell[261082, 4887, 232, 3, 33, "Output"]
}, Open  ]],
Cell[261329, 4893, 93, 1, 32, "Input"],
Cell[261425, 4896, 148, 2, 31, "Item"],
Cell[CellGroupData[{
Cell[261598, 4902, 5195, 119, 162, "Input"],
Cell[266796, 5023, 3460, 73, 602, "Output"]
}, Open  ]],
Cell[270271, 5099, 89, 1, 53, "Input"],
Cell[270363, 5102, 164, 2, 31, "Item"],
Cell[270530, 5106, 4821, 110, 182, "Input"],
Cell[CellGroupData[{
Cell[275376, 5220, 620, 13, 32, "Input"],
Cell[275999, 5235, 109, 1, 33, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)