orth10d.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[    272368,       5375]
NotebookOptionsPosition[    268887,       5313]
NotebookOutlinePosition[    269229,       5328]
CellTagsIndexPosition[    269186,       5325]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SeedRandom", "[", "0", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.808249437390602*^9, 3.808249468789117*^9}, {
   3.808249632175363*^9, 3.808249635636956*^9}, {3.808249765110931*^9, 
   3.808249766532976*^9}, 3.808254098303404*^9, {3.8082563792955236`*^9, 
   3.808256381597042*^9}, 3.808256704271912*^9, 3.8082567676558867`*^9, {
   3.808257135602641*^9, 3.808257140940946*^9}, {3.80825720411176*^9, 
   3.808257204717432*^9}, 3.808257874664433*^9, 3.808293009163722*^9, {
   3.808293569355691*^9, 3.80829356980971*^9}, 3.8083195815073442`*^9, {
   3.816823365459618*^9, 3.816823365783063*^9}, {3.8172867370346537`*^9, 
   3.8172867391812983`*^9}, {3.8408121208094063`*^9, 3.8408121210905905`*^9}, 
   3.840813073673602*^9},
 CellLabel->"In[1]:=",ExpressionUUID->"45e836a1-e000-4571-9880-9cea737766a6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "\"\<Sampler3`\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"STEPS", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CHAINS", "=", "3"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8168124021590147`*^9, 3.816812402159195*^9}, {
   3.816820205778687*^9, 3.81682020614793*^9}, 3.8172501919117117`*^9, 
   3.817285432667527*^9, 3.817435500804758*^9, 3.817435604876099*^9, {
   3.81744024760004*^9, 3.817440253709037*^9}, {3.820740856282202*^9, 
   3.8207409008730907`*^9}, 3.8207410047465763`*^9, 3.820741052776198*^9, {
   3.8207410968162527`*^9, 3.820741100943769*^9}, {3.820980551767469*^9, 
   3.820980563997992*^9}, 3.820980617916573*^9, {3.823756418630746*^9, 
   3.823756424005458*^9}, {3.830112106490539*^9, 3.830112110185746*^9}, {
   3.830112225007798*^9, 3.8301122717751417`*^9}, 3.8301123103879013`*^9, {
   3.8318681355310917`*^9, 3.831868136241496*^9}, {3.832296299563047*^9, 
   3.832296325010687*^9}, {3.83852739275846*^9, 3.838527396171302*^9}, {
   3.840779563262048*^9, 3.840779566979927*^9}, {3.8408103676709385`*^9, 
   3.840810368155196*^9}, {3.84081042060872*^9, 3.840810426607334*^9}, {
   3.8408104704156914`*^9, 3.840810476554878*^9}, 3.8408111788743734`*^9, {
   3.8418050430196953`*^9, 3.8418050474717274`*^9}, {3.8418063356485415`*^9, 
   3.8418063869332466`*^9}, {3.841806494209369*^9, 3.841806494678008*^9}, {
   3.8418065939406333`*^9, 3.841806619512684*^9}, {3.8418066622869616`*^9, 
   3.841806662849296*^9}, {3.841806769417779*^9, 3.8418067701207323`*^9}, {
   3.841807017057907*^9, 3.841807018729353*^9}, {3.84180751865545*^9, 
   3.8418075197334757`*^9}, {3.8418076141376753`*^9, 
   3.8418076177149467`*^9}, {3.8418078428852053`*^9, 
   3.8418078455094395`*^9}, {3.842840340000411*^9, 3.8428403420727468`*^9}, {
   3.843020901590493*^9, 3.843020904152385*^9}, {3.843021520371374*^9, 
   3.843021520855631*^9}, 3.8430218072117414`*^9, {3.8450885857512116`*^9, 
   3.8450885859977894`*^9}, {3.8489418598391466`*^9, 3.848941860022662*^9}, {
   3.848942696371207*^9, 3.848942698337946*^9}, {3.848970730658123*^9, 
   3.8489707319836636`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"aac9ca2d-c078-432d-afca-9e864ccd42b9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SIGMA", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", "10", ",", "10"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", "10"}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{
     RowBox[{"SIGMA", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "i"}], "]"}], "]"}], "=", 
     FractionBox["1", 
      SuperscriptBox["11", 
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{"i", "-", "1"}], ")"}]}]]]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 SqrtBox[
  RowBox[{"Diagonal", "[", "SIGMA", "]"}]], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"U", "[", 
    RowBox[{
    "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", "x6_", ",", 
     "x7_", ",", "x8_", ",", "x9_", ",", "x10_"}], "]"}], "=", 
   RowBox[{
    FractionBox["1", "2"], 
    RowBox[{"Simplify", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
         ",", "x8", ",", "x9", ",", "x10"}], "}"}], ".", 
      RowBox[{"LinearSolve", "[", 
       RowBox[{"SIGMA", ",", 
        RowBox[{"{", 
         RowBox[{
         "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", 
          "x7", ",", "x8", ",", "x9", ",", "x10"}], "}"}]}], "]"}]}], 
     "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"dU", "[", 
    RowBox[{
    "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", "x6_", ",", 
     "x7_", ",", "x8_", ",", "x9_", ",", "x10_"}], "]"}], "=", 
   RowBox[{"GradientG", "[", 
    RowBox[{
     RowBox[{"U", "[", 
      RowBox[{
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 
       ",", "x8", ",", "x9", ",", "x10"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 
       ",", "x8", ",", "x9", ",", "x10"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ddU", "[", 
    RowBox[{
    "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", "x6_", ",", 
     "x7_", ",", "x8_", ",", "x9_", ",", "x10_"}], "]"}], "=", 
   RowBox[{"HessianH", "[", 
    RowBox[{
     RowBox[{"U", "[", 
      RowBox[{
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 
       ",", "x8", ",", "x9", ",", "x10"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 
       ",", "x8", ",", "x9", ",", "x10"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dddU", "[", 
    RowBox[{
    "x1_", ",", "x2_", ",", "x3_", ",", "x4_", ",", "x5_", ",", "x6_", ",", 
     "x7_", ",", "x8_", ",", "x9_", ",", "x10_"}], "]"}], "=", 
   RowBox[{"D3", "[", 
    RowBox[{
     RowBox[{"U", "[", 
      RowBox[{
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 
       ",", "x8", ",", "x9", ",", "x10"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", 
       ",", "x8", ",", "x9", ",", "x10"}], "}"}]}], "]"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.808319417169717*^9, 3.808319426953169*^9}, {
   3.8083195116541348`*^9, 3.808319512297307*^9}, 3.8083195999310637`*^9, {
   3.814330433516584*^9, 3.814330446640849*^9}, {3.817440287245225*^9, 
   3.8174403199989433`*^9}, 3.817440673136303*^9, 3.81744086413822*^9, {
   3.817503864474145*^9, 3.817503908025481*^9}, {3.81750395539356*^9, 
   3.817504043249189*^9}, {3.8175040797242107`*^9, 3.817504129818478*^9}, {
   3.817504253290216*^9, 3.817504314357682*^9}, 3.817504422272829*^9, {
   3.817506453495331*^9, 3.817506515588607*^9}, 3.817506560648061*^9, {
   3.8175066227361107`*^9, 3.817506625250626*^9}, 3.817507141139452*^9, 
   3.832029041813363*^9, 3.838527436371852*^9, 3.838527548753686*^9, {
   3.840779432029445*^9, 3.8407794484632454`*^9}, 3.840811172360276*^9, {
   3.8418057845835667`*^9, 3.841805785083457*^9}, {3.8418058289986124`*^9, 
   3.841806018820402*^9}, 3.841806086823037*^9, {3.8418061963348684`*^9, 
   3.8418061968973303`*^9}, 3.8418062502751436`*^9, {3.841807381066459*^9, 
   3.841807389895855*^9}, {3.8418074440283194`*^9, 3.841807450276975*^9}, {
   3.8418074813475847`*^9, 3.841807482940955*^9}, {3.8418078598546057`*^9, 
   3.841807876444446*^9}, {3.8418079575345454`*^9, 3.8418079644080524`*^9}, {
   3.8418080033236895`*^9, 3.8418080855540257`*^9}, {3.8418082011085997`*^9, 
   3.8418082158760004`*^9}, {3.841808285468857*^9, 3.8418082867654266`*^9}, {
   3.8418089683433685`*^9, 3.8418089966177692`*^9}, {3.8418100852801003`*^9, 
   3.841810146301073*^9}, {3.8418101934939985`*^9, 3.8418101942438173`*^9}, {
   3.841810266563077*^9, 3.841810309755947*^9}, {3.8418196078691325`*^9, 
   3.84181963551235*^9}, {3.841821911584039*^9, 3.8418219120059543`*^9}, {
   3.8423375976092153`*^9, 3.8423376166986237`*^9}, {3.8424136414611907`*^9, 
   3.842413651641822*^9}, {3.8424139426879463`*^9, 3.842413945718592*^9}, {
   3.8425951986123714`*^9, 3.8425951990964775`*^9}, {3.8425953206715794`*^9, 
   3.8425953374958878`*^9}, {3.842720034675085*^9, 3.842720064587289*^9}, 
   3.842828066582609*^9, {3.8428397129333453`*^9, 3.8428397131347866`*^9}, {
   3.843018969009003*^9, 3.8430189695869617`*^9}, 3.8430816652221837`*^9, 
   3.8430818430314736`*^9, {3.843081885705332*^9, 3.84308188591581*^9}, 
   3.843081921109686*^9, {3.8430841212989445`*^9, 3.8430841215372944`*^9}, 
   3.8430841539179535`*^9, 3.8430850588133893`*^9, {3.8433528912335787`*^9, 
   3.8433528935235367`*^9}, {3.8433529477864714`*^9, 
   3.8433529772364206`*^9}, {3.843353522617175*^9, 3.84335352434713*^9}, {
   3.8448354502928543`*^9, 3.8448356268010197`*^9}, {3.844836002317313*^9, 
   3.8448360850203357`*^9}, {3.844836181864067*^9, 3.8448362109895277`*^9}, {
   3.844838833014307*^9, 3.844838836931977*^9}, 3.844841112731256*^9, {
   3.8448411913625307`*^9, 3.8448411940032415`*^9}, {3.844841233740271*^9, 
   3.8448412362254496`*^9}, {3.8448412830525*^9, 3.8448412838061943`*^9}, {
   3.845088568583091*^9, 3.8450885689366117`*^9}, {3.845088621836038*^9, 
   3.8450886338368154`*^9}, 3.84508866856703*^9, {3.8459327853940105`*^9, 
   3.8459327865460496`*^9}, {3.8459329340827837`*^9, 3.845932936293355*^9}, {
   3.845932981880821*^9, 3.845932982155089*^9}, {3.845933363836052*^9, 
   3.8459333659054255`*^9}, {3.8459336371326237`*^9, 3.845933642607249*^9}, 
   3.8459336860459023`*^9, {3.8465289453341227`*^9, 3.84652894590823*^9}, {
   3.846532000416685*^9, 3.8465320305682936`*^9}, {3.8465327423202133`*^9, 
   3.8465327438780174`*^9}, 3.8465335272570133`*^9, {3.8465344007792497`*^9, 
   3.8465344014717445`*^9}, {3.8489418884233685`*^9, 
   3.8489419172019787`*^9}, {3.848942095255129*^9, 3.8489421276782703`*^9}, {
   3.848942224315063*^9, 3.848942245347438*^9}, {3.8489423242551203`*^9, 
   3.8489423247763386`*^9}, {3.848942365713991*^9, 3.848942366506889*^9}, {
   3.848942464628497*^9, 3.8489424694956675`*^9}, {3.848942575869368*^9, 
   3.8489425997552223`*^9}, {3.848942666015644*^9, 3.8489426677119293`*^9}, {
   3.848942706861102*^9, 3.848942720757658*^9}, {3.8489430034373465`*^9, 
   3.8489430036071815`*^9}, {3.848956977971016*^9, 3.848956995771182*^9}, {
   3.848957080704894*^9, 3.8489570820710635`*^9}, {3.8489706656565638`*^9, 
   3.848970680525428*^9}, {3.8489707915245113`*^9, 3.848970792337356*^9}, {
   3.8491533559902735`*^9, 3.8491533766443987`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"b9b3fe6e-f312-47f1-8786-232c79fe6d00"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox["1", "11"], ",", 
   FractionBox["1", "121"], ",", 
   FractionBox["1", "1331"], ",", 
   FractionBox["1", "14641"], ",", 
   FractionBox["1", "161051"], ",", 
   FractionBox["1", "1771561"], ",", 
   FractionBox["1", "19487171"], ",", 
   FractionBox["1", "214358881"], ",", 
   FractionBox["1", "2357947691"]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8489426025933847`*^9, 3.848942671546382*^9, {3.848942703396655*^9, 
   3.848942722907362*^9}, 3.848942829010537*^9, 3.848943015662877*^9, 
   3.848957017168104*^9, 3.848957085102908*^9, 3.848970707353242*^9, 
   3.8489707661035967`*^9, {3.848970835830801*^9, 3.8489708505490403`*^9}, {
   3.848970914456676*^9, 3.848970941565317*^9}, 3.8489709886754885`*^9, 
   3.8491534659283504`*^9, 3.849162466176684*^9, 3.8491625960180187`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"20a2933f-fc32-4464-a726-b353373ed440"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SqrtBox[
   RowBox[{"Diagonal", "[", "SIGMA", "]"}]], "//", "N"}]], "Input",
 CellChangeTimes->{{3.840773518367429*^9, 3.8407735279617853`*^9}, {
  3.8418062077540145`*^9, 3.8418062232660537`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"da99e213-762b-4c24-af15-1c498fa89576"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.`", ",", "0.09090909090909091`", ",", "0.008264462809917356`", ",", 
   "0.0007513148009015778`", ",", "0.00006830134553650706`", ",", 
   "6.209213230591551`*^-6", ",", "5.644739300537774`*^-7", ",", 
   "5.1315811823070673`*^-8", ",", "4.665073802097334`*^-9", ",", 
   "4.2409761837248493`*^-10"}], "}"}]], "Output",
 CellChangeTimes->{
  3.840774008254961*^9, 3.840778842348008*^9, {3.8407794508271666`*^9, 
   3.840779455966586*^9}, 3.8407795252472177`*^9, 3.840779570327211*^9, 
   3.8408103051194973`*^9, 3.8408103714576917`*^9, 3.8408104330338297`*^9, 
   3.840810479366717*^9, 3.840811280006689*^9, 3.8408113387167835`*^9, 
   3.8408113799883833`*^9, 3.840811478700859*^9, 3.840812029815527*^9, 
   3.8408121243242073`*^9, 3.840812606932948*^9, 3.840812679654438*^9, 
   3.840813075657529*^9, 3.8418050508459473`*^9, 3.8418051674832*^9, 
   3.8418052122382016`*^9, 3.8418052809439445`*^9, 3.8418053214499507`*^9, 
   3.8418053737079887`*^9, 3.8418056259213033`*^9, 3.84180571483436*^9, 
   3.8418060471729097`*^9, 3.841806118114992*^9, {3.8418062020522137`*^9, 
   3.8418062402150297`*^9}, {3.841806345458686*^9, 3.8418063962904015`*^9}, 
   3.841806430224533*^9, {3.8418064750576344`*^9, 3.8418065001454287`*^9}, {
   3.841806600517084*^9, 3.8418066222150574`*^9}, 3.8418066843910575`*^9, 
   3.8418067878387947`*^9, 3.8418070312732763`*^9, {3.841807092618102*^9, 
   3.8418071124415135`*^9}, 3.841807268620556*^9, 3.841807395207095*^9, 
   3.8418074864869943`*^9, 3.841807522732607*^9, 3.8418076213390837`*^9, {
   3.841807862807028*^9, 3.841807881911867*^9}, 3.8418079696097975`*^9, 
   3.8418080121651993`*^9, {3.8418080532804337`*^9, 3.841808088600175*^9}, 
   3.841808156447324*^9, 3.8418082517581024`*^9, 3.8418082889055347`*^9, 
   3.8418086674493237`*^9, {3.841808971545592*^9, 3.8418090177221303`*^9}, {
   3.8418100978082485`*^9, 3.841810149597165*^9}, 3.8418101975086718`*^9, {
   3.841810276435729*^9, 3.841810312708369*^9}, 3.841818270769696*^9, 
   3.8418195939505663`*^9, 3.8418196394801545`*^9, {3.8418197037617702`*^9, 
   3.841819715462118*^9}, 3.8418197456620398`*^9, 3.841821275498319*^9, 
   3.841821368742087*^9, {3.841821444680805*^9, 3.841821471330825*^9}, {
   3.8418215123680325`*^9, 3.8418215490514903`*^9}, 3.8418216129427347`*^9, 
   3.8418216832434225`*^9, 3.841821713658154*^9, 3.8418217988869047`*^9, 
   3.8418218510309353`*^9, 3.841821914926998*^9, 3.8420693354810886`*^9, {
   3.842069376309746*^9, 3.8420694032253027`*^9}, {3.84206952794975*^9, 
   3.8420695516004853`*^9}, 3.8423372647103786`*^9, 3.842337359231823*^9, 
   3.8423374528757267`*^9, {3.8423376015926533`*^9, 3.8423376498938236`*^9}, {
   3.842413647166402*^9, 3.8424136574529257`*^9}, 3.842413706209156*^9, {
   3.8424138593771796`*^9, 3.8424139081819973`*^9}, 3.842413949998724*^9, 
   3.8424140002066183`*^9, 3.8424140485118556`*^9, 3.842414090411417*^9, 
   3.842414136264843*^9, 3.842414213938777*^9, 3.842595171646274*^9, 
   3.8425952022363605`*^9, {3.842595327716798*^9, 3.842595340354454*^9}, 
   3.842600116907176*^9, 3.8427200481909*^9, 3.842720081846768*^9, 
   3.8428135668055596`*^9, 3.8428136465217147`*^9, 3.842813762342836*^9, 
   3.842813845342249*^9, 3.8428279983338184`*^9, 3.842828069863003*^9, 
   3.8428281497849874`*^9, {3.8428282437316456`*^9, 3.8428282715250616`*^9}, 
   3.8428283203551407`*^9, 3.8428284022155914`*^9, 3.842828459045972*^9, {
   3.8428285036792793`*^9, 3.8428285302355323`*^9}, 3.842828683062028*^9, 
   3.8428288488333883`*^9, 3.8428289611144104`*^9, 3.842828992741126*^9, 
   3.8428290294878607`*^9, 3.842829077318731*^9, {3.8428291264997463`*^9, 
   3.8428291548212323`*^9}, 3.8428293054487257`*^9, 3.842829410209633*^9, 
   3.8428296231210556`*^9, 3.8428297448612413`*^9, {3.842830007935007*^9, 
   3.842830094903678*^9}, {3.8428301653714757`*^9, 3.842830192774476*^9}, 
   3.842830235045782*^9, 3.842830269709503*^9, {3.84283040291708*^9, 
   3.842830429103552*^9}, {3.842830482059876*^9, 3.8428305275022793`*^9}, 
   3.842830594505308*^9, 3.842830630012581*^9, 3.8428306644463005`*^9, 
   3.842830709793781*^9, 3.8428307418174973`*^9, 3.842830852060021*^9, 
   3.842830940870228*^9, 3.842831003214943*^9, 3.842831048789923*^9, 
   3.842831115852272*^9, {3.842831176928621*^9, 3.8428312056573477`*^9}, 
   3.8428312840646544`*^9, 3.8428313586451163`*^9, {3.8428314336151295`*^9, 
   3.8428314604213047`*^9}, 3.8428315195824146`*^9, 3.8428316031252594`*^9, 
   3.8428316950001316`*^9, 3.84283179668251*^9, 3.842833732272644*^9, 
   3.84283384958066*^9, 3.842833890448251*^9, 3.84283398640561*^9, 
   3.842834339477416*^9, 3.8428344023881283`*^9, 3.8428345037752476`*^9, 
   3.842834539141957*^9, 3.8428346038298283`*^9, 3.8428352707776675`*^9, 
   3.8428394751739664`*^9, 3.8428395757408295`*^9, 3.8428396347622547`*^9, 
   3.8428397160785275`*^9, 3.8428397599213896`*^9, 3.842839835635334*^9, 
   3.8428398749538765`*^9, 3.842839967427287*^9, 3.842840048071313*^9, 
   3.8428401651908555`*^9, 3.842840242638155*^9, 3.842840344880452*^9, 
   3.843016899243758*^9, {3.8430172862515883`*^9, 3.843017303266927*^9}, 
   3.8430180049478693`*^9, 3.843018116301386*^9, 3.843018631662936*^9, 
   3.8430189722269926`*^9, 3.8430191810931945`*^9, 3.843019241613795*^9, 
   3.8430203388755984`*^9, 3.8430207019826326`*^9, 3.843020863533249*^9, 
   3.843020909604186*^9, {3.8430209477982597`*^9, 3.8430209675435805`*^9}, 
   3.843021006506836*^9, 3.8430210532613797`*^9, 3.8430211304669533`*^9, 
   3.8430212677930665`*^9, 3.8430213481646223`*^9, 3.843021549630072*^9, 
   3.843021682542788*^9, 3.8430218096329036`*^9, 3.843021903881338*^9, 
   3.843080797624956*^9, 3.843081531566362*^9, {3.843081638750016*^9, 
   3.843081689235669*^9}, 3.8430817516935434`*^9, {3.8430818459375906`*^9, 
   3.8430818888052225`*^9}, 3.843081923517377*^9, {3.8430836263455296`*^9, 
   3.843083641554844*^9}, 3.843083692121623*^9, {3.8430841246038847`*^9, 
   3.8430841563554354`*^9}, 3.843085085474568*^9, 3.8430851214783196`*^9, 
   3.843085199232632*^9, {3.8430868147759504`*^9, 3.8430868444015083`*^9}, 
   3.8430870017613826`*^9, 3.8430871394127283`*^9, 3.8430871825039234`*^9, 
   3.843196974075267*^9, 3.8433263364298196`*^9, 3.843326375979635*^9, 
   3.8433276352616863`*^9, 3.843327676816004*^9, 3.8433279167983875`*^9, 
   3.8433281223505545`*^9, 3.843328226260437*^9, 3.843328273062622*^9, 
   3.843329171102326*^9, {3.843329310057688*^9, 3.843329336306964*^9}, 
   3.8433294295942764`*^9, 3.843329544053123*^9, 3.843329577650732*^9, 
   3.8433529143435583`*^9, {3.843352951746463*^9, 3.843352979626416*^9}, 
   3.8433532483276587`*^9, 3.843353458097499*^9, 3.8433535275071545`*^9, 
   3.843353597227128*^9, 3.843353710679614*^9, 3.843353777319584*^9, 
   3.8433539188919487`*^9, 3.84335403748454*^9, 3.844568627377505*^9, 
   3.844568714301239*^9, 3.8445688020642405`*^9, 3.844569119185997*^9, 
   3.844569160467536*^9, 3.8445692643386436`*^9, {3.844569411741331*^9, 
   3.844569433239775*^9}, 3.844569494561277*^9, 3.8448356409257917`*^9, 
   3.8448356991278286`*^9, {3.8448358108255167`*^9, 3.8448358331668386`*^9}, 
   3.8448360886621256`*^9, 3.8448361341623325`*^9, {3.844836188099186*^9, 
   3.844836213656756*^9}, 3.8448363407480164`*^9, 3.8448364914633107`*^9, 
   3.844838713584502*^9, 3.8448388441450634`*^9, 3.844838974911293*^9, 
   3.844839168825938*^9, 3.844839434824155*^9, 3.844839695696764*^9, 
   3.844839924284713*^9, 3.844840183186515*^9, 3.844840553186381*^9, 
   3.8448408358358293`*^9, 3.8448410674597635`*^9, {3.8448411154785614`*^9, 
   3.8448411553013787`*^9}, {3.844841196796488*^9, 3.844841238747655*^9}, 
   3.844841295071714*^9, {3.8450885776905317`*^9, 3.84508858842013*^9}, 
   3.8450886389476233`*^9, 3.845088670790506*^9, 3.8450888453535852`*^9, 
   3.8459326065123963`*^9, 3.8459327528423986`*^9, 3.84593278880884*^9, 
   3.845932938586872*^9, 3.8459329849424534`*^9, 3.8459333269172335`*^9, 
   3.84593336858327*^9, 3.845933557281503*^9, 3.8459336450171556`*^9, 
   3.8459336883450565`*^9, 3.8459339174719014`*^9, 3.8465288128036237`*^9, 
   3.8465288719465733`*^9, 3.846528914742838*^9, 3.8465289488116903`*^9, 
   3.846529022529578*^9, 3.846529067616542*^9, 3.846529121740415*^9, 
   3.846529169751582*^9, {3.846529207943014*^9, 3.8465292316077023`*^9}, 
   3.846529318553253*^9, 3.8465293740326056`*^9, 3.8465294613488245`*^9, 
   3.8465295306370015`*^9, 3.8465296308313627`*^9, 3.8465297623262215`*^9, 
   3.846529871850564*^9, 3.8465300878491774`*^9, 3.846530246081091*^9, 
   3.8465304655912333`*^9, 3.846530583100012*^9, 3.8465308235927486`*^9, 
   3.846531042792621*^9, 3.8465310926701713`*^9, 3.8465311462078094`*^9, 
   3.846531204684164*^9, 3.8465314574981203`*^9, 3.8465315089984365`*^9, 
   3.8465316077964993`*^9, {3.846531693222903*^9, 3.8465317179157715`*^9}, 
   3.8465318353520465`*^9, 3.846531913219776*^9, 3.846531967240836*^9, 
   3.846532004372154*^9, 3.8465320351199284`*^9, 3.8465320947836795`*^9, 
   3.846532216957611*^9, 3.8465322581551094`*^9, 3.8465323442031436`*^9, 
   3.8465325073247995`*^9, 3.8465326805200987`*^9, 3.8465327504174733`*^9, 
   3.846532923542731*^9, 3.8465329732766857`*^9, 3.8465330193272486`*^9, 
   3.8465331167241197`*^9, 3.8465331544325953`*^9, 3.8465331903211746`*^9, 
   3.84653323652709*^9, 3.846533271048812*^9, 3.846533529365591*^9, {
   3.846533684342716*^9, 3.8465337122300673`*^9}, 3.8465338354972973`*^9, 
   3.8465339497054615`*^9, 3.846533983108399*^9, 3.846534104198867*^9, 
   3.846534202058828*^9, 3.846534325742277*^9, 3.8465344045639544`*^9, 
   3.846534471339347*^9, 3.846534546853032*^9, 3.84653467617525*^9, 
   3.8465347948998203`*^9, 3.8465349122266755`*^9, 3.8465349654403887`*^9, 
   3.8465350101075335`*^9, 3.8465351519028444`*^9, 3.8465351823597794`*^9, 
   3.846535309246544*^9, 3.8465353631503496`*^9, 3.8465354124494514`*^9, 
   3.8489421491428685`*^9, 3.848942186373189*^9, 3.8489422605984945`*^9, 
   3.8489423276330504`*^9, 3.848942369414426*^9, 3.8489424722667475`*^9, 
   3.848942602757333*^9, 3.8489426717130013`*^9, {3.848942703527319*^9, 
   3.8489427230212936`*^9}, 3.848942829138376*^9, 3.8489430158168397`*^9, 
   3.848957017436861*^9, 3.8489570852500916`*^9, 3.84897070773215*^9, 
   3.84897076632122*^9, {3.848970835918686*^9, 3.848970850655794*^9}, {
   3.8489709145708027`*^9, 3.848970941653328*^9}, 3.8489709887595916`*^9, 
   3.849153466156425*^9, 3.8491624662995987`*^9, 3.8491625962988963`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"ea6f8627-88eb-4cc5-b388-c72882c49e10"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dKdq", "[", 
    RowBox[{"p_", ",", "q_", ",", "i_"}], "]"}], ":=", "0"}], ";"}]], "Input",\

 CellChangeTimes->{{3.848970906306204*^9, 3.848970908270934*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"b29abeb7-f628-4238-9d5f-4ba966b94d47"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"QS", "=", 
   RowBox[{"hmc", "[", 
    RowBox[{
    "U", ",", "dU", ",", "ddU", ",", "dddU", ",", "10", ",", "5000", ",", 
     "10000", ",", 
     RowBox[{"{", "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8083300207373047`*^9, 3.808330021545154*^9}, {
   3.808330057606822*^9, 3.8083300651679897`*^9}, {3.8084239541699953`*^9, 
   3.80842395728685*^9}, {3.8084239901973343`*^9, 3.808423995188442*^9}, 
   3.808424069693726*^9, {3.808424279402*^9, 3.808424280309854*^9}, {
   3.808424475946063*^9, 3.808424476285922*^9}, {3.808424556851679*^9, 
   3.808424559741782*^9}, {3.814329296202931*^9, 3.8143292994796143`*^9}, {
   3.8143295041114073`*^9, 3.8143295054599323`*^9}, {3.814329810538707*^9, 
   3.814329811379229*^9}, {3.814329988519002*^9, 3.8143299916986837`*^9}, {
   3.8143305561948767`*^9, 3.814330559434862*^9}, {3.814330647247871*^9, 
   3.814330648698496*^9}, {3.814330761246181*^9, 3.814330762762741*^9}, {
   3.814331829179998*^9, 3.8143318412578373`*^9}, {3.816820029273882*^9, 
   3.816820032992787*^9}, {3.816820354397133*^9, 3.816820365714497*^9}, {
   3.8168232128438177`*^9, 3.8168232191226807`*^9}, 3.816823302483911*^9, {
   3.817250728188867*^9, 3.817250735153274*^9}, 3.817251209164393*^9, {
   3.8172515707942343`*^9, 3.817251578534383*^9}, {3.817253057791007*^9, 
   3.817253059916018*^9}, {3.817440652184346*^9, 3.8174406526768913`*^9}, {
   3.817504347067464*^9, 3.8175044007622213`*^9}, {3.8175069155531683`*^9, 
   3.817506931370562*^9}, {3.817507457551218*^9, 3.8175074637568502`*^9}, {
   3.817507501262887*^9, 3.8175075272461367`*^9}, {3.817507561779567*^9, 
   3.8175075886919003`*^9}, {3.81750764435394*^9, 3.8175076452708817`*^9}, {
   3.8237564121436577`*^9, 3.8237564131344557`*^9}, 3.830112406886807*^9, {
   3.832023346481739*^9, 3.832023356466961*^9}, {3.832029094230179*^9, 
   3.8320290964168653`*^9}, {3.832029462117546*^9, 3.832029470132633*^9}, 
   3.832296187659807*^9, {3.832296239252947*^9, 3.832296255554605*^9}, {
   3.8322963299030237`*^9, 3.83229633284181*^9}, 3.83229641034589*^9, 
   3.832296454608801*^9, {3.832296498322076*^9, 3.832296500159094*^9}, {
   3.838527121487178*^9, 3.838527129028344*^9}, 3.8385272264975977`*^9, 
   3.838527366065442*^9, {3.838527452828074*^9, 3.838527456556349*^9}, 
   3.8385275422634487`*^9, {3.838528228323004*^9, 3.838528266447521*^9}, {
   3.8407739680721984`*^9, 3.8407739696187105`*^9}, 3.8408112452120385`*^9, {
   3.8408114061384697`*^9, 3.8408114237126036`*^9}, {3.840812488175477*^9, 
   3.840812624663289*^9}, {3.841806038393789*^9, 3.841806043376937*^9}, {
   3.841807260185065*^9, 3.8418072622002077`*^9}, {3.841807632242778*^9, 
   3.841807635570116*^9}, {3.8418181137901273`*^9, 3.8418181142431493`*^9}, {
   3.8418195861555343`*^9, 3.841819588983119*^9}, {3.8418197373477807`*^9, 
   3.8418197425221295`*^9}, {3.8418212579242935`*^9, 
   3.8418212636885962`*^9}, {3.841821527708317*^9, 3.8418215299890404`*^9}, {
   3.8418216083345733`*^9, 3.841821610396589*^9}, {3.841821695115665*^9, 
   3.8418217045353284`*^9}, {3.841821794762909*^9, 3.8418217953410025`*^9}, {
   3.8418218481723547`*^9, 3.841821871541855*^9}, {3.841822046261695*^9, 
   3.841822047948801*^9}, {3.842069330029236*^9, 3.8420693304978495`*^9}, {
   3.8420693647630935`*^9, 3.8420694006790714`*^9}, {3.84206952373199*^9, 
   3.842069548648167*^9}, {3.842337253681719*^9, 3.84233726122696*^9}, 
   3.8423373547641525`*^9, {3.842337449204733*^9, 3.84233745056382*^9}, {
   3.842337639786823*^9, 3.8423376468634386`*^9}, 3.842413703616016*^9, {
   3.8424138543158813`*^9, 3.842413905010866*^9}, {3.842413996082621*^9, 
   3.842413997707345*^9}, {3.842414044184737*^9, 3.8424140450127797`*^9}, {
   3.8424140874120865`*^9, 3.842414087646433*^9}, {3.842414122278944*^9, 
   3.842414133781046*^9}, {3.842414209580457*^9, 3.8424142105645742`*^9}, {
   3.842595158930546*^9, 3.84259516739741*^9}, {3.8426001132674484`*^9, 
   3.842600113439242*^9}, {3.8427200436816893`*^9, 3.8427200442318497`*^9}, {
   3.842720077336485*^9, 3.842720078664167*^9}, {3.8428135627909136`*^9, 
   3.842813563228426*^9}, {3.842813643428687*^9, 3.842813643491151*^9}, {
   3.8428137475182285`*^9, 3.842813749611457*^9}, {3.842813842514822*^9, 
   3.8428138430459137`*^9}, {3.842828146785694*^9, 3.842828147035638*^9}, {
   3.842828232484284*^9, 3.8428282634957304`*^9}, {3.8428282946134057`*^9, 
   3.8428283114353633`*^9}, {3.8428283936863475`*^9, 
   3.8428283994037547`*^9}, {3.8428284444244156`*^9, 
   3.8428284562030425`*^9}, {3.8428284865707455`*^9, 
   3.8428285248617983`*^9}, {3.842828679376136*^9, 3.8428286803151703`*^9}, {
   3.842829406554243*^9, 3.8428294069605427`*^9}, {3.842829738659577*^9, 
   3.8428297421120415`*^9}, {3.842830246746155*^9, 3.8428302665853777`*^9}, {
   3.842830421308514*^9, 3.8428304266510077`*^9}, {3.842830496728301*^9, 
   3.842830524502989*^9}, {3.8428306542768197`*^9, 3.842830662274938*^9}, {
   3.842830706826956*^9, 3.842830739349332*^9}, {3.842830806086615*^9, 
   3.8428308064771323`*^9}, {3.84283084318711*^9, 3.8428308489826226`*^9}, {
   3.8428309251553307`*^9, 3.842830938074049*^9}, {3.8428309973725643`*^9, 
   3.842831000356234*^9}, {3.8428310410105033`*^9, 3.842831056475647*^9}, {
   3.8428311053234987`*^9, 3.8428311127281446`*^9}, {3.8428315142086773`*^9, 
   3.842831517207971*^9}, {3.8428315967831397`*^9, 3.8428316004383936`*^9}, {
   3.8428316828311186`*^9, 3.842831687236478*^9}, {3.8428317868098326`*^9, 
   3.8428317932928233`*^9}, {3.842833721618902*^9, 3.842833728789093*^9}, {
   3.842833863218045*^9, 3.8428338702476416`*^9}, {3.84283397122165*^9, 
   3.8428339794228745`*^9}, 3.8428340778893127`*^9, {3.842834327058565*^9, 
   3.8428343363376436`*^9}, {3.8428345277541084`*^9, 3.842834534393077*^9}, {
   3.8428401604295535`*^9, 3.8428401624672117`*^9}, {3.842840238557994*^9, 
   3.842840240154443*^9}, {3.8430172895809207`*^9, 3.8430172930332537`*^9}, {
   3.8430192247271967`*^9, 3.843019229929088*^9}, {3.843020935707376*^9, 
   3.8430209381599216`*^9}, {3.84302112412471*^9, 3.8430211263116894`*^9}, {
   3.843021539648193*^9, 3.843021546224619*^9}, {3.8430216642971544`*^9, 
   3.8430216724828143`*^9}, 3.8430218813711886`*^9, {3.843080617375188*^9, 
   3.843080636947776*^9}, {3.8430816333072166`*^9, 3.843081635096697*^9}, {
   3.843081740993554*^9, 3.843081748290124*^9}, {3.8430818576657033`*^9, 
   3.843081864829067*^9}, {3.843082136077016*^9, 3.843082136410294*^9}, 
   3.8430841388108144`*^9, {3.8430851925519524`*^9, 3.8430851962499743`*^9}, {
   3.843086837994474*^9, 3.843086841177266*^9}, 3.8433282229017887`*^9, {
   3.843328267557907*^9, 3.8433282694318466`*^9}, {3.8433293041468153`*^9, 
   3.8433293338943624`*^9}, 3.843329534147857*^9, {3.8433295710625615`*^9, 
   3.843329575134762*^9}, {3.8433535932371016`*^9, 3.8433535946772313`*^9}, {
   3.8433537727296047`*^9, 3.843353774699587*^9}, 3.844569408518029*^9, {
   3.8448358042248645`*^9, 3.844835806706053*^9}, 3.844838546981146*^9, {
   3.844838595393461*^9, 3.844838605454103*^9}, {3.844841061727195*^9, 
   3.8448410637249355`*^9}, {3.84484112564672*^9, 3.8448411287572856`*^9}, 
   3.8448412094393167`*^9, {3.845088551900528*^9, 3.845088555512825*^9}, {
   3.845088809546076*^9, 3.845088809854854*^9}, {3.8465287251967087`*^9, 
   3.846528739728691*^9}, {3.8465288056427803`*^9, 3.8465288070340586`*^9}, {
   3.846529114279646*^9, 3.846529117941084*^9}, {3.8465291637977996`*^9, 
   3.846529166878932*^9}, {3.8465316893206377`*^9, 3.846531689703659*^9}, {
   3.846531736915019*^9, 3.8465317371298976`*^9}, {3.8465330108299246`*^9, 
   3.8465330128993626`*^9}, {3.8465332645715876`*^9, 3.846533266228161*^9}, {
   3.846533692815788*^9, 3.8465337061072035`*^9}, {3.8465339717249355`*^9, 
   3.846533975322338*^9}, {3.8465343572367697`*^9, 3.846534360659613*^9}, {
   3.846534538921303*^9, 3.8465345425468135`*^9}, {3.8465347881334195`*^9, 
   3.846534790958355*^9}, {3.846535338134053*^9, 3.846535341372508*^9}, {
   3.8465354014840703`*^9, 3.846535406008998*^9}, {3.8489421581385536`*^9, 
   3.8489421807544866`*^9}, {3.848942252495022*^9, 3.848942252669842*^9}, {
   3.848942422741745*^9, 3.848942427043209*^9}, {3.848942478946973*^9, 
   3.848942479514456*^9}, {3.8489428213290415`*^9, 3.848942825388419*^9}, {
   3.8489430100961237`*^9, 3.848943012639429*^9}, {3.848970693043109*^9, 
   3.848970698169097*^9}, 3.848970762243975*^9, {3.848970830875198*^9, 
   3.848970846094433*^9}, {3.8489709350050545`*^9, 3.8489709390698247`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"8ecbaa4f-6d9e-4355-98b5-0089406492fe"],

Cell[CellGroupData[{

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","1001","4.0488505997285295`*^15",
   "9.577911076445036`*^-20","0.000045399929762484854`","0.`",
   "4.412126545338385`*^10","1",RowBox[{"{", "1", "}"}],
   RowBox[{"{", "4", "}"}],RowBox[{"{", 
     RowBox[{
      "0.002430442096739797`", ",", "0.004305676431342455`", ",", 
       "0.000851855127950063`", ",", "0.0009370406407450693`", ",", 
       "0.00010464697253675069`", ",", "0.00003334375043029813`", ",", 
       "0.000014141005145095954`", ",", "0.000010624346465135951`", ",", 
       "7.2565715901481806`*^-6", ",", "0.000010624346465135951`"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "3.6808173937459345`*^15", ",", "2.7288813118496245`*^15", ",", 
       "1.9084545048565625`*^15", ",", "2.792996672634261`*^15", ",", 
       "1.9084524327152372`*^15", ",", "2.309198223798012`*^15", ",", 
       "2.3091989915384965`*^15", ",", "1.908452432104913`*^15", ",", 
       "1.908452432104913`*^15", ",", "1.9084524320323812`*^15"}], "}"}],
   "0.002430442096739797`","False","True"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.8491625986928444`*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"fc175277-3898-4fd7-a9e1-7dcda0194954"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","2002","2.899449042491806`*^11",
   "1.7334860205774068`*^-17","0.000045399929762484854`","0.`",
   "2806.8213972578756`","2",RowBox[{"{", 
     RowBox[{"1", ",", "2"}], "}"}],RowBox[{"{", "4", "}"}],RowBox[{"{", 
     RowBox[{
      "0.00007862281933640175`", ",", "0.00010464697253675088`", ",", 
       "0.00003667812547332795`", ",", "0.00001711061622556611`", ",", 
       "4.505760032628285`*^-6", ",", "7.367277700816571`*^-7", ",", 
       "7.367277700816577`*^-7", ",", "8.104005470898228`*^-7", ",", 
       "4.1586361975774865`*^-7", ",", "2.8404044789136573`*^-7"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "4.732088122786947`*^11", ",", "2.635862793969856`*^11", ",", 
       "2.0277971876299185`*^11", ",", "2.967564387212573`*^11", ",", 
       "1.843453378759692`*^11", ",", "8.470318813461284`*^11", ",", 
       "9.317256628042821`*^11", ",", "1.2401633340631514`*^12", ",", 
       "3.5383872048705586`*^12", ",", "5.698606988876715`*^12"}], "}"}],
   "0.00010464697253675088`","False","True"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.8491626000232887`*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"bfbbd5af-47e5-4ee1-82d5-99c207c2db1a"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","3003","7.215734416963543`*^9",
   "1.1147073539419691`*^-15","0.07870635316840176`","0.06465083806036002`",
   "14.077616533842242`","3",RowBox[{"{", "1", "}"}],RowBox[{"{", "4", "}"}],
   RowBox[{"{", 
     RowBox[{
      "0.000014141005145095959`", ",", "0.000011686781111649564`", ",", 
       "8.780451624079308`*^-6", ",", "6.596883263771078`*^-6", ",", 
       "4.0961454842075365`*^-6", ",", "7.367277700816571`*^-7", ",", 
       "4.1586361975774913`*^-7", ",", "6.697525182560524`*^-7", ",", 
       "3.124444926805026`*^-7", ",", "1.6033342791547435`*^-7"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "4.031053561991353`*^9", ",", "2.0412484232184708`*^9", ",", 
       "6.559758574953565`*^9", ",", "2.263589413655894`*^10", ",", 
       "5.339827827372975`*^10", ",", "1.3641533148731873`*^12", ",", 
       "3.2165696857058774`*^12", ",", "2.416727496672653`*^12", ",", 
       "3.8922259252630664`*^12", ",", "1.2215470173936764`*^13"}], "}"}],
   "8.780451624079308`*^-6","False","True"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.849162601415991*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"8cf455f7-6958-49bd-a8c9-f2edc4e5e3c0"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","4004","1.5460620259130095`*^10",
   "2.0601944429362775`*^-12","0.4049675704025664`","0.4371648667768654`",
   "16.44983612532279`","4",RowBox[{"{", "1", "}"}],RowBox[{"{", "4", "}"}],
   RowBox[{"{", 
     RowBox[{
      "0.00001168678111164956`", ",", "9.658496786487249`*^-6", ",", 
       "3.7237686220068497`*^-6", ",", "4.9563360358911175`*^-6", ",", 
       "5.997166603428262`*^-6", ",", "1.305158185093633`*^-6", ",", 
       "3.436889419485531`*^-7", ",", "6.088659256873205`*^-7", ",", 
       "3.436889419485531`*^-7", ",", "2.134037925554964`*^-7"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "2.7532638289157796`*^9", ",", "3.9778156949058533`*^9", ",", 
       "3.3156104725732246`*^10", ",", "1.5460620275579931`*^10", ",", 
       "2.4910690913115685`*^10", ",", "4.346612862106719`*^11", ",", 
       "5.180317644523594`*^12", ",", "1.500597634713506`*^12", ",", 
       "5.180552706519197`*^12", ",", "1.3437017191328205`*^13"}], "}"}],
   "4.9563360358911175`*^-6","False","False"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.8491626027065363`*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"9fbef24a-5ce8-44e4-9e39-2fc79f7cd41e"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","5005","7.937313809758326`*^9",
   "1.7011279223098866`*^-10","0.38173239858256974`","0.5354487290216836`",
   "15.34359302452774`","5",RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{
      "4.9563360358911175`*^-6", ",", "5.997166603428265`*^-6", ",", 
       "7.982228749163016`*^-6", ",", "0.00001414100514509597`", ",", 
       "7.98222874916302`*^-6", ",", "8.914406017988065`*^-7", ",", 
       "5.535144778975644`*^-7", ",", "4.5744998173352423`*^-7", ",", 
       "4.158636197577493`*^-7", ",", "1.6033342791547435`*^-7"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "1.6838711087238682`*^10", ",", "8.526801199637009`*^9", ",", 
       "2.4910672225234646`*^10", ",", "6.556812245278325`*^9", ",", 
       "7.937313825101918`*^9", ",", "8.470318811373715`*^11", ",", 
       "2.6583220543087056`*^12", ",", "2.6584002463489307`*^12", ",", 
       "3.8922259252640493`*^12", ",", "2.380449561247762`*^13"}], "}"}],
   "7.98222874916302`*^-6","True","False"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.8491626039532022`*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"913858ae-0be2-4998-a23e-a5513c400535"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","6006","8.470318811215796`*^11",
   "3.0601468029385494`*^-9","0.667910235907535`","0.5751963440817119`",
   "15.79182268444168`","6",RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{
      "4.9563360358911175`*^-6", ",", "5.997166603428265`*^-6", ",", 
       "7.982228749163016`*^-6", ",", "0.00001414100514509597`", ",", 
       "7.98222874916302`*^-6", ",", "8.914406017988065`*^-7", ",", 
       "5.535144778975644`*^-7", ",", "4.5744998173352423`*^-7", ",", 
       "4.158636197577493`*^-7", ",", "1.6033342791547435`*^-7"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "1.6838711087238682`*^10", ",", "8.526801199637009`*^9", ",", 
       "2.4910672225234646`*^10", ",", "6.556812245278325`*^9", ",", 
       "7.937313825101918`*^9", ",", "8.470318811373715`*^11", ",", 
       "2.6583220543087056`*^12", ",", "2.6584002463489307`*^12", ",", 
       "3.8922259252640493`*^12", ",", "2.380449561247762`*^13"}], "}"}],
   "8.914406017988065`*^-7","True","False"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.8491626050063853`*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"6847d478-e081-4450-b33c-6ddd3f5ee3ff"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","7007","2.6583220542969897`*^12",
   "1.9146491144164694`*^-7","0.6598382633469563`","0.5714845948133904`",
   "11.715606492264893`","7",RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{
      "4.9563360358911175`*^-6", ",", "5.997166603428265`*^-6", ",", 
       "7.982228749163016`*^-6", ",", "0.00001414100514509597`", ",", 
       "7.98222874916302`*^-6", ",", "8.914406017988065`*^-7", ",", 
       "5.535144778975644`*^-7", ",", "4.5744998173352423`*^-7", ",", 
       "4.158636197577493`*^-7", ",", "1.6033342791547435`*^-7"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "1.6838711087238682`*^10", ",", "8.526801199637009`*^9", ",", 
       "2.4910672225234646`*^10", ",", "6.556812245278325`*^9", ",", 
       "7.937313825101918`*^9", ",", "8.470318811373715`*^11", ",", 
       "2.6583220543087056`*^12", ",", "2.6584002463489307`*^12", ",", 
       "3.8922259252640493`*^12", ",", "2.380449561247762`*^13"}], "}"}],
   "5.535144778975644`*^-7","True","False"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.849162606044608*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"8fb2dbbf-b573-4336-a52b-098e8ab8b9a3"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","8008","2.6584002463323945`*^12",
   "0.0002822542818737737`","0.4603409569900581`","0.5009519417739828`",
   "16.535967709876026`","8",RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{
      "4.9563360358911175`*^-6", ",", "5.997166603428265`*^-6", ",", 
       "7.982228749163016`*^-6", ",", "0.00001414100514509597`", ",", 
       "7.98222874916302`*^-6", ",", "8.914406017988065`*^-7", ",", 
       "5.535144778975644`*^-7", ",", "4.5744998173352423`*^-7", ",", 
       "4.158636197577493`*^-7", ",", "1.6033342791547435`*^-7"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "1.6838711087238682`*^10", ",", "8.526801199637009`*^9", ",", 
       "2.4910672225234646`*^10", ",", "6.556812245278325`*^9", ",", 
       "7.937313825101918`*^9", ",", "8.470318811373715`*^11", ",", 
       "2.6583220543087056`*^12", ",", "2.6584002463489307`*^12", ",", 
       "3.8922259252640493`*^12", ",", "2.380449561247762`*^13"}], "}"}],
   "4.5744998173352423`*^-7","True","False"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.849162607107765*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"5c10645f-d18b-4603-9745-0da6acb538a5"],

Cell[BoxData[
 TemplateBox[{
  "     ","\"     \"","9009","3.8922259252440825`*^12",
   "0.009028426783095525`","0.13536917954474287`","0.1778259957944823`",
   "19.96703153117168`","9",RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{"1", ",", "4"}], "}"}],RowBox[{"{", 
     RowBox[{
      "4.9563360358911175`*^-6", ",", "5.997166603428265`*^-6", ",", 
       "7.982228749163016`*^-6", ",", "0.00001414100514509597`", ",", 
       "7.98222874916302`*^-6", ",", "8.914406017988065`*^-7", ",", 
       "5.535144778975644`*^-7", ",", "4.5744998173352423`*^-7", ",", 
       "4.158636197577493`*^-7", ",", "1.6033342791547435`*^-7"}], "}"}],
   RowBox[{"{", 
     RowBox[{
      "1.6838711087238682`*^10", ",", "8.526801199637009`*^9", ",", 
       "2.4910672225234646`*^10", ",", "6.556812245278325`*^9", ",", 
       "7.937313825101918`*^9", ",", "8.470318811373715`*^11", ",", 
       "2.6583220543087056`*^12", ",", "2.6584002463489307`*^12", ",", 
       "3.8922259252640493`*^12", ",", "2.380449561247762`*^13"}], "}"}],
   "4.158636197577493`*^-7","True","False"},
  "RowWithSeparators"]], "Print",
 CellChangeTimes->{3.8491626082267714`*^9},
 CellLabel->
  "During evaluation of \
In[16]:=",ExpressionUUID->"e36c0224-fefb-457d-9fa2-4f8ff7dac1b0"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"QS1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"QS", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "QS", "]"}], ",", "CHAINS"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"QS1", "=", 
   RowBox[{"QS1", ".", 
    RowBox[{"MatrixPower", "[", 
     RowBox[{"SIGMA", ",", 
      RowBox[{"-", ".5"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"QS2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"QS", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "2", ",", 
       RowBox[{"Length", "[", "QS", "]"}], ",", "CHAINS"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"QS2", "=", 
   RowBox[{"QS2", ".", 
    RowBox[{"MatrixPower", "[", 
     RowBox[{"SIGMA", ",", 
      RowBox[{"-", ".5"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"QS3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"QS", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "3", ",", 
       RowBox[{"Length", "[", "QS", "]"}], ",", "CHAINS"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"QS3", "=", 
   RowBox[{"QS3", ".", 
    RowBox[{"MatrixPower", "[", 
     RowBox[{"SIGMA", ",", 
      RowBox[{"-", ".5"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"BarChart", "[", 
  RowBox[{
   RowBox[{"StandardDeviation", "[", "QS1", "]"}], ",", 
   RowBox[{"ChartLabels", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", 
      "8", ",", "9", ",", "10"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.84484107463823*^9, 3.844841097001574*^9}, {
  3.8459330714662647`*^9, 3.845933075878519*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"2e810517-a198-4c46-8ad8-c903b244c9f2"],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], 
    PointBox[{{0.3479427549194991, 0.}, {10.453901197192788`, 0.}}]}, {{}, 
    {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
     Thickness[Small]}], 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{0.5460988028072107, 0.}, {1.4539011971927893`, 
             1.0598404157767793`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{24.17139208624627, 
            54.08939458136197}, {-103.38733618625487`, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0598404157767793`]& ,
         TagBoxNote->"1.0598404157767793"],
        StyleBox["1.0598404157767793`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0598404157767793`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{1.5460988028072107`, 0.}, {2.4539011971927893`, 
             1.0361116790303313`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{56.577125621490445`, 
            86.49512811660614}, {-98.94565696811976, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0361116790303313`]& ,
         TagBoxNote->"1.0361116790303313"],
        StyleBox["1.0361116790303313`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0361116790303313`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{2.5460988028072107`, 0.}, {3.4539011971927893`, 
             1.0684422163339689`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{88.9828591567346, 
            118.90086165185032`}, {-104.99746988960639`, 95.49959016371413}}],
          
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0684422163339689`]& ,
         TagBoxNote->"1.0684422163339689"],
        StyleBox["1.0684422163339689`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0684422163339689`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{3.5460988028072107`, 0.}, {4.453901197192789, 
             1.010891561338539}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{121.38859269197879`, 
            151.3065951870945}, {-94.22481262534946, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.010891561338539]& ,
         TagBoxNote->"1.010891561338539"],
        StyleBox["1.010891561338539`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.010891561338539, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{4.546098802807211, 0.}, {5.453901197192789, 
             1.0088968218579641`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{153.79432622722297`, 
            183.71232872233867`}, {-93.85142600173204, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0088968218579641`]& ,
         TagBoxNote->"1.0088968218579641"],
        StyleBox["1.0088968218579641`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0088968218579641`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{5.546098802807211, 0.}, {6.453901197192789, 
             0.9665382680079779}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{186.20005976246713`, 
            216.11806225758284`}, {-85.92251219750672, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 0.9665382680079779]& ,
         TagBoxNote->"0.9665382680079779"],
        StyleBox["0.9665382680079779`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.9665382680079779, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{6.546098802807211, 0.}, {7.453901197192789, 
             0.9951600862007985}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{218.6057932977113, 
            248.523795792827}, {-91.28010608928109, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 0.9951600862007985]& ,
         TagBoxNote->"0.9951600862007985"],
        StyleBox["0.9951600862007985`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.9951600862007985, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{7.546098802807211, 0.}, {8.453901197192788, 
             1.0322938333794573`}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{251.01152683295547`, 
            280.92952932807117`}, {-98.23101101512471, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0322938333794573`]& ,
         TagBoxNote->"1.0322938333794573"],
        StyleBox["1.0322938333794573`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0322938333794573`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{8.54609880280721, 0.}, {9.453901197192788, 
             0.9780190760967945}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{283.41726036819966`, 
            313.33526286331534`}, {-88.07155482208417, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 0.9780190760967945]& ,
         TagBoxNote->"0.9780190760967945"],
        StyleBox["0.9780190760967945`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.9780190760967945, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{9.54609880280721, 0.}, {10.453901197192788`, 
             0.9347468056654635}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{315.82299390344383`, 
            345.74099639855956`}, {-79.97160637770962, 95.49959016371413}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 0.9347468056654635]& ,
         TagBoxNote->"0.9347468056654635"],
        StyleBox["0.9347468056654635`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[0.9347468056654635, {}], 
        "Tooltip"]& ]}}, {}, {}}, {}, {}, {}, {}, 
   StyleBox[
    StyleBox[{
      {Thickness[Tiny], 
       LineBox[{{0.3479427549194991, 0.}, {10.656020366038254`, 0.}}], 
       StyleBox[{}, "GraphicsLabel",
        StripOnInput->False]}, 
      StyleBox[{
        {Thickness[Tiny], 
         LineBox[{{0.5460988028072107, 0.}, 
           Offset[{-1.102182119232618*^-15, -6.}, {0.5460988028072107, 0.}]}],
          LineBox[{{10.453901197192788`, 0.}, 
           Offset[{-1.102182119232618*^-15, -6.}, {10.453901197192788`, 
            0.}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
           LineBox[{{1.4539011971927893`, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {1.4539011971927893`, 
              0.}]}], LineBox[{{1.5460988028072107`, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {1.5460988028072107`, 
              0.}]}], LineBox[{{2.4539011971927893`, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {2.4539011971927893`, 
              0.}]}], LineBox[{{2.5460988028072107`, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {2.5460988028072107`, 
              0.}]}], LineBox[{{3.4539011971927893`, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {3.4539011971927893`, 
              0.}]}], LineBox[{{3.5460988028072107`, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {3.5460988028072107`, 
              0.}]}], LineBox[{{4.453901197192789, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {4.453901197192789, 
              0.}]}], LineBox[{{4.546098802807211, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {4.546098802807211, 
              0.}]}], LineBox[{{5.453901197192789, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {5.453901197192789, 
              0.}]}], LineBox[{{5.546098802807211, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {5.546098802807211, 
              0.}]}], LineBox[{{6.453901197192789, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {6.453901197192789, 
              0.}]}], LineBox[{{6.546098802807211, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {6.546098802807211, 
              0.}]}], LineBox[{{7.453901197192789, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {7.453901197192789, 
              0.}]}], LineBox[{{7.546098802807211, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {7.546098802807211, 
              0.}]}], LineBox[{{8.453901197192788, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {8.453901197192788, 
              0.}]}], 
           LineBox[{{8.54609880280721, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {8.54609880280721, 0.}]}],
            LineBox[{{9.453901197192788, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {9.453901197192788, 
              0.}]}], LineBox[{{9.546098802807208, 0.}, 
             Offset[{-7.347880794884119*^-16, -4.}, {9.546098802807208, 
              0.}]}]}, {}}}, 
        StyleBox[
         {Thickness[Tiny], 
          InsetBox["1", Offset[{0, -2}, {1., 0.}], {0, 1}, Automatic, {1, 0}],
           InsetBox["2", Offset[{0, -2}, {2., 0.}], {0, 1}, Automatic, {1, 
           0}], InsetBox["3", Offset[{0, -2}, {3., 0.}], {0, 1}, Automatic, {
           1, 0}], InsetBox["4", Offset[{0, -2}, {4., 0.}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["5", Offset[{0, -2}, {5., 0.}], {0, 1}, Automatic, {1, 0}],
           InsetBox["6", Offset[{0, -2}, {6., 0.}], {0, 1}, Automatic, {1, 
           0}], InsetBox["7", Offset[{0, -2}, {7., 0.}], {0, 1}, Automatic, {
           1, 0}], InsetBox["8", Offset[{0, -2}, {7.999999999999999, 0.}], {0, 1},
            Automatic, {1, 0}], 
          InsetBox["9", Offset[{0, -2}, {9., 0.}], {0, 1}, Automatic, {1, 0}],
           InsetBox["10", Offset[{0, -2}, {10., 0.}], {0, 1}, Automatic, {1, 
           0}]}, "GraphicsLabel",
         StripOnInput->False]}, "GraphicsTicks",
       StripOnInput->False]},
     Antialiasing->False], "GraphicsAxes",
    StripOnInput->False]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.3479427549194991, 0.},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Identity[
       Part[#, 1]], 
      Identity[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Identity[
       Part[#, 1]], 
      Identity[
       Part[#, 2]]}& )},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{All, All}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{{3.844841098237503*^9, 3.8448411682199497`*^9}, {
   3.844841210290468*^9, 3.8448412508035398`*^9}, 3.844841308852544*^9, 
   3.8450885787830296`*^9, 3.8450886615091267`*^9, 3.845088692787551*^9, 
   3.845088869400463*^9, 3.845932632845478*^9, 3.845932775615551*^9, 
   3.8459328111612253`*^9, 3.8459329604126387`*^9, 3.845933006201652*^9, 
   3.8459330776920495`*^9, 3.8459333483649273`*^9, 3.8459333929532022`*^9, 
   3.8459335799509325`*^9, 3.845933667633726*^9, 3.845933712428708*^9, 
   3.845933940942192*^9, 3.846528929147216*^9, 3.846528963176633*^9, 
   3.846529037617176*^9, 3.8465290818207035`*^9, 3.84653306421156*^9, 
   3.846533361991334*^9, 3.8465336192733593`*^9, 3.8465337544364953`*^9, 
   3.846533879715928*^9, 3.8465340473575573`*^9, 3.8465341686198435`*^9, 
   3.8465342669978733`*^9, 3.846534391404126*^9, 3.846534448168231*^9, 
   3.846534618422263*^9, 3.846534752539645*^9, 3.846534840096141*^9, 
   3.846534958265339*^9, 3.846535519948473*^9, 3.8489424332594285`*^9, 
   3.848942513939803*^9, 3.848942644747486*^9, 3.8489427879316015`*^9, 
   3.848942929545865*^9, 3.8489430815601745`*^9, 3.8489570222555857`*^9, 
   3.84895708590895*^9, 3.8489707195973787`*^9, 3.8489708372265744`*^9, {
   3.848970916759443*^9, 3.8489709542228355`*^9}, 3.8489710007493505`*^9, 
   3.849153479394992*^9, 3.849162468117632*^9, 3.8491626102716455`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"68dfeb18-968b-4345-ac91-4e498845f79b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"QS1", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"QS2", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"QS3", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           SubscriptBox["x", "1"], ",", 
           SubscriptBox["x", "10"]}], "}"}]}]}], "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"QS1", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"QS2", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"QS3", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"5", ",", "6"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           SubscriptBox["x", "5"], ",", 
           SubscriptBox["x", "6"]}], "}"}]}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"QS1", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"QS2", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"QS3", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"2", ",", "9"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           SubscriptBox["x", "2"], ",", 
           SubscriptBox["x", "9"]}], "}"}]}]}], "]"}], ",", 
      RowBox[{"ListPlot", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"QS1", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"3", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"QS2", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"3", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
          RowBox[{"QS3", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{"{", 
              RowBox[{"3", ",", "8"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           SubscriptBox["x", "3"], ",", 
           SubscriptBox["x", "8"]}], "}"}]}]}], "]"}]}], "}"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8450887068184433`*^9, 3.8450887797376337`*^9}, {
  3.8459331133968697`*^9, 3.845933137371792*^9}, {3.8459332176825266`*^9, 
  3.8459332376397705`*^9}, {3.8491535617493467`*^9, 3.849153565953003*^9}, {
  3.8491536167063627`*^9, 3.8491536850640507`*^9}, {3.8491624572286572`*^9, 
  3.849162461201193*^9}, {3.849162506323162*^9, 3.849162507356564*^9}, {
  3.8491626284126644`*^9, 3.849162628912685*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"5238f834-661b-45ab-9850-d3e4dfa7ea27"],

Cell[BoxData[
 GraphicsBox[{{}, {{InsetBox[
      GraphicsBox[{{}, {{
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt1Xk01eujx/FtbjgNokRJ86BJMzr17FSGMjQPUhQNKlFJJUkq1CFKRSUO
iTSIHEOhZxsqIuNWZEp7s83DZpvj/u4f9961vt+1WGuv7nqe3Xn+eq/Xf5//
PlMOWG85KM5gMNzkGIz/rsLJMtWlk2uA3PUNuw6VSLFQm5Fx8+XulucQV8fn
LNt3RbqM5hTWnLMKlh0QtdP+fFxsWfcNUK09wnPZVplubF16wZPjGZULcLWS
b7Ly0Bo2xNWP15SeyMoNJh7EF9WVAp8aF2DrmSOfrJquUkOzc3FSlMIFAbbu
6wGF9iVlALUP6OWol57gQqpry6+vWpMZidyTBA9gWUw+sZCW92p0u27dCKgu
KG6SC3YtQW7+RtVkT6YAUi2WMs4sz78JonYno295jEkPoPrYivneHqYC5J7I
CtZ31WqBVK99p2d+/1QS8SBuNzxSIcioBFRfbIe8gJutgFg4z5zuYWE4vICY
+P/VrPndfRp/F9Fsv6vNLim/AaK2yf7CWqOQWEh1sMHWYVWzqpGbBc/9lW6Y
SfMMw+oPXWubAa5+tcH1a9G3RuJBPH666WKdYC4QNctb7Tlsbf0JovaETg2F
AJ1Wmief37bCgFeC3JwH6dJffMSZxL+nnddHjnx9qAfg6gklt6aVdtdBXO2V
WngjNDZd5Ow4wiflHus2QO24tunFz1/WiZxD93oc4/E4yL0jah6/9GUrzZOc
IuI27+qBuDqBu3P67IAaYiE93+Ga2GtvPiAWbXc6mcydqv0GUN2X8SXt8Mos
iKu1l2aFT79fi9xWx46GJ8oIaN7zYHfmE712gNrMSbMOHLrdQ/Mj232NsxYU
QdSuVeZdTWzooPnKOIF6EO8r8SDOCYtdPr8+F+LqpPT3vLjdfEC1S1R5bCmv
nngQv/w25qx6US/NZy5tXmiby0HuLyqXNjR4lEPiX+ut6k8ku6bxsbW6ROSm
3d0FAFebP4JmJexw5Db78k4sR+4LzWmZdqBmVDm2nnpKObpvwRtILJzlGy8f
7W78RjyIi7c3qkos4QKqH8+wuClhnAtwtczPe1Nl7WshsXD+GsCQtIdVxEL6
3KUYzlgjPkDt8AnLDvk6lIqczzddDXTNiEHuF7G6Cz+pt0BRM3vGJFPBTC5E
7ROz4o6u3tGDrWcOKzvwbnExzbxNAmnFihJiEfeE3Hif6Mpmms0U6277GlVj
6xgdbz4zoxXg6uq3WWZrl2RA1P5QLiN71T6JZjGr15n5upXY+kRVkWfAAQ7A
1QkezRWH77Zia8uwRDn3dY3Izf2LffuNUTfN0CPd5nNdH7aerbXK65Eeg4na
rfWNPzPu59Ps5VpbnR7Chai9TGNULb87g+YD1QrTTddxAfHAvnO7aZdadRmg
2j6QfbXoP0XtcI2gOpWAd5BqD6fd+/ay+yBq3/B40//IvxhQ/ccRq2MT7jci
t9OwOx+1dnZCXO175Xniz6vPaJ5WoXl1NqMREA/sWUtzmx3HNNOsucPU2mP6
d0g8sPk+fy7SHC4AxMJ5cvQGcPRRGLGQ9nk6V/Waah62thmddyplaguk+uvx
5XFLwxlMXK33VWLoS+NmgNoy8g9HFezk01xh5Gi+YX4JJCZGYa2NC6r8Aqqw
9fWpTydGxFUTi7gd2D5pcd2RIudYQ67UxKf1yO10LJ/3/kQNIBbOi9VibWVO
tEKqve87fBp7jY+tz3z/0r2puAa5J8ePz1hkfAeImt168k4OufIdoLZ7epL4
g+oCSHW5bUrfwe/1kHhgm9o8FoxPEoicw9zlXJOZfICrd3A+b0pq7YSobST7
8tFJiUqap6ef0i/jfwWozb235fnxLfXYuuTHPZ64Uja21nmytefxgyqAq9/t
TWzduKiQ+F/mOwGpC01GlhMTI/GNvWLdGze1QdSOWDOl7OeCDprDU15NrFHt
wNbxTYZplQot2Jp717/zw0Q+IB7Yh9kO3TFlLTRLdU77fMs2G6K2fLa2UaNb
MRQ1M5dPGqG+jgeIiVG43YXDdzluC3F16sVbQeySaEA8sJvnLB/+0opDc4IS
q4xvdRcSE6PwuPXNj0y9U4iFtNONZ7o+uk3Eg7jeOG5orlsHoPqKVeRLxwnV
ALXPaZtvj+0UQFx9/c3B/I3zpFlUr9kztE9xQw7xIB6ycomzpWwFoJqrXLjh
dkoyMfG/2vrGfqOdomux9blHtrW6rBBiIc1oXX+yd3YZ8S/2dgEvJuw4h1hI
x+xLlivxicPWR6eYy24yCoW4ejLvmPSWimaA2lqcldqH5Coh1aNdjMepdJRA
XP1IjZfftgy9A2+Em26vygGi5t1b6mDWQS62DmjNC+lx7wCoHcrcJ7/5RgvN
qu36BTUWncRC+v7tMI3ljjxs3R2mE5Kky0HudyfdfvgriTFFzac3pyu0PGYj
t4xZ9gXjDAma77Idnrjs68fWJy+cqdN0rkNu+VpfB938ZEh11GrZHKeTfIja
L09WWOyZUUCzp/+nU4oc9C5JBscFl1JoDlLLOz3TrhLg6leZThLvv30kHsSp
H4HR8VFJAFdrVY5XnlohwaS6Q+nM2Q67HojaTlZzfHbW20KqN7xNGnHDvgu5
6y1KwlsMiwHVil8KjBz9KpE7ocfsyK7HbRBXi2U2rgtS6yT+TW14aonUnvUC
kfOOaOdV5qo1yB0wZnjG2urvIuc5hge32Sq8Ih7ENvePPR3r9BcgFs7LjXaP
uFTaiq1TV3zmzVbjQ6ol0tMy47dnANTe6a5z4v2IXEAsnLs1I16tk5Bh4erF
5lqXUzb9gMS/1iA/yK/3TBckFm0HjVl5NG1rC83fN7ttfXumBqB27Fvveq5z
E6Dar33O2vULmyGuvmC6NTaviFhYR9z3aTRYxAGo7dItCDUcIs6iem8jN12/
ksHC1do6KYmun3ohamtvVnbJfSmAxML5j+Klpw9XdgCqQxSvVT0cLc5C7Unx
z7XnrKmHVJ/c2697K5kLUfui9GOP9QY1NIcyMw5F97ci9/x11x8mO7cDqh02
RXhZOdYj93UzefW5dZ007/euu9C4ohigtoODXfys2q+Q+Nf6zJR7GqcmViM3
uzDoSOXaVkB1xNgbbxXiv0PUjlaYpWPRWw2JhbOm2MHd67X5gGo1L0Vu9rYm
gNrbnr1T2anSga1NpmZWZ+RVQqp3OPNflNz8idw/s8/sSkjuIxbS7+TEo+8n
/gBUrzaZmmy0p5V4EJ+ZkKRxZj4fUp2oZqWszvjPzyC2PT9xW+IDBouYGIUn
/NEQJqPQBqk+O75lKRz5D3JLn+s6bKDfQ7NLXH5RR7AAW6/5nKLx0aoVuVm6
/Oznsu00s72ttZSrBQC1w4+r9lZfagFUv3grGz6nhI/cHV8D+1ZNboZU31Fx
vOOp1gxx9Vjd6xJHh7Qgd1/zJ7vAYS1A1GyTFn3JOqMLEIu2jaUdvJTKmiDV
+YxReco6bIir9x5hNs2LkGbh6qvmZn7SDWUQtcO1aqW/zBIQ/2JzO4d1PVLq
Re5xUyprZlzMB1TLz7oQwRiWDXC19KZv+43ecyBqs8d7Fe47wMfW/TOT6qTk
uJBqr/kX2qdtTwe4etWMYF/NCSXEg1iVfYHl5ZsNiP9dlh3T+6ndtx2idlCO
zjSHEamQ6v3yZffPttUCXL3z6Oju7q+1EFeXf5gRlNXGQ+7bb7SPdJWnAqqX
Tqhc+UyaD3B1lWQRJ7qqCrnXKi0KOaJUD0XNtsfsFYy+VkHUNi6OTeq4LM4S
Nb+an1X+tlsAiAe2h5ntjpNSDRBXx/5gbHBuraDZY4ihfJR4O3LrTNmyQjOm
BFvLNj1YkOBWJ3LeKO7pUfihDhKLtkf7j1sebFwIRM0GcfHW1qNKkVs7voK9
OLUDEhMT0905heU4SUKKRXW6vrRP4op72Pq2sV9kbkoCtlZ0HH9c81Qetjaz
rA19XZuK3js+1QU2fwVUryhQMYc/0Ns1R1lDs6sZW99lvgy8qcmn+Uaz8lXV
DB7xIN72atdmf6MckfNJH42AlMpKbO1YHhI+SiIX4Ormum1Db2onI/eVscM5
cT08mv8wD+28N12MiatN73JyH9YIAPHALlP+9ulAx2uRs8XZw7OZhTEQtTtU
xpj1K+ZDYmIUfpzE0/XcGEWzkeciF/FFRQBXj6sKlddtKCAexAZ+T4xDM8po
Nkq4OOXQBT/kTm0WDJ+9txZQHRk8PmhSvwC5sxR9bcw3Z9DsbjnJqm52M7bO
KZobGDArFRILZ3d5C7Zeci5A7RfrSyX9ZrRAqqNUVH6wdxQTC2mPKBmGkVoL
RG3+dOPX01QYTKpHKb4/pFOM3oaLrMJTF7VBqhl+kbeyb7xAbjfFHal/vmjA
1roJ67JnHhMA4l9rlaoFT4uvNQDUtisN0tt8+hsUNR+J2TY5aWkEJBZtK+Ud
5J6YwhI560SN2HpzbQPA1UflwtzetnKxtVTzz1PPJL8g96FV+gbs+j6aFynL
uN9eUAFxtcbLPZ0Hf9YD1N6kqqDmrxMHqB7pKJmyrfoH8SBWUttvctdYnCVq
fshMmD1sTwVyu0yc59rk2QCIhbPdcX5KCOunyPlKcKr3rVvNELUlH80r3lea
Can2feiQ7JHMBajda6KnH5CWL3Lu/XvP5YDeRuLf1FtYF3VVM2uwdYhm3ByV
8WyI2jriw00t8nmA6teyek3HPgiwdaJpy9ltTD7A1e/HrJfq3FsJUfvA7IUG
10M+Q2LhfHkGZ46DlTgLV38IeWg6L10MW4fLrhZ/4ciHxP8u3yh+MCl1YSVA
7WO3xKu18xtEzo6qQ+4NW1CA3H8fnle3rb8RW4e+9Zub1SKg2TfixXNDDw5y
u62Z//boFj4QNZ8dV7F26NzvyP1tpVj3onfvIdXSXwThS8ILIWpnWZ6V2jyb
L3IuOOcvaI2IBsQDu11S+qPf9vc033G9aLEqKRii9qHV3KVwuBgLV2uVDn11
tEgcW8+T+8iDDf0QV6vHzV75zr4VW4/ZmMbJPNkBqJ7vtSqb2f0DoLZb2dFV
myxyaP74wNV6qU0dxNXuIzNzX3gvBsSi7W9/96xvSC3G1vWRf+5KM3gDiX9P
bzi962KfPIdmnupdpbFD2rG1o5qdxXt5HkRtnk+A2i2LRmIh/dzAxqBjTA3A
1QfHmicu3P1/e//HRZ72PhWmeQC1mdFtT62hPfEvdlbIKW7Q+CcQV8fuYVYX
evCQO2hx42GLZTWA6sfl5odfeGYA4oEdPM384UXVfpHzZmsT/ZFhHRC1z9pF
hfn3cSG29lMRZKlWAqoXbd/3zUOxFeDq/VLTOnJmiTGJB/ZKLXFGd2gLsZBm
q1tEWap1QarHFPs+26/CQO4Pn9Khy9hmms9/bpqX1CCB3EFhupysqxxsrScu
eYil2QhwdXdtzKq0mTUi53VnbIps9BjEQjrQbowXu7cNoLam/neDyGcCmgs+
do22PM1gonb84tVaif+0QlHzi4/Bvh9MyiHx7+kP7pv7pzqVAdROKPU5YhIs
xqJ6kq6U/v5z9RC1J2b1vH2yW4Jmlz8KK0YNq8TWlr3RO16zO5HbwzghbJyc
OM3R1WU//Zeg9yRzZsCrw3WAar1PLXszlrgjd/2m1ve6OuIsqm3Op0slry1F
bkaIa6CZ9ikoaq5p0/FYUd0FUDt71HnbN4wCQPWf4d9rbVeKM4kH9is9s+2h
MTUiZ2vfw8Pb10gid9GL3nbJBeIsXO0Te7sowlgCW9vY3Z16LTYT4uq83MDJ
f65pBlQHjLrTPOF6HkBtpwzZcEleJM1MT+OiJVfjiX9Tyz2R5UcNL4O4+tyy
RO8VS2oB8e/pE6mNn0dYPYPEA/uvxf0mmV0MJtUWlUPXuF4rB6jtbBM0c0FR
JyAWzj/hk8uhuh00Xx13Xsy4oAii9g7Tz2Ee3S0QV2sVpcUPOVsBqD7Oljcx
ahRn4eoi5rmd0C8JoHZMaJf2KN1YmofWrFuSeTcREg/s1z+cqz2UOyHV27L8
HB5L/42tYwyDFSb6xxILabtc9xMpCcUAtfVdjoQvMWwDomZei5bpmBm2kFg4
1069/ERw7D0gJibG105LL+WyLcMgsXBWXH7O8u0bLvEv9tdH4ezo6lfYeprM
/ehQxn7iQaweE/lhrUoOoPrpkxWTIy5UQlwdVaEV1hvxHVunzTvtFrS6B6C2
Ny/JebFyBc3/GHpY9mh0YOv16xZn7Ybo3ZjMuRnl8uV//V8PRdIx
            "]]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt1Hkw1XsfB/BD0aYibmmR2163tEol+iJZwlNk55ZSiEolWnQLqaRdoUXJ
UpSlIhLytWXPvq/HcRw759g6lnjm+evO/H4zzGOa+X7Pvb+/PvP67z3vec9n
yRFbnWP8NBrNTZRG+9+dbDgqQ9cKgevzwqTvu+cC1P5At1WWkeJQ/oc6pUvr
d4lkJiDaeev++k125ZR53BmsT+cqM4shrn744Z2hZ/g3QLIkg7WZUwxR+5nj
ByEdbQYk+pbTGrG69lHkdogpHL5GYwCid93RuWX6J50yj9vW4lK58Y5enrNK
xtGayBt8CpTHtriDvm1NHBtb7zIrLhFKHqL8L/NsxrWmyGtsgNqpljGZ2iID
JLMO5dS5y35Hbu73zfd/D8uARAsPnvpyWa0dW8+MjFvD0EtG7trFWxyUChkA
Vx8x1n79ybIbUv5nuro+Rqv53g+SaS0xq1WqXZE7Z1hIQ3KQia2P+Gx3kj/V
BEhWvmIj/NtNiNqCj3xz90uzIOWJud3x7dpr8RyAq/1vnO76erUHUv7FHjCA
DguLkNvrZMfhBSWtJL9TOjs6/dsQwNWRg6UZugKCCqhdusnQ15rJIfnOUqvS
dKsCQHls34uK37RkTQu2Pnfw6Tq5+n5AtM+kS8tyskshagvr+L8vre0m+ZPi
BjGBeSMAtV9znh6dGsPlOZ+sLknTu1hKeYIWO6tRbG3ZTXkcz+mSOvZBjgGJ
vunju9/jUDi2ruM+OZ8lVwdx9anFUgd3WkZRnqDvvDbzlhzuxtbz2RlezYub
KVNGYrfM/KlpBn//a9z85U6PgJt4JOVxzGRnblHULqQ8QVel1xXkJJYByr/W
RdGN83ykayiP4ys3InxmruzgOR/ceSvQ5Ec1xNXD7QMHC19mAdR2vBJhKCJW
S7Jn53rRBdMHsbXm50WVMecKIK6eXN2xfZJ9JkDt+Q4Sj0EcC/KaPWToB20M
BiCuNtl9Lr5oE3o7bXxAl957neQ9L1z5RGQ/A9RWWJXIvb+hmPIvdsmLQpm3
kcOQ8sT8W3I5zepOFOVxvLV+s0qQYgUgWkZg5Ju4BZPyONYcXvfp3cVsiKvd
+4GZoAGLZN1S0+2Db5gAtfsj6MJaj4uwtZup/ImhumFAdLjjJj4DiRaI2hnH
3pkc9yun/IttFrvwKPt+Jba+qLHMqWR+BOUJOjxW851wEhtbD9Y+r5XM/0GZ
x822TxpqLqUp4GoFTyFZuTOCJCd/ddtx43AN5XFMW9X912thL0j0syidjuVd
XZTH8fDpGafK1kcDojdYhD0UtatH7ht3fd/kDj8nWXa+xtesVC5yTxXNFbjg
xyJZ+tThoqLXHcj9fuBYSFFxCbbWa8y93G3eQvKiRbeUHg+xkTs3o9B5xXs6
yX9dODH0aAm+zux5GhAWUAxQe/bPRrm1ArUkR0e0RVlk9kLUFj5wbFutpx8k
+rh6TJHDjH6A2g7NKn8Gbu0lOThNV70pvwZS5m0rOyb5JV/rxNYX2NOfuJbQ
Ekmuynm5wisHoLZgqsN1B40KQPnfZalizxDx0TLkTr4oq6l4IRJb66xh1oit
boC8Zh0j692hPxsoj+MZXnq3XXSHsDV/SWiayaLJiUSXXbrsKBtXidxxu7z4
LtdMI3lEt1Q2fdY3bN0oxdfo0/MG4ur4khfLmpoKAK6evVnvcLUoG1Ie2x6W
WTFW8/lJ/k+aYlDbPg627tS6stZwDi2R8sR88N36JPvnIxC1hZ+7FqVc+AyI
dpn3oYBPVSARtYXsw0TsmvgTcXWkV5f3em0BkrfBPTnHt9VA1GYfSp01YyWN
ZIYrd0qhEJPyOM4/LTdp+dV+SPRB93Tj8901ALVLDykZqST8ALzmBQ2R+4zo
2RC1V5gE9cur1kPKv9azn+95et6Sja0XJKrqxus1AtQ+I6E+dc3GZpIvlUl9
MfHkIvcIW7jJXr4JEC3jsotvrmsBRO1iy4iBT3MYkGi7JbeGTbZ/B7haS3S7
7nq7EojarR58C6INsgDRy4qPFL2yzMTWe340iJWYBALUlh+W6QhPrYdEe+zX
ZD2UYULKE7NI4jquWkU1wNUKF9s/Vg21QspjW+i0Tclepz6AqzdayHhzlpdD
op2Ze0esVLoAamdZj/BVzSoCuHoSn7q+mBgtkei34SYvzhumQdT+8KbdOH7U
HxIttVd5emFUJ6DM2zbzLDgee7kQW987f9XGCNSTHHMvfGO0ThikPLaL4cx3
v2s0AF7zNtZy0TTzAoDaGcvZUz1Um3nO9N1rTz4J7Iao7Wmunnf91gDJBmHT
+QxGeymP4zPz9j0LkhyCRI/M6uoXYg1h60d1nZM11LnIPe+e9yTLbxxA9EmF
TWyPvGbkPr19+hfapjKSOzQWeeRWtFAex7qedxt3zuklWd9AT1VapAq56+KW
XPHP74G4WkjH+I3THDYg+lVlfUfpg0bknpkgzDH7OEUBV8cetAMOmziAaEMG
S91aqwe5Q7fG+k+uz4REh6VaOco5MbD1Vkm34Ct87YDy2O6Mq/75zbOaZM40
+dPtTS2Q8sTcO8VMx3VWAUDtWutN+59E9QLKv9bJpqVqWQkpkPLYHtzWLL5A
qxjymqM/vT1QwsgFqG2x8YT7yJM3gGjbeNnJQ9FNELXnS+U1Hq2vgJQpo3CB
/upJxitZAFfL27YP2l/rw9aGXW1ZzzbkQcqUcfKSyV+ELQQYyH1u/75n01eN
8pz/8O94JFVfj9z3zfPj9CR7SU5oKDmiO5gOUDs6hCk/epJB8u4Hab9rATpE
7exa8+Wtu5pJvu1X/eZpGRegdmzesNwVa7LDq2fBj9LFELVDXxlEpwYO8pzd
G93a+ZY0UB7HQ/XsteySfpKHRJ50sVK4yF0x/Yx3Wm4ftja+vX541JND8usg
pubHtkZsLZFdaOmfVIncGRo/hhNy+ihP0LH5DeEvJMjeIl9hqLu9FuDqlG6u
S4RkJkTtv/IPRFuXNQFcze/aQ+t06Ya85umad4YZ2lyA3Lb6OwbyswHRztdy
vLi96ch9nGGp5dMQCYn2lD1x1bymmjKP21Q16fLx140k19iG2RsrdELKE7OP
ys2A5qAq5FZZqL/FO2QQUJ6YvR29dJ3W/t0nr3iF3OL3747QAeWxfU1Tfb6C
Tycg+utDmv/DKd0QtY+JvojfaFsOie7Uy9GOAwyAqyOTxaz3gHpIeWLWU7tX
f2ZvJ+V/qE30WI8LLmdi61e2Jpd22NQCyhPz3N2nfnrl9kLKE/PtfSkn0rXa
AGqzbC6+Y8U0kCw20qti4M2BlCfmjKdbN++cLZBIeWKO8e0TP8fgQtQe4NrE
73VJJXkfsyoo/EAqwNWX/zB+LvqoDrnz79rM3WvSD3D1gnr+P3Zx2iCveZ9T
gH7SpC6Iq7+mb8iLqv0BUPvjpZ3BxsH12HrWn70rzQEdEK0aNmARUMPB1uaq
bi4dKxogro592/GHgeUIcmfB8MCo3g5IdIEWGKichK8TLH6KfsinI/fOF3cH
NFeUA6IDaeK5IeJ+ALVXXehStZjCgpT/XQZhVXnup84j9+bHS9X7UxoA0R/j
jCzuF3ZB1NYxX+fjFl/Mc1a0tFp0M6wPoPbd68NLOUbJZL/a9GdKQD9lHveD
xs6128uGSDZI/9ijPLsHuQeeufu5aXNITjI7+aPEtRG5fQynFCtotEOi1b+d
FFdxaoOofWgZNB5c2ET5F9vTNOe7ypoObN2zjNWaG8QCqC0w6b5w4E1+BcoT
s7Ka/NnunjRIdFtziajlZzbE1R1tV30KQpnIne4ueXWqEn8irp7X9YeJpbEg
yVqr1FwVu9sBrnY7dCtl7uO/86KysPXakaWrmiCv2Tlb6FakRihyO0+Xzv54
eFIirk4MSBeslYsHRC9aV1R2lTYKcPVIbt5gVtMg5XEs9M2ZbnSxG/KaF4hm
zBtd1kd5HBsW9h+P3szA1suP5Cr22wyS7NwWZegf1I2tyx/G7G8xy6Y8QWfK
brTitr2m/A/19qybFTNsupFb6KOuq2jdd5Jln5zeKR4+gq19O/K9Op+yIK42
jTBRbTvMAqitah79eeurbpI/LfW9X23cg9yaMxcdvMjkAKJvH9JWn1bZAVFb
TfrIvOdC8RBX3zheKam2eoDyBL1k3iS1lr4ykkVDB1MTB9sBZcr/Zvuo1S+I
aXgPeM30K50Xolah990KYRsvMQbE1aGMJmASWA14zTnbuJc7pCsgaitH05L1
VN9DovfvGbw0a38NwNWnyxQbR3/jQNQ+aldVSK9sA0S3Kjock93YA1C7+fGu
wYPefIm42n/NgyPKOuWQaI9dm7uerW5CbrnLU/V9y+iA6DUJOcN1loXI/Sok
hc/Pogtba3t19edptUKi60pCYivd6yHlsZ3bXvp807kRnjOtwfQoU6oOoPb6
wRyrL0smJRItIuqaGfKqAlvrG7m99DjRQXkcMxc/lxZx5cPWU7dZ5dktZAOi
C+Uez2t6NQAp87ZtHyle2OdXDXnNfWsFXfZEcbC13Wdl02b+ToCrF3M/npX6
yqQ8QTv+qdN7Tu7vPVL+//ydubt/uVgdQO1Y7Y47AeKDAFc/3W2+WfBpMyRa
FHgWFmoUI/e6aSbR4o+rANGvtymeDrxXgq2VujSvJDnyKaD2qYKzk3XuNWPr
LwU94TW+LSTfEMqx/hZPB7h64TO+J5J9+RC1pboMPxs8pENes8zczKOn8r4A
ymP7TWxppJ9DIckhR+T6b9RxkPuue9Dj4B0l2Lr1tW5zJGgFuNra7IXB0Nxe
iKt375BX1f3QAIgOnrFYTcq+D+LqYbMiXwE6G6C2jvmLrrOp/ZBo11B57vL0
d8g9U9FxY4ApF+Dqe+GH2LE7e7H1xYRq2RuTGTzndqUHEjd+dlAex4k5nT/d
vvVAXJ28NPJqcnQWIHpWinAt9+Jn5E5lCpQmiYRCoq/vbgr+jyed8jjuffbD
0l4sHeBquyS90Tc1HMhrnu3/XS1LuQW55Q7137ps2gtwNW2Bxx8/K/JJNg1P
3m76vo3yONb+/bx69MIeSLTY7eNd58Xp2Lq/Jdmrzo5fgfLYBr9vdZYzawZE
N9Zcb5AeHQaorXzjqjF7Ch3iato9Uz2WnjYgek6SwHl9lRrkLtDkru0v6oZE
n3Des/78dJoCagsqLtK3U8zmOQ8/nDv4WSIfoHaBcvkBjsUotn7lxHcxnd4I
cPXcQPEP2X9xINGKSt4rXK72I7dVhPx7R202ILpiSt/suTMfYuumIqPMv770
Ymvu4g+W5o8GsHVAN3e58eAgcredfujBd6wCEj2/5FZBxoZKiNoPrJdk0Yqa
SO7gh4pxq2kKlMd2wF0ZTqoEAxDduE7es7uiG1Ae262xTW8F77Mg0dK37f2j
ZBqQm7s6KP8NCAKUf607ffWnbjkXAVFbbPYsmy1zXEgOMqnpm7mjHKB2gvK6
j6uK+kh2uX1PXGlNLbYe/MRvnmlVj9y9elYai11asTVdivtt9r5hyGu+1K6/
pdt7lPIELZc1KpI4dQC5Kz0Cix5xygHRcW+bXospsSmP45EZ+nesPrdAXH2z
hRm3znUA8JpdM/uT/zrQClFbUOmke0B0KsmrwszCbmq3AFx95dg89yOi/Aqo
bbf9mMkq72FItKNcQUnCyx8AtUW71t3Jah3F1gqth/JmxfiQrLbnxJ5t6a3I
vfeL/46jIz2UKSPx0f0s+OpsKyC62UeTbm3EQO6ZhV4bRj1GSZ4lUfepKxe9
5YzTE9ZHZ0KiJZyb0qK8O7E1s052297ocIjac/f02z63rcfWp3JzK+ZPq8HW
Zu9yimXedQNcfaUqrnylaRHE1S+nzVlcVVrLc463s+Iyj/kh94tdSe+L1Esp
U8bKxUMbCqYWFwDUlgk4YK4ezASUf62Hr5RtnLa+D+JqUaM0s0cSQdh6xYyN
wSVWdOS+1xhz5JLDR5JNDoQorZzfDijztveXrNPWW1hFcgzX9ORdlUKIq+Pc
7z6PPFCH3B53H0YEb2vF1ozdocxwp1zIa5abHHL0TGs9oDwxSy6+f0vFqI/y
BG3Z+Omrr1QwpDy2lSQTv9892kh5gl5msMG3qLmWZI299q++c/sBZd62w06F
aHuPTpJfNoRdrsjuQO6liQlCqUYNJNMiYLFj4DBylz9gXs/K9CH5pU3IodWP
orH1Tdbjc99lEiBq8/8oPJ9P7yU5apTBGpLpRG6/5eoBES96sPVMwYgqF+dW
khVvJUxZeK0foPbu7qFIK51hbO0ArYMVoUAir/mB84y+FdlOyN264GZTsh8d
EN06al2msISL3NtmTF+cUtsIiYb21xvOSadD1H4Z+vIOTaKV5JQnvzUvONcL
KI9tZVNxkYWJzSSHRj7LennzNbZ+c2ylSLxKPUTtw8GGj+YM1QGifyQyRsv+
ZALUzggeiWW5pPKclZaJeX76NACROycr03dePiS6tcRlxEi8E6C2Qjn9c2Ak
G/CaOWkFgnAFF7mL389fLvU+BeLqO0Ol0WdsmkleEbo99oFyE7Z2C87mrhWp
o/x/+r8S/FYY
            "]]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt1nk01dvDx3EkqSQpzUlIo0oTjftocBVpIkqKlNwGhRTlStHNNYQ0lwyp
VJKUIdMWpzJknocMx8FxOOYx1O95/njWs9b3uxZrndVde59++6/Pev37+es9
58iZPcdEhISEXCYKCf3vBsU9UhOLSAO77D+P073kCoiHtoWuNTBawKGZbfk9
4DjIw9bM7BsDS1OEEnH12LL4hAuNSRC1+xg/k7hF9ZDqCB+n/PdBP5F7/d0F
8QljnmFrV2fWeBUhHiD+tWaAP5fzdmYjt2Zq3murkTGQ+Pf0s1ynK42zi7H1
Eff4z7buOYBqDfOlUtJmadg6Ucrjg19pM7GA++ilr69STxdDqpuV1Z37eIWA
eGg/+jv5RXgJpHmx84fleh4DxMT/qnuvHL0or9xK84YKBx1GKBsS8+f7ivf0
XOT6kHsBd/PJrDlsmp3uK93+oHoLuYV1LlxMj2sHuLp8U2JTXEcfFDTz7EFN
8pcU5N4bd25j+KwWQHWS0wb2Ce1OgNoD5YtG+LimEv+mVq0sVuBGxUGq7Vem
XdgRVgJRe31FEjNnTQ/NnPqDmZ5T67G16Y8bG4QZmQC1/Q2TJx5WCQJUD8ox
HJ4u4EJi/ryk4ohnQXEfQO2rN35onudVQ0HzvKKF4gPChcht0efr4RHMoblT
OFL6SRgP4upx79kzp8mzkXv+Rs/locwsmsuiJl8f71wJUDtlXmTuQMggtq43
4X5YGvBT4Jwy4p11xPo25PbPZ52KHvOO+Dc1+09ZxoyKdkD8a32PrXNJKysS
4upDutOZI7W/AVydccduv7lmD3K7J/dHrtbNgVSfSxKPiIitgbhaost/YmIW
B7mZcbOLT37rAlTfhpzRc1sGkVuIm/jtdt5lSHXKTXjkmg6HmE/HnxI323yi
E+DqG3O1pbYatEBc3TCn+OmirLcAtePfq7M0r/YQ8+neUQ7vzib2AqqlfEKy
JAsqiYn/q134UlclpaKV5muLGj94X66GxPxZpWip4Yu6GEDMn/s2eE8wzm9E
7t7L5gV5Nt1Q0Dza08RduScNEvPnW2F/zpPe2InconHRvAMyXJpPiPRNjtxS
DVDbCRgd/ae6EFCtPv+fAnsrHiQe2ocOO3pFM3Nobj2jfsDGvANbe+w85jv7
RDkgFmwrPAnVU93OIf7FDqoRmbrAPw7i6qvzNDXTWzIA8dA+IxxVe2dVM83e
DuHxKyxyIWrP35q/1yQwFVu7Oh/SbyvvxNbKxoGHQqLqIdXKg2PGty2sJubT
3WLBn6x1WAC1Vwa4CSnuT6Z5xcuo7ITgBkhMTIyvDe+J5VfaldGc8kBogtYJ
Hra+c2V8ZI5hE/EwbjZXOzG3/Qe2jnEoae13ZwNcLds4P3mZQRvNV+5J7dOK
60XuvSITYs5f76D5omybjLFrK7Ye1LZfp2XVhtxKkcU35D/0YuuqEnu16xPr
INVt5rFfzWoasbWz7r3ljclhyF1n1ms4LbCF5vqbP3s95lQhd97MzJjB+TxA
dYxv/oSYFxzkdvkj6YOr2EgG1f73i404b3IAapf5S35pHPsTCJpNx6g9CJct
wtanvL2zdvtVQtQ+fT1ocEMCC+LqjC3r3lw2aAFUSwbYN6g08wBqu2/9dOvd
9Rqaq0yCnhzXScHWNx8vLJ+u7QFRe7Xbfq+1tZ0C53NLLEM3OpQB1FaX6Z5u
vq2W5gqLEUsfVnRB1NaPuiUre6+K5g7xBJ6MQTvxMB4TVhNy5Gc+zd+VunNO
ydVg6/hPN3+cn5QFcLXGnr4dVX7//ydu3vwoQsXOhEks4F7q3+5masqDuNpW
KDo/dEuVwJnj9XTLJdPvgHhoe1tHhahmfgS42qi+0Cq5qYvmPcVZug+625C7
nKujsccjk2b9xP41o8t6IK72HrBf4/s8BblDO+uZHw3bIK6WzLlufD6lDQia
bQtZSj1vAgBqr7+eOf92STq2HrNjgryvegOkevNGRlljXS3xMNaV189dkR1F
My9cXqr0cSuxgFtUfvGUjzFVNI/6sv/wPksWxNUXF29ixW/vBLj69oz9C+Oz
8omHscT4sx/yPxUAQXNOS6zaFrsOiKvZ3nYaU06j9zQ9vSzNFa00g0Sz9+5l
jQC1b/l+2WQu3YetHacM/Mh5GAupDvqu8/T4OB5EbX/RlNuSnnmAmD87RG7Z
s9HpCaTa0bv0oHp/DXJfTIv5W+FzGrbWTxJWTJoBAdU1LjGSD9Q+EQ9jZV/R
mbtZdRBXT3IWuhGh+pPml2emnFKsbCcexjFlbycsutMOqF7zQ/jivtVVAFer
SKhoHYhrgKh9Ay5sl3QUPC8X23382SwOck+vyH/EdSf+XR20PdjpL5teiKub
Yge8dZszANUZjWdzt0q8A8RDO9csQWenSjHNMzTSD+nPzIe42u+S+O7Nk8oB
aj9zX5tw40guxNXvXZwlf24qpFnuvnfBWalu5G7pe5WlqNoHqM4xGsgOCB9E
7pDmhWuVf3YJnC3YSa1ygV3EfHqPf4eog20dJBZshz45Lrv05AgG1fbSqdsa
s9sBrtZq6tM4blgBUdtKSXnezpdsKGg2myky6cRn4URcLXy+I+VSfhtE7V3t
j7U9iriA6syqKdXbA5nYWm/U4KJJbVyAq+2b/Qw7TRqQW21m6JiWgVaIq3uu
rv1bdKcwg2ohXtehdyO7IK62Cb17b21gOEBtn8MHrbY31kBcbbb3sE9XeDHN
+uFBchcdWRC171u8XubFzMTWsn4Ob4LZRYDqs0DLrSLGC+Bq5do/N6uziiFq
7yvTNDA42gSpnn5pqud730ZATPxv2kY6s4ElXgCIf0+Pzo/WP/Y4keaicPGx
G61aIfHQ7rfcPmOwhgcFzQEf66LTa5uQO1h/iv9i6x8AVzPjZ4XcLBmkWV47
8lZ6Qx1AbWnjsqIp4d9p7pDOu8SsroO4+lVFnrPf1kKA2rVFVtcczRuxdehW
5ftu7XWQ6r2KCz2en6xHbn+vXrlVE1gAV9dNW6Ccye2GuFrM5PLmk2fKAa6+
tTp2iXdpOqT68R1L3+w1Tcj997LZrguU84Gg+ZiY/JdrlskQtSUTqszT37YK
nNXKFZniY7sBrt7i8WB/sz0H4upeyyYJxkM2QG1mafgcA7cU4l9s74edwe4O
3dh6lEbFxnX/0zm4mpnL9d+T2QmJh7Zzi+qaweAySMyft7r65u5e0wZwdaT/
2/l9Fu2Q6u45kRbbdxQA1B6M3bleQVEoEVfP1FglL96YCnC1br8t46NmLbY+
63dG0etuDCT+tU4FFqcjb34gHsY2i5gjJyl20HzTYU7mXr0SbN2ophli38iB
qF337PAyVR82zR7jmudq63QB4qHdFpPHDHnPpfnhGscxZXZcSCzYjt9p/eab
+ohEQfPc6t0uPc+yAWoPJN4Vvir+E1It77jH2fyKKIOYP2dMzjEwfTWSeBjX
Hxy5K7q3kmaWMiNx5EER5J40sYix0Ow9zf2aSlltxY2AmD/X+seZFVmziIex
wU6lNwEVtdj6HrNywTGleEA160YCUzunDLndTX4OPi6OhlSPYXcE+u7rJiZG
4snlhyyTxj5G7uwlevrX6jsBMX9+9HJ6i69mIc28sWumyIp1QVz95Ifji+Vx
3wAxf57esickOa0AW/unq9ZlPWEhd//ss3nR479j697bBlltdyG2jplgLH+0
pwBbnxNZbOv/rV3gvCrT7siouQ0QV78t6B48UcBDbsmqOqeDCj0CZ5+5sbKd
Cr3InRJRzX6r3gup/rntEieBXY/cl52KI7wWNQNB8wK1AL8tK1jYutc+7vOZ
vxoBanM8ufYl5gEQV/dG8HSv1DQBqp/O2iX1dnMURO326aNmD+a2YGthfbVV
iYa1NJfPi1JQvPCJeBhL6x/2nbUujvgX+5qr6fILIzoBap9LC1q5gvkCWxvN
fu5tNqETUu0qsex9NrwFUXuG3geZnZJ1AFdzOAomp8d2Q1ydmNbGkNdKoFn1
nEOY9aZa4t/Ud137ZnxpaQK4+ornsaXa7mXInRX9YcnGUe00j8l1rfzDtB+5
Q3MXyR5q/QGI+fO0O90Spmp0W8c4xk7anw5xtZZJwFabBjYg5s8Wr4u+PN/X
AYn5c3oqzGOW/gVQe/ejwJbRcVWQ6oSpDDl1u0KIq1cESfrGCNdi63Dl/Tox
j0qQW7/iWotcZ6XAOcfe6fO4uB5APLRb9CfNC5DpBLi6+bxOVM/3Loirvy6E
IbomlYBqw2MBwXNVORBXd/SaWmxyC0Hu2w9ufmS/qoHEv6dLs7yFI6Z0A6r/
DCuSCi9PAcSC7ROsEfONYnMh1SH1yoOv60UYuHp3l73YSn8mRG0hn9NqiRkV
AmedYlejiIcdxALuhFqe1HcRNs3L1L8f1XvYiNwaGc3ZirZfAdXvcr383K5z
iIfx5kDZW37KVZDquHdFIZyvHIDa4y0G2mYKc2kW+ewym3cbX6/NvpfJrA0i
Jv5XnThJXWxguhfN+bmH6qys+rB17byFX81WVmNrD8/3c7Jk0pG7/7ScSqBl
N8DV8iNXcq9IsCCuTrBX2/HOrh9bMyQKXy7Y2UKzV39YRxArBlunXBr/JlCz
HeLqhsXrdkaKtwHULgEqYgb3GgDVH1673J+qw0Ju0wM1BUV3WyAxf3ZL7lNN
tOMCXD1ycUyVwtVMmp0+Tg1768jD1htTs49VKHRDXK3YXvPYcWwTtuZq2Jd2
WFZi63EZXe3P/s4FuHrMaf/bU1rrkHufTLXxuqROmqcG91ZKV5QSD+PexuPb
bZZ+gVSLvzsflVDLgbg6xc3VeZ3Dd+SOlmDlDt6upnmfS8Jqb98qbO3t1sK6
2dRGPIwHfNa9XNpcQ7Oe5ecdNgzRRFy9q1TxbOUEMWx9bT3Qt5YYS8ynD3uM
OL7IpBkSE6Nw2MltzZyXfQBXH40w2rbWVpSB2hbxot4/HDqx9a7H6iWliq00
r9rKVX59pw4QC7ZLJlSsNH8jxKD6QMsXqbsvyiHx0Ja1aZ22MrQLCJpdxkvJ
Vj6vBsRDWyEye2uFKAvias/Hp+q0e9jYemWgyAVNnwFAdQbz3OiJrDpsHTNH
ctaCx8UQV1sNVFhoje4AqL3ln1FGm+uqaE5WtTjOsu3B1m59qvMdrv5A7ptS
bwbOWOdDQbPCvEDXa4xibG1wvzxhi2E1cq+I/mdkjy4HEPNndtmsxPfGZTRb
3dossUGmHeLqfZ1/yUpuzUbutXstKyL7PxHz6Z5CL0tPIR4xn3Z28ma5ZrME
zqkp+UsbxHIB8dCGq3gZh0CrwNl5hIbShtUFxALusy+TGguYHRBXzwNqaYzC
Tpq/XjJet21XLkRt8WB/ywXGgQBXRweGZVQpZUPi/y4HbNAw9Iv7BogF21qT
kyw2paYR82kzn8rwEslCmo/BWdZrCoMh8e9pK5/a2AtnUwExf/b7cnE3z6Ae
W6fss/pcaP4OorbaZJvjPirVgGo39sjzcrF5xMN4dcbcHWc0vkJB856KilK/
hdUAtRvCQt94fWoDVI/zDpqjYsWGxL+ptT2OTfKvB8RD+920tzOsYrk0D87J
0bBd3Q1RO+3BhYUXirpplh0RccOsthC5bQKNl0sUtUDiX2tnm6fNT1wKAPHQ
rq6UtpNb1Qtw9cHUK8rxCR3YWvQf4yt+Ju1Q0LzFk/fgqH4DxNWf3k4WbrVr
Qe5YGHF2kdQAoHr64aado827kXvJnHWtueXd2Nqr7cEdkc8sSLXejNeuIipc
gNrGQunzz5hWA6qdFkk7b/D/DlFbYa76kfgZHIHzFuFgj3LncuJhbPjAvCRM
p41mmRot7z9m1mFro3HT1irtrwSobeGxTzrJNgNSzagZY/jUtRRby5w8bpB2
ppVYwF0885LRc/lebH25w82qSrMeUG0ZO6J/U2gCJObPPOfogtTxXICrjym9
WcFprYSoLdfR45Iv1AqpNjS+Yep2oB6g9oFV4Q0103oB1Yf1FHTUsmohaisu
1Q7QW8Sh+XGvy5L6Kx3ILaaVJ1+5ge4aT55txfUqgNqMLtsyuRVdNMdJZBt5
RpdC1H6+tlj9D/c2SPxrPfmOUKvlqSiAq1+f99t88n0dsYD77Ik3c19d/gKo
ti/Kk1aq50JcnR+l2iwkM4jcThm21k9fFdLsGe/9WusuG6D23RuHTUQSWQJn
0ZdxGnZ+9di60/nZkvI9bEgs2JZ5mexX8rAK/p//A9KjH68=
            "]]}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
       AspectRatio->1,
       Axes->{True, True},
       AxesLabel->{
         FormBox[
          SubscriptBox["x", "1"], TraditionalForm], 
         FormBox[
          SubscriptBox["x", "10"], TraditionalForm]},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{0.5000000000000284, 21.}, {1.5000000000000568`, 
        19.00000000000003}},
       Method->{
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotRange->{{-3.2331466793037555`, 
        2.9616106827959414`}, {-3.381079370133707, 2.7526031199079966`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], {192., -192.}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
      GraphicsBox[{{}, {{
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt11k8FP6/x/Ep2dKPSrulXRSiXamvJZUoFIrSJopKUSFSyZJSqKRNIj+0
/JIQUvmOXZE1DA2yjLEPZoyx/8+5Oufi3Mz0ePz6PJzv1fvxvH3fvRYeO7vH
ZiKFQvGTplD+e7NXeW4vLucia5fCgtDgEvS77nC2XF13rBdD8/5lOvRNemOY
WDBnLxY33MKtR9DdmeJ3mvLXIILq3leWvX+HdmDi8eW7saeuR81kogfoecaZ
PbWIeHz5hecwN0mlCkN3eVtkIP1aO4bqYwu8GfTZJQiqT44ukEOFZZiYP+uv
NjGnMnqQBFWpfVitGJyzjsycMT+LB95OlZrLxhwKwVqZPn9+secwgmbFF9md
VvtHwPpM3O3jv14IadU7fNGPPwfPQrYLP6kh+D6SseZtfuI/4CwnlhqZfJCY
+M/6+In3V75F0cDZ3Ddz73WlfgTVzmZ3ZWfrsTFUB69l/TXzbid4+wU1eKRm
cDA0L5E0MbJ2oIN3spZjXGd1Gzi/mHMs0iyIjqB6YG6MU4AFDbxtq6Qyjpty
wDmwIUn6hnovJv4963Z4v7YX7icmJv5fTvvqEyQRX43Ztat3VnOGwDqze559
z9N2BM2S3xrHpoq2I6i+TP0a/myAhtMnBomkJcaBc7HaOxk9lz6wlphDsUvM
70dQ7av3Rlk3OBdDt0nR6iXndNswVN/fouLsafgdEfPnUsVv/UpTWxBU208v
GWY1j2Co/ofWUiU5iwfWwaWFIi4GQtQujWOd83PYxHzav8tLTUaDAtZb5hhJ
7cyrRFCte2V06ZuliRiqW1dmb2uM+op3UNsswmayMVTb7hBx0D2agKDZSUbD
X7t5GCvVHJ6jvGiUmE+3OpU9yR8pRtAtLbMiyu0QF5xX36uiB/qWo/zUqZJe
JmwMzblbnlnOCSghFtA9rFObRBOGcQxrzGiBfD2C5slTXl35IMIB78c14aqW
FW0YminDI/YiW7sRVJ9/4KZmNDEfv1tjLRREGQbn0vjnQXvmFeJT0aORvwxr
wHlwp+jklMcVuNzkwomQo5UImkVoWCrtaiOC6qX3G874qEaC9QMrWZ8XEf/z
JzQvml1X/UCxCPefy/kYG12AoVor4fsW1QPdCJrzq7evMWyuxxKe2mfuyX3G
0CwVF/P5pG0Nvnfgp+7tly0Iqo1utae6hA+Bs2xKe12cNAMRC2brFBUP/ToG
mm2f/ang2QQtaF7kbu9qt7sBrK8YK7t56RVgqO4zS3Y2mJODiAWzYs+JB9vk
6zHx7zks012+cGE3gur0n788C0ZbwPloj1PcWF8xeA+WTNPNOvCFeJzZMVbr
8Sc3JljfCX6nHs8tRVC9ziLYfzS4DxOPb6+bOZBsw80F5zWLswrFnVMQsWDe
YnrivW9nBlhnCc+/XkvJIyb+I36jPNx6x30CFar90iZxPs3rwMkLPgcU7CoG
56MJu9RGlv5CUK3IFmdN9aBjqLYsF5fspzYg4vFt3oK9aoGUBHC2ELJ0Png2
nfg3/d11zUKn21XEfPr9JnmbN9caMbFgLp0glXA/qx2831xjbPrxnA7OSfl2
2046NCFi4j/huPZ3/acl8zBUl5x59u7A2RpE/Hvm3uNuupXzCxPzZ8737VOi
1TlYXT9jeG7OIDGffh+gyVV8NIpbZXif4wyFqNC8YI+Tm/vODrS9ILQ35GYO
JubPiRvjRBkRvcQCuuWlbUZdQwpYVxdYsSaaFWLi3zPHLEAhQR+evxfpmKnh
NgTVsXIakypZDCwzFhEusZOGoPrSsJnnwQ4mMZ8u+GeS+NtFcdi/ZaFRrWIk
WIvFXzeOfdGGiQXzU8kza40vdYPz9EahB7bn+9ATDc3905jNYB1W8+rMvguJ
4FxUHn2iIqUOEwtm4+9r5XaZ16Nln1J31ETkI2gO8dW1u5LURiygtVoP78q4
VoZCV2SUlvo0gXPpM9VTksHluGhzadsq7x5w1n5wfoZx7AEE3Z9vtXFzQxsx
MX+W1et3kl9aig/JZB9wyW5F0BwU+FPEQ6wYvB2mVu5+dH4iFZodylMkPv4s
Q7M+3tN4pNWIobn53PUEZ59BDNXx5tEfDw/WgXW5ifydXfVxKNOZ1kbfl42g
WTUofHn0YhZYt17YvXxzbijedSh8nYnxFwzNzVGZ6TliOWifScOluJMdCKov
zjplHZdGJxbQsmsnZ59dzwbrjb3Lk3vqWBiqA6o16ZL/1cVQvXRQ0qGCzSMW
0KEFrAPSS3sxNPulafs3nejDUJ10ka1x4xoTERP/CZtoWn1aXMPGOdMnZrQy
GonHmeelWXFiu5tRb/zDYfHHZcR8mlMwpD5leTu+LO0wY2ZeA7GAbvEUCo6Y
MQbWstdvhNZoDBLz6Q8NEmzdIS428Jb+9LmrG0HzueVDPLYnF20yL5Abqx/A
0MzQS3sb9YGJ1W+5dq+2KUDE48vzVzrscrLvIRbQew76720PqScW0LJBG/7i
MeoRsWA+KLvMR+n9L6R7TUr5cl4KhuonyVzld14NCJorSic7bahkY6huHELB
zPvNCLpzv8UfDdKZQIXqxbO1Eqafr8RQzRxm9avPqkdQ/fxWft/7ng4M1TIR
J1459g6A9ebLe1t91neDs49lOH2LXAtaPFNU27uMC87PTDfMUVBrx3PTYlan
51cRC+hbHrfFJFRbwLogOCxn+JkQFaqjGva7PbrWi6G667sKU0V+ohZUf9SL
/5ScyEZQXRZ8yl7c7icxn+bZFHXcYrMRdO8fOaq9z5KKifmzca9m2avTA7h0
ulpd4qQRsOaGfZnwxGCYmE87/kiao9rYjRpUAsbEB2sRNJ92LqW001oxVLMV
A99xkroQPs+rrt7+E5zfynXJ3EzioWGr/LUlrV0YmisU5B7LFXExVJ99F2AT
ktyPP1yi1BxZVQnOZQ3x1t4GKYhYMBd1uU8JulCPDqqMnXtmXgzOUp1bC7zY
E6jeV/Ws4pd0EfPpqi9pKdfseRjH5MpPeT4EzohRV5iwpAFBt8KXd2nhqAqs
6coXJWMd6hAxf45cnfDkYiqbeJyb6a4rrbemCZyFVTZoqzH6wPvqYXHtQ/kl
4PwjPWxZ4W0GhmqZ3HVLrv49gEX+VrBetoMHzusMt8lShZvwm4RJPzYoD2Fi
wWz8yFtUj7MHnIcf4vO9R96D9woL9lad9QwEzekDMa4avEoE3Ur0qqveojRi
Ab3ZxedIz+JucD7Qu3dTzYY+ZOx/mL6SPYCh2UNlp+klBTaG6r9etzoKubYQ
/6ZHprkfavvwk3icOvfSuuDXqhwEzQtznXxZOqNgHT7ZTLObXoY83QIN7Rt5
GKoX5/VHxhglIWL+vM3/6w//yfVgba9bn958tglD9YMFtvo928vAOtY64HzX
dhZ6qpN3pGwGC5xZqTelvjKbMIuWozlQzwVr2eVC4bpKzZiYP1vsrVWrLmOh
5EvLbt21a0bQHPvTwvqEWBGG7umuHoy8ayywtg6s9XCXHsBQbWjO8RR72gXO
cfPFVtwNbUb9BvYnpgyWEY8za1jMFXU91oFtr5Um66yoAmfGI2naPEoXer/j
vs/kVjqC5pIvZckHXZkYqqfeb6NzxBmI+Pf8TSgiUzhrIhWqA7Y6qsfcTcTQ
rPQ+zbo7W1gLumlPJ8txHjQjqE4y2Cks618Hz5YmRiZGdLRx//frKdqD4NwR
VRa4d8EIhu6VDrj/lXQthmYHG9/eOMl2BNWrWBJW177+xF6r6u7YmJQjYv6s
tb3aicmrxj4bDnPMW7MwNF9ZH5t4+iYbvO1P+YrtsipC0HxAd3VvSlw0WuT3
5UtYHQ1DtdD2Gy4Sz7sQsWA+a2NwSNSljJiY+P+wUtOlHvN+GlgPr883PTrl
C4Zm2fUjN31PVGBi4j/haQ9VViltZSDi33PBj5I54YEMRDy+XJU53W1EiYeh
+pvOnD5OUisynZIolv2GRjzOPHDOfoXa2ACxgN49quycolIK3nHL+/ocxlIw
NNfuz7hcEzWKRWTDJNI2toJzskFhasA/BVh6RzQyquCB848bqqaUfCaC6jfG
VTsnDLVjUfrQCpZONzGfLuuoMo88wkQx206m02ZzETHxv2nlZK9XGZN/Isdl
xkneVCY43939Y+veth6st591V1w/Cpz3VZ129BjKR4cGz0oEXuFh4vHlQ5Xu
moEDTWBdmCRbK2naCd5DHkzJ4kUdxHy6KHeGy+09xL9riqfT9roCDjhTnFX1
wqS6MFSnaJy+EKqQhXzWlr4Mn0hHxMT/pt8qKlRTAzkYqo8E+6lzPw4SC2gU
xzv3/DkDvMUMs5fTCrsxNIsq6j1aOfoLRzeZOLRaDoFzYpWFrcFiBoLup8Fu
79Vvc8HZLvX2Y5G5FCqxYGbm9fWs8EnDre1fVEPuwXV+/sXwcodyRCyYO8U9
3yX79YDz4Flv7y4RKvZLv9T4YF0fWE/badcqNW2CFjQ36SzPrA2hUKHb5aXE
iIfxEIJqS//NSrZfP4Jzr0i23JsENiYWzN599Pg2wz4c/PYJyzfkOzGfVl/k
6DxPvxYvGZO2jpAfwtAsZTy081bYL0QsmOfbNDT6z29AVrddXTh1xYiYP3/o
8bsg0dWDw58Ixzp9LiMeZ37y+o7KPZNe4nFq90GPpI/rf+EdiVayFlmVxOPU
LYYtUyIl2RiqbdIiNUM2dyNovuuzInZfdhlycVtlsdCOQoXqjrw1bS53ezE0
z1XcsztTahCbm3BcomXFqMTjy399eyZFt2PjhIfCDdTGHgzV0k2qox1WFYh4
fPnSyE222MVa7Kb7I9HpZh2G5iGLlRTXsS4E3V+lxZZk+bMQVJdoT1ewog1g
4vHlU1KX9+al1hMLaEv3ySbtz2Nw70D2m5AjnYiY+E94RxktYO2RfnAWddxo
QdtahKD6qYqk9dqJPWhrmrGqY3AVMZ/WX4sbv9qxwXre1EDd5hPN+OKirIxP
W3owNHdy+qWusivxSu0yrSeWWeC85d7xTkPHakQsmB9diZsSHMTAUN36WP+T
vlcWWG9Qfny84DALrVmWXd+bmAPOImfDjC629OEA4VbTqGwaguZj5SkGT841
Y4XgyvN3OGwMzZquz15Ff+8A789nlHYfutmBoPrwonlmyUFMDM30g1ju70sY
S0ekHjOvSEDQ3BTgvoLZ1oAnTdVFk9u4xMT/qr0yj8tEcHkIqkMehl5Y6yyk
BdVKO3U990V2Iuk1dwuLblC0oNlWeP7hjUuGUNQMy6tXT7YgYsFskyRs4cbL
B+eIRXLv84eEtIgFsyPDi5dew0YbXleG3JRvx9C8z8QuINGiB7ll+FbqxDDB
errjZ0O1N83gnFEfN/VK4QBY10udN83xiyEW0CE7Aj0quDTice6TCqrttROK
wNkw/F1wvEkLWJ+/H0a9d/Imiq71fqTpxUTQnEk3uFqyrAVDtZDI7ToN5RBE
LJilDV92nblBxaf8dk9Yu4qLodlXOTW2f+QHgm7bElfaUe4oOHdRC3P8Zdpx
7BnvD6VLJ1KJx5dn7cu4xdH+huoCxM0uDLZgaO5gzn3B2pKOa/ZtDGwyGkPQ
bNYTauCV0IytDMufLN9YB9b6BVqM6O5kDM3Fy1+PBL2tRJf3XRd7ncZGUI14
7bG0lxO0oNrh8cmoezoliFgwK9Rfr+5vY4F10oXnJ3uVx8BafsYukVlcJjGf
3phtJmO/phOFf5QYGtrQBM59EWNv75k2gnXFiqYS+aeV/+/8H4GM9Tc=
            "]]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJztzmk4FOrfwPFBJVqk0pGIyFGJEpVIt7RYInVSSXUiS2h1sqTlkHBadAip
k7SQVEdlKUnqJvu+EyHDoGFmDDNmxv6/nlf/F8+rmZ7rnN/jul99r8+775Kj
p39xFqdQKFfnUSj/05i4JFWOSwce81zpfvgdD4tq8UDdWXfnM8H7TqyShLt4
GTin29g3a/R/QtDdsckjOnuDABFPLkso1ygqHmCCtWROvksKn4UuyZ2cWtya
i6Fa69JmuVVJDATNJ5t9d71XFjcmFs2L5lUsGfyjGK1c7nBwGf0DJiYm/t9e
qj3CeTGfjaB6a+GOhWq/0sGZaZvXaGLPRorWCeZZIVziSWYFdrm4sxIXvWtO
1enZMYqhWeJIqsGu6W043O9yjgF1gFhEb+pcvn62OQcRE/8bfv56UZnacjpY
X/s2HDZ7lA/O4nTrOfquXWhZOoWPH6aB9dGDC4LSU8vAevzxKwuZ4Dawjpqq
ldaiyMPQ/GSb57BgcTN4F9g8HRhtEoD13y1Okj1yXYhYNP9auPRzWlQDJhbO
D78FSuyj04hFtMf8h51lrf1IbCjG8LRFCzgHj5jkOOi3EBP/q7b+Wfulgw4L
nPsuRGhJ4U4M1csfe+c8iWlGUB2tuejjnL+bMbFopsZvsrpwiIntTy38OhHF
J56kdor5+fFhCgecgy9LDi1Z3Yw1V9LDZp7NRcTE/4ZZ0587qn3uIZ5kzrFZ
aeKpn4qgOu5MjGVhyRgylkvglXsPYGLhbL/Ie8mxtHYcZCbjcecNG6zNjCvz
7Fa3IGLhvP1Xa8P7r7iIWDTrB07d3NAzAdbKjYYJ6zxrUUmq68a+OVQMzWo7
PyGvFYWIFpIycfR4P1jPlOGoSoXB83p0T9O3rwllTmFF1r3vJJ6kTj24svJu
dRdYM8NWLTiW3AfOaRPR0vFuZTg+l7fiik0dOIsVBDSdCqRkfZF6qNqyLh6c
L+YLPjyg8TGxaBZ7L/etOTUPQXVZ4Q3j1FXdGLods7Trd2ZUIGhWZN4am571
HKyXGza8/jjQAt4zEpO1WF40YuJ/1FckC+1Z1BJ8VHVr1WVvGiYWzWrm2ZUO
H/MRNKe7jYpRsz6gkKZ1nmnH+RiavUfeNl3XbEPj96IjrJcOg/MUavuTTIsa
vFHFfuWMVAE47/PqGah/UA3eno+/HQ99As+WZ3wuKar34cthsct2PuYiaM6d
dbTPyrcBQbfsuqvv7O36wdpY8+lUBo8B1t+WZf0SfYuPobmqu3jlCrkBvH9E
2uKGOxtBs+3imEtb5NkIqn+XGymTL0xGUn50WSPExdB8TdtWusyqHdtJSHRQ
hzOIif9R76H6W3mZ56CeVdvfNKd/JxbSq4vX9nQ48dHc1Obqw14McM6Ln61h
/Z6NoVswd4rDvm0scK4Jb7K6ZtGOLlav9o+U6CcW0vdc9/tcPihmDNWSAdLJ
L7GY8ZepaXKvLnDBOWO6QY0YZxRB9SzHkZiwrbXEIlo5ePj+1EY2dlFjfHb3
GkbQHJ4rGZYYTcUp8bv6ND/wwNmmVWl5axIH7W75qtrL7ATrmu+pi3uNqBiq
zYxCk9Xus4iFdErb8S0pRgMYqrn6aXkJNxuwVZtZv7EdD0GzgZGjqfk6LoJq
Tcmj706YD2GoztzQ/ehIZTdYO8ZKWYUq83GY26HixfQqcPaYabkkyeYFguo9
G9OdezdXgndWrUmEkhkHQ3WL2ZFEuYdMsJb5ang75wkDEQvn4eaJZJ0dNWCt
h9LmLaPzMHTrKtnEZ86jGENzj+sUd8uCYbC+KZ7m1jUmkQXd/W1RdsnN/Ria
09s2pBbpN2GoDlCavSp/FhUHHLqlZKfVj6D6tVnpK8tEDobmkn1zxb4HDYP1
s0GZ8XMuPKw5a8Q0w0KAoDluiW2s9ycGgu6tbXNP9TzmYmhWm/Nz9sq5teBd
F7r5Uv7zVATNtzvGE6Y7dRJPUufRjHOn6NCR70AGZp+mYmhWuP8o6cDDZhT9
5+jm3MtcBM2Npm4ZsVrxePvby96WzycwNG9tLn8dfpaJoFtryxf+x4xB4klm
P6ng4J2F1cQiOn6q943oBcPgHdHcSwtd3I+g+ZzX77V/FA9iqHZOPy9uWTaE
57UnVnddeYehuq5jWZ+vDhVB9cOXG8wn6L1gHWSgttQ8homh+fyKsrNuuoMI
qtetu6oUWleP+uV+R1pRH4mFdLhPjJ+JczmG6oRFczcaXC5HUL0zVmpF+P0O
1DhXM+f0b0MIms+dcPjIEwgwdKcpxKrHqkyAtbLOhHL3lR5i4n/Uxx98c6Mn
sVGla7HRBkEhhuaDqipqtXat6HjDm7h9ARPgvNTOif7q2TDSDk8PGMsdJRbR
z8uOLAuKYIPzdt7yoPNW7Ri6aypY9Ut0GOBckHo5xtawH0F321a2V1RkOYJm
FUfnAT01BliPb2OnORbxMXRfb7+QrNDMAOdba2idU00Gcabak8s0djuGZqe1
u9UXSjciYtFcvV9LMfuvNLA+m7/DNj68H7zT/7J5fy+XC85725RK+FKFGKo/
985buSm2H8kadcUazB5A0Px2xOaUW9xrvPc+Q3bn3XYMzdR2s6iFevmIWDQ7
f7h60LSvGMdNEX+35ikTQfOC4AMyHEYi3qgWxOpOpIGzfJP31z2PBohFtIrk
tNp6byqC6unDPiqBTe/AusRxhh9FnomhO2qe5s5b83gYmjNPzdyhr8Ql/kHL
njG7Ivk7HxEL584DP884t56DTxme32ApYBIL6Z49MakL33EQVK/suGg+/lMn
WI/WPS3k5A5iqB7Mzii7t4GJE3xzaoJXVWFonhETbhEUNYKgessW/czuvVR0
94bL6bYVveD8vGjp9afWg2DNLGHj/QWdGKp32l73e3ChDUG3UZLsEP0ZHxGL
5j8ZBrQl9j2YWDhTlD8VLtRowLunXalc48tEUD1qoO/o4VmBoXlx48kufaVq
BN2PXNOMg/9OI55kltUdtPB5lomhu9w87t6DF0mIWDjTpdvkN5gU4wqXoISk
UCaGaoPozW1DGV3ExP+KHQ/Hic/JDgFrU+auQ48iGoiFtGOAzcjq36rA+lle
6acMpwnsvN9OY94aFjj3a98qb99GyYJqccbmu14l4xi6HbHu/QvN4lnEwpk3
58rnkBMtYB2/ZfewjEIv/rD31b6zRRLgPOZwWDIksR9BtdGHi0GKgv/+QrN+
duh8V4su8Nbxmi9hkVyJiSenOadKe9ZkNhBPMqufC7j+20Argupai6KZD36Z
wMQ/Zk2PBVIl51vB+oq18y716Q0ImstWqW3/ZXQcfw0bPhpX0EEsoinZyuoa
q/oxNM+p92F6rc1GUL3u8bV07zQ+sYg2Dy9NU3HnEf+gJ94rVMdpccB6fDBP
fOuNr8RCWnZ4SmKG/CAm/jHjwji79QkFCKo5fNc7x5LrMDSH1ilqmxaxiImJ
/x86NWJrmhWlG0F1A/eMRaTPf3+JhfOBc7sqL9RSEVTPfSjQrXEVYKiWGl8e
UqpBBWv3JDm6R+84WFNiFENpu8WziEXzgWOa1GYZGhb/LWbc+ugAsZCWW1Hu
55HZiqB6/s3Zeiqlnajq8ckTsiNscD4inn2Se74DzywVNBw9OEgsorMipozL
LhwhFtKv16/w0hAQT1aPyfb4a4X3ocqgmIQ4xVEEzfLnBJec5jLwnpemXvaR
XWDd29y138qWiqG50mrP2Q4DPlgr0BOuyj5oQ8Si2cXS2qklkYZv2b5c30cZ
RMTCWaFbxSUskwfWf2ace1tZO4jnm8nf1Mhng7ORyY1px0ZZCLorHAy3RuV/
xNDsHb5YqqmMjaG63Vgd03a14ZA7FkdqdAbBWfvLa9ei9x1YpvDtPr2/OGCt
5XrywE+/9ILzc+dQqZPuPATV26zHKAdszqMdVYsD7DZ1g/PviXIRr5o5GLpX
m2zXPRvFRVC9fHHs4fDA1xiqp4nr7L1twAPnJQVlx2NxF1iL36D0LA2hgXVF
+Hq1xtLvYG17okxf3Z4K3gFx9MgndV8QNI8FZ++1udIN3opvW8vsUooxMfE/
6emsO4kJgaPY11+gUlfZDs5ZuzQzXZN4WMV9ge3G5A4Ezb7RFkev7vmIoDvy
kLNqUG8n8ST1t7AC3saxJkw8uTxcJBbesE4A1iWqzz2Yvq1Y71vwirVL6cST
1HeU7uxZqS0gFtHa/lXX9K42IWh2xsdX6z1pBGuP1Xjvo2I6Ip6cHvlsWz3j
QSMOzY6SunXzBIZq7/FAuflNBQiqJf5s8Gqz68TEwhm9WbiNJSVAUK1g5J2j
GkFDmYYaqlk0HoJqnYOjp8U9ijBUu71jpPNHvhAL6f3+SoFaO8fxw0/uAr5a
Lzg7WX7woZuKZckcql0RP7MMQfVq2+sH1N9SMVRzauZXtBSUI2LRvFD63e6A
4lZiIb212v6ZGWMAQ/fJwuwzsw91g/U0NQqbPUssC5qpsw9tkdYcw7sP+B8p
cRjHUP1k18i6M7qdCJoNOW1VbuYSWVCt7qp3ekMHF0N1UVjOs59kBxB0JxZU
eZ49DM9fpRed4g1xsaUSxfuZCjybGyTLau+nYbOYiORODrGwdvC76/HKnEH8
g27y5X5cr9xBLKQVR2XzI7dzwXqWqXSkVu8Iguo/c2OVKmUbMFR7/jQaEO+d
RSyiO76d6/nwFx2srfel6Jw5RAVvTZ6yl5z4lCxi0exTbJnzsbQfQzUrRd18
FvslIp6crtpdlec81EQspL/Oc1vEPNaHoFq+4PUaOZNSTDw5zZJUV+Tmf0LQ
bWc9Yl/3mIOhunfpJwmfqE4E1RcCW50N67lg3Y1oF26njYHzxc30gasrhrE1
ZY3GjbAODNWsPyz1entoCKoX+cxlfXLhY2LRbMuTPqfT/RGc7be87RxUbAPr
174LFSP5fOyWYzRQRs8Ha8+ROddZYq2IeHJZgbnXVD+Pi6DaoyryUokj8Y86
zlPGP+lpC4bm6Dh3E0xjE09yP2vzKD1p/gFB87PRm5tsvnzHxD/mibyfTUPq
aeDMuCpzyM6RjqAbtaa+oJzpA+dthw32V9wknqw+7pMVoFvGwVD9pqLA2+kO
C6wfrTc+7rL/OyL+MeNi2wO/6nIxNN96Wq38fdkQjt4y6vD1bx5Ye2X1/lXn
9x2c7/nv89GkVYO16nV/zS6LcezEYB25e7ADnDd6rH7vElBDLKKDQtL1wi6W
IKguryvQeTejC99kHs7k2HYiqHbi2nrGJvHBuqa+YvvjOf3EQlrfNeyF05FC
RPxj3jz0vPteExcTi+aHzYEvni5qJBbSSZbuGqGO1Wj96fo7X35LQdAsf+02
t/VQEdYfyXXx30nH0NybNmf04uZBBN0p5m+drG59B+cZX/iOl4y4GKrX6gTH
WS9g4KQHNrf5tjRwLj05a0OYASVrOadWZbcMH6wd9/gpSD6G692LrZljy1oR
NBdLyG9pMCEW1V+a+T1yXmwM1SzWWsYbWwGC6oAnp8bv6HIxsWgud9EsiN6W
jmWSSyQ+j/VgaL5g7l2v/wcfL9ipPSFXWgXWRXdT1k1zGyUW0ndrl8aeS2Eg
e67stMN+3Yh4ctq8dnT6+xg6OKtpVNQn1IoZQ/WOgtRtM5Lr0f+1/wPzePJp

            "]]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJztx2k4FGrfAPAhVLRQ0SKKFFokUXTkng4ibSjSKqGoIymcSg9pIaFIO51W
pAU5Ilv3ZGux7/vOMGYwm33pvd5v79eZruvpf3nvT7/rp3TM1dJRlEKh3JhL
ofyvNy8EuFjNHMIbLAa4savZSNg/dTju81JLjFqwVMw6TbkZQTtL5cZGPadp
4G+4ym6ru2QthvbqBYrMUk9xanrw1sTplmXk5P/VL+Dob9vxaABB/+tFJdfy
wyRp0B43/d0NThQPnysyRB77hjG5YO9ZKLPkxJMOJFIWHkY3GUXkgr115dm8
8yFt4H8rMiFzQykXQ3v4nGu5YSfZYP8gc5DJmdWLoZ9n5qd25WYPgnbqt5TP
fctHEfT7/fRwV3CdwNDedU3E4NTxETRs/Xd10KV2sE8V9VI5fYWNoN2Uvl7x
dCQDQ/0cdJ8Vf6kakf/aI08EbtlZNoyhfYt08B4D+Ras98fT5/ebmAjaRzjW
jV2+ZeRCfoX/uzGqVR7YX3/4iGMpxyYn/y0Xf5e6Jyi6GkH9yZtNHCvPMiwW
PL0qOG8QQ72uhoGd6vFOcM958STzcD0T7CNdCgP19HpwKNUrHD3mIXLBrvMz
mxV5ohFvue9r5TNcCfZKew/mRe4exdB+fkxr46BmNXaqsrWM7+kiF/IFgzLT
0kIGENSHG9glHFxZAu5XRO+u2NUThY/Qu4p/vmZiaNdYK15fyeTizu5Ke2W3
CQTt50Rdgpq1+lGZpdy2NFEO2K9fsMIl2jcXQ3t+cKO0Qv842K9yOTL90Lwy
TC7c97Qu1T4kRaGST84/ClCdV1jdiibWbLmalz0E7qHrtKpn97agE6PpPsGL
m8B9UcWCmtPL67GmzKUfyrEMBPVd3ha3A++2YXLBHp7ywfRBcSrePzXlaVt6
I9inOBiHdbh1kU+y004smvnOpBtBvV3baseb/ZUY6rdT1lw+2MBDUP8xadv4
n7u/oHbDlx7zg/nkAt5Ny/51DEoH+wwL14lVR3PA3yWOmrJtfAhB/RVqs+rQ
0mEM9S1eurFUqRFELthl3M2vO4xwwZ4V4O8WHz2Mlj6MWH9gy09wn2J6UdY2
mY6hPnFe1tbixe/wy0JvqrNCOTn5b7n3G9aUmpYBTD65Lu++abP57gAE/WNy
EetUngwjqL/ovf3TpgciVKh/MxR9nP+ch6GeFeutonkyH5GT/45/dv5ZrmpP
oUG72tVZL7zuVKDK1HLNF0bdmFywJ/+hLJY29IV8kr/h+nXJ0kf1YK/4Rv22
oSQfQX3YucG3qU2DmFy4H0xJuKe/joWg3p0/4883pQMY2oNZVIv4uzRke2Wp
s1piP7i3q2l8OHCtGK/yCBhtvfIJ7Bvt65/vdvoO9hJlVjLRue3gfuzUpgCL
MDqC+pLonUev/zWETOgOOFO7iXyS/duy82qHtw+SC/kzXmKqu2XEqOTCfV+q
0txh/0w0mPvZTG+Mj6A+7LD92TxNCg3qG8depx4uakTkk/P98rKPTaeyMfnk
+tmxkZjIlcP4pdTLvdf82hC0Lyw+OLO9rhORk/+OF/eu81lyexzJNqwIMC3o
B/ddiRmfTJTH0bfpiuEjag0Y2rs3/fPT7Sob1XTsonxYnY+gPWyW5LSMld3g
b7Tbvt7CuxrsVVLVt3qUD2Oo51KGhpbVtyFoFz10tlTyaC34z5jYptUiXQLu
ZezzQaiKiaHe63KJLzW6E204uUzNYj+FBu1fxAPueeowMPS/Ejf/vD1qAkP9
W8kxTtTyUfJJ+s3rXU1yysVpUB9hw8+2qBcD9yshyf+Jce7DurT2soIFYxja
F/pG2OeoDCOoV7KYqiCGS8nJf8vFV4TveSD/Bfxbz7GzH4e2gfs3jZ2y7ud6
0eX4+N4H/e2IXLCHTnynG0cNohM1NY+rxT6QC3jJQq5+0oYefPRfubGAxAlM
Pjl/3nmgblbZMLmAV7roE9r/lYmgvrLlrvESBTZ+l2RysclIhEYu2N8aiHqW
u1cg8l87UtvvwHBMw9Ce3fusUkW0E6028otKZfIQ1Ku9KfJ9v+oHuYAfy90r
ZmfHxWfckaVq+RCG+lPHpn0c7m5F0H6h4JSh46Yu8l98qULr9YmHbRjqL1g0
4HvzeIhcuC9ZmFMvX18N7huX2yhMiW0jF/ILl3h8qlgJ/yZlTi7P7SrB/oP+
dnt+whC4J8bm7lzr0IoHLnISda3bwN3nQEW62+MqPHumY/n89H8xtO9eLr6U
PTqKoP6zc32z99svYG8paqvevXgQQ72d5/untrJtYH9ATGLuiStsciFPy8rS
6pDgIqh/RS+9vkmvhPwXP8NgdzHHk0U+yT6zPdntn5Yy8kl6i0yvtHCVcnIh
7xAxO9tVpxJDPbNV3tFSByPo32Clu74lmAv2EWsDrhXk9yBoN/lk4rNOvBND
/8Pej235LnCvkXL9ueuBVgztJ+x38Zmao+RCnlfpPHfwZBeC+tYtKCZq1wgm
F+66SzeOVzu3YdPFJlr5uXywf2Poa1R/vATcs0Ja8h2f0cmFfFyd70bDL1xy
If/MRLkyRiwLMwO5s9V4TEQu2F/cRnGMRh6uWH0oJPKvC+D+pOBiUU9cCdij
lcHqhzvKEdRf8D6iGRVRj6Gf/3ZZxlaFEgztsRm3vagigyiwaC2n2L0FkQt3
s3MdNsbvu8Getbxp0YNEJoZ2nScd/fL9rWBvts17/jL5Xvz8uYaP5oNOBO3q
2rFHyh/kkwt5catvWvGcOCQ6XfGjSXU3uLvcsf6WWMbDDxZRUIHVV0wu3GMf
Ve4MkmlG5MLddVeXiOsf1Zh8cr1vXbna2h81yL2g8pK2A49cyNP/PjSw3bQH
QfuLT7uS/4wcxdD/5ob4ZfZOPob6L8wGMw3WOIJ2b20NzAjtwapfL1bN1O3H
0G5RR78b/DEPMxUSKqaPjoC7WM64QrVlLb76h8yKNB0u2OdcdKxSdpsAe4V0
exeTKVNo0P4q/7vKP04iVOiXSttTbPycgaAds+5MfRY3gKCefkr2fGASB+vY
LCzIlx4A+ylB6XN2skYwtL9WMa4/3NeHNKrlkrz2shHUt+j1Kb1zawL3bX1h
nZtfczHUX97ScMvTrgWR/9rXyjqpLFzYCPabDPI2rtufDu6KM6jZa2K6MfTv
8vBfKFkyjqH9O9rSQC9mYLro25hMg06wPyRFz7upO4UG7SqbNH+8zGeg3mLF
x7toExja5x/pzJqRwsJfMqTMFnv1g7vSGcZXvbAMsGfqanw0Mh5ATuF3oscS
JhC0yzma3w/ZO4a2bzWUu2zBBfc1jXufZdqJUhNPD+teoo+Ce+Hhtoe9E8OI
XLi7VFTWfpxTCPaHN/6r801ThAr1hnyxHmPpn+h2RuTxg948DO0fq9RDk736
yYV8qf/eH8tP8cDeRv3Oxne6vWjxP4w1t9PaEPnkepmp6bpS6XZMPjnv6LNS
+lVeCYJ6/UuhEkl0uKfRwhRfLa3CpkZbRCZWRIO7n75I7uYvWWC/WGn6Scud
BQjqOx4xXabZ1ZCT/5YHJ7QOTU2j0KB/Q0b8i6a5NZhcsItl5yWXDhShWZ3z
tweps8gFfKonCjg9twPJHrRZ+/f3UkQ+OW9bFLjjhHkzuNO6kpyUjJjYYqeN
aUgQG0O7f6VcG2t6Lvq6X/2R1kAfuG/27XxXXMBHrk3a5rkOowjaj58ba3We
Sce5tLcbDPKGwT4sTstvtDKBXMCzsNLP2UGN6HNcj+cSDg2TC3YZx3CdsLJz
GOrvjqRb4ZZu3NfidP/V7DZwv7mhKXnvSCF+bnnGV/vvIgTtPc6rQyQCuDhi
vYNy3M1acgFv5lh+9entWgT1nkYbL4c41eJY3pJTp15yyAV8jdV+r8HzhUhi
64K5nx35mFywSyu3jkys98Pkwn1OUAHNe0E52FN3ScZeNaoD+5ajVt3crU0I
6iWsX1yttawiF/JrPsfQUm25YL+D8bmxLb0Tvfb36mz+XoWg3Wh+kuQm12QM
9f4c5+81mm04fspmZpd5FCYn/2++I5QS6BZbiaDepYZ99VoUhQr10QWKOlfn
kAv75NCqs3k2DAz9km8lNou7HAH7N9WrU1VqxWjkk+sJO8wP2zxqxpE1TstP
S4mDe6K3op6P0X9w44GkoFuMIUw+Oc85c0tPPqsEQbtP2myD7UwG+LOC7+45
WdyGob7EJ+276dYqcgH/oaLKfZoMG+wzX3svMjR4iA9Z2tx8WNFOLuDlBwoq
pO5zUZZ7UrvrjWoE7ckneRIlXmJUqJfFOhNv9jQj6N/Ez0wI9CYnJ/+/j8x6
/wVnS1ChPmu9iMfNeZLkQt7AcJrMmWvjCOq13p8SiVjJA/tpJWt0Zx54j6H+
4WpL5YuybHIh3xi2s+H+KAfsNS/uDxnfD/eMhG4bacpzBPX1XiOX1da2YKiX
vh9gJ5HyAVcqz0lR8m/B5II9wmGP+zK5ZkQ+Oe9v/bejqnY5+HdcNvcsGWQj
qN91NTZQvTUH7LdEbL7XrZ+KyQV7hr3+h5x8HiYX7r23KjIvimfiFvv4D5y+
lwjqP7tK/DwW0YqhfbWtndmhGdlo7l/5P83NKFRof71EP/X2X+3IbTW3giU3
iKFdaiL/zuDcfmT7eKoENSWIXMB/dwv3vbqHi3Ys0Ks8/q0a7HuUbqw059WC
+9fgGDUX7iDad8ab//hMB7hb9Bwps9RtxrNirKmPqGxw/9j3qT0zPhf8n91c
xOiRLwV7uptyiNqMG+CeYTuQpyjSi6D+w96pi8RjapBCitLpPaNMBO0uaiL+
fY8HyYW8pOUsjWo/JrmQX93+vFA2NBf8i1RXdcUY/AR7A/prul9aKbibbFw8
bcG3Gkz+a3ceGmSknS/F5II9qftTrol/Fth3xEnZGg+nI6jfR738yNpvDH2r
Cv9yZl8tIhfsT83G9WY9KwZ/l/88Y91bScfQPlVanmrUwCYX8hpFFzze0wfQ
H3UKqvQFteST7PEDMqa2YsfwwU+z31VtGiMX8Ipn9y8x4nBQiCErYQl7EOxt
NlI23xXjImjHcwI5+UcnyIX8LSkPDeQ4gP6WkxP71xSDe/UTqyvhqs0Y6lMf
G/9jcJiPvqW6qzg6McHd/PFw1qn7xhjqlze9fzT1eCPYz68LbpmvnQf+P5JM
Pzle4mOod/bwPqOv3U0u5G1SQ4urCirBfWeV47oYuVKcLo4HE9Xawf3YsZbs
F2qFqDTu+slWzTgE9WljqZrMo9UY2nOsPZ7kikZi6K942VW041kXuJ/b1kHR
9etDUP9aXlrChcYEey2ZxhUlpixMTv47XlN/fN6TjG4E9UVDQ7IVdm2YXLgf
o6SqpqYyEPTrUOZ4LZFsIxfyTAepgLtT+WB/8KGZ8z7pVnC3Hm7mR6gyMNTX
xc/68dS8GDPv19GndVQiqDd98fTBx0ImuEcVOsuXdvTgfhPRirlyWRja74Vt
b/Ct4yOob0gYZjcVDGOov2PyNvPgOj6aITmocvxyF4L2kxb2y/wpAygxjyHy
J68TQ3twhenLsigOhvoLsmPU6GdViJz8d/6ZxnBJXVA3gvoiRuBMLVU2hvbT
2g0htvWjeLehw4YDVjlg768Z48loyETQrl6XsnTznzzwz45m8VedTsbQfuCJ
mfO2pRxE/mu3lbKf1WjAIxfwkn7pZxtzRsBeP5l/do82D+zdjTdPHDLio/NR
Y8viHrLB/QA3KcYmXJwqfcKaYou7wF09//AR/W0sBPUbXLhOc0TH8f+3/w8M
vTCH
            "]]}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
       AspectRatio->1,
       Axes->{True, True},
       AxesLabel->{
         FormBox[
          SubscriptBox["x", "5"], TraditionalForm], 
         FormBox[
          SubscriptBox["x", "6"], TraditionalForm]},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{0.5000000000000284, 21.}, {1.5000000000000568`, 
        19.00000000000003}},
       Method->{
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotRange->{{-3.3221674324334636`, 
        2.2647359906056783`}, {-2.4989746340436967`, 3.2600297108642464`}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], {576., -192.}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}]}, {InsetBox[
      GraphicsBox[{{}, {{
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt0Hk41OvDx3FEJGWpJBJSUaeUJO23nChJSqeIoo02LTpxKkW0inJaldSx
JFHKUpJwj+yy78vYGctYxswYa3qu54/nev55/rnnd92d+5n5/vW5Xv99rrfG
oTOWDmIiIiK3p4mI/Peeqt3dfg0OA+6RV/rc7zz4PzYendm7fMEP7G6dvEZ1
tmkLJNX2ChEKXgszkK1kG+apVjWG3eoxqpH6jsOAMn9uaCm8Shcvgahevylg
1j7VLECqT3avHPNZfh9S5s/19vKH7noNA1I9L++6uFbSCLEu8vV+2tw5RqwP
OWrWGIQ2EusOn92WFwO7ibWn3HtH2rUcSKrj1633b4j7RplPu00KCJAPegVw
e7FkhzbTLBegutulOFh+cQp2X1YUc5gd1IDsLYPL2kJiWrE7xu55PaumEaJa
QYfN2NXdBEn1P0+Y+yweNQLcjtgyYOJe3YXs5S5PWVNy0yjz6Rs8n/v6VT1Q
2O3x9eLnENt+yr/a9de1F39iYrf1qoR23aFGZLMi8tilE5qBsHtGzOBy1o5e
Yl0kT5PMiXQGqM4IlTjpJl6B3UtiR5L+8W6FqObsMkjRsONAUn0hpZpt6NCB
3ZM3dT5Wft9MrGdstenTVKIT69P5LS1ii38CQfP6U3ppO1+whN4Hnkaxlvd0
QlSnszISHx+KArgdlHhspktgk8CZIWErExH+DbuTIl0nzHj3EdmZ46Oln5U/
YHdVtrP7zKfRANV6HtFbnpzgQNzOeW34UfltCkT1s6ppS/WvdAHc1lx71NT1
eyVAddE/mjr7dxVhd4rtpvFIXj2yE/cv3RRoW0eZT8fM2uhWa5kCKfNnlSUd
Eq5BbdidqXbipPMQG6J6f1POnQFvGrFe1OU7e+GaYwC3wYQBLbneMoDqtI/h
V1IK84j13iVTXy65LmJIqm0rFovKGdQCUq199a1R/cFgiNuXc2Yn3J3Pg6i2
kmGmF5qNYHeo1sGRherplPm0iKtlY1gbB5DqDZozTN0dmBDVaeFPglUP8bC7
9o/Zs9Y5VwNSPVVSUnwT7R1Etb1d097sdKbQm25b6dv0sxKgulTWK91qeACQ
6vcN5r4NpgzsXmzpXp5Y0A1J9eongcs/1NYSawn/ue/VwhqQfelS+wn3vd+J
de7N1AeV34eE3g/27HAsnFoHUH30t+1+Vg+Z2H0q9oTrd7UxYr1k4hXduE4W
FDQzTVqe3tKpgLjdcdeGvihsCJDqpclRwf7No5BUr5h4JyxuPrm+uufAmyWq
/QDVZqkG8/30qgFub6txSZT1HoCUf7GHp91ZNdiC3UsyLjbRYnjI/pnGiDOW
KcDuWz1TztbpjwBUx825pLvMu5wynw4/8DogI64Fu316bK4deD4IUf3ArK+9
XaMd4rbU4Qon25xOgOrpD1zpx/NbibWNS9yngepO7O7YMua/zqmPWE8Zily8
8t4ApMyfdzqU3bNYxAKC5osNR3JWPWcAUv3Q5URRjHU3sW6wXahwfB5H6N2k
ckEmZ2UWpPxrrbwme2kRIw8Ku4FB5v3u2QyA6oiE8ejTBZ3YLWcXqlC2i0Ws
NT/5B1iNFENBc4j59Fpb2S/YLZNvqXc8gg1QPdg509FoUTMQdrOYDvcD34xA
Uv1Q82RH6jgX2V5lhic2GnRA3H7U9srhwItmZLe7yNz/ca4RkOo7yrpvXsez
IakWiyljMOrYALffBBjM9qmvA6g+GddWWZfAI9ZR60VEVNTFDUm14lzNO+6R
k7F7YqyZnnvZEET1tTzldA+XQUCq7ZmVxza61WI393L0tRN//yDWBTp7/Qvz
upCtkzKkdamrBJLqjt3XylTze4Xe0yxZNBf7ToBq4/AbmiY5bOy+evFZapsa
G9lM9zt/5E39ht329+zLptPaIKk2y8zqvbi1GdkvZMTCZwT3A9y+6Jr6ZjC8
E6B66uudKRofeiBu60WuMF4rngVJdWs9cJKNiAaoDulpP2Vi1wdI9XIVn+hT
3o2QMn8Wnap7exC0E2unveEtstoiNFJtZ7JGO1G0FZLquiO3WhrFioi1h1ys
To9mK3Zfc9zIPukxCkn10YfrEqSMmpC9w/vixxifKsp82vOKntrgaC2gzJ9F
jlV9NNtNJ9a7x7f9XC3VQ5ky5f/Ds+7I71faNIjdg7qvi36cg4Dyr3XPcwnj
YB4LuxV3HhVL+XMA2RtvdGaHHu2mLKCWsDvW9PcHHnbPPV+etXcHB6K6PyEi
a59cNMTtA1tFQoO548S6+sbKdtF0HkC1t/lL87qeNoDbzt82JFt7MSCqxZdX
OK+O+iL0jpSfE3DRuhYImqfdSow9WH6eMp9OGbBKNWbVE+uMT9J7Y5aVQ8r8
2XtUP8P88jB2m2pMkztmP4Js7RqOw52+csp8eslNX5tKZQbA7fSQOpu3sQ0Q
1VbmA9YWi1qhsFuj6PXmpY2NQNDs7WcKRF0qAG7b3JP6TeJyH7E+a/RyzTHL
YohqfV+vZz36TRC34/SuvN9+uhigOn5+S5/JXRZ2Xxw5E/FepwEKmtkrHks4
vQwDlPmzWmme9m2bJOyeMid1m5FkAUD14gunGx3kq4i1OzMz3ksrEeK2aJx1
xDX5RmRz5jCHJso1Y/fYNQ5tUGyAWBc95i1STBoi1tWHa8K2VAxBVNMLqhX0
OmOJdd8MjevlY2wg7A78vPZnkykDoNqi1WThdWMmxG36XP+Rv7Q7BM5P6VFr
krOrgbD7DFPv0UyRLmT3XVZ5fPSPZuyenl1iFPOgF6L6o8LQ77c/tGC3wcqF
bDEGA9knQcnN4AAOFHa7TxDre6JdgWyfgC6Hc1wWdg8oBQdoP2MDVO/yzMua
cjEYUKb8bzi3bijbILSSWO/SuD8vZWaz0NvISqWzYgoL2ZM6fUzWaw5htzRP
d7zoTBok1Ue5xQ1n9dIBqke7wryvp/+gzKej7rz1scgawe59Bi4a47OZxDpW
I5lbcaoL2Y1cjZ6h3cVC74aDWW1F5V0Q1TkZjorbXjVCYbfpwHvoECxKQ/Vc
+fpcm6XDxFpnXYKVYlcbdrve9H2rcn6ywNnr3skgj3lcQKpPFRx/r2afJvSW
g63rzX6EAEHzSKxSB9Osg1jPPxi676lNNXbH+j4//ndtNaT8a12StmeTSEEb
JNVtnswuO88WgNvKaUlbrmnXItu3Aj6YRE+ClMn2yt2hqUW7KpA9vFldw7Ct
BFAm24NBOkE8Pw4g1XVri7VV8roFzhdlWjO7KzgQt9eFfGRZ5dMgql2kytat
as3E7r/FmvVLSrmAMmXK///cDN7OTpdthqg25P4e91WLDnD7pvR1yfNigwDV
DPfPG+vz6VDYfc67RtYtropYr3LqcNRXLaH8i92tpLcq8CaHWDMfTJwxKl4P
cPvwV/vcT0OJyJa/3N/wTqYQUibbj2Md/GWUApB92pfxj6ENg1gfXnhKY0yq
mliHLeuvEGuLJ9bG0XD0jMJPYv3BoU86fWY6sT5vfP6RyNYXALfNr3731ZcK
g6jWMNz4xtqXTpnyf+T8nVIumzXZANXsUL1XKbOKIW5fk37gsrq+CtlKL+NE
1+W0Ybf8HnWpjEAWZT49oHR3ynPZhwJnXv4J1/k7OYBUG64vnv4oi06ZT5se
bXEL3sjB7jIV06ejI8PE+rPbdb+b+8QMKfPnLxL+X/S3/29P0qyyXawq1V/c
ENXNbs4dG8LcIW6HRE0wCldmA1KtzhijL6RlQVK9SNrCsf5JKSDVGtb93gmn
RGmoLnhlUzuPkQ9I9aItjatZGxnYfXpamLLPP6+BoFlyvmXFyK4s7D61xrfE
SP0dFDTPHHjfvdSLRaxn2Zm3TGL1EGuJJ25x03oYELdXfN0RlPg1EpDqLy4f
fbd+u4Ds0VKOwu8beYAyf66g63MWcCqw2+m3PyXb6QkC5xd/VJcZOtQR63LJ
MOnbUh7E+lNqYsjxMjplPr1KYezmAlovdme31LUeK09FduryA1mKn5uItU+r
1uZyKzax3tn2VtnXqxWS6usVYcovariAVB+17nEqZDVBUu3lvHagJ+R//5Jm
sdNiy1Z6soTeUsBhVnB6AbJbe2j2I+vrobA7XTd+2oWTTIhqp+mFBbSMYYDb
9XRdX/mZbIBqzuosnVyDfuzO3J1q/udWUUNUx2epabg10bF7Qqu72HatAUCq
3+mrLHswzoaC5t1/lf71p1YTxO2412fDDn9oB6g2yjR71Xyfjt0VufVVGXVM
ZI9YZevUfGkDuA2dr3yMH22CqB7y4ih/mtkFKfPnbV/bCi2UGom19MCPzLXT
ewFlyv+G/3b1yO5awYO4HXDDrsRiAwuguqf9+4HAxc3EeihbueivPC6xLp2Y
F5hVUoPdrk8v38q/0Yrszf6KlqtmDwHcLvptW8WxzC5Iqtem5yh2NTUDyvzZ
rn5O7avnE2mottTjHd65tZ9YR9rd69II4UDcDhDdIdm2ORqi+mW9+snCda2A
MuX/xE1cyyDFmAZk1yePRnyb1UmsKy58U38Ux4O43Vq3bnq5RTNAddLXyZWT
TncTa22tV7apvgxAqicnX3axrykj1uP5B2vSjTnEusHRb+RlbTBlwv3O2CNn
YnYZspMOqZvNsuFC3Dbue1TreaZf4BzqKKuaZiFCw+0ZuzLmHE4cpcyn5xgV
ca5LSRqiuswl41O6iBh2M7VnSSQ1SCNbt2ObttwkLsRthY5NR7jnRIi1g3iy
5kc3FkR1y+tQRrjCN+zWTC3+npTTiuwEsclN0T6N2G0SMfxuT9UNgGqns/my
lw5Bynz6ftfZ8BcdY8QaFD/bal3Cxm7jHxfnysq9Q3Z4nqjt9w1SNGE3d+rP
3vgDg8i+WZzz8NtcGWK9Y0WsxJnBididm5/cYnN7lFi/GBB9lOTaimyzI2l6
V6w6Ial+YXiHPpLYAnB7bsT5tnm8aGRnaZp7Pw4pFHpvTFY96j8xGpJqA+te
p6wV4oao3hM6x2FB3wikzJ8XpOo7HzzwQ+i97L5X7px2LiDVorlXoyqWliA7
Y6rqBMUAFmUBtdvWIVndWDqxdn7nYBL8uh8Iu43P7MjrzEwVOD8a8x8KOliL
3b7PJH8/s0zEkFSHGq9NOs1gAsq/1nuTLmxwLu2DuC2px5qTpv4dorqEtyH5
ijGbWD+esrrj25FugNtXP39V9VTvpMynP60Gt7TCuwXOtz3pT2aX8yBux0g9
MqVncQGqpcPyjbQiyrHbaNJ0y61KTGJd8cThDaQVQ1TLL8/PCtIrwG7lojVp
BgGVANWq/rqHjWY3YvfE9zLP6q82QkFzqVdSzKncAcp8ejj270/mZ7oAqdYs
D4lW+NgDKVP+T+yd+tRnSKoP2UnMgSWDLRxAql/bBmj8M1PEELelzm6aG9/E
AajuuLDIgXUhD5JqPYV9CeohbECql+lqeO9fkA5JdfsfTpy6p5UAt7+fWjLZ
9vAYFDQ3b928aYrUGGUBdaKobhltQjzEbXuv+A2BaoPE+lV4fWTKUg6yD125
e3N4XiPA7ZWsMrP8iXRkT6oT96jYz8JuukHR/SmPuwCqG5rEUydntEPcZic2
l7wuqIekWuXnhON/MMYAZf6sVOPkBD4MIdsnwzzydz8WINUSq7//WCrSC0l1
RkH8vOSdpZT5dPZlE6XOHQOAVLOeyJjnHWVjd96G5Z0FFlUQ1fdXTuv2msLF
7opKzqzkklTKfHpS6cOhIZNyYu17ZO6CXDkOINViiuaTPBd2CZyv5LQEJTC6
iTW378n4l0m9Qu8n0V7bx+dVQVK9YW1BZfXeWiBobmF+SojilGN3qXnLTrvn
DIjqbedVeBJ+LCjsVnx7q8fdhAVQHeiyfIXEnD7sFnHqeVm4+jdkt03eBwbd
KHMMc2M2JFQjO8rB4vdw+xGht4f0x3fRvSI0QbO8n71p1i4b7A48URT7oo0F
Ub1Le7XfeY4IjVRrPdv6qPpgKyTVOo7L3oq9acfuloaUV2vWidFQPe+Zqud8
i1Ri3fJXd5xCUiOxvmJKf6omxQS47afcKBZtyYKU+bP86r++/tBhIvvry6h3
Cxe0YvcDeoNn9DAPkOojBnLnRM9lCJwvNFzOdFMbpkyZ8r/oe/v0T0fvL4So
VsmTWvBDo0nozZRSjkke4iL7sfS2I3VN/RC3319ysN6c24Xsc0b9OS2ROYAy
5X/DaieXSKwLGoG4HReqHdEvX4bs9De3pup5F2K39J8P03bVjQBUv/MISH5Q
XUSsa4xE71oxaIBUz1kzfUvSdAaxvnct4XnUZh7EbeX7FWeNX3AhqqWCrx8c
vNsNSLUcV3c4fDsXu5VYa7szXNnIjp0wHuPin43dQa+5MVP02gCpdi7jXbr9
Kh+iOl5CN/RlPUfo3b/vyGW61AQaqo3Y+2UOfaVjd+xWP6W43EYoaF7r+GKS
tl4Xdk+vvn1lAPAo82m9qeLKHllcgbOdy7NlMwtHsftAHFMtMSoM2XvU23g/
x1uJ9c9y6wePG0cgqdZ9bzG95XoeEHZXPvEzfxjeD1Atu6Qhy2RB+b/u/wIO
mt9P
            "]]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt1lk81eujx3FzZUiFpIEiU2TaqUQ9K2nSIBmiYiNU0lZtkdJMtEMJ9adQ
SaUoiqTBQ8hcWOYp82yZFosynHOuzrk5F896vZ79el5r/a6+r/f99+KzwsFt
vxMfDw+PvwQPz/+shuju13Xr6UB2TISHtaQK/tsuCryc85JRiuzaXkmz0bwW
QJk9n7/QtTBPh1xr614R2ZrFoMymj3V8CL66oRe7w9svR+okt0JUS3edEd0n
IUTDbRuXgXzjb2XE2k5juXsUHwSobr5Bjz8Q/htQJtuJ11/ueyfLk4Hq/+hZ
+opVtEDKZFud9+msaeE+gGpeN1/3icI27Ha0tmUECQ9ynFW8TON+efYBUs1s
T2NJO/cS6+j8d/rCFU3YbZG4uWjtTBHn+WaO5FmZcsjtNmt7Ka1V0AhRXWnt
+3RDXA+x/lg+PrtYtJRYR2jusjvpx8LutxLWRnvBA4BqcPhUDTOmnFjrJF9S
NpseBLgtZB4S9k3nCbKt6Fnj88/x0Ei1iqxifFAZ5e2Rr9avV2+BqJboNPiQ
4Q8Bqe45oTDkJ58EcXs40GTdKv9eQPnftcy1UR3+FY+JtY+yQIB+UCtlNr1C
4lvQ2309ALdz6D7wzclhZIfE/NNtUt6G3f5GE+H1l+kQ1d7jHjXHstKxe0HS
dwm+EJ4Myuz5Bb/zS6lrcyiz6VlmH9f2vXgLUZ1olGtgvyUFUmbP2z75v/34
rpoymz7S7NjwlLcLUOZMDzw8ErNbrJdYf4/zXu/1aBSS6tN7AgzKHw5QZtMX
Fh04faPzf/+Iy4t9kqWr93cATvNGSQUw7pWK3TeCktWt3hZDVG8fqTSTs++k
TLh7hT29upQbkN2tJ6a+bVYXpEy29cJz/lJzTAaojmp5MVP/Vwex3j/03Caq
ZoJYz/mjLjRgzgh215/cFAE9ILKPT0ZHaBkPE+t2Pfvfr5/2Aty+dnafvM2h
PIjqzrOB7m17u4j19P3VxY+ss4l1lp5KU3jCFCTVL9Zsyr6/oo5YywSN/NL/
wQCU2fNY6OUtf8Q3Yfe46NEYl9g+gOqtMYltC0WqiHXPsG7ATfEh7I7Ybnb0
tnklsZ6VE6k4aPkdonqd/DUZus1v7P7gOeF4NaeM42x9x1HGrqgGcruvWM5N
+HSGAVBdfNrbT6ZrCuD2gEKH/7aXA8T62uyJQuvJAYjq5+BE6ExXHbHWMpTN
DDZjcL1FXa+c2nGvC6D6wt8lUmaiTEiqDfuCt61pGMdu9dHvF9IV+GmoVt78
dM3dsmHKbDrmz8qj16xGsXtVu/mY35lGQJkz/VFSx3Cd0ijHObR49+26/fwZ
pDpepnUZ/5VmyO3mCw1d6T9ZDFFdMZJsu7h5CFDmTP9297bS9Rjlet9OlPU5
rP8JkOoVUxOZnjYVkFRbKmxeXXMlGtk8zrN0Lp9tgKT6bKKdzpG2QcDtHjTM
SYgtzQSkWsC5iL6H0QdR/dmqUKjciTK7zp9dsbV0tBm7nS94L6RrPEd28vKw
0a53HcQ6IWPrFU3eKezm/2OekHngMMfZuPfPgpFlLcT6YshCa6lPtZAye964
qGhVxLIa7P6gRrcxedaGbBvvLZZhm39jd+p5vrarwXTAaZaT/fropBKTWG/m
a9TN0y8BpHqtwGqjZV7DxDp9pwu9h4+fRqoH34Sv/fSdl1hftym0WCTPBNzu
GPspd41bxcS62eCXQfF7OrLHz3wReK3cBEm1cLPa+1GHNoDbUj6Gxhs+5XCc
B3a6ypTVMSmz6U4p2agWN3JdwGiW7EjtI9b9l/ZM/6SNE+tbzcmRjTOV2H0x
N29x/vcxiOo3HTZL9FuHsNt4vXik3m4mQLWQ3Ndwp/hM7M4eS2JuTBtEtrmS
krkZoxfidqWMXuawSByyX1nausmq9xDrYqE3ESKDNQC3HR7lX1wVNITsqsYr
GvLvBiizadrExq38ukzsPrOq3kuuYJhYJ88OXnJ8Hovj3O+/zkMwo5NYW0z7
r9U9UQVJNW2Dl7rR3CHsXhLY/FBfZQzZqmeljU7wDQHcHhfYbr+YMYPsJ04L
Lt8rzIK47SNTfX15bhuyDTSezaRfjcNu7VfrfU8NpUJUL5118JpnyzNAql3j
3sl7zO2AlDnTWbJiihWna7nenvu0fYJSpjnOH+dGHdTUE8jA7Q0Suxpz+YsA
p1lIs+7i9aUTkDJ77t+iOj8quYxYK884TA4trSbW9hPfcrXisiizaZc4t4J4
owJAqi8YpC/b6pWN3YYLjtO6oiaJdVDiSzHg04PsmNj2Vs3rHZDbnegZOHR9
axNlNl36+P3i1W9+QVJdmfYrYPZ/dzunmW4z2CPq3oXdJTO9oz87swCqP4uF
aXw1rQXc7r9o9V9S/p6TgeqN3wSf2QePYvcuW8kfnZuzAKqfP/ixdXVHHXa/
jM77U5u3Cdkl/j6iZqeriXWejvWR5u/Z2L0k1m3nvN4yZN92FDG5FVcJcVus
yOPZmgcDyD7ZJB5rsLye621raqQofD8T2UF5P1+riPYR6xd+Vq/tfqYR6zW7
9Xl7PzMBbqstkDgYdbgJkuqCQ9ZG9Wu/AFLd4P+y2bqhBHKapbLu7UqmtxHr
XqXJoFxBJiTVRb0qwVpuE1zvaZuIDxmBLQDVqoIHTqVuEsjA7dbJuLiptlpk
P/f4GpXaPgMpk+3KDu+2VpkOiOqGlV68zer9xLpR9Hha40AmuY6Nl5oj3o/d
fkcF1+5WawOUKf9fq6r4mzZn1QHc1tHyMf4z+SayUwZt0yZcKyFuZ6Xl3Zg1
zCTWWvYLk3hPtUFUB6vslUo5WgkoE+7M3bdmP4oBqFb+Yp3CN1BGmUOdGWYi
avlkELtdziywOP+wBNkfju63WzynC7tjjZolwwKKOM60MnmxFoNqYh1pKcSo
OMCgzKZlzquq+dW2YbfFobvCtMVtyHa+N/yicIKPRqpVmvdv6T1EB6R6qYzG
tedt3RC3LY0sX+ks60S2ufsDX/8tn7neZ1cYX3qYOEGsJb2O6z18NE2sl9by
iXwSHoGcZhh045lfWA52i4W1uexQHAGolp2d19RUVoLdMZn2lxT8eWic5uYK
Q637xu3YLZsYVfltgAVQ7cmb0uw/kwFw+7uTYY//+0HKHGr1cx3iAbbTyJZd
Ndc9TDKbMpuW+ZkgFBqQA3G781A0Y3n4ELKBYPmDocx8gNun3PLW/ZXIRPaB
x9vv358ewW5G8POcJh4BGqoX2ppJFK9nEeuh5bOdDhQWEOvZ7sqRWZsyIG6P
5HufaxvuB6g20fefl1bXAUi1XZFOvYsOA3K7GzYV5j62fUWZQx3J09jD0ugg
1mXPBj4kevQQ64sxR+6u4i2hzKYbDgrO9X1ZCUl1QJmdevQdOkD1D1dXmuid
csps+kGpQzCoHgG4fY7p/yCxpBTZ/WfN3gcGDRJrJcsf7gG7Ziizab0FV3c5
KzzG7qTGpwuDp5Ihqu9Jtd+9rcKClNlz5aS/U9KjVoDbqT/SBS8o1yNb8amN
596+JuyOTxA788f8XmSXnpO4Wn66EuL278DQ8WTzCUD53/VG1sf3W3pZxPqn
usUs9/PJlNk03SuVj7erFuD2SglzqKQ0g2w1z1q1dREdxNo1NOeUsXATpMye
y+7vM3I60QZw26WiJOWRRB1EtZfprhfmH9Mhbr+OzD8Td76bWOsvajy6x7Qf
2bkdAs0Tf0Zh9zrerX7RunRkC7R03Zi1uhjgtnGJ76lqgUaA6tqB3i+dGp2Q
VFdmtK2UHOkHlNlzoKytw7xTVdi9PnemeWNWHrIPq36Z9driK7E+VGaX6ZOf
DUl1ifCOQ+JyZdg9h7lcgSdyklirXr80uePvKWR/2aXa4OT0BrufKcU4TA/T
iTVtdHzbewEGsi1fm4uYqH0G3O6EnNjuHD9eGqr/0ayizxfpoMymK9xctQ3m
dkPcvr1nXVfd3SaIagdJtYisg40At//QKr1iLMUEpNo8etXLzLcsiGq+Ztud
5Z/bsLte/XKtwnx0u5nSWgLv1GM3LSOzlVZegWzlVKlcyZYeSKrzVdaI/C6q
xu6S6eNrI9IbOc6eLcyF3v+wsNtU8myFd1ULQLVxt/lP9e0tgDJ7ZvpNZAVZ
DGG3tNvugrKHDIjq63ffThWb9WN3bc6Gy3cFapHt9G5L03BqO+R269lu/mtT
JH8GqR649beHrXcjJNVNy20TCouqAarHj2WHL9kzjt2PArQ9t+lPIXv30JSt
Y3c3INWm86xuaafUQ8rs2T9tjou2Ax2Q6hJez5LNYl2QVHvxOc7w1dYR633n
efQ2fW0CuP2Wdtq0t6oAolrVZDrgktQofi+7l1MpzpOBaqFY+XdJs4ogblca
+knXbhsDqDaUO24xqtZLrFOlFqR6vBrF7piN2SlfWKMQ1Tee3y7nTenA7vJR
Dfmq6GZi7du95taRc8PIHnizJGl2cRd2l3xLV3BMy0U2s+Rz0uuICmK9/fPN
oi3zOgGpdojNUMy/WAhJ9VFNyac/LgwB3J48Z7BO1pgOUJ3QLHhjze0O7LZs
elteKt4BUf0rzbKpFNRD3Nb/dbjM2WII2fk2V3eFGQ5wvb8agolYoyFA+d/1
22NvpNQKewFuw3suf6+oqYCovmcgmfBWLY8ym/5+skPnS2U113ueSbXe0uwO
ZA8+Wnh+vLELkur7J9JNZu2sAqR68sPG2JvGbdgtHbDjGp9xL+V/2Wu+bg0r
FimDlNkziGlcXm7Rw/V+aqSlHO/zG9n5rx1Y+xayALd76o5zchiLDkj13ADp
JHeldmQ/sQjTCAFdkFTzlKYLwR/tgDJ7XrdO/GZULh1SZs81QlFhUnuGifXX
x7GOzEtj2H3eKJilGdsEUS1kceHSJ81GQKrFTZY/VTzCxG7DknU+B8AgsjOj
fR9W7e6GpLpxzCplhTmLMuHuXOu0QZU5AEi10viBGV35fshpXk/nTZVLZ1Lm
UCu2RG7fvKEV4HaU4My+OI9ygOrKTrv0M47NxPrDuX92nJJmUGbTLN6bYivs
f3G9F0cwq+JlBpGdo3f/QxwYI9aCI1FG8dqd2P2xsDiwBYxBVNsem3e1KGIM
u1f6GM0bdOHJQPWiMI0biU01ELez9ZN1S3+VA1IdEJv8VC5nHHKan2QLBz2+
+4lYN2QUWlm3D2N3dfyqCi+BJmTP9Pls8+wcJdbf85c/0e4fIdahRwytqkLK
iXV4Qe3ItMQ0ZTZ9Tu/4bqs7Rdhds9Gx/bnoJEA1q+YwI3tLJSDVxS896jS2
jxHrT0HWLQemMiBl9uw9c0djf0E3do+ZKTkE6LKQPeF62O2wbAHA7R5JhnWi
bwuyHxkKHXdTbMXu/Ju5NdkPuiGqp459CCovZnK9o87o8szkDQNUPwlMOl+n
WAVx+/Ul34t7HDuQXSh/5eOyfa3E2l80Wu7C/Bbsvi92pZppMcRxrg+Ze/eb
yBgg1a4iCwpNrCexu1G2OGuzeyPkNO/9qrZH+EEjsb607zdwMauDpNr5n4E4
75u/sdvVHbLurh5Gdo63/4BLSg12p/XGFIsm8tFQHQ7M9zknD2B38ro1OWWZ
BQDVoacrhXRCWcR6kP/JzlybWq73WZrVTPa8XmQf0JGLC3gWSplND3zb8x9d
+3ZifSX7p5eh7xh2t8wNjuR/WInsFOUJlXLtQa63iHxLsfCccUiqJ50aPRRN
xwCpfqyxxfugdhekzJ5Nw2dO/CXczXFuYIUe/BQ0QqyXvFoVqHy0m1h3y2sF
mp9gANwWaH92M6KmEqD6TvXRhumfBZBUB2Y73/SKGASkeip24I3j0wZiPVTl
prfXqonrne56IzPcuQWS6lNNC4NvWNQCVB/36Bd/HlIKcfunmvQK+uYXyD5d
tWJaW6sCUOZM28kXJMf7lUDcvnD+dKeO4ACy/UUuat743ghw2/q6e7//dDOy
3dM3LtNJHIPcbobTuRq+byWQ06yvGn2z3+4Xdi/nL5kpi6oGqM5Spdn/PpEN
cHvLQ0bB/qwRiOpBo4nEX4/bIG67rPEVPOw1hexn8w20XVf1YHfxDTfL8HvD
gFQvaOo/6fyuFdlWSYHzBwLKsFviSybofjdBrA+HStEzv9Qhe2F59pjDon6A
23Kal0MO2rQjWze1i9Y89w7E7ezPVXW11f0Q1fd1Dk47GtQAbjdDXEFrqfEk
sm/uFtoRZPkOcrtlfvltepI2AUh1ON+1nhTdfmRrfQ2jScJCYh2ivHZOwKVy
Yh2n6fBqqWYrZTbdB1yZtd+GAKnOahn15ftQjd3plxnHU+/mQlTbiQ+rjo+y
IKmOP/vx8KHVZcS6qPCH0fvePuxOepOe4DSPBVANnHfUe3ZWYfc9E6Ul2ef6
IaonoteGVNhnA9wW69K0jx7iySDVMTMqvA+zGyGqwelX79KEAiGpXv7Txjik
dQRwu9MS4rLlpHkyUM2ghdK0E7qJdRJz/NZLhRHsnn/esOh3eStA9ZCPnXCZ
5C/KbHogrkV4pVArJNVDCrKmQcxB7D6svs2XFV+G7Nb2KDOrKQaxvp2YemVs
bxPXO2zRhZ0ibjw0TrP3yhUhM5Fl2D34/ezmnpEeSKqlBX1HcyuHkJ3UaC55
yjkPcLs1szuLM5xbkC1vqJSw2XkQ4vawRk/4mFE4QHVywe9ThsweYu1+0PJZ
3ttc7P7m2G30dW8fRHWmyuWpB7wZgFSbSCleLZVrx+5lEtd4jh2q/H/9X0Cn
Mc4=
            "]]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt12k81dujx3FTEUIhQ6g0KkODopRFcYiiWRqcUkSJQg5SKdIxFNKgUqdU
lCRSKqUlhMg8z9MmtnEb9t7m/70P7uuep8t9re567f179H29n36ffRZYO+2y
4ePh4flbkofnv3fi7LYtjPpO+DwkUMVcugb8j3vtpFczvjOIdVdxiJltRAd2
+0i9KIixb0W26dKmdad291Oeor8kK64Pf8ok1v5mP77J9rOx+3j/XMXKc6PE
2uxS2eTCMjYg1cam2/f1D7EgZc60wS2Fgw7GDGTbP1JaMzOvG7t72GMdZ/5o
R7bky9QoR6d2Yu3umbdlklZPrGda/d32JbkRu9vZ155/yUgg1rb+IzPLaXUA
1RNzraYHCdAhqfa/G7cy72MPoEyZk73ZdHpD7U06sk2cExTdbWnYnX+YfSjc
ro/jzHxUNLJZrJzrbXXo7jv2P3XIfhHisHKJYw/lKVpAol6jS4AGcVv/dn5h
WFsWRHXNHsubVrKD2F2qHno/cqAYoFpdTV5d4QiLWO/Ie7+S5ZFLeYq2AIGN
wm8zAWWy7bzlI23Rg2iOc5dmJZ+NKw1S5kxrFRo6H36dBXDbfDjqzIgaHVLm
TG83WrpisVUP4DT77Fpc3hjJr4fbMav3dkVGortnnOfIClsB7LZqPWt4I3gQ
ovq42VPpE0otALeX6UcJ2V1iA1TPWvtTYWkAxG4VxbJY1rxBiGrVxmXiweYD
2B3Mtj4jqpEGKFP+tws6rwxNzubRw+3ZFqZHjZZlQVLN+mQdG72RP5Xy1Bz8
bMaG/XWNANWBrrXhR3nHAG5XClWqrtOph6h+EpKv2XR6lOvN++FHkOPLT4DT
vGHI9Va+whDX+9k3+TLNWW0Q1Qqy4XLpbZ3EWirp1VmWWwuxftHw8MnDox8h
t1skO6l6254BZOftqxOaNpcBuN2xaTo2/mbNANWLUnN9Lyi/grg9WKhaaGJZ
ynFuPkCfc212E6BMtgstD2oGFfZAVFsqmbrIdrCw21X7oWVj3zdki69WpcXO
KYC4vXlMcMW5je3Eev1ogEzhpX6O83E1uzt329sAbkvvkQePzbsAqn0DZhk0
GTyHuD03Omv9jjI2RLX+8m/2j1OrAG4LZ0uHxpp+A5zmFWc3eOfNb4GkWiKx
MP5hZAF2bzu25tgF6V6IaqbHmpR7kE6sjya/DPoc18z1rslskXHNCuU4r257
ndF9oxng9sGYsENfPTsAqjP2jR9ZsYZJrFfeWwqTzGuwm9/3Nb+xxwBE9f3q
VZ3egWMQt+edt48618AAqJbaohrzrIPB9R5496ei3c0BiOrJNR9eDPtWYLfY
3y8El++vBai+fGTMfb34KHZnL1gbIqJUAVGdEaRjz1cwiN1nhHp3RMWzAKrv
i/szz6jwp+K2SUSNptJzzrPcluemOtmjELf13y47PKmQRazvb3eRmmvBgKi+
YtT55Il8H9dbtcGPvTGAjWx7X0krOVoXdrekjzygrxlAdoHRT5OPcU3YnaUW
6j0Z1Ybs6usZe841lwBS/UY3dteXH33Eev/iDTt3ifZgt+jFql8OMdNSOc2G
SU80dM4UQdzOOmUxTU1hEqLaydFD+bzcCLEWDL97zMKjAbs/MV7oiy9jIFsm
v6wqwriW610//4alrs4HZMdaK/Zf+MqfSqoP02iMkYBSiNsJokLeYo8akT32
8rF9h3sh4HZ/8D4wSJOuQvYb+XHPW7w07G7e4K9kkjiIbHH1g0s95ZkQt+10
p9uJr8im/Jsd59Zw1L6wCZDqTj9DpuECGuUp+pCC4CbmqVZIqitrw75HTTKJ
9VqjyQpF63rKhDvP7MltCT8WQDX93p27ifNZxFqKR0TuUHIiwO0jcRvlbUL6
iXVFn8SNgfwKjnPi4Gdeu6Yi7A64OjwRatsHSfW6nYNPwjK6AeWpeaGUZtOG
93Rk39OKZq4+V8/1vikoqr9DoQqi2vPbUVZhTiPEbbG9mrlp6Q8B5d/ryrDd
o9dsv2M3r7tPwPI1NIhq3QsX743trQCkejr0bJ1uM4jdx5ewbY2qCwGqTfhf
jt9I7IKkWo5pHJ/R24PdR971KmkVDkBUm4auDltnNARw22LRQp7vAqOA03yD
x5m9/C0Nkmr9yZs3XTRHAG57Xd1jUyzXAlGtyjhaOfN7PiTV/Ssesyc887Bb
Q7DYfde0FED597o20Dt0tUMVdp+UoauFtNKIdfKSgJZRxWGOs3FmiM6yKCax
ps8IXxQ7UIjdDdfirv2SryPWoRdcNgtvbyHWypa9jnt3lUJUKwnYqCw83oDd
zvL0RfY2fch+c9Y60/47g1hbX+tsO7oPvzX9tB3NQhnIXjHfyORhOQ3gtomr
mmTkyUFiHbzii1iOTy+yhdWubJOuZFCeor8/u37ltiQd4rbnG/MP86WzAKp/
JJVF0paUYXfCUPjuvJ6vENX3g2w7886mAdxerPp2cMbqXMBp5vNUifNbUgO5
3f76hjoCeY2Q03w5qKd+7tsBgNsqrreG0jwrAKo1Rq9LNsmMYjef6GyDx1I9
xLpHQtP/ZNc4sbbK/lktIlCBbO2UKosfF2iQVDdcur1m6/EhwO2+5CBt+yG+
G9kbLm8s8bLqJNblUXrqfWXZELedfDL/kCtrgaT6bvq5PsO2dkD599okxqRQ
TrQX4PYzEa+l1Yt7kE1/JBR4KKET4vZj+Mo6/CYT2Q0H/rppsJQBuN26rzRZ
ETdbKP9me9xzY8UY1BHr9mrvoM76YcjtrnxQ/oD/fBVEdT7t6/KY+naut5f9
+ezmi2+RHXYsTNI3ohG78xeU2v7Z2YfsQjgncaSuj+sNlgSri53qRraCo+WW
iptFALeFbzlNWrKakJ3yUNn9u2In11tZbChx7UQj4DTP/uY9sOTqEOR2R/av
Mi560AZRLWlzLUnKkA5w+7hG4iqfT2xkH+J/w6txjAlJ9V7lCF+rY4nYfXiE
z/JMyRixFgXazj19PQDVpbCe935NCXZ36Ja/v7ztO0R1mfXdfSKt49gtn296
elPbECDVt1uuWgdJlUBUF5r5OGVeH8Bu2pyPUn/IC+qhWtbuerlFbCkg1aWn
rNNtVhVAbjezNdncWWYasTb2Tqo9Gc6P7GkHXOYaj9YCbjfPZZp+I+8E4DTv
Td6tvnoVA7sfn12lt3doANkRC0dTkmLokFRLfug0Tfg8AHC7x+fJJDuFiexF
r1RVLjry6uF29pE0vviwIcpTtOGQqPY+IwZE9frd4sbTP9ABbk9oamvJirMA
pzkmXGlDmHMN5HbfhW9EHZ6ziXXuyewyaSsW5d9sZsEO7dzAfIDbLqEtmZe2
j0BS/ee7Qs+ki30c59oto7WM/T3YHXey4svEjFKA6s8qTJZPWAl2yy4WqM/L
boSUp+ZYi1u5X28lI/uY+OvC5sZ67M51aKsOAI0c5+mCz9dmincR6/LTze/f
P2sg1in8Nel/rGrF7nL59EAXURqgPDWvuG5bUTezD3KabzpraK1l0SFu91wP
TsgSYyF7HU/ITx72IHbbr9K4Bi3QvfW2hG6UDB27919r8gsynUD2ekn1YTmx
LoDbvR6tO9uZDGSPZ61l+DUPQtyevy0xxGtmGCDVPowHz+0NOyGqW2mGs6Q1
RrE7go/2jXlrDKC6YTD1xxxbgVRSrW0mLDHLchji9so10a3X9Ecg5ak5d9mP
bPcdo8iO9fd5mvmWXLMdX0+TZQ4Ra6OLz7YstO8EpDp8bv6J9o2DkFQbsiRP
uQQWAdyOTBybHT0rh+O8dc7zzuVt9Vzv6Rn1IozXDECqhZT3HWZcLqf8m72Q
9a6mr6oQkuoLF2pDZhR3AlKdUzBXtG1OBaTMmV7MvCMtpD4EuN1P3drveFmW
IvvQ9Heh8eJpELdNdS5tNb9ZB1Hd21yRuHcnXyq3e1FT2oS7agcg1aKiySMn
Btoh5d/rynijS51GKRC3DVpdzT5upgFSXVxjbkX/hw1RnRhxhVdE8C3A7Y5c
H23ry1WUp2jWhoM5u9QYxDpMiGFsnkcDpBqc/6vY/2o/JNVhDyLcopQ7Aarb
ir4sWDhngFjv9vb+JhbJgLjdGvZrKL2ANxXV2vo5cYPB01Jxe72+22hJqRCy
UxyFGrMUhyFum5lsD5MSpTxVe8lNuLqMdEBSveO+bWdXVjKynealLOj63E+s
ZeZOWt9/147dxSJfo9sO1ANUV8Sdf5T7MRfgttnPmTPcGXRImfK/rXsieaDy
Ahtyu21jJlwng5oAquM3jbMCdrGI9XmNgiieXTXEWlnN0j12OwO/K+OGu0AP
JNXXXVbLXxDsBqS6m+0ZPPGFhWyVUJdghnkZINUmdb57Q/RKIW7f87h+/IzR
EES1uVa6WZEoG+B2ULriR3enfsBpTnBbe2GmKp8eblsJLO7NUmhDttD7EpWa
Hfg9q1CpMPFTE0R1jNPFN+lx3YDbHbCztp0m1IdsU485Ilp7+oh1hgu/ebJB
B7GuFl1O22LczvX29yhYXpLUAUj1g7/ez1pSyIKortR9+PzkKT493N7k5SUY
Nos3ldPs+al/d8RbXmId59Icvv8fHuxmJlt1xm5nQlI98PEh78f3DGTbzr85
vT8mD5Jqkc3CrufPZWJ31n4vD0Gecsq/2WOKK9980u8m1ooDwZMFkX2A8tTc
fGGhb7/XCHafHU+5fKKIyXHuXlgc8OJZPXYH/jnTSKY+CtmuZhsF5EpZ2D3x
R650kukXQKrHBEY/uzrGQ8pTs7C3n2VcMg1wml8YLZ0vu7mT680XpBLgu5+B
7MTS/Y2uYtP1uN0lVY9l/BS6IKpZfXvsRZyZALd3t+4tGIDFANUnnpVaRuYM
EWuNnQmzHlY0Qcqc6WdKumM8P5uJ9fwTh8e/hnwm1ucqn6ceSGwCuH33tbfh
6qpBZKcbWIu82zuE3a1uKsbStxjE2sSxSubY7gqIauPy787Tvg5wvdPsPcPG
pZqRLaFcMjeqhQ5JdaHDTGcHkVqA2ym0gJRUxz5AqmP2LTLgfdWE7A1prxqV
xlsgsQYtLQqmv7Bb4XSk686yZshp1pFbdmpNxCjX2/PT5vsSBQyAanEFHTdV
XRZ2N6tcFlm5lQ5RHcG+pOekVgNw25352GnvH6MA1Zs8EhNnfB2GpHq0MUAq
ymeAWAdtSNLQ1GUT65yvTjXz0guwe3Ngzotbum0c5+vzoyoqrbsBqVZyNLp6
780QxO172mGB4b6Up+os6XnTrMT7IKqH6zylwyxaKU/Rnz7s1nrM1w1wu2iz
Ufnn4WZkf/vH452QQy92Q7du/fcyZYBUm4glyOn/V9ei2iP6uFtUJhO7b8sK
+ynzMyCqI04UbNTa8wK7j581Ff06ow/Zf9NeJ723YBBrt8QUWfueEuyWOB65
r05nENl1h8Zyou/SsTt5TqX3QwcePVJdvo5/svvUL4hqdmTIbuBdS6y9d/Rs
e5nMhKSab5sF3x0Gfyqp3uGuVbQknFw38RheV0/rgJQ5029/KUm5i9GxO7Z/
br1wWx2ydYVufDo9s5tYa4u8fJIh1QhwW3RsQtemqIzyb3ZOnhXfi8xR7M41
rjRPaMgEqL5r4ul4vIxFmXAvbK7w2vitCnKafYLb9BXNKJNu1eGKnyaevcRa
ouH9gXPCbIBqvVcLTM6pVUJSPbPCrJp1ZhDgdobGn3Gv/BuRzXKjfVU+Osn1
Ztp8E7uQ1oDs7APfE28o5EPKUzPr0hV1RukQsZ5ct/hieTabMuX/k6ttOrPP
dGdBVPtZayse/SCQSplsC0d/ui47SQOofq+ecMMrehqxjqlO8d4y2AZJ9YvQ
k4xgoW6A20vkOjzruxnEmi4XfGrHymZIqjdI6vLcsMpANo+x+3OR8hJiLZZU
fvCpQTHXmzF81GuTMK8eqpf/SuUNjByFuH379M7Mq/EDANXit100H1UXAlJt
Uu8Ste51EyTVUffP77ozOECsmUlHRl+yhrFbO1tULvjaGOQ0V/ukf7Mz+AJI
tfH6CKdakRFIqscmDkpZ5vCl4vbHldkWKt1MgGr7nNOHzz8ah6RaR/GHoMmV
CWLNaMoUuGT3E+D2lQ8KWoq3f0FUfxl8lOxvkge53SdnPH0wHDMMOM3qi/eU
yjq0A9xuvrGi5fbqbmR/0LGQnGjupUy4JSPfznPUZCGb39xNLWtuDXbH3Nqt
/Kt1AHKaa9Vpu+etTIO4vXVa1PKNsAtQpvxvt7W+3H9arRrgdnWPfUmG6WOI
6o+zTq0skhLQI9XFSwxHtnpNANze8GOpldOeNHTTfT7oH27HbsF9fvP2a40D
VMtFWdbyq7dhd+t41/cfbV0Q1XPmDYr5yg1it1jBmtUOZnRi7RmQILsj9R3g
NBtLxL+949pErL3W24XkxvZAUj0mOk9WwqaeWEerCuZ410YC3C6QYW+Lyi1E
9k5VhwyZrGyI2/WXd+RXAf5UVAv+erPd27kdkOpy34eB0ZNNELdj54WrjurS
Aarl4u1q43h6iHWTWo9nkhcTkOofW86s8TT43z9Js9eszOzIyH7s3uQa/XRd
NptY8/7V7pLfDyGqJ3fGj275yMZuxxDGurrX9QDVD+75b2099wvgtorw5x9m
M2jE+tO2Lok0wxZkK6+98+Dx4wTKU7S/wmb5lZu7IWXK/x9eqKsbb7e+FLuz
H12zKr5VBFGdWfy9+EtdAbH2bfYLym3rBqT6y+yO2Pvq3ZDy1GzTuzM1/zCD
WHdkaI2PLU8FuK3bZrmOPr8KUMbj/wCjXwCd
            "]]}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
       AspectRatio->1,
       Axes->{True, True},
       AxesLabel->{
         FormBox[
          SubscriptBox["x", "2"], TraditionalForm], 
         FormBox[
          SubscriptBox["x", "9"], TraditionalForm]},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{0.5000000000000284, 21.}, {1.5000000000000568`, 
        19.00000000000003}},
       Method->{
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotRange->{{-3.4316934015521907`, 
        3.3592453382781193`}, {-3.5169726892438034`, 3.458249167630366}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], {192., -576.}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox[
      GraphicsBox[{{}, {{
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt1nk81Pvix3FbWrQoldBCCyppoUjymQqH0HrktOhEKdGq9VSWOgqdSlFa
RYRUkiwh9UGEKPtOgzFjGcyMYRjDuL/fH/feP+59nMc98/3eh8+d+fz1fjz/
e//50nA8vs1JRkpKyldJSur/VyZDeuLwr2yg7bg3YeclPvxve2HQl7BxpX2Q
dK9zsqixlqUQ9RzD0ZFtC4aQNVt1wUDNhSJAtv28BKOkG7IA9siaMacuuvoN
W+JsqZ3hfWt1HbLWn6ZRXPHwCyTqafJVs/LfVSPrsUd8w8+n8ki3TNRpx/Cp
GWLv5htMP/PL7RBVTwroPlhmlA+wRXPSzLvBytPpyFr5bL7eluWl2CJ625uj
0qzLw8g6TdBk6z/Yi6y71FS649XbkHXmwSd3uDKhEFs0ywlV+nkDXYBs79i5
+9Csy2WAqB0uujq9UuhG1tfe698ICWqEZHu2eZGz+5cGSNSXdi/WzTrDAKh6
QeDcn7vPCSHZpq+f48aYPQCwRfOK96kbnsr2QaJW/clrOEOThazT4PH6900s
QLaPq24ud1z/SuxdWWjvEGvJg6i6fue742M2/PMvala2CDa8bpqIjZi9ZsTU
nmEOAHG3j+m4HAOlftJNmXAxriWXS9jCE9beGql9pDvgiqnfoA0NEnVlYMdW
hTNdEFWvi+heXGnERtZuLsL82QafkPWWsNbm5QF8ZB2boDNlpT8TGzGbrqnR
uSXVgD3CLudMdL4YlYesc/i0cst1RRLnSB0rbWPfJoCq5eICc35tZ4m9pw2d
yH7OaQCSZuOvO8oH5KiQqJvsj2x4rSRDIdufTba6MFV6AfbIOuL3F9YfVbBR
s+2iswcKptMhUdf5uX0Za5gCyLaCc7W/hwobYIvmV/qp7NKnXGTt6dRQdYom
RRF3m3Le68fm1iJrls6k58u9KyDZTr5z9ITc5FaAqm8XT8509e+FRN1qHKN9
ZSuHdC/luwo2uVUAonb2r2q6uYIDJM3XnWkNFnHVUNydVW9/bD1kkO7vDR2F
ttVcwo7QDQ3ZrseC2CJ6vmsnS7sPkO2ILvUmLWc+YdNuDo4JWM2CqPqG4O6v
txc2ArLdPpra/VD+A2Fvd9GlPFQOId2N/kGf5svRADb2SJi58qai9l3irijM
2tIdXQKxxdNv3ycXJo1rId28jcJvj6toUNwdpTomw7uaRrqVlhhUuDfVAVTd
WLDNJjK/GxK1Fq82N/9VDbL+Wr88PIvBAdhomb3ZdHxiXS8g6uGU7w2RE7qw
sf+Sb/y24ejmw/kQVQuO2m2tmdJD2Bec9qxRS+sh3b+b9qS8Kh9DwRbNvkmt
FdSz2VDcnds377eTb8tIt+DW5WGleAhQ9S8Kt22W2nIhUWcv8e5osnsHJc1K
4fcClWmVhK024KQE/q/3UfXRL7sdnlI7SXdaUnxj6UCx2PtlouuOs5UNEmf9
iGPqzVUcsbd0Pvea5lUm6Z7P2Vzs7FkDiNpkkuqNtT9+IOvAc5Fz9C8PA2y0
7H2vNH63LY2wfwkunGKiLENB1dI59JBnX0oBqjZM8LOzu8aDqLqiyz5nnAUX
kO1XB2gLrXL6Iap2/iD09izgA6Lex2rUU5tKRdbWTYcPs6e3Qmy0/PHd4afG
1xshUSfLubWy4joBNvZfcaizbzBDjwawR9ZXZlwfSzOtIN36ptXMBRuDsEfY
3J84TgdX07Cxxcr8947sHR+EkKj99WfPt2aT72I9Wz9pqUpsEc3ubjmUVs4G
RH2PO2bHIeU+SLbDVLlXp2j1QaJW/2l3rSqlFEiage/9CuVYBhB3u/k8D1Z3
ESBrzQvLzsZOzoaoOiXBMVbjBgNgi+byzYYDztm9EmeL0x7j00LfQeyRdcms
6Snju1kQVQs+P5vZOpWJLabmFlYaXHlRTLpjAtoc7rkOEHbnEF89eko5wEbL
o/ds2mcW1wNQ9fHxAfeMUxkQe2S9wOR+0OyMzxBVpy/yeHlpXx5A1avOf7oy
4cIPSLYLeqNWe9zsJuyTFmCtnTGfdPt064T6Laoj7AclYXsnXeICSfNjw2VD
Gz0qsMXU2Z9POrpANhB3n6arFjzI7kHWJsyin+2uNkGyfatAsVr1XglE1Xln
QhP7dFmE/SyfsdF7Cweg6n2WkUr6t6TSUXXr9ju5DXmVEBsbG/vvDrz+sF0x
g409wp7rLf+muqYEGxsb+x9+Mm/0qrtfWQB7ZO0rxfC1MuxB1hu05n3L39+A
LaK/PPL6Pa66E2CjZRNw69k6c1kKqn44YS6V/kk6naij1jKvumgkQ7Kdv6nE
cXebLIWowZzEjAc/cQDZVouuyzCaOQiwRXPJeV2ztqhmwuZ7B9hyqrgQWzTT
z38O29XWjazVxq3/HSzOQ9a7NgUv3mIqAGT7Hv3y4cbBFsIedAxZb/+EDVF1
AfUCM9C6FltE7726Q3XifBpA1eH9/gGZh6Uo2Ngj4a0hylLRKh2QbG8a119w
wo4FsUUzLyVpS1ZePyBqnaMplh/VhQBVtxQXdbRPYWOL6DulZgosg04oaY56
Hcb4ZJ5P2OHv/ghS+pIncf4YNrBck80m7LR3XkZrLvKwsUfE+3zH7JiR3Ask
zQoG8T3uH+mQqJXCdY2s45nIejNHkRe0pxdii2bvOLm+imM8QLZn0u/sqEpt
A0Rtmqv48W1ntcQ5ggq+bV8j/nZY6hFxpuQ+ss5kOfTILW0j3TNl+o1lt3Rg
i+jnpl9UYtTYhL2stmfxrVMlEFU/5C4r1vnEJN3H5r6wnEQrhERtMvZ6TpmP
VDrZbvcJOrm5hoo9wrbV29/SUToMyfbKKLcbkSEcsXdQbTV953AHspbrUtHT
/aUeGzEHqG31u9bbA8TdE01tKs/njUon268qXgxlc4bE3vJepxxO+DMgqr4q
yNTkBLYia6om0JTWlaFgi+bzS5fMSVDJgWT7+amTNobOXOwR9slru+P1mHzS
HVPX9mi2inS6uHui/EnD2eUcgKoFF6J3pV7uIt03vdKkFSe3Amzx9MxhvivT
ogyiajttG99d0Xyx90zV7Wtft5ZBbNGc7bAv+chFHkDVGTpzFcsh+Q7Wl51q
3SFNIeroJa6hjqwBbBF9anVoSLuwElmza5K0ZixrgZLmrfpZrvoaVEDUi145
2msNcwHZ/iFgJZ79nA6JOhwmLbwuaIaoOnu9yssac9l0bOyRsM8G9/I92VyI
qmO1JjyarFGNrDdus/oU25EDsLGx/9WTdfb0ygp5kGxHXp93QLabC4jaI/bR
r70JdEC2tQ6Emt+O/AGxsUfCwRaNL7a9LgdEPcrm/bc3R1qxRbRMbUi2ZmaL
xFl7t797R5qQsDmHgsZe8u2EqLoxdVkj7KjBxhYrJ6+ym/w9emw6UX8PuZo3
wSqPdFd1+y//as+HRL0/weH0mLffAdmeOr+h6GlDObI++OO+u86Ct4RdO2fP
H9kveyCqTkgJVpc6nASwxdMceydfLcs2iC2a3aw0fM2pJdgiOnTQje5AyQTY
otnnGSMko68DouqYz+qqgmkJQNJ8J7RhGZdCI+xHalNrRiv3SpytVFr2yiSP
pmBj/5nLjCeXmNpWQFS9XXpozbLkYWRtH/LbWk9FOiDbvKdVS84+ViDslLIL
F+TLSyHZDozNc5MWSBO23DX7ecWeAonztxXut1KfcSBRr0r8cNpEq07irOPn
1ivM7ADY2H9mxXVySoxrEaR7OuNewYZtGYQ9077zXHZVJ7aIrnukmx+fnQwk
zSc8jS//vJhN2HdGzTa09Y+HZFujWDM6hTsIsUXzEW6yxcKXtQBVM4VbOGaW
Rdgi+k1CdtZEExph+2e8Xrk8pQRZw+AHg+zbDQBVzxj6JPSI4SHrmnM/quEw
A0qaqy/7HJq3qAdbTJ0v5+DZtY6OLaI3Rk/rjJpVKPbOd5GWD5jGxMbGxibd
vYltOYf62aSbstbLTH4dC1nve74k75IMlbDf2npQ3+aWYIvoaXN5/mFG5UDS
vC7Db1pYcT0kai+rNU1UbRok2zfzP89jMhsBUVtdG39fKGBji+jGsPNpPQsG
ANl2Kozc+6CuB2KL5sQ31u5u9UJA1I4KA++SrvIgqk6t3HIuNKYfoGrbGOsg
o/YeZC2j2/FB9+hoCtmWPzDB6UNDOyTqpEojk/PTx2JjY/8bxx9f9SYkTwAk
zaUv44xWbK/Dxv6fdubCCLPga3xkbZRj/mQzlQdR9U2vwymuJV2AbIdXflf3
sa0VezOt9MM/MNtJ95GJAeVpEZkAVZ9Y8nLJ1+9ciKpXpI8Lav7KEnsH7zQx
q83rh2S7KJQydu0YLmH3//a6UqGqh3SvYjbw1w6WErZxzW6L+6v7SPelK5a5
Vc+bCRvITym+O56DrEujNCcZmDVLnM2Puv+ilPsMWet8eGmqd+UJtpg6a2ZJ
400FKQq2eNpD46OFTyIPourOM+ZBBoEZ2Nh/am0/G4fbnrUAWzTHXDz4KCOw
B5Ltk4z3LjbRxYR9mhrwQs1gEKDqNRt1TjFZvRBVf6OtsJlziANQ9S4twbdR
7Y0QVZs5dnz1XD4AJM0G8moHWpPyCPuKu4d83346xMb+K66/czagV78BEHV/
TUimwUo+wBbNOi7BlgWKjyG2eLq3JW2dW1shsrZ2rJeVOVIJsLGx/9WPHaYL
qcuakfWSE3apqscYyHrUZy1TP2436d56XLFm7PYisff3fv24wBwaJNvc4AUF
a8ObsMXUPNdZvUXqSWLvepWoUp4JHVnb0Vt0w6lcZG284vGM50ImwBbNw+8u
+RnnSqWT7RVn6fyfHemEzX85Jdjz1iBE1enJq9csvMFG1pEujU+HDvVgi2iN
wTXuFXNpEufmcw5vvc0YkKg38ubfs1OLQ9brO0MfPvIQArL9R0z07Y/7mwk7
PW9TjUVZJun+VpL1fNbqeGQNLedKu6RRATb2nzlm295ehkczJNs37J0fHU0Z
Ensf71j9gxk7TLoLC6nXaS0MZJ3i0NJkE9AJibpse2e868pwQLadrOY/O8+l
ErbPhfj0K5TH2Ij5oWsEA+yox8bG/i+6KZH/5tD+Doiql1vqtRiO4vzH/hsJ
mDPF
            "]]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJzt0Hk01enjwPFrKwmFMlLTUEijUFIjowfZMsoU07d1iiRtKGlUUk1JaZG+
CqUSSkNElKXluUL2pazZ7+Vey7Xe63Kt/c7vr9/5ne/3dM7cz+ccz3zu89f7
vP59qzt7bNkvTqPRrijRaP/bu07xUdXi7cBHNunuzvoy+E91k2m4wvn6HEB1
q9aOpLmwW5H1se4fLs1dWgNRdeXN7WPzEnuxhfS/DdbdNJEVAFGzg2KCebQX
zZSoS6AlXJ3cAMl2r722SubiUYiqX4qlyckPjgKiLjqXtm3LEz7ptvjJXN59
5VfCtl/2h5G7YJR0V6VtOmf2LhVS3e5b325UqOlH1ipJO+gN65tJt7Gj+5Xi
7iGAPbV25inQrJ9wADZadlFzm96cxILYU+sj+18tHrmehi2kD3eppvOzOyDZ
LmwVLHpXzQREfebuuWrFAAk6qo5Rf1/hI8mC2GhZ5tVqU5jZCqnuOqUjLt3T
hgHZDrhwhPNocAwQdbC746zzqznI2vaeFjfJoh+S7SyrtWEbuwYJ+2rHonY3
WhvAFs61y9gh5t5REFs4Nx36fCjneTwQNWd0fqzrPyhBR9UWaQu1pkMaYe+V
uaH8Y9YEss5Qd5q96FQT6Z5Ju+BoAYIhUc94UajnIdUAsYVzEnPuPjv1CUC2
tw2GRwWmFxB2jmHMWHZrL7Lmzqx57ecQAcl2kvfWubGX+ICodXXv6zWUdwKy
3bn37Pv7txmQ6qZJTXrx+DXYQvpToebQeU0+FDX77rnpw8/mEvbogsw590z6
RM6cFoWt29eep7y3rst2S+jpJN3mOn4z09mdAFs4X6TN3ruU3gKJupjdGZud
zUbWUYtujJvIjwKyDTJV3bVWdhB2weveAcF7PiTbdT3vbH80bAdELRh2atH3
EqeLmlc26m3O8pI2pbp/Lx6grY4bh6ja/eSGjf4rRpC1X8qvO2hLhpH1m30n
E/gvRgDZfnEseuTaiXFI1Ntiiue+WEiHZDvVN2S23+EhQHVPD08R/6o2ii2k
Fel/zXykygZkOy0pKF7ZdYSw17wcCrV6VYSNjf1f/MKJ92L7qm6ITU177Cj3
rVF5BVD143q95K52JiTb5RKv3js964JUt/HRhh0OViyAqgdqM/Lr9NgQVRvR
L71YFSPARsw1MGR7/xE+oLpVfKfTfv/cSbpzyjWqkqNbIKp+8DjTSvZYP0DV
iuVvbv45Xg2JWtNf+uqXxwxkrVDQ1LZ5AxNgY/8dh9wKtNfnMQn7LdNAa/XP
YnRRs0HCpUS9TBb2FHv2o+MjjaoS2EJarMK8tdlzGIqamwUZT3Yp1wOq++2M
+nb7fC5A1bN8jTx/286FZDstdWf5le10yvv64i59f8lhkXP2G6M1VSYsSNRr
K9ctUTAaRNaZZTVuoZem0VG119YnDvFSVQBbOFuXpySfkGvBxp4S15qoBfp+
6iPdvYr9WQV1bMr77rKK45HHpEzJdu3PAlmphC6APbW+GnvzLyupJoCqWfl1
Eslx4aT7k3QOJyy2nPI+/d2Y8QXrr1DUXGHm8dDoVick6qCD6601Y1pId7zj
U1+WZQ9hD12ptB8fZAFUreCavsGupAKS7YWyLRfHV04g676Z7ef+aOMh6zub
f4i/Zd+PrJP3znp4UKICG/ubZtNuH1HfPQZQdSij95n9AqbIWRA2/CrkDh97
il1q+DjufPpHiKr5Pn2Mep0nAFs4xzb8cdpuyWeIqjfpp+/wmdyHjZg9Or+3
c/3aCbCxv+UN2yZ1tQ0/iJyZbYy7VtZthH31oTKnvyeJdHuZ5NRJe4nRiTpe
7Jl61yoWwMb+O26QjxqeRR8BVLdL7tZxRQkJOtk28K6KHb3fD4m6OPoC33xP
FSTbxX6tc8P9GwD21Dqq8aRfPpuBrGsv2x3weR5HuiV43aajNpUQWzjnycp/
tHHmE3YOKOzwPtKJLaQzInoMNp/iYiPm+UH6Zz7ICACqjvK4Mdbe0Ayxsb/l
6NNbCpeeaQLY1PSC60MBcd3FpFuzSrU+aFYPQNV74plqrP4RiC2cHbRP37Za
MoA9xda8Zbjz6UkW6Y4uzSvqsWgHRO1um6rD9q6G2Gh5TqDEgbKUVsJe4/2b
Qe9+DkDVxz3DPXtD+kl3snJnxf4ABuWt+fvSJD9HHkTVlaH5IxEFDNI9FDpL
50xkHeVd3ud6N6RSio6qXxo332Zt4UOyvXzTs6BZG3IJeyAxrGtjeBuyXrm+
JjW8VpxOti14o9fj17cR9k+ClJLw779CbOyp8KyuRN8NH8aQ9Y2ExnsBZkOk
OyzsWspXWR4k6sdxo+07T1aQ7qWfZQLHFg8CbOEcEqfvXR/Eh9jY/2Qb2TPL
3C5KmJLtxpshNZY/8pC1q3l3VAt7GFmv9/M+f8qSR9hMprn8X1ZcQLbfqKev
4MhVEzbffPZeq6oc0p3rc3SY2fcJUN0F10Lv2OoOYwtpvoZgtk8mF5JtK46G
TVpbIaS6lQ3XqdkuaUPWL71W5OdN4yBru5yE76q/1AOyHc/wfD64pgtgC+eo
S9JlM8KSIPbUWjY++1wXKMYW0gEBLSNRe59AVL2Cp7M8b045svb8Una5+49m
0h1pZ3e0TGwAe4p9TctooG/uBLIuK4U1gcWJ2NiUsqTqk8UXdg8DqvvyQa2o
XzoZImeZQ0dV05RodFRd9fLznvizhZDq7n57cEm9IY2Oqjs8F17pc2mFqHq5
tnXQ4NNMgC2ceUOCyxHe49gUtbw/I+MH7T6Ijf13/NTqO49fH+QAovY1GJmY
ZzKCTVGXLP3wuqa2AFl7h4l92K3ZBch20L2f7+9v7YGoes1yt6Ii53rCjkoK
jczwboeo2kIyL2VVKRtZq8moP5B26gZkm37QhOtfwwLY2P9kW5j1uUazP0JU
LR/bx+ycVwqwhXPO2cWdeo1DEBstT0QmllSuLofYU+sbpxjn9I24gGzH7j7I
3PipFBD1MwFfZ9rHNoiqtX86JtD62ISszzJizRw0m0l32UU//UdOJZDqLllV
H8M4zyPdoyl38gb8SgFRXzvE3JlTM4CNTSmHGc9PcgnPgdjU9Hu9VSFy2oMA
Ve96cz3wXfAIYTdtOzjxyrkDoOohteqZ0v4lImdeXvk6gTUfYk+tb5a6FJRe
oENUfawo17c7dBiImpffnutnHChGp7ql94TO8y8cId05DnY62YOjkKgNWiKl
p7PKIDb237E3r8Yi/W0BNjb2f7FsBCPkT1hD2PvmrDzp8ScfWTtE5AwebRsi
3Z5W4+wlJ/iUd/WpknfOHAFA1ccS1XYdL+JBUXNOQcHEJsUBwn5tcTHiN+cx
gKqNIua7l5mImZJtlboxXXkrPiDqzwO+yZHq/QBVm/AXFfjZfIDY2FPhkW3X
dQ/YVgJU3aW7qX/7Ti6y7hieL9gER0j390r/ipz0CoJEff86I+NXpzHSXXjY
3FLLshqbomZrdYhZ1dUDqvuMfZFKckIOtpAGGYZ/zTfnQVRd87op7MXmYdId
pj77+HPQDanu9CNFOqfTeABbONs4eWxcGFsBUbXOgbdygoZ2QLYjHMSi0+fR
TIm6KD9YLdamEoqaKzbC4RVGbIiN/S3DnjiJfItCbCH9VNXypNvyHoCNlvf8
IqU8EjWDjqqjzTReBnMlCXupVMsq3a29yLokbZX7YWUG6Z54O6TlKTUOsbGx
/9PTHAMyNhQWAuypNa8uLiNULo90p1wuKbnnJiBs9qnIo9GnSiCqVtE+WjKd
VUm6s458SozaMY6s0/69KHKTbgskagmFExfLuvgAVXNntTgCnWHSbX1ZKcyN
k0HYH7TozbF1ddgUdWnsA1uJpc0QVcsHu4aGrG4CqFrytN+AwF2cTra3BARz
IvyrANVd3MIJSEpthdjUdKHS5vTzK3tFzrTsPs7M4WrCdvYaG0re1yh6lpvP
eG7AgUSd5bo5Iqh5EKBqmBSUe8VkBIqaVfNl5zGTW7EpaqPVKbEXNCsA1a1l
UVi8C7KxhbRdZdagVW4p6aY5ZO9xMx6ARG14N8k20IkFRM2ssYHLPlcrAFGr
1xbNrp7fBlF18FXx5XVnGkl31NO+ljXHOiBRVzhaZCkmipui6q7kA8tkqvMB
qpaOzeWkp7VCVK1pVrVs5+RjkbO+RNabhvUfALZwLi3zL40tmoBEvf1eoHL0
eCsg2xrH8zXOJnCRtT6n/4TaWBwg6gl+8J1N3jmQbHsuSHeJlQmDRJ2rS1+m
GtWOrJ3eZ8vJveEBbOGsrRT/6KLrG4iNluuWfHWuKpE0xRbOjbY3zOY9m4aN
/U2/do++sfZZKRA1x7PlCg4YNAFUHfNoS6oFo4awfY26bfzONWAL6VAbAdfs
3k3SPWNZl3vAQBtE1c2VBj96NPABqp5ztKjzScwgpLpn3Ppsa6U4RrqLcyU6
1qrQTIm6I+VhKu1WN+m2fFtoeMBJClkrf9/1M6xiAOyp9ZykyZzvbvZDbOFc
XiAuZRfTiqw7UtaapXlwkXXqwXXXzBd+It3z9c442LDGCbvr8Bp5mUsCQLZL
vH3Sf4nKprxVNUIf7LYdQNZZnC/7ldY3QrKtt96FaTNKMyVqsCymZFBslHQ7
OklZr7jGhaha4dSOD5axo8hah17fv5E5gS2kjVMkLf34nwFRn6pj0E4oVQBU
vSWs+X6De7/IWW2Tm13PmzbKW8o34JD0yglkrR1Y4Xhm+WkoapZPOfKDIHqY
sC2lFjb0D7KwhfTDB3MqczR4yHry616X6YADRM3pMl/udmYPQ6r7dJTU5vaz
+ZBs90ic7d7l1UnYbTEaz/a9GweoerLD/bi9tYB0l8xlO+3ZMgqI2nH16MS7
bbch2bYvqkhdX9iOLaT3STC3qThzCftFkk5DkweHdBsfGy3pdW2HRO32KP+3
sJMcIGpW1Ar+GOJMM8UWzplJ3KvT14nTUbXtClnPhJSvAFs4Tw9jh++dw6G8
le0y2ct7BZBsaxhLiqX3TEKqu+HlgGS6wheAqm99XBkXmtwBUfVTVunpp8/p
Iufy9rx7eUAAiLorPl87d0Er6VY6a6okaTCJLaQfa5lqyCz7BIn681z9q3dN
mwE2Wv7kfj7sQtkrQHWXhDS2KZV2QGzhvELbZif9xv/9RM3DsDrQ8NZrSLZn
+HNlndVqCfuPYJ86Q5VRbCGtOq+90lV8jHTDpsQ+xuYhiP3//T8t9Nai
            "]]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6],
            PointBox[CompressedData["
1:eJztx3k4lGvDAPCxHUtRES2OSnWokNNbFMo9bZJUknaRnNBLK1G0KaNi0Eon
cahUjiwda8m5rUmRfdck+zpmMAyi7/r+PtfV9TXP871zv8/cf/2un/rhE5ZH
xGk02nUlGu1/DaniqdV9iATL4WHaPcPP8P/7LE01Z/v2RojqV0UU3TJSYuMj
dh5dKrf5BZvwj1j9vHzUagDZm9hrhDT0fCP918JHFNvVhwHRc0DQmR0Lq5H9
YHqyave2TiBqV2h5ypT9Ekz48WxlE405PfgCXkPBMtdoMQ+K2q0Tp5vK29fh
C/ivtTs/JBufIvyT9xW7vTbxAKq3rdr37wLrPpG7QlKdt01YLbK/GTdQvFG/
CV/I16ybznBjFUFR+/O22CYlj1J8/O9+Rbnm7rc3HyP7/LwNDuHNXYDsT4SE
m7YGPCd86XiP+D//aMen6OdPme3A3N6E7Cc/WGUXTa+EovY0p4HaV5oZENVv
uPEue7ClF6B6s7/uWnQZNRE+87K/1RyDHkD2G/RTVZNsqyj/9burHlfJDiP7
s6nFtvSQIYgv2H+3EL9TzB4CqP64xah7kM0wFLWPpR7xXDM9nfDNMu2OqGm2
ALIvOUMzL6w7G+IL90tOb9FSnJspcjcYvOMs7/MS2Wsbv669crEEEL2m8+sp
h/p68Sn6TRI2wFtsiPSP956/7Hzmb4gv2ANfPOJAr2p8fKF8wc06hudjB0D0
0xbd0J6yvwfZT79+2ZTm8Qwfn1JvyUmabX22A+IL9w361le0mosgPjU/00nr
/Es7PkD1JuHMRsBIFbn7+2pcixDrBKg+tKb0qrRPHcQX7h077dOMo7iQ7B/W
/Mnv3I4WQPS6ttlriyWq8QW8RkfxDYPiRmSfvTwj6W0LF6B6z9nN5uEzeZDs
VweHSaQsF88keqvSZFbuNzZA9Z10PtOphUP69d5dyn25RIrwgz1jXjC2jENR
+9wt3bbn7/YAVJ8V98Ll5F1I+VvODdv3oXCY9H96+vqOamAh4ftvfKHc/Gsu
stePAfO7pDoBPj7+P982aX59QEE7RPUnRiykTAxTAD4+lT5kDCduxbAp/51T
U5UKFklmovqAVdHBSd/E8QX8y7FqFaYBH6L6K2LuzC9ZJQCfmj997UBy9wE2
voD3XatiprywBeJT845+m/tLM1jIXv2gGvONVxPAp+bh5Ux+yfo+SPY/9uz7
tG0Gl/K31LaNqXAZBmT/g8SWWfQaLiT60De0SfOCi0m/hAwne8FeNiB6Wiwj
I/pxFz5Fv61sxpDlBAeieq+CggQ3qTHS78KImeRzPB9S/bTob5cUT/4NUL2v
0b27pUNjyL50hTlHXm4Q2R8NMw+0uziK7Ne633s4wirDp+hbko96zZvBQfb8
M00L363MQfavUz4mZR5ohfjUvBtYGed5rxuQ/bSsVFmLhRWE3wQ7lpm94uEL
+B55lf0GEh0i9xep+6fQljZR/j/9Nn/FZ0/yv8TYseapYw/Ap+bdMwtvSxql
QFTP+fy08ZpFDqD6Hy7T8hlfMiFyj5RUSczOzYZUv6GH4UxNWXE6qh/cFRXt
r1kI8dF6UdYuj3CfFHwhn/fgF4uY+y8B2dfRtSl4HTRK+I4v3jmcM2+CZF9K
ofUPg5IugC/cq2n6fjZ2zwai9sKeKgc/m258AX/n4zTmlNxv+AJ+cyzjneRP
qZDoH8oxM//+swaS/T3eW/Tyvb0BvnDvpjw5TjYhBx//h2522GWCl9yN7AOz
3+rvRvixB9Qkqp0lM1G9jM46bm/sZMJ3Kf9YdrK6GaD6WtrAskj5z6S/7uDq
7jT3d4Dof9Vba+pwjEv6Q78eLE6dMUL4iUe7dNbJoftpdJ16zpEE0j/X3EZL
obkNEn0Zr3SbR2wXRPWN+btjyipGSX9dtUZtd0YNvpCvkXuv9PL6j4Ds77p2
unTpm0aAj/+933hY67FlazOy7ztDz489xMcX8PP7N21nrc+HonYmv0Z+za1G
SPUzpae6uRzMBPjUfKBcoltZywCy33N8s6tuQSFE9dabPzxttBgGqF5MW70v
ZowLUb1a4uVs49IekbtG4VxXu1YIqP4RJVct+zIOsr86lKJmZcEl/Rd8tKfb
v++AqD6yknU6rSSL8l9vrDqkK8MBqN72VUmIL0uMji/Y+512P5nh0Qrw8fH/
eQ/Nho159zkQX7BzGq3uTy0qQPbB5zb6ucZ2A1SfcbJLqX9/L0T11puHDQr8
G5E9gxlQbMetJ/1Ph7VXXXzBB6g+QOc+O1ovD+Ljf+++ay+tjWhsA6J2U+2G
0Im0z8j+yKeI5Od/dFD++uW9sQ65QxDVGyV4rdO5nk36r8asKP0LDhB+5TXp
TYciWgDZPzHleWh+aSrh6/1Oy3o1ZRifovfd2qd6+wqNTvYLxrdMV/EeA0Q/
49St0TtMLkD1Jcks98xTw5Ds83ZWq7LWVEOqvyI0wLV2Xj/pv3Y0osroSgzh
n5vj9eT4BB/gC/avIy7Vj9JyRe78f8nF9Ehx8Cn6oM9sB74hFx8fH5/0H6li
3H/i2g+o/j2z0sPfrO4VuT/6Gm7v/HwEonp5/5Cfn5vzANEb3moZZoiX4At4
6arsrii5Fkj2DaUrK7TKvkGqf/aNJ7lvX1cBss8J2fvLIys2IPrJNWK/6OWy
Idl/7OXP0H7QTPhP1E3D/dy7Ab5gXz3JUi91tBKi+juceHnzWROkv1Jm7/bn
hbGEP+mb7jF51xiA6nesYtAGQ2ogqtfbZjOhZlYEyL6UyQPptf/uhfjUvEz5
N9ULcoWA6PeqJ9doJHChqP2YBm1fU3sL4Vuebguu/J0P8AX7hxrJk87aeRAf
H/+fV7y9TW9+AY2OL9jdx05/8tg6DlC9+rNP/FbrepG745WKgZvKoxAf/3s/
dLtEJ8hThk72e52cxN/qsAGqX1tx4sazk1KZqD5FfdcG5r0eQPU/Wts62Ycn
jex/s3nDcSkXQ/YHfeJik8SHAb5grzc9f8l6vIn0V7K2Mv0rR5H9b8EyV0+k
l+AL+YvBuSsnqgegqN2V5TG1TraT8LcezAjrSuhH9mbj58+ETX1J+i8X3Iv0
2tQBUb3j5nX7PUP7CX/pkdzxbEY/sr97yD1ZIa1b5E4zmpTy4q9xwpd1YIql
drSTflu50T0xToOEX55+fvYS+XaA6p0SKyRsugeRfXdx205D+Vp8xP5oXp2h
gsMI4Sv611+aOdwIyT5XMdJk7rJkQPQL3VQNdtzoJ/1mV696xNmwIdFzM/Yw
7CZ1I/u0N8bunbXlgOw/+qrUx3/VCVB98s9FAXsvDBG++CHLRg3NQkj278Zs
3btgVh3EF+4PeUvviVtZDvAFe8a6PaGxy9/jC/hXvuqNz/jdEJ+aN5o9sFJT
9wuyZ106ZhP3ng1Q/fy2xY/LFrcg+326J8buL2rAx/+h0zQc5TdojSN72bi8
jOiaYXwBH+Vv2pXtxgNEf+vt1D1qi7nI/t7ZwLt+YV/xBfwb9vae50EcSPYT
VKZV+3qVEr7nU8VfPl3qJ/3t0tdv9jDY+PjffWO2/Q374F6A6pf6p+7TWT9I
+pUjJPKVinORvZz37cA9foOQ6Fef3ZGsHyZOxxfsfZevTxXTqIdkP6Ym0UpK
poXwDVyODv2RW4OP2PWXsR49cxxG9pwF+gkNvV8of2N6kE/DrWrSv3qNo2L9
tTSAj/+9hx4Obr08pxGfoteQ1fEJU2UBVL8OrAiWMPwCUb13qh1dX6GJ9Guf
XukUlNFN+DnLLyozzUcAPr4w/rObnnep/Diyd63wZbjt7Cf9/5IOO93eNoEv
5BfWxBcbrCwi/RvlR8euMMch0XPjmV2/arwl/X62Rr7pVyDAF+4/PbDe9Sqr
FIraG/SYSyre8CDRu56zfpmxNx/Zn1uzbLA3rxXg4//I9b1XZSzq6AH4wn0u
68auWpVC0l+cn25gd5OHL+SfjKdF7Fsai4//Q98e/jo2cnM7JPrrc/wi6cs/
QlTfK5Z3Lku9BR8f/7/wT6pWlic7tAGyP5V+dHQ4qAZfwI873YnM8c8h/Em8
CI/49D6IL9g/bBw2+jCzh/RPOhX5eIFqJiD6gkVsu3UB4plkH1jkxxdtEKMT
/ZaLrlcNkxMAqj9j8zDg6gGJTHy0ni1trZRFHwf4gt33Zcdk58Q2wo9KSt0/
rX4AovoaldcJ/JUcgC/Y90tLRoTJkP8zicYhDywnIL5wL6sG2+IlByCqv2At
GZ8U0g7I/mLdzJJtQeMAX7g/9vHJgbncLtK/S+HB7MANQ5Dqn1Iw/csm2zEo
at8YXVhpcnYEEL1Fh1qdT98APmJvamB6Wqm2IfuIFSuT6jtZlP+rkPfm4Xmd
Ive+3zROpSsPIvsLjnsjlVRbIdEHnt/+WmHZKCD7KSV9XlWMcsJnfzKZ9TJv
HF/At829Vb/m81dkX2ptznccZ0FU3zHdaHF7FQfgC/bqwksM3c56fHz8/+Ch
JlfZM6oRUP0GBz++L7ePIf3grMlSmeW1lP8ye2fNNJUcfHyhnD7LJtdw9igk
+znTapVs5WIh1W/Kq0ssSKkSuXtN1syeduYrQPU8FwPp9L1VENUrv13P5+n3
4Qt4uVHuhzytKED1G5U9PLLJhQvI/oFg74VJnDZI9fctfKby8EkZJPsTWf20
xPIhwp+uyquK/pWWSfYlVaK03KXK8QV8+HpVltWqcUD0ZUFfBuNsEqCoPa7n
+JuULC6+kP+nm9kzjzAOsq+TaRjwUQoDqD5dMiDKYV4jPv4Pfc4+I3t+cA/h
R0u/dZqi2ozskxv842X/TIf41HxwZdOd64pd/+f/D8XKdrA=
            "]]}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
          {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, 
          {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
            NCache[
             Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[
           1.6]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}},
       AspectRatio->1,
       Axes->{True, True},
       AxesLabel->{
         FormBox[
          SubscriptBox["x", "3"], TraditionalForm], 
         FormBox[
          SubscriptBox["x", "8"], TraditionalForm]},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImagePadding->{{0.5000000000000284, 21.}, {1.5000000000000568`, 
        19.00000000000003}},
       Method->{
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}},
       PlotRange->{{-2.814741915784876, 
        3.13597153298448}, {-3.5849264953918727`, 3.450909002469298}},
       PlotRangeClipping->True,
       PlotRangePadding->{{
          Scaled[0.02], 
          Scaled[0.02]}, {
          Scaled[0.05], 
          Scaled[0.05]}},
       Ticks->{Automatic, Automatic}], {576., -576.}, 
      ImageScaled[{0.5, 0.5}], {360., 360.}]}}, {}},
  ContentSelectable->True,
  ImageSize->{
    UpTo[600], 
    UpTo[700]},
  PlotRangePadding->{6, 5}]], "Output",
 CellChangeTimes->{
  3.849153704528534*^9, 3.849162469376092*^9, {3.849162613471599*^9, 
   3.8491626305725393`*^9}},
 CellLabel->"Out[30]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztnQuwn0d12G+u7kMPv2RbtrAsX1mSJdnGDxkLDAaLh7EIDwMOYGM7f2Mb
3/I2YEMwkMoCQwLE/Q8kpNCiQiDJMAMpSag9oYQGUpIwzBAlhXRKS4a5TYpn
mNAOSUsDSfn63z27Z8/+9nz/78q2wMlEA3/f/b799nH27Hnv2efcfOfLbnv1
zXe+/Nabtx14/c2vfdnLb71j21W3v37yaM1PzMzMXhf+v3lm8nc3MyP/z/+u
n/y/FKX08+F3zfLysjyMb8/Hs488Qmrmh8eq1/DokTLXHz9ULo3l0aH7Uvmv
Ynn8W3tTeS71fTKer0H5Hf/I4XT0NR9JeHYsofKorsagBbdcvtkZyysf2pnK
dz3sULw7/M4dObyc/h0+Mrfqbw/KkI8cPnT/A/LigfsPTf5eY2pP5tbsm79x
W4tzW3jg/sOH9N/h0K6MR1oOf85OfubTx9ua0c+7bR+KT6XepJkZb45n98yG
daXFt3WysSdtHj6ie7xuccsqZxS+nZt8+uEaqrHhTrvwetiBefmzxxpPGvPm
vxMz8udNzNqEtT0T5UWUv9kzu9X1Fn62N7PxZ/3j5Y+nxXKh+eHnZLdtcosl
lJ//kEf54GoewjjOXCVU+R1XlpD5fZSfjfrn4/3r3Rk8BbW+lcZ5anxeKOjx
pjz5TRR1P2pdhdbn8Z7lNSiHn00udF6FcT7KWYmdAxD0W4pwndNyqn6B++3R
c8SL3BmX3v/6QfUTVkBqXon2noIvH4P3/7t7cPzuFWhnPcon4KsteB9+jl/V
XKWnQvlORPkTq2rlu+j/sXi/HesSuOPMvNaf/Jv8PXOntn30FHF3bFHH3UXU
mtmN2bxp6jqER0/CSLlnRPt6Cdo9x2lxT/hjTr+cvDwTbb3dHc1fou2n4f0u
vJ9D+bWx1YPxqfKfmdnwM69CQ4JP+K+/9w6myU/4f2BeIvPNaa1Jd+eg39NQ
3oPy50w/YUdtBDQej/Lz4jheg6drw48jrczqfCPHjlAJ8tcGfB9+NnqwWaOw
Eezsk6WyTODKUqegtw2A4qLbcsSDIGmJsFH6F+DFlk/q6h22WjjMJziQgry3
rLKVc9KfnBvp2ncAC5/2vwHQiPxIaX+AiUB+OYO+gfxe9PvbaHEJZeFTf3zo
xgRJzuME1B/HcR7CU86Gs/88yrt7oMh2Tp/8zE7WdM5bS1OOcJt5XVfvnxNQ
5tzW4v1OlPl+G8r3AAqPl1nFdUr/DhW9gGt9PebA1med0YdGduM78p8v4T05
+hYz6oBMQqf0/eSPkzCvfrvGVtSMEJvTsSy3NpN7Y1s34Sn36inoi+u/DeVZ
lBdQpmz6VYw7w/apeH5DHO1Pe7M0rQ1JjSdiNuvwfh/a+xbqU9Z9VxzVm/GV
tCqwD+tKmD7bvA9/fhm9CFZehlq0bGycUg48ag3ec88dh7lsRf2/c0d1BeZC
nL4E5dhL4b2T7k5BjU0on4jyxzDO8/CeXHJt3eOkInFJ5KADHXfbY1AvcLwA
gONdSJZ6lGq4B/4T6s+j/jpAegPevy+ON+7fRu7kqhH+m5uvAkYuYkQno3w5
yl9ALxswYrY3j1FY2hPsVaegPeomogm/DE8t7QhzJzUPmDMbXqyRCuHZn6Gn
U1Hm3iTsA/0KXdDKQjrI3Xay208p3xxnOMS9uUfPQ7nVRcLOfwCt7EXfUa+d
eSPaUtoojxpa6kmjvgZ+S/xca6ZRcVdscsdOKYoUfhHlE5q+AgIcj1rfxthp
zyIWnIj6T0H5cXGey4AraaFve67pix3FeneUk3KSpdfiPaUqhVWq/+cerJrV
es5qIOzJYglPNqC+lZayhnIc2iC94K6jPva+KX2EP8kLufvOwPfrXciX+ltQ
Fqn2gNsKZ+HIgwlSEZKVVk2ZLOz/QMEehZa/jvGE98U282q0shmzs9hceAb5
F6TM0F4a9wG0dzb6e2scxfPxdB3KFvvDKDbivfKURLmpA5yA+v8Ooya9om0h
znpO5aNJQ9yvlioEWrQJLZKC7cB7loVKEGuuADSttNgprpbyEbRKnhDrL4La
drL3KN9Swom2IOFFzW4qteLKLWhZ2Ti5ldKfhDekoty11Ovp2bgQ5Q+iPjnW
pXhv5bawnrQ0RimnkaCe2VW7dPKC47baaMDkiDcL+l5JH7+j3EfdnJLth1De
CnhzR5D+UGY5Du+jfJXof1mlc1AOvHFNtHUUm/4LUefX0BPpF+VB6iKxfpHF
FbdKi5tRFvnp9XgaIDKrO5s25km9RFtI7ykv/BXer1FrHG0Q1B25+18Up29t
u0U+KW3Rx0f5ZBZtc4cSEz6H9iI0C05P/qA1iRyasgtHQA66Ge/JgcWyyx1K
jN+JVrfi/RdNL0GPIA8hz6HsEilG5cH5aBzXqH4++YO0PuoNxZ4yeUGtjdLZ
Yt3m5AVHx/25YFZJONQR1CAOnuqOofRAG6TsmpfgaatFBNhSoyFGSF/RxuZ6
s8PsgsWQshSta+922y3ls1E+KbXr+3qvznOzMhfslbOTd5TFj+ubTWqHsh6p
5K+jfBrKZ6Ec177wVO04rkUlI8IqOHlFbZ1aIa2G0QuTLH3labDozhzfWuG7
xMHUpq96WbDF0/ZBOk0bKKWyC1B+Bcov6NI+mzwSzWcOK+PHIrwY60x6dpq3
vpWVSC2VacWpUxD/P4/yxbFSn1ejHv+8SgdlxJT73lpWreIfYW8S6pQh4/t1
ViYM/d9/ZHTo4878Bc52R4QVjzzKYmgn/HMOK0aLyvtRpvWBvFfhmnjz/MB6
PxrfR19D2fdVL7Rr90skcTXWWQ4Q/pP8bL30zbX6Cgo1O/4w6i+ZcpAJIt1r
7HtnpMGG1euHCWdLX97PdoUC9GvJ6xPkc3yS8AUVZztroYF2YFo5pZmHYpMZ
4b/BV090W4XuMGcXxMIg7AmuB2Wk6ANttNQsMUIymHxGPFeJJ9GHSD+LRDD5
g9IIaeX9KDPiI1OKDH+uMvV28oFXxhk+2YwiQJ7zWGzWJ0CP6yNrT7vaQj1n
pZo19w5Dpn2UkkloP/DhCCQh967HYo1ygDIDSlrUcukxIM/ZCLhSche96EY8
5WqKR9jK1C7OTvFOzaqcSVtNv135MrTxSyhvb9YtQJYxUGfgq/PRC2k2VzlK
+6LbUIuZV+m8gxxprQKVR4gUhbR6SBekNZF693vwnt4NWlTCOgVg7cdz4tk1
EQqXoDfKu9T1uMIRG+cslQ3SLWyFjrWKmPEVvKe2T3o4TBfCjo+wXKtSkQxQ
mRb3xKnok95h6sxigSF2ERtJ57j/ua98uxO05bV2j2i8yuQhv+aq/wnK5LW+
/ZxanwKysUpxXShHiPfyfDy9ADAj/RUss9SK41T5JnkPjqu/mDw9Hn36sn8/
f/pF9LgdZcrsvtWIVg0rw3NE/EKkKXK1KzHOKGHO0GtMqsLZsu8AcdVTF3S9
lTCSI3KsVg/2+Pjp+P5teM9dQprP/mjt9r3U/bsqtldFnJA6WEwOM7Je4MAp
qElEmd6NdhZ7ZLHACq5a6X1aJEjoe4z3Gm2RuBS/960f3D2wgM6rtJhmSBiy
F+6YR6EXcr7oS2hk5534Sv01goSNlYy2Dcoxf4CyyBiKmWlu0bIyzjFLRdYg
nlHaop4tq34Bxkgrve9r618P7oYFjNKL8WplN9CmhpJYi17AsjpqMDyidet9
GBctwRJzbrUMwpOQCTOx+yM8I4/iN4SW+IWsZBNWeCjOhTBiq+Q4hHmsv2it
s+pqavbfiTVcJhX/vjOaHLSm8DzSkSZ+6SxTHievZKDavnZfW1qt/hKePaEj
ToQK78HIT8dacMU5003omVyYNmHSZUJZ4shfhqeMy1uT52LZa7PCj8ZXH+g6
x1qlftFk4bGWjrJXyC2i3LRoyadwz7LPRFYJPRATCQNqCKTelFunaL+NJHYT
vqU2YSlJmKdI9hbLRY6xsr61vBQ4Uh7i/uJKu3JvxSVJ+X/Xm0u1y07LkE9r
6cVLTZPAnoqycLAnYBwcOWOPwrjC7ltq1mklW6jm7FOhh51GhbXrG77TuVhL
ZE8cE7UT2nHLWO8dgAj1Q67qzgzxRGV4LoQcxY9WLOUXRojbmOcwK/LHWK6i
Cvol0cUaTjLUZrcwEthGS4Td9R/xnhQ4zGPW0Vto+5TRKNnqTKxgo91yR7nl
gEk6ecoFMYounWYrnPJ0wHzodFvEvLLP1JZUrI12fcbqQe6n8mvyyHXx4hPa
81eSnXPB1uyMVaa0+FHMPMy5REbSzqCaToOPcrpQrKf2XLFIqf0nW7jPzPmU
aC1VC+ZK9BzR/9ql2NCFTq37EVUnVe2q6w6fB6Qq/A211hUIP/CWO154JJ/N
KSM8fmBGSw0M3ow+yBO5h8iPlWs7I0crjYVe4GX1N+vTD+0wAp174ba4sqdJ
F80p721lveJ5oiWMak2aUO13ZFyBWilMuVAF1ivl9aX3iC1W1wz9RJgsqn6Y
xx1HylXY2jPDWwbW+xyMYbczl3rPLuELzope5oWBEURSUmFcXBWxuK7iHD2t
Sif3fCe049Dd+SRX3zl9+kZpUyGGWSk8rFpc1SJJiojZUHFd+1+//ZoCxbL2
J5hWFPTS17yeRkt1dwAiUVMSKpPQhfI8+S8jDbwY0D77Y1hO1qesNODZ7Gr3
/tiJll5X5pSmbddBrcJmL+/p/B2xFLFrs8HKkENBJJpyAu8MtD5XwTTnLpjN
9r2GclmZs4yulNVOqAw6tEW5iToEcX0R68bvIz8q2quKkUpbzYx9awVlGCkX
uMXTT6s4N9l6JuenfjmZ0y2vPKQ8NMk78j+V99PIaKE6GVCh1MDdwPeFYsnY
JZal7K+onyfOUzyj5LRxT1WyjYwnUrfGe06JUXa61bYyVmX5pnjqyswjrKp9
FQSBe68s/TDG7tQ8t3TCcztmdRNgswZYQyvORp1d5piBbvE8N09u+3FbsO6Z
XnfrCgkWCsdQLo8sI9v4PP0pEZ5Wx5VdqR79z6T4uCoKlLIl5R31niaNbVvd
Zs7pUvk9SI9PFdx59zUYcTOT9NfNgNcsVtWe6lTqlHBw5UMXV/uk1qFms8nQ
DlfGV+kzyrO4D0Mvt9z5obK29LctYqy7uxoDl+LaQjafvEmZe5rztPRBIBJa
G1YN0RKlwTNUa/PqJk0iy3qUClz7tXKJKttOY1PZ3M7s9gMPpFxFFQwibOaL
7CS7YT+xJP1JC9OWjphJKkTZR+RxscDJvxgzMU4xF428EqlDTY9Sb0E3yRb6
afYjtV5bK0krBzizPYfP01+CT/SQq0xf2ZD6rXXkzBsyZHTyx2VMSTWGZrqm
mRntH5SsqQOwTNp8sVRKAlI6QebsoLO9uS7EkRVoToqU+qgJ8iyZfw67QIDY
N6vWwLJjaNszuz1MY4YZEEitBeftHootzBcoxE9ldWaejt4Y06gzTtTAlQH6
PTRCRno0ZPbF82e0trwAkLoI9Wmjs5SNtgTfOpVrac6FRftWNZ4G5sohBRW0
DdJWymHc+/Dmjo1vPdUgzCzGeTYweh1jnp35IrtE5SHhwv6+tpM1jNjPmFLu
3vaUaEBd97xMRRWsZVPMSmG1eJaXEhTtLVfGVo4cTuHVoiWZaD/ZBZfgq2c3
Y1bdprFjiuSknHLcnl+wWqRnxfY9KLRqlxXYjPdyQlY1QMGf5mwp6TClGMYg
qARQzaJ8H7110VBW+nhZ6mii7Rw+ciSg11weW5J6no1eeEpEOa+UsXuKv4nU
tNbBZyO58bEi2mZynQWlaV2OxSY3Yr6iayMwgFGd/BkprdCBmbgMyRYU/nvc
5P9rEyAnH6WvdA+K2jXzXKwaNV1yVz+OGJS5yr9ECW5bggWx6upmLZNOVGsv
Dfdj5Cythkf7/pHeHt9H/FxUedsShsRrlnM8klRqzt3rTk18ZGgGdocs51w2
/4AgGHF2XdxJ95dtVSQXkX7C1E5w95DuwUTd/3HgpeUCZVV9rFAsamPA2ieV
LpipoavZP0Ih9aPub116mGl1pIjJVtP/FXfh0K5cVX3ft/pw92IiZBemlDuH
9lBqkFGPc/xbakV5UMJlV4OaUxk97/pjNM8HUz/ixNqaZmXNKuVpnqH9dgfK
tERvMLPujCRZvmCsjO+jLPUpZS/k1eiyHlNiCtgq15jybClvHJjn/ocZ9q0c
3ot5DzdGzOlOUK1sWT1ivXtlbGJamh4Fv3Udyrzkw7RmQ/v+R43/R1t/bXpY
09CIST3R3OVbsSxba0Jv3EMqk55Qim4jNNyY46bPICfLG2tMtWdmAiYyyxqj
Iqmznon3z0NZPK3Weurh+yZTq59e67okXdLKCCJbuBa/ZvdRn48waCzlXEnf
btGPRcya9FCxcqg98XgtYJTMfEiLh3e+zlpjmJdV17+iC+V7WlD8eHjuF1jf
zPv3YJab0B/ptz2PKZSOI2SOaO4/chTW34Pyue468LwdT+OYKKCu6z8l03gX
7dOyU3CmcJxOWPVEKsJn19Q6CAiQJoDXTz5hu7MKd7H7hTHyTIK11i+nMMvp
Z0SZ/U9Out9onq7k+Cpjb6RXYKGZc/ZxhEX0I+zsOtFK4Wc26Lf4MwPEbSgv
oczx+3Hc2HHNmnLfkXq40aDr0EpnJS9LD0usQr2+wcZGSVHOaexDf/RT0GPL
U4mt5Xucz8JPoSYWo5bVkkt7e+mFUQhhzrMOZoa8PwGYnAX9nK+Lc78TT8m1
LI1ednRcu5bqmzDvmbWO+bDehfc8aeieWWmi3otlyJfyLN6P81mrKbH0/zzC
hlnPxPPDdfYza/XPwEJY6aWRJKhriN1faYj80fBOnlK9BzM8M7+38opZN1ey
KxQ/WdjcU6qlVpK/ibl+1Cu0KTMW7l6JybwOT1nL95f6vRacoEzF9gtNeTTm
vgv135Xfj433CfbhvjjtZbVLlfa5cxhFKnmQYt7EKuqascoqw4vzR6jpvO6Y
BHPrD/Kwmmvm++LK6H7FlEOvEen8cwiNXOHG8VOOn8KF7N4o0nMZ6+0RcvTV
stUI70qOift/wdIW+VrPUKW9lbkNPUOITp788UHUsKeJwyr49xlgjAYyzL/j
Zbun1BojfhvdkVkW/VMG/d5lUgpyaPds65zo8PKP/lLL/0b2vFR6r6ucyr9j
egg90pdLWYhRgW3uINlD/ilMrknpR84K8MwQ6W3m5r1xI4nurzPlMurCPXTf
EiqpPSsRln3urIOUVaOnDkKJwRmxhU8ltX4ANa7sRGIhxWSOVjmnQgnCjw+j
f7Yfcykj21sHRNd0z3hWNNenhtQM2We/xDnkrbwWYw67NVAcasQ8Mc74kvXN
2mys57accreZvs5FmfcJcOzPiqv2PFMr4B29pNqLbGg/krmKDLPW18A/cX5+
1JdzZ/WYSwrxzRo2Di2wPCSMiXm+7oiwuGH6KmSZfkEloi57Oe0OyTRQowmr
85gcmbU2lVU40TzVSTX2gU8BLtxBbdavkRNf4OIereONLMCdxSiCmHuvyeJD
acXSZNUSCidXgMaYh0lpJ77/BtpvT26rNVMNId7ZP+eb+bGJnBg5GSSsthne
xzyfMz/pQrOfu9k1UymQM0r7L2AupSE/X03hQ+4pLlP+Mr5ndl3h7gUbmA9S
ds61gCklPViaEs/UsY/kpDWlqDVpv4SdxOwW5EH/oes67wTiRtOHjmxeLRQV
94aHZ15lmE6wkzmkY17IREEp/xScZsYp90xNpdGN9RQ6aSL0/YrmTZPstJ9B
G2Y/L+QK8I4Hyq/+LRWgVs7ZUCvHjJz4ybBMFr9GTgaHlucMnSWnFYf7Vs6S
h7UuGV5JQyyl9U518Az4XNfqKLQ+uZl/ByWaUv8DKFOfoBSBzEzjfJap9MBs
DopHRsuqT0XQC7IdfbaWaZHNaf+70O3Zp20ep7NW+kJvKM35tLlzMDrAztPk
SMfeiu/Y7ympHexpxaD+L/neRhuOHe8Y7ayn15Af5czHq7OSdV1rnYna+8xP
AQLcL0NYaGlZsRQU+c3ngqBVhcp39nxl+eqjbq9llMyDRm8cdULyznjiOvEH
zr2UI1fpyQRRfGoR11baDAXVuY3GmlDG8m7nO5c2pTKtWlz3nS5syD1oG3Ls
Eml+G9I8GC9L6TRKlE0Gp8tRJpW0cmcF3Z7ZEhPcs0im/Dvu7MH7mvNBCgMZ
SGOh4NzPGngf7eJNxq4dGKufWamm7wE0zFEXtY0qeuei+oljKYi3TPSc0QH3
XAB0gNPK5edsPc/PYqHirTUxnfKZb+Uso2WM0mdQ38uFpzJLo40x3p84cGuE
ID0ePEMS57Sg71WRJIXy/ZCIfeipP862eefkBnZe5fclvtHe98fu3BDBAd0i
UMKbMFbJrPhk1KbWxtZE1+POpP92vp73KJ8eZQxZGQ1XiDYP0sNP4/0ejMA/
1d0fw8aTueTTlMbJVyT/bITxgt3znckgU49GbsejpNAvA9DPQ0v1Qmdz/pXv
fhPlc1GmHoO9oaI193W7P8fZDruAp6N880T5emlKObQjER/UWp+Uy1b6ryRh
l682d74w1wW1xZjfaJTORqxXicgKSCo0WquX6irNremkLL8c5/d6zC/7cy92
bgaQ5v1bVYglLPfLJf9i4Hs/Iy6wp8ECtsJIA75nqzxZ4sc6q92pekoIiR2c
uiat/89EWW69PIRxhHGGYZyF2htR/oOuxsId3nwMdti7Gu1IAz9uZaGxetuB
wcXan22pDaWeXWlzfPOeEPJUSmuUOUlBrIRR9Mr+vBTzGuVB3bLfDieZE3lb
NG0uxKtsJ764ykGhe6Ty+/vaVZ5fOaMLit2slJUBhIaQQvtSRJnrfXjve4b6
sesSMwJZErE2M/PoU824PNuqxG3Zc/O+PMRVG7K+lvpfMeWAOdSut6aP6swK
nC/xd6u7LiIpXoMRtfmHQl2JmMm1qiwGjEvu8aKEP7/bwM+nA7dj1m52mylQ
p+xE783vo33mPkE8/bLEnVOOjxpyOlVa2t6OMu8s9+8k6pc3qbP9Z8xNz+wn
nZDaGW8tuyuOmjof4yh3ORBd48RCW0ro7Rhm1SZmcmW/BGgJPtBTTHvZTrwP
o9C7l1esP500hzS7jl1UW6t8VsloxcpEqJVxvQN9XI7yfGdvTqVeejXKLm3x
z2RTsmh4aj4T7FqHqyz2enpTPy7z9yO3sLqVZdfypzDa+zwIVXKOhzX5hK5E
TvHWrqG4jsV6jmENJi+5dl9B2dfGaT2nL1RWlruNEWGk8pTgXH7cSINhXuEj
0iliqauBT7HY3on3BzAaekKsL3pZzwLRikLeEPdKY+d9uWlL/hW8KzTPyg/e
vvwGWmXsOXUT0lBGFFEThYS9kuM3+uVjO+KiL5QeiFeu1tFoNQW64n36eYyT
a0AdAH6VyR+0UH8r1xBJcdzakZlRnLIcLZ1yFydzLvPEh++56cfpPhvlUC4e
2nFa7S7s+u8DrrLLuS/8u5X7paOnoXwPyk9oxpIpefFwkjOXr98Wx0hphTuB
mg1pAXMbEe/2ov6/RvkKjIrt02qw1HFnye1xlNwfi3Y2NLAqttNSK+LuYrFZ
2Cgk66GVGpKxXGWZyRPKZsRKxkowCtSNXKzO2NFr8pbO29ds569Rpm+H1IX0
zOJz/54i9WCZO593cRDXduP7b6DcnrNb0RMjPAFX5hb92XLnoJFDGYnMsf49
6sdopUouYlalIG/ydtiYu6S53SDgbuh6D57fh/mSZ3CVybVIX07v6ruycxtB
qo2YWFF6uZHideiTd/qyD5YpmdMP9na8fxpgcBb6o1WEq0tr/aviLK5BrzbC
v1jr+1c/cIsgX34Gz5+be09yx5MxGono+lnzdEWj4MmFy+hIg3m+4OPohTQh
4kllI2XEBfWjm+I4KZVSyj4TrZBWW2m/opgq1vwPfPEkQII3dpACiH+S8f2M
6uBpYu6bb2OePFvJ6BLKHhJXz+gl9kr94W9Qps3CvzmW9zzSg2t1meWUUzu8
ODPDXuqtyOnJ0N1+tCg4Sg7yBcCMVvVr6vaX813lt6B1ZjrgzmI+0t/E+8eh
zLsixZJF65Sc8oq0hZ6Xyaf3o81rTHmkmT/7rcG0Ud2E9yJrH4xPke18XlNh
pfUK/6XFhydQvTuD7Pu7TX8l67V/9rLWaQKPOoLnPM9xsTcPk7Wd3nHaAHai
TAlbYoxplee6R06avA8lH3P2PoQqS5g//avc1SI5MQ7kMei3eHuiLbDH3015
uJRJQ7+J8kbMaD7NyFqZosycOGXJjqtwT/as8JB38MpoS7Zkjt6vX8pLKMco
3bQ2ZY60FVKnijTLycvqn9MrsAk/lB82AApsg6tMffWmOIM78HSdjLDJf6qt
Gxif3TMbwlZkZtLVv0TPF6HsZppyRiZWPNrFKEHf644h/JzvjvYmrFzgYaFS
pAFV5E5suaG7L431rFT84c7DmKvRO6XG8LPUWVuoNwdqW8wSQtvzeSgT3wS7
78BYT0arlGAZV/FptPoElMn3P+JCiBLbPmf+/hqufrVZc0iWDz/0XpSW8sPV
9fXfXKjUPLTYZ8pznoN8k9s6oyTCD/nB0ULr53KbSdZn3FX4iXp1k4eG3gqR
7Hji4cIfwRyOfp3CDyXZ2W5oZz54zKQuc9cx6ENq/jPAd0h7ptZGH7W3XpSN
HsoqnD8IdW+dhiNujgVso0Ra3eRD7hh+tje1fO/vwfDr3N9C3v+1rt5nV6I8
29MOx8abpEhzIuYUeSzlFA6tZ4a8A+/CSANb/HD8skixkqXfg80O1PEh87bU
ePZTEyJ/iBX3bwMnxpTyPrTPkTLC94Z6vZBvn6MLP400lf7ypSnglSN1hZ/t
TS1Cbx9WNFrkjslO4F4/VnTzH17NhwoVei4uQy1q7eGHUgZlMe78ex4hsPon
XPvxQqVL/64/ZqU4ljmbITW8i5bJeeZ6/nD5otxQIHQztrqnfpMsF/KVZLor
mfDD+925vjxLedalfuRy65tc7nlA4aqu2EnkV07Od5lPaO8jpj2bM72zV0Qp
H9jh1dNm5QMZYdyjfsZ4Saof57izqYXGZkxryFqbJyuNniMtuXlt5a4EA7km
n2dZH7751WOGW/9UsqU/6+odLn6uX8DT8HNVJ1Lb3VNrrL6th1ozG1ae/iPt
9aHVDI8eKeObDj+ePDjdadu/R6nUuR7vd/5YZ07bCb38PEf1jKktH/uVzA9X
39bjMCNGozwc490CKDGHA+MNHi4YFcoTedKgNs3WFzBOsZSJT2xYlw4/S4Au
bfHM3u6feyzlV8YRRG/4Km7ztfr0lS7kJJp2uh7tw/yd8Wm/3hx+Lu1qemC9
cCWullGQ3G2IZCjwX4VuTOxmDqLYFrGjRydmRCR92lzb4peK/3q8l4wj2oY5
91MU+jyzpaHPeynrdiu+2tUHtVXcQ5t9hwd1jLkhrhytJIz+pNVE8L543bi2
jMR7bS+UCN8llHljJi1+7Ik2zeivGeR88YRBlSmGUQgcF3286R7L2md26133
ETKyynfha+vVClhHLPt/4WcwF7GboXlhis8v1aMn+kDvag3x3zeu+kuBg5vN
m77MJqP8CmqRCjMikzYR+rt4DphetLhzG48qeUP4oUUmUNhQJW4QedzEPvCE
xHkKQ6vTt9EaWOdVcV1mFfAjF8o3c3j/5t6WGRXwONRhnBNPJMc5rkpCZQQV
66xeOiEVvApw7ZdtSXWsVW2sOdqHxvTv0f/T0SrxlhyN2QtJG7fg/T6Uz++d
H3dEpEfNTbThI57R5w5mtmrSKK7B5TqmIB1+17wN3n//lhDSD8ZplPf0c5AS
Ms6DsRZP7oUYcYt5dHjPLE8z7HZbZqznN1Fm9C1jQR68tuBrVqV8S29LhDHj
gyK1cnJfFalvKH8ftbxr3bEwGnEPypQH/bMKhB0jm89GLVLz30U57vEqqpA7
hGs4lK2Y9YVqMaqZ2Za9lYpnCCcNnYG6zNbCmKorFf7Z/sAxBsoTGuR5j7Lb
ObYrMDb6t8hpvfuiw1yIS2Ws7JFx11GKWNA6SoT8U+lei+TbpFaUqt2TJos2
1kLqjvJt41P2iOwJ3ot8PXrgSdnwQ42DO589+ZTgb/HVbne85f0mfD90bkTy
6ouHejURqPlsK/mVny2uP1qNkX8iY+MwzUqbzy9S8nmNx+9Kdr1yx0s/beL7
J5nZ92uUn8RYOdf9eE/J9FyUKR26Z9CbOFfJfnohZnClN8Oj0GmJH/8dY4nt
VxlAAm3iaSViIakIywL3V6MVqVW0YY2YFVA1Uvbn0OpQtCntbzr3FD1LzvUY
fB/XMUV39WvSP8RXtEjJXdzyvpwroYYwX8N9MijZqVz/GJFe6cs3364Rs43G
xzjH/2VaG+mtG9zVpTd7/mGEfKkjvfmF57r623t+nBNvHNoicxrUt2ld+Qv0
zrxWS/h+O967d4E3o9uJVnh+MPz4GYzIhcs3chuFx/sIMdHJxSP4GedWuJ9E
/X1uy0P5ecOPlacC7pydPiw+02Lb7Oc3Yskl/2SmC8qUgbsEOsOI2F/FOBn7
atdiQgNn1kzI38ziocOGkTX5iHj2kGeqXuxC8CuoRdp0wKyTFw8lUjA1ZcYp
X4qvyHW/i++pma7RNbM5ezgWylfEOcmz+mL0TY/WbXj/KyiTNvAsW5ShpmbI
WcIXyIQ8+eM6d62+M9Czm+craVbjmIHN149pOepv0crxK5onEtFyVTQ84/OH
ToBzTswT4dsomO+B8yCWM6KdkovunWSj03uruvxvpLlIYS1orLKUKWRt34AR
cPcSZ74KOPHk7KY+OCeZoM2UEsZGLXChnudIMr1bjXN0qM05fwHKcUelSE1a
emhL7NcAvpDfpzVoZ6DnP6rsmqQt9Ar6twtQuurncYBR59/zRR7vnppq8lHR
zn8BynG9mtN31K6pkXq53sLQqDPT99JhzNR1eHMq8y/ErCkzL0Av3OGSVUZl
t7HcmUJfBukG4ftHLvz7KcK0nIlj5y6B81CmpLHJlLPmSWsd12Ej2hApkjub
qym2V2svIw09L8NGHjV236FMjH+EHqnhUw/ciLXgPKk1MeZU/Es8M0JsJMSf
iF5p+/Tvsynf/x7qn4/3tNkPyb7EsDnUZ4YjWr7Flvw6fEUK7dMZ7pPyPfNI
k+rSlnc/2qdnw34f8JyzZPsi22h5UnETepDs5PSAMlMGadUX0A9PFXJc/r0E
/fYyN+N3c87JkwU1Z2zTe02BbZn5tMVyYq0VY70ns/Tm+wioa/wXlP0cImd1
5ibzKZK6lZRGzvlLOVv/Tjx1s0WZ9z/A/Hnem1hFXys9tEO5ofbHUfK+2ICZ
oVHuMWpnLHNd/q072lKmL0hkAWvjGOWMb3NqQJz8j/dFibWcuSFop6EeCG1j
8uF/xXh0zyfZkfScqyGWIItRY72pqF9bCZgWMxSG5rJ9JGqxoVJjeTdfRgxv
pCDleqnMLFykCDtQ/iLq+5bffhvsNq9+s6ruTjdz46hIh2Tu1LefhrmTw1N6
4l3Z1J++5Y6inxfSDsJZkteJNedG9GrzTAeapHiY7KbksJwV9+Wv4T0lBMLW
z4Hn69NdXE6uudwEpHBayfemljm5fTR6gPhE9emkupulocnyo7w16UxLWDfa
Ma2sGbDzvZ3syV0YJT2syt+ShOnmxapoDGkgMYqctL09wOfY1PP6LQtRXmwi
StgvZdn/i/fshRFLos3Y9Qyrjjv2su41N8p51yaVuAepoUhkIak9fTi0q+fc
eDYSImAYdY/2Dgqe7n03WmaU8FUoc4V1vRLOkEZQZqKWEblAc2sNI0ZJmUj1
KYkwk5IrLU3RQylZ+PJ52ZF87+Zua6wchI3VJQJ+RUqavLn9VHkIFuTQlFJJ
7d6P+tPuwQo4R1wl79NywpCdLiz5vT/+kb1VuRofNcTyPubokAhRUgR/R7Pv
wTsQCNHvYUTkOJSuc0arZhUbjEEe01G6Ddd8J/6A6/A05n2LQ1e7cU92qDL3
bZglNfmP4X1zszfatzrj5Ktxuq3c3xXF176cA9Upjx/X2fseSj+UjEUDJwWl
z4eWWtoJLsZ77ipm0fgS3nOdyLP9iOd++yaxXrD8FjzdlgBf389Q9HxirpvV
v9EqBTdpK6UuT+s8zzWLj+k21KJlwnJe3J4yRc6gXY/RaZ9050XKolJA0pi4
Y8ht2+zVAS5i2bO2bMkuQJmD0vtejFliz/tiJ/w7LyJRmfxQ0iO2vi+O0Z7M
ET7dny3tXPTaq5sk2NGqTA7L00gLaH9oPFHDmnkhWqEE62ek6/c9DkUP0rJv
5ZRAY++QqTSnlChlrS/jiDE+3N2UL/Je+3gaN6lRoIu6H0VMKXu/0v/LXBlV
62Ywbm+dcb8K93i88tDNk/cGT+LMom7S5Dzwbx0svIpjm0uVas8x73ryPaml
15jpcRUnuM7uqceoJau7qL7Xs4r6fkPbbpdCAOsdXSQgUo7em0mTxEWPpn8/
8pDlh3uJdOf8KdAIf4pu+yz01d6kYDWIsXNrdFp744lXnkRsZsTeZDDHNf0d
j/4oZ9yt85LTeXIyocSBUTchrfVjC0uMjMXKwoX6eTJtDYGyzi3X2ZApPZxS
rWheMXoVtmFmkSM1nj7uIjdWktjVZCxfSJ+mzlSVGsd4OnITSk+MRCF/D/Tv
tWmwOYpB1q1ExkU7u2BIRUa8nMmNXbjKSkwM0LuMKup0AfqPW7PxC5JmELq0
mvqcod+zRPsDs/5RmyM07pJBNuc+9/B5+jNKYlXcDEeQo2OtHlv0ExX/BRvX
WjyyrZ7b07/gsMTzr0yJOhg753kUdvYrA4tPxLnZE6tpFE1sYM67fUpX4yRj
MCSKjRIk18T3mrcUpj4V7Esp4c9H5VHf8spq1LQsbJK1NLld4vibSMb9KPt3
g5Uycb6NDvXkF9IE9T8nrkcofRGjOtXFAT9WCvul+ipKo+iLPEvu/2M+lwjf
qLEH3FhCT95dOYHsUCaNPr5xviG9PP9bfE/v2gmdtQoXOEoutJJZJ0KgkawZ
WWEj38ua+TeJiiXA2k3jWCZD39TVY7a8ZOzEb/i2rPL+XoyaMgz1IGu70vGb
9q3ffpQjjOcUJ3UVHD0o0ZDmhkT0QO7p3zsGO0WT18ikLTqc8gImmbt/7tYS
r3a9che1EilKWiKPWf1WIcPeXEwIOPhZzHofviZUKaNRkqFuQwn5YvR3WWq0
ztKkVLxQw+YOe2pqlExoM2DZxs8F6S9a0RqbGP0sISI77pvllFl2ocoIFelL
bLnJxk8rHqV0amKMHKCkRfmB686V4t0L9HEynpD9D5WHvrc7PFBuZkNl/XnU
VwqUvJfT4h+XNZaEvHpofEWH7R1f4oJD821pLVt8qBAfWoEo7/XkGYs7K/HB
C+qRTv6gTYjS0lz9xQTI9LNzbMR2SjhqZU3QbbVT2vwej/W94GGG7rFenaP9
3s3rPvR9I8vRzhZrLVidSn61N9lwg7uVu4d+uIcbemITYwa82GtDSX2Lf3kv
MX2QPKv9wC8oq4pODY6tDJ0w/+zAXKkN8f1SV+0Nh7LQI3C0uOfbtRCXQVrn
eI5suyv53u0p/VKHFh3yMvROj4x/5gFaW+WLx8lfXami7dTytnrwEnVS3pR4
EXUVq/eN1N9MPYzW8aLvMqL3tYALc4yy7McL9ds6ePqb7xkrQlmZGM7xyDoe
cEdVy4JBz6LkQsntOx402/WdIhu5p5+rFobugHNP+qQ9uRKjC4duT+Ts6U2V
kzk/g1Y4M4t5KxoPBTrpRTSl8ucHIIW9M/mjPV2lupg+WWzqkGJSiz2p/mI5
nyWGfF958xgfcULT61URhpcbyKqk3/jfy/sh36xY6ZfzeYDO0rZSi/FHf+pC
ukg81DRcGrFgu+wM7e/XK/Y2UCHcxIP3RHy3C+NRDp/GyxXlvX4cB3mIjUkO
NPLr7vxr6/xsHn0lGXJv+jHW/dSNe4qyqett9iCTykNWP19zo7+G5yohc+d9
58W+Jjsc7VWyK9WGMnlh13CUo1x6Ikc6zUvUZiqq8cv2G1rleftfwMyegrJ/
I2Pt1wnLyexBQxHGMbqzOQu7tYbrSp3DYkXvmS7j32zgKFO8GTX+FWZEX8IW
lF2q20TKqlg1+d9FAy3KmUGNo0hyBW0ktA/zhNWGGjaOx4V7aei98vIkOfn2
o1L2b4B1cL7ne74nBOjvGvIpfhBlK3t6dlI/BrDQIsqulCQpqdAKJBkzgqdw
Nu/FKa1lay+hwFsMKIuQlrtZxyoJgNLOl0wLxbNC7tFvrRNbp0rgnW/joeTP
fRe8PMHiTzyXnIC0MLI1X4apoTCbJSTKiuXkSSdS7nHmaVcoqenP2lRGesNw
ef+LKHMvUQL19yqlerZHiyL8PoUOJtj63LOf5vg+tFKW04w/jafir9NyZ+Mz
Ch7zvC/xnjP8lyiTGpyGcnv2a6Tn2EsrWk58mfJEe7JlRaMTCP0CN3JVWjkk
+vKxeLrkzaDHu+SNlbk9Gd3JHfcJlPc2EBvnc9oLln507l3lEpdNPZLa8tC5
E64qM9FZ2rOiZ6eLlEQs4q3i3P/6feLC3Jf+mZWtzdNA8di3H+MCy0MlNUKm
62TXWh1yof5m8ojnB32JVXQ4G8tICipnyPpjCaN2WvmqVvQ+dkSbNTgUaHqg
vtYWNnb8yrRdUPrPURJP6ImvPG1gDjsaKLwXLWxy15D46VuT8hqHCQarSqgm
kecnyuSaiMedBXolDtBA03LqAG3qcZSAWsv8PFo8Bz3u7hnZL7sr4dtYwsh4
2wCtTtxXpGWEK/cOY0Mlz5PEsw3HKm7tqcdYxbOm1itQjJJfm4mj2h0qA1X1
KPMSDnxft1tH5BZobMM8zsX878bqUYLzc573W3H9sxtltSnDcV/TC8DIvKgH
VlnqQ4xh2h0aiUevf6RoVc7IAjHajdgj7RBmn5QV5/fV7eMyrt0Y82vwHfPH
CF229Fz0Ostv2wh6tcqZGbwqwuzkNO4c5SQwK/F1Q9rsXNO7UHTG7W3Cd0HC
CeKmnsVR82GbT0j5WGn1LXe8sORU0tFNPjob49+F+d2L+ZC/UxIbwlw5f6H0
GvF8lLIj1VtYefc1k7fSh1TcKaDMkXiHWr2D0cj5vnbSQZXIe7wZlH+ou0WI
rieeCu/LMCYP28rZ21k5UImZ0SscppQXVqHotqA7jRzFDIV+9pF+a6jo3ZB4
ctTjQhuHyPMKzPTl65aUuGh3oLeXMiTOyea1nzfXpJko/9L66T2zOKeZ70fx
Jc95uJ7TKipCZ5rsyt7MZ9WDUFq6Na7AEmoz6oZ78ZJcTrhOLrQ59RYzLxqa
ECprJpIKohsbyAfaY/sN+CVYaPfIyEZWpt7pV7Waykij4spo9zqjb+Xyq/GU
WpXiuhgKk4Rn14hQomWZWp/NZaqAanD8RsD4NXjPiCVmU/ZPfVG7e0OEAc95
k7MN6cGubLmgsqkutNUmVIuvzo2q1CqfNba2ObRwetPCDYDbQYyNOnm2l/u5
A2EFm6IZxb3TyFlLpjxC7lcPsv4JK1oGsYPp91IpF3akRnd07cEL1nYvFSMG
r7W7WEc0bvNHk0ZZWXTs3OxEC0WU0OYRO5q+Kut6B+DP8+KUmLkytIYR8lxv
yjHiF1zCV1wffuVrWQWfEf0tZpFGzqasLBzJepmkOWoprSWanP25naB+HXHa
HTlyJN/j+Uy0yfPVvv+QVsJ+2zZlD9/+5568qziPb68t/TBfQeQWMxF5k+0i
3o+gPmSNZJ0pOmtk8k1G7o31GqYRM/Prs/NXye5FjU2401BsEmNT/FiV1ddn
2dKRZY0zfRD9JSk7wq7Qq+Uc/CSrTDlUYwn06VjzHPT3qdxJBJl+GCbIcw7i
T7SuFPGv0LYwBIuHuhZD9eXEl41gJY2UjD0Fp2hbo7cB+U1HJtKx+qJoO+ub
L45v1qxYiUGd51ay73Xyey5qSAadHzf+83uLG4JeRzvCGDEXbcqK/NLqOmB/
Z+9qIM4f7Tx1HyfJnqO2PFtxu8ot5e8StTM4kDjW+L8uPayjXJnni2dvyBN9
2ZZW+X77s5utrI0Jm2JZZe4jjkAsrYwO3YVybGVOpSzdu6WG+lRVrrOwyJLZ
rCM35Oft6qwgC4WZ5Shn3+wfM7/ZhveHBtaKkie9o4zl8iM8Sn/83j+VWvr7
qbgyN6AWNTnGvpEWiqZG7sK57jRjDWv1PIz9U2g1ylkNHT4YR/xc1KWszJwf
VpcsNIkSViwv6HvFstaDF76+D1BiRCBjdvg+2+uChB3AoFHdSdLgCTdqkrJ2
XAvesBUxaNHKcoVGXoq6f4gR7kSZ9gfSM1IWyua0I7w0zuA6zMD6gVac+CzY
aFba24LaGiehDdoazsfMvoQy/eKaWzTRDvHRUTrhTV/I87eSs9hBf/Vst3Zm
U3ZqznhFOtBG+vmeZvpzSsu0/L0D5e2of7S4w5nKXaiM2eEeoNeJVmM358O8
agOdzUxRVpP2Lze7ceMzLvV/G2VqiMzYtNSsDm0BkruWdgb6rpVOp3mEVjyb
Oec3ZFlwY5DX2v3VGVsLYT50Fxnz/9KOQVsrMfEcjNa/pbKUo92xsegSPyM+
N5C5FrX8U1ulPr3r4pmz9imNg05r1lr6i52rWFmYW+Uc877AoJQ/jLJv1aFc
0Z+/yVujwMti1jHxIzIGl+eA5tW62vkWEcY20TL1SyhfjLKeKJD0Zp9JUmFj
UXZ9MVNzqc6O2jNjrCM7Nu70xi9wWt3DuD3drrfaFWlXcUXdosnbouVJDbUB
j+1pJ8q8tSQ/m00SInqUdaisC9Q/+nkQuTzr/1aGVML4PWYWMgrZi+2dTeLv
stY/WqMpKyxhVSRumjKSlQNX9A6afn3Gzc1V6ZrKXZMsR9wlfWdM4adQJqVn
NOCZDsTsujOWntyW5asinGjRYFQ69T5SkTXZ8jSFIvK2DWYQFh05bOFpd1lR
8uStrn5mQPb9Io7ftFo8XKVX3hRIPvlplHmPEjUC9w6OKiOXZz0kJZLcqtRW
6DkVDzd9h9SbcfZu8sJqkCPHx2mpQYaZ5K23NlPSBHqJ3RN+jcfRj/Qs1oCv
YWyKe4my8Rynj6u4r2tQZqXXNkaEtadsDL2x1KCscIGhlYCC3qZafaIulC9J
v9zM7Kb8fpTP8qA/JcYyDsLP+lnxUUY17EW7MZNKQ3UQJ6Vg2lPDtfMtP/0Z
oqvcPhVGlBH6uRk9K0xoDTnwRjmeYJrG9/X0LU43TobAXOkx15FQsgqbKHkw
isC1F84pNo3yLSalhU1mXVYQ7aAwNbuVu/mrKFMapQRPXZAn6GK0RhPtT72C
Gmfr8xjnWJjmKe1oOL0xTtmQp57noJzk5lSqaOn30esz8EWUgCUShu32nsjr
MhY3EdQ9XqEeX26X8CDgJiMOPpueh/EVy1WRGNv1CrtmP1oh3ubc+1kWVcrX
xD1RDwalUYj021UIMe6Rz+N9690bO3FVzAQ2jT/pOjlnE/stBxGGTYQPKcVQ
rsGhc4IbPfg2MePlPdfji2iPcg9XY1cuJ/whn2V/lJYJJVoY5KzM7Xjq3mE1
rzJ752uHhIXKDIkW+tlciybAPUbLpFgnuHf/AmOlPZJ2QdrJSFHFXnkj5mbx
dUVvGe63E1ELIfdkBMq3MQqXYsPKEHj6Zah3iRk9V71fL92E+rLelhME4vMi
fPUxzNFtteLH2ddErkcuZyXysMa7UF/uHb+pGeVYc3jWWBn6hOwvaDmYzyOW
y+0qDkehvZxQcDmJk5WgtPhJt8V+a8+WPEZdqrdH+JD27DPthv3LVSDt87Gm
wIb7M1tMKBOvzZC3DL6h+N/CV0vojfW5wwjneG5SbtueIq+TWvwdWnVjkabQ
U1rZ6R8M9DqYQ0jrRGK3fJoUQLKYj3J7SQo4C+PN94S3cs6KniPqt974cVSl
Pm+JeiPKjBXlLHnamu3LKUfvNr3aMsyYOXKWH6JMGj90dw6zSPkyUinH+3Ia
b52f15C44ljIUxwHKclmlL+P9oiL22q4TT7kjqc2LDdKc5U5bu4J3yeEec+r
Tp4kGbWtjiXPmtW9uhLnWt3eEnXTrNctKkm2v43liPn5fgOjG8omeVINxUlD
8bxXs7q8E+4KvLezMfMrNnfZ1PGuZPK7Ns8T6RY1vkj3GnsBtdW9KHMlmQ1t
KOcp9xW9vORcKyiTmlH3pLR7OcrRCpt0xfLUzz9V3kueWNLKOPe1K7UnRsys
N5vYOdmujcRs/YoBK2HDmLz4MmB1Nea6H6OM5Sb3I+MUrJakMrpKPX024qE8
cvRpEQ/CT2gjNClnvMQH3vopKJ2FH56xpk+Muj8t/vFUYIIfajk2Nthyek5/
lt6JPdP8KJ5m8HsoX472yWu4Z3gWRPw0z0ctwpCym5zlxTnDcY5f699h5Cl/
0nGvjNUqC87TSEFlNGeg1wvwPs4u3T+MdSZ1WcCJu3G2XCKGYAr+/DnKl+L7
GqP7LN7/E628AO+HMmpQhqGtXLzulDHCf1W78fQWXSRiP7n0UC6x9mRToC8/
xFeUpAR2z3BrkY/QatLPl0SioLeap3z82LSz0Vb4ae1/9H/d5s6D5/IJY+I5
9WxaewXzCg7QWkwvAffVEsr0QooOQa6/J5eTZEabWdgvQQA6uYbSqI0gd6Mf
DW206xroBu9eD9aMwkNegtZ3osx9zuiW8ENpkHLTE/Gep+NEorgOtfaaVsZ6
6qm8Dz+MLLoEPQ/pJJQoNuH9U+PIXgEIu7k3G0sO5X7aMMIP+6ONRtaId8ZT
gqM+TMki/PCuqL3oWXxf3Hsb3Zanycxu7i7Tb/i5alWz9LPackeVsXwNZbFv
IZPKvCYJSavECD/h/PRW+7uCkmjxNQQM0WxVjd1ebpBXHbSzZ8ThX2ooK8+P
UEv/QQJdzo5Ce5LAmpSX8crkDdwnYg2zGF/sLYXyMOqDHEl5SbJN/588F0kD
EiESGBDtO5In4jY89axAxLxoiV+0eQFkDgETxJ53CPCkdsRcyrQXhB8ZSTlF
RBoqa0Atg3SdsfOun7XSdbVGsm2Ir5EYZGWgkd5B0W+HCT/pLoomnwIlW5nZ
q+uRreT7X2hF6desWQ4/G9OkmTXALqKsIS3z1C7ORO+EPHunzTb8bO68mT8N
X+4e6JkjCz/7UIc6l1AoUsvwQyhf6I7xVsym9TUHjAifkY/YzMYBc34DI3sF
+vMtjxw5ecz3UCZ3u7Cz8gszWA95pnjfb/ghbyTdknETq9zo+ilxUTtQDj9b
8A3xJcb7puyE5GyMA+q3HFifRKDL38P3AsmXo2+eJQo/5Ny824Bxvf246ssA
t+B77o+IK1XOosJFn+G2+DNoIeBHqMTVCz+73BaYuZo6I+9TID0NP0H3DhyS
8W4XufB5LKBAG3X4Ed3TChDUzBivst/ti7EV9NyGH0qlz3VncTD8NhkSevmn
aZ8nu60+W3oRL+yQPEfLUPh5CtqnlSDiSEO7Y4TiFEnqpWjlg5jZo1E+Bd9T
a4rUM1lASh60bNMLVa504fQsjIMrSLmS9LS+QzRx9sbyQt4Sfshf/LgpruM+
lKWnfmmJ2k74ibkJlQcwl7lmBByQVhjhH35IxX0tWTKKtrIIewg/q9N2+mty
fa9ALcmTa22wpAThx48L6fca9o/SvTfVlN0zqLGlEqvlW51WNPq/XyqmlP+D
evaTHkh/udtfcpTwX33Np2JsB1CLtIl2etqFw8/OzmL6mwDrNmoz/MfnhDeg
d+7e1XBEf4evHkJ343taMqevQmZ3T1/1OsW9UmVLJV3r/zbSfyevqK/zeC0I
3yk5LMOeC7T8YPyCcjhjLRjNRzroeXlsBtyQu9GfLe8mZoQCs16Q8y257+uR
0Pq1PnVU3107xA2vxVO2yki8051V0HVEzj9/HWmrfI7TIrBq0lg/Vh09zj5U
KrT6mpzr41H2LCihpUKPVt+XxtSkp7QorUbbeKjU55G+Hn01w5jvPsq27um6
AcrX/220oqyC8vW38HPxaUv5QhVfii1yr0+5+vt6ZzedsqxingOUYdVQTs38
aXzXpX/XP4yl94TfxXLftLmyO9aMOsx8eRzBL5qZfLvW3lUti1OmH+WX5jZr
9+t4/3DVTPo6flNepK/vye/ajHSlzYJv+lek3bwF2a7XpGx6OHFK3rV20IU7
8IbgSYeHDxcASg/FN22ymK3TLGYtSAuvWGdv8TXDOVTgG1tvc1FNWev90rJ7
/6pd93sKTpgsP6H2AffNPYNYuPrSzE/8f68XLbQ=\
\>"],ExpressionUUID->"add56563-903d-4428-9de4-b24503dbc9fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SqrtBox[
  RowBox[{"Diagonal", "[", "SIGMA", "]"}]]], "Input",
 CellLabel->"In[25]:=",ExpressionUUID->"cfdaef4d-e31e-483f-bd0b-488857c96f9e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox["1", "11"], ",", 
   FractionBox["1", "121"], ",", 
   FractionBox["1", "1331"], ",", 
   FractionBox["1", "14641"], ",", 
   FractionBox["1", "161051"], ",", 
   FractionBox["1", "1771561"], ",", 
   FractionBox["1", "19487171"], ",", 
   FractionBox["1", "214358881"], ",", 
   FractionBox["1", "2357947691"]}], "}"}]], "Output",
 CellChangeTimes->{3.8491537491060514`*^9, 3.849162469448306*^9, 
  3.849162613565928*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"c387eb61-d925-4030-8aa3-8dc92d340701"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.845088771848549*^9, 3.845088795823149*^9}, 
   3.845933126799091*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"e23bcdc2-e1e7-4984-a080-181c824808c1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"CorrelationFunction", "[", 
      RowBox[{
       RowBox[{"QS1", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{"Length", "[", "QS1", "]"}], "2"], ";;"}], ",", "i"}], 
         "]"}], "]"}], ",", 
       RowBox[{"{", "50", "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", "\"\<ACF\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8459326448140945`*^9, 3.845932645160134*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"51f7c276-ec8f-49a3-95ac-a62c208944fe"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               DiskBox[{0, 0}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.368417, 0.506779, 0.709798], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.272]], CompressedData["
1:eJw1yVtIEwAUxvG1wOzy4GXpMhUVG25J2Gx5d59zbtNqiuulkiy7ESKzG9ok
khKhMConJBmliaMcrqamQxHntZx0X+oyNR26dLktK8kHManjge/hd/7BOcrM
U+sZDEbk6tatjslYO5dw5d85hfRAlmedYOKpg+yO7mruhnOKebIHeBG6Eeay
ncxCeSe/vkIzR2bjj7y1iJMxS/ZH9njcAcOSjRyEvjxjYFrtDDkE4cti1+j+
aXIo1GUDXXmLVjIHS9vl6pVHU+QwzDIqncf7J8k8WKYn9/V+/0oOh8m08wnH
e827cDHb7u51YZwcAQX3atdQ5xfybgh+eqmqtoyS+fDp0PCPHbKQI/G7NNYe
qhkm78Fwxpva2YVPZAFa/XKydEIzeS+k+oPM3MyP5Cg84Bft8D39gRyNhaYa
Wc/l9+QYyASvcpW33pFjkZA3FhAlekuOg03JO3n77GtyPCrOF9Tb7gySEyC6
1OsSGgbIiXAUeEZVTrwkC3FPdfSKy62fDDglQ/o2c+9/FwMSb/lMyeMe6kmo
mujzS8/vpp6EH9qE9G2JXdRFkBa+uG7dbKQuQvSNw/lHmjqoJ8ManGZxytup
J6O8LUZUMmegLka8gqtll7ZQF+Obnc1qCG6mngL9qK+l5VoT9RSoBn0eGq2N
1CWQtm89YRKTiyXw0LLCzHV66lJ8vu89P+ZGLpZCc9Or0XbmOXUZJn+FOKbu
PqMug8ocVLio0FFPxcbmQOYmnwbqqahR+5cFjGiFfwE9PPHk
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.880722, 0.611041, 0.142051], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[6.72]], CompressedData["
1:eJw1yX1MDAAYx/GLGWNoN1390ZleNCvdro7rpLrfddfdlTY60yZRJJsspVjD
ch3GZIeZl2i92WldhcvLSm5xETl1elEt9Hrsul5coSvWjsxzz/b74/N8vfZl
KFIXMhgM3vxc5reA4bxJ4dyff2cT0gPmxGXKruFv5CV4+5TlqGyaILtCx/LO
zasYJ6/CzezAuR0Xx8geULYJTgYcHiV7IiVQ8psRZyWvQUz+1uPdvBGyN4Is
CbNVLAvZFx6SAzmqX1/JfnCUHrHHf/5CXofyRSXbT/8wk/0Rm9aiu7fU6fUo
zlXxfdYOkzmYusLXFwiHyFyINWOiFQmD5CAEZoguL7b2k4PRfr3q9nd2H5mH
HL1beZ/iE3kDPM3KmubzveSNKH7e0jqo7yHzwZ7dae+wdpNDUMK1rG5iOS2A
98GjslpxF3kTNGUumdrMD+RQ+H28VFBY1EnejAqmp0Ft7CCHwX+L1qqcaSeH
o/oMn5nl63QEOPqXofvj2shCJFrLXlfPmciAe6X84UR663/nAaY0WxFn4B11
Ec4G3LiQsc1IXYTw8bBjOkMz9Uj8rDYnTwW/oR6JqvT82GBNE3UxUjhBgmy3
V9TFYNt6fB6fa6QuQeeDUyunZ15Ql4A1FGM/1NFAPQqq5Cy15JqeehQmB275
suPrqUuxK8nwbNq9jroUzf0jClPvE+oy8Pe4jpYXPqIuw52+EJVydw11Obzq
G7i6iPvU5XDULU/a26ilHo222kQ1U3qXejROTF99n2osFf4FvRH3SQ==
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.560181, 0.691569, 0.194885], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.16]], CompressedData["
1:eJw1yVtIkwEYxvFPw5LCNLA0HHSSNTOdc2azpXu2z6nrovLAVJBsaUsGrSKK
IidGGokJJRQzorAku4iCJMmJkWCmztlsS80Obo2m4qar1kEmmtH7vfBc/N7/
liMn8o6uYBhGvLyg5QUz3Plki0v/bk5GD7AVvqaD5llyKOqsDnHzTS85AkOS
Ycs3jYcciWgP29aeMEOORvndduOF+WkyD0/y4qrwaoq8GYGQ22Uh1yfJW6Hs
WKsaKHGTYyH62XVYK/hK5oMnOn4u2O8iCzAYHGU3FXLeAYP9pfB05xfyTiQ8
0NXHb+KciO6wrsr0Wic5CYVnwvUHZhxkETwfNaWaXM7JYOoqmt36CbIY8UVh
Nauln8kpKNj+VJu46hN5Fwy/1Ko82wdyKrJuCat6IjjvRnhGaFvq/nGyBGNO
x+TD+vfkNDTXdvBi+sfIe6CLa8xtWMlZCrFFd3mJHSXvReAk23nq4gg5HT2R
PJ/rxTtyBhqe+2PVC3ayDOoSS3FfGmdgWrrY5+u1/Xc1YIgRSjYWkBk5wgOl
rXLnW+py3Bu/tkGnJzMKpJi6axsDw9QV6G367jddITMsis9vK3et5zoLT1GB
bc19K/VMvOY7BK1J5OpMsNOjCzWVb6gr4TUlF/+YG6KuxI2rDc80ZWQmC/JD
U+usIxbqWfAKWX3GPjKTDWPQnYFHXYPUs6Gw/eHHiMhMDmZb8i/VtZip58B4
9vHE7ygyo8Kx2Xy3s36Augpi7bzHvNQv+wufFfYt
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[
                
                NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                  1, 1 - 3^Rational[1, 2]}}, {{0, 
                  1}, {-1, -0.7320508075688772}, {
                  1, -0.7320508075688772}}]]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.922526, 0.385626, 0.209179], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[7.6]], CompressedData["
1:eJw1yWtIkwEUxvHXW/WhwjLED0Ipy0rH0kyrLd3jdF764hp2gTJbKigYgnmN
FZpiKYmVFtgkJRXiNQ1NVtNwXlgpWdgcZjWGd8ssKqnIFBJ8OnA4/M7f51ym
NtVFEITg1XVaXWfh/3xTOvHygRYxpzug6yu9AQnHPutP5H6h3SEIOkVx0AK9
DaI4+qd1YZ72QtLbjFzv5k+0NzxcXRbL0j/SO/A8sCbz96452hf6xL0LKbMz
tASB5ZY0a+M07Yc546kZZfIUvRu9gmyLLXGS9kftESEs7eQELUV+tTVtWTtO
y9DwLG6Pj8FBB+Je9tmtrmV2Ogg10ry/s7nv6X24NV0xPZgyRgfjem3jq4fa
UXo/riZ0GStho0NQuNFalyWz0qG4MBJVMRH+hj6A1LtPLmrih+mDaOlLGL5s
fk0fQrVG3nx6fIiWo8CxvVTu9JJWICnDTeflO0gfhnppXvFL9YIOQ8C1YU9b
soUOh7un8XtbST+txGKDYaiyqZcGRHtJsajrWXMh0Otvzy5XdLNHQFrbOml+
3MUeAcOmIs3PABO7CkPx9VfsA0Z2FZZvmjv6UzvYIyGzOWZF53b2SPRJl4Mk
ykfsUfBvk9/5kS+yR6E8pGCpp72JXY1Qfd0lxcp9djWm+iyCMaaePRo7PcbW
6yQG9micr5dsPm66zR4DiaXqQ0PODfYYdI64aaeSS9ljcUY+8G7laR57LGrS
/fQPjqrZ47BU191ZlZJlXutxKFxXpGo1FZv/AaLd7OM=
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[], 
               PolygonBox[
                
                NCache[{{0, -1}, {-1, -1 + 3^Rational[1, 2]}, {
                  1, -1 + 3^Rational[1, 2]}}, {{
                  0, -1}, {-1, 0.7320508075688772}, {
                  1, 0.7320508075688772}}]]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.528488, 0.470624, 0.701351], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[7.68]], CompressedData["
1:eJxVyW1IkwEUhuF3lmBSEWJOsFDXSEkb02mrNH3mNudys5ASxcwcS1ISUbEP
kNCkQJwmFSESZKikYpmBQlraqKFLt2qbsxJttkqd2oe1NBuY4NmPDjwcLu5g
VWHq6Q0MwwjWxlqbB+O+7/H/fwbsmLkLYSNfyV7gnbP+SKtfIG+DtEubf1k9
T/ZF5nyH/T5/juyPopD6E+9cs+QdqFZVjm7Uz5CDMByXXai/OU3mYEtAzKba
U1/IXKQs+TWlhn8m78Y182Ise9lODoV3YOOnZqHbe3A1X6mJPP+RHA5Wz4rg
Wc8UmYcyVuu48reNzMey4njleLTbEXDwPdNMjklyJKYGs1sW8ibIAoyd7P3l
NTtOjoLR6SvhnnlPjoZOU3gjfvoteR9kpRkTTtMYWYihLHFIR7+VvB+HE/cW
qdpHyQcwzGP3+d+ykA9CyWZ5vqowk2NgWHWkXCkwkWPRlyuvP5r+hnwIrYZ7
UwHi1+Q4hOZtTjNmGsnx8BDqZ9QRI2RgSFenLfZ6ue5yQHMsvaH8wyB1EZT2
wJLaHh11EXyKp5Nv1zynngAL08ltV2upJ2ArnJyy0n7qYhRc0riagnupi2F+
sss6bOimLoHwb2/nz4td1CUQlDT7CBXt1KXg2KqGeJ13qUsR1TDpUnCvU0+E
q4K3vUampJ4I70fVYZYjdQPrXQa/s7bsxReN6y6Xgbu60raS00Y9CXnJKRnS
Pw+pJ0HCvpNVI+qmLkeQ/VvOaNVj6nIsPUDuTtPTgX+Ka+5t
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[
              CircleBox[{0, 0}]], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.772079, 0.431554, 0.102387], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[7.168]], CompressedData["
1:eJxVyWtIkwEUxvHXaRAsy8LIaWILCcmUpdO85fu4TbdhEBrdCLStHJIxLVMa
FIxsKqIVfaiWRZhlmJE2Qgkba9YqNW2p07lhl1V4YatRLu3CSOjsQwceDj/+
fGV5YUkwwzDJSwtaGocJnJf9/zPIPirlX338hbwcWvs5kVDjIYfBKBk/NJzi
JofjT1e0rvTbHDkCmdElbZzOWfJ6JKjT4K6YIW9AjInrsCVNkzciLOxdpWn+
MzkWQQpDaHv3J/ImfH+gu3Px5EdyHNbp8tc2t7nIm5G1b3VN69gH8hYcjJ/w
dnACToTOf63ooeA9WYBdrZYrGuNb8lZclxecaOBNkZMQ4jeUM1VOcjLUhvCy
auskWYhxVbXKHW8np4CNsiuUdePkVNzqjls4YrWRt2FFoaaxkhdwGo55+vmn
lGPkdNjrI3vOdoySM8DGlu1omh8hZ4L9MRPlyAg4CwOX080HtG/I27E3vUE1
ZbGSs+FyOLjF3IBZOBf3KM0tw2SgLjEho3Zw6J+1gPBw8Jp83yvqOXDqJ2dX
xZC1Oah/3Wkekw1SFyF5Wa1ef3yAughVXRECdWM/dTEixaPFoe0vqYvRZ2s6
f8/ygroEpaUyU77rOXUJQn9zvs75LdRzwcSMNKf+ekY9FwuiFtkZ31PqefCo
KnxD3j7qeXA1sDd5bjN1KSbur9xZMv2EuhT6270LCouJugw1nv0FP3uN1GVQ
pyzevWDopS7H7tOXQuLaH1GXQ2wRFplu9LB/Ac1d7ds=
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[
                Thickness[Medium]], 
               FaceForm[], 
               LineBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}, {-1, -1}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.363898, 0.618501, 0.782349], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[7.168]], CompressedData["
1:eJw1yXlI0wEYxvHfLCvSVqKs8qq1GOWWZatmh9vjsTmlQsUZ1uxQSsJo0mGI
HWpF/ZNpqaEjkZQlrJnKOihxUkO0YbZiZmm2yjVdrkwWtYSW5NsLzx+f98vN
VqcdnMUwjGh6rOn5MP9vQur9d9+k9EDJRfv2ydKv5HmY7WeuGfF1kRfhUnnL
5/7LX8hBmM+pFvX4OclLcEVTVPy4bJQcigDugV59gIO8HNe18uD6Sjt5BThC
Ye61xSPklahpDTBcqP1I5iNE/JM5FfaBvAqualP43RM2cgTOuHiFz2+8JwvB
1XcYJPJhciRMRzInmt1D5HU4LHQLljUMkqPAHi/LvZr6lrwerbrVDV7vAFkE
ZZ5pWN38mrwBUxH7gm2qfvJG3HR6lCl+VvImtE8F+iR7XpHFGPSPbI53vCRH
wxOm2B1jtZA3Y+na7Dnipy/IW+A/PlQqyOwjb4W98MevUUEveRs657LV2j/P
yDHQVPHtOZZusgQnedI93MYushQ7WndZhgtMZIC9U5jhyXky42LA7GQGA1M7
qcciaKHOqDrdTj0W5Yr0noqMh9TjYDzOy6/ea6AeB0fdJEdzqIV6PPiV54uk
75qox+Ock9ujcNVTT4CupHhN4+8K6gnoOjYmu2/dT10GvdL3Ey/vrHGmyxD1
RvpIkVIxY0YOt6qjqNtXQ10OVX5deGPWLeqJkLRleXOib1NPRJg71MYLvENd
AVbIUdv3ghbqCjRZxbUDY23Uk5BWzko3qu5RT4In2bxA2/fA+BcZK/I/
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[
                Thickness[Medium]], 
               FaceForm[], 
               LineBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}, {0, 1}}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[1, 0.75, 0], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.704]], CompressedData["
1:eJw1yVtIEwAUxvGlWSamjYaU2m0sV2sMa02npn67z+hhJYiVGi2z+SADH0oR
MTOdoE0Ugoyw1HyYc6aYSqm4UpbYUDMvY3jJLrZcLqFiRaUZng58D7/zP6DV
n7nsy2AwhOvbtD4fxv9bSVxd+3dfEukByeDF6uceD9kfJeUD7NLZZfIO2E4d
fKyyfyazsJVpUAT0uMm7kDTpmrKblsjhqKg9qau684m8H/b0lp+nDS4yG8Hs
oArW1Y9kDjSL+vDpzEVyBGqaX1lqkz+QDyE0z0/AynlP5uG+IqbVWPaOzAd3
Z45g24O3ZAF4aqYj7ckCORKCws7itvE35KPIyuxI8XfMk49BP/LL9ChgjizE
NbH8T0r8DPk4ihoqNat6J1kEQ+BkY1ODgxwFUai3vS9tmhyNBe5u62TIFFmM
W6K4keWxCXIM4mTpM34Vr8mxcGmKlvYoxslxuJ1R/0O0NkY+gZuOsu33ckfJ
8Zj7OnzYvmgnJyA6OFj5+9wwORFGXrKWP/qCDKyUbPZ1K2wbvg5oZjsbTb2D
1CWwRF2R64QD1CUQvswM1JqeUZei64J24vw+K3Upcl39YjOvj7oM+cyeobqQ
p9RlKI7tSq3x6aYuh+FSu6vU00FdDmNlS16+s426ApyxyqBWo4W6ApEG65Fs
nYm6ElEJ39QcaRN1JeTfuVnzYfXUVShP7d4ictdSV+Guba/EXFdNXY2M7ECv
9OEN6moU8J0ZBWc11JNg6zUnDIUV9m/0JHB9DM3eiKr+v89K6vY=
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[
                Thickness[Medium]], 
               FaceForm[], 
               LineBox[
                
                NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                  1, 1 - 3^Rational[1, 2]}, {0, 1}}, {{0, 
                  1}, {-1, -0.7320508075688772}, {1, -0.7320508075688772}, {0,
                   1}}]]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.647624, 0.37816, 0.614037], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.192]], CompressedData["
1:eJw1yVtIkwEYxvHPLJkXmpS5Dgo2NSt0M61My+3R6dws0qwYgqyDueoiWrUO
CsVMoTUMShwdLLaLEc1FRquIkrEsnYfmWpuHSju4sMTUrMxMy4ze74Xn4vf+
l+4+mF/szzBM0sz8ZjaLYe+L6M/0vxsR0QO60Ibc6MZhMgcLVlQYpLohcgiU
9fUb5Zs/k0NhzR0bL543SF4If1+8Sd05QA7H1mPKvPIrn8iRMAUapi4oPpJ5
GL3adcPI6ydHAwkh2+v6P5CXoeq+LbSj1kdejimb7HSAgPVKKB3ekWRrHzkO
E6VR0tYU1nzo+IeNhfb35ARE9Nl/DktYr0Kdfu6WMuc7ciIyZArz/G2sk3B9
osB/07235NVw7hy3qhrekNfgq6N6j97VS16L4B2R2rNjPeRkxP6wWE4uYb0O
rhNxHpXoNTkFxydv/ioqekVOReSpeJ78zEvyejiYW7IcSzd5A1Tl/ENpri5y
GrgBdZcSvnWShbBrBfYoLmsRnp6rPC8RdpCByRpza/Ad739rgMTaptldMWQm
HcoHPqHhsod6Oq41MSV7g8hMBjzeCKug7AX1DHB8qUPj393UxRCOymPt+8ga
MY5Oq3dpe55Tz4QlqKomL4+syUSJvN2t0LioZ6FlqLDU70k79SxwKwZ5pjlk
RoL9i0vbJFIndQke3uaoB3TPqGcjMPtieKWzjXo2CnpjGvkhZEYK85G7B9z5
rdSl+B0oDlPrW6jLkGN028K6m6nL4HlU/XgRt1n0F+Az8jo=
         "]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{
               EdgeForm[
                Thickness[Medium]], 
               FaceForm[], 
               LineBox[
                
                NCache[{{0, -1}, {-1, -1 + 3^Rational[1, 2]}, {
                  1, -1 + 3^Rational[1, 2]}, {0, -1}}, {{
                  0, -1}, {-1, 0.7320508075688772}, {1, 0.7320508075688772}, {
                  0, -1}}]]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.0055000000000000005`], 
                 RGBColor[0.571589, 0.586483, 0.], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Offset[8.192]], CompressedData["
1:eJw1yV1IkwEUxvFXXTOdMGsV6sTZKjF1LbV0btUeda9zIeUHZAWN0laEF/aB
li5kqAsLNSiMrLCBBVGCmGDoipg3as7ZTEtGZatkbuSqZSFlmRfnPXA4/M5/
Y1llsSGEYZj0lQ1a2WCGm2/qILr0QK1Sqt/3xE9ejVvVcWLN2XlyJAYex0xn
yb6Q18Hl39Amn/ORo/AnSVS8pdNLjoX4pFAo1s+R46HqFNgjoz1kKQ7PhF7m
T86SN+OimJe31PqZnIDbpUxIQPeJnAjZ09M/B5o+kpPwPN7taRhyk1NQZC5y
FfA5b4Pba7OvZz+Qt8N753jds9AZcioEJ9jy/eZ35DTI5Qn57uC35HQULfJl
50wu8g5U2zxrVv2bJu9E+5XhXzeMb8gZsC2LUPfoNTkT3eWWrmPzU2QF7g6l
RLNyzlloTu43J56ZJCthvMoGBL2vyCqc+uHUf12YIO/CoVL96EQG593QWn2Z
fRec5D3IkJy/1z7wkqwGyw+V/l4cJwNV2iMlpnqyCbA09TbyI7iejbGRsL7m
Ngf1bPwNP+pZKyEzOdha0BfV/mCMeg4OtETslaSRmVzUO8qM96126rnoEfZ3
JbNkRoOZQuH7HscodQ0E1wxCxUEyw0L50KepWHpBnYVhsLK2w0Jm8nDdtdDt
1HA9D7ZAzSzPO0JdC3/4coyihWzSInZTY2FFKtfzoVWFXeqYGqaej6qSVquz
hszo0Fkh+s6L47oO4w03ExSDQ+r/rsviXg==
         "]]}}, {{
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]]}, {
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[
         1.6]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \
{{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, 
       FormBox["\"ACF\"", TraditionalForm]}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0, 51.}, {-0.1164873480453784, 1.0000000000000002`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"}, 
      "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]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.272}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.08426020408163262] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 6.72}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.051309523809523805`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 8.16}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03009803921568628] -> 
                    Baseline)], #3}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 7.6}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.002105263157894735] -> 
                    Baseline)], #4}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, -1}, {-1, -1 + 3^Rational[1, 2]}, {
                    1, -1 + 3^Rational[1, 2]}}, {{
                    0, -1}, {-1, 0.7320508075688772}, {
                    1, 0.7320508075688772}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 7.68}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.006354166666666661] -> 
                    Baseline)], #5}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[
                    CircleBox[{0, 0}], {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 7.168}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.022477678571428558`] -> 
                    Baseline)], #6}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[
                    Thickness[Medium]], 
                    FaceForm[], 
                    
                    LineBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 
                    1}, {-1, -1}}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 7.168}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.022477678571428558`] -> 
                    Baseline)], #7}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[
                    Thickness[Medium]], 
                    FaceForm[], 
                    LineBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}, {0, 1}}]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 8.704}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.053841911764705916`] -> 
                    Baseline)], #8}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[
                    Thickness[Medium]], 
                    FaceForm[], 
                    LineBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}, {0, 1}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {1, -0.7320508075688772}, {
                    0, 1}}]]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 8.192}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03158203125000002] -> 
                    Baseline)], #9}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{
                    EdgeForm[
                    Thickness[Medium]], 
                    FaceForm[], 
                    LineBox[
                    
                    NCache[{{0, -1}, {-1, -1 + 3^Rational[1, 2]}, {
                    1, -1 + 3^Rational[1, 2]}, {0, -1}}, {{
                    0, -1}, {-1, 0.7320508075688772}, {
                    1, 0.7320508075688772}, {0, -1}}]]}, {
                    DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 8.192}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.03158203125000002] -> 
                    Baseline)], #10}}, 
                 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.0055000000000000005`", "]"}], 
                   ",", 
                   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.0055000000000000005`", "]"}], 
                   ",", 
                   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[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], 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.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3523253333333333, 0.3137493333333333, 
                    0.46756733333333333`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
                     "]"}], 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.528488, 0.470624, 0.701351]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5147193333333333, 0.28770266666666666`, 
                    0.06825800000000001], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
                     "]"}], 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.772079, 0.431554, 0.102387]; 
                    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.772079, 0.431554, 0.102387], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.24259866666666668`, 0.412334, 0.521566], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.363898`", ",", "0.618501`", ",", "0.782349`"}],
                     "]"}], 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.363898, 0.618501, 0.782349]; 
                    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.363898, 0.618501, 0.782349], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.75, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0.5, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.75`", ",", "0"}], "]"}], 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[1, 0.75, 0]; 
                    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[1, 0.75, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.4317493333333333, 0.2521066666666667, 
                    0.40935800000000006`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.647624`", ",", "0.37816`", ",", "0.614037`"}], 
                    "]"}], 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.647624, 0.37816, 0.614037]; 
                    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.647624, 0.37816, 0.614037], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.571589, 0.586483, 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.38105933333333336`, 0.39098866666666665`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.571589`", ",", "0.586483`", ",", "0.`"}], 
                    "]"}], 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.571589, 0.586483, 0.]; 
                    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.571589, 0.586483, 0.], Editable -> False, 
                    Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
               ",", #8, ",", #9, ",", #10}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    DiskBox[{0, 0}]}], ",", 
                    RowBox[{"Offset", "[", "6.272`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",", 
                    RowBox[{"Offset", "[", "6.72`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",", 
                    RowBox[{"Offset", "[", "8.16`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {
                    1, -0.7320508075688772}}]]}], ",", 
                    RowBox[{"Offset", "[", "7.6`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[], 
                    PolygonBox[
                    
                    NCache[{{0, -1}, {-1, -1 + 3^Rational[1, 2]}, {
                    1, -1 + 3^Rational[1, 2]}}, {{
                    0, -1}, {-1, 0.7320508075688772}, {
                    1, 0.7320508075688772}}]]}], ",", 
                    RowBox[{"Offset", "[", "7.68`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[
                    CircleBox[{0, 0}]], ",", 
                    RowBox[{"Offset", "[", "7.168`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[
                    Thickness[Medium]], 
                    FaceForm[], 
                    LineBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}, {-1, -1}}]}],
                     ",", 
                    RowBox[{"Offset", "[", "7.168`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[
                    Thickness[Medium]], 
                    FaceForm[], 
                    LineBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}, {0, 1}}]}], 
                    ",", 
                    RowBox[{"Offset", "[", "8.704`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[
                    Thickness[Medium]], 
                    FaceForm[], 
                    LineBox[
                    
                    NCache[{{0, 1}, {-1, 1 - 3^Rational[1, 2]}, {
                    1, 1 - 3^Rational[1, 2]}, {0, 1}}, {{0, 
                    1}, {-1, -0.7320508075688772}, {1, -0.7320508075688772}, {
                    0, 1}}]]}], ",", 
                    RowBox[{"Offset", "[", "8.192`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{
                    EdgeForm[
                    Thickness[Medium]], 
                    FaceForm[], 
                    LineBox[
                    
                    NCache[{{0, -1}, {-1, -1 + 3^Rational[1, 2]}, {
                    1, -1 + 3^Rational[1, 2]}, {0, -1}}, {{
                    0, -1}, {-1, 0.7320508075688772}, {
                    1, 0.7320508075688772}, {0, -1}}]]}], ",", 
                    RowBox[{"Offset", "[", "8.192`", "]"}]}], "}"}]}], 
               "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "False", ",", "False", ",", "False", ",", "False", ",", 
                 "False", ",", "False", ",", "False", ",", "False", ",", 
                 "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.8459326345021906`*^9, 3.8459326458273816`*^9}, 
   3.8459327763964977`*^9, 3.8459328118095226`*^9, 3.845932961038996*^9, 
   3.8459330068449693`*^9, 3.845933350046435*^9, 3.845933394753455*^9, 
   3.845933581668882*^9, 3.84593366920157*^9, 3.845933714180086*^9, 
   3.845933942497547*^9, 3.8465289312604713`*^9, 3.84652896465872*^9, 
   3.8465290391102057`*^9, 3.8465290832831173`*^9, 3.8465330664981756`*^9, 
   3.8465333637140636`*^9, 3.846533620990156*^9, 3.8465337560729856`*^9, 
   3.846533881660226*^9, 3.8465340490792704`*^9, 3.8465341703730154`*^9, 
   3.846534268701928*^9, 3.846534393199246*^9, 3.846534449920397*^9, 
   3.846534620169639*^9, 3.8465347542866783`*^9, 3.846534841794732*^9, 
   3.846534959753171*^9, 3.8465355216230946`*^9, 3.848942435251878*^9, 
   3.848942515453428*^9, 3.848942646765023*^9, 3.848942789555914*^9, 
   3.8489429310286455`*^9, 3.8489430830705423`*^9, 3.8489570885661373`*^9, 
   3.848970722567988*^9, 3.848970838442757*^9, {3.848970918041891*^9, 
   3.848970956005164*^9}, 3.848971002152322*^9, 3.8491534819642406`*^9, 
   3.8491624699480677`*^9, 3.849162614295035*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"57eaa888-eab2-4057-8d39-91e05bbec97a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"psrf", "[", "QS", "]"}]], "Input",
 CellLabel->"In[28]:=",ExpressionUUID->"e63009da-a55c-4cfa-96ee-a233f7ea6339"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1.0249455546030684`", ",", "1.0051877524845818`", ",", 
   "1.0122711825492547`", ",", "1.0017419693587493`", ",", 
   "1.0067105488708679`", ",", "1.0262330461439382`", ",", 
   "1.0025416244376923`", ",", "1.0059468435680463`", ",", 
   "1.0004373123209818`", ",", "1.0016626004725704`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.848942563495739*^9, 3.8489426470302095`*^9, 3.8489427897454014`*^9, 
   3.84894293123884*^9, 3.848943083259512*^9, 3.848957088780261*^9, 
   3.8489707227160053`*^9, 3.848970838612135*^9, {3.8489709182129087`*^9, 
   3.8489709561598177`*^9}, 3.8489710022884517`*^9, 3.8491534822594748`*^9, 
   3.849162477620654*^9, 3.849162614448772*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"d2b20dd6-18d5-40b9-a332-05b839533558"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BarChart", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"psrf", "[", "QS", "]"}], "//", "N"}], ",", 
   RowBox[{"ChartLabels", "\[Rule]", 
    RowBox[{"Table", "[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], ",", 
   RowBox[{"BarSpacing", "\[Rule]", "Large"}], ",", 
   RowBox[{"PlotRangeClipping", "\[Rule]", "True"}], ",", 
   RowBox[{"ScalingFunctions", "\[Rule]", "\"\<Log\>\""}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", "PSRF"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.845933729875287*^9, 3.845933774984328*^9}, {
  3.845933993845338*^9, 3.845934001093877*^9}, {3.846534279130932*^9, 
  3.84653427979865*^9}, {3.8489425323826785`*^9, 3.8489425538102627`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"6c99b8bf-8b6b-4670-a773-fcf577d74319"],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], 
    PointBox[{{0.4733333333333333, -0.999562783272183}, {
     10.333333333333334`, -0.999562783272183}}]}, {{}, 
    {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
     Thickness[Small]}], 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{0.6666666666666666, -0.999562783272183}, {
             1.3333333333333335`, 0.024639493719168123`}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{24.17139208624626, 
            46.81412341812993}, {-91.25263300512364, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0249455546030684`]& ,
         TagBoxNote->"1.0249455546030684"],
        StyleBox["1.0249455546030684`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0249455546030684`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{1.6666666666666667`, -0.999562783272183}, {
             2.3333333333333335`, 0.005174342455274964}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{57.385489084071764`, 
            80.02822041595543}, {-87.4563055348292, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0051877524845818`]& ,
         TagBoxNote->"1.0051877524845818"],
        StyleBox["1.0051877524845818`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0051877524845818`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{2.666666666666667, -0.999562783272183}, {
             3.333333333333334, 0.012196501914448266`}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{90.59958608189726, 
            113.24231741378094`}, {-88.82585137057606, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0122711825492547`]& ,
         TagBoxNote->"1.0122711825492547"],
        StyleBox["1.0122711825492547`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0122711825492547`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{3.6666666666666674`, -0.999562783272183}, {
             4.333333333333334, 0.0017404538898042538`}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{123.81368307972276`, 
            146.4564144116064}, {-86.78658736442856, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0017419693587493`]& ,
         TagBoxNote->"1.0017419693587493"],
        StyleBox["1.0017419693587493`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0017419693587493`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{4.666666666666667, -0.999562783272183}, {
             5.333333333333334, 0.006688133362160019}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{157.02778007754824`, 
            179.6705114094319}, {-87.75154320990188, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0067105488708679`]& ,
         TagBoxNote->"1.0067105488708679"],
        StyleBox["1.0067105488708679`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0067105488708679`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{5.666666666666667, -0.999562783272183}, {
             6.333333333333334, 0.025894861447249846`}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{190.24187707537374`, 
            212.8846084072574}, {-91.4974698896064, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0262330461439382`]& ,
         TagBoxNote->"1.0262330461439382"],
        StyleBox["1.0262330461439382`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0262330461439382`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{6.666666666666667, -0.999562783272183}, {
             7.333333333333334, 0.0025383999727315388`}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{223.45597407319923`, 
            246.09870540508288`}, {-86.94221238852225, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0025416244376923`]& ,
         TagBoxNote->"1.0025416244376923"],
        StyleBox["1.0025416244376923`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0025416244376923`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{7.666666666666667, -0.999562783272183}, {
             8.333333333333334, 0.005929230885917216}, "RoundingRadius" -> 0]},
           
           ImageSizeCache->{{256.6700710710247, 
            279.3128024029084}, {-87.60353293868559, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0059468435680463`]& ,
         TagBoxNote->"1.0059468435680463"],
        StyleBox["1.0059468435680463`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0059468435680463`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{8.666666666666668, -0.999562783272183}, {
             9.333333333333334, 0.0004372167278170867}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{289.8841680688502, 
            312.5268994007339}, {-86.53241440829348, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0004373123209818`]& ,
         TagBoxNote->"1.0004373123209818"],
        StyleBox["1.0004373123209818`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0004373123209818`, {}], "Tooltip"]& ]}, 
     {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.63], 
      Thickness[Small]}], 
      TagBox[
       TooltipBox[
        TagBox[
         TagBox[
          DynamicBox[{
            FEPrivate`If[
             CurrentValue["MouseOver"], 
             EdgeForm[{
               GrayLevel[0.5], 
               AbsoluteThickness[1.5], 
               Opacity[0.66]}], {}, {}], 
            
            RectangleBox[{9.666666666666668, -0.999562783272183}, {
             10.333333333333334`, 0.0016612198824393983`}, "RoundingRadius" -> 
             0]},
           
           ImageSizeCache->{{323.0982650666757, 
            345.7409963985594}, {-86.77113419714192, 108.999590163714}}],
          "DelayedMouseEffectStyle"],
         StatusArea[#, 1.0016626004725704`]& ,
         TagBoxNote->"1.0016626004725704"],
        StyleBox["1.0016626004725704`", {}, StripOnInput -> False]],
       Annotation[#, 
        Style[1.0016626004725704`, {}], 
        "Tooltip"]& ]}}, {}, {}}, {}, {}, {}, {}, 
   StyleBox[
    StyleBox[{
      {Thickness[Tiny], 
       LineBox[{{0.4733333333333333, -0.999562783272183}, {
        10.530533333333334`, -0.999562783272183}}], 
       StyleBox[{}, "GraphicsLabel",
        StripOnInput->False]}, 
      StyleBox[{
        {Thickness[Tiny], 
         LineBox[{{0.6666666666666666, -0.999562783272183}, 
           Offset[{-1.102182119232618*^-15, -6.}, {
            0.6666666666666666, -0.999562783272183}]}], 
         LineBox[{{10.333333333333334`, -0.999562783272183}, 
           Offset[{-1.102182119232618*^-15, -6.}, {
            10.333333333333334`, -0.999562783272183}]}], {{}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {
           LineBox[{{1.3333333333333335`, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              1.3333333333333335`, -0.999562783272183}]}], 
           LineBox[{{1.666666666666667, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              1.666666666666667, -0.999562783272183}]}], 
           LineBox[{{2.3333333333333335`, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              2.3333333333333335`, -0.999562783272183}]}], 
           LineBox[{{2.666666666666667, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              2.666666666666667, -0.999562783272183}]}], 
           LineBox[{{3.333333333333334, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              3.333333333333334, -0.999562783272183}]}], 
           LineBox[{{3.6666666666666674`, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              3.6666666666666674`, -0.999562783272183}]}], 
           LineBox[{{4.333333333333334, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              4.333333333333334, -0.999562783272183}]}], 
           LineBox[{{4.666666666666668, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              4.666666666666668, -0.999562783272183}]}], 
           LineBox[{{5.333333333333335, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              5.333333333333335, -0.999562783272183}]}], 
           LineBox[{{5.666666666666668, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              5.666666666666668, -0.999562783272183}]}], 
           LineBox[{{6.333333333333335, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              6.333333333333335, -0.999562783272183}]}], 
           LineBox[{{6.666666666666668, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              6.666666666666668, -0.999562783272183}]}], 
           LineBox[{{7.333333333333335, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              7.333333333333335, -0.999562783272183}]}], 
           LineBox[{{7.666666666666668, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              7.666666666666668, -0.999562783272183}]}], 
           LineBox[{{8.333333333333334, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              8.333333333333334, -0.999562783272183}]}], 
           LineBox[{{8.666666666666668, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              8.666666666666668, -0.999562783272183}]}], 
           LineBox[{{9.333333333333334, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              9.333333333333334, -0.999562783272183}]}], 
           LineBox[{{9.666666666666668, -0.999562783272183}, 
             Offset[{-7.347880794884119*^-16, -4.}, {
              9.666666666666668, -0.999562783272183}]}]}, {}}}, 
        StyleBox[
         {Thickness[Tiny], 
          InsetBox["1", Offset[{0, -2}, {1., -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["2", Offset[{0, -2}, {2., -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["3", 
           Offset[{0, -2}, {3.0000000000000004, -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["4", 
           Offset[{0, -2}, {4.000000000000001, -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["5", 
           Offset[{0, -2}, {5.000000000000001, -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["6", 
           Offset[{0, -2}, {6.000000000000001, -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["7", 
           Offset[{0, -2}, {7.000000000000001, -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["8", Offset[{0, -2}, {8., -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["9", 
           Offset[{0, -2}, {9.000000000000002, -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}], 
          InsetBox["10", 
           Offset[{0, -2}, {10.000000000000002, -0.999562783272183}], {0, 1}, 
           Automatic, {1, 0}]}, "GraphicsLabel",
         StripOnInput->False]}, "GraphicsTicks",
       StripOnInput->False]},
     Antialiasing->False], "GraphicsAxes",
    StripOnInput->False]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, True},
  AxesLabel->{None, 
    FormBox["PSRF", TraditionalForm]},
  AxesOrigin->{0.4733333333333333, -0.999562783272183},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Identity[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Identity[
       Part[#, 1]], 
      Exp[
       Part[#, 2]]}& )},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{
     Charting`ScaledTicks[{Log, Exp}], 
     Charting`ScaledFrameTicks[{Log, Exp}]}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{All, All}, {All, All}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->FrontEndValueCache[{None, 
     Charting`ScaledTicks[{Log, Exp}]}, {None, {{-0.916290731874155, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.5108256237659907, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2231435513142097, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.6094379124341003`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.3862943611198906`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.2039728043259361`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-1.0498221244986778`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.7985076962177716, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.6931471805599453, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.5978370007556204, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.4307829160924542, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.35667494393873245`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.2876820724517809, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.16251892949777494`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.10536051565782628`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {-0.05129329438755058, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.04879016416943204, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.09531017980432493, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.13976194237515863`, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}, {0.1823215567939546, 
       FormBox[
        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
        AbsoluteThickness[0.1]}}}}]]], "Output",
 CellChangeTimes->{
  3.845932898329631*^9, 3.845932961271346*^9, 3.845933007085302*^9, 
   3.845933350242934*^9, 3.845933394940921*^9, 3.845933581865325*^9, 
   3.8459336694418993`*^9, {3.845933714413464*^9, 3.8459337753458443`*^9}, 
   3.8459339427109785`*^9, {3.8459339942977076`*^9, 3.8459340018073416`*^9}, 
   3.846528931590352*^9, 3.8465289648403797`*^9, 3.846529039293603*^9, 
   3.8465290834745812`*^9, 3.846533066840151*^9, 3.8465333639951057`*^9, 
   3.8465336213526416`*^9, 3.846533756346818*^9, 3.8465338819882*^9, 
   3.8465340494077225`*^9, 3.846534170652869*^9, {3.846534268989856*^9, 
   3.8465342803713365`*^9}, 3.846534393491862*^9, 3.8465344502185955`*^9, 
   3.8465346204746323`*^9, 3.846534754653782*^9, 3.8465348420780163`*^9, 
   3.846534959958458*^9, 3.8465355219165077`*^9, 3.848942435660122*^9, {
   3.848942515766632*^9, 3.8489425545609317`*^9}, 3.848942647255211*^9, 
   3.8489427899484997`*^9, 3.8489429315387692`*^9, 3.848943083475999*^9, 
   3.8489570892806697`*^9, 3.8489707232648053`*^9, 3.8489708389065137`*^9, {
   3.848970918454493*^9, 3.848970956276515*^9}, 3.8489710024489913`*^9, 
   3.8491534825126543`*^9, 3.8491624870824213`*^9, 3.8491626145411777`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"8f1d6423-837e-4e6b-b6d0-fa8aa38e1078"]
}, Open  ]]
},
WindowSize->{1520, 781},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
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, 938, 16, 48, "Input",ExpressionUUID->"45e836a1-e000-4571-9880-9cea737766a6"],
Cell[1499, 38, 2346, 38, 86, "Input",ExpressionUUID->"aac9ca2d-c078-432d-afca-9e864ccd42b9"],
Cell[CellGroupData[{
Cell[3870, 80, 7637, 153, 184, "Input",ExpressionUUID->"b9b3fe6e-f312-47f1-8786-232c79fe6d00"],
Cell[11510, 235, 931, 19, 49, "Output",ExpressionUUID->"20a2933f-fc32-4464-a726-b353373ed440"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12478, 259, 302, 6, 32, "Input",ExpressionUUID->"da99e213-762b-4c24-af15-1c498fa89576"],
Cell[12783, 267, 10492, 145, 36, "Output",ExpressionUUID->"ea6f8627-88eb-4cc5-b388-c72882c49e10"]
}, Open  ]],
Cell[23290, 415, 285, 7, 28, "Input",ExpressionUUID->"b29abeb7-f628-4238-9d5f-4ba966b94d47"],
Cell[CellGroupData[{
Cell[23600, 426, 8556, 119, 28, "Input",ExpressionUUID->"8ecbaa4f-6d9e-4355-98b5-0089406492fe"],
Cell[CellGroupData[{
Cell[32181, 549, 1233, 24, 71, "Print",ExpressionUUID->"fc175277-3898-4fd7-a9e1-7dcda0194954"],
Cell[33417, 575, 1251, 24, 71, "Print",ExpressionUUID->"bfbbd5af-47e5-4ee1-82d5-99c207c2db1a"],
Cell[34671, 601, 1238, 24, 71, "Print",ExpressionUUID->"8cf455f7-6958-49bd-a8c9-f2edc4e5e3c0"],
Cell[35912, 627, 1239, 24, 71, "Print",ExpressionUUID->"9fbef24a-5ce8-44e4-9e39-2fc79f7cd41e"],
Cell[37154, 653, 1291, 25, 71, "Print",ExpressionUUID->"913858ae-0be2-4998-a23e-a5513c400535"],
Cell[38448, 680, 1290, 25, 71, "Print",ExpressionUUID->"6847d478-e081-4450-b33c-6ddd3f5ee3ff"],
Cell[39741, 707, 1291, 25, 71, "Print",ExpressionUUID->"8fb2dbbf-b573-4336-a52b-098e8ab8b9a3"],
Cell[41035, 734, 1291, 25, 71, "Print",ExpressionUUID->"5c10645f-d18b-4603-9745-0da6acb538a5"],
Cell[42329, 761, 1291, 25, 71, "Print",ExpressionUUID->"e36c0224-fefb-457d-9fa2-4f8ff7dac1b0"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[43669, 792, 2001, 59, 143, "Input",ExpressionUUID->"2e810517-a198-4c46-8ad8-c903b244c9f2"],
Cell[45673, 853, 16057, 373, 244, "Output",ExpressionUUID->"68dfeb18-968b-4345-ac91-4e498845f79b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61767, 1231, 4227, 115, 105, "Input",ExpressionUUID->"5238f834-661b-45ab-9850-d3e4dfa7ea27"],
Cell[65997, 1348, 107556, 1875, 649, 84874, 1502, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"add56563-903d-4428-9de4-b24503dbc9fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[173590, 3228, 156, 3, 32, "Input",ExpressionUUID->"cfdaef4d-e31e-483f-bd0b-488857c96f9e"],
Cell[173749, 3233, 566, 14, 49, "Output",ExpressionUUID->"c387eb61-d925-4030-8aa3-8dc92d340701"]
}, Open  ]],
Cell[174330, 3250, 197, 3, 28, "Input",ExpressionUUID->"e23bcdc2-e1e7-4984-a080-181c824808c1"],
Cell[CellGroupData[{
Cell[174552, 3257, 1050, 28, 46, "Input",ExpressionUUID->"51f7c276-ec8f-49a3-95ac-a62c208944fe"],
Cell[175605, 3287, 70159, 1484, 254, "Output",ExpressionUUID->"57eaa888-eab2-4057-8d39-91e05bbec97a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[245801, 4776, 137, 2, 28, "Input",ExpressionUUID->"e63009da-a55c-4cfa-96ee-a233f7ea6339"],
Cell[245941, 4780, 793, 14, 32, "Output",ExpressionUUID->"d2b20dd6-18d5-40b9-a332-05b839533558"]
}, Open  ]],
Cell[CellGroupData[{
Cell[246771, 4799, 944, 20, 28, "Input",ExpressionUUID->"6c99b8bf-8b6b-4670-a773-fcf577d74319"],
Cell[247718, 4821, 21153, 489, 253, "Output",ExpressionUUID->"8f1d6423-837e-4e6b-b6d0-fa8aa38e1078"]
}, Open  ]]
}
]
*)