EC.nb

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

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

(* CreatedBy='Mathematica 13.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    876564,      18545]
NotebookOptionsPosition[    864392,      18346]
NotebookOutlinePosition[    864856,      18364]
CellTagsIndexPosition[    864813,      18361]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Huntington\:2012Hill Apportionment", "Section",
 CellChangeTimes->{{3.881648587147543*^9, 
  3.88164860375102*^9}},ExpressionUUID->"d9757829-3453-420d-9b2e-\
b1ad2f022a90"],

Cell["\<\
Huntington\:2012Hill Method of Apportionment.
h is house size, p is a list of populations, g is a list of guaranteed seats.\
\
\>", "Text",
 CellChangeTimes->{{3.881627928800785*^9, 3.881627941305437*^9}, {
  3.8816279789195843`*^9, 
  3.881628013720512*^9}},ExpressionUUID->"99c439ca-4842-4546-8fc4-\
b70cdd3ffcdf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HHRoundingFn", "=", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "-", "1"}], ")"}], "x"}], "]"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8816466499038982`*^9, 3.881646704860786*^9}, {
   3.881646791607028*^9, 3.881646796469624*^9}, 3.8816468713455467`*^9, {
   3.881647829232238*^9, 3.8816478899271708`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"8fb40d74-4215-4959-910c-c2ed3cc73b24"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"HHLowDivs", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", "g", ",", "a"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "<", 
          RowBox[{"g", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], ",", "\[Infinity]", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"HHRoundingFn", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "+", "1"}], "]"}], "==", "0"}],
            ",", "\[Infinity]", ",", 
           FractionBox[
            RowBox[{"p", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"HHRoundingFn", "[", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "+", "1"}], "]"}]]}], "]"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "p", "]"}]}], "}"}]}], "\[IndentingNewLine]", 
      "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HHHighDivs", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", "g", ",", "a"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "<=", 
          RowBox[{"g", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], ",", "\[Infinity]", ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"HHRoundingFn", "[", 
             RowBox[{"a", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "==", "0"}], ",", 
           "\[Infinity]", ",", 
           FractionBox[
            RowBox[{"p", "[", 
             RowBox[{"[", "i", "]"}], "]"}], 
            RowBox[{"HHRoundingFn", "[", 
             RowBox[{"a", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}]]}], "]"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"Length", "[", "p", "]"}]}], "}"}]}], "\[IndentingNewLine]", 
      "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.881651142694388*^9, 3.881651292813917*^9}, {
   3.881651445166551*^9, 3.881651445311616*^9}, 3.8816515380843697`*^9, 
   3.8816517483093157`*^9, {3.881652575556332*^9, 3.881652610111081*^9}, {
   3.88165264921592*^9, 3.881652662634828*^9}, {3.881686378401888*^9, 
   3.881686413040193*^9}, {3.8816904909779053`*^9, 3.881690516099618*^9}, {
   3.881691078385343*^9, 3.881691095892543*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"90717561-a8a8-4c52-aba1-1267aa79d111"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HHFoundCond", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", "g", ",", "a"}], "}"}], ",", 
     RowBox[{
      RowBox[{"Max", "[", 
       RowBox[{"HHLowDivs", "[", 
        RowBox[{"p", ",", "g", ",", "a"}], "]"}], "]"}], "<=", 
      RowBox[{"Min", "[", 
       RowBox[{"HHHighDivs", "[", 
        RowBox[{"p", ",", "g", ",", "a"}], "]"}], "]"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8816509468554*^9, 3.8816509487382517`*^9}, {
  3.8816510379047537`*^9, 3.8816510527346354`*^9}, {3.881651196611553*^9, 
  3.8816511980351*^9}, {3.881651349754355*^9, 3.881651379597721*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"8810c736-0814-43b4-a56c-2c85aac2fef8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"HHAddSet", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", "g", ",", "a"}], "}"}], ",", 
     RowBox[{"Ordering", "[", 
      RowBox[{
       RowBox[{"HHLowDivs", "[", 
        RowBox[{"p", ",", "g", ",", "a"}], "]"}], ",", 
       RowBox[{"-", "1"}], ",", "NumericalOrder"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HHDelSet", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", "g", ",", "a"}], "}"}], ",", 
     RowBox[{"Ordering", "[", 
      RowBox[{
       RowBox[{"HHHighDivs", "[", 
        RowBox[{"p", ",", "g", ",", "a"}], "]"}], ",", "1", ",", 
       "NumericalOrder"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdy01Eg3EAx/FHWz2iww5bUYztkC5thzJRaSMTJVpkxZqyDquImUeHpNKe
km6bemQ09qw3Kzusy8xk1kptMyrpxUMT8fQmyWqUnt//8PU5fTWjU5axMoqi
aqUgVxkQNp9fTKftRwWYCKvXgpJxZ4CY1eR025LGVK8eDsnkDmjeSxFFY8wJ
827HBPQpDR44vfqzBIWFzzMYiwjncL2gv4SpnjDRGMnckK9P/gBnYronyHS8
v0LtIfsFuzOqItzIvpVgZxtL7Uh6lv0V0Fbap2FXyKCA101MNeTN/XVw/E4k
xmXaBBw0DSShL2q9gDUu7gp+B2238L4Y+oCPtLd8V3J2bpGGZl5VBf9cduIW
nVRA3j6shFb3rxoy4rEW1qfnG2AzyxIDFkcjjKYnieKBtwWy8pNWmF/xcDAn
jvjhP6oD+pQ=
  "],
 CellLabel->"In[5]:=",ExpressionUUID->"28613fc4-14ae-467d-a42e-b9ec92edccdd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DivisorMethodAllocation", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"d", ",", "p", ",", "g"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"quota", ",", "geom"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"quota", ":=", 
         RowBox[{"g", "+", 
          RowBox[{"p", "/", "d"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"geom", ":=", 
         RowBox[{
          RowBox[{
           RowBox[{"HHRoundingFn", "[", 
            RowBox[{
             RowBox[{"Floor", "[", "#", "]"}], "+", "1"}], "]"}], "&"}], "/@",
           "quota"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"MapThread", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"m", ",", "q"}], "}"}], "|->", 
           RowBox[{
            RowBox[{"Floor", "[", "q", "]"}], "+", 
            RowBox[{"Boole", "[", 
             RowBox[{"q", ">", "m"}], "]"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"geom", ",", "quota"}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.881636607959443*^9, 3.88163667697794*^9}, 
   3.881637137041953*^9, {3.881638197085711*^9, 3.881638197447566*^9}, {
   3.881647187310848*^9, 3.881647191705244*^9}, {3.88164734157239*^9, 
   3.881647430855843*^9}, {3.881647464600951*^9, 3.881647486534835*^9}, {
   3.881653696601396*^9, 3.8816536969398623`*^9}, {3.881655728772472*^9, 
   3.881655729228033*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"a2dbc4f8-3987-4d80-b454-8ac780e172e1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"HuntingtonHillApportionment", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"names", ",", "h", ",", "p", ",", "g"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"MapThread", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"{", 
        RowBox[{"names", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"NestWhile", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"x", "|->", 
             RowBox[{"Module", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                "a", ",", "asum", ",", "nexta", ",", "priority", ",", "i", 
                 ",", "i2", ",", "k"}], "}"}], ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"a", ",", "asum", ",", "priority"}], "}"}], "=", 
                 "x"}], ";", "\[IndentingNewLine]", 
                RowBox[{"i", "=", 
                 RowBox[{
                  RowBox[{"Ordering", "[", 
                   RowBox[{"priority", ",", 
                    RowBox[{"-", "1"}], ",", "NumericalOrder"}], "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"i2", "=", 
                 RowBox[{
                  RowBox[{"Ordering", "[", 
                   RowBox[{"priority", ",", 
                    RowBox[{"-", "2"}], ",", "NumericalOrder"}], "]"}], "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"k", ":=", 
                 FractionBox[
                  RowBox[{"p", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], 
                  RowBox[{"priority", "[", 
                   RowBox[{"[", "i2", "]"}], "]"}]]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"(*", " ", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    "We", " ", "want", " ", "to", " ", "find", " ", "the", 
                    " ", "minimal", " ", "x"}], "\[Element]", 
                    RowBox[{
                    RowBox[{"Integers", " ", 
                    RowBox[{"s", ".", "t", ".", " ", 
                    FractionBox[
                    RowBox[{"p", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], 
                    RowBox[{"HHRoundingFn", "[", 
                    RowBox[{"x", "+", "1"}], "]"}]]}]}], " ", "<=", " ", 
                    RowBox[{"priority", "[", 
                    RowBox[{"[", "i2", "]"}], "]"}]}]}], " ", "&&", " ", 
                   RowBox[{"0", " ", "<=", " ", 
                    RowBox[{
                    RowBox[{"x", ".", " ", "After"}], " ", "0", " ", "this", 
                    " ", "polynomial", " ", "is", " ", "increasin"}]}]}], ";",
                   " ", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    "thus", " ", "it", " ", "suffices", " ", "to", " ", 
                    "find", " ", 
                    SuperscriptBox["x", "2"]}], " ", "+", " ", "x"}], " ", "==",
                    " ", 
                   RowBox[{"k", " ", "and", " ", "take", " ", "the", " ", 
                    RowBox[{"Floor", "[", 
                    RowBox[{"x", "+", "1"}], "]"}], " ", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"effectively", " ", "the", " ", "ceiling"}], ",", 
                    " ", 
                    RowBox[{
                    "but", " ", "going", " ", "up", " ", "when", " ", "the", 
                    " ", "priority", " ", "is", " ", "matched", " ", "by", 
                    " ", "another", " ", "position"}]}], ")"}], "."}]}]}]}], 
                 "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
                RowBox[{"nexta", "=", 
                 RowBox[{"Min", "[", 
                  RowBox[{
                   RowBox[{"Floor", "[", 
                    RowBox[{
                    RowBox[{"-", 
                    FractionBox["1", "2"]}], "+", 
                    RowBox[{
                    FractionBox["1", "2"], " ", 
                    SqrtBox[
                    RowBox[{
                    RowBox[{"4", " ", 
                    SuperscriptBox["k", "2"]}], "+", "1"}]]}], "+", "1"}], 
                    "]"}], ",", 
                   RowBox[{"h", "-", "asum", "+", 
                    RowBox[{"a", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{"asum", "=", 
                 RowBox[{"asum", "+", "nexta", "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "i", "]"}], "]"}]}]}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "=", "nexta"}], ";", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"priority", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "=", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"HHRoundingFn", "[", 
                    RowBox[{"a", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "]"}], "==", "0"}], ",", 
                   "\[Infinity]", ",", 
                   FractionBox[
                    RowBox[{"p", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], 
                    RowBox[{"HHRoundingFn", "[", 
                    RowBox[{
                    RowBox[{"a", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "+", "1"}], "]"}]]}], 
                  "]"}]}], ";", "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{"a", ",", "asum", ",", "priority"}], "}"}]}]}], 
              "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"g", ",", 
              RowBox[{"Total", "[", "g", "]"}], ",", 
              RowBox[{"HHLowDivs", "[", 
               RowBox[{"p", ",", "g", ",", "g"}], "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"x", "|->", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "<", "h"}]}]}], 
           "\[IndentingNewLine]", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8816279551903057`*^9, 3.8816279763674707`*^9}, {
   3.881628016364436*^9, 3.881628025782584*^9}, {3.881628143446001*^9, 
   3.8816281578161507`*^9}, {3.881628363147086*^9, 3.8816284415954533`*^9}, {
   3.8816287261303177`*^9, 3.8816287274519176`*^9}, {3.8816290141824017`*^9, 
   3.8816291828150053`*^9}, {3.881629237611788*^9, 3.881629258966476*^9}, {
   3.88162935727232*^9, 3.8816294108194447`*^9}, {3.881629506652973*^9, 
   3.881629574479114*^9}, {3.881629649448633*^9, 3.8816296705128202`*^9}, {
   3.881630104483242*^9, 3.88163014452687*^9}, {3.881630257848765*^9, 
   3.881630352677033*^9}, {3.88163075686665*^9, 3.881631014169148*^9}, {
   3.881631208287541*^9, 3.8816313377492456`*^9}, {3.881631372873756*^9, 
   3.8816313965610323`*^9}, {3.8816314271292677`*^9, 3.881631475199381*^9}, {
   3.881631514737124*^9, 3.881631526557143*^9}, {3.8816316032754707`*^9, 
   3.881631638677367*^9}, {3.881634300827346*^9, 3.881634449121098*^9}, {
   3.8816344868264503`*^9, 3.881634520990439*^9}, {3.881634556775448*^9, 
   3.8816345743819313`*^9}, {3.881635324508333*^9, 3.881635334431368*^9}, {
   3.881635411079691*^9, 3.881635720375279*^9}, {3.8816357662243347`*^9, 
   3.8816358391468277`*^9}, {3.8816359383030157`*^9, 3.881635970773542*^9}, {
   3.881636001515066*^9, 3.881636012815309*^9}, {3.881636044638995*^9, 
   3.8816361240652733`*^9}, {3.8816361818713818`*^9, 
   3.8816362457963037`*^9}, {3.881636294069216*^9, 3.8816363269877653`*^9}, {
   3.881636403555135*^9, 3.881636483661927*^9}, {3.881636557225182*^9, 
   3.881636606114303*^9}, {3.8816366825856028`*^9, 3.8816369003590107`*^9}, {
   3.881636946947043*^9, 3.881636961680541*^9}, {3.881637004727837*^9, 
   3.8816370864063673`*^9}, {3.881637188904894*^9, 3.881637194873205*^9}, {
   3.881637233176155*^9, 3.881637247624423*^9}, {3.8816372987108*^9, 
   3.8816374027590103`*^9}, {3.881637445423745*^9, 3.881637445759104*^9}, {
   3.881637632283592*^9, 3.881637670048009*^9}, {3.881637725361429*^9, 
   3.881637749990232*^9}, {3.8816377829397497`*^9, 3.88163778693045*^9}, {
   3.881637825844863*^9, 3.881637886634632*^9}, {3.8816379202260437`*^9, 
   3.881638030836639*^9}, {3.881638075821189*^9, 3.881638089652405*^9}, {
   3.881638123444261*^9, 3.881638158702869*^9}, {3.881638235687521*^9, 
   3.881638285954586*^9}, {3.881638323000222*^9, 3.881638368894844*^9}, {
   3.881638413392275*^9, 3.881638482899323*^9}, {3.8816385170828753`*^9, 
   3.881638520558116*^9}, {3.881638554424595*^9, 3.881638880033079*^9}, {
   3.881639042603516*^9, 3.881639046434291*^9}, {3.881639222135256*^9, 
   3.881639307848337*^9}, {3.881639397274722*^9, 3.881639413138505*^9}, {
   3.8816434234180403`*^9, 3.8816434615302153`*^9}, {3.881644816267981*^9, 
   3.881644839250931*^9}, {3.881645890350004*^9, 3.8816459731300907`*^9}, {
   3.8816460101505947`*^9, 3.881646021447988*^9}, {3.881646069520163*^9, 
   3.881646080904677*^9}, {3.881646165869647*^9, 3.881646166044269*^9}, {
   3.881647503167015*^9, 3.881647638862444*^9}, 3.881647764294614*^9, {
   3.881647914047611*^9, 3.881647915678008*^9}, {3.8816480334730673`*^9, 
   3.881648034438348*^9}, {3.881648699637183*^9, 3.881648705414879*^9}, {
   3.881649124561489*^9, 3.881649183891911*^9}, {3.881649452889277*^9, 
   3.881649479358013*^9}, {3.8816495622819138`*^9, 3.881649595419014*^9}, {
   3.88165009516776*^9, 3.8816501541508427`*^9}, {3.881650191770515*^9, 
   3.881650204304435*^9}, {3.881650665474455*^9, 3.881650798608466*^9}, {
   3.8816509044779997`*^9, 3.8816509711590557`*^9}, {3.881651075277718*^9, 
   3.8816510771711407`*^9}, {3.881651578205493*^9, 3.881651734729064*^9}, {
   3.881651778390491*^9, 3.881651873127634*^9}, {3.881651913679674*^9, 
   3.881651991955866*^9}, 3.881652029855918*^9, {3.8816520694348173`*^9, 
   3.881652091434461*^9}, {3.881653393151181*^9, 3.881653395147707*^9}, {
   3.881653576756934*^9, 3.881653623725716*^9}, {3.881686224089735*^9, 
   3.881686278046299*^9}, {3.881686331905394*^9, 3.881686356250893*^9}, {
   3.881690530271514*^9, 3.881691007396439*^9}, {3.881691051951784*^9, 
   3.881691070533008*^9}, {3.881691171695363*^9, 3.8816912065935993`*^9}, {
   3.881691384830503*^9, 3.8816914124662743`*^9}, {3.881691659846601*^9, 
   3.8816917091448402`*^9}, {3.881691774014346*^9, 3.88169178375254*^9}, {
   3.8816919335967417`*^9, 3.881692035588182*^9}, {3.881692111967032*^9, 
   3.881692189186698*^9}, {3.88169223561691*^9, 3.881692236406227*^9}, {
   3.8816922985316133`*^9, 3.8816922989174232`*^9}, {3.881692331273472*^9, 
   3.881692357281425*^9}, {3.881692541562284*^9, 3.881692554105497*^9}, {
   3.881692592221385*^9, 3.881692595205318*^9}, {3.881692631873251*^9, 
   3.881692685399729*^9}, {3.881692716282906*^9, 3.881692829489711*^9}, {
   3.881692867330895*^9, 3.881692893230884*^9}, {3.881719322476521*^9, 
   3.88171954331104*^9}, {3.881719619298079*^9, 3.881719636910611*^9}, {
   3.881719825997514*^9, 3.881719830417193*^9}, {3.881722263044903*^9, 
   3.881722297214229*^9}, {3.881723894864781*^9, 3.8817239119091187`*^9}, {
   3.881723966424831*^9, 3.881723983010597*^9}, {3.881724083499052*^9, 
   3.881724114878645*^9}, {3.881724170657426*^9, 3.881724360364444*^9}, {
   3.881724408442638*^9, 3.881724602038945*^9}, {3.881724675318761*^9, 
   3.8817247404310417`*^9}, {3.881724793203411*^9, 3.8817248773581333`*^9}, {
   3.881724922851206*^9, 3.881724924169422*^9}, {3.881724968824757*^9, 
   3.8817249694690237`*^9}, {3.881725262646349*^9, 3.881725289631439*^9}, {
   3.881725324254435*^9, 3.881725447564768*^9}, {3.881725478876289*^9, 
   3.8817254819940023`*^9}, {3.881725543510311*^9, 3.881725557530819*^9}, {
   3.88172560146708*^9, 3.881725613627733*^9}, {3.881725659215784*^9, 
   3.8817256853460627`*^9}, {3.881725755302658*^9, 3.8817257636483183`*^9}, {
   3.881725829994281*^9, 3.881725852137398*^9}, {3.881726060291956*^9, 
   3.881726187662505*^9}, {3.88172621842485*^9, 3.881726355266903*^9}, {
   3.881726387830913*^9, 3.881726514201236*^9}, {3.881726855937742*^9, 
   3.881726899754483*^9}, {3.8817315466254396`*^9, 3.881731550594524*^9}, 
   3.88173443622239*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"e37a937a-153c-4ae8-b1b4-078a025418af"]
}, Open  ]],

Cell[CellGroupData[{

Cell["House Size, Electors, and Voter Power", "Section",
 CellChangeTimes->{{3.881648616920494*^9, 
  3.8816486413955517`*^9}},ExpressionUUID->"e3ca286c-72cb-4873-826e-\
120044cbc01a"],

Cell[CellGroupData[{

Cell["The Current House and Electors", "Subsection",
 CellChangeTimes->{{3.8816486330872*^9, 
  3.881648647373026*^9}},ExpressionUUID->"b0a14ddd-843e-476e-b89f-\
a307b9a058d8"],

Cell[CellGroupData[{

Cell["Census Data", "Subsubsection",
 CellChangeTimes->{{3.881648925282015*^9, 
  3.881648927200761*^9}},ExpressionUUID->"a25e559d-ac49-4b49-86e3-\
06d6023a4cff"],

Cell["\<\
USA state populations from the 2020 census.
https://www.census.gov/data/tables/time-series/demo/popest/2020s-state-total.\
html\
\>", "Text",
 CellChangeTimes->{{3.881624697319562*^9, 3.8816247120734453`*^9}, {
  3.8816249642100153`*^9, 3.881624966670274*^9}, {3.881625315156871*^9, 
  3.881625325749935*^9}},ExpressionUUID->"1868f068-d3fc-41cb-8b29-\
4239dc2842e6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"usaPopulationDataCSV", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<NST-EST2022-ALLDATA.csv\>\""}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"usaPopulationData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"usaPopulationDataCSV", ",", "\"\<Dataset\>\"", ",", 
     RowBox[{"HeaderLines", "->", "1"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.881625176857789*^9, 3.881625192955388*^9}, {
   3.881625292285823*^9, 3.881625313055727*^9}, 3.881625384053401*^9, {
   3.881625803707787*^9, 3.88162584408431*^9}, {3.881626223350322*^9, 
   3.881626247844606*^9}, {3.8816263052948*^9, 3.881626324026783*^9}, {
   3.882595682633678*^9, 
   3.882595697316477*^9}},ExpressionUUID->"ad02b69d-bbf0-4601-96df-\
5940c1a28327"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"usaVotersDataCSV", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", 
      "\"\<2022-voters.csv\>\""}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"usaVotersCSVData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"usaVotersDataCSV", ",", "\"\<Dataset\>\"", ",", 
     RowBox[{"HeaderLines", "->", "1"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8825957329356403`*^9, 3.882595748367116*^9}, {
  3.882596355135578*^9, 3.882596377103606*^9}, {3.8825964277467747`*^9, 
  3.8825964282013607`*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"4d3987a3-b7d2-491a-b54d-d6c1ecd22966"],

Cell["Select out the states that actually get house seats.", "Text",
 CellChangeTimes->{{3.8816269349329967`*^9, 
  3.881626946247058*^9}},ExpressionUUID->"43fe2276-4203-48eb-879c-\
9a4957028921"],

Cell[BoxData[
 RowBox[{
  RowBox[{"usa50States", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Alabama\>\"", ",", "\"\<Alaska\>\"", ",", "\"\<Arizona\>\"", ",", 
     "\"\<Arkansas\>\"", ",", "\"\<California\>\"", ",", "\"\<Colorado\>\"", 
     ",", "\"\<Connecticut\>\"", ",", "\"\<Delaware\>\"", ",", 
     "\"\<Florida\>\"", ",", "\"\<Georgia\>\"", ",", "\"\<Hawaii\>\"", ",", 
     "\"\<Idaho\>\"", ",", "\"\<Illinois\>\"", ",", "\"\<Indiana\>\"", ",", 
     "\"\<Iowa\>\"", ",", "\"\<Kansas\>\"", ",", "\"\<Kentucky\>\"", ",", 
     "\"\<Louisiana\>\"", ",", "\"\<Maine\>\"", ",", "\"\<Maryland\>\"", ",", 
     "\"\<Massachusetts\>\"", ",", "\"\<Michigan\>\"", ",", 
     "\"\<Minnesota\>\"", ",", "\"\<Mississippi\>\"", ",", "\"\<Missouri\>\"",
      ",", "\"\<Montana\>\"", ",", "\"\<Nebraska\>\"", ",", "\"\<Nevada\>\"", 
     ",", "\"\<New Hampshire\>\"", ",", "\"\<New Jersey\>\"", ",", 
     "\"\<New Mexico\>\"", ",", "\"\<New York\>\"", ",", 
     "\"\<North Carolina\>\"", ",", "\"\<North Dakota\>\"", ",", 
     "\"\<Ohio\>\"", ",", "\"\<Oklahoma\>\"", ",", "\"\<Oregon\>\"", ",", 
     "\"\<Pennsylvania\>\"", ",", "\"\<Rhode Island\>\"", ",", 
     "\"\<South Carolina\>\"", ",", "\"\<South Dakota\>\"", ",", 
     "\"\<Tennessee\>\"", ",", "\"\<Texas\>\"", ",", "\"\<Utah\>\"", ",", 
     "\"\<Vermont\>\"", ",", "\"\<Virginia\>\"", ",", "\"\<Washington\>\"", 
     ",", "\"\<West Virginia\>\"", ",", "\"\<Wisconsin\>\"", ",", 
     "\"\<Wyoming\>\""}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8816273821913033`*^9, 3.881627578268117*^9}, 
   3.882596202885401*^9},ExpressionUUID->"669d0c3a-aa9c-432c-b531-\
e44f940d6aeb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"usaStateVoters", "=", 
   RowBox[{"KeyDrop", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Association", "@@", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "\"\<STATE\>\"", "]"}], "]"}], "->", 
           RowBox[{"#", "[", 
            RowBox[{"[", "\"\<VOTERS\>\"", "]"}], "]"}]}], "&"}], "/@", 
         "usaVotersCSVData"}], ")"}]}], "//", "Normal"}], ",", 
     "\"\<Total\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"usaVotersTotal", "=", 
   RowBox[{"Total", "[", "usaVotersData", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.882596383908409*^9, 3.8825964364679813`*^9}, {
  3.88259648952706*^9, 3.882596506738888*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"8a4bfa7d-b0bd-4ea0-9ec1-d2ae3b9f80bd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"usa50StatePopData", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", "[", "\"\<NAME\>\"", "]"}], ",", 
        RowBox[{"#", "[", "\"\<POPESTIMATE2020\>\"", "]"}]}], "}"}], "&"}], "/@", 
     RowBox[{"Select", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"usaPopulationData", "[", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<NAME\>\"", ",", "\"\<POPESTIMATE2020\>\""}], "}"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"r", "|->", 
        RowBox[{"MemberQ", "[", 
         RowBox[{"usa50States", ",", 
          RowBox[{"r", "[", "\"\<NAME\>\"", "]"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], "//", "Normal"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.88162591460642*^9, 3.881625990472199*^9}, 
   3.881626319088245*^9, {3.881626353781341*^9, 3.881626358798867*^9}, {
   3.881626643156925*^9, 3.88162678378528*^9}, {3.8816268454826937`*^9, 
   3.881626845881811*^9}, {3.881626900928699*^9, 3.8816269539162188`*^9}, {
   3.881627585346439*^9, 3.881627622488884*^9}, {3.881627681206777*^9, 
   3.881627724694027*^9}, {3.881627755110767*^9, 3.881627761355014*^9}, {
   3.881627792075603*^9, 3.8816277927708607`*^9}, {3.8816278228924723`*^9, 
   3.8816278454881687`*^9}, {3.8816326119436083`*^9, 3.881632617074243*^9}, {
   3.8816485201857147`*^9, 3.881648542432081*^9}, {3.8816489617934837`*^9, 
   3.8816489784192343`*^9}, {3.8816492417610893`*^9, 3.881649272105439*^9}, {
   3.881731828898827*^9, 3.881731836687291*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"581536c1-10d8-45a5-95df-4fe4094d6ac1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"usa50StateAndDCPopData", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", "[", "\"\<NAME\>\"", "]"}], ",", 
        RowBox[{"#", "[", "\"\<POPESTIMATE2020\>\"", "]"}]}], "}"}], "&"}], "/@", 
     RowBox[{"Select", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"usaPopulationData", "[", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"\"\<NAME\>\"", ",", "\"\<POPESTIMATE2020\>\""}], "}"}]}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"r", "|->", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{"usa50States", ",", 
           RowBox[{"r", "[", "\"\<NAME\>\"", "]"}]}], "]"}], "||", 
         RowBox[{
          RowBox[{"r", "[", "\"\<NAME\>\"", "]"}], "==", 
          "\"\<District of Columbia\>\""}]}]}]}], "\[IndentingNewLine]", 
      "]"}]}], "//", "Normal"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.881632619167495*^9, 3.881632645669672*^9}, 
   3.881648550207951*^9, 3.8816489833108673`*^9, {3.881649278422358*^9, 
   3.881649280915859*^9}, {3.881731839985853*^9, 3.881731866981872*^9}, {
   3.881731907600717*^9, 3.8817319099140577`*^9}, {3.8818677658150263`*^9, 
   3.881867765960108*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"254da293-fce4-4a84-9ff5-04e834fb2e31"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"smallest15States", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"#", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
   RowBox[{"Take", "[", 
    RowBox[{
     RowBox[{"SortBy", "[", 
      RowBox[{"usa50StatePopData", ",", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "&"}]}], "]"}], ",", "15"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8818865188813877`*^9, 3.8818866148148623`*^9}, {
  3.881886892928878*^9, 3.881886894243425*^9}, {3.881886983965329*^9, 
  3.881886985157894*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"b0845744-d27a-4d3e-a109-055b9680fdd5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Wyoming\"\>", ",", "\<\"Vermont\"\>", ",", "\<\"Alaska\"\>", 
   ",", "\<\"North Dakota\"\>", ",", "\<\"South Dakota\"\>", 
   ",", "\<\"Delaware\"\>", ",", "\<\"Montana\"\>", 
   ",", "\<\"Rhode Island\"\>", ",", "\<\"Maine\"\>", 
   ",", "\<\"New Hampshire\"\>", ",", "\<\"Hawaii\"\>", 
   ",", "\<\"West Virginia\"\>", ",", "\<\"Idaho\"\>", 
   ",", "\<\"Nebraska\"\>", ",", "\<\"New Mexico\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.881886615250538*^9, 3.881886894622932*^9, 
  3.8818978307943172`*^9, 3.881897964072398*^9, 3.882060170395341*^9, 
  3.882127227466194*^9, 3.882127320732006*^9, 3.882231517979484*^9, 
  3.882514020779086*^9, 3.882555561890028*^9, 3.8825951638005047`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"88d835ba-3578-48d9-87ac-ed5f7cb5c756"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"largest5Smallest5States", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
      RowBox[{"Take", "[", 
       RowBox[{
        RowBox[{"SortBy", "[", 
         RowBox[{"usa50StatePopData", ",", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}]}], "]"}], ",", "5"}], 
       "]"}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
      RowBox[{"Take", "[", 
       RowBox[{
        RowBox[{"SortBy", "[", 
         RowBox[{"usa50StatePopData", ",", 
          RowBox[{
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}]}], "]"}], ",", 
        RowBox[{"-", "5"}]}], "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.882514623567913*^9, 3.882514681298716*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"84939ae1-9714-4914-995e-1e868e1180bd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"totalPop50States", "=", 
   RowBox[{"Fold", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "+", 
       RowBox[{"#2", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "&"}], ",", "0", ",", 
     "usa50StateAndDCPopData"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"totalPop50StatesAndDC", "=", 
   RowBox[{"Fold", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "+", 
       RowBox[{"#2", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "&"}], ",", "0", ",", 
     "usa50StateAndDCPopData"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.881867768266799*^9, 3.881867911840419*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"8a946d80-07b3-4ad1-9892-5a3940cd13f8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"usa50StateAndDCPopFraction", "=", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"N", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "/", 
          RowBox[{"Total", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
            "usa50StateAndDCPopData"}], "]"}]}], ",", "6"}], "]"}]}], "}"}], 
     ")"}], "&"}], "/@", "usa50StateAndDCPopData"}]}]], "Input",
 CellChangeTimes->{{3.881731894017063*^9, 3.881731903979927*^9}, {
  3.881731956966527*^9, 3.8817320428816967`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"0f092f4b-b3c2-4e21-8040-dfe900480dea"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Alabama\"\>", ",", "0.0151770355413781226`6."}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"\<\"Alaska\"\>", ",", "0.0022108523338399181`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Arizona\"\>", ",", "0.02165820111851802`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Arkansas\"\>", ",", "0.0090922785209341388`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"California\"\>", ",", "0.1191562029375317742`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Colorado\"\>", ",", "0.0174499671673543572`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Connecticut\"\>", ",", "0.0108513939027251639`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Delaware\"\>", ",", "0.0029926984858371977`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"District of Columbia\"\>", ",", "0.002023664264183984`6."}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Florida\"\>", ",", "0.065124742938037096`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Georgia\"\>", ",", "0.0323663812917603899`6."}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"\<\"Hawaii\"\>", ",", "0.0043770516180445643`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Idaho\"\>", ",", "0.0055780928657463937`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Illinois\"\>", ",", "0.0385705459302420846`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Indiana\"\>", ",", "0.020478320523602209`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iowa\"\>", ",", "0.0096243143435694625`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kansas\"\>", ",", "0.0088621929967849804`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kentucky\"\>", ",", "0.0135966469846151225`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Louisiana\"\>", ",", "0.0140316816509225779`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Maine\"\>", ",", "0.0041131512802487535`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Maryland\"\>", ",", "0.0186213895341287575`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Massachusetts\"\>", ",", "0.0211025220747085248`6."}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Michigan\"\>", ",", "0.0303747430647295289`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Minnesota\"\>", ",", "0.0172236914656526317`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mississippi\"\>", ",", "0.0089231923867548829`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Missouri\"\>", ",", "0.0185634518779546938`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Montana\"\>", ",", "0.0032791470602082742`6."}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"\<\"Nebraska\"\>", ",", "0.0059202830941207255`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Nevada\"\>", ",", "0.0093983101256525897`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"New Hampshire\"\>", ",", "0.0041584890723191537`6."}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"New Jersey\"\>", ",", "0.0279679246855234397`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"New Mexico\"\>", ",", "0.0063900948332678112`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"New York\"\>", ",", "0.0606564033890925634`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"North Carolina\"\>", ",", "0.0315206097578897954`6."}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"North Dakota\"\>", ",", "0.0023514055222311556`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Ohio\"\>", ",", "0.0355870507447113933`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oklahoma\"\>", ",", "0.0119601035151985913`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oregon\"\>", ",", "0.0128043668058200042`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Pennsylvania\"\>", ",", "0.0391975528137918782`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Rhode Island\"\>", ",", "0.0033071098900481019`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"South Carolina\"\>", ",", "0.0154801502036526562`6."}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"South Dakota\"\>", ",", "0.0026780336967604311`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tennessee\"\>", ",", "0.0208910362063082744`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Texas\"\>", ",", "0.0881793631347559357`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Utah\"\>", ",", "0.0099054931160278983`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Vermont\"\>", ",", "0.001939278054392271`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Virginia\"\>", ",", "0.026051798165006107`6."}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"\<\"Washington\"\>", ",", "0.0232994352244395061`6."}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\<\"West Virginia\"\>", ",", "0.0054037942428979661`6."}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Wisconsin\"\>", ",", "0.017786021862191018`6."}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Wyoming\"\>", ",", "0.0017423376838871285`6."}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.881732043378604*^9, 3.881897830813645*^9, 
  3.881897964125749*^9, 3.8820601704174*^9, 3.8821272274910316`*^9, 
  3.882127320761093*^9, 3.882231518006151*^9, 3.8825140208127728`*^9, 
  3.882555561948185*^9, 3.882595163842852*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"2457543e-ca7f-4d27-990a-2e2a7b9ab81c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The House", "Subsubsection",
 CellChangeTimes->{{3.881648935060421*^9, 
  3.881648936353889*^9}},ExpressionUUID->"d52ddaa0-ad6a-4e47-b981-\
9497f58da224"],

Cell["\<\
Let\[CloseCurlyQuote]s replicate the current house and electoral college to \
make sure our calculations are right.\
\>", "Text",
 CellChangeTimes->{{3.881627018608226*^9, 
  3.8816270360841703`*^9}},ExpressionUUID->"94a83fcf-f187-4ae6-831a-\
163473e11439"],

Cell[BoxData[
 RowBox[{
  RowBox[{"usaHouseSize2020", "=", "435"}], ";"}]], "Input",
 CellLabel->"In[22]:=",ExpressionUUID->"34cf5083-f5cd-44cf-8b2a-cc4f845c6739"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"usaHouse2020", "=", 
  RowBox[{"HuntingtonHillApportionment", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "usa50StatePopData"}], 
     ")"}], ",", "usaHouseSize2020", ",", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "usa50StatePopData"}], 
     ")"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{"1", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "50"}], "}"}]}], "]"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.8816316673206997`*^9, 3.881631711787829*^9}, {
   3.881631817179228*^9, 3.8816318841015882`*^9}, 3.8816319216430807`*^9, {
   3.88163198977374*^9, 3.88163199302008*^9}, {3.881632979063314*^9, 
   3.8816329821057367`*^9}, {3.8816333605060873`*^9, 
   3.8816333717906237`*^9}, {3.881638985509549*^9, 3.8816389902063*^9}, {
   3.88164865314205*^9, 3.881648763281217*^9}, 3.881648903841456*^9, {
   3.881649089261971*^9, 3.881649104873061*^9}, {3.881649303751051*^9, 
   3.881649354490386*^9}, 3.881649408993059*^9, {3.8817266123372993`*^9, 
   3.881726613406179*^9}, {3.881726912629019*^9, 3.8817269381546164`*^9}, 
   3.881731854852149*^9, {3.88206019929734*^9, 3.8820602038054047`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"a22fe946-f5fe-48c1-8ac8-d740c2220902"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"5031362", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"732923", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7179943", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3014195", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"39501653", ",", "52"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5784865", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3597362", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"992114", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21589602", ",", "28"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10729828", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1451043", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1849202", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12786580", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6788799", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3190571", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2937919", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4507445", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4651664", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1363557", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6173205", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6995729", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10069577", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5709852", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2958141", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6153998", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1087075", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1962642", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3115648", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1378587", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9271689", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2118390", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20108296", ",", "26"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10449445", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"779518", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11797517", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3964912", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4244795", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12994440", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1096345", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5131848", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"887799", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6925619", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"29232474", ",", "38"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3283785", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"642893", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8636471", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7724031", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1791420", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5896271", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"577605", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.881726938953915*^9, 3.881731857247567*^9, 3.881897831053097*^9, 
   3.881897964406046*^9, {3.882060170659664*^9, 3.882060211113491*^9}, 
   3.8821272276864023`*^9, 3.882127320960928*^9, 3.882231518203025*^9, 
   3.882514021005869*^9, 3.8825555621800737`*^9, 3.882595164039056*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"967b8714-f8aa-4e98-810b-d92e6362454e"]
}, Open  ]],

Cell["Which is correct!", "Text",
 CellChangeTimes->{{3.881631954351169*^9, 
  3.881631962396171*^9}},ExpressionUUID->"934fda3a-e208-4178-83d7-\
1db09b7527cc"],

Cell["\<\
The 23rd amendment is a little vague on how to calculate how many electors DC \
is entitled to. The text states DC is to have electors equal to the number of \
senators and representatives it \[OpenCurlyDoubleQuote]would be entitled if \
it were a State, but in no event more than the least populous State\
\[CloseCurlyDoubleQuote].

My interpretation is that you have to run a whole new apportionment for the \
house, with DC included. This is what I do next.\
\>", "Text",
 CellChangeTimes->{{3.881633754143358*^9, 3.881633778900778*^9}, {
  3.8816338210164013`*^9, 3.8816339623398657`*^9}, {3.881726634115014*^9, 
  3.88172665531269*^9}},ExpressionUUID->"f7fa01f5-3e3b-4d5e-860c-\
c2081386fd8d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"USAElectors", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", "h", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "house", ",", "houseWithDC", ",", "stateElectors", ",", 
         "dcElectors"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"house", ":=", 
          RowBox[{"HuntingtonHillApportionment", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
              "usa50StatePopData"}], ")"}], ",", "h", ",", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
              "usa50StatePopData"}], ")"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{"1", ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "50"}], "}"}]}], "]"}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"houseWithDC", ":=", 
          RowBox[{"HuntingtonHillApportionment", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
              "usa50StateAndDCPopData"}], ")"}], ",", "h", ",", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
              "usa50StateAndDCPopData"}], ")"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{"1", ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "1", ",", "51"}], "}"}]}], "]"}]}], "]"}]}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"stateElectors", ":=", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "+", "2"}]}], "}"}], ")"}], 
            "&"}], "/@", "house"}]}], ";"}], 
        RowBox[{"(*", 
         RowBox[{
         "plus", " ", "two", " ", "for", " ", "the", " ", "state", " ", 
          "senators"}], " ", "*)"}], ";", "\[IndentingNewLine]", 
        RowBox[{"dcElectors", ":=", 
         RowBox[{"Min", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Min", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "stateElectors"}],
             "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"SelectFirst", "[", 
              RowBox[{"houseWithDC", ",", 
               RowBox[{"(", 
                RowBox[{"e", "|->", 
                 RowBox[{
                  RowBox[{"e", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "==", 
                  "\"\<District of Columbia\>\""}]}], ")"}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", "2"}]}], 
          "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Append", "[", 
         RowBox[{"stateElectors", ",", " ", 
          RowBox[{"{", 
           RowBox[{"\"\<District of Columbia\>\"", ",", " ", "dcElectors"}], 
           "}"}]}], "]"}]}]}], " ", 
      RowBox[{"(*", " ", 
       RowBox[{
       "Add", " ", "in", " ", "DC", " ", "as", " ", "per", " ", "the", " ", 
        "23", "rd", " ", "amendment"}], " ", "*)"}], "\[IndentingNewLine]", 
      "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8816319760316877`*^9, 3.88163229695399*^9}, {
   3.881632379798552*^9, 3.881632394760048*^9}, {3.8816326646237907`*^9, 
   3.881632676235404*^9}, {3.881632708650038*^9, 3.881632909143014*^9}, {
   3.881632954107706*^9, 3.881632954560192*^9}, {3.8816330001593733`*^9, 
   3.881633030387487*^9}, {3.8816330606600847`*^9, 3.881633063304118*^9}, {
   3.881633107085451*^9, 3.881633148870261*^9}, 3.881633184862797*^9, {
   3.881633247883545*^9, 3.8816332571628227`*^9}, {3.88163328731187*^9, 
   3.881633325276113*^9}, {3.881633409930546*^9, 3.8816334359938383`*^9}, {
   3.881726983922215*^9, 3.8817270618321753`*^9}, {3.881727100210742*^9, 
   3.881727102610162*^9}, {3.881731874216934*^9, 3.881731877892749*^9}, {
   3.88173192242003*^9, 3.88173193037*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"5a753f12-6c68-43a6-a430-13be65e26b69"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"usaElectors2022", "=", 
  RowBox[{"USAElectors", "[", "usaHouseSize2020", "]"}]}]], "Input",
 CellChangeTimes->{{3.881632232333313*^9, 3.881632236140135*^9}, {
  3.8816323073825912`*^9, 3.8816323108111467`*^9}, {3.88163325461224*^9, 
  3.8816332549020967`*^9}, {3.8816333345697727`*^9, 3.881633341696927*^9}, {
  3.881727068897397*^9, 3.8817270907171926`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"75a1bc37-6a7a-49ba-90e0-eb2264ada6d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Alabama\"\>", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Alaska\"\>", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Arizona\"\>", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Arkansas\"\>", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"California\"\>", ",", "54"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Colorado\"\>", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Connecticut\"\>", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Delaware\"\>", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Florida\"\>", ",", "30"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Georgia\"\>", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Hawaii\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Idaho\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Illinois\"\>", ",", "19"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Indiana\"\>", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iowa\"\>", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kansas\"\>", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kentucky\"\>", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Louisiana\"\>", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Maine\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Maryland\"\>", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Massachusetts\"\>", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Michigan\"\>", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Minnesota\"\>", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mississippi\"\>", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Missouri\"\>", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Montana\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Nebraska\"\>", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Nevada\"\>", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"New Hampshire\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"New Jersey\"\>", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"New Mexico\"\>", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"New York\"\>", ",", "28"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"North Carolina\"\>", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"North Dakota\"\>", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Ohio\"\>", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oklahoma\"\>", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oregon\"\>", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Pennsylvania\"\>", ",", "19"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Rhode Island\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"South Carolina\"\>", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"South Dakota\"\>", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tennessee\"\>", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Texas\"\>", ",", "40"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Utah\"\>", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Vermont\"\>", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Virginia\"\>", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Washington\"\>", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"West Virginia\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Wisconsin\"\>", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Wyoming\"\>", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"District of Columbia\"\>", ",", "3"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.881651652163773*^9, 3.8817265439793797`*^9, 3.881726667399624*^9, 
   3.8817267445481663`*^9, 3.8817267957195473`*^9, {3.881727091271668*^9, 
   3.8817271058869133`*^9}, 3.8818978316300573`*^9, 3.881897965103304*^9, {
   3.882060171169088*^9, 3.882060177923238*^9}, 3.8820602116526947`*^9, 
   3.882127228181361*^9, 3.882127321461771*^9, 3.882231518801509*^9, 
   3.882514021490624*^9, 3.8825555626611013`*^9, 3.8825951645211973`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"e51ccac8-4fa2-4180-8a30-ff1efdca8aab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"#", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "usaElectors2022"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.881632317401738*^9, 3.881632330043222*^9}, 
   3.881734440710828*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"4039dcf8-66eb-4262-8a19-fe9b26bd8bd5"],

Cell[BoxData["538"], "Output",
 CellChangeTimes->{
  3.8816516522473793`*^9, 3.881726544017819*^9, 3.881726806314207*^9, 
   3.881727110372006*^9, 3.881897831651595*^9, 3.881897965191125*^9, {
   3.882060171198444*^9, 3.882060177961417*^9}, 3.882060211688272*^9, 
   3.8821272282046843`*^9, 3.882127321496159*^9, 3.882231518834839*^9, 
   3.882514021547593*^9, 3.882555562757152*^9, 3.882595164626902*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"979b0dcc-2757-4742-82aa-0578c98fca4d"]
}, Open  ]],

Cell["And we get 538, which is what we expect.", "Text",
 CellChangeTimes->{{3.881633993037057*^9, 
  3.881634000627282*^9}},ExpressionUUID->"841f58ba-5ed9-40d3-a9ab-\
42ebb5bef141"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Varying The House Size", "Subsection",
 CellChangeTimes->{{3.8817268123858843`*^9, 
  3.8817268171501637`*^9}},ExpressionUUID->"7593d6f9-e7c5-4ec3-bb22-\
755418403f06"],

Cell["\<\
Here\[CloseCurlyQuote]s a table on the total number of electors we get when \
we vary the size of the house.\
\>", "Text",
 CellChangeTimes->{{3.881727180155322*^9, 
  3.881727201620533*^9}},ExpressionUUID->"9ef4f489-4d15-4e5e-a113-\
8ef29c6f7147"],

Cell[BoxData[
 RowBox[{
  RowBox[{"electorsAtDifferentSizes", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"n", "|->", 
      RowBox[{"{", 
       RowBox[{"n", ",", 
        RowBox[{"USAElectors", "[", "n", "]"}]}], "}"}]}], ")"}], "/@", 
    RowBox[{"Sort", "[", 
     RowBox[{"Append", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{"n", ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "400", ",", "4000", ",", "100"}], "}"}]}], "]"}], 
       ",", "435"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.881727517921112*^9, 3.881727542059164*^9}, {
  3.881727649045327*^9, 3.881727681170244*^9}, {3.8817344694671183`*^9, 
  3.881734469559042*^9}, {3.881734543859474*^9, 3.8817345486246853`*^9}, {
  3.8818214852557383`*^9, 3.881821487372998*^9}, {3.881821561723448*^9, 
  3.881821561912841*^9}, {3.8818217472728987`*^9, 3.881821780839123*^9}, {
  3.881822292843112*^9, 3.881822303631199*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"ab50a8d8-9579-46bc-87c0-417a6417adce"],

Cell[BoxData[
 RowBox[{
  RowBox[{"numberOfElectors", "=", 
   RowBox[{"Dataset", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Association", "@", 
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"Prepend", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "&"}], "/@", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ",", 
           RowBox[{"\"\<total\>\"", "->", 
            RowBox[{"Total", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", 
              RowBox[{"#", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]}], "]"}], ",", 
         RowBox[{"\"\<n\>\"", "->", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}]}], "&"}], "/@", 
     "electorsAtDifferentSizes"}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.881727121957457*^9, 3.881727155458506*^9}, {
   3.881727206979168*^9, 3.8817274532769136`*^9}, {3.881727552904503*^9, 
   3.8817276129392443`*^9}, {3.881727717811796*^9, 3.881727745440007*^9}, 
   3.881734445191544*^9, 3.881821500845446*^9, 3.881822469472425*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"23083006-8810-47ff-814c-dc2f1e5c23da"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fractionOfElectors", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "|->", 
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"N", "[", 
            RowBox[{
             RowBox[{"#", "/", 
              RowBox[{"r", "[", 
               RowBox[{"[", "\"\<total\>\"", "]"}], "]"}]}], ",", "6"}], 
            "]"}], ")"}], "&"}], "/@", 
         RowBox[{"KeyDrop", "[", 
          RowBox[{"r", ",", 
           RowBox[{"{", 
            RowBox[{"\"\<total\>\"", ",", "\"\<n\>\""}], "}"}]}], "]"}]}], 
        ",", 
        RowBox[{"\"\<n\>\"", "->", 
         RowBox[{"r", "[", 
          RowBox[{"[", "\"\<n\>\"", "]"}], "]"}]}]}], "]"}]}], ")"}], "/@", 
    "numberOfElectors"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"KeyDrop", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"r", "|->", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"r", "[", 
               RowBox[{"[", "\"\<n\>\"", "]"}], "]"}], ",", "#"}], "}"}], 
            "&"}], "/@", "r"}], ")"}]}], ")"}], "/@", "fractionOfElectors"}], 
      ",", 
      RowBox[{"{", "\"\<n\>\"", "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.881727121957457*^9, 3.881727155458506*^9}, {
  3.881727206979168*^9, 3.8817274532769136`*^9}, {3.881727552904503*^9, 
  3.8817276261809072`*^9}, {3.8817277649357224`*^9, 3.881727774469962*^9}, {
  3.8817296056899347`*^9, 3.881729741253718*^9}, {3.881729875198367*^9, 
  3.8817300079546003`*^9}, {3.88173209887346*^9, 3.881732124178774*^9}, {
  3.881822523090128*^9, 3.881822523273644*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"f35159b3-b214-40a3-b6c3-9209c46c6022"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ek6wB3MNqh0aZFX/+ilOhPAd6h3C
mr5Xh/yGyh9ocohlODjpMiuU/6DVIfew5v03k6F8hk6HD+x/GOsP9EP4Cj0O
LCbXv08PhMo79Dv8lFStc+uEyhtMdOByKXhzSQNm/iSHzVKuMlaZUPmAKQ67
GRJTV3PD7JvqUJu+eN/mQKh8wXQH+8JPF6qeQfkMMx2s5Td8ZrSG8ifMctij
svH2/yMw98xxmHHlU6OnLpS/Ya6DhZLKRaNVUL7DfAcb9/C1yXJQfsYCh0Mt
fxxmTIC5d6EDj/e6/E5RKP/HQofPJzmfza2D8g8scth0+v8bCT4ov2Oxw9W+
/d9T82H+WeIQuONjTsMxKF9iqUNI2qXVNfFQ/oOlDjND75x7uRnKX7HM4VmH
R0hcCMy/yx0OLm+5tH0xlG+xwuHMyQcMi71g/l/psJ15zgzOyVD+iZUOCyfl
iWy2h4XHKof7Pz3iJrZB+RGrHSzkmz8bWsDCZ43DTO6shsJqKP/FGof5VYZA
BAuvtaj+qVjnIG0SEFGoCQu/9Q6W4St21aT12wMAY2nCwA==
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh1W1xj+Eb5eBuE71DvM
Ov/1+OmEEgj/QJPDGnFG5x1VhRD+g1aHl+Lur73SofIMnQ6dLBPu3FIpgvAV
ehxYTK5/nx5YADWv3+F2486yhHW5UPsmOpxju+HlYZ4NNX+Sw2YpVxmrzHwI
P2CKw4lLjUW1OlD1D6Y65F4pN3tlDVVfMN3h/4E+Xv3WTKj9Mx2uyDicZbyS
A+FPmOVQI69VrAJTrzDHweHyHEaTs1D1G+Y6PFx20e5IcwbUffMdcksZD50K
S4fwMxY43PlyvmH2P6h6g4UOtvndPez3oOp/LHQ445oxqeAqVP2BRQ7HzZ2z
vz9Mg/A7FjsI2s/Uea0K1R+wxCGMLV9vuylUv8RSh4DtXStfR0D1P1jqcLlN
/l1AN1T/imUOned+MSWfToX6d7nDxdrHd0/ugqq3WOEwe/OsRbF/oeoZVjpw
5uzMXuMJ5Z9Y6eCx5dAzh0VQ/RNWObDcn3LKKAqqP2K1wxYxj+zGLVD1Cmsc
StKC3+0Xh/JfrHEQs2oWtWqG6t+w1sEyXmvpuy8pEH7FOgeBo4smW1RB1Tus
d9i0zqZK712qPQCZL759
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhNOzas4mjLNHsw1qHaYy34j8NL7KRC+Q72D
zbcvue3CUPkDTQ7TYg8Gp92cCuE/aHXI6Pw9c/9aKJ+h0yGZ9fXTw91QvkKP
g2uJV6l4NpTv0O+QosgdecIJZt9Eh/bW83teycDMn+Tw5Oi0B7f/QNUHTHEQ
i3soGvcQZt9Uh3CBydodJ6H8gukO91/c0e4MgepnmOlgKdaTfNACyp8wy2Gq
5aS5vApQvsIcB5n5CQc/ckL5G+Y6XKlyq+D6BnPffFT7MhY4zLDfxPDZHebe
hQ5lb8JLvhhD+T8WOkheTkierwhz/yKHk1897x0QgPI7Fjvoi7Md12WE8gOW
OOybK8K07gPUfImlDjvMZsw94ACVfwDkc6SvUjaE8lcscziyk61/ghKUX7Dc
IeuV44K3IlC+xQoHhTd1aSocMP+vdFgq+HRK7i+o+SdWOugVzeWUsIGFxyqH
8lzeW576UH7EagdlMeMkQ2VY+KxxKE0LfrdfHMp/scYh7AUPEMHCay2qfyrW
ObyKD2K7Cgtvh/UODWVRS37pTrMHAKshvIk=
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y+2wB3MNqh1W1xj+Eb7eBuE71Dvc
k/ki7HysHcI/0OTg4da4uDGlBcJ/0OrwUtz9tVc6lM/Q6SDFqmRRlgnlK/Q4
sDKe/fo3Fcp36Hdw65wf+Aim3mAiqvoDkxwObv+pfSYLyg+Y4rDf7WDmx2yY
fVMdgu7fXPE+B8ovmO6QNusGVw9MPcNMhxyRHW6NMPUTZjn4XrOteeLZDHXP
HIeCeaaMzyOh/A1zHY777d4YkAHlO8x3aO0J8/lXBOVnLHBY+n32gi91UL7B
QocNmSoxDzuh/B8LHXiXX53zdDKUf2CRw3n9OHPZuVB+x2IH153Xd81fCuUH
LHFQM911dclqKF9iqcMaLt7rbJuh/AdLHX5Ojb7wbCeUv2KZw46S2Yu+CUL5
BcsdNlS1pkyRhfItVjismaq9qUIDymdY6aDyJJfdwhDKP7HSYdOe8OgnVlD+
hFUO0y7uamB2gfIjVjv4Cp8yWegDC581Dst+dnw4HgLlv1jjINwYA0Sw8Frr
4HE64VN/EpRfsc7Bg/3e595MWPitd+ALvN4w50OTPQCBq8Gg
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqV/H/k1F+20B3MNqh0c12yv/rYRyneod9Dk
LV689imUf6DJQWP9wj1tn3ZB+A9aHQ5lVzXoS+6G8Bk6HT617VHMPwHlK/Q4
TG+RuvTtFJTv0O9wMMba4DrfHqh9Ex2Eyo/IFrpD+QcmORgtmLcyphzKD5ji
wH7q68aSBVD+g6kOk7U7TooegfILpjuEeIWxr7oH5TPMdPgls/x84S8of8Is
h3k/F0xVFd4Ldc8cB/EplwodNaH8DXMd4ne82aVhC+U7zHfg19K/Ntsbys9Y
4FDx+eWHPDso32ChQ4BkX4NtNpT/Y6HD5CqH7BuxUP6BRQ7b3Hkvr4bJdyx2
eDHVeUZ+BZQfsMRhp/90h/JGKF9iqcNOKVu9x4uh/AdLHb4mdFrcmgblr1jm
cPgDz4yqBVB+wXIH19iY0JqVUL7FCod/6rHu7zZC+QwrHRKfLuyfsB3KP7HS
4fF2b1vJ/VD+hFUO3edrvxofg/IjVjucnXvuzsszsPBZ49DyN0za+TKU/2KN
wz+3m3/dbsLCa61Dqv2NIGeY+op1DrFW+6bWP4KF33qHErO8zQeu77UHADDF
0FI=
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnGGM1mLgybZg7kG1Q79k+qWT+CYDOE71Dv8
WPFNUWAdVP5Ak8MvPcfPc95D+Q9aHd6Y3OtNvDURwmfodOhkmXDnlgpUXqHH
oVXq0rdT0VC+Q7+D5kdjrz89MPsmOpQfkS10vwPVf2CSQ68S39wt/FD5gCkO
e5Unpp+zhtk31cG9Nn3xvs1Q9QXTHSTbazut7sLsn+nAIuSh0MgCVT9hlsM/
EZlFueow98xxsLkofVB4L1T9hrkOkSbnckUeQPkO8x30Ss0WTPwL5WcscFhz
eUJBqRTMvQsdtPeu+aZ5GCr/YyGq/gOLHC6vzpbd8AvK71jsEKLKx+EoDPPP
EoflHZJtRceh8hJLUfU/WOpQIH+wluU7lL9imQPX5vJ/uTxQ/QXLHWLnZaWJ
n4HKW6xwYH8Yvb3xIcz/Kx2mVsmssfkC5Z9Y6fDcYZGoGTssPFY5LGsWDEk4
B5WPWO3wcKKoXCRMv8IaB/vDiz96f4byX6xxKPJlASKo/g1rHcLNp9sbXoDK
V6xzSFnxe7EFTL/Deocbhgk3sj9OtAcAfRi94A==
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y+2wB3MNqh1OpD0JmL60C8J3qHe4
J/NF2PlYO4R/oMmhcXFjiogFVP5Bq8PjuxLLZBs7IXyGTgdbNrf3az5BzVPo
cWA7d+hzchWU79Dv0LSzLGGdLMy+iQ5fWGsd4y/AzJ/kwHbFeOrrPig/YIpD
binjoVNhUP6DqQ6xjj7rFNSg/ILpDpvWGvfc/d4GtX+mwyUxjdzGS1D+hFkO
tlKLuTw3QvkKcxwCcqoYjy6D6t8w18FpqvEetzoo32E+qn0ZCxxertmpMNcU
yjdY6LDjkLB6gDiU/2OhQ3HPk1/tv6HmH1jkcNzcOfv7Qyi/Y7GDxsMshdhT
UH7AEoePoh27ozdB+RJLHaYl2vmozIPyHyx1uNwm/y6gG8pfscyhqFrLWFID
5t/lDiv4r8VxC0H5FiscZm+etSj2L8z/Kx0uKCRJar2A8k+sdBA2qNB5fxUW
HqscbNUCg/YdgfIjVjtsEfPIbtwCC581DhdF1+9SWQrlv1jjMH0aCED5G9Y6
aH3+HO7bDuVXrHMQOLposkUVlO+w3sHXruLcsdw2ewCPX732
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh1W1xj+Eb5eBuE71Dso
Z32K36VdDeEfaHJ4WsLI4u1XDuE/aHV4Ke7+2iu9BMJn6HToZJlw55ZKEYSv
0OPAynj2699UqLxDv4PmR2OvPz1QeYOJDo4sx/V6mQqh5k9ymL8ypnzPDah8
wBQHIYlGQYlGqPyDqQ6OPusU1MILIPyC6Q6S7bWdVneh8gwzHS4KCPAyXoTK
T5jlsEdl4+3/R/Kh7pnjoLDwIaOQVB6Ev2Guw2vJh5o3YOY5zHewcQ9fmywH
VZ+xwEFh1VsGl625UPcudPBTzFJ6+gMq/2Ohw0yBNr+tS6DmHVjksM2d9/Lq
bKj6jsUOV/v2f0/Nh6oPWOLw5jjXLxVnqHqJpQ4qqW8nq+lD1T9Y6tCRsVxT
VS8Hwl+xzOHvbQmVFd+h8gXLHWTe+13bywDlW6xwMGi72WspCVXPsNIh8enC
/gnbofInVjpwz2buDLsBlZ+wysFi6aaea6xQfsRqhxZZlxuOLVD1CmscTs+b
31S5Ayr/Yo2DTOp36dTv2dDwWuvwd11AQaYdlF+xDhhiOpd7Z0PVO6x3+JXJ
nhv0MtseAPUQt0g=
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlEG6qqODWvswVyDaodrt21/3+iB8h3qHcRU
Pt64vH0thH+gyeHoXUXZgDtQ/oNWh3uLXyV8mLUOwmfodFjBbhxiOA/KV+hx
0LAu2tApvR5qXr/DR2OvPz1CUL7BRId7xzunvS6H8g9Mctgs5SpjlQnlB0xx
WPB75/zfO6H8B1Md9m8OvH9zBZRfMN3BvvDThapnUD7DTIer8j5/D16B8ifM
cug4JXPyHNsGqHvmOBjt/q+4+TdUfsNch5aplicrxKDyDvMddjMkpq7mhvIz
FjjEcze+yVaE8g0WOliwPan1NIXyfyx0WHbwmJ2zDpR/YJHD9P83DWXsoPyO
xQ7Lju6bXABTH7DEwWmGkbC4C5QvsdShrPjR7cvWUP6DpQ75J0Rq1npB+SuW
OUgqWN7f5wTlFyx3aEjrOZEVAOVbrHCwtL/x94wHlM+w0oFrgeMRoxAo/8RK
h89xuRNf+0D5E1Y5bDPNUN8bAeVHrHYIuiDNujcQFj5rHES1ZdROxUD5L9Y4
bHBKByFoeK11SJHiLIyKh/Ir1jk0eEqGPIaZ57DeQUhQ7eL6pA32AE8pw50=

         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDp/+rIzL6pxnD+YaVDs8CZi+VKoEyneod0jf
/mG14UQo/0CTQ85Lx9JD06D8B60OMaLz+VMfzofwGTodPrD/Yaw/AOUr9Dic
+GJQIDYPynfod/gpqVrn1gnlG0x04HIpeHNJYwHU/EkOjy54/laQhPIDpjjs
ZkhMXc0N5T+Y6gCxB8ovmO7AOXvJjOcuUD7DTAdzgRJmR3Mof8Ish01MiUtk
taF8hTkOHCxMjQ4KUP6GuQ6vJR9q3giH8h3mO3iu363zwhPKz1jgwPWz0UDR
Hso3WOhgwfak1tMUyv+x0OHv+uUpe5Ng7l/kcF29ktk5AsrvWOzwNO513TQ/
mH+WODjNMBIWh7lXYqnDkw7Tza1ZMP8tdfj6nOmsRSKUv2KZw3MpG6cumHkF
yx0a0npOZAVA+RYrHM6aGt1dXQjz/0qHxdu+VTJlQPknVjqs33aiVC0BFh6r
HLaZZqjvhZkXsdqhTCCRXbAMFj5rHBgWLt9flgflv1jjsMEpHYhg4bXWIUWK
szAqHsqvWOfQ4CkZ8hhmnsN6B7bmtbcXFS2wBwAdnLea
         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ejbYg7kG1Q5PAqYvlSqpg/Ad6h2U
sz7F79KuhvAPNDnIXWI8elexFsJ/0Orw+K7EMtnGSgifodPhHNsNLw9zqHqF
Hge2c4c+J1dVQM3rd0hR5I484VQGtW+iwxfWWsf4C+VQ8yc5PDk67cHtP6UQ
fsAUh9xSxkOnwqDyD6Y6hAtM1u44CZUvmO6waa1xz93vUPMYZjrMF/0QyTgf
Kj9hlsPc6fFh0TklUPfMcUhgjWAMa4DKb5jrkJYQaXIuFyrvMN/hJ4NO+5MU
qHzGAodvKYsPzIPpN1joYCI25+CMAKj8j4Wo+g8scji9OSCwyx4q37HYwa7Z
RuR8HlQ+YImDmumuq0tWF0P4EktR9T9Y6vBzavSFZzuh8iuWOSxUPH1pDUx/
wXKHmy8mPQ46BpW3WOEQ6PV7TX4+VJ5hpcPrGWJbt56Hyp9Y6bBpT3j0Eyso
f8Iqh9iufz/Kb0L5EasdfIVPmSz0gfIV1jgwrXyyR+cRlP9ijYNwYwwQQfkb
1jo4L/drXv8Cyq9Y5+DBfu9zbyaU77DewbXAT/Ps+2J7AFZxwAk=
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ejbYg7kG1Q5PAqYvlSqpg/Ad6h3C
mr5Xh/yGyh9ocpC7xHj0rmIthP+g1eHe4lcJH2ZB1TN0Opxju+HlYV4N4Sv0
OLDP3vHxZF8N1Lx+h9uNO8sS1kH1G0xEVX9gkkPeP67NUq5Q9QFTHKSWOAJR
FdS+qQ65V8rNXllD1RdMd/h/oI9Xv7USav9Mh1ypC8sYc6HqJ8xyuDvn2T6z
bxVQ98xxcLg8h9HkLFT9hrkOcqd4Xfb3QdU7zHd48PLanw0eUPmMBQ53vpxv
mP0PyjdY6GCb393Dfg9q3o+FDg078g86dkLlDyxyOLzbtDWlBSrfsdhB0H6m
zmtVqHzAEofd30IXCu2E8iWWOhxNUk6pOgdV/2Cpw7ryx9y7Y6DyK5Y5RGtE
JZ+HmVew3EEl6t9tNx6ovMUKB4eMrLkhLlB5hpUOavYxSosPQ/knVjrcW61b
NJcTyp+wymFigMxu6VYoP2K1wy+JOf0Hf8LCZ43Dc+VD8sG+UP6LNQ4z/ffO
8N8L5W9Y6yDdvpdrjSSUX7HOweGd6r8QmHkO6x3k32qd7n9Tbg8ABdTAkw==

         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnGGM1mLgxbZg7kG1Q4cNwIvvReB8h3qHZaL
fvfbdGUhhH+gySFYWXG2lilU/kGrw+pci6eza6F8hk6HdS0lmxm3QfkKPQ6q
VyZsC78HM6/fweA635mtzIuh9k1EVX9gksP8lTHle25A+QFTHDL0F+5t+Qaz
b6qDzzoFtXABqP6C6Q77BbS9HitD+QwzHSyEG4wZLaD8CbMcfK/Z1jzxhPIV
5jgUzDNlfB4J5W+Y65BwSjjwoxqU7zDf4fvd3y0HTaD8jAUOgTKzJLqcYe5d
6CBfUprPFQjl/1josG3Hl7LsWCj/wCIH//vyU85nQPkdix2Ot9U9CS6G8gOW
OEiGx6ZbVkP5Eksdzt1P01gcCuU/WOpwV3xxz854KH/FModP8cv1VDJh/l3u
cMSQZ8nnQijfYoXD1ab7BWZVMP+vdAgTvFF0PQLKP7HSQTuHTyUqERYeqxxO
7D89LwFmXsRqh8JgfvOvBbDwWeNQ+3S+smIFlP9ijcPiN3UgBA2vtQ7uTnOu
ibdA+RXrHG5btu2y74KF33qHCUcUX0lNWGwPALwjv+A=
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt//StvPiZ5iD+YaVDvMZb8ReOk9lO9Q7zDr
/NfjpxOg/ANNDh5ujYsbU6D8B60OL8XdX3ulQ/kMnQ5SrEoWZZlQvkKPAyvj
2a9/U2Hm9TuEgsFUqH0TUdUfmORwyc6D7YoxVD5gikNW0MX9y9Wg/AdTHa6U
m72ylobyC6Y7WMbrZz/ghfIZZjqwioYEOLJC+RNmObhWFBye9hfmnjkOS7L9
HXd9g/I3zHUwy1zxtecDzH3zHe4sLvuR9QLKz1jgMF96+YXix7DwWeggrG33
4tU9KP8HkG8r3XDoFsz9ixzOCF3hen8Nyu9Y7GD14t2BtMtQfsASh6LM59ma
56B8iaUOzt3/HxmehoXnUgdvgdbZeSeg/BXLHG7zXI+7dRTKL1juoHN07cPz
4lD/WaxwWKKSrPVaCOb/lQ5VTBkCG3mg/BMrHZK/PT+cyQELj1UOr363vkxg
gfIjVjswinIGTGSA8hXWOOxhnxP67Q/UvhdrHK52/7zS/RMWXmuB4a219N0X
KL9inYNO2gHnxx9h4bfeobr/6MW/76bYAwDNNsXH
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y+2wB3MNqh1W1xj+Eb7eBuE71Dvc
k/ki7HysHcI/0OTwtISRxdsPyn/Q6vDs13oPky9Q9QydDmtYt0wWXAflK/Q4
tD0//sWgAGZev0OKInfkCSco32CiQ3vr+T2vZKD8A5Mcnhyd9uD2n1YIP2CK
g1jcQ9G4h1D+g6kOQfdvrnif0wLhF0x3SJt1g6snC8pnmOmQI7LDrTEbyp8w
y2Hu9PiwaJh6hTkOLy66NcrlQvkb5jqkJUSanIPxHeY77Hc7mPkRpj9jgcO3
lMUH5sH0Gyx0+GT/gM8Wpv7HQlT9BxY5nC0MPxKcB+V3LHawa7YROQ/jByxx
iFyr2x8EUy+xFFX/g6UO+pPOhDvC1K9Y5rBQ8fSlNTB+wXIHpvAFSYL5UL7F
CodAr99r8mF8hpUOm333JxnD1J9Y6VBrwbtwEow/YZWDsrNT4RsYP2K1Q77I
FzdHmH6FNQ7xEQ6dE2H8F2scptzNByJYeK1F9U/FOocHs+U1ZWDyDusdHvzv
rE0F8gH9VL7f
         "]]}, {
        Hue[0.21101966249684523`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y+2wB3MNqh1W1xj+Eb7eBuE71DvM
Ov/1+OmEFgj/QJODh1vj4sYUKP9Bq8NLcffXXulQPkOngxSrkkVZJpSv0OPA
ynj2699UKN+h38Gtc37gI5h6g4mo6g9Mcji4/af2mSwoP2CKw363g5kfs2H2
TXXwWaegFi7QDOEXTHfYL6Dt9VgZymeY6WAh3GDMaAHlT5jl4HvNtuaJJ5Sv
MMehYJ4p4/NIKH/DXIfjfrs3BmRA+Q7zHVp7wnz+FUH5GQscln6fveBLHZRv
sNBhQ6ZKzMNOKP/HQofNbwNZ/+5sgrp/kcPFtymrnp2G8jsWO/i+L0osuAPl
Byxx+LzHTeb7SyhfYqnDxy0HKu1/QPkPljocmvnKo4cVav6KZQ47SmYv+iYI
8+9yhw1VrSlTZKF8ixUOa6Zqb6rQgPl/pUOs/tHIXZOg5p1Y6XDmX40F70Io
f8IqhwsS5Rz966D8iNUOu4W2agfuhvIV1jh4eumqJB+H8l+scbh8CQSg/A1r
Uf1Tsc7hj43tzWPPoHyH9Q58gdcb5nxosgcAUWHErg==
         "]]}, {
        Hue[0.44708763999663503`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlEG6qqODT32YK5BtcOTgOlLpUr6IHyHeof0
7R9WG06E8g80OchdYjx6V7EXwn/Q6nBv8auED7Og8gydDvHsWcseV0PlFXoc
2Gfv+HiyD2q+Q7/D7cadZQnroPIGEx2s21vP73kFlT8wySHvH9dmKVcoP2CK
w4lLjUW1OjD7pjoUsRrubJoBlS+Y7uBz5WVfgxCUzzDT4YqMw1nGK1D+hFkO
Zx54+86OhfIV5jisyL3QeIsNat6GuQ4xbz09d82EuW++Q5+EeGiXMZSfscDh
vM2zBzOPw8JnoYPriarwsmwo/8dCh54nv9p/i8Hcv8hhB6uIW+ksKL9jscPn
NJ1JK7xg/lniEBK/4az0v24IX2KpQxb/QrP4Eqj8g6UOHRnLNVX1oPwVyxwW
RFy8Pe0NVH3BcofPDY7h/8Oh8hYrHAzabvZaSsL8v9LhUnWAydQqKP/ESgfV
uxpp9Xaw8FjlYLF0U881Vig/YrVDkozUsYWJsPBZ45D33nmbiDaU/2KNg0zq
d+nU71D7N6xF9U/FOofgsu4dxyRg4bfe4Vcme27Qy257AAbzwgQ=
         "]]}, {
        Hue[0.6831556174964248, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ek6wB3MNqh2eBExfKlXSB+E71Duk
b/+w2nAilH+gyUHuEuPRu4q9EP6DVod7i18lfJgFlWfodIhnz1r2uBoqr9Dj
0NG4+cOfGTDz+h1uN+4sS1gHlTeY6GDd3np+z6seqPmTHCbwrEjXug6VD5ji
cOJSY1GtDsy+qQ4VZq+spb9C+QXTHT7FTvfXjITyGWY6XJFxOMt4BWrehFkO
Moty1YUaYO6Z47Ai90LjLTYof8Nch1//np82nw/lO8xHtS9jgYPCqrcMLlth
7l3o0D7PjOuSH5T/Y6HDs7l18k8+wNy/yGGbO+/l1dlQ+Y7FDm8MJr6+Lgzz
zxKHnf7THcoboXyJpQ4qqW8nq+nD/LfUYX+KxMb6R1DzVixz6GRl5PH1hPl3
uYPMe79rexmgfIsVDletVnYYJMD8v9JhlsHPh0KSUP6JlQ7cs5k7w27AwmOV
w1Exq9r9BlD5iNUOn2X0z3/8BJVXWOOg7vfb754rVP7FGoe5B7mACBZeax3e
OUkpn7gAVV+xzuE119m3IXKw8FvvYNhZJ9r8osceAKqPw9w=
         "]]}, {
        Hue[0.9192235949962146, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ejbYg7kG1Q5PAqYvlSqpg/Ad6h2U
sz7F79KuhvAPNDnIXWI8elexFsJ/0Orw+K7EMtnGSgifodNhDeuWyYLryiB8
hR4HtnOHPidXVUDN63dIUeSOPOEElTeY6PCFtdYx/kI51PxJDk+OTntw+08p
hB8wxWG/28HMj9klUPumOoQLTNbuOAmVL5jukDbrBldPFlSeYabDfNEPkYzz
ofITZjnMnR4fFp0DlVeY41Awz5TxeWQxhL9hrkNaQqTJuVyovMN8h9aeMJ9/
RVD5jAUO31IWH5gH02+w0GFDpkrMw06o/I+FDpvfBrL+3VkEdf8ih/P6ceay
c6HyHYsdfN8XJRbcgcoHLHFQM911dclqqLzEUoePWw5U2v+Ayj9Y6vBzavSF
Zzuh8iuWOewomb3omyCUX7DcoY2n4unVEqh6ixUOa6Zqb6rQgMozrHSI1T8a
uWsSVP7ESodNe8Kjn1hB5SescrggUc7Rvw4qH7HaQUtogRKjFpSvsMbB00tX
Jfk4lP9ijcMkFU8ggvI3rEX1T8U6hw1Fc/b9T4byHdY73DBMuJH9sdAeAKLJ
v84=
         "]]}, {
        Hue[0.15529157249600445`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt//StvPiZ5iD+YaVDv0T6pbPoFjMoTvUO/w
Y8U3RYF1kyD8A00Ov/QcP895D+U/aHXIWjbJ5poCVD1Dp8MllsguDXcoX6HH
4Wivf9mTBJh5/Q4We1/65ldB+QYTHda1lGxm3AYzf5LD/JUx5XtuQPkBUxwy
9BfubfkGs2+qg886BbVwAaj+gukO+wW0vR4rw+yf6WAh3GDMaAHlT5jl4HvN
tuaJJ8w9cxwK5pkyPo+E8jfMdfjhmvNh4lOo+Q7zUe3LWODw12HGBHlYeBgs
dOivO9ZkLAHl/1jokHBKOPCjGpR/YJHDhb6HHxpNoPyOxQ6eIap8HI5QfsAS
B95Khp9nvaB8iaUOH7ccqLT/AfPfUodDM1959LBC5Vcsc9hRMnvRN0GYf5c7
bKhqTZkiC+VbrHBYM1V7U4UGzP8rHVSe5LJbGEL5J1Y6bNoTHv3EChYeqxyM
v85w8fwJtS9itQPLZHuDn8yw8Fnj8EMxukuUD8p/scbh80pxIIKF11oHr7sv
NRvkofyKdQ5Ki3rTtGD2O6x3uCPxdVWGwWR7AGh1vpk=
         "]]}, {
        Hue[0.39135954999579425`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt//StvPiZ5iD+YaVDvMZb8ReOk9lO9Q72Dz
7Utuu/A0CP9Ak8O02IPBaTenQvgPWh0yOn/P3L8WymfodEhmff30cDeUr9Dj
4FriVSqeDeU79DuEggGUbzDRIfBoRZWBM5R/YJLDJTsPtivGUH7AFAexuIei
cQ9h9k11CBeYrN1xEsovmO7Ao9J22mQjzP6ZDvNFP0QyzofyJ8xyeBvRaHCp
D+aeOQ4JrBGMYQ1Q/oa5DqxF37d5F8PcN9/hJ4NO+5MUKD9jgYP7pVUPPKJg
7l3oEMr4a5bbISj/x0KH3G/zxFdvgbl/kcOpkLPTVVdA+R2LHYw3BUtNmwPz
zxKHpQ+jVK/3Q/kSSx3+PfB2+NkK899Sh0aeb0ona6D8Fcsc/B+/KzMtgfl3
uYNDjYmifg6Ub7HC4du/U8vTtsH8v9LBcbvAPr3VUP6JlQ4eWw49c1gEC49V
Dhu2nEy8OhPKj1jtMElULvLhRFj4rHGQ2P5dMboLyn+xxkHMqlnUqhkWXmsd
TKwlzPiqofyKdQ4VBolxq2Duc1jv8OSZXEDSuqn2AJ/Yv+8=
         "]]}, {
        Hue[0.6274275274955841, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlEG6qqODXPswVyDaodrt21/3+iB8h3qHY5O
+Mhadg/KP9DkIHeJ8ehdxbkQ/oNWh3gjs03VIVA+Q6dDPHvWssfVUL5Cj4M7
n1nh48lQvkO/w+3GnWUJ66B8g4kOhe53BMuPQPkHJjksmvzN0WjBPAg/YIqD
/KuFcq8WQvkPpjr8PudWm74Yyi+Y7jDzuYvApflQPsNMh4VyIq8cYeonzHLI
Se5n7FwE5SvMcbhj9ergWpj+DXMdZgq0+W1dAuU7zEe1L2OBQ6H4V4V3MP0G
Cx1exwdMuw3T/2Mhqv4Dixw2azUvq10K5Xcsdrh7JGqe2TKYf5Y4sLYcufYb
pl9iKar+B0sd3G9vYk6C6V+xzKFwk4ENM0x/wXKH5qYPwrNgfIsVDlXvK5rV
l8P8v9Kh54uciC9M/4mVDnuuTP54G8afsMpBwpH1mcxHKD9itcOHeT/edb6H
hc8aB9sYvi0876D8F2sc6he/qVv8BhZeax1ubbqY5vYSyq9Y5/D13P9TvC9g
4bfeYd7xnLQnz+bZAwBSL85A
         "]]}, {
        Hue[0.8634955049953739, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnGGM1mLgybZg7kG1Q79k+qWT+CYDOE71Dv8
WPFNUWAdVP5Ak8MacUbnHVUTIfwHrQ5vTO71Jt6C8hk6HTpZJty5pQJVr9Dj
0Cp16dupaCjfod9BSrXOrXM+VL3BRIfyI7KF7neg/AOTHHqV+OZu4YeqD5ji
ICTRKCjRCLNvqoN7bfrifZuh/ILpDpLttZ1Wd2H2z3RgEfJQaGSB6p8wyyHM
hNvUaBpUXmGOg81F6YPCe6H8DXMdIk3O5Yo8gPId5jvolZotmPgXys9Y4MAs
25uwYDHMvQsdtPeu+aZ5GMr/sRBV/4FFDle43l8TmQTldyx2iDgQHb1yHZQf
sMRheYdkW9FxKF9iKar+B0sdQhdyWF2fA+WvWOZw4Xh2kcNWmH+XO8TOy0oT
PwPlW6xwuPd5+Y/D/TD/r3QwUvC4+ncJlH9ipcOXhyYtXrug/AmrHJY1C4Yk
nIPyI1Y7zBTsltw4AxY+axwmvC7tnrkGyn+xxiGobH9g2X5YeK11CDefbm94
AcqvWOdg57xa7CosPh3WO3BlOa2bv3GiPQALZ7yv
         "]]}, {
        Hue[0.09956348249516367, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y+2wB3MNqh1W1xj+Eb7eBuE71DvM
Ov/1+OmEFgj/QJODh1vj4sYUKP9Bq8NLcffXXulQPkOngxSrkkVZJpSv0OPA
ynj2699UKN+h38Gtc37gI5h6g4mo6g9Mcji4/af2mSwoP2CKw363g5kfs2H2
TXUIun9zxfscKL9gusN+AW2vx8rNUPtnOlgINxgzWkD5E2Y5+F6zrXniCeUr
zHEomGfK+DwSyt8w1+G43+6NARlQvsN8h9aeMJ9/RVB+xgKHpd9nL/hSB+Ub
LHTYkKkS87ATyv+x0IF3+dU5TydD+QcWOVx8m7Lq2ekmCL9jsYPv+6LEgjtQ
fsASh8973GS+v4TyJZY6fNxyoNL+B5T/YKnDoZmvPHpYoeatWOawo2T2om+C
UH7BcocNVa0pU2ShfIsVDmumam+q0ID5f6WDypNcdgtDKP/ESodNe8Kjn1jB
wmOVwwWJco7+dVD7IlY77Bbaqh24G8pXWOPg6aWrknwcyn+xxuHyJRCA8jes
RfVPxTqHPza2N489g/Id1jvwBV5vmPOhyR4AsBDGCg==
         "]]}, {
        Hue[0.3356314599949535, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnGGM1mLgybZg7kG1Q79k+qWT+CYDOE71Dv8
WPFNUWAdVP5Ak8MvPcfPc95D+Q9aHbKWTbK5pgBVz9DpcIklskvDHcpX6HE4
2utf9iQBZl6/g8Xel775VVC+wUSHdS0lmxm3wcyf5DB/ZUz5nhtQfsAUhwz9
hXtbvsHsm+rgs05BLVwAqr9gusN+AW2vx8ow+2c6WAg3GDNaQPkTZjn4XrOt
eeIJc88chy0suo7eF6DmbZjr8MM158PEp1C+w3xU+zIWOPx1mDFBHhYeBgsd
+uuONRlLQPk/FjoknBIO/KgG5R9Y5HCh7+GHRhMov2Oxg2eIKh+HI5QfsMTh
8x43me8voeZLLHX4uOVApf0PmP+WOhya+cqjhxWqfsUyhx0lsxd9E4T5d7nD
hqrWlCmyUL7FCoc1U7U3VWjA/L/S4UDnTIOfD6HmnVjpsD/21ckfb6H8Casc
jL/OcPH8CeVHrHZgmWxv8JMZFj5rHH4oRneJ8kH5L9Y4fF4pDkRQ/oa1Dl53
X2o2yEP5FesclBb1pmnB7HdY78AXeL1hzodJ9gDUgMHr
         "]]}, {
        Hue[0.5716994374947433, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh2eBExfKlVSB+E71Dso
Z32K36VdDeEfaHJ4WsLI4u1XDuE/aHV4Ke7+2iu9BMJn6HRYw7plsuC6Mghf
oceBlfHs17+pUHmHfgfNj8Zef3qKoPZNdJBiVbIoy4TKH5jkMH9lTPmeG1D5
gCkOQhKNghKNhVD7pjr4rFNQCxcohvALpjtIttd2Wt2FyjPMdLgoIMDLeLEA
wp8wy+GfiMyiXHWoeQpzHBrMhRkrjKHqN8x1eC35UPNGOFS9w3xU+zIWOGxa
3+rwbStU3mChg59iltLTH/kQ/o+FDgzVXte02aDqDyxyuK5eyewcAVXfsdjh
at/+76n5UPUBSxyiQ968f7sEKi+x1IE9rp9FiRfKf7DUISky273/fx6Ev2KZ
w3MpG6cumHkFyx0OLm+5tH0x1DyLFQ5V7yua1ZdD1TOsdLCPUVp8WAKq/sRK
h4WT8kQ220PVT1jlENRxMHdFNFR9xGqHU/Iz/jSehMorrHGwjeHbwvMOKv9i
jYMcGED5G9Y6vJTj2PI8LBfCr1jncD5zve2qZVB5h/UO6Su+7t38PNceAD2m
sj0=
         "]]}, {
        Hue[0.8077674149945295, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ejbYg7kG1Q79k+qWT+BohvAd6h3C
mr5Xh/yGyh9oclgjzui8o6oRwn/Q6nBv8auED7PqIHyGTocP7H8Y6w/UQ/gK
PQ7ss3d8PNlXAzWv3+F2486yhHW1UPsmOqxgNw4xnAfVf2CSQ94/rs1SrlD1
AVMcTlxqLKrVgap/MNUh90q52Svragi/YLqDz5WXfQ1CUPUMMx1ypS4sY8yt
gvAnzHKokdcqVoGpV5jjYGC1n3HxZyh/w1wHuVO8Lvv7oOod5juExK0xn24F
lc9Y4HDny/mG2f8qoe5d6HBQmvnTviVQ9T8WOhhrl38QsoWqP7DIYb+9xvyL
alD5jsUOTJeT7nvugPIDljjs/ha6UGgn1DyJpQ5WfHvkOF2g8g+WOkgXHJUq
OArlr1jm4Hy1c3LrQ6j6guUOZWaStw7HQuUtVjg8k7Ga4d0NlWdY6bB1xdra
eQxQ+RMrHUoXz/j7swAWHqsc5A4tXs2yAao+YrWDjNSxhYkyUHmFNQ4Lmip3
yGRA5V+scZBac0FyzQUof8NaB/bvJX5aRlD1FescrjelGz/ugso7rHfo1ZaU
+fiq0h4ALs282Q==
         "]]}, {
        Hue[0.04383539249432289, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y+2wB3MNqh1W1xj+Eb7eBuE71Dvc
k/ki7HysHcI/0OTwtISRxdsPyn/Q6vDs13oPky9Q9QydDmtYt0wWXAflK/Q4
sDKe/fo3tQVqXr+DW+f8wEfpUL7BRAcpViWLskwo/8Akh4Pbf2qfyYLyA6Y4
7Hc7mPkxG8p/MNUh6P7NFe9zoPyC6Q5ps25w9cDUM8x0yBHZ4dYIUz9hlsPc
6fFh0TD1CnMcXlx0a5TLhfI3zHVIS4g0OQfjO8xHtS9jgcO3lMUH5sH0Gyx0
+GT/gM8Wpv7HQlT9BxY5nC0MPxKcB+V3LHawa7YROQ/jByxxUDPddXXJ6mYI
X2Kpwxou3utsm6H8B0sdfk6NvvBsJ5S/YpmDrvfmXYEHoPyC5Q43X0x6HHQM
yrdY4fA/f7L+l9NQPsNKh9czxLZuPQ/ln1jpML3KqG73FSh/wiqH2K5/P8pv
QvkRqx3uCd+3/XgXyldY48C08skenUdQ/os1DiH6z4L1n0H5G9Y6OC/3a17/
AsqvWOcw5WIdX+gbKN9hvYNrgZ/m2ffN9gDowMff
         "]]}, {
        Hue[0.27990336999410914`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ejbYg7kG1Q5PAqYvlSqpg/Ad6h2U
sz7F79KuhvAPNDnIXWI8elexFsJ/0Orw+K7EMtnGSgifodNhDeuWyYLryiB8
hR4HtnOHPidXVUDN63dIUeSOPOEElTeY6PCFtdYx/kI51PxJDk+OTntw+08p
hB8wxWG/28HMj9klUPumOoQLTNbuOAmVL5jukDbrBldPFlSeYabDfNEPkYzz
ofITZjnMnR4fFp0DlVeY45DAGsEY1gCV3zDXIS0h0uRcLlTeYb5Da0+Yz7+i
Ygg/Y4HDt5TFB+bB9BssdNiQqRLzsBMq/2Mhqv4DixzO68eZy86FyncsdvB9
X5RYcKcI6p8lDmqmu64uWQ2Vl1jq8HHLgUr7H1D5B0sdfk6NvvBsJ1R+xTKH
HSWzF30ThPILljvcfDHpcdAxKN9ihcOaqdqbKjSgfIaVDrH6RyN3TYKad2Kl
w6Y94dFPrKDyE1Y5XJAo5+hfB5WPWO3gK3zKZKEPVF5hjYOnl65K8nGo/Is1
DpNUPIEIyt+wFtU/FescNhTN2fc/Gcp3WO/AF3i9Yc6HInsANHq/pA==
         "]]}, {
        Hue[0.5159713474939025, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgeTl7wWL59lD+YaVDucSHsSMH0plO9Q76Cc
9Sl+l/ZsCP9Ak8OFXQdFfq6B8h+0Ojw40MjMzjcHwmfodDjHdsPLwxwqr9Dj
cFzdumhDJ5Tv0O+w96VvftVlKN9gogPLcb1eJkGo/gOTHPL+cW2WcoXyA6Y4
FO5OPCawHWbfVIcPOVfKzV5B+QXTHXyuvOxrEILZP9PBSmbJYUcrKH/CLIcz
D7x9Z8dC+QpzHAys9jMu/gzVv2GuQ8+TX+2/xaDyDvMd+iTEQ7uMofyMBQ7q
bY8uHAmA8g0WOrieqAovy4byfyxE1X9gkcOulOn/bxpC+R2LHT6n6Uxa4QXz
zxKHXOmsVZ/ioHyJpQ5Z/AvN4kug/AdLHRY/i88N6oDyVyxzuOV8N/2IM5Rf
sNzhc4Nj+P9wKN9ihUNkca/P9yyY/1c6XKoOMJlaBeWfWOmgelcjrd4OFh6r
HGY3XjkxAeafiNUOSTJSxxYmwsJnjYPM8UIggvJfrHGIEW4EIih/w1pU/1Ss
c6i8fdtVKwoWfusdpv50OvgqY449AEZdxLk=
         "]]}, {
        Hue[0.7520393249936888, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt//StvPiW6xB3MNqh36J9Utn8DRDOE71DuE
NX2vDvndAOEfaHJYI87ovKOqEcJ/0OrwxuReb+ItKJ+h0+ED+x/G+gP1EL5C
jwOLyfXv0wOh+h36HW437ixLWFcLtW+iwwp24xDDeXVQ8yc5bJZylbHKhOoP
mOJw4lJjUa0OVP2DqQ4VZq+spb9C+QXTHWY+dxG4NB+qn2GmwxUZh7OMV2og
/AmzHGQW5aoLNUDVK8xxUFj4kFFICqp+w1yHmLeenrtmQtU7zEe1L2OBQ935
ewfe36yGunehg+uJqvCybKj6Hwsdns2tk3/yAco/sMhh92GpnXYnoeo7Fjt8
TtOZtMILKh+wxKHtunL7yf1QvsRSh/U7Q25O3wlV/2CpQ0fGck1VPaj8imUO
IvovP3+cBeUXLHc4KWRyw2E9VL3FCgeDtpu9lpJQeYaVDi5C/2/MtIXKn1jp
4CDv57xiCZQ/YZWDxdJNPddYoeojVjvYS3/YzGgPlVdY4yDk8OLl+rlQ/os1
DjKp36VTv0P5G9Y6/F0XUJBpB+VXrHNgX/Nq7v+pUL7Deodfmey5QS+r7QHp
YMEb
         "]]}, {
        Hue[0.9881073024934821, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgeTl7wWL19lD+YaVDucSHsSMH0plO9Q76Cc
9Sl+l/ZqCP9Ak8OFXQdFfq6B8h+0Oiz4eTvKceMaCJ+h08G6vfX8nldQvkKP
w/KQ8o1hgmuh5vU7XJ5978sycyjfYKJD2PMNH2aGQ/kHJjlwnGyoWlYE5QdM
cZh3o3PujU4o/8FUB7NX1tJf50L5BdMdYg4cqr+8CspnmOmwW3bV7YW7oPwJ
sxwKhL7dXX8CyleY4+AUclfR5SqUv2Guwyl2895viuug7pvvUHxv4gnj51D5
jAUOJxM+CkjqQOUNFjqcKvm0R9cIyv+x0OGN8RGmg+ZQ/oFFDls62RIe2UD5
HYsdHsav+DjPEcoPWOLw5jjXLxVnKF9iqcOep/fnB7pD+Q+WOujE/tpv4g3l
r1jmYH5cZcNVPyi/YLlD/unMK1ZBUL7FCodApqNHMkOhfIaVDhqzvGz5wqD8
EysdnFTvaqTVQ/kTVjk0l13qZm2E8iNWOzTf03jR2wTlK6xx2D7jpBRjC5T/
Yo3D+YTWcwmtUP6GtQ73fOV3rYPJV6xzsDFnL/8Bk3dY7/BS2kHdqH2dPQDq
Tc0l
         "]]}, {
        Hue[0.22417527999326836`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDp/+rIzL6pxnD+YaVDs8CZi+VKoEyneod0jf
/mG14UQo/0CTQ85Lx9JD06D8B60O9xa/SvgwC8pn6HRYwW4cYjgPylfoceho
3PzhzwyYef0OPyVV69w650Ptm+hw73jntNflUP6BSQ6bpVxlrDKh/IApDqe+
bixZEAPlP5jqUJu+eN/mQCi/YLpDzprZBWrOUD7DTIer8j5/D16B8ifMctij
svH2/yNQvsIch5C8345Pt0H5G+Y6WCipXDRaBeU7zHeIWMJjc3cWlJ+xwOFQ
yx+HGRNg7l3o4KeYpfT0B5T/Y6HDgmWnDSe9hrl/kcMG3p+V/veh/I7FDpc+
Fy75exnmnyUOgTs+5jQcg/IlljoYTqyIerAH5r+lDjND75x7uRnKX7HMQaEk
5EH3aph/lztci+MWEofZb7HCQX6JR53cO5j/VzpIxxXkezyC8k+sdGgP8DTv
ugkLj1UOTteyZnlfhPIjVjtwBkxkEOVcAA2fNQ7Vd5PUslmg/BdrHCDmQvkb
1jpcyFrb0foVqr9inUNvsiPDnLew8FvvcOXZYz7RZ/PtAUEaygA=
         "]]}, {
        Hue[0.4602432574930617, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh1W1xj+Eb5eBuE71DvM
Ov/1+OmEEgj/QJPDGnFG5x1VhRD+g1aHl+Lur73SofIMnQ6dLBPu3FIpgvAV
ehxYTK5/nx5YADWv3+F2486yhHW5UPsmOjiyHNfrZYKad2CSw2YpVxmrzHwI
P2CKw4lLjUW1OlD1D6Y65F4pN3tlnQ3hF0x3mPncReDS/Dyo/TMdrsg4nGW8
kgPhT5jlUCOvVawCU68wx8Hh8hxGk7OZEP6GuQ4xbz09d82EqneY7xASt8Z8
uhVUfcYChztfzjfM/gdVb7DQwTa/u4f9XgaE/2OhwxnXjEkFV9Oh7l/ksN9e
Y/5FtSwIv2Oxg6D9TJ3XqlD9AUscwtjy9babQvVLLHUI2N618nUEVP+DpQ7r
yh9z746Bql+xzCFaIyr5fAtUfcFyh4u1j++e3AVVb7HCYfbmWYti/6ZB/b/S
Qc0+RmnxYaj6Eysd7q3WLZrLCeVPWOXAcn/KKaMoqP6I1Q5bxDyyG7dA9Sus
cShJC363XxzKf7HGQeLzSvHPK6HqN6x1UD3/8EUOL5Rfsc5B4OiiyRZVUPUO
6x02rbOp0nuXag8A1+m8Bg==
         "]]}, {
        Hue[0.696311234992848, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ei6wB3MNqh1+Jv1QX6cL5TvUO4Q1
fa8O+Q3lH2hyYOF5+Mr1AJT/oNVB90+zmbr5QgifodMhtWU165bJUL5Cj4PL
8pDyjWFQvkO/g5RqnVvnfCjfYKJDTMon/6x8KP/AJAfW+8/WG6yG8gOmOAhJ
NApKNEL5D6Y6uNemL963GcovmO6wXiUockI3zP6ZDjsEq6QXbofyJ8xyWLVk
8uvz92DumeNgc1H6oPBeKH/DXIdIk3O5Ig9g7pvvsODY7Rsh+6H8jAUO4T/6
XnDdh7l3oYP23jXfNA9D+T8Wouo/sMjh8ups2Q2/oPyOxQ7XPm0x/AqTD1ji
sCWt7Mvd71C+xFJU/Q+WOhTIH6xlgcmvWOaQu7fQ4jpMvmC5w/Ofumzu36B8
ixUOc65vnZbAtQjq/5UOU6tk1th8gcqfWOnw3GGRqBk7VH7CKocbhUpFez9D
5SNWO7BdilJYywqVV1jjYH948UdvmPyLNQ5FvixABJXfsNYhbN0l5Z0fofIV
6xy+31qc9YoRKu+w3mGfaP7bQMFF9gDbBMh9
         "]]}, {
        Hue[0.9323792124926413, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlEG6qqODT32YK5BtcOJtCcB05d2QfgO9Q7K
WZ/id2l3Q/gHmhwaFzemiFhA5R+0Ojy+K7FMtrETwmfodDjHdsPLwxyqXqHH
oX3L3k/TWmDm9TssCHyUPuUHVL3BRIfENq1jl5uh/AOTHDQfXfD8rQDlB0xx
kFriCEQw+6Y6ZCzetznwPlS+YLrD/wN9vPqtMPtnOlhJzpjcaAnlT5jlcHfO
s31m3zqg7pnj4HB5DqPJWaj8hrkODTvyDzp2QvkO8x0evLz2Z4MHlJ+xwKG7
/UTCRwGYexc62OZ397Dfg5r3YyGq/gOLHA7+1ROaHQrldyx2ELSfqfNaFeaf
JQ6ddY+ep3yH6pdY6nA0STml6hyU/2Cpw7ryx9y7Y6DqVyxzOP+vsFrLGObf
5Q4qUf9uu/FA+RYrHCY7XZK68Byqn2Glg5p9jNLiw1D+iZUOK9Ufb/e2hYXH
KodwzgTjCVJQfsRqh18Sc/oP/oSFzxoH58uyb7bfgvJfrHGY6b93hv9eKH/D
WlT/VKxz6N5xTEKGAxZ+6x3CeBYVH3jdYQ8ASU3DFQ==
         "]]}, {
        Hue[0.16844718999242758`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlEG6qqODT32YK5BtcOTgOlLpUr6IHyHegfl
rE/xu7S7IfwDTQ5ylxiP3lXshfAftDo8ONDIzM4H1c/Q6XCO7YaXhzlUvUKP
A/vsHR9P9kHlHfod9r70za+6DJU3mIiq/sAkB+8Puf+4NndB+AFTHAp3Jx4T
2A6VfzDVIfdKudkrayi/YLrDMi+bc9dPQ9UzzHRYIM2xq3EBVH7CLIcaea1i
FZh6hTkOO9jWNWY/gKrfMNdB7hSvy/4+KN9hvkNI3Brz6VZQ9RkLHHSTri9w
fQOVN1jocFCa+dO+JVD+j4UONws/R2glQ/kHFjnsbVTU4fgB5XcsdmC6nHTf
cwfMP0sc3uWdjDpQBeVLLHX4msxRc+EflP9gqYN0wVGpgqNQ/oplDttXL1z9
oB/KL1juUGYmeetwLJRvscKh+yLnZKdLMP+vdKiJDdOWmQ/ln1jpULp4xt+f
BVD+hFUOq42157y9BeVHrHZYJ3V71ca1UL7CGofIhwaBz5qg/BdrHGZzPJnF
8QQWXmtR/VOxziFffGVG4QRY+K130NgdUtCZ1WUPAO8xwWc=
         "]]}, {
        Hue[0.40451516749222094`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnGGM1mLgxbZg7kG1Q4cNwIvvReB8h3qHX6s
+KYosA7KP9Dk8EvP8fOc91D+g1aH1bkWT2fXQvkMnQ7rWko2M26D8hV6HFSv
TNgWfg9mXr+DwXW+M1uZF0Ptm+hw8sn8K/eUoPwDkxzU3zanONhC+QFTHOxM
V764HwzlP5jq0PfrnFttOpRfMN1BszisqrcUymeY6dAq7GfxsAXKnzDLYaHb
MaOmSVC+whwHv9eWD7fMg/I3zHXQv5wktGEllO8w30HEeqOw9UYoP2OBw9Lv
sxd8qYO5d6HDhkyVmIedUP6PhQ68y6/OeToZ5v5FDuf148xl50L5HYsdXHde
3zV/Kcw/SxzUTHddXbIaypdY6rCGi/c622aY/5Y6/JwafeHZTih/xTIHXe/N
uwIPwPy73OHmi0mPg45B+RYrHP7nT9b/chrm/5UOr2eIbd16Hso/sdJhepVR
3e4rsPBY5RDb9e9H+U0oP2K1w67LM63nwuxTWOOgvfds5+V9UP6LNQ5HDoMA
LLzWOrgYCM9XPw7lV6xzYJx/zX0xzH6H9Q5xPfYiz4H2AwCd/9BF
         "]]}, {
        Hue[0.6405831449920072, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh2eBExfKlVSB+E71Dso
Z32K36VdDeEfaHJ4WsLI4u1XDuE/aHV4Ke7+2iu9BMJn6HRYw7plsuC6Mghf
oceBlfHs17+pUHmHfgfNj8Zef3qKoPZNdJBiVbIoy4TKH5jkMH9lTPmeG1D5
gCkOQhKNghKNhVD7pjr4rFNQCxcohvALpjtIttd2Wt2FyjPMdLgoIMDLeLEA
wp8wy+GfiMyiXHWoeQpzHBrMhRkrjKHqN8x1eC35UPNGOFS9w3xU+zIWOGxa
3+rwbStU3mChg59iltLTH/kQ/o+FDgzVXte02aDqDyxyuK5eyewcAVXfsdjh
at/+76n5UPUBSxyiQ968f7sEKi+x1IE9rp9FiRfKf7DUISky273/fx6Ev2KZ
w3MpG6cumHkFyx0OLm+5tH0x1DyLFQ5V7yua1ZdD1TOsdLCPUVp8WAKq/sRK
h4WT8kQ220PVT1jlENRxMHdFNFR9xGqHU/Iz/jSehMorrHGwjeHbwvMOKv9i
jYMcGED5G9ai+qdincP5zPW2q5ZB5R3WO6Sv+Lp38/NcewBh1rMs
         "]]}, {
        Hue[0.8766511224918005, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ek6wB3MNqh0aZFX/+ilOhPAd6h3C
mr5Xh/yGyh9ocohlODjpMiuU/6DVIfew5v03k6F8hk6HD+x/GOsP9EP4Cj0O
LCbXv08PhMo79DtwR55wEtsEs2+iA5dLwZtLGjDzJzlkixS+WFIL5QdMcdjN
kJi6mhtm31QHR591CmrhUH7BdAf7wk8Xqp5B7WOY6WAuUMLsaA6VnzDLYY/K
xtv/j8DcM8eBg4Wp0UEBKr9hroOFkspFo1VQeYf5qPZlLHDg+tlooGgPc+9C
Bz/FLKWnP6Dqfyx0WHbwmJ2zDsz9ixw28P6s9L8Ple9Y7JCuM2mFlwzMP0sc
And8zGk4BpWXWOrAHtfPosQL899Sh5mhd8693AyVX7HMYa2+wbYYRph/lzt8
5TqpYa0G5VuscJBf4lEn9w7m/5UO9jFKiw9LQOVPrHRoD/A077oJlZ+wyiE4
0u01Ex9UPmK1wyn5GX8aT8LCZ41D9d0ktWwWqPyLNQ4PNHbf19gNld+w1uFC
1tqO1q9QfsU6h/R/H4os1sDCb73DlWeP+USB8QEAZP+5lg==
         "]]}, {
        Hue[0.1127190999915868, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh1W1xj+Eb5eBuE71DvM
Ov/1+OmEEgj/QJPD0xJGFm+/cgj/QavDS3H3117pUHmGTodOlgl3bqkUQfgK
PQ4sJte/Tw8sgJrX76D50djrTw9U3mCigyPLcb1epkKo+ZMcNku5ylhl5kP4
AVMchCQaBSUaofIPpjo4+qxTUAuHmlcw3WHmcxeBS/PzoPbPdLgi43CW8UoO
hD9hlsMelY23/x+Bmqcwx0Fh4UNGISmo+g1zHWLeenrumglV7zDfISRujfl0
q2wIP2OBg8KqtwwuW3Oh7l3o4HqiKrwsG6r+x0IHY+3yD0K2UPUHFjnst9eY
f1EtC8LvWOzwOU1n0govqPqAJQ6Kz21E8myg6iWWOljx7ZHjdIGqf7DUoSNj
uaaqHlT9imUOOk07D1vbQdUXLHcoM5O8dTgWqt5ihcMzGasZ3t2ZUP+vdHAR
+n9jJsw9J1Y6lC6e8fdnAVT9hFUOcocWr2bZAFUfsdrhl8Sc/oM/M6Dhs8Yh
8qFB4LMmqPoXaxyk1lyQXHMBqn7DWgdB+5k6r1Wh/Ip1Dg7vVP+FtEL1O6x3
6NWWlPn4KtMeAC37tDE=
         "]]}, {
        Hue[0.34878707749138016`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt//StvPiZ5iD+YaVDvMZb8ReOk9lO9Q7zDr
/NfjpxOg/ANNDtNiDwan3ZwK4T9odcjo/D1z/1oon6HTIZn19dPD3VC+Qo+D
a4lXqXg2lO/Q7xAKBlC+wUSHwKMVVQbOUP6BSQ6X7DzYrhhD+QFTHLKCLu5f
rgazb6rDlXKzV9bSUH7BdAfLeP3sB7ww+2c6sIqGBDiyQvkTZjm8jWg0uNQH
c88chwTWCMawBih/w1wH1qLv27yLYe6b7/CTQaf9SQqUn7HAwf3SqgceUTD3
LnQwEZtzcEYAlP9jocMBybunt7nD3L/I4fTmgMAueyi/Y7GDme/C3H/mMP8s
cehWXejBoA/lSyx1+PfA2+FnK8x/Sx0aeb4pnayB8lcsc/B//K7MtATm3+UO
DjUmivo5UL7FCoezguIvV8Dcy7DS4V6MzfP30VD+iZWo4T1hlYPvjeWq0v5Q
fsRqB8+pk0MsPWHhs8Yh6/7J3Stg8fFijcPXJDsggoXXWlT/VKxzqDBIjFsF
c5/DegdxeUa1aXlT7QFhvrvQ
         "]]}, {
        Hue[0.5848550549911664, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDi1PfgbvvbLJHsw1qHbon1S3fALHZgjfod7B
0+bbl9x2KP9Ak0OpQ2G5B/sWCP9Bq8NLcffXXulQPkOng67rlMWcm6B8hR6H
q7FrQl2WQ/kO/Q5++VWXZ9+D8g0mOjiLPn55kGcr1PxJDpfsPNiuGEP5AVMc
QsEAyn8w1UHsyBOupCIov2C6w/Wigs3xHVA+w0yHStHO8IkVUP6EWQ5vIxoN
LvVB+QpzHM5rR33cswjK3zDXIffbPPHVW6B8h/kO59lMNtkfgvIzFji4zl67
JmMzlG+w0EG2JlBw0z0o/8dChxm5/VovzsPcv8jBcym3dfEdKL9jscOH2pu3
2V/A/LPEYd9cEaZ1H6B8iaUOk6bNvrX1F8x/Sx1Wnezi4GXZBuGvWOagdoTh
5M9vMP8ud1hik3Dh6n8o32KFg8KbujQVDqh6hpUOSwWfTsmFmXdipcOPrO6Y
dCao/IRVDq71f3a/4YTyI1Y7CJYJJLILQvkKaxxK04Lf7ReH8l+scZADAyh/
w1oHvT7H1VuVoPyKdQ7huqvslSWgfIf1Dj0sl2eyA9UDAOPew8k=
         "]]}, {
        Hue[0.8209230324909598, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y+2wB3MNqh1W1xj+Eb7eBuE71Dvc
k/ki7HysHcI/0OTwtISRxdsPyn/Q6vDs13oPky9Q9QydDmtYt0wWXAflK/Q4
tD0//sWgAGZev0OKInfkCSco32CiQ3vr+T2vZKD8A5Mcnhyd9uD2n1YIP2CK
g1jcQ9G4h1D+g6kO4QKTtTtOQvkF0x14VNpOm2yE8hlmOswX/RDJOB/KnzDL
4W1Eo8GlPihfYY5DAmsEY1gDlL9hrgNr0fdt3sVQvsN8h58MOu1PUqD8jAUO
7pdWPfCIgvINFjqYiM05OCMAyv+x0OGA5N3T29yh/AOLHE5vDgjssofyOxY7
mPkuzP1nDvPPEodu1YUeDPpQvsRSB8VtSydO1YD5b6lDWp/t/dlKUP6KZQ6i
Px69YpeF+Xe5g87RtQ/Pi0P5Fisclqgka70Wgvl/pUMVU4bARh4o/8RKh+Rv
zw9ncsDCY5XDq9+tLxNYoPyI1Q6MopwBExlg4bPGYQ/7nNBvf1og/BdrHK52
/7zS/RPK37DWwTJea+m7L1B+xToHnbQDzo8/QvkO6x2q+49e/PuuxR4An4HB
WA==
         "]]}, {
        Hue[0.05699100999074602, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh1W1xj+Eb5eBuE71DvM
Ov/1+OmEEgj/QJPDGnFG5x1VhRD+g1aHe4tfJXyYlQfhM3Q6dLJMuHNLpQjC
V+hxYDG5/n16YAHUvH6H2407yxLW5ULtm+hwju2Gl4d5NtT8SQ6ajy54/lbI
hPADpjicuNRYVKsDVf9gqkPulXKzV9ZQ9QXTHf4f6OPVb4WqZ5jpwCaR0MDI
lgHhT5jlYCu1mMtzYxrUPXMcHC7PYTQ5C1W/Ya7Dw2UX7Y40Q9U7zHfILWU8
dCosHcLPWOAww34Tw2d3qH6DhQ4mYnMOzghIhfB/LHRIS4g0OZebAnX/Iofj
5s7Z3x9C1XcsdtAXZzuuywjlByxx6FZd6MGgD9UvsRRV/4OlDj+nRl94tjMZ
wl+xzKHz3C+m5NNQ9QXLHXSOrn14XhzKt1jhEOj1e01+PlQ/w0qH1zPEtm49
D9V/YqXDpj3h0U+soPwJqxxe/W59mcAC1R+x2iFf5IubI0y/whoHppVP9ug8
gqp/scZBuDEGiKD8DWsdfN8XJRbcSYLwK9Y5PJgtrykD0++w3sG1wE/z7Ptk
ewBLW7u6
         "]]}, {
        Hue[0.2930589874905394, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y51hD+YaVDvs+ti1LHQflO9Q79Do
/Hnnv4qZEP6BJofGxY0pIhazIPwHrQ6P70osk22EyjN0OrSy8c/9JQKVV+hx
cHN0KK6th8o79DssCHyUPuUHlG8w0WG6WyNHXyxU/YFJDlaZ8irMr6DyAVMc
pJY4AhHMvqkOr6ylv87thfILpjtcan2a26wB5TPMdMiVurCMMRfKnzDLQTeO
Y+ZaCZh75jj8yVl68HwYlL9hroPcKV6X/X1QvsN8VPsyFji0rr48oaAUyjdY
6LDAYKmEoDGU/2Ohw83CzxFayTD3L3LY92DJ05x+KL9jsQNb3gajTcFQfsAS
h3d5J6MOVEH5EksdxC2TzuYshPlvqcP/jzzXnbKh/BXLHLavXrj6Acy8guUO
ZWaStw7DwstihUPik9ArLQ0w/690kGBuCrnrD+WfWOlQunjG358FsPBY5eAR
zplgPAHKj1jtkDorYBlnKix81jhEPjQIfNYE5b9Y41BtOL/KcD4svNY6sD59
LWYFC4+KdQ754iszCmHmOax30NgdUtCZNcseAIicv8s=
         "]]}, {
        Hue[0.5291269649903256, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhNOzas4mjLNHsw1qHZYXWP4R/g6lO9Q73BP
5ouw87HpEP6BJoenJYws3n5Q/oNWh2e/1nuYfIGqZ+h0+MJa6xh/ASqv0ONw
LMq1xKsUynfodyh+eyDG2gDKN5iIqv7AJAe2K8ZTX/dB+QFTHHJLGQ+dCoPZ
N9Xh/s0V73OuQPkF0x3airreGM6G8hlmOuSIHylzzIHyJ8xy6L195Mn+yzD3
zHEIyKliPLoMyt8w18FpqvEetzqY++Y7dF3aFuACU5+xwGFS8l6DojUw9y50
uLm2kOFfB5T/Y6HDGdeMSQVXYe5f5HC00uaH7mYov2Oxg8Lq85U9k2H+WeJg
67U18AHM/RJLHXQfGUT4b4P5b6mDKqPnzhszofwVyxyeBTp5l1yD+Xe5w8Xa
x3dP7oLyLVY4vOtlUri5AOb/lQ6/9e/PfQZzz4mVDm98DjzYuAcWHqsc0ndv
Y3u7BMqPWO1wXbyoVvE6LHzWOHSVpAW/2w/lv1jjIPF5pfjnlbDwWusgN9PN
aQ7MPRXrHM7uMwnTOggLv/UOQaq8Cw8DwwsACXDMVg==
         "]]}, {
        Hue[0.765194942490119, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkdTxM54ejbYg7kG1Q5PAqYvlSqpg/Ad6h3C
mr5Xh/yGyh9ocpC7xHj0rmIthP+g1eHe4lcJH2ZB1TN0Opxju+HlYV4N4Sv0
OLDP3vHxZF8N1Lx+hwWBj9Kn/KiE2jcRVf2BSQ55/7g2S7lC1QdMcZBa4ghE
VVD7pjrkXik3e2UNVV8w3eH/gT5e/VaoeQwzHXKlLixjzIWqnzDL4e6cZ/vM
vlVA3TPHweHyHEaTs1D1G+Y6PFx20e5IM1TeYb7Dg5fX/mzwgMpnLHCwkjro
4K4MlTdY6GCb393Dfg/K/7HQ4YxrxqSCq+VQ9y9yOLzbtDWlBSrfsdhB0H6m
zmtVqHkBSxzC2PL1tptC5SWWOhxNUk6pOgflP1jq4FDP+Jf1C9S8FcscojWi
ks/DzCtY7nCx9vHdk7ug8hYrHBwysuaGuEDlGVY6TL/KdXx5G1T+xEqHe6t1
i+ZyQuUnrHJguT/llFEUVD5itcN18aJaxetQvsIaB72jXO2dRlD+izUOEp9X
in9eCeVvWOsg3b6Xa40k1LyKdQ4rIp+cOFYPlXdY7yD/Vut0/5tyewB6JMAd

         "]]}, {
        Hue[0.0012629199899052423`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnGGM1mLgybZg7kG1Q79k+qWT+CYDOE71Dv8
WPFNUWAdVP5Ak8MvPcfPc95D+Q9aHd6Y3OtNvDURwmfodOhkmXDnlgpUXqHH
oVXq0rdT0VC+Q7+D5kdjrz89MPsmOqxrKdnMuA1m/iSHXiW+uVv4ofyAKQ57
lSemn7OG2TfV4ZTokSdcSVB+wXSHN95XXvY1QPkMMx1YhDwUGlmg/AmzHP6J
yCzKVYe5Z47DjyyVxvVuUP6GuQ6atrL6l2HmOcx38L70Wo+7CsrPWOCw5vKE
glIpmHsXOvis4Lpw3QTK/7HQgU1wwk4OX5j7Fzlc8nmR7J0M5XcsdgjsOrDl
RjnMP0scDrpcTvLUgPIlljqYx5fIVNjC/LfUoWdu5UHDQCh/xTIHl3nNXbNh
5hUsdygM/bi0TAHKt1jhYHCOv8zeGOb/lQ4/r3xoqnaG8k+sdLg1n3+5Yggs
PFY55NqEnrkCMy9itYOW0AIlRi1Y+KxxeDvrYvg/Syj/xRqHSSqeIAQNr7UO
QcKtFwLCoPyKdQ5dvD6Gc5Rg4bfeYenPWiYLw0n2AErsujw=
         "]]}, {
        Hue[0.2373308974896915, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh1W1xj+Eb5eBuE71DvM
Ov/1+OmEEgj/QJPDGnFG5x1VhRD+g1aHe4tfJXyYlQfhM3Q6nGO74eVhng3h
K/Q4sJhc/z49sABqXr/D7cadZQnrcqH2TURVf2CSg+ajC56/FTIh/IApDrml
jIdOhaVD7ZvqEC4wWbvjZCqEXzDd4f+BPl79Vqh6hpkObBIJDYxsGRD+hFkO
tlKLuTw3pkHdM8chgTWCMawBqn/DXIe0hEiTc7kpUPfNR7UvY4HDDPtNDJ/d
ofoNFjqYiM05OCMAqv/HQlT9BxY5nNePM5edmwzhdyx28H1flFhwJwnqnyUO
3aoLPRj0ofollqLqf7DU4efU6AvPdkL1r1jmsKNk9qJvglB+wXKHNp6Kp1dL
oOZZrHBgfxi9vfFhItT/Kx1ezxDbuvU8VP2JlQ6b9oRHP7GC8iescrggUc7R
vw6qP2K1g5bQAiVGLShfYY3DhNel3TPXQM17scZB8IQpEEH5G9ai+qdincOG
ojn7/idD+Q7rHW4YJtzI/phoDwAllrj5
         "]]}, {
        Hue[0.47339887498948485`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrTFTe9y62wB3MNqh1W1xj+Eb5eBuE71DvM
Ov/1+OmEEgj/QJPDGnFG5x1VhRD+g1aHe4tfJXyYlQfhM3Q6nGO74eVhng3h
K/Q4sJhc/z49sABqXr/D7cadZQnrcqH2TURVf2CSg+ajC56/FTIh/IApDrml
jIdOhaVD7ZvqEC4wWbvjZCqEXzDd4f+BPl79Vqh6hpkObBIJDYxsGRD+hFkO
tlKLuTw3pkHdM8chgTWCMawBqn/DXIe0hEiTc7kpUPfNR7UvY4HDDPtNDJ/d
ofoNFjqYiM05OCMAqv/HQlT9BxY5nNePM5edmwzhdyx28H1flFhwJwnqnyUO
3aoLPRj0ofollqLqf7DU4efU6AvPdkL1r1jmsKNk9qJvglB+wXKHNp6Kp1dL
oOZZrHBgfxi9vfFhItT/Kx1ezxDbuvU8VP2JlQ6b9oRHP7GC8iescrggUc7R
vw6qP2K1g5bQAiVGLShfYY3DhNel3TPXQM17scZB8IQpEEH5G9ai+qdincOG
ojn7/idD+Q7rHW4YJtzI/phoDwAllrj5
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 0.11673734098278872`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alabama\"", "\"Alaska\"", "\"Arizona\"", "\"Arkansas\"", 
       "\"California\"", "\"Colorado\"", "\"Connecticut\"", "\"Delaware\"", 
       "\"Florida\"", "\"Georgia\"", "\"Hawaii\"", "\"Idaho\"", 
       "\"Illinois\"", "\"Indiana\"", "\"Iowa\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.8818225241353283`*^9, 3.8818979633262777`*^9, 
  3.882060336062368*^9, 3.882127437926198*^9, 3.882231641263689*^9, 
  3.882514147139906*^9, 3.8825952869998417`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"ab22626a-7f99-4948-959c-ca8fac4266f7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plain Relative Proportionality", "Subsection",
 CellChangeTimes->{{3.881822373659525*^9, 
  3.881822388891296*^9}},ExpressionUUID->"a4836f01-45ca-4e34-ac77-\
f9475da06aec"],

Cell[TextData[{
 "If we want, we can compare fraction of the population to fraction of the.\n",
 "But note ",
 StyleBox["this is a bad measure",
  FontSlant->"Italic",
  FontVariations->{"Underline"->True}],
 ", as the electors don\[CloseCurlyQuote]t get to free vote. We\
\[CloseCurlyQuote]ll get into better ways to measure voting power in the next \
section."
}], "Text",
 CellChangeTimes->{{3.8817325293719893`*^9, 3.881732573794527*^9}, {
   3.881732641806117*^9, 3.881732661637538*^9}, {3.8817327263741627`*^9, 
   3.8817328135123863`*^9}, 
   3.881822393606062*^9},ExpressionUUID->"00ecad5e-1a75-454d-b6d7-\
9da00f430103"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"relativeProportionalityCoords", "=", 
   RowBox[{"Dataset", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"r", "|->", "\[IndentingNewLine]", 
       RowBox[{"Merge", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"KeyDrop", "[", 
            RowBox[{"r", ",", 
             RowBox[{"{", 
              RowBox[{"\"\<total\>\"", ",", "\"\<n\>\""}], "}"}]}], "]"}], 
           ",", 
           RowBox[{"Association", "@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "->", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}], "/@", 
              "usa50StateAndDCPopFraction"}], ")"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r", "[", 
             RowBox[{"[", "\"\<n\>\"", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "/", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ")"}], "/@", 
     "fractionOfElectors"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", "relativeProportionalityCoords", "]"}], ",", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}], ",", 
   RowBox[{"PlotLegends", "->", "Automatic"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.881731410730062*^9, 3.8817314728654957`*^9}, {
   3.881731525247954*^9, 3.8817315321314173`*^9}, {3.881731562367816*^9, 
   3.881731622926723*^9}, {3.881731658870208*^9, 3.881731760671989*^9}, {
   3.881731793079586*^9, 3.881731802062525*^9}, {3.881732135294421*^9, 
   3.881732221988578*^9}, {3.8817326912074203`*^9, 3.881732709958643*^9}, {
   3.881732839185256*^9, 3.8817329161085443`*^9}, {3.881732990240418*^9, 
   3.881733007592684*^9}, 3.881733055209449*^9, {3.881820889877307*^9, 
   3.881820895142864*^9}, {3.881820925787211*^9, 3.8818209406872168`*^9}, {
   3.881821017584119*^9, 3.881821019639493*^9}, {3.8818225393147717`*^9, 
   3.881822539498228*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"59ed1ce6-22b7-4f01-80cf-c1d7dcdb3673"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhE+4W6RRz7Yg7kG1Q6dS5ft3rfoI4TvUO/w
VrPIaWk1lH+gySEq5Jzv0zqo+getDlcsmQIMBKHyDJ0OotvYvEwjoPIKPQ6L
L88xfnYGynfod1hz4ET6CWuYfRMdQn/yS75dBOUfmOTw2zpGyVMbyg+Y4nDp
/R+3ly0w+6Y6xH44K6QrD+UXTHf4nV606VA2lM8w02HnxU35dcJQ/oRZDvo6
qbvaomDumeNw0GNNQh4PlL9hrsPK5iufd/nA3DffIT9ngu5hFig/Y4FDa3vk
hx57mHsXOvz8cmKOCQOU/2Ohw1XOf9e8zWDuX+RwnNWx4cCP9xB+x2KHfIO7
CWV6MP8sceDb9G69TzSUL7HUwa7v0lxXNZj/ljqI5yxR2x0I5a9Y5rCkvLSg
RwHm3+UOvPpHf6R4QvkWKxzSInOZuqRh/l/p0HZw17VzDlD+iZUOPx792vlC
FBYeqxxsDhvPTbaC8iNWO0h5ZJ/nFoKFzxoH7+KXy1aaQPkv1ji0ZUw4Oo0P
Fl5rUf1Tsc7B2GrZ0WIuWPitdwgS3Sr+QPODPQDFts2f
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnPMXkU+nsLqAOYaVDtsFoqMKNNlgfAd6h06
tgdPWs7ABOEfaHL4dXVljfajf/Zg/oNWhwjBS1dS2KDyDJ0OEY+cWJPZGSB8
hR6HkMuukoZX/0DUO/Q7qKibs8+2+AXhG0x0aA1+0i7C/QPCPzDJoYVF98CV
/b8h/IApDnzFXKZ3jv6E2jfVoeOijYkOP1R9wXSHebp/uaZ1f4PwGWY62C4W
U9tYDlU/YZbDhcn762r5oOoV5jgsDffcbXoaqn7DXIfCA1F+uiu+Qt0334E7
huOI57wvEH7GAgc3m2N3bn2DqjdY6DCtd8HzV9+h6n8sdMidoMujwwflH1jk
MJkx7pqIOVR/x2IHn7ftarnmUP0BSxze/MtrskyGqpdY6jDBk1dNewFU/YOl
DiZLuu06Xn2G8Fcsczhx/SvPLwcov2C5g+H9ixsWfIOqt1jh4PDQL9HTH8pn
WOnwa5/w5q4NUPUnVjp8L+6qXCwD5U9Y5WCQPk/FZyFUfcRqh+2rzra+5oPy
FdY4XOvwEClogap/scahp/PyFCtGKH/DWoesD9ILWps/QfgV6xxWveHiz7sN
lXdY71DFfUZ5e/xnewCG5cae
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDn9431ZcVv9gD+YaVDvYSShO7jB9B+E71Dvc
ZA/lzrv1HsI/0OQQf/BsW18blP+g1eHwubqrk9yhfIZOh/S9R927xKB8hR6H
dEmmitTnMPP6HSxDLmj78cPsm+gQFlu89edzmPmTHFat2eK8YyeUHzDF4fmv
rYt4J8Hsm+ogecA0emU+lF8w3eHQXpkfMjJQ8xhmOsytLHMT4oDyJ8xyEH01
SaPhDcw9cxxWzLDcOvMMlL9hrsP7iJV3H66H8h3mo9qXscBhF9fmRA5hmHsX
OrB4TFs7mwXK/7HQ4bVx6t3D72DuX+TwzHDn6ZxrUH7HYoel+qvff94P888S
B9Hg+imqK6B8iaUOj67uM7/OCzXvwVIH189310xmgvJXLHPw9j56Xf4DzL/L
HfjlDR8U3YHyLVY42NXpcjCcgoX/Sge27XrxZtug/BMrHTI48m9WccHCY5XD
lvMRN20ZofyI1Q5n1KufsH+Ehc8aB5/IZYKtD6D8F2sceNz47R5cgIXXWlT/
VKxz0Ff8WqAAC2+H9Q6GCe4sPgwf7AHas860
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgJ+ic9X/v1iD+YaVDuUeZrnCS/4DOE71DvE
Htj1c3ouVP5Ak4O8xfecTa0fIfwHrQ7r9jD5i3dA+QydDouqVhR96YTyFXoc
duiKmf9sg/Id+h1+VX5KnQlTbzARVf2BSQ7xhg9dpLqh/IApDmY2jjZiPTD7
pjp0b+Ld9AHGL5juELqjQ+txF8z+mQ6bu+883ArTP2GWg6Rn+547kz5A3TPH
oZL/X9y8BVD+hrkOa3fn7WBYC+U7zHeYyrGjT3cblJ+xwCFCcfXNkgNQvsFC
B/cTGu+un4Tyfyx0yG0/6VB8Cco/sMjhjUP67rhbUH7HYgchU5M56x5C+QFL
HA7a2p259QzKl1jq0Gl78JjRWyj/wVKH733r2aQ/Q/krljmw9r7RP5cE5Rcs
d9iYw5FwMgfKt1jhECAYb6ZaBuUzrHRwX1YQubIWyj+x0kHqQb38z1Yof8Iq
h9cPHKad74XyI1Y7FN1+ftlsKix81jgs/SJ1w3wOlP9ijUNQSeuGW4tg4bXW
YcWmky78K6D8inUOPCkHgwTXwcJvvYPcuotXVd0+2AMAtAzWEg==
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDiLeBeGMm17Zg7kG1Q4yd5WVJn6B8h3qHb5M
lZ9yUes1hH+gyaHkyFXhWy5vIPwHrQ6Jr/jMMnKhfIZOh0nu2RIOqm8hfIUe
h8t9vT3P1aF8h36Hj67XpWXyoXyDiQ7ZvCqra1ZB+QcmORwpWnrr4B0oP2CK
g/julkt32d9B7ZvqYL//lq2dLpRfMN1h40Z7fQVPKJ9hpsPJCxEHXNKg/Amz
HO50zlmp1wDlK8xxeJa4UDJhOpS/Ya5D5i5vN8c1UL7DfIfWJNYzmbuh/IwF
DltYH1ZPXwvlGyx0iBX5M2PGHSj/x0IHA4H48O5zUP6BRQ5SZlNDeO5C+R2L
HSQKLsQUvILyA5Y47Dglm/LyM5QvsdRhi+m3alaJ91D/LXWwj59wL4ILyl+x
zMFzcrpUkQiUX7DcQb4l+c0TWSjfYoXDHY6dTw+oQfkMKx1izr96uVIHyj+x
0kFnv7XeRBMof8Iqhx9/uiRYbaD8iNUOf7UtHfidoXyFNQ57A44b7/CE8l+s
cdijMG82ewCUv2GtQ6tndHeCE5Rfsc5h6/sHPzZHQvkO6x0Ep4jo5vm9twcA
cVHKZQ==
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnF3OJa9SP9gD+YaVDukHvQo/cX1EcJ3qHcI
PZHy/cNOqPyBJoczuvFnFn2B8h+0OhxluDT19I/3ED5Dp4PYXG0jUXuovEKP
g7O6V75bAZTv0O+g2PhpW9AcmH0THZzvHt1l+Aeq/8AkB4naYn1VHah8wBSH
jWe5nBYFw+yb6pBf83v6rM1Q9QXTHe5eXSL09C/M/pkOIaHN02SVoOonzHL4
mu0plOwIc88cB4lNp6QCj0DVb5jrcMlRXKKBEea++Q4lkh7HnktD+RkLHMw9
fsocM4W5d6FD7Mz0mebnofp/LETVf2CRA8Na1tRgSSi/Y7GDjoHBzCB9mH+W
ONQ5J0U/vgbVL7EUVf+DpQ7aKyS4uMSg/BXLHH4sTXU104TyC5Y7nLz3Jd/k
PlS/xQqHCNXduseZoPIMKx1+/VdY1SMM5Z9Y6cAVqyrcpQILj1UODD8LP3k/
huqPWO0gp5x1eRFMv8Iah2OzdslsFYLyX6xx2GHwwv+9IpS/Ya1DwKwNXT3P
oPor1jmYJV3e1wrT77DeQd3Q3pJd8IM9AACwxMc=
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDoHHz7R0TftoD+YaVDvY5P6YZ6X/GcJ3qHdI
PNLaeFkWKn+gyWHqyx/Hkh58gvAftDr08ZjwrYyB8hk6HVKOB6nLfIOqV+hx
OJy8ZFHTfCjfod9hEzvjhMMxMPsmOoTs235fShVm/iQH9ccqE39//QDhB0xx
mJzJuW7SWSj/wVQHy8s+hZ2roPyC6Q4+yze9t+qE8hlmOnDeqDMLzYPyJ8xy
KDcMKs4Kg/IV5jh0GWoZqLND7dsw18G4PPjL/5dQeYf5qPZlLHA4ISy4cv1W
KN9gocMSv/7/9+ZD+T8WOlS9TJ9wrxvKP7DIIfLaqhNllVB+x2KHihyFuRUZ
MP8scZjzR9LcIBzKl1jqYN9SprLIA+a/pQ5XHtzPFrGG8lcsc9B3cFjzZTXM
v8sdpvLyfhCeA+VbrHB417pio0EvzP8rHfb+2yz3thbKP7HSgftssdrZAlh4
rHIQU1+9NycFyo9Y7SCSf+rb7ghY+KxxeHlefs4aXyj/xRqHIxdEvxk6Q/kb
1jp8FgqabWAB5Vesc9DmSlt2VA8WfusdaneIcV9Q/WAPAB2b0BQ=
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDia/zY2ZHv+3B3MNqh1W7J1h+vX8Xwjfod5h
7sHQjJbdjA5g/oEmB+Vji6onZP+DyD9odag1SCo4uPAXhM/Q6XA87ErhvnXf
IXyFHgfbI77X+RZA5R36HULTlwStNPsBtW+iQ7Tg9q5Lxt8g/AOTHN71+2h0
zoTKB0xx0Dgb5f3vBlT+wVSHbyyM3yRCvkL4BdMdMnbVHHUIhNrHMNPh2MPQ
YrXPUPkJsxzij8mxXd/9BeqeOQ6uO60mmS39DOFvmOvg3CcVwRgKVe8w32ET
97K3Uv5Q9RkLHGqyFc/kJEPVGyx06CpgTt16Fyr/Y6FD/NMZThv/Q+UPLHJg
EfVWTDWG8jsWO6gdt4j52QxVH7DE4aTipS8sB6DyEksd9uS0Hn3KDeU/WOoQ
sOIMk3bKJwh/xTKH7bGX/hzog8oXLHeoKmXmnvMWKm+xwmHWk7nHm8OgfIaV
Dl96Y168SYGqP7HSYdej8o22l6HyE1Y5ZJ+XOHbHE8qPWO1gVMZ6psAZql5h
jcMu7hydon1Q+RdrHLy29GzLd4DyN6x1aJ89/dfW4x8h/Ip1DpGr/fwmrYbK
O6x34DGOq3Mw/2QPABe80K0=
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpG52l8Nol7bg7kG1Q6zsm/ecUuD8h3qHVZa
Fn81aX0D4R9ocmBezHfCYgWU/6DV4fHE+9Za8W8hfIZOhwZ/wbmeSVC+Qo+D
LfuzLVNuQfkO/Q7BkjN2fbkI5RtMdHgvvzzf1vgd1PxJDpUX//Qpq0L5AVMc
Puqm31lcBOU/mOqwNGLxPaMkKL9gukPlS7/P4XOhfIaZDtemcf0M7YHyJ8xy
MOqd8erZIShfYY5D2rEFwVs3Qvkb5jqYHHNd//0BlO8w3+GLh+UF6zNQfsYC
hzVmDkx/vkL5BgsdKrMvmcnKvIfwfyx0KLYz/3iKC8o/sMjhzcs9vTy6UH7H
Ygc2lX/WGTD1AUscWgWcX7VZQPkSSx3mq+3/vUoDyn+w1GHzz7Iz2q5Q/opl
DlYp3I6fTKH8guUOTnJ/vuoHQPkWKxzahGS6JzpC+QwrHZZMOP6sMBzKP7HS
YeayYxsqPaH8CascTE7d/6WRAOVHrHbICq7T3hkE5SuscZjIOjXxfTqU/2KN
wzez3BSOGih/w1qHN3MXC9zOgfIr1jm09jY7FMHMc1jvcPG4Kbtj8Xt7APRM
0II=
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgf1bb8dq35rD+YaVDv0XvqQZZwO5TvUO3iJ
ZE3xbIbyDzQ5ROS/t1jZAeU/aHUQOqcY+uT4OwifodOhMO3yUYUVUL5Cj0NA
vQf7izYo36HfwV95363zRVC+wUQHV453b11N3kPNn+RwuV3K4rsolB8wxcH5
+P89P39D1T+Y6mDHG89e+BTKL5ju0H+CP74+C6qeYabDo63r3JQDoPwJsxxO
X8l6sskCyleY4zB9jX/FDmUof8Nch3OLvTmE+qF8h/kOW/9EGGiUQPkZCxwm
NAR0R8RD+QYLHQL/bf4e5gPl/1joMFE7UERmCcz9ixy0H7TGPICZ17HY4d+f
ai2jWph/ljhwsy7e9iYDypdY6iCzsdJReTOU/2Cpg9Cajs26C6H8FcscTH7d
eZ85AcovWO6w5/bl/F0NUL7FCod8y7chHw/A/L/SQW65g57nOij/xEqHOImX
H6Xnw8JjlcNG23TzMzDzIlY7+AX95co7CQufNQ78P1bu278Lyn+xxmE1g8i1
a2tg4bXWIXZuzO+Jc6H8inUOBdMWvBOdCAu/9Q7cbf/dzx16bw8Af3XTkA==

         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu/9r/1ZJfjXHsw1qHbo7lRP79b9DeE71Dvs
vMJW3W//A8I/0ORQ4zhdZcP/nxD+g1aHR6qPLl099A3CZ+h0EHs20fa+J1S9
Qo9DZNflkrgbX6Hm9TvcXHwt9MLdz1D7JjoEr7wfutgBKn9gkkNxWJNz5nyo
fMAUB8+9FQuVrnyB2jfVwYd34cNZhVD5gukOctUbvLLrofIMMx20OhwFlntD
5SfMcti+zuTqH8tPUPfMcXiYy2HhYQCV3zDXgeuH+Hl3a6i8w3wHvYjIzFPi
UPmMBQ4Vn1T/W1hB5Q0WOnC95GxcywqV/7EQVf+BRQ7n+HbuLPkG5XcsdtAX
PMSrawPlByxxsP3PcJGh7yOEL7EUVf+DpQ67nz4w2jULKr9imcO6honVfDD9
BcsdNstWWVxYCpW3WOEw0S8mYQ9MnmGlQ2D3+mkG66DyJ1Y6GG8t5krUhPIn
rHJ491VM+dk2KD9itYNiU2qFqSWUr7DG4aBPjM7qfVD+izUOE+YWWSa4Q/kb
1jpMn/VxVdURKL9incOOJV0HWIOhfIf1Dk8TJyRcOfXRHgD25M5a
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnFRDyvjz3+zB3MNqh3kTtz6XBP8FcJ3qHcw
W2/VtfvEdwj/QJNDQ26R0oK0LxD+g1YHv23Rf9flQdUzdDp4c0++IMz/GcJX
6HFYcKxeY+F/KN+h34F/W8Z11pNQ/QYTUdUfmOTwt/dRG/sZKD9gisNTrSpm
/uRPUPumOnx7dMw7SAgqXzDd4fsknaOi9z9C7Z/p8O7PbIfcRqj6CbMcNhQc
VP9eBZVXmOMw/0z4gxZBqPyGuQ6bPyVz8s2E8h3mOzz7eUp+5xao+owFDkIL
j2+XNYHKGyx00Ff73MeeBZX/sdDht2PY1/cPofwDixzuW5vLOWlD+R2LHdZq
egfHz4HyA5Y4dFrW8OQwQ82TWOpw4PC9ucrxUPkHSx3W76ybf/AQlL9imcP2
tA1femDmFSx3CO6cVJDVBeVbrHBYzWXalvrvA9T/Kx3uCH5W7QmHyp9Y6bDJ
NCrf/SpUfsIqh6je+1mHYOZFrHZIucisX1QLC581Dgx7Qt9vZIHyX6xxcHnG
yCwXDOVvWOvwgV2Dte0B1LyKdQ5i6bEtr2DmOax30P3O8v3dgQ/2AIz6z+Y=

         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDltSHZMKNry1B3MNqh0yOk83HPaB8h3qHXiK
zIRWP3kD4R9ockgp3Kn0twEq/6DVYdPtfv6Eb1A+Q6fD/DZXg8OB7yB8hR6H
T9IynfKToXyHfgez2U61a85D+QYTUdUfmOTQInHhJmcXlB8wxaH+mKGHzy4o
/8FUBzcuo2vKT6D8gukOe3jzpl5gfg+1f6bDv1UPOzNVoPwJsxwSEx1vpDpC
+QpzHJ4s3yUbHg3lb5jrIHzT+uRhDijfYb6DhYbEA1V5KD9jgQPjtMo8KXMo
32Chg5EPm8xvHyj/x0KHX7rpVlyJUP6BRQ5m6pGt9cVQfsdih1Vdc7W6WqD8
gCUOSTNmXQudCOVLLHXYckP8YW4IlP9gqYNb7oP0YylQ/oplDlaT/s7hKIHy
C5Y7JHayJ/g3QfkWKxwmCraYbeqH+X+lw6K7y0TnR0L5J1Y6uDmolWSmw8Jj
lYOmkVZPFsy8iNUOH/7zSG1ugIXPGoddOX+4g3qg/BdrHOZ8WbEvZDosvNY6
uHZx39syH8qvWOfwuHFJ8bqVsPBb75DgnbNPe/N7ewAPN8jM
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDh4iFfYfBN7bg7kG1Q6TQoMYZT5D+Q71DqIP
DIRuSUD5B5ocbk/Y19csB+U/aHWYPGkP2xElKJ+h0yHWfU2WsBqUr9DjEFDF
8O64Asy8fgfvqa2qTO4foPZNRFV/YJJD/PzGJYW6UPmAKQ6pM35NS1GG8h9M
dWiO2rtprRSUXzDdwcRo7twaASifYaaDu4vo9BecUP6EWQ76Bhya/CxQvsIc
Bwu13Q+X/oXat2Gug+OtposWX2Dum++w4/H1jeefQ/kZCxwYT/9/bv0AFj4L
HbJO6EYH3ITyfyx00GDXE/xxCeb+RQ7Lun5mKJ6F8jsWO0z4ZF+29ziUH7DE
wfBMxtR9+6F8iaUOYvfOtJvvhoXnUod/HMYWDNuh/BXLHDbYf90osBnKL1ju
8NO9yENQAuofixUOW+y8SkNFYP5f6SDCfl59Kj+Uf2Klg43etoJAHlh4rHIw
+c4bbwsLn4jVDmw+i/+EsMHCZ42Dl8HqA1OYofwXaxzyLFIbfzJA+RvWOnzZ
d7/5xS+oeyrWOSh0JOs6f4OF33qH10nTd13/+N4eAG8nx50=
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxVz2sow1EYBvA/+SakSawwKZFoSUuERyFFkYgPciuFkkmGiCK5ls19RvzN
XIa5pMkX15LLF7LIrSZhIrlEQrntvB926nT69T7PW8czpygp15rjOO/f+/ea
TwUyHFWcyvAS8U9xJVTZpfupzc9mowYNLad3NfFsvloL1cpHvdsdmxvr4W/F
S794Zq4Ja3HDm3b5zKJWCAwKyYGE9rXhIbnk882RWayATB0VGvLyxPa34zrM
Ly3omDmxEw5DuuLLdWZjF458hUpF56PZ0h6Uea278+3MnBLWtwJxXgezvA8a
nT7QlfKiftjEmgYXybMDKDJVR8R0MWMQ9riRbFA/bwjRHrb3CZQX85DLHAr3
yO+8ZX91GA+Teu08uVGNyBbDhnM3c+IIzoU+FxfUd9FY9o0aVAic9Gry+CiE
B1GvH2TpGN62l7rjaV/wOG4jn0RKMjeB3RNtdi/ltyZQPWaauyLLtXitW1YG
UD5tEuFL37ISsmgK6qqsgQWyaQp6753UZ/LstOV/ynUQHt6npJAxg8yC9DP5
r38AEgbYEg==
         "]]}, {
        Hue[0.21101966249684523`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpvNU3p1O7/ag7kG1Q7MfP8mNit9gfAd6h1u
nux6/ejbRwj/QJOD8VwvV41fUP6DVgdNyYsCc/9A+QydDiZvdk9v+wflK/Q4
uL1P6S7/DeU79DtweiR1KP2F8g0moqo/MMlh4o0LXFv+Q/kBUxzerrvbs43h
E9S+qQ6OD3fHeZz7AOEXTHe491j8VPN9KJ9hpkOS1fJt9h+h/AmzHGIu+M9k
YYS5Z47Dm9W8qxT5ofwNcx1k//wKuiYNc998h5LYRSoOqlB+xgKHddNdD5zW
h7l3oYPmu2UWuZZQ/o+FDqpGLxdoNEHtO7DIYVY4h/zniVB+x2KHghm5ce0L
oPyAJQ4uq6d+Ll4D5UssdZjQ896aeyeU/2Cpw6qyrQePHIHyVyxzuMW4f8m2
8zD/LnfoPLld+8tNKN9ihcOfhedM+x7D/L/SQeE+Z05PPJR/YqVD0jnJ7zo5
sPBY5TAtqNlMtALKj1jtsO2VYW1IM5SvsMbB/O7Dsh+9UP6LNQ4SLzbE886A
8jesRfVPxTqHyJCc+CUroXyH9Q5O1kqX/Dd9sAcAf03WnA==
         "]]}, {
        Hue[0.44708763999663503`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqe3bDOOTvhgD+YaVDvIJJgtmFD/EcJ3qHe4
4Px3jvsEKP9Ak4Na3vRG871Q9Q9aHbZ8V+B5OBUqz9Dp4Po0v/DjB6i8Qo+D
1/s/SlszoHyHfgeJp/yvPvNC1RtMdDj5dHFY11yo/IFJDjL7/Rri7KD8gCkO
N7qvmAQdhtk31UHlp56Wdx6UXzDd4UfuYV1vRSifYabDtZ9Mp6smQPkTZjn4
XghbW+QDc88cBz/pQoFNa6H8DXMd1k7v1f8HM89hvoNs2dl3biZQfsYChy/F
Ph8iO2Hhs9Dh87qKoxkhUP6PhQ6Ox2+Y31OGuX+Rw5mC2gWZ+VB+x2KHb56L
6/odYf5Z4pAwIT5psiiUL7HUYXNDXVh7JMx/Sx2eH2kL1jWE8lcsc3jpz5LY
xA3z73IHkdbmaZaeUL7FCofNn89wa6jC/L/SIV08+p1ELJR/YqXDqUehmyZZ
wcJjlYOVvFkUixSUH7Ha4eeljccO+cHCZ43D5xdrpmXpQ/kv1jjY1D65tl0Q
Fl5rUf1Tsc4h43CqwDMVWPitd7hndffoQs4P9gA36NGS
         "]]}, {
        Hue[0.6831556174964248, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDiYxf6ZvV/pkD+YaVDvkajk0rvvyAcJ3qHdo
v/bw8gOWjxD+gSYHu69Cr6MtoPIPWh3ui7266MsFlWfodDicbO5XnQWVV+hx
WHF0zT5zTqi8Q7+DS7l9+/Q2qLzBRIcN2g5aqySh/AOTHI7v4430nQvlB0xx
cGK00nazg9k31UFfP+zDj7VQfsF0h/sJsYmq4VA+w0yHUA4TDyZeKH/CLIcD
Ofxh53Ng7pnjoPn6+6pATSh/w1yHwANv76rVwfw7H9W+jAUOwgzrcnK7YO5d
6HD8+ZrC5EAo/8dChzSOQ07isjD3L3L4zli8ujgRyu9Y7GD0Jka31wDmnyUO
Ib6vNablQvkSSx1WvHucftAe5r+lDvP3374tLArlr1jmULvbe2eAH8y/yx1C
7yXUv1KF8i1WOJzzvafCHw3z/0qHmTOurS0zhvJPrHQQyxSamc0PC49VDpNl
nwkvdYDyI1Y7sF2z+WwtBwufNQ58S9eVpftA+S/WOBzW0f9Uqw0Lr7UOJp15
k8y4ofyKdQ5ZHb/lU8xg4bfe4Zp13ZcciQ/2AADzxME=
         "]]}, {
        Hue[0.9192235949962146, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqH/A8IV3v+zB3MNqh3s86I5Pr7+A+E71Ds4
nvBacO3sTwj/QJND3yvRE9tX/YbwH7Q6XN/s2b/e4geEz9DpcKhOoIyp6yuE
r9DjUHDnkKiu/Xeoef0OH1bEnZFTgcobTHSQaD1yYuvcb1DzJznsL59yeNvD
LxB+wBSHfOuFfN9TPkPtm+qwfut75h8boPIF0x0OX9q1cnEyVJ5hpsPBYP8r
Uzqg8hNmOYidNF8enQqVV5jjsKuJY+rWhE8Q/oa5Ds//J93dnQaVd5jv8Cfg
1JHOCqh8xgIH4XuRa2fD9BssdKjcJCDt1geV/7HQYXKW64NrJz5C3b/IQaDy
hHvXAqh8x2KHE57PZ/a9hMoHLHF41ylxOmwdVF5iqUNY9PZp35mh/AdLHY49
L9F+uBvKX7HM4fmWzpnJMlB+wXKHE67HnbTaoeZZrHBY6rjxwmFDqDzDSge/
PN/jvYuh8idWOpw0THBxcobKT1jl0P+iV+jPXqh8xGoHj82xipIOUL7CGoeJ
jwVKJlyF8l+scTB+Nm3q6lgof8NaVP9UrHPol2h8rVMO5TusdxDfIl0Tw/XR
HgBDuNj8
         "]]}, {
        Hue[0.15529157249600445`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqbbfTgYRT/ag7kG1Q7yf38tZv/4HsJ3qHf4
e33PPrVIKP9AkwO/sNEH9eNQ/oNWhw9nYyY+5PkA4TN0OnTPP+DBqQvlK/Q4
LPy0X2mhE5Tv0O8Q8ljxHH8ElG8w0YFvgnR+dRrM/EkOc7/u2n54AZQfMMXB
69e1Wfsuweyb6rBkTRC3yD8ov2C6w+bDVz8U8MPsn+kg9b1dJ0gByp8wy8Gh
ddHMEH2Ye+Y4bPa2nn/YBsrfMNdhQ7BesO82mH/no9qXscAhQMvqtucHKN9g
ocPrnAmTFrFC9f9Y6JD/t0GRUQjKP7DIIdRo5o8kWSi/Y7FD7tMJ+k/VofyA
JQ5usV4tEgZQvsRSB+2Pm6cvvQrz31KHF97Ly7+/hvJXLHOwm/BiWRoDVH3B
codLk/mfqXJB+RYrHNIPZ3R4CsP8v9LhArddxwIpKP/ESoe7j1VS9inBwmOV
w6609YuTr0PNj1jtcO4qK0PwSyhfYY3Dk+R327x+Qfkv1jiohFep6sP8u2Gt
w7M7ZzoPcUP5FescmrdzXGOH2e+w3qFk6fLOT5If7AED8NBC
         "]]}, {
        Hue[0.39135954999579425`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhZ7Dt7YqPrOHsw1qHZYHjTvqw7jewjfod5B
Y/mbO5MjPkD4B5ocoiTZMzp1ofwHrQ4xCudczXmhfIZOB41Z4iXSL6D6FXoc
zlhXXd+xHWZev0P8elObhulQvsFEh8Jt9lcW1kD5ByY57Ni+JuVRKpQfMMXh
xOObW/ONYfZNdShKebXspCKUXzDdgW3+p03H+GH2z3Sonr58ow8TlD9hlsOf
KIY3C9/A3DPHIaEhY6bedSh/w1yH5VrSXPcPw9w330G7cuv5rnVQfsYCh9J4
d5+r82DuXeiwu4nJIUsGav6PhQ479/l+DBOChc8ih8IXYTWCnFB+x2IHkfWz
9ZoYoPyAJQ5/1ZhiVd5BzZNY6jD9iv2t9vtQ/oOlDrduXln/5iKUv2KZg+Uk
PkPLo1B+wXKHrQ4Z/8N2QvkWKxwspPnj5wvD/L/S4QPz0pcB3FD+iZUOwjZL
0rawwMJjlcODCRlHPvyB6o9Y7dCisXmN5kdY+KxxCGsJM2V9BuW/WOPQvaas
r+w2LLzWOiS0qB+LOQ/lV6xzYJw21f8ZzH0O6x0qip/uXw9MDwBQGNCP
         "]]}, {
        Hue[0.6274275274955841, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDouXc7TVB721B3MNqh26QgscS+KhfId6hwlN
8mHZm6H8A00OSu8f+h/5AeU/aHX4NvH//Os67yB8hk6H+CRVl6RQKF+hx0H4
63tx4Two36Hf4X+DVHNwJ5RvMNEhdd9SPt4FUP6BSQ6595Yoyza9h/ADpjh0
T+VZ+7AZyn8w1cHz8CeOrFYov2C6g2VTlM6uRiifYaaDUc7G+SYw9RNmOTwL
51RpbYHyFeY4fDZ7H7wJpn/DXIeyJasrDrZB+Q7zUe3LWODg8DVJ9y1Mv8FC
h0XP06sewvT/WIiq/8AiB+Ouzmn97VB+x2KHhzLXHvl2wPyzxOFp59EVTDD1
EktR9T9Y6qAffUe9GKZ/xTIHy66FrJIw/QXLHWJWS5ltgfEtVjhM3PB9h2sn
zP8rHQ4k3ZgbC9N/YqVDk7buzA8w/oRVDg8Prl4bcxXKj1jtcCxBQGrfZVj4
rHHwTH3zyPQSlP9ijYN0sovroQuw8FrrsO+rbKzPWSi/Yp1D/jHX/VxnYOG3
3uFZ/6sTN069twcAMITVfg==
         "]]}, {
        Hue[0.8634955049953739, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhyeeftF53+wB3MNqh3EIm/+9Xb5COE71Dss
qX38xfATVP5Ak8ORzkSjQ9veQ/gPWh3O/l3hr2kElWfodNDPCv67oxTKV+hx
EC5/s7p/OZTv0O+Q/v/Q5L6fUP0GEx3aZOIkHxnDzJ/k8IXjomdnEpQfMMVB
a4Llo6BDMPumOjQXLS2T4YfKF0x3WP8ofuE+E5j9Mx38bfq+xkdA+RNmObSI
nQiY8wKqX2GOg5bE8UuTxaHyG+Y6LPikdyzEHOa++Q7tbFVOokFQfsYCh0tF
P4xqGWDhs9BhSc/ENElZKP/HQlT9BxY5CH1wVVB9CLWvY7HDndig7/VcMP8s
cbBTOKf7RwHKl1iKqv/BUoetCXFTVn2B6l+xzIH9hE5ZlQDMv8sdnutEbDFS
hfItVjg8Z3lS9PEOVD3DSoeDiiwWuxih8idWOuxYsPwkjygsPFY51K4TDndV
h/IjVjsIGcTXK7+Fhc8ah181mqoLOaDyL9Y4HPAJ3r5XEhZeax1O13lKv9aA
8ivWOVTcNFGU+AXV77De4V2t/HN93g/2AGDHytw=
         "]]}, {
        Hue[0.09956348249516367, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDiGWDKG1yV/twVyDagfOjO2s7v8/Q/gO9Q43
LjXsKbr+EcI/0OTAnnk3ZtMtKP9BqwO/2O/bSnehfIZOh1mGZlyc96F8hR6H
S5OtIv7fhvId+h1Ocv3KXA5TbzARVf2BSQ7MDftzTR5A+QFTHNZcT9M2fQiz
b6rDdPmPR4QfQfkF0x2OSc5o/nPwA9T+mQ4839XTZ16G8ifMclglq7bR6TGU
rzDHQYL1DZ/7Ryh/w1yHs9tmVj/9C+U7zHd4mM1wxY4dan7GAofTsfa/twvC
3LvQofrm7xke0lD+j4UOqzdeX82rAnP/IoeYdLdpn0ug5nUsdmDXUwzKa4by
A5Y4ZG3V5XTrh/IlljpsN9zocXw2lP9gqcO0O9s8c5ZD+SuWOdhmx7F6b4Ly
C5Y7xK2YvqBsD5RvscIhexvX3f9HYf5f6dC7lbVsxVko/8RKhw9bLvcqXIOF
xyqHbaqen5yiofyI1Q4+59S68tJg4bPGwXzL2Sf/C6D8F2scvLw+aTBXw8Jr
Lap/KtY5PP7qk1DdAwu/9Q6r971cJj71gz0AdfvReg==
         "]]}, {
        Hue[0.3356314599949535, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDuKF0kU/r7+zB3MNqh1uGbg1ubF+gPAd6h3i
pc8eNSp6D+EfaHJg4b1wu/sBlP+g1YHxVVL7FkmoeoZOB4vfN95/tYTyFXoc
Nsj3cs33h5nX76Ces+eqXCqUbzDRwTD/ocykepj5kxw+nl/3jWMXlB8wxeFH
6JkT2m9g9k11qNXIeXORG6q/YLqDB0/9J1cZmP0zHUrVLq0y0YXyJ8xy0Oj9
K+psA3PPHIf2YvX9l1ZDzdsw10GyoPT44vNQvsN8VPsyFji0JogEPWeBuXeh
g1V22b58ISj/x0KHj9NL9G/IQfkHFjnI/F4n56wF5XcsdkiRkNl91gTKD1ji
cP7M8xec16HmSyx1OBDrKy76Hua/pQ75nd5pe5ig6lcsc7h61GKJPi/Mv8sd
hMT41n4Tg/ItVji89D0wR1EB5v+VDr91+45NPQk178RKhw0s6b0n7kL5E1Y5
cPGuab/yAcqPWO3A/tBaJpMRFj5rHJxP/d73mhPKf7HGYcJdta+/BaH8DWsd
+nNrZ02RgPIr1jl8bnm09b48LH7XO5xQaOG3evTeHgATKM7M
         "]]}, {
        Hue[0.5716994374947433, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDjfPp6x4J/nXHsw1qHawO3ltfrMykwOY71Dv
8JKV3+iHHgOEf6DJYV5U8SuPw78h6h+0Ojy6Y11r6PcDwmfodOBazRKYzQKV
V+hxKN7549YSH6i8Q79DdsVrTj3Jb1D7JjoonZX9cywAKn9gksPMuyuOZBVD
5QOmOCRPc+nnu/UFat9UB4Uvx9Yv3wqVL5jukPbfddN5969Q+2c6yO6YsNSL
A6p+wiwHdsOqDOMFUHmFOQ6CQZba02qh8hvmOrSI7Jf8Vv4Z6r75qPZlLHCI
blV4L/wCKm+w0MHDb98XUW4o/8dCh/itF6MWuEPVH1jkULQgL6m0AirfsdiB
4VH+IoOdn6D+WeIguEXg4MnLUHmJpQ7etgzu3+Sg/AdLHb7ffL9gchlU/Ypl
Duqs2o6nYOYVLHfo2rfYPeoGVN5ihUObR/Dm145QPsNKh27e96EXdaDqT6x0
kN+XNe34HKj8hFUOrvYc0l9EoPyI1Q56/9PT77yD8hXWODy6tne7ag6U/2KN
Q+Cn7jafDx+h4bXWgeHJ/dtLKqH8inUOX+a8EV0Is99hvcOaoODAx+c/2gMA
OqTPOw==
         "]]}, {
        Hue[0.8077674149945295, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnlTLH7frv1qD+YaVDvYaHxVeCX7E8J3qHfY
//1v+LmMbxD+gSYHzaq+2JcC3yH8B60OSrO4lPsMv0D4DJ0Oz7/yy9t/hvIV
ehyufZKv3379E9S8fgftq3csKqZ+hto30UFubeLOzcZQ9QcmOayKm5AguRyq
PmCKg2HN+vdH7KHqH0x12Gyhzqzw4yOEXzDdoeTxOsVtrVD1DDMdlnx68W5W
PlR+wiyH/qO32uZ+h/IV5jjoS/2eH1EIVb9hroM7x0zJe61QeYf5DscDdcId
YOozFjjEzF4YflgNyjdY6JBdGPw2cQqU/2Ohw36lmtOPYe45sMjB3vt2tbcj
lN+x2MFA5NdTt4VQfsASh7xPRvqPfnyA8CWWOpzebN4yKQQq/2Cpw68S3u+f
V0L5K5Y56FjdKZ0kDPPvcgdjtqV1PalQvsUKh2p7zvtrb0HNY1jpYD9rqZK4
BlT+xEqH/bemtloWwcJjlcPu9auOvfgEVR+x2mFr6YXqDCtY+KxxUHsbI1B+
GCr/Yo1Ds5xYagkHVH7DWofOS7NYTnhA+RXrHI5+PfE3A2a/w3oH7Y0Mc05K
frQHAGE21So=
         "]]}, {
        Hue[0.04383539249432289, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvuXLNVe7/fFHsw1qHaQTfe+VfXnE4TvUO9g
feGBid/hzxD+gSaHPO2ZPlPiofwHrQ513FJsG0WgfIZOh96jpx8k34LqV+hx
OHWX4+XdLx+g5vU7pKfN6ir4BuUbTHSY8S/A68B3KP/AJIf9KQ7dd35A+QFT
HNZftvW78BPKfzDVYZ76t2WLf0H5BdMdSkXtbJbD1DPMdDgwm1u8GKZ+wiyH
lfUJ0Row9QpzHA7dujP9FIy/Ya5DBVvp0pjfMPfNR7UvY4HDyj/TUxNg6g0W
OmSqb/r7GMb/sRBV/4FFDgXSsmtOw/gdix0i1Yp0jf7A/LPEoVIy3PZbJJQv
sdThy+b0MMkEmP+WOtzgd4q4kArlr1jmsEx9CrdaNsy/yx1q3y28qlwA5Vus
cEi+ue79xRKY/1c6nItrMf9YDuWfWOnQUyrNI1cDC49VDnMCnnzgbYDyI1Y7
WD368e1oMyx81jjcTG9b7NUO5b9Y41B3WIdpQRcsvNY6zLjmrrOlB8qvWOeQ
NS3AaE8/LPzWO2wt21c0b9IHewCB/dqr
         "]]}, {
        Hue[0.27990336999410914`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpuy/547OeOfPZhrUO3wmW1DqsXsPxC+Q70D
w7tZrRdbf0L4B5ocpNrYNtbH/obwH7Q6FHuctRf9+h3CZ+h0WHKydf0T368Q
vkKPw1nnr5re/75Bzet3+BekkSb78gvUvokOb9wkW6fFQeUPTHI4M4Fha95y
qHzAFIfJy9asu6r3GWrfVIe2/x8YLcqh8gXTHawPcPxt1YXKM8x0YOnz73b1
h8pPmOWg/KpOz1IfKq8wx8FC90hemRFUfsNch5l1C3unGkDlHeY7vDW46vLH
5ROEn7HAYc7c940VMP0GCx0uPr37oToKKv9jIar+A4scLBdbK/XmQOU7Fjuc
udutNWH7R6h/ljhsX2egZFwFlZdY6nC93apw/UWo/IOlDt9vntg+vR0qv2KZ
g5dPrdf1l1D5guUOu2qWP3OaDJW3WOHwOaPlxu9/UHmGlQ7La9p3BhVB+SdW
Opjwb67wFICqn7DKQVj2un15D1Q+YrXD3zWLHn9SgMorrHH4ITv/4snFUPkX
axx0XF5NNtaF8jesRfVPxTqHwmD7XbluUL7DeoeMdWa8zac+2gMAxlzW0Q==

         "]]}, {
        Hue[0.5159713474939025, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpy93Eyak97ag7kG1Q5bZRd6yB6D8h3qHUrb
g0T+Rb+D8A80OSjHLO1LfwPlP2h1iHB8ZXgz4j2Ez9DpkF10R+Z5BlReocch
RFng3a8jUL5Dv8OzS9nrc8Wh6g0mOvwPPRyqFwPlH5jk8OfI0vrkaVB+wBSH
9NX1xeu+w+yb6lBzXn3rFQOofMF0h8sHdmrfjIXZP9NhTtPq9S5dUP6EWQ6/
E3WNj2yE8hXmOBhrl8fEWEP5G+Y6zE+S3ncrCcp3mO+wRp2l6nATlJ+xwEH6
rgdXzmKYexc6aOQk19ofhPJ/LETVf2CRw7786IwHDVB+x2KH4knTrGbMgfln
icODhrm3nTdD+RJLHewepbCZnIbyHyx1qL98a3LdQyh/xTKHg5e9OZ9Ogfl3
uUPxd55d9auhfIsVDsJzbnZuPADz/0oHLYe2WSqXoPwTKx3eN57cwdgPC49V
DrVeUs8NYf6JWO3Q/TphpvM2WPiscTif6vbX9wSU/2KNwxdZ7YupN2HhtRbV
PxXrHLqSnh1/vRYWfusdGG5ZFqTve28PAP9c1Kc=
         "]]}, {
        Hue[0.7520393249936888, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDo/KF+7Z8PiHPZhrUO2QP8v6lo7rdwjfod7h
k01nFdvhLxD+gSaHZG7NmqNxXyH8B60OGyau/rXzMpTP0OngPknL7l3GZwhf
ocfhgMDVRY2foXyHfgfuH91b7ql8gto30eHlYTHWiu1Q/oFJDm1Rf32nGkPV
B0xx4D5xMb/i6keofVMd9sy5GyIdAFVfMN3Becr5I2U7oHyGmQ63t/zoTJwP
VT9hloOpcofhBA6ovMIch3OzRJ5vToPyN8x1WG+k7XawGqreYT6qfRkLHO5x
7S5pZoPyDRY6zM22lKyMh/J/LHQ4HzJ5NedGKP/AIoeAW+dj/P98gPA7FjsU
Wc7uz/aGygcscWhTrPFmnQzlSyx1aPjv/GPvJ6j6B0sdyv+qFP+1hMqvWOaw
yab7dH0NlF+w3EHq/Y472W+g6i1WOKzI1p5irAuVZ1jpYB23ROPTMqj8iZUO
Hpturfr4FMqfsMrhPvPaLZGKUPURqx349PSUzy2HyiuscWC4IPds3UMo/8Ua
B5VUyYpWCaj6DWsdzjqw8xfC1Fesc1hczbL+9x0o32G9Q2aoo8Zr/o/2AKcR
00A=
         "]]}, {
        Hue[0.9881073024934821, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDh6n4rVZXF/bg7kG1Q79MvOj35ZA+Q71DjGZ
wvIq/6H8A00OzlPvlQe0vIHwH7Q67Nrv+aNxwlsIn6HT4Uy324Y9p6F8hR6H
Zdd43jR9hvId+h2uHS71+Sv1DmrfRAfVSO4HL6yh/AOTHHhjXz84Hg7lB0xx
2Mj2oX5dPpT/YKpDinpFZXoLlF8w3aF6gc//lROhfIaZDicYK8M/L4TyJ8xy
4Nat2pq3AcpXmOMwTejFzZS9UP6GuQ7xR2u5cnjeQ9033+Gy017+B+eh8hkL
HFLsb2beFYPKGyx0cD6vkqYoC+X/WOiw/kEm7wMlKP/AIocXJRdCNTWg/I7F
DhFJ/oe4dKH8gCUOzT/qls7Rg/Illjrwro4+9tIIyn+w1IH9fbbqazMof8Uy
B3eH3sAVVlB+wXIHRqWWB+p2UL7FCgdut0tT8x2hfIaVDlMrhPgknaD8Eysd
Gps/r9yUA+VPWOXwsfDPmrg8KD9itcN0Ydtvn/KhfIU1DivyZAsLC6H8F2sc
JtqnX71dBOVvWOvg/TIpXAXGr1jnsMvpk2RFMSz81jvUJH4M2l3y3h4AfKLN
lw==
         "]]}, {
        Hue[0.22417527999326836`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlc291j5ur2zB3MNqh2ecIlG6BhC+Q71Dh3C
YfnMflD+gSaHxVcd/rYHQ/kPWh02MxbsXBMO5TN0Ojwy5m97FgXlK/Q48Kx9
PGlvKMy8fodjrMtYvzu/h9o30eGI4BqnQ0ZQ/oFJDqHWKcKGKlB+wBSH2bu1
ZTeLQ/kPpjpcl96TeY8Hyi+Y7qDIaShe+A9m/0yHiG1988/0QeUnzHLIPa6r
oFsP5SvMcbi883arYSGUv2GuQ96OG39mpUD5DvMdoqZnSqeHQvkZCxxWfAjZ
ZOENc+9CB+biqogFm6D8H0C+bP6GrKUw9y9yWJf69JXTTCi/Y7FD92mbb5ww
9wQscfBytUpZ1QDlSyx10L7qUylfDvPfUgd39WULbPKg/BXLHPzWrhT9mArz
73KH9yz/ea5shPItVjiscPZJ/rgcymdY6XB1wZtw0zlQ/omVDuX/34d1TYaF
xyqH9nXHb8R2Q/kRqx0+uT5du/Y0LHzWOMiesanMOwTlv1jjUCTTN2P1Tlh4
rXWY++Swhsd6KL9incPcxwIsBTD7HdY7yH7aO/fn/Pf2AI7ZzuM=
         "]]}, {
        Hue[0.4602432574930617, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDutC2nuXeLE4gLkG1Q5fV//u2vyDCcJ3qHeY
NdVVWfctA4R/oMkhffrEZ1M5/9qD+Q9aHf5ufTpp0ieoPEOnQ6Z06QQLlX8Q
eYUeB/tVVRf/SP+G8B36HdbN+T0xdvkPCN9gosOmk7nsXx3/QPgHJjlwzHLe
aCL+C8IPmOLwryx3VpU1VP2DqQ5uJ5gqmed/g/ALpjuYGV69/zL/J4TPMNPh
5wntDb8/fofwJ8xySD74ySR+HlS9whyHDceOh2blfYXwN8x18Fk2x2byQah6
h/kOd6zLn76cC1WfscBh2RXhWcXToeoNFjpsY4nZe2D5Fwj/x0KHqV1Nm36d
/gx1/yKHwN4HUrd2QNV3LHZQbT2kWf4Yqj5giUPl47LVn6ShfImlDh5+0eK9
KVD9D5Y6TFT/GPhPAKp/xTKH5Poc26WxUPUFyx0iJl+Yd30rVL3FCgd3p0d/
GySgfIaVDtesJ+68MhGq/sRKB/7sV/qB36HyE1Y52AauOz8nFcqPWO2wMiRb
9M/tT9DwWeOw3pd3x/FIKP/FGoeIHWyMt5dD1W9Y67B9ifuz66pQfsU6hz+6
29onrYaqd1jvECKYsM3B/JM9AIWz1n4=
         "]]}, {
        Hue[0.696311234992848, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlFcW13CZ72xB3MNqh3meH1fcysTyneod5i3
4oQq++W3EP6BJocvAtf5/bOh/AetDlF6NfvEbd5B+AydDnumH0lbdA/KV+hx
UD9w3KSmGMp36Hd4y+3Vk/UZyjeY6JBlzOn5fB6Uf2CSwz/BTP1H7O8h/IAp
Du+W3lrzeS9U/sFUh5PL3HxfiEHlC6Y7sLYtex92AWb/TAcvWc8bu2Sh8hNm
OUj3Wrd3J0H5CnMcekoYTXzUofwNcx0C6l8WHU2B8h3mO9i8eL3TURvKz1jg
oG2fr/AZpt9goUNBwoyLfwyh/B8LUfUfWOSw8vuZlobJUH7HYgfj2IOGAWkw
/yxxaGfItOjpg/IllqLqf7DUwWdVpA9fL5S/YpnDc83OXmmY/oLlDtu+zO0+
2A3lW6xwaIjLrOJbD+UzrHRwlgnW1OmA8k+sdPiv6c9WvxIWHqsc5t0W2eHT
DuVHrHbw91r++MwyWPiscejUzEpsbYPyX6xxqGt3sk9eAguvtQ7q6jxfDjZD
+RXrHOQeL5Y3WgALv/UOU5lZPtrvfm8PAOFmzCs=
         "]]}, {
        Hue[0.9323792124926413, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhrPDB8xzftkD+YaVDvM99uf/SX9I4TvUO8Q
fGuS+uT9UP6BJocjE7kXZStA+Q9aHRIT/rx/vuIDhM/Q6eDgGeYnfxwqr9Dj
8KO18GpqEMy8fofETEXGj9+g6g0mOqx5UhC5dhWUf2CSg/vBrXIyWVB+wBQH
vnU9TavUYPZNdXCc/+puwTOofMF0h/mSIUYTVsPsn+nwY9V0PcUqKH/CLAfd
iKlJOn5QvsIch7tTTMtm34LyN8x1YFt/3tdyHZTvMN+h/sG2Wp4WKD9jgcOO
N1NEF8XD3LvQYdGsOLMEOyj/x0JU/QcWOWyLWidY0wPldyx2yMjk2BqaC/PP
Eodzv6Yd+ghzj8RSB+W6NavMTaD8B0sdpp1Z1qw8EcpfscxBV77my59SmH+X
OxjMZDk/NQbKt1jh0N953OKIC8z/Kx3uNzy7oqQL5Z9Y6XDptcOTWTWw8Fjl
oP/Z+eqrVCg/YrUD++l5u2oCYOGzxmFiAWOHmQ2U/2KNw5Yb/W8ZNGHhtRbV
PxXrHLxNdf7ciYSF33qHU9dNHoe5f7AHADul0b0=
         "]]}, {
        Hue[0.16844718999242758`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt+P2Hw7lPzRHsw1qHboOyR/Ze+UTxC+Q70D
z7PNN/9O/gDhH2hy4J+iYRR3DKr+QauDeU6hoKAclM/Q6bD+6OZZXLOh6hV6
HGZevKS3MAcq79DvMMNw46PwX1B5g4mo6g9MclBdedQm2gvKD5jiMKvh/QvG
l1D+g6kOXQaT9O/NhfILpjtEBnq/qYmE8hlmOpw7nuRrdxvKnzDL4f+F5a2p
MPUKcxzmdN39yZUG5W+Y6+C0NO2zqQmU7zDfQe7zvEh+mPqMBQ5W5lss3XJh
7l3oYJZrJbrIEcr/sdAhxDBv4TxJmPsXOUxqOy1WXALldyx2eCzOMq3PF+af
JQ4PHvmsY9KA8iWWOjRLcNVOq4D5b6nDTsOkiimhUP6KZQ49W4van8HcV7Dc
gee7jkywGJRvscIheV+8fXoszP8rHZo9I08Y2kH5J1Y6TFN2ecitBAuPVQ7M
KsW6G5Og/IjVDtyy1QfE3WHhs8ZBdOHJrN86UP6LNQ5ir02y7TNg4bUW1T8V
6xxescpctzOFhd96h/rIJ2xych/sATS8x8M=
         "]]}, {
        Hue[0.40451516749222094`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnPzTy+4Y/bWHsw1qHZYcOfiq+NX3kD4DvUO
s1t3Bnw4AZU/0ORQ/XW+bKnhOwj/QatD0qQlr9ZWQ+UZOh0q/+RdmHUVylfo
cWgxSW96LQpV79DvYHDVuqkhEMo3mOjAcaLjpH4zlH9gkkNd+xRHh7VQfsAU
h4oDQQeDLsLsm+pQOFfFeeYHKL9guoOm5Zk9rOzvofbPdFB+rC5RJg/lT5jl
cP/tA0tDUyhfYY5DQZG/7xIPKH/DXIc9t523qUVB+Q7zHV4+vbhGNw3Kz1jg
kKug/IJZDMo3WOiQqvjUKV8dyv+x0OHkrX9v082h/AOLHIJ0l3tKuUH5HYsd
wnMTn60OhvIDljis2Cat4xoL5UssdZi0/fMhrkwo/8FShy/XK1kYS6D8Fcsc
nBL4FtjUQfkFyx2cS0Jnn2+H8i1WODh/bthzcgLM/ysdKrWO3Ts2Dco/sdLh
JOdvzpPzYOGxyuH9jK6gsGVQfsRqhwdLGjd2F8PCZ43DdZe/lrerofwXaxwe
iPxh2d0MC6+1Dj1MgeeUOqH8inUOa3Y92+0Bs99hvcMk7oPTRae/twcA0QDT
zw==
         "]]}, {
        Hue[0.6405831449920072, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrZ7DHd9uPXHHsw1qHYIvng5xeEPowOY71Dv
cNouLO8DNwOEf6DJ4dSts6sN2n9D1D9odajcZCI+VfIHhM/Q6ZC9/o3Zh5O/
IHyFHocvy2rOc0tA5R36HZTYY5ZHvPwKtW+iw7os638qMlD5A5McVhy5zXfJ
6RuEHzDF4WDUgg+v13yB2jfVIV6nYmZ9C1S+YLrDWVGfxv2SUPMYZjrcTIkV
eXfnM4Q/YZZDTIrKk+RCqLzCHId1/y23WgdCzdsw18G6K/PTRV+oeof5qPZl
LHCYKtYj8XcPVN5gocNjn90Vdx9+gvB/LHRYMevGxl3SUPUHFjnMlJuqHuAH
Vd+x2GHBrazslROg6gOWOGy1XXP13gqovMRSh9AzH45M+gqVf7DUgbs9c9Yc
Pyh/xTIH9qQ5fktg5hUsd9gdkzWnfz1U3mKFg8xyqeVpUlA+w0qH8t0M1/yZ
oepPrHQ47Vl0r7YEKj9hlYPNw6aUC28/QvgRqx14jBYzPzwKlVdY4/DwRr6L
qwuU/2KNw8onVeoVJ6HqN6xF9U/FOofyRLPVMjD7HdY7uKvoSYWu/GgPAPO/
1Ds=
         "]]}, {
        Hue[0.8766511224918005, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpM+R7H4FnywB3MNqh0kI3xXh3t9hPAd6h2i
i6cZMKlA+QeaHJY71hia6kDVP2h1mNXP+HDRbiifodPhmuUEaXc2KF+hx+Fe
gKHo+goo36HfYXb94haRWzD7JjowtyxI6PCH8g9McojXuduluhTKD5jiICRs
xyxtBLNvqsP0c1t7vOqg/ILpDhm34huLJGH2z3Qw0+/nkIyD8ifMcmjPMH7b
wwFzzxyHxtkLch66Qfkb5jrYbt0zh+fbe6j75qPal7HA4dgUM2GeNJh7FzqI
vWjcsVcJyv+x0CFj+9b3DMEw9y9yCMtda39FFMrvWOyQmjhT/JETzD9LHGQW
5DL5c0L5EksdMuPPKk81hvlvqYPajdv3b/2HumfFMof9C90Xb1aH+Xe5Q9Pl
n2mvfKB8ixUO528n1vnKwvy/0iHuLNf8IHso/wSQL82w9ZUQLDxWOUzzcVCt
MIHyI1Y7MGd+T77MBQufNQ5tMgdST2pB+S/WOHimGC+bygwLr7UOogreDzkV
ofyKdQ5/mmvExH/Awm+9wzaJCjV7YHwAAF3yvu8=
         "]]}, {
        Hue[0.1127190999915868, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu8OecgLX2R0AHMNqh0WWhzYFbmCAcJ3qHdg
XPb0ZdTOv/Zg/oEmhyuRESu8/0PlH7Q6fFiScf7KIag8Q6eD55H8WOnyXxC+
Qo/DmVobuZ6z3yF8h36Hv9EB0/7x/YbwDSY6sJyYsXzl+R9Q8yc5rLzZmz/p
xTcIP2CKg/PO5etsO35C+A+mOmiUp7csuwo1r2C6Q/faNyzrQ6HqGWY6FLyO
eRvK9hXCnzDLwTNr2+4Gbah6hTkOVzzTfJS/QOU3zHVg6n3/9srtL1D3zXdY
VtxktO/2Zwg/Y4FDinPpknmroOoNFjow3I36I7YLqv7HQgd126xrvXeh6g8s
crgU1FE0TwjK71jssGzJzkStRVD1AUsc5jwInCUKUy+x1OFy4bPwt+pQ/oOl
Du2rXl+O64WqX7HMoXvnq4C0e1D5guUOkQKCShutoHyLFQ6Lotr6DBd+gvp/
pUPyhWirDzDzT6x0iDn85d9mDyh/wiqHDrHERz93Q9VHrHZweSB2ksccyldY
42D1tjfoWChU/Ys1DvfXb2k7dRkqv2GtQ3nkL1mncCi/Yp2DTfikN8qPPkLD
b73Di4Qjmp+ffbIHACes2YI=
         "]]}, {
        Hue[0.34878707749138016`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpM5GHdcKn5nD+YaVDusmqW5sC3wPYTvUO/A
8sq2dUo1VP5Ak4Nr1KeisvAPEP6DVodz/ed6L5hB+QydDvuKU86kykL5Cj0O
/ywPnf7KAuU79Dv8vVBTHf8Sar7BRIfakzsKrc9B+QcmOexeHMPnuB3KD5ji
YHy+YG7PYij/wVSHpiadX2WToPyC6Q5PeeueVddB+QwzHRYtV0+eVgjlT5jl
MGl5+dN18jD3zHE4t3x+wU0RKH/DXId3K00WS3DD3Dff4VTGgUdBDFB+xgKH
O6wiPcc/wNy70MGYk3mJ5yMo/8dCh8Db9vIMV2HuX+Rw6P9poWMnoPyOxQ6J
+/ztavbC/LPEIXpO/wSODVC+xFKHkIySRwKSsPBc6hCqcGW1oRCUv2KZQ/ld
8/LjMPcVLHfg/JTw4xgrlG+xwkGn6Zy3Gsy9DCsdDs1yCHX4DDX/xErU8J6w
ysHhypVzfA+g/IjVDopmEUFO16F8hTUOGg5qIe9h8fFijcOEa18deY5D+RvW
ovqnYp1DauG5Z3I8sPBb79CrdenrJPYP9gBOJtHX
         "]]}, {
        Hue[0.5848550549911664, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDp/VFGq2bXxlD+YaVDv47uc9qfsbyneod5jF
y1nNsv41hH+gyUFXn0PWKeUNhP+g1eEGc8ya6DdQPkOng/weyeSAsLcQvkKP
Q09i6S5udyjfod+hfnGMUP1UKN9gosOKBQf9X12D8g9McrhZfOGLD987CD9g
isP6roc3T9tC+Q+mOsxlUbj/Mw3KL5ju4LxpirtaG5TPMNNhe4297758KH/C
LIdPEblfPPuhfIU5Dn9f6R1tXQ3lb5jrcCjCa/aHI1C+w3wHxT1Rrw1uQPkZ
Cxxeun/pUz8M5RssdGj79U29heE9hP9joUMk47WU3tdQ+QOLHB6YNXuG/oXy
OxY7dPN4Xt/PC1UfsMRhzu1jXUxSUL7EUoetT3sWWmlA+Q+WOqhMWetRYQrl
r1jmIC4dGf5eCcovWO5QvLglu04fyrdY4bBk7dZ/LtZQPsNKh1RvLb0r6lD+
iZUOjbGRnUrGUP6EVQ77LE8/OG0L5Uesdriexfj2rjuUr7DG4ZjNlNcpgVD+
izUON+w+X8iOgvI3rHV4vGypzbsEKL9incObB8u3foSpd1jvEGy84ak3UD0A
yU/R2g==
         "]]}, {
        Hue[0.8209230324909598, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtM/8PA1uHy2B3MNqh22KDy5Nof5E4TvUO9w
9tAdDqcDUP6BJod7q9sDFidC+Q9aHbb+7142VQrKZ+h0eF9bv8Xl8UcIX6HH
4Yj+TtXyTVC+Q79DWIP/sWV9UL7BRAf9Rv3kkwVQ/oFJDr/+cs1uCIfyA6Y4
pJTG3r/oCOU/mOrQ0HHBhVUfyi+Y7vC8/cG2q9JQPsNMB2l5+dNVvFD+hFkO
iU8fC2xngLlnjkP1S8MMr68fIPwNcx20z/PVML6G8h3mO3zzep+09D6Un7HA
4VzI2y7361C+wUKHyotaZYvPQ/k/FjqEHhT6vfAElH9gkYNVYNsi/UNQfsdi
hwpJ10/We6D8gCUOK/WqbFS2QvkSSx1mMHycJ7IByn+w1MHIcLFK3Goof8Uy
hzr/Ly++L4PyC5Y78Egk6NxaBOVbrHA473JC7d88KJ9hpUN9y6oHIrOg/BMr
HXo+P2TaOg3Kn7DKQUkhM7VtMpQfsdohSfHx+5YJUL7CGofIOVy/1/RC+S/W
OHRG3XD83QULr7UOIdnTloW3Q/kV6xwU5nh9/tACC7/1Dv83F2ivaPpgDwAN
h9XF
         "]]}, {
        Hue[0.05699100999074602, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt9NP3lPm8XhAOYaVDu4rPn95DIDO4TvUO/g
e1hkBncbC4R/oMlBJJ9z4epZjBD+g1aHHBGDlw8v/bOHmNfp8GmHvwWrGxNE
XqHHQelQrXlOPgPUvH4H+3jNqQuf/IWoN5jokDO1/Ap75m8I/8Akh9ntc3Ve
+f2E8AOmOLCeNlW9mAhV/2Cqw7GV18035ULVF0x3WJIUL3l1M1Q9w0wHd95U
pdeGPyD8CbMcahm67h2+9Q3CV5jj8EynaFPsH6j6DXMdpDXOHZy8AareYb5D
1qIjsiWN3yH8jAUOq+rNPNcWQPUbLHSYnsb0vK/8K4T/Y6GD+BntM6qTv0Dd
v8ghw9TC+jQ3VH/HYgefvC+b0jSh+gOWOPyI12HdGQrVL7EUVf+DpQ7a+x36
v979DOGvWOYgt9RutuVnqPqC5Q5e3ZzWcXZQvsUKh9rrz+xPTYHqZ1jpIPjj
T8Cbz1D9J1Y6mDfd/cAVB+VPWOVw5qvU3tNaUP0Rqx0stvG3zobpV1jjoBsW
I9nKBuW/WOMwPbZB8mk9VP+GtQ4/LO0DXv37BOFXrHO4fjJJuQym32G9Q+9R
jzw7kS/2AElqyPo=
         "]]}, {
        Hue[0.2930589874905394, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDq/ich+e8X1rD+YaVDvUHBS9ZLcOyneod0gL
b56j1vcOwj/Q5HD9YsbvmOL3EP6DVoeHIvKRT6ZD5Rk6HaxjZ9o6eULlFXoc
jvMslPo4FSrv0O8wYW50kqE6VN5gosPOjyvuByyA8g9McpCQOc64QxTKD5ji
YDWxWvxqHcy+qQ6mp22uf78J5RdMd+BLP/RoQwKUzzDT4eYW3qM3N0H5E2Y5
9Jtz6G3yhblnjsOpHatUrWZA+RvmOrT/M30QdBvKd5iPal/GAodDO7pLv++B
uXehQ46b+ILIXCj/x0KHmPlnjnMvh7l/kUPhrp9qyneg/I7FDv5zGYprp8D8
s8QhaordpLDDUL7EUofSgq81uz7C/LfU4YzX67MHN0D5K5Y5LFiyi20dzLyC
5Q4Vq8LzJsLCy2KFg+SuF8scT8H8v9JBc/LEu0/6ofwTKx2+XPnxbM52WHis
ckj9u9ta8C6UH7HaoadTZ4fXSlj4rHG4n7XjgMxZKP/FGgdj181avO9h4bXW
Yd/m7zLbYOFRsc5hcoHQ0miYeQ7rHXT1z2U8Xv/eHgCb0NlC
         "]]}, {
        Hue[0.5291269649903256, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDs8+/LT6y/HOHsw1qHbYtGuOrO8iKN+h3mH3
trQoqcfvIfwDTQ4rIzZ7GDlB+Q9aHS54Oh+KPQlVz9DpMM99y5aVH6DyCj0O
j8NvZDaUQfkO/Q4f/O3nPJCE8g0moqo/MMnhV3x1zoMZUH7AFIdHuw6UzfCF
2TfV4cK/girJb1B+wXSHddl8XOEroXyGmQ7Xbt9US8qC8ifMclA55ZBs+BXm
njkO3htvWd7dAeVvmOtwZg3Hwt4mmPvmOxzf92Rx9xcoP2OBw5YTJZ5VB2Du
XejAvur73zcToPwfCx1my73eWvod5v5FDjU7I92bTkL5HYsdrsv2LxGdD/PP
EgcB8UfWW2Dul1jqYN+hI7P1LMx/Sx3iXjZwdyyH8lcsc3A5ycV/6QfMv8sd
Nhnm3t12Gcq3WOHwplhL+M0GmP9XOvzP8+EUgak/sdKBf+vPNNdrsPBY5bB/
zx2DlG1QfsRqB5/m91G7fsLCZ43Dht3V3XNuQfkv1jhcF4+VVtwLC6+1DjPi
rVeyw9RXrHPYw7072eUOLPzWO1jfftP8HBheAJZj3iI=
         "]]}, {
        Hue[0.765194942490119, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDg+lc2ft6P5uD+YaVDvUPpB0n8r8DcJ3qHe4
NnnXBvneHxD+gSYH15aNC0T4v0L4D1od0phv3F8uD1XP0OlQ7ybWU7zmM4Sv
0OMwLcbA4PCSL1Dz+h2srM7/EDz2CWrfRFT1ByY5GCnkVtfnQ9UHTHHQ+pUQ
8egXVP2DqQ4FC49dOLMeqr5gugOXuEjs8iKoPMNMhyOKPuHWUlD5CbMcmOKz
Of24ofIKcxwu9qa92rYMyt8w1+HhhjO/Ju34CHXffIdTmuffvHGDymcscNi3
cFfI5SKovMFCh0UOHTMu/YTyfwD5YXOe9llB+QcWOdQaNF1j2wnldyx22PjK
n++ULtS8gCUOqmlXrdUboPISSx36r+/ZNeUdlP9gqYPFk4b+VQFQ/oplDp3d
78VCYOYVLHfwe3r5i5c6lG+xwmGLTcb57V1QPsNKh4XvtYpmM0L5J1Y6hK4W
MHFLgPInrHKYsuZ7ccXDDxB+xGqH9Jrw68etofIKaxwu/pf7dOYIVP7FGofp
O85elJOGym9Y62A/jWfxw2wov2Kdg87zuMpFf6DqHdY7XDslv8fV+6M9AE/z
1Tk=
         "]]}, {
        Hue[0.0012629199899052423`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDikT9d70SnywB3MNqh04dzn/7NoB5TvUO3z+
pFXCmQnlH2hy+D2VPWn+Iij/QavDLEkdfbW49xA+Q6fDabsrj/4/gPIVehz+
5O6xPawAM6/fwU1medkvb5h9Ex0SC75+YC6AmT/J4T9bk8D13VD9AVMc7hhf
mrmSBWbfVIeV5UzHHdSg/ILpDkYP9izgd4TyGWY6PLjo8VRjBVT/hFkOWaJr
Ilqfwtwzx+H2yWt+FnxQ9RvmOjQllu/+ADPPYb5Dc2xKe5g1lJ+xwOF8tOyx
3eeg+g0WOux8JmUo/hfK/7HQQbvjHf8ZYZj7Fzn4d4SERqlD+R2LHQ7MWJuS
YQnlByxxuP1jejH7c6h+iaUOgmYZU+XZYP5b6uArf2FDsTiUv2KZww3l5/sW
wMwrWO6w/JLfUo+bUP0WKxw+LJfZ4fkLFv4rHfT+vf+Yzg1Vf2KlA3uNnjWH
FJQ/YZXD0U3HuS/DzItY7TB7F4s4zytY+KxxEJiW8EaQGSr/Yo3Dks8+HxME
YOG11sH5i2/JZ2kov2KdQ1PQEkO+u1D9Dusdzmf6c+/89t4eAEfYznc=
         "]]}, {
        Hue[0.2373308974896915, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDi7rSm60J3E7gLkG1Q7sd5S6SmZxQvgO9Q5u
z9YwvbnOBuEfaHJYsZzrguAMZgj/QavDyTQGl3R1RgifodOB31e5SK/pnz2Y
q9DjUNvZ5/XfiwlqXr+Di64I74VFDFD7JqKqPzDJwWc/725b7T8QfsAUh6cL
qrfN0/wF4T+Y6nBMcdtqn5wfEH7BdIcNtU+uTpgNVc8w08EvS+U7+zuo+gmz
HLSv8iqIF/yEumeOw/VHHybaS0H1b5jrUHjzbkTjs28QvsN8VPsyFjjMf/t6
H9MvqHqDhQ6eHfPP7H7yHcL/sRBV/4FFDrN/lLBN/PMVwu9Y7PD7H+uTKSpQ
fsASh9JDgTeE9kP1SyxF1f9gqcP16XMNr8lA+SuWOTSfWHFtSgJUf8Fyh11L
RHYVbvgC4VuscHBz6l7hxQ3lM6x0iGd41uBhCtV/YqVD6Z4pamV9UP0TVjlU
X6idofYRqj5itcOOT0XJ/TFQvsIah5Aa+de/z3+G8F+scfi25kP3KS8of8Na
VP9UrHOYlV6hNGkuVL/Dege7Cw1rFGW/2AMAYFDQLg==
         "]]}, {
        Hue[0.47339887498948485`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmbl/8Q+TGZ3AHMNqh0O3p//2pmbDcJ3qHfY
Z9LA8GUVM4R/oMlB6mx59L57DBD+g1aHr+1RB652/rWHmNfpIGorrpbj8gvC
V+hx4Lrh+/xT/X8I36HfwfG48MmWpX8gfIOJqOoPTHK41VX9aZ/DDwg/YIrD
nJZm7va2bxD+g6kO7N8nJ8myf4XwC6Y7eG7XnVCyEKqeYaZDwAkN90X63yH8
CbMcIp7dMz/1DKpeYY7DiRMeiRUHvkD4G+Y6CIXxhDVt/wx133xU+zIWOETl
XVZWaITqN1joENSsqZg6Car/x0JU/QcWOajJP5gu/u4ThN+x2MFEwEtUyQTK
D1jisF2AsehHIVS/xFJU/Q+WOlRFr/d7wAnlr1jmoP9Oa/updKj+guUODqw6
kioXPkL4FiscNi63nPnJEcpnWOlwJePkjDdyUP0nVjp8mNtn5t0P1T9hlUOq
ka3qLXYoP2K1g03FVLHX7VD9CmscVth863zEB+W/WOOwvjQoxHTOB2h4rUX1
T8U6h2tLtug/2Q9V77DeIWHin21+gR/tAXUFw/M=
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 3.4231106672866947`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alabama\"", "\"Alaska\"", "\"Arizona\"", "\"Arkansas\"", 
       "\"California\"", "\"Colorado\"", "\"Connecticut\"", "\"Delaware\"", 
       "\"Florida\"", "\"Georgia\"", "\"Hawaii\"", "\"Idaho\"", 
       "\"Illinois\"", "\"Indiana\"", "\"Iowa\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.881822545367608*^9, {3.88182264566569*^9, 3.8818226507045603`*^9}, 
   3.8818867981957893`*^9, 3.88188690305567*^9, 3.881897963621052*^9, 
   3.882060345507612*^9, 3.882127438185863*^9, 3.882231641545403*^9, 
   3.882514147432667*^9, 3.882595287310268*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"285422ac-3aca-4b96-9896-06ed84e1a0d7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"relativeProportionalityCoords", "=", 
   RowBox[{"Dataset", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"r", "|->", "\[IndentingNewLine]", 
       RowBox[{"Merge", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"KeyDrop", "[", 
            RowBox[{"r", ",", 
             RowBox[{"{", 
              RowBox[{"\"\<total\>\"", ",", "\"\<n\>\""}], "}"}]}], "]"}], 
           ",", 
           RowBox[{"Association", "@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "->", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}], "/@", 
              "usa50StateAndDCPopFraction"}], ")"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r", "[", 
             RowBox[{"[", "\"\<n\>\"", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "/", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ")"}], "/@", 
     "fractionOfElectors"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"KeySelect", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", "relativeProportionalityCoords", "]"}], ",", 
     RowBox[{
      RowBox[{"MemberQ", "[", 
       RowBox[{"smallest15States", ",", "#"}], "]"}], "&"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}], ",", 
   RowBox[{"PlotLegends", "->", "Automatic"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.881731410730062*^9, 3.8817314728654957`*^9}, {
   3.881731525247954*^9, 3.8817315321314173`*^9}, {3.881731562367816*^9, 
   3.881731622926723*^9}, {3.881731658870208*^9, 3.881731760671989*^9}, {
   3.881731793079586*^9, 3.881731802062525*^9}, {3.881732135294421*^9, 
   3.881732221988578*^9}, {3.8817326912074203`*^9, 3.881732709958643*^9}, {
   3.881732839185256*^9, 3.8817329161085443`*^9}, {3.881732990240418*^9, 
   3.881733007592684*^9}, 3.881733055209449*^9, {3.881820889877307*^9, 
   3.881820895142864*^9}, {3.881820925787211*^9, 3.8818209406872168`*^9}, {
   3.881821017584119*^9, 3.881821019639493*^9}, {3.8818225393147717`*^9, 
   3.881822539498228*^9}, {3.8818867622478933`*^9, 3.881886772173662*^9}, {
   3.8818868222909822`*^9, 3.881886859713957*^9}, {3.8818869910307493`*^9, 
   3.881886991138501*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"f95572a5-6453-4bbf-8416-e05b3212eda2"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnPMXkU+nsLqAOYaVDtsFoqMKNNlgfAd6h06
tgdPWs7ABOEfaHL4dXVljfajf/Zg/oNWhwjBS1dS2KDyDJ0OEY+cWJPZGSB8
hR6HkMuukoZX/0DUO/Q7qKibs8+2+AXhG0x0aA1+0i7C/QPCPzDJoYVF98CV
/b8h/IApDnzFXKZ3jv6E2jfVoeOijYkOP1R9wXSHebp/uaZ1f4PwGWY62C4W
U9tYDlU/YZbDhcn762r5oOoV5jgsDffcbXoaqn7DXIfCA1F+uiu+Qt0334E7
huOI57wvEH7GAgc3m2N3bn2DqjdY6DCtd8HzV9+h6n8sdMidoMujwwflH1jk
MJkx7pqIOVR/x2IHn7ftarnmUP0BSxze/MtrskyGqpdY6jDBk1dNewFU/YOl
DiZLuu06Xn2G8Fcsczhx/SvPLwcov2C5g+H9ixsWfIOqt1jh4PDQL9HTH8pn
WOnwa5/w5q4NUPUnVjp8L+6qXCwD5U9Y5WCQPk/FZyFUfcRqh+2rzra+5oPy
FdY4XOvwEClogap/scahp/PyFCtGKH/DWoesD9ILWps/QfgV6xxWveHiz7sN
lXdY71DFfUZ5e/xnewCG5cae
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDia/zY2ZHv+3B3MNqh1W7J1h+vX8Xwjfod5h
7sHQjJbdjA5g/oEmB+Vji6onZP+DyD9odag1SCo4uPAXhM/Q6XA87ErhvnXf
IXyFHgfbI77X+RZA5R36HULTlwStNPsBtW+iQ7Tg9q5Lxt8g/AOTHN71+2h0
zoTKB0xx0Dgb5f3vBlT+wVSHbyyM3yRCvkL4BdMdMnbVHHUIhNrHMNPh2MPQ
YrXPUPkJsxzij8mxXd/9BeqeOQ6uO60mmS39DOFvmOvg3CcVwRgKVe8w32ET
97K3Uv5Q9RkLHGqyFc/kJEPVGyx06CpgTt16Fyr/Y6FD/NMZThv/Q+UPLHJg
EfVWTDWG8jsWO6gdt4j52QxVH7DE4aTipS8sB6DyEksd9uS0Hn3KDeU/WOoQ
sOIMk3bKJwh/xTKH7bGX/hzog8oXLHeoKmXmnvMWKm+xwmHWk7nHm8OgfIaV
Dl96Y168SYGqP7HSYdej8o22l6HyE1Y5ZJ+XOHbHE8qPWO1gVMZ6psAZql5h
jcMu7hydon1Q+RdrHLy29GzLd4DyN6x1aJ89/dfW4x8h/Ip1DpGr/fwmrYbK
O6x34DGOq3Mw/2QPABe80K0=
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu/9r/1ZJfjXHsw1qHbo7lRP79b9DeE71Dvs
vMJW3W//A8I/0ORQ4zhdZcP/nxD+g1aHR6qPLl099A3CZ+h0EHs20fa+J1S9
Qo9DZNflkrgbX6Hm9TvcXHwt9MLdz1D7JjoEr7wfutgBKn9gkkNxWJNz5nyo
fMAUB8+9FQuVrnyB2jfVwYd34cNZhVD5gukOctUbvLLrofIMMx20OhwFlntD
5SfMcti+zuTqH8tPUPfMcXiYy2HhYQCV3zDXgeuH+Hl3a6i8w3wHvYjIzFPi
UPmMBQ4Vn1T/W1hB5Q0WOnC95GxcywqV/7EQVf+BRQ7n+HbuLPkG5XcsdtAX
PMSrawPlByxxsP3PcJGh7yOEL7EUVf+DpQ67nz4w2jULKr9imcO6honVfDD9
BcsdNstWWVxYCpW3WOEw0S8mYQ9MnmGlQ2D3+mkG66DyJ1Y6GG8t5krUhPIn
rHJ491VM+dk2KD9itYNiU2qFqSWUr7DG4aBPjM7qfVD+izUOE+YWWSa4Q/kb
1jpMn/VxVdURKL9incOOJV0HWIOhfIf1Dk8TJyRcOfXRHgD25M5a
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnFRDyvjz3+zB3MNqh3kTtz6XBP8FcJ3qHcw
W2/VtfvEdwj/QJNDQ26R0oK0LxD+g1YHv23Rf9flQdUzdDp4c0++IMz/GcJX
6HFYcKxeY+F/KN+h34F/W8Z11pNQ/QYTUdUfmOTwt/dRG/sZKD9gisNTrSpm
/uRPUPumOnx7dMw7SAgqXzDd4fsknaOi9z9C7Z/p8O7PbIfcRqj6CbMcNhQc
VP9eBZVXmOMw/0z4gxZBqPyGuQ6bPyVz8s2E8h3mOzz7eUp+5xao+owFDkIL
j2+XNYHKGyx00Ff73MeeBZX/sdDht2PY1/cPofwDixzuW5vLOWlD+R2LHdZq
egfHz4HyA5Y4dFrW8OQwQ82TWOpw4PC9ucrxUPkHSx3W76ybf/AQlL9imcP2
tA1femDmFSx3CO6cVJDVBeVbrHBYzWXalvrvA9T/Kx3uCH5W7QmHyp9Y6bDJ
NCrf/SpUfsIqh6je+1mHYOZFrHZIucisX1QLC581Dgx7Qt9vZIHyX6xxcHnG
yCwXDOVvWOvwgV2Dte0B1LyKdQ5i6bEtr2DmOax30P3O8v3dgQ/2AIz6z+Y=

         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqH/A8IV3v+zB3MNqh3s86I5Pr7+A+E71Ds4
nvBacO3sTwj/QJND3yvRE9tX/YbwH7Q6XN/s2b/e4geEz9DpcKhOoIyp6yuE
r9DjUHDnkKiu/Xeoef0OH1bEnZFTgcobTHSQaD1yYuvcb1DzJznsL59yeNvD
LxB+wBSHfOuFfN9TPkPtm+qwfut75h8boPIF0x0OX9q1cnEyVJ5hpsPBYP8r
Uzqg8hNmOYidNF8enQqVV5jjsKuJY+rWhE8Q/oa5Ds//J93dnQaVd5jv8Cfg
1JHOCqh8xgIH4XuRa2fD9BssdKjcJCDt1geV/7HQYXKW64NrJz5C3b/IQaDy
hHvXAqh8x2KHE57PZ/a9hMoHLHF41ylxOmwdVF5iqUNY9PZp35mh/AdLHY49
L9F+uBvKX7HM4fmWzpnJMlB+wXKHE67HnbTaoeZZrHBY6rjxwmFDqDzDSge/
PN/jvYuh8idWOpw0THBxcobKT1jl0P+iV+jPXqh8xGoHj82xipIOUL7CGoeJ
jwVKJlyF8l+scTB+Nm3q6lgof8NaVP9UrHPol2h8rVMO5TusdxDfIl0Tw/XR
HgBDuNj8
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDjfPp6x4J/nXHsw1qHawO3ltfrMykwOY71Dv
8JKV3+iHHgOEf6DJYV5U8SuPw78h6h+0Ojy6Y11r6PcDwmfodOBazRKYzQKV
V+hxKN7549YSH6i8Q79DdsVrTj3Jb1D7JjoonZX9cywAKn9gksPMuyuOZBVD
5QOmOCRPc+nnu/UFat9UB4Uvx9Yv3wqVL5jukPbfddN5969Q+2c6yO6YsNSL
A6p+wiwHdsOqDOMFUHmFOQ6CQZba02qh8hvmOrSI7Jf8Vv4Z6r75qPZlLHCI
blV4L/wCKm+w0MHDb98XUW4o/8dCh/itF6MWuEPVH1jkULQgL6m0AirfsdiB
4VH+IoOdn6D+WeIguEXg4MnLUHmJpQ7etgzu3+Sg/AdLHb7ffL9gchlU/Ypl
Duqs2o6nYOYVLHfo2rfYPeoGVN5ihUObR/Dm145QPsNKh27e96EXdaDqT6x0
kN+XNe34HKj8hFUOrvYc0l9EoPyI1Q56/9PT77yD8hXWODy6tne7ag6U/2KN
Q+Cn7jafDx+h4bXWgeHJ/dtLKqH8inUOX+a8EV0Is99hvcOaoODAx+c/2gMA
OqTPOw==
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnlTLH7frv1qD+YaVDvYaHxVeCX7E8J3qHfY
//1v+LmMbxD+gSYHzaq+2JcC3yH8B60OSrO4lPsMv0D4DJ0Oz7/yy9t/hvIV
ehyufZKv3379E9S8fgftq3csKqZ+hto30UFubeLOzcZQ9QcmOayKm5AguRyq
PmCKg2HN+vdH7KHqH0x12Gyhzqzw4yOEXzDdoeTxOsVtrVD1DDMdlnx68W5W
PlR+wiyH/qO32uZ+h/IV5jjoS/2eH1EIVb9hroM7x0zJe61QeYf5DscDdcId
YOozFjjEzF4YflgNyjdY6JBdGPw2cQqU/2Ohw36lmtOPYe45sMjB3vt2tbcj
lN+x2MFA5NdTt4VQfsASh7xPRvqPfnyA8CWWOpzebN4yKQQq/2Cpw68S3u+f
V0L5K5Y56FjdKZ0kDPPvcgdjtqV1PalQvsUKh2p7zvtrb0HNY1jpYD9rqZK4
BlT+xEqH/bemtloWwcJjlcPu9auOvfgEVR+x2mFr6YXqDCtY+KxxUHsbI1B+
GCr/Yo1Ds5xYagkHVH7DWofOS7NYTnhA+RXrHI5+PfE3A2a/w3oH7Y0Mc05K
frQHAGE21So=
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpuy/547OeOfPZhrUO3wmW1DqsXsPxC+Q70D
w7tZrRdbf0L4B5ocpNrYNtbH/obwH7Q6FHuctRf9+h3CZ+h0WHKydf0T368Q
vkKPw1nnr5re/75Bzet3+BekkSb78gvUvokOb9wkW6fFQeUPTHI4M4Fha95y
qHzAFIfJy9asu6r3GWrfVIe2/x8YLcqh8gXTHawPcPxt1YXKM8x0YOnz73b1
h8pPmOWg/KpOz1IfKq8wx8FC90hemRFUfsNch5l1C3unGkDlHeY7vDW46vLH
5ROEn7HAYc7c940VMP0GCx0uPr37oToKKv9jIar+A4scLBdbK/XmQOU7Fjuc
udutNWH7R6h/ljhsX2egZFwFlZdY6nC93apw/UWo/IOlDt9vntg+vR0qv2KZ
g5dPrdf1l1D5guUOu2qWP3OaDJW3WOHwOaPlxu9/UHmGlQ7La9p3BhVB+SdW
Opjwb67wFICqn7DKQVj2un15D1Q+YrXD3zWLHn9SgMorrHH4ITv/4snFUPkX
axx0XF5NNtaF8jesRfVPxTqHwmD7XbluUL7DeoeMdWa8zac+2gMAxlzW0Q==

         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDo/KF+7Z8PiHPZhrUO2QP8v6lo7rdwjfod7h
k01nFdvhLxD+gSaHZG7NmqNxXyH8B60OGyau/rXzMpTP0OngPknL7l3GZwhf
ocfhgMDVRY2foXyHfgfuH91b7ql8gto30eHlYTHWiu1Q/oFJDm1Rf32nGkPV
B0xx4D5xMb/i6keofVMd9sy5GyIdAFVfMN3Becr5I2U7oHyGmQ63t/zoTJwP
VT9hloOpcofhBA6ovMIch3OzRJ5vToPyN8x1WG+k7XawGqreYT6qfRkLHO5x
7S5pZoPyDRY6zM22lKyMh/J/LHQ4HzJ5NedGKP/AIoeAW+dj/P98gPA7FjsU
Wc7uz/aGygcscWhTrPFmnQzlSyx1aPjv/GPvJ6j6B0sdyv+qFP+1hMqvWOaw
yab7dH0NlF+w3EHq/Y472W+g6i1WOKzI1p5irAuVZ1jpYB23ROPTMqj8iZUO
Hpturfr4FMqfsMrhPvPaLZGKUPURqx349PSUzy2HyiuscWC4IPds3UMo/8Ua
B5VUyYpWCaj6DWsdzjqw8xfC1Fesc1hczbL+9x0o32G9Q2aoo8Zr/o/2AKcR
00A=
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDutC2nuXeLE4gLkG1Q5fV//u2vyDCcJ3qHeY
NdVVWfctA4R/oMkhffrEZ1M5/9qD+Q9aHf5ufTpp0ieoPEOnQ6Z06QQLlX8Q
eYUeB/tVVRf/SP+G8B36HdbN+T0xdvkPCN9gosOmk7nsXx3/QPgHJjlwzHLe
aCL+C8IPmOLwryx3VpU1VP2DqQ5uJ5gqmed/g/ALpjuYGV69/zL/J4TPMNPh
5wntDb8/fofwJ8xySD74ySR+HlS9whyHDceOh2blfYXwN8x18Fk2x2byQah6
h/kOd6zLn76cC1WfscBh2RXhWcXToeoNFjpsY4nZe2D5Fwj/x0KHqV1Nm36d
/gx1/yKHwN4HUrd2QNV3LHZQbT2kWf4Yqj5giUPl47LVn6ShfImlDh5+0eK9
KVD9D5Y6TFT/GPhPAKp/xTKH5Poc26WxUPUFyx0iJl+Yd30rVL3FCgd3p0d/
GySgfIaVDtesJ+68MhGq/sRKB/7sV/qB36HyE1Y52AauOz8nFcqPWO2wMiRb
9M/tT9DwWeOw3pd3x/FIKP/FGoeIHWyMt5dD1W9Y67B9ifuz66pQfsU6hz+6
29onrYaqd1jvECKYsM3B/JM9AIWz1n4=
         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrZ7DHd9uPXHHsw1qHYIvng5xeEPowOY71Dv
cNouLO8DNwOEf6DJ4dSts6sN2n9D1D9odajcZCI+VfIHhM/Q6ZC9/o3Zh5O/
IHyFHocvy2rOc0tA5R36HZTYY5ZHvPwKtW+iw7os638qMlD5A5McVhy5zXfJ
6RuEHzDF4WDUgg+v13yB2jfVIV6nYmZ9C1S+YLrDWVGfxv2SUPMYZjrcTIkV
eXfnM4Q/YZZDTIrKk+RCqLzCHId1/y23WgdCzdsw18G6K/PTRV+oeof5qPZl
LHCYKtYj8XcPVN5gocNjn90Vdx9+gvB/LHRYMevGxl3SUPUHFjnMlJuqHuAH
Vd+x2GHBrazslROg6gOWOGy1XXP13gqovMRSh9AzH45M+gqVf7DUgbs9c9Yc
Pyh/xTIH9qQ5fktg5hUsd9gdkzWnfz1U3mKFg8xyqeVpUlA+w0qH8t0M1/yZ
oepPrHQ47Vl0r7YEKj9hlYPNw6aUC28/QvgRqx14jBYzPzwKlVdY4/DwRr6L
qwuU/2KNw8onVeoVJ6HqN6xF9U/FOofyRLPVMjD7HdY7uKvoSYWu/GgPAPO/
1Ds=
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu8OecgLX2R0AHMNqh0WWhzYFbmCAcJ3qHdg
XPb0ZdTOv/Zg/oEmhyuRESu8/0PlH7Q6fFiScf7KIag8Q6eD55H8WOnyXxC+
Qo/DmVobuZ6z3yF8h36Hv9EB0/7x/YbwDSY6sJyYsXzl+R9Q8yc5rLzZmz/p
xTcIP2CKg/PO5etsO35C+A+mOmiUp7csuwo1r2C6Q/faNyzrQ6HqGWY6FLyO
eRvK9hXCnzDLwTNr2+4Gbah6hTkOVzzTfJS/QOU3zHVg6n3/9srtL1D3zXdY
VtxktO/2Zwg/Y4FDinPpknmroOoNFjow3I36I7YLqv7HQgd126xrvXeh6g8s
crgU1FE0TwjK71jssGzJzkStRVD1AUsc5jwInCUKUy+x1OFy4bPwt+pQ/oOl
Du2rXl+O64WqX7HMoXvnq4C0e1D5guUOkQKCShutoHyLFQ6Lotr6DBd+gvp/
pUPyhWirDzDzT6x0iDn85d9mDyh/wiqHDrHERz93Q9VHrHZweSB2ksccyldY
42D1tjfoWChU/Ys1DvfXb2k7dRkqv2GtQ3nkL1mncCi/Yp2DTfikN8qPPkLD
b73Di4Qjmp+ffbIHACes2YI=
         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt9NP3lPm8XhAOYaVDu4rPn95DIDO4TvUO/g
e1hkBncbC4R/oMlBJJ9z4epZjBD+g1aHHBGDlw8v/bOHmNfp8GmHvwWrGxNE
XqHHQelQrXlOPgPUvH4H+3jNqQuf/IWoN5jokDO1/Ap75m8I/8Akh9ntc3Ve
+f2E8AOmOLCeNlW9mAhV/2Cqw7GV18035ULVF0x3WJIUL3l1M1Q9w0wHd95U
pdeGPyD8CbMcahm67h2+9Q3CV5jj8EynaFPsH6j6DXMdpDXOHZy8AareYb5D
1qIjsiWN3yH8jAUOq+rNPNcWQPUbLHSYnsb0vK/8K4T/Y6GD+BntM6qTv0Dd
v8ghw9TC+jQ3VH/HYgefvC+b0jSh+gOWOPyI12HdGQrVL7EUVf+DpQ7a+x36
v979DOGvWOYgt9RutuVnqPqC5Q5e3ZzWcXZQvsUKh9rrz+xPTYHqZ1jpIPjj
T8Cbz1D9J1Y6mDfd/cAVB+VPWOVw5qvU3tNaUP0Rqx0stvG3zobpV1jjoBsW
I9nKBuW/WOMwPbZB8mk9VP+GtQ4/LO0DXv37BOFXrHO4fjJJuQym32G9Q+9R
jzw7kS/2AElqyPo=
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDg+lc2ft6P5uD+YaVDvUPpB0n8r8DcJ3qHe4
NnnXBvneHxD+gSYH15aNC0T4v0L4D1od0phv3F8uD1XP0OlQ7ybWU7zmM4Sv
0OMwLcbA4PCSL1Dz+h2srM7/EDz2CWrfRFT1ByY5GCnkVtfnQ9UHTHHQ+pUQ
8egXVP2DqQ4FC49dOLMeqr5gugOXuEjs8iKoPMNMhyOKPuHWUlD5CbMcmOKz
Of24ofIKcxwu9qa92rYMyt8w1+HhhjO/Ju34CHXffIdTmuffvHGDymcscNi3
cFfI5SKovMFCh0UOHTMu/YTyfwD5YXOe9llB+QcWOdQaNF1j2wnldyx22PjK
n++ULtS8gCUOqmlXrdUboPISSx36r+/ZNeUdlP9gqYPFk4b+VQFQ/oplDp3d
78VCYOYVLHfwe3r5i5c6lG+xwmGLTcb57V1QPsNKh4XvtYpmM0L5J1Y6hK4W
MHFLgPInrHKYsuZ7ccXDDxB+xGqH9Jrw68etofIKaxwu/pf7dOYIVP7FGofp
O85elJOGym9Y62A/jWfxw2wov2Kdg87zuMpFf6DqHdY7XDslv8fV+6M9AE/z
1Tk=
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDi7rSm60J3E7gLkG1Q7sd5S6SmZxQvgO9Q5u
z9YwvbnOBuEfaHJYsZzrguAMZgj/QavDyTQGl3R1RgifodOB31e5SK/pnz2Y
q9DjUNvZ5/XfiwlqXr+Di64I74VFDFD7JqKqPzDJwWc/725b7T8QfsAUh6cL
qrfN0/wF4T+Y6nBMcdtqn5wfEH7BdIcNtU+uTpgNVc8w08EvS+U7+zuo+gmz
HLSv8iqIF/yEumeOw/VHHybaS0H1b5jrUHjzbkTjs28QvsN8VPsyFjjMf/t6
H9MvqHqDhQ6eHfPP7H7yHcL/sRBV/4FFDrN/lLBN/PMVwu9Y7PD7H+uTKSpQ
fsASh9JDgTeE9kP1SyxF1f9gqcP16XMNr8lA+SuWOTSfWHFtSgJUf8Fyh11L
RHYVbvgC4VuscHBz6l7hxQ3lM6x0iGd41uBhCtV/YqVD6Z4pamV9UP0TVjlU
X6idofYRqj5itcOOT0XJ/TFQvsIah5Aa+de/z3+G8F+scfi25kP3KS8of8Na
VP9UrHOYlV6hNGkuVL/Dege7Cw1rFGW/2AMAYFDQLg==
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 3.4231106672866947`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alaska\"", "\"Delaware\"", "\"Hawaii\"", "\"Idaho\"", "\"Maine\"", 
       "\"Montana\"", "\"Nebraska\"", "\"New Hampshire\"", "\"New Mexico\"", 
       "\"North Dakota\"", "\"Rhode Island\"", "\"South Dakota\"", 
       "\"Vermont\"", "\"West Virginia\"", "\"Wyoming\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 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`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.8818869959919786`*^9, 3.8818979638424587`*^9, {3.882060345833137*^9, 
   3.882060348604669*^9}, 3.8821274384142714`*^9, 3.8822316417636957`*^9, 
   3.882514147666613*^9, 3.882595287506901*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"e597a51e-fb78-43dd-8316-98fdb967b75f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Electoral Power", "Section",
 CellChangeTimes->{{3.8817274861846647`*^9, 
  3.881727492511585*^9}},ExpressionUUID->"0cd2f64e-bf4e-4ba5-a374-\
c5dfe8540f06"],

Cell[TextData[{
 "Now, the problem with this is we can\[CloseCurlyQuote]t just take the \
fraction, and divide it by the population of each state, and say \
\[OpenCurlyDoubleQuote]this is unfair because the proportion of electors is \
not equal to the proportion of population\[CloseCurlyDoubleQuote] because all \
states (except Maine and Nebraska) vote ",
 StyleBox["at large",
  FontSlant->"Italic"],
 "; that is ",
 StyleBox["every",
  FontSlant->"Italic"],
 " elector for that state votes for the ",
 StyleBox["single",
  FontSlant->"Italic"],
 " winner for their state.\n  Thus in fact the correct way to analyse this \
problem is as a system of majority voting where the participants (the states) \
have differently weighted votes."
}], "Text",
 CellChangeTimes->{{3.8817277799171867`*^9, 3.881727977539817*^9}, {
  3.8817280556638536`*^9, 3.881728061623332*^9}, {3.8817313039828863`*^9, 
  3.881731304253813*^9}, {3.881731355765421*^9, 
  3.881731359114358*^9}},ExpressionUUID->"dae77c7e-d8e1-4324-bb08-\
cd27a5e048f9"],

Cell[CellGroupData[{

Cell["Indices of Power", "Subsection",
 CellChangeTimes->{{3.881822082163597*^9, 3.881822086566557*^9}, {
  3.8818221275066643`*^9, 
  3.8818221291832027`*^9}},ExpressionUUID->"b7c9846c-e33d-47a4-a7f0-\
339898687b73"],

Cell[CellGroupData[{

Cell["Banzhaf Index", "Subsubsection",
 CellChangeTimes->{{3.881822112986598*^9, 
  3.881822115683793*^9}},ExpressionUUID->"80279def-491c-4f43-80b9-\
44c97f10599b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Uno", "'"}], "s", " ", "algorithm", " ", "for", " ", "computing",
     " ", "the", " ", "Banzhaf", " ", 
    RowBox[{"index", ".", "\[IndentingNewLine]", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Takeaki", " ", "Uno"}], ",", " ", "2012", ",", " ", 
       RowBox[{
       "Efficient", " ", "Computation", " ", "of", " ", "Power", " ", 
        "Indices", " ", "for", " ", "Weighted", " ", "Majority", " ", 
        "Games"}]}], ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"BanzhafIndex", "=", 
    RowBox[{"Function", "[", 
     RowBox[{"ws", ",", "\[IndentingNewLine]", 
      RowBox[{"Module", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "quota", ",", "maxcol", ",", "iws", ",", "l", ",", "u", ",", "usum", 
          ",", "out"}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"quota", "=", 
           RowBox[{"Ceiling", "[", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"Total", "[", "ws", "]"}], "+", "1"}], ")"}], "/", 
             "2"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{
           "As", " ", "the", " ", "update", " ", "steps", " ", "for", " ", 
            "l", " ", "and", " ", "u", " ", 
            RowBox[{"only", " ", "'"}], "reach", " ", 
            RowBox[{"back", "'"}], " ", "by", " ", "the", " ", "maximum", " ",
             "weight", " ", "less", " ", "than", " ", "or", " ", "equal", " ",
             "to", " ", "the", " ", "quota"}], ",", " ", 
           RowBox[{
           "this", " ", "quantity", " ", "bounds", " ", "the", " ", "total", 
            " ", "length", " ", "of", " ", 
            RowBox[{"rows", ".", " ", "An"}], " ", "appropriate", " ", 
            "bound", " ", "is", " ", "to", " ", "assume", " ", "that", " ", 
            "the", " ", "maximum", " ", "weight", " ", "is", " ", "used", " ",
             "on", " ", "every", " ", "step"}], ",", " ", 
           RowBox[{"thus", " ", "we", " ", "get", " ", 
            RowBox[{"Length", "[", "ws", "]"}], " ", "increases", " ", "of", 
            " ", "the", " ", "maximum", " ", "weight", " ", "at", " ", "the", 
            " ", "final", " ", 
            RowBox[{"row", "."}]}]}], " ", "*)"}], ";", "\[IndentingNewLine]", 
         RowBox[{"maxcol", "=", 
          RowBox[{"Min", "[", 
           RowBox[{
            RowBox[{"quota", "-", "1"}], ",", 
            RowBox[{
             RowBox[{"Length", "[", "ws", "]"}], "*", 
             RowBox[{"Max", "[", 
              RowBox[{"Select", "[", 
               RowBox[{"ws", ",", 
                RowBox[{
                 RowBox[{"#", "<=", "quota"}], "&"}]}], "]"}], "]"}]}]}], 
           "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"l", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
           RowBox[{"NestWhileList", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"ri", "|->", 
              RowBox[{"Module", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"r", ",", "i"}], "}"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"r", ",", "i"}], "}"}], "=", "ri"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Table", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", 
                    RowBox[{"y", "+", "1"}], "]"}], "]"}], "+", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"y", "<", 
                    RowBox[{"ws", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], ",", "0", ",", 
                    RowBox[{"r", "[", 
                    RowBox[{"[", 
                    RowBox[{"y", "-", 
                    RowBox[{"ws", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "+", "1"}], "]"}], 
                    "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{"y", ",", "0", ",", "maxcol"}], "}"}]}], 
                    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                   
                   RowBox[{"i", "+", "1"}]}], "}"}]}]}], 
               "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{"Boole", "[", 
                  RowBox[{"y", "==", "0"}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"y", ",", "0", ",", "maxcol"}], "}"}]}], "]"}], ",",
                "1"}], "}"}], ",", "\[IndentingNewLine]", 
             RowBox[{"ri", "|->", 
              RowBox[{
               RowBox[{"ri", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "<", 
               RowBox[{"Length", "[", "ws", "]"}]}]}]}], 
            "\[IndentingNewLine]", "]"}]}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"u", "=", 
          RowBox[{"Reverse", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
            RowBox[{"NestWhileList", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"ri", "|->", 
               RowBox[{"Module", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"r", ",", "i"}], "}"}], ",", "\[IndentingNewLine]", 
                 
                 RowBox[{
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"r", ",", "i"}], "}"}], "=", "ri"}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"Table", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"r", "[", 
                    RowBox[{"[", 
                    RowBox[{"y", "+", "1"}], "]"}], "]"}], "+", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"y", "<", 
                    RowBox[{"ws", "[", 
                    RowBox[{"[", "i", "]"}], "]"}]}], ",", "0", ",", 
                    RowBox[{"r", "[", 
                    RowBox[{"[", 
                    RowBox[{"y", "-", 
                    RowBox[{"ws", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "+", "1"}], "]"}], 
                    "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{"y", ",", "0", ",", "maxcol"}], "}"}]}], 
                    "\[IndentingNewLine]", "]"}], ",", 
                    RowBox[{"i", "-", "1"}]}], "}"}]}]}], 
                "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"Boole", "[", 
                   RowBox[{"y", "==", "0"}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"y", ",", "0", ",", "maxcol"}], "}"}]}], "]"}], 
                ",", 
                RowBox[{"Length", "[", "ws", "]"}]}], "}"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"ri", "|->", 
               RowBox[{"1", "<", 
                RowBox[{"ri", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", 
             "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"usum", "=", 
          RowBox[{"FoldList", "[", 
           RowBox[{"Plus", ",", 
            RowBox[{"Table", "[", 
             RowBox[{"0", ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "1", ",", 
                RowBox[{"Length", "[", "u", "]"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Transpose", "[", "u", "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Sum", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"l", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"z", "+", "1"}]}], "]"}], "]"}], "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"usum", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Min", "[", 
                    RowBox[{
                    RowBox[{"quota", "-", "z"}], ",", 
                    RowBox[{"maxcol", "+", "1"}]}], "]"}], "+", "1"}], ",", 
                   "i"}], "]"}], "]"}], "-", 
                RowBox[{"usum", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Min", "[", 
                    RowBox[{
                    RowBox[{"Max", "[", 
                    RowBox[{
                    RowBox[{"quota", "-", 
                    RowBox[{"ws", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], "-", "z"}], ",", "0"}], 
                    "]"}], ",", 
                    RowBox[{"maxcol", "+", "1"}]}], "]"}], "+", "1"}], ",", 
                   "i"}], "]"}], "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"z", ",", "0", ",", "maxcol"}], "}"}]}], 
            "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"Length", "[", "ws", "]"}]}], "}"}]}], 
          "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.881789790585165*^9, 3.881790045777957*^9}, {
   3.8817901018939743`*^9, 3.881790191218618*^9}, {3.881790227676156*^9, 
   3.881790339717104*^9}, {3.881790372017931*^9, 3.881790412444384*^9}, {
   3.881790444986394*^9, 3.8817905306321783`*^9}, 3.881790562724244*^9, {
   3.881790974398635*^9, 3.881791045633428*^9}, {3.881791115746476*^9, 
   3.881791146841951*^9}, {3.881791203490567*^9, 3.881791211705723*^9}, {
   3.881792061596127*^9, 3.881792065119516*^9}, {3.88179221159591*^9, 
   3.881792239816741*^9}, {3.881792291325363*^9, 3.8817923023647423`*^9}, {
   3.8817923466222878`*^9, 3.881792399695448*^9}, {3.8817930734734592`*^9, 
   3.881793239649741*^9}, {3.881793287071805*^9, 3.8817933697801456`*^9}, 
   3.881793400302483*^9, {3.8817934603705463`*^9, 3.881793619065151*^9}, {
   3.881793670515686*^9, 3.881793862920741*^9}, {3.881793898539412*^9, 
   3.8817939023786488`*^9}, {3.881793941375513*^9, 3.881793961051979*^9}, {
   3.881794014192854*^9, 3.881794014592382*^9}, {3.881794181684045*^9, 
   3.881794266141349*^9}, {3.881794303504201*^9, 3.881794339247205*^9}, {
   3.881794979731097*^9, 3.881795059225519*^9}, {3.881795161105465*^9, 
   3.8817954216893377`*^9}, {3.8817955037366333`*^9, 3.881795611470963*^9}, {
   3.881795716547287*^9, 3.881795736092204*^9}, {3.881798795636162*^9, 
   3.8817990030263968`*^9}, {3.881799158243557*^9, 3.881799160352187*^9}, {
   3.8818087601303673`*^9, 3.8818090846970997`*^9}, {3.8818139426235437`*^9, 
   3.8818139510491743`*^9}, {3.881814063292451*^9, 3.881814070272912*^9}, 
   3.8818190805800734`*^9, {3.8818191510016727`*^9, 3.881819179911257*^9}, {
   3.881819924299387*^9, 3.881819925273882*^9}, {3.8820606271318703`*^9, 
   3.882060738326948*^9}, {3.8820609621412373`*^9, 3.88206100888789*^9}, {
   3.88206105958451*^9, 3.882061095134272*^9}, {3.8820611307662163`*^9, 
   3.882061311682996*^9}, {3.8820614880094337`*^9, 3.88206148906316*^9}, {
   3.8820629351293716`*^9, 3.882063017729807*^9}, {3.882063059766799*^9, 
   3.882063273472612*^9}, {3.88206331308173*^9, 3.8820633360144176`*^9}, {
   3.882063381391485*^9, 3.882063408073135*^9}, {3.882063453932993*^9, 
   3.882063513131822*^9}, {3.882065928835875*^9, 3.88206593249199*^9}, {
   3.882066791023324*^9, 3.8820668985621567`*^9}, {3.882066935760067*^9, 
   3.882066981914876*^9}, {3.882067017784635*^9, 3.882067039951922*^9}, {
   3.882067125744803*^9, 3.8820671602907057`*^9}, {3.882067338116626*^9, 
   3.882067343895396*^9}, {3.882067633268322*^9, 3.882067652887147*^9}, {
   3.882068457143331*^9, 3.882068461398877*^9}, {3.8820692758749313`*^9, 
   3.8820693536528597`*^9}, {3.882069522656062*^9, 3.8820695752881613`*^9}, {
   3.882069632531389*^9, 3.882069745050168*^9}, {3.882074425930793*^9, 
   3.8820744260941668`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"7b4c3480-189e-402c-88c9-6ec95ade60f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"BanzhafIndex", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "4", ",", "6"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.882060744135949*^9, 3.8820608062233*^9}, {
   3.882060936334714*^9, 3.8820609380627403`*^9}, {3.882061032935308*^9, 
   3.882061038698398*^9}, 3.882063039707718*^9, {3.882063360525031*^9, 
   3.882063367094081*^9}, {3.8820634138229113`*^9, 3.882063415350515*^9}, {
   3.882066644639391*^9, 3.882066651089028*^9}, {3.8820668294871597`*^9, 
   3.8820668296288567`*^9}, {3.8820669982192*^9, 3.882067003204484*^9}, {
   3.8820670527134438`*^9, 3.882067072469782*^9}, {3.8820671686336193`*^9, 
   3.88206726683461*^9}, {3.882067317293659*^9, 3.8820673200936203`*^9}, {
   3.8820673756600857`*^9, 3.8820673893897676`*^9}, {3.8820674334465933`*^9, 
   3.882067445524624*^9}, {3.882067560626783*^9, 3.882067580850037*^9}, {
   3.8820676958874702`*^9, 3.882067773670776*^9}, {3.88206885898487*^9, 
   3.882068866543792*^9}, {3.882069587115242*^9, 3.8820695935802393`*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"ee7932a2-b143-4030-b84d-5f769eb2add1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", "1", ",", "1", ",", "7"}], "}"}]], "Output",
 CellChangeTimes->{{3.882060749052692*^9, 3.88206080665836*^9}, 
   3.882060938526744*^9, {3.882061012043783*^9, 3.8820610394910994`*^9}, {
   3.882061073309353*^9, 3.882061099887265*^9}, 3.882061182568039*^9, 
   3.882061297205179*^9, 3.882061340600275*^9, 3.882061494882814*^9, 
   3.882062911755385*^9, {3.882062958243177*^9, 3.8820630399974194`*^9}, {
   3.882063090145792*^9, 3.882063093816559*^9}, 3.882063227053425*^9, 
   3.8820632772712917`*^9, {3.8820633165250387`*^9, 3.8820634156770573`*^9}, 
   3.882065906842185*^9, 3.882065937538405*^9, {3.8820666385166483`*^9, 
   3.8820666513580713`*^9}, {3.882066798969232*^9, 3.882066864698748*^9}, {
   3.882066930020628*^9, 3.882066945632155*^9}, {3.8820669935925407`*^9, 
   3.882067003532894*^9}, {3.882067045140276*^9, 3.882067072705277*^9}, {
   3.88206714272832*^9, 3.882067320501956*^9}, {3.882067355668892*^9, 
   3.882067389707233*^9}, {3.882067434079749*^9, 3.882067445961734*^9}, {
   3.8820675656737022`*^9, 3.882067581369573*^9}, {3.8820676538129253`*^9, 
   3.8820676554270687`*^9}, {3.8820677266022987`*^9, 3.882067774044404*^9}, 
   3.8820681087529163`*^9, 3.882068270487329*^9, {3.8820688606821938`*^9, 
   3.882068866959784*^9}, {3.88206958257495*^9, 3.882069593955557*^9}, 
   3.8820744289954*^9, 3.882127193882341*^9, 3.882127438558096*^9, 
   3.882235878411065*^9, 3.8822370211988583`*^9, {3.882514281341373*^9, 
   3.8825143005077*^9}, 3.882555553493725*^9, 3.882596526145514*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"db36a421-e1de-47da-bad2-52495cbfd025"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "The", " ", "Banzhaf", " ", "index", " ", "of", " ", "a", " ", "vector", 
      " ", "of", " ", "all", " ", "1", "s"}], ";", " ", 
     RowBox[{"same", " ", "for", " ", "all", " ", "entries"}]}], ",", " ", 
    RowBox[{"so", " ", "it", " ", "just", " ", "returns", " ", "the", " ", 
     RowBox[{"number", ".", "\[IndentingNewLine]", "Recall"}], " ", "that", 
     " ", "the", " ", "Banzhaf", " ", "index", " ", "of", " ", "voter", " ", 
     "i", " ", "is", " ", "the", " ", "number", " ", "of", " ", "coalitions", 
     " ", 
     RowBox[{"(", "subsets", ")"}], " ", "which", " ", "meet", " ", "quota"}],
     ",", " ", 
    RowBox[{
    "but", " ", "would", " ", "not", " ", "meet", " ", "quota", " ", "if", 
     " ", "i", " ", "was", " ", 
     RowBox[{"removed", ".", " ", "Recall"}], " ", "the", " ", "quota", " ", 
     "is", " ", 
     RowBox[{
      RowBox[{"Ceiling", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}], ".", 
      "\[IndentingNewLine]", "As"}], " ", "i", " ", "contributes", " ", "1"}],
     ",", " ", 
    RowBox[{
    "the", " ", "number", " ", "of", " ", "coalitions", " ", "which", " ", 
     "meet", " ", "quota"}], ",", " ", 
    RowBox[{
     RowBox[{
     "for", " ", "which", " ", "i", " ", "is", " ", "decisive", " ", "is", 
      " ", "the", " ", "subsets", " ", "which", " ", "are", " ", "of", " ", 
      "size", " ", 
      RowBox[{"Ceiling", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "-", "1"}], ",",
     " ", 
    RowBox[{
     RowBox[{
      RowBox[{
      "chosen", " ", "from", " ", "all", " ", "voters", " ", "except", " ", 
       "i", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"i", ".", "e", ".", " ", "n"}], "-", 
          RowBox[{"1", " ", "of", " ", "them"}]}], ")"}], ".", 
        "\[IndentingNewLine]", "Note"}], " ", "that", " ", 
       RowBox[{"Ceiling", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}], "/", "2"}], "]"}]}], "-", "1"}], 
     " ", "==", " ", 
     RowBox[{
      RowBox[{"Floor", "[", 
       RowBox[{"n", "/", "2"}], "]"}], " ", "for", " ", "the", " ", 
      RowBox[{"integers", "."}]}]}]}], "\[IndentingNewLine]", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"UniformBanzhafIndex", "=", 
    RowBox[{"Function", "[", 
     RowBox[{"n", ",", 
      RowBox[{"Binomial", "[", 
       RowBox[{
        RowBox[{"n", "-", "1"}], ",", 
        RowBox[{"Floor", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "]"}]}], "]"}]}], 
     "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.881827495558692*^9, 3.881827534237097*^9}, {
   3.8818277747099953`*^9, 3.881827811417427*^9}, {3.881828017965889*^9, 
   3.881828026294156*^9}, {3.8818281686176662`*^9, 3.8818284066165037`*^9}, {
   3.88182845501997*^9, 3.881828467525712*^9}, {3.881828510355324*^9, 
   3.8818288081122828`*^9}, {3.881828880255217*^9, 3.8818289410407352`*^9}, {
   3.8818291244343452`*^9, 3.8818291251783323`*^9}, {3.8818291622731752`*^9, 
   3.881829180266428*^9}, {3.881829211450185*^9, 3.881829277083743*^9}, {
   3.88182932572801*^9, 3.881829345974481*^9}, 3.8818603130738697`*^9, 
   3.881861043010789*^9, 3.882136303243845*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"8099debb-1ba4-495b-8233-148a36cc1c4a"],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Even", ":", " ", "k"}], "=", 
    RowBox[{"2", "*", "n"}]}], ",", " ", 
   RowBox[{
    RowBox[{"Binomial", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "*", "n"}], "-", "1"}], ",", 
      RowBox[{"n", " ", "-", " ", "1"}]}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"Prod", "[", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"2", "n"}], "-", "i"}], "i"], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], " ", "=", " ", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "n"}], "-", "1"}], ")"}], "!"}], 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"n", "-", "1"}], ")"}], "!"}], 
         RowBox[{
          RowBox[{"(", "n", ")"}], "!"}]}]], "\[IndentingNewLine]", 
       RowBox[{"Odd", ":", " ", "k"}]}], "=", 
      RowBox[{
       RowBox[{"2", "*", "n"}], "+", "1"}]}]}]}], ",", " ", 
   RowBox[{
    RowBox[{"Binomial", "[", 
     RowBox[{
      RowBox[{"2", "*", "n"}], ",", "n"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{"Prod", "[", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"2", "n"}], "+", "1", "-", "i"}], "i"], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "=", " ", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "n"}], ")"}], "!"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"n", "!"}], ")"}], "2"]]}]}]}], "\[IndentingNewLine]", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.8821330473051157`*^9, 3.8821330712674923`*^9}, {
  3.882133255469174*^9, 3.882133316840619*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"87b0dbf3-487a-417b-b2ef-f78b961149fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Unfortunately", ",", " ", 
    RowBox[{
    "the", " ", "binomial", " ", "function", " ", "is", " ", "very", " ", 
     "slow", " ", "to", " ", "calculate", " ", "for", " ", "large", " ", 
     "numbers", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
       "like", " ", "the", " ", "population", " ", "of", " ", "a", " ", 
        "state"}], ")"}], ".", "\[IndentingNewLine]", "Thus"}], " ", "here", 
     " ", "we", " ", "use", " ", "the", " ", "approximation", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Binomial", "[", 
        RowBox[{
         RowBox[{"2", "n"}], ",", "n"}], "]"}], " ", "~", " ", 
       SuperscriptBox["2", 
        RowBox[{"2", "n"}]]}], "/", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"n", " ", "Pi"}], "]"}], "."}]}]}]}], "\[IndentingNewLine]", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"UniformAbsoluteBanzhafIndexApproximation", "=", 
     RowBox[{"Function", "[", 
      RowBox[{"n", ",", 
       FractionBox["1", 
        RowBox[{
         SqrtBox[
          RowBox[{"2", "*", "\[Pi]", "*", "n"}]], " "}]]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"UniformBanzhafIndex", "[", "n", "]"}], 
           SuperscriptBox["2", "n"]], ")"}], "/", 
         RowBox[{
         "UniformAbsoluteBanzhafIndexApproximation", "[", "n", "]"}]}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "1", ",", "100", ",", "1"}], "}"}]}], "]"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8818603196302843`*^9, 3.881860429893367*^9}, {
   3.881860472750391*^9, 3.881860801128626*^9}, {3.881860846790319*^9, 
   3.8818609058148413`*^9}, {3.881860939348353*^9, 3.881860940207518*^9}, {
   3.88186102388862*^9, 3.881861136562962*^9}, {3.8818611718996162`*^9, 
   3.881861284070389*^9}, {3.881861343757348*^9, 3.881861462065249*^9}, {
   3.881861493225339*^9, 3.88186156567703*^9}, {3.881861677484888*^9, 
   3.881861882228965*^9}, {3.8818622633513603`*^9, 3.881862277827751*^9}, 
   3.882130978480542*^9, 3.8821329524104013`*^9, {3.882133084688932*^9, 
   3.88213310724718*^9}, {3.8821331630752068`*^9, 3.88213319081391*^9}, {
   3.88213340598997*^9, 3.882133411506791*^9}, {3.8821335479574213`*^9, 
   3.882133554204475*^9}, {3.8821335987117023`*^9, 3.8821336098186693`*^9}, {
   3.882133653646509*^9, 3.8821336688925858`*^9}, {3.8821337033661623`*^9, 
   3.882133736258692*^9}, {3.882134934059774*^9, 3.88213496792767*^9}, {
   3.882135314816309*^9, 3.882135421296564*^9}, {3.882135923146884*^9, 
   3.8821362502509203`*^9}, {3.8821367296535387`*^9, 
   3.8821367397720003`*^9}, {3.8821367697973146`*^9, 3.882136775734647*^9}, {
   3.8821368058429003`*^9, 3.882136815387924*^9}, {3.882136862327196*^9, 
   3.882136897315867*^9}, {3.8821388465166883`*^9, 3.882138945138624*^9}, {
   3.8821390390200043`*^9, 3.8821390466895933`*^9}, {3.882235888488315*^9, 
   3.8822359632334642`*^9}, {3.882235999808906*^9, 3.882236023181292*^9}, 
   3.882236073685141*^9, {3.8822362492262697`*^9, 3.882236320605824*^9}, {
   3.882236366674878*^9, 3.882236375862541*^9}, {3.8822365429359627`*^9, 
   3.882236644011714*^9}, {3.8822366753426*^9, 3.882236824510689*^9}, {
   3.882236875051305*^9, 3.8822369586133833`*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"2bc672f7-f036-442f-b4cf-e30d95242e2d"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
    AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJw9yw1Q03Ucx/GZxoMM2QICeTjlDwxNMnmQBxH48CAwBPf8EHN5l3B1ZVGQ
EmfYkDzxFikP3WoQRaVZ4AWHUdf1sMRAYAEzgtRQ0Q3MKMaGOqUwu/bd7+53
v/v8XvcOe7pUXPIQi8UqfnD/e/8/1nS3qNtrGr0X0p0feH7udL1DNevcHjAy
geph9bxzc1C7Zf7znX5/ObcfmnfbQj4ctTp3IBz62mheN3kIWCF3bu1pIl+L
SYv6im7FnHMzWD6b2MmUk0fgu45SNTeBnIflhkSz21Pk6/DTW8v25CvIH8MN
S9JcuYA8Gj0XZmRMKflGpDax3h/IJt+EFw/3NfpWk8dAbm3YdHwreSzkKn87
5yh5HJ5t9xpMTiCPx71THTW5evLNmGkbuuYRQ56AvQ5LT8VH5ImIHDwWYogm
T8IYs5TPtJMnY6JEq41aT74Fdk/Ptg+6yFPgUXzgegCPfCsqzwf1xH5JngrT
E8xXr4STp6FlwFbn/g15OsbSmh3rwsiB+wP3KjMNTtcAR0c3d0esIc/AWM3I
oaVe8gy09A2/pwolz0R/lc0g7CfPhHebLPBsMHkWKidEo/xB8iyEPrO/Sh5E
ng0tM+5+x0iejZQTwyfYq8m3oTjeGLd7hHwbCmqrGqcCyHOg7mrYoDOR5+Cq
3cozPUqeC4lPZJr+Z/JcVLQzjgl/8jzs89HXlP1CnoecEnO03Y+cj9YKJjhy
gpwPdsSIeq3L82Fb6C3q+ZU8H4/Lj2nUvuTb8XayZmH9RfLtKOLdGj/5CHkB
Ql/Q+tZcIi9Ad8aRKZbLC5FWsL/87G/khVjx2py0mEu+A/wN42XWSfIdkJol
3PMccgHUOjbjeYVcgK8/ez2Y73Ih/h46LuBcdTqEqP0iXnfOx+kaIbh9CQ3u
U043CPGy+M0zAnKWCDeD3hFaySGCcWeEbXIV9SL0pJw+N3SNehG8/Gx1ZeQs
MeJn4/ybr1MvRviofpW3qxfj3Y/TY3eZqRfjcl3yYoc39RK0BlQvW22hXoK7
1VUzInKNBH+mHC4cIDdIYJzmli2yqZfCpDppfGmaeikeVmZmfUqukcIhejWc
M0O9FKKDJi+Vq5fBz2ye/oQcMsRcvFvDcfUyWMbdWpNuUC9DRVP9cwNe1MtR
39nde4YcctjEBW8cItfIMbJ0oT/nd+rluD3v35zt6hXIzejk/EgOBQSnDla5
uXoFViZ+u5h6k3oF9u4TLQ2upF6JAxu/v9xFDiWiLv1jryfXKKFjV3iE/UG9
Enl5u5JUrv5JtNwv+kH7wP8FcWLp9g==
     "]]}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.9688196370932645},
  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, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 100.}, {0.9688196370932645, 1.0282978780898129`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.88223695964491*^9, 3.882237021282144*^9, {3.8825142814298573`*^9, 
   3.8825143005986357`*^9}, 3.882555553711894*^9, 3.8825965262369204`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"6516107b-4dd8-40f9-88b3-011e243aa06c"]
}, Open  ]],

Cell[TextData[{
 "For example, the error at the number of population in the smallest state \
(Wyoming) is about ",
 Cell[BoxData[
  RowBox[{"2", "\[Times]", 
   SuperscriptBox["10", 
    RowBox[{"-", "10"}]]}]], "Output",
  GeneratedCell->False,
  CellAutoOverwrite->False,
  CellChangeTimes->{{3.881869272222054*^9, 3.881869277667432*^9}},
  ExpressionUUID->"a21691a5-c960-4343-bbfc-6797f3376203"],
 ", and the error decreases as the number gets larger. The probabilities that \
come out of our problem are small, but still orders of magnitude larger than \
that, so it\[CloseCurlyQuote]s perfectly fine to use it for our problem."
}], "Text",
 CellChangeTimes->{{3.8818692474465113`*^9, 3.8818693220599213`*^9}, {
  3.881869365291644*^9, 
  3.8818694420894823`*^9}},ExpressionUUID->"0496e6fc-f11b-4f8b-bd18-\
8ec7e45b49ed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"UniformAbsoluteBanzhafIndexApproximation", "[", "577605", "]"}], 
   "-", 
   FractionBox[
    RowBox[{"UniformBanzhafIndex", "[", "577605", "]"}], 
    SuperscriptBox["2", "577605"]]}], "]"}]], "Input",
 CellChangeTimes->{{3.881869275950529*^9, 3.881869277041267*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"516f5d6a-63f6-4e7d-8bb0-bdfa5777fda9"],

Cell[BoxData[
 RowBox[{"-", "2.2719760686511214`*^-10"}]], "Output",
 CellChangeTimes->{{3.881869272222054*^9, 3.881869277667432*^9}, 
   3.8818694489808407`*^9, 3.8818979968351192`*^9, 3.882060353271706*^9, 
   3.882127193976561*^9, 3.882127438665723*^9, 3.882133113629508*^9, 
   3.882133196623272*^9, 3.882133415787429*^9, {3.882133550628909*^9, 
   3.8821335573770037`*^9}, {3.882133593346147*^9, 3.882133613436442*^9}, {
   3.882136269508609*^9, 3.8821362741390533`*^9}, 3.882139058861587*^9, 
   3.882235878692827*^9, 3.8822369679370403`*^9, 3.88223702139888*^9, {
   3.882514281547305*^9, 3.882514300702242*^9}, 3.882555553777326*^9, 
   3.882596526293399*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"901682d6-88e6-466f-b144-354372997638"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Power per State", "Subsection",
 CellChangeTimes->{{3.881822063740386*^9, 
  3.881822072119959*^9}},ExpressionUUID->"f1ad9670-f5cc-4e4c-a782-\
1603ec9692d7"],

Cell[CellGroupData[{

Cell["Banzhaf Index", "Subsubsection",
 CellChangeTimes->{{3.881822023678595*^9, 3.881822036626998*^9}, 
   3.8818220770551767`*^9},ExpressionUUID->"3a9b54a4-9f20-46fb-8c9a-\
fd6de3c9d446"],

Cell[BoxData[
 RowBox[{
  RowBox[{"electorsBanzhafCount", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "|->", "\[IndentingNewLine]", 
      RowBox[{"Module", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"n", ",", "states", ",", "electors", ",", "bzfidx"}], "}"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"n", ",", "states"}], "}"}], "=", "r"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"electors", "=", 
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], "/@", "states"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"bzfidx", "=", 
          RowBox[{"BanzhafIndex", "[", "electors", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"n", ",", 
           RowBox[{"Length", "[", "electors", "]"}], ",", 
           RowBox[{"Association", "@", 
            RowBox[{"MapThread", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"#1", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], "->", "#2"}], "&"}], ",", 
              RowBox[{"{", 
               RowBox[{"states", ",", "bzfidx"}], "}"}]}], "]"}]}]}], 
          "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
     ")"}], "/@", "electorsAtDifferentSizes"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.88182015857279*^9, 3.8818202530745564`*^9}, {
  3.881820509505892*^9, 3.881820519046904*^9}, {3.881821379941855*^9, 
  3.881821382554943*^9}, {3.881822729624976*^9, 3.8818227315347958`*^9}, {
  3.881826762435437*^9, 3.881826788459879*^9}, {3.881826825363275*^9, 
  3.881826835010437*^9}, {3.881826868539926*^9, 3.881826871533185*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"20d3ce83-9ae6-4eb6-a49a-53b489285ae2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"electorsAbsoluteBanzhafIndex", "=", 
   RowBox[{"Association", "@@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "->", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "|->", 
           RowBox[{"c", "/", 
            SuperscriptBox["2", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]]}]}], ")"}], "/@", 
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}]}]}], "&"}], "/@", 
      "electorsBanzhafCount"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"electorsNormalisedBanzhafIndex", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "|->", 
          RowBox[{"c", "/", 
           RowBox[{"Total", "[", 
            RowBox[{"#", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "]"}]}]}], ")"}], "/@", 
        RowBox[{"#", "[", 
         RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], "&"}], "/@", 
    "electorsBanzhafCount"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.881826839031171*^9, 3.8818268488325233`*^9}, {
  3.8818268838581963`*^9, 3.881826985775076*^9}, {3.881827015841311*^9, 
  3.8818270173488894`*^9}, {3.881827053245699*^9, 3.881827076727866*^9}, {
  3.882596676441783*^9, 3.882596691038118*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"4b9a3ca2-b995-46d3-a995-016056fd4352"],

Cell["\<\
Now, we can compare the relative proportionality of the size of the state to \
its power to affect the outcome of the vote.\
\>", "Text",
 CellChangeTimes->{{3.8818203961443653`*^9, 
  3.8818204226801233`*^9}},ExpressionUUID->"ff8f5e1c-acf3-45d8-9b30-\
ce9bc3441a6b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"relativePowerProportionalityCoords", "=", 
   RowBox[{"Dataset", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"r", "|->", "\[IndentingNewLine]", 
       RowBox[{"Merge", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"r", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"Association", "@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"#", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], "->", 
                 RowBox[{"#", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "&"}], "/@", 
              "usa50StateAndDCPopFraction"}], ")"}]}]}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"#", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "/", 
             RowBox[{"#", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "&"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ")"}], "/@", 
     "electorsNormalisedBanzhafIndex"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.881731410730062*^9, 3.8817314728654957`*^9}, {
   3.881731525247954*^9, 3.8817315321314173`*^9}, {3.881731562367816*^9, 
   3.881731622926723*^9}, {3.881731658870208*^9, 3.881731760671989*^9}, {
   3.881731793079586*^9, 3.881731802062525*^9}, {3.881732135294421*^9, 
   3.881732221988578*^9}, {3.8817326912074203`*^9, 3.881732709958643*^9}, {
   3.881732839185256*^9, 3.8817329161085443`*^9}, {3.881732990240418*^9, 
   3.881733007592684*^9}, 3.881733055209449*^9, {3.88182046784569*^9, 
   3.8818205241124783`*^9}, {3.881820574045823*^9, 3.881820574807708*^9}, {
   3.881820680566338*^9, 3.881820693430195*^9}, {3.8818208438367558`*^9, 
   3.881820847470294*^9}, 3.8818213949653673`*^9, {3.8818270904523783`*^9, 
   3.881827110452903*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"8673cd26-e5ab-467d-bdc5-139e12694531"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Transpose", "[", "relativePowerProportionalityCoords", "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.881732936105646*^9, 3.881732965605668*^9}, 
   3.881820582740193*^9, {3.881820698041955*^9, 3.8818207218110237`*^9}, 
   3.8818208597117643`*^9, {3.881821357605476*^9, 3.881821367845413*^9}, {
   3.881821406056423*^9, 3.881821409457746*^9}, {3.881821696036848*^9, 
   3.881821715077078*^9}, 3.881823233557212*^9},
 CellLabel->"In[95]:=",ExpressionUUID->"c4030ef7-2f71-4fbc-bdfe-86a8a757370f"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDjYbnWctK/xgD+YaVDvkmEk88PT+COE71Dv8
YPixWk0Zyj/Q5FBa1njirgpU/YNWh12TihLyNkP5DJ0OjhqclZlf3kP4Cj0O
l+2W1E7Kgco79Dt03ZH7cXMnVN5gokPppb7rmx2g8gcmOWRJRO38PQUqHzDF
wf6fY3mGIsy+qQ4vY0RlRKug8gXTHe5Ws4sUsMPsn+lw3MJTgjsRKj9hlsPF
D113RF7D3DPHYUMmj7RVIJS/Ya6D5lfduWbnoHyH+Q67i8KXH3aA8jMWOGSb
5cVHb4G5d6HDuv2f7paZQfk/Fjr45xbK/FkA5R9Y5PCkLVidVx/K71jsMIdL
JrV5Asw/SxxKzxcmnnoO5Ussdbhkv65uSx2U/2Cpg9mn8OUmV6D8Fcscpku8
vTivGObf5Q53I4KXahyG8i1WOJw796vQMBPKZ1jpsFZexeDYRij/xEqHjFq+
G5NjYeGxymGD9KMN85ZA+RGrHSpn3GEoCYWFzxoHj3a75sczoPwXaxyKVk48
pOcHC6+1Dnea5mmz9UL5Fesc9mjPebTdFRZ+6x2ePNlcNrf5vT0A/urQfQ==

         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDotDH8m+UmB1AHMNqh0OGhlzBu9nhvAd6h32
FjTKbprDCOEfaHIoXCKxukfnnz2Y/6DVgVtgc23rbKg8Q6fDywsxs855/ofI
K/Q41O4+WrVR+Q+E79DvILp+W5zC1J8QvsFEh2bF22+ti79D+AcmOdSvNnOy
5f8N4QdMcWg13FGYrwBV/2Cqw1nmS3wbYeoLpjtM0dcP5P35FcJnmOlgWbrT
t//iDwh/wiyHJZOe8J0qgKpXmOPw8/WUGHHTbxD+hrkOicckcn5IQPU7zHfg
OfdVo1f0C4SfscDhk7HGZKZ4qHqDhQ5Ms+dOT0yFqv+x0OEN70FfxSao+gOL
HBZU317iuOEzhN+x2KGN957Ul0VQ9QFLHML9NzD8uQxVL7HUYZ1h3XZjmH0P
ljpMTz6cNDcFqn/FMoe0XT+YPfd/gvp3uUOPb/VG+0yoeosVDuGmwkyqx6Dq
GVY6/Jsu8T1RG8o/sdIh2slor9lsqP4JqxxWbli3oAhmX8Rqh3k+BxmPtUHV
K6xxeFn2d+nZ/1D1L9Y4JHuLvXhbD+VvWOuQyzLJ7QorlF+xzsGBp3qPfAhU
v8N6h5umH85+uf3JHgDjYsmK
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDix5993s9r+3B3MNqh1CnaZmG6x4C+E71DuE
FGfl6rlC5Q80OcQGpRgwP38H4T9odXBcviO7cxmUz9DpwLOp3Y0nH8pX6HHQ
ly/gjHOA8h36HeJtTge6F8Dsm+iQcsnbbYs5zPxJDvztrm/1OKD8gCkOz/T7
p/jeh9k31cHjUdVaxj1QfsF0h7L5N8NFGqDqGWY6dFe5/ZkdDuVPmOVwfP5l
nSJjKF9hjsNmTctiMWEof8NcB64T1wrefoW5b77D138cm5hvQPkZCxwi9tRx
82fB3LvQ4cXuA99Xe0P5PxY6vNLUeRRjBHP/IocJ1rYHzklC+R2LHdaJ8B/T
Zob5Z4mD/ozajf6voeZLLHU4nr1eoDQaKv9gqYNJq/TF87DwXrHM4eXnSy1H
DaD8guUO4v9dcnlloXyLFQ71LdnVS7hg/l/pUGrr1vH4G9T8EysdTujtc18R
DAuPVQ7nzOVr9Byh/IjVDsuzDlw8pA8LnzUO/58wcbjIQ/kv1jjI718TvIgf
Fl5rHSYvb2bv+Q81v2KdQ53YgyX1vlB5h/UOKzV65k62e28PADyqx90=
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhfX5xxKm/jFHsw1qHZoufP/3xyLzxC+Q72D
zaTFd/sYoPIHmhw+Tsh39lL8COE/aHX46G72vl0JymfodMjPetuyRgHKV+hx
SLn0jHWFLJTv0O8QceKs1isY32Cig8jRPIHbMP6BSQ6bdfx3/oPxA6Y43P+2
awKHHMy+qQ6PTL6uVIDxC6Y7/CmyuFYnDbN/psMHg6XLTsH4E2Y5rHg0hz1c
4wPUPXMcKia97PQwhfI3zHV4rsB/64MDlO8w3+FKv9+c6Z5QfsYCh8VzT217
GgzlGyx0WOvy0V0sBsr/sdDhdPDyDVdSoPwDixyeJSjGO+VA+R2LHbiT2zjk
iqH8gCUOF3Rtc96XQ/kSSx3MTnK2F9VC+Q+WOijMs1hc0gzlr1jmcIDphArv
2/dQ/y53YHlc902UASpvscIhu3N/jCgnlM+w0uGA7JxfDgJQ/omVDstnzJ1v
LgHlT1jlcGFa56+t8lB+xGqHl7vzXp5Wg4XPGgf1ctWkel0o/8Uah3dshhE3
jGHhtdZBZeP0rTqWUH7FOodK49NC0+xg4bfeIdXOi+PPpvf2AF4NzbU=
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnObL9feyXtrD+YaVDsE61pXOh+E8h3qHaIt
lvKHvYLyDzQ5sH2YKeMQ+B7Cf9DqwDoppfp/DpTP0OmQcbxv5w6dDxC+Qo/D
lhlCr2bA+A79Dv5fomRawqB8g4kOuo1LWDZVQfkHJjmYrIvWYpwJ5QdMcfg8
L507bhOU/2CqQzWj3D3Jk1B+wXQHtlel8eE3oXyGmQ7mZWv2rHwL5U+Y5VC4
LiJG9g/MPXMcZntydBpwf4TwN8x1kH1SaPNdFMp3mO+gtsvqzCMFKD9jgcPt
uhb1ejEo32Chwymrpy4PjaD8Hwsd6oprtLdpQvkHFjlwNiYfP2cI5XcsdghK
PzZ1lhWUH7DEQWrBI3cGByhfYqnDjn6/V/YRUP6DpQ5vT5y+muEL5a9Y5nCt
XVVjXyiUX7DcIb57lu3yKCjfYoXDt1drq/fHQ/kMKx2irNqrtVKh/BMrHRbv
t11dnAnlT1jlwLmtu780F8qPWO1Q3rfU9FkhlK+wxmF+VRlbTSmU/2KNg1zH
ns+HK2Dhtdah577Oj5p8KL9inQPb9bLs2Q2w8FvvsGgR48GZ5R/tAV4pzJM=

         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDiFsyn72kh/swVyDaofF5wXO7twB5TvUO5xl
XN+pnw7lH2hyOJT295ThbCj/QauDSG2W1SLv9xA+Q6fD181H7k46DuUr9Dh0
7X0hwigCM6/fodlLauYbW5h9Ex02t+meyHaCqj8wyYHj2Oktj2dB+QFTHAwn
up2Y+AzKfzDVoVboi4TCt3cQfsF0hz03VlUftYXZP9PBrzZp6YFGKH/CLIfJ
W1UVmPbB3DPHIfrLhMpwJih/w1yHQJ4LRk/soHyH+Q6Xwvas5i2C8jMWOChL
/9zmvRTKN1jocLJsxzZ1Lij/x0KHfd1cuybA7D+wyMGr8tb0pdlQfsdih9/K
Mg0m02D+WeJwRvX6jgMCUL7EUoeTV30/zreC+W+pw8VJLf/DkqH8FcscXl87
1N3eAeUXLHcwflu7218cyrdY4aBTl6010wbm/5UOSuJffyvGQvknVjrMP/bd
VLYOFh6rHKT4DkYpSUH5EasdslYI6ypZw8JnjcPbycf9wqOg/BdrHCIifi17
Xg4Lr7UOBwx3avDIQvkV6xyihJsqmGHud1jvcHWW7Yt7Ye/tARuwzb8=
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtcqJF2uWH+0B3MNqh32zN+18+LpTxC+Q72D
lZVzYvmhDxD+gSYHTm8fhYYyqPyDVgfJ1L9Htb9A9TN0OvQUMHjf6YbyFXoc
Jr595fDbDMp36HdYkfv3bMAXqHkGEx2+3pwrVL8HZv4kh/TqRLGSXig/YIqD
2D3xx7ypUP6DqQ4XROW0pJyg/ILpDvXarnu+KkD5DDMdIvfsvmTMBuVPmOUw
e1mbyqo776HumeOwJfDegopZUPkNcx2aJvMd662F8h3mOzTIpffUJEL5GQsc
zPrM+vK9YO5d6JC9oWWRpgmU/2OhQ+XrZL9fMPsPLHJQs9sWuo0Pyu9Y7PA+
Xuf6lt9Q+wOWOHw8KPuz5SaUL7HUgcv+wsLTu6H8B0sd4vd3zbywEMpfscxh
x6Qckyd2MP8ud6g+/J/NXB/Kt1jhEHApv7MX7v+VDhf+tQrWC0L5J1Y6cGwq
n9rNAguPVQ73VTreLvoANT9itYPir5ZJfTD3KKxxeFHwjmPHYSj/xRqHPb4d
t9nWQ/kb1jrw25xS5J0F5VesczC7YCN7tg3Kd1jvwLVYKuRI6Xt7AGfu0VY=

         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkscLuauMP9vD+YaVDvUGE3aaqX7F8J3qHfo
qWsy3RnJ6ADmH2hyUD2vwluxEyr/oNUhwmGjyC3mXxA+Q6cDczSvoY3sdwhf
ocehXVhvy8Q/P6Hm9TuosuU1MS2AyhtMdCicVHb/2vKvEP6BSQ63NOX0nf5C
5QOmOGwznO3R7/YNat9UB+XpTjwFp75A+AXTHRTrv/3n3wWVZ5jpcDwt4IhC
CtS8CbMcNP923uUzgapXmOPA4T2H/5PyZwh/w1wHGe7vswxOQOUd5jsYFL3m
WHgCKp+xwOF1s2Nr0ONPUPcudJA9t3ziriCo+h8LHXZkR+bcroKqP7DIwXXm
7Yy6zVD1HYsd3rjuTuT+DZUPWOJQ57iN/bk1lC+x1CH7aOOVrd1Q9Q+WOvyb
X6a18MVHCH/FMof81WsXmXFD1RcsdwiYlP5eJA+q3mKFw9WjIhxnb0HVM6x0
mKfko/7xIVT+xEoHtmv7578OhvInrHKY9+xn8t+zUPURqx2YH2S/unkAKq+w
xqH69Kcsc3so/8Uah1Nf9J6mHoGq37DWwSWVI0jBH8qvWOfwsWTG3lodqHqH
9Q6f2hg16nd/tAcA1KXO4A==
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJw1zk1IkwEcBvAXwZHayRR1jLkOUyYRSgZaDh+FYpCC2EWlDzBGLReKGUxU
Jn7gKqG91RrzA5tza86PjTzUIZeUwYaHCjvMCFyeJmqvO/lx0NQ9/uHh4Xd5
+J9vbK7VJwmCkHeU405cO340lU1EzBvlJyzsQPqTi/evWGiYsS8qpay5zYQX
etDntzhWFuloPw775FXpPVsJC0/xV3FV2W2iVYNw3c1q6Nyh8QIPF03rwRhd
KEIfKo28uvGP+y8BZ9HmtxK65jXSlm2B9wN01IYLcbXP+JhuscOdrwvv+WnB
gXBEo3AM09YhvLlts9cv06oRZFplPwc/04FRLKmDG70SjTGcUxWXJq3QD95i
Pne7YThZ4r9OaCtb4Sugd534taYXc3PohXEo82UGXRltcWHsU2x7XkPXTMD4
wbLz/Tqd7cbMmfhv4yU66kanVtKItbTXgw65Pc9TQbe8Q7Dx4M7ULbrEi7WU
jIP2KlqYhEshPrp8jw5NwrM+En9+k7b6kL0VShOa6LopRMKovna6p5pGQd2f
Ym0rHZvGs1XzV9kAHZjBF7vXcNZEm2ahTs2ZlRto+NGm+9i81CWV/wd8G83J

         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDg6WHSwhgm/twVyDaoedr++xP/j5BsJ3qHfo
NT2nFSkElT/Q5PAqutrxPTeU/6DVYYVVrugG93cQPkOnw6r9q+eyKUD5Cj0O
+a935s74B1Xv0O/A46wf1vscZt9Ehzimg1Ptl0LVH5jksEalS/RGC5QfMMVh
5XeW2S8zoPwHUx0e3X/ofTcAyi+Y7jA9PjDiymWY/TMdJv/Zu7BwB5Q/YZZD
h9IMvofzYe6Z4/DztqPVj04of8Nch53nJvnO+wzlO8x3eHT6X7XtDSg/Y4HD
Zd83b0WPQPkGCx1axby7f6+D8n8sdHj/1FTnI9t7qPsXOXwq1lou9Qkq37HY
gdvv7uyP92D+WeIgdVl8qvspKF9iqcOFfU5htUJQ/Q+WOkTppttrM0L5K5Y5
FKXs2Cf9Aebf5Q4azc+vCj6A8i1WOKQ+ZY1ok4eqZ1jpkPvobf8KHij/xEoH
di0FJau/sPBY5XAmPlhxyTsoP2K1w972pB3T1KDqFdY4uOztW79OHMp/scbB
YNWSeb2cUP6GtQ4PTrLM+v8Lqr9inYNDJvu56W9h4bfe4ZDtG6VioHsAlurU
ww==
         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDk1xuUtEy//Yg7kG1Q4HbGWZm2b9gvAd6h1i
n9bIXN35HcI/0ORQlfB5TnTGTwj/QavDdaVm/zKbbxA+Q6eDULwi/6atUPUK
PQ6OD9uZlwd9hZrX77BpapZba9JnqH0THZSXuj+z3/0Fav4kh9w9/n8YlaHy
AVMcrs+p01Txh8o/mOrQpKlX2PzlE4RfMN1BL6l1zvtfUPUMMx0qGgLl3c9B
5SfMcjhiZrDw9aGPUPfMcdBe4jSnbBNUfsNch08XfO4bHYbKO8x3qFfaUX5k
JlQ+Y4HD/lOB65Rh+g0WOrwItVaLaIfK/1jocObXuZRGmPyBRQ5dlyS/TayA
yncsdqj/MEf/CEw+YIlD441Hy65JQPkSSx0u79jJ+/4AlP9gqUNU/8SFp1Wg
/BXLHPaqFJkfOAjlFyx3UOg3KTPXh/ItVjjcT1WLE4WZz7DS4ehT5VuC5lD+
iZUOrwPnb5q09QM0PFY5/D60Q9HeHiofsdqhRXt+zuYjUHmFNQ7MHHNOdbpB
5V+scfh56tID20tQ+Q1rHWbxTVsa6gOVr1jnEPtzZ27SXai8w3qH1SeZT3sF
fbQHAEIu1CA=
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgWf2C4LhX2zB3MNqh2cJwS4yzz4AuE71DsY
L+9cuM3tO4R/oMmhUtH594P3nyH8B60O6XL1Gy99gKpn6HRYZmWne27WJwhf
ocfhS8dXkTWtUPUO/Q5dmWJXb3tA1RtMdNixquLO6elQ9QcmOVj7STJq+EPV
B0xxqF53IPLN249Q+6Y6aGT4uijNgKovmO7wXcnqyelsqDzDTIft9483zuaE
yk+Y5aC6+ECFAidUXmGOw9xp18+lz4byN8x1eFE0WUFUHqreYb6DwQXjX1oO
UPmMBQ67nu5iX7YHyjdY6LDNJvL4sm8fIPwfCx1Yly1Newiz/8Aih0+rPUza
d0LlOxY7xNyetLdaHSofsMQht1/2y+puKF9iqcPGg99Cn7yCqn+w1EFqm0iF
qQ9UfsUyh3UecmvW74DKFywHhqAZy3sRqLzFCoetcxNTk3qg8gwrHRQMb2UJ
PYbyT6x0kO18uJM1BcqfsMphzdqZM2Vh5kWsdmg361HqZYeFzxoH3S3Lmc9M
hMq/WOMg6GKawn8Pyt+w1mHu75qHG/Og/Ip1DjeLvK6s3Q7lO6x3mMphNmWr
/wd7ADiz0dA=
         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrb7WhL44t7ag7kG1Q6/95y2Nf32BsJ3qHcQ
cFbwMumE8g80OTguE+R8IAlV/6DVoVH1V9n7HiifodNBoPLv+ogHUL5Cj0Pw
GWOJ5YrvoOb1O/xTdH4mGQ3lG0x08NkopV52E6r+wCSHa3EbHk/kh8oHTHEo
mnf9zhFbKP/BVIdZoltUfqZC+QXTHbQevzxt3QLlM8x0cFl/2HHVYih/wiyH
9vKo95H7oXyFOQ5x2rZT7G9A+RvmOnycHOllD9PvMN/BX7nhDs8sKD9jgcP1
y3NuzNoEc+9CB41wrtfKx6D8Hwsd5HxKtzLehvIPLHJoXpARvP0NlN+x2CGn
1/GO9l+Yf5Y4XDJ9fCuX8z2EL7HU4aWvR+2eUzD/LXX4ZflMZRXMvBXLHGQa
/ZjbX8H8u9zh0n6bHYE/oHyLFQ75c7tso1ih5jGsdHj34Pujq+eg8idWOkSs
/HnB6Q4sPFY5bOrq2/ngBZQfsdrhqtO2D7e/wMJnjcOhdQtOqTBAzXuxxsEv
OXjvJS4of8Nah9Xp7H8eCUP5Fesc7jI/bDgpA+U7rHe4GbzA/Izae3sAs2XX
Dg==
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkueH9t7rOGdPZhrUO3guGEP//zY9xC+Q72D
XUz1sydNUPkDTQ4ca39unFgL5T9odWiX1JZprIfyGTodXt2I0dlaDeUr9Dhs
XCy8zbkMynfod2jwvLFb4jbUfIOJDh1BPoWWMPkDkxzYpxV8Y1oClQ+Y4mB0
fV12Qh+U/2CqQ31V0PqD1VB+wXQHgZ+p78vSoHyGmQ4zd27Tb4mA8ifMcoi1
bbz31hvKV5jjEKm3WXWFA5S/Ya6D8aac7CozmH/nO+zjlJuzURPKz1jgYD9n
bsAJJZh7FzoUHXpTxiAF5f9Y6LBlkcHSEhEo/8Aih0els7Sl+KD8jsUORm1H
jZ05YP5Z4tASKeP9+T/UvxJLHY7XVJ5X/QULz6UOXCwzH9Z+g/JXLHO4+ktH
2+kTlF+w3GGxvqzfkhyoeRYrHC6UPz/Glgrz/0qH4tCDGYnRUP6JlQ4shVkz
V4XAwmOVg73wso2+flB+xGqHib+2agd5wMJnjUPZPr0ZS52g/BdrHLatWx3g
YgsLr7UOV1jEeh/DwqtinQPXhed82Yaw8FvvwLGlqrJT9709AE2vy1I=
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgetHb4F5322B3MNqh3eB2ROmKnxCcJ3qHeo
E3p3u/YplH+gyWEJo0vp8Xoo/0Grg0QFy4JPZlA+Q6fD/ZNvX/r+/gjhK/Q4
9C9d1sd7Csp36HfwnjQjcs4SKN9gooPzQZZ7Cq1Q/oFJDsvXLVdenwXlB0xx
4FgiUPw+GMp/MNWhY6n84YfaHyD8gukOmoK2+qmaUD7DTIelgofOrYHxJ8xy
+MZn+P0ajK8wx4Fl2Z0/X2H8DXMdyu1vbRDWgvId5jv4N+1X99WA8jMWOMzg
vBckA1NvsNDhf+mt64th8j8WOtgkyxbmweQPLHJ4tLVndw+M37HYQZF39bsV
MH7AEoctPSvEnGD6JZY6vL8oqPhLHcp/sNTBgXey5GSY/IplDutMtY/ugPEL
ljt0i3jJ3YbxLVY4sBh/sGeB+3+lww9Rr60PYOadWOkwje9DCztM/YRVDkf6
tDQ1YPyI1Q4njz8V8YTxFdY4SJ18vjwdxn+xxmGR/SSfFhh/w1qHm51VEu9h
5lesc7h9Rl1pF4zvsN7BL+PoWT2gegCi98gb
         "]]}, {
        Hue[0.21101966249684523`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDh5uV25KSX21B3MNqh0++W2qit3xGcJ3qHew
6VgWs2/qRwj/QJPD3sP/DqlMhvIftDosP626LmsKlM/Q6SAQyvumaRKUr9Dj
IBqzIS6rH8p36HeInmRmvQ7GN5jooMhStmcejH9gksOacxFBh2H8gCkOP/bo
Zp+F8R9MdWheIRl+PvkDhF8w3UG0vmkLRwmUzzDTIdTw6bnbLVD+hFkO89Ki
n+2aDOUrzHGIm7Ekn2khlL9hrkPh4zNWP9ZA+Q7zHU65u9Xe2ArlZyxw+L9n
m2j2ASjfYKGDyc1O0UsnoPwfCx34mtwuxItB+QcWOaxbOSuvRhXK71js4Lx+
7bF8Yyg/YIlD2aunV67bQfkSSx2KA5+wlXpB+Q+WOnQYNi1UCoPyVyxzKDv5
OGp+Asy/yx1qLqd45mVB+RYrHD7Ls9SuLIb5f6XDBNZvz3qevofwT6x0aH7R
ffbJXyh/wiqH6Uea5mRwQdVHrHa4uFyNwU4UFj5rHE69faxWKw/lv1jjMMlI
U9RIExZeax0uGNyatM0Qyq9Y51DisUtW3QoWfusd6t/uvHLV6YM9ABCt09U=

         "]]}, {
        Hue[0.44708763999663503`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtaGYedm8X6wB3MNqh3uXDWu2672EcJ3qHfg
8lo4c6IplH+gyeFuwMb8tgSo+getDhfiXxqxmEDlGTodHnlnXmjsg8or9Dg8
P8uX8IgDynfod7j0weB7zUqYfRMd4reZaDJZQfkHJjno/T3mf3j7ewg/YIqD
6uuM14qxMPumOmzQP+1rxAnlF0x38JbZ+q+tCqqeYaZDOqdsdo8mVH7CLAdv
Rt+yr2eg8gpzHPSdBb2kXaHyG+Y6ONlrTg1nh7lvvgOvZq+0y2yo+owFDq9O
Kp4RU4S5d6FD/stnfltuQOV/LHS4bHYnswpm/4FFDvsVXv05xQZV37HYQePe
uUepm2H+WeKgw56p/SMGypdY6rApnXdq+QMo/8FSh5szDj0XngTlr1jm4Jw8
V1HCA8ovWO6g4eWbFnUAyrdY4aA3K89xZiXM/ysd9PLueM9+BuWfWOkwv5dR
+eYiKH/CKodzcdYB75Kg/IjVDqVBZyV3nYSFzxqHC/yXWix6oPwXaxykzeX+
fgqE8jesdcg85X/33Xoov2KdwzatHAGecijfYb3DEmWFFEun9/YAbQzIzQ==

         "]]}, {
        Hue[0.6831556174964248, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqnTFl9zOfnRHsw1qHbQTs/qmzbvA4TvUO+Q
brv2xK81UP6BJofTqxcJi+59D+E/aHXI75fdUrkaKs/Q6XCkZuZXCW4oX6HH
Yd3yr3yzl8HM63cIuDPrm60qlG8w0WHmhFvv84ug5h2Y5PDSpOq6viVUPmCK
gzX/1aeN22D2TXWIs7OteegOlS+Y7tAT0v1/yhOoPMNMh5j5Lns6g6D8CbMc
Lu/76lXFBnPPHIfEnXtZP7VD5TfMdbjxKdu1WQzmvvkOf+XXfa5cD5XPWOBg
Z7vxQK0SzL0LHV6rSN8quwyV/7HQISGl+di9XJj7FzkoV6kGf/sE5Xcsduji
Ku84PQnKD1jiILvvSNINFqh5EksdpGZMj9+3Dua/pQ67Yv79ORkN5a9Y5nBN
xfpg4Gkov2C5w6LpWQd/V0P5FiscPgvo+816DPP/SocbVlVFj6ZC+SdWOmwV
zOJQ84eFxyqH4Dlvkvlg/otY7bDn4RHFzmwoX2GNw+ln1/Y0HYXyX6xx6JDb
YvmhBRZeax0en/E+EOMG5Vescyi9ImN2ZyaU77DeQdLsXs6B+Pf2ANCu2UQ=

         "]]}, {
        Hue[0.9192235949962146, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDiGv3n2b7/XPHsw1qHZQO7J+QoX/Hwjfod6h
rz7vWLv9Twj/QJNDV2jZ8rWcvyH8B60OBnOkf2xY+R3CZ+h0OJsTUy/O9hXC
V+hx+KllHvlwwzeoef0OGWvuLH214AvUvokODA27Cw/zQ+UPTHLo5mDVDImF
ygdMcfjtv9n44YtPUPumOkx/svbTTW2ofMF0h0bfL43Sz6DyDDMd7Ip2zNZk
hspPmOVQFzbn6DKYvMIcB9mQ8y08Lz5C+BvmOmReejj1E0zeYb7DVy3VrKp/
UPmMBQ4LH039d/EpVN5gocPt5OiyF0JQ/o+FDhwLzpq/DIKqP7DIYUPGfK3D
KlD5jsUObjKRvQZFUPmAJQ41z/8ZrTCEykssddDl79r4owsq/2CpQ/tiu0mJ
dlD5FcscFt8++vTiIqh8wXIHsYedLzwFoXyLFQ7/bnfpBmyH8hlWOqiemu25
SAfKP7HS4VJa+3nWE1D+hFUO3vM/XhN0g/IjVjs4RRltDjv9ARo+axxiX5kt
PhgDlX+xxqHTvETm4XOo/Ia1DnJr+61jC6DyFescZrc2XmxmgPId1jsUPVu6
/fS0D/YAoRLX/A==
         "]]}, {
        Hue[0.15529157249600445`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDuYeSlp7jn6wB3MNqh3cM1wn3A97D+E71DuE
npsWzLvvHYR/oMlhUrvy1jZ5qPyDVodT7R57J+dB+QydDhoCNh/nL4PyFXoc
YlpCo25fgJnX7xAecvCj9w8o32CiQ5+kz/pdG2HmT3J4ky6gJvQSyg+Y4pDK
c+ZclATMvqkObj+THpQ4QvkF0x1kAl6eyE2A2T/T4evhk539DVD+hFkOfz4/
vfZhDsw9cxwqlxR8CNgG5W+Y63Bre+ruF1+h9jnMd0j3O/HHTBAqn7HA4Z1L
Cc8OPZh7FzrcdmCfau4O5f9Y6GBxwVFIE2b/gUUO5omxrvdKofyOxQ5HtyVO
f9sJ5QcscQi5fOlg90woX2Kpw9LK+i+xAjD/LXXgPzW5d6calL9imUPvoXkB
x61g/l3uUNh0Jr3ZF8q3WOFw4JwNu3o8zP8rHZ7Y342wzIXyT6x0YAnavelq
DSw8VjkcPMOzYR7MvojVDiJpWk/fKMLCZ41D5SXbcx5GUP6LNQ7HBd70HIeF
94a1DudZlfcZ+EP5FescZp4LtuiMgcXvegdhVi/znqz39gB9pNDV
         "]]}, {
        Hue[0.39135954999579425`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtlng/+cnvnWHsw1qHbg3bXtr3TBOwjfod5B
Yfd8xr/cHyD8A00OPlmRP4O3v4fwH7Q6vAz8MFG9FMpn6HTo1d0UZ2ID5Sv0
OMiaC5R480D5Dv0O0XYZrfdfQs03mOjQqxVmuOcMlH9gksOGvbX3s7ZA+QFT
HLLEnVKz1sPsm+pgtCKrz6Abyi+Y7hD4KaS4Lg1m/0yH5+Hz/b97QfkTZjm8
7ajY4GcEc88ch5TuLV9sZKD8DXMdrFjfsYdzwNw330Hi/LqQU5+g9mcscDhj
cZzh0WOYexc6sIY5PTeshKr/sdDhfWHTETGY/QcWObgGGO2wCYbyOxY7fN3m
KnPXEcoPWOKQ0Dcv75YelC+x1KF266H7CvIw/y11KDzINtFBCMpfscxB8+CH
H+msMP8ud7Dc8+9M1E+oeyxWOKj1+y37nwLz/0qHt1UHvWJDoPwTKx3O7fWr
FnKHhccqB87I6ccaraD8iNUOedEb76yCuUdhjcODRc8OFitD+S/WOKgbXpx6
SQIWXmsd8q4daa/khfIr1jkEqKnmuzHDwm+9w+POoLgl4e/tAayezR0=
         "]]}, {
        Hue[0.6274275274955841, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt9OHZjZ+/CNPZhrUO2wM0eAZ/NrKN+h3kGw
uGHRZ+u3EP6BJoeIaxeck0qh/AetDuG16d9nLYPyGTodfjEKGPodh/IVehy8
TL9Edt6H8h36HUzu+ras/Q7lG0x0MFwYZZPM/Q5q/iQHTQ3unwdeQvkBUxy8
/yxYUArjP5jqYMBrpxsF4xdMd7h1WaTT/wmUzzDT4cNSnjtLYPwJsxxaM3f9
2Q7jK8xxWN7I6H4Nxt8w18GbQ3Q5nO8w30HpJd/z+IdQfsYCh5T288c/PoLy
DRY6zPksN3sbTP7HQocVyuEVPo9h7l/ksFRwZW0qjN+x2OFJs0BZD4wfsMTh
oPqZZYcfQPkSSx2e+4ZVMMP4D5Y6GP0TPmMGM3/FMocHc/x/lML4BcsdMjyE
xOfD+BYrHObr+vPegfEZVjr4ltrYLb0P5Z9Y6TCJM9PkPow/YZWDZiirnpXO
ewg/YrXD6r/LrgZpQfkKaxwylkkfqtWA8l+scZi+ZU7OfjUof8NaByHVaLtX
ylB+xToHRY9jwmsVoXyH9Q7NT72Yfyi8twcALO7Ufg==
         "]]}, {
        Hue[0.8634955049953739, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDi75J24m+3+wB3MNqh2mufFu+fYByneodzAK
aDGJmgflH2hyeHju2s9CnvcQ/oNWh7vMJx4/2gLlM3Q65H0M0LOShKpX6HH4
nZD2T9gLZl6/wwSXCicuJ6h6g4kOk08sKu1dDeUfmORQ9PxE6XQmqPqAKQ4H
nnSt72WF2TfV4eXB2bqOcVB+wXQHZsY3rdeXweyf6WD56ELg9tdQ/oRZDtbM
hVtK1aB8hTkOe7gMlyzMgvI3zHW4NDeC8ddyKN9hvkMx69Tu87eh/IwFDgfC
P5rn28Dcu9ChsKpDo6cIyv+x0OHchrtCi2D2H1jkcGvn4RVJ0lB+x2KHqJff
chb7QvkBSxzqVshEW1dC+RJLHbQE4tOWL4b5b6nDJn/h6hU6UP6KZQ4TNdZ9
WxkO8+9yB5PPM3Ie1EP5FiscuG79+JojAvP/SgenhspPFy2h/BMrHbbuvZsR
Gw8Lj1UOtYa6XXuaoPyI1Q5XK0UdpZRh4bPG4fzNtbLGblD+izUOk8K3vC5K
h4XXWocJjHkqG1qh/Ip1DnvbUi2e6MHCb73Dp8eTAz76vbcHAIZW0yo=
         "]]}, {
        Hue[0.09956348249516367, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvXef5h0v36xB3MNqh0iXtzZeGvqZwjfod5B
VtJP70fZRwj/QJODv3KFYnIJlP+g1SHW3vHSslIon6HT4QzPgdRDxVC+Qo9D
in+C8/oCKN+h32G+lMrKTzC+wUSHRVWNro9h/AOTHIw2x85mL4TyA6Y4nJZs
XyQI4z+Y6sDEusJAC8YvmO7gWmncZhv+AWr/TAc5Cw79z+lQ/oRZDmYeP+13
lEH5CnMc3FV/dr9ohvI3zHVQDH6ecbIfyneY79Aw/7bSrBlQfsYCB56ItVZS
i6F8g4UOnk8M2opWQ/k/FjpsPhYaGb0Fyj+wyCEzOGqbFSeU37HYYcG9iiWi
4lB+wBKHjDVNezKVoHyJpQ4XlgXP/qQL5T9Y6mD/hOdYtyWUv2KZw3UnMdVv
zlB+wXKHXSnJLzf7QvkWKxzkX4d9vRcG8/9KBzHfLdG6cVD+iZUOTe/FF3ml
wcJjlYNohVffmjvvIfyI1Q4vp/RkGX6C8hXWOHzIynnrygxV/2KNg3fiv3sv
eWDhtdZhcvDhknhRKL9inUNT0QKrg7Kw8FvvYFJ0fn+C2gd7ACSbyc8=
         "]]}, {
        Hue[0.3356314599949535, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpVK+V1iLu/swVyDaoe9KxOOvsx/D+E71DtU
1Mbkzb0GlT/Q5BBtWLwxxQIq/6DV4Xbz+Ucb2qF8hk6Hkum37r3cD+Ur9Dh8
XqTL5v4KZl6/g2RwxITXHB+g9k10mDi386PDKZj5kxy+Hv8z/wgjVH3AFAe7
PFsBY0OYfVMdvhbc/5EbBeUXTHdYJNu+oL4SZv9MhwDVbby7Z0L5E2Y5hLns
YTfeBnPPHIeIK1J9GW+g9m2Y69BzxbV8KR/MffMdNv8+38mpBeVnLHC4eDVA
Z5E7lG+w0OH5xlPupglQ/o+FDj5Xf2yygtl/YJHDewUbO8Z+KL9jsUOJbch0
hcUw/yxxMN5/YMY3IShfYqmD5Ve5K/qaMP8tdfiQ5ec11x7KX7HMoTlZT3h3
MMy/yx20rVKV2tKgfIsVDrutj980r4D5f6WDh2LD+WnMUP6JlQ6OT5xsxMRh
4bHK4eD5lMMFMPsiVjtclDE9c8YKFj5rHM7GJB839YbyX6xxEL1Y9vwALLw3
rHWQ1Tp63iQDyq9Y59Cav+nz9FJY+K13KPvJK5Up9d4eAH8XzbU=
         "]]}, {
        Hue[0.5716994374947433, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvcESw/31P6xB3MNqh06aq7WJR5kdADzHeod
NnXPvJ+/+j9E/kCTw7E/EYb7FX5D+A9aHdZLSfiI7vsO4TN0OmgvP2rwOe4X
hK/Q43BzrdWJ/O1QeYd+B80lh8w29H+F2jfRYceL+PcnYfIHJjlkxTdNO/UE
Kh8wxeElq4FZVsgXqH1THewlF9/0Uf4G4RdMd4ite/ft8l6oPMNMh28TDMMO
t36G8CfMcsjYwHZ8rxDUPIU5Dg+uGnc//QaV3zDXYUdja1LR909Q9813yHl2
nlEuAGpexgIHwaWKbqtSoOoNFjpcUdkjZd8DVf9joYOLpU4cx0Go/IFFDhts
mRhuf4PKdyx2qNrieMLCBsoPWOLwiLOd1d4fql5iqcPzFW/fRc2Dyj9Y6hC7
ye/Hgl8fIfwVyxwu5el9fv4VKl+w3GHV+6ojJZFQvsUKh2B+0YkXjkHVM6x0
+GqzICNpNVT+xEoHRqWVBt/koPwJqxzO2Wpyds2Cqo9Y7XCj3/bupDyovMIa
h/KVEa4a76HyL9Y45P2wuV1QBuVvWOuwgme/oS4zlF+xzmG7gNyPrKNQvsN6
h1UtdvPehH20BwC5vNQs
         "]]}, {
        Hue[0.8077674149945295, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkIaiZqTuL/ag7kG1Q6uEVM+TJv+A8J3qHfY
2hLn5fsOKn+gyeF4f2/67O5vEP6DVgf1GTWaP3Z9hvAZOh0u33gew17yBcJX
6HH4tHnnn3Mpn6Dm9Tus3LR83jYZqHqDiQ6PMs9fXbMVyj8wyYFh0d0JhYZQ
9QFTHBROi7aUHIXyH0x18F2n8PV/y0cIv2C6Q8S7Fbcr+aDyDDMdzM+1yW37
9wHCnzDLoblGYvWFJqh6hTkOhq0Jy//9gPI3zHW4obHk10chKN9hvkOtnxuL
ViOUn7HA4StrRaLxNqh5BgsdZvfrhAooQOV/LHRwuLh1VyrM/AOLHAKiDJ8o
noeq71jsYH7no3GaDlQ+YInD3g/SDHwdUHmJpQ6bLjH373wA5T9Y6qDivVNL
1wSqfsUyh5orrzyLFkLlC5Y78LaKn1b5COVbrHDYczmxaUsmlM+w0qFxR2jO
ty1Q/omVDlUG7eHcf2HhscqhUNTg260GKD9itcO5u+t7449B+QprHKZFLboS
HwTlv1jjsO/3n8UlU6H8DWsdfp52v5twBcqvWOfQur7jdkYGlO+w3mFC1JXL
Ccs+2AMAeh3YbQ==
         "]]}, {
        Hue[0.04383539249432289, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDikLq+o/Pf1sD+YaVDtsSIt7mDTjE4TvUO/w
1e8886VIqPyBJodTp/aXrvwIlX/Q6lBw/5CLyHIon6HTYZXCriSGLChfocdB
YMLWxb/6PkDN63dIcbBZaNUP5RtMdJhmfphFB8Y/MMnhcmtiix+MHzDFIbvq
MGcEjP9gqsN0femofBi/YLqDtkZC+eMeKJ9hpsOmXRfO6/RC+RNmOdzUO/47
HMZXmONgMCfnQDmMv2GuQ7GDq/Y0GN9hvoOz2r/NR7qh/IwFDs6/y27NgJlv
sNCBw+lQpSyM/2OhQ/5W209vYPwDixzOW6p954aZ17HYYZvXvesaMH7AEod3
Tqw//e6+h/Alljp0zt/v8fM5lP9gqYP49QuhMz9D+SuWOXjI7jiz+C+UX7Dc
Yfox++pmZqh5FiscFm5Ycu8TO8z/Kx3CAiUWXeWC8k+sdHiw/si+w3yw8Fjl
0MI3t6FECMqPWO3g9Mzo0SdRWPiscfh8yDjXQRLKf7HG4eClo4aJMrDwWuvA
cGfr1RVyUH7FOocMPb2X2oqw8FvvwDDBKshM5YM9AAWu0zo=
         "]]}, {
        Hue[0.27990336999410914`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDoyNU/tFvv21B3MNqh3eCz5eUsLwB8J3qHdY
VZd+m//nDwj/QJODZtMVdvN9vyD8B60OP5cfO7Q0/TuEz9DpUKS47EXm6S8Q
vkKPw1+xxCk9hd+g5vU7ML2xLQxPh8obTHTQmd4abXDpK9T8SQ5cdw1m1KpA
5QOmOGx76KAuteUT1L6pDsIVyyp7P3+G8AumOzxJ9DSK2QiVZ5jp4N7Httnv
NFR+wiyHM80OH5/C5BXmOMidc/7Evg4qv2Guw++nb94abILKO8x3mMnSPc3x
zEcIP2OBQ1a2RI0wTL/BQodHy9rmlj2Ayv9Y6ND5t0q+DCZ/YJHDggPna+Q/
QeU7Fjt4J1a61TtC+QFLHFTPPW1/8A/Kl1jqMNn6uz1TFJT/YKkD07ntyWXc
UPNWLHNYsiTxyYxCqHzBcoeWpTvy88Sg8hYrHLwPz/15txUqz7DSISVsqsrm
Px8g/BMrHdhkZvxImQaVn7DKwTH3x+bbolB+xGqHy0c22wYug/IV1jjUmtfp
+ehA+S/WOOitundn4w6oeRvWOhxc9Jdnoz1UvmKdA/OOzef5L0LlHdY7XL8o
9uVV4Ed7AIRa1t8=
         "]]}, {
        Hue[0.5159713474939025, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmq9mtOWSb61B3MNqh0M3z51m+MF5TvUO/z8
I6fmdwfKP9DkwLvg9Ry1hHcQ/oNWB+VHZ+wdT0L5DJ0OZbXfQhdehqpX6HF4
/fr9y5l6UHmHfofPpa9z8muhfIOJDnpGjHpb90H5ByY5TJ/787rTNyg/YIoD
H/+MC6rhMPumOhy/tW2CZh+UXzDdwTMzQyZlJ8z+mQ4pYpesnJ5A+RNmOZT+
e/9Qnes91D1zHJiT/tz+Pxkqv2GuQ6Kh3gW+XTD3zXd4oCubz3QTys9Y4HD9
w8ep13/C3LvQ4WJwQqupKNS8HwsdEs3f8U/dAXP/IoffGSUS069C+R2LHd4H
6y/O/gDzzxKHeVfq7oeyQfVLLHX4kOW6o1MGyn+w1OHQPbM2UWMof8UyhySl
grCfz2D+Xe6QPPGF5JM/UL7FCocdQdtc2gSh6hlWOhjvsSsoUoLyT6x08AzY
vvLIfVh4rHIImZCfFfcZyo9Y7eCtwPjgNSssfNY4PPezdisSh/JfrHHYPvmx
LrcGlL9hrcMN3k2eXW+g+ivWOWS3GPzaCHOPw3oH2W9N74p439sDAEt51Cs=

         "]]}, {
        Hue[0.7520393249936888, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvfd+cwVEn/Yg7kG1Q53zQ7c33niG4TvUO+w
SllCrT3wC4R/oMlh/Z2gdpfHUP6DVoc1U5ZlRIV8hfAZOh3MBQLeCnz+BOEr
9DgEbj38KKbqM9S8fofOecff/t3yEWrfRIfrXRs0tjpB1R+Y5CB5dLXw1V1Q
fsAUhw1SvFpqKVD1D6Y6+OxLWytwG8ovmO4wKVjMwtoBqp5hpkPw9qsrm3Sh
8hNmOXz+oLC0fzKUrzDHoVNjhvDNd1D+hrkOzbouqzw4oXyH+Q72S8K/FiRA
+RkLHIqvJM77OO0D1L0LHZzTzi5e/wbK/7HQYXoAh3u/DVT9gUUOHJM/6Qr3
QOU7Fjuc+JDw/sUNKD9gicPF2Qp7y+Wg6iWWOngbBa+c3AiVf7DUwfqv7APH
41D+imUOIhPC3j9kh/l3ucPWB5ekfaqh8hYrHCrUTUq8dkH5DCsd1nHzXvAz
h/JPrHQ47lif11MC5U9Y5bDiakyf+zooP2K1A7ursOhOmHqFNQ62Ryy3/s6H
8l+scdjDly7suRTK37DW4f87OeF4mPqKdQ4xM0KSxbKhfIf1DjnhbS4f53yw
BwAxqc2d
         "]]}, {
        Hue[0.9881073024934821, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnlZu6bX+722B3MNqh3+NlyeuLEGyneod+B5
PSd2FvsbCP9Ak0Pzpcavbxuh/AetDoaV5/TOT3sL4TN0OjSJVaUKn4TyFXoc
boYu/n79I5Tv0O/Qd612YbDYO6h9Ex1abH6JuJhA+QcmOaQ+ZjOU84PyA6Y4
VDxw9D6YDOU/mOpw1n6KJms5lF8w3SE/QKB+ehOUzzDTId73PfvpiVD+hFkO
/xlTok/Mg/IV5jj8+CKy9PsqKH/DXIcGESaz+7+hfIf5DmYikaLbd0P5GQsc
LGW0lSeyvYe6d6FD6xuPOas4ofwfCx2CfbQqtghA+QcWOZxWviH8XQTK71js
MHd2QHywJJQfsMSBZ8GacyJSUL7EUoep/itMAmWg/AdLHVbMid6tqwjlr1jm
sHL9ZK1OFSi/YLnDp4VrLYPVoXyLFQ4N/wNOOGhB+QwrHSxlte4mwfgnVjq8
NglRbQyD8iescviz8F5bfziUH7HaYf8VldprEVC+whqH3E0zgk9GQvkv1jhw
M8woWxUF5W9Y66Avv2D3Xxi/Yp1DBFeQ4l0Y32G9g0iyksuJmPf2AK8WyHE=

         "]]}, {
        Hue[0.22417527999326836`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDptq/gn/v/HWHsw1qHZgE67++/IAlO9Q76C0
Ut6G+xaUf6DJYYl4kkvpZSj/QavD7+qadU+vQPkMnQ7Bm96ejroA5Sv0OISm
6rq+OAUzr98h0Pv1q+9b3kHtm+hgH/+l6s4CKP/AJAcFjWWWOhOg/IApDjM8
RTu2NEL5D6Y6cMfv6Q4shfILpjs8e9O4eU4qlM8w00HBjmnli89Q/oRZDuEl
nEGKj6F8hTkOKtc3u+ldgfI3zHU43yKtPfcYlO8w32FvlnbH821QfsYChw1q
TZOC18Lcu9Dh5TO/jWcE30P4PxY6iAqznclghfIPLHK4Mv9L2fwfUPUdix1m
pfvPe/wG5p8lDn+mcDZL3IfyJZY6yPoVmsnB3PNgqcPf+7pfLpyG8lcsc5Ap
dOQyOAzz73IHjY6lbdx8UPssVjgsm3gk4xkzlM+w0sGaKyr97Xeo+hMrHfTf
rZX/9Q4WHqsc/B0e5zc8g/IjVjvc7nj6hUkNql9hjUPqq+UuLTJQ/os1Dk7v
bHqbhaH8DWsdREIqys9zQvkV6xxMEjlvszFC+Q7rHQ7JuP2X/PXOHgCjrdI/

         "]]}, {
        Hue[0.4602432574930617, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu9OBH+feZfZAcw1qHa4yhozVXUiE4TvUO+Q
/vaQi2E/A4R/oMkh2POsy6W4P/Zg/oNWB/3HGnPF+qDyDJ0Owq4tKuzZfyHy
Cj0OTM/e+UuW/oLwHfodEr+116/g/QHhG0x0iEo4+ed0/28I/8Akh4/fTAq0
C39C+AFTHPb9sDX+OP871L6pDizyTm2Xeb5B+AXTHU4Hz910+BTUPIaZDnOe
PmE7EQpVP2GWw9Oy6+8luKDqFeY4bJnnLu368AuEv2GuQ6H1wi9zVKDqHeY7
/G2q+8vOAVWfscDh9ddv99ZxfIW6d6GD/cQpB37KQvX/WOjAr5/+zM/jM9T9
ixxYT/rU8mtA1XcsdjggJS98LxyqPmCJg/DlxzyuU6HqJZY6cJrbqT15+Anq
v6UOpYeDnmQ0Q9WvWOaQfiIjq+0KVH3Bcge9bBb2VwZQvsUKh/TJAob906H6
GVY66HNlfDvGBtV/YqXD23XNDzUKoOonrHLQ9D3kI/8Iqj5itYN3yrvnP6Oh
fIU1DnIOsY+E7n6E8F+scZi2ydRcRwmqf8Nah/lprWaPF0PVV6xz+HHlxLoo
HSjfYb0DX+3PyXG7P9oDAACyzD0=
         "]]}, {
        Hue[0.696311234992848, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgyJeZ/rrd7Yg7kG1Q7yf5Yy/mGD8h3qHUpK
G7euyn0L4R9ocgg8I/LZ6SdU/kGrw8eLbxTajkPlGTodmt/G2vElvYPwFXoc
RLymxuV+g8o79Ds4faopNi2GyhtMdNg2qc16hjSUf2CSw1SZVgaHJig/YIqD
dJvQPBMzKP/BVAfVV07b4nuh/ILpDrKXNf7muUL5DDMdNguyO7VMhPInzHLQ
FxYJe3sF5p45DpstL19aNQPK3zDXIdRf8tQLmLzDfIfsC3/u3J0F5WcscHD7
evDs/0sw9y508EiZJHV5PpT/Y6HDW3O2CrvLMPcvcvgonKKixPgewu9Y7PBG
a3txFkw+YInD/zvL4tl+Q/kSSx30WGIvHDgP899Sh5fPJHKqf0D5K5Y5LBVK
Eze9CPPvcoeVV2bEeXyD8i1WODx+bs+lKgm1j2Glw5xe5pXMn6DyJ1Y68Af+
WPlICCo/YZXDSTndwsQPUPmI1Q7xSfKMtfxQeYU1DtliP4S/vIPKv1jjwBy/
9FQGD1R+w1qHAr3Nso1voPIV6xxymUsXXWSHyjusdyiuc233Vn5vDwDR+sy+

         "]]}, {
        Hue[0.9323792124926413, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpVWUQfe23+yB3MNqh3eF21efoj3I4TvUO8Q
z7M8wD0Jyj/Q5PDEJ/Fk5IEPEP6DVgfDB29CpLygfIZOB7vl8/RvxUHVK/Q4
VIe/181+A5V36HfgWf1EoHsilG8w0aH8Sq3uBFco/8AkB83Y9IelrFB+wBSH
y4r3tv3ZA7NvqsMBiZbUoloov2C6w9/eY02uzjD7ZzroNlpPLhOC8ifMctgS
773199n3UPfMcdgxI+Dv3nyo/Ia5DvM+mXx7C9PvMN/h5Zuuk9lSUH7GAoeI
OxeOWb2D6jdY6LCtLpw9YjWU/2Ohw27r8JsuMP0HFjlwHmUpZVKC8jsWOzhG
M57yZ4b5Z4nDL+YI/QunoPolljpM3S/z22cqlP9gqYP3YsepC1Sh6lcsc+Cb
/KLyLRfMv8sd7DnqGx8/hqq3WOGwQdFAVXYrlM+w0uH35Q6LFW1Q/omVDse0
LfccFYCFxyoH87Nrv3/4ApWPWO1w3bFf5SrMPQprHLxP8Vr8WwTlv1jjUF9a
q2FfC+VvWOuwRt7SeQoj1LyKdQ7dbydwOt6Byjusd2hmOSfaveO9PQAGUdCZ

         "]]}, {
        Hue[0.16844718999242758`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvM3nDn8mPujPZhrUO0we8LqoFSzTxC+Q73D
4jzLczdsPkD4B5ocHsbz3f+QDFX/oNXBSCpRef1eqDxDp4Nsz6ampZZQvkKP
w53sPf0P2KDqHfoddiy9vG7SVKi8wUQHjhlx61+awcyf5KBo1/GA5dx7CD9g
ioMtg5pWVCNU/sFUh8WzDsTJmUP5BdMdJMsvvHd7DlXPMNPhb8DBw1xFUPkJ
sxwsGne84jCFuWeOg8pa1W13/kDVb5jrIDgtPXTqLCjfYb6DjVvUrQpjqPqM
BQ5/HJc3c7LC3LvQwaLs09Kbm6Dqfyx0eFfbeiU4Fco/sMhht2LxJXluqPqO
xQ4TZiTxbj4J888SB4uTzkcf1UP5EksdXma2LPvPC/PfUodli3g7RW5A5Vcs
c1hd/nfd3elQfsFyB+XFPEInoqF8ixUOgZvWxsQ/g/l/pcPESdVLxFZC+SdW
OoR+ime/VAjlT1jlIDZRhfP0eyg/YrVD9Qf/3XN3QvkKaxy+X7B3iWmD8l+s
cZhyL2jf3Z+w8Frr4OIoZmV3DMqvWOdw0/+844OpsPBb73A9LV5VI/O9PQBB
ztKr
         "]]}, {
        Hue[0.40451516749222094`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmfutPw6/fSNPZhrUO0QsuS45Jx6KN+h3mFZ
iETer8K3EP6BJge2K0q20ueg/AetDrJfpkm8FYbyGTodEvjcDjCkQfkKPQ4h
rZt3OS+D8h36HQLfVHqcvgflG0x0cDrw8ngv7zuo+ZMcuHexHMkwhfIDpjjw
pkS9SgqH8h9MdahXzNr+vwTKL5jusOtoxrrfnVA+w0yHBSV8YrYLofwJsxyq
u5Jdl2+F8hXmOOxwnzCT5wSUv2Guw6blG2ozb0D5DvMdVmxpOnP9MZSfscCB
Jez83jeToXyDhQ6RTPum/l8E5f9Y6BDl/fD4sc0w9y9yWHmsknXnQSi/Y7ED
E8+6NVvOwfyzxMF/YsWWw9ehfImlDsWxdldfPoT5b6nDHskqyfK3UP6KZQ4a
dxaX+XyH+Xe5w+xd7JWJDO8hfIsVDj5V9vf/c0D5DCsd0lLD2FbxQfknVjoo
yr3+6iMG5U9Y5bDIzp+jVBbKj1jt0Hfu2ibDV7DwWeOw9sjMo1qfoPwXaxz+
26klbv0JC6+1Dn+XO2md+w/lV6xzcGAs+nGfFWqew3oHtZ3ymUa87+0Bvw/U
DA==
         "]]}, {
        Hue[0.6405831449920072, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqq7poU+tP9jD+YaVDuoWXWs+zSL0QHMd6h3
OLB1+c5Haf8h8geaHKYeYD/G9uwXhP+g1aFK+vPVDV3fIXyGTofuHH+ne6pQ
eYUeh4KnylslW6DyDv0OUsINBSyJX6H2TXRgn60iWQyTPzDJwcuEfVbaVqh8
wBSH+xlb72VofIHaN9WB4ZJQf+JnqHzBdIe69FNF7yZA5RlmOvCWvfBrjP4M
4U+Y5WBlc7xU4SlUXmGOQ+EpoYXrTkPlN8x1sE/nz0w59wnqvvkON3ee+66q
AlWfscChjT378XorqHqDhQ6C6zx1JFOg6n8sdFg1dw+32zSo/IFFDqzq1n7n
zkLlOxY7HLr1Q/CACJQfsMQhJHHH/yJVqHqJpQ4zrz46y1sGlX+w1CFfRtV2
2+WPEP6KZQ5r3zf43z0DlS9Y7rBWsO/YHkMo32KFQ4fclr+hC6DqGVY6/DPa
LPyzCSp/YqVDWlrghT3fofITVjnM/mjmk18C5UesdjASzNZc6wZVr7DGYcfv
R3FhJ6DyL9Y4ZCY1OS4JgPI3rHW44aPWd0cIqr5inYPFnxNZn+dB5R3WO3xf
dMEmxfCjPQCYl9Bb
         "]]}, {
        Hue[0.8766511224918005, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgr5zY8s5D/Yg7kG1Q7KfIkmM79A+Q71DvUM
R43sz0L5B5ocXtb/f/Nw+XsI/0Grw+XFX15vi4fKM3Q6nPR60mIdApVX6HE4
Jv/Nyk4KZl6/w+ZPv06XVsDsm+iwQb7pZ9k9qPoDkxzifqzrN3SCygdMcbh+
R/Ob5EKYfVMdQuJj51XCzCuY7nBmXkmPbh5UnmGmw9Rzhyeu/AzlT5jlUD/5
1FpRb5h75ji8q4l8r3kEyt8w1yFDtU35hB6U7zDf4cCsbWHMs6D8jAUOexNi
LsgxwNy70GHbyf+9nVVQ+R8LHbJ3+auuvwlz/yKHnrD3ZyMSofyOxQ4b93lu
/rUDyg9Y4qAkfGbjbXcoX2Kpg4yvKJfdTJj/ljrY7WJUWWEC5a9Y5nAu58d2
6SYov2C5g46N5u/eU1C+xQqHzs2bzijmwvy/0uGoqMO1uPVQ/omVDgrKxQdM
I2DhscphsdPZOZ0w+yJWOyyZmeJ4AeYehTUO+z0srgq0Qfkv1jjsNJjMr2IJ
C6+1DrP+xqY6FUP5FescXrNOr2fVgoXfeodFR74dn5L83h4A2RzTcg==
         "]]}, {
        Hue[0.1127190999915868, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDp8tFDVCCxkdwFyDagcjG2PhXF8GCN+h3sFq
71LFAJG/9mD+gSaHtPfMb07Mhso/aHXg/25+NF4IKs/Q6XDm0lPnhis/IXyF
Hgc+7kOZzNbfIXyHfodL2rutl6T9gvANJjpkpG+NtDb+ATV/kkPKP87Yk2Hf
IPyAKQ5rkiYyznoClX8w1eG5D/etCzDzCqY7mDzWCFl75CvU/pkOr956JevX
foHwJ8xy0J+Q7X9kMtQ8hTkOjS+cK9YlQ9VvmOsQ+/RiI3MQVL3DfId0FRsp
lYjPEH7GAoddcufFyqWh6g0WOky4LPv2rT5U/Y+FDkJSPm1NkVD1BxY5LH2+
e33N5E8QfsdiB8EaVs5oCaj6gCUOIit9GRVg5kssdfiX3nz+7TKo+gdLHdac
OvovgBmqfsUyhzXBVyM3wtQXLHc49SZuouBOqHqLFQ57L2wrK1aG8hlWOhg0
iSptCoeqP7HS4Wgt/1vzY1D5CascCh4WhbLbQvkRqx2aGW15y3Z/hIbPGgc5
qVMyVZeg8i/WODz826F0KhjK37DW4f+C+bsv3YKqr1jn8ON0zd+gDCjfYb3D
Ga/ZL6vTPtkDAGYvyZs=
         "]]}, {
        Hue[0.34878707749138016`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDsF+p3ybnr21B3MNqh0UZvZv+7vvHYTvUO+Q
vKjvwNQXUPkDTQ6nmf/dPMTyAcJ/0OqwNrPu3Npj7yF8hk4H99Z4FvVeKF+h
x+H+s/IPB2OgfId+B/dAjbN/LKF8g4kOa9NOfu2VgfIPTHK4b7xs3l9mKD9g
ioObyIG6E++g7nkw1aF618O37Xeg/ILpDs6rz99ZcRzKZ5jpsGPH7+V/dkL5
E2Y5/DX6tl69GeaeOQ49gpMO3cmB8jfMdfize4rL4QiY++Y7FL2o2PHPCcrP
WOBQ+zDo0HtjmHsXOry3/aq1RRnK/7HQwcdnwdQwcZj7FznUim/q3sIF5Xcs
dth/fAmL0H+oewKWODhKtU9M/QjlSyx1cNbQ1j6RD1X/YKlDyPpbtceSoPwV
yxz2TdWdfSYUyi9Y7uD97pLxAk8o32KFw5I/6YJedrDwX+nwaetkT01DKP/E
SofjVdUlGupQ/oRVDl/XFK/cKAvlR6x2WGGkn3VCBBY+axyEdPb2h/FA+S/W
OHAWCwWHssDCa62Dzr/pPyt/Q91fsc7hW+y07qXBsPBb77Bs1qbjut7v7QGL
fNjs
         "]]}, {
        Hue[0.5848550549911664, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvy1k1O3Zb22B3MNqh0YCucLZGyD8h3qHb7t
73C5UvkGwj/Q5HB4nozyT9W3EP6DVofaaXwr7HdB+QydDotnLeMXlX4H4Sv0
OKybZfW+nBPKd+h3eD5jzokrEVC+wUSH5BkTvJVnQ/kHJjlcdFk2j/kylB8w
xWH6ux5dPub3UPumOpTxaGys1oHyC6Y7vOz8dZHZB8pnmOmgJFmuuUAPyp8w
y+HvOY6My35QvsIch2dNz5WLsqH8DXMdPNeafSlshfId5jv8qzXXejMDys9Y
4LCwsrQzoBnKN1jo8NGnwk7hEJT/Y6GD7MItuVlroPwDixxMSo96TdwH5Xcs
dtCc8pxB8zyUH7DEIUtGJmDPbShfYqnDvlg174nPYP5b6vB99ZElC75D+SuW
OTw3d2rQfAjz73KH5CUbS2XeQfkWKxyirFbVyP2C+X+lg9v9WX0Rj6H8Eysd
fi+f6PIPpn7CKgdpMfaTPDD1EasdFp6K1tZh+gANnzUOsoeyjOTYofwXaxx2
Hdf5fpYbyt+w1uEYV9m1AgEov2Kdw7k44/l2bFC+w3oH5WmKBdeA6gGz/czT

         "]]}, {
        Hue[0.8209230324909598, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlJ7mRwUHn6yB3MNqh3u8j69t2TJRwjfod5h
jYV/i04MVP5AkwPfv0d2kT+h8g9aHXTOPV81dROUz9Dp8KvAN2FRBZSv0OOw
xlHqzXEPmHn9DnXHw8+mqUD5BhMdunRvSFxghfIPTHKwfyfZKffmA4QfMMWh
zjxTg+UalP9gqsPilxe3vz4E5RdMd9ATWVAwYT2UzzDT4RGXrDPPQih/wiyH
Dm/PCr4pUL7CHIfVe098Tu+A8jfMdUjt1TJ5WwvlO8x3OLOlm7ejCMrPWOAQ
/Pqz95IsKN9goYPxhGtfTZKg/B8LHb7snp2xPRrKP7DIIXz5BxWFUCi/Y7HD
ysWH3nD5w/yzxGG/5TP2p+5QvsRShwsNme2eTjD/LXV49ff83He2UP6KZQ7L
En4Il1jC/LvcQdMlt8rJFMq3WOFwspX1SYwhzP8rHeq91AwydaD8EysdXNKV
T//UgIXHKof7jaeW7FCF8iNWO7Tfe3tzuRIsfNY4/PV7f+OAPJT/Yo2D59HN
0xhkYeG11qH87NNDWySh/Ip1DselLvS9FoOF33qHnjdH57wW+WAPAL961HU=

         "]]}, {
        Hue[0.05699100999074602, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtEJeVnxYhwOYK5BtcP9RXWqLs1sEL5DvcO9
/7PmiYmwQPgHmhyORt5Zq2LMCOE/aHV4O8Wvoln6nz3EvE6HeeYFD/ddhcor
9DisL3Q9YMfFADWv32FF73ETJ62/EPUGEx3kBXb0vt79C8I/MMnhdEuc4sK1
PyD8gCkOC1f+emG59A+E/2CqA3foPtHCPVD1BdMd4naEKh3n+Qm1f6bDnlM1
7e8nf4fwJ8xyiCm/qXTR5RuErzDHYdty5qmWgVD1G+Y6GL86+yaAF2qfw3yH
u5/yGic+harPWOCg1+SrbnznK9S9Cx32fpXj8HjxBcL/sdBB5usdOSsuKP/A
IgfBvbcmihVB9XcsdnjWc1HDfCpUf8AShwOXOt8dPgZVL7HUgcFDkaOMA8p/
sNSBOzLtSEDEZwh/xTKHLzeeK8XHQ/UXLHf4qn1Vkms9VL3FCgfbf0dXHOKE
8hlWOmg822r9Pgeq/8RKhz/fxPZev/UJGh6rHDIPvbvqMBuqPmK1g1R7Z9I9
mP0Kaxxm9C3PT66D6n+xxkE+vt/H4DdU/4a1Dn/NGhe9rIXyK9Y5FK/5LG8A
0++w3uFB9RuLZd2f7QHBmc4D
         "]]}, {
        Hue[0.2930589874905394, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkuVV2+MvPDGHsw1qHb46lo+NU/3LYTvUO9g
fTe0I5XjHYR/oMlB8rH1BuMHUP6DVgepeY2NtixQPkOnw/ktepUpa6B8hR4H
7Xevy3b8gpnX76BxwdxlSjtU3mCig0BanWLvH5j5kxyi9SJ06wqh/IApDps3
SXYXXYfZN9Xhkf6F1q/67yH8gukOxxN8b1/bBrN/pgOLhcD5V2xQ+QmzHK4+
bG14tBDmnjkO1+T/TS55BeVvmOtwrOOI8TZtqHqH+Q4lGy01zp+HymcscBBc
9DtvNS9U3mChQ1HjbDvWvVD5Hwsd9nctC1z2Deb+RQ5hon/3JWpB1XcsdlAK
+fBW5jHMP0scwgxOWdwUgMpLLHXYqvOpWM8Wyn+w1KHK1WXR1L9Q9SuWOfyx
NzjfrgHz73KHY/n37S69gcpbrHDgn5r8dJEoVJ5hpUMg+1Pjg7eh8idWOrCn
JtnPYoKFxyqH3h0su4zVofyI1Q69E5O1b3+Ghc8ah1SPG/8fiUHlX6xxKJ7f
lyNkAeVvWOug0RO+6i8sfCvWORy/WnbeWg0Wfusd9norXrvz8509AKps0gA=

         "]]}, {
        Hue[0.5291269649903256, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqr2E1cfaHprD+YaVDvIvT+36J34Owjfod7h
01VLrpyg9xD+gSYHwVmPuHYth8o/aHWw+zlN4o8ulM/Q6TDvubW0gxdUvUKP
g2qzi3P6RZh5/Q7J+i7R3sVQvsFEB/YHmcLJLjDzJzlMf3vg17nXUPmAKQ5L
9pW9PTAfZt9Uh9u+0g1+MPUF0x3m8MlMTv0Os3+mg3We1NroHVD+hFkODLu/
+H+xh7lnjkP7+hcTupih/A1zHYJrT79VOAtz33yH94aZrgdtoPIZCxy8hWtY
2LigfIOFDloSC7cZ3oSq/7HQYc56aZ7zdjD3L3KwipJ9/04Ayu9Y7PBFfZXa
gmcw/yxxiGtdcCgBZr7EUgevnPzsRUJQ/gMgPzqha8JbqPoVyxxMeeZHatvC
/LvcgfVoopizBJRvscLB/eu9v3u/wvy/0mGn7HXmXGuo/ImVDnVhR51uSUL5
E1Y5vJnuNVvrF1R9xGqHKv3JUfIw9yisceA58ljDWhbKf7HGIbP8v+u3/1D1
G9Y6tL6rXZ0DM79inYPH8cIDxnJQvsN6hzZ7ebYDwPAFACdTyXU=
         "]]}, {
        Hue[0.765194942490119, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDj0RDlFNfN/twVyDaocdmzmfV/d8hfAd6h0m
p+bovWT7AeEfaHLQYfb80jDlC4T/oNXBJFUpcM9cqHqGToeH9+ZdyjX5DOEr
9DhcPDRL5L4aVL1Dv4M95y/rF4GfoPZNdFiSo7UyyBCq/sAkhwu7GW/NeAfl
B0xxmO1WVv6jEar+wVSHcsaKW6th6gumO+jMudqy9PdHqP0zHSra75n3zIOq
nzDLYdlbrZjTU6HyCnMcKmbz9J3SgcpvmOtw4eIvNR0XqLzDfIdLfjFRc85B
+RkLHKKePFypzgDlGyx0mP6uQ2ZnE5T/Y6GD7+q1pWtPfIC6f5HDpqCFlxc4
Q+U7FjscynDwUtwK5QcscciYyem0nhvKl1jqoOtlMHFqGZT/YKmDpA9jwa87
UPNWLHN4fP9w+CEnqHzBcgcx2+w6ny1QeYsVDjO2hTuyi8L8v9Kh7pa6mlc/
VP7ESoccp3K/2NdQ/oRVDo3Gm3g35kP5EasdTH+KOrUdh/IV1jjU1BRKNgZD
+S/WOHDp87OWLofyN6x1KFFUmZb4DcqvWOegNW/SlomdUL7Deoem9pe5qdc+
2AMAOWzM6g==
         "]]}, {
        Hue[0.0012629199899052423`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDjcv/pM7NO29PZhrUO3A9/St1o30DxC+Q71D
d5ex/w1xKP9Ak8OdiYYM972g/AetDllamWlOW95B+AydDptLJHtu60LNU+hx
uHSZP7WiB8p36HfY9/vT0533YPZNdPj95dTzFEGY+ZMcmM5sbWVhgsoHTHHI
7Lvd6eID5T+Y6uDQt9hwH8y8gukOYetremQOQPkMMx2SBUJ4ol9C3TNhlkP/
kWdClSow98xx2P1BqDwyEsrfMNdhV3Nfw5sOmPvmO/xblbIjcAOUn7HA4d8p
SyMrHph7FzrcthVat90cyv+x0CFFfE4nbxKUf2CRw9+PHazH2qH8jsUOD3W7
DOaugvlnicPr69mCuopQvsRSh/n7pnn4uMD8t9RB63Tthd1pUP6KZQ4tCYYa
/G0w/y53+PEmR1hOCMq3WOHQuftNv44RzP8rHcR6oree8YXyT6x00PhmJK+R
BeVPWOVg07HB/m4LlB+x2uGa/eS5IjD3KKxxMKtlfRRsA+W/WOMQkBk2UzkM
Fl5rHXad+sESkgvlV6xzeGHxOrhMGBZ+6x3c1qxR4wHGPwCgqc0U
         "]]}, {
        Hue[0.2373308974896915, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpUWl3Tiz3M5gLkG1Q5+ty41bebjhPAd6h3s
W4p6RCPZIPwDTQ4TFRfrXFdhhvAftDpU3LPlij7IAOEzdDqs26zK7nrsrz2Y
q9DjsHzLefmkW4xQ8/odbgU1PRO3hqo3mOjgaq/I0HgQqv7AJIftZSEbd5b/
hvADpjgYZj1gqWv8CeE/mOoQ+1mbwe/cdwi/YLpDfvm59wseQtUzzHQwVZnx
1sDuF4Q/YZZDiPfzYsOTP6DumePwZjf72+RqqP4Ncx1SmZn8fvp9g/Ad5jsc
4pGLk62B2pexwOGF73fbAyFQ/QYLHUw4cjmcXaH6fyx0WHJRdbM0TP+BRQ6Z
XtOqbmV+hfA7FjvwzN4xV2X6F6h/ljjUMd6U+ioP1S+x1OHj8+VNKj5Q/Q+W
OlhM7nAQ64DqX7HMYeFU6ZntF6D6C5Y77LJv+XtWBcq3WOEw0V722/Xmz1D/
r3S4xPwiinM+VP+JlQ7lqy405f2Bqp+wyuGk09+rYslQfsRqh/9tMQwul6D6
FdY4vI3Zx+3sCeW/WOOwR7LiT+nxT9DwWuuwNnZe9P8pUP0V6xxeaZtpswhC
+Q7rHWavlb/qPOWzPQCrIMYL
         "]]}, {
        Hue[0.47339887498948485`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDk9YdefaiLI7gLkG1Q42H9b0fZjECuE71Dvo
Zet37LdlhvAPNDlUHpo1qaOaAcJ/0OpwQu7VaZlbf+wh5nU6OGt+c1m06CeE
r9DjoL9wmTLHvn8QvkO/w5oz876++vQbwjeY6ND4VfVm+zyo+gOTHOZc+7JE
f9l3CD9gioN+w6EzR79+hfAfTHXgXfu2W7T+C4RfMN2hbqHu21jGH1D7Zzo8
qTqnYTvjG4Q/YZbD3ZVxxhLhUP0KcxxWTCry3GQO1b9hrsMaI2YpbtPPUPfN
dzhu6NCu8hGqPmOBg5bTDZbrn6DqDRY6sL+8cFCcE8r/sdBBx+6kr48JVP+B
RQ4HWb0TjuV/gvA7Fju8nHY9J3rXR6h/ljissXhQ+PMFVL3EUodHkRqCs42g
/AdLHbx/rdU91wnVv2KZw4ZEKfEjr6H6C5Y77H7a+OVlOJRvscLhscrMoJCz
H6D+X+nwQGxLx4S5UP0nVjr4OSdMmyAI5U9Y5dA4q0ynqxeqP2K1w4vFBTk3
BaB8hTUOz02UHJ/Mgpr3Yo1D/GKvpUraUP6GtQ4VJxTbmnZA1Vesc+A64Jzw
wA3Kd1jvkLDf/nj57Q/2AAtgz6Y=
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 3.351255750813888}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alabama\"", "\"Alaska\"", "\"Arizona\"", "\"Arkansas\"", 
       "\"California\"", "\"Colorado\"", "\"Connecticut\"", "\"Delaware\"", 
       "\"Florida\"", "\"Georgia\"", "\"Hawaii\"", "\"Idaho\"", 
       "\"Illinois\"", "\"Indiana\"", "\"Iowa\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.8818217162215033`*^9, 3.8818219771863213`*^9, 3.881822897439624*^9, 
   3.881823234169651*^9, {3.881827092488068*^9, 3.8818271134964037`*^9}, 
   3.8818980647619047`*^9, 3.882060409537504*^9, 3.882074496544383*^9, 
   3.882127194578966*^9, 3.882127499767376*^9, 3.882139102970292*^9, 
   3.8822359329796247`*^9, 3.8822369814055643`*^9, 3.882237076734565*^9, 
   3.8825143685292873`*^9, 3.882555554169283*^9, 3.88259658455475*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"a6cea05d-fe07-4722-b83c-5194b15d9b1f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"KeySelect", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", "relativePowerProportionalityCoords", "]"}], 
     ",", 
     RowBox[{
      RowBox[{"MemberQ", "[", 
       RowBox[{"smallest15States", ",", "#"}], "]"}], "&"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.881823209838602*^9, 3.881823249698524*^9}, {
   3.881823882605728*^9, 3.8818239056073914`*^9}, 3.8818239623461523`*^9, 
   3.88182399358659*^9, {3.881824029013666*^9, 3.881824029391127*^9}, {
   3.881824163635373*^9, 3.88182416407406*^9}, {3.881887123961458*^9, 
   3.8818871464447327`*^9}, 3.88188717849044*^9},
 CellLabel->"In[96]:=",ExpressionUUID->"2721ddb9-2bea-47a2-9115-b8899e2562a8"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDotDH8m+UmB1AHMNqh0OGhlzBu9nhvAd6h32
FjTKbprDCOEfaHIoXCKxukfnnz2Y/6DVgVtgc23rbKg8Q6fDywsxs855/ofI
K/Q41O4+WrVR+Q+E79DvILp+W5zC1J8QvsFEh2bF22+ti79D+AcmOdSvNnOy
5f8N4QdMcWg13FGYrwBV/2Cqw1nmS3wbYeoLpjtM0dcP5P35FcJnmOlgWbrT
t//iDwh/wiyHJZOe8J0qgKpXmOPw8/WUGHHTbxD+hrkOicckcn5IQPU7zHfg
OfdVo1f0C4SfscDhk7HGZKZ4qHqDhQ5Ms+dOT0yFqv+x0OEN70FfxSao+gOL
HBZU317iuOEzhN+x2KGN957Ul0VQ9QFLHML9NzD8uQxVL7HUYZ1h3XZjmH0P
ljpMTz6cNDcFqn/FMoe0XT+YPfd/gvp3uUOPb/VG+0yoeosVDuGmwkyqx6Dq
GVY6/Jsu8T1RG8o/sdIh2slor9lsqP4JqxxWbli3oAhmX8Rqh3k+BxmPtUHV
K6xxeFn2d+nZ/1D1L9Y4JHuLvXhbD+VvWOuQyzLJ7QorlF+xzsGBp3qPfAhU
v8N6h5umH85+uf3JHgDjYsmK
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkscLuauMP9vD+YaVDvUGE3aaqX7F8J3qHfo
qWsy3RnJ6ADmH2hyUD2vwluxEyr/oNUhwmGjyC3mXxA+Q6cDczSvoY3sdwhf
ocehXVhvy8Q/P6Hm9TuosuU1MS2AyhtMdCicVHb/2vKvEP6BSQ63NOX0nf5C
5QOmOGwznO3R7/YNat9UB+XpTjwFp75A+AXTHRTrv/3n3wWVZ5jpcDwt4IhC
CtS8CbMcNP923uUzgapXmOPA4T2H/5PyZwh/w1wHGe7vswxOQOUd5jsYFL3m
WHgCKp+xwOF1s2Nr0ONPUPcudJA9t3ziriCo+h8LHXZkR+bcroKqP7DIwXXm
7Yy6zVD1HYsd3rjuTuT+DZUPWOJQ57iN/bk1lC+x1CH7aOOVrd1Q9Q+WOvyb
X6a18MVHCH/FMof81WsXmXFD1RcsdwiYlP5eJA+q3mKFw9WjIhxnb0HVM6x0
mKfko/7xIVT+xEoHtmv7578OhvInrHKY9+xn8t+zUPURqx2YH2S/unkAKq+w
xqH69Kcsc3so/8Uah1Nf9J6mHoGq37DWwSWVI0jBH8qvWOfwsWTG3lodqHqH
9Q6f2hg16nd/tAcA1KXO4A==
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDk1xuUtEy//Yg7kG1Q4HbGWZm2b9gvAd6h1i
n9bIXN35HcI/0ORQlfB5TnTGTwj/QavDdaVm/zKbbxA+Q6eDULwi/6atUPUK
PQ6OD9uZlwd9hZrX77BpapZba9JnqH0THZSXuj+z3/0Fav4kh9w9/n8YlaHy
AVMcrs+p01Txh8o/mOrQpKlX2PzlE4RfMN1BL6l1zvtfUPUMMx0qGgLl3c9B
5SfMcjhiZrDw9aGPUPfMcdBe4jSnbBNUfsNch08XfO4bHYbKO8x3qFfaUX5k
JlQ+Y4HD/lOB65Rh+g0WOrwItVaLaIfK/1jocObXuZRGmPyBRQ5dlyS/TayA
yncsdqj/MEf/CEw+YIlD441Hy65JQPkSSx0u79jJ+/4AlP9gqUNU/8SFp1Wg
/BXLHPaqFJkfOAjlFyx3UOg3KTPXh/ItVjjcT1WLE4WZz7DS4ehT5VuC5lD+
iZUOrwPnb5q09QM0PFY5/D60Q9HeHiofsdqhRXt+zuYjUHmFNQ7MHHNOdbpB
5V+scfh56tID20tQ+Q1rHWbxTVsa6gOVr1jnEPtzZ27SXai8w3qH1SeZT3sF
fbQHAEIu1CA=
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgWf2C4LhX2zB3MNqh2cJwS4yzz4AuE71DsY
L+9cuM3tO4R/oMmhUtH594P3nyH8B60O6XL1Gy99gKpn6HRYZmWne27WJwhf
ocfhS8dXkTWtUPUO/Q5dmWJXb3tA1RtMdNixquLO6elQ9QcmOVj7STJq+EPV
B0xxqF53IPLN249Q+6Y6aGT4uijNgKovmO7wXcnqyelsqDzDTIft9483zuaE
yk+Y5aC6+ECFAidUXmGOw9xp18+lz4byN8x1eFE0WUFUHqreYb6DwQXjX1oO
UPmMBQ67nu5iX7YHyjdY6LDNJvL4sm8fIPwfCx1Yly1Newiz/8Aih0+rPUza
d0LlOxY7xNyetLdaHSofsMQht1/2y+puKF9iqcPGg99Cn7yCqn+w1EFqm0iF
qQ9UfsUyh3UecmvW74DKFywHhqAZy3sRqLzFCoetcxNTk3qg8gwrHRQMb2UJ
PYbyT6x0kO18uJM1BcqfsMphzdqZM2Vh5kWsdmg361HqZYeFzxoH3S3Lmc9M
hMq/WOMg6GKawn8Pyt+w1mHu75qHG/Og/Ip1DjeLvK6s3Q7lO6x3mMphNmWr
/wd7ADiz0dA=
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDiGv3n2b7/XPHsw1qHZQO7J+QoX/Hwjfod6h
rz7vWLv9Twj/QJNDV2jZ8rWcvyH8B60OBnOkf2xY+R3CZ+h0OJsTUy/O9hXC
V+hx+KllHvlwwzeoef0OGWvuLH214AvUvokODA27Cw/zQ+UPTHLo5mDVDImF
ygdMcfjtv9n44YtPUPumOkx/svbTTW2ofMF0h0bfL43Sz6DyDDMd7Ip2zNZk
hspPmOVQFzbn6DKYvMIcB9mQ8y08Lz5C+BvmOmReejj1E0zeYb7DVy3VrKp/
UPmMBQ4LH039d/EpVN5gocPt5OiyF0JQ/o+FDhwLzpq/DIKqP7DIYUPGfK3D
KlD5jsUObjKRvQZFUPmAJQ41z/8ZrTCEykssddDl79r4owsq/2CpQ/tiu0mJ
dlD5FcscFt8++vTiIqh8wXIHsYedLzwFoXyLFQ7/bnfpBmyH8hlWOqiemu25
SAfKP7HS4VJa+3nWE1D+hFUO3vM/XhN0g/IjVjs4RRltDjv9ARo+axxiX5kt
PhgDlX+xxqHTvETm4XOo/Ia1DnJr+61jC6DyFescZrc2XmxmgPId1jsUPVu6
/fS0D/YAoRLX/A==
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvcESw/31P6xB3MNqh06aq7WJR5kdADzHeod
NnXPvJ+/+j9E/kCTw7E/EYb7FX5D+A9aHdZLSfiI7vsO4TN0OmgvP2rwOe4X
hK/Q43BzrdWJ/O1QeYd+B80lh8w29H+F2jfRYceL+PcnYfIHJjlkxTdNO/UE
Kh8wxeElq4FZVsgXqH1THewlF9/0Uf4G4RdMd4ite/ft8l6oPMNMh28TDMMO
t36G8CfMcsjYwHZ8rxDUPIU5Dg+uGnc//QaV3zDXYUdja1LR909Q9813yHl2
nlEuAGpexgIHwaWKbqtSoOoNFjpcUdkjZd8DVf9joYOLpU4cx0Go/IFFDhts
mRhuf4PKdyx2qNrieMLCBsoPWOLwiLOd1d4fql5iqcPzFW/fRc2Dyj9Y6hC7
ye/Hgl8fIfwVyxwu5el9fv4VKl+w3GHV+6ojJZFQvsUKh2B+0YkXjkHVM6x0
+GqzICNpNVT+xEoHRqWVBt/koPwJqxzO2Wpyds2Cqo9Y7XCj3/bupDyovMIa
h/KVEa4a76HyL9Y45P2wuV1QBuVvWOuwgme/oS4zlF+xzmG7gNyPrKNQvsN6
h1UtdvPehH20BwC5vNQs
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkIaiZqTuL/ag7kG1Q6uEVM+TJv+A8J3qHfY
2hLn5fsOKn+gyeF4f2/67O5vEP6DVgf1GTWaP3Z9hvAZOh0u33gew17yBcJX
6HH4tHnnn3Mpn6Dm9Tus3LR83jYZqHqDiQ6PMs9fXbMVyj8wyYFh0d0JhYZQ
9QFTHBROi7aUHIXyH0x18F2n8PV/y0cIv2C6Q8S7Fbcr+aDyDDMdzM+1yW37
9wHCnzDLoblGYvWFJqh6hTkOhq0Jy//9gPI3zHW4obHk10chKN9hvkOtnxuL
ViOUn7HA4StrRaLxNqh5BgsdZvfrhAooQOV/LHRwuLh1VyrM/AOLHAKiDJ8o
noeq71jsYH7no3GaDlQ+YInD3g/SDHwdUHmJpQ6bLjH373wA5T9Y6qDivVNL
1wSqfsUyh5orrzyLFkLlC5Y78LaKn1b5COVbrHDYczmxaUsmlM+w0qFxR2jO
ty1Q/omVDlUG7eHcf2HhscqhUNTg260GKD9itcO5u+t7449B+QprHKZFLboS
HwTlv1jjsO/3n8UlU6H8DWsdfp52v5twBcqvWOfQur7jdkYGlO+w3mFC1JXL
Ccs+2AMAeh3YbQ==
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDoyNU/tFvv21B3MNqh3eCz5eUsLwB8J3qHdY
VZd+m//nDwj/QJODZtMVdvN9vyD8B60OP5cfO7Q0/TuEz9DpUKS47EXm6S8Q
vkKPw1+xxCk9hd+g5vU7ML2xLQxPh8obTHTQmd4abXDpK9T8SQ5cdw1m1KpA
5QOmOGx76KAuteUT1L6pDsIVyyp7P3+G8AumOzxJ9DSK2QiVZ5jp4N7Httnv
NFR+wiyHM80OH5/C5BXmOMidc/7Evg4qv2Guw++nb94abILKO8x3mMnSPc3x
zEcIP2OBQ1a2RI0wTL/BQodHy9rmlj2Ayv9Y6ND5t0q+DCZ/YJHDggPna+Q/
QeU7Fjt4J1a61TtC+QFLHFTPPW1/8A/Kl1jqMNn6uz1TFJT/YKkD07ntyWXc
UPNWLHNYsiTxyYxCqHzBcoeWpTvy88Sg8hYrHLwPz/15txUqz7DSISVsqsrm
Px8g/BMrHdhkZvxImQaVn7DKwTH3x+bbolB+xGqHy0c22wYug/IV1jjUmtfp
+ehA+S/WOOitundn4w6oeRvWOhxc9Jdnoz1UvmKdA/OOzef5L0LlHdY7XL8o
9uVV4Ed7AIRa1t8=
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvfd+cwVEn/Yg7kG1Q53zQ7c33niG4TvUO+w
SllCrT3wC4R/oMlh/Z2gdpfHUP6DVoc1U5ZlRIV8hfAZOh3MBQLeCnz+BOEr
9DgEbj38KKbqM9S8fofOecff/t3yEWrfRIfrXRs0tjpB1R+Y5CB5dLXw1V1Q
fsAUhw1SvFpqKVD1D6Y6+OxLWytwG8ovmO4wKVjMwtoBqp5hpkPw9qsrm3Sh
8hNmOXz+oLC0fzKUrzDHoVNjhvDNd1D+hrkOzbouqzw4oXyH+Q72S8K/FiRA
+RkLHIqvJM77OO0D1L0LHZzTzi5e/wbK/7HQYXoAh3u/DVT9gUUOHJM/6Qr3
QOU7Fjuc+JDw/sUNKD9gicPF2Qp7y+Wg6iWWOngbBa+c3AiVf7DUwfqv7APH
41D+imUOIhPC3j9kh/l3ucPWB5ekfaqh8hYrHCrUTUq8dkH5DCsd1nHzXvAz
h/JPrHQ47lif11MC5U9Y5bDiakyf+zooP2K1A7ursOhOmHqFNQ62Ryy3/s6H
8l+scdjDly7suRTK37DW4f87OeF4mPqKdQ4xM0KSxbKhfIf1DjnhbS4f53yw
BwAxqc2d
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu9OBH+feZfZAcw1qHa4yhozVXUiE4TvUO+Q
/vaQi2E/A4R/oMkh2POsy6W4P/Zg/oNWB/3HGnPF+qDyDJ0Owq4tKuzZfyHy
Cj0OTM/e+UuW/oLwHfodEr+116/g/QHhG0x0iEo4+ed0/28I/8Akh4/fTAq0
C39C+AFTHPb9sDX+OP871L6pDizyTm2Xeb5B+AXTHU4Hz910+BTUPIaZDnOe
PmE7EQpVP2GWw9Oy6+8luKDqFeY4bJnnLu368AuEv2GuQ6H1wi9zVKDqHeY7
/G2q+8vOAVWfscDh9ddv99ZxfIW6d6GD/cQpB37KQvX/WOjAr5/+zM/jM9T9
ixxYT/rU8mtA1XcsdjggJS98LxyqPmCJg/DlxzyuU6HqJZY6cJrbqT15+Anq
v6UOpYeDnmQ0Q9WvWOaQfiIjq+0KVH3Bcge9bBb2VwZQvsUKh/TJAob906H6
GVY66HNlfDvGBtV/YqXD23XNDzUKoOonrHLQ9D3kI/8Iqj5itYN3yrvnP6Oh
fIU1DnIOsY+E7n6E8F+scZi2ydRcRwmqf8Nah/lprWaPF0PVV6xz+HHlxLoo
HSjfYb0DX+3PyXG7P9oDAACyzD0=
         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqq7poU+tP9jD+YaVDuoWXWs+zSL0QHMd6h3
OLB1+c5Haf8h8geaHKYeYD/G9uwXhP+g1aFK+vPVDV3fIXyGTofuHH+ne6pQ
eYUeh4KnylslW6DyDv0OUsINBSyJX6H2TXRgn60iWQyTPzDJwcuEfVbaVqh8
wBSH+xlb72VofIHaN9WB4ZJQf+JnqHzBdIe69FNF7yZA5RlmOvCWvfBrjP4M
4U+Y5WBlc7xU4SlUXmGOQ+EpoYXrTkPlN8x1sE/nz0w59wnqvvkON3ee+66q
AlWfscChjT378XorqHqDhQ6C6zx1JFOg6n8sdFg1dw+32zSo/IFFDqzq1n7n
zkLlOxY7HLr1Q/CACJQfsMQhJHHH/yJVqHqJpQ4zrz46y1sGlX+w1CFfRtV2
2+WPEP6KZQ5r3zf43z0DlS9Y7rBWsO/YHkMo32KFQ4fclr+hC6DqGVY6/DPa
LPyzCSp/YqVDWlrghT3fofITVjnM/mjmk18C5UesdjASzNZc6wZVr7DGYcfv
R3FhJ6DyL9Y4ZCY1OS4JgPI3rHW44aPWd0cIqr5inYPFnxNZn+dB5R3WO3xf
dMEmxfCjPQCYl9Bb
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDp8tFDVCCxkdwFyDagcjG2PhXF8GCN+h3sFq
71LFAJG/9mD+gSaHtPfMb07Mhso/aHXg/25+NF4IKs/Q6XDm0lPnhis/IXyF
Hgc+7kOZzNbfIXyHfodL2rutl6T9gvANJjpkpG+NtDb+ATV/kkPKP87Yk2Hf
IPyAKQ5rkiYyznoClX8w1eG5D/etCzDzCqY7mDzWCFl75CvU/pkOr956JevX
foHwJ8xy0J+Q7X9kMtQ8hTkOjS+cK9YlQ9VvmOsQ+/RiI3MQVL3DfId0FRsp
lYjPEH7GAoddcufFyqWh6g0WOky4LPv2rT5U/Y+FDkJSPm1NkVD1BxY5LH2+
e33N5E8QfsdiB8EaVs5oCaj6gCUOIit9GRVg5kssdfiX3nz+7TKo+gdLHdac
OvovgBmqfsUyhzXBVyM3wtQXLHc49SZuouBOqHqLFQ57L2wrK1aG8hlWOhg0
iSptCoeqP7HS4Wgt/1vzY1D5CascCh4WhbLbQvkRqx2aGW15y3Z/hIbPGgc5
qVMyVZeg8i/WODz826F0KhjK37DW4f+C+bsv3YKqr1jn8ON0zd+gDCjfYb3D
Ga/ZL6vTPtkDAGYvyZs=
         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtEJeVnxYhwOYK5BtcP9RXWqLs1sEL5DvcO9
/7PmiYmwQPgHmhyORt5Zq2LMCOE/aHV4O8Wvoln6nz3EvE6HeeYFD/ddhcor
9DisL3Q9YMfFADWv32FF73ETJ62/EPUGEx3kBXb0vt79C8I/MMnhdEuc4sK1
PyD8gCkOC1f+emG59A+E/2CqA3foPtHCPVD1BdMd4naEKh3n+Qm1f6bDnlM1
7e8nf4fwJ8xyiCm/qXTR5RuErzDHYdty5qmWgVD1G+Y6GL86+yaAF2qfw3yH
u5/yGic+harPWOCg1+SrbnznK9S9Cx32fpXj8HjxBcL/sdBB5usdOSsuKP/A
IgfBvbcmihVB9XcsdnjWc1HDfCpUf8AShwOXOt8dPgZVL7HUgcFDkaOMA8p/
sNSBOzLtSEDEZwh/xTKHLzeeK8XHQ/UXLHf4qn1Vkms9VL3FCgfbf0dXHOKE
8hlWOmg822r9Pgeq/8RKhz/fxPZev/UJGh6rHDIPvbvqMBuqPmK1g1R7Z9I9
mP0Kaxxm9C3PT66D6n+xxkE+vt/H4DdU/4a1Dn/NGhe9rIXyK9Y5FK/5LG8A
0++w3uFB9RuLZd2f7QHBmc4D
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDj0RDlFNfN/twVyDaocdmzmfV/d8hfAd6h0m
p+bovWT7AeEfaHLQYfb80jDlC4T/oNXBJFUpcM9cqHqGToeH9+ZdyjX5DOEr
9DhcPDRL5L4aVL1Dv4M95y/rF4GfoPZNdFiSo7UyyBCq/sAkhwu7GW/NeAfl
B0xxmO1WVv6jEar+wVSHcsaKW6th6gumO+jMudqy9PdHqP0zHSra75n3zIOq
nzDLYdlbrZjTU6HyCnMcKmbz9J3SgcpvmOtw4eIvNR0XqLzDfIdLfjFRc85B
+RkLHKKePFypzgDlGyx0mP6uQ2ZnE5T/Y6GD7+q1pWtPfIC6f5HDpqCFlxc4
Q+U7FjscynDwUtwK5QcscciYyem0nhvKl1jqoOtlMHFqGZT/YKmDpA9jwa87
UPNWLHN4fP9w+CEnqHzBcgcx2+w6ny1QeYsVDjO2hTuyi8L8v9Kh7pa6mlc/
VP7ESoccp3K/2NdQ/oRVDo3Gm3g35kP5EasdTH+KOrUdh/IV1jjU1BRKNgZD
+S/WOHDp87OWLofyN6x1KFFUmZb4DcqvWOegNW/SlomdUL7Deoem9pe5qdc+
2AMAOWzM6g==
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpUWl3Tiz3M5gLkG1Q5+ty41bebjhPAd6h3s
W4p6RCPZIPwDTQ4TFRfrXFdhhvAftDpU3LPlij7IAOEzdDqs26zK7nrsrz2Y
q9DjsHzLefmkW4xQ8/odbgU1PRO3hqo3mOjgaq/I0HgQqv7AJIftZSEbd5b/
hvADpjgYZj1gqWv8CeE/mOoQ+1mbwe/cdwi/YLpDfvm59wseQtUzzHQwVZnx
1sDuF4Q/YZZDiPfzYsOTP6DumePwZjf72+RqqP4Ncx1SmZn8fvp9g/Ad5jsc
4pGLk62B2pexwOGF73fbAyFQ/QYLHUw4cjmcXaH6fyx0WHJRdbM0TP+BRQ6Z
XtOqbmV+hfA7FjvwzN4xV2X6F6h/ljjUMd6U+ioP1S+x1OHj8+VNKj5Q/Q+W
OlhM7nAQ64DqX7HMYeFU6ZntF6D6C5Y77LJv+XtWBcq3WOEw0V722/Xmz1D/
r3S4xPwiinM+VP+JlQ7lqy405f2Bqp+wyuGk09+rYslQfsRqh/9tMQwul6D6
FdY4vI3Zx+3sCeW/WOOwR7LiT+nxT9DwWuuwNnZe9P8pUP0V6xxeaZtpswhC
+Q7rHWavlb/qPOWzPQCrIMYL
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 3.351255750813888}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alaska\"", "\"Delaware\"", "\"Hawaii\"", "\"Idaho\"", "\"Maine\"", 
       "\"Montana\"", "\"Nebraska\"", "\"New Hampshire\"", "\"New Mexico\"", 
       "\"North Dakota\"", "\"Rhode Island\"", "\"South Dakota\"", 
       "\"Vermont\"", "\"West Virginia\"", "\"Wyoming\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 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`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.8818232244142313`*^9, 3.881823250231971*^9}, 
   3.88182328281385*^9, {3.881823868860209*^9, 3.881823892801756*^9}, 
   3.881823962853099*^9, 3.8818239944597597`*^9, 3.8818240300710783`*^9, 
   3.881824164676725*^9, {3.88188712542724*^9, 3.881887147221466*^9}, 
   3.8818871793433237`*^9, 3.881898065134428*^9, 3.882060409945603*^9, 
   3.882074497102627*^9, 3.8821271951132927`*^9, 3.8821275003781767`*^9, 
   3.8822370774077063`*^9, 3.882514368989452*^9, 3.882555554313669*^9, 
   3.882596584681431*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"a2d7ecde-dada-4c62-ae87-d8a0e5390cdd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["totalPop50StatesAndDC"], "Input",
 CellChangeTimes->{{3.882555608192656*^9, 3.882555609847929*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"7c027d42-20c3-4e0a-90e3-552e741f0000"],

Cell[BoxData["331511512"], "Output",
 CellChangeTimes->{3.882555610862092*^9, 3.882596584722522*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"363c993b-eabd-4555-b646-f89b36f2e1a8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Power per Voter in a State", "Subsection",
 CellChangeTimes->{{3.8818221436076717`*^9, 
  3.881822154811906*^9}},ExpressionUUID->"eeea8356-bafd-40d1-8cf5-\
13791f982334"],

Cell["\<\
What is the probability that any particular voter is in a coalition that is \
decisive, and that voter is decisive?\
\>", "Text",
 CellChangeTimes->{{3.881824475728983*^9, 
  3.881824510281418*^9}},ExpressionUUID->"4bf3fc69-6335-4180-86ca-\
4f89623784b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"uniformVoterDecisiveProbability", "=", 
   RowBox[{
   "UniformAbsoluteBanzhafIndexApproximation", "[", "usaVotersTotal", "]"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.881868043458272*^9, 3.881868059999975*^9}, {
   3.882127979774953*^9, 3.8821279881412354`*^9}, {3.882136469448532*^9, 
   3.88213647813511*^9}, 3.882596538989645*^9},
 CellLabel->
  "In[129]:=",ExpressionUUID->"2bdda2ed-5415-484a-a2de-0dd8c0675e06"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "uniformVoterDecisiveProbability", "]"}]], "Input",
 CellChangeTimes->{{3.8818681142077723`*^9, 3.881868119242828*^9}, 
   3.8822369943174133`*^9},
 CellLabel->
  "In[130]:=",ExpressionUUID->"69bd6e4f-f4ab-4f6b-81af-774e46a78dde"],

Cell[BoxData["0.00003169508059736181`"], "Output",
 CellChangeTimes->{3.882596608916951*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"49dd0e00-8b90-47e9-a8ce-14ba67e7e04a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"voterInStateDecisiveProbability", "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "|->", "\[IndentingNewLine]", 
      RowBox[{"Merge", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"r", ",", "usaStateVoters"}], "}"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "*", 
          RowBox[{"UniformAbsoluteBanzhafIndexApproximation", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "&"}]}], "]"}]}], 
     "\[IndentingNewLine]", ")"}], "/@", "electorsAbsoluteBanzhafIndex"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.881824513982751*^9, 3.881824624048279*^9}, {
   3.881825352973261*^9, 3.8818254059035482`*^9}, {3.881825436632959*^9, 
   3.881825622568956*^9}, {3.881826066291808*^9, 3.881826118323556*^9}, {
   3.8818271310418386`*^9, 3.881827136615749*^9}, {3.881827638318528*^9, 
   3.881827700378085*^9}, {3.881862325867714*^9, 3.881862333000744*^9}, {
   3.881862417515656*^9, 3.8818624197113457`*^9}, {3.881862455526804*^9, 
   3.881862524213022*^9}, {3.88186258155928*^9, 3.88186258340443*^9}, {
   3.8818635858134108`*^9, 3.881863587482275*^9}, {3.8818636237390547`*^9, 
   3.881863675337584*^9}, {3.881867944470442*^9, 3.881868107878253*^9}, {
   3.8818684135245047`*^9, 3.881868431581197*^9}, {3.881868539134243*^9, 
   3.8818685734511023`*^9}, {3.8818701556254272`*^9, 3.881870161348727*^9}, {
   3.8818702577156878`*^9, 3.8818703039976254`*^9}, {3.881870851883129*^9, 
   3.8818708816541653`*^9}, 3.881887239775683*^9, {3.8819129933611927`*^9, 
   3.881913096343686*^9}, {3.882136504876802*^9, 3.882136522466043*^9}, {
   3.882136640622521*^9, 3.8821366415563993`*^9}, {3.882596558570178*^9, 
   3.882596565510868*^9}, {3.882596704736519*^9, 3.882596737705105*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"cb77d4fe-de40-41c2-9b78-799d56fccd66"],

Cell[BoxData[
 RowBox[{
  RowBox[{"voterInStateDecisiveProbabilityCoords", "=", "\[IndentingNewLine]", 
   RowBox[{"Dataset", "[", 
    RowBox[{"KeyValueMap", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"n", ",", "r"}], "}"}], "|->", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"n", ",", "#"}], "}"}], "&"}], "/@", "r"}]}], ")"}], ",", 
      "\[IndentingNewLine]", "voterInStateDecisiveProbability"}], 
     "\[IndentingNewLine]", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.881824513982751*^9, 3.881824624048279*^9}, {
   3.881825352973261*^9, 3.8818254059035482`*^9}, {3.881825436632959*^9, 
   3.881825622568956*^9}, {3.881826066291808*^9, 3.881826118323556*^9}, {
   3.8818271310418386`*^9, 3.881827136615749*^9}, {3.881827638318528*^9, 
   3.881827700378085*^9}, {3.881862325867714*^9, 3.881862333000744*^9}, {
   3.881862417515656*^9, 3.8818624197113457`*^9}, {3.881862455526804*^9, 
   3.881862524213022*^9}, {3.88186258155928*^9, 3.88186258340443*^9}, {
   3.8818635858134108`*^9, 3.881863587482275*^9}, {3.8818636237390547`*^9, 
   3.881863675337584*^9}, {3.881867944470442*^9, 3.881868107878253*^9}, {
   3.8818684135245047`*^9, 3.881868431581197*^9}, {3.881868539134243*^9, 
   3.8818685734511023`*^9}, {3.8818701556254272`*^9, 3.881870161348727*^9}, {
   3.8818702577156878`*^9, 3.8818703039976254`*^9}, {3.881870851883129*^9, 
   3.8818708816541653`*^9}, 3.881887239775683*^9, {3.8819129933611927`*^9, 
   3.8819129942785807`*^9}, {3.88191310807434*^9, 3.8819132529743156`*^9}, {
   3.882596756607378*^9, 3.882596757893128*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"67e99a36-a43a-420d-9853-ba0eefa78a94"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Transpose", "[", "voterInStateDecisiveProbabilityCoords", "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.881870902847455*^9, {3.8818787903323793`*^9, 3.881878805236568*^9}, {
   3.881887242621649*^9, 3.8818872484424267`*^9}, 3.881912997865532*^9, {
   3.881913276508297*^9, 3.881913330028027*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"cd484601-c899-41ac-877b-24bacd9a05e4"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvs/Z9ya//ihHZhrUO1gIs90sHfHIwjfod5B
9tVDddkQKP9Ak0PxUt4fJp8fQPgPWh3qbrRnPI2H6mfodEhZkJbyKhcqr9Dj
sPQ3v1HqXSjfod+hmnty4i5dKN9gogNfXJvn5AYo/8Akh5A7TOlB7+5D+AFT
HP5889x4zw5m31SHFq3kOrPZUPmC6Q7dEw9fOc8LlWeY6XBWYE7U6gSo/IRZ
Dgop1TGaV6B8hTkOZ0SfusoZQvkb5jrMFC+z5ZwB5TvMd6jbvHD5VU4oP2OB
g53OkRcfq6F8g4UOW1N6Jig9ugfh/1jo4H1IQcMuACp/YJHDLa9PizouQ+U7
FjtEahqWbdOD+WeJA0PgrOUvaqF8iaUO/9i4l65hg/IfLHU4VJXB2hMN5a9Y
5vDy3d/H/X+g5hUsd0h/K7E31xEqb7HCoVCobNOdh1B5hpUOB3/LvfXXhsqf
WOmwcuta21kXofITVjnMdzWsOS4AlY9Y7bDBzeDfhP1QeYU1DhWP5+Rf/A3l
v1jj8EvgyPfmNVD+hrUOfic2Ld75AcqvWOcgee3VzoVLoHyH9Q6TOTi/ygHd
AwB4DtNr
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDjN2bF/5lvWhHZhrUO0QwPii6ejK+xC+Q72D
7ynda93PbkP4B5ocLIXC75aUXYfwH7Q61POHiT5XhMozdDoI6UtOf3kZKq/Q
46B92bDZLu0q1Lx+h1aR4tsXgy5D7ZvowPVF96frootQ8yc5HNp7K4zD+QqE
HzDFofOP1PQHey9B7ZvqUJNs/WpxAVR9wXSH9RtbOjJ8LkDtn+lw7rQul2Mi
VP2EWQ5ffrNl7vOHqleY4yC36odtVyJU/Ya5DkkyUTm7uc5D3Tff4Z//1tCc
7rMQfsYCh+dPJM59L4aqN1joILEz7kVLNFT9j4UOrQu3dvwVOgd1/yIH57LD
FaJXzkD4HYsd8r9cnc29Eqo+YImD7cti/rRiqHqJpQ5sSY0HL/lC7Xuw1GHK
keeT9vhA9a9Y5qB4P1h9QfRpqH+XO+R9mnXE6ABUvcUKh42nLtY9Ow1Vz7DS
ocXma0fqG6j6EysdtA8w2wSJQPkTVjkUlOpETjSB6o9Y7cDmU2lxPxGqX2GN
g991nuWZM6DqX6xxuHHca1PyzVPQ8FrrsOdJ07fTulB+xToHJb9fk3bxQvU7
rHdQS3gYpBN/2g4AO+LNuw==
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrzFLpXzM57YgbkG1Q5H58V8b/zxCMJ3qHcI
sNy5yebwYwj/QJNDz/T4LZo6UP6DVofnE97qbbkOVc/Q6cAjbJghVwflK/Q4
JBdHOIlHw8zrd3gev3lZ0yco32CiQ2utvMynXVD+gUkOuj4LFtt2QfkBUxyc
/rVJdMRD+Q+mOuxIf2tWYQPlF0x3SOw63DxvCcz+mQ78a0y+ibRC+RNmOTyZ
5t2/MQnmnjkO0rNv2PzxhPI3zHXYzcu+MksH5r75DlvORly4JwnlZyxwaF33
9IxOPsy9Cx1mdRhd9PCB8n8sdCia0TPL2gHm/kUOX3//eXxDC8rvWOxgEfSA
fYEUzD9LHHbrTKpbwwHlSyx1mOZ81uMrTP+DpQ4CZk8LdptA+SuWOSR9i7aZ
qgHz73KHdL/95rPFoXyLFQ4ZFfbHT8HMY1jpsLK6+nTrv4cQ/omVDlFJhVzR
BrDwWOVQ8oh97iFFKD9itUNLzp7TM0Vh4bPGod9wSfE0mHkv1jjos0px/vkN
NW/DWgfnjarnW79B+RXrHEyOqz/kVoCF33qHG19ll/sD3QcApa3K6w==
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhfePA5IaHxkB+YaVDucW14v72j6EMJ3qHdw
OZ19yW4jlH+gyeGM+pn5m/ffhfAftDrMaH313bMGymfodJgwXevoFkUoX6HH
wTZ7Wh6rEJTv0O9Q8SAhxODBHah9Ex32bLp3VXk/lH9gkoN6+CdjowVQfsAU
h1zFexseNkP5D6Y6cM3ZIamQB+UXTHfgeZLIbxkO5TPMdKix6WiR94HyJ8xy
uKcbNnXqsltQ98xxmPH0zKpNm6H8DXMdmALUmdZsgfId5jvsi/hjl3sQys9Y
4CCqeG7zkYtQvsFCh09SBW5Ox6D8HwsdPhw7tXf2DSj/wCIHtY9tjam3oPyO
xQ5Xdvp4ajyE8gOWOOxtmuLL8RjKl1jqIHylz3zmPSj/wVKHtAWCSh9fQPkr
ljnkJzK/zGWG8guWO4jomK2X4IbyLVY4pBSuuXpGGMpnWOkQkmS40EwRyj+x
0mHn5Hn7fTWg/AmrHLK6L05/qgflR6x2SDlx3yrXHBY+axxCS5fmedpC+S/W
OKxf92ZfuhMsvNY6LJix4vz6ACi/Yp3DjxfuCVohsPBb7/C3JuGx7oabdgCj
2s89
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDisVjL1/PP1mB+YaVDuYJqvd3M/xHcJ3qHdo
0ZzYkPYQKn+gyaHkWGf8vGao/INWh+Ud5429EqF8hk4HFet+o+snoXyFHgeP
yTeYOQ/CzOt3+HfwSLP0VSjfYKLDodlfnhW/g/IPTHJ49GHGvmCGHxB+wBSH
q7OPWAvyQvkPpjoUTvd7Yi0N5RdMd2CUPTftmBKUzzDTQS3pk9UPUyh/wiyH
8rCOy9WWUL7CHIebC69+rHOH8jfMdbh86Hu3mxuU7zDf4fOxqtKyECg/Y4HD
pb3uG3VcoXyDhQ6TrgZ9Ph0G5f9Y6CDMEN1S5QvlH1jkwPiuvKjHH8rvWOzg
KvX78udwmH+WOFTMfVKgGgXlSyx18FTz0tQsgPlvqcPibZ5NyYlQ/oplDk1L
U+4558L8u9xhoc7cWYdzoHyLFQ69NVLWcXkw/690mK7rsntBOZR/YqWDW1r3
We0KWHischD5FyYxFcaPWO0g75Ndz1kDC581DhO+zbBKhvFfrHEQ23amShPG
37DWQXuN0O30Eii/Yp2Dr9HtfVXtsPBb78DDkFq3q+qHHQAsbc8D
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlOXF6ofYHxoB+YaVDtMeWQ06cZkKN+h3sHx
43tTTU4o/0CTg0tMoVLQuwcQ/oNWBwE5C41Nc+9D+AydDkkXEq5u2w3lK/Q4
WP9b76zPAVXv0O/wv6Lp0C9RKN9gosOMde4m5pfuQc2f5OC0kGf3Unao/oAp
Dr/C5dueGUH5D6Y6VBjsMa4ygKovmO5g08hgUJEE5TPMdLi1e7YR3wwof8Is
h/9Ou0vO7IHyFeY4zN48q+jS37sQ/oa5Ds+2XdU9rwyVd5jv0OW6tqkxGMrP
WOAw42fPTscWKN9gocPmpsenb1yC6v+x0CGOv0fgMAfM/YscDkUVHMzQhPI7
FjvsUeXWsvOF8gOWOJzQbrs7+RhUv8RSh1KjW/OP3YfyHyx12D1DoCecHap+
xTKH56d/64tpw/y73GHeTamIfVuh6i1WODyMWuU8BeYehpUO0x81BSz7DOWf
WOmge3O6cCYPLDxWOWzo7Zq1YRlUPmK1w5V6//Cjh6B8hTUOzFNMtM7egvJf
rHHYNyV4N89HWHitdeBz4mv+sgDKr1jn0KqSwty/Dcp3WO9wXHCR352Ld+0A
3DHPYg==
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqxarJs0ne7ZgbkG1Q4Hf6sFBGU/gPAd6h3m
dRXY3Hh7B8I/0OSgv7a5RdTzPoT/oNXhqBfvAVlVqH6GTodPGSeezpe7C+Er
9DhoPGSYkd4O1e/Q79DIP6ct7MVtqH0THZ40X5rEmgvlH5jkcObktJ3NTFB+
wBSHSvbTrkLLbkHtm+qgpLmn6nMElF8w3eHcIal3hkJQPsNMh+qG5Tci79yE
8CfMchDp/Pxu9WIoX2GOw8P7in+rNkDVb5jr4OUt9fFTPpTvMN9B41zH8xZH
KD9jgQNzjYg/gwyUb7DQQVEtW1LvAdS8HwsdurUnPco+CuUfWORgG8dlHjYP
yu9Y7HD0xE9z83ooP2CJQ98+z0m+cVC+xFIHbxZFMRYrKP/BUoeLs29ZPlSF
8lcsc6iMLrR7dgXKL1juYHWu4IPmFijfYoVD3MaNsjzToXyGlQ5eYrcf3W2A
8k+sdPhw+MHPuWmw8FjlsDAuKvyKL5Qfsdoh1/xd1ToLWPiscXD7ymkwVQnK
f7HG4eQBMwtXXih/w1qHGUeutvEwQfkV6xy2//npc+btDWj4rXfo39C22ujB
DTsAW3rKwA==
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqueyqS82HfHDsw1qHZYs6NK9tzuWxC+Q73D
HtNnuW8z70P4B5ockr2OsVVnQeUftDpwHuNLbn5xDcJn6HT4uGTbcmu5KxC+
Qo8D4xqvGbzToPIO/Q5xsw8vlUiFyhtMdEiZsHVD25xLUPMnOXTZOe2Z1Q6V
D5ji0PnFhtntL1T+wVSHBaFtdnNWX4TwC6Y75B0MN3RwuQy1f6ZDyyeFd1+l
oOonzHI4Zj1rWisvVL3CHAcjEbfNd5UuQPgb5jo4PVDYa1EJlXeY75CRctK8
YCFUPmOBg/07teSVB85D3bvQ4clRR3tPVqj6HwsdXi/Zp/A5CKr+wCIHoYtv
FNd6Q9V3LHZ4c1fVV2UrVD5giUPzlLpfOwWhfImlDgLa/9KmvT0H9d9SB1O1
zns2985C+CuWObzrOaHBcxhqXsFyh0sM87qXbYaqt1jhsH7O5Wft26HqGVY6
1Ez89XRWPlT9iZUO1w9Gs4TWQNVPWOVwyXPtabvpUPURqx1m/S+1C1OHqldY
43D85x89Qy+o+hdrHFpObBFprICq37DWQSAvpVZ1zxkIv2KdQ+FujY6JqlD1
DusdbCcfqfiVedYOAPO3zug=
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlPveztmZLy1A3MNqh3831nNF/SB8h3qHcJO
3xV303kH4R9octi0MsladSNU/kGrww1+T3dbXag8Q6fD8iMZMeKnoPIKPQ5O
Zmq+FfZQeYd+h90bu62T/8Dsm+hQ3V095YINzPxJDlZFF76HcEL5AVMc2n41
qG+0hPIfTHV4+lLDt4QPyi+Y7vBN7FliuRnM/pkOBSlr1oqIQfkTZjlUx0qJ
1phD+QpzHISyfxefkoLyN8x1WFo/MVfRFOa++Q7L8yasaJKF8jMWOPiUPlBO
9oDyDRY6mPzwlfMNgPJ/LHRo32UpdtoZ5v5FDl8mqul5REH5HYsdfsUwVTvA
5AOWOPgLsbRvi4DyJZY67DWsETwDc/+DpQ5q/16/mBwK5a9Y5pDo6iEZ4wrz
73IHbTfWw/5hUL7FCoem6R3VB2Hhy7DSYVvI1gOHwqH8EysdXshHZVxzhIXH
Kgfhw4U7WIOg/IjVDn0VM8riHWDhs8aB08f8+RF/KP/FGgf5oxEPL8bCwmut
Q9QeJ79nMPdVrHP41CFZng4z32G9g60z8yodoDwAKSfCig==
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDm5OC+vE/jyzA3MNqh0O3/+wu/kMlO9Q7xD6
ceel+plQ/oEmh5sSYquWa0H5D1odvGQjZ894CuUzdDpICX42F2iB8hV6HHwl
d6R/ToKZ1++Qo3spS0MbZt9EhxtX41/dngszf5LD1//uiS25UH7AFAf2z/O4
rjnB7JvqcHtu+xJdBSi/YLqDwMnsWrFCmP0zHf4XRs1iDIHyJ8xyuOAp8CXP
COaeOQ4HfOwZ90hD+RvmOrjfumX9LQLmvvkOgvV1+385Q/kZCxwki46+/mgC
c+9CB+l/O68oC0L5PxY69Nqt4D4UDHP/IgeVe/pHtW2g/I7FDvNMz0XthoVX
wBIHfb8Pid/FoHyJpQ7f47aKL7OH+W+pQ8tdIfYtxlD+imUO3/d3rZytDvPv
cofTl3zuZopC+RYrHMS8VNt328L8v9KB2/uv9l5DKP/ESofyrJMR+xVh4bHK
4VL5bPX5QlB+xGqHSzuND7FawMJnjcPlby4O6ppQ/os1Dpo70pbtlIKF11oH
kQrLcgmY/RXrHPjkamOl2WHht95h6aVfb+uB/gUAbJfJjQ==
         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDsduXe0+8/WhHZhrUO2QNTON5drmBxC+Q71D
/NQnbMr5dyH8A00OFV+Mcis+3oPwH7Q6PG7wEk+4egvCZ+h06LxiuPiI+x0I
X6HH4S3bwpnbUm9Czet3CC8SKb/17hrUvokO+0QuXduYdQNq/iSHJZLc7AWF
UPmAKQ5zv5W1Xth5HWrfVAcFkTV/bwlD5QumO6TZi8mHmEHlGWY6lP9c+E/y
wlUIf8Ish3RGv/mF3Veg7pnjcGD15aV3ZkLlN8x1WPV1w+eycqi8w3yH3w7z
trXnQuUzFjjoPpukua4EKm+w0GGfD99sZheo/I+FDhtlpj/VSoXKH1jksDHM
e5aAHlS+Y7HDx4DLDyyjoPIBSxxypH+dU5p8GcKXWOpwbWqZTLEnVP7BUof3
J8X88qdD5Vcsc9jv9qL8pRdUvmC5w3bjpxJ1c6HyFiscXmj9YGt1gMozrHTw
3lT62mcxVP7ESocCvh1x/txQ/oRVDnbdU1Q4lkD5EasdUq8cXuovBuUrrHF4
ZzpnasQyKP/FGocFtR+kfeSg/A1rHdI/HqvzWAvlV6xz+Lpu8VVzbSjfYb3D
5B+Ndf/WX7YDAHYV0P4=
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlW2Ld66lnftwFyDage5gCnXfHVvQ/gO9Q4J
W7YWhn+Ayh9ocljsGXByhs5NCP9Bq8Ov3sslFsa3IHyGTofffhmz/jJeh/AV
ehyCW7RubpC+ATWv3+H3mmtXMx9C+QYTHQQF1/uYbrkGNX+SQ8ZDjZ2dVVD9
AVMcrm/mE8vefhVq31SHd7Nzzd1KoOoLpjvscOo+c+/3Faj9Mx3mfDLlFdoI
VT9hlsPcKYFrNPOg8gpzHL6vMHogKg6V3zDXoc0uOodjGZTvMN+Bf3q07OxZ
UPUZCxwm17tyXtKDyhssdKiSLSvo1IfK/1josHWjeo/6Pij/wCKHOv5ne2Qf
XYbwOxY73LH6+bU0ESofsMShbtHm+zcuQ/kSSx0MGoQlfnJB+Q+WOuzhq2nd
UAflr1jmoO8oZcx0AWpewXKHZoGJp7XMofIWKxxyfB5+kJ4IlWdY6eC30/Do
px9Q/omVDkb+Ht/D46D8CascLH7Me9awF8qPWO1wzfrXGSZJWPiscZCUMOLx
64LKv1jjEPTPYF7QAyh/w1oHE9O46faJUH7FOgf3vK7z0ZuhfIf1DgFL3az3
WFy2AwAhjsfc
         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDiJJSzc9M3hpB+YaVDsILr59LWLHCwjfod5h
fuf3qGoBKP9Ak8M27QddeeJQ/oNWhzCjW851tlA+Q6fDhJUTtRwsoXyFHodC
8YkREakw8/odvnl+vhmdCeUbTHS4alp0a9vT51DzJzmcTzCb/e4blB8wxWHz
R/+ld5hh9k11+DWnlcNWEMovmO7gGXY3qkASZv9Mh8jXJptiNaD8CbMc1gs1
mAnrwtwzx2HR4SIhPZj7Nsx1uDjb+fWTZ1D7HOY76Pza/WIlzP6MBQ4CSzfu
iOWEuXehQ1mpdqU7E5T/Y6GDXsfU/XpisPBZ5BCV9zFmoxSU37HYYcnBtWqt
ylB+wBIHh5l3xNapQ/kSSx3sdU66vHsFte/BUgeJRZILJ/2A8lcsc+DkeSTo
wALz73KH9v/fX65kh/ItVjg4lPeI+vDA/L/SIaeunn3xY6j+EysdvASfi254
AeVPWOXAsejUjui3UH7Eaod5f98+ePkZyldY49BZofCPH2b/izUOAipf8qf/
hvI3rHUQfPMlYz/M/op1DofyEtaegoWPw3qHm1MWhKUB4wcAKOzPLw==
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDs4RrGuvT39sB+YaVDv8NfxYoMPzBMJ3qHfQ
69hVU+YClT/Q5KAh6JZ29dkjCP9Bq4NyyjvPq7uhfIZOhwiXtBm/G6F8hR4H
lclKQT/LoXyHfoftG59avtaD2TfR4b5IMIOoM1T+wCQHvv+zL+U9hvIDpjhM
NLm18PphmH1THfR5b/MmrYLyC6Y7LH4902XeRJj9Mx1S9rjInILZP2GWw8RX
23n8c2HumeOQX8F5jSERyt8w12HfNzuNVj+Y++Y7ODwIiWJzg/IzFjjEy9Qv
nOQI5RssdBBlXi9Sow3l/1jocFfPJf2XFsz9ixw+7Cqb5KQA5XcsdoiOSYq/
JQnzzxKHRqWbVT8FoHyJpQ4Pk7/tncoC899Sh+TTAdpXmKD8Fcsc3E08RcsZ
YP5d7nAnKUpFxgnKt1jhcKFNMqvDEub/lQ4lCxwnqZtC+SdWOhRHlFTo6cLC
Y5WDvnhs1jxVKD9itcNcK47r4jD3KqxxuHL0ZFQEzL0v1jiEvTt9cZUQLLzW
OiyJ7+29BeNXrHPQE6s9zssDC7/1DvGdReu2cT6yAwA8pMJ1
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtP9W8qYc+/bgbkG1Q47TkrwMVrehfAd6h0K
K75emMB9D8I/0ORw9O4l1c/370D4D1odPJdNqjurDeUzdDpcYXlkLll7G8JX
6HHwf6Fu9lkdynfod4hIODvJ4sAtqH0THdp7uGfqFEH5ByY5iN7TXrVPF8oP
mOJQrpttt/vjTah9Ux2ui7kX3la+AeEXTHd4fTtcKVMAymeY6dC/JzDxDxuU
P2GWAz+HjIjzt+tQ98xxOHr+RzD/eyh/w1yHPdE7Z72/B+U7zHdYL2GjxHwb
ys9Y4CApVpexHsY3WOjQvuXrhitHoPwfCx1Ob1r1ZdJJKP/AIgf2+8EvJx6A
8jsWO9T/mbTxzB4oP2CJw9uTgYeLt0L5EksdlnmseWu6Esp/sNSBWfhJ56RV
UP6KZQ78p83+vILxC5Y7fJm7cs27xVC+xQqHljtnFU7Og/IZVjrwROZO2gLj
n1jpoLX7BvPimVD+hFUOmc933Ts1BcqPWO2Q9qngsu8kWPisceCf/7PvZy+U
/2KNw5OtKdn1nbDwWuswP/ah12aYfMU6h3ULTZpXdsDCb73DyaDFV4yB6gEx
F9a4
         "]]}, {
        Hue[0.21101966249684523`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDst/Tg8JyntoB+YaVDu8+xO4sNr0AYTvUO/w
UlulclL/HQj/QJPD88kcy9tZofwHrQ7f3nr/YT92G8Jn6HTwttLS2loA5Sv0
ODDk9X99lwjlO/Q7sM5r6/pnBOUbTHRgONTvclcYyj8wyeG65IWJ27/dgvAD
pjhwrfn9gvsOlP9gqsPjzPwD3/7egPALpjtIn7ivHM52E2r/TIe8tZMuLBeF
8ifMcuhlsZYpk4LyFeY4sF5Z535BDcrfMNdBkemLym51KN9hvsNaqXdn9hlD
+RkLHOLWfo5RdobyDRY6iNmcZfSxgPJ/LHQ4ItQ/9Zw+1D0HFjlsKS6Q17SF
8jsWOyxWSF0j7AflByxxEEirvX4wEsqXWOrw8Hq29+84KP/BUgfm7/rJXwqg
/BXLHFLXrqw93gDz73IHkWBtP4YOKN9ihUPzo1Yx4wlQPsNKB6Zre/7GXLwO
4Z9Y6cA9heuMwT0of8IqB/fqzJ8Gr6D8iNUOeuz+BvO/Q/kKaxyW6sRr+TJB
zXuxxmHKkoWPmHmg/A1rHQKYfFruyEL5Fesc4hPYH01UhfId1jtM/GVzO8bo
hh0Ae77HGw==
         "]]}, {
        Hue[0.44708763999663503`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDusKrbckBzywA3MNqh3Y9M0P/Ql/COE71DsY
NayN6zaE8g80OXyKbnryhx+q/kGrg7RVYP2P7VA+Q6fDhvCOY1fO3YfwFXoc
2mbWJX45dA9qXr+DolLkj5P7ofIGEx18zOwuip6Ayh+Y5JD5fkP3sy93IfyA
KQ7MmXPOp5+Cyj+Y6nDKlV3ZQxTKL5jucCL5ZvbkYqh6hpkOUjNib14xhMpP
mOWgxVH2uHc+VF5hjoOY/z33Zjeo/Ia5DpaM0x657ofKO8x34Os2bJsUBOVn
LHCQ+LVu65E3UL7BQgelrxdKqvOh/B8LHT50MCkdlYHyDyxyuKe3nD1pJpTf
sdihb/2v+w6OMP8scfB9cP8+1+s7EL7EUodm1yOT5odC5R8sdcjVDIkW5YPy
VyxziGOyMFM/BVVfsNxhFevBT9/0ofIWKxy+tG5JCHsBlWdY6eBjZBaU7QeV
P7HSobvp/ZSVnFD+hFUOyWwvNt06AVUfsdrBMPoCxyVlWPiscXAzXr395VOo
/Is1Dr3eWc6PVkH5G9Y6eK78aabEDlVfsc5BdoPjPMuzUHmH9Q4yOrtlds65
YwcAvbDMYg==
         "]]}, {
        Hue[0.6831556174964248, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtc9dv7cN+uRHZhrUO2Qt//cHh+fhxC+Q71D
4k4Dx6+qUP6BJodvZzOfa7I+gPAftDr0rX3rt2UNlM/Q6dBmfq8qded9CF+h
x2HJ7fqc6gKovEO/w8f5q86nrILKG0x0WKp2fEr45ntQ8yc5fF2fH3KzCyof
MMXha+VdphVbofIPpjqEKSxoPJcPlS+Y7pDT6Z5Sug0qzzDT4culjXerZaH8
CbMcAvLfJn7ZBeUrzHG4wJIUI2ME5W+Y66DRcr7PYjeU7zDfwTy/ynOFI5Sf
scChz2CK6f7zUL7BQoc577cYK7pD+T8WOry4Omntr1d3oe5f5CC/NOX5+1io
fMdih9hLnBkT/kLlA5Y4WHB6xmxPh8pLLHV4pPJ4TxoTzH9LHTZt7XMo2AJV
v2KZw/qTrqsc5KDyBcsdLu/uLOc5BZW3WOFgfjK230IV5v+VDp1Z3dkH70Ll
T6x0aEw0dredAuVPWOUQuP97d/kLKD9itYN3Y01G7FIoX2GNw66DC7w7vkD5
L9Y4SHA5q53ZCOVvWOvQ7aRrrF0L5Vesc3gmzM3w4iiU77DeoTf5+leG/rt2
AGty1AI=
         "]]}, {
        Hue[0.9192235949962146, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDuH9bZbOwvfswFyDaofVtwId5H7chvAd6h10
Q2er/F9yA8I/0OQQ/NuJqfzFTQj/QavDwt07nkwsvwbhM3Q6VHDPFn+76zKE
r9DjkGo5V2mP81Woef0OKRu+nmw3hsobTHQIlDMRmVB4BWr+JIdXC3efaz11
CcIPmOLgVLmnrTfxItS+qQ4Hdl1W1K6ByhdMd5CZLOsR4waVZ5jpsJvl0YQC
Z6j8hFkOS+861M4xhsorzHFw7p1l/NDtAoS/Ya6DVuI78UdKUHmH+Q7umQI3
bf2h8hkLHJ4E9nr1KkDlDRY6vDrt7qwfBJX/sdBBgWVvcrDfeaj7FzncLZF4
WhQHle9Y7ND+0yukshQqH7DEQb2moXRrMlReYqmD9dU8ofBuqPyDpQ6y4ooP
/dKh8iuWOcw/wNTNsx0qX7Dc4dKZT5lsK85B+BYrHMK/+G34ewoqz7DSYfK3
mr/6V6DyJ1Y6SAlXufx4DJWfsMohbiK7h88XqHzEaoe7vnOtP4tA+QprHJYw
uz6tEoaqf7HGYfG1FyXBNlD5DWsdjpt18cqbQ+Ur1jl4f+z/fyoDKu+w3iGr
0P5Xz+qzdgBh7sgq
         "]]}, {
        Hue[0.15529157249600445`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpwhJ+6vn/LYDsw1qHboEvTr/mj8CMJ3qHfg
WFnBHrzkIYR/oMmBRX9JbXsHlP+g1WH+xLSGVd1QPkOnw9+yb54Ty6B8hR6H
GKnS0sZ2KN+h3yFw+t2vx+qgfIOJDrF6HNbPdjyAmj/Jgfn7Ub2TR6D8gCkO
yx0V92w7C+U/mOpw9cFr7k/XoPyC6Q7v/usXzb4D5TPMdMi837zi8zMof8Is
h5lrJSKNX0H5CnMcTK9OYuv9BOVvmOvwibf4UWkDlO8w30HEeHaKTB+Un7HA
4Xgiv3XFXCjfYKFDX8uqzVyzofwfCx0kbTYcPLUK5v5FDvsmnZR4sB7K71js
8Pig949922H+WeIgN3PiFK89UL7EUodHipz5edkw/y11yFc9WzmtHMpfsczB
K2t5jXsTzL/LHaY9NkzWbIfyLVY4zL39MGJLD8z/Kx3u/9iaZzsVyj+x0kF4
86UJB2fCwmOVw3El64lmsVB+xGqHpCsa18pTYOGzxqFXsaL/YyaU/2KNQzL7
AY/bebDwWuswterF8YJKKL9incPWz0GPVWph4bfe4dMdsTk5LQ/sAPYo1XU=

         "]]}, {
        Hue[0.39135954999579425`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtyM78VUXjy0A3MNqh3UX+tsKg16BOE71Dv8
D7vz3VHsMYR/oMmhg++yb2QLVP5Bq4PdOweu40ZQPkOng5BGTLLjHah5Cj0O
D39Ou5qzC8p36HdYze1ZYt8Bs2+iw85nMvGnkqH8A5McLkhVODo5Q/kBUxws
j5qd3bYPyn8w1cH5muKFm3Og/ILpDm+PTbJ/WwPlM8x06Dvy8U15GpQ/YZaD
xa+uo40+MPfMcdC+EF75xQrK3zDXYWKZZY+1Csx98x2upp9oTxWH8jMWONzx
nJ97ig/m3oUO7XaS/yUCofwfCx1Mjz7YpO8Jc/8ih1kb7xepW0D5HYsd5AQm
5xzShvlniYP5nUWT6mWhfImlDqK/z+lG8MD8t9Rhil6m2BJWKH/FMofgk5yx
m/49gPp3uYONUdfnj5+gfIsVDno/DT6814T5f6VDa5E7yz9FKP/ESgd++aSa
J2Kw8FjlsJXv0pNkmH0Rqx2U4ps2/WOGhc8aB/XDe74s+AU1/8Uah79n5vPV
fYTyN6x16BFL/PLhHZRfsc5hqlJi1q+nUL7DegeZm1PO3xZ+aAcAN9nOvg==

         "]]}, {
        Hue[0.6274275274955841, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhWnflycF/PEDsw1qHYIkF30/4MnlO9Q7/Bu
/qoWG2co/0CTw49TsmJB3FD+g1YHM/vLsUv/PobwGTodfrEe0te6AeUr9DhE
7X24WOIhlO/Q77Cm50Hp2nNQvsFEBwaD6R3cR6H8A5McAkQCX/o6Qs0PmOJg
75hsxqELs2+qw0ZXLpdSWSi/YLqDt/xWCUFeKJ9hpsMtBicPUVYof8IshxnP
X4b8+wZzzxyHM7dnZr/+AOVvmOtQnrviX/hjmPvmO1R4/2xmfwDlZyxwmGKt
d3cWjG+w0MEt/MLzyLNQ/o+FDrOFjzVEXoS5f5HD6w8nBI6chPI7FjtwHNmb
OO0YlB+wxOG3halE2gEoX2KpQ+Du3XkC26D8B0sdNtm8y7bZDuWvWOYgIF1Z
2QDjFyx3WMs0l2f+RijfYoWDmO9VM6+1sPBf6XAmmfetEYx/YqXDT+F1a9+v
gPInrHJIfLwmL/gqlB+x2iHRzivgLsz9CmscPkrpPHh5Bsp/scbhLs+GV8+P
w8JrrcOyBX/Yo05B+RXrHKYl1Wt9PgILv/UO7y6vn5MK5AMAcUnUuQ==
         "]]}, {
        Hue[0.8634955049953739, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpnNysmBXx7YgbkG1Q4+0d2Z31ofQvgO9Q57
dzpN3/IbKn+gyeHv9xUTpNTuQ/gPWh1yMsvydrZA+QydDqu2f0ldtgjKV+hx
KA0/bsX9Hcp36HeYenzBWueye1D7Jjoo/+c2ur8Tyj8wyaFqzfcW5fdQfsAU
h2Xnz0hW3LoLtW+qw1enqx8WSkDlC6Y78D3cU1DhBeUzzHRQdvZXeFIP5U+Y
5dDZU/03dR1Uv8Ichzuz1I2UnkH5G+Y6zGBJf8PAA1XvMN/h0HeOqb3WUH7G
Aoeu1i0rVi6GqjdY6FDB8qfGazeU/2Ohg80VPh2uj1D+gUUOfxbFhH9NhPI7
FjtYyjy7394D5QcscbjNXGLPvx7Kl1jqcGryNim9EzD/LXWwqBJ8fzQCyl+x
zIFzwc6C7EYov2C5Q87Nu6zu86B8ixUOz5duj5puBOUzrHSQ7E8u2BAO5Z9Y
6fD+kPTn2BIof8Iqhwx3FR3Xfig/YrWDVHCLrh1Mv8Iah66eziM9vlD+izUO
H2K/ar5Ig4XXWgfZw2Zzejuh/Ip1DoufL6uPgOl3WO/Qu8Cvxjjgrh0Ab4XP
7A==
         "]]}, {
        Hue[0.09956348249516367, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDo2lt7pLLz+0A3MNqh0KLuzY1D75AYTvUO+Q
8qFooqfpXQj/QJPDz8xvZ2RX3IHwH7Q6dMVc26ybDuUzdDqcPD/34mt+KF+h
x2HT7C+PzzNA+Q79DmK5BfLnL9yG2jfRIXiLm9XPDVD+gUkOVRPiM7UmQ/kB
UxwseY0Zn5RD+Q+mOvxuVHz0LgnKL5juwPd57cvO6Teh9s90iF9+u8h4OZQ/
YZZDEfPrBbJroHyFOQ7y/nfL9++A8jfMdajOv7N8/U4o32G+wynnWNafR6H8
jAUOZwqdnm67CuUbLHRYfePXogWnoPwfCx30ipYu870D5R9Y5HD0D+PcMydv
QPgdix3mLJ4XIHkbyg9Y4nCu0dKR+zmUL7HU4ZmkH2vyGyj/wVKHtYvKUo/8
g/JXLHPgvGQQ+JkPan7BcgeJtDscYWJQvsUKhy15e5N2yMH8v9Lh997Tcku0
ofwTKx02WiTPqjCChccqBzfJrfyfS6DmR6x2OLzjkPH6JihfYY3D0R93VGb3
Qvkv1jjw/Wy37JoO5W9Y69DOZJd+aiWUX7HO4ajn+bo1G6F8h/UO5eWsmw7u
u2EHAOCx1uE=
         "]]}, {
        Hue[0.3356314599949535, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkvNz+Y8XvLQDsw1qHaYcDzKqdTmEYTvUO+Q
k3BswuQ1UPkDTQ5n2uew7Z4A5T9odZA797vh/mQon6HTYTq3ZM6eOihfocdB
PuBO85Z+KN+h3+HtMcH3X9tg9k10SPJ1XrrjwAOo+ZMcuI/EaCw8A+UHTHHY
23nm0aSrUP6DqQ5cf7laLt2D8gumO6RKu02oewLlM8x0EI4KnHv7HZQ/YZbD
ccu3l2Q+QfkKcxwansf8NWiE8jfMddDOT3qm2wHlO8x3+Cwkd/rWVCg/Y4HD
hY9bL9guhfINFjrMvzRd7fwiKP/HQgfGIwsnTdsEc/8ihz9rC7zWbYfyOxY7
fD6QdWPCfph/ljiUVv/cMyUfypdY6rD2wJU5MsUw/y11+L3MNdyrHspfscyh
qz8hiqEL5t/lDhYfJ3Q+6YPyLVY4LHr0S6xoCsz/Kx2CVBOKJCKg/BMrHTT/
O9VtjoOFxyoHT99SiXspUH7EagfTbqVDSjmw8FnjMPu5NPf8Qij/xRqHyw2b
BLrLYOG11iHork2zKiz8KtY5PLupFHW7BRZ+6x0+7zcLeBLywA4A9LnXhA==

         "]]}, {
        Hue[0.5716994374947433, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvJ/dVp93W7ZgbkG1Q6s+z/tl/d+AOE71Duc
3bUlbfa2OxD+gSaHfzyf1qqq3oDwH7Q6VPYEdsR/uALhM3Q6PIrfVH/lzzUI
X6HHYZ7W3zyGpVB5h36H3+FTs1yWXILaN9Fhmxd3mGkWVP7AJAeRdVxi5w9D
5QOmOMydrhGfEH0Rat9Uh7SHfud5bkDlC6Y7iMfM73eYA5VnmOmwZv/0PS09
FyD8CbMcfKc0emRdgMorzHGQF/3E7nobKr9hrkPs4aQbsR/PQ90334HhtNHS
v5JQ9RkLHApU1T6lB0PVGyx02Kdzc0GuLFT9j4UOSyI7mc2mQOUPLHLYUvtN
6fgJqHzHYofGNAGj113noP5Z4pDysKJRVwOqXmKpg0HVlM0nJaDqHyx1MDv1
6ukndqj6FcscCrc8dL6+GipfsNzBaPK1U6ZzofIWKxwi++b2nl14Fur/lQ4L
Y4SynipA1Z9Y6TBbJuzVP32o+gmrHJ45lp1V8YWqj1jtsFbBhHfGKqi8whqH
ZLUZgs8vQOVfrHGI36EfVcsE5W9Y6zDt1IrvQp5nIPyKdQ5/HvIuFW2Dyjus
d4hp6P0Se+6MHQCmDsw4
         "]]}, {
        Hue[0.8077674149945295, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpzP4mtuXLttB+YaVDu8agiel6L/AMJ3qHdw
sk07Ftp6B8I/0OQgcXzup+ITUP6DVoc5c5UvdX+9AeEzdDqs2+8u+H7STQhf
occhvNytKvH7Nah5/Q77D0iK7918HWrfRIdSHmaj7lCo/gOTHAzuygbdiYWq
D5jioLdz+tJPf6D8B1Md1goc2ceSchXCL5ju8LBe3KvuL5TPMNNBav33TP5V
VyD8CbMcwtuk45dZQ+UV5jjMnDjHz+YIlL9hrkPj/nVzu+dD1TvMdzDn5N/e
qgyVz1jgsOCMxppfulB5g4UOV42t38ycBeX/WOiw4Zj1NhERqPoDixzWBOks
LTeByncsdjhiW7tOYyGUH7DE4UehfV/A9csQvsRSh+0iwsILzaHyD5Y6FBdV
mLDMgfJXLHN4tIu9OvINVH3BcoesVRvXrXKFyluscJh2uWiu0nyoPMNKhwUK
8VxFv6D8EysdfmSfbBL3gYXHKgc3hxTZ5s1Q+YjVDnZvHTOtWKDyCmscOv2a
NoiXQeVfrHF4lufTrncIyt+w1uHAku0uJYJQ9RXrHKK5Dksd64HKO6x3OLun
zLfx2mU7AD4qybw=
         "]]}, {
        Hue[0.04383539249432289, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmcLbq4ysXloB+YaVDvsFZqd+ZDtAYTvUO8g
MH1+YkwVlH+gyeGr9AVnkTX3IfwHrQ5eV8UPVD27B+EzdDrMEQmfdVMNylfo
cQgLkVtkInwbal6/w+nvM7VPP7kFtW+iw/xJ2mnMx6D8A5McMl/OazBcCeUH
THF4aMjfdqkPyn8w1YHpx1fL/ioov2C6wxtBkflWqVA+w0wHGcOnck+ioPwJ
sxzqN4fw9HhA+QpzHJ5M+rdmqQOUv2GuQ/ZpP/5velC+w3yHO0kH3VZoQfkZ
Cxyqls63TdWGuXehg5ZlwtZgISj/x0KHDDaPOe3iMPcvcvBsknFczgvldyx2
2M15oa2FE+afJQ5LGDkfTOW6CeFLLHW4/ithcwkblP9gqcOrR/13xQSg/BXL
HD5/mJ0tJQHlFyx34Gta/PS6OJRvscKh63OOrLAklM+w0uH1Il1hd3ko/8RK
h3tpix6egfEnrHK4Ffn2sZkClB+x2uGn/832S0pQvsIah5rdxqW6ylD+izUO
Txj+60rD+BvWOvA/i3rCrwPlV6xzWCy5N/K1FpTvsN5h+X4PkQ79m3YAbgTF
yg==
         "]]}, {
        Hue[0.27990336999410914`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu++pfj6Bt2zA3MNqh0SzZY47DO6A+E71DuI
LJukuvzGDQj/QJND3ncB1qNytyD8B60O+wPZGlYuuwbhM3Q6GArnyng8uQzh
K/Q4tEdub/AruAo1r98hpu4E0/FoqLzBRAf2S9yvMudcgZo/ySFJqejti4+X
IPyAKQ7BO+Zw/Gm9CLVvqoOsegnLq0VQ+YLpDr7C109NzILKM8x0YJ2T2b0j
Eyo/YZbDj7TIzavCofIKcxw+WXpWvreGym+Y6yBz67HtWTeovMN8h6lsDkm5
hRcg/IwFDsvmT+ktdoHKGyx0OBO36ntKCVT+x0IH0avV7tHmUPkDixx8CoL8
DjVA5TsWOzxkLLmVuf081D9LHDSSjZ/yt0HlJZY61HAdzS09C5V/sNRhMZfu
nQ2dUPkVyxw2Mkm0tP2Eyhcsd8hdKfH+bB9U3mKFQ2EU++4LbFA+w0qH25Pf
FJ0Tgao/sdLBfsU5owxhqPyEVQ4dF5Zy65lC5SNWOzT9zG3aKAOVV1jjwHvm
Ecu8EKj8izUOtT3/Zm2uPgcNr7UOXhZPHvZUQOUr1jnICehGdayAyjusdzg8
rXeix+TzdgB/XMhI
         "]]}, {
        Hue[0.5159713474939025, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDg6Tqvdb3nhiB+YaVDtsYXm2bNsDKN+h3kEz
XmelDvtTCP9AkwN/w0/pvf+h8g9aHSZ1BlYuEYPKM3Q6bPRbdfm8IVReocfB
av6SlP/pMPP6HUr2vT+0rBJm30QHnTO159/0QvkHJjlsLpo8c+4cKD9gioPN
eRa+1XIw+6Y6TEl1SZ9iDOUXTHd4KXOv4qUTlM8w04FTrOD4zTAof8IsBwaT
nD1xiTD3zHGY1Xj62ixeKH/DXIcou9MiNyRg7pvvkPBg6Zk/2lB+xgKHqsyc
5cyOMPcudHCewNPG7gDl/1jocMo9sXETG8z9ixxiJ639dVMQyu9Y7GC0jEXv
tzzMP0scbJxOsu/VhPIlljq8E+a0E9GD+W+pQ8PDnslytlD+imUOVlNmzL3N
DfPvcoc6557DP4WhfIsVDhU855UPy8D8v9Ih883Ew4Iw80+sdLi74XBW1s/H
0PBY5SDDfob/CiNUPmK1w15RrTndMPMV1jjsE975hB1m/os1Dm7v1fadkISF
11qHW7xHa9Z+h5pXsc5B66jZCdF/UL7DegeZuJMcpzie2AEAEKPI7A==
         "]]}, {
        Hue[0.7520393249936888, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhPuyJvybH1oB+YaVDtsd5MSKSl/AOE71Duw
JRuYBbLchfAPNDnIn3xiOssDyn/Q6qB3df5f64VQPkOnw5zep9tOs9yC8BV6
HGJKCpXub4HyHfodwjJjbVxkb0Dtm+ig5GK199FBKP/AJAePOdNCTT1vQvgB
Uxz4b9/56p18HWrfVIed21LbDn+A8gumOxSHvf1XmAHVzzDTYa9Z/4Rl769B
+BNmOWiWaRWGpUPVK8xxUND/vLDjJpS/Ya7DhLNiEWdnQNU7zHdY92F5iRo3
VD5jgUP6VI6jpf+vQt270OGsa9Nlvxio+h8LHRbwVB90PgnlH1jkwMJpXdhy
Haq+Y7HDYgGXaY6WUPmAJQ4enFl1v/qhfImlDsouGwsjtkHVP1jqsDnnskyp
EFR+xTIH97sP62ekQ/kFyx1cb0xXE1oBVW+xwmHV3JSP175C+QwrHQ6HzLnj
7w3ln1jpsM7gvMSTaVD+hFUO9j6Whj/uQvkRqx2eT56/UdkByldY43DU2bx1
XyuU/2KNg0rVY1a741D+hrUOq49NnvvXGsqvWOdwoLzoVVI1lO+w3kHStP1m
w56rdgBBnMth
         "]]}, {
        Hue[0.9881073024934821, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvdXZlS/vfTODsw1qHaYt/xf7uH7UL5DvYPJ
BIktgtLvIfwDTQ7ySVVLG/mg/AetDkGS/y+f+ADlM3Q6PA7fsWfbcShfocdB
au+itIXPoXyHfgfGHWtPC16H8g0mOnz3EOt1vwQzf5KD/5XC9senoPyAKQ57
ttmm/D4Is2+qQ/2LTt9le6H8gukOxz/phP7cArN/poPF7sXbj2+H8ifMcogO
P+t1aR3MPXMceuriEpZvhPI3zHU42pd0q+w9zH3zHcw+d7+fvRrKz1jg8MLc
yI77B8y9Cx2udvstaL8L5f9Y6DA/SWBv30uY+xc5nKhM8p/7EMrvWOzwbaZa
7rkHMP8scch0bd5QeQvKl1jqoPjox4+7Z2D+W+pQWGI3qxYWHiuWOei8mftK
4hrMv8sdlj0Lf+JxHsq3WOEQcvbzefbTMP+vdHhx/Pdin7NQ/omVDjvWzpDQ
+AwLj1UOe+vYFXLeQvkRqx1s9+s2Sr6Ghc8ah0or65bvT6H8F2scuEwbj06G
uX/DWgerWROMDsDis2Kdw68tLQUmMP86rHe43Pjl7Z9H7+0AnmLkkQ==
         "]]}, {
        Hue[0.22417527999326836`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrfdPk9ZcPepHZhrUO3gdcV2d9wGKN+h3uG1
z90F1+qh/ANNDnurLr9LFoPyH7Q6CCzwKpZ89gTCZ+h0+HGw2ebvEihfocfh
3EdLh70zoXyHfoeOX8+y7sH0G0x0WHXkWCzfR6j8gUkOX7ceTv59DsoPmOJg
8GjbxK4NUP6DqQ6npH8GusyA8gumO9z2Lv5s2wCzf6bDYVFvtrXXofwJsxxm
P3uxZMNemHvmODg139R1Wwvlb5jr8Nj7FZ/8NJj75jsc2NH0r7YLys9Y4BDs
MyNwcTOUb7DQ4ZFM95a2zVD+j4UOWlOtXyaug7l/kYPZmjD9J3Oh/I7FDlkG
15XXTIL5Z4lD09x7ga9boHyJpQ6+5l9Z04ph/lvq8PR/5F7/PCh/xTIHV+/o
P5syYP5d7qC4KsVDZgqUb7HCwZiNdcbWDpj/Vzr8keVs1miC8k+sdFjif2He
knJYeKxy+N7albw2F8qPWO0gZHRuX/BUWPiscdD595NVoRvKf7HGYU/MrlDl
Rlh4rXWQSju+VrEeyq9Y53Dqi+4ms1JY+K13sF57Lr2z4IkdADPD14s=
         "]]}, {
        Hue[0.4602432574930617, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlcZ15k++fbADsw1qHaQElzceLb3PoTvUO9Q
l5G9+tnZ2xD+gSYH5an/rHYnXofwH7Q6SJ9bOfc9J1SeodPhm15r+t19UHmF
HoeIvC2l4cFXoeb1O8xp1LE84HgZat9EB0eHKVPnfIfKH5jkkM2i2apkeAXC
D5ji8DTJrjVo7SWofVMdvHYkGdskXoTwC6Y7TNz7eMrBWqh5DDMdWkLtT7IE
QtVPmOVQUCxysNgBql5hjsMUT+X/gsEXIPwNcx3+yIpGbOKGqneY7yB5V3fK
bR2o+owFDhM1lT3yU6HqDRY6uNuFsV2yPw/h/1jo0HuI9WbOj7NQ9y9yONXM
HbclC6q+Y7FDs/1xO5FeqPqAJQ7+LK/NGiLOQfgSSx1u7PKy/mAM1f9gqUP0
uvIt/rug6lcsc/jGN3PLn9VQ9QXLHXYf3m72eilUvcUKh/4TcnvKNp2B+n+l
w5KWU14Rr6HqT6x0+JPJ8UHkD1T9hFUOr9/+UzwqBeVHrHbonswqd9YDql9h
jUOq4ooGzobTEP6LNQ5pnM+Wbc2Dqt+w1kFP3XjaLJh9FescLkbePP3pC1S9
w3qH07PE9/xzO20HAKL4y4Y=
         "]]}, {
        Hue[0.696311234992848, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlWy2/e/7XlmB+YaVDuIzZHbm+EO5TvUO1S/
1W1ZKfMcwj/Q5FDaaZ0zIQwq/6DV4XcA3/GX+6F8hk6HDcHe5aofoXyFHofz
Hy7yrZ0OM6/f4bDR3qv852D2TXTQ2fVfcHsRlH9gkkOgyt26qcug/IApDvot
c/Y+DofZN9WhbC0Tx782KL9gugNTSa5oijPM/pkOK3fH2KjDzJswy2HBzXU/
Vk6GuWeOw7PHrK8XJUD5G+Y6nCl2ehBeC3PffIe3FT9bTgZC+RkLHGS8mgOt
q2DuXehwQOfudG0HKP/HQoe1su/vPsuAuX+Rw+3MSSwTG6H8jsUOr5/V/VoT
A/PPEgdj08K6tBIoX2Kpw/xtRx4+8YT5b6nDn6253hfTofwVyxwcPfket3nD
/Lvc4cO7zQm98VC+xQqHwIeB5xcUw/y/0kFGeUnCgwgo/8RKh6vtvWumZcPC
Y5WD856rDu99ofyI1Q4f2PNOX0yEhc8ah4MyWedk3aD8F2scfk2+I/MGFt8b
1jo4ZPCJ7XOB8ivWObxQY+F4HQwLv/UO/3m2Sk4Cuh8AaV/UCA==
         "]]}, {
        Hue[0.9323792124926413, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDoYWKh/3iz22A3MNqh2eR/ysf7r/IYTvUO/w
/8SKFvcHUP6BJod7Hu1HmV4+gPAftDqcUrh3ycgbymfodLB8Y/O9QQeqXqHH
Ydrq7P8+W6HyDv0Ou0QW7/C2h/INJjos61A/r3n0PtT8SQ6Bco3SImpQfsAU
B4flEVsCTGH2TXVQTFvuwXEdKl8w3eGjSUq8ZRCUzzDTIc3vYeCE5/cg/Amz
HGaGexsm1kH5CnMcNPofPntaBVW/Ya5D+irROccEoXyH+Q7LptYEnT8AVZ+x
wMHnS1zN9hoo32ChQ+arHuMjClD+j4UOtprfsj9/hfIPLHLg6vxncWIVlN+x
2GGHz7r+5GwoP2CJw5qNTWY3taF8iaUOZ15/fSD96i7Uf0sd0hV8GUSmQ+VX
LHNwa2Y6sDIFyi9Y7nBik7uTlg6Ub7HCQaokYJbIT6h+hpUOElOeSGmdh/JP
rHRYe8XZ9EIULDxWObzdazrJVgvKj1jt8CT8VqjYf6h6hTUO9idaF5++DOW/
WOPgqxjNFbMKyt+w1qFX/J3aXz2o/op1DgevHuZwYYHyHdY7ZEzd977s0V07
AOktzvo=
         "]]}, {
        Hue[0.16844718999242758`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlfLp7579fmeHZhrUO3AGfTuLGvJAwjfod5h
XrT/hJo/dyD8A00OrZtWeO2qhKp/0Oqw/0X4spOCdyF8hk4HhrV89b9u3Ibw
FXocTC8/TlugB5V36Hc4avDHwtMaap7BRIfek86cy6qg6g9Mcjh61HQS47Vb
EH7AFIe8tDVFt/ZB5R9MdSidmjddThfKL5juIPO/8u60VVD1DDMdFq/pmbW8
CCo/YZbDuRDz47t+QuUV5jhc4Uh1XjoNyt8w10HstNM7QWMo32G+Q9PauS9Z
bkP5GQscnLPPepb3QvkGCx0upZrsPqYD5f9Y6PDyW2Xsqg83oe5f5FDbdERl
bgVUvmOxQ/aG8EdypjD/LHGYP/OBXNUnqHqJpQ6rhQ4vvJ8KlX+w1KEwXzZi
sh6Uv2KZQ8lq1x+vf0LVFyx3sLQ4prbpAJRvscIhK1YgsAfmHoaVDiqe+y8w
/oHKn1jp8J9PR+beCSh/wiqHLa0rI6dqQdVHrHa4MVn3it1vqLzCGoeQO6V2
YWeg/BdrHPZpay/ZogoLr7UOc190PBRkhPIr1jm4hW9a6HkFqt5hvUNe9p/A
qetv2gEAmJbTiQ==
         "]]}, {
        Hue[0.40451516749222094`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDoEblyzIqXtuB+YaVDuk7vNk+McL5TvUOwSe
MUt81AHlH2hyaBPal3ItCcp/0Oqw0bw8KGv2MwifodPhUnphaul0KF+hxyH9
7luBqQegfId+B/7vCyKCj0D5BhMdDufcunf5LJR/YJLD/TaFTaaXofyAKQ7B
sp+Xql+D8h9MdeB57Ln/8i0ov2C6g8P/lI0LbsPsn+kQvmT2khWPofwJsxz4
oxlctj6CuWeOQ9nuKwcjX0L5G+Y61Fzt+vn0Kcx98x2OPvwroPQWys9Y4PCg
x780aCPMvQsd1B0Yq5OXQ/k/FjqI/b9XbrYd5v5FDj+kG30O7IDyOxY7VOZI
yU3eB/PPEoe/++8zGMDCQ2Kpw+1L81b57YH5b6nDaesLK92PQvkrljm0JF1Q
XnoG5t/lDv716dfSYXyLFQ6fFLUSemDhx7DSgeFh/ilbWPidWOnAm35+9h4Y
f8IqB7bPBVryV6D8iNUOm4oP3X6/GhY+axz+1WYfKFoL5b9Y4+D67vWZhnWw
8FrrcO1RAtt1mH8r1jmoCXLbbIfxHdY75J1c4fUV6B8AgO/ceg==
         "]]}, {
        Hue[0.6405831449920072, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpq+hiK/4u7YgbkG1Q7pPx1C3k5/COE71Dt4
PKzbJc54H8I/0OSQaPxQPljoFoT/oNVhx8rlxgJzrkH4DJ0OiR+m18deugHh
K/Q4lH/8OmOtF1Teod+BW0ZsA4fiFah9Ex3aM0/PMeSGyh+Y5GBxzHmuuDNU
PmCKwyX/aXee7b0EtW+qQ8tbvWOfIqDyBdMdCgMO6Xxhvgy1f6bDgTYhzq57
FyH8CbMcytqYot1toPIKcxwMrz69O8kYat6GuQ7Pv6bPemEHVe8w32H56/kz
fMqh8hkLHJjdVm24twAqb7DQ4cz6mcw1Zy5A+D8WOpR8mJd/4xlU/sAih08/
Fuz8pwHldyx2eJsi1Z5UC1UfsMRB0m+Fp2ERVF5iqYPc/zcrfp2Eyj9Y6uAi
evj8GjMof8UyB7VOCed4Saj6guUOnmbXFzq1Q+UtVjiEbvnzmPf/eaj/Vzp4
rfkVFH0OKn9ipUPq8jnnvX2g/AmrHMyFp75dvBiqPmK1g3XJ6qKaPqi8whoH
g8Und3yRgPJfrHFQ+S24gD0Yqn7DWgehDWeDt8RA5SvWOfgHlF2UfwiVd1jv
MHv59+n7pc7bAQCEl857
         "]]}, {
        Hue[0.8766511224918005, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu4VVcnCxg/twFyDaocWG8FHp/9D+Q71DlKn
s9ut5kP5B5oceAOjDN96P4DwH7Q67JBq/ZmzBcpn6HTQWiak2jP9PoSv0ONw
y/fc2i9mUHmHfoetAj+S1SqhfIOJDt9vLluQuxuq/sAkhz25HkyH5aDyAVMc
TjMZhInaQuUfTHVoz1SoW7kNyi+Y7vD5/dE3++/dg9o/02E7o2ApayhUfsIs
h4+NJx9xzYLKK8xxOPyfOeoBG1R+w1yHWCc5VZsEqLzDfId1Pu5qzMeh/IwF
Dqy3QuKeaELVGyx0MHB9LGDWDZX/sdBhQYxsjP4bKP/AIodNefHiM7Oh/I7F
DqeskrJKd0P5AUscJLUVM2XdoXyJpQ4prQLvFrRB+Q+WOkSuM34qrAblr1jm
8DF8xWahQii/YLmDl8hH9f1roXyLFQ51F0zmbPCB+X+lwx3WL3Gz+qD8Eysd
bq/6UXnMGMqfsMphz+SpKdY5UH7Eagfdp6yJSlKw8Fnj0P/p+RO7ACj/xRqH
033nmWIYoPwNax3Uz53bu8EOyq9Y5zDr38pC6093oeG33oH3e4B/kuY9OwD/
4cgM
         "]]}, {
        Hue[0.1127190999915868, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrv3FcyXTb9vB+YaVDtI3XrTnGZyF8J3qHd4
I6Xx4dvumxD+gSaHGUuu8PTfvgPhP2h1mB7I9WgaG1SeodPBLrLeyPPXVQhf
ocehf3OUwOM9l6Hm9Tss84pl3ex+DWrfRIedXxQ93oZcgZo/yUHMWDLYc8Ml
CD9gisM8gRNv5+6Dyj+Y6rD12lSBfb5Q8wqmO1z/PtnRmQuqnmGmw8dPb+Je
fb4A4U+Y5WD768YkroVQeYU5DmU/org3LbgI4W+Y6zBTL0Dn4Gaoeof5Djm+
TBbMp89D+BkLHCxKWeYzRUDVGyx0EIr05RJoh6r/sdBBwV8q4sxmqPoDixyS
n5zdOTf5HITfsdghoIJzpVYuVH3AEof26V+LmWdC1UssdUj926IbnwFV/2Cp
w81ryVMbAqDqVyxzqJOuXvavC6q+YLnD2Qi5L5W1UPUWKxwmzNvySLL5LNT/
Kx3em66etLcKqv7ESgdRLi855Xao+gmrHGYfyZXfuxCqPmK1A//+a47fTp+B
hs8ah8K47A6bbqj6F2scFt8rjDy9Hap+w1qHN4w+znd+QtVXrHNYJW6wMMYK
yndY76D/fuPMyGtn7QDC7ctc
         "]]}, {
        Hue[0.34878707749138016`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvc3st280/bYDsw1qHYQ1488c+YXlO9Q72Dg
9/TVYWMo/0CTQ4/DtGvGhk8g/AetDqfyuhIdbkDlGTodbCYUP3hWCeUr9DiY
rlC/wBQKM6/fQfXMpmBvOZh9Ex2+PLF40vntEdT8SQ733waGC1yG8gOmOLz5
IdI+ZTOU/2Cqw6qbEcyms6D8gukO94+5bWhrhPIZZjosmznf/kAhlD9hlkPJ
bzFutbtQvsIchz1pAnZMp6D8DXMdnu67K2C9Ecp3mO8wo97yiPViKD9jgcMm
YcOomzOhfIOFDiFLLPe8rYPyfyx0EHf2soytgrl/kcO6PfWf9mRD+R2LHcQ2
xT06mQjzzxKHELnMv9NCoXyJpQ6sbAVFetNh/lvqMOFBuNT9fih/xTKH5zx3
enw6YP5d7iDT0PCjuhrKt1jh8LONlW9aAcz/Kx026hzfKpQF5Z9Y6aAesqSI
JwEWHqscvr8XftEbBuVHrHZ46tLrZ+kPC581DnkcqU4H3aD8F2scYnzsrYvs
YOG11mG6eB+Dmi2UX7HOQWTLLbmIXFj4rXcImLvZziXjkR0A5RXLVw==
         "]]}, {
        Hue[0.5848550549911664, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqy8grN7F362A3MNqh1mi2sfnrMPyneod+A7
cupaC/cXCP9Ak8P80JD7DSpQ/oNWhzLr+wwfo6B8hk6Hxv/fGBQSoHyFHgfT
pSvPXfWB8h36Hb6xLlzIGA/lG0x0aPzweoZQCcz8SQ56b+vXCzVD+QFTHCQ8
+8On9sHsm+rAYhTuozULyi+Y7qDZ9Xd580KY/TMdpJq+6exphfInzHIoX8/i
l9ADc88ch+jpNmfOzYDyN8x1aHz5NuHEbJj75jv0RLVcT14O5WcscLB57LXt
Aky9wUKHA02HQ6etg/J/LHSI+Xj8ce9imPsXOXwpFdueBtPfsdjhbbufz1GY
+oAlDg5dMgtDNkH5EksdPok2P2JbD/PfUodn/3Ztat4F5a9Y5uB0S7qbfw3M
v8sdrih+2awDM89ihcPm+hV7bDbC/L/SQW+H/YxHMPecWOngd+p2xellsPBY
5cBxQXpC50ooP2K1w8xAxq7ra2Hhs8ahP/1LuNsGKP/FGofpE09W2sHcu2Gt
Q2Nhyf3Ve6D8inUOtzckZ0euhoXfeoemeTuLSoDqAZdn2Dk=
         "]]}, {
        Hue[0.8209230324909598, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrbpb/d17X9gB+YaVDvIdz3b+1L1PoTvUO/w
2l60X4cZKn+gyeFaQt7Ov8fuQfgPWh1amA+W/2SD8hk6HRZMNEs95HMXwlfo
cRBt+arB8OkO1Lx+h/D+kMf5zVC+wUSHGZIZFfYGUP6BSQ4rMmoD/J/fhvAD
pjj8ez5jQfhyKP/BVIenz05oXSqC8gumO1gm/TH1dYTyGWY66O8Jb6yWg/In
zHK4ff/gR+Nvt6DumeNgy7vo349bUP6GuQ7MDWys27ZD+Q7zHW6c7f51ejGU
n7HAYWLN0k3506B8g4UO6rzqixUKoPwfCx3E+QRPLsiE8g8scvgQ37f9fAiU
37HYQfDI21vL3KD8gCUOHWll3z1NoXyJpQ6bSyq+GstD+Q+WOvQd2iuxTwLK
X7HMYSrHup4NglB+wXIHz+fHCnmYoXyLFQ61b4v/Pfh2E+r/lQ5H+c5tWfsB
yj+x0uHhdQOr2KdQ/oRVDm+qfugtugXlR6x28PrbKHr6EpSvsMZB7ljuA/OT
UP6LNQ7Wd3JF9u2H8jesdZDYsazkP4xfsc4hS+7Wn9htUL7DegdhHkN/zs03
7QBIg9PA
         "]]}, {
        Hue[0.05699100999074602, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDuuPJohfu/bADsw1qHYIKU0U0Qu6D+E71Dsk
ydxji515G8I/0OTwjKP1YY/pdQj/QavD6r9ay3cqXIHwGTodeM+xCv+fCJVX
6HH4GGV7gFv7KtS8fodMExWTWNnLUPsmOkz6mv+0tvAi1PxJDkmTZv9dxHEB
wg+Y4hB569o39q5LUPumOsR7flROdYCqL5juIO/9SydIHqqeYaaDt7yCjLrv
OQh/wiyH5v7fq5y6zkDdM8ehV80519IEqn7DXAfXV6mfb2+BqneY7yCm/99q
o+VZCD9jgcOTPaoHYp+dhrp3oUOI/547LtNOQfg/FjrY83U37qo/CXX/IoeD
X2t6Qlug9nUsdrhSxLRHNx2qP2CJg8A9eWvdaKh+iaUOLrrXy0RjofofLHXY
WpIUPanuBIS/YpnDpav7ln7kh+ovWO6wZfPLkzs0oPotVjj4vb/97XUgVD/D
SgfVo9dmpPdC9Z9Y6TCn2VQn+/xxaHiscjhekP1YkQGqP2K1Q2FKT1u/C1S/
whqHbns2ZbOJUP0v1jhIHG0XU38O1b9hrcNBHSuvFD8ov2KdQ1KjeKStFVS/
w3qH25un5LvOPWEHAIUMxLQ=
         "]]}, {
        Hue[0.2930589874905394, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDi1tjy50Zz22A3MNqh2uSH6ViJkA5TvUO/y/
e2JKwFMo/0CTw4LX7VzJIk8g/AetDqoePa2bw6HyDJ0OtkyvbxR3QvkKPQ4z
jb8vjBWEmdfv4OhlIZToCbNvooPv12OMH2pg5k9yMDLR9dguAOUHTHFoPB37
MssWyn8w1UEv/dbDdalQfsF0h5+MC6c/4YXZP9MhY/ddpc3mUP6EWQ4RIWw6
O18/grpnjsOyqUeyVglB5TfMdbCd9P7OFV2Y++Y7XF6ep+HwBao+Y4FDhVgW
82NJmHsXOiSVfLPZfg0q/2OhA/ujbclP/kD5BxY55Fua/rIVharvWOzwOevh
j4pnUPmAJQ4uCtcvWfyD8iWWOuwJyXlzmh/mv6UOb1UtxRNfQuVXLHN4+iXt
yQZmmH+XO+zrXnap7SZU3mKFw6T1Ejni76B8hpUOwtWBmVJnoPwTKx12XHOP
6rwP5U9Y5XC25pvy0Y9QfsRqhwkSGhyZF2Dhs8aBedXHY+KPoPwXaxyOO4Q2
NH+C8jesdbh3ZVPnkRtQfsU6B7E3s9d/eA7lO6x3UDC6K/MSaD8Ayc/Vsg==

         "]]}, {
        Hue[0.5291269649903256, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDk1l2hoCUx7ZgbkG1Q7uzjmvft6E8h3qHS6r
n83YkvQYwj/Q5PDypfAymQVQ+QetDksK9Xa4aUP5DJ0O0zS+ufbPg/IVehwy
X8SGMwTAzOt3cOeXuHDqx0OofRMdjr5qNFeJh8ofmORwotFWPkUcyg+Y4lA7
idND8SZU/YOpDvL75O+ww+wrmO5w+sBv/tmfoPIMMx3il+edOXkMyp8wy+HL
019F1Rww98xx4It5GC79ACq/Ya7De9blJSu2QPkO8x3MHvmn3fgM5WcscJCa
HD/B5xrMvQsdONfplx1dCeX/WOhQHJa3dukzKP/AIofFl/d41h+F8jsWO6Qu
XBwZtwrKD1jioJRjl5t5HcqXWOqwkm9a2bZtMP8tdbCJeBj3cSGUv2KZg8Ym
pV0556H8guUOR57pX2XYCuVbrHDYunSteOhcmP9XOjxaX3VQG+b/EysdFLLW
b5VcDwuPVQ5+1eIBITOh/IjVDmI5RgUn90D5CmscosJ+5N5bDuW/WOPw/UxJ
9enJsPBa63D8mPMr/51QfsU6B5PImGzdpbDwW+9w/JPca9FpD+0AscfRjQ==

         "]]}, {
        Hue[0.765194942490119, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDm73zXcodd2zA3MNqh021DkeWZV2B8J3qHf4
/ar6eo/nfQj/QJOD0MaN3+763YLwH7Q6rLDIOBeYeBvCZ+h0MM6ye+XOfQPC
V+hxkI8X8V5teBNqXr/DumX/tx/afw1q30SHIz/K9v3beR1q/iSHkuw8BqdO
qP6AKQ6axsL7L26Eqn8w1YFRRL9SrxyqvmC6w4WgHR8vvb0KtX+mw6HwKy36
q6HqJ8xyaPervrs7EiqvMMchpvbPJWcuqPyGuQ5S9UJXXz+8AnXffIfTP9cc
1O2Aqs9Y4PBeittFrA8qb7DQIXHbhDZPCaj8j4UOvbzdXibWUPkDixxMCzYq
JB6H8jsWO+QUpmws9YGqD1jisDT1yEaRGqi8xFKHwC3CU4U/QfkPljrY7e1O
cbSC8lcsc3AQYDhbsgXKL1juYGNUllzLDOVbrHDYudXHY2cRlM+w0mFPc5TX
t8uXIfwTKx1Sfkh/XW0LlZ+wyqGHaWVG+1KofMRqB5nfKZtseaDyCmscui45
iD+thcq/WOOwN8i53vQelL9hrQP/2U7hrQ5Q9RXrHPZPTTW5uAsq77DeIVbm
4ZQ4sSt2AH4VygE=
         "]]}, {
        Hue[0.0012629199899052423`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvsM8y0mPHtgB+YaVDu4ty8R21/+EMJ3qHcw
eeSe9/YtVP5Ak0P68XdOjpeh/AetDr3dd1rVs+9D+AydDgox9mZ/OqB8hR4H
sU27J8vchfId+h3mpueXtf+A8g0mOnSwPFnOxAMzf5LDip9c37mu3YPwA6Y4
GDwSnsvGCFX/YKpD0c+9Xx5oQPkF0x1mvrilqukOs3+mw8sH1y+ppkP1T5jl
4H2UP2JlN5SvMMdh7ynJHN5tUP6GuQ5Vkgv4F5yH8h3mO2zxzUjJ/QLlZyxw
CE1xZ6gMhvINFjq0qnOsWJAI5f9Y6JAsfdUvtx/KP7DI4bf8rdf+K6D8jsUO
r/sD3cWPwvyzxIHJbV7VWQsoX2KpQ7G5lvRBbyj/wVKHq2XRovtzofwVyxxE
37r8cemB8guWOzyyj159XAjKt1jh8OB4nOR7LSifYaXDT686/nXuUP6JlQ5N
eYonfGNg4bHKYVnnJb/5+VB+xGoHftV8idvcsPBZ4yC8IVg3VQHKf7HGYXt2
lnCYMSy81joUb/6+XD8Ayq9Y58AQESNX9fkuNPzWOyyYv7zoF9A8AJoGyL0=

         "]]}, {
        Hue[0.2373308974896915, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlarAx/9THtsB+YaVDt49hz08OV+BOE71Dt0
l/5iOHzmPoR/oMnhe1pH+dO9tyD8B60OV9RbVjAaXofwGTodltuo6v6LvQLh
K/Q4CJYIfrqTfANqXr+D+JwfRtps16D2TXTY2TL5urYkVP2BSQ5VC6rMUiov
QfgBUxzeaJx/PV3sItS+qQ7ztxd0d589D+EXTHdY+/SxV/tkqHqGmQ6HF60L
fVMCVT9hloPErt0zNQsvQN0zxyFCQIjlrixU/4a5DituVSYtrT4Ldd98B5FH
gnusrkHVZyxwCBNLE9onBOUbLHTw0+O2tF50DsL/sdBh2a99Hd6JUP0HFjmE
+TF+PKh5BsLvWOzQLWi0VlXgNNQ/SxzWbBThV42D6pdY6iDZua0/wRKq/8FS
hzZrTpf/FlD9K5Y5LORbGd/jAdVfsNzB+NkU8cL4UxC+xQoHBrskxidtJ6H+
X+lQuu9/hZgXVP+JlQ5B/0ts9fOh+iescjjBN6GIeyFUf8Rqh2X/Hgl+fADV
r7DG4c96hmInTSj/xRqHJTkXJopXn4CG11qHL3qbLrXcguqvWOcQfrE7g08T
yndY73BZ9ZWyJ9A9AA8uxNQ=
         "]]}, {
        Hue[0.47339887498948485`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmxFbTtfpDy0A3MNqh1uu3NeNdd9AOE71Dvo
3O1ZY950B8I/0OQw8+nix7E/r0P4D1odejf+Duo+dQXCZ+h0eB2V7xDjdAnC
V+hx2Bcel7Dk7lWoef0Om7+WLF607zLUvokOj3MXxqxkgao/MMnhT9jqly/7
L0D4AVMcmqenq61ZfA5q31SHXa8Xlb5uOgPhF0x3kG9Lr4lYDlXPMNPhEPvB
tHM+5yH8CbMc/rl/P8JbfRbqnjkOmwLnrsh+ehrC3zDX4dN8q1M1eaeg7pvv
oBPfUuJiALUvY4FDW+0koUMXofYZLHTYcpuzbWoZVP+PhQ6vb4fJ3g2D6j+w
yOHhIuXjE+1PQvgdix3aWB1uSDmfgPpniYNIq2VItyVUv8RSh7mO/seEjaH6
Hyx1CHfaFGztC9W/YpnDRG8NvdWlUP0Fyx1ma5vKbFhyHMK3WOGQG24yo+fR
Maj/VzoY+vVv642B6j+x0uGinUm83wyo/gmrHB76vvNpuA/VH7HaQcm2Y4+7
MZSvsMbhUu/yC7P7oOa9WONgYfqtq/zTUWh4rXW4onD9EZsw1LyKdQ6ahdcS
3xVD9TusdxD6/PogI9A9AMlTzpA=
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 0.0000233928839666212}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alabama\"", "\"Alaska\"", "\"Arizona\"", "\"Arkansas\"", 
       "\"California\"", "\"Colorado\"", "\"Connecticut\"", "\"Delaware\"", 
       "\"Florida\"", "\"Georgia\"", "\"Hawaii\"", "\"Idaho\"", 
       "\"Illinois\"", "\"Indiana\"", "\"Iowa\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.8818710548616343`*^9, {3.881878791399291*^9, 3.88187880614716*^9}, 
   3.881887249179647*^9, 3.881887285353319*^9, 3.881898065424362*^9, {
   3.8819132189480877`*^9, 3.881913255163748*^9}, {3.8819132921005707`*^9, 
   3.881913331305748*^9}, 3.882060410282395*^9, 3.882127195283495*^9, 
   3.882127500773655*^9, 3.882139117789701*^9, 3.882236989207144*^9, 
   3.8822370778338833`*^9, 3.882514369449019*^9, 3.882555554584482*^9, {
   3.88259658507917*^9, 3.8825965906179457`*^9}, 3.882596763074918*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"0dcf1200-ecd7-424f-8eb6-157672065141"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"KeySelect", "[", 
     RowBox[{
      RowBox[{
      "Transpose", "[", "voterInStateDecisiveProbabilityCoords", "]"}], ",", 
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{"smallest15States", ",", "#"}], "]"}], "&"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Joined", "->", "True"}], ",", 
    RowBox[{"PlotRange", "->", "All"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.881913337028903*^9, 3.881913337576345*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"bf86e287-8331-44fb-8d0c-e64617182e8c"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDjN2bF/5lvWhHZhrUO0QwPii6ejK+xC+Q72D
7ynda93PbkP4B5ocLIXC75aUXYfwH7Q61POHiT5XhMozdDoI6UtOf3kZKq/Q
46B92bDZLu0q1Lx+h1aR4tsXgy5D7ZvowPVF96frootQ8yc5HNp7K4zD+QqE
HzDFofOP1PQHey9B7ZvqUJNs/WpxAVR9wXSH9RtbOjJ8LkDtn+lw7rQul2Mi
VP2EWQ5ffrNl7vOHqleY4yC36odtVyJU/Ya5DkkyUTm7uc5D3Tff4Z//1tCc
7rMQfsYCh+dPJM59L4aqN1joILEz7kVLNFT9j4UOrQu3dvwVOgd1/yIH57LD
FaJXzkD4HYsd8r9cnc29Eqo+YImD7cti/rRiqHqJpQ5sSY0HL/lC7Xuw1GHK
keeT9vhA9a9Y5qB4P1h9QfRpqH+XO+R9mnXE6ABUvcUKh42nLtY9Ow1Vz7DS
ocXma0fqG6j6EysdtA8w2wSJQPkTVjkUlOpETjSB6o9Y7cDmU2lxPxGqX2GN
g991nuWZM6DqX6xxuHHca1PyzVPQ8FrrsOdJ07fTulB+xToHJb9fk3bxQvU7
rHdQS3gYpBN/2g4AO+LNuw==
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqueyqS82HfHDsw1qHZYs6NK9tzuWxC+Q73D
HtNnuW8z70P4B5ockr2OsVVnQeUftDpwHuNLbn5xDcJn6HT4uGTbcmu5KxC+
Qo8D4xqvGbzToPIO/Q5xsw8vlUiFyhtMdEiZsHVD25xLUPMnOXTZOe2Z1Q6V
D5ji0PnFhtntL1T+wVSHBaFtdnNWX4TwC6Y75B0MN3RwuQy1f6ZDyyeFd1+l
oOonzHI4Zj1rWisvVL3CHAcjEbfNd5UuQPgb5jo4PVDYa1EJlXeY75CRctK8
YCFUPmOBg/07teSVB85D3bvQ4clRR3tPVqj6HwsdXi/Zp/A5CKr+wCIHoYtv
FNd6Q9V3LHZ4c1fVV2UrVD5giUPzlLpfOwWhfImlDgLa/9KmvT0H9d9SB1O1
zns2985C+CuWObzrOaHBcxhqXsFyh0sM87qXbYaqt1jhsH7O5Wft26HqGVY6
1Ez89XRWPlT9iZUO1w9Gs4TWQNVPWOVwyXPtabvpUPURqx1m/S+1C1OHqldY
43D85x89Qy+o+hdrHFpObBFprICq37DWQSAvpVZ1zxkIv2KdQ+FujY6JqlD1
DusdbCcfqfiVedYOAPO3zug=
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDsduXe0+8/WhHZhrUO2QNTON5drmBxC+Q71D
/NQnbMr5dyH8A00OFV+Mcis+3oPwH7Q6PG7wEk+4egvCZ+h06LxiuPiI+x0I
X6HH4S3bwpnbUm9Czet3CC8SKb/17hrUvokO+0QuXduYdQNq/iSHJZLc7AWF
UPmAKQ5zv5W1Xth5HWrfVAcFkTV/bwlD5QumO6TZi8mHmEHlGWY6lP9c+E/y
wlUIf8Ish3RGv/mF3Veg7pnjcGD15aV3ZkLlN8x1WPV1w+eycqi8w3yH3w7z
trXnQuUzFjjoPpukua4EKm+w0GGfD99sZheo/I+FDhtlpj/VSoXKH1jksDHM
e5aAHlS+Y7HDx4DLDyyjoPIBSxxypH+dU5p8GcKXWOpwbWqZTLEnVP7BUof3
J8X88qdD5Vcsc9jv9qL8pRdUvmC5w3bjpxJ1c6HyFiscXmj9YGt1gMozrHTw
3lT62mcxVP7ESocCvh1x/txQ/oRVDnbdU1Q4lkD5EasdUq8cXuovBuUrrHF4
ZzpnasQyKP/FGocFtR+kfeSg/A1rHdI/HqvzWAvlV6xz+Lpu8VVzbSjfYb3D
5B+Ndf/WX7YDAHYV0P4=
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlW2Ld66lnftwFyDage5gCnXfHVvQ/gO9Q4J
W7YWhn+Ayh9ocljsGXByhs5NCP9Bq8Ov3sslFsa3IHyGTofffhmz/jJeh/AV
ehyCW7RubpC+ATWv3+H3mmtXMx9C+QYTHQQF1/uYbrkGNX+SQ8ZDjZ2dVVD9
AVMcrm/mE8vefhVq31SHd7Nzzd1KoOoLpjvscOo+c+/3Faj9Mx3mfDLlFdoI
VT9hlsPcKYFrNPOg8gpzHL6vMHogKg6V3zDXoc0uOodjGZTvMN+Bf3q07OxZ
UPUZCxwm17tyXtKDyhssdKiSLSvo1IfK/1josHWjeo/6Pij/wCKHOv5ne2Qf
XYbwOxY73LH6+bU0ESofsMShbtHm+zcuQ/kSSx0MGoQlfnJB+Q+WOuzhq2nd
UAflr1jmoO8oZcx0AWpewXKHZoGJp7XMofIWKxxyfB5+kJ4IlWdY6eC30/Do
px9Q/omVDkb+Ht/D46D8CascLH7Me9awF8qPWO1wzfrXGSZJWPiscZCUMOLx
64LKv1jjEPTPYF7QAyh/w1oHE9O46faJUH7FOgf3vK7z0ZuhfIf1DgFL3az3
WFy2AwAhjsfc
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDuH9bZbOwvfswFyDaofVtwId5H7chvAd6h10
Q2er/F9yA8I/0OQQ/NuJqfzFTQj/QavDwt07nkwsvwbhM3Q6VHDPFn+76zKE
r9DjkGo5V2mP81Woef0OKRu+nmw3hsobTHQIlDMRmVB4BWr+JIdXC3efaz11
CcIPmOLgVLmnrTfxItS+qQ4Hdl1W1K6ByhdMd5CZLOsR4waVZ5jpsJvl0YQC
Z6j8hFkOS+861M4xhsorzHFw7p1l/NDtAoS/Ya6DVuI78UdKUHmH+Q7umQI3
bf2h8hkLHJ4E9nr1KkDlDRY6vDrt7qwfBJX/sdBBgWVvcrDfeaj7FzncLZF4
WhQHle9Y7ND+0yukshQqH7DEQb2moXRrMlReYqmD9dU8ofBuqPyDpQ6y4ooP
/dKh8iuWOcw/wNTNsx0qX7Dc4dKZT5lsK85B+BYrHMK/+G34ewoqz7DSYfK3
mr/6V6DyJ1Y6SAlXufx4DJWfsMohbiK7h88XqHzEaoe7vnOtP4tA+QprHJYw
uz6tEoaqf7HGYfG1FyXBNlD5DWsdjpt18cqbQ+Ur1jl4f+z/fyoDKu+w3iGr
0P5Xz+qzdgBh7sgq
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvJ/dVp93W7ZgbkG1Q6s+z/tl/d+AOE71Duc
3bUlbfa2OxD+gSaHfzyf1qqq3oDwH7Q6VPYEdsR/uALhM3Q6PIrfVH/lzzUI
X6HHYZ7W3zyGpVB5h36H3+FTs1yWXILaN9Fhmxd3mGkWVP7AJAeRdVxi5w9D
5QOmOMydrhGfEH0Rat9Uh7SHfud5bkDlC6Y7iMfM73eYA5VnmOmwZv/0PS09
FyD8CbMcfKc0emRdgMorzHGQF/3E7nobKr9hrkPs4aQbsR/PQ90334HhtNHS
v5JQ9RkLHApU1T6lB0PVGyx02Kdzc0GuLFT9j4UOSyI7mc2mQOUPLHLYUvtN
6fgJqHzHYofGNAGj113noP5Z4pDysKJRVwOqXmKpg0HVlM0nJaDqHyx1MDv1
6ukndqj6FcscCrc8dL6+GipfsNzBaPK1U6ZzofIWKxwi++b2nl14Fur/lQ4L
Y4SynipA1Z9Y6TBbJuzVP32o+gmrHJ45lp1V8YWqj1jtsFbBhHfGKqi8whqH
ZLUZgs8vQOVfrHGI36EfVcsE5W9Y6zDt1IrvQp5nIPyKdQ5/HvIuFW2Dyjus
d4hp6P0Se+6MHQCmDsw4
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpzP4mtuXLttB+YaVDu8agiel6L/AMJ3qHdw
sk07Ftp6B8I/0OQgcXzup+ITUP6DVoc5c5UvdX+9AeEzdDqs2+8u+H7STQhf
occhvNytKvH7Nah5/Q77D0iK7918HWrfRIdSHmaj7lCo/gOTHAzuygbdiYWq
D5jioLdz+tJPf6D8B1Md1goc2ceSchXCL5ju8LBe3KvuL5TPMNNBav33TP5V
VyD8CbMcwtuk45dZQ+UV5jjMnDjHz+YIlL9hrkPj/nVzu+dD1TvMdzDn5N/e
qgyVz1jgsOCMxppfulB5g4UOV42t38ycBeX/WOiw4Zj1NhERqPoDixzWBOks
LTeByncsdjhiW7tOYyGUH7DE4UehfV/A9csQvsRSh+0iwsILzaHyD5Y6FBdV
mLDMgfJXLHN4tIu9OvINVH3BcoesVRvXrXKFyluscJh2uWiu0nyoPMNKhwUK
8VxFv6D8EysdfmSfbBL3gYXHKgc3hxTZ5s1Q+YjVDnZvHTOtWKDyCmscOv2a
NoiXQeVfrHF4lufTrncIyt+w1uHAku0uJYJQ9RXrHKK5Dksd64HKO6x3OLun
zLfx2mU7AD4qybw=
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu++pfj6Bt2zA3MNqh0SzZY47DO6A+E71DuI
LJukuvzGDQj/QJND3ncB1qNytyD8B60O+wPZGlYuuwbhM3Q6GArnyng8uQzh
K/Q4tEdub/AruAo1r98hpu4E0/FoqLzBRAf2S9yvMudcgZo/ySFJqejti4+X
IPyAKQ7BO+Zw/Gm9CLVvqoOsegnLq0VQ+YLpDr7C109NzILKM8x0YJ2T2b0j
Eyo/YZbDj7TIzavCofIKcxw+WXpWvreGym+Y6yBz67HtWTeovMN8h6lsDkm5
hRcg/IwFDsvmT+ktdoHKGyx0OBO36ntKCVT+x0IH0avV7tHmUPkDixx8CoL8
DjVA5TsWOzxkLLmVuf081D9LHDSSjZ/yt0HlJZY61HAdzS09C5V/sNRhMZfu
nQ2dUPkVyxw2Mkm0tP2Eyhcsd8hdKfH+bB9U3mKFQ2EU++4LbFA+w0qH25Pf
FJ0Tgao/sdLBfsU5owxhqPyEVQ4dF5Zy65lC5SNWOzT9zG3aKAOVV1jjwHvm
Ecu8EKj8izUOtT3/Zm2uPgcNr7UOXhZPHvZUQOUr1jnICehGdayAyjusdzg8
rXeix+TzdgB/XMhI
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhPuyJvybH1oB+YaVDtsd5MSKSl/AOE71Duw
JRuYBbLchfAPNDnIn3xiOssDyn/Q6qB3df5f64VQPkOnw5zep9tOs9yC8BV6
HGJKCpXub4HyHfodwjJjbVxkb0Dtm+ig5GK199FBKP/AJAePOdNCTT1vQvgB
Uxz4b9/56p18HWrfVIed21LbDn+A8gumOxSHvf1XmAHVzzDTYa9Z/4Rl769B
+BNmOWiWaRWGpUPVK8xxUND/vLDjJpS/Ya7DhLNiEWdnQNU7zHdY92F5iRo3
VD5jgUP6VI6jpf+vQt270OGsa9Nlvxio+h8LHRbwVB90PgnlH1jkwMJpXdhy
Haq+Y7HDYgGXaY6WUPmAJQ4enFl1v/qhfImlDsouGwsjtkHVP1jqsDnnskyp
EFR+xTIH97sP62ekQ/kFyx1cb0xXE1oBVW+xwmHV3JSP175C+QwrHQ6HzLnj
7w3ln1jpsM7gvMSTaVD+hFUO9j6Whj/uQvkRqx2eT56/UdkByldY43DU2bx1
XyuU/2KNg0rVY1a741D+hrUOq49NnvvXGsqvWOdwoLzoVVI1lO+w3kHStP1m
w56rdgBBnMth
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlcZ15k++fbADsw1qHaQElzceLb3PoTvUO9Q
l5G9+tnZ2xD+gSYH5an/rHYnXofwH7Q6SJ9bOfc9J1SeodPhm15r+t19UHmF
HoeIvC2l4cFXoeb1O8xp1LE84HgZat9EB0eHKVPnfIfKH5jkkM2i2apkeAXC
D5ji8DTJrjVo7SWofVMdvHYkGdskXoTwC6Y7TNz7eMrBWqh5DDMdWkLtT7IE
QtVPmOVQUCxysNgBql5hjsMUT+X/gsEXIPwNcx3+yIpGbOKGqneY7yB5V3fK
bR2o+owFDhM1lT3yU6HqDRY6uNuFsV2yPw/h/1jo0HuI9WbOj7NQ9y9yONXM
HbclC6q+Y7FDs/1xO5FeqPqAJQ7+LK/NGiLOQfgSSx1u7PKy/mAM1f9gqUP0
uvIt/rug6lcsc/jGN3PLn9VQ9QXLHXYf3m72eilUvcUKh/4TcnvKNp2B+n+l
w5KWU14Rr6HqT6x0+JPJ8UHkD1T9hFUOr9/+UzwqBeVHrHbonswqd9YDql9h
jUOq4ooGzobTEP6LNQ5pnM+Wbc2Dqt+w1kFP3XjaLJh9FescLkbePP3pC1S9
w3qH07PE9/xzO20HAKL4y4Y=
         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpq+hiK/4u7YgbkG1Q7pPx1C3k5/COE71Dt4
PKzbJc54H8I/0OSQaPxQPljoFoT/oNVhx8rlxgJzrkH4DJ0OiR+m18deugHh
K/Q4lH/8OmOtF1Teod+BW0ZsA4fiFah9Ex3aM0/PMeSGyh+Y5GBxzHmuuDNU
PmCKwyX/aXee7b0EtW+qQ8tbvWOfIqDyBdMdCgMO6Xxhvgy1f6bDgTYhzq57
FyH8CbMcytqYot1toPIKcxwMrz69O8kYat6GuQ7Pv6bPemEHVe8w32H56/kz
fMqh8hkLHJjdVm24twAqb7DQ4cz6mcw1Zy5A+D8WOpR8mJd/4xlU/sAih08/
Fuz8pwHldyx2eJsi1Z5UC1UfsMRB0m+Fp2ERVF5iqYPc/zcrfp2Eyj9Y6uAi
evj8GjMof8UyB7VOCed4Saj6guUOnmbXFzq1Q+UtVjiEbvnzmPf/eaj/Vzp4
rfkVFH0OKn9ipUPq8jnnvX2g/AmrHMyFp75dvBiqPmK1g3XJ6qKaPqi8whoH
g8Und3yRgPJfrHFQ+S24gD0Yqn7DWgehDWeDt8RA5SvWOfgHlF2UfwiVd1jv
MHv59+n7pc7bAQCEl857
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrv3FcyXTb9vB+YaVDtI3XrTnGZyF8J3qHd4
I6Xx4dvumxD+gSaHGUuu8PTfvgPhP2h1mB7I9WgaG1SeodPBLrLeyPPXVQhf
ocehf3OUwOM9l6Hm9Tss84pl3ex+DWrfRIedXxQ93oZcgZo/yUHMWDLYc8Ml
CD9gisM8gRNv5+6Dyj+Y6rD12lSBfb5Q8wqmO1z/PtnRmQuqnmGmw8dPb+Je
fb4A4U+Y5WD768YkroVQeYU5DmU/org3LbgI4W+Y6zBTL0Dn4Gaoeof5Djm+
TBbMp89D+BkLHCxKWeYzRUDVGyx0EIr05RJoh6r/sdBBwV8q4sxmqPoDixyS
n5zdOTf5HITfsdghoIJzpVYuVH3AEof26V+LmWdC1UssdUj926IbnwFV/2Cp
w81ryVMbAqDqVyxzqJOuXvavC6q+YLnD2Qi5L5W1UPUWKxwmzNvySLL5LNT/
Kx3em66etLcKqv7ESgdRLi855Xao+gmrHGYfyZXfuxCqPmK1A//+a47fTp+B
hs8ah8K47A6bbqj6F2scFt8rjDy9Hap+w1qHN4w+znd+QtVXrHNYJW6wMMYK
yndY76D/fuPMyGtn7QDC7ctc
         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDuuPJohfu/bADsw1qHYIKU0U0Qu6D+E71Dsk
ydxji515G8I/0OTwjKP1YY/pdQj/QavD6r9ay3cqXIHwGTodeM+xCv+fCJVX
6HH4GGV7gFv7KtS8fodMExWTWNnLUPsmOkz6mv+0tvAi1PxJDkmTZv9dxHEB
wg+Y4hB569o39q5LUPumOsR7flROdYCqL5juIO/9SydIHqqeYaaDt7yCjLrv
OQh/wiyH5v7fq5y6zkDdM8ehV80519IEqn7DXAfXV6mfb2+BqneY7yCm/99q
o+VZCD9jgcOTPaoHYp+dhrp3oUOI/547LtNOQfg/FjrY83U37qo/CXX/IoeD
X2t6Qlug9nUsdrhSxLRHNx2qP2CJg8A9eWvdaKh+iaUOLrrXy0RjofofLHXY
WpIUPanuBIS/YpnDpav7ln7kh+ovWO6wZfPLkzs0oPotVjj4vb/97XUgVD/D
SgfVo9dmpPdC9Z9Y6TCn2VQn+/xxaHiscjhekP1YkQGqP2K1Q2FKT1u/C1S/
whqHbns2ZbOJUP0v1jhIHG0XU38O1b9hrcNBHSuvFD8ov2KdQ1KjeKStFVS/
w3qH25un5LvOPWEHAIUMxLQ=
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDm73zXcodd2zA3MNqh021DkeWZV2B8J3qHf4
/ar6eo/nfQj/QJOD0MaN3+763YLwH7Q6rLDIOBeYeBvCZ+h0MM6ye+XOfQPC
V+hxkI8X8V5teBNqXr/DumX/tx/afw1q30SHIz/K9v3beR1q/iSHkuw8BqdO
qP6AKQ6axsL7L26Eqn8w1YFRRL9SrxyqvmC6w4WgHR8vvb0KtX+mw6HwKy36
q6HqJ8xyaPervrs7EiqvMMchpvbPJWcuqPyGuQ5S9UJXXz+8AnXffIfTP9cc
1O2Aqs9Y4PBeittFrA8qb7DQIXHbhDZPCaj8j4UOvbzdXibWUPkDixxMCzYq
JB6H8jsWO+QUpmws9YGqD1jisDT1yEaRGqi8xFKHwC3CU4U/QfkPljrY7e1O
cbSC8lcsc3AQYDhbsgXKL1juYGNUllzLDOVbrHDYudXHY2cRlM+w0mFPc5TX
t8uXIfwTKx1Sfkh/XW0LlZ+wyqGHaWVG+1KofMRqB5nfKZtseaDyCmscui45
iD+thcq/WOOwN8i53vQelL9hrQP/2U7hrQ5Q9RXrHPZPTTW5uAsq77DeIVbm
4ZQ4sSt2AH4VygE=
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlarAx/9THtsB+YaVDt49hz08OV+BOE71Dt0
l/5iOHzmPoR/oMnhe1pH+dO9tyD8B60OV9RbVjAaXofwGTodltuo6v6LvQLh
K/Q4CJYIfrqTfANqXr+D+JwfRtps16D2TXTY2TL5urYkVP2BSQ5VC6rMUiov
QfgBUxzeaJx/PV3sItS+qQ7ztxd0d589D+EXTHdY+/SxV/tkqHqGmQ6HF60L
fVMCVT9hloPErt0zNQsvQN0zxyFCQIjlrixU/4a5DituVSYtrT4Ldd98B5FH
gnusrkHVZyxwCBNLE9onBOUbLHTw0+O2tF50DsL/sdBh2a99Hd6JUP0HFjmE
+TF+PKh5BsLvWOzQLWi0VlXgNNQ/SxzWbBThV42D6pdY6iDZua0/wRKq/8FS
hzZrTpf/FlD9K5Y5LORbGd/jAdVfsNzB+NkU8cL4UxC+xQoHBrskxidtJ6H+
X+lQuu9/hZgXVP+JlQ5B/0ts9fOh+iescjjBN6GIeyFUf8Rqh2X/Hgl+fADV
r7DG4c96hmInTSj/xRqHJTkXJopXn4CG11qHL3qbLrXcguqvWOcQfrE7g08T
yndY73BZ9ZWyJ9A9AA8uxNQ=
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 9.25171395690026*^-6}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alaska\"", "\"Delaware\"", "\"Hawaii\"", "\"Idaho\"", "\"Maine\"", 
       "\"Montana\"", "\"Nebraska\"", "\"New Hampshire\"", "\"New Mexico\"", 
       "\"North Dakota\"", "\"Rhode Island\"", "\"South Dakota\"", 
       "\"Vermont\"", "\"West Virginia\"", "\"Wyoming\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 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`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.881913338132039*^9, 3.88206041051399*^9, 3.882127195380368*^9, 
   3.882127500940288*^9, 3.882139117922176*^9, 3.882236989446312*^9, 
   3.882237078097125*^9, 3.882514369667041*^9, 3.882555554697713*^9, {
   3.882596585293141*^9, 3.8825965908366423`*^9}, 3.882596774675478*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"cb313300-555d-4dee-9bdc-51e7acad1b4a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"KeySelect", "[", 
     RowBox[{
      RowBox[{
      "Transpose", "[", "voterInStateDecisiveProbabilityCoords", "]"}], ",", 
      RowBox[{
       RowBox[{"MemberQ", "[", 
        RowBox[{"largest5Smallest5States", ",", "#"}], "]"}], "&"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"Joined", "->", "True"}], ",", 
    RowBox[{"PlotRange", "->", "All"}], ",", 
    RowBox[{"PlotLegends", "->", "Automatic"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.881913337028903*^9, 3.881913337576345*^9}, {
  3.8825146006682034`*^9, 3.882514605289625*^9}, {3.8825147017421703`*^9, 
  3.882514722690879*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"cd68f978-24aa-4553-835e-6a1bbdb0325c"],

Cell["\<\
Voter Decisive Vote Probability of the 5 Largest and 5 Smallest States\
\>", "Text",
 CellChangeTimes->{{3.8825147952963037`*^9, 
  3.8825149039903603`*^9}},ExpressionUUID->"7e2dbf3c-43fa-44b6-9d97-\
c91e003ad449"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDjN2bF/5lvWhHZhrUO0QwPii6ejK+xC+Q72D
7ynda93PbkP4B5ocLIXC75aUXYfwH7Q61POHiT5XhMozdDoI6UtOf3kZKq/Q
46B92bDZLu0q1Lx+h1aR4tsXgy5D7ZvowPVF96frootQ8yc5HNp7K4zD+QqE
HzDFofOP1PQHey9B7ZvqUJNs/WpxAVR9wXSH9RtbOjJ8LkDtn+lw7rQul2Mi
VP2EWQ5ffrNl7vOHqleY4yC36odtVyJU/Ya5DkkyUTm7uc5D3Tff4Z//1tCc
7rMQfsYCh+dPJM59L4aqN1joILEz7kVLNFT9j4UOrQu3dvwVOgd1/yIH57LD
FaJXzkD4HYsd8r9cnc29Eqo+YImD7cti/rRiqHqJpQ5sSY0HL/lC7Xuw1GHK
keeT9vhA9a9Y5qB4P1h9QfRpqH+XO+R9mnXE6ABUvcUKh42nLtY9Ow1Vz7DS
ocXma0fqG6j6EysdtA8w2wSJQPkTVjkUlOpETjSB6o9Y7cDmU2lxPxGqX2GN
g991nuWZM6DqX6xxuHHca1PyzVPQ8FrrsOdJ07fTulB+xToHJb9fk3bxQvU7
rHdQS3gYpBN/2g4AO+LNuw==
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDisVjL1/PP1mB+YaVDuYJqvd3M/xHcJ3qHdo
0ZzYkPYQKn+gyaHkWGf8vGao/INWh+Ud5429EqF8hk4HFet+o+snoXyFHgeP
yTeYOQ/CzOt3+HfwSLP0VSjfYKLDodlfnhW/g/IPTHJ49GHGvmCGHxB+wBSH
q7OPWAvyQvkPpjoUTvd7Yi0N5RdMd2CUPTftmBKUzzDTQS3pk9UPUyh/wiyH
8rCOy9WWUL7CHIebC69+rHOH8jfMdbh86Hu3mxuU7zDf4fOxqtKyECg/Y4HD
pb3uG3VcoXyDhQ6TrgZ9Ph0G5f9Y6CDMEN1S5QvlH1jkwPiuvKjHH8rvWOzg
KvX78udwmH+WOFTMfVKgGgXlSyx18FTz0tQsgPlvqcPibZ5NyYlQ/oplDk1L
U+4558L8u9xhoc7cWYdzoHyLFQ69NVLWcXkw/690mK7rsntBOZR/YqWDW1r3
We0KWHischD5FyYxFcaPWO0g75Ndz1kDC581DhO+zbBKhvFfrHEQ23amShPG
37DWQXuN0O30Eii/Yp2Dr9HtfVXtsPBb78DDkFq3q+qHHQAsbc8D
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlPveztmZLy1A3MNqh3831nNF/SB8h3qHcJO
3xV303kH4R9octi0MsladSNU/kGrww1+T3dbXag8Q6fD8iMZMeKnoPIKPQ5O
Zmq+FfZQeYd+h90bu62T/8Dsm+hQ3V095YINzPxJDlZFF76HcEL5AVMc2n41
qG+0hPIfTHV4+lLDt4QPyi+Y7vBN7FliuRnM/pkOBSlr1oqIQfkTZjlUx0qJ
1phD+QpzHISyfxefkoLyN8x1WFo/MVfRFOa++Q7L8yasaJKF8jMWOPiUPlBO
9oDyDRY6mPzwlfMNgPJ/LHRo32UpdtoZ5v5FDl8mqul5REH5HYsdfsUwVTvA
5AOWOPgLsbRvi4DyJZY67DWsETwDc/+DpQ5q/16/mBwK5a9Y5pDo6iEZ4wrz
73IHbTfWw/5hUL7FCoem6R3VB2Hhy7DSYVvI1gOHwqH8EysdXshHZVxzhIXH
Kgfhw4U7WIOg/IjVDn0VM8riHWDhs8aB08f8+RF/KP/FGgf5oxEPL8bCwmut
Q9QeJ79nMPdVrHP41CFZng4z32G9g60z8yodoDwAKSfCig==
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvdXZlS/vfTODsw1qHaYt/xf7uH7UL5DvYPJ
BIktgtLvIfwDTQ7ySVVLG/mg/AetDkGS/y+f+ADlM3Q6PA7fsWfbcShfocdB
au+itIXPoXyHfgfGHWtPC16H8g0mOnz3EOt1vwQzf5KD/5XC9senoPyAKQ57
ttmm/D4Is2+qQ/2LTt9le6H8gukOxz/phP7cArN/poPF7sXbj2+H8ifMcogO
P+t1aR3MPXMceuriEpZvhPI3zHU42pd0q+w9zH3zHcw+d7+fvRrKz1jg8MLc
yI77B8y9Cx2udvstaL8L5f9Y6DA/SWBv30uY+xc5nKhM8p/7EMrvWOzwbaZa
7rkHMP8scch0bd5QeQvKl1jqoPjox4+7Z2D+W+pQWGI3qxYWHiuWOei8mftK
4hrMv8sdlj0Lf+JxHsq3WOEQcvbzefbTMP+vdHhx/Pdin7NQ/omVDjvWzpDQ
+AwLj1UOe+vYFXLeQvkRqx1s9+s2Sr6Ghc8ah0or65bvT6H8F2scuEwbj06G
uX/DWgerWROMDsDis2Kdw68tLQUmMP86rHe43Pjl7Z9H7+0AnmLkkQ==
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlcZ15k++fbADsw1qHaQElzceLb3PoTvUO9Q
l5G9+tnZ2xD+gSYH5an/rHYnXofwH7Q6SJ9bOfc9J1SeodPhm15r+t19UHmF
HoeIvC2l4cFXoeb1O8xp1LE84HgZat9EB0eHKVPnfIfKH5jkkM2i2apkeAXC
D5ji8DTJrjVo7SWofVMdvHYkGdskXoTwC6Y7TNz7eMrBWqh5DDMdWkLtT7IE
QtVPmOVQUCxysNgBql5hjsMUT+X/gsEXIPwNcx3+yIpGbOKGqneY7yB5V3fK
bR2o+owFDhM1lT3yU6HqDRY6uNuFsV2yPw/h/1jo0HuI9WbOj7NQ9y9yONXM
HbclC6q+Y7FDs/1xO5FeqPqAJQ7+LK/NGiLOQfgSSx1u7PKy/mAM1f9gqUP0
uvIt/rug6lcsc/jGN3PLn9VQ9QXLHXYf3m72eilUvcUKh/4TcnvKNp2B+n+l
w5KWU14Rr6HqT6x0+JPJ8UHkD1T9hFUOr9/+UzwqBeVHrHbonswqd9YDql9h
jUOq4ooGzobTEP6LNQ5pnM+Wbc2Dqt+w1kFP3XjaLJh9FescLkbePP3pC1S9
w3qH07PE9/xzO20HAKL4y4Y=
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDoEblyzIqXtuB+YaVDuk7vNk+McL5TvUOwSe
MUt81AHlH2hyaBPal3ItCcp/0Oqw0bw8KGv2MwifodPhUnphaul0KF+hxyH9
7luBqQegfId+B/7vCyKCj0D5BhMdDufcunf5LJR/YJLD/TaFTaaXofyAKQ7B
sp+Xql+D8h9MdeB57Ln/8i0ov2C6g8P/lI0LbsPsn+kQvmT2khWPofwJsxz4
oxlctj6CuWeOQ9nuKwcjX0L5G+Y61Fzt+vn0Kcx98x2OPvwroPQWys9Y4PCg
x780aCPMvQsd1B0Yq5OXQ/k/FjqI/b9XbrYd5v5FDj+kG30O7IDyOxY7VOZI
yU3eB/PPEoe/++8zGMDCQ2Kpw+1L81b57YH5b6nDaesLK92PQvkrljm0JF1Q
XnoG5t/lDv716dfSYXyLFQ6fFLUSemDhx7DSgeFh/ilbWPidWOnAm35+9h4Y
f8IqB7bPBVryV6D8iNUOm4oP3X6/GhY+axz+1WYfKFoL5b9Y4+D67vWZhnWw
8FrrcO1RAtt1mH8r1jmoCXLbbIfxHdY75J1c4fUV6B8AgO/ceg==
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrv3FcyXTb9vB+YaVDtI3XrTnGZyF8J3qHd4
I6Xx4dvumxD+gSaHGUuu8PTfvgPhP2h1mB7I9WgaG1SeodPBLrLeyPPXVQhf
ocehf3OUwOM9l6Hm9Tss84pl3ex+DWrfRIedXxQ93oZcgZo/yUHMWDLYc8Ml
CD9gisM8gRNv5+6Dyj+Y6rD12lSBfb5Q8wqmO1z/PtnRmQuqnmGmw8dPb+Je
fb4A4U+Y5WD768YkroVQeYU5DmU/org3LbgI4W+Y6zBTL0Dn4Gaoeof5Djm+
TBbMp89D+BkLHCxKWeYzRUDVGyx0EIr05RJoh6r/sdBBwV8q4sxmqPoDixyS
n5zdOTf5HITfsdghoIJzpVYuVH3AEof26V+LmWdC1UssdUj926IbnwFV/2Cp
w81ryVMbAqDqVyxzqJOuXvavC6q+YLnD2Qi5L5W1UPUWKxwmzNvySLL5LNT/
Kx3em66etLcKqv7ESgdRLi855Xao+gmrHGYfyZXfuxCqPmK1A//+a47fTp+B
hs8ah8K47A6bbqj6F2scFt8rjDy9Hap+w1qHN4w+znd+QtVXrHNYJW6wMMYK
yndY76D/fuPMyGtn7QDC7ctc
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqy8grN7F362A3MNqh1mi2sfnrMPyneod+A7
cupaC/cXCP9Ak8P80JD7DSpQ/oNWhzLr+wwfo6B8hk6Hxv/fGBQSoHyFHgfT
pSvPXfWB8h36Hb6xLlzIGA/lG0x0aPzweoZQCcz8SQ56b+vXCzVD+QFTHCQ8
+8On9sHsm+rAYhTuozULyi+Y7qDZ9Xd580KY/TMdpJq+6exphfInzHIoX8/i
l9ADc88ch+jpNmfOzYDyN8x1aHz5NuHEbJj75jv0RLVcT14O5WcscLB57LXt
Aky9wUKHA02HQ6etg/J/LHSI+Xj8ce9imPsXOXwpFdueBtPfsdjhbbufz1GY
+oAlDg5dMgtDNkH5EksdPok2P2JbD/PfUodn/3Ztat4F5a9Y5uB0S7qbfw3M
v8sdrih+2awDM89ihcPm+hV7bDbC/L/SQW+H/YxHMPecWOngd+p2xellsPBY
5cBxQXpC50ooP2K1w8xAxq7ra2Hhs8ahP/1LuNsGKP/FGofpE09W2sHcu2Gt
Q2Nhyf3Ve6D8inUOtzckZ0euhoXfeoemeTuLSoDqAZdn2Dk=
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDuuPJohfu/bADsw1qHYIKU0U0Qu6D+E71Dsk
ydxji515G8I/0OTwjKP1YY/pdQj/QavD6r9ay3cqXIHwGTodeM+xCv+fCJVX
6HH4GGV7gFv7KtS8fodMExWTWNnLUPsmOkz6mv+0tvAi1PxJDkmTZv9dxHEB
wg+Y4hB569o39q5LUPumOsR7flROdYCqL5juIO/9SydIHqqeYaaDt7yCjLrv
OQh/wiyH5v7fq5y6zkDdM8ehV80519IEqn7DXAfXV6mfb2+BqneY7yCm/99q
o+VZCD9jgcOTPaoHYp+dhrp3oUOI/547LtNOQfg/FjrY83U37qo/CXX/IoeD
X2t6Qlug9nUsdrhSxLRHNx2qP2CJg8A9eWvdaKh+iaUOLrrXy0RjofofLHXY
WpIUPanuBIS/YpnDpav7ln7kh+ovWO6wZfPLkzs0oPotVjj4vb/97XUgVD/D
SgfVo9dmpPdC9Z9Y6TCn2VQn+/xxaHiscjhekP1YkQGqP2K1Q2FKT1u/C1S/
whqHbns2ZbOJUP0v1jhIHG0XU38O1b9hrcNBHSuvFD8ov2KdQ1KjeKStFVS/
w3qH25un5LvOPWEHAIUMxLQ=
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlarAx/9THtsB+YaVDt49hz08OV+BOE71Dt0
l/5iOHzmPoR/oMnhe1pH+dO9tyD8B60OV9RbVjAaXofwGTodltuo6v6LvQLh
K/Q4CJYIfrqTfANqXr+D+JwfRtps16D2TXTY2TL5urYkVP2BSQ5VC6rMUiov
QfgBUxzeaJx/PV3sItS+qQ7ztxd0d589D+EXTHdY+/SxV/tkqHqGmQ6HF60L
fVMCVT9hloPErt0zNQsvQN0zxyFCQIjlrixU/4a5DituVSYtrT4Ldd98B5FH
gnusrkHVZyxwCBNLE9onBOUbLHTw0+O2tF50DsL/sdBh2a99Hd6JUP0HFjmE
+TF+PKh5BsLvWOzQLWi0VlXgNNQ/SxzWbBThV42D6pdY6iDZua0/wRKq/8FS
hzZrTpf/FlD9K5Y5LORbGd/jAdVfsNzB+NkU8cL4UxC+xQoHBrskxidtJ6H+
X+lQuu9/hZgXVP+JlQ5B/0ts9fOh+iescjjBN6GIeyFUf8Rqh2X/Hgl+fADV
r7DG4c96hmInTSj/xRqHJTkXJopXn4CG11qHL3qbLrXcguqvWOcQfrE7g08T
yndY73BZ9ZWyJ9A9AA8uxNQ=
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 0.0000233928839666212}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alaska\"", "\"California\"", "\"Florida\"", "\"New York\"", 
       "\"North Dakota\"", "\"Pennsylvania\"", "\"South Dakota\"", 
       "\"Texas\"", "\"Vermont\"", "\"Wyoming\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> 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.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True"}], "}"}]}], ",", 
           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.882555554858286*^9, {3.882596585483807*^9, 3.882596591151619*^9}, 
   3.882596780543724*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"700c4a79-7559-4258-96a9-e58ec9a69cf0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "comparativeVoterInStateDecisiveProbability", "=", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"r", "|->", 
      RowBox[{"Outer", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{
           RowBox[{"#1", "/", "#2"}], ",", "3"}], "]"}], "&"}], ",", 
        RowBox[{"Values", "[", "r", "]"}], ",", 
        RowBox[{"Values", "[", "r", "]"}]}], "]"}]}], ")"}], "/@", 
    "voterInStateDecisiveProbability"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.881912916140698*^9, 3.881912957289768*^9}, {
  3.8819133633508997`*^9, 3.8819134225081673`*^9}, {3.881913479023531*^9, 
  3.8819134984022903`*^9}, {3.881913599001823*^9, 3.881913658479*^9}, {
  3.8819136889137707`*^9, 3.881913706695228*^9}, {3.88191382435771*^9, 
  3.8819138245611477`*^9}, {3.881914867426457*^9, 3.881914869629019*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"b04d70cb-0a19-4a2d-850c-456668262741"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Max", "[", 
  RowBox[{"Max", "/@", 
   RowBox[{"comparativeVoterInStateDecisiveProbability", "[", "435", "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.88251807408983*^9, 3.8825180776476107`*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"cb573f89-4bff-42be-9351-7dd3d3f02cb5"],

Cell[BoxData["3.4464741697802016776`3."], "Output",
 CellChangeTimes->{
  3.882517943105258*^9, 3.88251807802701*^9, 3.882555554988576*^9, {
   3.882596589146714*^9, 3.882596594759645*^9}, 3.882597117743169*^9},
 CellLabel->
  "Out[140]=",ExpressionUUID->"cf9ba5cf-e082-4428-b51d-3302bd73ae5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Keys", "[", 
     RowBox[{"voterInStateDecisiveProbability", "[", "435", "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"Ordering", "[", 
       RowBox[{
        RowBox[{"Max", "/@", 
         RowBox[{
         "comparativeVoterInStateDecisiveProbability", "[", "435", "]"}]}], 
        ",", "1"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Keys", "[", 
     RowBox[{"voterInStateDecisiveProbability", "[", "435", "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"Ordering", "[", 
       RowBox[{
        RowBox[{"Min", "/@", 
         RowBox[{
         "comparativeVoterInStateDecisiveProbability", "[", "435", "]"}]}], 
        ",", 
        RowBox[{"-", "1"}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
  "}"}]], "Input",
 CellChangeTimes->{{3.8825176767848263`*^9, 3.882517690130021*^9}, {
  3.88251772540766*^9, 3.882517749383855*^9}, {3.882517854933416*^9, 
  3.8825178998026648`*^9}, {3.8825179670140753`*^9, 3.882517980135933*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"4057c6bc-f8b6-43ba-99c7-1808703eb8b5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Delaware\"\>", ",", "\<\"California\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.88251767869794*^9, 3.882517690735013*^9}, 
   3.882517741996458*^9, {3.8825178573227787`*^9, 3.882517900217073*^9}, {
   3.882517974885292*^9, 3.882517980936143*^9}, 3.8825555550823*^9, {
   3.8825965891711693`*^9, 3.882596594791522*^9}, 3.882597119245863*^9},
 CellLabel->
  "Out[141]=",ExpressionUUID->"03742c40-d363-4e77-8310-c9cd7b2e984b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"comparativeVoterInStateDecisiveProbability", "[", "435", "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"TableHeadings", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Keys", "[", 
       RowBox[{"voterInStateDecisiveProbability", "[", "435", "]"}], "]"}], 
      ",", 
      RowBox[{"Keys", "[", 
       RowBox[{"voterInStateDecisiveProbability", "[", "435", "]"}], "]"}]}], 
     "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.881913667570414*^9, 3.881913668987912*^9}, {
  3.881913714498674*^9, 3.881913760678205*^9}, {3.881913795449953*^9, 
  3.881913813962805*^9}, {3.881913847440905*^9, 3.881913886893553*^9}, {
  3.881913967266983*^9, 3.881914045514502*^9}, {3.8819141084343157`*^9, 
  3.8819142316222773`*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"27b70a2a-76ac-48bb-a37c-8d06a567338a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"Alabama\"\>",
       HoldForm], 
      TagBox["\<\"Alaska\"\>",
       HoldForm], 
      TagBox["\<\"Arizona\"\>",
       HoldForm], 
      TagBox["\<\"Arkansas\"\>",
       HoldForm], 
      TagBox["\<\"California\"\>",
       HoldForm], 
      TagBox["\<\"Colorado\"\>",
       HoldForm], 
      TagBox["\<\"Connecticut\"\>",
       HoldForm], 
      TagBox["\<\"Delaware\"\>",
       HoldForm], 
      TagBox["\<\"Florida\"\>",
       HoldForm], 
      TagBox["\<\"Georgia\"\>",
       HoldForm], 
      TagBox["\<\"Hawaii\"\>",
       HoldForm], 
      TagBox["\<\"Idaho\"\>",
       HoldForm], 
      TagBox["\<\"Illinois\"\>",
       HoldForm], 
      TagBox["\<\"Indiana\"\>",
       HoldForm], 
      TagBox["\<\"Iowa\"\>",
       HoldForm], 
      TagBox["\<\"Kansas\"\>",
       HoldForm], 
      TagBox["\<\"Kentucky\"\>",
       HoldForm], 
      TagBox["\<\"Louisiana\"\>",
       HoldForm], 
      TagBox["\<\"Maine\"\>",
       HoldForm], 
      TagBox["\<\"Maryland\"\>",
       HoldForm], 
      TagBox["\<\"Massachusetts\"\>",
       HoldForm], 
      TagBox["\<\"Michigan\"\>",
       HoldForm], 
      TagBox["\<\"Minnesota\"\>",
       HoldForm], 
      TagBox["\<\"Mississippi\"\>",
       HoldForm], 
      TagBox["\<\"Missouri\"\>",
       HoldForm], 
      TagBox["\<\"Montana\"\>",
       HoldForm], 
      TagBox["\<\"Nebraska\"\>",
       HoldForm], 
      TagBox["\<\"Nevada\"\>",
       HoldForm], 
      TagBox["\<\"New Hampshire\"\>",
       HoldForm], 
      TagBox["\<\"New Jersey\"\>",
       HoldForm], 
      TagBox["\<\"New Mexico\"\>",
       HoldForm], 
      TagBox["\<\"New York\"\>",
       HoldForm], 
      TagBox["\<\"North Carolina\"\>",
       HoldForm], 
      TagBox["\<\"North Dakota\"\>",
       HoldForm], 
      TagBox["\<\"Ohio\"\>",
       HoldForm], 
      TagBox["\<\"Oklahoma\"\>",
       HoldForm], 
      TagBox["\<\"Oregon\"\>",
       HoldForm], 
      TagBox["\<\"Pennsylvania\"\>",
       HoldForm], 
      TagBox["\<\"Rhode Island\"\>",
       HoldForm], 
      TagBox["\<\"South Carolina\"\>",
       HoldForm], 
      TagBox["\<\"South Dakota\"\>",
       HoldForm], 
      TagBox["\<\"Tennessee\"\>",
       HoldForm], 
      TagBox["\<\"Texas\"\>",
       HoldForm], 
      TagBox["\<\"Utah\"\>",
       HoldForm], 
      TagBox["\<\"Vermont\"\>",
       HoldForm], 
      TagBox["\<\"Virginia\"\>",
       HoldForm], 
      TagBox["\<\"Washington\"\>",
       HoldForm], 
      TagBox["\<\"West Virginia\"\>",
       HoldForm], 
      TagBox["\<\"Wisconsin\"\>",
       HoldForm], 
      TagBox["\<\"Wyoming\"\>",
       HoldForm], 
      TagBox["\<\"District of Columbia\"\>",
       HoldForm]},
     {
      TagBox["\<\"Alabama\"\>",
       HoldForm], "1.`3.", "1.1825040242847504598`3.", 
      "0.9868312873007496588`3.", "1.0879175878230336876`3.", 
      "0.4063725109697571361`3.", "1.0650483920459609833`3.", 
      "1.1401825165683426634`3.", "1.4005523623659896247`3.", 
      "0.6390012986782489985`3.", "0.8211328276995017276`3.", 
      "1.1208460102562897854`3.", "1.3777042624877241908`3.", 
      "0.7573152522705059231`3.", "0.9338253343288216821`3.", 
      "1.2812594803002400576`3.", "1.1549761275856291742`3.", 
      "1.0794070705499007373`3.", "1.0822559425557799`3.", 
      "1.3386800645585809834`3.", "1.0284574681089497631`3.", 
      "1.0217663047489393322`3.", "0.9227200225476774656`3.", 
      "1.0683445693236389334`3.", "1.1293789949237025471`3.", 
      "1.0265817281464441164`3.", "1.1489837512145747839`3.", 
      "1.1566736920814134117`3.", "1.1680948800939428115`3.", 
      "1.3278083486010814837`3.", "0.896690485003197585`3.", 
      "1.1369011196364515764`3.", "0.6063635113443572929`3.", 
      "0.8631545966576994654`3.", "1.1865983533141957858`3.", 
      "0.8402963231752493717`3.", "1.0547233510316638608`3.", 
      "1.1378271433502689085`3.", "0.8120230543347430728`3.", 
      "1.0640833333171336112`3.", "1.0400966733961493767`3.", 
      "1.2820484290645966622`3.", "0.9369972888050070018`3.", 
      "0.4740772775035472926`3.", "1.2020581849653681407`3.", 
      "1.1954218356855160264`3.", "0.9569108370766412062`3.", 
      "0.9930744567893844954`3.", "1.3183257295835789638`3.", 
      "1.0717409386759750542`3.", "1.0375060645474211232`3.", 
      "1.1572811711545271419`3."},
     {
      TagBox["\<\"Alaska\"\>",
       HoldForm], "0.8456630839838876082`3.", "1.`3.", 
      "0.8345267897905417798`3.", "0.9200117424387385601`3.", 
      "0.3436542308729610174`3.", "0.900672107809667958`3.", 
      "0.9642102632656946861`3.", "1.1843954300393420744`3.", 
      "0.5403798089099573326`3.", "0.6944017194327708424`3.", 
      "0.9478580937043701403`3.", "1.1650736354331162406`3.", 
      "0.6404335517831118812`3.", "0.7897016121307962542`3.", 
      "1.0835138434942940983`3.", "0.9767206739818312137`3.", 
      "0.912814712155242804`3.", "0.9152238980416099403`3.", 
      "1.1320723118623593554`3.", "0.869728514227275195`3.", 
      "0.8640700443848087824`3.", "0.7803102599213512362`3.", 
      "0.9034595632516667083`3.", "0.9550741238338016438`3.", 
      "0.868142270185830848`3.", "0.9716531424994931812`3.", 
      "0.9781562416085976652`3.", "0.9878147186860330853`3.", 
      "1.1228785030175434849`3.", "0.7582980409268119912`3.", 
      "0.9614353070164963936`3.", "0.5127792370187682146`3.", 
      "0.7299379781644187373`3.", "1.0034624229138854289`3.", 
      "0.7106075801167028726`3.", "0.8919406017832573248`3.", 
      "0.9622184110861653808`3.", "0.6866979203947347615`3.", 
      "0.8998559932688222322`3.", "0.8795713604655699905`3.", 
      "1.084181028339465182`3.", "0.7923840169353836284`3.", 
      "0.4009096525403351056`3.", "1.0165362318258876228`3.", 
      "1.0109241162274936321`3.", "0.8092241695798358245`3.", 
      "0.8398064077541348261`3.", "1.1148594021749580484`3.", 
      "0.9063317474325116311`3.", "0.8773805781971585072`3.", 
      "0.9786699642350226957`3."},
     {
      TagBox["\<\"Arizona\"\>",
       HoldForm], "1.0133444418197059096`3.", "1.1982838804383864164`3.", 
      "1.`3.", "1.1024352407783729551`3.", "0.4117953252995208709`3.", 
      "1.07926086834878964`3.", "1.1553976158245347815`3.", 
      "1.4192419518810342419`3.", "0.6475284143311774111`3.", 
      "0.8320903869449883265`3.", "1.1358030746290043377`3.", 
      "1.3960889568632524653`3.", "0.7674212015936055933`3.", 
      "0.9462867121725400628`3.", "1.2983571728910532411`3.", 
      "1.1703886393233448325`3.", "1.0938111554026330803`3.", 
      "1.0966980440152464852`3.", "1.3565440027952831184`3.", 
      "1.0421816589561716892`3.", "1.0354012057559974513`3.", 
      "0.9350332062044426727`3.", "1.0826010312723770001`3.", 
      "1.1444499272138598316`3.", "1.0402808882908674885`3.", 
      "1.1643162980344451263`3.", "1.1721088568697782611`3.", 
      "1.1836824542612527818`3.", "1.3455272098567083983`3.", 
      "0.9086563190106066297`3.", "1.1520724304821987014`3.", 
      "0.6144550939430846397`3.", "0.8746729129542098569`3.", 
      "1.2024328460033543188`3.", "0.8515096085711742815`3.", 
      "1.0687980454253911427`3.", "1.1530108114655887479`3.", 
      "0.8228590487395729434`3.", "1.0782829314499028316`3.", 
      "1.0539761829411539515`3.", "1.2991566497362945313`3.", 
      "0.9495009946106875932`3.", "0.4804035741512379527`3.", 
      "1.2180989804785397808`3.", "1.2113740728218274325`3.", 
      "0.9696802780686565254`3.", "1.0063264811006464872`3.", 
      "1.3359180505814284081`3.", "1.0860427232779336024`3.", 
      "1.0513510038633662284`3.", "1.1727244424120398464`3."},
     {
      TagBox["\<\"Arkansas\"\>",
       HoldForm], "0.9191872722648410588`3.", "1.0869426485244971443`3.", 
      "0.9070827591595777655`3.", "1.`3.", "0.3735324398817052654`3.", 
      "0.9789789263147819187`3.", "1.0480412572885168394`3.", 
      "1.2873699056272732393`3.", "0.5873618607057506832`3.", 
      "0.7547748440602207167`3.", "1.0302673867964090728`3.", 
      "1.2663682230237357881`3.", "0.6961145409790863185`3.", 
      "0.8583603618335128432`3.", "1.1777174067606455169`3.", 
      "1.0616393562464435276`3.", "0.9921772408421461105`3.", 
      "0.9947958877302618432`3.", "1.230497676976923384`3.", 
      "0.9453450147514702963`3.", "0.9391945825543038596`3.", 
      "0.8481525005897522874`3.", "0.9820087305155520632`3.", 
      "1.0381107976971259212`3.", "0.9436208584518565757`3.", 
      "1.0561312401555497555`3.", "1.0631997359248170811`3.", 
      "1.0736979465800778819`3.", "1.2205045340411112742`3.", 
      "0.8242264809759265569`3.", "1.0450250389934736496`3.", 
      "0.5573616219935507679`3.", "0.7934007192446498666`3.", 
      "1.0907061036568276473`3.", "0.7723896851936328158`3.", 
      "0.9694882800288275359`3.", "1.0458762282050299639`3.", 
      "0.746401256330117303`3.", "0.9780918566142557116`3.", 
      "0.9560436241107418251`3.", "1.1784425984233111811`3.", 
      "0.86127598201622588`3.", "0.4357657995512277343`3.", 
      "1.1049165841419425188`3.", "1.0988165363495985111`3.", 
      "0.8795802621331435646`3.", "0.9128214010921231035`3.", 
      "1.2117882313324864244`3.", "0.9851306299961298069`3.", 
      "0.9536623694295741418`3.", "1.0637581229569904648`3."},
     {
      TagBox["\<\"California\"\>",
       HoldForm], "2.4607963703391874592`3.", "2.9099016108713963136`3.", 
      "2.4283908499268326559`3.", "2.6771436513430855029`3.", "1.`3.", 
      "2.6208672173822887187`3.", "2.8057569982955780934`3.", 
      "3.4464741697802016776`3.", "1.5724520764294621604`3.", 
      "2.0206406819692872599`3.", "2.7581737937478375841`3.", 
      "3.390249648530618867`3.", "1.8635986239897670699`3.", 
      "2.2979539932471426243`3.", "3.1529186785855043915`3.", 
      "2.8421610625911265537`3.", "2.6562010013276509804`3.", 
      "2.6632114952192793429`3.", "3.2942190439111852262`3.", 
      "2.5308244045707342168`3.", "2.5143588140610739869`3.", 
      "2.2706260823246179196`3.", "2.6289784384631931224`3.", 
      "2.779171731445566846`3.", "2.5262085904793001578`3.", 
      "2.8274150445675295988`3.", "2.8463384231407690788`3.", 
      "2.8744436411469628639`3.", "3.2674659647436118331`3.", 
      "2.206572690813554223`3.", "2.7976821486359383346`3.", 
      "1.4921371278223191454`3.", "2.124047698496852192`3.", 
      "2.9199769208860300223`3.", "2.0677981420790185022`3.", 
      "2.5954593939307031135`3.", "2.7999609044297480652`3.", 
      "1.998223384738676555`3.", "2.6184924043652261716`3.", 
      "2.5594661186951077059`3.", "3.1548601208412167113`3.", 
      "2.3057595273090205975`3.", "1.1666076437410129071`3.", 
      "2.9580204184992895595`3.", "2.9416897142791263942`3.", 
      "2.3547627146164322474`3.", "2.4437540187438776226`3.", 
      "3.2441311702840322689`3.", "2.6373362118377531054`3.", 
      "2.553091157843188639`3.", "2.8478333054389443596`3."},
     {
      TagBox["\<\"Colorado\"\>",
       HoldForm], "0.9389244727922617322`3.", "1.1102819675762871898`3.", 
      "0.9265600461637653438`3.", "1.0214724475881710073`3.", 
      "0.3815530956195468166`3.", "1.`3.", "1.0705452682558853629`3.", 
      "1.3150128884524435197`3.", "0.5999739574750455147`3.", 
      "0.770981707340173751`3.", "1.052389749261196873`3.", 
      "1.2935602483199382079`3.", "0.7110618239756234685`3.", 
      "0.8767914597147464492`3.", "1.2030058820509901529`3.", 
      "1.0844353516809848946`3.", "1.0134817146443052149`3.", 
      "1.0161565902904779399`3.", "1.2569194738531765497`3.", 
      "0.9656438860334599899`3.", "0.9593613890032952976`3.", 
      "0.8663644107054419228`3.", "1.0030948615126736018`3.", 
      "1.0604015773913918532`3.", "0.9638827078780689988`3.", 
      "1.0788089628560198447`3.", "1.0860292365302199715`3.", 
      "1.0967528694635454373`3.", "1.2467117536794341131`3.", 
      "0.8419246408894647678`3.", "1.0674642843715873689`3.", 
      "0.5693295402094652874`3.", "0.8104369746050477912`3.", 
      "1.1141262333016974375`3.", "0.7889747822265970004`3.", 
      "0.9903055663090925958`3.", "1.0683337506988764496`3.", 
      "0.7624283181864107425`3.", "0.9990938827418221893`3.", 
      "0.9765722207214647925`3.", "1.2037466453536237842`3.", 
      "0.8797696853990198052`3.", "0.4451227578428089049`3.", 
      "1.12864184758423132`3.", "1.1224108168353808673`3.", 
      "0.8984670032113872055`3.", "0.9324219107844345419`3.", 
      "1.2378082906177356855`3.", "1.0062837958162235895`3.", 
      "0.9741398346739616491`3.", "1.0865996134986756122`3."},
     {
      TagBox["\<\"Connecticut\"\>",
       HoldForm], "0.877052564364645642`3.", "1.0371181868704535959`3.", 
      "0.8655029111223868557`3.", "0.9541609102175912812`3.", 
      "0.3564100528333255917`3.", "0.9341034234163525409`3.", "1.`3.", 
      "1.2283580409400536222`3.", "0.5604377276380971341`3.", 
      "0.720176652217840719`3.", "0.9830408675531608664`3.", 
      "1.2083190563509613754`3.", "0.6642052840363057477`3.", 
      "0.819013904141765614`3.", "1.1237319128138387181`3.", 
      "1.0129747744789242083`3.", "0.9466967392191204156`3.", 
      "0.9491953497174233871`3.", "1.1740927834849328312`3.", 
      "0.9020112597449251548`3.", "0.8961427577614452478`3.", 
      "0.8092739619660441686`3.", "0.9369943441503404637`3.", 
      "0.9905247436373994319`3.", "0.900366137200728333`3.", 
      "1.007719145416052846`3.", "1.0144636277731261505`3.", 
      "1.0244806100076058115`3.", "1.1645577171253638562`3.", 
      "0.7864446893134322678`3.", "0.9971220424061866327`3.", 
      "0.5318126725617194256`3.", "0.7570319524417667085`3.", 
      "1.0407091286450810096`3.", "0.736984045067035475`3.", 
      "0.9250478197175931064`3.", "0.9979342138790526055`3.", 
      "0.7121869021274983871`3.", "0.9332570161834720091`3.", 
      "0.9122194545892301178`3.", "1.1244238623507699967`3.", 
      "0.8217958749491518649`3.", "0.4157906919414958852`3.", 
      "1.0542682136393876581`3.", "1.0484477864854738917`3.", 
      "0.8392611035263878009`3.", "0.8709784989321571526`3.", 
      "1.156240961799170311`3.", "0.939973138600336349`3.", 
      "0.9099473544551872611`3.", "1.0149964188519984054`3."},
     {
      TagBox["\<\"Delaware\"\>",
       HoldForm], "0.7140040078977653682`3.", "0.8443126126945482982`3.", 
      "0.7046014942516464246`3.", "0.7767775179681151937`3.", 
      "0.2901516015318852193`3.", "0.7604488205258866321`3.", 
      "0.814094886564756928`3.", "1.`3.", "0.456249488308146825`3.", 
      "0.5862921299938694409`3.", "0.8002885435592107349`3.", 
      "0.9836863651140700352`3.", "0.5407261253632484834`3.", 
      "0.6667550313872493818`3.", "0.9148244040913793533`3.", 
      "0.8246575841223800345`3.", "0.7707009745258151062`3.", 
      "0.7727350805560005742`3.", "0.9558229313876661095`3.", 
      "0.734322754182178341`3.", "0.7295452367256322151`3.", 
      "0.6588257942665581399`3.", "0.762802304312890234`3.", 
      "0.8063811288110736271`3.", "0.732983468331175305`3.", 
      "0.8203790033766153331`3.", "0.8258696519760349294`3.", 
      "0.834024425991934834`3.", "0.948060482621285375`3.", 
      "0.6402406001360741469`3.", "0.8117519560038832532`3.", 
      "0.4329459773428332338`3.", "0.6162958414489765301`3.", 
      "0.847235980031224309`3.", "0.5999749425688839527`3.", 
      "0.7530766998599696757`3.", "0.8124131406469572097`3.", 
      "0.5797877153003914487`3.", "0.7597597647256471658`3.", 
      "0.7426331934059837263`3.", "0.9153877166711559587`3.", 
      "0.6690198195961149571`3.", "0.3384930761907938853`3.", 
      "0.8582743617915862178`3.", "0.8535359818079623593`3.", 
      "0.6832381728735273974`3.", "0.7090591422885167402`3.", 
      "0.9412898546374209985`3.", "0.7652273256427593618`3.", 
      "0.7407834883050963377`3.", "0.8263033944689521523`3."},
     {
      TagBox["\<\"Florida\"\>",
       HoldForm], "1.5649420463909286522`3.", "1.8505502676296857758`3.", 
      "1.5443337741910296136`3.", "1.7025279761924611813`3.", 
      "0.6359494289140318347`3.", "1.6667390101537742397`3.", 
      "1.7843195607376210811`3.", "2.1917832800386812515`3.", "1.`3.", 
      "1.2850252877388280564`3.", "1.7540590489795859413`3.", 
      "2.1560273278590442157`3.", "1.1851544806512679158`3.", 
      "1.4613825296762393193`3.", "2.0050968330588354117`3.", 
      "1.807470704636524821`3.", "1.6892095098751991565`3.", 
      "1.6936678294619855221`3.", "2.0949567196930462044`3.", 
      "1.6094763347684530849`3.", "1.5990050518871023593`3.", 
      "1.4440033603316462006`3.", "1.6718973365679708511`3.", 
      "1.7674126754668292862`3.", "1.6065409104330322544`3.", 
      "1.7980929828956623167`3.", "1.8101272946924379905`3.", 
      "1.8280007920329812924`3.", "2.077943114274736023`3.", 
      "1.4032686425801783479`3.", "1.7791843647080065129`3.", 
      "0.9489237543000275833`3.", "1.3507869208452368261`3.", 
      "1.8569576552796239515`3.", "1.3150150475646478773`3.", 
      "1.6505809193397898286`3.", "1.7806335381537143521`3.", 
      "1.2707690203672250698`3.", "1.6652287491717957038`3.", 
      "1.6276910165089673648`3.", "2.0063314921526252312`3.", 
      "1.4663464546052596396`3.", "0.7419034648038414635`3.", 
      "1.8811513958606686438`3.", "1.8707658938380919098`3.", 
      "1.4975100035883754119`3.", "1.5541039726265392222`3.", 
      "2.0631033650643400954`3.", "1.677212457772515173`3.", 
      "1.6236368637958401242`3.", "1.811077964236256256`3."},
     {
      TagBox["\<\"Georgia\"\>",
       HoldForm], "1.217829766715837283`3.", "1.4400886000352364381`3.", 
      "1.2017925164013613565`3.", "1.3248984221845815358`3.", 
      "0.4948925402340283605`3.", "1.297047634826410273`3.", 
      "1.3885482081659010239`3.", "1.7056343567334879491`3.", 
      "0.7781948025004490409`3.", "1.`3.", "1.3649996351947943523`3.", 
      "1.6778092605888398057`3.", "0.9222810570029356898`3.", 
      "1.1372402890590076666`3.", "1.5603559339964962646`3.", 
      "1.4065643080199678957`3.", "1.3145340609192109313`3.", 
      "1.3180035020495340308`3.", "1.6302844307285186729`3.", 
      "1.2524861184642829523`3.", "1.2443374205505038914`3.", 
      "1.1237159098032701658`3.", "1.3010618176315388545`3.", 
      "1.3753913579216994523`3.", "1.2502017865033251272`3.", 
      "1.3992666137019332319`3.", "1.4086316525938539014`3.", 
      "1.4225407153267702973`3.", "1.6170445314201962116`3.", 
      "1.092016364167755105`3.", "1.384552025305834024`3.", 
      "0.7384475335654945954`3.", "1.0511753610873487634`3.", 
      "1.4450747958020238908`3.", "1.023337875224689756`3.", 
      "1.2844734925366373542`3.", "1.3856797645492055321`3.", 
      "0.988905846828361819`3.", "1.2958723575798153521`3.", 
      "1.2666606891239509976`3.", "1.5613167392861434164`3.", 
      "1.1411031896387736903`3.", "0.5773454202674242537`3.", 
      "1.4639022389752370671`3.", "1.4558202952799099511`3.", 
      "1.1653545014849025382`3.", "1.2093956340432729526`3.", 
      "1.6054963157142559509`3.", "1.3051980173275751719`3.", 
      "1.2635057685540522851`3.", "1.4093714586917487485`3."},
     {
      TagBox["\<\"Hawaii\"\>",
       HoldForm], "0.892183217720820146`3.", "1.0550102453541875128`3.", 
      "0.8804343132515619497`3.", "0.9706218141190271366`3.", 
      "0.3625587344302872029`3.", "0.9502183014439510194`3.", 
      "1.0172517064209662859`3.", "1.2495493132421847131`3.", 
      "0.5701062347825430489`3.", "0.7326009283931372455`3.", "1.`3.", 
      "1.2291646219739871793`3.", "0.6756639585997546195`3.", 
      "0.833143291570708778`3.", "1.1431182058695739461`3.", 
      "1.0304503179000791405`3.", "0.9630288734338147611`3.", 
      "0.9655705892268947993`3.", "1.1943478874965900263`3.", 
      "0.9175724931864505684`3.", "0.9116027495296208077`3.", 
      "0.8232353187720145986`3.", "0.9531590954937279862`3.", 
      "1.00761298571733474`3.", "0.91589898947109475`3.", 
      "1.0251040202675576233`3.", "1.0319648564542165432`3.", 
      "1.0421546487254294818`3.", "1.1846483249714813356`3.", 
      "0.800012202209795643`3.", "1.0143240991476524595`3.", 
      "0.5409873486597037053`3.", "0.7700920454365829792`3.", 
      "1.0586631370020859596`3.", "0.7496982774494681576`3.", 
      "0.9410064731287159707`3.", "1.0151502819643318002`3.", 
      "0.7244733414798594452`3.", "0.9493572922419762501`3.", 
      "0.9279567968112975023`3.", "1.1438220927167744867`3.", 
      "0.8359732561217357551`3.", "0.4229637908914410049`3.", 
      "1.0724561393500509383`3.", "1.0665352998956332312`3.", 
      "0.8537397896949612361`3.", "0.8860043642947086254`3.", 
      "1.1761880914240252908`3.", "0.9561892792310636043`3.", 
      "0.9256454990727830998`3.", "1.0325068390883652123`3."},
     {
      TagBox["\<\"Idaho\"\>",
       HoldForm], "0.7258451811670360836`3.", "0.8583148477377139342`3.", 
      "0.716286734512112071`3.", "0.7896597386282147761`3.", 
      "0.2949635288461467247`3.", "0.7730602430762610225`3.", 
      "0.8275959853020358016`3.", "1.0165841831954621089`3.", 
      "0.4638160134050849794`3.", "0.5960153060837454569`3.", 
      "0.8135606753748262436`3.", "1.`3.", "0.5496936264848450065`3.", 
      "0.677812618974271614`3.", "0.9299960196005102447`3.", 
      "0.83833385657099279`3.", "0.7834824206762723999`3.", 
      "0.7855502606935014579`3.", "0.9716744739842227742`3.", 
      "0.7465008972621318761`3.", "0.7416441485808668711`3.", 
      "0.6697518819325705701`3.", "0.775452757469535842`3.", 
      "0.8197543011766400007`3.", "0.7451394004492247155`3.", 
      "0.8339843190583237498`3.", "0.8395660255799780281`3.", 
      "0.8478560398620752109`3.", "0.9637832913454549926`3.", 
      "0.6508584675379034035`3.", "0.8252141991515263479`3.", 
      "0.4401260327448251421`3.", "0.6265166045861678269`3.", 
      "0.861286696733849`3.", "0.6099250369291331818`3.", 
      "0.7655658618106814502`3.", "0.8258863490018470722`3.", 
      "0.5894030209854115699`3.", "0.772359759848398489`3.", 
      "0.754949158332459604`3.", "0.9305686742593061735`3.", 
      "0.6801149668456919383`3.", "0.3441067073767375245`3.", 
      "0.8725081410395062088`3.", "0.867691178894184221`3.", 
      "0.6945691198985947857`3.", "0.7208183090006467359`3.", 
      "0.9569003780267579142`3.", "0.7779179957973924226`3.", 
      "0.7530687773833215183`3.", "0.8400069613378574467`3."},
     {
      TagBox["\<\"Illinois\"\>",
       HoldForm], "1.3204540605803213843`3.", "1.561442240519369713`3.", 
      "1.3030653804239806267`3.", "1.4365451964176732349`3.", 
      "0.5365962322182370055`3.", "1.406347473991631244`3.", 
      "1.5055586338053576337`3.", "1.8493650539415326914`3.", 
      "0.843771859555792642`3.", "1.0842681766116084555`3.", 
      "1.4800256655281703957`3.", "1.8191951876807323527`3.", "1.`3.", 
      "1.2330734545872687758`3.", "1.6918442834194842783`3.", 
      "1.5250929175437793857`3.", "1.4253074493267258666`3.", 
      "1.4290692539349626114`3.", "1.7676655270643050353`3.", 
      "1.3580308398986190983`3.", "1.3491954660698870582`3.", 
      "1.2184094005518464138`3.", "1.410699924662333683`3.", 
      "1.4912930797811252002`3.", "1.3555540114485357374`3.", 
      "1.5171802598320950456`3.", "1.527334473475334668`3.", 
      "1.5424156275631304044`3.", "1.7533099255827489443`3.", 
      "1.1840385920062100275`3.", "1.5012256999022662255`3.", 
      "0.8006751607423983578`3.", "1.1397559920652287596`3.", 
      "1.566848613911652897`3.", "1.1095726920274720498`3.", 
      "1.3927137316586442463`3.", "1.5024484716753700053`3.", 
      "1.0722391393811464325`3.", "1.4050731582744526573`3.", 
      "1.3733998757820297739`3.", "1.6928860540189687838`3.", 
      "1.2372618747553236074`3.", "0.6259972661084228688`3.", 
      "1.5872626113913313913`3.", "1.5784996170373213745`3.", 
      "1.2635568004311652335`3.", "1.3113091989261396652`3.", 
      "1.7407885627961515575`3.", "1.4151846743648564699`3.", 
      "1.3699790958083512403`3.", "1.528136621684145263`3."},
     {
      TagBox["\<\"Indiana\"\>",
       HoldForm], "1.0708640719398994957`3.", "1.2663010745308856768`3.", 
      "1.0567621706365736104`3.", "1.1650118580312070745`3.", 
      "0.4351697218215156024`3.", "1.1405220579193802444`3.", 
      "1.2209804924470573466`3.", "1.4998012057282893005`3.", 
      "0.6842835326774736401`3.", "0.8793216434738123161`3.", 
      "1.2002737225606408329`3.", "1.4753339964565604562`3.", 
      "0.8109816947885861898`3.", "1.`3.", "1.3720547442859145098`3.", 
      "1.2368224389797237385`3.", "1.1558982508497850732`3.", 
      "1.1589490055264364215`3.", "1.4335443849579695675`3.", 
      "1.1013381521161492705`3.", "1.0941728256744334408`3.", 
      "0.9881077206058817665`3.", "1.1440518157407902268`3.", 
      "1.2094113892673871917`3.", "1.0993294895820000792`3.", 
      "1.230405418418419996`3.", "1.2386402998080598495`3.", 
      "1.2508708397095482507`3.", "1.4219022549387476699`3.", 
      "0.9602336240402875487`3.", "1.2174665623669213526`3.", 
      "0.6493328988339938918`3.", "0.9243212460905056131`3.", 
      "1.2706855443872188483`3.", "0.899843142271573279`3.", 
      "1.1294653424558635497`3.", "1.2184582078918127006`3.", 
      "0.8695663144739772217`3.", "1.1394886111993670214`3.", 
      "1.1138021588841442561`3.", "1.3728996011722653757`3.", 
      "1.0033967320863758024`3.", "0.5076723238016303647`3.", 
      "1.2872409226606990038`3.", "1.2801342946480611482`3.", 
      "1.0247214354753097543`3.", "1.0634477565369840515`3.", 
      "1.4117476589250102177`3.", "1.1476888656552447643`3.", 
      "1.1110279689435915836`3.", "1.2392908273219126941`3."},
     {
      TagBox["\<\"Iowa\"\>",
       HoldForm], "0.7804820298895802358`3.", "0.9229231412263595214`3.", 
      "0.7702040862710366362`3.", "0.8491001272966970098`3.", 
      "0.3171664422530017614`3.", "0.8312511309546650892`3.", 
      "0.8898919649758700311`3.", "1.0931059507460545237`3.", 
      "0.4987290306944777226`3.", "0.6408794161718780453`3.", 
      "0.8748001692784663198`3.", "1.0752734193739460468`3.", 
      "0.5910709453584240002`3.", "0.7288338924992746607`3.", "1.`3.", 
      "0.9014381125320386651`3.", "0.84245782149995187`3.", 
      "0.8446813149059960384`3.", "1.0448157341593956028`3.", 
      "0.8026925723647713411`3.", "0.7974702396032276159`3.", 
      "0.7201663962177705529`3.", "0.8338237380872230863`3.", 
      "0.8814600104727052968`3.", "0.8012285910312899289`3.", 
      "0.8967611704580957781`3.", "0.9027630311155768285`3.", 
      "0.9116770631193463138`3.", "1.0363305552205034518`3.", 
      "0.6998508099179678557`3.", "0.8873308936375942266`3.", 
      "0.4732558241850174785`3.", "0.6736766517079231668`3.", 
      "0.9261186914582964925`3.", "0.6558361800205693535`3.", 
      "0.8231926219851332995`3.", "0.888053638505480274`3.", 
      "0.6337694017643171819`3.", "0.8304979199590272439`3.", 
      "0.8117767629336264303`3.", "1.0006157603330839188`3.", 
      "0.7313095459675651193`3.", "0.3700087958704944219`3.", 
      "0.9381848122471550253`3.", "0.9330052608901597908`3.", 
      "0.7468517125449143252`3.", "0.7750767678664710461`3.", 
      "1.0289295414810535441`3.", "0.8364745433335891407`3.", 
      "0.8097548392807210947`3.", "0.9032371576156760733`3."},
     {
      TagBox["\<\"Kansas\"\>",
       HoldForm], "0.8658187611984739091`3.", "1.0238341694184327506`3.", 
      "0.8544170426826303672`3.", "0.9419394581749709711`3.", 
      "0.3518449440329483782`3.", "0.9221388794176605114`3.", 
      "0.9871914140353608979`3.", "1.2126245113773172677`3.", 
      "0.5532593128258175713`3.", "0.7109522076581825079`3.", 
      "0.9704495040943528036`3.", "1.1928421978449784873`3.", 
      "0.6556977535575591938`3.", "0.8085234941443311199`3.", 
      "1.1093384960073543323`3.", "1.`3.", "0.9345708926523887859`3.", 
      "0.9370374994833320934`3.", "1.1590543151372036644`3.", 
      "0.8904577709834098709`3.", "0.8846644362120690214`3.", 
      "0.7989083068552580167`3.", "0.9249927715449101922`3.", 
      "0.9778375223084176928`3.", "0.8888337201327427599`3.", 
      "0.9948116881137786811`3.", "1.0014697831887944205`3.", 
      "1.0113584620452174855`3.", "1.149641379494779767`3.", 
      "0.7763714449039272799`3.", "0.984350319008790478`3.", 
      "0.5250009042281282033`3.", "0.7473354436009377592`3.", 
      "1.0273791163066464008`3.", "0.7275443215712268928`3.", 
      "0.9131992651973383375`3.", "0.9851520877135282165`3.", 
      "0.7030647949687083168`3.", "0.9213033134645834222`3.", 
      "0.9005352132865077682`3.", "1.1100215826491586344`3.", 
      "0.8112698318394798476`3.", "0.4104650011204664604`3.", 
      "1.040764528595201059`3.", "1.0350186528828391158`3.", 
      "0.8285113555350921857`3.", "0.8598224959552322913`3.", 
      "1.141431150044128643`3.", "0.9279334118501223155`3.", 
      "0.8982922155423520671`3.", "1.0019957499673317475`3."},
     {
      TagBox["\<\"Kentucky\"\>",
       HoldForm], "0.9264345465983958763`3.", "1.0955125795890212989`3.", 
      "0.9142345962195813486`3.", "1.007884437211252741`3.", 
      "0.3764775329503186071`3.", "0.9866976241904504405`3.", 
      "1.0563044727764105296`3.", "1.297520092815847842`3.", 
      "0.5919928784167697532`3.", "0.7607258189268466056`3.", 
      "1.0383904653184068017`3.", "1.276352823764492141`3.", 
      "0.7016030123692759482`3.", "0.865128050211017359`3.", 
      "1.1870030457068492309`3.", "1.0700097850917633922`3.", "1.`3.", 
      "1.0026392934450835242`3.", "1.2401994586496402943`3.", 
      "0.9527985281632490601`3.", "0.9465996032696019975`3.", 
      "0.8548397057262191926`3.", "0.9897513166922039471`3.", 
      "1.0462957170998924071`3.", "0.9510607778615486493`3.", 
      "1.0644582406053986774`3.", "1.0715824674857367967`3.", 
      "1.0821634506237395053`3.", "1.2301275254058077`3.", 
      "0.830725042913033052`3.", "1.0532644732976046333`3.", 
      "0.5617561047061209232`3.", "0.7996562373988970728`3.", 
      "1.0993057074470402442`3.", "0.7784795431691612849`3.", 
      "0.977132149499760243`3.", "1.0541223736570543659`3.", 
      "0.7522862101700522777`3.", "0.98580356044456843`3.", 
      "0.9635814900362614863`3.", "1.1877339550976453066`3.", 
      "0.8680666584179928582`3.", "0.4392015676366007373`3.", 
      "1.1136282295732815208`3.", "1.1074800863371331357`3.", 
      "0.886515257482189562`3.", "0.9200184841141217024`3.", 
      "1.221342499555762421`3.", "0.9928978305932161486`3.", 
      "0.9611814605020761346`3.", "1.0721452570854049292`3."},
     {
      TagBox["\<\"Louisiana\"\>",
       HoldForm], "0.9239958504071319565`3.", "1.0926288115288438201`3.", 
      "0.9118280145178209395`3.", "1.0052313367334196776`3.", 
      "0.3754865138555823046`3.", "0.9841002947332561931`3.", 
      "1.0535239140159096009`3.", "1.2941045711040802177`3.", 
      "0.5904345483834704087`3.", "0.7587233254274140581`3.", 
      "1.035657062422201427`3.", "1.27299302162687526`3.", 
      "0.6997561505479777906`3.", "0.8628507339248839051`3.", 
      "1.183878443092220246`3.", "1.0671931492084195668`3.", 
      "0.9973676540882266117`3.", "1.`3.", "1.2369348246748803439`3.", 
      "0.9502904328528948297`3.", "0.9441078256738489497`3.", 
      "0.8525894719216292133`3.", "0.9871459488600368957`3.", 
      "1.0435415048464784997`3.", "0.948557256911096783`3.", 
      "1.0616562183074875623`3.", "1.0687616917583226776`3.", 
      "1.0793148220886195214`3.", "1.2268894042433458069`3.", 
      "0.8285382872425131572`3.", "1.0504919168673035326`3.", 
      "0.5602773683204840224`3.", "0.7975512655715559959`3.", 
      "1.0964119545622528852`3.", "0.776430315726300728`3.", 
      "0.9745599996807622057`3.", "1.0513475589362493587`3.", 
      "0.7503059326402276448`3.", "0.9832085844724205197`3.", 
      "0.9610450102403040235`3.", "1.1846074284766695829`3.", 
      "0.8657816066985594683`3.", "0.4380454371855880682`3.", 
      "1.1106967748559288568`3.", "1.104564815659493144`3.", 
      "0.8841816426684315875`3.", "0.9175966772187079438`3.", 
      "1.2181275036201817198`3.", "0.9902841800480454299`3.", 
      "0.95865129841405112`3.", "1.0693229999010889351`3."},
     {
      TagBox["\<\"Maine\"\>",
       HoldForm], "0.747004475882549264`3.", "0.8833357988898353241`3.", 
      "0.7371673885545978923`3.", "0.8126793074951525392`3.", 
      "0.3035620845700389275`3.", "0.7955959158898449348`3.", 
      "0.8517214431995808538`3.", "1.0462188833952722941`3.", 
      "0.4773368302074137129`3.", "0.6133898975856219188`3.", 
      "0.837276986436546188`3.", "1.0291512505207964861`3.", 
      "0.5657178831001898536`3.", "0.6975717044361477795`3.", 
      "0.957106566551228278`3.", "0.8627723368439592702`3.", 
      "0.8063219130000464774`3.", "0.8084500331396547072`3.", "1.`3.", 
      "0.7682623319322196421`3.", "0.7632640029534305329`3.", 
      "0.6892759868295618445`3.", "0.7980581750695727199`3.", 
      "0.843651164175740687`3.", "0.7668611457846361589`3.", 
      "0.8582960048736088128`3.", "0.8640404251204093986`3.", 
      "0.8725721036856649771`3.", "0.991878779519224139`3.", 
      "0.6698318057786825129`3.", "0.8492702250043109291`3.", 
      "0.4529562569860938271`3.", "0.6447803470818979978`3.", 
      "0.8863942810005670964`3.", "0.6277051144795603915`3.", 
      "0.787883064038494085`3.", "0.8499619688633058751`3.", 
      "0.6065848561078715755`3.", "0.7948750126999213644`3.", 
      "0.7769568703774735858`3.", "0.9576959148094446682`3.", 
      "0.6999411686271539004`3.", "0.3541378482093632083`3.", 
      "0.8979428444403832881`3.", "0.8929854618248138253`3.", 
      "0.714816678316767854`3.", "0.7418310641063014815`3.", 
      "0.9847952206700607388`3.", "0.8005952781775181171`3.", 
      "0.7750216739722126426`3.", "0.8644942147070303373`3."},
     {
      TagBox["\<\"Maryland\"\>",
       HoldForm], "0.972329951416196904`3.", "1.1497840804822487387`3.", 
      "0.9595256176371209647`3.", "1.0578148553127964742`3.", 
      "0.3951281638481018991`3.", "1.0355784512939478761`3.", 
      "1.1086336109404937436`3.", "1.3617990104551624931`3.", 
      "0.6213201016987085756`3.", "0.798412042463300897`3.", 
      "1.0898321466975363838`3.", "1.3395831186105762493`3.", 
      "0.7363603024469259265`3.", "0.9079863419591570172`3.", 
      "1.2458069682318741095`3.", "1.1230178820222020518`3.", 
      "1.0495398244660844065`3.", "1.0523098680451518567`3.", 
      "1.3016387221340763827`3.", "1.`3.", "0.9934939814552432209`3.", 
      "0.8971883146945353421`3.", "1.0387834231862116495`3.", 
      "1.0981290232646369875`3.", "0.9981761618533874655`3.", 
      "1.1171913149964671703`3.", "1.1246684748259138002`3.", 
      "1.1357736380112517616`3.", "1.2910678270853102014`3.", 
      "0.8718790157185251465`3.", "1.105443010421130816`3.", 
      "0.5895854035260134611`3.", "0.8392710670328479558`3.", 
      "1.1537651192285328035`3.", "0.8170452830881991142`3.", 
      "1.0255391046661461091`3.", "1.1063434110137970781`3.", 
      "0.7895543369701325489`3.", "1.0346400957870333807`3.", 
      "1.0113171479114259424`3.", "1.2465740867455908355`3.", 
      "0.9110705283008806773`3.", "0.4609595362025470365`3.", 
      "1.1687971765868182383`3.", "1.1623444554139587153`3.", 
      "0.9304330677243628551`3.", "0.9655960383226883582`3.", 
      "1.2818475925967237208`3.", "1.0420858148335600899`3.", 
      "1.0087982213354036292`3.", "1.1252591449235608296`3."},
     {
      TagBox["\<\"Massachusetts\"\>",
       HoldForm], "0.978697374685606232`3.", "1.1573135841226496317`3.", 
      "0.9658091901388609199`3.", "1.064742087076700525`3.", 
      "0.3977157096304990331`3.", "1.0423600652085083167`3.", 
      "1.1158936356278646952`3.", "1.3707169201573179006`3.", 
      "0.6253888934370952384`3.", "0.8036405427376705846`3.", 
      "1.0969690476646668898`3.", "1.3483555447899050011`3.", 
      "0.7411824492065117414`3.", "0.9139324031225263017`3.", 
      "1.2539652896608891606`3.", "1.1303721038926030639`3.", 
      "1.0564128661642688022`3.", "1.0592010497172380541`3.", 
      "1.3101626647274410726`3.", "1.0065486240140347286`3.", "1.`3.", 
      "0.9030636636372553234`3.", "1.045586025256670075`3.", 
      "1.1053202573568962905`3.", "1.0047128422371375746`3.", 
      "1.124507380870124072`3.", "1.132033505807986592`3.", 
      "1.1432113925316398325`3.", "1.2995225448615087004`3.", 
      "0.8775886235781924429`3.", "1.1126821410653214808`3.", 
      "0.5934463766578683101`3.", "0.8447671376967038144`3.", 
      "1.1613206931948672491`3.", "0.8223958054495842978`3.", 
      "1.0322549746742945025`3.", "1.1135884380429311235`3.", 
      "0.7947248314616004245`3.", "1.0414155647641875393`3.", 
      "1.0179398836720438179`3.", "1.2547374317453264224`3.", 
      "0.9170367866409911313`3.", "0.4639781868908213468`3.", 
      "1.1764511898449506639`3.", "1.1699562122272626842`3.", 
      "0.9365261240551146187`3.", "0.9719193637271051132`3.", 
      "1.2902419305239351648`3.", "1.0489100430252640891`3.", 
      "1.0154044615929561754`3.", "1.1326280439820194451`3."},
     {
      TagBox["\<\"Michigan\"\>",
       HoldForm], "1.0837523577725652248`3.", "1.2815415243941450374`3.", 
      "1.069480734335923146`3.", "1.1790332508654545537`3.", 
      "0.4404071668974319186`3.", "1.1542487060216896184`3.", 
      "1.2356754906219982753`3.", "1.5178519248980774031`3.", 
      "0.692519164062283519`3.", "0.8899046380637885529`3.", 
      "1.2147195063152268789`3.", "1.4930902427843841787`3.", 
      "0.8207421902252858238`3.", "1.0120354078266144903`3.", 
      "1.3885679826938367486`3.", "1.2517081014419527285`3.", 
      "1.1698099577048325755`3.", "1.1728974294581963759`3.", 
      "1.4507976762684919703`3.", "1.1145932059318771135`3.", 
      "1.1073416418642244094`3.", "1.`3.", "1.1578209459180094522`3.", 
      "1.2239671485673726077`3.", "1.1125603683249433958`3.", 
      "1.2452138494211619248`3.", "1.2535478409667298917`3.", 
      "1.2659255804038723868`3.", "1.4390154284665182661`3.", 
      "0.9717904273144404215`3.", "1.2321192689602736446`3.", 
      "0.6571478850866988173`3.", "0.9354458292500093428`3.", 
      "1.2859787631333031218`3.", "0.9106731214687939484`3.", 
      "1.1430589184783466711`3.", "1.2331228493434764891`3.", 
      "0.8800318997009576466`3.", "1.1532028213489339592`3.", 
      "1.127207222104478602`3.", "1.3894230077773699706`3.", 
      "1.0154730209689275726`3.", "0.5137823672608680726`3.", 
      "1.3027333921360280377`3.", "1.2955412329569860433`3.", 
      "1.0370543758599289328`3.", "1.0762467839892048905`3.", 
      "1.4287386177484409626`3.", "1.1615017692114702034`3.", 
      "1.1243996436566028863`3.", "1.2542061978445143893`3."},
     {
      TagBox["\<\"Minnesota\"\>",
       HoldForm], "0.9360275970074829171`3.", "1.1068564003029331964`3.", 
      "0.9237013185039216963`3.", "1.018320885472171481`3.", 
      "0.3803758849329187658`3.", "0.9969146871034644415`3.", 
      "1.0672423011334103608`3.", "1.3109556622285907203`3.", 
      "0.5981228500864622801`3.", "0.7686029875355241091`3.", 
      "1.0491427975956194796`3.", "1.2895692102033509632`3.", 
      "0.7088679757598773803`3.", "0.8740862837165163044`3.", 
      "1.1992942324884900982`3.", "1.0810895293049844782`3.", 
      "1.0103548064397101695`3.", "1.0130214292575551321`3.", 
      "1.2530414839905906555`3.", "0.9626645724984202429`3.", 
      "0.956401458937365164`3.", "0.8636914054159929936`3.", "1.`3.", 
      "1.0571299067291595428`3.", "0.9609088281287051763`3.", 
      "1.0754804996500220165`3.", "1.0826784965207386174`3.", 
      "1.0933690436910771807`3.", "1.2428652578275444926`3.", 
      "0.8393270399370174334`3.", "1.0641708230484246431`3.", 
      "0.5675729804366783868`3.", "0.8079365229554695764`3.", 
      "1.1106888052657212229`3.", "0.7865405481559519469`3.", 
      "0.9872501637738482022`3.", "1.065037606800041002`3.", 
      "0.7600759882636262775`3.", "0.9960113655005490604`3.", 
      "0.9735591898544744873`3.", "1.2000327103045528335`3.", 
      "0.8770553206426771785`3.", "0.4437494148574950122`3.", 
      "1.1251596343363099702`3.", "1.1189478282669876573`3.", 
      "0.8956949513792674575`3.", "0.9295450974380789982`3.", 
      "1.2339892647352541939`3.", "1.0031790954434170402`3.", 
      "0.9711343084790130581`3.", "1.0832471136977775948`3."},
     {
      TagBox["\<\"Mississippi\"\>",
       HoldForm], "0.8854423576981410006`3.", "1.047039151250229229`3.", 
      "0.8737822216778673281`3.", "0.9632883139433013206`3.", 
      "0.3598194342167754273`3.", "0.9430389593157896955`3.", 
      "1.0095658956764730424`3.", "1.2401083858130429776`3.", 
      "0.565798816473842784`3.", "0.727065786941588191`3.", 
      "0.9924445339378839567`3.", "1.2198777103879090234`3.", 
      "0.6705590024911591943`3.", "0.8268485057063666365`3.", 
      "1.1344814150601393999`3.", "1.0226647854944884047`3.", 
      "0.9557527414637477269`3.", "0.9582752534094136051`3.", 
      "1.1853240325662495502`3.", "0.9106398053546491369`3.", 
      "0.9047151658934180859`3.", "0.8170153922598973599`3.", 
      "0.9459575342959278996`3.", "1.`3.", "0.9089789457398195143`3.", 
      "1.0173588816322873751`3.", "1.0241678810039802558`3.", 
      "1.0342806846455080329`3.", "1.1756977547566166908`3.", 
      "0.7939677371667208146`3.", "1.0066604078405559201`3.", 
      "0.5368999371068711717`3.", "0.7642736411225813506`3.", 
      "1.0506644435992535602`3.", "0.7440339575573718435`3.", 
      "0.9338967306567604467`3.", "1.0074803484610027593`3.", 
      "0.7189996077354005576`3.", "0.9421844554396196163`3.", 
      "0.9209456507258798311`3.", "1.1351799837141543469`3.", 
      "0.8296570885562713378`3.", "0.4197681023238567754`3.", 
      "1.0643532333860836345`3.", "1.0584771286332230166`3.", 
      "0.8472893876880428685`3.", "0.8793101883893932551`3.", 
      "1.1673014422166060564`3.", "0.9489648235828741025`3.", 
      "0.9186518159189882197`3.", "1.0247057687067303586`3."},
     {
      TagBox["\<\"Missouri\"\>",
       HoldForm], "0.9741065641267168793`3.", "1.1518849321620340479`3.", 
      "0.9612788346452782659`3.", "1.0597476635273211073`3.", 
      "0.3958501304162966875`3.", "1.0374706298045755921`3.", 
      "1.1106592736917417135`3.", "1.3642872495838906886`3.", 
      "0.6224553595279791239`3.", "0.799870877482017042`3.", 
      "1.091823455965893311`3.", "1.3420307655146494886`3.", 
      "0.7377057583499803488`3.", "0.9096453879175311672`3.", 
      "1.2480832701100497339`3.", "1.1250698272908178213`3.", 
      "1.0514575127874484931`3.", "1.0542326177087322321`3.", 
      "1.3040170381520908587`3.", "1.0018271706100715522`3.", 
      "0.9953092644594412131`3.", "0.8988276308148448241`3.", 
      "1.0406814577272870152`3.", "1.1001354923420127121`3.", "1.`3.", 
      "1.1192326141330559049`3.", "1.1267234360091897074`3.", 
      "1.1378488902223199673`3.", "1.293426828274569421`3.", 
      "0.8734720874315841486`3.", "1.1074628434008813203`3.", 
      "0.5906626766474633919`3.", "0.8408045584604137673`3.", 
      "1.1558732449453112795`3.", "0.818538164216555463`3.", 
      "1.0274129395776711894`3.", "1.1083648891790477998`3.", 
      "0.7909969874496989081`3.", "1.0365305597620570638`3.", 
      "1.0131649968815510848`3.", "1.2488517902801691647`3.", 
      "0.9127352095938944088`3.", "0.4618017879195285441`3.", 
      "1.1709327684370122809`3.", "1.1644682570416707254`3.", 
      "0.9321331276803475251`3.", "0.9673603470251130986`3.", 
      "1.2841897468445073642`3.", "1.0439898834075964366`3.", 
      "1.0106414677969201363`3.", "1.1273151853618794058`3."},
     {
      TagBox["\<\"Montana\"\>",
       HoldForm], "0.8703343271329240928`3.", "1.0291738443078432225`3.", 
      "0.8588731444266152546`3.", "0.9468520217740338781`3.", 
      "0.3536799459001803908`3.", "0.9269481756553241968`3.", 
      "0.9923399833662325882`3.", "1.21894879791423086`3.", 
      "0.5561447653221984997`3.", "0.7146600870826011308`3.", 
      "0.975510758156030507`3.", "1.1990633122804148687`3.", 
      "0.6591174605123514375`3.", "0.8127402440127529008`3.", 
      "1.1151241076697894426`3.", "1.0052153708568288562`3.", 
      "0.9394450264495685836`3.", "0.9419244975498932482`3.", 
      "1.1650992132338519654`3.", "0.8951018384914335307`3.", 
      "0.8892782893307623768`3.", "0.8030749099561094145`3.", 
      "0.929816951888402869`3.", "0.9829373076249787511`3.", 
      "0.8934693176132898424`3.", "1.`3.", "1.0066928195100319722`3.", 
      "1.0166330714939753659`3.", "1.1556371856412013648`3.", 
      "0.7804205099117533323`3.", "0.9894840709754591159`3.", 
      "0.5277389786438483945`3.", "0.7512330750937693553`3.", 
      "1.0327372794087463167`3.", "0.7313387350230007914`3.", 
      "0.9179619380315260636`3.", "0.9902900212013334566`3.", 
      "0.706731538610850472`3.", "0.9261082519159264709`3.", 
      "0.905231838393430379`3.", "1.1158107568617580999`3.", 
      "0.8155009048774799177`3.", "0.4126057283250583651`3.", 
      "1.0461925015864576935`3.", "1.0404166590013585374`3.", 
      "0.8328323495133016765`3.", "0.8643067891426830568`3.", 
      "1.1473841367991454482`3.", "0.9327729287233632119`3.", 
      "0.9029771425842078751`3.", "1.0072215294003777429`3."},
     {
      TagBox["\<\"Nebraska\"\>",
       HoldForm], "0.8645480629895870344`3.", "1.0223315636727725968`3.", 
      "0.8531630779333837757`3.", "0.9405570432447077129`3.", 
      "0.3513285672111182405`3.", "0.9207855243335098628`3.", 
      "0.9857425861537533755`3.", "1.2108448319990065235`3.", 
      "0.5524473350201107334`3.", "0.709908795644766537`3.", 
      "0.9690252470766821365`3.", "1.1910915515062595234`3.", 
      "0.6547354344229363503`3.", "0.8073368839645862992`3.", 
      "1.1077104018806174893`3.", "0.9985323739033698425`3.", 
      "0.9331992920211811986`3.", "0.9356622787955692875`3.", 
      "1.1573532567768965096`3.", "0.8891509119207674983`3.", 
      "0.8833660795987235835`3.", "0.7977358081753026263`3.", 
      "0.9236352280141966247`3.", "0.9764024224424136851`3.", 
      "0.8875292445695110809`3.", "0.9933516765190701984`3.", "1.`3.", 
      "1.0098741659732721832`3.", "1.1479541358044673336`3.", 
      "0.7752320219107078137`3.", "0.982905660792386953`3.", 
      "0.5242303992003285975`3.", "0.7462386346009723476`3.", 
      "1.0258713079044216456`3.", "0.726476558538433877`3.", 
      "0.9118590301243112417`3.", "0.9837062528004501605`3.", 
      "0.7020329587279903064`3.", "0.9199511846788309651`3.", 
      "0.8992135643065540843`3.", "1.1083924860066400199`3.", 
      "0.8100791910628634675`3.", "0.409862591973068737`3.", 
      "1.0392370754125877576`3.", "1.03349963249736927`3.", 
      "0.8272954106483544577`3.", "0.8585605980216987143`3.", 
      "1.1397559559008173144`3.", "0.9265715525589560162`3.", 
      "0.8969738584444223885`3.", "1.000525194855967185`3."},
     {
      TagBox["\<\"Nevada\"\>",
       HoldForm], "0.8560948404461596851`3.", "1.0123355939969951825`3.", 
      "0.8448211734490136475`3.", "0.9313606337659309415`3.", 
      "0.3478934099403595119`3.", "0.9117824332560258958`3.", 
      "0.9761043696010761339`3.", "1.1990056511962039102`3.", 
      "0.5470457148368444061`3.", "0.7029675771145088635`3.", 
      "0.9595504863150730657`3.", "1.179445510776422343`3.", 
      "0.6483336800599619395`3.", "0.7994430505968143224`3.", 
      "1.0968796303577634903`3.", "0.9887691036645425796`3.", 
      "0.9240748238388739025`3.", "0.9265137284641985549`3.", 
      "1.1460370962767331336`3.", "0.8804571320663927101`3.", 
      "0.8747288616373053905`3.", "0.789935850479430807`3.", 
      "0.9146042736166418575`3.", "0.966855530462451321`3.", 
      "0.8788513207624729529`3.", "0.9836390611712714339`3.", 
      "0.9902223798707080519`3.", "1.`3.", "1.1367298763387216312`3.", 
      "0.7676520976884019807`3.", "0.9732951826182283069`3.", 
      "0.5191046734967206947`3.", "0.7389421967060425418`3.", 
      "1.0158407279541923364`3.", "0.7193733467162097458`3.", 
      "0.9029432189162911447`3.", "0.974087946741758125`3.", 
      "0.6951687471393051274`3.", "0.910956251457549253`3.", 
      "0.8904213956596579613`3.", "1.0975550453243055525`3.", 
      "0.802158544458006676`3.", "0.4058551112435490878`3.", 
      "1.0290758100649271458`3.", "1.0233944656870471626`3.", 
      "0.8192064303883282589`3.", "0.8501659186362648205`3.", 
      "1.1286118551239210881`3.", "0.9175118878954262755`3.", 
      "0.888203588790647538`3.", "0.9907424395708797317`3."},
     {
      TagBox["\<\"New Hampshire\"\>",
       HoldForm], "0.7531207354235681239`3.", "0.8905683004106601268`3.", 
      "0.7432031048309270262`3.", "0.8193332938215173925`3.", 
      "0.3060475643174654992`3.", "0.8021100282793428389`3.", 
      "0.858695095395044874`3.", "1.0547850251442897817`3.", 
      "0.4812451279971779955`3.", "0.6184121590774827917`3.", 
      "0.8441323715407891433`3.", "1.037577647360939381`3.", 
      "0.5703498197374484402`3.", "0.7032832225468815619`3.", 
      "0.9649430820721354872`3.", "0.8698364706039538906`3.", 
      "0.8129238467939405254`3.", "0.8150693913741358554`3.", 
      "1.0081877147172281643`3.", "0.7745526447340731059`3.", 
      "0.7695133908635428171`3.", "0.6949195819711582145`3.", 
      "0.8045924477347941114`3.", "0.8505587392288690733`3.", 
      "0.7731399860740474772`3.", "0.8653234877044505959`3.", 
      "0.8711149416254478543`3.", "0.8797164751408548363`3.", "1.`3.", 
      "0.6753161975129241491`3.", "0.8562238073244824097`3.", 
      "0.4566649335976794565`3.", "0.6500596246190799379`3.", 
      "0.8936518245003820823`3.", "0.6328445848834640778`3.", 
      "0.7943340257973768868`3.", "0.8569212149848521913`3.", 
      "0.6115513998614737194`3.", "0.8013832225397614346`3.", 
      "0.7833183715797147614`3.", "0.9655372557457592486`3.", 
      "0.7056720872347163286`3.", "0.3570374278810745252`3.", 
      "0.9052949442830375345`3.", "0.9002969720328676429`3.", 
      "0.7206693933539422046`3.", "0.7479049652275816759`3.", 
      "0.9928584429917969791`3.", "0.8071503239191955584`3.", 
      "0.7813673303383657361`3.", "0.8715724467117456941`3."},
     {
      TagBox["\<\"New Jersey\"\>",
       HoldForm], "1.1152120120873525436`3.", "1.3187426922239881559`3.", 
      "1.1005261055014212992`3.", "1.2132587621013444674`3.", 
      "0.4531915056155725959`3.", "1.1877547602639756308`3.", 
      "1.2715452384490026003`3.", "1.5619128180678701812`3.", 
      "0.7126219240254013954`3.", "0.9157371929697386931`3.", 
      "1.2499809343379983172`3.", "1.5364323426302569919`3.", 
      "0.8445670662690318931`3.", "1.041413230034989916`3.", 
      "1.4288759630316263535`3.", "1.2880432511576283162`3.", 
      "1.2037677310092696992`3.", "1.2069448272911255313`3.", 
      "1.4929120883376020992`3.", "1.1469481223560460763`3.", 
      "1.1394860566021236733`3.", "1.0290284529386826934`3.", 
      "1.1914306967580114697`3.", "1.2594970213380542319`3.", 
      "1.1448562746183074985`3.", "1.2813604810476800419`3.", 
      "1.2899363954746199078`3.", "1.3026734415385007704`3.", 
      "1.4807878201097969036`3.", "1.`3.", "1.2678857851741311391`3.", 
      "0.6762238715426928124`3.", "0.9626003744810802457`3.", 
      "1.323308737139063039`3.", "0.9371085533178741017`3.", 
      "1.1762401504995369074`3.", "1.2689184979432579055`3.", 
      "0.9055778642859664404`3.", "1.1866785151772175944`3.", 
      "1.1599283039034817095`3.", "1.429755808170558313`3.", 
      "1.0449506317686260307`3.", "0.5286966745296251693`3.", 
      "1.3405497271012991953`3.", "1.333148790668000862`3.", 
      "1.0671584600044338334`3.", "1.1074885631086441232`3.", 
      "1.4702126894754301099`3.", "1.1952183686572220532`3.", 
      "1.1570392257967601759`3.", "1.290613863434048031`3."},
     {
      TagBox["\<\"New Mexico\"\>",
       HoldForm], "0.8795839697297258138`3.", "1.0401115839017569072`3.", 
      "0.8680009811374889463`3.", "0.9569148706361715879`3.", 
      "0.3574387463878155321`3.", "0.9367994926300476968`3.", 
      "1.0028862641396117143`3.", "1.2319034067042225975`3.", 
      "0.5620552989538644505`3.", "0.72225527226332269`3.", 
      "0.9858781831569523437`3.", "1.2118065843125166216`3.", 
      "0.6661223559289603505`3.", "0.8213777946031333784`3.", 
      "1.1269752999363305784`3.", "1.0158984872448339913`3.", 
      "0.9494291560686159063`3.", "0.9519349782167989865`3.", 
      "1.1774815253824822937`3.", "0.9046147024974529196`3.", 
      "0.8987292624671448551`3.", "0.8116097403815882561`3.", 
      "0.9396987573248805885`3.", "0.9933836596843581449`3.", 
      "0.9029648316950515158`3.", "1.0106276890482673618`3.", 
      "1.0173916377629081311`3.", "1.0274375316539982979`3.", 
      "1.1679189383028108768`3.", "0.7887145764179857022`3.", "1.`3.", 
      "0.5333476244075254203`3.", "0.7592169466186396204`3.", 
      "1.0437128900828562073`3.", "0.7391111756877784436`3.", 
      "0.9277177520670699977`3.", "1.0008145156142633209`3.", 
      "0.7142424616438101507`3.", "0.9359506424423233937`3.", 
      "0.9148523608884671694`3.", "1.1276692466223967231`3.", 
      "0.8241677949130984353`3.", "0.4169907737052309664`3.", 
      "1.0573111101779475246`3.", "1.0514738837338621943`3.", 
      "0.8416834327532669696`3.", "0.8734923729399978778`3.", 
      "1.1595781786239614141`3.", "0.9426861493624767715`3.", 
      "0.9125737028732858176`3.", "1.0179259666175652405`3."},
     {
      TagBox["\<\"New York\"\>",
       HoldForm], "1.6491757523188005655`3.", "1.9501569638698125543`3.", 
      "1.6274582306459442422`3.", "1.7941673063589063672`3.", 
      "0.6701796915002292606`3.", "1.7564519832083265527`3.", 
      "1.8803613595423398024`3.", "2.3097569958668043247`3.", 
      "1.0538254474803918734`3.", "1.3541923488749898015`3.", 
      "1.848472062197942762`3.", "2.2720764635610108319`3.", 
      "1.248945950905713844`3.", "1.5400420982760899574`3.", 
      "2.11302206733974383`3.", "1.9047586241212849806`3.", 
      "1.7801319676323651868`3.", "1.7848302582659209244`3.", 
      "2.2077187025825783035`3.", "1.6961071186964660652`3.", 
      "1.6850722143283328711`3.", "1.5217274873646866053`3.", 
      "1.7618879588500172216`3.", "1.8625444536063479932`3.", 
      "1.6930136938326463766`3.", "1.8948761423113739528`3.", 
      "1.9075582063257296341`3.", "1.9263937526586672749`3.", 
      "2.189789332239372756`3.", "1.4788002052022585366`3.", 
      "1.8749497592885316973`3.", "1.`3.", "1.4234936313103923773`3.", 
      "1.9569092320271889882`3.", "1.3857963209432638538`3.", 
      "1.7394241759258506216`3.", "1.876476935143431464`3.", 
      "1.3391687315327101755`3.", "1.7548604317531808467`3.", 
      "1.7153022138323764501`3.", "2.114323182511742622`3.", 
      "1.5452732086856738691`3.", "0.7818367507841613926`3.", 
      "1.9824052115212329275`3.", "1.9714607052049824853`3.", 
      "1.5781141496378829589`3.", "1.6377543143842173812`3.", 
      "2.174150826887230465`3.", "1.767489168831808661`3.", 
      "1.711029844535311291`3.", "1.9085600460831498991`3."},
     {
      TagBox["\<\"North Carolina\"\>",
       HoldForm], "1.1585410120877444713`3.", "1.3699794090926855643`3.", 
      "1.1432845183492622477`3.", "1.260397143264555079`3.", 
      "0.4707992201435404705`3.", "1.2339022420433524962`3.", 
      "1.3209482067098391887`3.", "1.6225973513773750605`3.", 
      "0.7403092112960816885`3.", "0.9513160572614522286`3.", 
      "1.298546071116832388`3.", "1.5961268906201275538`3.", 
      "0.8773807788349574566`3.", "1.0818749479464894226`3.", 
      "1.484391655054057616`3.", "1.33808721179023871`3.", 
      "1.2505373599695493998`3.", "1.2538378950265490853`3.", 
      "1.5509157568553855203`3.", "1.1915101559921418416`3.", 
      "1.1837581688209909241`3.", "1.0690089887960126498`3.", 
      "1.2377209986026541349`3.", "1.3084318838095459745`3.", 
      "1.1893370343175671219`3.", "1.331144798004506671`3.", 
      "1.340053909879268802`3.", "1.3532858245985490266`3.", 
      "1.5383204280468535681`3.", "1.038852702025054986`3.", 
      "1.3171465737873044377`3.", "0.7024969961259702354`3.", "1.`3.", 
      "1.3747228571902795995`3.", "0.973517752705063817`3.", 
      "1.2219402585768012341`3.", "1.318219410237927653`3.", 
      "0.9407620112075547574`3.", "1.2327841819269327205`3.", 
      "1.2049946526654711086`3.", "1.485305684554000692`3.", 
      "1.0855497872956254143`3.", "0.549237968886762174`3.", 
      "1.3926337061981347504`3.", "1.3849452233868871049`3.", 
      "1.1086204496645026601`3.", "1.1505174862472605774`3.", 
      "1.5273344250130737378`3.", "1.2416558317895334214`3.", 
      "1.2019933260679420107`3.", "1.3407576992994561079`3."},
     {
      TagBox["\<\"North Dakota\"\>",
       HoldForm], "0.8427451438871269873`3.", "0.9965495240929587407`3.", 
      "0.8316472752085890213`3.", "0.9168372640872586453`3.", 
      "0.3424684602289810703`3.", "0.8975643604015266261`3.", 
      "0.960883278982974501`3.", "1.1803087021435815533`3.", 
      "0.5385152413986619637`3.", "0.6920057030300600413`3.", 
      "0.9445875321887491502`3.", "1.1610535769241252956`3.", 
      "0.638223751242623392`3.", "0.7869767657443872922`3.", 
      "1.079775205082371364`3.", "0.9733505228283478056`3.", 
      "0.9096650669833583336`3.", "0.9120659400318689746`3.", 
      "1.1281661236252497801`3.", "0.8667275369432671954`3.", 
      "0.8610885915146629194`3.", "0.777617818169475512`3.", 
      "0.9003421977956808183`3.", "0.9517786635800745721`3.", 
      "0.8651467661986705338`3.", "0.9683004767412977477`3.", 
      "0.9747811370636051717`3.", "0.9844062877985861869`3.", 
      "1.1190040377963468897`3.", "0.7556815518062374299`3.", 
      "0.958117897653457154`3.", "0.5110099046158039473`3.", 
      "0.7274193447571280056`3.", "1.`3.", "0.7081556457821492929`3.", 
      "0.8888629822262923104`3.", "0.9588982996414010378`3.", 
      "0.6843284857649973903`3.", "0.8967510618442414751`3.", 
      "0.8765364206777600305`3.", "1.0804400878223086407`3.", 
      "0.7896499149758235059`3.", "0.3995263234433443965`3.", 
      "1.0130286980493378874`3.", "1.0074359469206036843`3.", 
      "0.8064319610793051329`3.", "0.8369086759776003233`3.", 
      "1.1110126066680149201`3.", "0.9032044715742091435`3.", 
      "0.8743531976507832822`3.", "0.9752930871024848159`3."},
     {
      TagBox["\<\"Ohio\"\>",
       HoldForm], "1.1900563794225282684`3.", "1.4072464577928795746`3.", 
      "1.174384868866002938`3.", "1.2946832656747698976`3.", 
      "0.4836061991015108295`3.", "1.2674676333480017821`3.", 
      "1.3568814775481887204`3.", "1.66673627354893845`3.", 
      "0.7604475719513306015`3.", "0.977194359957051756`3.", 
      "1.3338699448557862078`3.", "1.6395457465311255788`3.", 
      "0.9012478471984969091`3.", "1.1113047963843895278`3.", 
      "1.5247710182268938654`3.", "1.3744867087140059306`3.", 
      "1.2845552703016924098`3.", "1.2879455886064471613`3.", 
      "1.5931047508337012881`3.", "1.2239223708877970856`3.", 
      "1.2159595092454583932`3.", "1.098088849253762693`3.", 
      "1.2713902701450100092`3.", "1.3440246776947553855`3.", 
      "1.2216901345792794668`3.", "1.3673554429857318341`3.", 
      "1.3765069061716951501`3.", "1.39009876382658987`3.", 
      "1.5801667959032093082`3.", "1.0671122320455361993`3.", 
      "1.3529764301959742368`3.", "0.7216067649243969447`3.", 
      "1.0272026341803745453`3.", "1.4121189401738261438`3.", "1.`3.", 
      "1.2551802524211382338`3.", "1.3540784506240990785`3.", 
      "0.9663532160492272954`3.", "1.2663191590512433722`3.", 
      "1.237773681391237406`3.", "1.5257099117369539637`3.", 
      "1.1150796010440117115`3.", "0.5641786884323607018`3.", 
      "1.4305170114551018141`3.", "1.422619381658537702`3.", 
      "1.1387778462016084582`3.", "1.1818145925437689088`3.", 
      "1.5688819446477969503`3.", "1.2754321411596327702`3.", 
      "1.2346907108042198963`3.", "1.3772298405180198293`3."},
     {
      TagBox["\<\"Oklahoma\"\>",
       HoldForm], "0.948115919707156451`3.", "1.1211508905421498493`3.", 
      "0.9356304535549474038`3.", "1.0314719843444267346`3.", 
      "0.3852882469817978112`3.", "1.0097893357572844293`3.", 
      "1.0810251953302143528`3.", "1.3278859911426609057`3.", 
      "0.6058473039903954252`3.", "0.7785291061360511129`3.", 
      "1.0626919458642391024`3.", "1.3062233439130183042`3.", 
      "0.7180226469147079263`3.", "0.8853746657030136273`3.", 
      "1.2147825105483754054`3.", "1.0950512534456588752`3.", 
      "1.0234030274328266465`3.", "1.02610408833480874`3.", 
      "1.2692238806025945818`3.", "0.9750968982558104294`3.", 
      "0.9687528997528233138`3.", "0.8748455428099993585`3.", 
      "1.0129144939084278893`3.", "1.0707822044700302173`3.", 
      "0.9733184793361279215`3.", "1.0893697860113852092`3.", 
      "1.0966607413688415629`3.", "1.107489351545489225`3.", 
      "1.2589162336287549747`3.", "0.8501665238814628573`3.", 
      "1.0779140506602101832`3.", "0.5749028982351161091`3.", 
      "0.8183706142595743989`3.", "1.1250327890754862499`3.", 
      "0.7966983212738435229`3.", "1.`3.", "1.0787920284853067498`3.", 
      "0.7698919849839992035`3.", "1.0088743482130308458`3.", 
      "0.9861322140813440899`3.", "1.2155305254316951921`3.", 
      "0.8883820462384713033`3.", "0.4494802139725405719`3.", 
      "1.1396905015799551986`3.", "1.1333984731789902854`3.", 
      "0.9072623983726646226`3.", "0.941549701936552079`3.", 
      "1.2499256115777429968`3.", "1.0161346457605832503`3.", 
      "0.9836760165901306043`3.", "1.0972367019489496381`3."},
     {
      TagBox["\<\"Oregon\"\>",
       HoldForm], "0.8788681179247978473`3.", "1.0392650862616380847`3.", 
      "0.8672945561793153156`3.", "0.9561360828673155897`3.", 
      "0.3571478438923647186`3.", "0.9360370758162659671`3.", 
      "1.0020700624271789554`3.", "1.2309008187677267761`3.", 
      "0.5615978687208543117`3.", "0.7216674628465283974`3.", 
      "0.9850758235174640686`3.", "1.2108203522295578315`3.", 
      "0.6655802304387230305`3.", "0.8207093140520666297`3.", 
      "1.1260581080247765834`3.", "1.0150716954992531051`3.", 
      "0.9486564605689107505`3.", "0.9511602433469264138`3.", 
      "1.1765232288420469471`3.", "0.9038784793626154817`3.", 
      "0.8979978292136757478`3.", "0.8109492095880043276`3.", 
      "0.938933980936645271`3.", "0.9925751916923942796`3.", 
      "0.9022299513120518131`3.", "1.0098051869561275031`3.", 
      "1.0165636308127189563`3.", "1.0266013488257559308`3.", 
      "1.1669684242998663702`3.", "0.7880726789158344309`3.", 
      "0.9991861472814836241`3.", "0.5329135579934870638`3.", 
      "0.7585990558426903356`3.", "1.0428634615099109035`3.", 
      "0.7385096480481591071`3.", "0.9269627264525343149`3.", "1.`3.", 
      "0.7136611734747215206`3.", "0.9351889164675745569`3.", 
      "0.9141078058075169624`3.", "1.1267514899404457672`3.", 
      "0.8234970437126947595`3.", "0.4166514046304547156`3.", 
      "1.0564506146566116314`3.", "1.050618138855136417`3.", 
      "0.8409984264033905238`3.", "0.872781478797677337`3.", 
      "1.1586344527709560174`3.", "0.9419189416771103821`3.", 
      "0.9118310022843558341`3.", "1.0170975248023851208`3."},
     {
      TagBox["\<\"Pennsylvania\"\>",
       HoldForm], "1.2314921290249064044`3.", "1.4562443984469469696`3.", 
      "1.2152749629863892797`3.", "1.3397619464318283461`3.", 
      "0.5004445487113433484`3.", "1.3115987118352336832`3.", 
      "1.4041257948057239276`3.", "1.7247692105409547638`3.", 
      "0.7869250697589569698`3.", "1.0112186141959010212`3.", 
      "1.3803130394795903866`3.", "1.6966319553776959594`3.", 
      "0.9326277723616394233`3.", "1.1499985491099956306`3.", 
      "1.5778609652282877539`3.", "1.4223440103333684035`3.", 
      "1.3292813113960346088`3.", "1.332789674847874194`3.", 
      "1.6485739627864460465`3.", "1.2665372770130553242`3.", 
      "1.2582971620011826333`3.", "1.1363224450611489639`3.", 
      "1.3156579282085648195`3.", "1.3908213429345994117`3.", 
      "1.2642273180131321482`3.", "1.4149644459982600902`3.", 
      "1.424434547648438826`3.", "1.4384996507899823963`3.", 
      "1.6351855301557909387`3.", "1.1042672744529637006`3.", 
      "1.4000847803118935638`3.", "0.7467318915484805498`3.", 
      "1.0629680919156246772`3.", "1.4612865324203472464`3.", 
      "1.0348183080388886488`3.", "1.2988835050942674387`3.", 
      "1.4012251712267500326`3.", "1.`3.", "1.3104102496066359921`3.", 
      "1.2808708667123467242`3.", "1.5788325494217968387`3.", 
      "1.1539047860810431718`3.", "0.58382243579517482`3.", 
      "1.4803251934148159512`3.", "1.4721525815112179654`3.", 
      "1.1784281640385182226`3.", "1.2229633770718115301`3.", 
      "1.6235077594731946898`3.", "1.3198405303332281732`3.", 
      "1.2776805523057556063`3.", "1.4251826533455257308`3."},
     {
      TagBox["\<\"Rhode Island\"\>",
       HoldForm], "0.9397760200628623482`3.", "1.1112889256506411135`3.", 
      "0.9274003796530095894`3.", "1.0223988608407201175`3.", 
      "0.3818991410221102298`3.", "1.0009069390513043129`3.", 
      "1.0715161875658556767`3.", "1.3162055249939495231`3.", 
      "0.6005180972868452266`3.", "0.7716809407584018273`3.", 
      "1.0533442026219942067`3.", "1.2947334286243544641`3.", 
      "0.711706713711678635`3.", "0.877586656129411865`3.", 
      "1.204096935064370986`3.", "1.085418868450039306`3.", 
      "1.0144008807890989896`3.", "1.0170781823844526114`3.", 
      "1.2580594232083588658`3.", "0.9665196661833569862`3.", 
      "0.9602314713112959341`3.", "0.8671501504221709363`3.", 
      "1.004004607414742137`3.", "1.0613632969919927989`3.", 
      "0.9647568907467205668`3.", "1.0797873768333310731`3.", 
      "1.0870141988556874364`3.", "1.0977475574704919881`3.", 
      "1.2478424452545660752`3.", "0.8426882152245427832`3.", 
      "1.0684324094169565674`3.", "0.5698458874025423699`3.", 
      "0.8111719915459380307`3.", "1.1151366778907613694`3.", 
      "0.7896903342670926171`3.", "0.9912037130999023396`3.", 
      "1.0693026642972116669`3.", "0.7631197942019942682`3.", "1.`3.", 
      "0.9774579122048560638`3.", "1.2048383701941715488`3.", 
      "0.880567582882861886`3.", "0.4455264570545208214`3.", 
      "1.1296654569507417099`3.", "1.1234287750367752467`3.", 
      "0.8992818580229079699`3.", "0.9332675606276167316`3.", 
      "1.2389309072945251584`3.", "1.0071964338873440581`3.", 
      "0.9750233201314585917`3.", "1.0875850931212897342`3."},
     {
      TagBox["\<\"South Carolina\"\>",
       HoldForm], "0.961449089856979614`3.", "1.1369174179007890484`3.", 
      "0.9487880430176973242`3.", "1.0459773746518564266`3.", 
      "0.3907064808147684627`3.", "1.0239898071862287934`3.", 
      "1.0962274428254736329`3.", "1.3465597940938234322`3.", 
      "0.6143672170316304899`3.", "0.7894774098433739956`3.", 
      "1.0776363764307366519`3.", "1.324592509260903764`3.", 
      "0.7281200600302868333`3.", "0.8978255177758353072`3.", 
      "1.2318657612052925047`3.", "1.110450746673741935`3.", 
      "1.0377949455653906475`3.", "1.0405339909625621961`3.", 
      "1.2870727296795303986`3.", "0.9888094966699633865`3.", 
      "0.9823762837473969881`3.", "0.8871483258712762071`3.", 
      "1.0271589138298595153`3.", "1.0858404067729842134`3.", 
      "0.9870060681902039673`3.", "1.1046893818657112212`3.", 
      "1.1120828685131872126`3.", "1.1230637593329190501`3.", 
      "1.2766201282670089028`3.", "0.8621222506897379459`3.", 
      "1.0930725467318474508`3.", "0.5829876461045146422`3.", 
      "0.8298792013624134888`3.", "1.1408539068197252463`3.", 
      "0.8079021351270099144`3.", "1.0140628059002968378`3.", 
      "1.0939628713886831161`3.", "0.7807188265330234346`3.", 
      "1.0230619523497391828`3.", "1.`3.", "1.2326242952767269508`3.", 
      "0.9008751905200314553`3.", "0.455801166977660301`3.", 
      "1.1557177478900860569`3.", "1.1493372359149992162`3.", 
      "0.9200210533816171906`3.", "0.9547905326403681526`3.", 
      "1.2675030728431706119`3.", "1.0304243500524812178`3.", 
      "0.9975092614802147836`3.", "1.1126669287151395696`3."},
     {
      TagBox["\<\"South Dakota\"\>",
       HoldForm], "0.780001735760962031`3.", "0.9223551914864281567`3.", 
      "0.7697301169978093414`3.", "0.8485776068668451265`3.", 
      "0.3169712639219511494`3.", "0.8307395944652711542`3.", 
      "0.8893443420076091271`3.", "1.0924332736695877825`3.", 
      "0.4984221221225431517`3.", "0.6404850308959183105`3.", 
      "0.8742618335206550836`3.", "1.0746117161057009187`3.", 
      "0.5907072112892454618`3.", "0.7283853816740415956`3.", 
      "0.9993846185943753822`3.", "0.9008833842792650967`3.", 
      "0.8419393886215777758`3.", "0.8441615137311243364`3.", 
      "1.0441727739842898769`3.", "0.8021986102813050679`3.", 
      "0.796979491246236781`3.", "0.7197232192085824459`3.", 
      "0.8333106184632357978`3.", "0.880917576372458713`3.", 
      "0.8007355298547144616`3.", "0.8962093203085096976`3.", 
      "0.9022074875325429844`3.", "0.9111160340067682083`3.", 
      "1.0356928166667401179`3.", "0.6994201347428330094`3.", 
      "0.886784846705013374`3.", "0.4729645913507104874`3.", 
      "0.673262083623058659`3.", "0.9255487752361721323`3.", 
      "0.6554325906302488156`3.", "0.8226860445523162723`3.", 
      "0.8875071468091467154`3.", "0.6333793918590175771`3.", 
      "0.8299868469816745364`3.", "0.8112772106081989331`3.", "1.`3.", 
      "0.730859511671220898`3.", "0.3697810993375981648`3.", 
      "0.9376074707586587029`3.", "0.9324311068012580428`3.", 
      "0.7463921138882552829`3.", "0.7745998000355943915`3.", 
      "1.028296357373528241`3.", "0.8359597924533433065`3.", 
      "0.809256531209513188`3.", "0.9026813222640101542`3."},
     {
      TagBox["\<\"Tennessee\"\>",
       HoldForm], "1.0672389471642368028`3.", "1.2620143498951301893`3.", 
      "1.053184784087580554`3.", "1.1610680210297106016`3.", 
      "0.4336965707638508658`3.", "1.1366611246060947183`3.", 
      "1.2168471885574680089`3.", "1.4947240286598634382`3.", 
      "0.6819670732379544833`3.", "0.8763449345160088855`3.", 
      "1.1962105159191580759`3.", "1.4703396466010801094`3.", 
      "0.8082363325045931357`3.", "0.9966147666443830912`3.", 
      "1.3674100187998254037`3.", "1.2326355064043141189`3.", 
      "1.1519852655353091405`3.", "1.1550256926954692852`3.", 
      "1.4286915026892525224`3.", "1.097609865467792193`3.", 
      "1.0904687953281507436`3.", "0.9847627453911441422`3.", 
      "1.140178933373590414`3.", "1.2053172494917762472`3.", 
      "1.0956080027250537814`3.", "1.2262402089550581815`3.", 
      "1.2344472133495382771`3.", "1.2466363500193949536`3.", 
      "1.4170887839969021237`3.", "0.9569830091470014608`3.", 
      "1.2133451539506486417`3.", "0.6471347554459616363`3.", 
      "0.9211922029769346483`3.", "1.2663839772978598277`3.", 
      "0.8967969632515324175`3.", "1.1256418387045687036`3.", 
      "1.2143334425240321345`3.", "0.8666226295812990528`3.", 
      "1.1356311763443893371`3.", "1.110031678664331527`3.", 
      "1.368252015648463872`3.", "1.`3.", "0.5059537345173735377`3.", 
      "1.2828833117525929217`3.", "1.2758007413341494092`3.", 
      "1.0212525142917230958`3.", "1.0598477377195990835`3.", 
      "1.4069685636603032507`3.", "1.1438036710253584963`3.", 
      "1.1072668800041004297`3.", "1.235095538675952481`3."},
     {
      TagBox["\<\"Texas\"\>",
       HoldForm], "2.1093607465557500384`3.", "2.4943275714704600034`3.", 
      "2.0815831809052811528`3.", "2.2948106552415250967`3.", 
      "0.8571862231189016404`3.", "2.2465712713640694111`3.", 
      "2.4050562443584131181`3.", "2.9542701766707432292`3.", 
      "1.3478842564300451178`3.", "1.732065354457655028`3.", 
      "2.3642685769682412864`3.", "2.9060752916541449121`3.", 
      "1.5974510659073705483`3.", "1.9697745043725161783`3.", 
      "2.7026384538977466775`3.", "2.4362613067380919611`3.", 
      "2.2768589041726937703`3.", "2.2828682029538568177`3.", 
      "2.8237591803765880413`3.", "2.1693878127311307591`3.", 
      "2.1552737353907326758`3.", "1.9463493956231074477`3.", 
      "2.2535240983272922716`3.", "2.3822677198766438377`3.", 
      "2.1654312004834753934`3.", "2.4236212232424016361`3.", 
      "2.4398420826502459358`3.", "2.4639334883229085337`3.", 
      "2.8008268094881348359`3.", "1.8914437108757824419`3.", 
      "2.3981345944764135525`3.", "1.2790393889734995163`3.", 
      "1.8207044243989122513`3.", "2.5029639884086542451`3.", 
      "1.7724880795809958173`3.", "2.2247920351419328925`3.", 
      "2.400087912548719643`3.", "1.7128495561120140234`3.", 
      "2.2445356143633599623`3.", "2.1939390954850537691`3.", 
      "2.7043026314523241613`3.", "1.9764653006344432971`3.", "1.`3.", 
      "2.5355743504419988074`3.", "2.5215758957706452392`3.", 
      "2.0184701576832715885`3.", "2.0947522775587020117`3.", 
      "2.7808245451580719128`3.", "2.2606882665199150605`3.", 
      "2.1884745668698664085`3.", "2.4411234751614261088`3."},
     {
      TagBox["\<\"Utah\"\>",
       HoldForm], "0.8319064854824897414`3.", "0.983732766911627455`3.", 
      "0.820951347982527759`3.", "0.9050456969804478327`3.", 
      "0.3380639273975451681`3.", "0.8860206646957322835`3.", 
      "0.948525230166950575`3.", "1.1651285935100888593`3.", 
      "0.5315893246021688417`3.", "0.6831057248057912843`3.", 
      "0.9324390651593806861`3.", "1.1461211110404081605`3.", 
      "0.630015469918641692`3.", "0.7768553519360010236`3.", 
      "1.0658880712476940063`3.", "0.9608321311159364359`3.", 
      "0.8979657424661177779`3.", "0.9003357375641181626`3.", 
      "1.1136566276924015806`3.", "0.855580437762736172`3.", 
      "0.8500140155681206872`3.", "0.7676167710419620505`3.", 
      "0.8887627759503325872`3.", "0.9395377104447240082`3.", 
      "0.8540199975228490427`3.", "0.9558470343494042622`3.", 
      "0.9622443460295041555`3.", "0.9717457064090422301`3.", 
      "1.104612376679034271`3.", "0.7459626299445992769`3.", 
      "0.9457954147778680267`3.", "0.5044377376473060739`3.", 
      "0.7180639069335627483`3.", "0.9871388657849223656`3.", 
      "0.6990479609765800994`3.", "0.8774311961130658009`3.", 
      "0.9465657799111032559`3.", "0.6755272452623729165`3.", 
      "0.8852178260803493051`3.", "0.8652631681270196155`3.", 
      "1.0665444028414756622`3.", "0.779494121436394805`3.", 
      "0.3943879617750830261`3.", "1.`3.", "0.9944791779941639751`3.", 
      "0.7960603313925359238`3.", "0.8261450811700894783`3.", 
      "1.096723724419014343`3.", "0.8915882376416349696`3.", 
      "0.8631080238244142553`3.", "0.9627497118102223595`3."},
     {
      TagBox["\<\"Vermont\"\>",
       HoldForm], "0.8365247899512801271`3.", "0.9891939305313443328`3.", 
      "0.8255088353266109803`3.", "0.9100700316379666059`3.", 
      "0.3399406793809503676`3.", "0.8909393824441961596`3.", 
      "0.9537909401784548202`3.", "1.1715967707439786408`3.", 
      "0.534540427155417459`3.", "0.6868979662134263789`3.", 
      "0.9376154732973731837`3.", "1.1524837687925267797`3.", 
      "0.6335129823324856876`3.", "0.7811680416506014969`3.", 
      "1.0718053176312446519`3.", "0.9661661625273113616`3.", 
      "0.9029507729636823235`3.", "0.9053339250199984719`3.", 
      "1.1198390598168330771`3.", "0.8603301674836645803`3.", 
      "0.8547328434594021531`3.", "0.7718781730455363546`3.", 
      "0.8936967164490478889`3.", "0.9447535265039381379`3.", 
      "0.8587610645055263223`3.", "0.9611533911422060736`3.", 
      "0.9675862173105760219`3.", "0.9771403242137512565`3.", 
      "1.1107445999090758278`3.", "0.7501038196186113623`3.", 
      "0.9510459702992578439`3.", "0.507238108961459149`3.", 
      "0.7220502176645639649`3.", "0.992618938262692676`3.", 
      "0.702928705241008484`3.", "0.8823022296784729055`3.", 
      "0.9518206120919488016`3.", "0.6792774149629678786`3.", 
      "0.8901320868937731927`3.", "0.870066651241739066`3.", 
      "1.0724652928306303827`3.", "0.7838214602025274438`3.", 
      "0.3965773949843296383`3.", "1.0055514706873716197`3.", "1.`3.", 
      "0.8004796369876409243`3.", "0.830731401371721478`3.", 
      "1.102812154027271514`3.", "0.896537863608107828`3.", 
      "0.8678995427187107366`3.", "0.9680943886146122832`3."},
     {
      TagBox["\<\"Virginia\"\>",
       HoldForm], "1.0450294439709722744`3.", "1.2357515229917298686`3.", 
      "1.0312677514610612091`3.", "1.1369059118889462919`3.", 
      "0.4246712391838131289`3.", "1.1130069289419686965`3.", 
      "1.1915243013148390166`3.", "1.4636184564955618125`3.", 
      "0.6677751718544597316`3.", "0.8581079823571224713`3.", 
      "1.1713170828752132016`3.", "1.4397415193839848469`3.", 
      "0.7914167369909834035`3.", "0.9758749698996558102`3.", 
      "1.338953882280696772`3.", "1.2069840604105567883`3.", 
      "1.1280121707550988097`3.", "1.1309893258833471781`3.", 
      "1.398960083520679153`3.", "1.0747683360456897212`3.", 
      "1.0677758733200590781`3.", "0.9642695921038823819`3.", 
      "1.1164515312496902377`3.", "1.1802343030976123918`3.", 
      "1.0728081325556383129`3.", "1.2007218506634490262`3.", 
      "1.2087580652916910539`3.", "1.2206935430499125863`3.", 
      "1.3875988202386031044`3.", "0.9370679589569530252`3.", 
      "1.1880951449036568208`3.", "0.633667723104480051`3.", 
      "0.9020219682061845159`3.", "1.2400302173808049409`3.", 
      "0.8781343993786832744`3.", "1.1022169570718202904`3.", 
      "1.1890628669504112808`3.", "0.8485880009630471625`3.", 
      "1.1119984141551828945`3.", "1.0869316482752359342`3.", 
      "1.33977835696923394`3.", "0.9791897557222049913`3.", 
      "0.4954247137088043501`3.", "1.2561861966551148129`3.", 
      "1.2492510162571937952`3.", "1.`3.", "1.0377920474003858116`3.", 
      "1.377689204159353916`3.", "1.1200008372254821052`3.", 
      "1.0842243857505031664`3.", "1.2093928988096910968`3."},
     {
      TagBox["\<\"Washington\"\>",
       HoldForm], "1.0069738408467435826`3.", "1.190750619150746118`3.", 
      "0.9937132916409721785`3.", "1.0955045519348847088`3.", 
      "0.4092064881857517676`3.", "1.0724758700261696791`3.", 
      "1.1481339679751298632`3.", "1.4103195916386607828`3.", 
      "0.6434575920360935677`3.", "0.8268592773539145713`3.", 
      "1.1286626119455246758`3.", "1.3873121527481938243`3.", 
      "0.7625966483106518984`3.", "0.940337683589088001`3.", 
      "1.2901947799992353264`3.", "1.1630307472811995626`3.", 
      "1.0869346836687654673`3.", "1.0898034232546063749`3.", 
      "1.3480158062735209517`3.", "1.0356297668091864425`3.", 
      "1.0288919403408237368`3.", "0.9291549251310286185`3.", 
      "1.0757950343195848077`3.", "1.1372551042899556771`3.", 
      "1.0337409457347124047`3.", "1.1569965810310396519`3.", 
      "1.1647401503216044819`3.", "1.1762409878816139947`3.", 
      "1.3370682726992028481`3.", "0.9029438617343991983`3.", 
      "1.1448296871032807891`3.", "0.6105921939677453285`3.", 
      "0.8691740994409254117`3.", "1.1948735013792165951`3.", 
      "0.8461564159971773718`3.", "1.0620788238191027618`3.", 
      "1.1457621687590985797`3.", "0.817685973879560156`3.", 
      "1.071504081131359704`3.", "1.0473501420616415626`3.", 
      "1.2909892307667107891`3.", "0.9435317587709633531`3.", 
      "0.4773834169859145232`3.", "1.2104411474358420777`3.", 
      "1.2037585173123088706`3.", "0.9635841809589378801`3.", "1.`3.", 
      "1.32751952340586216`3.", "1.0792150894112408782`3.", 
      "1.0447414667191061117`3.", "1.1653518658570918339`3."},
     {
      TagBox["\<\"West Virginia\"\>",
       HoldForm], "0.758537876914433835`3.", "0.8969740920237287215`3.", 
      "0.7485489095418483384`3.", "0.8252266973251560896`3.", 
      "0.3082489417073870516`3.", "0.8078795461136748242`3.", 
      "0.864871625412706923`3.", "1.0623720154565925708`3.", 
      "0.4847066884449650109`3.", "0.6228603517879256467`3.", 
      "0.8502041529678197842`3.", "1.045040866283404175`3.", 
      "0.5744523036121884303`3.", "0.7083418865106957664`3.", 
      "0.971883845963434955`3.", "0.8760931397056574102`3.", 
      "0.818771147621350204`3.", "0.820932124944290748`3.", 
      "1.0154395340379432409`3.", "0.7801239443561567939`3.", 
      "0.7750484435069668353`3.", "0.6999180868897537818`3.", 
      "0.810379821427818252`3.", "0.8566767450411824779`3.", 
      "0.7787011245473542027`3.", "0.8715476952554855939`3.", 
      "0.8773808066742149073`3.", "0.8860442103810795408`3.", 
      "1.0071929256971247993`3.", "0.6801736967436994662`3.", 
      "0.8623825615506767129`3.", "0.4599496905335299962`3.", 
      "0.6547354551976658182`3.", "0.9000797956731134219`3.", 
      "0.6373965889603586223`3.", "0.8000476114236354306`3.", 
      "0.8630849856125281408`3.", "0.6159502436406499585`3.", 
      "0.8071475125144123663`3.", "0.788952722423680444`3.", 
      "0.9724822934841442791`3.", "0.7107479341247306139`3.", 
      "0.3596055715709156492`3.", "0.9118066635512481598`3.", 
      "0.9067727412580465034`3.", "0.725853114752529117`3.", 
      "0.7532845900709743755`3.", "1.`3.", "0.8129560962255565456`3.", 
      "0.7869876474876503689`3.", "0.877841602560604545`3."},
     {
      TagBox["\<\"Wisconsin\"\>",
       HoldForm], "0.9330613060609557802`3.", "1.1033487493214654354`3.", 
      "0.9207740897906517625`3.", "1.0150938053808443748`3.", 
      "0.3791704658327116743`3.", "0.9937554437005252227`3.", 
      "1.0638601880571251587`3.", "1.3068012164359672912`3.", 
      "0.5962273863193739071`3.", "0.7661672686628228497`3.", 
      "1.045818042222945185`3.", "1.2854825385225417808`3.", 
      "0.7066215583834004647`3.", "0.871316286081659044`3.", 
      "1.1954936440919234315`3.", "1.077663534074272255`3.", 
      "1.0071529710187206209`3.", "1.0098111432533267264`3.", 
      "1.2490705694347941737`3.", "0.9596138684218804436`3.", 
      "0.9533706027981218978`3.", "0.8609543493669305023`3.", 
      "0.9968309791762438566`3.", "1.0537798400413194467`3.", 
      "0.9578636880426341966`3.", "1.0720722795510874352`3.", 
      "1.0792474658198314036`3.", "1.0899041344235698169`3.", 
      "1.238926591944365956`3.", "0.836667195069515421`3.", 
      "1.0607984435501504405`3.", "0.5657743298426731868`3.", 
      "0.80537615528995056`3.", "1.1071690093131231095`3.", 
      "0.7840479847801171636`3.", "0.9841215474465922126`3.", 
      "1.0616624804460082645`3.", "0.7576672916291818282`3.", 
      "0.9928549847425800293`3.", "0.970473960508666497`3.", 
      "1.1962297816564091822`3.", "0.8742759140679744131`3.", 
      "0.4423431637212820068`3.", "1.121593980025048357`3.", 
      "1.1154018592985128593`3.", "0.8928564754266133126`3.", 
      "0.9265993496676772926`3.", "1.2300787270590165839`3.", "1.`3.", 
      "0.9680567636327790437`3.", "1.0798142810371955995`3."},
     {
      TagBox["\<\"Wyoming\"\>",
       HoldForm], "0.9638497876503671853`3.", "1.139756252702561372`3.", 
      "0.9511571267115660503`3.", "1.0485891360043307128`3.", 
      "0.3916820584051469253`3.", "1.0265466665108645129`3.", 
      "1.098964676477058341`3.", "1.3499220970596792136`3.", 
      "0.6159012660393391548`3.", "0.7914487016109102862`3.", 
      "1.0803271889742861899`3.", "1.3278999608437986948`3.", 
      "0.7299381450853113893`3.", "0.9000673501953679205`3.", 
      "1.2349416780124061971`3.", "1.113223495314652077`3.", 
      "1.0403862757378267367`3.", "1.0431321604157364429`3.", 
      "1.2902864959565681154`3.", "0.9912785122442455104`3.", 
      "0.9848292358605655394`3.", "0.8893634977933209464`3.", 
      "1.0297236862800123703`3.", "1.0885517044339958191`3.", 
      "0.9894705806796971353`3.", "1.107447744621890225`3.", 
      "1.1148596924934365171`3.", "1.125868002134027898`3.", 
      "1.2798077948395371142`3.", "0.8642749335584367531`3.", 
      "1.0958019027410585401`3.", "0.5844433416481897902`3.", 
      "0.8319513746979619671`3.", "1.1437025708681632845`3.", 
      "0.809919432655848425`3.", "1.016594877921752898`3.", 
      "1.0966944505009805903`3.", "0.7826682484877446853`3.", 
      "1.025616494860014117`3.", "1.0024969577887318893`3.", 
      "1.2357021061113983303`3.", "0.9031246378436757725`3.", 
      "0.4569392832516582544`3.", "1.1586035263222558836`3.", 
      "1.1522070824780967554`3.", "0.922318307116655737`3.", 
      "0.9571746042974519891`3.", "1.2706679745131479708`3.", 
      "1.0329972761590437556`3.", "1.`3.", "1.1154452110690592275`3."},
     {
      TagBox["\<\"District of Columbia\"\>",
       HoldForm], "0.8640942451369702497`3.", "1.0217949222357609852`3.", 
      "0.8527152362776858923`3.", "0.9400633268211778317`3.", 
      "0.3511441481108274548`3.", "0.9203021863592986054`3.", 
      "0.9852251509724931288`3.", "1.2102092363334402253`3.", 
      "0.5521573448229252338`3.", "0.7095361509081868007`3.", 
      "0.9685165871471935365`3.", "1.1904663247163163533`3.", 
      "0.6543917512413970107`3.", "0.8069130973566420424`3.", 
      "1.1071289434546227369`3.", "0.9980082251173252827`3.", 
      "0.9327094378223248685`3.", "0.9351711317277368695`3.", 
      "1.1567457398646576358`3.", "0.8886841795610825995`3.", 
      "0.8829023838084262328`3.", "0.7973170613561035281`3.", 
      "0.9231503941758913674`3.", "0.975889890092146908`3.", 
      "0.8870633634541080337`3.", "0.9928302471804024222`3.", 
      "0.9994750808288812849`3.", "1.0093440636631352901`3.", 
      "1.1473515526710185519`3.", "0.7748250877603417596`3.", 
      "0.982389714767635919`3.", "0.5239552206137051117`3.", 
      "0.7458469196354408436`3.", "1.0253328083878020383`3.", 
      "0.7260952170654887058`3.", "0.9113803778380412743`3.", 
      "0.9831898865296058511`3.", "0.7016644481691967933`3.", 
      "0.9194682846654996732`3.", "0.8987415498677195826`3.", 
      "1.1078106695416112025`3.", "0.8096539649653502299`3.", 
      "0.4096474472410176657`3.", "1.0386915599483663449`3.", 
      "1.0329571287269272556`3.", "0.8268611474271266065`3.", 
      "0.858109923104229976`3.", "1.1391576761491682261`3.", 
      "0.9260851773876045881`3.", "0.896503019670132587`3.", "1.`3."}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, 
      "Rows" -> {False, True, {False}, False}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{
      "Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", 
       "Connecticut", "Delaware", "Florida", "Georgia", "Hawaii", "Idaho", 
       "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", 
       "Maine", "Maryland", "Massachusetts", "Michigan", "Minnesota", 
       "Mississippi", "Missouri", "Montana", "Nebraska", "Nevada", 
       "New Hampshire", "New Jersey", "New Mexico", "New York", 
       "North Carolina", "North Dakota", "Ohio", "Oklahoma", "Oregon", 
       "Pennsylvania", "Rhode Island", "South Carolina", "South Dakota", 
       "Tennessee", "Texas", "Utah", "Vermont", "Virginia", "Washington", 
       "West Virginia", "Wisconsin", "Wyoming", "District of Columbia"}, {
      "Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", 
       "Connecticut", "Delaware", "Florida", "Georgia", "Hawaii", "Idaho", 
       "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", 
       "Maine", "Maryland", "Massachusetts", "Michigan", "Minnesota", 
       "Mississippi", "Missouri", "Montana", "Nebraska", "Nevada", 
       "New Hampshire", "New Jersey", "New Mexico", "New York", 
       "North Carolina", "North Dakota", "Ohio", "Oklahoma", "Oregon", 
       "Pennsylvania", "Rhode Island", "South Carolina", "South Dakota", 
       "Tennessee", "Texas", "Utah", "Vermont", "Virginia", "Washington", 
       "West Virginia", "Wisconsin", "Wyoming", 
       "District of Columbia"}}]]]], "Output",
 CellChangeTimes->{{3.881913626778555*^9, 3.881913669543036*^9}, {
   3.881913716192999*^9, 3.881913754872609*^9}, {3.881913797274357*^9, 
   3.881913887320506*^9}, {3.8819139687913923`*^9, 3.881914045898974*^9}, {
   3.881914142068199*^9, 3.881914232106791*^9}, 3.8819148742932863`*^9, 
   3.882060414076387*^9, 3.882127195609993*^9, 3.882127504408031*^9, 
   3.8821391180426683`*^9, {3.88223699312916*^9, 3.8822370156931868`*^9}, 
   3.8822370819563847`*^9, 3.88251437385229*^9, 3.882555555141938*^9, {
   3.882596589233699*^9, 3.882596594834197*^9}},
 CellLabel->
  "Out[124]//TableForm=",ExpressionUUID->"25dc07c4-4103-4126-9bbe-\
a49c70580184"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"relativeVoterInStateDecisiveProbability", "=", 
   RowBox[{"Dataset", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"nr", "|->", "\[IndentingNewLine]", 
       RowBox[{"Merge", "[", 
        RowBox[{
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"nr", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Association", "@", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Apply", "[", "Rule", "]"}], "/@", 
              "usa50StateAndDCPopData"}], ")"}]}]}], "\[IndentingNewLine]", 
          "}"}], ",", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"nr", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "*", 
               RowBox[{"UniformAbsoluteBanzhafIndexApproximation", "[", 
                RowBox[{"#", "[", 
                 RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ")"}], "/", 
             "uniformVoterDecisiveProbability"}]}], "}"}], "&"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", ")"}], "/@", 
     "electorsAbsoluteBanzhafIndex"}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.881824513982751*^9, 3.881824624048279*^9}, {
   3.881825352973261*^9, 3.8818254059035482`*^9}, {3.881825436632959*^9, 
   3.881825622568956*^9}, {3.881826066291808*^9, 3.881826118323556*^9}, {
   3.8818271310418386`*^9, 3.881827136615749*^9}, {3.881827638318528*^9, 
   3.881827700378085*^9}, {3.881862325867714*^9, 3.881862333000744*^9}, {
   3.881862417515656*^9, 3.8818624197113457`*^9}, {3.881862455526804*^9, 
   3.881862524213022*^9}, {3.88186258155928*^9, 3.88186258340443*^9}, {
   3.8818635858134108`*^9, 3.881863587482275*^9}, {3.8818636237390547`*^9, 
   3.881863675337584*^9}, {3.881867944470442*^9, 3.881868107878253*^9}, {
   3.8818684135245047`*^9, 3.881868431581197*^9}, {3.881868539134243*^9, 
   3.8818685734511023`*^9}, {3.8818701556254272`*^9, 3.881870161348727*^9}, {
   3.8818702577156878`*^9, 3.8818703039976254`*^9}, {3.881871323000846*^9, 
   3.881871325731204*^9}, 3.881913623585431*^9, 3.882127997884903*^9},
 CellLabel->
  "In[125]:=",ExpressionUUID->"db4ee0c8-5beb-42f8-a040-31d62239ea92"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Transpose", "[", "relativeVoterInStateDecisiveProbability", "]"}],
    ",", "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.881825611464286*^9, 3.881825661676818*^9}, 
   3.881868437427218*^9, 3.8818708930343037`*^9, 3.881887311418353*^9},
 CellLabel->
  "In[126]:=",ExpressionUUID->"df073fad-2f06-42df-85f0-eea5e1e55ef1"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnUuD7wPZBy3B3MNqh2evHlukVR/AsJ3qHfI
LQzu+PwbKn+gyaH4QeB/Vb1jEP6DVofA3290EvZA+QydDl9ETrrtqj8K4Sv0
OPgWrbafLQiVd+h3iPAKurdbGypvMNHBV7ZQW3UGlH9gkkP7WSO7kCdHIPyA
KQ4u4f9dtZyg8g+mOhye/OrA57VQ+YLpDgceJ6j+YITKM8x0OP3yxfOl7VD5
CbMc1GNWVppdhvIV5jicXzrZoTMDyt8w18Hz1LTl91dD+Q7zHRjFrsde9YPy
MxY4XC9Trq6bCeUbLHSwkkm7eNsEyv+x0OHlO8nmZzVQ/oFFDgaai9T8tKH8
jsUOaZf1w76lwfyzxCFrfkz28VlQvsRSBwlPT+4jPlD+g6UOGjwfX3u3QPkr
ljlor8p2VnOD+Xe5g5tJkaFpMZRvscJB8N4FqXUw9zCsdHCdE35oTwqUf2Kl
Q+2RP2u4tGDhscrh59e5kxKCofyI1Q5F4szrbeVg4bPGodXp6bKVrlD+izUO
F/Usdx4ThIXXWof1u23npdtB+RXrHNTywy3m8cDCb73DgpZ/Xw2B7gEA+T7I
dQ==
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnHv5i3b8PWYPZhrUO3wKs5ih0vUUQjfod6h
Sc4hbvOFQxD+gSYH23I7Qbml+yH8B60Od999Mxb3gcozdDoc4PstNlXwAISv
0OPg+bfv26Y7e6Dm9TtctrU+9Yl/F9S+iQ5BApuu9p3YDjV/kgPHd/nud8G7
IfyAKQ67H2W3CLjvhNo31eHCb4bdc1uh6gumOzBGNDNV/t4KtX+mw8uqP6+V
T+2A8CfMctCyyY+yj4SqV5jjsHzRddef4tsg/A1zHewcTpexvN8Cdd98h2hN
9gNtbzZD+BkLHNRL9jFfMYCqN1joYPPaJaleFWrfj4UOPu/rz31yh+o/sMjh
ghp3xuMCqP6OxQ7zGaKijkdC1QcscVgec7XnWwdUvcRSh3UBOU5/DkHVP1jq
EN8aHDhXFMpfscxBzfxMAkvxJqh/lzucbxHdLysA1W+xwiFBPnF+XDZUPcNK
h4qq/7FLr0DVn1jpcEKrrv2dE5Q/YZVDF/cPoy8boeojVjtk7Xklck8ZyldY
42C19H430xyo+hdrHDJ1Dq4wkIbyN6x1mD/xjGXl8o0QfsU6hw0K8UflX0Pl
HdY7hFh1XMwo3WQPAEGLx4Y=
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDm8enbvZ9u+UPZhrUO0wK/1/wgLxkxC+Q71D
mVIYyzFlqPyBJgfWfYdNP0dD5R+0OkQfTjxs8+YEhM/Q6VBeyTJvXymUr9Dj
oGsa8zLTHcp36Hf4dcVjyUZ+qH6DiQ7Gl/IFjI9B5Q9McujU3G52vBXKD5ji
UHI/c5qnL5T/YKrD26D+kJdyUH7BdIfEnfeUVq+A2T/TYdOLW/Ff6qD8CbMc
ngVtd6gIhLlnjsPrQzY3TxpA+RvmOkyQ+7Z+LSfMffMdLp0RPKn68TiEn7HA
4ZqrSs+vRKi8wUKHVTnVUVeMofwfCx2WenNPf6wMc/8iB+mwO66z2KH8jsUO
n4W3RKp+gpoXsMTBql78RdotKF9iqcO12bf0b6rA/LfUYfev9JS1IlD+imUO
hTxTJ81mgfl3ucOUSas11d9B9VuscLg6Nf9bH8w8hpUOxxoOLv15Bso/sdKh
c+PNksd8sPBY5SC8cHP41N9Q+YjVDp4WQYINr6F8hTUO7xncD3jCzHuxxiHR
cLrFvJNQ/oa1DjVREudTDkH5Fesczk5z5Az8CeU7rHe4cO2K2eG3x+0BHs7R
9w==
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDsnmRns3rDxmD+YaVDvYMBV8+yx0FMJ3qHfg
ymq8dWYVlH+gyWHRi93bQs0PQfgPWh10jrr48fFB+QydDqrRyy5Pu3YQwlfo
ccg5uV36zxko36HfQV2QuaNiHZRvMNHh6kf759azoPwDkxz41I7YeLZD+QFT
HNQW9e37VArlP5jqkO340G9BBpRfMN3B99pTvVlRUD7DTAfVpB7zc8FQ/oRZ
DpILt0mtDzwAdc8chz6TvQe2RUL5G+Y6OK/ZmOcfBeU7zHe4Z2l4XS4Jys9Y
4JA0/UyDQg6Ub7DQQWoCe4BIKpT/Y6EDy3+rHQEFUP6BRQ4xf3+zZhZC+R2L
Hcwm7L7aUwrlByxxEPNdeXhTGZQvsdSB67PU9t/FUP6DpQ6JywzlAqug/BXL
HKImOT/ou70f6t/lDte2s8/99ATKt1jhcO3EtYjZ76F8hpUOoQ1F3iwMUP0n
Vjow3rm6P5oFyp+wyqGyW8I1lQPKj1jtMGGWdeI8Xlj4rHG4HuXKYCoI5b9Y
47Ct+EtEuAgsvNY6JAmlConJQvkV6xxeLZ6aYi4PC7/1DnH7l1yeVbrfHgCb
RcMg
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkfCWvefj7xrD+YaVDuccpWyTmmD8h3qHdYY
hwZ9CYbyDzQ5SPvP9n+kfA/Cf9DqsEbk/M6H36HyDJ0OstVXLzyphcor9Dgw
7l+aO7sIynfod7g7y/55aA+UbzDRYWZtxbJLa6D8A5McprgeeLX7MJQfMMWh
qHVqqcAVmH1THQQYsoUsn0H5BdMdWrqPXXz8HspnmOlw7NFOoTqO+xD+hFkO
us6VWv95oHyFOQ6VX3dJfJWD8jfMdbBRF1ydIgvlO8x3CCi/zzxFH8rPWODA
y/kp+bc0lG+w0GH754X3JxpB+T8WOoRw/LNfoAblH1jk4PjTucldE8rvWOzw
51uYAq8JlB+wxOGI3ed/d8ygfImlDk4fp5wVCYbyHyx1SOnwb1V1gPJXLHPg
v2QzP84fyi9Y7qCosc5slx+Ub7HCYVYUa++JACifYaVDvPZCjuUxUP6JlQ73
Zzl6R8bCwmOVww+fhY4PYPyI1Q4CcTfv+ybBwmeNg3ubwJMDMP6LNQ4qPyPu
lcH4G9Y6LE0t2d4aAeVXrHPQfb6p90cBLPzWOwhXuVQsSLhvDwDF4Mvg
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDiZmHqzPJp2wB3MNqh18LKK8/6eehPAd6h1e
FFuqzZ4LlT/Q5GB11fn+pTIo/0GrgxqffG3h9WMQPkOnQ3HxvFzFt1C+Qo/D
rcJlvV5ax6Hm9TuEGSlFWNpB+QYTHTgvrEjNd4GqPzDJ4arG4y2c2VB+wBSH
UIPKEs8uKP/BVIeHs6smTT1/FMIvmO6QlnF7++bPUD7DTIfDu9b1ZklB1U+Y
5VB1yM7jmwnMPXMc3p7/dfTPKqj6DXMdpHaemJZ3DMp3mO/wsD9G58kLKD9j
gUMhc9heGR6ofoOFDpddHHM+dEPlfyx08Kk7qvhkE5R/YJGDS/8636pTUH7H
Yoe5GpbnYp9A+QFLHO4fWG0k3AzlSyx1CK5asdp9KpT/YKnDk6yKhrsbofwV
yxwsdn3v3XAa5t/lDkue/978sgzKt1jhkDxR8uU+mHsYVjqcy3eOW7wYyj+x
0iH3q9bbtq1Q/oRVDk807tRx5kD5Easd+s/lKgU3QPkKaxzS0nctWj8Ryn+x
xiHrUWLjoYWw8FrrcFwm4MaTdCi/Yp3D8eCDpQ3lsPBb79Cx7CajFdA9AI1b
0Ro=
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpO0D95bvu+IPZhrUO0Q881tWUXzMQjfod7B
+czyNWFXD0P4B5ocfM9kK7wsOgrhP2h1kFik8nTvKqh+hk6HmMNWHCe+QdUr
9DhMEl5ZKN0P5Tv0O7CvMVnLqwTlG0x0WMilV9509hDU/EkOz5Nt0mpboPyA
KQ7yCl7bZFyh/AdTHQS/LAu3FYDyC6Y7PEqO/rrr/kGo/TMdDHWfn7qwC8qf
MMshY50X09fJUL7CHIcSX4tZ9j5Q/RvmOkxf4r6ZUQHKd5jvUPd15TkdBig/
Y4HDs3n9nCXPoPoNFjpcWfnlWsFeKP/HQocLLU/yJFZD+QcWOURqOG/0mQDl
dyx2CA36uOhbFZQfsMTB48YDpbQUKF9iqcPrI8fSWr2h/AdLHTLDGfy220L5
K5Y5RG17+n3LVii/YLmDRvSTXuf5UL7FCgdzjaYg326Y/1c6BCQ5ZErUQPkn
Vjpse3orTDILFh6rHLJqCu9KRUL5EasdtE1ajGd7wcJnjUPh7a9LSqyh/Bdr
HJRcr8rc0IHyN6x1cDv7YZGaKpRfsc7hfb5Fhos4lO+w3qHH8EDxR96D9gBN
oMeV
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpZVPNHPdx+2B3MNqh1UhRReeUQdgvAd6h3e
WpzwPDPhKIR/oMnBY2vKpBIlqPyDVgfJV3m9/4v3Q/gMnQ4/Zq786jl/N4Sv
0OPwb+rnXceZoPIO/Q6tJY9nT2XYA7VvogN3eozDtt6dUPMnOTiJiN/4pg+V
D5ji0H3A70G30C6ofVMd2ub2Mb132gHhF0x3yP69Yeb/Yqg8w0yHWVnfsi/e
hspPmOXw4HfDsgeZ26HumeNwuk1h10b1bRD+hrkO2YHsH/f/hco7zHeQP3+s
oeoqVD5jgUOT25KI8DNboe5d6LDG/vHjiXFQ9T8WOkzPuzR3WyZU/YFFDote
Flxgr4Gq71jskL0shKfjA1Q+YIlDv1V+nKYAlC+x1OFkz3GrAmuo+gdLHf7N
z2TWaNwC4a9Y5iDRWLjk11mofMFyByG+t4qrhKF8ixUO8/Yq105Ng6pnWOkQ
8/udxKYpUPkTKx0eBs813/AWKj9hlcPXqqKq7AAoP2K1Q76DeaxoMlS9whqH
JpWbKS6nofIv1jjUcs94HmAN5W9Y69B5n1+QaddmCL9incNGked/5TdB5R3W
O3SpzhSKMNxiDwDBg8s0
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgYzr4d9cr1iD+YaVDusWrFEIdMIyneod+jn
NTf9eQbKP9Dk8LdEyFe8Asp/0OrwP/fJnMVnoXyGTodVqdonPDuhfIUeh1U3
tX+a3IKZ1+8gfd1N59tqmH0THYwtjyYl3ICZP8kh4TfnrEdboPyAKQ42sXvd
LK/B7Jvq8CwtZ07WDii/YLrDMQMxRoYrMPtnOmy44t29Zi+UP2GWw9HCBzs3
w+QV5jjceV974vUBKH/DXId8vUQXkcsw9813kOli23P6EJSfscBBrappR9QD
mHsXOnS1L085/xTK/7HQ4UTq1B/6d2HuX+TglJ52bsMbKL9jscOr35LZF+7A
/LPEoXsx46vZr6F8iaUO4dIzk6xg7nuw1MHhzupZRS+h/BXLHOam3c12uQfz
73IHg23S0l9g8hYrHEoyA3LSYeHLsNJhVpXNnc+voPwTKx0OpN46f+02LDxW
OVS2PlD6/wzKj1jt8PwPa+gVmH6FNQ4ClZq1hTD/vVjjcGDyM13F97DwWusQ
fZYjYzXM/op1Dgtte0K6YOY7rHeQ9Fifqw2UBwASDNk9
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlLXMp2fmJ2zB3MNqh0SLSbvj/pxFsJ3qHco
iFJ447UVyj/Q5MCyu9Z8qjKU/6DVYYdImkuwJFQ/Q6fDz08bLWVnQuUVehwU
vvOJTsuFmdfvcGbNpXI7FSjfYKLDgz5lYbbdMPMnOURsev+4shrKD5jikK1m
uDfOGWbfVIft8Q+nnBeF8gumO1xT1WzXboDyGWY6LKvc8/RDJJQ/YZZD267a
W+d0Ye6Z43CTI1j6Bz+Uv2GuQ8y0uoklCTD3zXdwPbG3+b4LlJ+xwGGBBbuA
jCHMvQsdvr08fZWLCcr/sdBhvr1h5FyYfQcWOTQJeh6dbQXldyx2kLy+R3I9
LLwCljgIp0zo3swJ5UssddhYV6CsZw/z31KH7OftulX6UP6KZQ5Tdyy/N1ke
5t/lDpvjq/+uYIfyLVY42M5hdV1pA/P/SofgkvtqT3Wg/BMrHf4/Wrb4vjgs
PFY5ZJvxVv5lhvIjVjuUzN+wVd0UFj5rHH6pVDyerQjlv1jj4Hr7Rc0SPlh4
rXUIv/bqjy3M/op1DqlaqZW3vpyBht96h5qJ538nAP0LALeSxu4=
         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlMkq9h/HTpqD+YaVDu4efFcuGtzBMJ3qHdw
8/i3iOXqQQj/QJPDyXuC6kL7D0H4D1odlO3jn611PADhM3Q6tOz7Ki2sBFWv
0ONwrzM97cHRfVDz+h0+5J9+WHNyN9S+iQ7pxU8kd03dCzV/ksNdRad9bYZQ
+YApDkKbNcoz9u+B2jfV4eGLo6+VDuyC8AumO3wVsi8WV4DKM8x04NvQsZwr
Dyo/YZaDxPeTU1Y92QF1zxwHh0Mf/IN0oPIb5jqEFFwKKT0DlXeY71CwLctu
9redEH7GAoc58u9Xi56EyhssdCiOOz/J9whU/sdCB5OO7Oue26DyBxY5fDpq
a7d1JVS+Y7HDEYe0L+wrofIBSxwWTu+RObt9O4QvsdRh15UStS1ToPIPljrc
W1fdxbQXKr9imcOr9Gn7KqdB5QuWO5Rt750ceQQqb7HC4fmdRQaPOqHyDCsd
Wr5oSCWfhsqfWOkgWLT1iaUwlD9hlcOSeM4vrmeg/IjVDmbsl1z6FKB8hTUO
R032nBI+D+W/WONg5/umzFoLyt+w1sGn0XdG9XUov2KdQ53vL7/HllC+w3oH
BvWFNUdubbcHAEJmzOE=
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDo+ihDVeuh22B3MNqh36xdSTw98ehPAd6h0e
tnz5uHs/VP5Ak4N45QRV5dkHIPwHrQ6PkgXEEzyg6hk6HW7Fb/g2LWofhK/Q
47DNI26D9bn9UPP6HTbfmcrSnQnVbzDRoXKK8asfn/dCzZ/kwPf0UvCCn1D9
AVMcTq8761axbA/UvqkOzAfPsC+YD1VfMN2huv+NG9f63VD7ZzroySxIlpgH
VT9hloPZ48nBYl92Qd0zx0Hsi/+tj5eg6jfMdRA6cWtSRz9UvcN8h7vsuwt2
6EHlMxY4yAie53X6BOUbLHRIaQw2KV8INe/HQoeKOV1t82Kh8gcWOSyzFg4O
tobKdyx2eH/HKSnkMZQfsMRha1zYV5sqqHqJpQ7stUEWVoVQ+QdLHUKFH7M/
4YTKr1jmMPv00e35ylD5guUOeXc+2HashvItVjh4PaozK7mwE+r/lQ49K77M
LIqEyp9Y6cB89NrJql6o/IRVDgfvKt5h5YbKR6x2iDP9Gbm/GRY+axy+n92t
XnUcqv7FGocQNo65Xy2g8hvWOshrcdzwnwiVr1jn8PKZR+/iv1C+w3qH9ynV
XHejd9oDAL9Ky0c=
         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpkT4zPSV16wB3MNqh2EI2uerIqE8h3qHaYK
ecm5Xz0P4R9ocsgoOLiu4h6U/6DVQT7jxt8MDqh6hk6HX0v+L5jFCuUr9Dh0
X1967ogSzLx+h31zgrNyVGH2TXTQWssnuWUOzPxJDqa8q89XbYbyA6Y4nDTy
zZ96BGbfVAfXeYFB7teg/ILpDh2Nq+MUHkL5DDMdbj37EX3/C5Q/YZbD63ef
eaV+Q/kKcxym3LFd2Qdz34a5DuLZHOuc50HlHeY7+B7e+V4eZn/GAoc3f0vS
756G8g0WOszXPlJaewjK/7HQQcZGddnFOzD3L3LoF0tjOvkIyu9Y7FAy+1Zw
2TuYf5Y4PPBczP/9M5QvsdShPLp9wazFMP8tdVjk65q3bCuUv2KZg+vZg18k
jsL8u9xhsWbT8zknoXyLFQ7SjY8Y952H+X+lw1f3+VO/zITyT6x0EDmWKrJ4
ASw8VjmUi6VvubAMyo9Y7bBZtXx+zXpY+Kxx0Cu5M+/nFij/xRqHqNT1O5fs
hPI3rHXQTucI3wmzv2KdQ9n1Ix25Z2Dht95BMUb4Wy0wfgDyuNTb
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDm+3LTgdYXHSHsw1qHYw/pgdLHYOyneod9hq
lVvGevYEhH+gyYFff9vqhhAo/0GrQ9XjEkV1WSifodOh70iw1YZLxyF8hR4H
vz/p4ueOQvkO/Q4L9U66eG2EqjeY6FD5s1J2ZyNU/sAkB+nzVUIKAVD5gCkO
59izA8rUYfZNdbgpkvxpAxuUXzDd4f2BlrwLz6D6GWY6mOmzdRTA7J8wy2Hi
TcFtwjtg7pnjMP3XuxM2K6D8DXMdfl7/ZVo0Aea++Q6qd3ouNbVC+RkLHFb1
Rp84Xg/lGyx0WO8n5hOZDOX/WOjgF7cmYVMSzP2LHLxkGbqfhUD5HYsdMp+x
eC/3gfIDljhM/pSz1NIRypdY6iCwfxazuyGU/2Cpg6DXj2AWfSh/xTKHDtOa
8p/aUH7BcgfvqeonKxqgfIsVDr4yEuV5pTD/r3Q4nf9o5+l8KP/ESofu3xML
OlJh4bHKIWARa9yZaCg/YrXDKu67neth7lVY4zB9X/L7/95Q/os1Dp/ZHuWn
O8PCa62DxWSuh0tg/Ip1DuIbj2k/sYKF33qHtz5dLA/Nj9sDAOGmyBo=
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDvP+VbLzsh+zB3MNqh3u8jAYba8+AuE71DvM
M54S7cd/FMI/0OSQNlPIy9sWKv+g1eHKl7rNrPsPQ/gMnQ6m72tOTHCB8hV6
HH7u2bjvIQeU79DvkJ4uNlvnwCGofRMdriYcfFLeCeUfmOTAnuv6uiESyg+Y
4lB3IU2+QB/KfzDVwetATM7G1wcg/ILpDjNMr33gvwflM8x00GsPPFByHcqf
MMshTn3V5d2noXyFOQ6c4rKV649B+RvmOqR9qTFK2g3lO8x38FHwUVi0A8rP
WOBwQsfiodROKN9gocPEj9ufiK6E8n8sdGCY4ceSuQbKP7DIodzSPFhyGZTf
sdhBxr//SMliKD9giYNQT3qU3zwoX2KpQ2iJ6e6dU6H8B0sd3u+4KLpuGpS/
YpmD5oLVIm9g/ILlDiJ3raexTYLyLVY4GEscFMzug/l/pYOft8bKGBj/xEoH
s30T1c93wcJjlYPqsd+PM9uh/IjVDo5552JWt8LCZ43D+T1BnYuaoPwXaxye
7dPWqq+Hhddah9LS0x6FMPmKdQ65/7ZYvayDhd96h8bVDXpeQPUAlj7GdQ==

         "]]}, {
        Hue[0.21101966249684523`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJw1z30o3AEYB/Bf+4caShL/OHcaJmpXalPE12SZbKErRpdLrSl5m5e4n92k
cezEz/thL/z4ccfhCgnhHMYfiCh1pc7L6spkp/vDy9Q293jq6elTTz3PV5Jd
kPr2AcMwQf/6/3RWBaICjUU1jh8xd5Sy0C6UD9WnrzqNj3DfyTtQbJmdNlUj
rVSjZ4vJ1hpUTckdIy/JTD3c7JGyD55kcQPk+9s/zS5kNCFV+MVZbEt0rxky
ZbAoc49sakFHY+hxyBI5uQ3Tf3IDu8fJ1nZguWx1s8TkdGEnVryvllOUZKYL
2NVkvftE5rpxdB5f0awmi79AqzvkJ5rIxq/wmL9MeM2R8R23N2/YZ1pyTi8u
GjKfZPBkaR/y2pJmnvaQL/tgV0Rr/CyL9D+P6hxV5cQpua4fj/OPo24Z2k8e
gOn9xaMxV7KvgOfhc5siN7JVgHqnrtDhQ9YNQvXKfpYVcJ93CNeijSRJMDlC
h99ds3HqsPv8eiimW9vn5XR/XY+10TBfPp/MDUOY9LIVqMjpI1CeGMz+HFls
gMXyWSr9RrYZ0NgZy9wMk42jeCH417JmcvkYZD6SRH6DjHFEbz0MZQ8WY/4C
qULOxg==
         "]]}, {
        Hue[0.44708763999663503`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDsdqLl2NXnjUHsw1qHYQUpQQv/3vGITvUO+w
SnziqkenofwDTQ4WifJ5P7yh6h+0Omwye7ttoxZUnqHTQelji4OuGFReoceB
2/JN9fSUI1Dz+h3E3jFmmfDA7JvocMo3xfRfOlT+wCSHjKq92/7ePgzhB0xx
EJrM9rc9Eyr/YKrDt/339Uo/QuULpjsc5nc759gG5TPMdLj9OT8liQWqfsIs
h2oLu+LMxVB5hTkOJ1IUnSWEoPIb5jr8PWJcW7ADKu8w3+Fnp+CuhAIoP2OB
A7fWh2kzr0H5Bgsd/q3IEupuhvJ/LHRYWG90c6sPlH9gkcMO9etSQfOh/I7F
DqUrtRqepsD8s8ShQ12lYZ82lC+x1IEvxqg5rQjKf7DU4a1fdvRPJyh/xTKH
tt7Isx9EYf5d7rDk+sOU/Ego32KFQ6REYvZnTZj/Vzos2aj4ZH4ulH9ipcPW
SnYBbgcof8Iqh8AYjjgRmHkRqx1WhTIlJQXCwmeNw4Etkt/CNaD8F2scrl9L
5TBjhPI3rHXYVuf3LNYOyq9Y55D+ZLXyL3FY+K13iDPlOXXp+yF7AFN/xIE=

         "]]}, {
        Hue[0.6831556174964248, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrlceUWdESfswVyDaoedfU6eDxcdg/Ad6h2S
Ll7btaUAyj/Q5CDh7sdz6tsRCP9Bq0Pt2eX1HJeOQvgMnQ5sPQvYrx2Eyiv0
OLD0V32wbIbKO/Q79Fw6LMy6AypvMNEhvDljTbwYlH9gkoP/6R6PxMVQfsAU
hx8/2X0fi8Psm+pwtGr9mvUTofyC6Q6yLZXrMiWgfIaZDr9StjgHbTkM4U+Y
5XB8+rRjUdIw98xxKDZ75H3xIFR+w1wHwX+sSe0weYf5Ds9v1sf+PQ2Vz1jg
8GBqWuNXDZh7FzossND4M/E8VP7HQgcxlmPr3SZD+QcWOaj7TXKouwfldyx2
8EvnWpM/H8oPWOLwpJDf5ckTKF9iqcMl5jMvZy6C8h8sdbh7t4x/ej6Uv2KZ
w+VlB9kvw/xTsNyBTfvXqV21UL7FCgcv2Q/WSTuhfIaVDvW567bO74LyT6x0
sNrGt7Y1ChYeqxzWGyx5tHAilB+x2kHhiqX5rlQoX2GNw24G5dttM6H8F2sc
Enmnrr+TCwuvtQ41F7mCc72h/Ip1DhN/7HrLUg3lO6x3sCyr3iIRftgeAPlo
zKA=
         "]]}, {
        Hue[0.9192235949962146, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu6TdxS8KjpmD+YaVDvY+LXb1zw4AuE71Dtc
ub2GyyD1EIR/oMlB5f25qwvDDkP4D1odCjZdT5A5egDCZ+h0WJrY4OdSshfC
V+hxWPB11tbV+/ZDzet32Kox20Zl1R6ofRMdTm2synzVsg9q/iQHYZ7zzYm8
UPmAKQ4uGsu/NX7aCbVvqsNmdccvGTN2Q/gF0x0e2Tc8fHkSKs8w00E3gv37
Dmeo/IRZDuqBh1rerIXKK8xx8Dj8/n+Lzw4If8Nch++Ogr2fp0DlHeY73N71
dwVDJFQ+Y4GD3c5FcysmQuUNFjr8ZP2ckhoLlf+x0CH90Fc1sbjtUPcvcqh+
NCl5Sz5UvmOxg06e0VG/aqh8wBKHh/b3ZvWVQ+Ulljo8t5zMv7AbKv9gqcPl
N1Gq72qg8iuWOSzL5Vd3XAOVL1ju4CUcvPzLw20QvsUKh8e8ew4q74bKM6x0
MHHfn/GaCco/sdIh9pHx5RNnofwJqxxmFu+wfiwF5Uesdlh54NIznRKoeQpr
HHbKey3TNILKv1jjUM3izDZxIlR+w1qH9kdqKkd8oPIV6xxYtJb9PLgJKu+w
3qGvY87GBtVt9gA+Fc3O
         "]]}, {
        Hue[0.15529157249600445`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgrSno/mFJ2yB3MNqh2mlvl91px2AsJ3qHfY
+Sdouu6V4xD+gSYHk20bVy1aB+U/aHWw6lb3ur8JymfodPj1c9nT+GlQvkKP
w9QPZ/c6rIXyHfodXNdnzS1bCOUbTHR4xL/3nMG0Y1DzJzn0X1z4wm4ZlB8w
xeGkntc/301Q/oOpDjZHK6WP7YPyC6Y7+Nm+PZt9DMpnmOlQfaZod8oVKH/C
LIfzSpXiJ25A+QpzHFY5xBfyP4HyN8x1OGPcX/fVE8p3mO/w69CGptQYKD9j
gYPPxlWWKoVQvsFCoH3Ld93JhfJ/LHQo8685p9QMc/8iB+46v1aGLii/Y7HD
g+1iDIumwPyzxOFJ5691R2dB+RJLHX52bxbv04X5b6mDs0FC809bKH/FMofM
A3MSs3xg/l3uEOC2cy5TMJRvscLBoPyYUX0UzP8rHTQe609lS4PyT6x0+Cy6
UEshBxYeqxy4b/7YGykF5UesdrCJvhihpgILnzUO+UXiy7q1ofwXaxzuJngX
6xnBwmutQ33AUvUqByi/Yp1DvJ7FoSpXWPitdzBsMhQJ8D9mDwBJw8kN
         "]]}, {
        Hue[0.39135954999579425`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDhopHaUqN07Yg7kG1Q6XfRtPLcs+CeE71Dvw
RsdF+1WfgvAPNDkU1x/JvLcBKv+g1eH9veqHG+2hfIZOh4C1fz4uOw41T6HH
Ye01CYntM6B8h36HW0GFcpLBMPsmOvh969ZvUYDyD0xyWOcnPDHx83EIP2CK
Q1dNdsGqeVD5B1Mdlh1f9mhdPpRfMN1BSPieSIozlM8w08GE6WKYtQqUP2GW
wypTjgAzBph75jiIsYaY3nkONX/DXAcRg9urQ09A+Q7zHXRl/Ca3bYPyMxY4
GOnf+TB1FZRvsNChhGfbjSlsUPN+LHTYvuTZs1m/ofIHFjlYakmk/HwM5Xcs
dtDwCxM4fgnmnyUOGZ1fTv7dB+VLLHU4k10haLgcyn+w1GGN+3L5J3Oh/BXL
HLbMk1ntOAXKL1juECZesetzM5RvscLBYfrBm/YXoHyGlQ6+qz9+sDwK5Z9Y
6VB82Lrz8lYof8Iqh1NhcUGOMPsiVjvc2a5WNXs2lK+wxqGaY8/pOX1Q/os1
Duev/T7wvhEWXmsdLNfenJ9aB+VXrHMw/XxF4VshLPzWO/B+nPZ17sbj9gA1
5dAP
         "]]}, {
        Hue[0.6274275274955841, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrrRc2axiZ61B3MNqh0i7n26H/HrDITvUO/Q
OyHQ/egHKP9Ak0OZg3bWiwVQ/oNWh6tJiwsTeqF8hk6HXZvCPl4Ph/IVehwW
OzjOnZkCM6/fgVsnQtDbC8o3mOiQMz+Gv9MGZv4kBy/5kzeY3kH5AVMcQkJl
+vkuwuyb6iDSK6VwYReUXzDdIWrf1Ltpi2H2z3QIXjpl///pUP6EWQ7bVhjw
PmiGuWeOw3QnFQvjaih/w1yHgudqCefTYe6b78Ay7XSLcDKUn7HA4VTptR9P
YXyDhQ66Z5rF0zyg/B8LHQTdpgjI+MHcv8hB42SAtrszlN+x2MH7bTnTXjuY
f5Y4sPxvsXhmCuVLLHXwbNnboKwO899Sh2S7S9/Pa0D5K5Y5OF6t1DLUhPl3
uYPMo2Tm0wpQvsUKB8HQQJ/ZUjD/r3QI/+7JWQXjn1jp0Mt3ryBZBBYeqxza
LFU+ngyG8iNWO9ztyAi+AXO/whqHWGtn0WPuUP6LNQ5LnbZLzneAhddah5wF
XjGyLlB+xTqH4qj1jmmw+HNY77DjXojIHOsz9gAEob8/
         "]]}, {
        Hue[0.8634955049953739, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDjPWNjqI7TlhD+YaVDvkHFscOXHCSQjfod6h
UvRh8N1jUPkDTQ4fjluJbN1xDMJ/0OowseJOwa6/UD5Dp8Om5cy7+4SPQ/gK
PQ7CN8Tj5AKhfId+h+TP0n8KLKDqDSY6fFjf/+lgJpR/YJKDyu25X+dMgPID
pjhElWi+OX3sKNS+qQ7lXL0uKl+g/ILpDvaaVZ/rJGD2z3RgcPy4psweyp8w
y+Gw4gWDZcug6hXmOKhNfqPgdx7K3zDXofz8oY9vX0H5DvMd3sa7ec7lherP
WODQUf8o++I8qLzBQgeju0/38G6A8n8sdLh/SXSP03Uo/8Aih9TKxTce50H5
HYsdLq6XPv6xF8oPWOKwqOrGcsXlUL7EUoewd15LSnbC/LfUQVHh+RyDDCh/
xTKHR+E/nl9rhfl3ucN6xVnHHs+C8i1WOHxcNKUnzAfKZ1jpsI7tsGFaOpR/
YqUD07MvJYE1UP6EVQ5LTl4P+9gP5Uesdpj16XK9KEy/whqHvY/TTjAkQPkv
1jiU2fx6W18EC6+1DgdXtu872g3lV6xzuBr8dZMGTL/Deocnkyfdf5941B4A
28PYRg==
         "]]}, {
        Hue[0.09956348249516367, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDs4uN6amPThmD+YaVDts0975/LLrUQjfod7B
NL/175O9hyD8A00O3W8KSv2TofwHrQ7pzy3SllhC+QydDods1rIsZ4TyFXoc
ts3RkP36/SDUvH4H8aDu++o3oXyDiQ4a621Tdh2B8g9Mcnh259jvmRuh/IAp
DtufzlkkuQDKfzDV4VDMec7lk6D8gukOTqJFEQ+yD0Dtn+kgUGUs+7YUyp8w
y+HW0zsFIpVQvsIch3cbcir1G6H8DXMdeMu/TT8J4zvMd/A1trq9uhPKz1jg
UPDt/Zqjk6F8g4UOCznWVqzogfJ/LHTwO3WWgWEGlH9gkcO6Wqt7O87vh/A7
FjvM7zoY8uYplB+wxOG0e9BKh69QvsRSh2NBgp+l/0D5D5Y6FNy8YHOTE2re
imUOP4UUZ1iLQPkFyx1mH/5w+ocElG+xwuGrWT97lBzM/ysdOgVbq5aoQfkn
VjqcjBLMYtOGhccqhzsXAvmvJkHti1jt4L9ZP7O0BMpXWOPQrWfZXNkE5b9Y
48Ar3SJj2Q/lb1jroL7sPMfSZVB+xToH9e1fnx3aAOU7rHf4/GMSc+/B/fYA
oJHOdw==
         "]]}, {
        Hue[0.3356314599949535, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtmxwVz+l4/bg7kG1Q4M/zZU/5p/AsJ3qHdY
zSqwYcNdqPyBJoeVTc+Oie2A8h+0OtzxDhYP3QPlM3Q62HfPDTo1H8pX6HFI
XL3LZ8s2KN+h3+F1aG/501Uw+yY66Kz49N1k/jGo+ZMc9u5qr/JcD+UHTHGY
LtqYELsbyn8w1SFt/7vyW8eh/ILpDq6b75o3n4fyGWY6aL633dl4F8qfMMth
2eGNV589hPIV5jjMalGeme0J5W+Y65Byqc/ydhCU7zDf4e3KGzODUqH8jAUO
XpLHZ0hWQfkGCx3M65edulAG5f9Y6DDzS0WMfA/M/Ysc3OQ+Xfg/CcrvWOyw
c6tk19K5MP8scaidvefzYkMoX2KpQ9ZCwZoMM5j/ljpcZFlfessNyl+xzKFA
arl4YCjMv8sdZuWu+/o6Gsq3WOGwse1se3YyzP8rHTxlqiPfCkL5J1Y6CLee
vnxDChYeqxw8/58r11GG8iNWOzB84PnzRwcWPmscYh9J2qaaQPkv1jhsLCrY
wGUNC6+1DlIyGyRjYOFXsc7Brqx0c5wfLPzWO2xJNX46k/eYPQAWPc76
         "]]}, {
        Hue[0.5716994374947433, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDl8u9Oab3jpkD+YaVDtY2zyYtDrxOITvUO9w
uXnGBvVZRyD8A00O7zftLeENPgjhP2h16Fom9sOVZx+Ez9DpcKdA60tB3QEI
X6HHoUKhh1F2wV6oef0ObvN3NAYf2AW1b6LD880h3vu8ofIHJjm8Tei5O+0t
VD5gioPoqnksMS92QO2b6nC6YvXRRVy7IfyC6Q4uu6KMSl13Qu2f6bD9C0NQ
8/7tEP6EWQ7btyxUDJgAlVeY42Ckn3On1QBq3oa5Dhe3r5wV+3ob1H3zHU7Y
v25u74LKZyxwkG4UlOnLhZpnsNBhibCBkE8wVP2PhQ4XX8/26D0FlT+wyOGX
nKSy3TmofMdih/5Ww506r7ZC/bPE4Yn+iepWfah6iaUOQc8ebP/uD1X/YKnD
9SN6e417oOpXLHNY6/TsSdVOqHzBcod3lb+6fb5D5S1WOIQqlti/dILyGVY6
VK1cKngyFKr+xEqHeYXFG9+vgMpPWOWwtsj3qBYblB+x2iGXsffdMwaoeoU1
DtvTpq3ekgKVf7HGYVuUBf+sC1ug4bXWIW1lYeAEbyi/Yp2D3oHF11n1oeod
1juk7lRlMFm9xR4AM2jK5g==
         "]]}, {
        Hue[0.8077674149945295, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDv9TnvVobztkD+YaVDukHM3QOnvwKITvUO8g
/p9NpVj7MIR/oMlBX6n0bH8ElP+g1aFf3u3S7GMHIHyGTgczr8OnUwwOQvgK
PQ4T5Scz59zfBzWv34E1t+rg/Dv7ofZNdGB1ufFeIBqq/8Akhxk/fzPwCkLV
B0xxEFI3uvD8GZT/YKqD6w6mpUYH90D4BdMdFCeHcTf174XaP9PhwlvbFRbH
d0P4E2Y53Eza2fOuC6peYY7Dj3ClJ51OUPUb5jrI/VyiK7YTqt5hvoMA7/+m
+iyo+owFDk/LQ/pyFKDyBgsdPrxdfLBgE5T/Y6HDoR1XluwNhao/sMih4p1R
mKomVL5jsYPrd8cix91QfsASh1xmnQVvVu+C8CWWOlw5fiA7VRcq/2Cpg5yT
5KHwLVD+imUOL7o2xxmfgKovWO6Q8+2llosDVN5ihcMD99zu9ASoPMNKh5I9
geZqt6H8EysdvrLy2z/3gIXHKofJcWsenq6GykesdojMT93n8wLKV1jjsD1w
Z521JpT/Yo1DYquRcks/lL9hrcNXTW0LkV9QfsU6B96AP1d2uEP5Dusd9ucz
sV1btcseAM+cx08=
         "]]}, {
        Hue[0.04383539249432289, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqxRfrbFXsfswVyDaoeQCp6jybuOQPgO9Q6/
z9W27fM/CuEfaHK4kONwz6IaKv+g1WF18b5XBb8PQ/gMnQ63ygz9W+uhfIUe
h1YvzTLdpoNQ8/odfs8sl9NKgfINJjrsKTTudAqA8g9MctA82Vs/3xbKD5ji
oKfJcW+iDpT/YKpD4oVlWeXyUH7BdIe6h1JWawShfIaZDttWvbv0hwvKnzDL
gcFJiUPh/wGoe+Y4/Ex3s2b5BeVvmOvg1Poofso7KN9hvoPQ2tTHp19D+RkL
HAwszoi6vYHyDRY6FKwwExW4A+X/WOhwYwV3Yu59KP/AIgdnd78ErptQfsdi
B7Ovnbtjr0H5AUsculdxTmoyhPIlljo8WJf57poelP9gqUPyz6nbBU2h/BXL
HFY2NSQ7WEH5BcsdKj+fihOF8S1WOERmcZs9hPEZVjr835Mu/sQOyj+x0mGP
wZx5VvZQ/oRVDqV8HDr1MH7EaodXQXNe6jnCwmeNA8c5r22ZMP6LNQ5TTDKe
xML4G9Y6fNor16zhDuVXrHP4XPYgNNsNFn7rHS6cqLmf5nnAHgDVFcRP
         "]]}, {
        Hue[0.27990336999410914`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmeMJvU0BB+zB3MNqh14mmvrXA8fgfAd6h2Y
m7k9i7wPQfgHmhxYnWzNJ1kfhvAftDoslnh4a8naAxA+Q6cDW4zuCx7vvRC+
Qo/DCieV3faT9kPN63d48vzGWvamPVD7JjrkBt+sNo3aBzV/ksPqvdMCFZ7t
hvADpjjMj5p91ejcTqh9Ux2YjqwqOF0IlS+Y7rD5Z3Pf5aVQeYaZDj7sCl8n
ykLlJ8xy2POoN+ZvJ1ReYY7DxF88aqq3dkH4G+Y6HLhyJky9ECrvMN/h+dus
ie/MdkD4GQscTHjF3TbmQuUNFjq0Ztaq+1pD5X8sdNiacWxORhRU/sAiB7OH
me1NvlD5jsUOU+4sfF4UtR3qnyUOV7x2HwwMhcpLLHXY8Fwjel0WVP7BUofd
cXHHV0ZB5Vcsc7hzyfK0QjdUvmC5w571a/oNk6DyFiscslMmTnw3EyrPsNLh
atRXxh2PtkH4J1Y6iE193F25Bio/YZVDuN9lr75fUPmI1Q6Zj2cVqe2Cyius
ceg83KW8RRDKf7HGIf6VoN2fQqj6DWsdVJJN0zV1oPIV6xyEjofs/zcJKu+w
3mGV//rmG/bb7QFmPcn+
         "]]}, {
        Hue[0.5159713474939025, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDuxTZpjryZ2xB3MNqh24p7T6LdSE8h3qHX4W
Fd9uioXyDzQ5NN46IFUdDOU/aHVoml0RnVAE5TN0OszlcwjabHsawlfocXBU
SeM73QblO/Q7GEYIRM+eB+UbTHSYOPl81JedUP6BSQ7XLz5LOnoWyg+Y4iBc
a9j5QBnKfzDVYY1U/gVRByi/YLrDAqGYoiMhUD7DTIeN8jonV+ZD+RNmOTTu
nJ18qxbmnjkOFyfEKt7hgfI3zHXgCtAKYpWBuW++gyXDPI4bplB+xgKHsgQW
WdMgmHsXOhwK+s/4MADK/7HQ4Zv9jWNdzDD3L3L4ealy1jQhKL9jsUM1z8aP
S1Vh/lniYKP5Lea8EZQvsdTh1u/lfqssYP5b6vDpyUmFLz5Q/oplDpMqDt5u
4IL5d7mDpIyCYokolG+xwuHAi1Pxfoow/690uHDWJ+yFIZR/YqVD6vk/vgs+
noKGxyoHIyf9rJ9/oPyI1Q513069F4GZr7DG4YCX4l1dESj/xRqH2JRtXzxl
YeG11qHcqVLB4z1Uf8U6h9rzTw6/+Q7lO6x3yPo9VSuW7bQ9AFrJxuU=
         "]]}, {
        Hue[0.7520393249936888, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkyVkS28rcfswVyDaodVOav9VT4egfAd6h3y
y7+2zyo+BOEfaHJg3ju/h20+lP+g1aGLrf1k0nUon6HTwenideHu7gMQvkKP
w4cuQ/Wm31C+Q7+DYFi6It/qfVD7JjqkX2q1z6rZDzV/ksMSe3k+JxGo+oAp
DtpXNu3p2rcXat9UBwFmE+HSIqj+gukOU58l9a/igupnmOlwMT1Xslwbqn7C
LIcHR3ri1x2G8hXmOHjka79+GQLVv2GuQwX7GhfmvXug7pvvkLuAP6DAD6o+
Y4GDh8f0Tf9+7oa6d6FD/YSI48IFUPU/Fjo0///bvvQXlH9gkYPOx/c+Rseh
6jsWO7yLFz1S7wyVD1jioD3XtuHURihfYqlDxdysIKa5UPUPljo07yi9oC4E
lV+xzOFUwNMLeXVQfsFyh96qWbdudUHVW6xwKF1s23LoLZTPsNKhVSV31yMR
KP/ESgejOc+qGUuh/AmrHB5bnP+edh7Kj1jt8OuNivlaNihfYY1D11TTp0bx
UP6LNQ6ejb9b6jdB+RvWOhSqVFanMUL5FescLDbYLmQLgvId1jskeX7Qur5k
tz0AiIrHGw==
         "]]}, {
        Hue[0.9881073024934821, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmvfXE1fkHvZHsw1qHaYvFu1fXsplO9Q7yAQ
9PSuxGwo/0CTQ9Ciq6d1J0P5D1odpG57y55VvALhM3Q67Jt3RvYVO5Sv0OOw
zcSbn0MGynfod9A7OOvmdEEo32CiQ5r59s+T+KD8A5McWvYvynrFCeUHTHH4
o3jWwZcFyn8w1WF/5hajSYxQfsF0hxKNB8FSf6DuYZjpkHemQ/7+Xyh/wiyH
SqOVUy1/QPkKcxyEfobPYvoF5W+Y6+DGzCD+QwHmvvkOol9bHY2/QeUzFjjM
ilxenqAGc+9Ch1guQcdVolD+j4UOz0VcmexlYe5f5LDqf3aErQSU37HYoX1q
3add4jD/LHGQWPAsba8wlC+x1GHH98AFmtww/y11WORjzboVFh4rljl0vi37
/UsA5t/lDqz6a3at54HyLVY4XOZT92TkgoX/Sgc3E5fEfJh5J1Y6tInMu++t
DOVPWOWQmr197jp5KD9itcO7XOUr5nKw+FrjsDzCZ8FvKSj/xRqHlxZ6v6bC
3L9hrYNZTFOFNCw+K9Y56BW9tfsNk3dY7+CxJvCHlOQVewBs4MC9
         "]]}, {
        Hue[0.22417527999326836`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDv+aLhj+mnvOHsw1qHbYvG15wOw4KN+h3mH+
xi/rl0lB+QeaHK7xW93833YWwn/Q6iB5/XtDojOUz9DpEJa0X8nsxRkIX6HH
ofTolZrSG1C+Q7/Dg8NM0avboeoNJjrYPqvn3BkE5R+Y5NBbnHmDSRnKD5ji
kCTRKZb8A6r/wVQHTfvqTanXoPyC6Q5BE3YdOLgFymeY6fDkhb6Dvj5U/4RZ
Dh/Lzsaf4YLyFeY43J6x8NP5z1D1G+Y6NB2PnZVyGea++Q4cCjtYZQ5D+RkL
HFT3nhBs3gnlGyx0+M3gwzfxD5T/Y6HD3ho229ivUP6BRQ4vd3Zdd70H5Xcs
dtj4mSFgwjkoP2CJA3/A7Qi/3VC+xFKHb7vFnhxdBPPfUodT35xTls2G8lcs
c1jI4D/r1GSYf5c7pEg7nJl8Acq3WOFQxLv9y5wDMP+vdKj792RZwXYo/8RK
h/mvuRO3r4DyJ6xyqNspKnB4FpQfsdrh0eV3r9wvweJrjUOk/sxn/2D+f7HG
gel890embbDwWusg+GzTFuPNUH7FOocYr4yugKWw8FvvUD4tku/IvDP2AKpd
1hc=
         "]]}, {
        Hue[0.4602432574930617, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt+neHAHOh+zB3MNqh3mFzTlJ245AuE71Dvs
tzzR12Z3CMI/0OSwuyJ2u8v6fRD+g1aHnKrLiz7sPQjhM3Q61CdxTqrV3A/h
K/Q47Pp/IK7iz26oef0OGlmX51S47oTaN9GBLf0WF8+VPVDzJzm8E1aKnF+/
C8IPmOKgKeLCsL5pB9S+qQ7/C7y+3z+3DcIvmO7wOm3GRfMpUPMYZjpMvar1
oYcTqn7CLAf3/oWetxZD1SvMcdi3tV4nJGcrhL9hrkP4uxVbJ6/bDnXffAd1
NfE05S6o+owFDhv2FFzKbYGqN1joEKVlImzWuAXC/7HQ4f7LF1uSVm2Gun+R
Q9JTZ9eIbqj6jsUOs3Pm3H++Gao+YInDE8fKqNyXUPUSSx2MJ4WplmpC+Q+W
Otxfb/Nm6kWo+hXLHH4LiTuZKkD5Bcsd3KLvp9uXQNVbrHAIyW00bLiyCer/
lQ4y+3MYTnhC1Z9Y6TB17cv3J9ZA1U9Y5VC7UjD9owSUH7HaQUWtQU27H6pf
YY1D/My1YvncUP6LNQ71pu8LWAOg6jesdajcd3P7dJh9Fesc5tsUr1WNgPId
1juEyhjbMz7baA8APAHGJA==
         "]]}, {
        Hue[0.696311234992848, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDrfCLrKUHDlnD+YaVDss1kzWm5UK5TvUO9j2
Lgvp7zgP4R9ockiQONLhXgWVf9DqUPPO6SUzF1SeodPBdKa6pIEvlK/Q4yAZ
sf667GWYef0Ob9IWHw6UhcobTHR4Y/tVbsMCqPyBSQ73boY+L3kO5QdMcQj6
9bpWrAZm31SHmaUfeqL2QPkF0x2KnytulUuA8hlmOmQej3zwej6UP2GWQ3yB
b9OSs1C+whyH7ny1yawdUP6GuQ48pXODDdbD3Dff4c+0CI7DxVB+xgIH1tV1
rR9XwcJnocOf2pmndkZD+T8WOsSp87T7TIa5f5HD4gm1mZ+3QPkdix3u7N2l
O68J5p8lDpw/b+37swjKl1jqUNR2S+5fBsx/Sx0YWvMuXJwI5a9Y5rDo/bN8
i2yYf5c7TDqx+XlXG5RvscKB6/AS9vcLYf5f6eAXK6ifXwvln1jpkOa+68u3
abDwWOVgJrUlpTEPyo9Y7ZAYIXhhUScsfNY4HD8htepaMpT/Yo2Dk4LXoiOw
+N6w1oFHX+Tkt0Qov2Kdw8cFAoGry2Dht97hgdOr6dVA9wMApA7P8A==
         "]]}, {
        Hue[0.9323792124926413, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDru5rbsEBI7bg7kG1Q5nwhxMrhUehfAd6h3W
cnCzfZsB5R9ocmCtulBgnncEwn/Q6lCkOUWqd/1hCJ+h0+GRs+iUQ/uh8go9
DmZpJ27u1YfyHfodgg0sVmovhKo3mOiw+fiZo+qGUP6BSQ5H9z26yHvxEIQf
MMUhrPDKPpmpUPkHUx3URLZpfraG8gumO+xsbzq14zVUPcNMh+IcLWmv1VD+
hFkOcaqnd+zPhvIV5jj8//DlkRcLVP+GuQ5aTvmCp45A5R3mO3wvavnwYDKU
n7HAIeTWrL59WVC+wUIHw89Bu42MofwfCx0mTlBg/70Zyj+wyKFs2/7sSW1Q
fsdih9lXmO+6JcD8s8SBfYls1xNLKF9iqYPbTnt5PSEo/8FSh0OGf5xWV0H5
K5Y5mC1O22MWA+UXLHd4yTWvXtQKyrdY4XD9yJlcS2mY/1c6yFd1OTxnhPJP
rHTo3/qz3jkMFh6rHBr02O6/toDyI1Y7ZKjZRt+Sg4XPGodfdT3Zm1mg/Bdr
HE5O8a5Z/fogNLzWOswq2WtwyhoqX7HOwX1HuNFvRVj4rXe4tT3uSz/vIXsA
zhjHww==
         "]]}, {
        Hue[0.16844718999242758`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDn+0pASlvI7Zg7kG1Q4POiZfsd90HMJ3qHdQ
f7bdf/L9IxD+gSYHd23BdplPRyH8B60O638cVn71DirP0OnQ6LHbbgUvlK/Q
4yAYdaprHTNUvUO/w/VICbHiEKi8wUQH85Xaq3edPAw1f5LDsWPBYtrBUH7A
FIctIe7SN35B+Q+mOqhvMPV9NhHKL5juoOUc5vzcGMpnmOkQd6Sa6edhKH/C
LIcbembLn+RA+QpzHDKCyld2qUL5G+Y6uOjmC167ewjqvvkOXHMibY6HQeUz
Fji8fqOf/U4OyjdY6LAp2+uy702o+h8LHYQk59ayrIPyDyxy+KSXGfOKH6q+
Y7FD2eHT4gH3ofIBSxxyVCyLgtZD+RJLHa5L1szLZoL5b6nDgVuTW2begsqv
WOZwnWvmvXVboPyC5Q6e5wXjK7uhfIsVDv5tSw8pw9zDsNLhu7O5j/42KP/E
SgeGrpwL0ROh/AmrHHgK+ifuvA7lR6x2eB6559GirVC+whoH5dzeuNuTofwX
axyevfsVbXYFyt+w1uFK1qvZV3ZC+RXrHNKeKQtPnQkLv/UORyf1r1erP2QP
AJHcyrY=
         "]]}, {
        Hue[0.40451516749222094`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtEnLM6otV+wB3MNqh3ePE425rOA8h3qHeSv
qc5s6oPyDzQ5lDq9atpXDOU/aHW4UDZpw7Nz5yF8hk6HN0dzG0JPQvkKPQ6f
Hjj+nMEIM6/f4dz6K/LWLDD7Jjr8eKKa8YoLZv4kh41upls380H5AVMcFNao
yx4TgNk31SF+NcMkfhEov2C6w8/6j/vnw/gMMx24y9bKuElB+RNmOSwIjHg6
SxLKV5jjsOxktKG7HJS/Ya7DDtHO4pvSMPfNd4hpUUn7oADlZyxw+DzROWLn
W6h/DBY6rJBVjd9/H8r/sdCh6NhrWeZvUP6BRQ5Xfq+30f0B5XcsdthwQjxT
nwHmnyUOy0/aPwiEhYfEUoc9ASoKen+h6h8sdeBnyWR4DgufFcscps5szReF
hU/BcoetU438X3FC+RYrHPbsNpTZAZNnWOmQFCeSvhMWfidWOjw5VTtPiB8W
HqscuO84fgmH8SNWOyy6orVc9RksvtY4PNRTZnZ7AeW/WOOQx7Lyx8GXUP6G
tQ5KDiasT2H+rVjnYG/a57UDxndY73Dni91EiX/n7QHfycaL
         "]]}, {
        Hue[0.6405831449920072, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDs+DJBgPHz1kD+YaVDskF26d7e9xHMJ3qHd4
JW6Wc775CIR/oMnhho2Fi7PDQQj/QauDxu9wnvWv90L4DJ0OPZpfo3tzDkD4
Cj0OXDyXU37XQ+Ud+h2uPv3xyn/xLqh9Ex027rYx+KENlT8wyWGPXYh+0gWo
fMAUh92emoERZ3dA7Zvq0LZtyjS/t1D5gukOcbFnWnm0dkLtn+nwxYt38sGl
2yH8CbMcJi10cJ1WApVXmONQGner21MMat6GuQ7fbxp8bry0Deq++Q4uwrum
vMyHymcscHjawuyoGgI1z2Chw2JhsUhRa6j6HwsdbGxXTti/ASp/YJGDwoOt
gk1bofIdix12Ru1kzri0FeqfJQ7BP2a/iBeDqpdY6pBx0HL2EXOo+gdLHfyE
ez5fKYGqX7HMYfqc8IirC6DyBcsd1onXz6q8D5W3WOFQ3Bn8+aY2lM+w0uHH
/VVL+22h6k+sdJCyW7m3cCJUfsIqhyd9v6Ni32+B8CNWO+zn3jeJ8yVUXmGN
Q+Ulpx0NvlD+izUOqw/X7WXbBVW/Ya1DuNPNdo3lUPmKdQ6fKibJ8khA+Q7r
HbgbfexOTtliDwAJTsk/
         "]]}, {
        Hue[0.8766511224918005, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnKrXkmf0j1uD+YaVDt0T4uwXud4AsJ3qHfo
VuKf1rUfKn+gyWFva7mZx7ejEP6DVgeXvS4aMs3HIHyGTgcxaZ4Lkz2h8go9
Dr1986NYb0H5Dv0OUlFb9KyMoeoNJjocOBNkcjARKn9gksPavh+VWTuh/IAp
DpcnzL83jwdm31QHVYlpPN1xUH7BdIctsgH5fGePQO2f6fDw2yHlAzJQ+Qmz
HDJjJDoOzYPKK8xxcO4VtJF4AeVvmOvwLv386XPlUL7DfIfSbq3D/Huh/IwF
DhwBh1I3/IfyDRY6rBfKVD0yBcr/sdDBbFUHo8w1KP/AIoftGRkvy+qh/I7F
DuutDx112wrlByxx6GrVn/cwDcqXWOog9+TlirUTofwHSx0eF8fvnxcA5a9Y
5lDVUhap3gzlFyx3+NqZWMW5Bsq3WOFQwRXoszgL5v+VDocN3lrxTofyT6x0
+HfBasLNSCh/wiqH96nWbk9g7otY7cAgs6h1kgcsfNY4xCtorebIhfJfrHGY
F5WRbGIOC6+1DpX5hekmiVB+xToHYzXFsvW6sPBb7/CK7aLIzaAj9gCXYMMp

         "]]}, {
        Hue[0.1127190999915868, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt0lKiGld47Yg7kG1Q4NRazGS9IOQ/gO9Q4f
7xUxFEkchPAPNDn07t3ROF8bKv+g1eH352+Hvsw/AOEzdDoE3GQ/o2+8F8JX
6HEoae/fHW25C2pev0OiBIs81yyovMFEB92OlMYY5t1Q8yc5/Iu+OL/2yg4I
P2CKw0zZCWUn+qHyD6Y6hLlF9G1YuhPCL5juIJW8ZsaL79uh9s90yE9QShFv
2wbhT5jl8DR1SrTNAah5CnMcToiUpS/LhqrfMNeBial80g0DqHqH+Q6uc5Kl
LslthfAzFjhIRbbYinBD1RssdOA9ErCm/CtU/sdCh8OS2UZp/FD+gUUO3O+m
MAkZbIHwOxY73Fx09yD/Zah8wBKHLR6vJGf/hcpLLHU4f9X3mJUxlP9gqUO/
9H+HX2ug6lcsc1BOu8bm/QUqX7DcYeqTmMf2jlC+xQqHWC8bjzezNkP9v9LB
LuPVibqXUPkTKx18BLqvrnKH8iescnB9f2Ou23qo+ojVDifWn+BzVoTyFdY4
LGT1+pHsBVX/Yo1DTMObkrd7ofIb1jpMY9+/8YA9lF+xzuHq25AbnQc2QcNv
vcPSyt6blpc22wMAShTHEw==
         "]]}, {
        Hue[0.34878707749138016`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDh9Ll/A6/jhhD+YaVDv0yohyN/WchPAd6h0C
syor/vVC5Q80ORSlOSsKX4LKP2h1KLhXFRiSAOUzdDr87dhuue45VL1Cj0P3
fMWtjTugfId+h+ffnQ90FsHsm+jgYrqsYLM9zPxJDksZFlWHCUH5AVMcbHY4
Coi8Og61b6rDzP3ZvxaehPILpjvcDNCoFFoF5TPMdOg4zhz1bCqUP2GWQ5Wh
3gVreZh75ji8/nDS+hAblL9hrkMuP9NnoedQ9Q7zHfQU9l/VuQrlZyxweJnZ
c0QHZp/BQocF84u1DyyD8n8sdHjpzfbp5QIo/8AihwV1C36b9kH5HYsdkjwb
PtU0QvkBSxy2zSuc9LgQypdY6tBlpdB0+CjMf0sd0qc97craA+WvWOaQ65m9
aPcmmH+XO8T+fTQvYhGUb7HCofP2B87MKTD/r3T4+KjtvUgPlH9ipcPa3IRI
53pYeKxycNbqD5AvhvIjVjt43763YH8mlK+wxqFYrNTxdRyU/2KNA2unfJh3
CJS/Ya3Dg8eODYuCoPyKdQ5mZXlHnCfAwm+9w1fGN/1HO4/bAwBWpM2h
         "]]}, {
        Hue[0.5848550549911664, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDo9+5tX+abluD+YaVDtwPhRTP7scyneod1iQ
sPTdB+YbEP6BJofXQry37ytC+Q9aHV5W5SdIJEP5DJ0O/0yOW/hlQvkKPQ7r
bQyeGgZB+Q79Di9+RSh8T4fyDSY6aKV/8DFphJk/yeHI379MupOh/IApDlv2
OAZ/XwCzb6rDpGCtCdfXQfkF0x3mBT6duHQ7zP6ZDt8nnq6JnQblT5jlkG0W
FRc0D+aeOQ6PHkVYm6+F8jfMddgh273y+AaY++Y7LI4y27R+H5SfscDhRGlF
myVMvcFCh7bSi8r+x6H8HwsdFi+YaSe+C+b+RQ7XBKuVN8P0dyx28P2yPb0d
pj5giUNoaK796dNQvsRSh5w/C39fhck/WOoQOuOI98yrUP6KZQ5vl7rbeByB
+Xe5wwO1HVMvHIPyLVY4/OIpe1V9Cub/lQ7ymSa7amDuObHSYdrLUNWfe2Hh
scqBn7nd1+kglB+x2kHJNrY3C2aewhqHPR0Pt4echPJfrHGIiTy0ZQPMvRvW
OpT/XXhd7waUX7HOIYBvJmfeYVj4rXfQ8q2K+whUDwBN89aq
         "]]}, {
        Hue[0.8209230324909598, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJw1zW8o3AEcBvDfmS6rqdkimnFSdxPqV0sRukd2zb8Xx6ttreiijhMXN5mr
U7S6+bM7cxi5cTj3Z/6cyAvl/O7OyXklVldLwtJpSUzMC9Nsv++eenr6vHqS
FPVlVWEMw4hv+3f5vIVbsN+gXvRL/5HVIlRsq/Cwq7zRiqKSXlWOl8y1webT
H2Wd+3jvvcPjpZRabxOZeY88lcQaeePlLepCnr9AmOUjw4BHd4W/urVktgc7
nniNRUbmPmJQ3BP2KoYsN6E65c6T78ce+uvDU8GD+eAGWT2AXaej0u0kM4OQ
aA81aSaycQj94hzV/RayaBipioONaiXZZUas/V79h1IyRjCb1B+0PiMrR6Er
CASus8msBWsXBr8kmXxlwc/0oPQsgcyNoSVKEWqIIuvHIddJcmURZPkELJ3j
wvDfHO9YKzRzZZHzJ+Q9K2YuSgTtP8j2SbQ+1I2dHpLVNpQjIbpxh5xpR2F4
/ojhK5lxYC1uYaljk7zuQNPL/IyMANnoxOrW8254yS++IPGbWZ+6TBZNoVyY
OHG5SD6agrJGlrnlIrumYTRvf7r+7+YZsKbQG7eTjFnUfX690mfnpH8AjDvG
8g==
         "]]}, {
        Hue[0.05699100999074602, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkL7z1kebj5hD+YaVDsUftsgX3XmGITvUO9g
wMW44pXYEQj/QJPDwb/q/I+fHIDwH7Q6uOZkn0jx3QvhM3Q63D/bdV5X4yCE
r9DjwLCO0UT64j6oef0ODLy60hcu74baN9EhMqwh42XKTqj5kxyYeTgMJodv
h/ADpjgsenL8fdDfXVD7pjrcLhVamy8LVV8w3cF53oPImRVQ9QwzHbIFFgVW
8m2D8CfMcuBjsAh2ObYF6p45Dqp9Zw+xT4eq3zDXQTKsOfZbJFS9w3yHJnGh
H99ct0L4GQscnulfX/7dD6rfYKHDGZVLrEFRmyH8HwsdbmTX7ZnYvwnq/kUO
DVlVjF8OQtV3LHYIOr+TK/kTVH3AEgcer45OP30oX2KpQ7lHz8vIMqj+B0sd
dhnvUk+6shHCX7HMwXf26ZTHm6DqC5Y7ZNjPnTaFC8q3WOEwd4/6G8s8qH6G
lQ4eG+7q692H6j+x0kHa/Vj54xAof8Iqhw2hh/9xvIWqj1jtcNl6jlZDCpSv
sMah7Lt//+eHUPUv1jjYarzW0EqD8jesdXize7r0j28bIPyKdQ43k0xe/omB
6ndY73BwQ8SlXa822gMAwNnHcQ==
         "]]}, {
        Hue[0.2930589874905394, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDol3T6+9d++UPZhrUO1gfPVIpbHwaQjfod7B
06D92NEOKP9Ak4NpVdPOVyeh/AetDuY7f5ueOgLVz9DpENnAELmEEyqv0OOw
2PZjUnEyVN6h32HCfjbZHxtg9k10CA9/Xx70A8o/MMmhYG2Edm8SlB8wxaF0
Q6x/1gIo/8FUB0ZT1xPKN6D8gukOrXwqrEvjYPbPdOAzr+ltmAHlT5jlcHgz
p020PpSvMMdh5rHG9/apUP6GuQ4OdTkJN7pg7pvvwKLaHaxhDeVnLHAQl9rm
aJcPc+9ChyWpXyZ6CEH5PxY6bBUIfSLrDnP/Igejv2+3X8iA8jsWO8xhZ/0m
pgHzzxKHqulC7F89oHyJpQ6XgqKL3RNh/lvqMDdG84iMDpS/YpnDz8yp89oC
YP5d7pDEoJSjIwblW6xwUGRrsl1kBPP/SgfBx9PXzWCG8k+sdFgUmrKoVg4W
HqscSiW8mnaaQ/kRqx0uti9d0McJC581DvI7nPzZlaD8F2sc0vh9vxywgIXX
Wgfvube65UWh/Ip1DmxmV1/LacHCb73DkSvn925jOWUPANqrvuo=
         "]]}, {
        Hue[0.5291269649903256, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDj5JMWc2sJ2yB3MNqh3afHMrF2ZA+Q71Dl9P
pD/R1jgN4R9octCf+ur8RHGo/INWhwnrn1c/LT4J4TN0OkjuW62UKgqVV+hx
0OXcxR+xHCrv0O8g97Zpho4ulG8w0WGlidm23j1Q/oFJDheFw9W4IqD8gCkO
RwIWbbjIAOU/mOrwO+dcTi/MvoLpDhxpCp8aVWD2z3QQO9t0V/75CQh/wiyH
pulV+erOUHmFOQ58XSYHp3NB+RvmOjiuSH608yxUvcN8B79DE+rt1KDyGQsc
kq7+Krz1BypvsNDh+5/whZX7oPwfCx2cl3n7HhSGuX+Rw/pVx28HPIXKdyx2
EH2pcd5/P5QfsMQhM866MfMflC+x1IG7pfLQrAtQ/oOlDgeun1Ns2gzlr1jm
oGybLGf5GcovWO7gGrVrg+k5KN9ihYO6gcZmnrVQPsNKh4czrMqdnkH5J1Y6
HHHIOfHhKCw8VjlkMYRLFS6H8iNWOwh7OUjK3oTyFdY4bPz+IOr8bij/xRqH
s/OPeW6YD+VvWOvgsuTjL7srUH7FOgdb+eOKXDtg4bfe4aK6+sWni07YAwCt
u8uF
         "]]}, {
        Hue[0.765194942490119, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnZTm67fnXrYHsw1qHaom9G0+ojZIQjfod4h
Jaakcb7AEQj/QJMD/+9Nhur3D0D4D1odpj6T2KTZfxDCZ+h00Nu8Wu/VtX0Q
vkKPA5NDd6+DBlS9Q7/D9+5bdzbp7oXaN9Hh4q5rl5fnQdUfmOSg3vLkfV3F
fgg/YIrDNy4Gs4vSUPUPpjqc+CNa8VUCqr5gukPsxZRjuQp7oPbPdNhXcoTV
XxiqfsIsB76sieI1Sbuh7pnjcOKweuYLF6j6DXMd1t0JSD5/YhfUffMdrtb9
jeabB1WfscDhKa+eo0csVN5gocMNs5gJXXxQ+R8LHVQ/vej7+Wkn1P2LHI4t
Vgs9sgyqvmOxw6Eg5+bSQKj6gCUORXornuu7QeUlljoE39vA0HEXyn+w1KGX
4QDToY9Q81Ysc1C5bvywrg8qX7Dcwf/zztnNq6HyFiscUhin1upbQeUZVjoo
Nn892ZsHlT+x0uGp1O79yt+g/AmrHC4fP5P43wjKj1jtoMhoKbp3G5SvsMbh
0Aemck0GKP/FGoe/524lbKqG8jesddg3Q7+B4xeUX7HOQSFlXo6vH5TvsN7B
sOz68V2Hd9oDAMkGzDk=
         "]]}, {
        Hue[0.0012629199899052423`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtoL2qT0w0/Yg7kG1Q6+6swZ7honIXyHeoeC
k01mpxKh8geaHFZlB+omWEP5D1odLCdM1f4w/xiEz9Dp8PL+tYzsrVC+Qo/D
ct6fL/9/hPId+h1sFy512cd6HGrfRAdGG4XV2TJQ/oFJDp/dQy70m0DVB0xx
qHhSvaA5GMp/MNWBZ+bxTLMCKL9gukPHoi2XWdpg9s90MKtMmLTlyVEIf8Is
hyYnj9P//0H5CnMcGNwvlrbJQtVvmOsQPO/dvg/6MPfNd1imvE6u0AvKz1jg
cO6tY0vnNah+g4UO6wNSP+x6AOX/WOjQcGf7562MUPUHFjn8PPijaqEwlN+x
2EF04qSjURow/yxx+BP881vIYah+iaUOJ6WOrvh1Acp/sNRB9EYMa+lLKH/F
MocOhYz7+f+h/ILlDj8uTp70eTmUb7HCwdPyt1/ETiifYaWD1J5LvdznoPwT
Kx0OPdrT+vQOLDxWORx9Pe3quVdQfsRqh/Wrryl8XwQLnzUOZ227mg9uhPJf
rHEQ/hdnl7ofyt+w1kFbIGyF9hUov2KdA0/94c8ZE6F8h/UO/ipTt/AuPmoP
AHPP05g=
         "]]}, {
        Hue[0.2373308974896915, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqsfW9R9vnPSHsw1qHY4eZ/lbgPvCQjfod7h
8SqLktOGRyH8A00ObgJ27kcvHYTwH7Q6XJzGxvL/5T4In6HTYUeDiayl2m4I
X6HHYbL38qQWxwNQ8/oddlp4rF4avRdq30SHTdv9f1af2gU1f5LD7f1RPQ4L
dkD4AVMcxPbM+OR3fBvUvqkOU8M1ZQONtkL4BdMdWEtcd4gfhqpnmOlgVD1x
KY/rdgh/wiwHzadtpqdeQdUrzHFQvTd/u+XeLRD+hrkOGpMfS9cs2wx133yH
i8nFn5sKofZlLHDwOTxn09scqH6DhQ5vRXQtLmdB9f9Y6DD/5iGWN1Og+g8s
cpjNE1TpcXQThN+x2OER/0G96ZxQfsASh9miFQJFtlD9EksdrD/KSwVWQfU/
WOoQMklwU8F5qPoVyxzeek3v0NOH8guWO8ivy1G4OHkjhG+xwkHs3peyGmYo
n2GlQ89t00NXbkHVn1jpMHH+4iPvPKD8CascklentnTth6qPWO3A4p3s0mgP
5SuscWgq3XJJ5OgGCP/FGofvJ5RO/w+A8jesdXjMfPjDjadQ9RXrHO4o1Gya
mA/lO6x3YPwWYy8KdA8AZTTIjw==
         "]]}, {
        Hue[0.47339887498948485`, 0.6, 0.6], 
        Directive[
         PointSize[0.004583333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDq/qrVxa/x+3B3MNqh2mzi28URt4DMJ3qHf4
sPf39u5VhyH8A00OEjpqzw50HoDwH7Q62E628AhevwfCZ+h02Gi4p5fHcCeE
r9DjoMj+z/Ke1j6oef0O7g+kczfb7obaN9Fh1uMlz9/c3gE1f5LDD57Q/hU3
t0H4AVMcnge2ll1U2gq1b6rD66JJe9lXb4bwC6Y7rHzPN+XPT6h6hpkOj22t
/9VOh6qfMMsh6nFFlXHYFqh75ji0WhVfT7SD6t8w14G1IP/wXutNUPfNd2hK
/etiehmqPmOBw7T4OdFZD6HqDRY6MDHsLXrzEar+x0IHRuNjDwu1ofwDixxy
tmSHHs/aCOF3LHb4fO3llXl7NkD9s8RBQ+nEvwvHoeolljqYespIHBKC8h8s
dZCU8uQzKYHqX7HMoYeh3KHhPlR/wXKH365G98L8oXyLFQ5O++RFrk5aD/X/
SgdPA+UbR+ug+k+sdHianaKQ+h2qfsIqh80aIrIvy6H8iNUONSaVadKMUL7C
Gof/MfuOsspDzXuxxuH++glFM93XQcNrrcNaiRXpJbOh6ivWOXi0HJ+4RRfK
d1jvYH5wU7so0D0AUk3IZw==
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 0.49127019727494564`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alabama\"", "\"Alaska\"", "\"Arizona\"", "\"Arkansas\"", 
       "\"California\"", "\"Colorado\"", "\"Connecticut\"", "\"Delaware\"", 
       "\"Florida\"", "\"Georgia\"", "\"Hawaii\"", "\"Idaho\"", 
       "\"Illinois\"", "\"Indiana\"", "\"Iowa\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.004583333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.8818255569039297`*^9, {3.8818256076327953`*^9, 3.881825625180925*^9}, {
   3.881825656285376*^9, 3.8818256624394217`*^9}, 3.881826121165681*^9, {
   3.881827128367038*^9, 3.8818271480664682`*^9}, 3.881862335623887*^9, 
   3.8818623765142736`*^9, 3.8818625171289873`*^9, 3.881863923655593*^9, {
   3.8818679561415567`*^9, 3.881867962106481*^9}, 3.881868014559575*^9, {
   3.8818680745584793`*^9, 3.8818681053972797`*^9}, 3.881868438109099*^9, {
   3.881868546261551*^9, 3.8818685637648897`*^9}, 3.88186859419969*^9, 
   3.881868821753768*^9, 3.881870306509948*^9, 3.881870381341597*^9, 
   3.88188729567829*^9, 3.881898065794834*^9, 3.882060414380247*^9, 
   3.882127195678671*^9, 3.882127504725453*^9, 3.882139118283998*^9, 
   3.882236993504004*^9, 3.882237082287402*^9, 3.882514275785521*^9, 
   3.882514374204213*^9, 3.882555555187904*^9, {3.882596589610923*^9, 
   3.882596595138776*^9}},
 CellLabel->
  "Out[126]=",ExpressionUUID->"1a2521c9-4e4b-4853-ae1c-1bb0ec93f2a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"KeySelect", "[", 
    RowBox[{
     RowBox[{
     "Transpose", "[", "relativeVoterInStateDecisiveProbability", "]"}], ",", 
     
     RowBox[{
      RowBox[{"MemberQ", "[", 
       RowBox[{"smallest15States", ",", "#"}], "]"}], "&"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.881825611464286*^9, 3.881825661676818*^9}, 
   3.881868437427218*^9, 3.8818708930343037`*^9, {3.881887314217099*^9, 
   3.881887319875074*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"01d46a53-21e3-4fc4-8876-8c5afcc3a380"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnHv5i3b8PWYPZhrUO3wKs5ih0vUUQjfod6h
Sc4hbvOFQxD+gSYH23I7Qbml+yH8B60Od999Mxb3gcozdDoc4PstNlXwAISv
0OPg+bfv26Y7e6Dm9TtctrU+9Yl/F9S+iQ5BApuu9p3YDjV/kgPHd/nud8G7
IfyAKQ67H2W3CLjvhNo31eHCb4bdc1uh6gumOzBGNDNV/t4KtX+mw8uqP6+V
T+2A8CfMctCyyY+yj4SqV5jjsHzRddef4tsg/A1zHewcTpexvN8Cdd98h2hN
9gNtbzZD+BkLHNRL9jFfMYCqN1joYPPaJaleFWrfj4UOPu/rz31yh+o/sMjh
ghp3xuMCqP6OxQ7zGaKijkdC1QcscVgec7XnWwdUvcRSh3UBOU5/DkHVP1jq
EN8aHDhXFMpfscxBzfxMAkvxJqh/lzucbxHdLysA1W+xwiFBPnF+XDZUPcNK
h4qq/7FLr0DVn1jpcEKrrv2dE5Q/YZVDF/cPoy8boeojVjtk7Xklck8ZyldY
42C19H430xyo+hdrHDJ1Dq4wkIbyN6x1mD/xjGXl8o0QfsU6hw0K8UflX0Pl
HdY7hFh1XMwo3WQPAEGLx4Y=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDpZVPNHPdx+2B3MNqh1UhRReeUQdgvAd6h3e
WpzwPDPhKIR/oMnBY2vKpBIlqPyDVgfJV3m9/4v3Q/gMnQ4/Zq786jl/N4Sv
0OPwb+rnXceZoPIO/Q6tJY9nT2XYA7VvogN3eozDtt6dUPMnOTiJiN/4pg+V
D5ji0H3A70G30C6ofVMd2ub2Mb132gHhF0x3yP69Yeb/Yqg8w0yHWVnfsi/e
hspPmOXw4HfDsgeZ26HumeNwuk1h10b1bRD+hrkO2YHsH/f/hco7zHeQP3+s
oeoqVD5jgUOT25KI8DNboe5d6LDG/vHjiXFQ9T8WOkzPuzR3WyZU/YFFDote
Flxgr4Gq71jskL0shKfjA1Q+YIlDv1V+nKYAlC+x1OFkz3GrAmuo+gdLHf7N
z2TWaNwC4a9Y5iDRWLjk11mofMFyByG+t4qrhKF8ixUO8/Yq105Ng6pnWOkQ
8/udxKYpUPkTKx0eBs813/AWKj9hlcPXqqKq7AAoP2K1Q76DeaxoMlS9whqH
JpWbKS6nofIv1jjUcs94HmAN5W9Y69B5n1+QaddmCL9incNGked/5TdB5R3W
O3SpzhSKMNxiDwDBg8s0
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDlMkq9h/HTpqD+YaVDu4efFcuGtzBMJ3qHdw
8/i3iOXqQQj/QJPDyXuC6kL7D0H4D1odlO3jn611PADhM3Q6tOz7Ki2sBFWv
0ONwrzM97cHRfVDz+h0+5J9+WHNyN9S+iQ7pxU8kd03dCzV/ksNdRad9bYZQ
+YApDkKbNcoz9u+B2jfV4eGLo6+VDuyC8AumO3wVsi8WV4DKM8x04NvQsZwr
Dyo/YZaDxPeTU1Y92QF1zxwHh0Mf/IN0oPIb5jqEFFwKKT0DlXeY71CwLctu
9redEH7GAoc58u9Xi56EyhssdCiOOz/J9whU/sdCB5OO7Oue26DyBxY5fDpq
a7d1JVS+Y7HDEYe0L+wrofIBSxwWTu+RObt9O4QvsdRh15UStS1ToPIPljrc
W1fdxbQXKr9imcOr9Gn7KqdB5QuWO5Rt750ceQQqb7HC4fmdRQaPOqHyDCsd
Wr5oSCWfhsqfWOkgWLT1iaUwlD9hlcOSeM4vrmeg/IjVDmbsl1z6FKB8hTUO
R032nBI+D+W/WONg5/umzFoLyt+w1sGn0XdG9XUov2KdQ53vL7/HllC+w3oH
BvWFNUdubbcHAEJmzOE=
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDo+ihDVeuh22B3MNqh36xdSTw98ehPAd6h0e
tnz5uHs/VP5Ak4N45QRV5dkHIPwHrQ6PkgXEEzyg6hk6HW7Fb/g2LWofhK/Q
47DNI26D9bn9UPP6HTbfmcrSnQnVbzDRoXKK8asfn/dCzZ/kwPf0UvCCn1D9
AVMcTq8761axbA/UvqkOzAfPsC+YD1VfMN2huv+NG9f63VD7ZzroySxIlpgH
VT9hloPZ48nBYl92Qd0zx0Hsi/+tj5eg6jfMdRA6cWtSRz9UvcN8h7vsuwt2
6EHlMxY4yAie53X6BOUbLHRIaQw2KV8INe/HQoeKOV1t82Kh8gcWOSyzFg4O
tobKdyx2eH/HKSnkMZQfsMRha1zYV5sqqHqJpQ7stUEWVoVQ+QdLHUKFH7M/
4YTKr1jmMPv00e35ylD5guUOeXc+2HashvItVjh4PaozK7mwE+r/lQ49K77M
LIqEyp9Y6cB89NrJql6o/IRVDgfvKt5h5YbKR6x2iDP9Gbm/GRY+axy+n92t
XnUcqv7FGocQNo65Xy2g8hvWOshrcdzwnwiVr1jn8PKZR+/iv1C+w3qH9ynV
XHejd9oDAL9Ky0c=
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDu6TdxS8KjpmD+YaVDvY+LXb1zw4AuE71Dtc
ub2GyyD1EIR/oMlB5f25qwvDDkP4D1odCjZdT5A5egDCZ+h0WJrY4OdSshfC
V+hxWPB11tbV+/ZDzet32Kox20Zl1R6ofRMdTm2synzVsg9q/iQHYZ7zzYm8
UPmAKQ4uGsu/NX7aCbVvqsNmdccvGTN2Q/gF0x0e2Tc8fHkSKs8w00E3gv37
Dmeo/IRZDuqBh1rerIXKK8xx8Dj8/n+Lzw4If8Nch++Ogr2fp0DlHeY73N71
dwVDJFQ+Y4GD3c5FcysmQuUNFjr8ZP2ckhoLlf+x0CH90Fc1sbjtUPcvcqh+
NCl5Sz5UvmOxg06e0VG/aqh8wBKHh/b3ZvWVQ+Ulljo8t5zMv7AbKv9gqcPl
N1Gq72qg8iuWOSzL5Vd3XAOVL1ju4CUcvPzLw20QvsUKh8e8ew4q74bKM6x0
MHHfn/GaCco/sdIh9pHx5RNnofwJqxxmFu+wfiwF5Uesdlh54NIznRKoeQpr
HHbKey3TNILKv1jjUM3izDZxIlR+w1qH9kdqKkd8oPIV6xxYtJb9PLgJKu+w
3qGvY87GBtVt9gA+Fc3O
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDl8u9Oab3jpkD+YaVDtY2zyYtDrxOITvUO9w
uXnGBvVZRyD8A00O7zftLeENPgjhP2h16Fom9sOVZx+Ez9DpcKdA60tB3QEI
X6HHoUKhh1F2wV6oef0ObvN3NAYf2AW1b6LD880h3vu8ofIHJjm8Tei5O+0t
VD5gioPoqnksMS92QO2b6nC6YvXRRVy7IfyC6Q4uu6KMSl13Qu2f6bD9C0NQ
8/7tEP6EWQ7btyxUDJgAlVeY42Ckn3On1QBq3oa5Dhe3r5wV+3ob1H3zHU7Y
v25u74LKZyxwkG4UlOnLhZpnsNBhibCBkE8wVP2PhQ4XX8/26D0FlT+wyOGX
nKSy3TmofMdih/5Ww506r7ZC/bPE4Yn+iepWfah6iaUOQc8ebP/uD1X/YKnD
9SN6e417oOpXLHNY6/TsSdVOqHzBcod3lb+6fb5D5S1WOIQqlti/dILyGVY6
VK1cKngyFKr+xEqHeYXFG9+vgMpPWOWwtsj3qBYblB+x2iGXsffdMwaoeoU1
DtvTpq3ekgKVf7HGYVuUBf+sC1ug4bXWIW1lYeAEbyi/Yp2D3oHF11n1oeod
1juk7lRlMFm9xR4AM2jK5g==
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDv9TnvVobztkD+YaVDukHM3QOnvwKITvUO8g
/p9NpVj7MIR/oMlBX6n0bH8ElP+g1aFf3u3S7GMHIHyGTgczr8OnUwwOQvgK
PQ4T5Scz59zfBzWv34E1t+rg/Dv7ofZNdGB1ufFeIBqq/8Akhxk/fzPwCkLV
B0xxEFI3uvD8GZT/YKqD6w6mpUYH90D4BdMdFCeHcTf174XaP9PhwlvbFRbH
d0P4E2Y53Eza2fOuC6peYY7Dj3ClJ51OUPUb5jrI/VyiK7YTqt5hvoMA7/+m
+iyo+owFDk/LQ/pyFKDyBgsdPrxdfLBgE5T/Y6HDoR1XluwNhao/sMih4p1R
mKomVL5jsYPrd8cix91QfsASh1xmnQVvVu+C8CWWOlw5fiA7VRcq/2Cpg5yT
5KHwLVD+imUOL7o2xxmfgKovWO6Q8+2llosDVN5ihcMD99zu9ASoPMNKh5I9
geZqt6H8EysdvrLy2z/3gIXHKofJcWsenq6GykesdojMT93n8wLKV1jjsD1w
Z521JpT/Yo1DYquRcks/lL9hrcNXTW0LkV9QfsU6B96AP1d2uEP5Dusd9ucz
sV1btcseAM+cx08=
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmeMJvU0BB+zB3MNqh14mmvrXA8fgfAd6h2Y
m7k9i7wPQfgHmhxYnWzNJ1kfhvAftDoslnh4a8naAxA+Q6cDW4zuCx7vvRC+
Qo/DCieV3faT9kPN63d48vzGWvamPVD7JjrkBt+sNo3aBzV/ksPqvdMCFZ7t
hvADpjjMj5p91ejcTqh9Ux2YjqwqOF0IlS+Y7rD5Z3Pf5aVQeYaZDj7sCl8n
ykLlJ8xy2POoN+ZvJ1ReYY7DxF88aqq3dkH4G+Y6HLhyJky9ECrvMN/h+dus
ie/MdkD4GQscTHjF3TbmQuUNFjq0Ztaq+1pD5X8sdNiacWxORhRU/sAiB7OH
me1NvlD5jsUOU+4sfF4UtR3qnyUOV7x2HwwMhcpLLHXY8Fwjel0WVP7BUofd
cXHHV0ZB5Vcsc7hzyfK0QjdUvmC5w571a/oNk6DyFiscslMmTnw3EyrPsNLh
atRXxh2PtkH4J1Y6iE193F25Bio/YZVDuN9lr75fUPmI1Q6Zj2cVqe2Cyius
ceg83KW8RRDKf7HGIf6VoN2fQqj6DWsdVJJN0zV1oPIV6xyEjofs/zcJKu+w
3mGV//rmG/bb7QFmPcn+
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkyVkS28rcfswVyDaodVOav9VT4egfAd6h3y
y7+2zyo+BOEfaHJg3ju/h20+lP+g1aGLrf1k0nUon6HTwenideHu7gMQvkKP
w4cuQ/Wm31C+Q7+DYFi6It/qfVD7JjqkX2q1z6rZDzV/ksMSe3k+JxGo+oAp
DtpXNu3p2rcXat9UBwFmE+HSIqj+gukOU58l9a/igupnmOlwMT1Xslwbqn7C
LIcHR3ri1x2G8hXmOHjka79+GQLVv2GuQwX7GhfmvXug7pvvkLuAP6DAD6o+
Y4GDh8f0Tf9+7oa6d6FD/YSI48IFUPU/Fjo0///bvvQXlH9gkYPOx/c+Rseh
6jsWO7yLFz1S7wyVD1jioD3XtuHURihfYqlDxdysIKa5UPUPljo07yi9oC4E
lV+xzOFUwNMLeXVQfsFyh96qWbdudUHVW6xwKF1s23LoLZTPsNKhVSV31yMR
KP/ESgejOc+qGUuh/AmrHB5bnP+edh7Kj1jt8OuNivlaNihfYY1D11TTp0bx
UP6LNQ6ejb9b6jdB+RvWOhSqVFanMUL5FescLDbYLmQLgvId1jskeX7Qur5k
tz0AiIrHGw==
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt+neHAHOh+zB3MNqh3mFzTlJ245AuE71Dvs
tzzR12Z3CMI/0OSwuyJ2u8v6fRD+g1aHnKrLiz7sPQjhM3Q61CdxTqrV3A/h
K/Q47Pp/IK7iz26oef0OGlmX51S47oTaN9GBLf0WF8+VPVDzJzm8E1aKnF+/
C8IPmOKgKeLCsL5pB9S+qQ7/C7y+3z+3DcIvmO7wOm3GRfMpUPMYZjpMvar1
oYcTqn7CLAf3/oWetxZD1SvMcdi3tV4nJGcrhL9hrkP4uxVbJ6/bDnXffAd1
NfE05S6o+owFDhv2FFzKbYGqN1joEKVlImzWuAXC/7HQ4f7LF1uSVm2Gun+R
Q9JTZ9eIbqj6jsUOs3Pm3H++Gao+YInDE8fKqNyXUPUSSx2MJ4WplmpC+Q+W
Otxfb/Nm6kWo+hXLHH4LiTuZKkD5Bcsd3KLvp9uXQNVbrHAIyW00bLiyCer/
lQ4y+3MYTnhC1Z9Y6TB17cv3J9ZA1U9Y5VC7UjD9owSUH7HaQUWtQU27H6pf
YY1D/My1YvncUP6LNQ71pu8LWAOg6jesdajcd3P7dJh9Fesc5tsUr1WNgPId
1juEyhjbMz7baA8APAHGJA==
         "]]}, {
        Hue[0.030679774997896203`, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.915, 0.3325, 0.2125], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDs+DJBgPHz1kD+YaVDskF26d7e9xHMJ3qHd4
JW6Wc775CIR/oMnhho2Fi7PDQQj/QauDxu9wnvWv90L4DJ0OPZpfo3tzDkD4
Cj0OXDyXU37XQ+Ud+h2uPv3xyn/xLqh9Ex027rYx+KENlT8wyWGPXYh+0gWo
fMAUh92emoERZ3dA7Zvq0LZtyjS/t1D5gukOcbFnWnm0dkLtn+nwxYt38sGl
2yH8CbMcJi10cJ1WApVXmONQGner21MMat6GuQ7fbxp8bry0Deq++Q4uwrum
vMyHymcscHjawuyoGgI1z2Chw2JhsUhRa6j6HwsdbGxXTti/ASp/YJGDwoOt
gk1bofIdix12Ru1kzri0FeqfJQ7BP2a/iBeDqpdY6pBx0HL2EXOo+gdLHfyE
ez5fKYGqX7HMYfqc8IirC6DyBcsd1onXz6q8D5W3WOFQ3Bn8+aY2lM+w0uHH
/VVL+22h6k+sdJCyW7m3cCJUfsIqhyd9v6Ni32+B8CNWO+zn3jeJ8yVUXmGN
Q+Ulpx0NvlD+izUOqw/X7WXbBVW/Ya1DuNPNdo3lUPmKdQ6fKibJ8khA+Q7r
HbgbfexOTtliDwAJTsk/
         "]]}, {
        Hue[0.266747752497686, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt0lKiGld47Yg7kG1Q4NRazGS9IOQ/gO9Q4f
7xUxFEkchPAPNDn07t3ROF8bKv+g1eH352+Hvsw/AOEzdDoE3GQ/o2+8F8JX
6HEoae/fHW25C2pev0OiBIs81yyovMFEB92OlMYY5t1Q8yc5/Iu+OL/2yg4I
P2CKw0zZCWUn+qHyD6Y6hLlF9G1YuhPCL5juIJW8ZsaL79uh9s90yE9QShFv
2wbhT5jl8DR1SrTNAah5CnMcToiUpS/LhqrfMNeBial80g0DqHqH+Q6uc5Kl
LslthfAzFjhIRbbYinBD1RssdOA9ErCm/CtU/sdCh8OS2UZp/FD+gUUO3O+m
MAkZbIHwOxY73Fx09yD/Zah8wBKHLR6vJGf/hcpLLHU4f9X3mJUxlP9gqUO/
9H+HX2ug6lcsc1BOu8bm/QUqX7DcYeqTmMf2jlC+xQqHWC8bjzezNkP9v9LB
LuPVibqXUPkTKx18BLqvrnKH8iescnB9f2Ou23qo+ojVDifWn+BzVoTyFdY4
LGT1+pHsBVX/Yo1DTMObkrd7ofIb1jpMY9+/8YA9lF+xzuHq25AbnQc2QcNv
vcPSyt6blpc22wMAShTHEw==
         "]]}, {
        Hue[0.5028157299974758, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkL7z1kebj5hD+YaVDsUftsgX3XmGITvUO9g
wMW44pXYEQj/QJPDwb/q/I+fHIDwH7Q6uOZkn0jx3QvhM3Q63D/bdV5X4yCE
r9DjwLCO0UT64j6oef0ODLy60hcu74baN9EhMqwh42XKTqj5kxyYeTgMJodv
h/ADpjgsenL8fdDfXVD7pjrcLhVamy8LVV8w3cF53oPImRVQ9QwzHbIFFgVW
8m2D8CfMcuBjsAh2ObYF6p45Dqp9Zw+xT4eq3zDXQTKsOfZbJFS9w3yHJnGh
H99ct0L4GQscnulfX/7dD6rfYKHDGZVLrEFRmyH8HwsdbmTX7ZnYvwnq/kUO
DVlVjF8OQtV3LHYIOr+TK/kTVH3AEgcer45OP30oX2KpQ7lHz8vIMqj+B0sd
dhnvUk+6shHCX7HMwXf26ZTHm6DqC5Y7ZNjPnTaFC8q3WOEwd4/6G8s8qH6G
lQ4eG+7q692H6j+x0kHa/Vj54xAof8Iqhw2hh/9xvIWqj1jtcNl6jlZDCpSv
sMah7Lt//+eHUPUv1jjYarzW0EqD8jesdXize7r0j28bIPyKdQ43k0xe/omB
6ndY73BwQ8SlXa822gMAwNnHcQ==
         "]]}, {
        Hue[0.7388837074972656, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnZTm67fnXrYHsw1qHaom9G0+ojZIQjfod4h
Jaakcb7AEQj/QJMD/+9Nhur3D0D4D1odpj6T2KTZfxDCZ+h00Nu8Wu/VtX0Q
vkKPA5NDd6+DBlS9Q7/D9+5bdzbp7oXaN9Hh4q5rl5fnQdUfmOSg3vLkfV3F
fgg/YIrDNy4Gs4vSUPUPpjqc+CNa8VUCqr5gukPsxZRjuQp7oPbPdNhXcoTV
XxiqfsIsB76sieI1Sbuh7pnjcOKweuYLF6j6DXMd1t0JSD5/YhfUffMdrtb9
jeabB1WfscDhKa+eo0csVN5gocMNs5gJXXxQ+R8LHVQ/vej7+Wkn1P2LHI4t
Vgs9sgyqvmOxw6Eg5+bSQKj6gCUORXornuu7QeUlljoE39vA0HEXyn+w1KGX
4QDToY9Q81Ysc1C5bvywrg8qX7Dcwf/zztnNq6HyFiscUhin1upbQeUZVjoo
Nn892ZsHlT+x0uGp1O79yt+g/AmrHC4fP5P43wjKj1jtoMhoKbp3G5SvsMbh
0Aemck0GKP/FGoe/524lbKqG8jesddg3Q7+B4xeUX7HOQSFlXo6vH5TvsN7B
sOz68V2Hd9oDAMkGzDk=
         "]]}, {
        Hue[0.9749516849970554, 0.6, 0.6], 
        Directive[
         PointSize[0.0055000000000000005`], 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqsfW9R9vnPSHsw1qHY4eZ/lbgPvCQjfod7h
8SqLktOGRyH8A00ObgJ27kcvHYTwH7Q6XJzGxvL/5T4In6HTYUeDiayl2m4I
X6HHYbL38qQWxwNQ8/oddlp4rF4avRdq30SHTdv9f1af2gU1f5LD7f1RPQ4L
dkD4AVMcxPbM+OR3fBvUvqkOU8M1ZQONtkL4BdMdWEtcd4gfhqpnmOlgVD1x
KY/rdgh/wiwHzadtpqdeQdUrzHFQvTd/u+XeLRD+hrkOGpMfS9cs2wx133yH
i8nFn5sKofZlLHDwOTxn09scqH6DhQ5vRXQtLmdB9f9Y6DD/5iGWN1Og+g8s
cpjNE1TpcXQThN+x2OER/0G96ZxQfsASh9miFQJFtlD9EksdrD/KSwVWQfU/
WOoQMklwU8F5qPoVyxzeek3v0NOH8guWO8ivy1G4OHkjhG+xwkHs3peyGmYo
n2GlQ89t00NXbkHVn1jpMHH+4iPvPKD8CascklentnTth6qPWO3A4p3s0mgP
5SuscWgq3XJJ5OgGCP/FGofvJ5RO/w+A8jesdXjMfPjDjadQ9RXrHO4o1Gya
mA/lO6x3YPwWYy8KdA8AZTTIjw==
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 0.20205539382166413`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alaska\"", "\"Delaware\"", "\"Hawaii\"", "\"Idaho\"", "\"Maine\"", 
       "\"Montana\"", "\"Nebraska\"", "\"New Hampshire\"", "\"New Mexico\"", 
       "\"North Dakota\"", "\"Rhode Island\"", "\"South Dakota\"", 
       "\"Vermont\"", "\"West Virginia\"", "\"Wyoming\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 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"], 
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.915, 0.3325, 0.2125], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
                    
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}}, 
                 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`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[0.915, 0.3325, 0.2125]|>,
                     "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.40082222609352647`, 0.5220066643438841, 0.85]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.9728288904374106, 0.621644452187053, 
                    0.07336199581899142]|>, "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[0.736782672705901, 0.358, 0.5030266573755369]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.0055000000000000005`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> 
                    RGBColor[
                    0.28026441037696703`, 0.715, 0.4292089322474965]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm], ",", 
               TagBox[#11, HoldForm], ",", 
               TagBox[#12, HoldForm], ",", 
               TagBox[#13, HoldForm], ",", 
               TagBox[#14, HoldForm], ",", 
               TagBox[#15, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True"}], "}"}]}], ",", 
           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.8818255569039297`*^9, {3.8818256076327953`*^9, 3.881825625180925*^9}, {
   3.881825656285376*^9, 3.8818256624394217`*^9}, 3.881826121165681*^9, {
   3.881827128367038*^9, 3.8818271480664682`*^9}, 3.881862335623887*^9, 
   3.8818623765142736`*^9, 3.8818625171289873`*^9, 3.881863923655593*^9, {
   3.8818679561415567`*^9, 3.881867962106481*^9}, 3.881868014559575*^9, {
   3.8818680745584793`*^9, 3.8818681053972797`*^9}, 3.881868438109099*^9, {
   3.881868546261551*^9, 3.8818685637648897`*^9}, 3.88186859419969*^9, 
   3.881868821753768*^9, 3.881870306509948*^9, 3.881870381341597*^9, 
   3.881887320531453*^9, 3.881898065912401*^9, 3.8820604145816813`*^9, 
   3.882127195787017*^9, 3.882127504850382*^9, 3.882139118433979*^9, 
   3.8822369937668953`*^9, 3.882237082528199*^9, 3.882514374363167*^9, 
   3.882555555257257*^9, {3.882596589799046*^9, 3.882596595314953*^9}},
 CellLabel->
  "Out[127]=",ExpressionUUID->"4271aca5-02ad-4c9a-a2c8-71c8060b5b0c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"KeySelect", "[", 
    RowBox[{
     RowBox[{
     "Transpose", "[", "relativeVoterInStateDecisiveProbability", "]"}], ",", 
     
     RowBox[{
      RowBox[{"MemberQ", "[", 
       RowBox[{"largest5Smallest5States", ",", "#"}], "]"}], "&"}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.8825147595001707`*^9, 3.8825147661354237`*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"571d4b8d-7136-46b8-a9bc-c3b264c559cf"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDnHv5i3b8PWYPZhrUO3wKs5ih0vUUQjfod6h
Sc4hbvOFQxD+gSYH23I7Qbml+yH8B60Od999Mxb3gcozdDoc4PstNlXwAISv
0OPg+bfv26Y7e6Dm9TtctrU+9Yl/F9S+iQ5BApuu9p3YDjV/kgPHd/nud8G7
IfyAKQ67H2W3CLjvhNo31eHCb4bdc1uh6gumOzBGNDNV/t4KtX+mw8uqP6+V
T+2A8CfMctCyyY+yj4SqV5jjsHzRddef4tsg/A1zHewcTpexvN8Cdd98h2hN
9gNtbzZD+BkLHNRL9jFfMYCqN1joYPPaJaleFWrfj4UOPu/rz31yh+o/sMjh
ghp3xuMCqP6OxQ7zGaKijkdC1QcscVgec7XnWwdUvcRSh3UBOU5/DkHVP1jq
EN8aHDhXFMpfscxBzfxMAkvxJqh/lzucbxHdLysA1W+xwiFBPnF+XDZUPcNK
h4qq/7FLr0DVn1jpcEKrrv2dE5Q/YZVDF/cPoy8boeojVjtk7Xklck8ZyldY
42C19H430xyo+hdrHDJ1Dq4wkIbyN6x1mD/xjGXl8o0QfsU6hw0K8UflX0Pl
HdY7hFh1XMwo3WQPAEGLx4Y=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkfCWvefj7xrD+YaVDuccpWyTmmD8h3qHdYY
hwZ9CYbyDzQ5SPvP9n+kfA/Cf9DqsEbk/M6H36HyDJ0OstVXLzyphcor9Dgw
7l+aO7sIynfod7g7y/55aA+UbzDRYWZtxbJLa6D8A5McprgeeLX7MJQfMMWh
qHVqqcAVmH1THQQYsoUsn0H5BdMdWrqPXXz8HspnmOlw7NFOoTqO+xD+hFkO
us6VWv95oHyFOQ6VX3dJfJWD8jfMdbBRF1ydIgvlO8x3CCi/zzxFH8rPWODA
y/kp+bc0lG+w0GH754X3JxpB+T8WOoRw/LNfoAblH1jk4PjTucldE8rvWOzw
51uYAq8JlB+wxOGI3ed/d8ygfImlDk4fp5wVCYbyHyx1SOnwb1V1gPJXLHPg
v2QzP84fyi9Y7qCosc5slx+Ub7HCYVYUa++JACifYaVDvPZCjuUxUP6JlQ73
Zzl6R8bCwmOVww+fhY4PYPyI1Q4CcTfv+ybBwmeNg3ubwJMDMP6LNQ4qPyPu
lcH4G9Y6LE0t2d4aAeVXrHPQfb6p90cBLPzWOwhXuVQsSLhvDwDF4Mvg
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDgYzr4d9cr1iD+YaVDusWrFEIdMIyneod+jn
NTf9eQbKP9Dk8LdEyFe8Asp/0OrwP/fJnMVnoXyGTodVqdonPDuhfIUeh1U3
tX+a3IKZ1+8gfd1N59tqmH0THYwtjyYl3ICZP8kh4TfnrEdboPyAKQ42sXvd
LK/B7Jvq8CwtZ07WDii/YLrDMQMxRoYrMPtnOmy44t29Zi+UP2GWw9HCBzs3
w+QV5jjceV974vUBKH/DXId8vUQXkcsw9813kOli23P6EJSfscBBrappR9QD
mHsXOnS1L085/xTK/7HQ4UTq1B/6d2HuX+TglJ52bsMbKL9jscOr35LZF+7A
/LPEoXsx46vZr6F8iaUO4dIzk6xg7nuw1MHhzupZRS+h/BXLHOam3c12uQfz
73IHg23S0l9g8hYrHEoyA3LSYeHLsNJhVpXNnc+voPwTKx0OpN46f+02LDxW
OVS2PlD6/wzKj1jt8PwPa+gVmH6FNQ4ClZq1hTD/vVjjcGDyM13F97DwWusQ
fZYjYzXM/op1Dgtte0K6YOY7rHeQ9Fifqw2UBwASDNk9
         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.922526, 0.385626, 0.209179], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDmvfXE1fkHvZHsw1qHaYvFu1fXsplO9Q7yAQ
9PSuxGwo/0CTQ9Ciq6d1J0P5D1odpG57y55VvALhM3Q67Jt3RvYVO5Sv0OOw
zcSbn0MGynfod9A7OOvmdEEo32CiQ5r59s+T+KD8A5McWvYvynrFCeUHTHH4
o3jWwZcFyn8w1WF/5hajSYxQfsF0hxKNB8FSf6DuYZjpkHemQ/7+Xyh/wiyH
SqOVUy1/QPkKcxyEfobPYvoF5W+Y6+DGzCD+QwHmvvkOol9bHY2/QeUzFjjM
ilxenqAGc+9Ch1guQcdVolD+j4UOz0VcmexlYe5f5LDqf3aErQSU37HYoX1q
3add4jD/LHGQWPAsba8wlC+x1GHH98AFmtww/y11WORjzboVFh4rljl0vi37
/UsA5t/lDqz6a3at54HyLVY4XOZT92TkgoX/Sgc3E5fEfJh5J1Y6tInMu++t
DOVPWOWQmr197jp5KD9itcO7XOUr5nKw+FrjsDzCZ8FvKSj/xRqHlxZ6v6bC
3L9hrYNZTFOFNCw+K9Y56BW9tfsNk3dY7+CxJvCHlOQVewBs4MC9
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.528488, 0.470624, 0.701351], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt+neHAHOh+zB3MNqh3mFzTlJ245AuE71Dvs
tzzR12Z3CMI/0OSwuyJ2u8v6fRD+g1aHnKrLiz7sPQjhM3Q61CdxTqrV3A/h
K/Q47Pp/IK7iz26oef0OGlmX51S47oTaN9GBLf0WF8+VPVDzJzm8E1aKnF+/
C8IPmOKgKeLCsL5pB9S+qQ7/C7y+3z+3DcIvmO7wOm3GRfMpUPMYZjpMvar1
oYcTqn7CLAf3/oWetxZD1SvMcdi3tV4nJGcrhL9hrkP4uxVbJ6/bDnXffAd1
NfE05S6o+owFDhv2FFzKbYGqN1joEKVlImzWuAXC/7HQ4f7LF1uSVm2Gun+R
Q9JTZ9eIbqj6jsUOs3Pm3H++Gao+YInDE8fKqNyXUPUSSx2MJ4WplmpC+Q+W
Otxfb/Nm6kWo+hXLHH4LiTuZKkD5Bcsd3KLvp9uXQNVbrHAIyW00bLiyCer/
lQ4y+3MYTnhC1Z9Y6TB17cv3J9ZA1U9Y5VC7UjD9owSUH7HaQUWtQU27H6pf
YY1D/My1YvncUP6LNQ71pu8LWAOg6jesdajcd3P7dJh9Fesc5tsUr1WNgPId
1juEyhjbMz7baA8APAHGJA==
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.772079, 0.431554, 0.102387], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDtEnLM6otV+wB3MNqh3ePE425rOA8h3qHeSv
qc5s6oPyDzQ5lDq9atpXDOU/aHW4UDZpw7Nz5yF8hk6HN0dzG0JPQvkKPQ6f
Hjj+nMEIM6/f4dz6K/LWLDD7Jjr8eKKa8YoLZv4kh41upls380H5AVMcFNao
yx4TgNk31SF+NcMkfhEov2C6w8/6j/vnw/gMMx24y9bKuElB+RNmOSwIjHg6
SxLKV5jjsOxktKG7HJS/Ya7DDtHO4pvSMPfNd4hpUUn7oADlZyxw+DzROWLn
W6h/DBY6rJBVjd9/H8r/sdCh6NhrWeZvUP6BRQ5Xfq+30f0B5XcsdthwQjxT
nwHmnyUOy0/aPwiEhYfEUoc9ASoKen+h6h8sdeBnyWR4DgufFcscps5szReF
hU/BcoetU438X3FC+RYrHPbsNpTZAZNnWOmQFCeSvhMWfidWOjw5VTtPiB8W
HqscuO84fgmH8SNWOyy6orVc9RksvtY4PNRTZnZ7AeW/WOOQx7Lyx8GXUP6G
tQ5KDiasT2H+rVjnYG/a57UDxndY73Dni91EiX/n7QHfycaL
         "]]}, {
        Hue[0.08640786499873876, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.363898, 0.618501, 0.782349], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDt0lKiGld47Yg7kG1Q4NRazGS9IOQ/gO9Q4f
7xUxFEkchPAPNDn07t3ROF8bKv+g1eH352+Hvsw/AOEzdDoE3GQ/o2+8F8JX
6HEoae/fHW25C2pev0OiBIs81yyovMFEB92OlMYY5t1Q8yc5/Iu+OL/2yg4I
P2CKw0zZCWUn+qHyD6Y6hLlF9G1YuhPCL5juIJW8ZsaL79uh9s90yE9QShFv
2wbhT5jl8DR1SrTNAah5CnMcToiUpS/LhqrfMNeBial80g0DqHqH+Q6uc5Kl
LslthfAzFjhIRbbYinBD1RssdOA9ErCm/CtU/sdCh8OS2UZp/FD+gUUO3O+m
MAkZbIHwOxY73Fx09yD/Zah8wBKHLR6vJGf/hcpLLHU4f9X3mJUxlP9gqUO/
9H+HX2ug6lcsc1BOu8bm/QUqX7DcYeqTmMf2jlC+xQqHWC8bjzezNkP9v9LB
LuPVibqXUPkTKx18BLqvrnKH8iescnB9f2Ou23qo+ojVDifWn+BzVoTyFdY4
LGT1+pHsBVX/Yo1DTMObkrd7ofIb1jpMY9+/8YA9lF+xzuHq25AbnQc2QcNv
vcPSyt6blpc22wMAShTHEw==
         "]]}, {
        Hue[0.3224758424985268, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[1, 0.75, 0], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDo9+5tX+abluD+YaVDtwPhRTP7scyneod1iQ
sPTdB+YbEP6BJofXQry37ytC+Q9aHV5W5SdIJEP5DJ0O/0yOW/hlQvkKPQ7r
bQyeGgZB+Q79Di9+RSh8T4fyDSY6aKV/8DFphJk/yeHI379MupOh/IApDlv2
OAZ/XwCzb6rDpGCtCdfXQfkF0x3mBT6duHQ7zP6ZDt8nnq6JnQblT5jlkG0W
FRc0D+aeOQ6PHkVYm6+F8jfMddgh273y+AaY++Y7LI4y27R+H5SfscDhRGlF
myVMvcFCh7bSi8r+x6H8HwsdFi+YaSe+C+b+RQ7XBKuVN8P0dyx28P2yPb0d
pj5giUNoaK796dNQvsRSh5w/C39fhck/WOoQOuOI98yrUP6KZQ5vl7rbeByB
+Xe5wwO1HVMvHIPyLVY4/OIpe1V9Cub/lQ7ymSa7amDuObHSYdrLUNWfe2Hh
scqBn7nd1+kglB+x2kHJNrY3C2aewhqHPR0Pt4echPJfrHGIiTy0ZQPMvRvW
OpT/XXhd7waUX7HOIYBvJmfeYVj4rXfQ8q2K+whUDwBN89aq
         "]]}, {
        Hue[0.5585438199983166, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.647624, 0.37816, 0.614037], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDkL7z1kebj5hD+YaVDsUftsgX3XmGITvUO9g
wMW44pXYEQj/QJPDwb/q/I+fHIDwH7Q6uOZkn0jx3QvhM3Q63D/bdV5X4yCE
r9DjwLCO0UT64j6oef0ODLy60hcu74baN9EhMqwh42XKTqj5kxyYeTgMJodv
h/ADpjgsenL8fdDfXVD7pjrcLhVamy8LVV8w3cF53oPImRVQ9QwzHbIFFgVW
8m2D8CfMcuBjsAh2ObYF6p45Dqp9Zw+xT4eq3zDXQTKsOfZbJFS9w3yHJnGh
H99ct0L4GQscnulfX/7dD6rfYKHDGZVLrEFRmyH8HwsdbmTX7ZnYvwnq/kUO
DVlVjF8OQtV3LHYIOr+TK/kTVH3AEgcer45OP30oX2KpQ7lHz8vIMqj+B0sd
dhnvUk+6shHCX7HMwXf26ZTHm6DqC5Y7ZNjPnTaFC8q3WOEwd4/6G8s8qH6G
lQ4eG+7q692H6j+x0kHa/Vj54xAof8Iqhw2hh/9xvIWqj1jtcNl6jlZDCpSv
sMah7Lt//+eHUPUv1jjYarzW0EqD8jesdXize7r0j28bIPyKdQ43k0xe/omB
6ndY73BwQ8SlXa822gMAwNnHcQ==
         "]]}, {
        Hue[0.7946117974981064, 0.6, 0.6], 
        Directive[
         PointSize[0.007333333333333334], 
         RGBColor[0.571589, 0.586483, 0.], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGBQA2IQDQGVDqsfW9R9vnPSHsw1qHY4eZ/lbgPvCQjfod7h
8SqLktOGRyH8A00ObgJ27kcvHYTwH7Q6XJzGxvL/5T4In6HTYUeDiayl2m4I
X6HHYbL38qQWxwNQ8/oddlp4rF4avRdq30SHTdv9f1af2gU1f5LD7f1RPQ4L
dkD4AVMcxPbM+OR3fBvUvqkOU8M1ZQONtkL4BdMdWEtcd4gfhqpnmOlgVD1x
KY/rdgh/wiwHzadtpqdeQdUrzHFQvTd/u+XeLRD+hrkOGpMfS9cs2wx133yH
i8nFn5sKofZlLHDwOTxn09scqH6DhQ5vRXQtLmdB9f9Y6DD/5iGWN1Og+g8s
cpjNE1TpcXQThN+x2OER/0G96ZxQfsASh9miFQJFtlD9EksdrD/KSwVWQfU/
WOoQMklwU8F5qPoVyxzeek3v0NOH8guWO8ivy1G4OHkjhG+xwkHs3peyGmYo
n2GlQ89t00NXbkHVn1jpMHH+4iPvPKD8CascklentnTth6qPWO3A4p3s0mgP
5SuscWgq3XJJ5OgGCP/FGofvJ5RO/w+A8jesdXjMfPjDjadQ9RXrHO4o1Gya
mA/lO6x3YPwWYy8KdA8AZTTIjw==
         "]]}}}, {{}, {{}, {}}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {325.00000000000074`, 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, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{325.00000000000074`, 4000.}, {0, 0.49127019727494564`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.08090169943749476]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Alaska\"", "\"California\"", "\"Florida\"", "\"New York\"", 
       "\"North Dakota\"", "\"Pennsylvania\"", "\"South Dakota\"", 
       "\"Texas\"", "\"Vermont\"", "\"Wyoming\""}, "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]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.528488, 0.470624, 0.701351], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.772079, 0.431554, 0.102387], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.363898, 0.618501, 0.782349], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[1, 0.75, 0], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.647624, 0.37816, 0.614037], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.571589, 0.586483, 0.], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> 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.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.368417, 0.506779, 0.709798]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.880722, 0.611041, 0.142051]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.560181, 0.691569, 0.194885]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.922526, 0.385626, 0.209179]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.528488, 0.470624, 0.701351]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.772079, 0.431554, 0.102387]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.363898, 0.618501, 0.782349]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|"color" -> RGBColor[1, 0.75, 0]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.647624, 0.37816, 0.614037]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], 
                   ",", 
                   
                   TemplateBox[<|
                    "color" -> RGBColor[0.571589, 0.586483, 0.]|>, 
                    "RGBColorSwatchTemplate"], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{
               TagBox[#, HoldForm], ",", 
               TagBox[#2, HoldForm], ",", 
               TagBox[#3, HoldForm], ",", 
               TagBox[#4, HoldForm], ",", 
               TagBox[#5, HoldForm], ",", 
               TagBox[#6, HoldForm], ",", 
               TagBox[#7, HoldForm], ",", 
               TagBox[#8, HoldForm], ",", 
               TagBox[#9, HoldForm], ",", 
               TagBox[#10, HoldForm]}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               
               RowBox[{
                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
                 ",", "True", ",", "True", ",", "True", ",", "True", ",", 
                 "True"}], "}"}]}], ",", 
           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.8825147666303787`*^9, 3.882555555337178*^9, {3.882596590046771*^9, 
   3.882596595483651*^9}},
 CellLabel->
  "Out[128]=",ExpressionUUID->"926bea67-fd4c-48ff-9453-7df1d42a59f6"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Historical Data", "Section",
 CellChangeTimes->{{3.882595718755541*^9, 
  3.882595721656753*^9}},ExpressionUUID->"e5e8c75f-6eb0-4a81-8252-\
f39cc0c57313"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"usaPopulationData1960CSV", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<1960-DATA.csv\>\""}],
      "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"usaPopulationData1960", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"usaPopulationData1960CSV", ",", "\"\<Dataset\>\"", ",", 
     RowBox[{"HeaderLines", "->", "1"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.882315644269307*^9, 3.882315673422433*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"70df2469-76ba-4228-892b-c477266b00cb"],

Cell[CellGroupData[{

Cell[BoxData["usaPopulationData1960"], "Input",
 CellLabel->"In[13]:=",ExpressionUUID->"10fa9873-d8d7-4d81-9944-4729d23a4093"],

Cell[BoxData[
 TagBox[
  TagBox[
   DynamicModuleBox[{TypeSystem`NestedGrid`PackagePrivate`$state$$ = <|
    "InitialData" -> {<|"STATE" -> "New York", "POPESTIMATE" -> 16782304|>, <|
       "STATE" -> "California", "POPESTIMATE" -> 15717204|>, <|
       "STATE" -> "Pennsylvania", "POPESTIMATE" -> 11319366|>, <|
       "STATE" -> "Illinois", "POPESTIMATE" -> 10081158|>, <|
       "STATE" -> "Ohio", "POPESTIMATE" -> 9706397|>, <|
       "STATE" -> "Texas", "POPESTIMATE" -> 9579677|>, <|
       "STATE" -> "Michigan", "POPESTIMATE" -> 7823194|>, <|
       "STATE" -> "New Jersey", "POPESTIMATE" -> 6066782|>, <|
       "STATE" -> "Massachusetts", "POPESTIMATE" -> 5148578|>, <|
       "STATE" -> "Florida", "POPESTIMATE" -> 4951560|>, <|
       "STATE" -> "Indiana", "POPESTIMATE" -> 4662498|>, <|
       "STATE" -> "North Carolina", "POPESTIMATE" -> 4556155|>, <|
       "STATE" -> "Missouri", "POPESTIMATE" -> 4319813|>, <|
       "STATE" -> "Virginia", "POPESTIMATE" -> 3966949|>, <|
       "STATE" -> "Wisconsin", "POPESTIMATE" -> 3951777|>, <|
       "STATE" -> "Georgia", "POPESTIMATE" -> 3943116|>, <|
       "STATE" -> "Tennessee", "POPESTIMATE" -> 3567089|>, <|
       "STATE" -> "Minnesota", "POPESTIMATE" -> 3413864|>, <|
       "STATE" -> "Alabama", "POPESTIMATE" -> 3266740|>, <|
       "STATE" -> "Louisiana", "POPESTIMATE" -> 3257022|>, <|
       "STATE" -> "Maryland", "POPESTIMATE" -> 3100689|>, <|
       "STATE" -> "Kentucky", "POPESTIMATE" -> 3038156|>, <|
       "STATE" -> "Washington", "POPESTIMATE" -> 2853214|>, <|
       "STATE" -> "Iowa", "POPESTIMATE" -> 2757537|>, <|
       "STATE" -> "Connecticut", "POPESTIMATE" -> 2535234|>, <|
       "STATE" -> "South Carolina", "POPESTIMATE" -> 2382594|>, <|
       "STATE" -> "Oklahoma", "POPESTIMATE" -> 2328284|>, <|
       "STATE" -> "Kansas", "POPESTIMATE" -> 2178611|>, <|
       "STATE" -> "Mississippi", "POPESTIMATE" -> 2178141|>, <|
       "STATE" -> "West Virginia", "POPESTIMATE" -> 1860421|>, <|
       "STATE" -> "Arkansas", "POPESTIMATE" -> 1786272|>, <|
       "STATE" -> "Oregon", "POPESTIMATE" -> 1768687|>, <|
       "STATE" -> "Colorado", "POPESTIMATE" -> 1753947|>, <|
       "STATE" -> "ebraska", "POPESTIMATE" -> 1411330|>, <|
       "STATE" -> "Arizona", "POPESTIMATE" -> 1302161|>, <|
       "STATE" -> "Maine", "POPESTIMATE" -> 969265|>, <|
       "STATE" -> "New Mexico", "POPESTIMATE" -> 951023|>, <|
       "STATE" -> "Utah", "POPESTIMATE" -> 890627|>, <|
       "STATE" -> "Rhode Island", "POPESTIMATE" -> 859488|>, <|
       "STATE" -> "District of Columbia", "POPESTIMATE" -> 763956|>, <|
       "STATE" -> "South Dakota", "POPESTIMATE" -> 680514|>, <|
       "STATE" -> "Montana", "POPESTIMATE" -> 674767|>, <|
       "STATE" -> "Idaho", "POPESTIMATE" -> 667191|>, <|
       "STATE" -> "Hawaii", "POPESTIMATE" -> 632772|>, <|
       "STATE" -> "North Dakota", "POPESTIMATE" -> 632446|>, <|
       "STATE" -> "New Hampshire", "POPESTIMATE" -> 606921|>, <|
       "STATE" -> "Delaware", "POPESTIMATE" -> 446292|>, <|
       "STATE" -> "Vermont", "POPESTIMATE" -> 389881|>, <|
       "STATE" -> "Wyoming", "POPESTIMATE" -> 330066|>, <|
       "STATE" -> "Nevada", "POPESTIMATE" -> 285278|>, <|
       "STATE" -> "Alaska", "POPESTIMATE" -> 226167|>}, "AllowEmbedding" -> 
     True, "InitialShape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "STATE"} -> 
        1, {All, "POPESTIMATE"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          
          TypeSystem`PackageScope`RowShape[<|
           "STATE" -> TypeSystem`PackageScope`AtomShape[134.4], "POPESTIMATE" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 2, {All}]], 20, 
        DirectedInfinity[1], {}]], "InitialType" -> TypeSystem`Vector[
       TypeSystem`Struct[{"STATE", "POPESTIMATE"}, {
         TypeSystem`Atom[String], 
         TypeSystem`Atom[Integer]}], 51], "Meta" -> <||>, "RowTarget" -> 20, 
     "ColumnTarget" -> 10, "Shape" -> 
     TypeSystem`PackageScope`HeaderShape[<|{All, "STATE"} -> 
        1, {All, "POPESTIMATE"} -> 1|>, 
       TypeSystem`PackageScope`Limited[
        TypeSystem`PackageScope`ColumnShape[
         TypeSystem`PackageScope`Limited[
          
          TypeSystem`PackageScope`RowShape[<|
           "STATE" -> TypeSystem`PackageScope`AtomShape[134.4], "POPESTIMATE" -> 
            TypeSystem`PackageScope`AtomShape[34]|>], 
          DirectedInfinity[1], 2, {All}]], 20, 
        DirectedInfinity[1], {}]], "Type" -> TypeSystem`Vector[
       TypeSystem`Struct[{"STATE", "POPESTIMATE"}, {
         TypeSystem`Atom[String], 
         TypeSystem`Atom[Integer]}], 51], "Path" -> {}, "DisplayedRowCount" -> 
     20, "DisplayedColumnCount" -> 2, "DataRowCount" -> 51, "DataColumnCount" -> 
     2, "SortPaths" -> {}, "SortDirections" -> {}, "HiddenItemsMap" -> Null, 
     "UpdateType" -> 1|>, TypeSystem`NestedGrid`PackagePrivate`$outputID$$, 
    TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$hPos$$ = 1, 
    TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
    DynamicModule[{
     TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
        Style[
         Grid[{{
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["STATE", 
                  Style[
                  "STATE", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "STATE"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "STATE"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}], 
            Item[
             Pane[
              Annotation[
               EventHandler[
                MouseAppearance[
                 Mouseover["POPESTIMATE", 
                  Style[
                  "POPESTIMATE", FontColor -> 
                   RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                If[
                  TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                  TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                   TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                   TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][{
                   All, "POPESTIMATE"}, 1]]], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{
                All, "POPESTIMATE"}, "ColumnHeader", True], "Mouse"], 
              ImageSize -> {{1, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], Background -> 
             GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
            Item[
             Pane[
              Annotation["New York", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["16782304"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{1, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["California", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["15717204"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{2, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Pennsylvania", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["11319366"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{3, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Illinois", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["10081158"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{4, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Ohio", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["9706397"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{5, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Texas", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["9579677"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{6, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Michigan", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["7823194"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{7, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["New Jersey", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["6066782"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{8, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Massachusetts", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["5148578"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{9, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Florida", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4951560"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{10, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Indiana", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4662498"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{11, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["North Carolina", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4556155"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{12, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Missouri", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["4319813"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{13, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Virginia", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3966949"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{14, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Wisconsin", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3951777"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{15, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Georgia", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3943116"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{16, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Tennessee", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3567089"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{17, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Minnesota", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3413864"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{18, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Alabama", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3266740"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{19, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Pane[
              Annotation["Louisiana", 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["STATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{134.4, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}], 
            Item[
             Pane[
              Annotation[
               RawBoxes["3257022"], 
               TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][{20, 
                 Key["POPESTIMATE"]}, "Item", False], "Mouse"], 
              ImageSize -> {{34, Full}, Automatic}, 
              ImageMargins -> {{5, 3}, {4, 5}}], 
             ItemSize -> {Full, Automatic}]}, {
            Item[
             Deploy[
              Pane[
               Row[{
                 Spacer[2], 
                 Style[
                  Row[{
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35], BaseStyle -> 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + (-20) 
                    If[True, 51, 1], {1, 51 - -20 + 1}]; 
                    TypeSystem`NestedGrid`PackagePrivate`updateState[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]], True][
                    TypeSystem`NestedGrid`PackagePrivate`$path$$]], 
                    Appearance -> None], 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35], BaseStyle -> 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 0, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + (-20) 
                    If[False, 51, 1], {1, 51 - -20 + 1}]; 
                    TypeSystem`NestedGrid`PackagePrivate`updateState[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]], True][
                    TypeSystem`NestedGrid`PackagePrivate`$path$$]], 
                    Appearance -> None], " ", 
                    Style[
                    Mouseover[
                    Style[
                    Row[{"rows ", 1, "\[Dash]", 20, " of ", 
                    Style[51, FontWeight -> Bold]}], FontSize -> 
                    9.333333333333332, FontColor -> 
                    RGBColor[
                    0.5098039215686274, 0.5098039215686274, 
                    0.5098039215686274]], 
                    Style[
                    Row[{"rows ", 1, "\[Dash]", 20, " of ", 
                    Style[51, FontWeight -> Bold]}], FontSize -> 
                    9.333333333333332, FontColor -> 
                    RGBColor[
                    0.5098039215686274, 0.5098039215686274, 
                    0.5098039215686274]]], ContextMenu -> {
                    MenuItem["Hide", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 1, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 10 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 10, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 30 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 30, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show up to 100 Rows", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 100, {}]], MenuEvaluator -> Automatic], 
                    MenuItem["Show All", 
                    KernelExecute[
                    
                    TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]}, 
                    "Rows", 100000000, {}]], MenuEvaluator -> Automatic]}], 
                    " ", 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 180 Degree, {
                    9, 9}]}, ImageSize -> (1 -> 1), 
                    ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> 
                    Scaled[0.35], BaseStyle -> 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}]}, {5, 6.5}], 180 Degree, {
                    9, 9}]}, ImageSize -> (1 -> 1), 
                    ImagePadding -> {{0, 1}, {1, 0}}, BaselinePosition -> 
                    Scaled[0.35]]], "LinkHand"], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + 
                    20 If[False, 51, 1], {1, 51 - 20 + 1}]; 
                    TypeSystem`NestedGrid`PackagePrivate`updateState[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]], True][
                    TypeSystem`NestedGrid`PackagePrivate`$path$$]], 
                    Appearance -> None], 
                    Button[
                    MouseAppearance[
                    Mouseover[
                    Graphics[{{
                    EdgeForm[None], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 180 Degree, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35], BaseStyle -> 
                    RGBColor[
                    0.5372549019607843, 0.5372549019607843, 
                    0.5372549019607843]], 
                    Graphics[{{
                    EdgeForm[
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549]], 
                    FaceForm[None], 
                    Rectangle[{0, 0}, {18, 18}, RoundingRadius -> 2]}, 
                    Rotate[
                    Translate[{
                    CapForm[Round], 
                    RGBColor[
                    0.27450980392156865`, 0.5411764705882353, 
                    0.796078431372549], 
                    Line[{{0, 0}, {4, 5}, {8, 0}}], 
                    Line[{{0, 5}, {8, 5}}]}, {5, 6.5}], 180 Degree, {9, 9}]}, 
                    ImageSize -> (1 -> 1), ImagePadding -> {{0, 1}, {1, 0}}, 
                    BaselinePosition -> Scaled[0.35]]], "LinkHand"], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`checkInteractivity[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$ = 
                    Clip[TypeSystem`NestedGrid`PackagePrivate`$vPos$$ + 
                    20 If[True, 51, 1], {1, 51 - 20 + 1}]; 
                    TypeSystem`NestedGrid`PackagePrivate`updateState[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]], True][
                    TypeSystem`NestedGrid`PackagePrivate`$path$$]], 
                    Appearance -> None]}], ContextMenu -> {}]}], 
               ImageMargins -> {{0, -1}, {-1, 1}}]], Background -> 
             RGBColor[
              0.9764705882352941, 0.9764705882352941, 0.9764705882352941], 
             Alignment -> {Left, Top}], SpanFromLeft}}, 
          BaseStyle -> {
           ContextMenu -> 
            Dynamic[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
              Which[TypeSystem`NestedGrid`PackagePrivate`$lastOutputID =!= 
                TypeSystem`NestedGrid`PackagePrivate`localHold[
                 TypeSystem`NestedGrid`PackagePrivate`$outputID$$], {}, 
                TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger === 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu, True, 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenuTrigger = 
                 TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger; 
                TypeSystem`NestedGrid`PackagePrivate`$lastContextMenu = 
                 Block[{TypeSystem`NestedGrid`PackagePrivate`$globalScrollPos = \
{TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$}}, 
                   
                   With[{TypeSystem`NestedGrid`PackagePrivate`lastPath$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ = 
                    TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$ = 
                    
                    TypeSystem`NestedGrid`PackagePrivate`$\
lastPathIsLeafHeader, TypeSystem`NestedGrid`PackagePrivate`headerHidden$ = And[
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`$lastPathType, 
                    Alternatives["RowHeader", "ColumnHeader"]], 
                    TypeSystem`NestedGrid`PackagePrivate`headerHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]], 
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`allHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`anyHidden$ = 
                    TypeSystem`NestedGrid`PackagePrivate`anyHiddenQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ = 
                    TypeSystem`NestedGrid`PackagePrivate`columnSortDirection[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortPaths"], 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$[
                    "SortDirections"]], 
                    TypeSystem`NestedGrid`PackagePrivate`haveData$ = Not[
                    FailureQ[
                    TypeSystem`NestedGrid`PackagePrivate`datasetInitialData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$]]], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$ = Not[
                    FreeQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, Keys]]}, 
                    Join[{
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    Not[TypeSystem`NestedGrid`PackagePrivate`anyHidden$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$], 
                    Nothing, 
                    MenuItem[
                    "Show " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "remove"]], MenuEvaluator -> Automatic]], 
                    If[
                    Or[
                    Not[TypeSystem`NestedGrid`PackagePrivate`haveData$], 
                    TypeSystem`NestedGrid`PackagePrivate`pathEmptyQ[
                    TypeSystem`NestedGrid`PackagePrivate`$lastPath, 
                    TypeSystem`NestedGrid`PackagePrivate`$state$$], 
                    TypeSystem`NestedGrid`PackagePrivate`isKeyDummy$, 
                    And[
                    TypeSystem`NestedGrid`PackagePrivate`allHidden$, 
                    TypeSystem`NestedGrid`PackagePrivate`headerHidden$]], 
                    Nothing, 
                    MenuItem[
                    "Hide " <> 
                    Which[TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "Item", "", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "RowHeader", "Row", 
                    TypeSystem`NestedGrid`PackagePrivate`lastPathType$ == 
                    "ColumnHeader", "Column", True, ""], 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateHiddenItems[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, "add"]], 
                    MenuEvaluator -> Automatic]], Delimiter}, 
                    If[
                    And[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MatchQ[TypeSystem`NestedGrid`PackagePrivate`lastPathType$, 
                    Alternatives["ColumnHeader", "KeyDummy"]], 
                    TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
                    Not[TypeSystem`NestedGrid`PackagePrivate`allHidden$]], {
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Ascending", 
                    MenuItem["Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Ascending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    "Descending", 
                    MenuItem["Reverse Sort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, 
                    "Descending"]], MenuEvaluator -> Automatic], Nothing], 
                    If[
                    TypeSystem`NestedGrid`PackagePrivate`sortDirection$ =!= 
                    None, 
                    MenuItem["Unsort", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`updateSort[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
                    TypeSystem`NestedGrid`PackagePrivate`localHold[
                    TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
                    TypeSystem`NestedGrid`PackagePrivate`lastPath$, None]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter}, {}], {
                    MenuItem["Copy Position to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Copy Data to Clipboard", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                    MenuEvaluator -> Automatic], Nothing], Delimiter, 
                    MenuItem["Paste Position in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], 
                    If[TypeSystem`NestedGrid`PackagePrivate`haveData$, 
                    MenuItem["Paste Data in New Cell", 
                    KernelExecute[
                    TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                    TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                    MenuEvaluator -> Automatic], Nothing]}]]]]], FontFamily -> 
            "Source Sans Pro", FontSize -> 14, FontWeight -> Plain}, Dividers -> 
          All, FrameStyle -> GrayLevel[0.7490196078431373], 
          Spacings -> {0, 0}, Alignment -> Left, 
          BaseStyle -> {
           FontFamily -> "Source Sans Pro", FontSize -> 14, FontWeight -> 
            Plain}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> 
         False, ShowAutoStyles -> False]], 
      TypeSystem`NestedGrid`PackagePrivate`initialQ = True}, 
     Dynamic[
      TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
         Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
         Module[{
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
           TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
           TypeSystem`NestedGrid`PackagePrivate`datasetData[
            TypeSystem`NestedGrid`PackagePrivate`$state$$]}, 
          TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpData$], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
             TypeSystem`NestedGrid`PackagePrivate`renderGrid[
             TypeSystem`NestedGrid`PackagePrivate`$state$$, 
              TypeSystem`NestedGrid`PackagePrivate`$path$$, 
              TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
              TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
              TypeSystem`NestedGrid`PackagePrivate`localHold[
              TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
             TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
            Not[
             FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
            TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
            TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
       TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$; 
       TypeSystem`NestedGrid`PackagePrivate`$hPos$$; If[
         FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
         TypeSystem`SparseGrid[
          TypeSystem`H["(data no longer present)"]], 
         TypeSystem`NestedGrid`PackagePrivate`renderedGrid]], 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$}], 
     DynamicModuleValues :> {}], 
    TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
     TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
      TypeSystem`PackageScope`SubViewPathbar[
      TypeSystem`NestedGrid`PackagePrivate`$path$$, 
       TypeSystem`NestedGrid`PackagePrivate`updateState[
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$path$$, 
        TypeSystem`NestedGrid`PackagePrivate`$vPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$hPos$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
        TypeSystem`NestedGrid`PackagePrivate`localHold[
        TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]]], 
     TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
    TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Style[
     Framed[
      Dynamic[
       Replace[
       TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$, {
        TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][Null, 
           Blank[]] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[
           TypeSystem`NestedGrid`PackagePrivate`localHold[
           TypeSystem`NestedGrid`PackagePrivate`$outputID$$]][
           Pattern[TypeSystem`NestedGrid`PackagePrivate`path$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`pathType$, 
            Blank[]], 
           Pattern[TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$, 
            Blank[]]] :> (
          Increment[TypeSystem`NestedGrid`PackagePrivate`$contextMenuTrigger]; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
           TypeSystem`NestedGrid`PackagePrivate`path$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathType = 
           TypeSystem`NestedGrid`PackagePrivate`pathType$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastPathIsLeafHeader = 
           TypeSystem`NestedGrid`PackagePrivate`isLeafHeader$; 
          TypeSystem`NestedGrid`PackagePrivate`$lastOutputID = 
           TypeSystem`NestedGrid`PackagePrivate`localHold[
            TypeSystem`NestedGrid`PackagePrivate`$outputID$$]; 
          TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
           TypeSystem`NestedGrid`PackagePrivate`path$, 
            TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
         Spacer[10], Blank[] :> Spacer[10]}], 
       TrackedSymbols :> {
        TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$}], FrameStyle -> 
      None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, 
      ImageSize -> {Automatic, 15}], FontSize -> 1], 
    TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = Null}, 
    DynamicWrapperBox[
     DynamicBox[ToBoxes[
       Dataset`DatasetContent[
       2, "Path" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$path$$], 
        "Grid" -> Hold[TypeSystem`NestedGrid`PackagePrivate`$grid$$], "State" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$state$$], "VPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$vPos$$], "HPos" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$hPos$$], "TopBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$topBar$$], "BottomBar" -> 
        Hold[TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$], "OutputID" -> 
        Hold[
          TypeSystem`NestedGrid`PackagePrivate`localHold[
          TypeSystem`NestedGrid`PackagePrivate`$outputID$$]]], StandardForm],
      ImageSizeCache->{278., {366.5640625, 373.4359375}},
      TrackedSymbols:>{
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     TypeSystem`NestedGrid`PackagePrivate`mouseAnnotation$$ = 
     MouseAnnotation[],
     ImageSizeCache->{278., {366.5640625, 373.4359375}}],
    BaseStyle->{LineBreakWithin -> False},
    DynamicModuleValues:>{},
    Initialization:>(TypeSystem`NestedGrid`PackagePrivate`$outputID$$ = 
     CreateUUID[]),
    UnsavedVariables:>{TypeSystem`NestedGrid`PackagePrivate`$outputID$$}],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Dataset`InterpretDataset[1],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.8823156820658817`*^9, 3.882315720681147*^9, 
  3.882514020570259*^9, 3.8825555616070538`*^9, 3.8825951635369253`*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"eca5f910-17c8-4385-93a3-7a625f352c1f"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1152., 677.4},
WindowMargins->{{0, Automatic}, {0, Automatic}},
TaggingRules-><|"TryRealOnly" -> False|>,
Magnification:>1.3 Inherited,
FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6c031a30-3588-4bb5-bda7-9c4ace4cc6ab"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 178, 3, 86, "Section",ExpressionUUID->"d9757829-3453-420d-9b2e-b1ad2f022a90"],
Cell[761, 27, 326, 8, 75, "Text",ExpressionUUID->"99c439ca-4842-4546-8fc4-b70cdd3ffcdf"],
Cell[1090, 37, 527, 13, 42, "Input",ExpressionUUID->"8fb40d74-4215-4959-910c-c2ed3cc73b24"],
Cell[1620, 52, 2998, 75, 451, "Input",ExpressionUUID->"90717561-a8a8-4c52-aba1-1267aa79d111"],
Cell[4621, 129, 750, 18, 39, "Input",ExpressionUUID->"8810c736-0814-43b4-a56c-2c85aac2fef8"],
Cell[5374, 149, 1331, 34, 67, "Input",ExpressionUUID->"28613fc4-14ae-467d-a42e-b9ec92edccdd"],
Cell[6708, 185, 1702, 41, 205, "Input",ExpressionUUID->"a2dbc4f8-3987-4d80-b454-8ac780e172e1"],
Cell[8413, 228, 12985, 239, 901, "Input",ExpressionUUID->"e37a937a-153c-4ae8-b1b4-078a025418af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21435, 472, 184, 3, 87, "Section",ExpressionUUID->"e3ca286c-72cb-4873-826e-120044cbc01a"],
Cell[CellGroupData[{
Cell[21644, 479, 176, 3, 69, "Subsection",ExpressionUUID->"b0a14ddd-843e-476e-b89f-a307b9a058d8"],
Cell[CellGroupData[{
Cell[21845, 486, 162, 3, 58, "Subsubsection",ExpressionUUID->"a25e559d-ac49-4b49-86e3-06d6023a4cff"],
Cell[22010, 491, 376, 8, 75, "Text",ExpressionUUID->"1868f068-d3fc-41cb-8b29-4239dc2842e6"],
Cell[22389, 501, 877, 20, 67, "Input",ExpressionUUID->"ad02b69d-bbf0-4601-96df-5940c1a28327"],
Cell[23269, 523, 717, 17, 67, "Input",ExpressionUUID->"4d3987a3-b7d2-491a-b54d-d6c1ecd22966"],
Cell[23989, 542, 196, 3, 45, "Text",ExpressionUUID->"43fe2276-4203-48eb-879c-9a4957028921"],
Cell[24188, 547, 1648, 27, 212, "Input",ExpressionUUID->"669d0c3a-aa9c-432c-b531-e44f940d6aeb"],
Cell[25839, 576, 856, 22, 67, "Input",ExpressionUUID->"8a4bfa7d-b0bd-4ea0-9ec1-d2ae3b9f80bd"],
Cell[26698, 600, 1664, 33, 122, "Input",ExpressionUUID->"581536c1-10d8-45a5-95df-4fe4094d6ac1"],
Cell[28365, 635, 1344, 31, 127, "Input",ExpressionUUID->"254da293-fce4-4a84-9ff5-04e834fb2e31"],
Cell[CellGroupData[{
Cell[29734, 670, 639, 17, 39, "Input",ExpressionUUID->"b0845744-d27a-4d3e-a109-055b9680fdd5"],
Cell[30376, 689, 817, 13, 79, "Output",ExpressionUUID->"88d835ba-3578-48d9-87ac-ed5f7cb5c756"]
}, Open  ]],
Cell[31208, 705, 1033, 30, 67, "Input",ExpressionUUID->"84939ae1-9714-4914-995e-1e868e1180bd"],
Cell[32244, 737, 729, 20, 67, "Input",ExpressionUUID->"8a946d80-07b3-4ad1-9892-5a3940cd13f8"],
Cell[CellGroupData[{
Cell[32998, 761, 872, 23, 67, "Input",ExpressionUUID->"0f092f4b-b3c2-4e21-8040-dfe900480dea"],
Cell[33873, 786, 5454, 133, 395, "Output",ExpressionUUID->"2457543e-ca7f-4d27-990a-2e2a7b9ab81c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[39376, 925, 160, 3, 58, "Subsubsection",ExpressionUUID->"d52ddaa0-ad6a-4e47-b981-9497f58da224"],
Cell[39539, 930, 267, 6, 45, "Text",ExpressionUUID->"94a83fcf-f187-4ae6-831a-163473e11439"],
Cell[39809, 938, 163, 3, 39, "Input",ExpressionUUID->"34cf5083-f5cd-44cf-8b2a-cc4f845c6739"],
Cell[CellGroupData[{
Cell[39997, 945, 1404, 31, 67, "Input",ExpressionUUID->"a22fe946-f5fe-48c1-8ac8-d740c2220902"],
Cell[41404, 978, 3704, 108, 238, "Output",ExpressionUUID->"967b8714-f8aa-4e98-810b-d92e6362454e"]
}, Open  ]],
Cell[45123, 1089, 159, 3, 45, "Text",ExpressionUUID->"934fda3a-e208-4178-83d7-1db09b7527cc"],
Cell[45285, 1094, 708, 13, 165, "Text",ExpressionUUID->"f7fa01f5-3e3b-4d5e-860c-c2081386fd8d"],
Cell[45996, 1109, 4746, 112, 418, "Input",ExpressionUUID->"5a753f12-6c68-43a6-a430-13be65e26b69"],
Cell[CellGroupData[{
Cell[50767, 1225, 463, 7, 39, "Input",ExpressionUUID->"75a1bc37-6a7a-49ba-90e0-eb2264ada6d0"],
Cell[51233, 1234, 4424, 113, 251, "Output",ExpressionUUID->"e51ccac8-4fa2-4180-8a30-ff1efdca8aab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55694, 1352, 345, 9, 39, "Input",ExpressionUUID->"4039dcf8-66eb-4262-8a19-fe9b26bd8bd5"],
Cell[56042, 1363, 484, 7, 44, "Output",ExpressionUUID->"979b0dcc-2757-4742-82aa-0578c98fca4d"]
}, Open  ]],
Cell[56541, 1373, 182, 3, 45, "Text",ExpressionUUID->"841f58ba-5ed9-40d3-a9ab-42ebb5bef141"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[56772, 1382, 174, 3, 70, "Subsection",ExpressionUUID->"7593d6f9-e7c5-4ec3-bb22-755418403f06"],
Cell[56949, 1387, 258, 6, 45, "Text",ExpressionUUID->"9ef4f489-4d15-4e5e-a113-8ef29c6f7147"],
Cell[57210, 1395, 1017, 23, 66, "Input",ExpressionUUID->"ab50a8d8-9579-46bc-87c0-417a6417adce"],
Cell[58230, 1420, 1558, 38, 120, "Input",ExpressionUUID->"23083006-8810-47ff-814c-dc2f1e5c23da"],
Cell[CellGroupData[{
Cell[59813, 1462, 1971, 52, 147, "Input",ExpressionUUID->"f35159b3-b214-40a3-b6c3-9209c46c6022"],
Cell[61787, 1516, 72138, 1523, 314, "Output",ExpressionUUID->"ab22626a-7f99-4948-959c-ca8fac4266f7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[133974, 3045, 178, 3, 70, "Subsection",ExpressionUUID->"a4836f01-45ca-4e34-ac77-f9475da06aec"],
Cell[134155, 3050, 629, 14, 105, "Text",ExpressionUUID->"00ecad5e-1a75-454d-b6d7-9da00f430103"],
Cell[CellGroupData[{
Cell[134809, 3068, 2489, 56, 228, "Input",ExpressionUUID->"59ed1ce6-22b7-4f01-80cf-c1d7dcdb3673"],
Cell[137301, 3126, 72393, 1530, 318, "Output",ExpressionUUID->"285422ac-3aca-4b96-9896-06ed84e1a0d7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[209731, 4661, 2857, 64, 255, "Input",ExpressionUUID->"f95572a5-6453-4bbf-8416-e05b3212eda2"],
Cell[212591, 4727, 41414, 902, 318, "Output",ExpressionUUID->"e597a51e-fb78-43dd-8316-98fdb967b75f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[254066, 5636, 162, 3, 87, "Section",ExpressionUUID->"0cd2f64e-bf4e-4ba5-a374-c5dfe8540f06"],
Cell[254231, 5641, 1027, 22, 165, "Text",ExpressionUUID->"dae77c7e-d8e1-4324-bb08-cd27a5e048f9"],
Cell[CellGroupData[{
Cell[255283, 5667, 217, 4, 70, "Subsection",ExpressionUUID->"b7c9846c-e33d-47a4-a7f0-339898687b73"],
Cell[CellGroupData[{
Cell[255525, 5675, 164, 3, 58, "Subsubsection",ExpressionUUID->"80279def-491c-4f43-80b9-44c97f10599b"],
Cell[255692, 5680, 12945, 272, 1217, "Input",ExpressionUUID->"7b4c3480-189e-402c-88c9-6ec95ade60f1"],
Cell[CellGroupData[{
Cell[268662, 5956, 1097, 16, 38, "Input",ExpressionUUID->"ee7932a2-b143-4030-b84d-5f769eb2add1"],
Cell[269762, 5974, 1629, 23, 43, "Output",ExpressionUUID->"db36a421-e1de-47da-bad2-52495cbfd025"]
}, Open  ]],
Cell[271406, 6000, 3504, 83, 262, "Input",ExpressionUUID->"8099debb-1ba4-495b-8233-148a36cc1c4a"],
Cell[274913, 6085, 1889, 59, 111, "Input",ExpressionUUID->"87b0dbf3-487a-417b-b2ef-f78b961149fa"],
Cell[CellGroupData[{
Cell[276827, 6148, 3539, 75, 272, "Input",ExpressionUUID->"2bc672f7-f036-442f-b4cf-e30d95242e2d"],
Cell[280369, 6225, 2740, 60, 306, "Output",ExpressionUUID->"6516107b-4dd8-40f9-88b3-011e243aa06c"]
}, Open  ]],
Cell[283124, 6288, 825, 18, 105, "Text",ExpressionUUID->"0496e6fc-f11b-4f8b-bd18-8ec7e45b49ed"],
Cell[CellGroupData[{
Cell[283974, 6310, 405, 9, 60, "Input",ExpressionUUID->"516f5d6a-63f6-4e7d-8bb0-bdfa5777fda9"],
Cell[284382, 6321, 746, 11, 43, "Output",ExpressionUUID->"901682d6-88e6-466f-b144-354372997638"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[285189, 6339, 163, 3, 70, "Subsection",ExpressionUUID->"f1ad9670-f5cc-4e4c-a782-1603ec9692d7"],
Cell[CellGroupData[{
Cell[285377, 6346, 189, 3, 58, "Subsubsection",ExpressionUUID->"3a9b54a4-9f20-46fb-8c9a-fd6de3c9d446"],
Cell[285569, 6351, 1882, 44, 228, "Input",ExpressionUUID->"20d3ce83-9ae6-4eb6-a49a-53b489285ae2"],
Cell[287454, 6397, 1550, 43, 68, "Input",ExpressionUUID->"4b9a3ca2-b995-46d3-a995-016056fd4352"],
Cell[289007, 6442, 277, 6, 45, "Text",ExpressionUUID->"ff8f5e1c-acf3-45d8-9b30-ce9bc3441a6b"],
Cell[289287, 6450, 2183, 48, 174, "Input",ExpressionUUID->"8673cd26-e5ab-467d-bdc5-139e12694531"],
Cell[CellGroupData[{
Cell[291495, 6502, 723, 13, 120, "Input",ExpressionUUID->"c4030ef7-2f71-4fbc-bdfe-86a8a757370f"],
Cell[292221, 6517, 73120, 1548, 318, "Output",ExpressionUUID->"a6cea05d-fe07-4722-b83c-5194b15d9b1f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[365378, 8070, 894, 19, 120, "Input",ExpressionUUID->"2721ddb9-2bea-47a2-9115-b8899e2562a8"],
Cell[366275, 8091, 41861, 908, 318, "Output",ExpressionUUID->"a2d7ecde-dada-4c62-ae87-d8a0e5390cdd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[408173, 9004, 192, 2, 38, "Input",ExpressionUUID->"7c027d42-20c3-4e0a-90e3-552e741f0000"],
Cell[408368, 9008, 179, 2, 43, "Output",ExpressionUUID->"363c993b-eabd-4555-b646-f89b36f2e1a8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[408608, 9017, 176, 3, 70, "Subsection",ExpressionUUID->"eeea8356-bafd-40d1-8cf5-13791f982334"],
Cell[408787, 9022, 265, 6, 45, "Text",ExpressionUUID->"4bf3fc69-6335-4180-86ca-4f89623784b5"],
Cell[409055, 9030, 457, 10, 38, "Input",ExpressionUUID->"2bdda2ed-5415-484a-a2de-0dd8c0675e06"],
Cell[CellGroupData[{
Cell[409537, 9044, 263, 5, 38, "Input",ExpressionUUID->"69bd6e4f-f4ab-4f6b-81af-774e46a78dde"],
Cell[409803, 9051, 175, 3, 43, "Output",ExpressionUUID->"49dd0e00-8b90-47e9-a8ce-14ba67e7e04a"]
}, Open  ]],
Cell[409993, 9057, 1950, 36, 120, "Input",ExpressionUUID->"cb77d4fe-de40-41c2-9b78-799d56fccd66"],
Cell[411946, 9095, 1745, 32, 147, "Input",ExpressionUUID->"67e99a36-a43a-420d-9853-ba0eefa78a94"],
Cell[CellGroupData[{
Cell[413716, 9131, 611, 13, 120, "Input",ExpressionUUID->"cd484601-c899-41ac-877b-24bacd9a05e4"],
Cell[414330, 9146, 73340, 1551, 299, "Output",ExpressionUUID->"0dcf1200-ecd7-424f-8eb6-157672065141"]
}, Open  ]],
Cell[CellGroupData[{
Cell[487707, 10702, 680, 17, 147, "Input",ExpressionUUID->"bf86e287-8331-44fb-8d0c-e64617182e8c"],
Cell[488390, 10721, 41662, 906, 303, "Output",ExpressionUUID->"cb313300-555d-4dee-9bdc-51e7acad1b4a"]
}, Open  ]],
Cell[530067, 11630, 843, 20, 147, "Input",ExpressionUUID->"cd68f978-24aa-4553-835e-6a1bbdb0325c"],
Cell[530913, 11652, 224, 5, 45, "Text",ExpressionUUID->"7e2dbf3c-43fa-44b6-9d97-c91e003ad449"],
Cell[531140, 11659, 28110, 615, 345, "Output",ExpressionUUID->"700c4a79-7559-4258-96a9-e58ec9a69cf0"],
Cell[559253, 12276, 966, 22, 66, "Input",ExpressionUUID->"b04d70cb-0a19-4a2d-850c-456668262741"],
Cell[CellGroupData[{
Cell[560244, 12302, 307, 7, 38, "Input",ExpressionUUID->"cb573f89-4bff-42be-9351-7dd3d3f02cb5"],
Cell[560554, 12311, 294, 5, 43, "Output",ExpressionUUID->"cf9ba5cf-e082-4428-b51d-3302bd73ae5f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[560885, 12321, 1278, 34, 174, "Input",ExpressionUUID->"4057c6bc-f8b6-43ba-99c7-1808703eb8b5"],
Cell[562166, 12357, 471, 8, 43, "Output",ExpressionUUID->"03742c40-d363-4e77-8310-c9cd7b2e984b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[562674, 12370, 926, 20, 119, "Input",ExpressionUUID->"27b70a2a-76ac-48bb-a37c-8d06a567338a"],
Cell[563603, 12392, 88688, 1535, 1293, "Output",ExpressionUUID->"25dc07c4-4103-4126-9bbe-a49c70580184"]
}, Open  ]],
Cell[652306, 13930, 2439, 50, 280, "Input",ExpressionUUID->"db4ee0c8-5beb-42f8-a040-31d62239ea92"],
Cell[CellGroupData[{
Cell[654770, 13984, 534, 11, 145, "Input",ExpressionUUID->"df073fad-2f06-42df-85f0-eea5e1e55ef1"],
Cell[655307, 13997, 73693, 1555, 350, "Output",ExpressionUUID->"1a2521c9-4e4b-4853-ae1c-1bb0ec93f2a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[729037, 15557, 740, 19, 145, "Input",ExpressionUUID->"01d46a53-21e3-4fc4-8876-8c5afcc3a380"],
Cell[729780, 15578, 42280, 914, 358, "Output",ExpressionUUID->"4271aca5-02ad-4c9a-a2c8-71c8060b5b0c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[772097, 16497, 651, 17, 152, "Input",ExpressionUUID->"571d4b8d-7136-46b8-a9bc-c3b264c559cf"],
Cell[772751, 16516, 28111, 615, 430, "Output",ExpressionUUID->"926bea67-fd4c-48ff-9453-7df1d42a59f6"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[800923, 17138, 160, 3, 87, "Section",ExpressionUUID->"e5e8c75f-6eb0-4a81-8252-f39cc0c57313"],
Cell[801086, 17143, 628, 14, 67, "Input",ExpressionUUID->"70df2469-76ba-4228-892b-c477266b00cb"],
Cell[CellGroupData[{
Cell[801739, 17161, 126, 1, 39, "Input",ExpressionUUID->"10fa9873-d8d7-4d81-9944-4729d23a4093"],
Cell[801868, 17164, 62496, 1178, 825, "Output",ExpressionUUID->"eca5f910-17c8-4385-93a3-7a625f352c1f"]
}, Open  ]]
}, Open  ]]
}
]
*)