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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    218804,       4645]
NotebookOptionsPosition[    208438,       4334]
NotebookOutlinePosition[    210877,       4405]
CellTagsIndexPosition[    210360,       4390]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{
   RowBox[{"MENUS", " ", "DESPLEGABLES"}], "\n", 
   RowBox[{
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{
                    "--", "\n", "File"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], ",",
     " ", "Edit", ",", " ", "Insert", ",", " ", "Format", ",", " ", "Cell", 
    ",", " ", "Graphics", ",", " ", "Evaluation", ",", " ", "Palettes", ",", 
    " ", 
    RowBox[{"Window", " ", "y", " ", 
     RowBox[{"Help", ".", "\n", "\n", "HELP"}]}]}], "\n", 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", "--"}]}]}], "\n", 
   RowBox[{"\[Rule]", 
    RowBox[{
     RowBox[{"Online", ":", "  ", "Menu"}], "\[Rule]", 
     RowBox[{"Documentation", " ", 
      RowBox[{"Center", ":", 
       RowBox[{"2", " ", "Opciones"}]}]}]}]}], "\n", "\t", 
   RowBox[{
    RowBox[{
     RowBox[{"a", ".", 
      RowBox[{"-", "How"}]}], " ", "to"}], "\[Rule]", " ", 
    RowBox[{"Topics", ":", " ", 
     RowBox[{
     "How", " ", "to", " ", "work", " ", "with", " ", "lists", " ", "y", " ", 
      "statistics"}]}]}], "\n", "\t", 
   RowBox[{
    RowBox[{"b", ".", 
     RowBox[{"-", "Virtual"}]}], " ", "book"}], "\n", 
   RowBox[{
    RowBox[{"\[Rule]", 
     RowBox[{"Web", ":", 
      RowBox[{"http", ":"}]}]}], "//", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"reference", ".", "wolfram", ".", "com"}], "/", 
       "mathematica"}], "/", "guide"}], "/", 
     RowBox[{"mathematica", ".", "html"}]}]}], "\n", 
   RowBox[{"\[Rule]", 
    RowBox[{
    "de", " ", "variables", " ", "y", " ", "funciones", " ", "del", " ", 
     "mathematica"}]}], "\n", 
   RowBox[{"?", "x"}], "\n", 
   RowBox[{"?", "Log"}], "\n", 
   RowBox[{"??", 
    RowBox[{
     RowBox[{
      RowBox[{"Log", "\n", "  ", 
       RowBox[{"F1", "\n", " ", "?", "f"}], "  ", "siendo", " ", "f", " ", 
       "una", " ", "funci\[OAcute]n", " ", "que", " ", "se", " ", "ha", " ", 
       "creado", " ", "el", " ", "usuario", " ", "dentro", " ", "de", " ", 
       "la", " ", "sesi\[OAcute]n", " ", "de", " ", 
       RowBox[{"mathematica", ".", "\n", "\n", "TECLAS"}], " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"R\[CapitalAAcute]PIDAS", "\n", "--"}], "--"}], 
                 "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], 
          "--"}], "--"}], "--"}]}], "-", "\n", 
      RowBox[{"Para", " ", "hacer", " ", 
       RowBox[{"calculos", ":", "\n", 
        RowBox[{"Shift", "+", "Enter"}]}]}]}], " ", "\[LongDash]", " ", 
     RowBox[{
      RowBox[{"do", " ", "a", " ", "computation", "\n", "Alt"}], "+", "."}], 
     "\[LongDash]", " ", 
     RowBox[{
      RowBox[{"abort", " ", "a", " ", "computation", "\n", "Ctrl"}], "+", 
      "L"}], " ", "\[LongDash]", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
        "copy", " ", "input", " ", "from", " ", "above", "\n", "\n", 
         "Styling"}], "&"}], " ", "Formatting", " ", "\[RightGuillemet]", 
       "\n", "Alt"}], "+", "7"}], " ", "\[LongDash]", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"text", " ", "cell", " ", 
         RowBox[{"(", 
          RowBox[{"with", " ", "default", " ", "stylesheet"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Format", " ", "\:25ba", " ", "Style", " ", "\:25ba"}], 
           "..."}], ")"}], "\n", "Format", " ", "\:25ba", " ", "Stylesheet", 
         " ", "\[FilledVerySmallSquare]"}], "..."}], "\n", "\n", "\n", 
       "EMPEZAMOS", " ", "A", " ", "TRABAJAR", " ", "ACTIVANDO", " ", "EL", 
       " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"KERNEL", "\n", "--"}], "--"}], "--"}], "--"}], 
                    "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], 
                    "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], 
                    "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], 
                   "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], "--"}], 
            "--"}], "--"}], "--"}], "--"}], "--"}]}], "-"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.5369894586678195`*^9, 3.5369894586678195`*^9}, 
   3.5369894916521945`*^9}],

Cell[BoxData[{
 RowBox[{"ASIGNACION", " ", "DE", " ", "UNA", " ", "VARIABLE"}], "\n", 
 RowBox[{"--", 
  RowBox[{"--", 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{
                    "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}],\
 "Input",
 CellChangeTimes->{{3.5369897922146945`*^9, 3.5369897922146945`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "=", "7"}]], "Input",
 CellChangeTimes->{{3.505027175120766*^9, 3.5050271799850445`*^9}}],

Cell[BoxData["7"], "Output",
 CellChangeTimes->{3.505027183217229*^9, 3.5057255461957645`*^9, 
  3.50579373190625*^9, 3.506398939734375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x", "+", "2"}]], "Input",
 CellChangeTimes->{{3.5050271914366994`*^9, 3.505027193072793*^9}}],

Cell[BoxData["9"], "Output",
 CellChangeTimes->{3.505027194401869*^9, 3.505793768375*^9, 3.50639896*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "x"}]], "Input",
 CellChangeTimes->{{3.50579377815625*^9, 3.505793780078125*^9}}],

Cell[CellGroupData[{

Cell["Global`x", "Print", "PrintUsage",
 CellChangeTimes->{3.50639897871875*^9},
 CellTags->"Info3506402578-5241895"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{"x", "=", "7"}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`x],
  Editable->False]], "Print",
 CellChangeTimes->{3.50639897871875*^9},
 CellTags->"Info3506402578-5241895"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "clear"}]], "Input",
 CellChangeTimes->{{3.506399025984375*^9, 3.506399033796875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Information", "::", "\<\"notfound\"\>"}], ":", 
  " ", "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"Symbol \\\\\\\"\\\", \\\"MT\\\"]\\)\
\[NoBreak]\\!\\(\\*StyleBox[\\!\\(\\\"clear\\\"\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" not \
found.\\\\\\\"\\\", \\\"MT\\\"]\\) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Information\\\", ButtonNote -> \
\\\"Information::notfound\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.506399038546875*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Clear"}]], "Input",
 CellChangeTimes->{{3.505793804375*^9, 3.505793808109375*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Clear\\\", \\\"[\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"symbol\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"symbol\
\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\) clears values and definitions \
for the \!\(\*SubscriptBox[StyleBox[\\\"symbol\\\", \\\"TI\\\"], \
StyleBox[\\\"i\\\", \\\"TI\\\"]]\). \\n\!\(\*RowBox[{\\\"Clear\\\", \
\\\"[\\\", \
RowBox[{StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"form\\\\\\\",\\\\\
\\\"TI\\\\\\\"]\\\\_1\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \
\\\",\\\", StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"form\\\\\\\",\
\\\\\\\"TI\\\\\\\"]\\\\_2\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \
\\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\) clears \
values and definitions for all symbols whose names match any of the string \
patterns \!\(\*SubscriptBox[StyleBox[\\\"form\\\", \\\"TI\\\"], \
StyleBox[\\\"i\\\", \\\"TI\\\"]]\). \"\>", "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Clear"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.506399060390625*^9},
 CellTags->"Info3506402660-7579977"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "Clear"}]], "Input",
 CellChangeTimes->{{3.505793827265625*^9, 3.505793835109375*^9}, {
  3.50579386640625*^9, 3.50579386709375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Clear\\\", \\\"[\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"symbol\\\", \\\"TI\\\"], \
StyleBox[\\\"1\\\", \\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"symbol\
\\\", \\\"TI\\\"], StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\
\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\) clears values and definitions \
for the \!\(\*SubscriptBox[StyleBox[\\\"symbol\\\", \\\"TI\\\"], \
StyleBox[\\\"i\\\", \\\"TI\\\"]]\). \\n\!\(\*RowBox[{\\\"Clear\\\", \
\\\"[\\\", \
RowBox[{StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"form\\\\\\\",\\\\\
\\\"TI\\\\\\\"]\\\\_1\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \
\\\",\\\", StyleBox[\\\"\\\\\\\"\\\\!\\\\(\\\\*StyleBox[\\\\\\\"form\\\\\\\",\
\\\\\\\"TI\\\\\\\"]\\\\_2\\\\)\\\\\\\"\\\", ShowStringCharacters->True], \
\\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\"TR\\\"]}], \\\"]\\\"}]\) clears \
values and definitions for all symbols whose names match any of the string \
patterns \!\(\*SubscriptBox[StyleBox[\\\"form\\\", \\\"TI\\\"], \
StyleBox[\\\"i\\\", \\\"TI\\\"]]\). \"\>", "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Clear"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.506399113546875*^9},
 CellTags->"Info3506402713-8352001"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "Clear", "]"}], "=", 
      RowBox[{"{", 
       RowBox[{"HoldAll", ",", "Protected"}], "}"}]}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[Clear],
  Editable->False]], "Print",
 CellChangeTimes->{3.5063991135625*^9},
 CellTags->"Info3506402713-8352001"]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.505793883859375*^9, 3.5057938851875*^9}, {
  3.505794162484375*^9, 3.505794166453125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "x"}]], "Input",
 CellChangeTimes->{{3.505794175890625*^9, 3.50579417678125*^9}}],

Cell["Global`x", "Print", "PrintUsage",
 CellChangeTimes->{3.5063991375625*^9},
 CellTags->"Info3506402737-4455720"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{"x", "^", "2"}]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.50579420334375*^9, 3.505794205390625*^9}}],

Cell[CellGroupData[{

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.50639929015625*^9},
 CellTags->"Info3506402890-6013277"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"f", "[", "x_", "]"}], ":=", 
         SuperscriptBox["x", "2"]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`f],
  Editable->False]], "Print",
 CellChangeTimes->{3.50639929015625*^9},
 CellTags->"Info3506402890-6013277"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.505794339703125*^9, 3.505794350046875*^9}}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.5057943523125*^9, 3.506399305625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.5057943686875*^9, 3.50579437125*^9}}],

Cell[BoxData[
 SuperscriptBox["a", "2"]], "Output",
 CellChangeTimes->{3.505794372515625*^9, 3.5063993274375*^9}]
}, Open  ]],

Cell["\<\
INFORMACION DE LAS VARIABLES O FUNCIONES CON LAS QUE SE HAN TRABAJADO
------------------------------------------------------------------------------\
--------------------------------------------------\
\>", "Text",
 CellChangeTimes->{{3.5050272178872128`*^9, 3.5050272300309067`*^9}, {
  3.5057265043195667`*^9, 3.505726509695874*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Names"}]], "Input",
 CellChangeTimes->{{3.505027233535107*^9, 3.5050272761135426`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Names\\\", \\\"[\\\", StyleBox[\\\"\\\\\\\"\
\\\\!\\\\(\\\\*StyleBox[\\\\\\\"string\\\\\\\",\\\\\\\"TI\\\\\\\"]\\\\)\\\\\\\
\"\\\", ShowStringCharacters->True], \\\"]\\\"}]\) gives a list of the names \
of symbols which match the string. \\n\!\(\*RowBox[{\\\"Names\\\", \\\"[\\\", \
StyleBox[\\\"patt\\\", \\\"TI\\\"], \\\"]\\\"}]\) gives a list of names \
matching the arbitrary string pattern \!\(\*StyleBox[\\\"patt\\\", \
\\\"TI\\\"]\).\"\>", "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Names"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.506399414609375*^9},
 CellTags->"Info3506403014-3164537"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"??", "Names"}]], "Input",
 CellChangeTimes->{{3.505027291990451*^9, 3.5050272940645695`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\!\(\*RowBox[{\\\"Names\\\", \\\"[\\\", StyleBox[\\\"\\\\\\\"\
\\\\!\\\\(\\\\*StyleBox[\\\\\\\"string\\\\\\\",\\\\\\\"TI\\\\\\\"]\\\\)\\\\\\\
\"\\\", ShowStringCharacters->True], \\\"]\\\"}]\) gives a list of the names \
of symbols which match the string. \\n\!\(\*RowBox[{\\\"Names\\\", \\\"[\\\", \
StyleBox[\\\"patt\\\", \\\"TI\\\"], \\\"]\\\"}]\) gives a list of names \
matching the arbitrary string pattern \!\(\*StyleBox[\\\"patt\\\", \
\\\"TI\\\"]\).\"\>", "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Names"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.506399439484375*^9},
 CellTags->"Info3506403039-6284590"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     RowBox[{
      RowBox[{"Attributes", "[", "Names", "]"}], "=", 
      RowBox[{"{", "Protected", "}"}]}]},
    {" "},
    {GridBox[{
       {
        RowBox[{
         RowBox[{"Options", "[", "Names", "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"IgnoreCase", "\[Rule]", "False"}], ",", 
           RowBox[{"SpellingCorrection", "\[Rule]", "False"}]}], "}"}]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[Names],
  Editable->False]], "Print",
 CellChangeTimes->{3.506399439484375*^9},
 CellTags->"Info3506403039-6284590"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "f"}]], "Input",
 CellChangeTimes->{{3.50639959003125*^9, 3.506399590546875*^9}}],

Cell[CellGroupData[{

Cell["Global`f", "Print", "PrintUsage",
 CellChangeTimes->{3.506399592828125*^9},
 CellTags->"Info3506403192-5549391"],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"f", "[", "x_", "]"}], ":=", 
         SuperscriptBox["x", "2"]}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`f],
  Editable->False]], "Print",
 CellChangeTimes->{3.506399592828125*^9},
 CellTags->"Info3506403192-5549391"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.506399472078125*^9, 3.506399498296875*^9}, {
  3.506399658296875*^9, 3.506399680265625*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"a\"\>", ",", "\<\"f\"\>", ",", "\<\"x\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.506399529453125*^9, {3.50639966528125*^9, 3.506399684234375*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.505027305541226*^9, 3.505027324897333*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"a\"\>", ",", "\<\"f\"\>", ",", "\<\"x\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.5050273281175175`*^9, 3.505794492390625*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.505794502125*^9, 3.505794513328125*^9}}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.50579451421875*^9, 3.50639977928125*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.505794519203125*^9, 3.505794547234375*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"a\"\>", ",", "\<\"f\"\>", ",", "\<\"x\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.5057945505*^9}]
}, Open  ]],

Cell["\<\
Comando-> Clear
-------------------
Para liberar tanto las funciones como las variables se utiliza el comando \
Clear. 
Para variable Clear[x]
Para funciones Clear[f]\
\>", "Text",
 CellChangeTimes->{{3.505725161037735*^9, 3.5057252554861374`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "x"}]], "Input",
 CellChangeTimes->{{3.5063998030625*^9, 3.506399803796875*^9}}],

Cell["Global`x", "Print", "PrintUsage",
 CellChangeTimes->{3.50639980471875*^9},
 CellTags->"Info3506403404-7537773"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "x", "]"}]], "Input",
 CellChangeTimes->{{3.505027341302271*^9, 3.5050273519368796`*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.5050273612354116`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"x", "=."}]], "Input",
 CellChangeTimes->{{3.50502736471061*^9, 3.505027366497712*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "x"}]], "Input",
 CellChangeTimes->{{3.506399833171875*^9, 3.506399833796875*^9}}],

Cell["Global`x", "Print", "PrintUsage",
 CellChangeTimes->{3.50639983603125*^9},
 CellTags->"Info3506403435-5320617"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Remove", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.5050274485124035`*^9, 3.5050274688015637`*^9}, 
   3.50640017275*^9}],

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"Remove", "[", 
   RowBox[{"f", ",", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.506400241453125*^9, 3.506400263875*^9}}],

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"y", "=", 
  RowBox[{"1", "/", "3"}]}]], "Input",
 CellChangeTimes->{{3.5057256201069927`*^9, 3.5057256276804256`*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", "y", "]"}]], "Input",
 CellChangeTimes->{{3.5057255968276606`*^9, 3.505725635603879*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"y", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.5057256420442467`*^9, 3.505725650976758*^9}}],

Cell["\<\
LISTAS
---------------------------------------------------
Una lista permite representar conjuntos de elementos, los cuales puede que no \
sean del mismo tipo, como valores num\[EAcute]ricos, variables, texto, etc. \
Para utilizar ciertos elementos de una lista se considera la posici\[OAcute]n \
que ocupan en ella. Por otra parte, las listas pueden ser manipuladas, en \
muchas ocasiones, como si de simples objetos se tratase.\
\>", "Text",
 CellChangeTimes->{{3.5050278931348343`*^9, 3.505027899087175*^9}, {
  3.505027943775731*^9, 3.5050280625595245`*^9}, {3.505725302604832*^9, 
  3.5057253295353727`*^9}, {3.5057254947988253`*^9, 3.5057255122228217`*^9}, {
  3.505725692832152*^9, 3.505725693710202*^9}}],

Cell["\<\
CREANDO LISTAS
--------------------------------------------------\
\>", "Text",
 CellChangeTimes->{{3.5050286277428513`*^9, 3.5050286316470747`*^9}, {
  3.5057257803511577`*^9, 3.505725783678348*^9}}],

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"-", "2"}], ",", "x", ",", 
    RowBox[{"Sqr", "[", "2", "]"}], ",", 
    RowBox[{"3", "+", 
     RowBox[{"y", "^", "2"}]}], ",", 
    RowBox[{"x", "+", "y"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5050280932872825`*^9, 3.5050281276832495`*^9}, {
  3.50640109640625*^9, 3.5064011129375*^9}}],

Cell["Acceso al elemento de una lista:", "Text",
 CellChangeTimes->{{3.505028139630933*^9, 3.505028151550615*^9}}],

Cell[BoxData[
 RowBox[{"a", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.5050281617031956`*^9, 3.5050281684185796`*^9}}],

Cell[BoxData[
 RowBox[{"a", "[", 
  RowBox[{"[", "3", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.505028176184024*^9, 3.5050281795952187`*^9}}],

Cell[BoxData[
 RowBox[{"a", "[", 
  RowBox[{"[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3", ",", "5"}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5050281929689837`*^9, 3.5050282084748707`*^9}}],

Cell["Otras funciones relacionadas con las listas.", "Text",
 CellChangeTimes->{{3.505028223038704*^9, 3.505028232575249*^9}}],

Cell[BoxData[
 RowBox[{"Dimensions", "[", "a", "]"}]], "Input",
 CellChangeTimes->{{3.505028238641596*^9, 3.5050282443689237`*^9}}],

Cell[BoxData[
 RowBox[{"p", "=", 
  RowBox[{"Partition", "[", 
   RowBox[{"a", ",", "2"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.50502828399219*^9, 3.505028300354126*^9}}],

Cell[BoxData[
 RowBox[{"Dimensions", "[", "p", "]"}]], "Input",
 CellChangeTimes->{{3.5050283082165756`*^9, 3.505028313153858*^9}}],

Cell[BoxData[
 RowBox[{"q", "=", 
  RowBox[{"Partition", "[", 
   RowBox[{"a", ",", "3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5050283178491263`*^9, 3.5050283292977815`*^9}}],

Cell[BoxData[
 RowBox[{"Para", " ", "hacer", " ", "Clear"}]], "Input",
 CellChangeTimes->{{3.5369904470428195`*^9, 3.5369904534646945`*^9}}],

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Remove", "[", 
  RowBox[{"a", ",", "p", ",", "q", ",", "Sqr", ",", "x", ",", "y"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.506401737765625*^9, 3.506401750046875*^9}}],

Cell[BoxData[
 RowBox[{"Utilliza", " ", "la", " ", "funcion", " ", "Range", " ", "con", " ",
   "dos", " ", "argumentos", " ", "para", " ", "crear", " ", "una", " ", 
  "lista", " ", "de", " ", "enteros", " ", "que", " ", "empiezan", " ", "en", 
  " ", "el", " ", "primer", " ", "argumento", " ", "y", " ", "terminan", " ", 
  "en", " ", "el", " ", 
  RowBox[{"segundo", "."}]}]], "Input",
 CellChangeTimes->{{3.5369904307459445`*^9, 3.5369904307459445`*^9}}],

Cell[BoxData["Range"], "Input",
 CellChangeTimes->{{3.506402004859375*^9, 3.50640200584375*^9}}],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"5", ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.505029306987702*^9, 3.5050293121299963`*^9}}],

Cell["\<\
Range con tres argumentos, el tercer argumento te indica el paso y este puede \
ser distinto de un valor entero \
\>", "Text",
 CellChangeTimes->{{3.5050293242866917`*^9, 3.505029374014536*^9}}],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"5", ",", "10", ",", 
   RowBox[{"1", "/", "2"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.505029376394672*^9, 3.505029386258236*^9}}],

Cell["Operaciones con listas", "Text",
 CellChangeTimes->{{3.5050286799188356`*^9, 3.505028686911236*^9}}],

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Remove", "[", 
  RowBox[{
  "b", ",", "r", ",", "u", ",", "v", ",", "w", ",", "x", ",", "y", ",", "z"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.505028896651232*^9, 3.5050289172184086`*^9}, {
  3.505796486765625*^9, 3.5057964945*^9}, {3.5064021365*^9, 
  3.506402148421875*^9}}],

Cell[BoxData[
 RowBox[{"a", "=", 
  RowBox[{"{", 
   RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5050289210846295`*^9, 3.5050289327052946`*^9}}],

Cell[BoxData[
 RowBox[{"b", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", "2", ",", "3"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.505028936844531*^9, 3.505028946322073*^9}}],

Cell[BoxData[
 RowBox[{"a", "+", "b"}]], "Input",
 CellChangeTimes->{{3.505028949228239*^9, 3.505028950657321*^9}}],

Cell[BoxData["Table"], "Input",
 CellChangeTimes->{{3.50640227590625*^9, 3.50640227684375*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{"i", "^", "2"}], "]"}]], "Input",
 CellChangeTimes->{{3.5050299459752502`*^9, 3.50502995838596*^9}, {
  3.50640237071875*^9, 3.50640237309375*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "2"}], ",", 
   RowBox[{"{", "5", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5050298996405997`*^9, 3.5050299439861364`*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5050299679275055`*^9, 3.5050299849934816`*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "5", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50502999509606*^9, 3.505030017410336*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "5", ",", "10", ",", 
     RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5050300260078278`*^9, 3.5050300463219895`*^9}}],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"i", "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"j", ",", "1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5050300524733415`*^9, 3.5050301037142725`*^9}}],

Cell[BoxData[
 RowBox[{"m", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"i", "+", "j"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "5"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "10"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5050301235964093`*^9, 3.5050301593624554`*^9}, {
  3.505030190834255*^9, 3.5050301926263576`*^9}}],

Cell[BoxData[
 RowBox[{"TableForm", "[", "m", "]"}]], "Input",
 CellChangeTimes->{{3.505030196125558*^9, 3.50503020332897*^9}}],

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Remove", "[", 
  RowBox[{
  "a", ",", "b", ",", "i", ",", "j", ",", "m", ",", "x", ",", "y", ",", "z"}],
   "]"}]], "Input",
 CellChangeTimes->{{3.506402853859375*^9, 3.506402869921875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"?", "Union"}]], "Input",
 CellChangeTimes->{{3.506402875953125*^9, 3.50640287875*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox["\<\"\\!\\(\\*RowBox[{\\\"Union\\\", \\\"[\\\", \
RowBox[{SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], StyleBox[\\\"1\\\", \
\\\"TR\\\"]], \\\",\\\", SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\\\"], \
StyleBox[\\\"2\\\", \\\"TR\\\"]], \\\",\\\", StyleBox[\\\"\[Ellipsis]\\\", \\\
\"TR\\\"]}], \\\"]\\\"}]\\) gives a sorted list of all the distinct elements \
that appear in any of the \\!\\(\\*SubscriptBox[StyleBox[\\\"list\\\", \\\"TI\
\\\"], StyleBox[\\\"i\\\", \\\"TI\\\"]]\\). \
\\n\\!\\(\\*RowBox[{\\\"Union\\\", \\\"[\\\", StyleBox[\\\"list\\\", \\\"TI\\\
\"], \\\"]\\\"}]\\) gives a sorted version of a list, in which all duplicated \
elements have been dropped. \"\>", "MSG"], "\[NonBreakingSpace]", 
  ButtonBox[
   StyleBox["\[RightSkeleton]", "SR"],
   Active->True,
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Union"]}]], "Print", "PrintUsage",
 CellChangeTimes->{3.506402880015625*^9},
 CellTags->"Info3506406479-9483694"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Union", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"c", ",", "a", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"d", ",", "a", ",", "c"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "e"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5050305249893675`*^9, 3.5050305538660192`*^9}}],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "]"}]], "Input",
 CellChangeTimes->{{3.505030582957683*^9, 3.505030593073262*^9}, {
  3.505030645122239*^9, 3.5050306475063753`*^9}}],

Cell[BoxData[
 RowBox[{"Remove", "[", 
  RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "]"}]], "Input",
 CellChangeTimes->{{3.505030597197498*^9, 3.505030604721928*^9}, {
  3.505030652145641*^9, 3.5050306538897405`*^9}}],

Cell[BoxData[
 RowBox[{"Intersection", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "c", ",", "b"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "a", ",", "d", ",", "a"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Complement", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "d"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Subsets", "[", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "c"}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"DeleteDuplicates", "[", 
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "c", ",", "a"}], "}"}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Names", "[", "\"\<Global`*\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Remove", "[", 
  RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]], "Input",
 CellChangeTimes->{{3.506403010765625*^9, 3.50640301728125*^9}}],

Cell["\<\
ALGO DE INFORMACION SOBRE GR\[CapitalAAcute]FICAS
------------------------------------------------------------
Comandos que vamos a introducir
Plot, Show,
Recordar que dentro del menu desplegable se encuentra la opci\[OAcute]n de \
cargar Palettes algunas funciones para ir mas r\[AAcute]pido.\
\>", "Text",
 CellChangeTimes->{{3.505726431102379*^9, 3.505726474253847*^9}, 
   3.5057265921905923`*^9, {3.505726670238056*^9, 3.505726699966757*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Pi"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.505726598664963*^9, 3.505726625440494*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt2Hk0VV/YB3BD5VIqUyU0aJZIioS+l1+lKFOlQYRSkjIVDaJBKkpIkgyV
IkJJKEmIQpJCoVRkjnuM955zh7z7fdf717M+a92z9tn7PPu797pzXTxtXSXE
xMQkxcXE/q++kan5s8p7rdj/1wU9RYazbljhvEp5jxqp/Kfa+5ui9mLOT2vV
RlI7FN3ovChPXC0QNWaT2rwhuPRhVBBuOoytiyS1YW/UooSo62hNGNSxINXW
Q7k5NioJ43fMlLKJTELk0J6cmKgniIJ5rP+1JzAsN5cx9S0GN/dWacbBYnid
snTO8aoA73rTrWLzChx54RouMa8WQ6W1gyWcT6jv3iSd6lKPwdD5I80y9QjV
5orl7WrE7wV6xq5l3+C9tOJm8cMfeBPzxNsi5zv4+w5ntRz9DasW263lXr/g
8trOOuJAG+4/P7nf8GAr9g3WFxdfbkfAVAuvnYv+4OryfM+UkE40Dd86Mzmv
HRLF+frBp7rR0XxcX2xJJ+Q0LGp+xfaCozmJdzW5CxuTTJMHovogmjLH6k9f
N6ZT1RuC8jkY5LAP79TrRdz7AnHJQwOQeBG4+9KevzBSMxmbs38Q337c032w
tQ9Lf09tP3NsCCNpBon17H5Yds0p9TsxhLRt1xQnreuHF2f5Xc+AIbTaz3lt
YtaP50LrPc7BQ1g9ac2D1C39MFKOrF8XPQR6/Msyh9392GwrVz7x+RDmn106
z9e3Hx5lcim3h4dwu29AxH7Qj8xH8m65PsMwKi2qdBTjILjhjYmk/zCYVgXz
PZIc7JE4omJzehiXjrsl7pjAgcye9zV9F4aRralbajaJgwNTAlbNvzmMmzMt
B2RncDDHr0PiRv4wOvRn5OtocxD934sEL+EwHigZnG6w5yDgp0Pd0pARGEoU
lp3P4mDEzDjBNXQEioks6+6nHHhkqx5MCh9BSNKmfIscDuyDv/Plb43gnMu/
GZNecLBGY5c6P3UElE7UfN8SDpjj27wrKkdwsrVZv7mOAz9ZiymusqMQJl1b
MZHHAcdPoylRbhRmlhl9Sxnyvr+lkxuVRnGIeX7GXMCBXU6F3uZZo8iQ6Z93
boyDVbs2OOpqj2JWb0tAvRSFkQcmmeI2oyjo8mQrzKDgbbTaIjF6FEvSshQG
9CiIHY0Ouh47ioWPiiMfr6YQnjSQczZ+FNtexGu4rqGQLpGmuu/BKLZwzDK+
GFNoq1DmLHo+ChubC30x6yhs2y6IyK4bRXpBzqYyGwp6R4u+lslzkeur/y7b
nUJZ0syJedO4+Hjh6+HlHhRsP/shdSYX+0SzlmQeoXB0pfajK+pc+H616r3r
RSGVn3TScgUXqWuzg739KMy4dE610YaLaIOG8fnnKPCT1rn8jeBiv+jD/S8x
FNbyjKN0bnKxcumorHYshXOW+qX+t7mQ1qT0r9ymwBItUR93nws7seH3evEU
lHZPaVPN4aLxUESD3z0KyxWbnS0buIjRd4gKfUzB93BdZHQTF/3uu36VZlDI
K60uaW7hghWS1UNnUjD2fjP3YCcXf1Un6jk+pWBe86A1iMeFxgnNx7K5FFwv
ezpnK/Pwve7qyNhrCo9+uUXy1HhI6JaXVXxDoU/PpcRYnYe365JbFxRT8OnY
NrdKg4fCL9FFpqUUzpquaW0z5EHW+v5653cU4oTjnBUdefghveiETg2FWq84
J//7POzT2jWq9oOCRsRUwbEUYs1VY9+JLzwJuemTzsOyxIeysS3ke3B8qo48
42GnjtJqmV8UEg5brNxfykOGBVXytZWC+wGhlE0bD5rxdNLULvK9Lvrct+zk
oU+poz+LWO1ht9HmXh4akl/CopuM/6fe22yIh8l6I5wzPRT0nTO/G0vQ6MpJ
OfXhL4VxexyfaKjTCKubD6kBCo6n6zctXkiDV7Px/UXi/Djz9gUaNIxmVthK
DJLxm/SU566g4VT60neU+LPdlAvTTWl46sb+eDtM5ud3UU1pA43Y9LLAFSMU
gm8K8uXNaVzok5ufRLy6vqtP1paGf9ewv88ohUSbYrtxLjRSN8xZJ86jQHvp
DYofoKHyNv7fXmLbiIywsUM0tDylCguJx3+KLeZ70zBziYAXTcFjs7fG4Dka
/3G/ur1hKLw73FXGuUhDcZvGmsl8CrPDHPb2XaExV8dksj3xl8pN0V2RNOLc
U4o4xAZm6v9a7pHx62vxT0BhZXLV5fcPaZyp9qQMhRS0xnwUstNoLMoLzPUn
Vs9/uzg4m8bj5T+De4hVFTxyjuTSiBheFD5bRGGap+LaHS9p2E+qz9xKPHGR
61aNEhqFHRuW5xFPuCD7U6GcRmip1I12YrFfuW6iChrPl82eJPeP7P+YCYG1
tTSilpiZ7CfmDGWxCupp5BfbikKJuy133EhupKE0nP7pCXHLhEeP/H7T8Dix
On+YuNHFWtepncaUwkPV8mNkvkX0603dNNYG/OJpE1fPvLdRt4/Gef4tAwvi
d36b6lQHyHxuRkbuJy7+MugwYYTG58qqsdPEBVpx3RSPxtblpsGRxM9DTX2b
BDS+B3FnPSR+0tkrKh2jsfNq56c84nTTG5czJBlImMndekf8INFQIUaKwZ6i
48fqiRP5fxKCJjJYNkvB7TdxrN3VxYemMAh90u3dSxz1bGWOrQKDqsbRyCHi
q5NbjI2mM7ihtqaCJg5xv1ixQIXBp1m5iiLic++WbZ0ym0FO3AH/MeIA9a8t
tDqDAg/Lgf+1X2CgW9tCBhnXPIL+EXs1Lxz+oMEgRqFkvoDYXe/TmVwtBjU6
m3+PEu+P8mclrWAwvHryMw6xI2f2jct6DKgYqbgO4p3mFWo+axgMfl0d20y8
NcXrkf1aBj737md8JLaUUNZdb8pAt3D9tyLijY4lr7U2MIDMvBlZxKYFhzbO
MGfQE2boeYfYaJp8nbglg0rHiB8hxHo+BQ5/bRiUv1Z38iJeXuPSXb+dwQTx
EWYH8YKQHFGqAwPPRbu85hLPabO/HOnMYPuWgc2SxDPXjlM47crg349q/CH9
MJm7bbHlEQYa4o5uCcQsW9EzfW8GaaXTEv2JJbIeGs89zqDdTK3XipjnyrUd
CSDrbaBWzif9OVSS2NJyloHxa5VtH4n71Mzc3gczmKzrwyQQ/264dSbuKoM7
risuGRBXrjd4xI5nQDvZPdlF9seJ94FaQXcZXPfyyplOvHhT2fPXD8h6cp39
68h+C9lsVbImk4F2+c+164jXbXVtXlnE4NXnT9UyZH+O1Kc7+ZYy6OxYWZtH
9ney3UBn9jsGipvibzgRS+w+Paz1iUG+e+juTJIHxU6Rk5b8ZmAivNWzlOSF
V9vXqIPtDLhbSvvLuSQP9qsqp3QzqO6e98yBOPBg6oJ5gwzenUg/HULyyOjo
67VqEnwo7YiXf03yLP90j5fcfD4uJtjuKKIoHBBp8awW87HQuMBlJfG0oGNn
wjX56D3dqvWIQ+HY+bErE1eR3x+Pkb7ST2HFFaXk8Rv4EF15UalN8jYrxqSB
OcgH6+LWQLlO0l8zLtmv9uBDcCwzbl8HBdm46lY/Lz6W1PufyGkn+ZawgzN8
go+qO9dPbP5D8vXBESnOFT7aNy6/uu83hYfZtw3aHvPx7GTbpIXNpJ8F9hqN
T/ioPNZg79JE+mf9LJWaHPL8p8X58Y0UChvvC1++4kNKb+6Nid8o1I09fhP5
gY+/bjmtn+soiFsWrTf5y0eFMKZd7CMFh942m7saAiwRO9LaTc5H9ZUPTWO0
BDjwWfdrZyHJozMHda+uEED0Wbmp7RWZv1yf4ok1Ajw1uCDd8JJC2OrRb1bm
ApxdEzntPjlvX4ZIOY4dEkDwTmPgJzmvleZpujumCWAWpqzaTs7/iKgwu7RM
AbRNFstcIfcDGYm/piPZAnj7jWUvvUXysjVNJbRAAOdZHtru0aQfExd9zP0g
wItKVvuHcHIezpy3XJYjAGuOpoX6BfI+8jO5r1YIoaZ+o1aF3G+ocyfbJugL
IUNHLz3hRtZrsLHGxlAII8mG/74coOBUeyu16z8h2vdcyQjaR2FzuNIuhe1C
HMme7fJmD4V5MnKF7v5CxE/yOvnFkuSrOOu8cqEQ+lXhRht1SF5n3na0LhaC
eZUS4KpNQXr3UsNLZULolLdFnV1Ggf3McmSkWgibhi2mT5eQfnC5eaC2RYhd
dqlPR+eS9XqrbnFpTIhVM+71zJAn++GiseKoqQgzV2x/VzLAQS7LN6W2UoRr
e9nHH6Zy0Blwrr/oowhfpKMX73vIwYzB6yszP4twvGO/xOxkcv9tyii90iRC
2x4ZjchEDtald/407RFBrBhb9t7k4IvF7um5rH+ojrkmkXyeg4Fwk8u3zf7h
RYvd4kpyf9ZUmuruUv4PK6iyglgWB1Q4V1H36xjWlC8rdzDsx7xLl7Q93cXY
NdrWBz479KFt9/dm0y4x9rixPJV9h/5iY0cdk3tUnH2I8jN5btqLEz6ubtP6
xdnVuWeOGSj1wDLvjvk0Pwn2sJh4cv2zLnCE7gGSXAn2BbPDRnutOnHv27nn
R30l2ds3WPWsbWkH383Y6aRAkq2zd06b5qo/UBNF2nufGse+eIfufn+zFZ1m
YVWscePZHVadeVZnf+HtwmrMChvPHqd36mNJ6Xe4s1LGzZWewG7x+BMQuaQR
+XfnG7+NnMBWVumocl5cjxpDo3JbOSl2SqFD7DG7WtDud7Y6hUux7etn9/Cm
VKLCOmm77DQWOyLbV/XRs2K4GBilpkaz2LW8Lv7PlGwc6v84+iOGxVYN8wvb
65QNr3t718nfZrHT5aZX/lTORpD0hdaABBb7fpGMc9PVp4hvqlSxTWGxf9F2
K4M6svD15I4IYT6LfaBKqyotIB3mBT4nbb6z2EYzl4lFpt2DzdFxFSEtLPaO
tSMGtqr3sFM9ZlrhLxb71jPhAvnrd3Ew9GXOwnYWu1G1MEi1JxHBu8U4gj4W
2+11oPVgYByK+NdcUv6x2OUbrI8gPRLlWbOzv4tJs+PDbNj3r0eg2iV7bKqk
NJs5G3tXqjcc36vq409LSbPb2Hf5IUGhoONUvllPlWbnd8t8PJp+DmOWmQtC
5KXZiT2Kg5t6AzFBEsdeKUqzDX7I9+cEnYLiYRe5hcrS7Iat8Zrn072hMntk
r70KGc+jdXVNkDvU6y5mRahJs8VNHyvEpDtD49J0UflsabassGjpy3Qb6Bim
WQjmSrO1dK793/8D/wMuq3uF
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, Pi}, {0., 0.9999999707682925}}, {{0, 3.141592653589793}, {0., 
     0.9999999707682925}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5057266267485685`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Tan", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.505726632680908*^9, 3.5057266519050074`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVy3k8lOsCwPF3NmPKlm1IcsI0tk5OXZX1eVqEFhFXRCoiZMm5SElJddKI
3CglJ1zLoUTRdcqh58merIWDUIQc61jGNvPO3HP/+H2+f/02eYUc9aESBBH9
d//XuzhpRiJhYuX0rI3LVlVAWbh+s7mIiXPyMn6JvVwFavbnekQsMzHl3Ky9
SnkV2Dzw5v0kn4n7ewbCnE2qwbjMt+yeQSa+uRhlY2FUA84HmLiWVjPxj4ml
jR806sAVTi/2vcXEzqftZSuojSDtsc69Zjkm1tyWv+m4sA1kfIkLcWRJ4VND
rU+5qr1Atc3piL4KA7PmW3/84e0gUG/h/nluHQNzFjbyXrUPgg1NQs8iWQbu
mx9QdxoZBJsasoO3SzEwCOSqF8sMASM8n2C5RMe2yd+Cht2HwJ4XyU2OPXRc
17c/1kk0BEKSPtld+pWOixd7+95ZD4MGB6d9Hzh03KKpVWwlGQUGDxVzKzbR
cfh456dv7O/gzpd2RpEmHbc527AeG38HDsEO9UkqdAwroD70+g664w8fcGHQ
MYtT8NWv7jsYq7NxGBymYdnLy4ZH740BaUsLj6VsGjaL/cq7bjoOAm4IK8Yy
aHivYn98sfM4aPpQrtn7mIblg8r3zoWMg6Tjpl8qkmn4SdlsbEXeOFCL3OEV
e52GC3afJPxVJoBeqbGfrDcNC+qRjd3SBLDV54TpaNPwbLlj+oWWKeDBnNY9
vpGG9e9O7GkenwLnR8o6k9bTsJTLKtOCOQ1Ss2x3ihVp2ODyTJ4PnAaj6oGr
3TQaztFvOT1dOg1urCmNSRyhYutb4bFE5gx4NwETVvKp+GnyeFVjHR90vGdZ
GedSsVVUYN7rLj4Y++3jtG8WFet9PHy+bJQPFM6cceh4RMWdn3/fPiQ1C071
3VIq5lExMPprlrSZBeKmlkdnAql457KmhnfzLDAr8shr3UrFDyqdEvpG5sDz
TgXj/xpScZmc28GklTnwA1nzJo1LxVlhKgoesvNA6tCWZh8tKraVuRZnYTIP
Pv5FzgvlqHj8ooEz95d5EMDJ2K03TcFX5u9E/Wm0ANLSB/tiCimY1dl04vRd
AZCtue/rm0/BHjYpGgl5AhAzYcc/mEPBkdca1HsqBcDXrITGTqfgZpJkf5oU
gG3dsQbP4yn4mFy5muuhRdCopBvZE0DBwo6AjNl1S2CV56u0TZ+C60sdTcg3
y6DoRkitAYeCudml5ic7l4HXlcgLOpv+/rmXfprkL4PGUN5nZXUK3hp+sjxO
bwWkuRZlL0lT8Mr3sv09j1aA6ebF7ZVjBD5tbsPef3MVRL676WybT+ACbpi8
9nURMPojUWp3DoGtYiPmh3NE4Our1NemmQQuHJmZGq4TAdv8gg2GDwmcueAr
nbGWBOy7zcOycQT2UhbkKjwkQZmHSvinswS2by11SKsUA8FSzn1PLoF9dOM/
VGcS8Hjc76npOgTm9Nsc63xFQKzW+KhXi8C9td1+cu8JeMd05lcXNQJH90Wr
rcwSUDvKNM+eRWCxNyl+a02BmaLHQdFdEuQRWsu+JaDAQM13oSstEpR94bia
owwV7rQaDQ+vl6B8Z/7DgzpU2HLV+ErQawky3MV61eFIhSJqbeKJNAm6Vu9v
fOAlFR5jTRdbekqQXe/zPu9LNKhtoPTqjYsEXQz8ep2XQoPTB3a9NjkiQV29
Rf+eKqLBG3di8RYoQatGwScCh2mwRJ7drqktQWX/mpP3PUqHcqpwjhwRo/zc
IGNdcwbs3eGzeHFAjFpX4gOvuzFg7jHeqqBLjDxp/C1bIxnQ4lEHdbpejERf
9kiHljGg/wZ/pYECMdpVh0R4hxSs0b73j7dBYhTB0dXFNkxo35UwnuojRrz+
d5cSg5mw+/btzNATYvSzQ6Ft+30mnOTHyHAOi9FgQdhYxQgTKqGQ4XgjMSq1
VHxwLl4aerkfTnGbIFHIfLKBM58FJ+XsDmz/RiJjJZeSeK01MKJqHyH7mUSE
ywvH00fWQJ6+RSBuJJHhxvbW+Rdr4Mslg33cpyQyOWv+QuXyWkikSC8s+JEo
wkulO8tEFvJs6E9bTpFIKt7sbdh5WagslJzMdyWRzm+wgVMoC/W8lj6425JI
eFavcsdmOXjEeDS7iksi98SSkEKOPOz+NuiWrkUiX/H7cqafPPRK7ZePYJPI
rcnicvAzeRgh7ojSZ5JIz7XuSMV6BfikqdopaVSEBAXJKOuZAtSLQayAARHa
TKyme7YrwJLtf6C9XSKkCHIuvl1SgLVpJYZLtSLknnPhUOT+dXDSL4vmmStC
1s8tG5wn10FzxtVSwzMipGrmr3/QUwnqjSawkjxESK5d13JHghJUrU8/ueAs
QrZPjPzJCiXIjytfW2ktQl1D7LWmWsowT2bR254rQsHCq3u1Z5RhyhS9vERL
hM7J54UUcFTgtRYlBbaaCL184BVlfUIFeiT9VPFFWoT6dMxMB1pVoKJykHLo
uBBdY0j3p1SrQkIQFdA5JERZrfU/V9PYcKqTh00/C9GIFI/+T2s2bEjND6Q2
CVH3ck1WWxMbRmsM1yQ/F6Jnie7R96fVYIBobv1yrhCFx7lF7TNXh679lFCP
J0JUqd7Gr7mtDrdlaGly7grRf2LbCq8YrYdj2u7hZeeFyLc6+9kITwPa1ByI
EAQKkV2fztGJ1xrwf6Uh5vA=
     "]], LineBox[CompressedData["
1:eJwVlPk/lAu8gMdYsoayVxK3khIxae/7ikK0UVFyQkqSkixFKhSiKE5ky1ZI
GxEpfN/bqUSlYgonIQyGhlneea1xz/3h+Tx/wfMs8jzteJTJYDA6/uP/fRMo
B4JN42cT572bUueRN6dZWQVNNG4lNErvRc0jazTeiBMaaGQqZHutNphHatl0
Fxx+SWPJLD1Wr48O+blQV04inUYViRqX5jnapDuPlAhMorHUrFQpr06LFJod
meiLo7GweDTI4KIWqVZbOPQxjMbxy6vtpfiapAvbtPGOG41FaqsWNnA0SK52
8zuF/TSypUMvPy/QIEMPB+HFnTTG7+ImDB/XILMGq0q8gMYHFh9e6wnUyW6G
VbLpIhrdlv4MCVdWJ89u48Tna9Nok80fb2hTI6Wux1zRmEPjF+euZbr31cil
mh+Dppg0LjY6xqncrEaeNN7n8r5XjOq7xpaPXZhL0ge8F7gXiVFTqXClr94c
MiZbTqM5R4yBhdSM9pgqqcV5OHtbmhg3TD45FPBFldzgz59ZHifG6A1sSeUo
VfJy9PnuUV8x3kswiY0bUSHly+ILE03E6Hg4ZpnEW2UyY8w4h2koRn+5xEVL
opXJFZu/3AnSE2PbRlhlbqtM7qpXi3NVFaP0Dkt3QeNs8u/OrJNLRRRW32oN
PNenROoqlqzCCgp1P/GN+OsUyVO9hu2JTygcuHiHYyupSNZW50a7F1Do3LJB
xeuTAunml/xDIoXC4n2D278eUSAzG4OvWgdR+Mbr3HOdNHlS+9amtnpzCofO
NXa66MuRx30qotKXU+izZaekAS1LvrA0WelrQCHLYfz4+QZZ0kWoF6U4l8JV
zTL7yEBZMsVJyniXUISFImv26c+zSDWND5fZJSJ0dRqO3J0hQ3oNWy2/XyTC
OjebZxgsQ5a/q/4WlCNC7byFLqmOMqRTyBMjzZsitK1gN51TkCGTWm+xD5wW
oY+vlws7QppUznAx7DQW4btK0iH+khQpr9f3mVssxPR3/RFxz5lke6bsh648
Ie4f/2b2MINJPtZe/q4lXYhOp9Yry0Yyyd1z/avfxgnR71h9S8AuJpkiM1GU
e0KIcsuiT4p/S5D6PKXIA0ZC3PXUdp+EmQRJ+ZiG79YX4qpjKR5X50mQb/sc
z9noCNFkn8XVddIS5PGu1FOr5YWo9GhXpEkbg3zSvMhVdVCAEbPKmZZRDHLD
y9Ws+gcCdGtZnMqvnUHFNS4mZK4AnXySZvmlzmBHWahRZZoAfW39Y9b4z2Dk
Y9S7f02AHaVVX5/pz+D7HDulCB8BsoaC1hrGT+PeGLe+tcsE6L61dtLG5w+e
3Hv1TlERH4We39627p3E3OmX5ka5fBxwfzCUvGYSvxfxGx+m8bGgrDwxXGcS
iT+u0k/j+Pir8oP3v10TqFZgFvD8JB/feyXZPT49gTWjnfavTfl4hn83fO/t
cZxvETRdeWYEJbzfclv+jGJ0XBfrlecIMl/HsW5xRpHfYe9b6zSCWfImf538
NIpvYvRb36wewVY9G/mYrFH0a/tc+nV8GDcd6l20FUax9oLR0aGIYXzG3gh5
sTS6/9P5QTeJh+qr7Q9MmYrRZtPY0Z8RPLykFFRZpCPGlZUqjMwzPJwxG/8d
ICXGqWJLlvYeHiaF17w+3ErhnaT8zLkqPOTwFl1LjqDwi4e3n2zCb7yh6J6/
rE2EloyR2cJrQ3ipvCPbO0OIhqGzHpScH0KVX29M9sYKUYVaaHXaZwh3SKxZ
7BwkxI7+3SG/bYewuoJ/IXuXEEM/P+vsmzWEnwor81jSQnx2N7jkx9VBHPQW
xdoGClB/0/SetxFcjKk+ZcVz5+MX1U0r0gK4eM9+OM93Dx8v9oXJ+B3h4nbb
fRNjlnz8N3H8pdpWLuZ4i3UJAz4md1MGXrJc7JwWeUx8HEGp2CExM3EA244a
la7uHMa+ptY0IrMfi++Mmnpr8vDB8bJfryo4+Hx+7HGpT1xke2YvtC/gYO+J
8qbhUi4y3OLd/r3NwRQNn+sjKVzcv+dI21ggB/U8RTbmHlxkrp/7dbU5B6cy
1I4hPYAHFc6ST5/2ooF77q26xQMo/8QsO7+oB/XI9KmkpD48ISo9FJ/+C411
fl74kd2DKy9KH5Ax+IFeq3Si7/W049zzbIWUjGasi2r3ebOZjS1eJ42e9rzD
HnllXUq/DkNCjRLqbz9BQZ6H2YLsJ1icuJa4Z/oYVC1KknHtY0jwifjuHlkH
OqKD5hPv6kCJctjwaE8z6PeplCfxmqEr8B0r+MoPsOuQkicO/IThqh2vQ97/
gpy3xa5bO3tgsVxdYFjLL2jJvO+vTfXAIRdi6aW+XxBaw6oal+2FBtrserRU
N7QHyazuNOuF++Za+28T3VAU8mE2EdMLhx53c5+96Aa/rdWhvmYcaMgJUR0u
6gH19UmhzOQ+KIjJdfe6xoGbHQ4TMZFccC/1e/oojQPvD5ios7K4oPNj3TT1
gAOMbVyhuJILCSubMq42cCAn+27aKx4Xgr8xWwoU+mAOSek4HRyEbQZeO7g3
+uDBaROX1jVD0Fe7ZP2ppH4oyfHHMGke5AwIYyvy+mFj1a31FgY8ODgHW6af
9cNz12s7FS150HjUOSixuR9A+662YjgPKhRjS0rUBuDSxdit7jQPog9yl4hS
BoC1QG36+vAwLKYfzj2XwQVifoyVUxgftN7u0X9YzIWIBRt/S8XzQf7vUdOO
Ki74+ZbLvEvnA3+V1U7rVi4oSJrKhbzkQ7Xfv7Eq6oOww+nw3dQJPuzlyE4X
JQxC0vT3luFwAUSyjw60RQyBd8tyPc4tIQTlK4wq3hqCEj91i7f5QjgeUCpN
5AxBe4r9wqrnQtip8ke/oHYIvCS7VH62CUHb4W+3gMkhWPq7U0nHQAQl/7xu
kg/6DSZL+74nVImg49nCmg3HedCibdJRMkrBp7UBRvohPEDrsx8mFcRQXfsm
VTaaB+WD/+Qf1hNDRoNPwLd8Hky3NwoC7MTg0l229HQnDypD3Fc0Zorhq6pt
Ut7+YVjzc1lMnC0Nb/z9veW2jkCoVcDbH89HoYx+zR5xGoGxayLy1adRyLug
vuW75whwy536qzmjEBH7cn7+5RHghP6kDDTGYHOOVNPG6hEYl/FSTDg3Bu3e
DrovtPmwibHm5ALrcdiX2hU7dJMPC6zNJcmxCUiwKVOSSOMDRv3L4GpOwvvR
q0kauXy4v4UOt1kzCetdlmdalvLhycJIz8LgSdDVDn6a+pUPxe2rHKTGJmEg
XeG71RwBvJmquP5O+g8ssu84eEBHAFpFZy1vG/6Bg5Mlnaf0BXDMU9L+nv0f
+Oi6n5tmJoAiWc3A6KQ/UDo/d2rEUQDKYbuDzhhMQ+hdC4PMZAHs3jwyP8dx
Bsp2yhWVZgjA7WN6c8v5Gfg9/WNFXb4ADvpYNLrlzsBfhyMshGUCoOtVklwE
M2Cl99HOli2Av72NTZO3MwjFPA9/Sk0Iu4fNY27QDOLu/es1DilCuBS1Njn/
LJMINHTIa8kSwvkmCankeCZh91AhxvO+EGoMnacr8pkEVRK3+1y5EFzvHQnK
ZjMJ++rYnvwmIWxZxQyZtU6SGGu6Ijc5WwRtF2b2DihKEY37rIevaoggzZPb
fdFQishvlWxW0RWB4u3Lds7WUsTOjsjMJcYiULuyLv7rBSniHveyiaO9CFpS
E47KCqSIPYzwfQ9iRHDFwuROUL80sSRq43pWogg0e10di2fJEFPSU7qYIoLR
SjtNc0MZokghbIB9XwSPji5due2EDDGtcT6M8UYEY2495ulCGaLYOCjXmUFB
1fVsRUd1WeJyCSu6exYFZ+T9NcM2yBL7zKkTfsoU7KxJrVL1lCUY686yonQp
uMhwuJxYIks4W5+pe7KRgruZi9qkneQIKVc/nvR5ClofXWQ3PpUn5tnv1zOP
oED3zzrBi1/yhNkGcHK/RoFmBSt/l5oC4T5PteplGgUbspM9boUpEDU/yq+c
fknBs4Zc/yZHRYL9Iasy8zUFIR+VKq/HKRK/X0UP1jdQkJalUjj3H0VCJ9Nl
9//8oODjt6qfaRZKRPChqXltkxSc9yyVVDGcTdxw4OyUkRLDwvegXnlsNnFv
Y2OEuaIY+tVWujoVzCaa5+f035gvhvSzeZxIQ2XC9KdV2ZZN/3UZ5LCyYr4K
wXWL3/7oohjsvQlOvZ0qwdgZGN4WLYbKlS+M/wpQJbQ2u5XIJIrBPzxAVJSh
SmzTNdHwyBbDOoawN4ivSuR1NP1SJ8VgotzlF5U/h6hqfKVm9V4MtQbLb7g3
zSG+1N6z8f8ihnqt/asWMecSM3eDHzd0iYEVmsD29ppLHDqsc/6SBA2WEQf8
v7HUiLO7JB89kqOh3qRb4o6vGhEHvzvaVGmgvdo2heWrES8W1lqz9GkILDJK
f6+hTqh3eahwt9D/fcrO4I6iBrHiy3YrDXsaiiR6e4J3aBDWpHmwlRMNKmsw
9EOiBhGQI92edYQG2b/qjspraxKN7g8KHa/QwHqtHeEPWkSkwaX14ngaHCtj
bXfHahGr+/Z+Sk2mwXsw+EZnkxaR6csQtefRsIAQ+W730yZ8g503e/8vDe3S
MrRxlQ6hu874q1w9Db32brUeqvOIpkmm16MvNCgkbPP/7juPEPgMDA1/p8Gu
3cBx6MU84v8AEwkwXw==
     "]], LineBox[CompressedData["
1:eJwV0fk/1ekCwPHvOQdfS7ajyHLdRAptxpL9ecIVM6qbyChFlqukYTRkqTDG
0kEOV1m6KZSI20iFyfI813KGEMaS0z0hE0kkjm18v+ecO/eHz+v9B3z0AsI9
gpkEQUT+2f/9cHhUuy6cAn37vD3t87XxaUsjc88ICkiV1t7JyNbGxkEJUa+4
FDB84FHrraWFixeGpOcLKPC5+cwRok0Tq8Yb31IooQDyvFAiuKiJ13OG61yf
UKCmERcJurbiDmSy3jpAgdzJE2nTBRrY6puk9Hd8CuiPvAtSPaaBq0dGthKT
FKhfm/KfkNfAufNJ1vZLFGBvOztmmqyO/bVH4+rZNPBTJ0IPpGzBG9E/iaqO
00CNcsF6HWpYfpg3D07RwNdwWT34phrWMpMbGwyggSlHdTD5H2rYeiGrhfqe
BgdKBUJbBTUcE5Kf8A2XBnyqMUF0mo3TO/jh4/k00NxxRTnJnI0L9HX8L92l
QeENReq5AhvXj9+Dtx/T4CinxWB7kype9X7E+NRDg/yz7B+zDVSxTN3c4rUh
GoT4JHJ3EapYffO+SbaABuz+QPK4QAVb9D9ttflEA46D/fUjt1TwD67NyRw5
ETBLVdVPVVHBS1b90sYuIpC50+rBvKUSZuazV5sPiwBzuCnomkgRs1c8p495
icDySs7P/HZFbPqEz4sNEoEKy3TGuJcijjD6Pa3rRxGoy6x/9ixxE/6suSp3
HomAwKEhMHBVHosvW23QPBEYjU1+zf9VHiuNxM1yX4kA/LfG8mShPN6TK3nZ
8FYEut0sDEqBPA6Tl8uUpUVgPrxAISNHDn/a0FaqsBKDrZaZCQvustiOl+Y+
BsVgIObj/Ff6svhGjpCz2U0MHk5zRlf/IPH+Xd1kko8YpO+webBaQeJorzjG
yTgxKC8cH7u1icREzeiyQpMYlOT4+WTMSGOPeGczx3YxuHDn+epwhzQuc6n5
PqZHDBjKXlJJZdLY5W3a5/cCMZjYc1246CeNM+QPzDSLxIA+nfpM7a0U/nP6
f8OBBKxHTVWqf2DhkP0MrfJDEhD5Rtm9vouFG6iwbwVHJWBOk6dfWs3Cp3Kd
h139JQCQWmPHLrHwPSR8pZckAV+GF2o2WCxsouXROtgqASXBx5yzTJn4Xkja
kLY+ARMCdovS6gksG3+uW38nAaN/6yujSwgcccOt1cSEgHkKV0FxJoHBc4Ua
WzMCaphvFQUHEHiMyc045UTA5msRtWvKBNYpLnC8HUjA/vODnT5TYlQwVFmj
dZ+A442c4J3lNCJmOA+3VxDQRBLf5PsTjc5RF4qNqwl41wlkvwqg0YHtezNt
nhHQ2sB8ImgbjUbCa0NOthNw1pjn7lZMoc0KjbpF7wkYe/N1ZMD9DcQ92JOp
uYMBOREHHw4NryOXljIzwS4G/GVLkptT0zqibeLfFO9mwJtJiX+MlK6jc+bG
uwzMGbDfQUk9LGIdwZ3pbXudGPBpuUW6k+I6+rLJecPpLAO6fGWodvrwGjo6
2hjy3R0G3E9NRetMrSApr38qmZYwYIP9ZGV23wp6MRD6XHifAdVb5M7rvlhB
ht2arNhqBlxD+/KysleQuPlycXIjA57MPSOpsl1Bj8vMhgv4DNj9V5uQuoJl
pBRe5di2hQln06pKMoKEKLg0X+W1JhNOnukqivq7EDUNJ4/N/oUJKc1l2xg7
ITpv5xvHNmTC8n0VBbzNQtQup1h71pIJfZc6epN4Syju/nd6hDcTvjm155Hz
3iU0zTcl7AuYsMkqv79acRG1ODc012mxYCFrdUZX5jMKfFdkm6LLgl8My1w5
H+eR7LWrvxzfzoK5Og/klHvnkUe94/MvRixoVIdWAvPm0bRRb7WxNQv2K9dc
tjSYR0rKk7eLvVnw8rBxtLfrHDrDV4hLzWNBrqKlUUjJLBJd9LM8oSQFsw4t
chpufEAM8rdCE5EUNNcdWAi1m0SWrpGtXxMyMCrGwCQ59A3aEFTPbFmSgS8C
6QSzpQHkHNbJPbwqA5Nv18cO9Q6gLOp3q5QNGaguntRJrBxA27S0ry8zSUhb
ONOr/gPokPd1o0E1Evoxv1z07+9HeQPBoVwLEpp0LnRpBvShvTzdOflYEso2
KPgcWXqJYrxs8hyvkvA4P1FxrOol+s97L7u4JBIGzE1YXw1+iTxZWZkfr5Pw
154Jt4+jXSgeUrs7i0gIruyKv4Q7UeeL1xdTmkjIk6u1MM7lIfbXwi3NmIRh
myIZd9x5yJev1LLcTsIfolJydUgeWlj7m1JQLwl9nb19D17pQOoWzx47jpFQ
8KRnQyekHfm3952ImyShqVG876JeO6o8/kn8ZJqEO0axxYCgDdlFbj+qt0DC
W8U2j2o92lAqw2HtWyEJWX1OwqeKbaif63OXu0bC+LtZyrizFWltizrUSZFw
D/fgyEhyKwr8mbsgkZBw879KdNcdWtH/ALJjixk=
     "]], 
    LineBox[{{1.5719532421407443`, 6.930585177839995}, {
     1.5719601329510897`, -6.89769489080568}}], 
    LineBox[{{-1.5710254688331564`, 
     6.930585177839995}, {-1.5710141790058587`, -6.89769489080568}}]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-3, 3}, {-6.89769489080568, 6.930585177839995}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.505726657073303*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "x", "]"}], ",", 
     RowBox[{"Sin", "[", 
      RowBox[{"2", "x"}], "]"}], ",", 
     RowBox[{"Sin", "[", 
      RowBox[{"3", "x"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.505726708435241*^9, 3.5057267620823097`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwlmXk4lN/7x61ZUmaeISRF+0pKaaH7VEKRUqJFSFpIEhGSSiUk2SvZUpb4
RHZJTpSikKiEopAsM/NYx8xk+Z3v9fvrXK/rmvMs7/f7vu/zXKNhf27fCTER
EZFsURGR/63iWLauc921Lbyy/18X9ZZtnhtpC/cKmobnkFX4XMuhOeIcnI/O
N/hC1j8Kp/mFEVfg6tNyn2SythjeqEiJuAtq15Jq9pP1q23EkviIRFi/Y4bF
gfBE2Oes0nI/IhvWYeEr7zvZED5knRcTgWGD4lMDNT8Mmyt3yW5zr4ebpa92
yO6oB1cfs2N5rt+h6OIbndLmJjhbfCJUbMEvWJw595Mxuw2+9OyUSbPvgq7u
5kOV0p0QrMUTKTzUAxpSGaK7mN1wfkVV9OsUNgjd36/L5PdA14muq0mFbDjv
WbxgnXgvWCaJOF99z4bnV2eoFc/ohU2KG7ehXjY02Oksfjq/F8SmnnLxSg5s
7521Vde0FyIabhvhPA4cP5WsIJrQC7neewSvyrlg1tzkoavXB8LjZ7J+ugzA
f7N66u7Z94Mdc9ir1HMAXk4dmffCqR8qy3y2P/QbgEiHyNpGt34IUwn+fjB0
AF6YeG4e9e+HJZ/Sxb48G4D1ZsGLe5L7wWJTt+UH9gDkHl90O+R3P2Qxjk0V
Og2CSozF2YpDbFAo66mOdhuElHKx6unH2OB9xjXqgs8gmPxoMTQ7zQaDd1eW
rQkeBPdG8eQyTza0XkrY/+zpINzNdUsxjWSD9N/WtMc9g/DRYKbdnI9ssH9l
uTfs5BAEHMA8v3UcWFOoTKmcGwI33oJgdz0OiGW3ND66OATe81fX2G7nQHKS
jVVe4BCsemRnMc+cAx3XT9p8yxgC3eTwLZucOWC/y9N5Dj0Erzf41v5MItwU
HZh+cRgYZzZx6sS5sKbeapf21WE42tWUWyDDBbFqFbmSwGEIdChiR8pzIbkk
/u7HB8PQeyS8cL0qFzriU2K4L4fhYP7tC4pruGDvUPBER2QEfr1xXb3ehgvH
B7+8fh04Ao7+ju2CbC7Y+YRZFYeNQFvunOM++VywFjflZt8fAU/d2p3DxVyw
VHyjmpg+AqFxxZvriI/GG3M8L1eNQLvRgsiljVzQvHZn5SbpUZCZ+KzhMsKF
5bI732gzRkEt1tniAp8LSyIlDi9THoW3xcua3ca5oJ5y6Zby0lG4A0pfD0rQ
wKp27OAZjcKWMN9LVSwa+AzD+3m3RmF9ZlzWOm0aRh6IamXeHYX2j3lhr3Vo
GJz/qjL53ij4iwoLtm+goU9HZzg8bRSK6x+8WwM0/Dw438z1/SiIBuv35JnS
UJE0Kb5KigdctvKFrSdpKFtWErtQngfVHl8W7nWk4WWuh/YcJR5wygunWznT
kP+WbTN9CQ9oyUGv3W40pPW0vOg15MH9BbmlPy7TELK66FxqAA+OaJ0zuRFJ
w4c1Td0eoTwY3Jm8QiaGBul1Y0d3xPDAmC1yM+A+DTc26pp2pZDrszqTnOJp
uLStaOn8Sh6MXpU/+z2VhmKDpsTBGh7sazs5TeMpDTzDsVnlX3gwQ/qogn0m
DW4mupJ2XTxouSkaUptNg5NF0e948TF4tyuidWcxDemWTQfPTh+DVTGbpluW
0NB9cOyTHmsMykROZx4upeHYUd2y1vlj0BBxavPu1zQcPFkUq7JtDBx0R0Ka
3tNg5FW0P/rqGOjME4+6+pU8r0/TB4fAMVhxelMMq4no5zu2VSdsDIoi1cQS
v9Ow5Zru6sbEMXju46qY2ErD+uAiOSYeg9fLnNUNftNwIaTp+q93Y5ByTeVk
bAcNuaFjwuy6MVgdnUf1dtKwKlK316xtDNhlronnumlYGFdUGTIxBvnrq/w0
+mmwT2jSs5bkw/XmW8Ob2DQkJY3lrZjBh1kDPTWmHBrmpOgmf5jDh9xtIf8d
omk4nGalEruQD+rO5rkWAzTcf3oxzHElHzZ1vVI1HiT5yiryk9bjQ/OdVGXl
YRr2Pm8abdrOhwHN/MwRwqG5Y85pJnwYnrj9qHqEBtki3SOGR/hQJ6jPt+bR
YPzCqkHxOB+mz277PHuMhoCXF3f+cSLPs2d072fCYq+LdG/48MH8a/SFJQIa
MmZQqRP+fAiR+L33C+F9R5wVLt7mw8/0Jh0vIQ3C9Hf+A5F8CK8yUWf9o+Ex
T33QMY4PWlwmK4WwqcEl284nfAhYKjpDc5zkP/xrrfUzPhTIDs/IImywKjhj
TxkfJtLNF0ZO0MD26VKufscHMw2/jXzCUVVbbm37xIfxFysPWEzSoDfrwejL
Jj5YxW2/mEb4z/Hh4+t+8WG9Z2biIOHQnN0NWT18mPLeU7dmivg5lYaWDvLh
mY2a+BnCbaZi2Y8EfGi0ldwSSzgg1lpNVUwAKfpCv9eENXsKb0fJCmBMb7Dy
J+Fv65jCGSwBbF/SQQ0R9rt+5vQtVQFk7Hp/YoLwks+V30QWCmDEO75sinD9
XPUdPisFEC3noCYg7OXskzesI4DMtjn+vYTVS75onNUXwPjeGnY94SoprbDu
HQLgGXsfzSbseiBo0tZMANmrV325QVj5cadzs6UA2nnDe80Jvx7Qb91nS3jm
j0YFwo5b7u+sOSWAx64860/k/amQoaIdrgJ4cd+SfZVwSbPpYuwlgC2BlP8y
wvZL0qI2XBPAj7fb5lYTfWU9RMVzgwRQcVCs3JZwbsWR8ysiBJDQ4OLEIf4c
ZhS2P4kVwN0d6bPdCIvZMMzmPhbAgp2fP3OIv5mZTqX3MgVgIpgZZkfYQvB2
OTNfALt5gQc+kHyMG857EFwqgFcOjvNXEDbtaPS4XCuAC6+oxs98kgctzS7e
V/L+N/WKlAjHXQ7c59omAOQb+tiC5JGjrK91nBbAlSOB0XmjxN89qT3GTCGZ
Py5/JIeIv/EiVhUqQsgcs2dKkPpo6ztcuXm+EI7lXjISkHrSCpBP1lwrBFrH
uLGK1Ft9qdcRhQNCqDNRdRvvIf7INlbfOSoEdWl6LPcv8efgqg1SJ4WgpX8j
2I7Us+vwbwWhpxDELc43JZF6Zy43qWu/L4Q9UZaqhT9Jf5JKZFYlCaH/rJsW
+kH0/jNk8TxdCAmRvpcqWmhweBTberVYCLnhDaXZpP8UK/f1aHwXwpFjWvTK
zzTc4emvlP0lBIbl4VqvT8SfL+Hnhv4KYUlMRHdpLQ3TwzbyKsaEwA1q+7jq
Aw02UkHiDkr/gH1e1yW3goa1f34Yms77B54ZlPZr0g+l36wO1lnyD+oSIte8
KyN++n1nSOr+g9YRz+ES0k8leUvmplr+A6nBMh+jXBr+63q3oSf6HxQLTyhy
Emm4VjHbtz7+H3z2yxK5Qvq7ZZILLk75B7WyG9fKPKRBxHqWYVDBP6g4edl1
GpkP+xtP7F/+9R98HJA7+uQ26QflEi7OCuOQxKsIdfEg/SZx2+OBiHF4Fyi3
eet2Gm5V1f/0fzgOxaoei6LIfHs3aKOs+IT8fsdq5bbNNOwwuHRnY8E4zLvW
OduKzMdtvXkX/ZvG4eeNnLyfC0n9r11kqjBnAjKDxjS3kHm7+r3UqG7KBFyL
6cy1KOXCuYForQ/PJgA9v9kbXMSFLJWFTtaFE/DW6sae4lwurHJG7VffT4CM
7IJsfjqZ70zv6ureCSi8s6NLPpoLC4/0xR/RnIQzmcccH5zhghJdY3ilaBIq
JDt8F1BcuB+Oj/XiSQi9ZqxkI8cFZZ1c3/1Vk/AybZl92DTC3vdylzST/Z3V
8j+EHJgtbj+3XjgJq7Qk+PKdHJirNDaqvmUKRjuGz/XncGAxaKRUvJ2CVK8x
5uWdHIh9XyIq7iiCjij8WuRux4aBX8+9aWcRZP88Ll2TnP+MhKmDra4i6GRG
7KFOczaMrIz8ne8lghaqHdu9YTsbzCLOlJ8MFEGKzknPwhaxQezonGsf0kRQ
SUNAx3hPP5wZuiwS0S2CfJtEROrJ+VRPbeuUuoMoqr8VeKj2cB8YW39xsz8t
ir63v+nWMO8Di4enuh87i6LDgpui54z64IxKaO1iD1HU9i+2b2htH8Qqtj5c
GSCKPhWf+P5Irg/4Mzw2bEgXRZfKDKMSSnshfzL9/B62KLoVYRi4RKkXVvxi
dF2+IIYO6Q53qRX9hWfp1OkCN3Ekx5P65NreBb5tRxtXBEign/tOLLvu8hvO
620wSYiSRL71RlFr/VpBmGhg3x82DbV0mz6q0vwC9a6xdheTpdBcOe+lbl/e
w0aj+ZM/H0mjz9/kTk6KPIfqHRvTUZwM2lhvMzc7JAun5DzY2JEpi+pZ6nop
F6uw4oKVTjZPpyOLJbkLDf804gZRaX+VUjkk8SHxqU5LKy6Qdk+tr56BorxX
F7yJ+Y1XKjKc7CtnohVhjw9av+zCdChPYe03ebT6DrNzcfVfzB6YW7GqRR4Z
Jr4pqW78i/v2GZ1b2iaPKun9z062/cVds+5Xq3UTHr/7PXT4L25J2OgnzZNH
myJMJ++p9WB7q7JhriwDqS+333bbtQfvPiV69O1yBtoe79DUyezFC27d0jrn
xEAy1Zb+jVv7sNs3HT97ZwZaXyge+3JXH369qKPmgAsDLW07eT5+fx+2eavn
pOfGQOGtbZZmJ/pwrOjQExkfBjrT/7ncIbAPU77Ws58EMZCXWZihfW0fFjuv
LdmczkCOx8brw/f1Y/PXbftrMhhoVZDin2eH+3GSfEgy/o+BfGP0vN7Y9+Mt
Wd2Q+pyBfuRIKrS69WOf/oc+7sUMFPSXxX4Z0Y+HTkwbmFHFQPWfSi5u+9yP
Ow63tmz7y0DaO7bOsdzJxnL6Vml2vQyU8Kr1k545G6+b1+ju189AnJnyMaqH
2Diw84NcCc1Asy3dzMtPs7GWc8kWbT4DORVNM3p2i419Lz9InifDRBl2kSaS
b9lYMcnKaXw5E+2TDtFIW8/BW/wb189exUSvTjXMDNHn4NMOe8Q3aDGR4dLg
mtMGHFy61CjOfS0T6fUl5cjs42D7nPV1fZuZ6E29NqfHmYOzKhTXNJsykYZ6
8i3VRxxs/KdRUODCRF0LTHMMxLn48orQS9muTGRUGjX8UpqLc88bT6S7MdHl
cPWuFTO5WHWyVCTOk4netxd+GFXmYu6sVCl/PyaaDNMJ0tbk4ihjL0WzUCZq
WCX9n5EVF//KnKPd/YyJahPl2X8ec7Hi0Lfc9mwmWvPcMNA1nYt3bQjXac5h
otQLXzOH/+PivLeSG2oKmCjrT/SNzgIuDvjJ3ZL7iolWMExsHN+TT1n5clO/
WiYS5FVXyvVysZfbidOzOEy0P9neNnMxjQNNuKc20Uy0tXr1tIjlNL638OIp
m0EmOsUWe31Ok8aF3wJPpo4yUXC/0WnGehoPb/rPYf0kE3W6jzp3G9DYRXzY
zlKeQiGOptZddjS+/OOSnQ+TQovHZuVvdqBxSIGEXQKLQoZ/j80MPkXjzFOz
bLuVKETxct5Nd6Fxz8eNRz3VKcQxObzysQ+Nj0ddPRSjTSGGHEhqRNDY7azM
oZK1FOq9p6jSE0Vjf8OIg23rKHRg4pJG6j0aJ/EfWy3eRKHIvG9yUvE0brN+
f6BwG4UWhDhusE6jMWfd3gMtBhRK9N/X2vKUxuMzmy0mDSm0+dJH573/0Vi1
vG+/oQmFzn1LOKieQ+ODi2bu+7afQpruhWh/CY1PT8aYCw9QKDiEbxBUSuOL
TfPM5x6k0DLJ82sKy2gcE6S996Q1hVY8D3o3UkHjRo6FGc+BQo4yIRUSH2ls
Vvhw1yxPCm1SHb59rplcb9h+StGLQtvkHu7lt9D4+url+Yo+FNIbbVX3/kHj
4oxiNUU/CrmZZnTYt9N4fuLXAVYAhRaluP/+1kVjvR9xKaxAopd4PX9eN42t
VBwOs4IpZLdtXPnYX6J35NAbKpRCLx/cdPvYS2PeLfl7zBgKsTDLH3FpzKj8
ZsK8T/ZvftC0k6bxCrEEEWYs8aP2yVqTARrb+a50YiRQ6InKnsl1QzT2eTE8
l5FEIQ9Dd+d5wzSO5pU0yicTdlr6S2SExh9cd+rLp1IoweFkU+YojbueMYZm
plPIIu7GYQ8ejaf6mlJnZhB9Q2061o/RWOfEScbMLArNMQ+YesQn+iSvqpzx
nNzfwzvKREBjx/YR7xm5FDISuq3iEE44dL1TrpBCp141Oyn/I/rE7LovV0yh
4a3jM5MJNzYyd8uVUEih4G7hgnEacxnNonKlFHIpdD8WT1jaLKlwehmF1nUF
yctPED1vnzoz/TWFtrQWvPYirF+lqT69gkLiuj8vtBA+KMn7IvuWQmnhf1fo
TJL8bXsVJPuOQhPXy/7cJBxy5cYW2SoKRaTsTibnbZxWajIs84FC/4X4H2NO
0bhCQKXL1FBoX53pAhPCP9a3WMvUUWjvZPxfX8I890dMmXoKbcx2zEolzMw5
/U66gUJn3cg0IrySq3VJ+guFlL4bb+8gbLhiTEv6G4XWntvNHCFsd7qsS+o7
hcIqs36T7w98KeXmA6kWCtWdcson3x84psPUTOoHycPvK0Hk+wM/n6cgLtVG
6rN0wK6f8Afr1qJpv8j9/F9v+kr4z4Nk52kdJA8lI7OKCIs0OWpM66JQNTtq
NIzwbAXtb5LdZH98xjd7wjrm/GDJHgrdMd9aspLwnlAMkn1k/+2TSVyih9PH
gBEJNtGnbllQOuEb0mZPJbgUWhIbd+Ew4YQdijYSAxRiujTYSxB+4f+Dkhii
0PmqX/tTif7ccSdfcR6FQsX+bmkg/h06aLJMMEahM/Yi8TaE3+at+MYVUKip
snR3J/H/gRNbq2WCQiINMWlfhTSWeFfz49MUyc/a0b3bCbtoPAuqFGUhDRmv
3U9Jngy+n+18LslCPu+vIhuSv+y1ZmGpUixkschS9xnJ5+y7mvpxMixk18G9
NkLyO7CDjrk1g4Wmp6mxnEm+H+a57rJRJJz7avnUII2nyZuP7VdioUO+3LcM
wq5O2k92qrDQ2E+v/Nmkngw1hiZ01Fjo2aXAKCVSf0Oh7jnTF7GQZ6GvbQGp
z6N9+21El7DQe65lZlAPjat26EwfW8pCCSUxZpaknuPHRxw6VpL9wnNx30n9
Gzt5Kr/QYaHsmzNtrpH+kFdpWZm1noU4XXfOKrfReK6GrtuTDSwU6jXyLY30
k+GmsY939VhIf6ilOLv5f/p7XzlpwEJFvaveHG+kscyjQyutDVmo56Mw89Vn
Gl8Y39hsbsxCV0VTB+XrabwzT7hG35SFTOrWRcfX0HhE3bebZcFCs214xkcr
aWzrax0pY8lC+R4OC33ekHw16aEpK6LnXjW7u+U0TgydeNB3hIV27zEWJr+i
8a5xv93lx1lo6Z/v71wKaPyo6Vq+izsLxcy+q/3gMY27K1e3h3qwkBAVFkk/
IvWQ3y6TfZGFZoDBnnMJZB6F6dvSl1joJjugQOMBjWt2CmRcb7DQRptGd9VQ
GvNfutqejybXN9d0PO5J4y0Z84LD77GQVu3h4wbupN/er8vPeUD8rW+5NMeV
xjM9VsoOxbOQV9Dp6bmONF6g2ZPvlspCl/tNy9ysSX9KspW9UMRCCuKixiaI
xlGhM9dFvWChFrOGewl6NG72fWWb/5KFaptOKPZuoLHDIdWCEcxCU1nTEo5r
09ibarL1qGKhgDXq4rQGjZ/cMCvwbGahbratgp0ojYWn9e28/7FQQ21wRN4L
Mt9fLkceEyz0JifjGiLz/OEMZfXzUyzkfFays/I5F+vlDrWfFldAjX5fRUrS
uNjvX5rtwekKiHNZs8oomovFQylbXVUF9CzbJEDowsVyeX+Pjm5SQOX/HVhU
OYeLrSW/6g/qKaDtNXOT7ZW4+JlVhRpniwKqpfhFfCYXm43H/ezapoBiI1bn
z5Ti4rAd+45+2aWA0hI8FDoGOFjhe6l13mEF1FO1KH3JGw5Wmwg/ct6H8N9Y
lQ325HzUsfvFPV8F1FGXp+VwhIMvvJdRKvNTQIUDDR9uWXDwh/BrDbLXFdDM
Rtb9AkMO9lx8fueT2wro5/Xid5nLObh+z17dpjgFdE3CXF9ikI39k2ey9LEC
ailWPHDhIht3G93+IC2hiKxtOWs/nenH9iZ26oumKaIrO320lY73459m6zy3
SiuiccHvUCtyXv1yoF3DR04R/dEScy837scVx9d69ysQVkKLNi3qx/FXWpfU
LVJE5iMuNuU/+rBF0YqbkUaKKKn+yNgGwz78ZnENzL2tiJqOv9WwF+/FTtKp
Ehoys5DnDtldtbbduChpof6b8FlI6tUqp1KNTly3Wa9yH1MJBbiVVL651475
Tg/324UqIa0ii5L3kd9x1d7EAzNmKaOJtu/v1UPrsf1GvbS0KGX00NM6XS2u
HDtyakd/xCijUkk7TTXLcuz6yNaAeqCMano/nlFilOMrMtd/+8YrI9a0zfbj
11/juOZq1X2pyijowtvFik1l+Ju3Vdh4kTJq7JnlGe1egneVuHmbtyqjBueE
Gb9Sc7C5i0RVwE9ltPF7U2u7Sg4+OD9mVmm7Mlpw/at7S8hzfCr4Rd7iLmV0
3J86fO1PFr5xWIT7j62Mqnw0BzJ9M3CZ8I596qQy8nwavTjy6SNcmTUvp1VE
BfGczpkq3E3CNfY5UwxxFdQall+j3puAWz98ibskpYI+Gz2IH/WLxfxY1aa9
DBX0a3tiyfaMcDxl9mxRAKWCHBbv2szoC8XTxOHCSwUVtGbYPvrulWCscMae
uViF7P/699TFjGtYdd6I7RFVFbSQap9fecUHz2+8mRWmpoJepHrYR2acx8tv
KU1UzlNBunFnrxRnHMPam5+a/NMgv9e+87//t8r+D73i2XM=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVmnk8VO8Xxxkq2QaZsaa0IJUWqXyj5yRUqCRLC5HSKqLSYksJbUJSpEgp
2ZeoiEdSpMiW7LsxY8w8dmX93d8/87zer3vv657zOZ9z7n3ua1QdXS2caAIC
AvnUz/9XISxa0aXjt7Wi4P9r6NblnIItKg/t0S+TJcoKD13RRPqa4w1hrogF
xqziMF/UI3vqbw61rtgxI+gU9gA1GvsXxVPrStVhnl1oDPptH6b+LCwG0QsO
z/e5n4YsnBUan4SlIdOkjScX+WAUOmSbFRGGUew128/t8Att+WoianChEm1s
eJdx9kobkqp9/WvTw0p0PTg7QDi9DXV30h6tzqpEjsbD2Lu3DQUL5C1SGK5E
3ZvGQWRlO+rcslJnwL0KmS5bE1P/pB0FZYo5PHevRuZKYv02bh2oLuZn9oRb
Lbrk4beVwehCSakangOhtUj4oFZ4llYXup7vD6yMWtT+7UzJ1p1daEWT3o+q
wVqUNv7RQcmzC3kxU9oT3H4jEjgb2dfWhZbevy9m41aHOi73bPsR343OX9tz
NOt8PeoZcDvap8pCJi56CSIh9cjs3Xwpv80stNRRk9il1SMx4S/naXtZqG7X
XG8Rfj3K/GM/VOzJQvoKBU/szjagBQs0Y4xrWUj0w+rKeScakfvgC01Nv14U
PyqObA83oyUrCr92fmcjH87ErYxrzSj8ZPKNNy1sdKCF/XNuVDMqmfA7ZTnI
RuJfiw9l1Dejf953j52Q5yD3cC+PudYtyPxsiPhpJw4C7f6UdPNW9E7OeknD
BAed++AUTFvajgJueo6yZbhIa9e+xYIb2lHlrW+af5dx0UCDXuasYTui//Qt
ZG/koouTC+qmTrSjC2JnP507xEXXthYtHE9sR3k7Z0qEY7kooFglhbu+A61O
KFpjvbwf7bQSRX3bO9CE7Zst7jr9aD5rtJJt2YE2Hwu/6GLUj+7NKx/p8ehA
/pFBy+c59aOHJp567bkdaOzO14fv4/pRbOWfH7UGnWj7hMyTOfI85Hj0i13N
/k4UeSZ5r7IaDy0dSiVVxzvR1b8/lsls4KHXCwIW/AroRIuWfGFH7eWhFOsN
h7+XdSJtToH6ols8lNsc0pdv0YXMwnR9ejg85HXOy+vTsS6k90dihjXKQ/oz
JyXzLnYhqbHJ9G+CfFS4CK3/ENGFdtXnXFuswEcljryrmY1diP1tao2eMR/V
snfNf+PYjXQLHqyfH8VHJFLD6KZ7N0pJuHMcXvKRqOk8P/sb3egw643nwWQ+
gpTiv3Jx3YgX/UpnXQEfJbkhdlBHN0pcFNdzqZ2Pvi1RWeY02I3ODjeZ5bH5
qL1myn6bYA+K9B6y7BzgI+bG3D//Fvegjuel6r8FCLoxsaHkjEMPUluoMWu2
iKBnSQuEdpzvQcLjtx4+VyPog+3Q1qXXe9AYHrhbtZogXkFaTlNMD7oQhO81
bSHowE3N12ZtPah8WRTd15qgCxvmd2qQHrTNpEe4yZag4J7ehXNme1Cb7ZCG
/DGCinfEP8pXYaG7KtxuHVeC1ogvvqV1hIU8DNSDZm4RZJI/UyjqwkKdq3z2
HLtL0HGXlimWNwupt7Uw3oYQFFUZdTHmGQvtblR++CeKoLmPGMelWlhIIXl+
AU4hSNV4JKa/n4XUDAxoqzIJ0huvbiqdYiH/sJOqV3MIcjsYst9PuRfNUUpr
yy4gqHmh2Pahw73I/9Rx3odygsYrOD4VZ3vR3d32kSurCJK5Xpqb6NmLgvZX
CfrWErSz89b6Y0970SNZ9cmSRoKOPTzugpJ6UVFly638FoJ8DLcnKuX1orU5
GYUP2wnKei2wpLaxF622fbuls4egCps2u/S+XqS6LcLjEJsgtkhB5L2JXoSe
rbfJ6iNIKDf69ylRNiqirW3q7ydI5ayntJEiG/XVHhGYRwjSVT60W1WTjRaa
pBYLDhJkWb759rQuGw2fW6XWMkTQnTVjAjkH2Wjj8sCPOmMEXbu8ayXrDBvN
PFrqVDVO0GkcbcX0YiPHoSOrdv6j6jdvwNf4PhvxPgRJRE1Q+e3dnujxnLp+
WnFeySRBmx9H1L5OY6M3p3Plfk0RpNHGmakrZCOxbRu3Zk4TJK+uv2JeNRWf
fdDV8zMEzXMN2b+pi40+6/8unT9L0FhOl/fJETYa4Z1d6UMxa2ZjwuM5HPRq
8bfYcorrjO9UlzA5yHBpkMZfir8Ft0yNq3OQcMf1ommKc+rWqmvocpBY11uX
VorjVfz3HTDhIF9z9dVRFIef+OMZdJiDDvB3zKyl2D9V8/UHZw6at+hWZxwV
z8Ux70q2NwdxO240EireY1urJuQfcFB4Nb1XjmKLgGXLd8VyUKX68vlKVH4G
FZf3Xs3goNBM1rZ/lB7rmT+uvi3ioKjmuLBMSq8lR1ReNdRw0NTr6injv5Q/
XrtVzO/hIKcEhRs5lN6C/OK/umMcpCtmvExwlKABHfmlZ+b1Ib+75j1qwwS1
e5/dHSXfh2Iv2paoU/Wr/FpwuWxFH2p5/v6nEFXfQgmZuIn/+lCec+N4LlX/
dCunn5pmfUi19KTpbsofMc8+jB2y60Mmi1aX5fZSflttb5rn24cGJk9bqXcS
5HIp8xI3pA8F/jY/pdZGkF3+nFiluD6UYLonS6CZ6ofdySOexX1o9ONWgR2/
CVr1aFYl+XcfUn48Mj+L8rtyi8WuZlYfqqwyPjxB9cOk879nevO56KCLPEvx
G0F978xKnRW5qCAnRWPkM0GNUzFD0Su5yHyR2NeEfIJy7xnvmN7NRWZ+Sote
vSPoSvLDgfwwLhIp+cTriiXo1AhLkf+Six7TH4U9eUqQjd5/RirZXBT58Gq+
RgRBG3+2R/r84aK/+okFTXcIGuGu3o6U+9GWz+ka990J6tb2O+e6uh+1xpfl
qDgTVONZ+zhmaz/6mpUreM+JoEwxz/5Zh350KeN5/z8bqt9Xlj4qjO9HAhFL
R5dS86rbqft6bE4/Ylau6X2vTZB1rIDz9ZJ+9Chs37IVqwj6j6FrAJx+xA6N
fvFSmSDa7Fs+XsVDU3Zaz/5N8lFY9d0dOIuHJnN08te94yNhiYT1McU8BHGe
8c8T+chjR/FC3988dOGOtRsnlo8OfZoa3jrOQyZRS9rk7/PRktfnYgv+46Mv
KwtM2o/xUebVvf/yP/OR1g7aUyUxPlr27mz3s2o+Kv/GU3Ge5aEIfuAv7y4+
WnOtyfDpMA9dO1YYrz+HoP2TF5MeNfGQwe51Fvk7CWpp/WQ79ZaHahYvSPr0
i6DXC81CnwEPTRw7m9riMoD2/W4veWLVjxykh6988hhAM62C6RxjSreCa9uf
+gwgyXVy/y3a3I9CFO7UHwgeQBF5nuc2K/Yj9V8JtNqUAZQ64sVe1sJFlv+x
rMv6B5BSfDMatuOiVKmjszlnBlEp/mRYY9qHZAvY3x+5D6Lxr/WL6nT70NWz
58MvXhtE5oHykVi9Dxl+812x/s4g4gosSTYW6kNNns/3p7wdRJsv3DNU/8hB
Ir1Nb16yB9HPsEy6wWIOcsy3Ng85MYTC9769fLS5F63PkZdRcB1CC/+uKg3/
2otoaY01Ly4PoZ/ntoqlpPaiuNgjNllBQ8j5yLmqe9d7UefNE0fqEodQ60tb
JL60FzmaeDgrkyHUcPEBfckxFnL88ygo4fIw2ru2cOJMZTc6NlhbWBg0gkS4
fN0Gpw50b+1719cBY0jjjrxVqlctohW+3+R/7S86feKIEZf9Dklrmla0PZlA
On3HTOvMSvDOGIOXA2FTiBeoZrQ/vREHlla23Hg6hRKL1kRG8Bvxt8Ej8oxX
U2iNxwAtb1UTNjL0vK+bPYW61E5OxCc0YQNO1uUbf6aQadOHd1PPm7Ge9nIz
WeVpNH3ZOMX1ViteWzJvdFP8NNom5rP+i1IHdh14tKYsZRrNa7kQnLm5A6cq
LDtjmzONMl6lLA+26sCrnaHtesk0slt802/+gw6sKX31+3fONLJw+2MpIdiJ
lx3ue3ZYawY1+65ir+roxHLkp7Hv+xkUdux6en9IN34Sio9y8AxKiRIITkzs
xvIbMr32l84g5ymX4H3FFF99nKneMIMSbZICDo13Y0UhR5XKiRm0UN8MrGx7
sIrc+OjirbNoD/PBnd+qLKyGVOOLimeRQnvjLcOoXvy6Y0HhqvJZtPqzWdFg
ei9W85/bFPF7Fskoy333L+nF6t+5UmdZs8h9or/q8EgvDl9xuGC+sAAcNwpU
/mHGxhFZyzUzlwsA+pxnFfmXjaNKcgWFTguA0yeHu+Zb+vBAe/pV4iwAJrP3
Dbfu7sM7Jl4PNp0XAN4XVqqMfR8eWfWw490VAbjq+tDC9UYf3hN29vOJIOp8
n+uToyV9mGan7Ff2RgB6Bdv3ae7h4gMeMv9ykgRgyLN3p+cRLk57IOL2Mk0A
aBfW9mW4cLFt0YiD13sBmBbV5f0K5uIc9XLQKhEAm/pHxuXlXHx2yFsgjCUA
E3R1tULjflwkdvGKT58ABPKXvz1u1Y/ll58ZOMMXgLJtVWzesX78zca6ffuY
APhOW55Ivd6PF+drFY7OEQRuGqe+50M/rg1s8z24XBAUlwv3LVnGw3oLt80u
Pi4ISaJqb717eHinba274ylBuPul60HIIA9bPj3JeuksCG0Zv0P9pnn4rEJw
udolQfh45WzGtCwfRzGanq4KEIR9JUf4tgZ8/Ffi0ubNCYKg6mBknRzBx8K7
RZKvJguCdH0uPyqWj6XuPV2Uly4IK2oMmk8k8rG6aNHcrR8FQSXI+k5EPh9b
z6X/3l4mCP7m+XMsO/n43UyC295+QfC4ER2+dTnBhfp6PSEDgnBV8/eL6VUE
//T6daB6RBAG4zc7RW4guGtiFFlNCwJri07/ie0Ey4wbSB6WpAEZ+LjgoD3B
Khvr/KJlaODfxeJMORGseen0aAuTBmH+uTrezgRvG37Q7LCIBknpktILrhJ8
njQnnlhLA97qXTIPQwj20jqvkrCBBpKJ5ysVIggOOicUxtlMg88K38u9nhIc
w11x1XkbDVSzq879iSc4UTO/P8WIBsIR34V/JRKcc9rcgeyigVqn35e4NIIr
ej12uFvQgLvDL671A8GNaqJ5WdY0qE6y/GCcT3CP0zOt0UM0sFQS7LjzmeCp
ri+MK8docKT5k82b7wSvbJfq9r5IA07+fbu19QTv6V1c5HGFBjvvNaRva6Li
56+NdfWigX6fcpR2K8Hvpsxtj/rTYOtdsaUfuwiuEzr636EgGlj0GOabsQj+
K+omv/8eDU7SwjoL2QTrKYTWGoZT+TbWF5vwCD6y+EWm/hMa9NQc8HYgBF9X
zwjZGE2DjAX/3lsPEhyn9dllTSwNam3K3FcPE1ysU2Wm8YoG91ymkrpHCGbp
dWiqJtDg06bWo15jBIsYDoooJtPg0euWsJFxqh6mgr0y6TRY/iVQf/c/gs0s
pL+KvaNBcVKQQ8AEwS4HVV8Kf6DBsYikiZhJgkMc1vlN59Egr6pRNGqK4MyT
2+zHMA2Of1sUcnGa4FqXffrkC1Wf8bjba2YIHrt0VIldQoNG4eSxMorlvd3+
tf+gAf3tizrjWYL/8/f70/CLyufT/BUvKba9G5pdXUODKzq3eW0U+4S9ePjj
Dw3a1LqXUu+bODYyw624iQYORdM/Jiguiv28N7+Nytemvqee4u43Vatzumgg
YfnI7THFc9M6xNJ6aXBz+yXXjRRr5Axy3nBpYPTrT1s2FY9JvmBpLKGBUMGW
LwyKnYulX0cO02DX8FZFayqf4B+q/mHjNGh3ed7jQeWbXr3O8e4kDRTNNqpd
ofSobtgG/rM0GCkUbDlI6TXSvk/FW0gIVBYqiSlTejLZR6cuzRMCTmleRgGl
92bi1ugiJgSShnrV26h6eE2HRjgsEIJtso0BnCGCnwvHXTwoJwTGVdtVJKn6
FoplWlgoCcEeTbWNC6j6CytWSxouFYKJTdtJQR/Baqqd/XrqQuBdWRTuRPln
p8ZQmc5KIbhfavilv4fgextlAtW1hcBlWutrdDvBqfpLnBZvEoIU69pnX1sI
rjRcv11hixCs2D42/1cjwbL7LWZFtwvB5xmfhJu1BG885NgitEMI1lcqdmhV
EXzgqHvelIkQnNJ+9jG3nOBo17DLfAvqfotlD1z8RnCBR5xVr7UQlK7VWR5X
RHC7d6Z2+yEq/vpHsekFBC+7V02qHIVgZ0VRhmsOwSkJMqey3YVg/x6jTI9X
BPv/xtuELlPx2u+0NIih/EA7p7TPUwiO7LA7yIkkWNS2pKL/phDEqifFfw8m
+ATdS2fZIyFQ/hAzU+NBsL7eCrp7pBBYMqtcPc9T+ZyuY+NnQlC9Wv/azGmC
vxStjT78WgjKF0xdeWxL8GKPHtrD90Lws/PbBAMIHo8La27PE4LzrAPSTzdT
8+IXytEqFIKqhD+CU2sJ9l4RdbqsVAjSdaTD96lS86N5T6VgoxCs3VvpYyZA
cPj2D8/OTwnBYocpgTvv+fjseafLBQLCUHzTeUNVCh8bPJPZJz5HGAr6r3WO
vOTjwTFn4QQJYZAKMW6uesDHexJVz7apCMNTlyMhXU58LCJ9d/OebcKg615c
cV6Mj9v0N8tEGwnDsQ9P7G/N8nDOmR4uZ5cwVDs3bLg8zMNOxSjmloUwfDZ7
1j3UyMNFl0fm5B8ThljBdo5pAg97tdrVrAwQhq/xmQ9D9Xh4ZIf+M6c7wpB0
fbHGFy0eds5QPhkTLAzv2T81axfz8GH/pgmZx8Ig66r7MVyYh//TPLhk4g11
/svsnNCyfvzvkqVb6Xdh+OA0fO+2eT/2kDClO0nMAa3V1dl9hlzM99BseC49
Bwz+CbI1tbn4RPv8l/WMOTD4c6DATJWLrbNKN5qpzIE4y8FEnek+rHPQ+Ij2
mjmQ1bI883kW9fx/tS1FcN8c4GoaxbYp9mE3vc2mz8PnwKdt63+9q2FjAZdw
3wdP5sBuifaeIszGwTEDWdej50BRSMjQhyQ2TqS9VT72ag4cWdi/xe4mG3eW
KvDV380Bu6XbsoPWsbGl1WRIRs0c6H1x4IvX7V680aWgrlhmLnCELQdPa7Dw
RIyhIzdkLiQ9nNy4TL0Lbx3XD1v3aC6oe+g0vRPrwn57NhVdjpwLoyNuhWsG
OrHI9IolwnFzIds670f3h07MOETvVM6aCy4mZw7v3dWJ18o2Ht3zey4kPF1o
Z3CiAzsFuR7NUJgHT/WMNs5f2oYrz0c5XI6bB1of/tv34/QfrLtjyUzLCxH4
9+dy+eggxt+NdBMgej64bBgUL/QpQPEZkbqdSaKgJ+hbtFy4Hp2ZPKxZnyYK
vXsOXfyztR6tNVJRqsgShWW5Hx3crtajT/VxUx/zRMFvnomQHb8e1cwm4dAf
ovBO6dsqiT8NSHBPgdE2rihYtNJNYl42Ibu+zn2xmmLwtGK2QFCjDTGWrjpz
5K0YvD/NTetjd6KQsLvWb1PEINU7699D4S4kSuMajGSIwQmbU7bqi7uQQMdb
pTu5YrCDJPDEbLpQ/3P18uwfYjBiFPyz9EsXKlZculaCLwbOxkd0x550o4sy
imN568XBQKX7P9N1LET8rnbO3SQOkUYaClO7WOjMYH3Fvi3iMKXKNX3oyEIO
lY/f9G4Xh90mRfoXH7KQWTDj4AIrcbC2kd42PcxCS0WlP525LA6at9dHL0jv
RdWCIjcUPomDpRRJjVjAQfyUyCPmheKgV6d+9JoGB80/tHJLYLE4vKwwVzPQ
5yDI3DMy8lMcSnT33Pc+wUGpjo9OVLaIA9n6be+L9xx098sS08BZcajvuKN8
25LaP93Slx01kICOqHwFwytc5LDu18DKHRLwyl+kw/c2F3m2OJQ7mkrAAo6e
3LMoLsrU8Q+o3C8BRjqB/p6fuGgxq+xv0nEJCIxRtPk2w0VTxgdaHAMkwGDD
x4Gb3v0oW+TC68rvEqCgr1ugdoyHWF5+vIJyCbjEarxxx5WH5AcfbEipkoD6
h0GNVZ485NWQXHS7QQLSQ7MXiIXzkGEiq9WAIwHktNIptS88VG16SC5bRBK6
RWXKxpSo/XLhqSMvxSXBu3buuWA1Ptq44XJ8qJQkBF4zHRJZx0dRyuHaLvKS
8OzVCc/XRnx0lFe+V11DEnp0fC/cOMdHA8HbgiJ3SIJi9vC77PfUflrI/Feg
qSQcqbs85VHIR5aXjzA99krCDsukUMXvfPTB3vOVhY0kWB5ovSnSyEe+a7ML
xU5KguAD8spngo/SX32ZN3FGEjrkX3jsoxHUKV+9h+1CXS9yxnquKEHGgqS5
2EMS6AeiljAVCJKs1vjnHSAJX/5tWFauQxAYbwLnO5LwNe1xdJoeQe65RoGH
giWpefWu78J2guriHBmbIiQhI4jBf2FO0LML0esG4iXhRWpyR9hpgip6E6+0
vpWEm6932dx0JUjA9iP+mSIJMU533awuEXTcsG7322xJqEx77v38OkGrGFJn
HL9KwlByo92XRwQtSMtLjv8uCd+Smms1nxI0sfMkYZdLgvjfzhMusQSVehVc
dK2ThIqYLcW3EwlKY555n9koCVkPFvgfTSMoIp0xMdoqCV20yR2Md9T9up19
vXolIW+8+JtUPkGmPvJFmCsJJpMXLh/4TNB6+WJhoQFJCAj9Ief1lYrXTOnO
7b+S8KDhl6xNOZVf1vfwiPl0aHF5FXC4iSD/3Zf+NEjQIXL+oO6NVoKcexcr
LpShwyefkjz/DoL+U7oS81KRDuZdwQsX9hKkmr20k6VCB1355eOZHIJE9v5a
prmUDmkfH4Qt66f0vKGWmL6SDgVXBoWeDhCUr1zdP7yGDvOW/qmNGSLoVY73
mk0b6CBw0MXu+ghBd81XuF/bTIcF9o+e6o1R9emrfZevR4c36fvv144TdND/
+rjANjpY0xrX/v97KKis+s/QiA6z22/4P54gSP3DH6/AXXR4FfcroGiSqr/F
TVy2mw7Kd1w2fp8iaJSrRZO0oEPI6w1hSdMENd9qNNxnTYc/PYsjT88Q9GVR
QGD4IToEXzlsIjRLUOLHdWV/jtBBvkYn/grFoftbxJWO0cEuVfPtd4qv8IL2
HjlJByeRVqsxiu0DN4S9OEsHvGxh0gzFxqrttd2udMi715rQSfHqvLtyGhfp
4EE32BtHsazVpkNnr9Ah83PIc32KJ/md0aledAic1nv8joqnMyi4bfA6HTqP
durOo/j7kv+W6NyiQ3mVUaAOFX/6p57jV27TIeqC1XVE5ffYOvRN3n06/EjT
UFtO5e8zoNc3E0qHpjUC11iUXk532KsMIqjrm428b/4lyGxZuOutKDo8brm3
borSW7sAZZY+p+r7KPSJ+ShBige4I2Iv6bDthe6768MECQ5FbNr7hg7ZdQ8D
7g0SxL5rcC0siQ6voV76IiEoB0fOyr+jg2RTuW1dH+Wvg0YGth/osJeZr7qP
TflreMA/5hMdkh/JJL7pIchCfaeo2lc62Oqtk2a3EaT7edjs9Hc6uLzxG6tq
Jmjx4ZgHyeV0yKozTn7cQBAJHpPVrqPD4XW0JznVBPUPqBStbqRD0PZI1b2/
COqz2OGq0UoH+/02a0t/ENTNfPJ9IYsO3FY77uFighqf6/qIjNFhdc0/EKX6
p17AcaXQBB0OVO63fUP112/HO/XT01S8NzWUlycRdOrhuch/NClgrPrvadEL
ghxtCob5olIgv+uBUsB9go4GWZj0i0vBuLVHq0YQQQ4fWbEcSSlQzuM5J98g
yE6JvqdbRgq2dx+jWV8m6ECbfUKDohS0w/w0bXuCdp8UtCvWlIJnGfPcVFZQ
9XjyKOvzKilYNFmeV6lKkMn3FaJYSwpGZpw3HVckaOdKi/cf10sBszunVUuM
IAMSJ532nxR8WJhatJ/LR5svG36LNJGCDj1LXmc8H21KqFd+bCYFc4Mz/yVF
U/O7wflC+B4pyPqdnGv9kI+0tzxa/MBCChqZt3z3Xecjrdmea/6HpOB6W75K
ywE+WhoYuMb1jBSITjYetxLmI/e6DT6OzlKQUeV/0+MfDxUu7/xp5SIFLa2X
F3vyeehIsd4ZPXcp2BSqNKtVz0NRgkOv5l+TglsN568ZJPKQjJet4qvbUmBn
bq24ZBcP0dzWzWlIkAKf77+nme79aF9h6/6fiVT8KEOj4Fg/iqXfi8PJUiBg
kb7fxKofbU1lodfpUlAXvLpDenM/usZ9eu3CBynY6Gty1H6Ki4ac5g5IlEqB
TWb0DYHrXNR5qKnRoFcKHvlCdfGFPiSub/PGgSMFii/Kc9849CGdRTUXfLhS
sPxklcK53X0oqKtMPJdIwV0x39AYtT60xjl367q/UvD0xoWy+D8c5OUdGbdo
vjTcME3pMdnAQYxYmzNTmtLgJlZ/Iqq+F+3sqfmX7SIN80Xk7Uqru5H3ymDP
tPPSMKJ5pKkwtxtluu2cTnCXhr6kV8vi47qR0swngWgPafCds8NjnXs34jNf
z7vhIw0lP7KSD0t1o/CdVxh7gqXh186mw2K7ulB7kvI6Voo0aEccMLyZ3IGu
uDudYvKkoYG1zPD3jWa0J+epCdNDBoy+vT+UmFGK+FNnvITGZGANe0Zs481k
/OKP3zuXCwugvcl/keNINZ44pe9wdXIBHAzldaet7MAmeZpwaXoB/IgRCzpv
3IGfSsgvdptdAMmt71YuPtqB9TKH2k4JyUJMRYaYWUQH9pl8Y39ATBa+++3Y
XzPbgYWCZew3KcnC85D5R2//6sTiWb12o//JgoxPomqnQze2nfNbf1BPFgyi
jUz2Xe3GKTZFC3lbZSGNk7Y7ObQb75mKbuk2kIWHepq3lhd14xAjC7taE1nY
tDVGecmSHixb/8k265AsOI242q9p7cELp0MPu12TheKyG6ITRr14Z+fuj4+9
ZKFTjrYryK4XXyyZL1fgIwvti0YDJy/24rJQv2rRm7LAWzYcFfKyF3uoue16
dVcWtIQPqrnP9uLKveab/kTLQlN+0JfJDDa+ESe5QB/Lgu17c5PLgn04JbDs
/LHPsnDKeCbgAqMP1zsHVNz+IguNtwVi963ow1qbZm7XlciCwz0LsSzzPtz0
gydwvlIWpJoFd4s878MbRn/y4zpkYe7TLYs467mYteNumYgwA75ax10cMOzH
jqYOi5fPZQCSianLsuzHLXt0PLaJMOBiz0CizfF+XGvVpnpNnAGh4qJOcLMf
Fx3TvsqVZcDxg3MhHPfjZ75N6hXLGaBScUhi03oelr+Z7t2nzoCg58Pv/yEe
Dg+4VTNXkwEvC+ornu7m4Tv31/giLQZ4TxFhn1M8fOXpzbr0jQwYn1Ud+hDN
w5bvV956uIMBv59s2jE1w8OVuQJNabsY4LLJi50qysemBb/X/jRlgIjFLllg
UvvZr77NwuYMuGqlWD+9io/X1tRoexxgQJmcTEbPAT4WJ56dB04zgJXqoG6b
yMdBQ+abL51lADNx+8fBLD4WGlseHHqOAbnRKxWc8vl4YuqXbpkbAxK3MxV6
fvExW3RZ6JZrDLhyWmhq5zAff1H7iVTuMmBD4uGOx9oEmwS3mTDvM0A2RVgm
8D+CK0eHrCQfMOCXavaMzTaCW4sVnGfCGFBi2jL4fA/Bfx1PPmmNYsCNM8H3
C08S7FN27WVdNAM2RXG4n84RPGd9cGrFcwYIZCXWRl0gWEYwu7ggjgGjFfla
kz4Er4qhDT5PZABc1T23O5zgzLnMqYhkBlhunhdgFUmwrsuKeQ9SGfDx6sTM
1ucEG+ubL/TNZICt+/GZ7DcEl786pnH5HQN2dqd6bk8m2FL8srZrDgOw9Tfj
zHSCjzY922Wfy4CMapNs7Y8Esw0yLG0+MWA4/Kr5/79PuiQW2+8tYMCuqr8a
/30m2Osq9xIqYkDOVNaNr6UER8jpxi0qY0CkqPalM3UEK/uapcj9ZIDwgGZE
QAPBL1n2H+gVDFjFlGm42UxwenZAxWwVA+rP6XxU7SR408KohvEaym9yAvuK
ugku8E/pJr8ZkD5eN7u9l+Af+2sn2hooPTA9so9LsEVe75z6Jgb0fSM+dD7B
9UsmpSpbGGBgXO/OGCDY/o6kcmkbA9y217hPDRLMGlRVL+xggPsXEe/iYYKd
D+qs/9DFgCc/Cx6cGyV4uHCnfnoPAzafOvh2fIzgaxq2OxN6GfDfq0Oljn8J
Fghx3R/LYcCtcEdu6j+CA8ZvHHnCZYC95Rrp5gmCJewjTofwGBA179nmvkmC
w7+9vRhEKH2a4h0apghW1Mr3vT5I5SviGPR2muAXjyrvXBmmjlfPSzs0Q7DG
dNej86MMMLvNremnOPX4eOypcQY8uO07Zj9LsM5P0WSHfwwg+pbMdxR/0lZ5
f2CS6mcVeW0OxQZP1xWZTzPgReZjs1mKv9OMynfOMsAvON+Rel/E5mcO1IMg
E9qswi5VUFxXdbZrsxATEnP1bgVSbKfry187hwlq3oJhqv//nhkb9k9jHhPi
zm6PjqbiOSPyWlh1PhNUHG+++kvF/4MWdH+7GBOs87orl1K8avo084QEE9ae
1byjSeUbPG4aE0Rngpnn+SpxSg8yuFojSZoJR7ym3pRR+pn30zPKFzAh01+f
fpzSN5M1qDvAYEKw1k+RBkr/BR01RTLyTDgWcSZiBVWfi03ZpjqKTPh2QDjX
iqrf79+Pa22UmWAYknrJjqrvxsqrdtdUmCBU8+YHEKrfivVd8RLq+Op95lF9
BB/Ei/52LGMC88tufyk2wbkfBf2E1ZlQcGi9nWMPwd6pX8N2rWSC/j5Z0cg2
qn8T3ig5r2bCePjbbm/Kr/Dy9qvgNUwojrZ220r5mfZkd06NNhNsevlpFtUE
Hwtbg8Z0mHBo+tPp1xUEF9+TLpXfzITRi6d6fpdRfvH73WCnx4Tmh13apUUE
93q+d7y+lQkC59rpdwsI3ukRyY0DJkwIMApX5BIsdtZuuteQ0h+MMiao/gyx
7FnsvpsJLBLnzI0meHBPydvwvUzoxQt97z+m+mHX2/Xv9zFBrkQ/TCyMYMbW
c4ZTVkzYGZNe8zSA4Cj10ZMBR5jwRW+1t4QLwZOqfwYSHJiwQ9tndwg1j2yV
P1794Ujlk7fEijgQvEja+67USSY4pH3VMNhP8KsJ4bQoVyZ8HB0p2LKRmlej
rE35bky4/sRY7YUWwSdIaWHbBSp+tx9zutQIXtF9r3rZFSY8s+0wn2JSfi6X
HUu9zgTdyo3yAaN8/D52mf6XUOr8o+7jM0l8vGzW0PPzQybsnZuiUR/HxyF2
Th/xIyZQT4L+sEg+PqX4WudTJBMuXv9qkRLAx4rh6lrZL5hwIDfquYc9H3sF
ai56k8GEhW2rO4+JUfO7x8QuPosJTZMPag8J8LGV4dmnL7OZYHpiy6T2KA9r
CSbLxX5kgl1VvfT9Vh5uu7ZaKvIzE2YF779oSuNhA5e1gnermNCvuDJixIyH
U3+ao9s1TNiv6kO9RfCw0ko378DflJ+T6Y1MbR4e6c34d7OBCdyb8Spf5Xk4
/qj2kFcHE3xj2btLOvuxiNXGLpdByp+jE8tc3PpxxRa9rxbSckC6WH6JV7n4
zodLk8YL5OBkWu+tiNNcvEMnbd0WhhxIHiy0P3WQiwu1ljxfqiAHc6Lrq/M3
c3GWqsjlkcVycAStPbdurA8/mVerEbFWDowsvl/e5dyHj9WcvdewVw4M154S
zTTi4MXm8UXl++RA6GLtgyvrObj5Z+vfz/vlQIB+QkR9EYd6DOxzSrSRgzd1
Vcp6f9l458dNWz3t5cB6V3bzzrdsrBUjNKDsKgdFekoW03PZ+O+Zp/sdguWg
xibz9OEMFn5w7eU83xA5mHvF3Pt4JAur3UnKexYmB61L2ldZ+rGw1du8pU0R
cjCWxPjZa87Cmb1Nw1YxckArrZ3bxe/BzseVw03T5eCntfjbbWo9uN3uWe3G
ajkY3BAlfvJmFy41j7GSYMqDa1L8wi+TbdhRV+/Nm3B5cCjKfIPcqvBpXvlo
c4Q8wO4E0c2rq/D5F/aGMpHycNhByVuJU4l959/s8HomDy0v3zW/cqjE0Q3f
lSxey4Nwo/P2R88qcN1Vm5Cp9/Igt1uu0npvGTbJdb+6r0kePjkof1SJ/oz3
uQiXBrTIwxfBbC95qc/4wJII5qc2edg9a3ph+mYhPnnnY5Zatzy8WOizS+5P
AfanTDfZLw8LcHvk4wu5uGDivuPrGXl4Yi2m3fk6A39NXZTRJKAAiWJnI5vv
peOfjhmzUkIK4PvodvytnlTcVFYb7TlPAdY2rdZL90rEf6OU/phLKUBKyYkL
j9++wLN7UpYHyCjApcvxJ1ZwnuO5QuhinqwCGNtVbJrxicKyZx2l1RQUoBHp
W5klhmKlRSP2h5UU4MpBdlms7x28pOZWashCBShJe/EsKNEPawbKTX9dpACG
hhoV2YlueN2Wt6aTqgowtfb+//+/W/A/mI1IOA==
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVWnk4VV8XNlyza7i411DGSsmQqFS0dhOKqBTKmKR+UlSGiihlSBJCUSJD
NJChENWupBASMs/zdO/JPPOd76/7vM/ZZ+213vddZ991nqPg4Hr0DAcbG1sY
Jxvb/385MX9Vz5Zbu/6sFnn/tzp219qhzztlH9rBCWcvHpNML5jP0nBsinQF
xT05nmyZQdAnfm42L9IPMjZwjPhmPIJm/TvfUiMfgNLpx0q1r9Pgr12kcnxk
AnSuNuo6kpoPR12kmh9HvgXXZHupi/d+QsS4dW5MJIZ3WSdXHq5pgPsScbpf
qF/AXjE2cPOdBqjJDpDbcvQLKEwcvhPV0wBWw9Z9si1fyHySqAnPG+GilcCl
8dGvEJ6pkZIr3QxReueCY0W+w5bHehd42Nqgg10xf8CiFP76WBReMuyCNc+o
cdZPSyHLMlUj4koXnNsx5/OnsxQ4bxwsuP2sC8YvV+8p+q8MGBfqDnROdAGl
17cqzLsc5If2Xjn/tBtUfrT0bUmoAKXld4/P9/bAzpKD/HuuVIOXdMjWnYf6
QaTuxe9tD6sBFbba3Hbth95ujmi13GqoaY1QiY3ohzC2IjmpiWoYtIv2V/3b
D907N275d/kPNLTJjwydGIDgHAH7Z5drwLXYlup3YhBsvp5dGxVZA8opW974
Xh2EzdXFw3dzaqDztLKdwaNBaGV6e3iM18Bx4+vMzXWDoLFhNMT4ci2UPCd2
njcagvqEivfzl+rgS9tevE5jGF5nrvf+F1EH0Vjg8OODw3Dz0x3Un10HYwm1
7VVnhmFDi+6vP2N1IDAXyxHyZBh86Bmd6Zf+gufx3L+alBFQun9fwOJSPaTy
b1gQLx+B2SdD1cYR9cC+9thYYdcIVLzaH7Mnux6s9IvMFOdGwLN0SV59rB54
KzLvaSuPQjnnxa1clxqg10JD9dTNUXC7bnIq160R7oltW5O1jgkHL+qm84Y3
wq7Tza4T25mg5KBC2LxthKBYv7czxkyoP8B9g5fVCFGyu8/uucwEPanPj23O
N4FGa6JN6wcm0KlvOnJCmoC9P35Y8RcT/rHFreN91QSS/uc3b2hlQsqgx7uc
wSaoq1tl777EBP4CtWoep2aYHao4wq7Hgt7XMgybgGYQonj/3m3Mgs8JfLY5
Kc1wcsl1DFmx4FJQ34h1TzPIthx7fv0qCxrN43ly7FsgfV7gYONbFuQcvGfC
c7MF4u9L+fF/YsG9XdeirRNawEpW8cx8GQt2rTuuxNPeAsHDon9pPSxInRIE
a6tWuL/z8EklGgG+Q/MB2ddbgZjU3IBWE2DZNljBHdcKghW3m6TWEyBY8v1k
dmMrXK84d4tTj4D+gpzn3LOtMCbdYSRmQAB+kzhoxWiDL5tD4zsOE3A5yseT
27wNmkvD/TNOE2Ac7PzJyqMNXMstmJkuBKzzsaRkR7WB+4R2mIsHAU2ntSOt
atuAQ8VSeVUgAUhrNCPrcDscS7D5dTCFAGnl5kkut3aIiR2f3viagAnp0p1W
D9rBR+zPn9JsAl5wpJRxVbVDeAnLestnAm5OR4hYMdtBetJ+nPKdgJPDfhZZ
gh1QWerPHl5GALXGqu+kUQdEP4qyaawl6yk5oJrl3AEXRc2johsJ+PJh2xWu
kA6otXeWFGojIC5jbeHJlx3gFq3aubuLAPfnYuxZpR3wgCu0e1MfASbR7IZc
gx3w4pQgo2WQgKjvXgYZnJ2Q/KPEA42S+XxmDVuIdcJileOMPUHAhYIzYRxK
neCTpBKtO06A+oEj8uzanTBrPW/IO0XAvybdnJV9nXDmuG27/wwBOc7r9y0f
7wT9zwKmb+bI/RfE6hedOqH4W0D0nQUCtoaunF3w6oSEqNUZAksEzKwamZsL
7gTJq+MRu5cJKMiovzcb2wkfK8fQuhUCru/6tnrmVSfoSjfkfyCx7u+Mt1NF
nbBeUHVqgcRLdrG7Jys6Ic3PcHaUxJ//3akdb+uENTePfg0l8c1bbmfGWJ0w
ZLDrSAsZfw/NeoZY6YQ8vaqXjeT+nMkGd1kiXWD0L7LyziIB37W0ZJgKXdAt
PII75gkI/C6bMbK5C5LOcAYMzRJgeJwfhvd2AW9ZvULSNAF8/VPVg8e6YK+Y
+lO+SQLKPbscBs50gb9I4rzcGAGhPJWTfZ5dsNM1Yl8fk+T/cUFgb1AXuGRo
+58YJkBkQ4pkz+MuKOEM+ejTT8DDg966nYVdIDNtalpN6nmsxamq/VcXaP75
/omtiQC6y1H7ttYu+Mw/eayT9EPc/Q13mpfJ/JWtN2eUEmAtK0FvEu6GwTaO
6LhvBKx+y5beIN8NAkfhxLaPBCRWN/yq29MNFhoKhn6ZBDicKrapNesGmm9s
tEoaAUrjmcQfx24QXTIOCUgg/SoWKPY7sBvMBavzDz4g4FzKpdTKR93QRa2R
ek/6X2WLzbaK9G5I+3DF4/cNAjLMta3KyruhrCfPXfw8ARcH5Jg/W7qBp77H
AE4RsOmqgN+P0W6I6vpxRdqCgHex3UnFQj3APeOl172bgMLW8OFPR3tA0lz+
SaEYAT4XfHw+nu6BllYhzfM8BOgtnxUqcu+BoO58zsp5FnyRg80FMT0g7Snb
mdLJgp8OzGs5zT2w+q+k8st0FtQNHuBLc+gFfZV27jUqLCBi1++/fbkXhMc3
/5KXZgG/Ec8tO/9eaHLdz9HCxwKU8X2WkdQLPm6yJ4IHmfD6EgwGd/UC/za+
T+VJTPCf1/7pbN8H0k0m9SICTIh/LcZp4NYHTyrudU9Pj0KB9fgupZt9sLAZ
9T3tHgXm57d5LQl9UM72yH/Dh1GwvK3ywrijD3699d148PQoaAjKB6jb9sPe
88tXal+PwMFPy1/4L/ZD8xZuzd8PR8DxYtti/41+8NnyYeq+9wjEVce5J8T3
A7vzugvHD44Ad7SEo0gbeU6uuU+j9Q1D62qBveNWA/B0j27bFeFhCNGYZssj
z8lVKkpyt7YPwnWvAxv7nQdBe0NoYhZjEP7DT4/TfQah5u66h8+nBsDQdO8r
z2eDEHTYVL0sawB4XMPNtvUMwtwNLZHtawbgTqbKiwKXIfgzVbx2dKUPfNXs
jIr8hsnn7PG6vfd74NLG0ugvqaPw5evcHwO1Vug903szMW8UFgODz+jWtIB5
IpvLzZ+joGIkbzni2QI7JLbvQUOj4P0JmN64GThWXrKwKhNOJGqz3TrUBJE1
9wxwLnmOjVDX9dvUQ84107lPX1nA2GnwM9q8GuZPn89su/gPuKxzGL39meDw
yfxwuNM4pLhaPpF0rcWb8yRpUq7jcO6rwIfI6lrM8ba59rnXOHCyW0o3a9bh
pERbi9zgccjKHyqumKjD3bedbOtfjYNNVEH0Oo967HDQ02UVMQ5nl4pl/7o0
YYeG6OB0rwlQ737tF7ChA2+utjioeXMC+rTb66r9OzBHmZRgYfAEWJxtuf6r
pQMnFcY/+BU7ARuun4g+o9+Ju+NTY1hFE2AmvS37wlQndnB8n6LNNgk/vj1V
2GXUjU+P1X35EjwJY79VJ0ZqerH99XCLgvBJSCm9eF9+phdbcxqz3j6ehNaw
DNt1Mn3YXKJYJiF9EuL+LjumOPRhw+3ZnjdKJyHTRPHwKaIPq9+6r7qDdwpo
QdY+cSv9WIX/QLGmyBQoCDV9+yQ/gJUfUk5ukJyCLr8Bl4zdA1g+1TtIcv0U
iO3U+PHPfwCLlf3XPW0wBemV9MQVjkE8K6L/ODdoCnziLQTY5gbxZCy7xusH
UxDP2y9ZSh/CY4qfSpIeTcH+kzkbLLWH8LC29kRE2hTcUko89PviEG6zVDRx
+zkFnXypgbSuIfwtcZlTjWcass6HJbwvHMahm/JdXwROwzE7a6dqNIrLNzf0
e4RNw7cjdN5c81HMu2XGZn/MNJRsMuyxdBnFd7ZvM+5NnYaplq5QZswo9t6T
v16xZBqu6Oz6sGVoFDsfy++K55yBFgP9ezL+TJxu3mB5QWAGArfMKKyOYuJ+
y5nfumIz0PjT8UBHKhOfstn2uUVxBm7uSMtJKWViS6f8OKk9MxDwgbdfQ4CF
Da7mm0XfnAGd8dZDG+6w8J3rDeWOwTPgqRS3RymShb/5zOzWDp+BfFejtJYE
Ft51a9um2oQZOHHA0SiokIW3huQLiuIZGCrePfRjlIXdQxtud/6YgR+NT/Zl
z7JwTtjM/NuqGQg+PKd1gkJgtYfbhkzaZ8DJ3/R8lzSB1zzNLwldmgHBlsTk
6n0EdnjWoGvNNQveNGeOVBMCJybO5G6kzgJS6tLdakngVanbkspXkddPmU+E
ORP4ZJqFVNyaWWgdWTAwv0Lgxy+9wv9TnYXfNs82NHsTWCwz35dXdxb6vtoa
MUIJfDirYaph7yyY7Xl5rvohgcNyZlzSjGbhiejByv1PCMyfv81K32oWuMzX
qJ15SWDDDxY1EqdnoWSLOL9wFoEDi7wO9DnPQtT1n2PueQTm+JK/7c71WThv
rfza/RuBX1FpL5b8ZyG6xUY2oJTAR61cxL3uzQJnzHqz/VUEnk//4f/v4Sz8
TObY+b6WwMnT8mP/PZ0FlybN0rpGAhvv87brSZmF1OEfzOQ2Ak9G/K20zpgF
Zkh8gmI3gfephbwy/TwLwQse3urDBB693itZ9mMWsnYqRxQxCRxVuitoz+9Z
aF99jX/2H4F16bFTRQ2zoD8LHT0TBO47PXF6S+cslBbK8PpNk/VnH6rJHCTj
sV/1LZsl8NaVNLR+bBbC1obqFs8TuN2Y4+3zuVmwN7LSc1kk64+zXi3DMQex
ru98vi8RWH0w714U/xz4Xto882uZwPVbROepYnMQKaP7yn+FwL63z58LkpkD
RRVK1CCJlf+U1LOtmYO/pndzl0hcLSu//7rqHGjrxPB+I/FVl+u5E9pzsCn4
68MtJJYvrFO4oDcHL1svmFuS8Ut5NML798/B8I+yoyrk/m7H7y7bmcyBys/f
914vEFgyucelyXwOuPbrc7XOEfjLP72Wo3ZzMBOAi4tmCPzfrscHKs7OQcXz
2IqDUwSmhY7n73ebAxmP5bV3xwlc2GS8Dl+dg8yInnpPgvSjclqUzq05mFLl
HxAbJf3hwc6Zc3cOLgmu2NoPEjjnm9WljZHk/W7Shta9pB9F8jpS4ubgz7zf
G55O0h+2IiayyXNQ9Fj2kUMLgV+/dv746PUcvD2dJXahnsDH5r6riL6bg+iA
QnXlPwRe1JeLDfk4B78l70+F/yL90F3rcaNyDlx7vuIrmPSDhnrv9N85OF/2
oWu0gMBPbwQfdWufg+xNqaMSOQRmSuppnCZIPnZpcV5NJvU1fTFoKDoPRRo2
hr7+pL7xbBbfpOZBnSf269VrpL7DJ0t2Ks7Dtm2LxUpuBNYIFE5S15qHN4pQ
fM+a1OfjVSvx4/MgRclwe6FJ6sNfW3bfZh5UVZ6MK68j9bFU0+FxmoeoXr7q
k2Q/u010ic97zoP5WRuJv+wEFlUxqup4PA/X5Rp15SpZuJ8nQbQ0cR64cfR2
+S8sXNg3fiwrfR7+22X0rC2HhR2fx7XcLJiH3VfLxMMesXCB5PCgQuM8zG1M
5y+zYWFbnrucjowFuJ2T8ry4jYm1+lr1jeUWoPyOGn9cBRPzFm8K0VZegFj+
hTH1IibO8W0U4dq2AII50k1Rj5iYa1pZ9oX5Aqh1FlseP8TEb3p/6AxGL4Do
D+l7lW9G8a1v0j7V8QsQfcWAlvBoFJsnXsQFqQvAe24Aa/qPYjZruv7d9wvg
NOhm9IR8fpvVnjFT+bsAr7z2utxZHMHzXykXXcQXIW28v6FZdwQbJuxJ/he5
CJp2cV/FIoZwUGl1m/+TRTiv/Nac6/IQ/jFmKymRsgj8rx9qvT86hPfv876/
/f0ieHJP8h4RG8J7hnK9/BsW4aLdPyX/iEGsq7XWWHzVEtjmBBuKk+fZpp88
U9tSlyDwBvWu89Y+7PovWqM8YwkeuYxJVQn34UypNc7WeUug8kpk/8JgL1Zz
QR03fy7Bbd3khdy4Xqwieq2sbGgJnCb/cL5a6MFrrIbjrdSXIXwgkY/zXTdm
EBX6fvnLoN+UHmXB3okfR+BTQ3gZ1O+YljNed2BJ7Rwfs9JlKLOxfKRpRuJr
j3KUm5ZhNM9HwSepHUtzOshWzy/DGbl0sQC9NizLmJmS37UCagG3izY4NeN1
oJD67fsK/G3/mrwQVIfjfhayc/7HhirP9B/gv/0F667evSLvyI5OSAo29+tW
gaF13WWHc+xo04JNtB7nbzj25Gx/sgs7UhNgHdtf9hvOS4VVrvNgR5WHpNk2
vaqGOImWJ6qB7Oj1pS/B+7VqYJbqoaOTzo4C+0ve3NL9C++W0y+ZjrKjKY8T
jwLWtMAXPd2+8H/s6Pvd1xVd5Fxf4fPbsmaSHdmra0zPtLZAz/wUHF9iR53s
jj4mUa1Am9kjZCXEgVbf/dgSstIGbkTrK6dNHOjJH8fvRac7YWOnSO8Ndw50
e9qk2k+gB0wG5L95XuVAcgeePi/Q7AE31qZEVx8O5CB/v/WHRQ+8WzxsfeoO
B6JNzek5JPeArlRE3b4oDiQcfirknk4vGB8VLRF4x4E0hRqd7E/2gct30Rex
ExyIUHi4ZujaAIT9UrgTOcOBdGwSVbTiBiCrRtPh3gIHcvniW2NYOACTnUdk
b3ByIluz0yN/5wbAZykixl6MEz3x/S/a1XMQQrfSgpS1ONG6HZMsxzNDkJFO
O/f+Mie6uIZLLFJyBO78xbs5vTjROTPjhkGtEbDmuCBzxJsTZZhXf5o1GQF+
659Vo7c50WEbw8Y9d0bASdhny5poTvRV+VPh1ZERkPfs43iYz4m2iTyw0Xwz
CjNJka2dRZxIK365dv7bKFT9hjz1L5zoRpyAzbWmUbixIe6/8lJOtEPN6lMU
FxOaW02q2Zs5UX/KUd9dJ5kQtbcg3m2RE1mv4SxVn2LCebczXp/ZKIhWGp+o
wcOCPfG0I4JcFJQ3qgfdkiwYm3ahpFMpaL6PoFvvZIHJK4XzHbIUJN0WYhHv
w4K1DVX71JQoqEJns79yKAsWOX1kvZUpqOn0NUmHJyx4bVP/h76JgpqbuYYH
CljAK3pPx2Q3BSED9yXNfyzo0NOhPd1PQbynqqx2LrEgz7lvZOgABS0NaK1M
8BFw5jskBByloM17HSMuK5Lz/9jo1VpzCkq/b4d01AkQl407qmBFQcsNP9+9
2U7AN69Jrk+nKUi06bjXc1MCYlOed/Cfo6CUZsNQhZMEuP0x+WDpQkEF3Psm
TR0JkNv40mXSnYKYy8LH8r3IebPdpnZjIBl/c21iRhwBkwZ68WdCKIjh6G52
LYkAl+xVZxPCKMi3Yyh66iUBVnda5mmPSL5ih/xW8gmoYRZ+N35CQYHyWpT7
nwk4aBEXFphAQZVNv/+Ufydgh8oJxfk0CnJQkRawqCYg56HOqNYbCjp1ovRE
6l9ynl5i5F3IoiB+rV/5yc0EJDnN+KW9o6DZR48lj3YQIF1df6CrgIIs9ru6
ZfUQELk9T0zmExlv3Pzd5wEC+JOj2459paCp8/LNPiME+At6pIWVUJBM5pnG
YRYBcx7HLpWWUVDGwt0XvOMkHx1aOzmqKGhk4oNu/SQBg4ZiXLo1FKT2YuSh
2QwB9jnjVR71FBSQ3J56c46ARpmax2+bKeia0KoLNgsEHA7IdhhqJ/lMn+4d
WiSglBWuqtRDQa3tIXzrlglAlm7T1gMUtKHmc4PoCgEFX02/xIxQkK39nkMZ
JN60USOkmqAg7w0Pzs2SOD1K6Bj/JAU9eTi4foLE8svM1ftmKaiqwiosnsSP
zlYO3FikoMlyHDtDxhf68yY7n40LJR94b8xO4sAdod5jFC4k9uPFy0Iyn+Xk
8/s38nEh/muluUpkvp5UI+EzVC7020TSVZesh+Wp0vRMlAuptNl0Ush6nTr5
khsluJCVhQr1BslH+4EhF5o0F1K+2biQMkaAeW7pVmNZLtQeG5rrQ/JZtSqd
LVCRC104pq1LIfnWDwwqx+u40NUPgc92knpsOaFvq6XBhSp6p+iF7QS8+bZ2
/QUtLiSSdXEPO6nvGlWu8RfbuNDq+QOXZ+tIP68UB0gjLrRWzZ82U0ZA6Llk
02P7uFB27a1ny8UEUGr8pcIMuVCp+ganvE+kP1N2Z7Af4ULf6g8Pbs0i/Smk
4LXzOBcK3Jv3fSWdgF4vtt0eJ7jQddP78teeE1B7ENcNnuJC8J1IuhFB+vPd
s2eKTlzI2yZ+jPcu2T+rfc9ZO3OhhQg2kf03SX/+0138fZkL/ZkvEK++QPrz
5KoffF5cqEjp7AY5sn+Sihce7PXmQm+tfZzlyP6KjClUyr/NhTaNiDRo7Sfg
kq6O0bMoLlR1I+DAWwYBbBej/B48Jtdn7cyyESQgLOFf7s2nXOiI207dUjYC
XnG8XHU6hQs5LbM21AyyoLtUiqX8jgtFjp7a//E9C9zmPRSlCrhQhGV4kUk6
C5Y31pjzf+RCH06903wWxwKZByF4tJgLfbKWiXH3ZcGx4wvh2bVcyHk7x0uO
vWS8QIuSpAYudK/Z685NLTJeQe7cwxYu9Khwvd1HJRaEyrg4ePZwIdE9CU8v
crKgpKtVa+cEF8pcyy7/FTNh68XP9d9p3EjzTqENqDLhe4K0QB6dGx2uOxya
KcmEo388IU2aG2V26KxppzDhorZG+l1FbjT75LOeX+sopM0nXDPZzI1EzOSn
K4NHQTLo1qrGI9xIzylP88ffEZhP2OcwEs6Nfn+k0W7vGYZdM3qRmtHcyPAc
/w/RtcNwy2TbN69YbrSi5WtqwzMMvEsbFClJ3OiSf4m46q8hkDgp3L0qlxtJ
/3o1kmU6BJvEm0+Z/OVGA1Kn+J8ZD8KZYNdT2VI8SLT/efAJyX5I7zgXMbOa
B3WI3D2uNNEHo1sdvuop8qD3mi2f31X2weW+YwrlKjyonntmQMO/D27u2dHV
vZMHrUn5vTNysBfiFimnxG150ApX4bjN6x6odouz90riQcctqHv7BLpAJVxk
wf0FD7ptqaBt1NMJt98GRl9+xYOM6CZm9wo7YSvrcvmFHB7Ud+LQ3SfnOiH+
vJG24zcexPtd8adAYAc4Oy3yHOnmQdUFcRlp3a1AsbZ9q6LIi1bbZ+V3ujTA
dgPF5bbnvOj12sNJXl0/oWz/9nT0lA+9Le0Oe135A1/96avul8iHBM8M7OCK
+YnXH/j+7lMKH2ouLVJWsi3FgcamX3dk8KET7z42JjPL8D6zM83an/nQtdtl
h27xVeIv9hGCGzr5kFT+i53XY//gfO8hN9E1/Mhh+Ar3w4QG7LSkPmO6nh+F
zlTLyC83YLqf+40wVX5Uvd3A2c26Ebv7r9wV2MKPDrh7zZhLNuHNdyWSufT5
UbnumUaF+804M2b337mz/IjgTmPv+q8Np2bHbu9+zY+831Sqt7t3YecFK5XG
t/zo16s5/cSnXXjTflmZqlx+tBIpFbDzexf+2Ji0+KGIH7VhIfoirRvXrrzG
Eb/4UfuDv6JPM7sxu8nn/btH+NF5tpUqwfYebDPcfSRRRQA9irR56irTjxW1
U/fEqAsgcHyz6p1ePx68cVYrdLMAkl5ODf1p14/dRUfFr+4QQAJvzIVPJvfj
ezpTDaYHBdCL3b9vrV0/gD8E8tiu/CeAHt7RjKOvH8QSSqrOti8FUNLC9+03
VoZweOQ985cZAuhwzGFNx9XDmJ9jZM9ktgCaZojd4Nk5jNm6XsqEFAogv/Mf
2m95DOPRZ8qV738JoJnx1Ad6A8P4u7TSJipLAD2N2Lg64tMIhhD/VZbjAkjG
72u7dMMILpzr4k2eFkCiBePe1v9GcFZjYpfOigAyuSu1j1txFD+NkX3oKCKI
mqwNRZm3RrE7TXq6aLMg0i/i21WjxcTErWvd3NsEUbrHm1cfDZnYeayx6shO
QXQ2ibHFyoaJ7asfpQ3sFUTdMWZVuQFMbBwmcULsuCBKtZxxrqxh4p9L7vtt
TwiiMhpdyqyPifdcqNN8aSOI9LK3m96bYWId44f84CSIOO76PaLJsLASv+hH
Zy9BtJCWm+Bly8LPrrmlv/cWRFRztfDQiywsOfQ7iu2mICo8IJF61JeFhUrD
LsQEC6K9527Ejj1l4fkAQblvsYJIRj3DybOehT2mzgtQnwmik62cGiK9LPzP
8deMRZIgMnXbP3JijJwf94ZUM18JopfB8XmL/ASuYef1l/ooiPY4vOfx2UFg
Vkas7eEvgsg8fPV32/0E5ju5cWfQd0F0wvWn04QpgVGOyeRkhSBaaiKmNB0J
bG3bWb3xD8nXp/a3LRcI7MV/OcPhryCKuPlveKsXgTMdop2q2wRR/YbSIPa7
BC4XUt7L0y2IfhXKfnKLIHBfYYHcrn5BJEd8kI6IJfAqsdbG1yxB1Lrx2HJv
OoF18IX33eOCaE5ewFYyi5z3z69ESM0IIr9xz9jFPALfK1Y0Cloh6+c+addQ
TOAXru+UP3NS0Tu3vLLKMgJ/k9GnTPFQ0Yhl5G/33+S8/rOhc6MgFTV8/u1Q
UUfg+Sv/fXIQoaK1wgzPuiYC0+UXYmPFqej4vobF0HYCa1aEelZLUtFmbv2R
qW4Cn1uTpbFLgYq4OgdqG4cJfKd6t6DHWipa/fJc4VEWgRN8agdfb6CiI5Fa
XT5jBC5cf6akW42KInVOIYtJAtfXTT+X2kxFidf+VHdNE3j8ZrDv4a1U1BKw
MXTVHIGpatJWQTuoiPGvzYVngcDrm15v+7yLisKKZC8mLRJ4X4Ce+NQeKvp9
duQec4nA9pq//200oKKv87zFg8sE9m6zr3QwoqICXopo1AqBY+6Ov4w1paKI
wk3uBIlzttwJrDajop4/r0bmSVzVJXGax5KKtF8f98oj8dD9NNhlTUV7drUy
FElM2bF9lYc9FVmtyq7SI+PL95fPvnakoiIXoWd85P66kdZ/u89R0XL/VHAA
ma/FLla21AUqev5r08Nssp7Lw35hhy9RUUCz6df7MwQOixE9H+RBRQ8NXktK
TxH41Z5kg8/XSL4zHBLMxwlcwtJeM3WDjL9kbb2XIHBn3A82VX8q+uNmaNE5
8v/3O5ZtDoFUFHUp7rHaIIElJ4Y+xIaQegY/2LCxl8BaCd4x1WFUtFF/o3hT
B4FNjKhXeB5SUds6ndPbWgjsPPPMdNcjKuL0NlDUrydwYPImVY8nVJRkmG3D
9YfAz02/8b5JoKIfqlGKHr8I3JjW91UqnYrymuRuOf3//ZGZ17PDb6jobEKf
zmABgYXZ+LyDsqhou4ptnnQOgfUtVbWnCqjopp6SQWQygd/zXnlRXUZFQ33H
Kir9Cdzvc4v5uZKKdueUBblfJ/Mfe6Cd8YeK2IrG2uovEdin6c23u01U5Jvz
J7XKjtT7VX/7niEqkvPyqQvVIbCn7NRaTSYVqfxeE0lTJ3B6JOcFuTEq0pj2
DD+mRGABb/mFhVkqQk68GVQq2d9GJxnveYXQjjMhDIs2FqZ8OWebLCiE1CqV
gr9Ws/BWba/UCBEhJF6+njJUzMJxq6K0LkoKoez812GuL1n4FLPSVHm9ENpX
XCpre4l8noTtDo41EEK/fSXCWieZWJHz8O8gIyEkdzCde10vEx/zsqV7mgqh
nY9xqHotExfYeacctRBCIkd9j9/IYmK/Te+/CJwVQqed+Cj0c0wsVLN+7kag
EBL8vGvK/NcoRvrbkEuIEOJpiMTJeaP4cuH+oJNhQmjXh+B1Oc9HcX2Sg8S2
GCE07jZwU9xrFMdfear5L1UIDZn98p+UHcWqEiLODiVCSCyJYmx8egSLvS16
k1omhPSzrue8MxzB84ZnicFKIcT2S/xUg9oILvX57O5aT8a/sPjSeGYYO/a6
+PkMCCED+22PlwOHcXxuWVQMnzBKnGp5gGOHsNDR27j8kDBaCpqn1ocN4KkR
dQ6ho8Lolo75LSmXAdwa0LzviLkwupO2Iq1wYAC/+qBZ3mArjJp37VX25RjA
+gqddb2uwmhHzp+wa5f7se8/3eHlCGEktzOw+YdBHybCpsW16oVRltTFOIfy
bjz6T/abWrMwmnxdRktL7sbDRw1c17cLo4suxvzffLpxL/1x2ep+YfSjLuyP
j3o3bn623Zd3WhhJH7M5LBzehR0sPk+w+EXQqWyRN1NGnfjQWXab7yoiqMPs
ac29oy1YKShIw9VZBCkkPf/xZnU17j7Z0rxnQAQ5Zwtd9jnzEQT1LNLsh0hs
sPeCxtwn2CJXe8V3RASVrP7SExOKIbinXLCQEEEa4kNZ2098BQ2Xwl2asyLo
Wdfdv3M+38HnRmySHJ8oWvYw/M+ksBwkEi2cF1VEUe5q4u1Bv1rY5V+7VVpN
FF3YFys/2VEL5xxNOXU0RNG8o7jveVQHH9cbPL2iJYoOxlZofWH7Cw7ZW6uG
d4qi+GyaxIBvPWR+k9jcZCyKVtVO/7J0awLDvtq59xdFkVPzKgtrhQ64sTHM
+62bKGox0L3P794BOZcMl9IviyIDD+aPKz86QGb5I9tTT1Gk5m6yfceWTmDR
X/D4+4qiw4lCgfcbOiHK8KqESZgoahpoUdWU6IbO16s0+zNE0ajn7d20y70g
MV6f0/FWFF1Ju5npFtMLB3UitJuyRVGMx+DE88JeyP3OpVPxXhTNiNaXe3P0
QWAba1fOJ1E0YbZZjBLeB6rCX419K8l8vZIzlZL64erlM+foTFGkUSHxLzZx
EIKNWGd3EKIokaP0n8HXQXi0xuus7ZgoGkuVUcrrGoS8+mCnF1OiyDjvX9Uf
hSGY2PHGcesyeV30jcHSsyG4yDlhby5MQ+/vsPg6QofhRqu3/XVRGpKUdzjj
/HIYQt9T7J+J0ZBztxFvdskwvD5Lt+tn0JAiOUa6Lg3D4K/tNp7yNKQ3PjCV
+t8InI66eSJGk4amtd78LtYehcsX+E4UatHQy852jh7jUfDXj7Rs30JDqx0t
9n1wHIXE2WSLdTtoSFlbfOnuw1Fot/55PG8PuZ/pfNF75igwtxw+3ryPhuwm
rtYEcjJhUajp2LI+DT2W85GnSjFB5uuwmb4RDbnz9wfo7GWC5Vqho/VmNBQv
FxJFiWLCueWYI/PHaWjGSO3mtTQmeDXIHZG1pKGdZ74uPi9kQsxdzcNO1jR0
KXixR7CTCbXMYybTjjR0dNtv7f3KLDDJe3KQ7klD6UErnyXTWHBuwmFF4iqZ
7yn3fR/fseD2JpV3EtdpSI0S91P6GwsKXhWslvCloW11p015W1mgmPD3n1gg
iSXGdieR86tu69NUsWAaKsp8e19akgALKceTYiE0NFtcMWOsRM7vD8eLaWE0
5BrLKO7QIWA6SPiRaAwN/cpgPC20J0CkpN5I9DENfa1P02V3JmAjxzM20Tga
Gn0fsJf9CgH2PqrOIs9oaE6gS0vtDgHXP0zIiiTSUAH3z2nLUAKipwtrhZNo
aD29okYvioBytwN6wi9oaK1S64PNyeT8nyEyLpRO1mN/0HTPKwJWhhteCL2i
ISufZ7382QRon3ESEcqkoXuy8cd+fCLAJEmthJpFQ9qWr2gfign4r2PyGjWH
hlIlT19wLCPg2YnbPYJ55P7hN3/01hJQEHPwsWABDUl7GGV8aCSgtlb0kGAh
DZVfDGM3aCOAJdLELviR5P+O0IfQLgJ4TRLzBD7TkHeGZnlIHwGK986eF/hC
1ju4vHH3EAF6peryAt9o6PBh2fq3owRYck3X8X+nIcGNTV/qCQIu7/l0l/8H
DSWvSPW9Hyf59buzi7+UhuKSXXQPTRGQ9tFogq+chlYOLH95OkPAtzlaOl8F
DXmGx19ImSOgdWuzNV8VDY2EFOo5LpB6XHkuyldNQ38rndRaFwkQzT73g7eG
hni9jm8XXCZAlaXhzVtHQ3JbWmwnSay/cUaDt56GbhxiPSH/b4H9uc+9PI00
1Ju4jvj/90feqQGxPM009DTzk8USiWO6jU14WmlIPSbsbwmJs+TEOXnaaegz
g/6fPonLrVvyuTtpiBV5WcyPjN8Xm+TC3U1DlhTHetclAtga/lPg7iX9ym78
TpLMT1pcs56rn4Z03qllXZsn9TsyG8I1SPJVk1EZOUuAaRgGrmGyP2Jooo7T
BDj/CpykjJL8F+z1Y04QcIfX5CWFRfavdflqjTFSz/0StpR/NDRI/TO+nkXA
B/9WGmWc1O+1ElfLMKnforMP5zTJnw8H27keAk5YGm2Ym6EhCR8pT8sOAr7n
bqxnzdHQMOdLGqWFgFjnUY3mJRrKDtToC/1DAOVHRevvFRrimX2s4VxBwEWF
jLsl7GJIM8eujOMnAfsaL/RkcYmhgO8HpZ2KCHirZRL+gkcM7Yi9M7zpPVnv
A3W9p3xiKOmavm5+JgH/9hMxQVQx5JA+9HQ6kYAnuW4HbSXE0J7arOXd/gRw
Cx+ZMWOIIX5bhdvD1whwc9ZMOSAlhrRU1vKZXiL1Uxhf0l4thv4VNToa2xEw
HnYlW2Atud75WZA02Z82w2a27Mrk/puP7k5VI6B0v7bAzHoxFMxm9XxUkYD4
xUnHblUx1GCRmJ1N9r+hs6fkB20xNBWujBltLMgtMS/J3ErWp/7eLKSaBbIK
2y6n6Iih+xr5FoXFLJhomPn1QFcMvV5ns9rsJYvk/5qf0z4xtEnCpcz5Egv4
np9QtdYXQ+EpAyu/HFjgvri96YihGJqZHogcMWPBgdz5zXrGYmgk/4Gp0xYW
TMr79IsdE0MKTKHyQ1NMsPOxfshnLoZMt50KSu1lQnmDLlqxEENPkz9kf6xl
QkLYUuywlRj6T3BN54ZsJhxc9D309bQYwn//fOf8jwnPG269u3hFDF1c5XSt
sWIU+ks2dYR5iCHu2TZzr7xRUH3XwffWSwxVWl/fUZkwCnnhenaEtxiSm9m7
8OzSKFQcmONzuyOGHtQ4tHWKjsJskZvdpWjy/qFHxuL7R2DXK7mQiEdiKH4H
/2qkMgK3H1e9y44VQ3+vp3avEx4BIQ9V/vF4MbSm8/apdY3DoKQ++O7yCzHU
f0uza9JpGEwS7fjd88VQmk9GnvDVIYgKE9oS9UEMxUjVPBE8MQRNPp/s3hWJ
oWXNa+Jl24fA8YTM+0kshl5eK12+NT8I12gNdh6lYuiC/bbwxauDkHLH5L1n
kxiK9IKrNs4DMH9Oz/7aghg6azkfoa3QBweLVJDHkhgqHM4wtVrqhSdUSflL
K2Jo/rFTtFlTL+jmjHec4xRHlV62sx/Ce8F3Ic3OUkAcUXnbWU5LPcAZRrPb
JiOOnr5y9bpb1Q2CuQM2UzvEUc06L829Rzth9VKE1aXr4uiR/E2Bs/1/od/g
XjkvRQL1S13miX/wGjsY2cuv5ZZAxdoJ9MqCTNxmssVzN68EKjscJ974LwvX
He9QuC4ogaT7suu3Sb3D305rXRsRl0DbFxSsvM8W4ni/FuWqtSSW11A39S7G
x/I3Bjw0kEDWBRvciK7fuHhdBcjek0BXWhPj8qpb8MGwjoP0+xKIPUL+y/u1
rbh6avy40AMJJHD5zx2v6624/buUy3KkBNrA4OJDSm141uHs4/Y4CRTgZzdQ
fakdqyZwjD17JYE8eoIjNtzqxDGM7Uly5RJI1byVYJvuxqv8jDMYFRLo+SWt
6UWZHpzcb1cgXCWB+CmCR37v7sFZ7wOrVv5IoMP38wunQnvwL7O6+Y4mCVQi
fsoVKfRitnBXs8QhCfTITV8uaHcfduZ9QVHgoyNlIdmOItsB/Isj+P5eAToa
TxJa/ezWAFZd+o/uRKWj3stGjH0pA5gYU1v/WpSOdI5PtDUNDmD3lvdGW6Tp
SNpFXUnJdRDfyCyJPLCRjpbvfhfpdh3C7elpMi5qdDSjtFDWEDaEUfLdlDAN
OkJmY4v3MoYwx+NDebVadFSR3R+tPjyEA2/9bbLRpaMth6IUjtkP4/BjffKX
D9FRUfWR3R0wgsdMfr6MMqUjWgJNOfbkCD564OXm/CN0dPt9x4igxwiW2HVh
3+JxOloVJkRReDmC45Snzgba0pFezIVNk9RRnDJPeRvnSkfarI4OofJRzDXV
v+3TJTqqPljubdg5ip2I0i8dV+io2DZHWGd6FG/oDa1Zc5WOqOv1QUeBiTMr
xaczb9JR1bfSkrwrTJyfuEavOIKOXt7LUPHjZ+E1K/u8vz6kI6t3xhcbpVk4
3ObMBxxNR9kfz7iwVFj4nPSLLR9j6chgSx3v4YMsLB2lrP7+OR0VSpjO9QWw
cOC4gUtuMh2V7jHdqxDFwuOHz73KTqWjDbbfdSSTWPgX9eW6zJd01GdQ91Ln
Ewv7BKnIpWXTUfSQnz36x8KDfQdtUnNJPs+OfTq+yMLH951/kvyejp7rLrWt
5SWwOvsbRuIHOuI5Nrg4JUvgjutqIrFf6Wi4b9Xc0QMENm46ZPKomI6eyOi8
2mlG4IJtF0OjS+iIfg1btVsTOHwykzeyjI68djxwPuJK4D0XN7Hf+0NHZzL6
OUbDCZxZcRju1tJR/Zo/vkmPCSyz8dKNoL90FHGFZk9LJPDkQPbc7SbSH9TP
IrKZBLbXr9nm30JHbf4lXz68I3BFyrjHzTY6un7W9pFQEYFTT2mN+3TRkfxZ
o5s9PwhM+2K2ybuH5Ftd4+rpCgL7yrpfvNZHR/Nzxaee/iHwsE/UG68Bkr+T
tpph9QQ2b3k37DFER9bfx1p0Wgj8bfvf9e4jdHQ1RcTiaQeBNR5POV1mkvVc
H31c0ENg3uNbey6O0ZF650djmRECu+eaK1yYoKNjAZsyT7EI3CXqZXd+io4U
3eze248R2MTtUfx/M3S0J/WRleQkgQur8lvOztFR/ssfccHTBF6n1ijltEBH
J8KvXcieJXDkvVkLxyU6kuJuq4qcJ/DykGSMwwod5Vp/KlRdJPB5w+119uwM
pBwVqOa3RODGFydodpwMlOKwb03IMoH3cV0/bMPFQJt2Jj09tELgrNNxYVY8
DNRwdCSqjMSrvhVWnOBjIL8UfsFlEgfLt/BbCjDQoYkQ9hEST/kuGJpTGejt
rxiPcBI7tMkEHRNmoBX/2XMsMn7VTt2So6IMVLRFuo1C4pACjwV9MQbaKHvn
djOZn8GWt5o7JRhoOCfP6/wCgSk5g2c1GAyUv/XHx/z/f/+krvhMSYqBgi+c
NMczBL7x2qqOIUPmH5Vp6D9F4B3ro/kFVzNQ9ImIx2wTBJ5OqUJscgzU+NvR
aMc/Aucq8HpNyjPQjjOyZzWYBHZ7tjtjUJGB1v7VH+8YIrCqjHdP6xoGui89
P2HUT+ChR++k/qxjoGT7gStXugn8QpxlWrKegc6OH75u3k7WF6Ec+EGFgerW
C4pMNRFYTujUxwxVBmK3vLXL9C+BH/PUrY/ZxEDZNlJhW38R+Pgdql3IZgZK
5Rn5XlxC+o3dINpXm4HSFOuw4BcC35v/wH5Wh4Hmh2K0anIJbOg1sc1qBwMp
ZeX+MMkg+ZhUvWiqy0Afuy8cDXpB+pOZ0LwNMdCn58FhqmQ/7HBuElHdw0CS
vJ9sYsl+memnGcjvY6DHxltPfwsm6+0MyOU1ZKArnl3HDlwl8Ona86FNpgzk
8cWwSvUYgeUPp36rPEKuP1ivf+MggVsr2me/mpH5vNgeGoJIv/84cuaVBQNd
2xRU27Lx/98TbtvlbcdAdvqdlVYrLMy19ZK76ykGEvb8pRg9wcLfcl69On2a
gcTlN63cG2DhnW9WM4zPkvmetszLqWJh9QTOf6tcGUjg4YD4QCwLD8vorRO9
RK4PvPpYOJSF0x57WnNdYSBbub+3pm+wsHzkUCnTk4EWZWNXVuxZWCzg9/PP
vgykJflYimsNC886PzGzD2OgPvlwpal4Jn5wPZnHL5yBDH8cf3ovhInXhbwu
io9kIGvL62cbPJn4+MsipZYYBtqyv/njAxMmzhlomTieQPrDuYNyd34Uuziu
ijLKIvnhFHSv3DeKOd3XGDrnMFBpyGZKjeoojrutuhj8joGmhStPPhAfxWVJ
uo4/Ckg/rXE4sqVnBK/rstbe/ZWBHOwN9m+5MYI7beLrttYwUMuWlehdKcPY
60Jq8PE6BpJRH6pmBg1joRsZuu71DDTxZu/8ifPDWO/pp5TsZgbynhze7qw5
jOOa29xVe8h6P6rduFw4hI9ZyEooTpL55RW+c/wyiEsPJxyn0iXRmUvpk1zP
+rHz977PPJKSKKBnQM3Cpx9TdVTXc0hLopeJzwc9T/bjo3If5qdXSyLFLi2q
Er0ftzBrEjrXSqImH43jW+/1YVYI93DuFkn03qf4UKhLL5YoueB78rgkknew
o68T6sYO23XT0qIk0UL/f2oBuAn/x6ycao2RRMPiFussbZuw23O7fbRYSfRh
/djdvsVG7Md3u8snXhIhQRGstb0RP20qkzn6QhJdrcg9WJRZj+uvWYQv5ksi
moG3p2NYLT5YePnakRZJtO9QVJuFaTk+cpFSGtgmiW6ma/p88ivDloox9I8d
kmhxsmtD29tSfDbkQ+66XkkU2ffviZnwT3znJBtrYVQS5XIecLT6VYw/z993
eLEsiU5Ev/oUe6UQl2TKZbewSSEeneRdXyoLcIVD9ooIpxS69rQnL0k5H7eU
1z315pFCkUObUjOac/FsnEzDYREptHqnWvA7n1d4xSRjbSBNCn38PXT3s1oa
5uYE9yJxKRTltzwT3J6Mxc87iK6TkkK7r3DWcPvFYRm5STsrGSmU+f68yr2O
h1ixNiAzfLUU2lt0gS3HLwSrBDGWSuSk0LM64Xm+m9ex5s6XRgsKUohRVvvu
b3Xs5/8BwKuL3Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{
     0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5057267657675204`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"h", "=", "%"}]], "Input",
 CellChangeTimes->{{3.505726793923131*^9, 3.5057268041287146`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwlmXk4lN/7x61ZUmaeISRF+0pKaaH7VEKRUqJFSFpIEhGSSiUk2SvZUpb4
RHZJTpSikKiEopAsM/NYx8xk+Z3v9fvrXK/rmvMs7/f7vu/zXKNhf27fCTER
EZFsURGR/63iWLauc921Lbyy/18X9ZZtnhtpC/cKmobnkFX4XMuhOeIcnI/O
N/hC1j8Kp/mFEVfg6tNyn2SythjeqEiJuAtq15Jq9pP1q23EkviIRFi/Y4bF
gfBE2Oes0nI/IhvWYeEr7zvZED5knRcTgWGD4lMDNT8Mmyt3yW5zr4ebpa92
yO6oB1cfs2N5rt+h6OIbndLmJjhbfCJUbMEvWJw595Mxuw2+9OyUSbPvgq7u
5kOV0p0QrMUTKTzUAxpSGaK7mN1wfkVV9OsUNgjd36/L5PdA14muq0mFbDjv
WbxgnXgvWCaJOF99z4bnV2eoFc/ohU2KG7ehXjY02Oksfjq/F8SmnnLxSg5s
7521Vde0FyIabhvhPA4cP5WsIJrQC7neewSvyrlg1tzkoavXB8LjZ7J+ugzA
f7N66u7Z94Mdc9ir1HMAXk4dmffCqR8qy3y2P/QbgEiHyNpGt34IUwn+fjB0
AF6YeG4e9e+HJZ/Sxb48G4D1ZsGLe5L7wWJTt+UH9gDkHl90O+R3P2Qxjk0V
Og2CSozF2YpDbFAo66mOdhuElHKx6unH2OB9xjXqgs8gmPxoMTQ7zQaDd1eW
rQkeBPdG8eQyTza0XkrY/+zpINzNdUsxjWSD9N/WtMc9g/DRYKbdnI9ssH9l
uTfs5BAEHMA8v3UcWFOoTKmcGwI33oJgdz0OiGW3ND66OATe81fX2G7nQHKS
jVVe4BCsemRnMc+cAx3XT9p8yxgC3eTwLZucOWC/y9N5Dj0Erzf41v5MItwU
HZh+cRgYZzZx6sS5sKbeapf21WE42tWUWyDDBbFqFbmSwGEIdChiR8pzIbkk
/u7HB8PQeyS8cL0qFzriU2K4L4fhYP7tC4pruGDvUPBER2QEfr1xXb3ehgvH
B7+8fh04Ao7+ju2CbC7Y+YRZFYeNQFvunOM++VywFjflZt8fAU/d2p3DxVyw
VHyjmpg+AqFxxZvriI/GG3M8L1eNQLvRgsiljVzQvHZn5SbpUZCZ+KzhMsKF
5bI732gzRkEt1tniAp8LSyIlDi9THoW3xcua3ca5oJ5y6Zby0lG4A0pfD0rQ
wKp27OAZjcKWMN9LVSwa+AzD+3m3RmF9ZlzWOm0aRh6IamXeHYX2j3lhr3Vo
GJz/qjL53ij4iwoLtm+goU9HZzg8bRSK6x+8WwM0/Dw438z1/SiIBuv35JnS
UJE0Kb5KigdctvKFrSdpKFtWErtQngfVHl8W7nWk4WWuh/YcJR5wygunWznT
kP+WbTN9CQ9oyUGv3W40pPW0vOg15MH9BbmlPy7TELK66FxqAA+OaJ0zuRFJ
w4c1Td0eoTwY3Jm8QiaGBul1Y0d3xPDAmC1yM+A+DTc26pp2pZDrszqTnOJp
uLStaOn8Sh6MXpU/+z2VhmKDpsTBGh7sazs5TeMpDTzDsVnlX3gwQ/qogn0m
DW4mupJ2XTxouSkaUptNg5NF0e948TF4tyuidWcxDemWTQfPTh+DVTGbpluW
0NB9cOyTHmsMykROZx4upeHYUd2y1vlj0BBxavPu1zQcPFkUq7JtDBx0R0Ka
3tNg5FW0P/rqGOjME4+6+pU8r0/TB4fAMVhxelMMq4no5zu2VSdsDIoi1cQS
v9Ow5Zru6sbEMXju46qY2ErD+uAiOSYeg9fLnNUNftNwIaTp+q93Y5ByTeVk
bAcNuaFjwuy6MVgdnUf1dtKwKlK316xtDNhlronnumlYGFdUGTIxBvnrq/w0
+mmwT2jSs5bkw/XmW8Ob2DQkJY3lrZjBh1kDPTWmHBrmpOgmf5jDh9xtIf8d
omk4nGalEruQD+rO5rkWAzTcf3oxzHElHzZ1vVI1HiT5yiryk9bjQ/OdVGXl
YRr2Pm8abdrOhwHN/MwRwqG5Y85pJnwYnrj9qHqEBtki3SOGR/hQJ6jPt+bR
YPzCqkHxOB+mz277PHuMhoCXF3f+cSLPs2d072fCYq+LdG/48MH8a/SFJQIa
MmZQqRP+fAiR+L33C+F9R5wVLt7mw8/0Jh0vIQ3C9Hf+A5F8CK8yUWf9o+Ex
T33QMY4PWlwmK4WwqcEl284nfAhYKjpDc5zkP/xrrfUzPhTIDs/IImywKjhj
TxkfJtLNF0ZO0MD26VKufscHMw2/jXzCUVVbbm37xIfxFysPWEzSoDfrwejL
Jj5YxW2/mEb4z/Hh4+t+8WG9Z2biIOHQnN0NWT18mPLeU7dmivg5lYaWDvLh
mY2a+BnCbaZi2Y8EfGi0ldwSSzgg1lpNVUwAKfpCv9eENXsKb0fJCmBMb7Dy
J+Fv65jCGSwBbF/SQQ0R9rt+5vQtVQFk7Hp/YoLwks+V30QWCmDEO75sinD9
XPUdPisFEC3noCYg7OXskzesI4DMtjn+vYTVS75onNUXwPjeGnY94SoprbDu
HQLgGXsfzSbseiBo0tZMANmrV325QVj5cadzs6UA2nnDe80Jvx7Qb91nS3jm
j0YFwo5b7u+sOSWAx64860/k/amQoaIdrgJ4cd+SfZVwSbPpYuwlgC2BlP8y
wvZL0qI2XBPAj7fb5lYTfWU9RMVzgwRQcVCs3JZwbsWR8ysiBJDQ4OLEIf4c
ZhS2P4kVwN0d6bPdCIvZMMzmPhbAgp2fP3OIv5mZTqX3MgVgIpgZZkfYQvB2
OTNfALt5gQc+kHyMG857EFwqgFcOjvNXEDbtaPS4XCuAC6+oxs98kgctzS7e
V/L+N/WKlAjHXQ7c59omAOQb+tiC5JGjrK91nBbAlSOB0XmjxN89qT3GTCGZ
Py5/JIeIv/EiVhUqQsgcs2dKkPpo6ztcuXm+EI7lXjISkHrSCpBP1lwrBFrH
uLGK1Ft9qdcRhQNCqDNRdRvvIf7INlbfOSoEdWl6LPcv8efgqg1SJ4WgpX8j
2I7Us+vwbwWhpxDELc43JZF6Zy43qWu/L4Q9UZaqhT9Jf5JKZFYlCaH/rJsW
+kH0/jNk8TxdCAmRvpcqWmhweBTberVYCLnhDaXZpP8UK/f1aHwXwpFjWvTK
zzTc4emvlP0lBIbl4VqvT8SfL+Hnhv4KYUlMRHdpLQ3TwzbyKsaEwA1q+7jq
Aw02UkHiDkr/gH1e1yW3goa1f34Yms77B54ZlPZr0g+l36wO1lnyD+oSIte8
KyN++n1nSOr+g9YRz+ES0k8leUvmplr+A6nBMh+jXBr+63q3oSf6HxQLTyhy
Emm4VjHbtz7+H3z2yxK5Qvq7ZZILLk75B7WyG9fKPKRBxHqWYVDBP6g4edl1
GpkP+xtP7F/+9R98HJA7+uQ26QflEi7OCuOQxKsIdfEg/SZx2+OBiHF4Fyi3
eet2Gm5V1f/0fzgOxaoei6LIfHs3aKOs+IT8fsdq5bbNNOwwuHRnY8E4zLvW
OduKzMdtvXkX/ZvG4eeNnLyfC0n9r11kqjBnAjKDxjS3kHm7+r3UqG7KBFyL
6cy1KOXCuYForQ/PJgA9v9kbXMSFLJWFTtaFE/DW6sae4lwurHJG7VffT4CM
7IJsfjqZ70zv6ureCSi8s6NLPpoLC4/0xR/RnIQzmcccH5zhghJdY3ilaBIq
JDt8F1BcuB+Oj/XiSQi9ZqxkI8cFZZ1c3/1Vk/AybZl92DTC3vdylzST/Z3V
8j+EHJgtbj+3XjgJq7Qk+PKdHJirNDaqvmUKRjuGz/XncGAxaKRUvJ2CVK8x
5uWdHIh9XyIq7iiCjij8WuRux4aBX8+9aWcRZP88Ll2TnP+MhKmDra4i6GRG
7KFOczaMrIz8ne8lghaqHdu9YTsbzCLOlJ8MFEGKzknPwhaxQezonGsf0kRQ
SUNAx3hPP5wZuiwS0S2CfJtEROrJ+VRPbeuUuoMoqr8VeKj2cB8YW39xsz8t
ir63v+nWMO8Di4enuh87i6LDgpui54z64IxKaO1iD1HU9i+2b2htH8Qqtj5c
GSCKPhWf+P5Irg/4Mzw2bEgXRZfKDKMSSnshfzL9/B62KLoVYRi4RKkXVvxi
dF2+IIYO6Q53qRX9hWfp1OkCN3Ekx5P65NreBb5tRxtXBEign/tOLLvu8hvO
620wSYiSRL71RlFr/VpBmGhg3x82DbV0mz6q0vwC9a6xdheTpdBcOe+lbl/e
w0aj+ZM/H0mjz9/kTk6KPIfqHRvTUZwM2lhvMzc7JAun5DzY2JEpi+pZ6nop
F6uw4oKVTjZPpyOLJbkLDf804gZRaX+VUjkk8SHxqU5LKy6Qdk+tr56BorxX
F7yJ+Y1XKjKc7CtnohVhjw9av+zCdChPYe03ebT6DrNzcfVfzB6YW7GqRR4Z
Jr4pqW78i/v2GZ1b2iaPKun9z062/cVds+5Xq3UTHr/7PXT4L25J2OgnzZNH
myJMJ++p9WB7q7JhriwDqS+333bbtQfvPiV69O1yBtoe79DUyezFC27d0jrn
xEAy1Zb+jVv7sNs3HT97ZwZaXyge+3JXH369qKPmgAsDLW07eT5+fx+2eavn
pOfGQOGtbZZmJ/pwrOjQExkfBjrT/7ncIbAPU77Ws58EMZCXWZihfW0fFjuv
LdmczkCOx8brw/f1Y/PXbftrMhhoVZDin2eH+3GSfEgy/o+BfGP0vN7Y9+Mt
Wd2Q+pyBfuRIKrS69WOf/oc+7sUMFPSXxX4Z0Y+HTkwbmFHFQPWfSi5u+9yP
Ow63tmz7y0DaO7bOsdzJxnL6Vml2vQyU8Kr1k545G6+b1+ju189AnJnyMaqH
2Diw84NcCc1Asy3dzMtPs7GWc8kWbT4DORVNM3p2i419Lz9InifDRBl2kSaS
b9lYMcnKaXw5E+2TDtFIW8/BW/wb189exUSvTjXMDNHn4NMOe8Q3aDGR4dLg
mtMGHFy61CjOfS0T6fUl5cjs42D7nPV1fZuZ6E29NqfHmYOzKhTXNJsykYZ6
8i3VRxxs/KdRUODCRF0LTHMMxLn48orQS9muTGRUGjX8UpqLc88bT6S7MdHl
cPWuFTO5WHWyVCTOk4netxd+GFXmYu6sVCl/PyaaDNMJ0tbk4ihjL0WzUCZq
WCX9n5EVF//KnKPd/YyJahPl2X8ec7Hi0Lfc9mwmWvPcMNA1nYt3bQjXac5h
otQLXzOH/+PivLeSG2oKmCjrT/SNzgIuDvjJ3ZL7iolWMExsHN+TT1n5clO/
WiYS5FVXyvVysZfbidOzOEy0P9neNnMxjQNNuKc20Uy0tXr1tIjlNL638OIp
m0EmOsUWe31Ok8aF3wJPpo4yUXC/0WnGehoPb/rPYf0kE3W6jzp3G9DYRXzY
zlKeQiGOptZddjS+/OOSnQ+TQovHZuVvdqBxSIGEXQKLQoZ/j80MPkXjzFOz
bLuVKETxct5Nd6Fxz8eNRz3VKcQxObzysQ+Nj0ddPRSjTSGGHEhqRNDY7azM
oZK1FOq9p6jSE0Vjf8OIg23rKHRg4pJG6j0aJ/EfWy3eRKHIvG9yUvE0brN+
f6BwG4UWhDhusE6jMWfd3gMtBhRK9N/X2vKUxuMzmy0mDSm0+dJH573/0Vi1
vG+/oQmFzn1LOKieQ+ODi2bu+7afQpruhWh/CY1PT8aYCw9QKDiEbxBUSuOL
TfPM5x6k0DLJ82sKy2gcE6S996Q1hVY8D3o3UkHjRo6FGc+BQo4yIRUSH2ls
Vvhw1yxPCm1SHb59rplcb9h+StGLQtvkHu7lt9D4+url+Yo+FNIbbVX3/kHj
4oxiNUU/CrmZZnTYt9N4fuLXAVYAhRaluP/+1kVjvR9xKaxAopd4PX9eN42t
VBwOs4IpZLdtXPnYX6J35NAbKpRCLx/cdPvYS2PeLfl7zBgKsTDLH3FpzKj8
ZsK8T/ZvftC0k6bxCrEEEWYs8aP2yVqTARrb+a50YiRQ6InKnsl1QzT2eTE8
l5FEIQ9Dd+d5wzSO5pU0yicTdlr6S2SExh9cd+rLp1IoweFkU+YojbueMYZm
plPIIu7GYQ8ejaf6mlJnZhB9Q2061o/RWOfEScbMLArNMQ+YesQn+iSvqpzx
nNzfwzvKREBjx/YR7xm5FDISuq3iEE44dL1TrpBCp141Oyn/I/rE7LovV0yh
4a3jM5MJNzYyd8uVUEih4G7hgnEacxnNonKlFHIpdD8WT1jaLKlwehmF1nUF
yctPED1vnzoz/TWFtrQWvPYirF+lqT69gkLiuj8vtBA+KMn7IvuWQmnhf1fo
TJL8bXsVJPuOQhPXy/7cJBxy5cYW2SoKRaTsTibnbZxWajIs84FC/4X4H2NO
0bhCQKXL1FBoX53pAhPCP9a3WMvUUWjvZPxfX8I890dMmXoKbcx2zEolzMw5
/U66gUJn3cg0IrySq3VJ+guFlL4bb+8gbLhiTEv6G4XWntvNHCFsd7qsS+o7
hcIqs36T7w98KeXmA6kWCtWdcson3x84psPUTOoHycPvK0Hk+wM/n6cgLtVG
6rN0wK6f8Afr1qJpv8j9/F9v+kr4z4Nk52kdJA8lI7OKCIs0OWpM66JQNTtq
NIzwbAXtb5LdZH98xjd7wjrm/GDJHgrdMd9aspLwnlAMkn1k/+2TSVyih9PH
gBEJNtGnbllQOuEb0mZPJbgUWhIbd+Ew4YQdijYSAxRiujTYSxB+4f+Dkhii
0PmqX/tTif7ccSdfcR6FQsX+bmkg/h06aLJMMEahM/Yi8TaE3+at+MYVUKip
snR3J/H/gRNbq2WCQiINMWlfhTSWeFfz49MUyc/a0b3bCbtoPAuqFGUhDRmv
3U9Jngy+n+18LslCPu+vIhuSv+y1ZmGpUixkschS9xnJ5+y7mvpxMixk18G9
NkLyO7CDjrk1g4Wmp6mxnEm+H+a57rJRJJz7avnUII2nyZuP7VdioUO+3LcM
wq5O2k92qrDQ2E+v/Nmkngw1hiZ01Fjo2aXAKCVSf0Oh7jnTF7GQZ6GvbQGp
z6N9+21El7DQe65lZlAPjat26EwfW8pCCSUxZpaknuPHRxw6VpL9wnNx30n9
Gzt5Kr/QYaHsmzNtrpH+kFdpWZm1noU4XXfOKrfReK6GrtuTDSwU6jXyLY30
k+GmsY939VhIf6ilOLv5f/p7XzlpwEJFvaveHG+kscyjQyutDVmo56Mw89Vn
Gl8Y39hsbsxCV0VTB+XrabwzT7hG35SFTOrWRcfX0HhE3bebZcFCs214xkcr
aWzrax0pY8lC+R4OC33ekHw16aEpK6LnXjW7u+U0TgydeNB3hIV27zEWJr+i
8a5xv93lx1lo6Z/v71wKaPyo6Vq+izsLxcy+q/3gMY27K1e3h3qwkBAVFkk/
IvWQ3y6TfZGFZoDBnnMJZB6F6dvSl1joJjugQOMBjWt2CmRcb7DQRptGd9VQ
GvNfutqejybXN9d0PO5J4y0Z84LD77GQVu3h4wbupN/er8vPeUD8rW+5NMeV
xjM9VsoOxbOQV9Dp6bmONF6g2ZPvlspCl/tNy9ysSX9KspW9UMRCCuKixiaI
xlGhM9dFvWChFrOGewl6NG72fWWb/5KFaptOKPZuoLHDIdWCEcxCU1nTEo5r
09ibarL1qGKhgDXq4rQGjZ/cMCvwbGahbratgp0ojYWn9e28/7FQQ21wRN4L
Mt9fLkceEyz0JifjGiLz/OEMZfXzUyzkfFays/I5F+vlDrWfFldAjX5fRUrS
uNjvX5rtwekKiHNZs8oomovFQylbXVUF9CzbJEDowsVyeX+Pjm5SQOX/HVhU
OYeLrSW/6g/qKaDtNXOT7ZW4+JlVhRpniwKqpfhFfCYXm43H/ezapoBiI1bn
z5Ti4rAd+45+2aWA0hI8FDoGOFjhe6l13mEF1FO1KH3JGw5Wmwg/ct6H8N9Y
lQ325HzUsfvFPV8F1FGXp+VwhIMvvJdRKvNTQIUDDR9uWXDwh/BrDbLXFdDM
Rtb9AkMO9lx8fueT2wro5/Xid5nLObh+z17dpjgFdE3CXF9ikI39k2ey9LEC
ailWPHDhIht3G93+IC2hiKxtOWs/nenH9iZ26oumKaIrO320lY73459m6zy3
SiuiccHvUCtyXv1yoF3DR04R/dEScy837scVx9d69ysQVkKLNi3qx/FXWpfU
LVJE5iMuNuU/+rBF0YqbkUaKKKn+yNgGwz78ZnENzL2tiJqOv9WwF+/FTtKp
Ehoys5DnDtldtbbduChpof6b8FlI6tUqp1KNTly3Wa9yH1MJBbiVVL651475
Tg/324UqIa0ii5L3kd9x1d7EAzNmKaOJtu/v1UPrsf1GvbS0KGX00NM6XS2u
HDtyakd/xCijUkk7TTXLcuz6yNaAeqCMano/nlFilOMrMtd/+8YrI9a0zfbj
11/juOZq1X2pyijowtvFik1l+Ju3Vdh4kTJq7JnlGe1egneVuHmbtyqjBueE
Gb9Sc7C5i0RVwE9ltPF7U2u7Sg4+OD9mVmm7Mlpw/at7S8hzfCr4Rd7iLmV0
3J86fO1PFr5xWIT7j62Mqnw0BzJ9M3CZ8I596qQy8nwavTjy6SNcmTUvp1VE
BfGczpkq3E3CNfY5UwxxFdQall+j3puAWz98ibskpYI+Gz2IH/WLxfxY1aa9
DBX0a3tiyfaMcDxl9mxRAKWCHBbv2szoC8XTxOHCSwUVtGbYPvrulWCscMae
uViF7P/699TFjGtYdd6I7RFVFbSQap9fecUHz2+8mRWmpoJepHrYR2acx8tv
KU1UzlNBunFnrxRnHMPam5+a/NMgv9e+87//t8r+D73i2XM=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVmnk8VO8Xxxkq2QaZsaa0IJUWqXyj5yRUqCRLC5HSKqLSYksJbUJSpEgp
2ZeoiEdSpMiW7LsxY8w8dmX93d8/87zer3vv657zOZ9z7n3ua1QdXS2caAIC
AvnUz/9XISxa0aXjt7Wi4P9r6NblnIItKg/t0S+TJcoKD13RRPqa4w1hrogF
xqziMF/UI3vqbw61rtgxI+gU9gA1GvsXxVPrStVhnl1oDPptH6b+LCwG0QsO
z/e5n4YsnBUan4SlIdOkjScX+WAUOmSbFRGGUew128/t8Att+WoianChEm1s
eJdx9kobkqp9/WvTw0p0PTg7QDi9DXV30h6tzqpEjsbD2Lu3DQUL5C1SGK5E
3ZvGQWRlO+rcslJnwL0KmS5bE1P/pB0FZYo5PHevRuZKYv02bh2oLuZn9oRb
Lbrk4beVwehCSakangOhtUj4oFZ4llYXup7vD6yMWtT+7UzJ1p1daEWT3o+q
wVqUNv7RQcmzC3kxU9oT3H4jEjgb2dfWhZbevy9m41aHOi73bPsR343OX9tz
NOt8PeoZcDvap8pCJi56CSIh9cjs3Xwpv80stNRRk9il1SMx4S/naXtZqG7X
XG8Rfj3K/GM/VOzJQvoKBU/szjagBQs0Y4xrWUj0w+rKeScakfvgC01Nv14U
PyqObA83oyUrCr92fmcjH87ErYxrzSj8ZPKNNy1sdKCF/XNuVDMqmfA7ZTnI
RuJfiw9l1Dejf953j52Q5yD3cC+PudYtyPxsiPhpJw4C7f6UdPNW9E7OeknD
BAed++AUTFvajgJueo6yZbhIa9e+xYIb2lHlrW+af5dx0UCDXuasYTui//Qt
ZG/koouTC+qmTrSjC2JnP507xEXXthYtHE9sR3k7Z0qEY7kooFglhbu+A61O
KFpjvbwf7bQSRX3bO9CE7Zst7jr9aD5rtJJt2YE2Hwu/6GLUj+7NKx/p8ehA
/pFBy+c59aOHJp567bkdaOzO14fv4/pRbOWfH7UGnWj7hMyTOfI85Hj0i13N
/k4UeSZ5r7IaDy0dSiVVxzvR1b8/lsls4KHXCwIW/AroRIuWfGFH7eWhFOsN
h7+XdSJtToH6ols8lNsc0pdv0YXMwnR9ejg85HXOy+vTsS6k90dihjXKQ/oz
JyXzLnYhqbHJ9G+CfFS4CK3/ENGFdtXnXFuswEcljryrmY1diP1tao2eMR/V
snfNf+PYjXQLHqyfH8VHJFLD6KZ7N0pJuHMcXvKRqOk8P/sb3egw643nwWQ+
gpTiv3Jx3YgX/UpnXQEfJbkhdlBHN0pcFNdzqZ2Pvi1RWeY02I3ODjeZ5bH5
qL1myn6bYA+K9B6y7BzgI+bG3D//Fvegjuel6r8FCLoxsaHkjEMPUluoMWu2
iKBnSQuEdpzvQcLjtx4+VyPog+3Q1qXXe9AYHrhbtZogXkFaTlNMD7oQhO81
bSHowE3N12ZtPah8WRTd15qgCxvmd2qQHrTNpEe4yZag4J7ehXNme1Cb7ZCG
/DGCinfEP8pXYaG7KtxuHVeC1ogvvqV1hIU8DNSDZm4RZJI/UyjqwkKdq3z2
HLtL0HGXlimWNwupt7Uw3oYQFFUZdTHmGQvtblR++CeKoLmPGMelWlhIIXl+
AU4hSNV4JKa/n4XUDAxoqzIJ0huvbiqdYiH/sJOqV3MIcjsYst9PuRfNUUpr
yy4gqHmh2Pahw73I/9Rx3odygsYrOD4VZ3vR3d32kSurCJK5Xpqb6NmLgvZX
CfrWErSz89b6Y0970SNZ9cmSRoKOPTzugpJ6UVFly638FoJ8DLcnKuX1orU5
GYUP2wnKei2wpLaxF622fbuls4egCps2u/S+XqS6LcLjEJsgtkhB5L2JXoSe
rbfJ6iNIKDf69ylRNiqirW3q7ydI5ayntJEiG/XVHhGYRwjSVT60W1WTjRaa
pBYLDhJkWb759rQuGw2fW6XWMkTQnTVjAjkH2Wjj8sCPOmMEXbu8ayXrDBvN
PFrqVDVO0GkcbcX0YiPHoSOrdv6j6jdvwNf4PhvxPgRJRE1Q+e3dnujxnLp+
WnFeySRBmx9H1L5OY6M3p3Plfk0RpNHGmakrZCOxbRu3Zk4TJK+uv2JeNRWf
fdDV8zMEzXMN2b+pi40+6/8unT9L0FhOl/fJETYa4Z1d6UMxa2ZjwuM5HPRq
8bfYcorrjO9UlzA5yHBpkMZfir8Ft0yNq3OQcMf1ommKc+rWqmvocpBY11uX
VorjVfz3HTDhIF9z9dVRFIef+OMZdJiDDvB3zKyl2D9V8/UHZw6at+hWZxwV
z8Ux70q2NwdxO240EireY1urJuQfcFB4Nb1XjmKLgGXLd8VyUKX68vlKVH4G
FZf3Xs3goNBM1rZ/lB7rmT+uvi3ioKjmuLBMSq8lR1ReNdRw0NTr6injv5Q/
XrtVzO/hIKcEhRs5lN6C/OK/umMcpCtmvExwlKABHfmlZ+b1Ib+75j1qwwS1
e5/dHSXfh2Iv2paoU/Wr/FpwuWxFH2p5/v6nEFXfQgmZuIn/+lCec+N4LlX/
dCunn5pmfUi19KTpbsofMc8+jB2y60Mmi1aX5fZSflttb5rn24cGJk9bqXcS
5HIp8xI3pA8F/jY/pdZGkF3+nFiluD6UYLonS6CZ6ofdySOexX1o9ONWgR2/
CVr1aFYl+XcfUn48Mj+L8rtyi8WuZlYfqqwyPjxB9cOk879nevO56KCLPEvx
G0F978xKnRW5qCAnRWPkM0GNUzFD0Su5yHyR2NeEfIJy7xnvmN7NRWZ+Sote
vSPoSvLDgfwwLhIp+cTriiXo1AhLkf+Six7TH4U9eUqQjd5/RirZXBT58Gq+
RgRBG3+2R/r84aK/+okFTXcIGuGu3o6U+9GWz+ka990J6tb2O+e6uh+1xpfl
qDgTVONZ+zhmaz/6mpUreM+JoEwxz/5Zh350KeN5/z8bqt9Xlj4qjO9HAhFL
R5dS86rbqft6bE4/Ylau6X2vTZB1rIDz9ZJ+9Chs37IVqwj6j6FrAJx+xA6N
fvFSmSDa7Fs+XsVDU3Zaz/5N8lFY9d0dOIuHJnN08te94yNhiYT1McU8BHGe
8c8T+chjR/FC3988dOGOtRsnlo8OfZoa3jrOQyZRS9rk7/PRktfnYgv+46Mv
KwtM2o/xUebVvf/yP/OR1g7aUyUxPlr27mz3s2o+Kv/GU3Ge5aEIfuAv7y4+
WnOtyfDpMA9dO1YYrz+HoP2TF5MeNfGQwe51Fvk7CWpp/WQ79ZaHahYvSPr0
i6DXC81CnwEPTRw7m9riMoD2/W4veWLVjxykh6988hhAM62C6RxjSreCa9uf
+gwgyXVy/y3a3I9CFO7UHwgeQBF5nuc2K/Yj9V8JtNqUAZQ64sVe1sJFlv+x
rMv6B5BSfDMatuOiVKmjszlnBlEp/mRYY9qHZAvY3x+5D6Lxr/WL6nT70NWz
58MvXhtE5oHykVi9Dxl+812x/s4g4gosSTYW6kNNns/3p7wdRJsv3DNU/8hB
Ir1Nb16yB9HPsEy6wWIOcsy3Ng85MYTC9769fLS5F63PkZdRcB1CC/+uKg3/
2otoaY01Ly4PoZ/ntoqlpPaiuNgjNllBQ8j5yLmqe9d7UefNE0fqEodQ60tb
JL60FzmaeDgrkyHUcPEBfckxFnL88ygo4fIw2ru2cOJMZTc6NlhbWBg0gkS4
fN0Gpw50b+1719cBY0jjjrxVqlctohW+3+R/7S86feKIEZf9Dklrmla0PZlA
On3HTOvMSvDOGIOXA2FTiBeoZrQ/vREHlla23Hg6hRKL1kRG8Bvxt8Ej8oxX
U2iNxwAtb1UTNjL0vK+bPYW61E5OxCc0YQNO1uUbf6aQadOHd1PPm7Ge9nIz
WeVpNH3ZOMX1ViteWzJvdFP8NNom5rP+i1IHdh14tKYsZRrNa7kQnLm5A6cq
LDtjmzONMl6lLA+26sCrnaHtesk0slt802/+gw6sKX31+3fONLJw+2MpIdiJ
lx3ue3ZYawY1+65ir+roxHLkp7Hv+xkUdux6en9IN34Sio9y8AxKiRIITkzs
xvIbMr32l84g5ymX4H3FFF99nKneMIMSbZICDo13Y0UhR5XKiRm0UN8MrGx7
sIrc+OjirbNoD/PBnd+qLKyGVOOLimeRQnvjLcOoXvy6Y0HhqvJZtPqzWdFg
ei9W85/bFPF7Fskoy333L+nF6t+5UmdZs8h9or/q8EgvDl9xuGC+sAAcNwpU
/mHGxhFZyzUzlwsA+pxnFfmXjaNKcgWFTguA0yeHu+Zb+vBAe/pV4iwAJrP3
Dbfu7sM7Jl4PNp0XAN4XVqqMfR8eWfWw490VAbjq+tDC9UYf3hN29vOJIOp8
n+uToyV9mGan7Ff2RgB6Bdv3ae7h4gMeMv9ykgRgyLN3p+cRLk57IOL2Mk0A
aBfW9mW4cLFt0YiD13sBmBbV5f0K5uIc9XLQKhEAm/pHxuXlXHx2yFsgjCUA
E3R1tULjflwkdvGKT58ABPKXvz1u1Y/ll58ZOMMXgLJtVWzesX78zca6ffuY
APhOW55Ivd6PF+drFY7OEQRuGqe+50M/rg1s8z24XBAUlwv3LVnGw3oLt80u
Pi4ISaJqb717eHinba274ylBuPul60HIIA9bPj3JeuksCG0Zv0P9pnn4rEJw
udolQfh45WzGtCwfRzGanq4KEIR9JUf4tgZ8/Ffi0ubNCYKg6mBknRzBx8K7
RZKvJguCdH0uPyqWj6XuPV2Uly4IK2oMmk8k8rG6aNHcrR8FQSXI+k5EPh9b
z6X/3l4mCP7m+XMsO/n43UyC295+QfC4ER2+dTnBhfp6PSEDgnBV8/eL6VUE
//T6daB6RBAG4zc7RW4guGtiFFlNCwJri07/ie0Ey4wbSB6WpAEZ+LjgoD3B
Khvr/KJlaODfxeJMORGseen0aAuTBmH+uTrezgRvG37Q7LCIBknpktILrhJ8
njQnnlhLA97qXTIPQwj20jqvkrCBBpKJ5ysVIggOOicUxtlMg88K38u9nhIc
w11x1XkbDVSzq879iSc4UTO/P8WIBsIR34V/JRKcc9rcgeyigVqn35e4NIIr
ej12uFvQgLvDL671A8GNaqJ5WdY0qE6y/GCcT3CP0zOt0UM0sFQS7LjzmeCp
ri+MK8docKT5k82b7wSvbJfq9r5IA07+fbu19QTv6V1c5HGFBjvvNaRva6Li
56+NdfWigX6fcpR2K8Hvpsxtj/rTYOtdsaUfuwiuEzr636EgGlj0GOabsQj+
K+omv/8eDU7SwjoL2QTrKYTWGoZT+TbWF5vwCD6y+EWm/hMa9NQc8HYgBF9X
zwjZGE2DjAX/3lsPEhyn9dllTSwNam3K3FcPE1ysU2Wm8YoG91ymkrpHCGbp
dWiqJtDg06bWo15jBIsYDoooJtPg0euWsJFxqh6mgr0y6TRY/iVQf/c/gs0s
pL+KvaNBcVKQQ8AEwS4HVV8Kf6DBsYikiZhJgkMc1vlN59Egr6pRNGqK4MyT
2+zHMA2Of1sUcnGa4FqXffrkC1Wf8bjba2YIHrt0VIldQoNG4eSxMorlvd3+
tf+gAf3tizrjWYL/8/f70/CLyufT/BUvKba9G5pdXUODKzq3eW0U+4S9ePjj
Dw3a1LqXUu+bODYyw624iQYORdM/Jiguiv28N7+Nytemvqee4u43Vatzumgg
YfnI7THFc9M6xNJ6aXBz+yXXjRRr5Axy3nBpYPTrT1s2FY9JvmBpLKGBUMGW
LwyKnYulX0cO02DX8FZFayqf4B+q/mHjNGh3ed7jQeWbXr3O8e4kDRTNNqpd
ofSobtgG/rM0GCkUbDlI6TXSvk/FW0gIVBYqiSlTejLZR6cuzRMCTmleRgGl
92bi1ugiJgSShnrV26h6eE2HRjgsEIJtso0BnCGCnwvHXTwoJwTGVdtVJKn6
FoplWlgoCcEeTbWNC6j6CytWSxouFYKJTdtJQR/Baqqd/XrqQuBdWRTuRPln
p8ZQmc5KIbhfavilv4fgextlAtW1hcBlWutrdDvBqfpLnBZvEoIU69pnX1sI
rjRcv11hixCs2D42/1cjwbL7LWZFtwvB5xmfhJu1BG885NgitEMI1lcqdmhV
EXzgqHvelIkQnNJ+9jG3nOBo17DLfAvqfotlD1z8RnCBR5xVr7UQlK7VWR5X
RHC7d6Z2+yEq/vpHsekFBC+7V02qHIVgZ0VRhmsOwSkJMqey3YVg/x6jTI9X
BPv/xtuELlPx2u+0NIih/EA7p7TPUwiO7LA7yIkkWNS2pKL/phDEqifFfw8m
+ATdS2fZIyFQ/hAzU+NBsL7eCrp7pBBYMqtcPc9T+ZyuY+NnQlC9Wv/azGmC
vxStjT78WgjKF0xdeWxL8GKPHtrD90Lws/PbBAMIHo8La27PE4LzrAPSTzdT
8+IXytEqFIKqhD+CU2sJ9l4RdbqsVAjSdaTD96lS86N5T6VgoxCs3VvpYyZA
cPj2D8/OTwnBYocpgTvv+fjseafLBQLCUHzTeUNVCh8bPJPZJz5HGAr6r3WO
vOTjwTFn4QQJYZAKMW6uesDHexJVz7apCMNTlyMhXU58LCJ9d/OebcKg615c
cV6Mj9v0N8tEGwnDsQ9P7G/N8nDOmR4uZ5cwVDs3bLg8zMNOxSjmloUwfDZ7
1j3UyMNFl0fm5B8ThljBdo5pAg97tdrVrAwQhq/xmQ9D9Xh4ZIf+M6c7wpB0
fbHGFy0eds5QPhkTLAzv2T81axfz8GH/pgmZx8Ig66r7MVyYh//TPLhk4g11
/svsnNCyfvzvkqVb6Xdh+OA0fO+2eT/2kDClO0nMAa3V1dl9hlzM99BseC49
Bwz+CbI1tbn4RPv8l/WMOTD4c6DATJWLrbNKN5qpzIE4y8FEnek+rHPQ+Ij2
mjmQ1bI883kW9fx/tS1FcN8c4GoaxbYp9mE3vc2mz8PnwKdt63+9q2FjAZdw
3wdP5sBuifaeIszGwTEDWdej50BRSMjQhyQ2TqS9VT72ag4cWdi/xe4mG3eW
KvDV380Bu6XbsoPWsbGl1WRIRs0c6H1x4IvX7V680aWgrlhmLnCELQdPa7Dw
RIyhIzdkLiQ9nNy4TL0Lbx3XD1v3aC6oe+g0vRPrwn57NhVdjpwLoyNuhWsG
OrHI9IolwnFzIds670f3h07MOETvVM6aCy4mZw7v3dWJ18o2Ht3zey4kPF1o
Z3CiAzsFuR7NUJgHT/WMNs5f2oYrz0c5XI6bB1of/tv34/QfrLtjyUzLCxH4
9+dy+eggxt+NdBMgej64bBgUL/QpQPEZkbqdSaKgJ+hbtFy4Hp2ZPKxZnyYK
vXsOXfyztR6tNVJRqsgShWW5Hx3crtajT/VxUx/zRMFvnomQHb8e1cwm4dAf
ovBO6dsqiT8NSHBPgdE2rihYtNJNYl42Ibu+zn2xmmLwtGK2QFCjDTGWrjpz
5K0YvD/NTetjd6KQsLvWb1PEINU7699D4S4kSuMajGSIwQmbU7bqi7uQQMdb
pTu5YrCDJPDEbLpQ/3P18uwfYjBiFPyz9EsXKlZculaCLwbOxkd0x550o4sy
imN568XBQKX7P9N1LET8rnbO3SQOkUYaClO7WOjMYH3Fvi3iMKXKNX3oyEIO
lY/f9G4Xh90mRfoXH7KQWTDj4AIrcbC2kd42PcxCS0WlP525LA6at9dHL0jv
RdWCIjcUPomDpRRJjVjAQfyUyCPmheKgV6d+9JoGB80/tHJLYLE4vKwwVzPQ
5yDI3DMy8lMcSnT33Pc+wUGpjo9OVLaIA9n6be+L9xx098sS08BZcajvuKN8
25LaP93Slx01kICOqHwFwytc5LDu18DKHRLwyl+kw/c2F3m2OJQ7mkrAAo6e
3LMoLsrU8Q+o3C8BRjqB/p6fuGgxq+xv0nEJCIxRtPk2w0VTxgdaHAMkwGDD
x4Gb3v0oW+TC68rvEqCgr1ugdoyHWF5+vIJyCbjEarxxx5WH5AcfbEipkoD6
h0GNVZ485NWQXHS7QQLSQ7MXiIXzkGEiq9WAIwHktNIptS88VG16SC5bRBK6
RWXKxpSo/XLhqSMvxSXBu3buuWA1Ptq44XJ8qJQkBF4zHRJZx0dRyuHaLvKS
8OzVCc/XRnx0lFe+V11DEnp0fC/cOMdHA8HbgiJ3SIJi9vC77PfUflrI/Feg
qSQcqbs85VHIR5aXjzA99krCDsukUMXvfPTB3vOVhY0kWB5ovSnSyEe+a7ML
xU5KguAD8spngo/SX32ZN3FGEjrkX3jsoxHUKV+9h+1CXS9yxnquKEHGgqS5
2EMS6AeiljAVCJKs1vjnHSAJX/5tWFauQxAYbwLnO5LwNe1xdJoeQe65RoGH
giWpefWu78J2guriHBmbIiQhI4jBf2FO0LML0esG4iXhRWpyR9hpgip6E6+0
vpWEm6932dx0JUjA9iP+mSIJMU533awuEXTcsG7322xJqEx77v38OkGrGFJn
HL9KwlByo92XRwQtSMtLjv8uCd+Smms1nxI0sfMkYZdLgvjfzhMusQSVehVc
dK2ThIqYLcW3EwlKY555n9koCVkPFvgfTSMoIp0xMdoqCV20yR2Md9T9up19
vXolIW+8+JtUPkGmPvJFmCsJJpMXLh/4TNB6+WJhoQFJCAj9Ief1lYrXTOnO
7b+S8KDhl6xNOZVf1vfwiPl0aHF5FXC4iSD/3Zf+NEjQIXL+oO6NVoKcexcr
LpShwyefkjz/DoL+U7oS81KRDuZdwQsX9hKkmr20k6VCB1355eOZHIJE9v5a
prmUDmkfH4Qt66f0vKGWmL6SDgVXBoWeDhCUr1zdP7yGDvOW/qmNGSLoVY73
mk0b6CBw0MXu+ghBd81XuF/bTIcF9o+e6o1R9emrfZevR4c36fvv144TdND/
+rjANjpY0xrX/v97KKis+s/QiA6z22/4P54gSP3DH6/AXXR4FfcroGiSqr/F
TVy2mw7Kd1w2fp8iaJSrRZO0oEPI6w1hSdMENd9qNNxnTYc/PYsjT88Q9GVR
QGD4IToEXzlsIjRLUOLHdWV/jtBBvkYn/grFoftbxJWO0cEuVfPtd4qv8IL2
HjlJByeRVqsxiu0DN4S9OEsHvGxh0gzFxqrttd2udMi715rQSfHqvLtyGhfp
4EE32BtHsazVpkNnr9Ah83PIc32KJ/md0aledAic1nv8joqnMyi4bfA6HTqP
durOo/j7kv+W6NyiQ3mVUaAOFX/6p57jV27TIeqC1XVE5ffYOvRN3n06/EjT
UFtO5e8zoNc3E0qHpjUC11iUXk532KsMIqjrm428b/4lyGxZuOutKDo8brm3
borSW7sAZZY+p+r7KPSJ+ShBige4I2Iv6bDthe6768MECQ5FbNr7hg7ZdQ8D
7g0SxL5rcC0siQ6voV76IiEoB0fOyr+jg2RTuW1dH+Wvg0YGth/osJeZr7qP
TflreMA/5hMdkh/JJL7pIchCfaeo2lc62Oqtk2a3EaT7edjs9Hc6uLzxG6tq
Jmjx4ZgHyeV0yKozTn7cQBAJHpPVrqPD4XW0JznVBPUPqBStbqRD0PZI1b2/
COqz2OGq0UoH+/02a0t/ENTNfPJ9IYsO3FY77uFighqf6/qIjNFhdc0/EKX6
p17AcaXQBB0OVO63fUP112/HO/XT01S8NzWUlycRdOrhuch/NClgrPrvadEL
ghxtCob5olIgv+uBUsB9go4GWZj0i0vBuLVHq0YQQQ4fWbEcSSlQzuM5J98g
yE6JvqdbRgq2dx+jWV8m6ECbfUKDohS0w/w0bXuCdp8UtCvWlIJnGfPcVFZQ
9XjyKOvzKilYNFmeV6lKkMn3FaJYSwpGZpw3HVckaOdKi/cf10sBszunVUuM
IAMSJ532nxR8WJhatJ/LR5svG36LNJGCDj1LXmc8H21KqFd+bCYFc4Mz/yVF
U/O7wflC+B4pyPqdnGv9kI+0tzxa/MBCChqZt3z3Xecjrdmea/6HpOB6W75K
ywE+WhoYuMb1jBSITjYetxLmI/e6DT6OzlKQUeV/0+MfDxUu7/xp5SIFLa2X
F3vyeehIsd4ZPXcp2BSqNKtVz0NRgkOv5l+TglsN568ZJPKQjJet4qvbUmBn
bq24ZBcP0dzWzWlIkAKf77+nme79aF9h6/6fiVT8KEOj4Fg/iqXfi8PJUiBg
kb7fxKofbU1lodfpUlAXvLpDenM/usZ9eu3CBynY6Gty1H6Ki4ac5g5IlEqB
TWb0DYHrXNR5qKnRoFcKHvlCdfGFPiSub/PGgSMFii/Kc9849CGdRTUXfLhS
sPxklcK53X0oqKtMPJdIwV0x39AYtT60xjl367q/UvD0xoWy+D8c5OUdGbdo
vjTcME3pMdnAQYxYmzNTmtLgJlZ/Iqq+F+3sqfmX7SIN80Xk7Uqru5H3ymDP
tPPSMKJ5pKkwtxtluu2cTnCXhr6kV8vi47qR0swngWgPafCds8NjnXs34jNf
z7vhIw0lP7KSD0t1o/CdVxh7gqXh186mw2K7ulB7kvI6Voo0aEccMLyZ3IGu
uDudYvKkoYG1zPD3jWa0J+epCdNDBoy+vT+UmFGK+FNnvITGZGANe0Zs481k
/OKP3zuXCwugvcl/keNINZ44pe9wdXIBHAzldaet7MAmeZpwaXoB/IgRCzpv
3IGfSsgvdptdAMmt71YuPtqB9TKH2k4JyUJMRYaYWUQH9pl8Y39ATBa+++3Y
XzPbgYWCZew3KcnC85D5R2//6sTiWb12o//JgoxPomqnQze2nfNbf1BPFgyi
jUz2Xe3GKTZFC3lbZSGNk7Y7ObQb75mKbuk2kIWHepq3lhd14xAjC7taE1nY
tDVGecmSHixb/8k265AsOI242q9p7cELp0MPu12TheKyG6ITRr14Z+fuj4+9
ZKFTjrYryK4XXyyZL1fgIwvti0YDJy/24rJQv2rRm7LAWzYcFfKyF3uoue16
dVcWtIQPqrnP9uLKveab/kTLQlN+0JfJDDa+ESe5QB/Lgu17c5PLgn04JbDs
/LHPsnDKeCbgAqMP1zsHVNz+IguNtwVi963ow1qbZm7XlciCwz0LsSzzPtz0
gydwvlIWpJoFd4s878MbRn/y4zpkYe7TLYs467mYteNumYgwA75ax10cMOzH
jqYOi5fPZQCSianLsuzHLXt0PLaJMOBiz0CizfF+XGvVpnpNnAGh4qJOcLMf
Fx3TvsqVZcDxg3MhHPfjZ75N6hXLGaBScUhi03oelr+Z7t2nzoCg58Pv/yEe
Dg+4VTNXkwEvC+ornu7m4Tv31/giLQZ4TxFhn1M8fOXpzbr0jQwYn1Ud+hDN
w5bvV956uIMBv59s2jE1w8OVuQJNabsY4LLJi50qysemBb/X/jRlgIjFLllg
UvvZr77NwuYMuGqlWD+9io/X1tRoexxgQJmcTEbPAT4WJ56dB04zgJXqoG6b
yMdBQ+abL51lADNx+8fBLD4WGlseHHqOAbnRKxWc8vl4YuqXbpkbAxK3MxV6
fvExW3RZ6JZrDLhyWmhq5zAff1H7iVTuMmBD4uGOx9oEmwS3mTDvM0A2RVgm
8D+CK0eHrCQfMOCXavaMzTaCW4sVnGfCGFBi2jL4fA/Bfx1PPmmNYsCNM8H3
C08S7FN27WVdNAM2RXG4n84RPGd9cGrFcwYIZCXWRl0gWEYwu7ggjgGjFfla
kz4Er4qhDT5PZABc1T23O5zgzLnMqYhkBlhunhdgFUmwrsuKeQ9SGfDx6sTM
1ucEG+ubL/TNZICt+/GZ7DcEl786pnH5HQN2dqd6bk8m2FL8srZrDgOw9Tfj
zHSCjzY922Wfy4CMapNs7Y8Esw0yLG0+MWA4/Kr5/79PuiQW2+8tYMCuqr8a
/30m2Osq9xIqYkDOVNaNr6UER8jpxi0qY0CkqPalM3UEK/uapcj9ZIDwgGZE
QAPBL1n2H+gVDFjFlGm42UxwenZAxWwVA+rP6XxU7SR408KohvEaym9yAvuK
ugku8E/pJr8ZkD5eN7u9l+Af+2sn2hooPTA9so9LsEVe75z6Jgb0fSM+dD7B
9UsmpSpbGGBgXO/OGCDY/o6kcmkbA9y217hPDRLMGlRVL+xggPsXEe/iYYKd
D+qs/9DFgCc/Cx6cGyV4uHCnfnoPAzafOvh2fIzgaxq2OxN6GfDfq0Oljn8J
Fghx3R/LYcCtcEdu6j+CA8ZvHHnCZYC95Rrp5gmCJewjTofwGBA179nmvkmC
w7+9vRhEKH2a4h0apghW1Mr3vT5I5SviGPR2muAXjyrvXBmmjlfPSzs0Q7DG
dNej86MMMLvNremnOPX4eOypcQY8uO07Zj9LsM5P0WSHfwwg+pbMdxR/0lZ5
f2CS6mcVeW0OxQZP1xWZTzPgReZjs1mKv9OMynfOMsAvON+Rel/E5mcO1IMg
E9qswi5VUFxXdbZrsxATEnP1bgVSbKfry187hwlq3oJhqv//nhkb9k9jHhPi
zm6PjqbiOSPyWlh1PhNUHG+++kvF/4MWdH+7GBOs87orl1K8avo084QEE9ae
1byjSeUbPG4aE0Rngpnn+SpxSg8yuFojSZoJR7ym3pRR+pn30zPKFzAh01+f
fpzSN5M1qDvAYEKw1k+RBkr/BR01RTLyTDgWcSZiBVWfi03ZpjqKTPh2QDjX
iqrf79+Pa22UmWAYknrJjqrvxsqrdtdUmCBU8+YHEKrfivVd8RLq+Op95lF9
BB/Ei/52LGMC88tufyk2wbkfBf2E1ZlQcGi9nWMPwd6pX8N2rWSC/j5Z0cg2
qn8T3ig5r2bCePjbbm/Kr/Dy9qvgNUwojrZ220r5mfZkd06NNhNsevlpFtUE
Hwtbg8Z0mHBo+tPp1xUEF9+TLpXfzITRi6d6fpdRfvH73WCnx4Tmh13apUUE
93q+d7y+lQkC59rpdwsI3ukRyY0DJkwIMApX5BIsdtZuuteQ0h+MMiao/gyx
7FnsvpsJLBLnzI0meHBPydvwvUzoxQt97z+m+mHX2/Xv9zFBrkQ/TCyMYMbW
c4ZTVkzYGZNe8zSA4Cj10ZMBR5jwRW+1t4QLwZOqfwYSHJiwQ9tndwg1j2yV
P1794Ujlk7fEijgQvEja+67USSY4pH3VMNhP8KsJ4bQoVyZ8HB0p2LKRmlej
rE35bky4/sRY7YUWwSdIaWHbBSp+tx9zutQIXtF9r3rZFSY8s+0wn2JSfi6X
HUu9zgTdyo3yAaN8/D52mf6XUOr8o+7jM0l8vGzW0PPzQybsnZuiUR/HxyF2
Th/xIyZQT4L+sEg+PqX4WudTJBMuXv9qkRLAx4rh6lrZL5hwIDfquYc9H3sF
ai56k8GEhW2rO4+JUfO7x8QuPosJTZMPag8J8LGV4dmnL7OZYHpiy6T2KA9r
CSbLxX5kgl1VvfT9Vh5uu7ZaKvIzE2YF779oSuNhA5e1gnermNCvuDJixIyH
U3+ao9s1TNiv6kO9RfCw0ko378DflJ+T6Y1MbR4e6c34d7OBCdyb8Spf5Xk4
/qj2kFcHE3xj2btLOvuxiNXGLpdByp+jE8tc3PpxxRa9rxbSckC6WH6JV7n4
zodLk8YL5OBkWu+tiNNcvEMnbd0WhhxIHiy0P3WQiwu1ljxfqiAHc6Lrq/M3
c3GWqsjlkcVycAStPbdurA8/mVerEbFWDowsvl/e5dyHj9WcvdewVw4M154S
zTTi4MXm8UXl++RA6GLtgyvrObj5Z+vfz/vlQIB+QkR9EYd6DOxzSrSRgzd1
Vcp6f9l458dNWz3t5cB6V3bzzrdsrBUjNKDsKgdFekoW03PZ+O+Zp/sdguWg
xibz9OEMFn5w7eU83xA5mHvF3Pt4JAur3UnKexYmB61L2ldZ+rGw1du8pU0R
cjCWxPjZa87Cmb1Nw1YxckArrZ3bxe/BzseVw03T5eCntfjbbWo9uN3uWe3G
ajkY3BAlfvJmFy41j7GSYMqDa1L8wi+TbdhRV+/Nm3B5cCjKfIPcqvBpXvlo
c4Q8wO4E0c2rq/D5F/aGMpHycNhByVuJU4l959/s8HomDy0v3zW/cqjE0Q3f
lSxey4Nwo/P2R88qcN1Vm5Cp9/Igt1uu0npvGTbJdb+6r0kePjkof1SJ/oz3
uQiXBrTIwxfBbC95qc/4wJII5qc2edg9a3ph+mYhPnnnY5Zatzy8WOizS+5P
AfanTDfZLw8LcHvk4wu5uGDivuPrGXl4Yi2m3fk6A39NXZTRJKAAiWJnI5vv
peOfjhmzUkIK4PvodvytnlTcVFYb7TlPAdY2rdZL90rEf6OU/phLKUBKyYkL
j9++wLN7UpYHyCjApcvxJ1ZwnuO5QuhinqwCGNtVbJrxicKyZx2l1RQUoBHp
W5klhmKlRSP2h5UU4MpBdlms7x28pOZWashCBShJe/EsKNEPawbKTX9dpACG
hhoV2YlueN2Wt6aTqgowtfb+//+/W/A/mI1IOA==
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVWnk4VV8XNlyza7i411DGSsmQqFS0dhOKqBTKmKR+UlSGiihlSBJCUSJD
NJChENWupBASMs/zdO/JPPOd76/7vM/ZZ+213vddZ991nqPg4Hr0DAcbG1sY
Jxvb/385MX9Vz5Zbu/6sFnn/tzp219qhzztlH9rBCWcvHpNML5jP0nBsinQF
xT05nmyZQdAnfm42L9IPMjZwjPhmPIJm/TvfUiMfgNLpx0q1r9Pgr12kcnxk
AnSuNuo6kpoPR12kmh9HvgXXZHupi/d+QsS4dW5MJIZ3WSdXHq5pgPsScbpf
qF/AXjE2cPOdBqjJDpDbcvQLKEwcvhPV0wBWw9Z9si1fyHySqAnPG+GilcCl
8dGvEJ6pkZIr3QxReueCY0W+w5bHehd42Nqgg10xf8CiFP76WBReMuyCNc+o
cdZPSyHLMlUj4koXnNsx5/OnsxQ4bxwsuP2sC8YvV+8p+q8MGBfqDnROdAGl
17cqzLsc5If2Xjn/tBtUfrT0bUmoAKXld4/P9/bAzpKD/HuuVIOXdMjWnYf6
QaTuxe9tD6sBFbba3Hbth95ujmi13GqoaY1QiY3ohzC2IjmpiWoYtIv2V/3b
D907N275d/kPNLTJjwydGIDgHAH7Z5drwLXYlup3YhBsvp5dGxVZA8opW974
Xh2EzdXFw3dzaqDztLKdwaNBaGV6e3iM18Bx4+vMzXWDoLFhNMT4ci2UPCd2
njcagvqEivfzl+rgS9tevE5jGF5nrvf+F1EH0Vjg8OODw3Dz0x3Un10HYwm1
7VVnhmFDi+6vP2N1IDAXyxHyZBh86Bmd6Zf+gufx3L+alBFQun9fwOJSPaTy
b1gQLx+B2SdD1cYR9cC+9thYYdcIVLzaH7Mnux6s9IvMFOdGwLN0SV59rB54
KzLvaSuPQjnnxa1clxqg10JD9dTNUXC7bnIq160R7oltW5O1jgkHL+qm84Y3
wq7Tza4T25mg5KBC2LxthKBYv7czxkyoP8B9g5fVCFGyu8/uucwEPanPj23O
N4FGa6JN6wcm0KlvOnJCmoC9P35Y8RcT/rHFreN91QSS/uc3b2hlQsqgx7uc
wSaoq1tl777EBP4CtWoep2aYHao4wq7Hgt7XMgybgGYQonj/3m3Mgs8JfLY5
Kc1wcsl1DFmx4FJQ34h1TzPIthx7fv0qCxrN43ly7FsgfV7gYONbFuQcvGfC
c7MF4u9L+fF/YsG9XdeirRNawEpW8cx8GQt2rTuuxNPeAsHDon9pPSxInRIE
a6tWuL/z8EklGgG+Q/MB2ddbgZjU3IBWE2DZNljBHdcKghW3m6TWEyBY8v1k
dmMrXK84d4tTj4D+gpzn3LOtMCbdYSRmQAB+kzhoxWiDL5tD4zsOE3A5yseT
27wNmkvD/TNOE2Ac7PzJyqMNXMstmJkuBKzzsaRkR7WB+4R2mIsHAU2ntSOt
atuAQ8VSeVUgAUhrNCPrcDscS7D5dTCFAGnl5kkut3aIiR2f3viagAnp0p1W
D9rBR+zPn9JsAl5wpJRxVbVDeAnLestnAm5OR4hYMdtBetJ+nPKdgJPDfhZZ
gh1QWerPHl5GALXGqu+kUQdEP4qyaawl6yk5oJrl3AEXRc2johsJ+PJh2xWu
kA6otXeWFGojIC5jbeHJlx3gFq3aubuLAPfnYuxZpR3wgCu0e1MfASbR7IZc
gx3w4pQgo2WQgKjvXgYZnJ2Q/KPEA42S+XxmDVuIdcJileOMPUHAhYIzYRxK
neCTpBKtO06A+oEj8uzanTBrPW/IO0XAvybdnJV9nXDmuG27/wwBOc7r9y0f
7wT9zwKmb+bI/RfE6hedOqH4W0D0nQUCtoaunF3w6oSEqNUZAksEzKwamZsL
7gTJq+MRu5cJKMiovzcb2wkfK8fQuhUCru/6tnrmVSfoSjfkfyCx7u+Mt1NF
nbBeUHVqgcRLdrG7Jys6Ic3PcHaUxJ//3akdb+uENTePfg0l8c1bbmfGWJ0w
ZLDrSAsZfw/NeoZY6YQ8vaqXjeT+nMkGd1kiXWD0L7LyziIB37W0ZJgKXdAt
PII75gkI/C6bMbK5C5LOcAYMzRJgeJwfhvd2AW9ZvULSNAF8/VPVg8e6YK+Y
+lO+SQLKPbscBs50gb9I4rzcGAGhPJWTfZ5dsNM1Yl8fk+T/cUFgb1AXuGRo
+58YJkBkQ4pkz+MuKOEM+ejTT8DDg966nYVdIDNtalpN6nmsxamq/VcXaP75
/omtiQC6y1H7ttYu+Mw/eayT9EPc/Q13mpfJ/JWtN2eUEmAtK0FvEu6GwTaO
6LhvBKx+y5beIN8NAkfhxLaPBCRWN/yq29MNFhoKhn6ZBDicKrapNesGmm9s
tEoaAUrjmcQfx24QXTIOCUgg/SoWKPY7sBvMBavzDz4g4FzKpdTKR93QRa2R
ek/6X2WLzbaK9G5I+3DF4/cNAjLMta3KyruhrCfPXfw8ARcH5Jg/W7qBp77H
AE4RsOmqgN+P0W6I6vpxRdqCgHex3UnFQj3APeOl172bgMLW8OFPR3tA0lz+
SaEYAT4XfHw+nu6BllYhzfM8BOgtnxUqcu+BoO58zsp5FnyRg80FMT0g7Snb
mdLJgp8OzGs5zT2w+q+k8st0FtQNHuBLc+gFfZV27jUqLCBi1++/fbkXhMc3
/5KXZgG/Ec8tO/9eaHLdz9HCxwKU8X2WkdQLPm6yJ4IHmfD6EgwGd/UC/za+
T+VJTPCf1/7pbN8H0k0m9SICTIh/LcZp4NYHTyrudU9Pj0KB9fgupZt9sLAZ
9T3tHgXm57d5LQl9UM72yH/Dh1GwvK3ywrijD3699d148PQoaAjKB6jb9sPe
88tXal+PwMFPy1/4L/ZD8xZuzd8PR8DxYtti/41+8NnyYeq+9wjEVce5J8T3
A7vzugvHD44Ad7SEo0gbeU6uuU+j9Q1D62qBveNWA/B0j27bFeFhCNGYZssj
z8lVKkpyt7YPwnWvAxv7nQdBe0NoYhZjEP7DT4/TfQah5u66h8+nBsDQdO8r
z2eDEHTYVL0sawB4XMPNtvUMwtwNLZHtawbgTqbKiwKXIfgzVbx2dKUPfNXs
jIr8hsnn7PG6vfd74NLG0ugvqaPw5evcHwO1Vug903szMW8UFgODz+jWtIB5
IpvLzZ+joGIkbzni2QI7JLbvQUOj4P0JmN64GThWXrKwKhNOJGqz3TrUBJE1
9wxwLnmOjVDX9dvUQ84107lPX1nA2GnwM9q8GuZPn89su/gPuKxzGL39meDw
yfxwuNM4pLhaPpF0rcWb8yRpUq7jcO6rwIfI6lrM8ba59rnXOHCyW0o3a9bh
pERbi9zgccjKHyqumKjD3bedbOtfjYNNVEH0Oo967HDQ02UVMQ5nl4pl/7o0
YYeG6OB0rwlQ737tF7ChA2+utjioeXMC+rTb66r9OzBHmZRgYfAEWJxtuf6r
pQMnFcY/+BU7ARuun4g+o9+Ju+NTY1hFE2AmvS37wlQndnB8n6LNNgk/vj1V
2GXUjU+P1X35EjwJY79VJ0ZqerH99XCLgvBJSCm9eF9+phdbcxqz3j6ehNaw
DNt1Mn3YXKJYJiF9EuL+LjumOPRhw+3ZnjdKJyHTRPHwKaIPq9+6r7qDdwpo
QdY+cSv9WIX/QLGmyBQoCDV9+yQ/gJUfUk5ukJyCLr8Bl4zdA1g+1TtIcv0U
iO3U+PHPfwCLlf3XPW0wBemV9MQVjkE8K6L/ODdoCnziLQTY5gbxZCy7xusH
UxDP2y9ZSh/CY4qfSpIeTcH+kzkbLLWH8LC29kRE2hTcUko89PviEG6zVDRx
+zkFnXypgbSuIfwtcZlTjWcass6HJbwvHMahm/JdXwROwzE7a6dqNIrLNzf0
e4RNw7cjdN5c81HMu2XGZn/MNJRsMuyxdBnFd7ZvM+5NnYaplq5QZswo9t6T
v16xZBqu6Oz6sGVoFDsfy++K55yBFgP9ezL+TJxu3mB5QWAGArfMKKyOYuJ+
y5nfumIz0PjT8UBHKhOfstn2uUVxBm7uSMtJKWViS6f8OKk9MxDwgbdfQ4CF
Da7mm0XfnAGd8dZDG+6w8J3rDeWOwTPgqRS3RymShb/5zOzWDp+BfFejtJYE
Ft51a9um2oQZOHHA0SiokIW3huQLiuIZGCrePfRjlIXdQxtud/6YgR+NT/Zl
z7JwTtjM/NuqGQg+PKd1gkJgtYfbhkzaZ8DJ3/R8lzSB1zzNLwldmgHBlsTk
6n0EdnjWoGvNNQveNGeOVBMCJybO5G6kzgJS6tLdakngVanbkspXkddPmU+E
ORP4ZJqFVNyaWWgdWTAwv0Lgxy+9wv9TnYXfNs82NHsTWCwz35dXdxb6vtoa
MUIJfDirYaph7yyY7Xl5rvohgcNyZlzSjGbhiejByv1PCMyfv81K32oWuMzX
qJ15SWDDDxY1EqdnoWSLOL9wFoEDi7wO9DnPQtT1n2PueQTm+JK/7c71WThv
rfza/RuBX1FpL5b8ZyG6xUY2oJTAR61cxL3uzQJnzHqz/VUEnk//4f/v4Sz8
TObY+b6WwMnT8mP/PZ0FlybN0rpGAhvv87brSZmF1OEfzOQ2Ak9G/K20zpgF
Zkh8gmI3gfephbwy/TwLwQse3urDBB693itZ9mMWsnYqRxQxCRxVuitoz+9Z
aF99jX/2H4F16bFTRQ2zoD8LHT0TBO47PXF6S+cslBbK8PpNk/VnH6rJHCTj
sV/1LZsl8NaVNLR+bBbC1obqFs8TuN2Y4+3zuVmwN7LSc1kk64+zXi3DMQex
ru98vi8RWH0w714U/xz4Xto882uZwPVbROepYnMQKaP7yn+FwL63z58LkpkD
RRVK1CCJlf+U1LOtmYO/pndzl0hcLSu//7rqHGjrxPB+I/FVl+u5E9pzsCn4
68MtJJYvrFO4oDcHL1svmFuS8Ut5NML798/B8I+yoyrk/m7H7y7bmcyBys/f
914vEFgyucelyXwOuPbrc7XOEfjLP72Wo3ZzMBOAi4tmCPzfrscHKs7OQcXz
2IqDUwSmhY7n73ebAxmP5bV3xwlc2GS8Dl+dg8yInnpPgvSjclqUzq05mFLl
HxAbJf3hwc6Zc3cOLgmu2NoPEjjnm9WljZHk/W7Shta9pB9F8jpS4ubgz7zf
G55O0h+2IiayyXNQ9Fj2kUMLgV+/dv746PUcvD2dJXahnsDH5r6riL6bg+iA
QnXlPwRe1JeLDfk4B78l70+F/yL90F3rcaNyDlx7vuIrmPSDhnrv9N85OF/2
oWu0gMBPbwQfdWufg+xNqaMSOQRmSuppnCZIPnZpcV5NJvU1fTFoKDoPRRo2
hr7+pL7xbBbfpOZBnSf269VrpL7DJ0t2Ks7Dtm2LxUpuBNYIFE5S15qHN4pQ
fM+a1OfjVSvx4/MgRclwe6FJ6sNfW3bfZh5UVZ6MK68j9bFU0+FxmoeoXr7q
k2Q/u010ic97zoP5WRuJv+wEFlUxqup4PA/X5Rp15SpZuJ8nQbQ0cR64cfR2
+S8sXNg3fiwrfR7+22X0rC2HhR2fx7XcLJiH3VfLxMMesXCB5PCgQuM8zG1M
5y+zYWFbnrucjowFuJ2T8ry4jYm1+lr1jeUWoPyOGn9cBRPzFm8K0VZegFj+
hTH1IibO8W0U4dq2AII50k1Rj5iYa1pZ9oX5Aqh1FlseP8TEb3p/6AxGL4Do
D+l7lW9G8a1v0j7V8QsQfcWAlvBoFJsnXsQFqQvAe24Aa/qPYjZruv7d9wvg
NOhm9IR8fpvVnjFT+bsAr7z2utxZHMHzXykXXcQXIW28v6FZdwQbJuxJ/he5
CJp2cV/FIoZwUGl1m/+TRTiv/Nac6/IQ/jFmKymRsgj8rx9qvT86hPfv876/
/f0ieHJP8h4RG8J7hnK9/BsW4aLdPyX/iEGsq7XWWHzVEtjmBBuKk+fZpp88
U9tSlyDwBvWu89Y+7PovWqM8YwkeuYxJVQn34UypNc7WeUug8kpk/8JgL1Zz
QR03fy7Bbd3khdy4Xqwieq2sbGgJnCb/cL5a6MFrrIbjrdSXIXwgkY/zXTdm
EBX6fvnLoN+UHmXB3okfR+BTQ3gZ1O+YljNed2BJ7Rwfs9JlKLOxfKRpRuJr
j3KUm5ZhNM9HwSepHUtzOshWzy/DGbl0sQC9NizLmJmS37UCagG3izY4NeN1
oJD67fsK/G3/mrwQVIfjfhayc/7HhirP9B/gv/0F667evSLvyI5OSAo29+tW
gaF13WWHc+xo04JNtB7nbzj25Gx/sgs7UhNgHdtf9hvOS4VVrvNgR5WHpNk2
vaqGOImWJ6qB7Oj1pS/B+7VqYJbqoaOTzo4C+0ve3NL9C++W0y+ZjrKjKY8T
jwLWtMAXPd2+8H/s6Pvd1xVd5Fxf4fPbsmaSHdmra0zPtLZAz/wUHF9iR53s
jj4mUa1Am9kjZCXEgVbf/dgSstIGbkTrK6dNHOjJH8fvRac7YWOnSO8Ndw50
e9qk2k+gB0wG5L95XuVAcgeePi/Q7AE31qZEVx8O5CB/v/WHRQ+8WzxsfeoO
B6JNzek5JPeArlRE3b4oDiQcfirknk4vGB8VLRF4x4E0hRqd7E/2gct30Rex
ExyIUHi4ZujaAIT9UrgTOcOBdGwSVbTiBiCrRtPh3gIHcvniW2NYOACTnUdk
b3ByIluz0yN/5wbAZykixl6MEz3x/S/a1XMQQrfSgpS1ONG6HZMsxzNDkJFO
O/f+Mie6uIZLLFJyBO78xbs5vTjROTPjhkGtEbDmuCBzxJsTZZhXf5o1GQF+
659Vo7c50WEbw8Y9d0bASdhny5poTvRV+VPh1ZERkPfs43iYz4m2iTyw0Xwz
CjNJka2dRZxIK365dv7bKFT9hjz1L5zoRpyAzbWmUbixIe6/8lJOtEPN6lMU
FxOaW02q2Zs5UX/KUd9dJ5kQtbcg3m2RE1mv4SxVn2LCebczXp/ZKIhWGp+o
wcOCPfG0I4JcFJQ3qgfdkiwYm3ahpFMpaL6PoFvvZIHJK4XzHbIUJN0WYhHv
w4K1DVX71JQoqEJns79yKAsWOX1kvZUpqOn0NUmHJyx4bVP/h76JgpqbuYYH
CljAK3pPx2Q3BSED9yXNfyzo0NOhPd1PQbynqqx2LrEgz7lvZOgABS0NaK1M
8BFw5jskBByloM17HSMuK5Lz/9jo1VpzCkq/b4d01AkQl407qmBFQcsNP9+9
2U7AN69Jrk+nKUi06bjXc1MCYlOed/Cfo6CUZsNQhZMEuP0x+WDpQkEF3Psm
TR0JkNv40mXSnYKYy8LH8r3IebPdpnZjIBl/c21iRhwBkwZ68WdCKIjh6G52
LYkAl+xVZxPCKMi3Yyh66iUBVnda5mmPSL5ih/xW8gmoYRZ+N35CQYHyWpT7
nwk4aBEXFphAQZVNv/+Ufydgh8oJxfk0CnJQkRawqCYg56HOqNYbCjp1ovRE
6l9ynl5i5F3IoiB+rV/5yc0EJDnN+KW9o6DZR48lj3YQIF1df6CrgIIs9ru6
ZfUQELk9T0zmExlv3Pzd5wEC+JOj2459paCp8/LNPiME+At6pIWVUJBM5pnG
YRYBcx7HLpWWUVDGwt0XvOMkHx1aOzmqKGhk4oNu/SQBg4ZiXLo1FKT2YuSh
2QwB9jnjVR71FBSQ3J56c46ARpmax2+bKeia0KoLNgsEHA7IdhhqJ/lMn+4d
WiSglBWuqtRDQa3tIXzrlglAlm7T1gMUtKHmc4PoCgEFX02/xIxQkK39nkMZ
JN60USOkmqAg7w0Pzs2SOD1K6Bj/JAU9eTi4foLE8svM1ftmKaiqwiosnsSP
zlYO3FikoMlyHDtDxhf68yY7n40LJR94b8xO4sAdod5jFC4k9uPFy0Iyn+Xk
8/s38nEh/muluUpkvp5UI+EzVC7020TSVZesh+Wp0vRMlAuptNl0Ush6nTr5
khsluJCVhQr1BslH+4EhF5o0F1K+2biQMkaAeW7pVmNZLtQeG5rrQ/JZtSqd
LVCRC104pq1LIfnWDwwqx+u40NUPgc92knpsOaFvq6XBhSp6p+iF7QS8+bZ2
/QUtLiSSdXEPO6nvGlWu8RfbuNDq+QOXZ+tIP68UB0gjLrRWzZ82U0ZA6Llk
02P7uFB27a1ny8UEUGr8pcIMuVCp+ganvE+kP1N2Z7Af4ULf6g8Pbs0i/Smk
4LXzOBcK3Jv3fSWdgF4vtt0eJ7jQddP78teeE1B7ENcNnuJC8J1IuhFB+vPd
s2eKTlzI2yZ+jPcu2T+rfc9ZO3OhhQg2kf03SX/+0138fZkL/ZkvEK++QPrz
5KoffF5cqEjp7AY5sn+Sihce7PXmQm+tfZzlyP6KjClUyr/NhTaNiDRo7Sfg
kq6O0bMoLlR1I+DAWwYBbBej/B48Jtdn7cyyESQgLOFf7s2nXOiI207dUjYC
XnG8XHU6hQs5LbM21AyyoLtUiqX8jgtFjp7a//E9C9zmPRSlCrhQhGV4kUk6
C5Y31pjzf+RCH06903wWxwKZByF4tJgLfbKWiXH3ZcGx4wvh2bVcyHk7x0uO
vWS8QIuSpAYudK/Z685NLTJeQe7cwxYu9Khwvd1HJRaEyrg4ePZwIdE9CU8v
crKgpKtVa+cEF8pcyy7/FTNh68XP9d9p3EjzTqENqDLhe4K0QB6dGx2uOxya
KcmEo388IU2aG2V26KxppzDhorZG+l1FbjT75LOeX+sopM0nXDPZzI1EzOSn
K4NHQTLo1qrGI9xIzylP88ffEZhP2OcwEs6Nfn+k0W7vGYZdM3qRmtHcyPAc
/w/RtcNwy2TbN69YbrSi5WtqwzMMvEsbFClJ3OiSf4m46q8hkDgp3L0qlxtJ
/3o1kmU6BJvEm0+Z/OVGA1Kn+J8ZD8KZYNdT2VI8SLT/efAJyX5I7zgXMbOa
B3WI3D2uNNEHo1sdvuop8qD3mi2f31X2weW+YwrlKjyonntmQMO/D27u2dHV
vZMHrUn5vTNysBfiFimnxG150ApX4bjN6x6odouz90riQcctqHv7BLpAJVxk
wf0FD7ptqaBt1NMJt98GRl9+xYOM6CZm9wo7YSvrcvmFHB7Ud+LQ3SfnOiH+
vJG24zcexPtd8adAYAc4Oy3yHOnmQdUFcRlp3a1AsbZ9q6LIi1bbZ+V3ujTA
dgPF5bbnvOj12sNJXl0/oWz/9nT0lA+9Le0Oe135A1/96avul8iHBM8M7OCK
+YnXH/j+7lMKH2ouLVJWsi3FgcamX3dk8KET7z42JjPL8D6zM83an/nQtdtl
h27xVeIv9hGCGzr5kFT+i53XY//gfO8hN9E1/Mhh+Ar3w4QG7LSkPmO6nh+F
zlTLyC83YLqf+40wVX5Uvd3A2c26Ebv7r9wV2MKPDrh7zZhLNuHNdyWSufT5
UbnumUaF+804M2b337mz/IjgTmPv+q8Np2bHbu9+zY+831Sqt7t3YecFK5XG
t/zo16s5/cSnXXjTflmZqlx+tBIpFbDzexf+2Ji0+KGIH7VhIfoirRvXrrzG
Eb/4UfuDv6JPM7sxu8nn/btH+NF5tpUqwfYebDPcfSRRRQA9irR56irTjxW1
U/fEqAsgcHyz6p1ePx68cVYrdLMAkl5ODf1p14/dRUfFr+4QQAJvzIVPJvfj
ezpTDaYHBdCL3b9vrV0/gD8E8tiu/CeAHt7RjKOvH8QSSqrOti8FUNLC9+03
VoZweOQ985cZAuhwzGFNx9XDmJ9jZM9ktgCaZojd4Nk5jNm6XsqEFAogv/Mf
2m95DOPRZ8qV738JoJnx1Ad6A8P4u7TSJipLAD2N2Lg64tMIhhD/VZbjAkjG
72u7dMMILpzr4k2eFkCiBePe1v9GcFZjYpfOigAyuSu1j1txFD+NkX3oKCKI
mqwNRZm3RrE7TXq6aLMg0i/i21WjxcTErWvd3NsEUbrHm1cfDZnYeayx6shO
QXQ2ibHFyoaJ7asfpQ3sFUTdMWZVuQFMbBwmcULsuCBKtZxxrqxh4p9L7vtt
TwiiMhpdyqyPifdcqNN8aSOI9LK3m96bYWId44f84CSIOO76PaLJsLASv+hH
Zy9BtJCWm+Bly8LPrrmlv/cWRFRztfDQiywsOfQ7iu2mICo8IJF61JeFhUrD
LsQEC6K9527Ejj1l4fkAQblvsYJIRj3DybOehT2mzgtQnwmik62cGiK9LPzP
8deMRZIgMnXbP3JijJwf94ZUM18JopfB8XmL/ASuYef1l/ooiPY4vOfx2UFg
Vkas7eEvgsg8fPV32/0E5ju5cWfQd0F0wvWn04QpgVGOyeRkhSBaaiKmNB0J
bG3bWb3xD8nXp/a3LRcI7MV/OcPhryCKuPlveKsXgTMdop2q2wRR/YbSIPa7
BC4XUt7L0y2IfhXKfnKLIHBfYYHcrn5BJEd8kI6IJfAqsdbG1yxB1Lrx2HJv
OoF18IX33eOCaE5ewFYyi5z3z69ESM0IIr9xz9jFPALfK1Y0Cloh6+c+addQ
TOAXru+UP3NS0Tu3vLLKMgJ/k9GnTPFQ0Yhl5G/33+S8/rOhc6MgFTV8/u1Q
UUfg+Sv/fXIQoaK1wgzPuiYC0+UXYmPFqej4vobF0HYCa1aEelZLUtFmbv2R
qW4Cn1uTpbFLgYq4OgdqG4cJfKd6t6DHWipa/fJc4VEWgRN8agdfb6CiI5Fa
XT5jBC5cf6akW42KInVOIYtJAtfXTT+X2kxFidf+VHdNE3j8ZrDv4a1U1BKw
MXTVHIGpatJWQTuoiPGvzYVngcDrm15v+7yLisKKZC8mLRJ4X4Ce+NQeKvp9
duQec4nA9pq//200oKKv87zFg8sE9m6zr3QwoqICXopo1AqBY+6Ov4w1paKI
wk3uBIlzttwJrDajop4/r0bmSVzVJXGax5KKtF8f98oj8dD9NNhlTUV7drUy
FElM2bF9lYc9FVmtyq7SI+PL95fPvnakoiIXoWd85P66kdZ/u89R0XL/VHAA
ma/FLla21AUqev5r08Nssp7Lw35hhy9RUUCz6df7MwQOixE9H+RBRQ8NXktK
TxH41Z5kg8/XSL4zHBLMxwlcwtJeM3WDjL9kbb2XIHBn3A82VX8q+uNmaNE5
8v/3O5ZtDoFUFHUp7rHaIIElJ4Y+xIaQegY/2LCxl8BaCd4x1WFUtFF/o3hT
B4FNjKhXeB5SUds6ndPbWgjsPPPMdNcjKuL0NlDUrydwYPImVY8nVJRkmG3D
9YfAz02/8b5JoKIfqlGKHr8I3JjW91UqnYrymuRuOf3//ZGZ17PDb6jobEKf
zmABgYXZ+LyDsqhou4ptnnQOgfUtVbWnCqjopp6SQWQygd/zXnlRXUZFQ33H
Kir9Cdzvc4v5uZKKdueUBblfJ/Mfe6Cd8YeK2IrG2uovEdin6c23u01U5Jvz
J7XKjtT7VX/7niEqkvPyqQvVIbCn7NRaTSYVqfxeE0lTJ3B6JOcFuTEq0pj2
DD+mRGABb/mFhVkqQk68GVQq2d9GJxnveYXQjjMhDIs2FqZ8OWebLCiE1CqV
gr9Ws/BWba/UCBEhJF6+njJUzMJxq6K0LkoKoez812GuL1n4FLPSVHm9ENpX
XCpre4l8noTtDo41EEK/fSXCWieZWJHz8O8gIyEkdzCde10vEx/zsqV7mgqh
nY9xqHotExfYeacctRBCIkd9j9/IYmK/Te+/CJwVQqed+Cj0c0wsVLN+7kag
EBL8vGvK/NcoRvrbkEuIEOJpiMTJeaP4cuH+oJNhQmjXh+B1Oc9HcX2Sg8S2
GCE07jZwU9xrFMdfear5L1UIDZn98p+UHcWqEiLODiVCSCyJYmx8egSLvS16
k1omhPSzrue8MxzB84ZnicFKIcT2S/xUg9oILvX57O5aT8a/sPjSeGYYO/a6
+PkMCCED+22PlwOHcXxuWVQMnzBKnGp5gGOHsNDR27j8kDBaCpqn1ocN4KkR
dQ6ho8Lolo75LSmXAdwa0LzviLkwupO2Iq1wYAC/+qBZ3mArjJp37VX25RjA
+gqddb2uwmhHzp+wa5f7se8/3eHlCGEktzOw+YdBHybCpsW16oVRltTFOIfy
bjz6T/abWrMwmnxdRktL7sbDRw1c17cLo4suxvzffLpxL/1x2ep+YfSjLuyP
j3o3bn623Zd3WhhJH7M5LBzehR0sPk+w+EXQqWyRN1NGnfjQWXab7yoiqMPs
ac29oy1YKShIw9VZBCkkPf/xZnU17j7Z0rxnQAQ5Zwtd9jnzEQT1LNLsh0hs
sPeCxtwn2CJXe8V3RASVrP7SExOKIbinXLCQEEEa4kNZ2098BQ2Xwl2asyLo
Wdfdv3M+38HnRmySHJ8oWvYw/M+ksBwkEi2cF1VEUe5q4u1Bv1rY5V+7VVpN
FF3YFys/2VEL5xxNOXU0RNG8o7jveVQHH9cbPL2iJYoOxlZofWH7Cw7ZW6uG
d4qi+GyaxIBvPWR+k9jcZCyKVtVO/7J0awLDvtq59xdFkVPzKgtrhQ64sTHM
+62bKGox0L3P794BOZcMl9IviyIDD+aPKz86QGb5I9tTT1Gk5m6yfceWTmDR
X/D4+4qiw4lCgfcbOiHK8KqESZgoahpoUdWU6IbO16s0+zNE0ajn7d20y70g
MV6f0/FWFF1Ju5npFtMLB3UitJuyRVGMx+DE88JeyP3OpVPxXhTNiNaXe3P0
QWAba1fOJ1E0YbZZjBLeB6rCX419K8l8vZIzlZL64erlM+foTFGkUSHxLzZx
EIKNWGd3EKIokaP0n8HXQXi0xuus7ZgoGkuVUcrrGoS8+mCnF1OiyDjvX9Uf
hSGY2PHGcesyeV30jcHSsyG4yDlhby5MQ+/vsPg6QofhRqu3/XVRGpKUdzjj
/HIYQt9T7J+J0ZBztxFvdskwvD5Lt+tn0JAiOUa6Lg3D4K/tNp7yNKQ3PjCV
+t8InI66eSJGk4amtd78LtYehcsX+E4UatHQy852jh7jUfDXj7Rs30JDqx0t
9n1wHIXE2WSLdTtoSFlbfOnuw1Fot/55PG8PuZ/pfNF75igwtxw+3ryPhuwm
rtYEcjJhUajp2LI+DT2W85GnSjFB5uuwmb4RDbnz9wfo7GWC5Vqho/VmNBQv
FxJFiWLCueWYI/PHaWjGSO3mtTQmeDXIHZG1pKGdZ74uPi9kQsxdzcNO1jR0
KXixR7CTCbXMYybTjjR0dNtv7f3KLDDJe3KQ7klD6UErnyXTWHBuwmFF4iqZ
7yn3fR/fseD2JpV3EtdpSI0S91P6GwsKXhWslvCloW11p015W1mgmPD3n1gg
iSXGdieR86tu69NUsWAaKsp8e19akgALKceTYiE0NFtcMWOsRM7vD8eLaWE0
5BrLKO7QIWA6SPiRaAwN/cpgPC20J0CkpN5I9DENfa1P02V3JmAjxzM20Tga
Gn0fsJf9CgH2PqrOIs9oaE6gS0vtDgHXP0zIiiTSUAH3z2nLUAKipwtrhZNo
aD29okYvioBytwN6wi9oaK1S64PNyeT8nyEyLpRO1mN/0HTPKwJWhhteCL2i
ISufZ7382QRon3ESEcqkoXuy8cd+fCLAJEmthJpFQ9qWr2gfign4r2PyGjWH
hlIlT19wLCPg2YnbPYJ55P7hN3/01hJQEHPwsWABDUl7GGV8aCSgtlb0kGAh
DZVfDGM3aCOAJdLELviR5P+O0IfQLgJ4TRLzBD7TkHeGZnlIHwGK986eF/hC
1ju4vHH3EAF6peryAt9o6PBh2fq3owRYck3X8X+nIcGNTV/qCQIu7/l0l/8H
DSWvSPW9Hyf59buzi7+UhuKSXXQPTRGQ9tFogq+chlYOLH95OkPAtzlaOl8F
DXmGx19ImSOgdWuzNV8VDY2EFOo5LpB6XHkuyldNQ38rndRaFwkQzT73g7eG
hni9jm8XXCZAlaXhzVtHQ3JbWmwnSay/cUaDt56GbhxiPSH/b4H9uc+9PI00
1Ju4jvj/90feqQGxPM009DTzk8USiWO6jU14WmlIPSbsbwmJs+TEOXnaaegz
g/6fPonLrVvyuTtpiBV5WcyPjN8Xm+TC3U1DlhTHetclAtga/lPg7iX9ym78
TpLMT1pcs56rn4Z03qllXZsn9TsyG8I1SPJVk1EZOUuAaRgGrmGyP2Jooo7T
BDj/CpykjJL8F+z1Y04QcIfX5CWFRfavdflqjTFSz/0StpR/NDRI/TO+nkXA
B/9WGmWc1O+1ElfLMKnforMP5zTJnw8H27keAk5YGm2Ym6EhCR8pT8sOAr7n
bqxnzdHQMOdLGqWFgFjnUY3mJRrKDtToC/1DAOVHRevvFRrimX2s4VxBwEWF
jLsl7GJIM8eujOMnAfsaL/RkcYmhgO8HpZ2KCHirZRL+gkcM7Yi9M7zpPVnv
A3W9p3xiKOmavm5+JgH/9hMxQVQx5JA+9HQ6kYAnuW4HbSXE0J7arOXd/gRw
Cx+ZMWOIIX5bhdvD1whwc9ZMOSAlhrRU1vKZXiL1Uxhf0l4thv4VNToa2xEw
HnYlW2Atud75WZA02Z82w2a27Mrk/puP7k5VI6B0v7bAzHoxFMxm9XxUkYD4
xUnHblUx1GCRmJ1N9r+hs6fkB20xNBWujBltLMgtMS/J3ErWp/7eLKSaBbIK
2y6n6Iih+xr5FoXFLJhomPn1QFcMvV5ns9rsJYvk/5qf0z4xtEnCpcz5Egv4
np9QtdYXQ+EpAyu/HFjgvri96YihGJqZHogcMWPBgdz5zXrGYmgk/4Gp0xYW
TMr79IsdE0MKTKHyQ1NMsPOxfshnLoZMt50KSu1lQnmDLlqxEENPkz9kf6xl
QkLYUuywlRj6T3BN54ZsJhxc9D309bQYwn//fOf8jwnPG269u3hFDF1c5XSt
sWIU+ks2dYR5iCHu2TZzr7xRUH3XwffWSwxVWl/fUZkwCnnhenaEtxiSm9m7
8OzSKFQcmONzuyOGHtQ4tHWKjsJskZvdpWjy/qFHxuL7R2DXK7mQiEdiKH4H
/2qkMgK3H1e9y44VQ3+vp3avEx4BIQ9V/vF4MbSm8/apdY3DoKQ++O7yCzHU
f0uza9JpGEwS7fjd88VQmk9GnvDVIYgKE9oS9UEMxUjVPBE8MQRNPp/s3hWJ
oWXNa+Jl24fA8YTM+0kshl5eK12+NT8I12gNdh6lYuiC/bbwxauDkHLH5L1n
kxiK9IKrNs4DMH9Oz/7aghg6azkfoa3QBweLVJDHkhgqHM4wtVrqhSdUSflL
K2Jo/rFTtFlTL+jmjHec4xRHlV62sx/Ce8F3Ic3OUkAcUXnbWU5LPcAZRrPb
JiOOnr5y9bpb1Q2CuQM2UzvEUc06L829Rzth9VKE1aXr4uiR/E2Bs/1/od/g
XjkvRQL1S13miX/wGjsY2cuv5ZZAxdoJ9MqCTNxmssVzN68EKjscJ974LwvX
He9QuC4ogaT7suu3Sb3D305rXRsRl0DbFxSsvM8W4ni/FuWqtSSW11A39S7G
x/I3Bjw0kEDWBRvciK7fuHhdBcjek0BXWhPj8qpb8MGwjoP0+xKIPUL+y/u1
rbh6avy40AMJJHD5zx2v6624/buUy3KkBNrA4OJDSm141uHs4/Y4CRTgZzdQ
fakdqyZwjD17JYE8eoIjNtzqxDGM7Uly5RJI1byVYJvuxqv8jDMYFRLo+SWt
6UWZHpzcb1cgXCWB+CmCR37v7sFZ7wOrVv5IoMP38wunQnvwL7O6+Y4mCVQi
fsoVKfRitnBXs8QhCfTITV8uaHcfduZ9QVHgoyNlIdmOItsB/Isj+P5eAToa
TxJa/ezWAFZd+o/uRKWj3stGjH0pA5gYU1v/WpSOdI5PtDUNDmD3lvdGW6Tp
SNpFXUnJdRDfyCyJPLCRjpbvfhfpdh3C7elpMi5qdDSjtFDWEDaEUfLdlDAN
OkJmY4v3MoYwx+NDebVadFSR3R+tPjyEA2/9bbLRpaMth6IUjtkP4/BjffKX
D9FRUfWR3R0wgsdMfr6MMqUjWgJNOfbkCD564OXm/CN0dPt9x4igxwiW2HVh
3+JxOloVJkRReDmC45Snzgba0pFezIVNk9RRnDJPeRvnSkfarI4OofJRzDXV
v+3TJTqqPljubdg5ip2I0i8dV+io2DZHWGd6FG/oDa1Zc5WOqOv1QUeBiTMr
xaczb9JR1bfSkrwrTJyfuEavOIKOXt7LUPHjZ+E1K/u8vz6kI6t3xhcbpVk4
3ObMBxxNR9kfz7iwVFj4nPSLLR9j6chgSx3v4YMsLB2lrP7+OR0VSpjO9QWw
cOC4gUtuMh2V7jHdqxDFwuOHz73KTqWjDbbfdSSTWPgX9eW6zJd01GdQ91Ln
Ewv7BKnIpWXTUfSQnz36x8KDfQdtUnNJPs+OfTq+yMLH951/kvyejp7rLrWt
5SWwOvsbRuIHOuI5Nrg4JUvgjutqIrFf6Wi4b9Xc0QMENm46ZPKomI6eyOi8
2mlG4IJtF0OjS+iIfg1btVsTOHwykzeyjI68djxwPuJK4D0XN7Hf+0NHZzL6
OUbDCZxZcRju1tJR/Zo/vkmPCSyz8dKNoL90FHGFZk9LJPDkQPbc7SbSH9TP
IrKZBLbXr9nm30JHbf4lXz68I3BFyrjHzTY6un7W9pFQEYFTT2mN+3TRkfxZ
o5s9PwhM+2K2ybuH5Ftd4+rpCgL7yrpfvNZHR/Nzxaee/iHwsE/UG68Bkr+T
tpph9QQ2b3k37DFER9bfx1p0Wgj8bfvf9e4jdHQ1RcTiaQeBNR5POV1mkvVc
H31c0ENg3uNbey6O0ZF650djmRECu+eaK1yYoKNjAZsyT7EI3CXqZXd+io4U
3eze248R2MTtUfx/M3S0J/WRleQkgQur8lvOztFR/ssfccHTBF6n1ijltEBH
J8KvXcieJXDkvVkLxyU6kuJuq4qcJ/DykGSMwwod5Vp/KlRdJPB5w+119uwM
pBwVqOa3RODGFydodpwMlOKwb03IMoH3cV0/bMPFQJt2Jj09tELgrNNxYVY8
DNRwdCSqjMSrvhVWnOBjIL8UfsFlEgfLt/BbCjDQoYkQ9hEST/kuGJpTGejt
rxiPcBI7tMkEHRNmoBX/2XMsMn7VTt2So6IMVLRFuo1C4pACjwV9MQbaKHvn
djOZn8GWt5o7JRhoOCfP6/wCgSk5g2c1GAyUv/XHx/z/f/+krvhMSYqBgi+c
NMczBL7x2qqOIUPmH5Vp6D9F4B3ro/kFVzNQ9ImIx2wTBJ5OqUJscgzU+NvR
aMc/Aucq8HpNyjPQjjOyZzWYBHZ7tjtjUJGB1v7VH+8YIrCqjHdP6xoGui89
P2HUT+ChR++k/qxjoGT7gStXugn8QpxlWrKegc6OH75u3k7WF6Ec+EGFgerW
C4pMNRFYTujUxwxVBmK3vLXL9C+BH/PUrY/ZxEDZNlJhW38R+Pgdql3IZgZK
5Rn5XlxC+o3dINpXm4HSFOuw4BcC35v/wH5Wh4Hmh2K0anIJbOg1sc1qBwMp
ZeX+MMkg+ZhUvWiqy0Afuy8cDXpB+pOZ0LwNMdCn58FhqmQ/7HBuElHdw0CS
vJ9sYsl+memnGcjvY6DHxltPfwsm6+0MyOU1ZKArnl3HDlwl8Ona86FNpgzk
8cWwSvUYgeUPp36rPEKuP1ivf+MggVsr2me/mpH5vNgeGoJIv/84cuaVBQNd
2xRU27Lx/98TbtvlbcdAdvqdlVYrLMy19ZK76ykGEvb8pRg9wcLfcl69On2a
gcTlN63cG2DhnW9WM4zPkvmetszLqWJh9QTOf6tcGUjg4YD4QCwLD8vorRO9
RK4PvPpYOJSF0x57WnNdYSBbub+3pm+wsHzkUCnTk4EWZWNXVuxZWCzg9/PP
vgykJflYimsNC886PzGzD2OgPvlwpal4Jn5wPZnHL5yBDH8cf3ovhInXhbwu
io9kIGvL62cbPJn4+MsipZYYBtqyv/njAxMmzhlomTieQPrDuYNyd34Uuziu
ijLKIvnhFHSv3DeKOd3XGDrnMFBpyGZKjeoojrutuhj8joGmhStPPhAfxWVJ
uo4/Ckg/rXE4sqVnBK/rstbe/ZWBHOwN9m+5MYI7beLrttYwUMuWlehdKcPY
60Jq8PE6BpJRH6pmBg1joRsZuu71DDTxZu/8ifPDWO/pp5TsZgbynhze7qw5
jOOa29xVe8h6P6rduFw4hI9ZyEooTpL55RW+c/wyiEsPJxyn0iXRmUvpk1zP
+rHz977PPJKSKKBnQM3Cpx9TdVTXc0hLopeJzwc9T/bjo3If5qdXSyLFLi2q
Er0ftzBrEjrXSqImH43jW+/1YVYI93DuFkn03qf4UKhLL5YoueB78rgkknew
o68T6sYO23XT0qIk0UL/f2oBuAn/x6ycao2RRMPiFussbZuw23O7fbRYSfRh
/djdvsVG7Md3u8snXhIhQRGstb0RP20qkzn6QhJdrcg9WJRZj+uvWYQv5ksi
moG3p2NYLT5YePnakRZJtO9QVJuFaTk+cpFSGtgmiW6ma/p88ivDloox9I8d
kmhxsmtD29tSfDbkQ+66XkkU2ffviZnwT3znJBtrYVQS5XIecLT6VYw/z993
eLEsiU5Ev/oUe6UQl2TKZbewSSEeneRdXyoLcIVD9ooIpxS69rQnL0k5H7eU
1z315pFCkUObUjOac/FsnEzDYREptHqnWvA7n1d4xSRjbSBNCn38PXT3s1oa
5uYE9yJxKRTltzwT3J6Mxc87iK6TkkK7r3DWcPvFYRm5STsrGSmU+f68yr2O
h1ixNiAzfLUU2lt0gS3HLwSrBDGWSuSk0LM64Xm+m9ex5s6XRgsKUohRVvvu
b3Xs5/8BwKuL3Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{
     0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.505726806008822*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "h", "]"}]], "Input",
 CellChangeTimes->{{3.505726808821983*^9, 3.5057268141922903`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwlmXk4lN/7x61ZUmaeISRF+0pKaaH7VEKRUqJFSFpIEhGSSiUk2SvZUpb4
RHZJTpSikKiEopAsM/NYx8xk+Z3v9fvrXK/rmvMs7/f7vu/zXKNhf27fCTER
EZFsURGR/63iWLauc921Lbyy/18X9ZZtnhtpC/cKmobnkFX4XMuhOeIcnI/O
N/hC1j8Kp/mFEVfg6tNyn2SythjeqEiJuAtq15Jq9pP1q23EkviIRFi/Y4bF
gfBE2Oes0nI/IhvWYeEr7zvZED5knRcTgWGD4lMDNT8Mmyt3yW5zr4ebpa92
yO6oB1cfs2N5rt+h6OIbndLmJjhbfCJUbMEvWJw595Mxuw2+9OyUSbPvgq7u
5kOV0p0QrMUTKTzUAxpSGaK7mN1wfkVV9OsUNgjd36/L5PdA14muq0mFbDjv
WbxgnXgvWCaJOF99z4bnV2eoFc/ohU2KG7ehXjY02Oksfjq/F8SmnnLxSg5s
7521Vde0FyIabhvhPA4cP5WsIJrQC7neewSvyrlg1tzkoavXB8LjZ7J+ugzA
f7N66u7Z94Mdc9ir1HMAXk4dmffCqR8qy3y2P/QbgEiHyNpGt34IUwn+fjB0
AF6YeG4e9e+HJZ/Sxb48G4D1ZsGLe5L7wWJTt+UH9gDkHl90O+R3P2Qxjk0V
Og2CSozF2YpDbFAo66mOdhuElHKx6unH2OB9xjXqgs8gmPxoMTQ7zQaDd1eW
rQkeBPdG8eQyTza0XkrY/+zpINzNdUsxjWSD9N/WtMc9g/DRYKbdnI9ssH9l
uTfs5BAEHMA8v3UcWFOoTKmcGwI33oJgdz0OiGW3ND66OATe81fX2G7nQHKS
jVVe4BCsemRnMc+cAx3XT9p8yxgC3eTwLZucOWC/y9N5Dj0Erzf41v5MItwU
HZh+cRgYZzZx6sS5sKbeapf21WE42tWUWyDDBbFqFbmSwGEIdChiR8pzIbkk
/u7HB8PQeyS8cL0qFzriU2K4L4fhYP7tC4pruGDvUPBER2QEfr1xXb3ehgvH
B7+8fh04Ao7+ju2CbC7Y+YRZFYeNQFvunOM++VywFjflZt8fAU/d2p3DxVyw
VHyjmpg+AqFxxZvriI/GG3M8L1eNQLvRgsiljVzQvHZn5SbpUZCZ+KzhMsKF
5bI732gzRkEt1tniAp8LSyIlDi9THoW3xcua3ca5oJ5y6Zby0lG4A0pfD0rQ
wKp27OAZjcKWMN9LVSwa+AzD+3m3RmF9ZlzWOm0aRh6IamXeHYX2j3lhr3Vo
GJz/qjL53ij4iwoLtm+goU9HZzg8bRSK6x+8WwM0/Dw438z1/SiIBuv35JnS
UJE0Kb5KigdctvKFrSdpKFtWErtQngfVHl8W7nWk4WWuh/YcJR5wygunWznT
kP+WbTN9CQ9oyUGv3W40pPW0vOg15MH9BbmlPy7TELK66FxqAA+OaJ0zuRFJ
w4c1Td0eoTwY3Jm8QiaGBul1Y0d3xPDAmC1yM+A+DTc26pp2pZDrszqTnOJp
uLStaOn8Sh6MXpU/+z2VhmKDpsTBGh7sazs5TeMpDTzDsVnlX3gwQ/qogn0m
DW4mupJ2XTxouSkaUptNg5NF0e948TF4tyuidWcxDemWTQfPTh+DVTGbpluW
0NB9cOyTHmsMykROZx4upeHYUd2y1vlj0BBxavPu1zQcPFkUq7JtDBx0R0Ka
3tNg5FW0P/rqGOjME4+6+pU8r0/TB4fAMVhxelMMq4no5zu2VSdsDIoi1cQS
v9Ow5Zru6sbEMXju46qY2ErD+uAiOSYeg9fLnNUNftNwIaTp+q93Y5ByTeVk
bAcNuaFjwuy6MVgdnUf1dtKwKlK316xtDNhlronnumlYGFdUGTIxBvnrq/w0
+mmwT2jSs5bkw/XmW8Ob2DQkJY3lrZjBh1kDPTWmHBrmpOgmf5jDh9xtIf8d
omk4nGalEruQD+rO5rkWAzTcf3oxzHElHzZ1vVI1HiT5yiryk9bjQ/OdVGXl
YRr2Pm8abdrOhwHN/MwRwqG5Y85pJnwYnrj9qHqEBtki3SOGR/hQJ6jPt+bR
YPzCqkHxOB+mz277PHuMhoCXF3f+cSLPs2d072fCYq+LdG/48MH8a/SFJQIa
MmZQqRP+fAiR+L33C+F9R5wVLt7mw8/0Jh0vIQ3C9Hf+A5F8CK8yUWf9o+Ex
T33QMY4PWlwmK4WwqcEl284nfAhYKjpDc5zkP/xrrfUzPhTIDs/IImywKjhj
TxkfJtLNF0ZO0MD26VKufscHMw2/jXzCUVVbbm37xIfxFysPWEzSoDfrwejL
Jj5YxW2/mEb4z/Hh4+t+8WG9Z2biIOHQnN0NWT18mPLeU7dmivg5lYaWDvLh
mY2a+BnCbaZi2Y8EfGi0ldwSSzgg1lpNVUwAKfpCv9eENXsKb0fJCmBMb7Dy
J+Fv65jCGSwBbF/SQQ0R9rt+5vQtVQFk7Hp/YoLwks+V30QWCmDEO75sinD9
XPUdPisFEC3noCYg7OXskzesI4DMtjn+vYTVS75onNUXwPjeGnY94SoprbDu
HQLgGXsfzSbseiBo0tZMANmrV325QVj5cadzs6UA2nnDe80Jvx7Qb91nS3jm
j0YFwo5b7u+sOSWAx64860/k/amQoaIdrgJ4cd+SfZVwSbPpYuwlgC2BlP8y
wvZL0qI2XBPAj7fb5lYTfWU9RMVzgwRQcVCs3JZwbsWR8ysiBJDQ4OLEIf4c
ZhS2P4kVwN0d6bPdCIvZMMzmPhbAgp2fP3OIv5mZTqX3MgVgIpgZZkfYQvB2
OTNfALt5gQc+kHyMG857EFwqgFcOjvNXEDbtaPS4XCuAC6+oxs98kgctzS7e
V/L+N/WKlAjHXQ7c59omAOQb+tiC5JGjrK91nBbAlSOB0XmjxN89qT3GTCGZ
Py5/JIeIv/EiVhUqQsgcs2dKkPpo6ztcuXm+EI7lXjISkHrSCpBP1lwrBFrH
uLGK1Ft9qdcRhQNCqDNRdRvvIf7INlbfOSoEdWl6LPcv8efgqg1SJ4WgpX8j
2I7Us+vwbwWhpxDELc43JZF6Zy43qWu/L4Q9UZaqhT9Jf5JKZFYlCaH/rJsW
+kH0/jNk8TxdCAmRvpcqWmhweBTberVYCLnhDaXZpP8UK/f1aHwXwpFjWvTK
zzTc4emvlP0lBIbl4VqvT8SfL+Hnhv4KYUlMRHdpLQ3TwzbyKsaEwA1q+7jq
Aw02UkHiDkr/gH1e1yW3goa1f34Yms77B54ZlPZr0g+l36wO1lnyD+oSIte8
KyN++n1nSOr+g9YRz+ES0k8leUvmplr+A6nBMh+jXBr+63q3oSf6HxQLTyhy
Emm4VjHbtz7+H3z2yxK5Qvq7ZZILLk75B7WyG9fKPKRBxHqWYVDBP6g4edl1
GpkP+xtP7F/+9R98HJA7+uQ26QflEi7OCuOQxKsIdfEg/SZx2+OBiHF4Fyi3
eet2Gm5V1f/0fzgOxaoei6LIfHs3aKOs+IT8fsdq5bbNNOwwuHRnY8E4zLvW
OduKzMdtvXkX/ZvG4eeNnLyfC0n9r11kqjBnAjKDxjS3kHm7+r3UqG7KBFyL
6cy1KOXCuYForQ/PJgA9v9kbXMSFLJWFTtaFE/DW6sae4lwurHJG7VffT4CM
7IJsfjqZ70zv6ureCSi8s6NLPpoLC4/0xR/RnIQzmcccH5zhghJdY3ilaBIq
JDt8F1BcuB+Oj/XiSQi9ZqxkI8cFZZ1c3/1Vk/AybZl92DTC3vdylzST/Z3V
8j+EHJgtbj+3XjgJq7Qk+PKdHJirNDaqvmUKRjuGz/XncGAxaKRUvJ2CVK8x
5uWdHIh9XyIq7iiCjij8WuRux4aBX8+9aWcRZP88Ll2TnP+MhKmDra4i6GRG
7KFOczaMrIz8ne8lghaqHdu9YTsbzCLOlJ8MFEGKzknPwhaxQezonGsf0kRQ
SUNAx3hPP5wZuiwS0S2CfJtEROrJ+VRPbeuUuoMoqr8VeKj2cB8YW39xsz8t
ir63v+nWMO8Di4enuh87i6LDgpui54z64IxKaO1iD1HU9i+2b2htH8Qqtj5c
GSCKPhWf+P5Irg/4Mzw2bEgXRZfKDKMSSnshfzL9/B62KLoVYRi4RKkXVvxi
dF2+IIYO6Q53qRX9hWfp1OkCN3Ekx5P65NreBb5tRxtXBEign/tOLLvu8hvO
620wSYiSRL71RlFr/VpBmGhg3x82DbV0mz6q0vwC9a6xdheTpdBcOe+lbl/e
w0aj+ZM/H0mjz9/kTk6KPIfqHRvTUZwM2lhvMzc7JAun5DzY2JEpi+pZ6nop
F6uw4oKVTjZPpyOLJbkLDf804gZRaX+VUjkk8SHxqU5LKy6Qdk+tr56BorxX
F7yJ+Y1XKjKc7CtnohVhjw9av+zCdChPYe03ebT6DrNzcfVfzB6YW7GqRR4Z
Jr4pqW78i/v2GZ1b2iaPKun9z062/cVds+5Xq3UTHr/7PXT4L25J2OgnzZNH
myJMJ++p9WB7q7JhriwDqS+333bbtQfvPiV69O1yBtoe79DUyezFC27d0jrn
xEAy1Zb+jVv7sNs3HT97ZwZaXyge+3JXH369qKPmgAsDLW07eT5+fx+2eavn
pOfGQOGtbZZmJ/pwrOjQExkfBjrT/7ncIbAPU77Ws58EMZCXWZihfW0fFjuv
LdmczkCOx8brw/f1Y/PXbftrMhhoVZDin2eH+3GSfEgy/o+BfGP0vN7Y9+Mt
Wd2Q+pyBfuRIKrS69WOf/oc+7sUMFPSXxX4Z0Y+HTkwbmFHFQPWfSi5u+9yP
Ow63tmz7y0DaO7bOsdzJxnL6Vml2vQyU8Kr1k545G6+b1+ju189AnJnyMaqH
2Diw84NcCc1Asy3dzMtPs7GWc8kWbT4DORVNM3p2i419Lz9InifDRBl2kSaS
b9lYMcnKaXw5E+2TDtFIW8/BW/wb189exUSvTjXMDNHn4NMOe8Q3aDGR4dLg
mtMGHFy61CjOfS0T6fUl5cjs42D7nPV1fZuZ6E29NqfHmYOzKhTXNJsykYZ6
8i3VRxxs/KdRUODCRF0LTHMMxLn48orQS9muTGRUGjX8UpqLc88bT6S7MdHl
cPWuFTO5WHWyVCTOk4netxd+GFXmYu6sVCl/PyaaDNMJ0tbk4ihjL0WzUCZq
WCX9n5EVF//KnKPd/YyJahPl2X8ec7Hi0Lfc9mwmWvPcMNA1nYt3bQjXac5h
otQLXzOH/+PivLeSG2oKmCjrT/SNzgIuDvjJ3ZL7iolWMExsHN+TT1n5clO/
WiYS5FVXyvVysZfbidOzOEy0P9neNnMxjQNNuKc20Uy0tXr1tIjlNL638OIp
m0EmOsUWe31Ok8aF3wJPpo4yUXC/0WnGehoPb/rPYf0kE3W6jzp3G9DYRXzY
zlKeQiGOptZddjS+/OOSnQ+TQovHZuVvdqBxSIGEXQKLQoZ/j80MPkXjzFOz
bLuVKETxct5Nd6Fxz8eNRz3VKcQxObzysQ+Nj0ddPRSjTSGGHEhqRNDY7azM
oZK1FOq9p6jSE0Vjf8OIg23rKHRg4pJG6j0aJ/EfWy3eRKHIvG9yUvE0brN+
f6BwG4UWhDhusE6jMWfd3gMtBhRK9N/X2vKUxuMzmy0mDSm0+dJH573/0Vi1
vG+/oQmFzn1LOKieQ+ODi2bu+7afQpruhWh/CY1PT8aYCw9QKDiEbxBUSuOL
TfPM5x6k0DLJ82sKy2gcE6S996Q1hVY8D3o3UkHjRo6FGc+BQo4yIRUSH2ls
Vvhw1yxPCm1SHb59rplcb9h+StGLQtvkHu7lt9D4+url+Yo+FNIbbVX3/kHj
4oxiNUU/CrmZZnTYt9N4fuLXAVYAhRaluP/+1kVjvR9xKaxAopd4PX9eN42t
VBwOs4IpZLdtXPnYX6J35NAbKpRCLx/cdPvYS2PeLfl7zBgKsTDLH3FpzKj8
ZsK8T/ZvftC0k6bxCrEEEWYs8aP2yVqTARrb+a50YiRQ6InKnsl1QzT2eTE8
l5FEIQ9Dd+d5wzSO5pU0yicTdlr6S2SExh9cd+rLp1IoweFkU+YojbueMYZm
plPIIu7GYQ8ejaf6mlJnZhB9Q2061o/RWOfEScbMLArNMQ+YesQn+iSvqpzx
nNzfwzvKREBjx/YR7xm5FDISuq3iEE44dL1TrpBCp141Oyn/I/rE7LovV0yh
4a3jM5MJNzYyd8uVUEih4G7hgnEacxnNonKlFHIpdD8WT1jaLKlwehmF1nUF
yctPED1vnzoz/TWFtrQWvPYirF+lqT69gkLiuj8vtBA+KMn7IvuWQmnhf1fo
TJL8bXsVJPuOQhPXy/7cJBxy5cYW2SoKRaTsTibnbZxWajIs84FC/4X4H2NO
0bhCQKXL1FBoX53pAhPCP9a3WMvUUWjvZPxfX8I890dMmXoKbcx2zEolzMw5
/U66gUJn3cg0IrySq3VJ+guFlL4bb+8gbLhiTEv6G4XWntvNHCFsd7qsS+o7
hcIqs36T7w98KeXmA6kWCtWdcson3x84psPUTOoHycPvK0Hk+wM/n6cgLtVG
6rN0wK6f8Afr1qJpv8j9/F9v+kr4z4Nk52kdJA8lI7OKCIs0OWpM66JQNTtq
NIzwbAXtb5LdZH98xjd7wjrm/GDJHgrdMd9aspLwnlAMkn1k/+2TSVyih9PH
gBEJNtGnbllQOuEb0mZPJbgUWhIbd+Ew4YQdijYSAxRiujTYSxB+4f+Dkhii
0PmqX/tTif7ccSdfcR6FQsX+bmkg/h06aLJMMEahM/Yi8TaE3+at+MYVUKip
snR3J/H/gRNbq2WCQiINMWlfhTSWeFfz49MUyc/a0b3bCbtoPAuqFGUhDRmv
3U9Jngy+n+18LslCPu+vIhuSv+y1ZmGpUixkschS9xnJ5+y7mvpxMixk18G9
NkLyO7CDjrk1g4Wmp6mxnEm+H+a57rJRJJz7avnUII2nyZuP7VdioUO+3LcM
wq5O2k92qrDQ2E+v/Nmkngw1hiZ01Fjo2aXAKCVSf0Oh7jnTF7GQZ6GvbQGp
z6N9+21El7DQe65lZlAPjat26EwfW8pCCSUxZpaknuPHRxw6VpL9wnNx30n9
Gzt5Kr/QYaHsmzNtrpH+kFdpWZm1noU4XXfOKrfReK6GrtuTDSwU6jXyLY30
k+GmsY939VhIf6ilOLv5f/p7XzlpwEJFvaveHG+kscyjQyutDVmo56Mw89Vn
Gl8Y39hsbsxCV0VTB+XrabwzT7hG35SFTOrWRcfX0HhE3bebZcFCs214xkcr
aWzrax0pY8lC+R4OC33ekHw16aEpK6LnXjW7u+U0TgydeNB3hIV27zEWJr+i
8a5xv93lx1lo6Z/v71wKaPyo6Vq+izsLxcy+q/3gMY27K1e3h3qwkBAVFkk/
IvWQ3y6TfZGFZoDBnnMJZB6F6dvSl1joJjugQOMBjWt2CmRcb7DQRptGd9VQ
GvNfutqejybXN9d0PO5J4y0Z84LD77GQVu3h4wbupN/er8vPeUD8rW+5NMeV
xjM9VsoOxbOQV9Dp6bmONF6g2ZPvlspCl/tNy9ysSX9KspW9UMRCCuKixiaI
xlGhM9dFvWChFrOGewl6NG72fWWb/5KFaptOKPZuoLHDIdWCEcxCU1nTEo5r
09ibarL1qGKhgDXq4rQGjZ/cMCvwbGahbratgp0ojYWn9e28/7FQQ21wRN4L
Mt9fLkceEyz0JifjGiLz/OEMZfXzUyzkfFays/I5F+vlDrWfFldAjX5fRUrS
uNjvX5rtwekKiHNZs8oomovFQylbXVUF9CzbJEDowsVyeX+Pjm5SQOX/HVhU
OYeLrSW/6g/qKaDtNXOT7ZW4+JlVhRpniwKqpfhFfCYXm43H/ezapoBiI1bn
z5Ti4rAd+45+2aWA0hI8FDoGOFjhe6l13mEF1FO1KH3JGw5Wmwg/ct6H8N9Y
lQ325HzUsfvFPV8F1FGXp+VwhIMvvJdRKvNTQIUDDR9uWXDwh/BrDbLXFdDM
Rtb9AkMO9lx8fueT2wro5/Xid5nLObh+z17dpjgFdE3CXF9ikI39k2ey9LEC
ailWPHDhIht3G93+IC2hiKxtOWs/nenH9iZ26oumKaIrO320lY73459m6zy3
SiuiccHvUCtyXv1yoF3DR04R/dEScy837scVx9d69ysQVkKLNi3qx/FXWpfU
LVJE5iMuNuU/+rBF0YqbkUaKKKn+yNgGwz78ZnENzL2tiJqOv9WwF+/FTtKp
Ehoys5DnDtldtbbduChpof6b8FlI6tUqp1KNTly3Wa9yH1MJBbiVVL651475
Tg/324UqIa0ii5L3kd9x1d7EAzNmKaOJtu/v1UPrsf1GvbS0KGX00NM6XS2u
HDtyakd/xCijUkk7TTXLcuz6yNaAeqCMano/nlFilOMrMtd/+8YrI9a0zfbj
11/juOZq1X2pyijowtvFik1l+Ju3Vdh4kTJq7JnlGe1egneVuHmbtyqjBueE
Gb9Sc7C5i0RVwE9ltPF7U2u7Sg4+OD9mVmm7Mlpw/at7S8hzfCr4Rd7iLmV0
3J86fO1PFr5xWIT7j62Mqnw0BzJ9M3CZ8I596qQy8nwavTjy6SNcmTUvp1VE
BfGczpkq3E3CNfY5UwxxFdQall+j3puAWz98ibskpYI+Gz2IH/WLxfxY1aa9
DBX0a3tiyfaMcDxl9mxRAKWCHBbv2szoC8XTxOHCSwUVtGbYPvrulWCscMae
uViF7P/699TFjGtYdd6I7RFVFbSQap9fecUHz2+8mRWmpoJepHrYR2acx8tv
KU1UzlNBunFnrxRnHMPam5+a/NMgv9e+87//t8r+D73i2XM=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVmnk8VO8Xxxkq2QaZsaa0IJUWqXyj5yRUqCRLC5HSKqLSYksJbUJSpEgp
2ZeoiEdSpMiW7LsxY8w8dmX93d8/87zer3vv657zOZ9z7n3ua1QdXS2caAIC
AvnUz/9XISxa0aXjt7Wi4P9r6NblnIItKg/t0S+TJcoKD13RRPqa4w1hrogF
xqziMF/UI3vqbw61rtgxI+gU9gA1GvsXxVPrStVhnl1oDPptH6b+LCwG0QsO
z/e5n4YsnBUan4SlIdOkjScX+WAUOmSbFRGGUew128/t8Att+WoianChEm1s
eJdx9kobkqp9/WvTw0p0PTg7QDi9DXV30h6tzqpEjsbD2Lu3DQUL5C1SGK5E
3ZvGQWRlO+rcslJnwL0KmS5bE1P/pB0FZYo5PHevRuZKYv02bh2oLuZn9oRb
Lbrk4beVwehCSakangOhtUj4oFZ4llYXup7vD6yMWtT+7UzJ1p1daEWT3o+q
wVqUNv7RQcmzC3kxU9oT3H4jEjgb2dfWhZbevy9m41aHOi73bPsR343OX9tz
NOt8PeoZcDvap8pCJi56CSIh9cjs3Xwpv80stNRRk9il1SMx4S/naXtZqG7X
XG8Rfj3K/GM/VOzJQvoKBU/szjagBQs0Y4xrWUj0w+rKeScakfvgC01Nv14U
PyqObA83oyUrCr92fmcjH87ErYxrzSj8ZPKNNy1sdKCF/XNuVDMqmfA7ZTnI
RuJfiw9l1Dejf953j52Q5yD3cC+PudYtyPxsiPhpJw4C7f6UdPNW9E7OeknD
BAed++AUTFvajgJueo6yZbhIa9e+xYIb2lHlrW+af5dx0UCDXuasYTui//Qt
ZG/koouTC+qmTrSjC2JnP507xEXXthYtHE9sR3k7Z0qEY7kooFglhbu+A61O
KFpjvbwf7bQSRX3bO9CE7Zst7jr9aD5rtJJt2YE2Hwu/6GLUj+7NKx/p8ehA
/pFBy+c59aOHJp567bkdaOzO14fv4/pRbOWfH7UGnWj7hMyTOfI85Hj0i13N
/k4UeSZ5r7IaDy0dSiVVxzvR1b8/lsls4KHXCwIW/AroRIuWfGFH7eWhFOsN
h7+XdSJtToH6ols8lNsc0pdv0YXMwnR9ejg85HXOy+vTsS6k90dihjXKQ/oz
JyXzLnYhqbHJ9G+CfFS4CK3/ENGFdtXnXFuswEcljryrmY1diP1tao2eMR/V
snfNf+PYjXQLHqyfH8VHJFLD6KZ7N0pJuHMcXvKRqOk8P/sb3egw643nwWQ+
gpTiv3Jx3YgX/UpnXQEfJbkhdlBHN0pcFNdzqZ2Pvi1RWeY02I3ODjeZ5bH5
qL1myn6bYA+K9B6y7BzgI+bG3D//Fvegjuel6r8FCLoxsaHkjEMPUluoMWu2
iKBnSQuEdpzvQcLjtx4+VyPog+3Q1qXXe9AYHrhbtZogXkFaTlNMD7oQhO81
bSHowE3N12ZtPah8WRTd15qgCxvmd2qQHrTNpEe4yZag4J7ehXNme1Cb7ZCG
/DGCinfEP8pXYaG7KtxuHVeC1ogvvqV1hIU8DNSDZm4RZJI/UyjqwkKdq3z2
HLtL0HGXlimWNwupt7Uw3oYQFFUZdTHmGQvtblR++CeKoLmPGMelWlhIIXl+
AU4hSNV4JKa/n4XUDAxoqzIJ0huvbiqdYiH/sJOqV3MIcjsYst9PuRfNUUpr
yy4gqHmh2Pahw73I/9Rx3odygsYrOD4VZ3vR3d32kSurCJK5Xpqb6NmLgvZX
CfrWErSz89b6Y0970SNZ9cmSRoKOPTzugpJ6UVFly638FoJ8DLcnKuX1orU5
GYUP2wnKei2wpLaxF622fbuls4egCps2u/S+XqS6LcLjEJsgtkhB5L2JXoSe
rbfJ6iNIKDf69ylRNiqirW3q7ydI5ayntJEiG/XVHhGYRwjSVT60W1WTjRaa
pBYLDhJkWb759rQuGw2fW6XWMkTQnTVjAjkH2Wjj8sCPOmMEXbu8ayXrDBvN
PFrqVDVO0GkcbcX0YiPHoSOrdv6j6jdvwNf4PhvxPgRJRE1Q+e3dnujxnLp+
WnFeySRBmx9H1L5OY6M3p3Plfk0RpNHGmakrZCOxbRu3Zk4TJK+uv2JeNRWf
fdDV8zMEzXMN2b+pi40+6/8unT9L0FhOl/fJETYa4Z1d6UMxa2ZjwuM5HPRq
8bfYcorrjO9UlzA5yHBpkMZfir8Ft0yNq3OQcMf1ommKc+rWqmvocpBY11uX
VorjVfz3HTDhIF9z9dVRFIef+OMZdJiDDvB3zKyl2D9V8/UHZw6at+hWZxwV
z8Ux70q2NwdxO240EireY1urJuQfcFB4Nb1XjmKLgGXLd8VyUKX68vlKVH4G
FZf3Xs3goNBM1rZ/lB7rmT+uvi3ioKjmuLBMSq8lR1ReNdRw0NTr6injv5Q/
XrtVzO/hIKcEhRs5lN6C/OK/umMcpCtmvExwlKABHfmlZ+b1Ib+75j1qwwS1
e5/dHSXfh2Iv2paoU/Wr/FpwuWxFH2p5/v6nEFXfQgmZuIn/+lCec+N4LlX/
dCunn5pmfUi19KTpbsofMc8+jB2y60Mmi1aX5fZSflttb5rn24cGJk9bqXcS
5HIp8xI3pA8F/jY/pdZGkF3+nFiluD6UYLonS6CZ6ofdySOexX1o9ONWgR2/
CVr1aFYl+XcfUn48Mj+L8rtyi8WuZlYfqqwyPjxB9cOk879nevO56KCLPEvx
G0F978xKnRW5qCAnRWPkM0GNUzFD0Su5yHyR2NeEfIJy7xnvmN7NRWZ+Sote
vSPoSvLDgfwwLhIp+cTriiXo1AhLkf+Six7TH4U9eUqQjd5/RirZXBT58Gq+
RgRBG3+2R/r84aK/+okFTXcIGuGu3o6U+9GWz+ka990J6tb2O+e6uh+1xpfl
qDgTVONZ+zhmaz/6mpUreM+JoEwxz/5Zh350KeN5/z8bqt9Xlj4qjO9HAhFL
R5dS86rbqft6bE4/Ylau6X2vTZB1rIDz9ZJ+9Chs37IVqwj6j6FrAJx+xA6N
fvFSmSDa7Fs+XsVDU3Zaz/5N8lFY9d0dOIuHJnN08te94yNhiYT1McU8BHGe
8c8T+chjR/FC3988dOGOtRsnlo8OfZoa3jrOQyZRS9rk7/PRktfnYgv+46Mv
KwtM2o/xUebVvf/yP/OR1g7aUyUxPlr27mz3s2o+Kv/GU3Ge5aEIfuAv7y4+
WnOtyfDpMA9dO1YYrz+HoP2TF5MeNfGQwe51Fvk7CWpp/WQ79ZaHahYvSPr0
i6DXC81CnwEPTRw7m9riMoD2/W4veWLVjxykh6988hhAM62C6RxjSreCa9uf
+gwgyXVy/y3a3I9CFO7UHwgeQBF5nuc2K/Yj9V8JtNqUAZQ64sVe1sJFlv+x
rMv6B5BSfDMatuOiVKmjszlnBlEp/mRYY9qHZAvY3x+5D6Lxr/WL6nT70NWz
58MvXhtE5oHykVi9Dxl+812x/s4g4gosSTYW6kNNns/3p7wdRJsv3DNU/8hB
Ir1Nb16yB9HPsEy6wWIOcsy3Ng85MYTC9769fLS5F63PkZdRcB1CC/+uKg3/
2otoaY01Ly4PoZ/ntoqlpPaiuNgjNllBQ8j5yLmqe9d7UefNE0fqEodQ60tb
JL60FzmaeDgrkyHUcPEBfckxFnL88ygo4fIw2ru2cOJMZTc6NlhbWBg0gkS4
fN0Gpw50b+1719cBY0jjjrxVqlctohW+3+R/7S86feKIEZf9Dklrmla0PZlA
On3HTOvMSvDOGIOXA2FTiBeoZrQ/vREHlla23Hg6hRKL1kRG8Bvxt8Ej8oxX
U2iNxwAtb1UTNjL0vK+bPYW61E5OxCc0YQNO1uUbf6aQadOHd1PPm7Ge9nIz
WeVpNH3ZOMX1ViteWzJvdFP8NNom5rP+i1IHdh14tKYsZRrNa7kQnLm5A6cq
LDtjmzONMl6lLA+26sCrnaHtesk0slt802/+gw6sKX31+3fONLJw+2MpIdiJ
lx3ue3ZYawY1+65ir+roxHLkp7Hv+xkUdux6en9IN34Sio9y8AxKiRIITkzs
xvIbMr32l84g5ymX4H3FFF99nKneMIMSbZICDo13Y0UhR5XKiRm0UN8MrGx7
sIrc+OjirbNoD/PBnd+qLKyGVOOLimeRQnvjLcOoXvy6Y0HhqvJZtPqzWdFg
ei9W85/bFPF7Fskoy333L+nF6t+5UmdZs8h9or/q8EgvDl9xuGC+sAAcNwpU
/mHGxhFZyzUzlwsA+pxnFfmXjaNKcgWFTguA0yeHu+Zb+vBAe/pV4iwAJrP3
Dbfu7sM7Jl4PNp0XAN4XVqqMfR8eWfWw490VAbjq+tDC9UYf3hN29vOJIOp8
n+uToyV9mGan7Ff2RgB6Bdv3ae7h4gMeMv9ykgRgyLN3p+cRLk57IOL2Mk0A
aBfW9mW4cLFt0YiD13sBmBbV5f0K5uIc9XLQKhEAm/pHxuXlXHx2yFsgjCUA
E3R1tULjflwkdvGKT58ABPKXvz1u1Y/ll58ZOMMXgLJtVWzesX78zca6ffuY
APhOW55Ivd6PF+drFY7OEQRuGqe+50M/rg1s8z24XBAUlwv3LVnGw3oLt80u
Pi4ISaJqb717eHinba274ylBuPul60HIIA9bPj3JeuksCG0Zv0P9pnn4rEJw
udolQfh45WzGtCwfRzGanq4KEIR9JUf4tgZ8/Ffi0ubNCYKg6mBknRzBx8K7
RZKvJguCdH0uPyqWj6XuPV2Uly4IK2oMmk8k8rG6aNHcrR8FQSXI+k5EPh9b
z6X/3l4mCP7m+XMsO/n43UyC295+QfC4ER2+dTnBhfp6PSEDgnBV8/eL6VUE
//T6daB6RBAG4zc7RW4guGtiFFlNCwJri07/ie0Ey4wbSB6WpAEZ+LjgoD3B
Khvr/KJlaODfxeJMORGseen0aAuTBmH+uTrezgRvG37Q7LCIBknpktILrhJ8
njQnnlhLA97qXTIPQwj20jqvkrCBBpKJ5ysVIggOOicUxtlMg88K38u9nhIc
w11x1XkbDVSzq879iSc4UTO/P8WIBsIR34V/JRKcc9rcgeyigVqn35e4NIIr
ej12uFvQgLvDL671A8GNaqJ5WdY0qE6y/GCcT3CP0zOt0UM0sFQS7LjzmeCp
ri+MK8docKT5k82b7wSvbJfq9r5IA07+fbu19QTv6V1c5HGFBjvvNaRva6Li
56+NdfWigX6fcpR2K8Hvpsxtj/rTYOtdsaUfuwiuEzr636EgGlj0GOabsQj+
K+omv/8eDU7SwjoL2QTrKYTWGoZT+TbWF5vwCD6y+EWm/hMa9NQc8HYgBF9X
zwjZGE2DjAX/3lsPEhyn9dllTSwNam3K3FcPE1ysU2Wm8YoG91ymkrpHCGbp
dWiqJtDg06bWo15jBIsYDoooJtPg0euWsJFxqh6mgr0y6TRY/iVQf/c/gs0s
pL+KvaNBcVKQQ8AEwS4HVV8Kf6DBsYikiZhJgkMc1vlN59Egr6pRNGqK4MyT
2+zHMA2Of1sUcnGa4FqXffrkC1Wf8bjba2YIHrt0VIldQoNG4eSxMorlvd3+
tf+gAf3tizrjWYL/8/f70/CLyufT/BUvKba9G5pdXUODKzq3eW0U+4S9ePjj
Dw3a1LqXUu+bODYyw624iQYORdM/Jiguiv28N7+Nytemvqee4u43Vatzumgg
YfnI7THFc9M6xNJ6aXBz+yXXjRRr5Axy3nBpYPTrT1s2FY9JvmBpLKGBUMGW
LwyKnYulX0cO02DX8FZFayqf4B+q/mHjNGh3ed7jQeWbXr3O8e4kDRTNNqpd
ofSobtgG/rM0GCkUbDlI6TXSvk/FW0gIVBYqiSlTejLZR6cuzRMCTmleRgGl
92bi1ugiJgSShnrV26h6eE2HRjgsEIJtso0BnCGCnwvHXTwoJwTGVdtVJKn6
FoplWlgoCcEeTbWNC6j6CytWSxouFYKJTdtJQR/Baqqd/XrqQuBdWRTuRPln
p8ZQmc5KIbhfavilv4fgextlAtW1hcBlWutrdDvBqfpLnBZvEoIU69pnX1sI
rjRcv11hixCs2D42/1cjwbL7LWZFtwvB5xmfhJu1BG885NgitEMI1lcqdmhV
EXzgqHvelIkQnNJ+9jG3nOBo17DLfAvqfotlD1z8RnCBR5xVr7UQlK7VWR5X
RHC7d6Z2+yEq/vpHsekFBC+7V02qHIVgZ0VRhmsOwSkJMqey3YVg/x6jTI9X
BPv/xtuELlPx2u+0NIih/EA7p7TPUwiO7LA7yIkkWNS2pKL/phDEqifFfw8m
+ATdS2fZIyFQ/hAzU+NBsL7eCrp7pBBYMqtcPc9T+ZyuY+NnQlC9Wv/azGmC
vxStjT78WgjKF0xdeWxL8GKPHtrD90Lws/PbBAMIHo8La27PE4LzrAPSTzdT
8+IXytEqFIKqhD+CU2sJ9l4RdbqsVAjSdaTD96lS86N5T6VgoxCs3VvpYyZA
cPj2D8/OTwnBYocpgTvv+fjseafLBQLCUHzTeUNVCh8bPJPZJz5HGAr6r3WO
vOTjwTFn4QQJYZAKMW6uesDHexJVz7apCMNTlyMhXU58LCJ9d/OebcKg615c
cV6Mj9v0N8tEGwnDsQ9P7G/N8nDOmR4uZ5cwVDs3bLg8zMNOxSjmloUwfDZ7
1j3UyMNFl0fm5B8ThljBdo5pAg97tdrVrAwQhq/xmQ9D9Xh4ZIf+M6c7wpB0
fbHGFy0eds5QPhkTLAzv2T81axfz8GH/pgmZx8Ig66r7MVyYh//TPLhk4g11
/svsnNCyfvzvkqVb6Xdh+OA0fO+2eT/2kDClO0nMAa3V1dl9hlzM99BseC49
Bwz+CbI1tbn4RPv8l/WMOTD4c6DATJWLrbNKN5qpzIE4y8FEnek+rHPQ+Ij2
mjmQ1bI883kW9fx/tS1FcN8c4GoaxbYp9mE3vc2mz8PnwKdt63+9q2FjAZdw
3wdP5sBuifaeIszGwTEDWdej50BRSMjQhyQ2TqS9VT72ag4cWdi/xe4mG3eW
KvDV380Bu6XbsoPWsbGl1WRIRs0c6H1x4IvX7V680aWgrlhmLnCELQdPa7Dw
RIyhIzdkLiQ9nNy4TL0Lbx3XD1v3aC6oe+g0vRPrwn57NhVdjpwLoyNuhWsG
OrHI9IolwnFzIds670f3h07MOETvVM6aCy4mZw7v3dWJ18o2Ht3zey4kPF1o
Z3CiAzsFuR7NUJgHT/WMNs5f2oYrz0c5XI6bB1of/tv34/QfrLtjyUzLCxH4
9+dy+eggxt+NdBMgej64bBgUL/QpQPEZkbqdSaKgJ+hbtFy4Hp2ZPKxZnyYK
vXsOXfyztR6tNVJRqsgShWW5Hx3crtajT/VxUx/zRMFvnomQHb8e1cwm4dAf
ovBO6dsqiT8NSHBPgdE2rihYtNJNYl42Ibu+zn2xmmLwtGK2QFCjDTGWrjpz
5K0YvD/NTetjd6KQsLvWb1PEINU7699D4S4kSuMajGSIwQmbU7bqi7uQQMdb
pTu5YrCDJPDEbLpQ/3P18uwfYjBiFPyz9EsXKlZculaCLwbOxkd0x550o4sy
imN568XBQKX7P9N1LET8rnbO3SQOkUYaClO7WOjMYH3Fvi3iMKXKNX3oyEIO
lY/f9G4Xh90mRfoXH7KQWTDj4AIrcbC2kd42PcxCS0WlP525LA6at9dHL0jv
RdWCIjcUPomDpRRJjVjAQfyUyCPmheKgV6d+9JoGB80/tHJLYLE4vKwwVzPQ
5yDI3DMy8lMcSnT33Pc+wUGpjo9OVLaIA9n6be+L9xx098sS08BZcajvuKN8
25LaP93Slx01kICOqHwFwytc5LDu18DKHRLwyl+kw/c2F3m2OJQ7mkrAAo6e
3LMoLsrU8Q+o3C8BRjqB/p6fuGgxq+xv0nEJCIxRtPk2w0VTxgdaHAMkwGDD
x4Gb3v0oW+TC68rvEqCgr1ugdoyHWF5+vIJyCbjEarxxx5WH5AcfbEipkoD6
h0GNVZ485NWQXHS7QQLSQ7MXiIXzkGEiq9WAIwHktNIptS88VG16SC5bRBK6
RWXKxpSo/XLhqSMvxSXBu3buuWA1Ptq44XJ8qJQkBF4zHRJZx0dRyuHaLvKS
8OzVCc/XRnx0lFe+V11DEnp0fC/cOMdHA8HbgiJ3SIJi9vC77PfUflrI/Feg
qSQcqbs85VHIR5aXjzA99krCDsukUMXvfPTB3vOVhY0kWB5ovSnSyEe+a7ML
xU5KguAD8spngo/SX32ZN3FGEjrkX3jsoxHUKV+9h+1CXS9yxnquKEHGgqS5
2EMS6AeiljAVCJKs1vjnHSAJX/5tWFauQxAYbwLnO5LwNe1xdJoeQe65RoGH
giWpefWu78J2guriHBmbIiQhI4jBf2FO0LML0esG4iXhRWpyR9hpgip6E6+0
vpWEm6932dx0JUjA9iP+mSIJMU533awuEXTcsG7322xJqEx77v38OkGrGFJn
HL9KwlByo92XRwQtSMtLjv8uCd+Smms1nxI0sfMkYZdLgvjfzhMusQSVehVc
dK2ThIqYLcW3EwlKY555n9koCVkPFvgfTSMoIp0xMdoqCV20yR2Md9T9up19
vXolIW+8+JtUPkGmPvJFmCsJJpMXLh/4TNB6+WJhoQFJCAj9Ief1lYrXTOnO
7b+S8KDhl6xNOZVf1vfwiPl0aHF5FXC4iSD/3Zf+NEjQIXL+oO6NVoKcexcr
LpShwyefkjz/DoL+U7oS81KRDuZdwQsX9hKkmr20k6VCB1355eOZHIJE9v5a
prmUDmkfH4Qt66f0vKGWmL6SDgVXBoWeDhCUr1zdP7yGDvOW/qmNGSLoVY73
mk0b6CBw0MXu+ghBd81XuF/bTIcF9o+e6o1R9emrfZevR4c36fvv144TdND/
+rjANjpY0xrX/v97KKis+s/QiA6z22/4P54gSP3DH6/AXXR4FfcroGiSqr/F
TVy2mw7Kd1w2fp8iaJSrRZO0oEPI6w1hSdMENd9qNNxnTYc/PYsjT88Q9GVR
QGD4IToEXzlsIjRLUOLHdWV/jtBBvkYn/grFoftbxJWO0cEuVfPtd4qv8IL2
HjlJByeRVqsxiu0DN4S9OEsHvGxh0gzFxqrttd2udMi715rQSfHqvLtyGhfp
4EE32BtHsazVpkNnr9Ah83PIc32KJ/md0aledAic1nv8joqnMyi4bfA6HTqP
durOo/j7kv+W6NyiQ3mVUaAOFX/6p57jV27TIeqC1XVE5ffYOvRN3n06/EjT
UFtO5e8zoNc3E0qHpjUC11iUXk532KsMIqjrm428b/4lyGxZuOutKDo8brm3
borSW7sAZZY+p+r7KPSJ+ShBige4I2Iv6bDthe6768MECQ5FbNr7hg7ZdQ8D
7g0SxL5rcC0siQ6voV76IiEoB0fOyr+jg2RTuW1dH+Wvg0YGth/osJeZr7qP
TflreMA/5hMdkh/JJL7pIchCfaeo2lc62Oqtk2a3EaT7edjs9Hc6uLzxG6tq
Jmjx4ZgHyeV0yKozTn7cQBAJHpPVrqPD4XW0JznVBPUPqBStbqRD0PZI1b2/
COqz2OGq0UoH+/02a0t/ENTNfPJ9IYsO3FY77uFighqf6/qIjNFhdc0/EKX6
p17AcaXQBB0OVO63fUP112/HO/XT01S8NzWUlycRdOrhuch/NClgrPrvadEL
ghxtCob5olIgv+uBUsB9go4GWZj0i0vBuLVHq0YQQQ4fWbEcSSlQzuM5J98g
yE6JvqdbRgq2dx+jWV8m6ECbfUKDohS0w/w0bXuCdp8UtCvWlIJnGfPcVFZQ
9XjyKOvzKilYNFmeV6lKkMn3FaJYSwpGZpw3HVckaOdKi/cf10sBszunVUuM
IAMSJ532nxR8WJhatJ/LR5svG36LNJGCDj1LXmc8H21KqFd+bCYFc4Mz/yVF
U/O7wflC+B4pyPqdnGv9kI+0tzxa/MBCChqZt3z3Xecjrdmea/6HpOB6W75K
ywE+WhoYuMb1jBSITjYetxLmI/e6DT6OzlKQUeV/0+MfDxUu7/xp5SIFLa2X
F3vyeehIsd4ZPXcp2BSqNKtVz0NRgkOv5l+TglsN568ZJPKQjJet4qvbUmBn
bq24ZBcP0dzWzWlIkAKf77+nme79aF9h6/6fiVT8KEOj4Fg/iqXfi8PJUiBg
kb7fxKofbU1lodfpUlAXvLpDenM/usZ9eu3CBynY6Gty1H6Ki4ac5g5IlEqB
TWb0DYHrXNR5qKnRoFcKHvlCdfGFPiSub/PGgSMFii/Kc9849CGdRTUXfLhS
sPxklcK53X0oqKtMPJdIwV0x39AYtT60xjl367q/UvD0xoWy+D8c5OUdGbdo
vjTcME3pMdnAQYxYmzNTmtLgJlZ/Iqq+F+3sqfmX7SIN80Xk7Uqru5H3ymDP
tPPSMKJ5pKkwtxtluu2cTnCXhr6kV8vi47qR0swngWgPafCds8NjnXs34jNf
z7vhIw0lP7KSD0t1o/CdVxh7gqXh186mw2K7ulB7kvI6Voo0aEccMLyZ3IGu
uDudYvKkoYG1zPD3jWa0J+epCdNDBoy+vT+UmFGK+FNnvITGZGANe0Zs481k
/OKP3zuXCwugvcl/keNINZ44pe9wdXIBHAzldaet7MAmeZpwaXoB/IgRCzpv
3IGfSsgvdptdAMmt71YuPtqB9TKH2k4JyUJMRYaYWUQH9pl8Y39ATBa+++3Y
XzPbgYWCZew3KcnC85D5R2//6sTiWb12o//JgoxPomqnQze2nfNbf1BPFgyi
jUz2Xe3GKTZFC3lbZSGNk7Y7ObQb75mKbuk2kIWHepq3lhd14xAjC7taE1nY
tDVGecmSHixb/8k265AsOI242q9p7cELp0MPu12TheKyG6ITRr14Z+fuj4+9
ZKFTjrYryK4XXyyZL1fgIwvti0YDJy/24rJQv2rRm7LAWzYcFfKyF3uoue16
dVcWtIQPqrnP9uLKveab/kTLQlN+0JfJDDa+ESe5QB/Lgu17c5PLgn04JbDs
/LHPsnDKeCbgAqMP1zsHVNz+IguNtwVi963ow1qbZm7XlciCwz0LsSzzPtz0
gydwvlIWpJoFd4s878MbRn/y4zpkYe7TLYs467mYteNumYgwA75ax10cMOzH
jqYOi5fPZQCSianLsuzHLXt0PLaJMOBiz0CizfF+XGvVpnpNnAGh4qJOcLMf
Fx3TvsqVZcDxg3MhHPfjZ75N6hXLGaBScUhi03oelr+Z7t2nzoCg58Pv/yEe
Dg+4VTNXkwEvC+ornu7m4Tv31/giLQZ4TxFhn1M8fOXpzbr0jQwYn1Ud+hDN
w5bvV956uIMBv59s2jE1w8OVuQJNabsY4LLJi50qysemBb/X/jRlgIjFLllg
UvvZr77NwuYMuGqlWD+9io/X1tRoexxgQJmcTEbPAT4WJ56dB04zgJXqoG6b
yMdBQ+abL51lADNx+8fBLD4WGlseHHqOAbnRKxWc8vl4YuqXbpkbAxK3MxV6
fvExW3RZ6JZrDLhyWmhq5zAff1H7iVTuMmBD4uGOx9oEmwS3mTDvM0A2RVgm
8D+CK0eHrCQfMOCXavaMzTaCW4sVnGfCGFBi2jL4fA/Bfx1PPmmNYsCNM8H3
C08S7FN27WVdNAM2RXG4n84RPGd9cGrFcwYIZCXWRl0gWEYwu7ggjgGjFfla
kz4Er4qhDT5PZABc1T23O5zgzLnMqYhkBlhunhdgFUmwrsuKeQ9SGfDx6sTM
1ucEG+ubL/TNZICt+/GZ7DcEl786pnH5HQN2dqd6bk8m2FL8srZrDgOw9Tfj
zHSCjzY922Wfy4CMapNs7Y8Esw0yLG0+MWA4/Kr5/79PuiQW2+8tYMCuqr8a
/30m2Osq9xIqYkDOVNaNr6UER8jpxi0qY0CkqPalM3UEK/uapcj9ZIDwgGZE
QAPBL1n2H+gVDFjFlGm42UxwenZAxWwVA+rP6XxU7SR408KohvEaym9yAvuK
ugku8E/pJr8ZkD5eN7u9l+Af+2sn2hooPTA9so9LsEVe75z6Jgb0fSM+dD7B
9UsmpSpbGGBgXO/OGCDY/o6kcmkbA9y217hPDRLMGlRVL+xggPsXEe/iYYKd
D+qs/9DFgCc/Cx6cGyV4uHCnfnoPAzafOvh2fIzgaxq2OxN6GfDfq0Oljn8J
Fghx3R/LYcCtcEdu6j+CA8ZvHHnCZYC95Rrp5gmCJewjTofwGBA179nmvkmC
w7+9vRhEKH2a4h0apghW1Mr3vT5I5SviGPR2muAXjyrvXBmmjlfPSzs0Q7DG
dNej86MMMLvNremnOPX4eOypcQY8uO07Zj9LsM5P0WSHfwwg+pbMdxR/0lZ5
f2CS6mcVeW0OxQZP1xWZTzPgReZjs1mKv9OMynfOMsAvON+Rel/E5mcO1IMg
E9qswi5VUFxXdbZrsxATEnP1bgVSbKfry187hwlq3oJhqv//nhkb9k9jHhPi
zm6PjqbiOSPyWlh1PhNUHG+++kvF/4MWdH+7GBOs87orl1K8avo084QEE9ae
1byjSeUbPG4aE0Rngpnn+SpxSg8yuFojSZoJR7ym3pRR+pn30zPKFzAh01+f
fpzSN5M1qDvAYEKw1k+RBkr/BR01RTLyTDgWcSZiBVWfi03ZpjqKTPh2QDjX
iqrf79+Pa22UmWAYknrJjqrvxsqrdtdUmCBU8+YHEKrfivVd8RLq+Op95lF9
BB/Ei/52LGMC88tufyk2wbkfBf2E1ZlQcGi9nWMPwd6pX8N2rWSC/j5Z0cg2
qn8T3ig5r2bCePjbbm/Kr/Dy9qvgNUwojrZ220r5mfZkd06NNhNsevlpFtUE
Hwtbg8Z0mHBo+tPp1xUEF9+TLpXfzITRi6d6fpdRfvH73WCnx4Tmh13apUUE
93q+d7y+lQkC59rpdwsI3ukRyY0DJkwIMApX5BIsdtZuuteQ0h+MMiao/gyx
7FnsvpsJLBLnzI0meHBPydvwvUzoxQt97z+m+mHX2/Xv9zFBrkQ/TCyMYMbW
c4ZTVkzYGZNe8zSA4Cj10ZMBR5jwRW+1t4QLwZOqfwYSHJiwQ9tndwg1j2yV
P1794Ujlk7fEijgQvEja+67USSY4pH3VMNhP8KsJ4bQoVyZ8HB0p2LKRmlej
rE35bky4/sRY7YUWwSdIaWHbBSp+tx9zutQIXtF9r3rZFSY8s+0wn2JSfi6X
HUu9zgTdyo3yAaN8/D52mf6XUOr8o+7jM0l8vGzW0PPzQybsnZuiUR/HxyF2
Th/xIyZQT4L+sEg+PqX4WudTJBMuXv9qkRLAx4rh6lrZL5hwIDfquYc9H3sF
ai56k8GEhW2rO4+JUfO7x8QuPosJTZMPag8J8LGV4dmnL7OZYHpiy6T2KA9r
CSbLxX5kgl1VvfT9Vh5uu7ZaKvIzE2YF779oSuNhA5e1gnermNCvuDJixIyH
U3+ao9s1TNiv6kO9RfCw0ko378DflJ+T6Y1MbR4e6c34d7OBCdyb8Spf5Xk4
/qj2kFcHE3xj2btLOvuxiNXGLpdByp+jE8tc3PpxxRa9rxbSckC6WH6JV7n4
zodLk8YL5OBkWu+tiNNcvEMnbd0WhhxIHiy0P3WQiwu1ljxfqiAHc6Lrq/M3
c3GWqsjlkcVycAStPbdurA8/mVerEbFWDowsvl/e5dyHj9WcvdewVw4M154S
zTTi4MXm8UXl++RA6GLtgyvrObj5Z+vfz/vlQIB+QkR9EYd6DOxzSrSRgzd1
Vcp6f9l458dNWz3t5cB6V3bzzrdsrBUjNKDsKgdFekoW03PZ+O+Zp/sdguWg
xibz9OEMFn5w7eU83xA5mHvF3Pt4JAur3UnKexYmB61L2ldZ+rGw1du8pU0R
cjCWxPjZa87Cmb1Nw1YxckArrZ3bxe/BzseVw03T5eCntfjbbWo9uN3uWe3G
ajkY3BAlfvJmFy41j7GSYMqDa1L8wi+TbdhRV+/Nm3B5cCjKfIPcqvBpXvlo
c4Q8wO4E0c2rq/D5F/aGMpHycNhByVuJU4l959/s8HomDy0v3zW/cqjE0Q3f
lSxey4Nwo/P2R88qcN1Vm5Cp9/Igt1uu0npvGTbJdb+6r0kePjkof1SJ/oz3
uQiXBrTIwxfBbC95qc/4wJII5qc2edg9a3ph+mYhPnnnY5Zatzy8WOizS+5P
AfanTDfZLw8LcHvk4wu5uGDivuPrGXl4Yi2m3fk6A39NXZTRJKAAiWJnI5vv
peOfjhmzUkIK4PvodvytnlTcVFYb7TlPAdY2rdZL90rEf6OU/phLKUBKyYkL
j9++wLN7UpYHyCjApcvxJ1ZwnuO5QuhinqwCGNtVbJrxicKyZx2l1RQUoBHp
W5klhmKlRSP2h5UU4MpBdlms7x28pOZWashCBShJe/EsKNEPawbKTX9dpACG
hhoV2YlueN2Wt6aTqgowtfb+//+/W/A/mI1IOA==
     "]]}, 
   {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVWnk4VV8XNlyza7i411DGSsmQqFS0dhOKqBTKmKR+UlSGiihlSBJCUSJD
NJChENWupBASMs/zdO/JPPOd76/7vM/ZZ+213vddZ991nqPg4Hr0DAcbG1sY
Jxvb/385MX9Vz5Zbu/6sFnn/tzp219qhzztlH9rBCWcvHpNML5jP0nBsinQF
xT05nmyZQdAnfm42L9IPMjZwjPhmPIJm/TvfUiMfgNLpx0q1r9Pgr12kcnxk
AnSuNuo6kpoPR12kmh9HvgXXZHupi/d+QsS4dW5MJIZ3WSdXHq5pgPsScbpf
qF/AXjE2cPOdBqjJDpDbcvQLKEwcvhPV0wBWw9Z9si1fyHySqAnPG+GilcCl
8dGvEJ6pkZIr3QxReueCY0W+w5bHehd42Nqgg10xf8CiFP76WBReMuyCNc+o
cdZPSyHLMlUj4koXnNsx5/OnsxQ4bxwsuP2sC8YvV+8p+q8MGBfqDnROdAGl
17cqzLsc5If2Xjn/tBtUfrT0bUmoAKXld4/P9/bAzpKD/HuuVIOXdMjWnYf6
QaTuxe9tD6sBFbba3Hbth95ujmi13GqoaY1QiY3ohzC2IjmpiWoYtIv2V/3b
D907N275d/kPNLTJjwydGIDgHAH7Z5drwLXYlup3YhBsvp5dGxVZA8opW974
Xh2EzdXFw3dzaqDztLKdwaNBaGV6e3iM18Bx4+vMzXWDoLFhNMT4ci2UPCd2
njcagvqEivfzl+rgS9tevE5jGF5nrvf+F1EH0Vjg8OODw3Dz0x3Un10HYwm1
7VVnhmFDi+6vP2N1IDAXyxHyZBh86Bmd6Zf+gufx3L+alBFQun9fwOJSPaTy
b1gQLx+B2SdD1cYR9cC+9thYYdcIVLzaH7Mnux6s9IvMFOdGwLN0SV59rB54
KzLvaSuPQjnnxa1clxqg10JD9dTNUXC7bnIq160R7oltW5O1jgkHL+qm84Y3
wq7Tza4T25mg5KBC2LxthKBYv7czxkyoP8B9g5fVCFGyu8/uucwEPanPj23O
N4FGa6JN6wcm0KlvOnJCmoC9P35Y8RcT/rHFreN91QSS/uc3b2hlQsqgx7uc
wSaoq1tl777EBP4CtWoep2aYHao4wq7Hgt7XMgybgGYQonj/3m3Mgs8JfLY5
Kc1wcsl1DFmx4FJQ34h1TzPIthx7fv0qCxrN43ly7FsgfV7gYONbFuQcvGfC
c7MF4u9L+fF/YsG9XdeirRNawEpW8cx8GQt2rTuuxNPeAsHDon9pPSxInRIE
a6tWuL/z8EklGgG+Q/MB2ddbgZjU3IBWE2DZNljBHdcKghW3m6TWEyBY8v1k
dmMrXK84d4tTj4D+gpzn3LOtMCbdYSRmQAB+kzhoxWiDL5tD4zsOE3A5yseT
27wNmkvD/TNOE2Ac7PzJyqMNXMstmJkuBKzzsaRkR7WB+4R2mIsHAU2ntSOt
atuAQ8VSeVUgAUhrNCPrcDscS7D5dTCFAGnl5kkut3aIiR2f3viagAnp0p1W
D9rBR+zPn9JsAl5wpJRxVbVDeAnLestnAm5OR4hYMdtBetJ+nPKdgJPDfhZZ
gh1QWerPHl5GALXGqu+kUQdEP4qyaawl6yk5oJrl3AEXRc2johsJ+PJh2xWu
kA6otXeWFGojIC5jbeHJlx3gFq3aubuLAPfnYuxZpR3wgCu0e1MfASbR7IZc
gx3w4pQgo2WQgKjvXgYZnJ2Q/KPEA42S+XxmDVuIdcJileOMPUHAhYIzYRxK
neCTpBKtO06A+oEj8uzanTBrPW/IO0XAvybdnJV9nXDmuG27/wwBOc7r9y0f
7wT9zwKmb+bI/RfE6hedOqH4W0D0nQUCtoaunF3w6oSEqNUZAksEzKwamZsL
7gTJq+MRu5cJKMiovzcb2wkfK8fQuhUCru/6tnrmVSfoSjfkfyCx7u+Mt1NF
nbBeUHVqgcRLdrG7Jys6Ic3PcHaUxJ//3akdb+uENTePfg0l8c1bbmfGWJ0w
ZLDrSAsZfw/NeoZY6YQ8vaqXjeT+nMkGd1kiXWD0L7LyziIB37W0ZJgKXdAt
PII75gkI/C6bMbK5C5LOcAYMzRJgeJwfhvd2AW9ZvULSNAF8/VPVg8e6YK+Y
+lO+SQLKPbscBs50gb9I4rzcGAGhPJWTfZ5dsNM1Yl8fk+T/cUFgb1AXuGRo
+58YJkBkQ4pkz+MuKOEM+ejTT8DDg966nYVdIDNtalpN6nmsxamq/VcXaP75
/omtiQC6y1H7ttYu+Mw/eayT9EPc/Q13mpfJ/JWtN2eUEmAtK0FvEu6GwTaO
6LhvBKx+y5beIN8NAkfhxLaPBCRWN/yq29MNFhoKhn6ZBDicKrapNesGmm9s
tEoaAUrjmcQfx24QXTIOCUgg/SoWKPY7sBvMBavzDz4g4FzKpdTKR93QRa2R
ek/6X2WLzbaK9G5I+3DF4/cNAjLMta3KyruhrCfPXfw8ARcH5Jg/W7qBp77H
AE4RsOmqgN+P0W6I6vpxRdqCgHex3UnFQj3APeOl172bgMLW8OFPR3tA0lz+
SaEYAT4XfHw+nu6BllYhzfM8BOgtnxUqcu+BoO58zsp5FnyRg80FMT0g7Snb
mdLJgp8OzGs5zT2w+q+k8st0FtQNHuBLc+gFfZV27jUqLCBi1++/fbkXhMc3
/5KXZgG/Ec8tO/9eaHLdz9HCxwKU8X2WkdQLPm6yJ4IHmfD6EgwGd/UC/za+
T+VJTPCf1/7pbN8H0k0m9SICTIh/LcZp4NYHTyrudU9Pj0KB9fgupZt9sLAZ
9T3tHgXm57d5LQl9UM72yH/Dh1GwvK3ywrijD3699d148PQoaAjKB6jb9sPe
88tXal+PwMFPy1/4L/ZD8xZuzd8PR8DxYtti/41+8NnyYeq+9wjEVce5J8T3
A7vzugvHD44Ad7SEo0gbeU6uuU+j9Q1D62qBveNWA/B0j27bFeFhCNGYZssj
z8lVKkpyt7YPwnWvAxv7nQdBe0NoYhZjEP7DT4/TfQah5u66h8+nBsDQdO8r
z2eDEHTYVL0sawB4XMPNtvUMwtwNLZHtawbgTqbKiwKXIfgzVbx2dKUPfNXs
jIr8hsnn7PG6vfd74NLG0ugvqaPw5evcHwO1Vug903szMW8UFgODz+jWtIB5
IpvLzZ+joGIkbzni2QI7JLbvQUOj4P0JmN64GThWXrKwKhNOJGqz3TrUBJE1
9wxwLnmOjVDX9dvUQ84107lPX1nA2GnwM9q8GuZPn89su/gPuKxzGL39meDw
yfxwuNM4pLhaPpF0rcWb8yRpUq7jcO6rwIfI6lrM8ba59rnXOHCyW0o3a9bh
pERbi9zgccjKHyqumKjD3bedbOtfjYNNVEH0Oo967HDQ02UVMQ5nl4pl/7o0
YYeG6OB0rwlQ737tF7ChA2+utjioeXMC+rTb66r9OzBHmZRgYfAEWJxtuf6r
pQMnFcY/+BU7ARuun4g+o9+Ju+NTY1hFE2AmvS37wlQndnB8n6LNNgk/vj1V
2GXUjU+P1X35EjwJY79VJ0ZqerH99XCLgvBJSCm9eF9+phdbcxqz3j6ehNaw
DNt1Mn3YXKJYJiF9EuL+LjumOPRhw+3ZnjdKJyHTRPHwKaIPq9+6r7qDdwpo
QdY+cSv9WIX/QLGmyBQoCDV9+yQ/gJUfUk5ukJyCLr8Bl4zdA1g+1TtIcv0U
iO3U+PHPfwCLlf3XPW0wBemV9MQVjkE8K6L/ODdoCnziLQTY5gbxZCy7xusH
UxDP2y9ZSh/CY4qfSpIeTcH+kzkbLLWH8LC29kRE2hTcUko89PviEG6zVDRx
+zkFnXypgbSuIfwtcZlTjWcass6HJbwvHMahm/JdXwROwzE7a6dqNIrLNzf0
e4RNw7cjdN5c81HMu2XGZn/MNJRsMuyxdBnFd7ZvM+5NnYaplq5QZswo9t6T
v16xZBqu6Oz6sGVoFDsfy++K55yBFgP9ezL+TJxu3mB5QWAGArfMKKyOYuJ+
y5nfumIz0PjT8UBHKhOfstn2uUVxBm7uSMtJKWViS6f8OKk9MxDwgbdfQ4CF
Da7mm0XfnAGd8dZDG+6w8J3rDeWOwTPgqRS3RymShb/5zOzWDp+BfFejtJYE
Ft51a9um2oQZOHHA0SiokIW3huQLiuIZGCrePfRjlIXdQxtud/6YgR+NT/Zl
z7JwTtjM/NuqGQg+PKd1gkJgtYfbhkzaZ8DJ3/R8lzSB1zzNLwldmgHBlsTk
6n0EdnjWoGvNNQveNGeOVBMCJybO5G6kzgJS6tLdakngVanbkspXkddPmU+E
ORP4ZJqFVNyaWWgdWTAwv0Lgxy+9wv9TnYXfNs82NHsTWCwz35dXdxb6vtoa
MUIJfDirYaph7yyY7Xl5rvohgcNyZlzSjGbhiejByv1PCMyfv81K32oWuMzX
qJ15SWDDDxY1EqdnoWSLOL9wFoEDi7wO9DnPQtT1n2PueQTm+JK/7c71WThv
rfza/RuBX1FpL5b8ZyG6xUY2oJTAR61cxL3uzQJnzHqz/VUEnk//4f/v4Sz8
TObY+b6WwMnT8mP/PZ0FlybN0rpGAhvv87brSZmF1OEfzOQ2Ak9G/K20zpgF
Zkh8gmI3gfephbwy/TwLwQse3urDBB693itZ9mMWsnYqRxQxCRxVuitoz+9Z
aF99jX/2H4F16bFTRQ2zoD8LHT0TBO47PXF6S+cslBbK8PpNk/VnH6rJHCTj
sV/1LZsl8NaVNLR+bBbC1obqFs8TuN2Y4+3zuVmwN7LSc1kk64+zXi3DMQex
ru98vi8RWH0w714U/xz4Xto882uZwPVbROepYnMQKaP7yn+FwL63z58LkpkD
RRVK1CCJlf+U1LOtmYO/pndzl0hcLSu//7rqHGjrxPB+I/FVl+u5E9pzsCn4
68MtJJYvrFO4oDcHL1svmFuS8Ut5NML798/B8I+yoyrk/m7H7y7bmcyBys/f
914vEFgyucelyXwOuPbrc7XOEfjLP72Wo3ZzMBOAi4tmCPzfrscHKs7OQcXz
2IqDUwSmhY7n73ebAxmP5bV3xwlc2GS8Dl+dg8yInnpPgvSjclqUzq05mFLl
HxAbJf3hwc6Zc3cOLgmu2NoPEjjnm9WljZHk/W7Shta9pB9F8jpS4ubgz7zf
G55O0h+2IiayyXNQ9Fj2kUMLgV+/dv746PUcvD2dJXahnsDH5r6riL6bg+iA
QnXlPwRe1JeLDfk4B78l70+F/yL90F3rcaNyDlx7vuIrmPSDhnrv9N85OF/2
oWu0gMBPbwQfdWufg+xNqaMSOQRmSuppnCZIPnZpcV5NJvU1fTFoKDoPRRo2
hr7+pL7xbBbfpOZBnSf269VrpL7DJ0t2Ks7Dtm2LxUpuBNYIFE5S15qHN4pQ
fM+a1OfjVSvx4/MgRclwe6FJ6sNfW3bfZh5UVZ6MK68j9bFU0+FxmoeoXr7q
k2Q/u010ic97zoP5WRuJv+wEFlUxqup4PA/X5Rp15SpZuJ8nQbQ0cR64cfR2
+S8sXNg3fiwrfR7+22X0rC2HhR2fx7XcLJiH3VfLxMMesXCB5PCgQuM8zG1M
5y+zYWFbnrucjowFuJ2T8ry4jYm1+lr1jeUWoPyOGn9cBRPzFm8K0VZegFj+
hTH1IibO8W0U4dq2AII50k1Rj5iYa1pZ9oX5Aqh1FlseP8TEb3p/6AxGL4Do
D+l7lW9G8a1v0j7V8QsQfcWAlvBoFJsnXsQFqQvAe24Aa/qPYjZruv7d9wvg
NOhm9IR8fpvVnjFT+bsAr7z2utxZHMHzXykXXcQXIW28v6FZdwQbJuxJ/he5
CJp2cV/FIoZwUGl1m/+TRTiv/Nac6/IQ/jFmKymRsgj8rx9qvT86hPfv876/
/f0ieHJP8h4RG8J7hnK9/BsW4aLdPyX/iEGsq7XWWHzVEtjmBBuKk+fZpp88
U9tSlyDwBvWu89Y+7PovWqM8YwkeuYxJVQn34UypNc7WeUug8kpk/8JgL1Zz
QR03fy7Bbd3khdy4Xqwieq2sbGgJnCb/cL5a6MFrrIbjrdSXIXwgkY/zXTdm
EBX6fvnLoN+UHmXB3okfR+BTQ3gZ1O+YljNed2BJ7Rwfs9JlKLOxfKRpRuJr
j3KUm5ZhNM9HwSepHUtzOshWzy/DGbl0sQC9NizLmJmS37UCagG3izY4NeN1
oJD67fsK/G3/mrwQVIfjfhayc/7HhirP9B/gv/0F667evSLvyI5OSAo29+tW
gaF13WWHc+xo04JNtB7nbzj25Gx/sgs7UhNgHdtf9hvOS4VVrvNgR5WHpNk2
vaqGOImWJ6qB7Oj1pS/B+7VqYJbqoaOTzo4C+0ve3NL9C++W0y+ZjrKjKY8T
jwLWtMAXPd2+8H/s6Pvd1xVd5Fxf4fPbsmaSHdmra0zPtLZAz/wUHF9iR53s
jj4mUa1Am9kjZCXEgVbf/dgSstIGbkTrK6dNHOjJH8fvRac7YWOnSO8Ndw50
e9qk2k+gB0wG5L95XuVAcgeePi/Q7AE31qZEVx8O5CB/v/WHRQ+8WzxsfeoO
B6JNzek5JPeArlRE3b4oDiQcfirknk4vGB8VLRF4x4E0hRqd7E/2gct30Rex
ExyIUHi4ZujaAIT9UrgTOcOBdGwSVbTiBiCrRtPh3gIHcvniW2NYOACTnUdk
b3ByIluz0yN/5wbAZykixl6MEz3x/S/a1XMQQrfSgpS1ONG6HZMsxzNDkJFO
O/f+Mie6uIZLLFJyBO78xbs5vTjROTPjhkGtEbDmuCBzxJsTZZhXf5o1GQF+
659Vo7c50WEbw8Y9d0bASdhny5poTvRV+VPh1ZERkPfs43iYz4m2iTyw0Xwz
CjNJka2dRZxIK365dv7bKFT9hjz1L5zoRpyAzbWmUbixIe6/8lJOtEPN6lMU
FxOaW02q2Zs5UX/KUd9dJ5kQtbcg3m2RE1mv4SxVn2LCebczXp/ZKIhWGp+o
wcOCPfG0I4JcFJQ3qgfdkiwYm3ahpFMpaL6PoFvvZIHJK4XzHbIUJN0WYhHv
w4K1DVX71JQoqEJns79yKAsWOX1kvZUpqOn0NUmHJyx4bVP/h76JgpqbuYYH
CljAK3pPx2Q3BSED9yXNfyzo0NOhPd1PQbynqqx2LrEgz7lvZOgABS0NaK1M
8BFw5jskBByloM17HSMuK5Lz/9jo1VpzCkq/b4d01AkQl407qmBFQcsNP9+9
2U7AN69Jrk+nKUi06bjXc1MCYlOed/Cfo6CUZsNQhZMEuP0x+WDpQkEF3Psm
TR0JkNv40mXSnYKYy8LH8r3IebPdpnZjIBl/c21iRhwBkwZ68WdCKIjh6G52
LYkAl+xVZxPCKMi3Yyh66iUBVnda5mmPSL5ih/xW8gmoYRZ+N35CQYHyWpT7
nwk4aBEXFphAQZVNv/+Ufydgh8oJxfk0CnJQkRawqCYg56HOqNYbCjp1ovRE
6l9ynl5i5F3IoiB+rV/5yc0EJDnN+KW9o6DZR48lj3YQIF1df6CrgIIs9ru6
ZfUQELk9T0zmExlv3Pzd5wEC+JOj2459paCp8/LNPiME+At6pIWVUJBM5pnG
YRYBcx7HLpWWUVDGwt0XvOMkHx1aOzmqKGhk4oNu/SQBg4ZiXLo1FKT2YuSh
2QwB9jnjVR71FBSQ3J56c46ARpmax2+bKeia0KoLNgsEHA7IdhhqJ/lMn+4d
WiSglBWuqtRDQa3tIXzrlglAlm7T1gMUtKHmc4PoCgEFX02/xIxQkK39nkMZ
JN60USOkmqAg7w0Pzs2SOD1K6Bj/JAU9eTi4foLE8svM1ftmKaiqwiosnsSP
zlYO3FikoMlyHDtDxhf68yY7n40LJR94b8xO4sAdod5jFC4k9uPFy0Iyn+Xk
8/s38nEh/muluUpkvp5UI+EzVC7020TSVZesh+Wp0vRMlAuptNl0Ush6nTr5
khsluJCVhQr1BslH+4EhF5o0F1K+2biQMkaAeW7pVmNZLtQeG5rrQ/JZtSqd
LVCRC104pq1LIfnWDwwqx+u40NUPgc92knpsOaFvq6XBhSp6p+iF7QS8+bZ2
/QUtLiSSdXEPO6nvGlWu8RfbuNDq+QOXZ+tIP68UB0gjLrRWzZ82U0ZA6Llk
02P7uFB27a1ny8UEUGr8pcIMuVCp+ganvE+kP1N2Z7Af4ULf6g8Pbs0i/Smk
4LXzOBcK3Jv3fSWdgF4vtt0eJ7jQddP78teeE1B7ENcNnuJC8J1IuhFB+vPd
s2eKTlzI2yZ+jPcu2T+rfc9ZO3OhhQg2kf03SX/+0138fZkL/ZkvEK++QPrz
5KoffF5cqEjp7AY5sn+Sihce7PXmQm+tfZzlyP6KjClUyr/NhTaNiDRo7Sfg
kq6O0bMoLlR1I+DAWwYBbBej/B48Jtdn7cyyESQgLOFf7s2nXOiI207dUjYC
XnG8XHU6hQs5LbM21AyyoLtUiqX8jgtFjp7a//E9C9zmPRSlCrhQhGV4kUk6
C5Y31pjzf+RCH06903wWxwKZByF4tJgLfbKWiXH3ZcGx4wvh2bVcyHk7x0uO
vWS8QIuSpAYudK/Z685NLTJeQe7cwxYu9Khwvd1HJRaEyrg4ePZwIdE9CU8v
crKgpKtVa+cEF8pcyy7/FTNh68XP9d9p3EjzTqENqDLhe4K0QB6dGx2uOxya
KcmEo388IU2aG2V26KxppzDhorZG+l1FbjT75LOeX+sopM0nXDPZzI1EzOSn
K4NHQTLo1qrGI9xIzylP88ffEZhP2OcwEs6Nfn+k0W7vGYZdM3qRmtHcyPAc
/w/RtcNwy2TbN69YbrSi5WtqwzMMvEsbFClJ3OiSf4m46q8hkDgp3L0qlxtJ
/3o1kmU6BJvEm0+Z/OVGA1Kn+J8ZD8KZYNdT2VI8SLT/efAJyX5I7zgXMbOa
B3WI3D2uNNEHo1sdvuop8qD3mi2f31X2weW+YwrlKjyonntmQMO/D27u2dHV
vZMHrUn5vTNysBfiFimnxG150ApX4bjN6x6odouz90riQcctqHv7BLpAJVxk
wf0FD7ptqaBt1NMJt98GRl9+xYOM6CZm9wo7YSvrcvmFHB7Ud+LQ3SfnOiH+
vJG24zcexPtd8adAYAc4Oy3yHOnmQdUFcRlp3a1AsbZ9q6LIi1bbZ+V3ujTA
dgPF5bbnvOj12sNJXl0/oWz/9nT0lA+9Le0Oe135A1/96avul8iHBM8M7OCK
+YnXH/j+7lMKH2ouLVJWsi3FgcamX3dk8KET7z42JjPL8D6zM83an/nQtdtl
h27xVeIv9hGCGzr5kFT+i53XY//gfO8hN9E1/Mhh+Ar3w4QG7LSkPmO6nh+F
zlTLyC83YLqf+40wVX5Uvd3A2c26Ebv7r9wV2MKPDrh7zZhLNuHNdyWSufT5
UbnumUaF+804M2b337mz/IjgTmPv+q8Np2bHbu9+zY+831Sqt7t3YecFK5XG
t/zo16s5/cSnXXjTflmZqlx+tBIpFbDzexf+2Ji0+KGIH7VhIfoirRvXrrzG
Eb/4UfuDv6JPM7sxu8nn/btH+NF5tpUqwfYebDPcfSRRRQA9irR56irTjxW1
U/fEqAsgcHyz6p1ePx68cVYrdLMAkl5ODf1p14/dRUfFr+4QQAJvzIVPJvfj
ezpTDaYHBdCL3b9vrV0/gD8E8tiu/CeAHt7RjKOvH8QSSqrOti8FUNLC9+03
VoZweOQ985cZAuhwzGFNx9XDmJ9jZM9ktgCaZojd4Nk5jNm6XsqEFAogv/Mf
2m95DOPRZ8qV738JoJnx1Ad6A8P4u7TSJipLAD2N2Lg64tMIhhD/VZbjAkjG
72u7dMMILpzr4k2eFkCiBePe1v9GcFZjYpfOigAyuSu1j1txFD+NkX3oKCKI
mqwNRZm3RrE7TXq6aLMg0i/i21WjxcTErWvd3NsEUbrHm1cfDZnYeayx6shO
QXQ2ibHFyoaJ7asfpQ3sFUTdMWZVuQFMbBwmcULsuCBKtZxxrqxh4p9L7vtt
TwiiMhpdyqyPifdcqNN8aSOI9LK3m96bYWId44f84CSIOO76PaLJsLASv+hH
Zy9BtJCWm+Bly8LPrrmlv/cWRFRztfDQiywsOfQ7iu2mICo8IJF61JeFhUrD
LsQEC6K9527Ejj1l4fkAQblvsYJIRj3DybOehT2mzgtQnwmik62cGiK9LPzP
8deMRZIgMnXbP3JijJwf94ZUM18JopfB8XmL/ASuYef1l/ooiPY4vOfx2UFg
Vkas7eEvgsg8fPV32/0E5ju5cWfQd0F0wvWn04QpgVGOyeRkhSBaaiKmNB0J
bG3bWb3xD8nXp/a3LRcI7MV/OcPhryCKuPlveKsXgTMdop2q2wRR/YbSIPa7
BC4XUt7L0y2IfhXKfnKLIHBfYYHcrn5BJEd8kI6IJfAqsdbG1yxB1Lrx2HJv
OoF18IX33eOCaE5ewFYyi5z3z69ESM0IIr9xz9jFPALfK1Y0Cloh6+c+addQ
TOAXru+UP3NS0Tu3vLLKMgJ/k9GnTPFQ0Yhl5G/33+S8/rOhc6MgFTV8/u1Q
UUfg+Sv/fXIQoaK1wgzPuiYC0+UXYmPFqej4vobF0HYCa1aEelZLUtFmbv2R
qW4Cn1uTpbFLgYq4OgdqG4cJfKd6t6DHWipa/fJc4VEWgRN8agdfb6CiI5Fa
XT5jBC5cf6akW42KInVOIYtJAtfXTT+X2kxFidf+VHdNE3j8ZrDv4a1U1BKw
MXTVHIGpatJWQTuoiPGvzYVngcDrm15v+7yLisKKZC8mLRJ4X4Ce+NQeKvp9
duQec4nA9pq//200oKKv87zFg8sE9m6zr3QwoqICXopo1AqBY+6Ov4w1paKI
wk3uBIlzttwJrDajop4/r0bmSVzVJXGax5KKtF8f98oj8dD9NNhlTUV7drUy
FElM2bF9lYc9FVmtyq7SI+PL95fPvnakoiIXoWd85P66kdZ/u89R0XL/VHAA
ma/FLla21AUqev5r08Nssp7Lw35hhy9RUUCz6df7MwQOixE9H+RBRQ8NXktK
TxH41Z5kg8/XSL4zHBLMxwlcwtJeM3WDjL9kbb2XIHBn3A82VX8q+uNmaNE5
8v/3O5ZtDoFUFHUp7rHaIIElJ4Y+xIaQegY/2LCxl8BaCd4x1WFUtFF/o3hT
B4FNjKhXeB5SUds6ndPbWgjsPPPMdNcjKuL0NlDUrydwYPImVY8nVJRkmG3D
9YfAz02/8b5JoKIfqlGKHr8I3JjW91UqnYrymuRuOf3//ZGZ17PDb6jobEKf
zmABgYXZ+LyDsqhou4ptnnQOgfUtVbWnCqjopp6SQWQygd/zXnlRXUZFQ33H
Kir9Cdzvc4v5uZKKdueUBblfJ/Mfe6Cd8YeK2IrG2uovEdin6c23u01U5Jvz
J7XKjtT7VX/7niEqkvPyqQvVIbCn7NRaTSYVqfxeE0lTJ3B6JOcFuTEq0pj2
DD+mRGABb/mFhVkqQk68GVQq2d9GJxnveYXQjjMhDIs2FqZ8OWebLCiE1CqV
gr9Ws/BWba/UCBEhJF6+njJUzMJxq6K0LkoKoez812GuL1n4FLPSVHm9ENpX
XCpre4l8noTtDo41EEK/fSXCWieZWJHz8O8gIyEkdzCde10vEx/zsqV7mgqh
nY9xqHotExfYeacctRBCIkd9j9/IYmK/Te+/CJwVQqed+Cj0c0wsVLN+7kag
EBL8vGvK/NcoRvrbkEuIEOJpiMTJeaP4cuH+oJNhQmjXh+B1Oc9HcX2Sg8S2
GCE07jZwU9xrFMdfear5L1UIDZn98p+UHcWqEiLODiVCSCyJYmx8egSLvS16
k1omhPSzrue8MxzB84ZnicFKIcT2S/xUg9oILvX57O5aT8a/sPjSeGYYO/a6
+PkMCCED+22PlwOHcXxuWVQMnzBKnGp5gGOHsNDR27j8kDBaCpqn1ocN4KkR
dQ6ho8Lolo75LSmXAdwa0LzviLkwupO2Iq1wYAC/+qBZ3mArjJp37VX25RjA
+gqddb2uwmhHzp+wa5f7se8/3eHlCGEktzOw+YdBHybCpsW16oVRltTFOIfy
bjz6T/abWrMwmnxdRktL7sbDRw1c17cLo4suxvzffLpxL/1x2ep+YfSjLuyP
j3o3bn623Zd3WhhJH7M5LBzehR0sPk+w+EXQqWyRN1NGnfjQWXab7yoiqMPs
ac29oy1YKShIw9VZBCkkPf/xZnU17j7Z0rxnQAQ5Zwtd9jnzEQT1LNLsh0hs
sPeCxtwn2CJXe8V3RASVrP7SExOKIbinXLCQEEEa4kNZ2098BQ2Xwl2asyLo
Wdfdv3M+38HnRmySHJ8oWvYw/M+ksBwkEi2cF1VEUe5q4u1Bv1rY5V+7VVpN
FF3YFys/2VEL5xxNOXU0RNG8o7jveVQHH9cbPL2iJYoOxlZofWH7Cw7ZW6uG
d4qi+GyaxIBvPWR+k9jcZCyKVtVO/7J0awLDvtq59xdFkVPzKgtrhQ64sTHM
+62bKGox0L3P794BOZcMl9IviyIDD+aPKz86QGb5I9tTT1Gk5m6yfceWTmDR
X/D4+4qiw4lCgfcbOiHK8KqESZgoahpoUdWU6IbO16s0+zNE0ajn7d20y70g
MV6f0/FWFF1Ju5npFtMLB3UitJuyRVGMx+DE88JeyP3OpVPxXhTNiNaXe3P0
QWAba1fOJ1E0YbZZjBLeB6rCX419K8l8vZIzlZL64erlM+foTFGkUSHxLzZx
EIKNWGd3EKIokaP0n8HXQXi0xuus7ZgoGkuVUcrrGoS8+mCnF1OiyDjvX9Uf
hSGY2PHGcesyeV30jcHSsyG4yDlhby5MQ+/vsPg6QofhRqu3/XVRGpKUdzjj
/HIYQt9T7J+J0ZBztxFvdskwvD5Lt+tn0JAiOUa6Lg3D4K/tNp7yNKQ3PjCV
+t8InI66eSJGk4amtd78LtYehcsX+E4UatHQy852jh7jUfDXj7Rs30JDqx0t
9n1wHIXE2WSLdTtoSFlbfOnuw1Fot/55PG8PuZ/pfNF75igwtxw+3ryPhuwm
rtYEcjJhUajp2LI+DT2W85GnSjFB5uuwmb4RDbnz9wfo7GWC5Vqho/VmNBQv
FxJFiWLCueWYI/PHaWjGSO3mtTQmeDXIHZG1pKGdZ74uPi9kQsxdzcNO1jR0
KXixR7CTCbXMYybTjjR0dNtv7f3KLDDJe3KQ7klD6UErnyXTWHBuwmFF4iqZ
7yn3fR/fseD2JpV3EtdpSI0S91P6GwsKXhWslvCloW11p015W1mgmPD3n1gg
iSXGdieR86tu69NUsWAaKsp8e19akgALKceTYiE0NFtcMWOsRM7vD8eLaWE0
5BrLKO7QIWA6SPiRaAwN/cpgPC20J0CkpN5I9DENfa1P02V3JmAjxzM20Tga
Gn0fsJf9CgH2PqrOIs9oaE6gS0vtDgHXP0zIiiTSUAH3z2nLUAKipwtrhZNo
aD29okYvioBytwN6wi9oaK1S64PNyeT8nyEyLpRO1mN/0HTPKwJWhhteCL2i
ISufZ7382QRon3ESEcqkoXuy8cd+fCLAJEmthJpFQ9qWr2gfign4r2PyGjWH
hlIlT19wLCPg2YnbPYJ55P7hN3/01hJQEHPwsWABDUl7GGV8aCSgtlb0kGAh
DZVfDGM3aCOAJdLELviR5P+O0IfQLgJ4TRLzBD7TkHeGZnlIHwGK986eF/hC
1ju4vHH3EAF6peryAt9o6PBh2fq3owRYck3X8X+nIcGNTV/qCQIu7/l0l/8H
DSWvSPW9Hyf59buzi7+UhuKSXXQPTRGQ9tFogq+chlYOLH95OkPAtzlaOl8F
DXmGx19ImSOgdWuzNV8VDY2EFOo5LpB6XHkuyldNQ38rndRaFwkQzT73g7eG
hni9jm8XXCZAlaXhzVtHQ3JbWmwnSay/cUaDt56GbhxiPSH/b4H9uc+9PI00
1Ju4jvj/90feqQGxPM009DTzk8USiWO6jU14WmlIPSbsbwmJs+TEOXnaaegz
g/6fPonLrVvyuTtpiBV5WcyPjN8Xm+TC3U1DlhTHetclAtga/lPg7iX9ym78
TpLMT1pcs56rn4Z03qllXZsn9TsyG8I1SPJVk1EZOUuAaRgGrmGyP2Jooo7T
BDj/CpykjJL8F+z1Y04QcIfX5CWFRfavdflqjTFSz/0StpR/NDRI/TO+nkXA
B/9WGmWc1O+1ElfLMKnforMP5zTJnw8H27keAk5YGm2Ym6EhCR8pT8sOAr7n
bqxnzdHQMOdLGqWFgFjnUY3mJRrKDtToC/1DAOVHRevvFRrimX2s4VxBwEWF
jLsl7GJIM8eujOMnAfsaL/RkcYmhgO8HpZ2KCHirZRL+gkcM7Yi9M7zpPVnv
A3W9p3xiKOmavm5+JgH/9hMxQVQx5JA+9HQ6kYAnuW4HbSXE0J7arOXd/gRw
Cx+ZMWOIIX5bhdvD1whwc9ZMOSAlhrRU1vKZXiL1Uxhf0l4thv4VNToa2xEw
HnYlW2Atud75WZA02Z82w2a27Mrk/puP7k5VI6B0v7bAzHoxFMxm9XxUkYD4
xUnHblUx1GCRmJ1N9r+hs6fkB20xNBWujBltLMgtMS/J3ErWp/7eLKSaBbIK
2y6n6Iih+xr5FoXFLJhomPn1QFcMvV5ns9rsJYvk/5qf0z4xtEnCpcz5Egv4
np9QtdYXQ+EpAyu/HFjgvri96YihGJqZHogcMWPBgdz5zXrGYmgk/4Gp0xYW
TMr79IsdE0MKTKHyQ1NMsPOxfshnLoZMt50KSu1lQnmDLlqxEENPkz9kf6xl
QkLYUuywlRj6T3BN54ZsJhxc9D309bQYwn//fOf8jwnPG269u3hFDF1c5XSt
sWIU+ks2dYR5iCHu2TZzr7xRUH3XwffWSwxVWl/fUZkwCnnhenaEtxiSm9m7
8OzSKFQcmONzuyOGHtQ4tHWKjsJskZvdpWjy/qFHxuL7R2DXK7mQiEdiKH4H
/2qkMgK3H1e9y44VQ3+vp3avEx4BIQ9V/vF4MbSm8/apdY3DoKQ++O7yCzHU
f0uza9JpGEwS7fjd88VQmk9GnvDVIYgKE9oS9UEMxUjVPBE8MQRNPp/s3hWJ
oWXNa+Jl24fA8YTM+0kshl5eK12+NT8I12gNdh6lYuiC/bbwxauDkHLH5L1n
kxiK9IKrNs4DMH9Oz/7aghg6azkfoa3QBweLVJDHkhgqHM4wtVrqhSdUSflL
K2Jo/rFTtFlTL+jmjHec4xRHlV62sx/Ce8F3Ic3OUkAcUXnbWU5LPcAZRrPb
JiOOnr5y9bpb1Q2CuQM2UzvEUc06L829Rzth9VKE1aXr4uiR/E2Bs/1/od/g
XjkvRQL1S13miX/wGjsY2cuv5ZZAxdoJ9MqCTNxmssVzN68EKjscJ974LwvX
He9QuC4ogaT7suu3Sb3D305rXRsRl0DbFxSsvM8W4ni/FuWqtSSW11A39S7G
x/I3Bjw0kEDWBRvciK7fuHhdBcjek0BXWhPj8qpb8MGwjoP0+xKIPUL+y/u1
rbh6avy40AMJJHD5zx2v6624/buUy3KkBNrA4OJDSm141uHs4/Y4CRTgZzdQ
fakdqyZwjD17JYE8eoIjNtzqxDGM7Uly5RJI1byVYJvuxqv8jDMYFRLo+SWt
6UWZHpzcb1cgXCWB+CmCR37v7sFZ7wOrVv5IoMP38wunQnvwL7O6+Y4mCVQi
fsoVKfRitnBXs8QhCfTITV8uaHcfduZ9QVHgoyNlIdmOItsB/Isj+P5eAToa
TxJa/ezWAFZd+o/uRKWj3stGjH0pA5gYU1v/WpSOdI5PtDUNDmD3lvdGW6Tp
SNpFXUnJdRDfyCyJPLCRjpbvfhfpdh3C7elpMi5qdDSjtFDWEDaEUfLdlDAN
OkJmY4v3MoYwx+NDebVadFSR3R+tPjyEA2/9bbLRpaMth6IUjtkP4/BjffKX
D9FRUfWR3R0wgsdMfr6MMqUjWgJNOfbkCD564OXm/CN0dPt9x4igxwiW2HVh
3+JxOloVJkRReDmC45Snzgba0pFezIVNk9RRnDJPeRvnSkfarI4OofJRzDXV
v+3TJTqqPljubdg5ip2I0i8dV+io2DZHWGd6FG/oDa1Zc5WOqOv1QUeBiTMr
xaczb9JR1bfSkrwrTJyfuEavOIKOXt7LUPHjZ+E1K/u8vz6kI6t3xhcbpVk4
3ObMBxxNR9kfz7iwVFj4nPSLLR9j6chgSx3v4YMsLB2lrP7+OR0VSpjO9QWw
cOC4gUtuMh2V7jHdqxDFwuOHz73KTqWjDbbfdSSTWPgX9eW6zJd01GdQ91Ln
Ewv7BKnIpWXTUfSQnz36x8KDfQdtUnNJPs+OfTq+yMLH951/kvyejp7rLrWt
5SWwOvsbRuIHOuI5Nrg4JUvgjutqIrFf6Wi4b9Xc0QMENm46ZPKomI6eyOi8
2mlG4IJtF0OjS+iIfg1btVsTOHwykzeyjI68djxwPuJK4D0XN7Hf+0NHZzL6
OUbDCZxZcRju1tJR/Zo/vkmPCSyz8dKNoL90FHGFZk9LJPDkQPbc7SbSH9TP
IrKZBLbXr9nm30JHbf4lXz68I3BFyrjHzTY6un7W9pFQEYFTT2mN+3TRkfxZ
o5s9PwhM+2K2ybuH5Ftd4+rpCgL7yrpfvNZHR/Nzxaee/iHwsE/UG68Bkr+T
tpph9QQ2b3k37DFER9bfx1p0Wgj8bfvf9e4jdHQ1RcTiaQeBNR5POV1mkvVc
H31c0ENg3uNbey6O0ZF650djmRECu+eaK1yYoKNjAZsyT7EI3CXqZXd+io4U
3eze248R2MTtUfx/M3S0J/WRleQkgQur8lvOztFR/ssfccHTBF6n1ijltEBH
J8KvXcieJXDkvVkLxyU6kuJuq4qcJ/DykGSMwwod5Vp/KlRdJPB5w+119uwM
pBwVqOa3RODGFydodpwMlOKwb03IMoH3cV0/bMPFQJt2Jj09tELgrNNxYVY8
DNRwdCSqjMSrvhVWnOBjIL8UfsFlEgfLt/BbCjDQoYkQ9hEST/kuGJpTGejt
rxiPcBI7tMkEHRNmoBX/2XMsMn7VTt2So6IMVLRFuo1C4pACjwV9MQbaKHvn
djOZn8GWt5o7JRhoOCfP6/wCgSk5g2c1GAyUv/XHx/z/f/+krvhMSYqBgi+c
NMczBL7x2qqOIUPmH5Vp6D9F4B3ro/kFVzNQ9ImIx2wTBJ5OqUJscgzU+NvR
aMc/Aucq8HpNyjPQjjOyZzWYBHZ7tjtjUJGB1v7VH+8YIrCqjHdP6xoGui89
P2HUT+ChR++k/qxjoGT7gStXugn8QpxlWrKegc6OH75u3k7WF6Ec+EGFgerW
C4pMNRFYTujUxwxVBmK3vLXL9C+BH/PUrY/ZxEDZNlJhW38R+Pgdql3IZgZK
5Rn5XlxC+o3dINpXm4HSFOuw4BcC35v/wH5Wh4Hmh2K0anIJbOg1sc1qBwMp
ZeX+MMkg+ZhUvWiqy0Afuy8cDXpB+pOZ0LwNMdCn58FhqmQ/7HBuElHdw0CS
vJ9sYsl+memnGcjvY6DHxltPfwsm6+0MyOU1ZKArnl3HDlwl8Ona86FNpgzk
8cWwSvUYgeUPp36rPEKuP1ivf+MggVsr2me/mpH5vNgeGoJIv/84cuaVBQNd
2xRU27Lx/98TbtvlbcdAdvqdlVYrLMy19ZK76ykGEvb8pRg9wcLfcl69On2a
gcTlN63cG2DhnW9WM4zPkvmetszLqWJh9QTOf6tcGUjg4YD4QCwLD8vorRO9
RK4PvPpYOJSF0x57WnNdYSBbub+3pm+wsHzkUCnTk4EWZWNXVuxZWCzg9/PP
vgykJflYimsNC886PzGzD2OgPvlwpal4Jn5wPZnHL5yBDH8cf3ovhInXhbwu
io9kIGvL62cbPJn4+MsipZYYBtqyv/njAxMmzhlomTieQPrDuYNyd34Uuziu
ijLKIvnhFHSv3DeKOd3XGDrnMFBpyGZKjeoojrutuhj8joGmhStPPhAfxWVJ
uo4/Ckg/rXE4sqVnBK/rstbe/ZWBHOwN9m+5MYI7beLrttYwUMuWlehdKcPY
60Jq8PE6BpJRH6pmBg1joRsZuu71DDTxZu/8ifPDWO/pp5TsZgbynhze7qw5
jOOa29xVe8h6P6rduFw4hI9ZyEooTpL55RW+c/wyiEsPJxyn0iXRmUvpk1zP
+rHz977PPJKSKKBnQM3Cpx9TdVTXc0hLopeJzwc9T/bjo3If5qdXSyLFLi2q
Er0ftzBrEjrXSqImH43jW+/1YVYI93DuFkn03qf4UKhLL5YoueB78rgkknew
o68T6sYO23XT0qIk0UL/f2oBuAn/x6ycao2RRMPiFussbZuw23O7fbRYSfRh
/djdvsVG7Md3u8snXhIhQRGstb0RP20qkzn6QhJdrcg9WJRZj+uvWYQv5ksi
moG3p2NYLT5YePnakRZJtO9QVJuFaTk+cpFSGtgmiW6ma/p88ivDloox9I8d
kmhxsmtD29tSfDbkQ+66XkkU2ffviZnwT3znJBtrYVQS5XIecLT6VYw/z993
eLEsiU5Ev/oUe6UQl2TKZbewSSEeneRdXyoLcIVD9ooIpxS69rQnL0k5H7eU
1z315pFCkUObUjOac/FsnEzDYREptHqnWvA7n1d4xSRjbSBNCn38PXT3s1oa
5uYE9yJxKRTltzwT3J6Mxc87iK6TkkK7r3DWcPvFYRm5STsrGSmU+f68yr2O
h1ixNiAzfLUU2lt0gS3HLwSrBDGWSuSk0LM64Xm+m9ex5s6XRgsKUohRVvvu
b3Xs5/8BwKuL3Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->
   NCache[{{0, 2 Pi}, {-0.9999998592131705, 0.9999998782112116}}, {{
     0, 6.283185307179586}, {-0.9999998592131705, 0.9999998782112116}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.505726814792324*^9}]
}, Open  ]],

Cell["\<\
Dibujando datos
--------------------\
\>", "Text",
 CellChangeTimes->{{3.505726827342042*^9, 3.5057268325263386`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"x", "^", "2"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0.0", ",", "2.0", ",", "0.1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5057268438939886`*^9, 3.505726878112946*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.`", ",", "0.009999833334166666`", ",", "0.03998933418663417`", ",", 
   "0.08987854919801107`", ",", "0.159318206614246`", ",", 
   "0.24740395925452294`", ",", "0.35227423327509005`", ",", 
   "0.47062588817115814`", ",", "0.5971954413623921`", ",", 
   "0.7242871743701426`", ",", "0.8414709848078965`", ",", 
   "0.935616001553386`", ",", "0.9914583481916865`", ",", 
   "0.9929036510941185`", ",", "0.925211520788168`", ",", 
   "0.7780731968879212`", ",", "0.5493554364271263`", ",", 
   "0.24894678667315215`", ",", 
   RowBox[{"-", "0.09824859374510868`"}], ",", 
   RowBox[{"-", "0.45146575216142354`"}], ",", 
   RowBox[{"-", "0.7568024953079282`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5057268799890537`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t", "=", "%"}]], "Input",
 CellChangeTimes->{{3.5057268936208334`*^9, 3.5057268976480637`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.`", ",", "0.009999833334166666`", ",", "0.03998933418663417`", ",", 
   "0.08987854919801107`", ",", "0.159318206614246`", ",", 
   "0.24740395925452294`", ",", "0.35227423327509005`", ",", 
   "0.47062588817115814`", ",", "0.5971954413623921`", ",", 
   "0.7242871743701426`", ",", "0.8414709848078965`", ",", 
   "0.935616001553386`", ",", "0.9914583481916865`", ",", 
   "0.9929036510941185`", ",", "0.925211520788168`", ",", 
   "0.7780731968879212`", ",", "0.5493554364271263`", ",", 
   "0.24894678667315215`", ",", 
   RowBox[{"-", "0.09824859374510868`"}], ",", 
   RowBox[{"-", "0.45146575216142354`"}], ",", 
   RowBox[{"-", "0.7568024953079282`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5057268990281425`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.5057269051114902`*^9, 3.5057269102877865`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEf7BlQgQPHC9GXp6paoOIcDn+KuFKrK5dA+QIO
229mXXVn2g7lizgYpHT87kw5AuVLOJSLfr7ybtV5KF/GofvrCcuV3degfAUH
JbVp3Hvk7kH5Sg4rJOznWso8hvJVHK7Pv+Udo/scyldzeMfD2R/y9hWUr+HQ
q875Y8KHt1C+lgNf96zbbLveQ/k6Dl7PNzy4exTG13Ngj/1qEDobpt7AYeXj
C4d+Pn0B5Rs6bNmkdStwykMo38hB2HcWY+1dmPuNHbSTmR9eVNu5H8I3cbjP
bjznwpM7UL6pwzq5O3d3mr/YDwDC+1/8
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.505726910964825*^9}]
}, Open  ]],

Cell[TextData[{
 "TUTORIAL DE LA AYUDA FUNCIONES ALEATORIAS\nVer tutorial acerca de la \
funciones aleatorias para luego calcular algun estadistico sin mas.\nFuncion \
Random:Pseudorandom Numbers\nRandom[Integer] da 0 o 1 con una probabilidad de \
1/2\nRandom[Complex] da pseudorandom numero complejo en un rectangulo con \
esquinas 0 y 1+i\nRandom[Complex, {zmin, zmax}]\nRandom[Real, range, n] \
genera un numero aleatorio con n de precisi\[OAcute]n\n\n\n",
 Cell[BoxData[GridBox[{
    {
     RowBox[{
      ButtonBox["RandomInteger",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomInteger"], "[", "]"}], Cell[TextData[{
      "0 or 1 with probability ",
      Cell[BoxData[
       FormBox[
        FractionBox["1", "2"], TraditionalForm]], "InlineMath"]
     }], "TableText"]},
    {
     RowBox[{
      ButtonBox["RandomInteger",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomInteger"], "[", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["i", "TI"], 
         StyleBox["min", "TI"]], ",", 
        SubscriptBox[
         StyleBox["i", "TI"], 
         StyleBox["max", "TI"]]}], "}"}], "]"}], Cell[TextData[{
      "an integer between ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["i", "TI"], 
        StyleBox["min", "TI"]]], "InlineFormula"],
      " and ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["i", "TI"], 
        StyleBox["max", "TI"]]], "InlineFormula"],
      ", inclusive"
     }], "TableText"]},
    {
     RowBox[{
      ButtonBox["RandomInteger",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomInteger"], "[", 
      SubscriptBox[
       StyleBox["i", "TI"], 
       StyleBox["max", "TI"]], "]"}], Cell[TextData[{
      "an integer between 0 and ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["i", "TI"], 
        StyleBox["max", "TI"]]], "InlineFormula"],
      ", inclusive"
     }], "TableText"]},
    {
     RowBox[{
      ButtonBox["RandomReal",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomReal"], "[", " ", "]"}], Cell[
     "a real number between 0 and 1", "TableText"]},
    {
     RowBox[{
      ButtonBox["RandomReal",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomReal"], "[", 
      RowBox[{"{", 
       RowBox[{
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], 
          StyleBox["min", "TI"]],
         TraditionalForm], ",", " ", 
        FormBox[
         SubscriptBox[
          StyleBox["x", "TI"], 
          StyleBox["max", "TI"]],
         TraditionalForm]}], "}"}], "]"}], Cell[TextData[{
      "a real number between ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["x", "TI"], 
        StyleBox["min", "TI"]]], "InlineFormula"],
      " and ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["x", "TI"], 
        StyleBox["max", "TI"]]], "InlineFormula"]
     }], "TableText"]},
    {
     RowBox[{
      ButtonBox["RandomReal",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomReal"], "[", 
      FormBox[
       SubscriptBox[
        StyleBox["x", "TI"], 
        StyleBox["max", "TI"]],
       TraditionalForm], "]"}], Cell[TextData[{
      "a real number between 0 and ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["x", "TI"], 
        StyleBox["max", "TI"]]], "InlineFormula"]
     }], "TableText"]},
    {
     RowBox[{
      ButtonBox["RandomComplex",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomComplex"], "[", "]"}], Cell[
     "a complex number in the unit square", "TableText"]},
    {
     RowBox[{
      ButtonBox["RandomComplex",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomComplex"], "[", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["z", "TI"], 
         StyleBox["min", "TI"]], ",", 
        SubscriptBox[
         StyleBox["z", "TI"], 
         StyleBox["max", "TI"]]}], "}"}], "]"}], Cell[TextData[{
      "a complex number in the rectangle defined by ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["z", "TI"], 
        StyleBox["min", "TI"]]], "InlineFormula"],
      " and ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["z", "TI"], 
        StyleBox["max", "TI"]]], "InlineFormula"]
     }], "TableText"]},
    {
     RowBox[{
      ButtonBox["RandomComplex",
       BaseStyle->"Link",
       ButtonData->"paclet:ref/RandomComplex"], "[", 
      FormBox[
       SubscriptBox[
        StyleBox["z", "TI"], 
        StyleBox["max", "TI"]],
       TraditionalForm], "]"}], Cell[TextData[{
      "a complex number in the rectangle defined by 0 and ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["z", "TI"], 
        StyleBox["max", "TI"]]], "InlineFormula"]
     }], "TableText"]}
   }]]],
 "\n\n",
 Cell[BoxData[GridBox[{
    {
     RowBox[{
      RowBox[{
       ButtonBox["RandomReal",
        BaseStyle->"Link",
        ButtonData->"paclet:ref/RandomReal"], "[", 
       RowBox[{
        StyleBox["range", "TI"], ",", 
        StyleBox["n", "TI"]}], "]"}], Cell[", ", "TableText"], 
      RowBox[{
       ButtonBox["RandomComplex",
        BaseStyle->"Link",
        ButtonData->"paclet:ref/RandomComplex"], "[", 
       RowBox[{
        StyleBox["range", "TI"], ",", 
        StyleBox["n", "TI"]}], "]"}], Cell[", ", "TableText"], 
      RowBox[{
       ButtonBox["RandomInteger",
        BaseStyle->"Link",
        ButtonData->"paclet:ref/RandomInteger"], "[", 
       RowBox[{
        StyleBox["range", "TI"], ",", 
        StyleBox["n", "TI"]}], "]"}]}], "\[SpanFromLeft]"},
    {"", Cell[TextData[{
      "a list of ",
      Cell[BoxData[
       StyleBox["n", "TI"]], "InlineFormula"],
      " pseudorandom numbers from the given range"
     }], "TableText"]},
    {
     RowBox[{
      RowBox[{
       ButtonBox["RandomReal",
        BaseStyle->"Link",
        ButtonData->"paclet:ref/RandomReal"], "[", 
       RowBox[{
        StyleBox["range", "TI"], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["1", "TR"]], ",", 
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["2", "TR"]], ",", 
          StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "]"}], Cell[
      ", ", "TableText"], 
      RowBox[{
       ButtonBox["RandomComplex",
        BaseStyle->"Link",
        ButtonData->"paclet:ref/RandomComplex"], "[", 
       RowBox[{
        StyleBox["range", "TI"], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["1", "TR"]], ",", 
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["2", "TR"]], ",", 
          StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "]"}], Cell[
      ", ", "TableText"], 
      RowBox[{
       ButtonBox["RandomInteger",
        BaseStyle->"Link",
        ButtonData->"paclet:ref/RandomInteger"], "[", 
       RowBox[{
        StyleBox["range", "TI"], ",", 
        RowBox[{"{", 
         RowBox[{
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["1", "TR"]], ",", 
          SubscriptBox[
           StyleBox["n", "TI"], 
           StyleBox["2", "TR"]], ",", 
          StyleBox["\[Ellipsis]", "TR"]}], "}"}]}], "]"}]}], 
     "\[SpanFromLeft]"},
    {"", Cell[TextData[{
      "an ",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["1", "TR"]]], "InlineFormula"],
      "\[Times]",
      Cell[BoxData[
       SubscriptBox[
        StyleBox["n", "TI"], 
        StyleBox["2", "TR"]]], "InlineFormula"],
      "\[Times]",
      Cell[BoxData[
       StyleBox["\[Ellipsis]", "TR"]], "InlineFormula"],
      " array of pseudorandom numbers\n"
     }], "TableText"]}
   }]]]
}], "Text",
 CellChangeTimes->{{3.5050328230878115`*^9, 3.505032829567182*^9}, {
  3.505032910719824*^9, 3.5050330679988194`*^9}, {3.5050331249130745`*^9, 
  3.5050333321059256`*^9}, {3.505033414848658*^9, 3.505033434270769*^9}, {
  3.5057257450121365`*^9, 3.505725758061883*^9}, {3.5369909896521945`*^9, 
  3.5369909896521945`*^9}}],

Cell["\<\
Los valores de descriptivos estan ya introducidos en el kernel.\
\>", "Text",
 CellChangeTimes->{{3.5050312570232377`*^9, 3.5050312720950994`*^9}}],

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"i", "^", "2"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "5"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5050313028498588`*^9, 3.5050313098422585`*^9}}],

Cell[BoxData[
 RowBox[{"Mean", "[", "data", "]"}]], "Input",
 CellChangeTimes->{{3.505031314257511*^9, 3.505031321824944*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "Para", " ", "ver", " ", "como", " ", "se", " ", "aplica", " ", "a", " ", 
   "los", " ", "problemas"}], ",", " ", 
  RowBox[{
  "veamos", " ", "un", " ", "par", " ", "de", " ", "ejemplos", " ", "del", 
   " ", "tema", " ", "I"}]}]], "Input",
 CellChangeTimes->{{3.5369911147928195`*^9, 3.5369911613396945`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         StyleBox["ej",
          FontColor->RGBColor[0, 1, 0]], 
         StyleBox[".1",
          FontColor->RGBColor[0, 1, 0]], 
         StyleBox[".6",
          FontColor->RGBColor[0, 1, 0]], 
         RowBox[{
          StyleBox[".1",
           FontColor->RGBColor[0, 1, 0]], 
          StyleBox[".",
           FontColor->RGBColor[0, 1, 0]], "Seg\[UAcute]n"}], " ", "sea", " ", 
         "la", " ", "concentraci\[OAcute]n", " ", "de", " ", "contaminantes", 
         " ", "en", " ", "el", " ", "aire"}], ",", 
        RowBox[{
        "se", " ", "expresan", " ", "mediante", " ", "los", " ", 
         "\[IAcute]ndices", " ", "1"}], ",", "2", ",", "3", ",", 
        RowBox[{"4", " ", "y", " ", "5"}], ",", 
        RowBox[{"defini\[EAcute]ndolos", " ", "de", " ", "la", " ", 
         RowBox[{"forma", ":", 
          RowBox[{
          "\[CapitalIAcute]ndice", " ", "Calidad", " ", "del", " ", 
           "aire"}]}]}]}], "\n", 
       RowBox[{"1", " ", "Muy", " ", "buena"}], "\n", 
       RowBox[{"2", " ", "Buena"}], "\n", 
       RowBox[{"3", " ", "Suficiente"}], "\n", 
       RowBox[{"4", " ", "Mala"}], "\n", 
       RowBox[{"5", " ", "Muy", " ", "mala"}], "\[IndentingNewLine]", "\n", 
       RowBox[{
       "Los", " ", "siguientes", " ", "valores", " ", "nos", " ", "indican", 
        " ", "la", " ", "calidad", " ", "del", " ", "aire", " ", "de", " ", 
        "dieciocho", " ", 
        RowBox[{
        "d\[IAcute]as", ":", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
           "1", ",", " ", "2", ",", " ", "2", ",", " ", "3", ",", " ", "3", 
            ",", " ", "2", ",", " ", "3", ",", " ", "3", ",", " ", "4", ",", 
            "3", ",", " ", "1", ",", " ", "3", ",", " ", "1", ",", " ", "5", 
            ",", " ", "4", ",", " ", "3", ",", " ", "2", ",", " ", 
            RowBox[{"3", "\n", "\n", "a"}]}], ")"}], " ", 
          "\[DownQuestion]C\[OAcute]mo", " ", "es", " ", "la", " ", 
          RowBox[{"variable", "?", "b"}]}]}]}]}], ")"}], " ", "Representar", 
     " ", "mediante", " ", "una", " ", "barra", " ", "gr\[AAcute]fica", " ", 
     "y", " ", "un", " ", "diagrama", " ", "de", " ", "sectores"}], 
    "\[IndentingNewLine]", "\n", "c"}], ")"}], " ", "Calcular", " ", "la", 
  " ", "media", " ", "y", " ", "la", " ", 
  RowBox[{"mediana", ".", "Interpretar"}], " ", "el", " ", 
  RowBox[{"resultado", "."}]}]], "Input",
 CellChangeTimes->{
  3.5369940371990695`*^9, {3.5369940705115695`*^9, 3.5369940764959445`*^9}, {
   3.5369941204178195`*^9, 3.5369941324959445`*^9}, {3.5369942741990695`*^9, 
   3.5369944085896945`*^9}}],

Cell[BoxData[
 RowBox[{"aire", "=", " ", 
  RowBox[{"{", 
   RowBox[{
   "1", ",", "2", ",", "2", ",", "3", ",", "3", ",", "2", ",", "3", ",", "3", 
    ",", "4", ",", "3", ",", "1", ",", "3", ",", "1", ",", "5", ",", "4", ",",
     "3", ",", "2", ",", "3"}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"La", " ", "media", " ", "se", " ", "obtiene"}]], "Input",
 CellChangeTimes->{{3.528625367796875*^9, 3.52862537403125*^9}}],

Cell[BoxData[
 RowBox[{"Mean", "[", "aire", "]"}]], "Input",
 CellChangeTimes->{{3.531544071796875*^9, 3.531544080328125*^9}}],

Cell[BoxData[
 RowBox[{"Median", "[", "aire", "]"}]], "Input",
 CellChangeTimes->{{3.531544125109375*^9, 3.531544131484375*^9}}],

Cell[BoxData[
 RowBox[{"y", " ", "su", " ", "aproximaci\[OAcute]n", " ", 
  "decimal"}]], "Input",
 CellChangeTimes->{{3.528625382953125*^9, 3.52862539259375*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.537172508953125*^9, 3.537172515609375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    StyleBox["Ej",
                    FontColor->RGBColor[0, 1, 0]], 
                    StyleBox[".1",
                    FontColor->RGBColor[0, 1, 0]], 
                    StyleBox[".6",
                    FontColor->RGBColor[0, 1, 0]], 
                    RowBox[{
                    StyleBox[".5",
                    FontColor->RGBColor[0, 1, 0]], 
                    StyleBox[".",
                    FontColor->RGBColor[0, 1, 0]], 
                    StyleBox["\[IndentingNewLine]",
                    FontColor->RGBColor[0, 1, 0]], 
                    StyleBox["\[IndentingNewLine]",
                    FontColor->RGBColor[0, 1, 0]], "Sean"}], " ", "los", " ", 
                    "consumos", " ", "diarios", " ", "de", " ", "un", " ", 
                    "conjunto", " ", "de", " ", 
                    RowBox[{"m\[AAcute]quinas", ":", "Consumo"}]}], "\n", 
                    RowBox[{
                    RowBox[{"(", "litros", ")"}], " ", "N\.ba", " ", "de", 
                    " ", "m\[AAcute]quinas"}], "\n", 
                    RowBox[{"[", 
                    RowBox[{"10", ",", "20"}]}]}], ")"}], " ", "8"}], "\n", 
                    RowBox[{"[", 
                    RowBox[{"20", ",", "30"}]}]}], ")"}], " ", "12"}], "\n", 
                  RowBox[{"[", 
                   RowBox[{"30", ",", "40"}]}]}], ")"}], " ", "10"}], "\n", 
               RowBox[{"[", 
                RowBox[{"40", ",", "50"}]}]}], ")"}], " ", "22"}], "\n", 
            RowBox[{"[", 
             RowBox[{"50", ",", "60"}]}]}], ")"}], " ", "13"}], "\n", 
         "\[IndentingNewLine]", "a"}], ")"}], " ", "Construir", " ", "el", 
       " ", "diagrama", " ", "y", " ", "el", " ", "pol\[IAcute]gono", " ", 
       "de", " ", "frecuencias", " ", 
       RowBox[{"acumuladas", ".", "b"}]}], ")"}], " ", "Calcular", " ", "el", 
     " ", "rango"}], ",", 
    RowBox[{"rango", " ", "intercuart\[IAcute]lico"}], ",", 
    RowBox[{
    "desviaci\[OAcute]n", " ", "t\[IAcute]pica", " ", "y", " ", "coeficiente",
      " ", "de", " ", 
     RowBox[{"variaci\[OAcute]n", ".", "c"}]}]}], ")"}], " ", "Entre", " ", 
  "que", " ", "\[IAcute]ndices", " ", "intercuart\[IAcute]licos", " ", 
  "est\[AAcute]", " ", "los", " ", "42.5", " ", "litros", " ", "de", " ", 
  RowBox[{"consumo", "."}]}]], "Input",
 CellChangeTimes->{{3.5315506555*^9, 3.531550664625*^9}, {
  3.5369945011990695`*^9, 3.5369945036990695`*^9}}],

Cell[BoxData[
 RowBox[{"Para", " ", "calcular", " ", "el", " ", "rango", " ", 
  RowBox[{"intercuartilico", ":", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.53154996490625*^9, 3.531549989640625*^9}, {
  3.531550205265625*^9, 3.531550455234375*^9}}],

Cell[BoxData[
 RowBox[{"consumo", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"15", ",", "8"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"25", ",", "12"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"35", ",", "10"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"45", ",", "22"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"55", ",", "13"}], "}"}]}], "}"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"DesviacionTipica", "=", " ", 
  RowBox[{"StandardDeviation", "[", "consumo", "]"}]}]], "Input",
 CellChangeTimes->{{3.531550684265625*^9, 3.5315506985*^9}, {
  3.53155073253125*^9, 3.53155075475*^9}}],

Cell[BoxData[
 RowBox[{"Mean", "[", "consumo", "]"}]], "Input",
 CellChangeTimes->{{3.531551386625*^9, 3.531551406890625*^9}}],

Cell[BoxData[
 RowBox[{"CoefficientOfVariation", "[", "consumo", "]"}]], "Input",
 CellChangeTimes->{{3.5315508973125*^9, 3.531550927890625*^9}}],

Cell[BoxData[
 RowBox[{"Regress", "[", 
  RowBox[{"consumo", ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"x", "^", "2"}]}], "}"}], ",", "x", ",", 
   RowBox[{"RegressionReport", "\[Rule]", 
    RowBox[{"{", "CoefficientOfVariation", "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.531551094515625*^9, 3.531551097421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"La", " ", "cosa", " ", "resulta", " ", "mas", " ", "complicada"}], 
  ",", " ", 
  RowBox[{
  "pues", " ", "no", " ", "tiene", " ", "en", " ", "cuenta", " ", "la", " ", 
   RowBox[{"frecuencia", ".", " ", "Hay"}], " ", "que", " ", "hacer", " ", 
   "la", " ", "pr\[AAcute]ctica", " ", "2."}]}]], "Input",
 CellChangeTimes->{{3.537075260796875*^9, 3.5370753160625*^9}}],

Cell[BoxData[
 RowBox[{"RESUMEN", " ", "DE", " ", "LA", " ", "PR\[CapitalAAcute]CTICA", " ",
   "2"}]], "Input",
 CellChangeTimes->{{3.537167927625*^9, 3.5371679459375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"[", 
                RowBox[{"10", ",", "20"}]}], ")"}], " ", "8"}], "\n", 
             RowBox[{"[", 
              RowBox[{"20", ",", "30"}]}]}], ")"}], " ", "12"}], "\n", 
          RowBox[{"[", 
           RowBox[{"30", ",", "40"}]}]}], ")"}], " ", "10"}], "\n", 
       RowBox[{"[", 
        RowBox[{"40", ",", "50"}]}]}], ")"}], " ", "22"}], "\n", 
    RowBox[{"[", 
     RowBox[{"50", ",", "60"}]}]}], ")"}], " ", "13"}]], "Input"],

Cell[BoxData[
 RowBox[{"clases", "=", 
  RowBox[{"{", 
   RowBox[{"10", ",", "20", ",", "30", ",", "40", ",", "50", ",", "60"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.53716811559375*^9, 3.537168125578125*^9}, {
  3.537168193921875*^9, 3.537168204515625*^9}, {3.537171860453125*^9, 
  3.53717186134375*^9}, {3.537171954484375*^9, 3.537171956109375*^9}}],

Cell[BoxData[
 RowBox[{"frecuencias", "=", 
  RowBox[{"{", 
   RowBox[{"8", ",", "12", ",", "10", ",", "22", ",", "13"}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.53716798565625*^9, 3.537168016*^9}}],

Cell[BoxData[
 RowBox[{"marcas", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"clases", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "+", 
        RowBox[{"clases", "[", 
         RowBox[{"[", 
          RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], ")"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{
       RowBox[{"Length", "[", "clases", "]"}], "-", "1"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.537168236625*^9, 3.537168295609375*^9}, {
  3.537168330921875*^9, 3.5371684383125*^9}, {3.53716883121875*^9, 
  3.53716885846875*^9}, {3.537171976640625*^9, 3.537171977734375*^9}}],

Cell[BoxData[
 RowBox[{"muestra", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"frecuencias", "[", 
     RowBox[{"[", "i", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "frecuencias", "]"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{3.53717169978125*^9}],

Cell[BoxData[
 RowBox[{"suma", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"clases", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "+", 
        RowBox[{"clases", "[", 
         RowBox[{"[", 
          RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], "*", 
     RowBox[{"frecuencias", "[", 
      RowBox[{"[", "i", "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "frecuencias", "]"}]}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.537171453640625*^9, 3.537171486359375*^9}, 
   3.53717179590625*^9, {3.5371720176875*^9, 3.537172018765625*^9}}],

Cell[BoxData[
 RowBox[{"media", "=", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"clases", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "+", 
         RowBox[{"clases", "[", 
          RowBox[{"[", 
           RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], "*", 
      RowBox[{"frecuencias", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "frecuencias", "]"}]}], "}"}]}], "]"}], "/", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{"frecuencias", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"Length", "[", "frecuencias", "]"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.53717208125*^9, 3.537172146765625*^9}, {
  3.53717217959375*^9, 3.537172185515625*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.537172213734375*^9, 3.5371722185625*^9}}],

Cell[BoxData[
 RowBox[{"varianza", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"clases", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "+", 
             RowBox[{"clases", "[", 
              RowBox[{"[", 
               RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ")"}], "/", "2"}], 
          ")"}], "^", "2"}], "*", 
        RowBox[{"frecuencias", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "frecuencias", "]"}]}], "}"}]}], "]"}], "/", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"frecuencias", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "frecuencias", "]"}]}], "}"}]}], "]"}]}], "-", 
    RowBox[{"media", "^", "2"}]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.53717229809375*^9, 3.53717230603125*^9}, {
  3.5371723445625*^9, 3.537172385328125*^9}, {3.53717243378125*^9, 
  3.5371724488125*^9}}],

Cell[BoxData[
 RowBox[{"s", "=", 
  RowBox[{"Sqrt", "[", "%", "]"}]}]], "Input",
 CellChangeTimes->{{3.53724575475*^9, 3.537245787359375*^9}, 
   3.53759076028125*^9}],

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

Cell[BoxData[{
 RowBox[{
  RowBox[{"Practica", " ", "a", " ", 
   RowBox[{"realizar", ":", " ", 
    RowBox[{
     RowBox[{"Ej", ".", " ", "1.6"}], ".10"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Un", " ", "medidor", " ", "ha", " ", "medido", " ", "los", " ", 
  "siguientes", " ", "porcentajes", " ", "relativos", " ", "de", " ", 
  RowBox[{"humedad", ":", 
   RowBox[{
   "29", " ", "12", " ", "34", " ", "17", " ", "26", " ", "28", " ", "23", 
    " ", "28", " ", "29", " ", "34"}]}]}], "\n", 
 RowBox[{
  RowBox[{
  "17", " ", "23", " ", "12", " ", "26", " ", "34", " ", "29", " ", "12", " ",
    "34", " ", "28", " ", "17"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"Calcular", ":", " ", "media"}], "=", 
    RowBox[{"Mean", "[", "datos", "]"}]}], ",", 
   RowBox[{"mediana", "=", 
    RowBox[{"Median", "[", "datos", "]"}]}], ",", 
   RowBox[{"moda", "=", 
    RowBox[{"Commonest", "[", "datos", "]"}]}], ",", 
   RowBox[{"varianza", "=", 
    RowBox[{"Variance", "[", "datos", "]"}]}], ",", " ", 
   RowBox[{
    RowBox[{"desviaci\[OAcute]n", " ", "t\[IAcute]pica"}], "=", 
    RowBox[{"StandardDeviation", "[", "datos", "]"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.5376806645717072`*^9, 3.537680705181082*^9}, {
  3.5376807880092072`*^9, 3.5376808391029572`*^9}, {3.5376809112279572`*^9, 
  3.5376809360404572`*^9}, {3.537681003181082*^9, 3.5376811348217072`*^9}}]
},
WindowSize->{1016, 647},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "Info3506402578-5241895"->{
  Cell[7777, 239, 117, 2, 42, "Print",
   CellTags->"Info3506402578-5241895"],
  Cell[7897, 243, 741, 21, 23, "Print",
   CellTags->"Info3506402578-5241895"]},
 "Info3506402660-7579977"->{
  Cell[9524, 293, 1362, 24, 62, "Print",
   CellTags->"Info3506402660-7579977"]},
 "Info3506402713-8352001"->{
  Cell[11110, 329, 1362, 24, 62, "Print",
   CellTags->"Info3506402713-8352001"],
  Cell[12475, 355, 494, 15, 23, "Print",
   CellTags->"Info3506402713-8352001"]},
 "Info3506402737-4455720"->{
  Cell[13304, 385, 116, 2, 42, "Print",
   CellTags->"Info3506402737-4455720"]},
 "Info3506402890-6013277"->{
  Cell[13696, 403, 117, 2, 42, "Print",
   CellTags->"Info3506402890-6013277"],
  Cell[13816, 407, 809, 23, 23, "Print",
   CellTags->"Info3506402890-6013277"]},
 "Info3506403014-3164537"->{
  Cell[15655, 469, 768, 15, 62, "Print",
   CellTags->"Info3506403014-3164537"]},
 "Info3506403039-6284590"->{
  Cell[16602, 495, 768, 15, 62, "Print",
   CellTags->"Info3506403039-6284590"],
  Cell[17373, 512, 1077, 31, 53, "Print",
   CellTags->"Info3506403039-6284590"]},
 "Info3506403192-5549391"->{
  Cell[18633, 555, 118, 2, 42, "Print",
   CellTags->"Info3506403192-5549391"],
  Cell[18754, 559, 810, 23, 23, "Print",
   CellTags->"Info3506403192-5549391"]},
 "Info3506403404-7537773"->{
  Cell[21366, 651, 117, 2, 42, "Print",
   CellTags->"Info3506403404-7537773"]},
 "Info3506403435-5320617"->{
  Cell[22058, 679, 117, 2, 42, "Print",
   CellTags->"Info3506403435-5320617"]},
 "Info3506406479-9483694"->{
  Cell[30729, 946, 980, 18, 62, "Print",
   CellTags->"Info3506406479-9483694"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"Info3506402578-5241895", 208746, 4344},
 {"Info3506402660-7579977", 208935, 4349},
 {"Info3506402713-8352001", 209046, 4352},
 {"Info3506402737-4455720", 209239, 4357},
 {"Info3506402890-6013277", 209349, 4360},
 {"Info3506403014-3164537", 209540, 4365},
 {"Info3506403039-6284590", 209651, 4368},
 {"Info3506403192-5549391", 209844, 4373},
 {"Info3506403404-7537773", 210035, 4378},
 {"Info3506403435-5320617", 210145, 4381},
 {"Info3506406479-9483694", 210255, 4384}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 5645, 159, 652, "Input"],
Cell[6205, 181, 855, 27, 52, "Input"],
Cell[CellGroupData[{
Cell[7085, 212, 117, 2, 31, "Input"],
Cell[7205, 216, 140, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7382, 223, 117, 2, 31, "Input"],
Cell[7502, 227, 104, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7643, 233, 109, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[7777, 239, 117, 2, 42, "Print",
 CellTags->"Info3506402578-5241895"],
Cell[7897, 243, 741, 21, 23, "Print",
 CellTags->"Info3506402578-5241895"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8687, 270, 114, 2, 31, "Input"],
Cell[8804, 274, 569, 10, 21, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9410, 289, 111, 2, 31, "Input"],
Cell[9524, 293, 1362, 24, 62, "Print",
 CellTags->"Info3506402660-7579977"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10923, 322, 162, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[11110, 329, 1362, 24, 62, "Print",
 CellTags->"Info3506402713-8352001"],
Cell[12475, 355, 494, 15, 23, "Print",
 CellTags->"Info3506402713-8352001"]
}, Open  ]]
}, Open  ]],
Cell[12996, 374, 171, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[13192, 381, 109, 2, 31, "Input"],
Cell[13304, 385, 116, 2, 42, "Print",
 CellTags->"Info3506402737-4455720"]
}, Open  ]],
Cell[13435, 390, 102, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[13562, 397, 109, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[13696, 403, 117, 2, 42, "Print",
 CellTags->"Info3506402890-6013277"],
Cell[13816, 407, 809, 23, 23, "Print",
 CellTags->"Info3506402890-6013277"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14674, 436, 120, 2, 31, "Input"],
Cell[14797, 440, 87, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14921, 446, 114, 2, 31, "Input"],
Cell[15038, 450, 113, 2, 30, "Output"]
}, Open  ]],
Cell[15166, 455, 345, 6, 47, "Text"],
Cell[CellGroupData[{
Cell[15536, 465, 116, 2, 31, "Input"],
Cell[15655, 469, 768, 15, 62, "Print",
 CellTags->"Info3506403014-3164537"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16460, 489, 117, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[16602, 495, 768, 15, 62, "Print",
 CellTags->"Info3506403039-6284590"],
Cell[17373, 512, 1077, 31, 53, "Print",
 CellTags->"Info3506403039-6284590"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18499, 549, 109, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[18633, 555, 118, 2, 42, "Print",
 CellTags->"Info3506403192-5549391"],
Cell[18754, 559, 810, 23, 23, "Print",
 CellTags->"Info3506403192-5549391"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19613, 588, 188, 3, 31, "Input"],
Cell[19804, 593, 197, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20038, 602, 139, 2, 31, "Input"],
Cell[20180, 606, 173, 3, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20390, 614, 134, 2, 31, "Input"],
Cell[20527, 618, 107, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20671, 625, 139, 2, 31, "Input"],
Cell[20813, 629, 144, 3, 30, "Output"]
}, Open  ]],
Cell[20972, 635, 258, 8, 101, "Text"],
Cell[CellGroupData[{
Cell[21255, 647, 108, 2, 31, "Input"],
Cell[21366, 651, 117, 2, 42, "Print",
 CellTags->"Info3506403404-7537773"]
}, Open  ]],
Cell[21498, 656, 126, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[21649, 662, 71, 1, 31, "Input"],
Cell[21723, 665, 72, 1, 30, "Output"]
}, Open  ]],
Cell[21810, 669, 110, 2, 31, "Input"],
Cell[CellGroupData[{
Cell[21945, 675, 110, 2, 31, "Input"],
Cell[22058, 679, 117, 2, 42, "Print",
 CellTags->"Info3506403435-5320617"]
}, Open  ]],
Cell[22190, 684, 151, 3, 31, "Input"],
Cell[22344, 689, 73, 1, 31, "Input"],
Cell[22420, 692, 164, 4, 31, "Input"],
Cell[22587, 698, 73, 1, 31, "Input"],
Cell[22663, 701, 142, 3, 31, "Input"],
Cell[22808, 706, 122, 2, 31, "Input"],
Cell[22933, 710, 146, 3, 31, "Input"],
Cell[23082, 715, 722, 12, 83, "Text"],
Cell[23807, 729, 210, 5, 47, "Text"],
Cell[24020, 736, 380, 10, 31, "Input"],
Cell[24403, 748, 114, 1, 29, "Text"],
Cell[24520, 751, 124, 2, 31, "Input"],
Cell[24647, 755, 145, 3, 31, "Input"],
Cell[24795, 760, 206, 5, 31, "Input"],
Cell[25004, 767, 126, 1, 29, "Text"],
Cell[25133, 770, 131, 2, 31, "Input"],
Cell[25267, 774, 174, 4, 31, "Input"],
Cell[25444, 780, 131, 2, 31, "Input"],
Cell[25578, 784, 179, 4, 31, "Input"],
Cell[25760, 790, 140, 2, 31, "Input"],
Cell[25903, 794, 73, 1, 31, "Input"],
Cell[25979, 797, 193, 4, 31, "Input"],
Cell[26175, 803, 459, 7, 52, "Input"],
Cell[26637, 812, 96, 1, 31, "Input"],
Cell[26736, 815, 150, 3, 31, "Input"],
Cell[26889, 820, 204, 4, 29, "Text"],
Cell[27096, 826, 182, 4, 31, "Input"],
Cell[27281, 832, 106, 1, 29, "Text"],
Cell[27390, 835, 73, 1, 31, "Input"],
Cell[27466, 838, 304, 7, 31, "Input"],
Cell[27773, 847, 176, 4, 31, "Input"],
Cell[27952, 853, 172, 4, 31, "Input"],
Cell[28127, 859, 115, 2, 31, "Input"],
Cell[28245, 863, 95, 1, 31, "Input"],
Cell[28343, 866, 195, 4, 31, "Input"],
Cell[28541, 872, 199, 5, 31, "Input"],
Cell[28743, 879, 224, 6, 31, "Input"],
Cell[28970, 887, 230, 6, 31, "Input"],
Cell[29203, 895, 271, 7, 31, "Input"],
Cell[29477, 904, 304, 8, 31, "Input"],
Cell[29784, 914, 384, 10, 31, "Input"],
Cell[30171, 926, 127, 2, 31, "Input"],
Cell[30301, 930, 73, 1, 31, "Input"],
Cell[30377, 933, 214, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[30616, 942, 110, 2, 31, "Input"],
Cell[30729, 946, 980, 18, 62, "Print",
 CellTags->"Info3506406479-9483694"]
}, Open  ]],
Cell[31724, 967, 328, 9, 31, "Input"],
Cell[32055, 978, 228, 4, 31, "Input"],
Cell[32286, 984, 229, 4, 31, "Input"],
Cell[32518, 990, 216, 6, 31, "Input"],
Cell[32737, 998, 204, 6, 31, "Input"],
Cell[32944, 1006, 117, 3, 31, "Input"],
Cell[33064, 1011, 136, 3, 31, "Input"],
Cell[33203, 1016, 73, 1, 31, "Input"],
Cell[33279, 1019, 167, 3, 31, "Input"],
Cell[33449, 1024, 457, 9, 101, "Text"],
Cell[CellGroupData[{
Cell[33931, 1037, 237, 6, 31, "Input"],
Cell[34171, 1045, 5731, 101, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39939, 1151, 259, 7, 31, "Input"],
Cell[40201, 1160, 10598, 182, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50836, 1347, 431, 13, 31, "Input"],
Cell[51270, 1362, 43034, 714, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94341, 2081, 117, 2, 31, "Input"],
Cell[94461, 2085, 43032, 714, 231, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137530, 2804, 125, 2, 31, "Input"],
Cell[137658, 2808, 43032, 714, 231, "Output"]
}, Open  ]],
Cell[180705, 3525, 128, 4, 47, "Text"],
Cell[CellGroupData[{
Cell[180858, 3533, 288, 8, 31, "Input"],
Cell[181149, 3543, 768, 15, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181954, 3563, 119, 2, 31, "Input"],
Cell[182076, 3567, 768, 15, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182881, 3587, 131, 2, 31, "Input"],
Cell[183015, 3591, 637, 15, 228, "Output"]
}, Open  ]],
Cell[183667, 3609, 8112, 258, 470, "Text"],
Cell[191782, 3869, 157, 3, 29, "Text"],
Cell[191942, 3874, 254, 7, 31, "Input"],
Cell[192199, 3883, 126, 2, 31, "Input"],
Cell[192328, 3887, 349, 8, 31, "Input"],
Cell[192680, 3897, 2758, 61, 317, "Input"],
Cell[195441, 3960, 278, 6, 31, "Input"],
Cell[195722, 3968, 146, 2, 31, "Input"],
Cell[195871, 3972, 126, 2, 31, "Input"],
Cell[196000, 3976, 128, 2, 31, "Input"],
Cell[196131, 3980, 163, 3, 31, "Input"],
Cell[196297, 3985, 120, 2, 31, "Input"],
Cell[196420, 3989, 2956, 70, 252, "Input"],
Cell[199379, 4061, 263, 4, 52, "Input"],
Cell[199645, 4067, 406, 13, 31, "Input"],
Cell[200054, 4082, 224, 4, 31, "Input"],
Cell[200281, 4088, 126, 2, 31, "Input"],
Cell[200410, 4092, 145, 2, 31, "Input"],
Cell[200558, 4096, 341, 8, 31, "Input"],
Cell[200902, 4106, 403, 8, 31, "Input"],
Cell[201308, 4116, 173, 3, 31, "Input"],
Cell[201484, 4121, 707, 24, 112, "Input"],
Cell[202194, 4147, 359, 7, 31, "Input"],
Cell[202556, 4156, 203, 5, 31, "Input"],
Cell[202762, 4163, 718, 21, 31, "Input"],
Cell[203483, 4186, 318, 10, 31, "Input"],
Cell[203804, 4198, 686, 20, 31, "Input"],
Cell[204493, 4220, 927, 28, 52, "Input"],
Cell[205423, 4250, 118, 2, 31, "Input"],
Cell[205544, 4254, 1183, 34, 72, "Input"],
Cell[206730, 4290, 167, 4, 31, "Input"],
Cell[206900, 4296, 89, 1, 52, "Input"],
Cell[206992, 4299, 1442, 33, 152, "Input"]
}
]
*)

(* End of internal cache information *)