quantum-analytic-descent_example.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    123794,       2571]
NotebookOptionsPosition[    122459,       2540]
NotebookOutlinePosition[    122831,       2556]
CellTagsIndexPosition[    122788,       2553]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Import", "[", "\"\<https://qtechtheory.org/QuESTlink.m\>\"", 
  "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"CreateDownloadedQuESTEnv", "[", "]"}], ";"}], 
  "\t"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Needs", "[", "\"\<CCompilerDriver`\>\"", "]"}], ";"}]}], "Input",
 CellLabel->"In[1]:=",ExpressionUUID->"01696a08-0039-45c8-9856-ab0e9deb1a94"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "functions", " ", "for", " ", "obtaining", " ", "the", " ", "fit", " ", 
    "parameters", " ", "of", " ", "analytic", " ", "descent"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"getEnergyAt1ShiftedParam", "[", 
      RowBox[{"shift_", ",", "ind_", ",", "prmsIN_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "prms", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"prms", "=", "prmsIN"}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"prms", "[", 
          RowBox[{"[", 
           RowBox[{"ind", ",", "2"}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"prms", "[", 
           RowBox[{"[", 
            RowBox[{"ind", ",", "2"}], "]"}], "]"}], "+", "shift"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ApplyCircuit", "[", 
         RowBox[{
          RowBox[{"circ", "/.", "prms"}], ",", 
          RowBox[{"InitZeroState", "@", "\[Psi]"}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "@", 
         RowBox[{"CalcExpecPauliSum", "[", 
          RowBox[{"\[Psi]", ",", "hamil", ",", "\[Phi]"}], "]"}]}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"getEnergyAt2ShiftedParams", "[", 
     RowBox[{
     "shift1_", ",", "shift2_", ",", "ind1_", ",", "ind2_", ",", "prmsIN_"}], 
     "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", "prms", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"prms", "=", "prmsIN"}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"prms", "[", 
         RowBox[{"[", 
          RowBox[{"ind1", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"prms", "[", 
          RowBox[{"[", 
           RowBox[{"ind1", ",", "2"}], "]"}], "]"}], "+", "shift1"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"prms", "[", 
         RowBox[{"[", 
          RowBox[{"ind2", ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"prms", "[", 
          RowBox[{"[", 
           RowBox[{"ind2", ",", "2"}], "]"}], "]"}], "+", "shift2"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"ApplyCircuit", "[", 
        RowBox[{
         RowBox[{"circ", "/.", "prms"}], ",", 
         RowBox[{"InitZeroState", "@", "\[Psi]"}]}], "]"}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Return", "@", 
        RowBox[{"CalcExpecPauliSum", "[", 
         RowBox[{"\[Psi]", ",", "hamil", ",", "\[Phi]"}], "]"}]}]}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"getFitParamters", "[", 
     RowBox[{"params_", ",", "nPrms_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{"{", 
         RowBox[{"getEnergyAt1ShiftedParam", "[", 
          RowBox[{"0", ",", "1", ",", "params"}], "]"}], "}"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"b", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"getEnergyAt1ShiftedParam", "[", 
             RowBox[{
              RowBox[{"\[Pi]", "/", "2"}], ",", "n", ",", "params"}], "]"}], 
            "\[IndentingNewLine]", "-", 
            RowBox[{"getEnergyAt1ShiftedParam", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "n", ",", "params"}], 
             "]"}]}], ")"}], "\[IndentingNewLine]", ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "1", ",", "nPrms"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"c", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"getEnergyAt1ShiftedParam", "[", 
           RowBox[{"\[Pi]", ",", "n", ",", "params"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "1", ",", "nPrms"}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"d", "=", 
        RowBox[{"Flatten", "@", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"k", "<", "l"}], ",", "\[IndentingNewLine]", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"getEnergyAt2ShiftedParams", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", 
                 RowBox[{
                  RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "k", ",", "l", ",",
                  "params"}], "]"}], "\[IndentingNewLine]", "-", 
               RowBox[{"getEnergyAt2ShiftedParams", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", 
                 RowBox[{"\[Pi]", "/", "2"}], ",", "k", ",", "l", ",", 
                 "params"}], "]"}], "\[IndentingNewLine]", "-", 
               RowBox[{"getEnergyAt2ShiftedParams", "[", 
                RowBox[{
                 RowBox[{"\[Pi]", "/", "2"}], ",", 
                 RowBox[{
                  RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "k", ",", "l", ",",
                  "params"}], "]"}], "\[IndentingNewLine]", "+", 
               RowBox[{"getEnergyAt2ShiftedParams", "[", 
                RowBox[{
                 RowBox[{"\[Pi]", "/", "2"}], ",", 
                 RowBox[{"\[Pi]", "/", "2"}], ",", "k", ",", "l", ",", 
                 "params"}], "]"}]}], "\[IndentingNewLine]", ")"}], ",", 
             "0"}], "]"}], "\[IndentingNewLine]", ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "1", ",", "nPrms"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "1", ",", "nPrms"}], "}"}]}], "]"}]}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Return", "@", 
        RowBox[{"Join", "[", 
         RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}]}], ";"}]}], 
     "\[IndentingNewLine]", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8092611524732995`*^9, 3.8092612063577447`*^9}, {
   3.80926128557143*^9, 3.809261588339277*^9}, {3.80926168231205*^9, 
   3.809261797330886*^9}, {3.8092618278441133`*^9, 3.8092618938796425`*^9}, {
   3.809261932499592*^9, 3.8092619326432104`*^9}, {3.8092619668545403`*^9, 
   3.8092620512688026`*^9}, {3.8092620842367945`*^9, 3.809262135771818*^9}, {
   3.8092621714582825`*^9, 3.809262178279789*^9}, {3.809262215368579*^9, 
   3.8092622631889725`*^9}, 3.8092623153971148`*^9, {3.8092623584289293`*^9, 
   3.809262380882949*^9}, {3.809263026096117*^9, 3.809263047678056*^9}, {
   3.8092631152601647`*^9, 3.8092631706872525`*^9}, {3.8092632014695497`*^9, 
   3.809263248858664*^9}, {3.809263671890747*^9, 3.8092637017093997`*^9}, {
   3.809263953569939*^9, 3.8092639605294743`*^9}, {3.80926436974413*^9, 
   3.8092643702238445`*^9}, {3.809265810637024*^9, 3.8092658143441677`*^9}, {
   3.809266263906126*^9, 3.8092662641125336`*^9}, {3.8092673744824476`*^9, 
   3.8092674086260824`*^9}, {3.8093261448590136`*^9, 3.8093261489371595`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"01a923ba-d455-4ca8-bda3-b5fc044bee07"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Define", " ", "problem", " ", "Hamiltonian", " ", "and", " ", "the", " ", 
    "ansatz", " ", "circuit"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"numQs", "=", "6"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"J", "=", "0.05"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"noise", "=", "False"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"hamil", "=", 
     RowBox[{
      RowBox[{"0.05`", " ", 
       SubscriptBox["X", "0"], " ", 
       SubscriptBox["X", "1"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["X", "1"], " ", 
       SubscriptBox["X", "2"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["X", "2"], " ", 
       SubscriptBox["X", "3"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["X", "3"], " ", 
       SubscriptBox["X", "4"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["X", "0"], " ", 
       SubscriptBox["X", "5"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["X", "4"], " ", 
       SubscriptBox["X", "5"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Y", "0"], " ", 
       SubscriptBox["Y", "1"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Y", "1"], " ", 
       SubscriptBox["Y", "2"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Y", "2"], " ", 
       SubscriptBox["Y", "3"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Y", "3"], " ", 
       SubscriptBox["Y", "4"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Y", "0"], " ", 
       SubscriptBox["Y", "5"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Y", "4"], " ", 
       SubscriptBox["Y", "5"]}], "-", 
      RowBox[{"0.7098301012032957`", " ", 
       SubscriptBox["Z", "0"]}], "-", 
      RowBox[{"0.05177915010485945`", " ", 
       SubscriptBox["Z", "1"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Z", "0"], " ", 
       SubscriptBox["Z", "1"]}], "+", 
      RowBox[{"0.9065658350752286`", " ", 
       SubscriptBox["Z", "2"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Z", "1"], " ", 
       SubscriptBox["Z", "2"]}], "-", 
      RowBox[{"0.9265872629174545`", " ", 
       SubscriptBox["Z", "3"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Z", "2"], " ", 
       SubscriptBox["Z", "3"]}], "+", 
      RowBox[{"0.09500423337423802`", " ", 
       SubscriptBox["Z", "4"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Z", "3"], " ", 
       SubscriptBox["Z", "4"]}], "-", 
      RowBox[{"0.4959779888875864`", " ", 
       SubscriptBox["Z", "5"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Z", "0"], " ", 
       SubscriptBox["Z", "5"]}], "+", 
      RowBox[{"0.05`", " ", 
       SubscriptBox["Z", "4"], " ", 
       SubscriptBox["Z", "5"]}]}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"circ", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        SubscriptBox["Rx", "0"], "[", 
        SubscriptBox["\[Theta]", "1"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "1"], "[", 
        SubscriptBox["\[Theta]", "2"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "2"], "[", 
        SubscriptBox["\[Theta]", "3"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "3"], "[", 
        SubscriptBox["\[Theta]", "4"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "4"], "[", 
        SubscriptBox["\[Theta]", "5"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "5"], "[", 
        SubscriptBox["\[Theta]", "6"], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "7"], ",", 
         RowBox[{
          SubscriptBox["Z", "0"], " ", 
          SubscriptBox["Z", "1"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "8"], ",", 
         RowBox[{
          SubscriptBox["Z", "1"], " ", 
          SubscriptBox["Z", "2"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "9"], ",", 
         RowBox[{
          SubscriptBox["Z", "2"], " ", 
          SubscriptBox["Z", "3"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "10"], ",", 
         RowBox[{
          SubscriptBox["Z", "3"], " ", 
          SubscriptBox["Z", "4"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "11"], ",", 
         RowBox[{
          SubscriptBox["Z", "4"], " ", 
          SubscriptBox["Z", "5"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "12"], ",", 
         RowBox[{
          SubscriptBox["Z", "0"], " ", 
          SubscriptBox["Z", "5"]}]}], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "0"], "[", 
        SubscriptBox["\[Theta]", "13"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "1"], "[", 
        SubscriptBox["\[Theta]", "14"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "2"], "[", 
        SubscriptBox["\[Theta]", "15"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "3"], "[", 
        SubscriptBox["\[Theta]", "16"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "4"], "[", 
        SubscriptBox["\[Theta]", "17"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "5"], "[", 
        SubscriptBox["\[Theta]", "18"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "0"], "[", 
        SubscriptBox["\[Theta]", "19"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "1"], "[", 
        SubscriptBox["\[Theta]", "20"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "2"], "[", 
        SubscriptBox["\[Theta]", "21"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "3"], "[", 
        SubscriptBox["\[Theta]", "22"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "4"], "[", 
        SubscriptBox["\[Theta]", "23"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "5"], "[", 
        SubscriptBox["\[Theta]", "24"], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "25"], ",", 
         RowBox[{
          SubscriptBox["Z", "0"], " ", 
          SubscriptBox["Z", "1"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "26"], ",", 
         RowBox[{
          SubscriptBox["Z", "1"], " ", 
          SubscriptBox["Z", "2"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "27"], ",", 
         RowBox[{
          SubscriptBox["Z", "2"], " ", 
          SubscriptBox["Z", "3"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "28"], ",", 
         RowBox[{
          SubscriptBox["Z", "3"], " ", 
          SubscriptBox["Z", "4"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "29"], ",", 
         RowBox[{
          SubscriptBox["Z", "4"], " ", 
          SubscriptBox["Z", "5"]}]}], "]"}], ",", 
       RowBox[{"R", "[", 
        RowBox[{
         SubscriptBox["\[Theta]", "30"], ",", 
         RowBox[{
          SubscriptBox["Z", "0"], " ", 
          SubscriptBox["Z", "5"]}]}], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "0"], "[", 
        SubscriptBox["\[Theta]", "31"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "1"], "[", 
        SubscriptBox["\[Theta]", "32"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "2"], "[", 
        SubscriptBox["\[Theta]", "33"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "3"], "[", 
        SubscriptBox["\[Theta]", "34"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "4"], "[", 
        SubscriptBox["\[Theta]", "35"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Ry", "5"], "[", 
        SubscriptBox["\[Theta]", "36"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "0"], "[", 
        SubscriptBox["\[Theta]", "37"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "1"], "[", 
        SubscriptBox["\[Theta]", "38"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "2"], "[", 
        SubscriptBox["\[Theta]", "39"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "3"], "[", 
        SubscriptBox["\[Theta]", "40"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "4"], "[", 
        SubscriptBox["\[Theta]", "41"], "]"}], ",", 
       RowBox[{
        SubscriptBox["Rx", "5"], "[", 
        SubscriptBox["\[Theta]", "42"], "]"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nPrms", "=", 
     RowBox[{"Length", "@", "circ"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Psi]", " ", "=", " ", 
     RowBox[{"CreateQureg", "[", "numQs", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Phi]", " ", "=", " ", 
     RowBox[{"CreateQureg", "[", "numQs", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h\[Psi]", "=", " ", 
     RowBox[{"CreateQureg", "[", "numQs", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"d\[Psi]0", "=", " ", 
     RowBox[{"CreateQuregs", "[", 
      RowBox[{"numQs", ",", "nPrms"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{
  3.8092660537524633`*^9, 3.8092673664335575`*^9, {3.8092674120013227`*^9, 
   3.8092674248022847`*^9}, {3.8092674609427843`*^9, 
   3.8092674611811466`*^9}, {3.809267788461073*^9, 3.8092678208078527`*^9}, {
   3.8092680251162558`*^9, 3.8092680255570335`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"c5f911dd-ceed-45e1-afa6-e6ebf4f1dac0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Compile", " ", "analytic", " ", "descent", " ", "C", " ", "code"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"LibraryUnload", "[", "aDescLib", "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"SetDirectory", "[", 
     RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "We", " ", "already", " ", "know", " ", "the", " ", "number", " ", "of", 
     " ", "parameters", " ", "at", " ", "compile", " ", "time"}], " ", "*)"}],
    "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"compileFlag", "=", 
     RowBox[{"ToString", "@", 
      RowBox[{"StringForm", "[", 
       RowBox[{"\"\<MAXDIM=``\>\"", ",", "nPrms"}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"aDescLib", "=", 
     RowBox[{"CreateLibrary", "[", 
      RowBox[{
       RowBox[{"{", "\"\<analytic-descent.c\>\"", "}"}], ",", 
       "\"\<aDescLib\>\"", ",", 
       RowBox[{"\"\<Debug\>\"", "\[Rule]", "False"}], ",", 
       RowBox[{"\"\<Defines\>\"", "\[Rule]", "compileFlag"}]}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"computeGradientLOCAL", "=", 
     RowBox[{"LibraryFunctionLoad", "[", 
      RowBox[{"aDescLib", ",", "\"\<compute_gradient\>\"", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Real", ",", "1"}], "}"}], ",", "Integer"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Real", ",", "1"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"computeGradient", "[", 
      RowBox[{"dat_", ",", "ths_", ",", "nPrms_"}], "]"}], ":=", 
     RowBox[{"With", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"temp", "=", 
         RowBox[{"computeGradientLOCAL", "[", 
          RowBox[{
           RowBox[{"Join", "[", 
            RowBox[{"dat", ",", "ths"}], "]"}], ",", "nPrms"}], "]"}]}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"temp", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"temp", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;"}], "]"}], "]"}]}], "}"}], "]"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.809264058545102*^9, 3.8092641397088194`*^9}, {
  3.809264345508189*^9, 3.809264358310953*^9}, {3.809264398992984*^9, 
  3.8092644060899973`*^9}, {3.8092660340328217`*^9, 3.8092660786960483`*^9}, {
  3.8092662780469284`*^9, 3.8092662781715827`*^9}, {3.809266328265603*^9, 
  3.8092663453222704`*^9}, {3.8092664056973524`*^9, 3.8092664754078026`*^9}, {
  3.8092674370885053`*^9, 3.8092674494648094`*^9}, {3.8092679442364473`*^9, 
  3.8092679630377016`*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"122b25db-54d7-421d-a746-07a678c8c636"],

Cell[BoxData[
 TemplateBox[{
  "LibraryUnload","strfile",
   "\"String or valid File object is expected at position \\!\\(\\*RowBox[{\\\
\"1\\\"}]\\) in \\!\\(\\*RowBox[{\\\"LibraryUnload\\\", \\\"[\\\", \
\\\"aDescLib\\\", \\\"]\\\"}]\\). A valid File has the form File[string].\"",
   2,18,1,16980656064485887218,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.8092678316658134`*^9, 3.809268002573944*^9, 3.8092681887681103`*^9, 
   3.8092683263567586`*^9, 3.809326159861714*^9, 3.8370612675916805`*^9, 
   3.837061358815606*^9, {3.837061417904461*^9, 3.837061448623229*^9}},
 CellLabel->
  "During evaluation of \
In[18]:=",ExpressionUUID->"846b65aa-67df-420a-b2db-86740d42f68b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Fix", " ", "a", " ", "random", " ", "reference", " ", "point", " ", "in", 
    " ", "parameter", " ", "space"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"referenceParams", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[Theta]", "k"], "\[Rule]", 
        RowBox[{"RandomReal", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "nPrms"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "deterime", " ", "the", " ", "fit", " ", "parameters", " ", "at", " ", 
     "the", " ", "reference", " ", "point"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"analyticDescentFit", "=", 
     RowBox[{"getFitParamters", "[", 
      RowBox[{"referenceParams", ",", "nPrms"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "compute", " ", "approximation", " ", "errors", " ", "at", " ", "random", 
     " ", "points", " ", "around", " ", "the", " ", "reference", " ", 
     "point"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"errors", "=", 
     RowBox[{"Transpose", "@", 
      RowBox[{"Table", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"randomDisplacement", "=", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"10", "^", 
             RowBox[{"RandomReal", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "3.5"}], ",", "0"}], "}"}], "]"}]}], ")"}], "*", 
           RowBox[{"RandomReal", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "nPrms"}], "]"}]}]}
          ], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"energyAnalytic", ",", "gradientAnalytic"}], "}"}], "=", 
          RowBox[{"computeGradient", "[", 
           RowBox[{
           "analyticDescentFit", ",", "randomDisplacement", ",", "nPrms"}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"params", "=", "referenceParams"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"params", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", "2"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"params", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "2"}], "]"}], "]"}], "+", 
           "randomDisplacement"}]}], ";", "\[IndentingNewLine]", 
         "\[IndentingNewLine]", 
         RowBox[{"CalcQuregDerivs", "[", 
          RowBox[{"circ", ",", " ", 
           RowBox[{"InitZeroState", "[", "\[Psi]", "]"}], ",", " ", "params", 
           ",", " ", "d\[Psi]0"}], "]"}], ";", "\[IndentingNewLine]", 
         RowBox[{"ApplyCircuit", "[", 
          RowBox[{
           RowBox[{"circ", "/.", "params"}], ",", 
           RowBox[{"InitZeroState", "@", "\[Psi]"}]}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"energyExact", "=", " ", 
          RowBox[{"CalcExpecPauliSum", "[", 
           RowBox[{"\[Psi]", ",", " ", "hamil", ",", " ", "\[Phi]"}], "]"}]}],
          ";", "\[IndentingNewLine]", 
         RowBox[{"ApplyPauliSum", "[", 
          RowBox[{"\[Psi]", ",", " ", "hamil", ",", " ", "h\[Psi]"}], "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"gradientExact", "=", " ", 
          RowBox[{
           RowBox[{"2", 
            RowBox[{"CalcInnerProducts", "[", 
             RowBox[{"h\[Psi]", ",", " ", "d\[Psi]0"}], "]"}]}], " ", "//", 
           " ", "Re"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"similarity", "=", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"gradientExact", ".", "gradientAnalytic"}], ")"}], "/", 
             RowBox[{"Norm", "[", "gradientExact", "]"}]}], "/", 
            RowBox[{"Norm", "[", "gradientAnalytic", "]"}]}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"dispNorm", "=", 
          RowBox[{"Max", "@", 
           RowBox[{"Abs", "@", "randomDisplacement"}]}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"dispNorm", ",", 
             RowBox[{"Abs", "[", 
              RowBox[{"energyAnalytic", "-", "energyExact"}], "]"}]}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"dispNorm", ",", "similarity"}], "}"}]}], "}"}]}], 
        "\[IndentingNewLine]", ",", 
        RowBox[{"{", "1000", "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
    "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"errors", ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Approximation error in the energy\>\"", ",", 
        "\"\<Approximation error in the gradient vector\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Distance from the reference point\>\"", ",", 
        "\"\<Approximation error\>\""}], "}"}]}], "\[IndentingNewLine]", ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "4"}], ")"}]}], ",", 
        RowBox[{"10", "^", 
         RowBox[{"(", 
          RowBox[{"-", "15"}], ")"}]}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"ScalingFunctions", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Log10\>\"", ",", "\"\<Log10\>\""}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.80926436460043*^9, 3.8092643646473045`*^9}, {
   3.809264411123799*^9, 3.8092644865908155`*^9}, {3.809264599347051*^9, 
   3.8092646179982243`*^9}, {3.809266271052127*^9, 3.8092663185809145`*^9}, 
   3.809266378266116*^9, {3.809266492276517*^9, 3.809266506623473*^9}, {
   3.8092665544790535`*^9, 3.809266596846255*^9}, {3.809266656187496*^9, 
   3.809266712617092*^9}, {3.8092667464068336`*^9, 3.80926692264955*^9}, {
   3.809266964605471*^9, 3.8092669879119997`*^9}, {3.809267018752823*^9, 
   3.8092670634893785`*^9}, {3.809267127030285*^9, 3.80926726618968*^9}, 
   3.809267307376047*^9, {3.8092674540742493`*^9, 3.8092675320051155`*^9}, {
   3.809267711796563*^9, 3.809267716722789*^9}, {3.809267867106256*^9, 
   3.809267893016967*^9}, {3.809268299343318*^9, 3.809268318359157*^9}, {
   3.8092683772582893`*^9, 3.80926838462122*^9}, {3.809326720682596*^9, 
   3.8093267218697586`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"9a46e70a-3c33-4d27-a178-6631328d96aa"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        PointBox[CompressedData["
1:eJwVl3cg1P8fx+/cucPZe3MOFckeUSRFyKioSIOEUqmMStJGihAyGhIZbSXj
S69XZYZS9szesvf63e+vz1/3+dz79X69Xs/Hg+7itfcEC4FAGCARCP9/alN0
pgm6NBx0LH27dycDB3Sztza+YsfLX/c2qXPLYZ/CkE1TBBmvpo42c+dIYo3F
/PmPt+YgjnvnZdNnXGjNV3MpNocV0yVMLj/SkcFv/dX2B76R8e+DmdNVd6RQ
nd/Mp+HXGjw8cn50mSGM40cs3ThTRmCbedqXW2dZMOUN+6NXunXA6Vl++Rd5
ABKuaD66tJGM/vUqdp+FJfFJyHqu4jAOFGfXSGL0yeHI3iyJN0FEVD0aE+6w
UwydtEZX7dJroX5k2LwzaAwsxv7btPJ0Eorlnt4VkudE++k2x7stNOxYLt8U
ekkebc6cexYlvAJRfH6TcFQIxyolnojfWYQde93iaKl8eNv5Z8S39yQkbap3
X3dAHLuaNMQZW9hxcU/H+hoBOv4+OMJKPE7E3U6b6hiuYnhMKvvCvw1DoKdl
NzIUvQb+RusvnzaYhZX1vPe2GPDjw6ceNxXEqEhzF/E42iCHe2cGdHorlkEW
Tx/Yc14AFQlagmLv2PHjPYMsdn85tDZaVrtlvAqelH93/I3EsfjeXTmbE9PA
E5U+33aZGzf6fSxLDyWitrGbrl6MKBpMfumQ+jgC7G0Ffuqta8DpoBzjrj0M
YVwb9VxcyHglYrqe0LAA75J1j/Xl8aK4RaDlp529cI2l1O0iLELl5nvJxFYy
pqw7I152VwqJQgUbZSZYUKZFgL98jzgey2xmt1IYA1E1y/aZZhraj4d7XQ0a
gc/Pj62aalBwSuHxyD4lCvbRh0jXFqRxijclkcOvGtKb1fRYvQchSPxrXpfC
BHR8P/eFMUHBL1W9m3M/5EGr/niuDEclZCT/8g9SZ8PiOBrrGI2OpqTiHSxq
bLgyGB6/XZaBhjWh+RLrZqC+/ORulVEu3E1WOGG8sgoxJ43yrMtEMHA/bqmY
JWJxirJ/LrNelgWq6f+2E5A2KVLdRxXGRKcz/Tx0CrYoUX5IRcviasHtrlD3
ebjsOWdTW8CNd7zoQkG8n4F3K/fV/VufQvcToR89qouwvPtXt8QNfmS56jJf
enUGHhqvyyHf5UTtkovTTSY0rL9ryFX6jYFK7jNap9bVg9ot6vsZ9mmovLFf
bqQqBgLCKqtbWltgS8ZaZlBtA1gttulOrw1C6DvxiIfZU6DqJ/UJTwqhaLKF
RPZrdqRw+tbiIzlkifq5dG6xHbaqF4bypU/CWw+uu2+KKRj8WX/XHVtZpP4n
u5AzzYKERvly1zZxHJP80dMtR8Pe+bWuukEF1BWYj60MIeLw7ZmLjiaSqHs8
r09jPRHr86KpQ7tFUMcgO71WagW44wYemA2JoZfMpOeJbDZsep4s3ZfCQIXp
x6zLV4YgbtublHIXIgo1tY0MTfyFZ+dzt84emQZ2OuFPiyUJLytsj7hjKYVv
7Q6qx21bgFH625dn/vKje84hdxHBMdj+x1w4bI6CwgVmtiuRE2Bxe7iSGM2K
L8Mvt93cMw09YVsSLjDrOFuxv3uLWhN8F7wcv2N4FWa6Mikqh1bh7lTHM45p
ITxZ8LnvYA4BK4IuhI8IiWLvS2+TQyRWbO2QbkuMl0Q9G0PS0fpp2NhzddJZ
iIaLPzYSTs6tQfW9Q82nYgWxq0NLu/YRDYNbnbL/OySPLFYPUrruLUEy9xLl
/kE+vCRyesPhsl5wPcLCo6JAQM9QlQ22ViugKV3yTDVICK+05hu+8ByGP2Y8
E8VqrDhU+tzhgzEZc+uWxEoGJbCY1+t52RoJb0U3/JFHcXx1huWLdXwPuAqX
6MiFrML3h2ev3OyvBiG+miVK9gC8bH/7OMluELwfNUQN+67AkEb7TEwaFXfc
vbb5Ra4s0qfit/wn+g9GxIIJfcdY8fXbN1FJcpy4DPz6WlnyuFBWYniOjQP9
LT7n+rLI4fUJHIr9QsQi8tW4CBsRlOGmlR1+R8MzhrUXdz9jYNjGaPeLmyfg
QeGNy335rBhoW2Ys/5eMqlu35+Wck0al2P7nj4pTgRhRX2cu1wn1xq+/pQTM
QpJPhvSdO9x4wt9V6eOjcuCrC5iYbByHUMUdGHuehM0aLj/zbkqi09Vp+tMR
NhQVDVb0tpNDNeenn9US2dCU3Pfs3AY5jNs4XfKvfArebRA+cWyVF0f8hpur
KvvgS/6Cl4D0InwIVDQlH+iFPOJAV7YUEbc2mH//MjIJNycVSl8u8uCjSiOn
4wnZMNJef7lKYwocz3BHL2TMwqGr4lYfdHkw6XZgkf1/HOghKlVBNpLHbc/v
ib682weh7B6qvsx948/gfx9I/A3nnEK834X0woH7H4a9YyagYourQ3wBCdVc
Mjg6nSk4nDruaCQtgwEXlCiWYYvw+WAk65YVfsxdOvKluHARrqmK81ea8+E7
pxqRzksc+FS+kKNZn4FWg8+bAmRY8eD9P7OESmm0xEAz0+9sKGmZSPtmwcC4
ZidBjywalhhZZ4rXMHD3dIT0tdlukJcvGRerIKFJ9TvRPzEEFPZOPXh0lyha
2mutV1Uah8Om0z4rCSx4u+qWozaWwqDvl4RNz4uhSP6kTOEVAuoeCj7CcU8G
pdisg8t4Z4C87FuyIYUX1Q46B75aoOETHcN3aVzyuN/w0ksbzIO7Ruz+ySdr
4N5igu824VKo4ScezB8G8L3uae9zfgXEDp3WdOkUwI8e/iPp4hSMDV1nIt5J
x4PZKxd+iw+AeGeJzsbAVdhWcnosVrUStg8xxAfT+6AgP9W72ek5zK4I1qRG
FoHgyLYBOjP/j7dcDTrfL4XaPfmlYoXLQKhf/kR4K4AlBu+PFsQVg6utr7ve
Wipwfy0RPrV3AQj6+fj0PC8WWS3Z7VOhoDT3j6+ZQ7IoNapwraZnDfZ46cT6
Dongp5fWt47sn4aY06LPPBNoWOepLl3YwIaLjV400lU6SrR3hCSK1cDrgP0q
W5PnIB2uK2giGX+upn+3t5VEg2S9Y3cs2NDnM+f6i2Q5bNovyUi5yI72BnmL
FR7MefLYvjDTxYKb3RkXp7eKYaTT6ULNlF64WmQcc195AZzM/oyWd3TBz+En
nhoC8/D3us3XzJ4OECCNHhBlctJUagDH3pRlUKrb28rlJIzdjvN7psXY0eXU
gY3l5Ux++fNZt8n0G4juj67ied0EJz1XfnwSGIbvQx6/pazWIOd1ct0t0iSU
HHEkCbBTsYH/qWJx3BSo9Gw4JF7PjSn2VJubM+yYLCnodmMjA6O/5R/sK+yC
k6LL1JjhKWj8exhf7GLBfl0/MWclUYyVSClhP0tGWHdEZvt+SXTgFju2e3UU
pO4K5PYlE/DtjP+36S1kFLC+ZOmnJothZZUcn1M58N7Hny8dvsmjQ5h6kPPC
HLhwZ2QQw/iQcSAgI8WnFyLrKFEhv5bg1/se8Qr+Vfjyw3WnW7oQKsZOmpXv
HwDOjJuG6bILsJTvurPxBzu+E931ZucZBupX+TR7RC7D2caZbzvu8KNn5emH
KiyD8OvtTlWhZwScEnu/YMSNcOPLgaL8sGlI7n0Y+syGA2kk2xFCPx2JQclP
6hp/wsBdU9cgPgruetRKzS4kYNb3p0JHQkTQsyy28x+JmV8nhoUMr5JwU9u8
R5XyEpxq+Vo9KiuI7t+my/MZD4FNOnsPKeUe1B6dCHygMwfear/QZ5IP0xZu
797weAIU1Ez7r22nYseHqDhcpaLx+3BtzmJZtNPvVK0rHwS+I7+Syy4QMc6j
e77g7gRkGkU/5vNiRdf/HKTaJ/9Cxhvp3c4Co+BeEnG1tIiKg/EiTxfM6Di0
xZJz4cIyzLyZqeFrF8RXh+usdjezIVlcPvAgkYFdzT9me47RcI4j/aXBRQbS
T7A8jHUk4u8m39Nj60Uxd1PY3nNmiyCfxzhV7MyPdxQMld4d+gU37ncIJAR3
gVOe3aE/7azYz5Pz/GwaHW+2pMwqmY/DI7rll7QuMmadv+3y0W4SbkVknj3K
xYatw1Vx+iYcOCKvHe3G7P9y3yifgL2tYB1gYx63MAyHuH0k4DUJj1vzrZKZ
eSH4beyo+eEGCBplq+exb4SW4+ojH7On4dKhqWPiBpxo8bjgSwc0w79svRrP
YyMw2jFn+ObGCmibxEdLx4sgj16IpsTaPzjhKTtVNEDAbfV864R/0DDJfO/p
swoMvNR8O+jExbdwac63Ycvtb6CcvnmXo+M8rKZvsl+JFMDEKyTHdbupKJzo
fc38uQxuuMUixZ7BzMM0X45TA3J4KWnE4sgJIsqUjSfrJIvh9PsIqWMD7FhX
+Iq/7ZUcfmXrdit6NQayPKEPWez40L70zIfF/Q1gGF1r7rO5Dw59sPXO9yOg
rJrhEN8DYZz8Q9t5r38WlmxCuj8rcKFFo0lOZToZQ/K2HirdJoUBqv82hiX/
A1GymaDQTnYML3wc+JB7EmoTXUSvCLHh5sdJnBmR/0GR5ztdh6YGyLzFtu1s
JAdeFLvYp2Iuj5qT5q7F3lQ8Q5k2vGwki4Fep4Lu9KzCQMN+r2JLEcxwLHDY
7MCBXGeKF3XlGfjv0rb1TWU94KKc/fpDxgyYlD3+e+ctG25wux7Ul07H0Oun
t/xcHIWH8nJNHPIkzBNjaxAoXQXRjD2Tj3aJo+aJS6uRv1jRqflOnT5DBjNt
lE80cU2D2eE8xfFZXvS5+eDvoWgyFkVParYKSeOewwoF5XfWQPXL48FoYyEM
tngjEqDYDXtSLp6IGZoDVcMPZTnOZBy5IFZq0CuDpXwFtQy9GYgtXSeQ5E/F
xKh2rS87WVEk8OvQEWa+jth3CKDhApw+uGL3W08Ae540TvJ6sKINuXq44aI0
bjJ+wRFmTcAH/QPaRpwimMuIpbEbLkG5lWtoVQ8/Dto1dz6TZcGky50/1Xkl
UVz/jdehf7Ow6xUjsPYBN74U+iw1ztIG9hVuXRvme0BK6I6tqT3zvp99yno1
x46Hn81+s+XthK0bizJG5CYhUQttvzzugDMPSwobr83AwV6x3eTlJoh2mknn
fzUIvVfdEo72rcDFkyvnQw8IYsLzuGPBvgTUKfPO4Doghnf1373SVpoF56dR
Yu4CXEgxt1/o+DwNic/Cleg2fLhaG3zYsakDXBn7Sy+mrEBCNap4L7HgJu+p
5cZ/4uine034wrlxaPS0fNHWRMaLZe8l7s5RMbmclty+lY5szcOqim/IqNBa
JhFoLIVF0uezrF7SkCXwXcdrCUWslrixIX94FiieDlXvHXjxotbqUU5KFzQI
pJWfCSLh45+TIqS5VshgyMT7JS3DcN2FvIsRU2BIPxWXXsqLQ17jodlGXZBt
E+9QtjwKH7ZwCfNbkPCsjMbfhOviOKB6Mle8ehnmtTbFi08IYFMlyme/JePR
nMouA5REdfNEu94zZLy/kvfe4rMEriqR65Qus6MJ+fpU2h86pnQ+mOTLJqId
WVmpWEIMF1ce6ihMsKLQVQWPU/zSON7/K0jAdAoKP3W8bbvBhhNamrGOHDT0
zfc+oDEhh11jv9Qd/YgYc37m2uYtoljH89spypWGiXmroxotcnj1Q7Cwqz4J
U3xrRjW6JTBC+6zjZatcuFy0gRZ0exAmMbx4YgM7bpHOZPvbRscMyfTHl6xp
6Hpk2+1yCgOF/hM1CPtMwLPWvhr3Y4Uwdd7bIu3XMoR5RsYWrPHjOV6/JFc9
CoJde7Lwdln85SvDe9qFhMH6jPDNbZL43xD3wdsjrKj9fq1pa5Q0pjpQhH+0
UrHlsPrhTDodwX6m/zqwY4LkviB+Tjk0aosPi9ZZg9hJw5tzAaLo5D1GIIwg
EPgGrRg29RDz4N1Erj0Z3cl1kSf16dicIa+524GEBNn1rwOOiOOkqGhNimE+
MFLr/WxsiPj3nkvbDQMCZvxaH69wVAT1rQNZ4jZT8VMBm4NCgizuIet9bTQh
4tjX7blJvqIY427amX+RDTN/eh7friOHaSSlpHwnGmZdu9qY7MnAWTfnSaIP
C7aOeuwvfSiBtS03HPpiaHih+peIdxsDNVKV3ooy76t96MrfqlU27AnhjMzn
4sQfPUq9tHgGVjuZL+f5UXH3hJhVP00Wfwck7V3f2AWnPuYvb9wwDZvoN5yF
NlIwv6OZeMWdya/3FPTmPFnw0ksepRamv7/Y93BPdDsHZgQpjd8tZWBinU7/
/bAW2GH42oQvrA+c7EvjaVuX4JPNjuodMbzo7PXo3PXGaRCq4jinusbMTcbz
ANfDaxATws2b8lkAqRei004k/ga3N+Uc9oQxMHDi7olk8va325uWQgjiGHrs
j2iKxwQItsTGWHwnMXnH+O4Js3mYdlDwHUrhw9OZqQl155j98WpE9NmQMGrx
6G1V8/wK6o5h/hE9nXBL62R12ssYyOr3aZUtzDfKOqcQvbaVjE/j23e1Vcji
lgYdAZFICpK3X029e0gOU0WJuZufUTGU6eX7l5i89WfLnApznzyRU9hTfk0Y
f0vIvP76fgl4P62b/ZUgiGM7PHfzyBCw4UTweWqDKP54dgUi6ibgZGXNifPa
VPzAIRi04w4LRnPvS3bZJ4bxDW/Ud1JZ0eRDnPD6Vmk0b5HjFpBgQakyE7ZM
L0l8uSWyZPe2DnA5Ra3xlx+Cir2iF9jKqUxuCRZZO0THuOFjvxbnlyG2fbXc
IoofzbKzNTOfzUOOQYNjlgkfPl3/rPXji1nIsBI74SjGg241u9PLcmbhnJbZ
7n4dXryZV1ei6kZEzSz9c9/DRJHzvOZue5NVMCecMhXLFMHLtVtN3awX4LCA
60b8IoIT7DcbTZ6Q0FWVMhOkKoHum9oauZh5RQ/5ss5WWwTdPlhb+pxfhLKj
weqnuflxA8nCODI2HDKuH44cDwqFI/y0eypTU5Bp/DFxazoblvR9TL+RVwf1
JyRLycpkfHhgVmqCwY5rH4etRhkMrLMp2H4jnIJcgdtOnNrA5LnCWPpoAisq
Zbfc6JmXwR615asfC1iw0LE6foEsi1GbvrUz7jP5daKw+qQJcx4Ltrba3WuC
+gNBNaZ+E6DcGG73YY4N18l6i9bp0JHPiSOCLDYBI1mJqR+9qNh/e6pLLWAR
xPNT2RKcBDDlwNW3ny3IKKQ6cf7FmATypfDnZuVPwQtVRtCtw7wYUvWcb0C1
B7yOny2UHZ6Ayc2tWTmfibjjlY2dp6cYTq73sPw0NwNmt1M/Ri3xottEd/iP
3fNwj3wtWSCBB7PK1DUq3MlYz7CZFM6VwKqPlyj9FAKKV63TpXQKYt873eWK
NwQU3GXcf9pWBKuTE+Z9tPPA83dJNaR+hgFqnsKLQjbcn8KeYuVEx60lvzOC
WVvB5Pv47OzQOLjbqepezJkA7gihskOD7Lhy8zA1YoCCsyWuFZvTZbFsvYLd
yYeTwAjLj7n/lor8nH2jOdfmYOup1amd/VyobzUtmec8AM8NTlPL3lMxgbZj
SJC5b3IlD5Q3GUsi26fA15YCvWDL8kRoz+ZJqOJIFvpjSUQn0jpHfnMRXBen
xLVu7yRIKWgUen1ix0Shx/8pb/4DQbH8P9IkW6BHxqtCs4+EFI7H0mNuUvho
RnhoYyMbRruzHnnhIIclS8c/hHj/g9ZMrUyHRiqOZ82fHVdgwR6fdEeNDAm8
/ORE4r2r43DsiXdg/xsq1m3j5erhZfpN9l1/gQ8CGEnnxiYmj3zftiWrgtmP
O4jhwnvCZsCB4lY2osmJWcfGNhrzF4GQUoSmBqMaei7T5nRlBqGZ5x8h4t0S
vApWXiCtfIK8L4/uBQT+BtPKqL6I9E644MJbqLcyDoes3A743KFh3Py96EPh
DLwZ2sbFg30QILXkZ75IRGtfa4fXKWwof2fE2/IAHW02xMQdc1sD7rITOcv7
BdHscd0v1ZJZsObPGmYfpuGLDznVXqYU1FS4WdfNzJN3p+vF9TtJaK+vurlZ
RxJtXcXFuohTMPs14tUkkyv26zjR02dm4Xs7x74nfrxYJRr/JVqMgEkBAS9b
vongxTzdgSitaVAZH6zS3MaP5VI/d3LGzwNf6H/aQ4p8KESL3J5xiYJWH35f
M3sgjS9+HYfD+whY8cbobLWCKEqXnK3zlFsF1t69wRXXhHBdX7tx5p80+Hh9
4/eh7xPQ8LrI3XLdNCSoEU+ZG9BwduDQxv4X8xDRfbB43IgX87PF3sy2TMKQ
bPldYjAbbhRzU5y2KoSOtGP3j/S3Qj7P1PeDDm1g6Uilj2ZMA+E3X9GaOwte
/PSA4561GJqkZ9z8md8LcoLF93d6T8NSJM/Qn9esyPpvGxvoyyLXx1qTbK5q
2Jy7qVXq7QistGxdHhql4vPeaeXxHXT857370Y8wGjrOvuOv+ayAd/pMbtPq
2TFy8NEHZTYGOpIbznlk0lDIb3FK/DmDuRcGB3Ti5uCbGWuj8ms+lKjk+yzE
WwXvVO4X7ikmYS7r30P+IxRMvZoVNfRIBpsp6feNr5PRZFe4kdRnSVwnsG7O
uWEMtp0t+FIZwor2kf9Wp+lENH6qMerSKoI+H2Kkhv4jo6dlyOcKVWkcFNt1
bKmcBTP+qn1blhVHA77wosNfaShxT2Xz6x+K2HRi61DvNjIeJ7S/ihyXxv79
B/Y82UvARVaPYsVMYXzucEM4f2kGqGMqx2pm+PHCm1Jhd95uaOVi/Bzun4Rg
kQnFfczzN6QLatYbM5BYY/7xwN1hKPdJV19hciPB5+67PhcW1LugKNh/Qhzr
NzTZ/CztAOL2ErvrZgtwxenyq98BrDhze+7Zz1fS+H7NonwmuBX026KrbH5M
QhCBT2vFnoamTQSximVFZt4k3jrBvgZ+Nj2MbdZCeOM/50dTNW1QPCfz/YTO
P3Bx/F16va0biJxtrGkfZyFMXuGScQYBVS9EcReYiuHTD7nWGwRpGPzHZ4eN
hzz2jQS2MUyG4F7qHT/KZTLmP9v4MYifDZVqpNvSFen4Uv/Wxlq/7yD8wDy2
xJyEqVT+99oUCtKSyIYf7aVww7/nrMWkQfhdaXtJ2nMNjlVeQJHcIZg7pCM1
8HkZ+Oa3dpyN7YSFios71N9MgIhfimYRcQZ8M3MsalV48bTazh2LNmtw6Lk7
hfePIAbDfhF7KhF/PthhOqUhjpE/ghNl+muB90gk98v3ZfCz3WjpJ7wHxxpv
t6Ffg1CUkvHTuJGGHAoTl4sG5TFkVLeS+Gke4m4/XOye4sET/EVPzv1mw18P
TL98kmPgruh1rTUSZJQvaOdcOCeB2z7uJeXVT8GDvUlXbuxnQzuXLyubLtTB
rMU5D8rcOGhoXSraGEtBp8nRS+4espjANSNg1M2BujdqTnFSGajaLfvIpnwF
6sQa3r94IoR7ZyL2PBujIFU/3nmWIYv36/oHdaTG4MXBA3HUciI2lU0Zqv0l
4kjFm/qNGWL4hXVv9qOMRbj+aMWVN5gf++S7HHh3zoDR8wsNl8/QkPMAX3LF
syno9J/PfMnkdG/XG/oDRCKGWHf7e94UwySNM507j06CjMTKRO8yFRXq0v0n
jrCja+GxHIP7cvjG+rfQ0EYaqtm4VQ7tZ6BLkJ/z7sEROBif5rNynhfnZ3qb
hYsI2M51SV3VSBjPUzrYBnlJ6BH48lH1OwnUs7T2F9s2A3kep8pKu3mQvy8o
3jdiAbysPEiOkwI4Z5tkn8HkqdHGy+ecu8QxUbfr0joVIp6p+yMvOS2E5OWQ
Piv/ObjhYDcdaMSDUlH6TVUVE1A7azjziEHGM9GcffvZmfMV2BC22saB5X/P
f+haJqPVsdui62dlMET/Kn/bw1n4ZZuQ567BiU+8o+JoqSRMczjoe09bBqMy
GoqMbtaCQtqt6hmPDiBUFu9L2TUC7a6L+xmKVOQb4f3PgMGJtDOySjtS5DHq
8U+vpzdZseDA9SjN/VI4qnFULdqIgAplEnBkuzBO0cI3xTHzXN4leD+nHQdq
hF79FnKwFq7wfvrSz3xvv/nVp/eEVsDqRdmTwwUCiIublYsN/8A/4S121z/V
QPrP7eq1fymYSdk+d8VPFveZqd+4J8uOgro1Kv0gh+ePJJoMNI9AqI/CtfbN
LPgvJbT1hPMiaD516HuSwIs7NN7HbyT3Q1OG0q7mrlnwpSHZ2XMS3ESvbuz4
x4ppYyr35x8SMZx/Ovn7Y1EcPn6f2+UtO0KvSGjLcTmcuy+bRUmshHJYv3ku
Yg6akkU3Na5VwzfSK0knl16oWUffYvx6FLaRHtgFBBPw1kcOvX9p8+BzqVC4
ajcPnmdp1lSZz4HesC4n2DsKFZue3RBkaYBTtXUqLnyTsHcHqZBPvQce8fOU
v2tYA02v7cpc4iSMnisJlnUSx2nPvVYxZ5ZgovDuy1hjAZSmSr5a798DO7do
2v7mmgSTB8lO4xtomKKj3TuozMCH907tvfDmA3BxuZxSXKkB5/sVaz/kiBjn
uvYhV08UVX+d8mPlYHLserqKKZmOe3aOfl58WA2O/04Z64h1Q2WghikhdgSk
RVxPnx8i41shFex2nANeidj+oXQenDwa+lf74hiY7R99OidCQa3wHDONejas
CTW7024hh1eIMhFLdDa0zEgvwiI61tVp7e7/tADjXBOdt8yF8c25mOtjzbMg
ml3DfS+QB7u8f9y7QhwAfedZuzv/liAlZTHfcj0Vda0cTouk0dFS+b2jeXgn
pPnvFTI4sQLp4OK0T2Me4tP4hsIseVF9lliqG8OGKo0cV9iZPtqaRZautGfF
g/Lp7rJuMpgsUJ0QmtQER6sJGuwHqyGXXt5f93oV2gQn9q4mCuHhu7+4t3vV
gPxBe7LNRAsUSFiJPPNmeq/FVBX7ERncoiJzcQfTF2YGO7Q3GQrii/UxL2Mf
rYBls5mdLUMIOV+Z958PY0Erpalu2ndRvPtT2odf5jucbnJWVM9g7uXIpE+a
u9gxaCTA5ec3OtZXdexsmh2GMIOL/wT+zYNWKjJncRnCZN4lTDDn/7yKrubx
fQtw9EBdCSmXFxXGLkMkPzs+3572blspHTdOniSLvyHj0MBYmPd7Sbwoq1Kf
2z0ORWFn3A4pU1BWoTrSO4+I0hzNRebmoni6MtyuiEzEsFaXJzXhIuj+4LTM
b0MW9KMozTiaieFgkO3eSKbfx/306wjQkcDgy6ZlbfFk9FCcvVNxUxIPZhML
xIJmQBej2l/lcmJHVUABPYuGKsdCTW/Q1uEy/+K9jJNzcCXc8UnNHx7cefOR
K30dGUekL/z1pEghDznwZ8CHIWDZJ5hmwbEKxrU33954NQv3qLlC4Ru40Ss4
EGMVF2He2st4i6wQEh6l/DLjnAYlgYh3YZpU/LL0TZAoSkPs+fH4N0keezaT
Lh+grUCALK1qfI8Q8jvwPZmIIOG+i1X5dW7iqJIheH26YhA2Zm7or9tDRC19
7j2k7+wox7fF3deKgTr1HWluFVSU61544VlJx2OvDf52+1JQeXo6fNZHBmPu
D1y4okhEteu7OMNMRTHX76lOrQEbXpjyfNAJsujwK8jp+tASXCzAZTt3ftzM
4vUt/uQCaFFyeFYS+VHFpqHaX4UDldZW+tx3MPCLXEvnCNscyB0YrEwz5MK3
gV9cflmxYNGsrvLwtBgWPwq/a+dFwiONratP+2RQ0Tmq6tn3CGhpOP79Smop
tL+J+tygNAFHHi2s0QZIKNP+esfr97Ow5/S72SfRIijp+4OTx6kORrqF9bB4
HNJMH+ua0iaA79i/d5k5rOh9ntLco7MA8+y8U9UtvLjBeI9eVHAXmHiRRW0f
zcC5wg9+/DIUPBNpYGZyVBb7u8xDqGI0fH7Zn9DtwUDnmktpWz7MwMEaZQ7i
Oh5MI9IGhJn7Zsg7irJtloGFpjZ5uUHsWHAiUXHXcQZetBFJVzdrgb5bna4m
k6tw4qmeLQ+RA4PjTxr9VyCHaistGtGcS7DTv3T44GcRFDG7UK2ZzoG9TdWU
EhcGSsUM9xsw/fCp0LBkchUdXdc/kLOIpeKak4xzST4dv1jW8ebEEPA29057
od3C+PuQhl3KYVbc4eTTxcoujauX49l2MD0zqj933Ye0KnAIdd45VDMNPBJX
j7T5C2CFoQa92GQWGK/yr2jv4ceGj38v7vpGxbtmLe8vPJPFgDrCQMyudrgQ
KbD+8/1JuEnST+S5dBl2f7P6buPy0aj+7D2l18td0LYxN/JUwxS8aurfcYxZ
vxvZC0ny2bLY1W5x9KYJK7rS+kyrsqTw9M0NfRqMvyD/6Ec2/cg0zJFs2y1H
Kdg5auS747Usjqm6/o77wIE0DvtPE48ZKG3LVlX7fBacpjq3JqVyY/dVPv6Z
ygkgtae32Rax4k1n1SNm3VOwpuSu+3SChlZ66X3Go+woVUGtKv3AwB3jPmWy
u2kYycZxe1unHH50nVgND1iEqTmW9fkZ/Ph0Nd2D/xYrlmdr28zkS+HD+B0t
e9+SsPi2m3N8oixqXVLUUzTnwKbl/V/d3jLwfdAzym33CbheSDDzc2fHtU/k
PXt9J6DzsrtXvSgvXnn3Oc3wJjNUlbpsxJ4xef1H2J1L4uy4fZNbFgbJIdU3
c2nPAQKGxmkHskcLoltl86bt1qXQ/eSoyfuBWvjdnPbpaBIbumy09ZDYLIfL
xV7r1Do5kJ2nNWZKgoFdpILh7kQSbv6tIXRNVxL16QJz97gIeGqDtMm17UJY
tHa8bvjYEjw6dVwvgyiAuu2bNjbsGYWNZbe6PKfZMIji0jUfTsZ+7Vje53NS
GB2cBr01RDz/oEDqXJ4o3ttQdcr8wj9YHGNUfJ5mxTtnyc7Kdv+gaWGT7Z8+
Inoa3qSQDyGwDLp1rtN8YnTDKG+7TC0NN1tdtP3OPK/qsYB9Byx+QOC6hvxM
nk6wIQx6eTXQ8Gjq6UdvWxi4NNNjPJrMgtvZBeYWXcVwuu8uxSuHHZ+cLz9X
6s9AO5M1Feeti8Ciz9rn38CHUWpWQlUNFLw6LH7i9hcGJj2vzFp6MQpZBxLb
zmZSUITnrplp0WuQSKulEoxKYZH1Qr3bbAeca1fgj6cuQtjBwju8NCq+tNc9
IpFJx+uxyY9XTKegt/hzyKY8drRMrrtwZpgdW8dUwm45yKGVX7PUbV4ivj7J
dkqMRQR3GPDnXDcjoLL8oOx9IyH0affzuZxFwgjP5280KiTQdKpgW8bNcpg5
HCguyOiDxYZR8vqf88D5wYnIepQXdZt0ffSV+iDF/+6Ez+o4LO+gqnmJU7DQ
M4+2+Qkd6TXN/V+vsuP7roebrjbR8dMSeZVksAofHvpuiNYUwoWr244welnx
2tWEpOwxaXyjLtDY6UDFjz9TPApcZLCr57mRvkcDnL4U8WG7XS/0j9k55V2c
AHY5tlf+T9jwp3mhMB9xFLz1w5NPczC92+5o0yo7Fb1UbtEUabJ4x1qedzZr
Fggb1QPNBjjRpLX+l7b8BBhyTKZ/1+JBwyXBQxaCbHhZuu2nJHMeri9937r1
7AwYUr+ZC2/ixLOmU5l2X4ZArarwrWcJC85tfcf9ldEJMh0qojKaJORrWg3g
PENFx39JYrm6dDRuJ+kUP2XDivim9owDcsz9+VmuI3oKrK7f6d1qwInvBv9e
YOhyYP+o+p/dRnL4o09csO3FEtwgL76ViudD1aPWEgXM+xEh2r50sRBBXS7t
BZ0ENrwWnNLREUDHS6qhx1IrKfhoUHiPbjEdt1uehnlogqzT53YbRk5C2hpH
abf7PJyP8G+o0uDBnBiJ1AJm3ow/lwo15JBAp+zd2xKSpyDr6W/RnGR25L+x
8Cbs0Dwk3TO9/M2UB0lt27jtjFjRnN+o4vImWewtF08jW9JwZ64IZ681s3+P
88mdXFmGYLHJJDVZUVzyvt+jUMuKjWvmx9xWpPBMwYBoshMBraauH3flFcVz
mm79bUEceGT0zNrXf3Io2JFTfk+ZDQvMreNgio5GJGJkjjjzfwdyRI34kJBN
9TwoMXm89U+Y4oSNHNqoUq0XemlY0jN4tNpHAXld3q0bGR4Ctvw6w7g0dtyR
IfPRx2gGfBofBbimcWAQr3mX9PIAcKj2W5xNpeDE6G7Cc/YeiF9ezXhaNg1f
w9lV8g3IyGJxR/xatQxyX6FKeN55BHaXf7pLKlbBUf+ZQLJGF/SFlNjkFk3A
Ti5OlmXbKRBJCzkfxMwNgUK7vmsT3ZDrdygpq2US1F7aE2e12fBdXth90gU6
NgzmauvbzcCeuo+6N3/S8FCCe2i1NgsGvp6RCi0Xx+5Li2wnFNbgF8u/gmev
hZH+sRvC95PxI++pYHVOCUzeVx6eMz0CKnw1w8axZBy3tv67c3oSEk/TNHpf
UpAnyJTA8WYZNNRZFJ4VCeD4tW4SPOmGOxZX+IciePCrC/mY0AUqZkZfNrJt
paPk3UHlLdG1wGlDfRsw3wjn/XtrWWIo6HNv9IC/Ah2fWypUdzDnptDgioDT
Tjq+kpvKHTtMQ8NKtccP+hh41KvBZ4vwENiy7EnPWiXg/oeUqbXGNeguulZx
lCGGPRpqEarPF6CSmlk6qs2Pn4jrT8Zzs2I/Wxm/waQUcruJpW7YvgbvXun1
37EVQgGNCZ/miFWYrtF61qEpjCMWcXmpFsx5//dirpzp+7VRNXU6LSxYPz+5
WcZJAs+z3ZNLuUjFusHJF42RMvjJlZN4i3sIgidP6g36s2BojFzxsdtkzPMo
UffcIoVf9rSIXjCdBYP05UWfIV4Uu7SJU+X6PFTDyPaxJW6MaFtV1lboh6Mv
73a/yFyFuT0PKjfXsCB9vX3E1nIx7NNVL/vMGIA+3gZTn3NsmC9DNilp/A2f
VrUVDS4Nw6RvVFfH5kX4qK04eIN53mh7ie03/bsg/2H+47GIcRBYm9h6cpqI
5FIVR9Jpcdz1pFX51yA76u35Qz7GzsD2X28fCqex4PxTks0wtxgGL4ut+cv9
gyL7sVN1/3HiYrxjxWs1dnzbmL+avoWOiusnvEN42DA5YdkhsVcWPTMy8m0k
qUjPaP17tF4Wr731ZGwqnwLbYp1Ji1McSL2+pC3X1QnsFoebb+9iweFn1Zol
X5fB8EtALDGEHxXiKoYMFpledbDBdfqhEJrylT3p1pgAk7gh6UtiTO6aU/69
wtcAlc5fiSaaQ3BV/YhUxbM6aISF3QaRo3BHwVD84dYVSOP8EWeZwI/pJKvS
SoUeqIsvZQxprMIl6hdXHaZ0R5lvvdZkz8AzsvbLkZ/KIWNXn1yCXh/UEGzG
a8TIGGjo8275gSRK7zMUOGa5BF+FZCrqVPixorRndPY0C156zHP/631RTD97
JrifQMaFO3PFAzqy6NRLCpROJ6Pdik/R22gp5KJsYjizsOCFcT05yc+iOMqX
1HufmT+Rd0sz2Mdl0fjp9MT7tV5wcLngs85/GsjnZaqatAhY9Z/xtWR3cbSP
f6MR7EbB73eFvOp4ZXFBVuX9hyECBqZ9sbojJ4oi36xkar9MQtaTind5rdxo
fzA6re8hARcNznPrWYvim30R46bXifgke3HnoWkRTLSmk5Mdybine0EmwEQG
986LUp9/WQMFX+d7n7WF0KDo9ZNE3VZ4Wdb90J86CcTwyLAXtRx4/pMPZ0E1
A3lrymQcqgnIsHx+3dtMFLffnTEZubUIUbcMhTzihPCitNj3yGwOZF1+EFUV
KIdXLfJOjBaPgJ/DW+lNn6hIK3aO+/RgDr4HGu/QFRFEMk/l3J+NNKxXOsTn
4CGP29a5Ex+aM/M4suSG2HE5NCkX6pNl+olnyNSBKWcxvHD4P9O/8RRsvRHg
v/82HUlH/8tJdK2H9Sc/GltYzEDwqFvr6Qwa5skanMmOZqDlmakQTW0OnJbf
2sB6Rw57NKNEwXQA1kp+UdM2LkPMwz4GmxEZU/6eG61eJ4Xbm1t+hr8fgIQm
ATqNtAIfXLQ+zd4i4Eidr+Fx5j54Uh8Qby06Bc2xkYG2v/mQkzPT7Y3JEPDG
OClZmiwDveXM9IlJMq5GNmb9CpTFn8N8+uv7SXi98mDMk62SOJ/nHeIcVwsH
ZK9Jnt05DIejo0ksgjT8zTv7bTmYgQ27NxnM8FFw+ddbPRGqNHrXT69Zn2DD
zzF6L1xF6bg+ckdxfHEfqOu1LFb5zkKCNAt1r90YvHJMOG/1lRWN9Ah/f1E4
UNkoJabTjIEnXX6xkkKoeNJ4vaCmnSxKxYa5n97fAToces1i9gvM7z/Usz7w
B/42fbvqIdkFjZ27g2pFO8H2dpvzKftFuND0uJrs2ge2Qeeos3Yc6Dk8ov8t
hRUJDmm+Wf4yqH2XXLA01ALJcfp+WtRu2MOw7DnKzLlrEZueJL5koLXcFYld
2SR0U/f5oDMmge8mZDh9KpfguD3HtYZAfvw78DfznTINSRlqLaYkBaypcOOt
vs6Kber37Lr6ZTDhdk9kRTsZOx04KCbeshjepqZTmU7F73znzyh6MzDSVPKl
H+cMhN3w9oh258T088n8R1XZ0DHOgIdzSA4PHlUA37dU9BSNOXZ5qyy2qaR7
7dmxBicalf6OtQoi65Ofox+2L8KNWf5WW3V+ZNyQo8Yq0XDDZYUjdbUMlDO2
LctNYMXPpBp2PXVpPLJw07T84RL4OstSf73hR287dYFFLQrWCh+aIFnIooLW
K9JB53nI17zv+HSAF/UUeo9+0+6E4pN9AqduEXHj3uSy7Lt/YAe70X2aeifs
Em8ObepagiCndRr5Jvx47mezz06VUUjfM/ipO4qE2Td/NpYP9MACz/G/Zr4L
8KZl88x/zgQ842Ba6KosjGVqZkmLO+qBT39fP7aOwOvSgR88SVOg1py175AC
FQf38I1pVg+AZgDvIcrZJXiafYq9VpeML7zkLpq9EceSNsu38jy1IL0aTti8
vwvShG/f0nrHiglGSVGcpXKomvZ1zSR0Ajg3Wm0LOcyN1T7vlbUmWZHcO/Ep
4JosVpC/BVnnE5FN9rbYu1ERvLPzjogN/yI40Kisggr8eJjj85wF03tOau2F
1/2ySJJc2/y8bwaWfkuVXvfhQZOx44K85iTc+ueDyoMN4njGznZRY2YFDuda
X6mWFkZn1XmJYmsilsOVLfFuUpi4f0Xbu46MBWouobxqdDyZO04ubPgBnSOF
iZfuNQCLcVXE8U/vIV/iSfb0uVo44W/G5exSD1PftdVihwcgcyhmpElrARx7
yhWf1/NiELvBjY8fZoDbBp7SizkRg+QHvpvVAcfXG8csDtZAq8mrED32SZBP
2dL7/DgFX93MMMrt7gAVlobeYK4F0G+dPxspugp8NVQb9t8CqHZE/4v37zV4
aaq5ll0kgoeE2S62X2DHhD/hPU+b5TCKPv5N/QEB+8y3HLlaK4J7I43qOJRm
IXF7VF9EIjdKEf5TcyuZAfkdlNSilzyYWqSUZi1GRG2zU45uBSKofp/342gs
EfvojAIxPVGcu/R9ywL3PCi1zo7Kh/Ci1l+1AQ4m//EdUROh1hPxGbkt1pyb
BRd3+a2p7xPDHUlaZ8ybCLhRUSdJkyKCjqkXp6X2sWNXZalK0HU6tq8taqnI
cWDafrYE7QQG3krB4CWfr+DBHRXtZtgJDsrPireJEPG/0rhXw4eEcfpSoy48
7IHb8bv5x26vwk+OYztZXxNx9m+LYRBVFM8W5fxRyCVhxph89rcccfR/REt7
pFkKBjG7MjfMVEOofpPZM94ZeN7RXhJ+hxM35ezfp3iWFYsHskfb06QwOLrX
Url7BVRt9Md124SwtPzEndDWBbCczVVWsxLAOoNq85MPmsFed3d4/qde0NIa
sWxkXYCQhv9kX+Xzo37lroXnOp3An/Cv9bXOElyKIf3dvrAGWzxyTWNbhDHC
3lwsdCtzb/W6PsYb87Atgjdi9gYVjX5a5Sh+paOMrN86v0NTUGZ2rOG7GT+2
aF5I52ol4rqEm+8vJogj0dv2WqrTIkjPfKxhPyiATVNt4y478+GjPb0vr7kR
tv+e2fv0wDJ0CtWvPQ8UwKvKkknbM1iwMifnSe4RMYzebvxnbfc/sNdTOhL4
howHb7JpK95cALcppxaWRD70fZ8mubVuHi6lHfshyuxX4sMwE3/1DtBy4pkK
uEFA3n7BFkodK25P3NKf+lAKfaNut35iWwbvT1s3nCkVQIbYRfsjS+PwgTH3
PkOdDaMYLxI59SbAYqCptX2eBz3uZQw9WesB1VsMjwGrVUgw9Xn4bm0S9j7e
+Ew3hh0vdZyWiHWfg9AtLsK2j7kwK2jDgQErAlauENkuRArjZZmzgzFC8xAc
7uK4tMiN+5/tq5XnWYL4oZG27bf58bbW2RX7FKaHvhBOXLnB9DuV2YIDYvPg
fUFvTdSbD5+vv6Jo4k1Gnz+fJXXypLHw4RmLQd4hiN5+UW/qFdMTz1XvcAtl
RdVjBanKKVLYfdNh3mCoCF4F5PjXe9SBekjJusgIKgbpaDXfKWPgU+N/axte
t0BofaercMMIuFOe/+wfX4SNj75y873nw6In3x/nb2dD3pUj4SdO0fHMgza/
h4+awcnp/HESYQIMbB/Lnl1PwXTfAAWb3XKYsounyXaYDTN9ngZXnZLD62N/
vAZ7yAh2SVq/IyTRsl3QULSzBsrYCEIG8cNALtQN0a1tBZ/XxxtsfZbghdwz
i0NKKzByz6R4v4AwHpxa9y5c9Dc4/tXcp9/XCWISEcvsJwmYc+2FeUiqMP42
HsrQZfrnsQpVr/Y1OsrZ22QujpGQeks26bm4DJZy7fETXKkFKS/KQNyzFlBc
eyDZ/W8ZuAhCj7unBfCK1pfZBKbvTUacDuXOlkPHH+566y6xI/FCkHJOLx3z
Ple/V1wloZ3vm35WC2kM/le2Ydi0F675LHEl/7cGOyf3earMUJD7U9eUg6ks
GrGkS6sHx8OvjfUHX6pOQqONa7oPYR64Es7d4trIi50iNTqf/xBwc2vSrR1f
hFE+4fQ9tqOseElqIEdoHR1jrhzU27uL6Yetu8/eKKWi1Na51L7UCfihN2D4
i4UL977Ql/9bT0LFV5evHz0gjspvp+kjp8aBT0mjMjGBHZWvpemq5DZCyDL5
2s3EXuAoue9h+WMRHpQqifhxCyCRHFB9zukftDw/e//rOU4M3a+c1mDJis68
7GE6T2XwV2HH+YpFVhwh6B37xCuD+j6dMtoRM3B1wHzd12kOzI7ddbhaloxP
LJskCcISeNpjp9DXs1/BIWTbo4iwZYgy+GE2mcmO5HGfa/aDcnhB40Ln27QK
UP9yj374v2pwpfEVvDw8AD4O6ULD3Mswknf/42FqP2DI+q2+wbOgMzBzlNOO
jDusa4ritkphr1HN9hshv+DsAV2RHVsnQdwn0ydm7zgMHlEOyTNmRb0z7D2y
wxyofrK2Q8FFDjn1kk+F/pgAu/rdnoo2rOgVGS3gd70USEn96+U9O8Gj9sn7
MbYZOOD1TFg3gANzi1u/p3J0QDGxdFm+Yxa+P8hKKddnw5w5g8885+gosnPz
Zo+ZCeA1seA9VMGLt03OzPWUELGadR5vVIrhx6QJWyLzd39+Fkot7+fHVjop
UOjxFGgrwIkNlWxYnk/8lhs4CYpChUuU9Vy45SM7F99lNrQkLdTUnZTDR5fD
X/bFt4H4jbQmCdE5iDkUM5xTREbdqBnePc7SyPriqVzsln8gLHbFNSuOBQ/0
FqYaX+uCALPYdCWZKRj8s417VycH2n/KsJ3Yx8C9HbSvPJuWoP1l+F7pXQLY
8zlBiLCLilH7lJsUL9Kx8eUjDGLWobH2tmfJ9gkgvWWVusU7AqV8KuM2whQ8
myvxH3IxeYPtbor1MR48nbjlY5ABBY22cGu628qg1zcb1nDXUaiFkuNm69mx
8LGCz/GEElCr3/RnQbwDNqQkbVT2nwdrlW2p297y4t7sktD0B72Q8+dO5Bt7
Inr31AqswjTQt4XFiRB4MPbmR227+3NwYpfLz4dPBZg867fpNAwAUfCRmQuT
M00yqxsIfIuwJ97n8ZlBfmyT3Vb1KYuGNJKygDEHA3uaw/8d2UbDwN7qFVF9
eTQw2HvrmH0lhBetzK0/3AzVTZ3x7S3zUKBw+JfeM17kk5rl83jPhqbnfa75
ljJwRl/NSKaCgnv+K5u7JUfHG0rlGWxaHOjLXr5OmSqH6hltN12USHhy7tuv
5hAJTM7kOcEuz4FKJ8I++A/L4evH5xvus/TBlhWvzzaZCzAzv+64uXMuRD2c
4B/K7QOB9asxfvPzMHd3tX6QKoD+PDQV2cDvwPLu+ADbjSF4WrucY3lyGTam
jvPsCxbAqJdGLT95hqE3CRjXPQmoyz1o6m/zHSi/l/TqNtRAtMibS3NN8+Dw
Z49eFo0HD1uOecrWsqK9yQur/wzpGOo3vuR+JBnOG3DwhhSPwuD58Sy79HEY
S5orzKrnws0nHZ+osFEx62OkC+mtLF50kL56DXvhgtPDgcL6Wah9oLJs6NMF
CjLts05r05DzY2BqA5PH4iPk/guIksPK26XcV7YwOVvMaq9xvDhyFFy9orp+
FhZvP4pKu8mNFpJ39J8pzkNSVi7bvXIejD97UUhpgIC7mpd33XEQxUf1PWVm
uWXQ/Dl29DHHb9D54Ue4zM+OJOFMuQpWOWREHo67KsKGcVmbqy4byeH/AGDC
+W0=
         "]]}, {
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        PointBox[CompressedData["
1:eJxFmmc81f/7xx3nGMfee3NsmVEkZG+JhqiUVF+i7BQVURHZWaUhK8rM9r6S
mZHMrOy99+Z//rd+t86tc+NzXe/36/V8Pj4fweuuljdJSUhIprEkJP//e5xc
eZ1EhRqyb5fy84ZJwbRKkfrfL3jIKnF4pv9JHCYJs+a9EThQ2CArq/cRgQ6j
7fsFgVvo3mJb/k11NjBj7PCJKyaD7HPBhc5pBKiearO+UI0DP8mNRaYGEZBn
0vfo+X2EJr4Gtzab8cPyFWNHmtR5ZF+2EjqyRQmpOfg3X1S6UOjW4jnawmWU
+FDxjY80DqJt78mx4UXg7Qtx2towKmDeubPMHSIJ85b53DnBGEit7H06oS4E
tkoLh1YZnUjretbjuwk7yGip/NjBu1Uk38pWdvoKA1ivD9q87KeGkxoWoX8c
pMD87r2UKLYDRKO7VF+uzwNLzdxvuYJ2UWrKYx6bA054Zt8aUZ2LhUi2yKQd
nDCM9ipwCZ/Cg7DSpEqNljj8uThPhrmBAb6SdDLh04JwjbfIbVFiFrVEUB2w
XKAGXw3xB85qm4i/817Br7tsEP3udgCBkwLYKEa1H7WJgeXGtPJE0z7iej+t
s7/BDaIkSiyc3/CQFqbZ9XxEAsw09uUCtQ6RwjnPEs0JPqgNfSlkfnMdbW2e
ayqSYgFpr4KGjBAMSGXSZnI9EQS11aph3oJ5VFvu0PM4hxpoLknF3jo+hype
bh/6b9DAw4j1bpKeHeSgJdQaCpzAZeRvXKg7gfgFrF4rd2Oh+WToR8wADmzN
WiK+BIgAhrVCmn+FFKxKogNVBoXgWlYf3pSwhNrtuJOeqRPnuRzu6hc8j55R
1exaCtLDGiF5/pwkOUT//RmiV02ANYbUJCqvNpQv+notymoDBXP9KB0lrCDS
2/JndwsZoKpl4mRJXik6ntrjf35tAGV+/O0bLE8JPyWyb78knjc9bK0OqRwl
vLkn7unYJAanO0LKuMU2kHfnqxbeBBYwwRFuah0cIvXB9nYzOgHwPw+nmjYx
0HRz5m2SlBAYV8hmLJ4hgfBbBx3HLghAku3dKXpBctjg8Jg7oy0KhxXPRkNu
baNRmj3HkAp2CHIVZA1m+I4sjBvINq7+Q2NvWX+Ny+6ixR522VfDXEDqd327
3m8DJbnH2v1XywLH67zXe7WpgTH6Bz/uixRI3tpQ+k+sG/WzLO8chO+j5qfn
heZbYtF/wW7t5u096FTmUVZwZw9aU44u9ipdRyHfuCKii9bQA1kb2TlFJuD4
aMRdlI2Hmx+/lHfXSgBpVOvevd1/aH9J9UOo0CH6epv2ZU4tOXxao9Z4zyIG
FOUCO8XrpFAj1KUZdSAISzy/xseEqGEYGZJcuy4FKszbcc0vMDDpdGZ275EQ
qNwonVQQx4Cfw3hlmqsAKKsVZXTyHiDq0JA3MT95wJV/1elmESWc++fy5AqL
BBDWk8n2H86i4Yt+vnFLNMDaOzg/uzKEer6J215gxwJekKS93xgLUidSA/FK
wvDV6qJ8vOYO0mUzdEuW4IJbxZdvsbMsoVspu1daBhiArULf4iByBfE+8X/+
vZ8R0sIfDAacXUcVNWvprrossNl0fuyUXC+qKaDrSZjbRhujWeQylw8RdZ1b
YvEuP9yp+D55sZgEqCr26/GxAjCR5q59GUsGr05u63Qai8AJ89PYq93rKNQ1
kGcslxl2f0mT3Nk6QviDLEXfS3wwOqx0vPMNNVD/95ejxEsKSE1fp46G7qGb
Rcmhcs+4wIfdWcKuYQJx3HG8IvabDJxCZCQsTA+QUxyJTmgLLzwcKDv9yWkO
8cjLxPKUUsNs/YdLeVo4yFcz+41mhaGWwfVDwxEWOjX+1fs7C8OXu6RVZgnj
aF7TyjNmCAs/o10eBky1ocMpqsobHSso7d/X5PdWM4jK9kKWci8lzCr824hN
p4DyuJGY/FwxEFxLOFXOsYi6KZqdX07RQvbXnKj3QjQQkxT7+6WBNOw01J2+
R0kFh2I07yIeSsCTFZiNq8JA5ZPOMzOHAsBPR91g940aPgh2iWGxUhAmHXPL
++QKMW+iL3lWMYK/RYOWyBAO1sPN98bPEEAyburDm9rPSHFfQYztTj/q1squ
Tn20iZYvU5rWG7HDTV8HyYI3jejsIYdYXdsaChHVgbj7WDjdqZr/u14YbP3W
Bd/NU0L9g5z7uGpxkLN/910uiRJYgpXt7n0Th3jp9brFxjVEz2iIZ2JjhXmv
ub6W5klEs+ueVNtMCnn+onq4CxNoSUNAruAFFtR7DH9Wza8iBqUnPAxYFnjT
rGF7I7EImUZY/8glm0I2d+lidjI3USEXveH0Khu8f+ZfY11OBalJCxuiVZKg
+SGUI+3lJOqjCqCgPiIHX2GmXH/MH3TddUtUuq0XXXiVN+ceu4IS1mh1LAvp
Qe56JtWIPTk809MXtNMQhUdukuTGYbuoQQRXNHyDC0r2rlTVVu6ix2FxZ1MD
OeGbbQf7iA8VhF8f6HHbkgTTmQ+9j/jJgOb25luvTAIYg7++3k9K8PqZJRFk
IgHxfbYst/OpQUZb5EdwihSYrEfwPd4cQ0ULFl/irEhBu+0bR3ssCTjS3n4s
EskPxtZK4rKSy8jbnuz0vig9PGsJtDkO9ciav0DCcaQP1Yjc4a98SAJFugUX
AjkEgZfS7HkDwwai5dXjFiFjB7mL9v5fdqjBPm9IQjBOCs6f9kkzh1IUY2E+
LPx6HIXuJnpqstUj1/I5Mrb0IeT5xMna4/4B4hDW9fh9mQcKbvvOZ3CRwyXF
j+4n9ghwsejA7Q/XNEq7Sf3TJAcLmnXOS3GyzWj5yoHIEvkyqij77N5n+wFl
ZVjXXgiZQizzmtOCxP6XaKQqOONIgOPjZfWclfvoiO7kSkIkD9Sp5V6tiK9F
d875+T7f/ofoftSx/We5g5LxVR1FjJxQY7pndU6GHALrxzLvPSYA7wLhccf4
EUKsdJc4vPmhMM0s8Mr5dXTuoiEjJp4Vupzk+Sp7KOHO6UT5GUNx4P43/CKJ
swOtOvFIrZFvoQz0hKAIOLjhdXaq/K4IqH08cS3IiBL2Qm8T2P+KQe95HuFU
bzwY7nM/PxwUhye3z+xsjJLC23cNL80jhCDS1rlSMXUChWZRHONNIgNb/faF
xuFRdKT4ZXhxmxSGnpj/yBofRvd/lI7/riSBtc+PqCxT9xH+vMeLT/I8MGaz
fXadEw+r40ckj45JwHz7d5VevWpkoGaET5IfR3ecDn4VMs8hMgGNpo1b1FCc
/bErELuKLOQuWwvsMEIP0zvR2vg1JFiOTTq9xgyp1hTmARt4yBt9wJJaLwkx
1WUXJytHkf/Tl5Wu7kfo75AdfDIgBVbVPcY6e0GI406tw7vgwGfzUZWAvzBc
ouO8ZnK4gPSUPTh3Y6nh64Zv9fopHGTg/yQaGIhAWEMz1ffPVCBImaS7+lMK
LoXJB9vvbCHl8udT+sycIHzhUWaqxwTaqSG187hJDr9zx7mamA6Rbn4K08Et
PhCNW9VvPD+NKnZ+MLXPk8NemYPu3194WDj88ZA9SQJUWzz6bkcS53NP5on7
A25wanaOliGdQXwhpuFYCzyscebuaNAB+oJpRHfLRtDHieiQFHMqQFXTzw99
JAAT/PFt199WVHmn3LHPfhMZvBmgKCLOvWGM42QZjSA4NcSNLGJn0Z6OuMFu
Ch6ODW7fbpHaQ+qOchFJDzjhVvV6Y5lwNNo9b3vUd7YFdV5d8X+tvIW0Kkht
TTnYIX3nmYlE8gqSX4tjLPrECMN5UfFwSAH3dqt3tI/EwEp1RLarcQa1Zn5b
TbmDh/jbY9sVL1dQaMQIo3cXAziUX+L9tzqEpgvMo5ZkDtCtugi/+hoKOCXh
t5+HE4fZU8Y0O277yPn4R5c6dV74YtdlatJHCUyX7z2KqhGH0b5fm+PXqOHK
FXu36EgpELxJGh1ng4Gle029Ee4CUHIszPKe/i6a0aw8mSHPDUGE05LfLhOr
KPZlZGH1PLIttbrc/o8MNt0DTXvxBAjoT92UNFxGYWlZTvy7DJB//9n1AqtV
ZL5bs6O+xggDcy3xqtpUYPvqfFBgmgQ0ekZ5PLIcQL4suzK19/bRZToPbpSN
BcE8/WMvTgsDS/XSVUO7HiRbcLUo/OU86r8hP19QtI6s0tqVCyLYwCi5omoY
9aGx9Ak3plMbaGF463TO0wOkf43/zoMeXqA/8UKR+2gR6Vbr7nxSoQHNbkYx
tl/UEBvr+kmnXBJ8+p4F3/T+irj/bu6K/uxDUhknDWxstpGnnb6MvQInJD3E
2oiZUMCHvy/cq0ZEQSKQlBefSexD5aVtnkni/9/PG125iYFfPf7Hrr0RhPXc
CN5r03jYy7iyOucpAT8oxxxrviyh24ouI/44Is/W383bPd+D1NKLIweVV9Hl
PAv3Mi8SYIs7/3y9gR9W26l1Q6c2UdzueI2CFysY/dUubs4g9ufwyoX0vyLw
SHZROuzjIhouPN4p2McA4ZXJ/tF0q+i9cnj2K24mOJn8niYzshyVX2YYfZfz
DWUFUmq6RFIBi+CVbf4ySVBcNXSodaeAf0X1Mtl6YuDv+l9w0PghWin2vq95
nQcybSounbxEBaqNBZvCrFKw6KMp3tswjs47x2/zxxD7oyF5KOgrJdiF5W1a
yYhDyBPnU627xPstsHnszFM6KOWk7GGuP0Th93+8pPTnB8WbPoeRRM7pCtC6
ML5BgCxzqZu9tOvoK4OnfokpK3gEvB66HEP0r+CylA8/ROCsHaGiMegIVdVO
ZwqF8cNzoxz2R6Jj6MI1FrPtj1iQPZ3XUGyPg08zYskpN0WgnrGiU/jEBsqq
WntVns0ESVH/lKp0yeD5+ty5wSsEmLceZobTOyiJIknm0SAnjL/9u8pwmwxe
uJxZn6MXhWNan6jCzEjgve8X/5QF4nkXjqPGn95D+zZkvNvTXDBj1TeSIkAK
Gr5XH3yOFAIu1RzXy4ubSGP+dWSaAweksX7nXSYdRCYzh2K9N7cRL2uQhZ71
ElLqrK9y4WAAu5TNaguGERR4mnKgS4sUkpTAoip5GJFIfxCmWcHAxQlOE9x+
LyJXSckgEHNgws8x8erkAboY5HBlqYIXEj/EX3vuSQJ5J/Iq9UoE4KXqty/H
JTcR42f530FRrEBuaL0z/H0d3blx70+xCTscdj63s+kdRkKOZvoppRhIbAMZ
9z1S+K/l3fATE2HwUnnM5nZvGdHcCsk0f0oP3g253C+3KIDezvS8yENxoOyb
kxXNwYGF5zmB8+siUMN3P980jRoKxqtjhlmkoY37qUTZ3CbKaGIkuzTLDt5K
h1dpyEeRlvQ5Pu4/5JDcusqO3RpALRahvZQf99Fcl1upd8QayoqXG1A6wQyz
rsshRRqjSPApywvMPeJznaJlYzLCgleQ75P3d4VhWvZOCVfbPlJXEwjLVeSB
3mYQKfqKgzt+xypcXYl+b5hkNXEXB0/L1V9tHROBQ0lcl+QDPGx0Lb329pCA
1JHXq4xFGFCLjtkuXRWE3YNoZcIKGex/v0qt/pwAy1O/g5n11tC3xLIXJj5M
sKKkGGdDRQ0/GD1sTVMkYXTpt7yNFwZiz6s9vjcvAF30f2yjHKjhlObbEPZc
SfDLe87moIqFbaWpq8zTwhBx3MXmgWkJ4sy28gkyGUOrEF67IoGHx1In7/n6
SUAmT0ayjxnRk6nx1c2JksBazqEW9p0EbBzM+5ja+OHztrtR+u99lFzsN/jx
GC/cY/B673CCHLKipGB7VRR+e/IzOF/HwgIdgzJrugiUz9JdfDZPBk966776
mhHg8yVytl8DFEA7cFb4I4s4IOuNqScIDxi5ALvHQhKgMZgQFqN8hCQ9Y06e
bOcHW/clEpJ5QDw5gncabnej2NffVkqscZD947v9UbwI9GWKKJpcwsJe2AgH
HRKCVQ6OjtTTZehzVqjIkewcGgq9PvhUjQSWvYuf9HAKgKqZP2n8SQr49RTT
9m5CFM7iTvz4q40BczK2XjpLQYi9pTdS5k0Jk6pPbywdikM6VvJ9mS01XJ4j
DLgESMKmo/0qxoMU+L+Kv7m6KQid/U8vTRI54WmwxdLNB1Kg8FnyKwdxXzrv
PD0uBTPD+AuayDJaGhAeGy1yqZOENlvD/VIvCshfsJfb6BWFP4/eW4r/HUUk
26feJZaSwjHBp/as0uQwyfIsXYV433lDCSe2nEjhs1PjY0FyIfh0LvpszD8q
6LCPXS0uk4KkLuWpV2H9KDaSBMPuuI1sresTqNX3kM8Zxka905xg7/rm3pO/
68i+OtvAb4EZtoQ/PHKwO0LlVMK9Ld68QOEWk34z6Q+Kdnj+mIt7A6nZ0o1H
Enn7ubb7jmKeAIRca+dIvb2CfvA1thQmMhB5R+vlTf1t1BFcGHf+FAc4Z31O
7CLeC+2xMfnmbX5Qoj+hLuf0A41GW869ChhDgUp32tLTYpHeFd8wI8FilH+P
EHOkjoP4Pw8u8bOLwKkeZWb2SHLoC1GqFHssCp85MCUnUyhAMCqNJjNKDMLa
T23JEPOkguwkNT5OAP5w82f/yN1DHIpTqRN4HljScTKh5yeBFtvr471+AvAr
5SGK6FpBeMZ1tohvjJBHxRKsE0QKRpuabnq1gpDQkyOvS0EGxVXnjKllCWDY
L0THzE0Ke5a2M+02QpB2KrLORHMYcZsefmBS3UVNlhxulI0U8LI8r9CqVAzi
56793t3eRwf4yUppI27QLypSzErZRnxi3zT/veOEd+IpAwWfNhGfgxyLJxsb
OHaYZDQUbyJ3V/qp3VY2CCjtqpN1xMCG3Av8Zokg0NxXNLHWPkRj+WUOczp8
8KBTXc/RbAcJ7Bd8IFvkhBV8wF/tt1iYPe74snNGCG4dG/xLS+yrXhuv95Gn
BMAxz8zY4/4uerOZLTJrxQUSWCOtyLhw5LxWeepbdhu6wkQdKrO2hprbZfuf
czND3WRBxtPSLvSOMfKFUNM2ir6wybsijAeDb/95PE+QgC7zijNPw8lh4kw1
NuetKFhVxgkuJJJBKnn7okIGAcbl9v0KKkjh+fb736LvhSDqWPU/4Vd4aK7r
lbr6Shz6KtQHrEJ7kdMMycu3RD6S+htulbdFCRiLkIK1/8SB0ZYqAse5gkqN
Oc9QvmWEqWdro3KPdlG9hAr2JxcPpF7w+/rdCAc9JzK5ZPAiwJjKVJJftoYi
n3IcLquxwIuWD4zTsuPI5CEbxXVeLKyeHMgv/o6B1ww3vycuCcCq+G3jwq0N
dFIoZUeHyCOOK2Phv0y2UR6+7vOSCDvkN8grNN3CwYS+q6X7jjC0FPiQT5GT
wKFPNegx8sHkN5X9phwScD87tt9Rzw9tHxO3PY6XotsbH4NiRgrQNEUp4VMl
JVRhw296m4mDet2fzOdkA6jyrScvxofIs1ayKt7FK4ijBHX2BzLCQYAdRcQ0
OUTXnPrziFEMGsQJVneiV1HfcIXCsSQmYKKZXCh+vIW8bMbjfrCzgarpOk+p
/TTSoLXe6eGih0RqnVkWYt68c38zJNYnBJSF/tnGzBPI7aHgSPYGBlqoPrK2
G2Mgv2ya/Ol5QRCLl6QVs1xFrAcyZme5WCCJNblc6mQ7sj2clWq5sITG+V2b
FCex8HIg8rcMqzC82WCblf5LCfVulzryDSSgbu9G3gv3RcRPNlwy+oIalvO3
XZYJpHCGt/za/SNBePD2ZlKo3zKSCqhM+czKCF2aDLTjDIfoJXPpiatEf40U
pINeIo+4DEuxTf/hAh1MONvZsA200X3qykAuC+RfW5LWYqpBn/8SUmXTJtD4
A+otFf4ZlE7BXdl0ihK+PJfawR4UIoXUtYrAxz+QXnPUZETGCAqLTl6BgEN0
2dTxgkcQNch435a9niMJASGDtPQwiTyahQcThPBg5ml2KTuVEh5nstoZeYiD
uURs/DXHI9R0LebYeicv6Cd3/ZatI/KAFovZ00lW+JRX3OaqRw6VTxXrPgwQ
4JtzN5fqCBYw29UEgyFhsHDg4hzFrKFfAy6PjgMLnFe2FczY2ES2NUEEm2Q2
aOFIqIrhJAE8llviizwfeJeqTEcpraN3p/5jaNJghUbeVl2ahG10UvpFvALR
r1ipI89k+pBD/M6/wvhRAnz6fQPZnSOeP8eyxx8jBICvzqXLSegQkXaWJLMr
8IDY5D+trPZ0dDWldtuGpAf1ZNfcMhZbR5E7ubvRxP1uTl+Wnvq0jSTM8xPT
ajmgrIgzZ7N/FW1eqmRr72QAaU5H0XXTSlTLPDJ+HFuDyujXfl68NIjqjXt/
8s3uIpI/jDVHt4i9Q1cqYeUvBNoZmQGtZRMorVnmz8w7Yi5G0s+2Z5PB1whn
GUUDUaAt6NQuom1Dehxq9Mfr1tBBv/r+7AIFnOPBrn4k5uOiu8mbX2HUIMj1
nxiNkxQETWo/o+7Gg383K9uNHAmwwfXcu531v/cpYgIz08rxW8gXe9bAmJkd
uJsZv7MytKA0C5XWYcMdVEI2dNmX6MlBK2U9MT0E6CPPeKX1BAf3v/X2KIWJ
gBiz2JZ9zxK6W/LMQomOHqwjFw/XBTEQ3n3B/ay6IHjkxfLOluPg5Cw3n08Z
AWY4Da7tNZKCoUaS25ccIVBjDK+x+0ENA8PhgD5KQe9N9dkJTRwIMolI+0uI
wNT5C2ffWpKAKMUR1ZkHAvDh0lO2sr0NdINGpmTDgQ3ccurZbjGModQ0TdlA
P2Jvsq+IniM+/yG//tb1LknAdBgWXHg5h2obcsKDi/FA4vHy2+R1UkiwNrrL
YiEE3RK95q31wyhu55aLjjYJPLR98OXPIzL4PlZu4dskDLlHRo0bzwfQToh3
Rs3lAxRMwqh0YP2/+b4TTwq8iT9Cl5osm+s2+Ymcaf9mrWMQVewxqfQw76Pr
Nn/qnwyOoTW1L0LRQRgIEyH4aGWSEOfM8cv7oQC8yysxk2ChhkkG+lu856Rg
ct5/UFh7Fvkfcf3o+0AFZSnSBcFMlKCWGrKk7CUOaaqB0p1eP1HrLsv5fZp5
9JmCKfc4OTlcD2RLPXOMABKLH8hqsTPI2DnkcSEnHq41uwF7ySyKSheIscFR
AeO2+rBL3AiaVjpbtRhxgNi9UhVrMBto0ldFx+QNKzjL6ersmh+h6IBM8hsV
fPAcnWe3psDA8yInu4JyQYj89TyJf6oTUR5ztx3nHkOt/zT2WlEucrf2HjQo
HkY1qZmtWn+pIflR3fCgkDS8WFBpxhRuo1zvZx1T0hxwk6nm7b0/lNAvmul/
kU0CDGLEBjq4caCj+rbijr4waBZYYku71xD/635eEnJmsLpedXDMrQvl2vxm
he11pKDkUyMdRw7LN1hC5sxEIZF2g1ljjAqMuE6YlY1LguyYwBvzxgPEP/yK
UB3AB5YbEWdTlshhIKfSTGVOFF51Tc0o8y4h00t10uc9aKG3Ye203BAGXvHN
VJo1C0IVmWXRm8xdlBKTIDTFyg2TIqOXGHQ30LPP7cosGyxAc4HxY1PKGjoH
qgoDL1jA3eGp6jQGA+ck0g2LmwXgvcLdEd2rq0hWvFBcrZkJCF0ZvitX8ECH
o7zQwSkBOWZ/WGelqcFeZqqbkVoKrgd72ZvMzKMPA9WVf6tpYXtjoo+thgQ8
bs3/3LwgAPfJhylnGLCgmVuhkCMkDCeMzXw5NYn7KlANBmAGpsngBM+IHVTs
aHY7JJUTtizeW2cSeWqsSrVZQl4IklRGfcRkMEDKO9yqwigAuP0Xk6a+W0gm
kOnZzyk24I1S7W1pWkGzyganKkQY4G4MzeR5/AbaeXbN4lCOmJ9D9/NG93Hg
dmbUuH5FBF6o+jENRm+i5BN63ZLE+/fWPSqe+jMWmr0nUis2hSEqs6dGI6AT
bWRQhHbRbyCS5tpzqQbzaG1z7eWbcBpgnGcoVxOmgWMi1bZn1KQhKrnV9V0A
GWSS9ev4mRBgQeGqXIwGCdBhHpAWCQvAGnX4sXhin1c51pL7LTGAQohf9YuL
nUgqjzUtynMeTRn6vQtlPUCpGpizpixcALsnpWpPt6PLdy/p8n6eRRmtZ+Q7
h8ihTfftcApODM7pyz8NFcCDlPBrTQdPCbh/JUl7um8eMdRf017Oo4bF1JCB
m/a7KN6xWDuUjxN0FHITpHFTiL85qdHmNA48qQFn77SK9q7IFW19Z4D0JZlX
29EYmPyjKPzJWBDmbryiu/4VD8kG0dbdDyVg65VAPnlSMwp6ePnhRtYa6v3I
cezvURu6LxFI4I5cRB1igqe0shdQJb+h4lwzNQQWUJ1YTN9Glzk6mw432OA+
aZ+izHYxekEVrL75bAg1HUt5ykLag1rGPy1nLi4jSx1sJaP8OPpIoiZkX4sD
RdczUrRcWJBwFWwyqxSCdSdL09i7e6i0TTU5/RwX8FHwfBH3HUemSEUnRAwD
2q8/2i5LEP0pckQzylYSokP/s3TLyUNPF39y3c+bQPavmo5+CWGg+6L40z4n
QZD9/Z8XGRUlcJo+n/gZLQZndRe+70a3IWeF64AncmWzv4IeSdw8wjinxVol
U8NXVhkYs9lCNhN1khSGbLB6NWTouPcSSn7Amly/Rg1K4cX6Ct2UkGsrvYpv
FIeHGP6IPUFKILik9jeRiENXl5LJVOEO+j07xLOpxAk592KfLPVtoj5xRXmd
IjYYdf8V+hAzjZIKv1pVz1JAaupumbE4BTDmL0uI24iBsVSujWH4CJrq/I1x
OySBDHTd9pzCNuo91bGUH88B8puYepVYSuCpPSuhmCMGA/k4vmZrMlDNUiSx
5xWFj8xtiSHve1Htd28H56UJVCLYONWVfYgCXaKpq3ECYPfyN90Z1w7kMKTp
UWG6hiq4TdlT3In9t6Hk55klBKdk+L11iL7AMmLo6/6cFz6Jx6bFvTlA/y5S
iT+8zws0Xwyn7oeRwiMa37lqoo+8bOXzYOL/iUjJXnBdS5hGnpHvCxUN8CC8
f99MlF8CuluGdXs355BimA756zxyUPoM6LfFPqp7XXjJIZUb7suoKN44t4P4
VnVu1hDzlrD0AEUy4eHfCQX5NB4JkF69g+PKwYG5on2VvK8IeAvIdJeMLSOz
v89yvC8yggChLdK9FAPxMsWc/zUIgnNzuFUNDgOVuzkJf/UF4dZrZ/4/p0mB
g9YP09EiCDPBFpaRRL/XfJ2TJ+glAM8f6DUMJuAAF79r4XlBBC4WYSo4gzeQ
xmyg1n8LLDDc8qhCMP9/76f3mXZDM+9sITH1B36TzRygG/DGQVAMB8fMPsdM
EvmCHuff+ihvFh32sPncy6cCrc6Ar0+/bCJRudKgDE42cH3uD3Giu8jnwnDA
kxouIHmT+lufZh2leRxO+lExQdVeNQuGgxqc3FrHvM5IwvhJ7IML1AeIksuw
M1SBF5guMb5dicDCfY/kpnexQiCTyfJkvWkGEeXdKaCaApRU6c5if+Jheqf1
WNYTSVDuHk53bKIAw1yX0hc9YnAtW21ozJMcuAtkv/e7iULsq2m3h6IYkO+l
9vTIF4ASr3fKnWqUIC8ylorPEINLv4Ntn8zuIUWZJrU4OW44SepanXBnBwE7
0zbPDQ6QMe9p85Whgh+lXetD9pJQJdQ/Mk+5hRhOlCedbGGDr/5V13+bksLV
qtuDv3yEofZN+EsrVyxoHXJw+toJg6h9VEvKzwg0o3KVdESkBf3LifreI7mC
xnHKhV+s6YH/X7ZOdu4mOhHGPWd0kgN4PH/R0Nt2ITK9hMGMgC2Urpesoke9
gjRTG8i1DRjB/T5537jyDtLymrWbPssJElpnT0Q9H0Wjkpe/3xskhXuVeV5M
/OQg4Gv07MYyAaZGDV9QcFKDaDnz4ywtKbDv8Ek/lbeBRC7+p25ewAbpGOpp
NmLeJPSq8GSnS0GlnnlpSTAeFFPkYpqYJcHbnD1DXr8fzTwOLt/c2EU3352w
oMdQQZARpyA5SIDcQb9CDM0eCg6Kujetygvs+m5tihlUEEG7s3n3pBTwxs5N
qRH9cC4u81larTg4iL8WMoqjAKPYNhP6E+JQZdzFUBxLAhKMynTP0gTgz2UF
q1Q7MnD3FvS6Ek6AwwcJlDqfv6PaexmnnUcm0KUQe93ZjnUk/tC/RSuJDZpO
KwjWam8iVkJq4i0adugpGPI2IJ6TS4J5upUDYvCoi2Q61uAfinegxYibkEAA
VjWJ3ucB+u/stNW+VDPqdgmVzN4fRZtcAz1WJhj40julc404v3C7Q4xuNgFG
/xldDdAmg0aO9/IUfARwDpCYVBAeQqINWuYrViSwhbX4Z7xADmKtnKPq4mKw
JOvwJz6PCto1dD8/TZcAPgvKls4Pm8jC9f6XzxzsMObHyLTRvILuFQUUGXox
QoC97BX9sTUUlOAUWTbDDKYnMia1FvDAV/jj/HqoJOgsezQImFAD0u8PT/ST
hAKHlcPwR7sohMygLHmcC94dZtxmCiSDZcXYYx+PEyA6Qaff8isW+FcNVxOe
CoOSj+gJUUMqoJfhNJ9vkoTc4BTyZ7dWEOWI7VlTom8fFeLOWnquIBusBsZz
kwkefvuefjrgf3mA+RUW5MOFh/UNG+n6EXGg8MzaO3uBBPLPTZMqyfGBY3Pf
sTNm9YgiyPjXJ84R9KcvvfDqe0r4V7/waSNBHPZrXcXkRqhg9lXfUwtnKRjF
VsyNJWHhoHG9vxwJg6og81YoLXEvumej8VL8UHN0o2vu2h5SSUz7suTBDSr/
jkn3nF1AVDncOQw1tBBMfn10OxwH0pZuSkF9IhDzPB1NdGCgsZ9lLmhHEEIl
Wv4zdFtE8Ru/Z5SdGCDIBWcvZbWI3rjeyeLKpAWn0wHkuMuA0hP450rO9qOn
GqVn+Dup4b/aN8svbkuB7LVH5y4Y/UJx7cJ89a+nkTnJjKtrDzVcjzM6HN2W
gr2Nca2Fj6RwUstmcPYdsc8nX5K7Ej3mhgu58Pl5CbDSPpKxV99Fa5oR3Gb9
XBAlZ8ra0kMOIY4nZnLyReH9h+b8vU8LSLH11MccM3pgp3+pr1eTjdpcq884
sBdq7JK5dTtuDqNbp5K0Wq9hIexiZRADNQXYJ/14SM0lBk/iPiYf6K0hQWZS
1h+lzGD8scvt7hweIt3ufgqlkgRTrz7eZwzEc7x5HhOtLgA6akzFT/RJQLKz
T90+nBc8/nl5PMjHQplZp2BlnTDorVVoZgY0IgtZNUs3/CLa7VnAibduo9Kg
FhzdPw5Q6VXxUJWcREFJ9udcpY/Qvg6FnCsXOaR/S1T+QSoKgh19Uz/88PD1
8/nHQVISULiHO8SqHaLsgH6vC6v8sOOneUV4ggzMrr0sSeIRhRx55r8jlyjg
rXDaPeEzojA6/kFD9XYPEqC2xlzP2EBTS1a2pd4r6Nt6sUP0CyZoNaxkY8Qs
oH/TZU5Xq2iBzOpq7yGeArJKeOV9+kUhyEyEYTN/E92RvIWpiWEF7YHu38dF
VpD85WOZtuIMcHqP5bIRCyX4miRn0EUR57f3U13dZQNptkkVXrrOCi56a1lW
VbOof9U07OEHathS/0b3Q3gEWY1LjNSfJwXG3sNHNHcpoO3cVPV5EAOtf1jl
2neUwBBS0VOwK07Mz+9CwzFrqClZ7Lp0CTN8mxlyE1ahgizhdsvBGQn4NcnF
MvhpDy3YVzkt63OB7FUz7grifqqPWV9sHRYAFdrjO8qJlGCqtcr3u1scfGRD
rn1uJgeVuSb+08xicMbYGRHpCI3m2oV/0ThA6UdU9WO3tlFUbsFv8lPsUBzL
/bmC2De19I/pdRyFwbbIRDPx4xoStq3+TP2P6CNPd3LCLm8j7pB6rRkdNsAO
atJZaZABDYUhy5wHASYaudJxxtRwRWPiZ3+eFFjdYBS6c7CP9iMWAm3e8cKe
+6txQicZ3AoSH2fII8DdimmOj7Yk4GbMcJr6uADcU3ScGgymgqGanPn7wpLA
MlzcGCpFCZrPSV+4fBIDDSwmsphrFdlo1daf+koPlLL3kSSRx4/Kz+/WR0mA
uSyF2c4ENYhkkJOI+0oDw/VvYvNzs+gWVsvZx54KdDL5Czw0NtBSdv3xIAYW
CGYwHOXbn0bdi2Fn5mupYGXBhOQDfhwpPzR+guHBwY9wvEyZGg5qCb+b+T6I
AN1DCm6noDdIJPqB6FBzO7rqu+GPUxhFwlmC0SvEPejS0pDuW6yhyYX3mBVN
ZmCutJp8vDKGrrSQeLLkkIBcmjVm8zglrCf/wuhIikPPTMlxVasNJGH2PUDr
NCtcTrwV0nacFM5ZGjeMOgrBmM8u5U3CEaoaEkqSJhcAwYIxFH4eB+euGip4
lQvDx3ON4cXr84iRAyNS0kIDy2ZmQ7rrq+gya5GfoDcD0AfrkVDl7CPmtbv/
vbrLC8uPx7Do7RhyuX3Te76JFH5cx11jdaOAixbox5UvYsDzckbqVEwngmsR
lMpFi+i+70QnaSw5LIoOtpzwE4UPxoS2YSoyOG5iT0urToAvQmslS3bU4Jtg
nL/4VgquuvZ4nGKbRfmdfkKKYng4H02+dvT3CEkvqfqsk/LDuIJchOyHHeR9
FJiivsMJhRjxOwl0ZBBlFj+4+Js4X0fOzxJnjtBpsjtSz3F8wKyw4tEXcYjO
DuexkmF4Yd4ovvSzEQVIz2Ta7VCLQWdUR5dyPylUxNl91AoRgvuUoUKp3hRQ
ajL98meYKBQ60GAC6WbR36rRPQ9lGgiJFaq99gwHIQx7ne/cRKDqbD+Hm94m
8pD5vh60zAacPsdoZJ5so6Jp7TmCOgdEDB5KHSdMoR8/o5FuByVsnX3dfLKD
FAYlMxhbdYVgUkW+4bvwNCIJ8KA420gGZfw47bq/f5Cxfm1OzdIQWvWMGh0+
uYvaL4or313jgBhr7jMBvqOoY3a4sEH2EDEfrajfWceA8paHJMsrITB4OyD1
ewYPfwgWYaO3JeHf76/RbOmkEPjrjYSbhRA83+c88hVaRM4tid/7qmlgN8Gm
KVsOD6zCvUInM8VBVHzF/QU9JdxgkjFwSxEDp8zMMnMeCvBUnVY3nhSFx1+d
hI81riElriV0XpgFKJ7sHRcaHUE9IyT7nDakMJfSplj3Yx9thChk7n7hBkJ8
06za7gGKvZb0Zi2DD/QYG96OKawgxTeilft+jHC0JfXngLEHrd5vmdLnXkN+
8ld4m1K6UH8KjkKwYBMFEU5zRasfoDcuS8yOUdyQgTWtbyaMI9Ic7T/lQAo+
FFUOyp7/+z76roD1fmRhI1JYc9cnr1hBHSTmyx2cOHhOE/Lj5nVh4Dt3mvma
8R5iko/a31Hjhqb68YVNZ1KolZnaWFkQhAyXu8+nSHBg5J4aJj5JzK8JrD9f
Bg6atEfUOYxFgJb8mLA9KSmsKI6ZSIcLwgLj+4lXxP7RzXgWy6YhClrv1ldy
jyYQPu2/T5LPsIC7z9/Sq0QC7D/SxI1PCoF1Qo7Cc0dyuEGp/zLAShR2BGRy
82ZJIK520EeX6M/s1ab8nVWryEv/N6XxMSawvhiTPhlNAlbUNg/flglCzrmI
Zb0nGMg2Eim3nheAJDNB3EcbHHilK3o7d4iA5TYHxYeqI8QpFdSTtMYHajXZ
b5NUBpCjOYYiqmkXYcIjwz51UsFXpeKmuu8SwNDRwH+pjQS6NzrORwYKwpmX
G9rzgbvI4BPzgyvZXODNx/kzsogKFPneTQatSoCfUenNhdp5JMIaeqvXggao
a+3jC19vIaMFofgAam7A0TdvtUtTw+wbp45H5tKgKXYLE22Ih1Hd2wyyaRKg
3cg6KUD0k/e994VXw4TAza5cbyiBHB653F1xbiIA9mp5cZJDN3LnPYq+KbiP
ni84Djhn/o//jO+uvVA8TgW8pK/xHjFEX1OM4kB604iVVEOsqYUCYqMnhSk1
cGDw95tpU58wnOnrbw3PnUaK4qH7mTSUkHddqXAzkAR6Gc+wrRJ55G33owQz
jjVU7Xz/3qYHM9DQZDnmaM8iH6IJF9/Fg2D/3fWbqzhYKjgZsRpPgNY5RlXx
KSwYs78SVx4Xhu1S9xf28Z3oo9C5jEzPDWQXE4MlZaGGxstudy1nJaHH5Jja
BiM5tJH+q96tIYB79/qR2U1KuMIeSD3LKA7ikTq1CbWTyG/Q0CdBHgeJfKQU
llZLaDVB7pTlJzrQOEEy9JucCvxoaG890JCAO9d/k2FfUEAafesFPVkx4I0L
u+V8fhhZWjuXTWiQgl1M9AmzC+1ovE7glLLbOvo7YhLcyTGCXD7RNNmrkIFb
b3IbzmESVS39Y1KMIgenuXnV6lQyWJmY/RrbToDjL3EVe7P96DJ3ajE2YAOd
FTYev5pOBScef6A7flUSzIQechsUYaGOUUHB00AYvq3w03g076GCX0qyZFVc
MDQ9lPVNihreEMQmGauloKPJkaHtCRm8+o7/VBhIgMRn45FN/3BgavuZdbRT
BMIH5ZSbMyig/nAwv1JUHCL1eNK8aDbQ1bGHHSIxLJBx/yPTVVlKWMQk/LdI
5JuLVwnI8ysFsLkzUOO3RWFQJsP1rM4RSpqeZoxY5QWyt60LeWd2Ed76Gau2
OicIPxWiiJOkhvVPoYkGLFIgpGXRUJJIBs1c9uKJogS4shOg1xi9h4xJDyJv
LHOBu5U8864SOWz9jfBOxooCQekL9qL9NrIqrIH/JtjhBGHiavXxEZSoMnea
XhdD5P6PDUUv21El14c5gtAyMuDqC+kd3UO0qffePFnghnutfR66Mguo4k+S
1XEcPRQFtP5tnB5HhBPvMB0ROMjpP7lRbk8CF2jkmmlVBaBBTv/9rk43+pPD
+talbQtl10//on+/htp1uuIz8xhh5izjkmLbNOp4vczc6EIO74r+w3eq4CCq
8U7oIy5hqBs0/ipC34lSl4SHTzOuo3S2Z4FK38jgyolzm+Y+oiCb/uNIO2QF
TRi+F2uUY4A2j1wppVUyeP+em2rqiyg04aqDzcowQCUy7xhEJwhBukHs5ky7
6Mk03opNkxvsqL5vGa1TAvWWl/oqhThgeY5OfpjcQDpNY4kntthAe+kGC4Mh
Fsztbnzi5ROGu1YWuwobB8iyyDI33oYP7GW3uWvNMJAoPDn345EgJJ0/OO7e
hYM4Tb/ntqsicKdkGVfZ8wuNFrhK67nOI1KtlogbhbnIxa1+7+TUFLrpq09r
f70bJSZFqT6sWENZs7HzvUo7yHh76q5MOQcE49WeFuRtIFLm1saHlqwAwSLT
P/W7kESaGe/XqCU0oP3lxQn8KnpRp7FVdI0RvgRkapSMDSNd3sMlA4VDpDqw
7RLJcYiMzPqOdXLzgNwV1Sr3P0dI+HSvtaaPAFxmo/T+54aHSwwGSd1En44S
XK6Wf03ME/En67VCAmAZqdFFJbmJHgVleT7CsAEvSbmcY90GYqXAu+NKWOFz
jWS6GScGAp2G/3rHCID8K4aChTgMTH2zpeT7JABbPj9P7dBto5MO3yJ5jzhA
aUhumorIf/8ijeINU7GQghuMM6QjhcLHIS+XFwVB573SXcNeElgwVS0WKhMA
m8/e67zn8FDcbfBAZEIc/h3tKskIUQG5B9cPrWoJCEyF53seP1C9L91g/tNx
dEkqpVaTHQNGFyxIznvww7rPXxUUPY5Gfj+WyviFgVaqa7pk2RgojmfebPsr
CC41xe2EEmL+8X9M+ZQrBL5vqNPfKNYjPQETjYDhMRSi2qufwrCBPGmqyZ18
WeFY8flzoi7E3NkjpBnfIMDzmAljqbED5PtKn//2Kx6ob7wZFDKwgwqjzXaT
H3JBl1qb4Z3XfUjgqMuTJmMTKSnNG/8l20HcJk/SK6y5QLXZYOeD8ghKmRCM
Z3YgB59Y7NCZnSPE66S2zaUvABHWhpwh6mNI9NzUzXdXSEEzgiFi8ykFHKh8
i70cIwb8Al5iXpfXEJUKD9uJOWboV3TLoB3AgPzhtiWzphBg3C0ef7bdRW07
N22udnNC79rg8nXdMlTLpzRvPz2CzvzZsHx3YR857tGf2bjKA35SPO/PZJIC
l7/TDxyx32POaLUfmSyiS6Ev7a/coIOLAZTHRQN20OJ9uSAWci7wzE3nUe8i
GlTi7DETDg7ARIdp+8oPI/r3NG+vHd9HDFMs/eRdZFDxq/RisjABPKOeDRRS
7iP1h/9JBofzgDCnt/WVvWVUVFoSReXDCFHCn5JoTqygt+p2UjaDTHA7NHP2
7dE4kicP/23gTQqJeh7R345W0Zt8Oa3La4zgM+zMHXdrC2EbetwPjVggP1ji
wrQpCQz/HQzX5OOHB/wuM7Gs2+jwk0xCAjMbnE851ylCv4e+CHAD33sueKbk
cmBNPIdDHEb+Mq+IfCSzWXGBcxvJahXzmMhwwAfxh6La7jhQKdbbMpgTgcro
u0YzDLNogf7Zp742Mrh/r03HMYQMnPiuLOuZEWAs4NK22mwNiiOd88Z5DSH5
F3VikREUcDu51jTttxi801o8ksjuR0WLEXtRgQfoFvmH1qnlXWT5Z0RjVIML
at7+TC47Qwl7c10GtFbicPf1oFf0mz7k9PZP6N7OPlKzSBZwEScHj0YHb2lz
UUg1oO+1mKOEMsewObr//15+qd11ZhwHuE9G6yEXRMD4H8tpjpEORBK1k5Yb
uIJwlSovVDoHkNy+rKkX0TM/CaUYXZY8QGuNT5WGurnh4prYt3COP+jwFON1
e+wc4uSO2MffIeYBZaXVUxcB+KM1m6lC9E/rb6y3ncbEQcjaPGt3CQtny3IX
lNgIUE971ovloBM5lkjH+aQuI9Gj1zxji/vIV6aLMraQFx4qVW0mEn3vbr/8
5YZWcbD5deuEmA8eBs6cYAyqF4fS7225oodYuL711MAgVxieLzZIzOlNILfu
8vhQVzLQXT3nJLNBDuXFQqry5ET/Jc3gk3+egIayDb5bPuxCf80dMjxItpGa
+6uNrBJ2GGHvUP7eTgI52p1G1xIEQCTROZTyKhlkttc7qK2LQOzDiycsDVaR
4vw+vzEzE/Cqb32e/LyCtihbKxyuM4HlJ1WRoW4siDHKCToXC4HU13XB+f+W
kdvArpXPWQaQepyuIlPyF8XclRe77Ei8h3Wvbhv/2kWdLGM2nXOcgME9artn
u4ii+EwwKZ1E3zovld5jTAYMK7HLV14T4Hfl8P2mXTLgULWlfVxGAFWPEf7j
ERsIP/9eXPElKxTFGdi1CeDghE63+/JXYXC+rcv6w+UH2lcxdabIGUZRar/0
V7PwEDj394kM0ffdFNxGvqY3odMWC1dcZKeQAzVjRZrdNAJRg/ZfxeQwX/qq
wI5iCq3e89pSeYkD5emNqzRWOHjadt7QqUMYJjQ6zjx98Rtd3SnYpElcRVwe
WR6xlsvI5kBeVi6WAU7cxY8LzFHBuTW67F9dEkBz4uN/Ib9WELf80BXVVgZw
jYxh9npSj1S+t78yFu9Gtzvf5i5RbqCs+invKH0WKKkd+PmZahjpbas7iXqR
ws/X+amNqpREXvL1jG4UA3bdkydvb6yg9hyRRawREzzTvrs1XocBt2yr/Jse
QlDwfsUCM7yJyMLuBvti2WFAEOvPmryG9Ayt25T9maCxDFNd4r+KDkYYGEpF
mOFUAZ6W8QElDIvYdb9fEIM3D8LTJhMGET25u+oMkftiL8fOFdfggGvezct/
WgTIPr0Tiju1iI6J01dN6tLDhYnKz1qPR1GRxaOPDZsYmGnXpDMYoYI1Zlqx
8QVJsBym/kF/bA9R2eY+PPOSB8a/J7KSGFDAX/I6kzfPxOBv2hsIdhpB5/yy
noX9d4SwX8l4Axnm0W1hpQ+GBDy4lHCXA+0GurJ5cb/IhhWck04VBKuRw4oN
TuvGaVFwrTYnC3dYQKV6CmWyRA6vTCZ43EisQ6Qr31pHGmaRROp7aSnfbfTN
dchfL4QdLIvqQjJeT6C95YcS2avk4D7eyXyI1tHLQbXPt2zYIC6g4LjVqy30
Kr3Bt12Vi8izXsec0TQanQ4ODgRy0M5q6yFh3EW5FAleuHwuGBTQbCnMpwbm
YmH7hUGin/SFL17RpIarXx2ZPvVIgZqaZeA162Z0pKfw7H78CmrrHUn417+N
Dn7VX/XqZwdG3k3G27mUID2RfZKzSww2VOU0+JvIgW4wVH+6WRSeSjZmUipR
gTvmWnmftQTIZw4GXJfEwgLNf0eHkkLwMYv+Jl6ECrTnWD1GDCQhO/l+zyvS
STT1ZzfCJwgLG9tiNwztS9BbITrt6fRxxCx+GOu1vY0M9CVN/2PgBF96ahkB
/5/oPIkGPRf7KHrXuV9sfGcf8cYxqWSvckNUmkZ/K/0cor8uJbl5lwpU6Gb0
fM1/IlFXs8aexEUUw57js9W7jaa9kyLN+NjBznjJSaCTDFwL3GSdyUQhxGt5
79aVj4jS+ZhrU+Qgmrm/nG+VsYxeRz9QmL3PCCfv2LyVoaSAPPWq07ggMfC+
xOf3GCZQ1yV/TGcTFjpfy+yf9hhFeU7t91g+YaH41/SaBJHHtD/rLYblS0Dz
s3q6h6ewUNqbT2d5RQioKvweyopvomtRXH1+dqxgxBOkmiK6jV58p2msHGWH
BBdvVslpEkCZDZMefwXgTfd4g35JA8K1xV749XMIKf/yInnAhIeEsinPIisJ
EI60i/djp4TrRZ+LeCPE4f8AC9Hr6Q==
         "]]}}, {{
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {}, {}, {}}, {{
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {}, {}, {}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"Distance from the reference point\"", TraditionalForm], 
       FormBox["\"Approximation error\"", TraditionalForm]}, 
     AxesOrigin -> {-4., -15.}, DisplayFunction :> Identity, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{{{-13., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "13"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-12., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "12"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-11., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "11"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-10., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-9., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-8., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-7., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-6., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-5., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-4., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-3., 
          FormBox[
           TagBox[
            InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-2., 
          FormBox[
           TagBox[
            InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-1., 
          FormBox[
           TagBox[
            InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-16., 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-15., 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-14., 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0., 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {1., 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {2., 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}}, {{-13., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-12., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-11., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-10., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-9., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-8., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-7., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-6., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-5., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-4., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-3., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-2., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-1., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-16., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-15., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-14., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {1., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {2., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}}}, {{{-4., 
          FormBox[
           TemplateBox[{"10", 
             RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-3., 
          FormBox[
           TagBox[
            InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-2., 
          FormBox[
           TagBox[
            InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-1., 
          FormBox[
           TagBox[
            InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
            NumberForm[#, {
              DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {0., 
          FormBox[
           
           TemplateBox[{"10", "0"}, "Superscript", SyntaxForm -> 
            SuperscriptBox], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-5., 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.698970004336019, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.522878745280337, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.3979400086720375`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.301029995663981, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.221848749616356, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.154901959985743, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.096910013008056, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.045757490560675, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.6989700043360187`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.5228787452803374`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.3979400086720375`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.3010299956639813`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.2218487496163566`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.154901959985743, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.0969100130080562`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.0457574905606752`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.6989700043360187`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.5228787452803374`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.3979400086720375`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.3010299956639813`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.221848749616356, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.154901959985743, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.0969100130080562`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.0457574905606752`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.6989700043360187`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.5228787452803376`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.3979400086720375`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.3010299956639813`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.2218487496163564`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.154901959985743, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.0969100130080565`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.0457574905606752`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.6989700043360187, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.5228787452803376, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.3979400086720376, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.3010299956639812, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.2218487496163564, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.1549019599857432, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.09691001300805639, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.045757490560675115`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.3010299956639812, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.47712125471966244`, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.6020599913279624, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.6989700043360189, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.7781512503836436, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.8450980400142568, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.9030899869919435, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.9542425094393249, 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {1., 
          FormBox[
           TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}}, {{-4., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-3., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-2., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-1., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {0., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.01, 0.}, {
           AbsoluteThickness[0.1]}}, {-5., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.698970004336019, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.522878745280337, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.3979400086720375`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.301029995663981, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.221848749616356, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.154901959985743, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.096910013008056, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-4.045757490560675, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.6989700043360187`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.5228787452803374`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.3979400086720375`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.3010299956639813`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.2218487496163566`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.154901959985743, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.0969100130080562`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-3.0457574905606752`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.6989700043360187`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.5228787452803374`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.3979400086720375`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.3010299956639813`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.221848749616356, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.154901959985743, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.0969100130080562`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-2.0457574905606752`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.6989700043360187`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.5228787452803376`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.3979400086720375`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.3010299956639813`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.2218487496163564`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.154901959985743, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.0969100130080565`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-1.0457574905606752`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.6989700043360187, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.5228787452803376, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.3979400086720376, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.3010299956639812, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.2218487496163564, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.1549019599857432, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.09691001300805639, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {-0.045757490560675115`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.3010299956639812, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.47712125471966244`, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.6020599913279624, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.6989700043360189, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.7781512503836436, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.8450980400142568, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.9030899869919435, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {0.9542425094393249, 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}, {1., 
          FormBox[
           TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.005, 0.}, {
           AbsoluteThickness[0.1]}}}}}, GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> Large, 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           ((10^#& )[#]& )[
            Part[#, 1]], 
           ((10^#& )[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           ((10^#& )[#]& )[
            Part[#, 1]], 
           ((10^#& )[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-4., -0.0062180146811677845`}, {-15., 
      0.10444836981051145`}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {{{-4., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
           TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-3., 
         FormBox[
          TagBox[
           InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-2., 
         FormBox[
          TagBox[
           InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-1., 
         FormBox[
          TagBox[
           InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox[
          
          TemplateBox[{"10", "0"}, "Superscript", SyntaxForm -> 
           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-5., 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-4.698970004336019, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-4.522878745280337, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-4.3979400086720375`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-4.301029995663981, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-4.221848749616356, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-4.154901959985743, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-4.096910013008056, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-4.045757490560675, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-3.6989700043360187`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-3.5228787452803374`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-3.3979400086720375`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-3.3010299956639813`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-3.2218487496163566`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-3.154901959985743, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-3.0969100130080562`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-3.0457574905606752`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.6989700043360187`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.5228787452803374`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.3979400086720375`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.3010299956639813`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.221848749616356, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.154901959985743, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.0969100130080562`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-2.0457574905606752`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.6989700043360187`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.5228787452803376`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.3979400086720375`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.3010299956639813`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.2218487496163564`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.154901959985743, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.0969100130080565`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-1.0457574905606752`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.6989700043360187, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.5228787452803376, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.3979400086720376, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.3010299956639812, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.2218487496163564, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.1549019599857432, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.09691001300805639, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-0.045757490560675115`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0.3010299956639812, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0.47712125471966244`, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0.6020599913279624, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0.6989700043360189, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0.7781512503836436, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0.8450980400142568, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0.9030899869919435, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0.9542425094393249, 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}}, {{-13., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "13"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-12., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "12"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-11., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "11"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-10., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> 
           SuperscriptBox], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-9., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
           TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-8., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
           TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-7., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
           TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-6., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
           TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-5., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
           TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-4., 
         FormBox[
          TemplateBox[{"10", 
            RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox],
           TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-3., 
         FormBox[
          TagBox[
           InterpretationBox["\"0.001\"", 0.001, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-2., 
         FormBox[
          TagBox[
           InterpretationBox["\"0.010\"", 0.01, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-1., 
         FormBox[
          TagBox[
           InterpretationBox["\"0.100\"", 0.1, AutoDelete -> True], 
           NumberForm[#, {
             DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, 0.}, {
          AbsoluteThickness[0.1]}}, {-16., 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-15., 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {-14., 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {0., 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          TemplateBox[{0, 0}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
          AbsoluteThickness[0.1]}}}}}],FormBox[
    FormBox[
     TemplateBox[{
      "\"Approximation error in the energy\"", 
       "\"Approximation error in the gradient vector\""}, "PointLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.809266678114402*^9, 3.8092667132823257`*^9}, {
   3.809266753916422*^9, 3.8092667879011765`*^9}, {3.8092669154953985`*^9, 
   3.8092669233746176`*^9}, {3.8092669815061426`*^9, 
   3.8092669886450386`*^9}, {3.809267019698294*^9, 3.809267057317271*^9}, {
   3.809267176804257*^9, 3.809267227063611*^9}, {3.809267310952651*^9, 
   3.8092673316739497`*^9}, 3.8092675342228966`*^9, 3.809267718998705*^9, 
   3.809267846981637*^9, 3.809267899465972*^9, 3.809268040990075*^9, 
   3.8092682272070837`*^9, 3.809268362713831*^9, 3.8092684181748295`*^9, 
   3.8093261977281823`*^9, 3.8370612859220753`*^9, 3.837061483467415*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"21344373-7e7a-4b7f-a6fd-cc556bced2b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Determining", " ", "slopes", " ", "in", " ", "the", " ", "above", " ", 
    "graph"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"fit1", "=", 
     RowBox[{"LinearModelFit", "[", 
      RowBox[{
       RowBox[{"Log10", "@", 
        RowBox[{"errors", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], ",", "x", ",", "x"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"fit2", "=", 
     RowBox[{"LinearModelFit", "[", 
      RowBox[{
       RowBox[{"Log10", "@", 
        RowBox[{"errors", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], ",", "x", ",", "x"}], "]"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Approximation error in the enrgy decreases in order: \>\"", ",", 
     RowBox[{"fit1", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<Approximation error in the gradient vector decreases in order: \>\"",
      ",", 
     RowBox[{"fit2", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.809326178068516*^9, 3.8093261950317183`*^9}, {
  3.809326231909095*^9, 3.809326290598632*^9}, {3.8093266543166633`*^9, 
  3.809326776545718*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"e652615f-7c38-49b1-aad6-8d7fb3064aca"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Approximation error in the enrgy decreases in order: \"\>", 
   "\[InvisibleSpace]", "2.9198170317794587`"}],
  SequenceForm[
  "Approximation error in the enrgy decreases in order: ", 
   2.9198170317794587`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8093266901294346`*^9, 3.8093267256282816`*^9}, {
   3.8093267739425616`*^9, 3.809326777530083*^9}, 3.8370614837381787`*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"211855b1-6b6c-47cc-97ab-34a155ad7fce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Approximation error in the gradient vector decreases in order: \
\"\>", "\[InvisibleSpace]", "3.988156653471113`"}],
  SequenceForm[
  "Approximation error in the gradient vector decreases in order: ", 
   3.988156653471113],
  Editable->False]], "Print",
 CellChangeTimes->{{3.8093266901294346`*^9, 3.8093267256282816`*^9}, {
   3.8093267739425616`*^9, 3.809326777530083*^9}, 3.837061483745291*^9},
 CellLabel->
  "During evaluation of \
In[28]:=",ExpressionUUID->"df3cfc46-969f-4df5-a537-da2eaff0ffb5"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1273, 776},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
Magnification:>1.3 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 508, 13, 113, "Input",ExpressionUUID->"01696a08-0039-45c8-9856-ab0e9deb1a94"],
Cell[1069, 35, 7369, 170, 813, "Input",ExpressionUUID->"01a923ba-d455-4ca8-bda3-b5fc044bee07"],
Cell[8441, 207, 9745, 275, 538, "Input",ExpressionUUID->"c5f911dd-ceed-45e1-afa6-e6ebf4f1dac0"],
Cell[CellGroupData[{
Cell[18211, 486, 2963, 74, 288, "Input",ExpressionUUID->"122b25db-54d7-421d-a746-07a678c8c636"],
Cell[21177, 562, 709, 14, 29, "Message",ExpressionUUID->"846b65aa-67df-420a-b2db-86740d42f68b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21923, 581, 6925, 161, 738, "Input",ExpressionUUID->"9a46e70a-3c33-4d27-a178-6631328d96aa"],
Cell[28851, 744, 90945, 1717, 374, "Output",ExpressionUUID->"21344373-7e7a-4b7f-a6fd-cc556bced2b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119833, 2466, 1477, 40, 138, "Input",ExpressionUUID->"e652615f-7c38-49b1-aad6-8d7fb3064aca"],
Cell[CellGroupData[{
Cell[121335, 2510, 540, 12, 29, "Print",ExpressionUUID->"211855b1-6b6c-47cc-97ab-34a155ad7fce"],
Cell[121878, 2524, 553, 12, 29, "Print",ExpressionUUID->"df3cfc46-969f-4df5-a537-da2eaff0ffb5"]
}, Open  ]]
}, Open  ]]
}
]
*)