(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 175456, 3599] NotebookOptionsPosition[ 174411, 3563] NotebookOutlinePosition[ 174918, 3583] CellTagsIndexPosition[ 174875, 3580] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"lattice", " ", "primitive", " ", "vectors"}], "*)"}], RowBox[{ RowBox[{"latticeVec", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "0"}], "}"}]}], "}"}], "//", "N"}]}], "\n", RowBox[{"(*", RowBox[{"reciprocal", " ", "lattice", " ", "primitive", " ", "vectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{"reciprocalVec", "=", RowBox[{"Transpose", "[", RowBox[{"Inverse", "[", "latticeVec", "]"}], "]"}]}], "\n", RowBox[{"(*", RowBox[{"lattice", " ", "constant", " ", "for", " ", "Silicon"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"aLattice", "=", "10.26"}], ";"}], "\n", RowBox[{"(*", RowBox[{ "half", " ", "of", " ", "the", " ", "volume", " ", "of", " ", "the", " ", "primitive", " ", "cell"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vAtomic", "=", RowBox[{ RowBox[{"(", RowBox[{"1.", "/", "8."}], ")"}], " ", RowBox[{"aLattice", "^", "3"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.607940427261293*^9, 3.6079404336729045`*^9}, 3.6079406187984295`*^9, {3.6080128125463076`*^9, 3.6080128612600937`*^9}, { 3.608012912828044*^9, 3.6080129207234955`*^9}, {3.6080129880813475`*^9, 3.6080129962178135`*^9}, {3.6180316098449163`*^9, 3.6180316424079895`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "0.5`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.5`", ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.607940621934035*^9, 3.6079409081477375`*^9, 3.608027306137352*^9, 3.608027373636213*^9, 3.6080275935217896`*^9, 3.6080281287434025`*^9, 3.6080283153640766`*^9, 3.608029119630078*^9, 3.6102687607440567`*^9, 3.610541608458539*^9, {3.6114690554300313`*^9, 3.611469079614172*^9}, 3.611469238538996*^9, 3.611469312922804*^9, 3.611469423670425*^9, 3.6114694552598495`*^9, 3.6114700956915255`*^9, 3.6115850010841136`*^9, 3.6116662423317657`*^9, {3.6116663636287794`*^9, 3.61166637598352*^9}, 3.6116664397817745`*^9, {3.611666529887642*^9, 3.6116665382705975`*^9}, 3.6116665990566845`*^9, 3.6116666497146025`*^9, {3.6116667146516657`*^9, 3.6116667338962903`*^9}, 3.611666849581335*^9, 3.6116669806602535`*^9, 3.6116671083748083`*^9, 3.6116672304743805`*^9, 3.6116672911123734`*^9, 3.6116673448724904`*^9, 3.611667457531369*^9, 3.612874682474691*^9, 3.6128747335230103`*^9, 3.612874821501605*^9, 3.61287531317353*^9, 3.6128757755446033`*^9, 3.6128758132664485`*^9, 3.6128758623173585`*^9, 3.612876040153928*^9, 3.6128761961689653`*^9, 3.613027930503214*^9, 3.613028976815527*^9, 3.6130290517747765`*^9, 3.6130459775966587`*^9, 3.6130460186738944`*^9, 3.6130460885076156`*^9, 3.6130461265086403`*^9, 3.6130462457735214`*^9, {3.6133137063378425`*^9, 3.6133137348160906`*^9}, 3.61331378171447*^9, 3.6133138681820087`*^9, 3.613314174265851*^9, 3.6138201785404367`*^9, 3.6148623838736467`*^9, 3.618031903625085*^9, 3.6180369421517057`*^9, 3.6192610512091265`*^9, 3.619351871876924*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.`"}], ",", "1.`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"-", "1.`"}], ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"1.`", ",", "1.`", ",", RowBox[{"-", "1.`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.607940621934035*^9, 3.6079409081477375`*^9, 3.608027306137352*^9, 3.608027373636213*^9, 3.6080275935217896`*^9, 3.6080281287434025`*^9, 3.6080283153640766`*^9, 3.608029119630078*^9, 3.6102687607440567`*^9, 3.610541608458539*^9, {3.6114690554300313`*^9, 3.611469079614172*^9}, 3.611469238538996*^9, 3.611469312922804*^9, 3.611469423670425*^9, 3.6114694552598495`*^9, 3.6114700956915255`*^9, 3.6115850010841136`*^9, 3.6116662423317657`*^9, {3.6116663636287794`*^9, 3.61166637598352*^9}, 3.6116664397817745`*^9, {3.611666529887642*^9, 3.6116665382705975`*^9}, 3.6116665990566845`*^9, 3.6116666497146025`*^9, {3.6116667146516657`*^9, 3.6116667338962903`*^9}, 3.611666849581335*^9, 3.6116669806602535`*^9, 3.6116671083748083`*^9, 3.6116672304743805`*^9, 3.6116672911123734`*^9, 3.6116673448724904`*^9, 3.611667457531369*^9, 3.612874682474691*^9, 3.6128747335230103`*^9, 3.612874821501605*^9, 3.61287531317353*^9, 3.6128757755446033`*^9, 3.6128758132664485`*^9, 3.6128758623173585`*^9, 3.612876040153928*^9, 3.6128761961689653`*^9, 3.613027930503214*^9, 3.613028976815527*^9, 3.6130290517747765`*^9, 3.6130459775966587`*^9, 3.6130460186738944`*^9, 3.6130460885076156`*^9, 3.6130461265086403`*^9, 3.6130462457735214`*^9, {3.6133137063378425`*^9, 3.6133137348160906`*^9}, 3.61331378171447*^9, 3.6133138681820087`*^9, 3.613314174265851*^9, 3.6138201785404367`*^9, 3.6148623838736467`*^9, 3.618031903625085*^9, 3.6180369421517057`*^9, 3.6192610512091265`*^9, 3.619351871878928*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "definition", " ", "of", " ", "vectors", " ", "in", " ", "the", " ", "reciprocal", " ", "space"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nsize", "=", "3"}], ";"}], "\n", RowBox[{ RowBox[{"indicesTri", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "nsize"}], ",", "nsize"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "nsize"}], ",", "nsize"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "nsize"}], ",", "nsize"}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"gspaceVec", "=", RowBox[{"indicesTri", ".", "reciprocalVec"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.608012946645978*^9, 3.6080129796868677`*^9}, 3.618031654551595*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "important", " ", "points", " ", "in", " ", "the", " ", "reciprocal", " ", "space"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"X", "=", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox["1", "2"], ",", FractionBox["1", "2"]}], "}"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.6080270474335546`*^9, 3.608027049808691*^9}, { 3.6114693441079597`*^9, 3.611469353199396*^9}, {3.6114694537758064`*^9, 3.6114694538868947`*^9}, {3.611665423601251*^9, 3.6116654551086216`*^9}, { 3.6116655289179354`*^9, 3.6116655614950223`*^9}, {3.6116674239275627`*^9, 3.611667455991277*^9}, {3.6130458706495457`*^9, 3.6130458765147176`*^9}, { 3.618031534578585*^9, 3.618031534725688*^9}, {3.618031667129507*^9, 3.618031667632865*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"eMax", "=", "6.0"}], ";"}], RowBox[{"(*", RowBox[{"maximum", " ", "kinetic", " ", "energy"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", "200"}], ";"}], " ", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "points", " ", "calculated", " ", "in", " ", "one", " ", "direction"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.6133141714238462`*^9, 3.613314172302472*^9}, { 3.6180316762869964`*^9, 3.618031739159547*^9}}], Cell[BoxData[ RowBox[{"(*", RowBox[{ "cycles", " ", "to", " ", "calculate", " ", "the", " ", "band", " ", "structure"}], "*)"}]], "Input", CellChangeTimes->{{3.6080130117947044`*^9, 3.608013022771332*^9}, 3.6080263186538715`*^9, 3.6180317493757863`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"EnL\[CapitalGamma]", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", FractionBox["p", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nBand", "=", "12"}], ";"}], " ", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "bands", " ", "to", " ", "be", " ", "drawn"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"vector", " ", "k"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"kVec", "=", RowBox[{"L", "+", RowBox[{"2", RowBox[{"(", RowBox[{"\[CapitalGamma]", "-", "L"}], ")"}], FractionBox["x", "p"]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"all", " ", "the", " ", "k"}], "+", "G"}], "*)"}], RowBox[{"kplusgVec", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{"kVec", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "gspaceVec", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "+", RowBox[{"N", "[", "gspaceVec", "]"}]}]}], ";", "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{ RowBox[{"ordering", " ", "the", " ", "k"}], "+", RowBox[{"G", " ", "by", " ", "increasing", " ", "energy"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"kplusgVecOrdered", "=", RowBox[{"Sort", "[", RowBox[{"kplusgVec", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#1", ".", "#1"}], "<", RowBox[{"#2", ".", "#2"}]}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"select", " ", "the", " ", "k"}], "+", RowBox[{ "G", " ", "for", " ", "which", " ", "the", " ", "kinetic", " ", "energy", " ", "is"}]}], "<", "eMax"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kplusgVecSelected", "=", RowBox[{"Select", "[", RowBox[{"kplusgVecOrdered", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"N", "[", RowBox[{"2", " ", "Pi"}], "]"}], "/", "aLattice"}], ")"}], "^", "2"}], "*", RowBox[{"#", ".", "#"}]}], "<", "eMax"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{"inetic", " ", "energy", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kineticOperator", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"N", "[", RowBox[{"2", " ", "Pi"}], "]"}], "/", "aLattice"}], ")"}], "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", "i", "]"}], "]"}], ".", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{"eigenvalues", " ", "of", " ", "energy"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EnL\[CapitalGamma]", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"Eigenvalues", "[", "kineticOperator", "]"}], "]"}], ",", "nBand"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", FractionBox["p", "2"]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.6080263368209105`*^9, 3.6080263376369567`*^9}, { 3.608026371938919*^9, 3.6080263761661606`*^9}, {3.608026406562899*^9, 3.608026465263257*^9}, {3.6080265086497383`*^9, 3.608026510923868*^9}, { 3.6080266433494425`*^9, 3.6080266781924353`*^9}, {3.6080268156282964`*^9, 3.608026839084638*^9}, {3.6080268960018935`*^9, 3.60802690974968*^9}, { 3.6080269533461733`*^9, 3.6080269662169094`*^9}, {3.608027011871521*^9, 3.608027012308546*^9}, {3.608027054058934*^9, 3.6080270864147844`*^9}, { 3.6080271993862457`*^9, 3.6080272943246765`*^9}, {3.6080273612555046`*^9, 3.6080273723201375`*^9}, {3.608027513050187*^9, 3.608027513142192*^9}, { 3.608028313491969*^9, 3.6080283135739737`*^9}, {3.608029072948408*^9, 3.6080290732894273`*^9}, {3.6114690779950404`*^9, 3.6114690788686433`*^9}, {3.6114691520576153`*^9, 3.6114692058828135`*^9}, {3.6114693075720034`*^9, 3.6114693112936463`*^9}, {3.611469360156335*^9, 3.6114694018349237`*^9}, { 3.611470072399973*^9, 3.611470078008955*^9}, {3.611665470426483*^9, 3.6116655130766945`*^9}, {3.611665571671238*^9, 3.611665581379151*^9}, { 3.6116656145886974`*^9, 3.611665770256047*^9}, {3.611665805514042*^9, 3.611665940404683*^9}, 3.6116662349064913`*^9, {3.611666299437247*^9, 3.611666374588546*^9}, {3.6116664096263742`*^9, 3.6116664331070223`*^9}, { 3.611666528401588*^9, 3.6116665372418566`*^9}, {3.6116665931715126`*^9, 3.611666597457567*^9}, {3.611666713357729*^9, 3.611666733220812*^9}, 3.6116668404978747`*^9, {3.6116669044472313`*^9, 3.61166697914618*^9}, { 3.6116671434957085`*^9, 3.611667228893258*^9}, {3.6128747322020693`*^9, 3.612874732700424*^9}, {3.612875206386529*^9, 3.6128752064636*^9}, { 3.6130278180853157`*^9, 3.6130278306959715`*^9}, {3.613028408613058*^9, 3.6130284110820246`*^9}, 3.6130297025650034`*^9, 3.6130458017535095`*^9, { 3.613045922798658*^9, 3.6130459588463135`*^9}, {3.613046004186584*^9, 3.6130460154085703`*^9}, {3.6130460732177324`*^9, 3.613046118770152*^9}, { 3.6130462382291517`*^9, 3.61304623844831*^9}, {3.6133135684306784`*^9, 3.6133135971681266`*^9}, {3.6133137322312517`*^9, 3.613313733324028*^9}, { 3.6133137659282527`*^9, 3.613313771532241*^9}, {3.6133138656572123`*^9, 3.6133138670221844`*^9}, {3.6138201548065453`*^9, 3.6138201549836903`*^9}, {3.6148623616278734`*^9, 3.6148623625525284`*^9}, {3.618031540521795*^9, 3.618031542471176*^9}, 3.618031683962435*^9, {3.6180317619416895`*^9, 3.6180317935851126`*^9}, { 3.618031825087434*^9, 3.618031832060375*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"L\[CapitalGamma]", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["p", "2"]}], "+", "x"}], ",", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{ RowBox[{"EnL\[CapitalGamma]", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{ RowBox[{"EnL\[CapitalGamma]", "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "*", "27.211"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nBand"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", FractionBox["p", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6130280498739157`*^9, 3.613028100081662*^9}, { 3.6130281436480894`*^9, 3.6130281553836403`*^9}, {3.613028198387641*^9, 3.613028205325574*^9}, {3.613028497701476*^9, 3.6130284983577385`*^9}, { 3.6130299707175307`*^9, 3.613029979906186*^9}, {3.619261048329082*^9, 3.6192610484521694`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"En\[CapitalGamma]X", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "p"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6130286771436653`*^9, 3.613028683394374*^9}, 3.613029379143999*^9, 3.613029435524327*^9, 3.6130457854198856`*^9}], Cell[BoxData[ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"vector", " ", "k"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"kVec", "=", RowBox[{"\[CapitalGamma]", "+", RowBox[{ RowBox[{"(", RowBox[{"X", "-", "\[CapitalGamma]"}], ")"}], FractionBox["x", "p"]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"all", " ", "the", " ", "k"}], "+", "G"}], "*)"}], RowBox[{"kplusgVec", "=", RowBox[{ RowBox[{"Table", "[", RowBox[{"kVec", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "gspaceVec", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "+", RowBox[{"N", "[", "gspaceVec", "]"}]}]}], ";", "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{ RowBox[{"ordering", " ", "the", " ", "k"}], "+", RowBox[{"G", " ", "by", " ", "increasing", " ", "energy"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"kplusgVecOrdered", "=", RowBox[{"Sort", "[", RowBox[{"kplusgVec", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#1", ".", "#1"}], "<", RowBox[{"#2", ".", "#2"}]}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"select", " ", "the", " ", "k"}], "+", RowBox[{ "G", " ", "for", " ", "which", " ", "the", " ", "kinetic", " ", "energy", " ", "is"}]}], "<", "eMax"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kplusgVecSelected", "=", RowBox[{"Select", "[", RowBox[{"kplusgVecOrdered", ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"N", "[", RowBox[{"2", " ", "Pi"}], "]"}], "/", "aLattice"}], ")"}], "^", "2"}], "*", RowBox[{"#", ".", "#"}]}], "<", "eMax"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{"inetic", " ", "energy", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kineticOperator", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"N", "[", RowBox[{"2", " ", "Pi"}], "]"}], "/", "aLattice"}], ")"}], "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", "i", "]"}], "]"}], ".", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\n", RowBox[{"(*", RowBox[{"eigenvalues", " ", "of", " ", "energy"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"En\[CapitalGamma]X", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"Eigenvalues", "[", "kineticOperator", "]"}], "]"}], ",", "nBand"}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "p"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6080277131016293`*^9, 3.608027735361902*^9}, { 3.6080279642879963`*^9, 3.608027968604243*^9}, {3.6080282854613657`*^9, 3.608028299303158*^9}, {3.611469211253625*^9, 3.6114692370409317`*^9}, { 3.6114692963670497`*^9, 3.611469301463669*^9}, {3.611469412408431*^9, 3.611469422266429*^9}, {3.6114700851220055`*^9, 3.611470094084367*^9}, 3.611665957018461*^9, 3.611666224958438*^9, 3.6116666477682233`*^9, 3.6116668482243547`*^9, 3.6116672889188223`*^9, {3.6130287037093043`*^9, 3.6130287202578883`*^9}, {3.613029843641677*^9, 3.613029866925163*^9}, 3.613045769790762*^9, {3.6130459754761653`*^9, 3.613045998305397*^9}, { 3.6133136380352125`*^9, 3.6133136583086405`*^9}, {3.613313897583935*^9, 3.6133139032239485`*^9}, {3.6133140289514437`*^9, 3.613314042048751*^9}, { 3.61331410602028*^9, 3.6133141161644993`*^9}, 3.6138201617835116`*^9, { 3.6148623757809076`*^9, 3.614862376655528*^9}, {3.618031559209037*^9, 3.618031562833606*^9}, {3.618031817522073*^9, 3.6180318453838153`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalGamma]X", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "/", "2"}], ",", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{ RowBox[{"En\[CapitalGamma]X", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}], "-", RowBox[{ RowBox[{"En\[CapitalGamma]X", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "*", "27.211"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nBand"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "p"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.613028750480568*^9, 3.613028751746211*^9}, 3.613029188629668*^9, 3.6130294637607307`*^9, {3.6130300124723935`*^9, 3.6130300214421816`*^9}, {3.613314252535555*^9, 3.6133142528487787`*^9}, { 3.6192610435456843`*^9, 3.6192610436697702`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"band", " ", "structure"}], "*)"}], "\n", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nBand"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLinesStyle", "\[Rule]", "Dashed"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", " ", "i"}], ",", " ", RowBox[{"\"\<\[CapitalGamma]X\>\"", " ", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "nBand"}], "}"}]}], "]"}], ",", "1"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.608027441264081*^9, 3.6080274511516466`*^9}, 3.6080278711376677`*^9, {3.610269308806862*^9, 3.6102693480723124`*^9}, { 3.610542541772809*^9, 3.6105425765434637`*^9}, {3.612874761752098*^9, 3.612874820387828*^9}, {3.612875226994195*^9, 3.612875266216111*^9}, { 3.6130288691956725`*^9, 3.6130289543602715`*^9}, {3.61302947959026*^9, 3.61302949506057*^9}, {3.6133136720163956`*^9, 3.6133136916493692`*^9}, 3.613314146303948*^9, {3.613820470359126*^9, 3.613820470803443*^9}, 3.6148625632708254`*^9, {3.6148628438507833`*^9, 3.614862855138787*^9}, { 3.6148628980061817`*^9, 3.6148629444671035`*^9}, {3.614862976826068*^9, 3.6148630118438964`*^9}, {3.6148630525597644`*^9, 3.6148631271486397`*^9}, {3.6180318613020945`*^9, 3.618031862471924*^9}, { 3.6180319849803796`*^9, 3.6180321420367546`*^9}, {3.6180321822029448`*^9, 3.6180321858705435`*^9}, {3.6180369348345203`*^9, 3.618036935416934*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw9kwdIlHEYhz8b5sgIs5S0cY2jRVlW2lDv3Fqet/TOispCokESRpCEfS0j iAhaWo4k2xptmviWpSW2KBpWZtm6djZN2/fUB8fx8Nzv+/7f+/5OMy3DnN5K UZT0358/384rVbSuGUunFnTQ/UWxS+Lzg5UzXWDVLmnd3UxtZng5WWeXybvm agIvt3eyYpf4nKfBr0fCYpOAYxnrxxR7krfJ3VCPYH8vWGeTlb5He6zO8iBv E//oTMMahzv5FNlSqa/QTIDVFHHN12TH1LiRT5FJ570Xt4TDSooURHSujDzS jnyyVHfqbwkYBKvJUh9i0OaUuJJPlocHlocv6Q4ryXIlu6bQa3Nb8lbZWdQ3 aqAvrFplts/aIbUb2pC3Stf7nmldu8CKVQ435d5+uak1eYuEzAreaPCHVYvs GPwsL2JrK/IWUWJ3NVRpYcUiMYeyMuv2uZA3y4LMyfE5IbBqlrUrLenlFQp5 s2x6m1q1yggrZvG2NdRVn/4Z7sybpHrBiJMl9384WTWJPWxP72IF1pnkdJne T7TfnayYpPlcc66LsYW8UTyX396evqiZvFHev7gV9mrvN/JG2dfUNH1DXRN5 o+j3h3VO84HVJNnTYYc5KfErPkkcPoEBU1d9wRvk+9l789Zd+Iw3iMOv1OLw gNVE2d2l8Eya8RM+UXSnDp5syf2IHy9l7i/0Jx5/wI+Xxh+R1s1BsDpO2udL Y/6KRvw4+VY/pdvZ2vf4BJFLmhvuQbCSIBOnufrOX/MOHy95of41LrVv8fH8 P97g4/g/vMbH0f9X+Fj6/hIfS78d+Bj6/BwfQ3+f4aPp61N8NP18go+ij4/x UfSvAR9J3x7hI+nXQ3wEfarHR9CfB3g9fanD6+nHPbyOPtTidez/DhzOvm/B Yez3JhzKPm/AY9nfdXgM+7oGj2Y/V+FR7OMyHML8a+Bg5n0RHsl8q+ARzPM8 PJz5VcBBzOsMPIz5lMNDmccpOJD3Pw4P5n2PwoN4v0PwAN5nP9yP85fCWs67 E+7D+bbBvThPEdyT5+fBATxvHezH/VfDPtxvGdyR/ELYjd/PgRV8Kvyu3Mmj /vn/1y+dJfSR "]], Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxt1XlQlHUYwPF38cITD8I0xfVEyBNQUMF9uC+BZW/UbLVMi9TxDDOdF69M Kw3GDCdjtdFtmMQkEzXRlxSPlNTAIzNdxSOPEI8QxaMavn/GDMN85uHZ593f 73met+ekGabJXoqiHP3397+////jMeTMrdolu/SGRtdiwfWGIU3vnkg8YcKK NMaduKmsf3RMf63HO9hbGv9/Fm4jNeZmr/RePx+3J1/FHWXn1Ts3hwYuw758 3krsJwFFM18b++Vq/DKfn4u7Sp8l3nPiOn2Ou1EvH/vLqnnXDl5+YwPWU9+F e4r7nLu9zrMJ9+J5NuPeUpz/dWxlnhv34fkKcV95+/nkRVMqvsX9eN5tOECm LHl0cUL8dtyf5y/GgTIjs0B3e+oOHMT32YlflbScoADHLyV4AN9vNx4ouoYv 0rfM+xEP4vuW4sGy6tCt909P3I+H8P21RqtDpO7e6qr7h8uID+U8fiI+VNYE dpuWpRwkHsz5lBMPFr9WXT+0jD1EPITzOkw8RD7K+6hX0ekjxEM5v5+Jh8qV 8ncM2bOOER/GeR4nPkyCNpb+UTzkF+LDOd8TxIfLto5lzwetOEk8jPM+RTxM IgPHn9jr/SvxcM4fq+ES5fudx2t9JfER3EcV8RGyp3JvsC7iNPGR3M8Z4iOl cMri8pIarIzivs4SHyXtTyr5/YrPEY/g/n4jHiE32oRvTV1+nngk9/k78UgJ 8+/vNTDrAvHR3O8fxEfLsyan1h10XiRu4L4vETdIt9e7hK0M8RAX7h+LyJwt W6LbGS7z/0I/YE2khWPN9BrTFfKj6A8sUVI5+8yeoBnV5EfRL1fJj5ILj7MD DuRhJZr+uUZ+tPS49d6OEg2r0fTTdfKjZUNs5UTvOqzE0F83yI8RW8tVg38I +ZP8GPoNazGSHF7Qfd/8m+TH0n+3yI+V7FM+A3ofwWos/Xib/Fi5VHVh7FX/ O+TH0Z9Y4mRxdPNC3aK/yI+jX2vIj5NJXT/usuAaVuLp37vkx0vkoBLLN0G1 5MfTz1iLl6lLzwwou46VBPr7HvkJss2nz0vebqwm0O/3yU+QTicL2i7Mwkoi /Y8lUdaWJ/npQx+Qn8g8YC1RQmt7Dr6nPCQ/ifnAkiT30vs7ak9hNYl5+Zv8 JDl2dfxn3d1YSWZ+6shPlgNF+89nq1hNZp6wliznthpDvSY8Ij+F+cKSIq2v +Hy121BPfgrzhrUUGZfyrHNB38fkj2H+sIyR8psvbyr2eUL+GOYRa2PEWDop 4uEzrKQynw3kp0p9+fnrb9RiNZV5fUp+qpQ2ydmou4GVNOb3Gflp4ppnfbfi MlbTmOfn5KdJgb8j4bAHK+nM9wvy06W0YUXw3WqspjPvijTmp8vT5g8/3zQX K0bmH+uN8k3hni/fbMBiZB/oGu00SvXULwojl2DVyH7ALqNsjfpEG9jWi3pG 9gX2GKXZsPyLoflYyWB/YH2G3Ine29Qc0IT6GewT7MwQZ1Zd8IoSrGawX5pS P0PeLEp4uyoJaxnsG+zJkLrW37nDLmLFxP5pRn2TdFk6uGb7HCwm9hF2muSo 36GImLbNqW9iP2GXSbwPzs677caaiX2FPSY5syr8fmFsC+qb2V9Yb5bg6b6Z OdVYzOwzb+qbxT+rxZHpS7FqZr9hl1nWLe5gmB3Qkvpm9h32mMW1I3jfp8ex YmH/taK+RcJ0WXFls7FY2IfYaZFxU/dUteremvoW9iN2WaTdLf27WUewZmFf tqG+RczLv2pdPRcrVvYn1luld2TI9zP7tqW+lX2KnVZZ1u7SpM5nsWplv7aj vlXmPNnYtWol1qzsW+yxyn3lg/Nu8aG+jf2L9TZRek3blFuPxcY+bk99m1QU jRyRnIlVG/sZu2xyJTN5s60Eazb2NfbYxJA7ee10vw7Ut7O/sd4u1faPW+bO w2Jnn2OnXSoK9+nKzmLVzn7vSH27vFj5dGHDCKzZ2ffYY5fs+rhFURuw4mD/ Y71DRj5Y75Wn60R9B+8D7HRI9IKGVrVvYdXB+wG7HJK7Zso6RwXWHLwvfKnv kMCQS+7joVjJ5P3hK/8AHfCTAg== "]], Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw11X801Xccx/GvTplshIt7h3BLUiFlflR+3Os3udwfLpc6hmZTDWu2nNhy 8zOz09GKaFhOqMOStebsVOo1Sh0z2smR+XUMlR9rmjlHV2yzvD/fc77nex7n +Xmd8/nvK0xIlSeu4jgucfn9/7vyRMNWOzU7rlJf9JpQYTLdI3di97oVq1Uo 9zTv1Ooni1Qoa1jjEOlpsGJOhX0J2vxPTpERBaO2dTUxI2R1FPCLsGetsyHt oxCX7XHpRD6Zi8LCyLvrW/vJiETBZJHrz9uNaB+JtyowW5FHFkUi++WSzG2Q zEVi9h/fiPPOPNorEXH1K829IrJaiaa1U+Ib42SREot6IQ7pXsa0V8L31rWb i2VkRCDD2OZ5yBxZHYEG06qf4qUmtI9AV6v1LvEVMheBScG3ikldU9or8FIg Mow5SFYrsNQ6eOTMA7JouZtmf1pix6e9ApPGThZxhWTI0XXraeLfU2S1HPX6 dfJwiYD2cmTqpoymNZE5OcRNXibxxm/TXoalf/nTpsfIahkaNZoDJcNkkQzK yvGsQT8z2svw59Rjrz8ayJAiZ/TRhbs8c9pLoZPbV5v4GVkkRWH3E0n3EzIn xfzdV2VaUgs6H46E98wKFm+QuXC0XBELYLueehh41UdCQ8+QuTCovOo3VnOW 1CUoz5uuvJ1C5iToOOpys2aI9VDMG57MVEisqIfCKGpsuKOFrN4L3sWLH+fx ranvxbmZ6PuFUrI6BPzTZ5NnC1kPQXGBIvFOG+vB0H5U2vhiifVgHE2LDc53 F1IPwkhSvYs6jcwFIeD7jLThRtYDUSvvXlU9xXoguMDLY/dtN1APQFTxGlPF ATIXgDrHZ+U+F1j3x19CSWrpEOv+cD/kVhpmvpG6H9LfqNM/HE3m/HBdU9Y3 fY51XzwTGcw97GXdF2ZDb8abmdpQ94FfV5HVAyWZ88Fh4+Lt/SWsi1F0VXBa 2su6GJe+2eS3jb+Jugi3x5uDDqnInAjdxzur9M4ze2Mg+f0Ak0FmL/z+Xa73 CUtbsifGQzZ/IYtn9sCIe5htfg3zHjzO1PCsJph3o4O3RWFhv5m8C83c0Njn HzG7o9LHpN33B2Y3qH/7VZO8wOyK/feMsha97cgucNbuU87kMb8D7Qrh8YBO Zmf05M/Ma/G2kHfi63ZxmzCGeQdi9wlGaquZnWDunxZ2apLZET05cv2BHVvJ 9sjjN1t9mcG8FS5cVXZ1G7MdBjx13cz1tpFtkfVwwUMTyWwDix9Tz+6pZt6A 5rkkz9FpZmsE5z91e+5qT7ZA74cTOfuzmQWIvZwidOpiNsaY+zGDJDMHsgHi LXVkqz9g1kG/ynxs9XVmDpKJa+0HtRzJL+60dHa92hnOvHzj1/8PR9F/WnLR tw== "]], Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw11ndUVHcaxvFLFRWFNSjSdFDpAtKkiPJQhzYwTGHGaHRwwioqICuyaCxj w8Ia2y6CQRwVAfGogC5gQUbFFlYWI1aMgiGwlCAERIWwrnt8f/ecOfd8znO/ 5/13rJelihK1OY67//n3/zd7bPVTtymOueCLWgJ0B76Xxm1n7gvYEzcnT5nE /CGg2losOBLLzGG/8n1ajxezLoxNrcYoLZkN4OdfZziizWwIw0c92y51OpON sas5J2l/I/MknJXe1GRXMZtgfWDq7jMFzFPwtuCY5j87madiYoogKSKZ2RyP z2/eVi9htgQ/wc0w1Z95GhQ7E/U9ZzHzMNPCIs3ckNka+2eIomcMzibPwKkf xuVGvWSeCUVWiCSnjnkW7rz5pNI+x2yDJ2X+0w78g9kW+/qGnQI2M9uh94Rf qdFyZnt8rBvJ1RIyO+DswgUfTHyZHTFGoX0vYgazEwyf8Q3U45ln4/KNiZdN 3zmRnWFsJXtR9orZBcZdvNWr7jG7otp+dQq/gnkOxj73aQ3JJ6vmQHckq06Z xXY3FH8fP7VwDdvdMHC4+KXeIra7o3Pchj/tCWW7O7IGHlQ6z2G7BxoEp/41 YM52D1w1GxY167HdE1LZTxFtfY60e+KI/uzyiS/JnBe2243Z8/Vdtnth8hXl w7sVbJ8L0fXAvfEFbJ+LuZ4nLurvZbs3bltsEzxbx3ZvjKS3yeoT2O6D5oB7 P70WsN0HiRudr0/2Y7svchxNzJNt2e6LtMiN7b9OYrsf3jUnzlR9cqDdD9av Gxvn9ZC5eRgS1/ROfc72eVjn57TJ9A7b/ZF/yHyj90W2+yN5cXZ3pprt89Fx ZFN98z62z4dBaL+F4ju2L0CTsv2lXhLbF4A/uHjig3i2B+DbIUnZP0PYHgCH lQ03a93ZDuTG3g/t5pEBlBWF+voYse+BtNTgY0Wj9l+sAZrP3Eyb20PmAvGb 9FZlxwsyAnFmbejqK/fJqkBM0Ik4dL6a9YEw122wrytmfRAaM5pcR3JYHwSX RYuLxVmsD8Lc8sT9D9axPggdmX0dKxJZH4zAij/KbKSsD0bwN3u7dEJZH4y3 6/P+ruPF+s+7geOFWTasDwEM/P2WT2Z9CDrW/9urXo/1IfD+pu2EcMiO+hC4 VGzY/L6dzIWiMfNQfe1TMkJhXu6058w9sioUhovCqi5dZn0oSjLeSFtLWR+G 33S4RNd81ofhhfbxtoJ9rA9D2traJtctrA9DmTTB680a1vORe2aHfuUy1vPh mOoQflbCej4Si2KHb4Sxng9+7HvLYR/Wh+NREq9M7MT6cIwd+vFigxXrw9Ex MGS3ypj14UhWFho66LA+AsdCHiUYDNlSH4Et9cuCOhvIqggY1K093F1M1kTA 10VfarSVzEViyjjzXZKvWR+JfNkFh6serI/E/Sl3/IMnsD4SBfwlmp52G+qj ML3rr5eqNGREIfy/k8wKj5JVUTDb4dpbnk7WROHQdw88WmNYH43Ktp5ONwfW R2N77T7jQh3WR+Pj+LJi71ezqI/GlB/FF3qqyZwALz9m2t06TIYAgh+mG19N IasE+PN5flJTBOsFsPPodzeyYX0MDjhYJq/iWB+D0wfvmXY2z6Q+Bgmrhtx3 V5E1MbhTefp6+GEyF4tHa59ccUwlIxbZJ3fbuUSxPhY9Qdd0xXasj8WgJE2U p8N6IU4/KzbWapnxxTwhtBqWBuy9RoYQel55rzzzyAohyidIerkMskoIffmB lF4RWf35e5OYpaOuZI0Q5wL3aZwnkFuEGG0RHNrSZU334zDYv7/p97tkXhyO pIt37TpNRhx+WZFbOn87WRGHZw1LFkxOIKvikF5UFDQxgKyOw+W3qVX2VmRN HEpKr+R/O8Kj+3EIfJr1+43nZE6EreuaqlFN5omwcuepty05ZIjwh/5gzsl1 ZIUIPsO3z++UkFUiWC41897rQVaLUOLV61o2iawRoWZkt/vbX6bTfRE2pfq0 a06SOTGy73RteJxA5onRzan7ZluTIcbxaXL+3ZZpdF+MkulfbSlUk1VijOo8 PFKnIKvFKKw/eNDOmqwRQ50hXf2g1Yrui9Gra2lfeZLMSZCd8Wtdq5LMk2BD fXmQ0IYMCWp0tp7Q6rCk+xKIpotb35WQVRL4TrPXdl5FVkuw5vOfwGJnskaC D7dftCv7LOi+BI9TqkuVF8mcFDojubFFGWSeFFtXbnzs5EeGFMKaZf6Do+Z0 X4r0gagdn26QVVJ0GfqcE2SR1VJcGGtX9SqSrJHidufUkxVG5BYp3M5NSLnf ZEb349Er1rOYeZTMi8fwz59KapeSEY+FUaOmx23IiniMzx9dfqN7Kt2Ph3Ej l2dbQVbHQ9mhf7Yhk6yJx9g3RgWXA8gt8dDRWPylQ5/MyRCz1dFO3mBK92Xo tPGvGZ9DhgxPzgk9tZeQFTKYmq342zxbskqG0uXbblf1TqH7MhzIO/46o4qs keHW+doXmSpyiwwRxW8qayLInByzthukh35F5skRF+Q2yfjnyXRfjvq2xQet iskKOY6uzO5PTiOr5Ljy6Jq7lj9ZLYcLr1/yVJ+skaM/1l7e99CE7suhp1zm H32MzC1E6sLjWt0rTPA/eQxKug== "]], Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw91H1M1HUAx/ErCkUX8eASDe0kgUAek+AOEI9n5O6AA447BggzILlAxiEj D4uLtlTKYYjUYExSCk1xmDxIBH0URBPQKSSgAzGcJmAZNBJw0IP34bv99t1r 732271+/DTuyo9NeFAgEaf9+/93PTzxm1/rYBJo5Sf4n1Ci4m6lOMzJYr8bM U5vRiZlNzy1RI+u9pJZb4wYL1Bh1tL5ve9dgqCANTE4Z6jNYr8K5ejuXP69w r8LqXK08q517FXKKA9rlDdzHoXumXF/6HfdxsD6fXebzNfdxyLjWMxv2Ffdx OCs+U/9DCfdKTM9athzax70S7q8uWHQXcq+EZk9me8YH3CtRJUpuzczhPhbd slsm/RruYzHdeOPk0VTuY/HabkXl9e3cx2LzPuXIu/Hcx0D+x7A2MZb7GKSc Hle3RHIfg13tBYd0Uu5jkGf7xZrqUO6jobvn+JdDEPfR2DMVJrTy5z4aWvVE lcaP+2ikW1pkbfDlXoHYN9sO+npzr4Df/snFVhH3CtgEVHcc9eJeASPF4OBD T+6jcKehbGsZrY9CfdYvf9fQkigUFlS8sHZpH4XwkbHEaVofiVfKz5q4i9kj 0XvMaHnf0nsi8OlLt1VDfK8gAr6tHrOBW9nlmOyynLQIYJej3D7fLSSYXQbv 4e1dw2HsMgw/vFo3JGOXIj+09YFYwS7FymeuOQtK9nBUvewgt09gD4dD6re6 hhT2bTi1+sTsN+ns2+AidLk6n8kehpMfiiYbc9nDsN7tcnK/jj0UJV63N6qK 2EMxdzjHx6+YPQQ7gg8eP1DKHoKLUuckcSV7MIS1ip3yGvZg5KnmOi/VsQeh K9E+91gzexAsmge1YxfYAxGfbtq5v4c9EBWaK+mlA+wBGOgwThCMsQfAVPtz 9c3f2f0hyTMTmcyz++P93jvCmmX8H0hwWLcp4fgqgwUSNO1dfGBsQ2/FjT5V 5zVX2g+PCj2m57bQW/BMfyT3MxntixUDumB9Au0D86L7O4c0tDcsi24Ol+to McwHgmrOF9MirPjY50e/StoLC4VNtg6naU+M9zWO5rfR76B/r/ix43XaA006 f2nAPXozynp759qm6bexK29kvsrY2WB3SLS5Eb+uod1g2vn5VLEz7YIBjeNv X/rTTqhIl7maxNGOUDdPXR7R0G/BPGnd91Z62g6XVD2Pm47QG7G7dlHXcoq2 wTpZc7zwIi1ER/D0gYlB2hopZedWvv6EtsKc19ORM8tcDF6FErcLRrVv0GZY /5GpzkhEL8cJ4ah/ZxQtgJOVZ8KjDPrJT3WpZl3aT5a6wM44uyilykXyD3EZ 110= "]], Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw1jQs0lekeh3eiJBVOyv2432+VjXayf9jbdrftK4NzlEy57nSTyRijQVJp 6oTOpDR1MrpuKoMuJFMMmi7GKGYGFSlNpFQ0q+ms+f7fWu/61rN+7/M+ZqsV ogQVFovV9vH8/0+f9SxFbly5M/6mfq7qxB5pxHbiMW5hhOvB+ETit9w6M3Fo aTgxC8Xxb9JH2cSq0FpsPDveiFgdHK8WzWkVYk1o3hvNvTDixLAWCnpLEotv E+vglLS5qeh74oXI9FHsqDpMvAgvDpc3Pckj1sP8tNDEwFRiA/x8Nju3XUJs BMGqJZoKL2ITxOUlzHKzJDaFhaFhuoEmsRmKzUUh5q8cGTbHsW80yoL7iC0Q l8+TlLQQW+LG4IcclTPEVuhWepnsPUBsjd1jUw7cbGIb/HGUc3LBWmJbvGuZ LpshJLbDqSjvtwuXE9tjdpxKa6A5sQM0ewTqFXOJHVF/bX794tcODDtBy1j+ QPkbsTO0npqmJLcSu6DONiVNUEPsijn3PQd4hxjOcYXqdH5LfD7tS1C5R6Z3 fD3tSzCxv7JPLZr2pRjR+Ey7kE/7UuRPdNY6udK+DLdCj3VMGNC+DJf0p0S9 arS7QSq/G/hozJ7Z3VA6y7F6fh/DLDa228wu/OQm7WzoNsTfuVlDuztEV312 yg7T7g53t6PnZ+2k3QM/GOaG9mym3QPTmx7J21fR7olebuvd30Np90RCltNV XQ7ty1Fiv9Ag1Zr25UgPyhp6rEM7B697EyxyPtgxOwdmv9++vWKUYdYKTIqv /KF3n/YV2Mxx+HzxDdq9cGifQZbHedq9kBpT9GxrBe0rMVz6eXvvbtpXQp0/ bhi3jXZvdMUP9akl0u4NwauY+Z0y2rlYMylRXuTRzoVd0q3mxqW0A2Xhbfxn pgwDUJ7gL/dcQPeBdIVf+Yk/bf/mJqC3qjndfZRhlg+eS6/XDj9gGD6o2shP aWhjOMcH82YG7jtbR74PDFRv2bZUku+L21u6XKZLyPeFc3RMpTiffF+4VycU d24m3xfDW8eG1yWQ7wefmvdKKyn5fvCL3fl0Jp98P7zIPPifmWzyP+7q9ucs rcjnAepenLW65PMwnPkTu12NfB48Yh8dFU7aMD4PzjWfZb8ZYpjFx+2t+9ob f2EYfBhUOxRWtTKcw4dmtP/3F+rJ5+O7LYPSgZPk++P5TFaCyyHy/fFA5cij w7vJ90f6xsYuly/I94dSuoo9uJ58AcqqvppVu5p8AewVdgGnJOQLkHAifOqa P/kCCMLfGE15kh+Ae4mmSrED+QGYM/nj+VvG5AdgeGLSJlmL/ACkxh/XtJtJ fiDKefdWqU9aM34gNpdut5kzwnBOIN5EX4x16GO4KRBm+9apKn5imBWE18vL DbuayQ9Culh87JNa8oNQ+tvOb1ROkh+ENb1+qh3l5AejNzD719qvyQ/GtB3H 5noe+cFo2ZYxMJZJfjA8uO6aSCM/BKJNWyqVq8kPga6h53lfOfkhyF22zWUy mPwQlF7hGrWD/FDI6vMyr7HJD8UV61DBfXvyQ9GpVpKnY0p+KApkcW6puuSH YUTvtHhEg/wwvArJfJjPIj8MlS9vPuRPWjF+GNQ0yiTWowyzwjF3/wjbdpBh hKN+9+WC4B6Gc8KhNaUVtPcW+eHQ7hnKmmwhX4gGG2/T7EsMmwoxf2SRm00N vSeEulF63fh3DMcJcbop5MyvR+h9Id51V+k8K2G4QogX/9rxRH8P9YQojnzi nJTHcL8Q3dfbHvdmUT8CrRWO8xSbqB+BuBda/7NIoX4Ejp/bcuZdPPUjUDwQ az0eTf0IWOTdWKAhoX4EVv1XmcgLoX4EAsyM3Cp41I9At/4chfFK6ouw4KsM g8ts6osw9u+17lnO1Bch80xPc6wN9UU4ndLeGGdKfRF2lHOd8vSpL8I8sOe2 61BfBI7kdNRSTeqLoP3guN4lNeqLsfeOSUDCB0umL0YDx+CJ6zuGIUaRbulb 4wmG48RQW30g0/E5wzli2JrqJscMM1whxkT4os4zAww3iZE4XnbEtI/hfjHy VcsHL3QzzJIgrNC8JOkO9SW4+oVdg08H9SXoHq4O49ykvgRl1y6JJc3Ul0Bl nqCt+Ar1JVj0o/jcaB31Jbj7dkAt+QL1JfA4ON6hoaS+FLxTuaodp6gvxXvn A6fPVlJfihhLux9qjlFfioQi77CeI9SXQm/Nz4J/HqK+FBvOPq8uKKO+FJuS CnZpH6C+FOZl3/5y+Wvqy7DVg7u/cA/1ZcgIiG3MKKK+DCbt76MLdlBfhrRG 48S6POrL8KlV05DGdurLoPHnw67sHOrLIPYvXLYwm/oyBMxQqrRvo74cQ06R vscyqS+HQ8eXLw9lUF8O/T7Hf9Rtpr4c1bFRx19tpL4cL4WzT4g2UF+O3ovu enfXU1+O1F3DUxsU1Jejsks/jJ1G/Ujs2tOprZ9K/UgYNKj4m6RQPxLh8vqn vGTqR8Ll0/EPu5KoH4naoZN5k4nUj8Rwz+NtXxI3RaLJ69tBJ+L+SPjp9NdP r6N+FBRRR2Y8+8h/AeRpSPQ= "]], Hue[0.08640786499873876, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw91H1M1HUAx/ErCkUX8eASTekkgUAek4ADxLvjUe4OOJ7uGCDMgOQCGYeM Oiwu2lIxhyFSg5GkFFrgMHmQCPooCKagU0hAB2I4LcEyaCTgIMv78N1+++61 9z7b96/fhh3ZUWnPCwSCtKfff/ezE4/Ztb42AWZO4v8JNQpuZ6rTjAzWqzHz 2GZsYmbTM4vVyHonqfXGA4MFaow5rrtre9tgqCALSE4Z7jdYr8KZBjuXvy5y r8LqXK0iq4N7FXKKpR2KRu7j0DdTri/9lvs4WJ/NLvP9ivs4ZFzpnQ39gvs4 nBadavihhPtYTM9ath7ay30s3F9esLhcyH0sNO9ndmS8x30svvRObsvM4T4G l+U3TAY03MdguunayaOp3Mfgld3KyqvbuY/B5r2xo2/Hcx8NxZ8j2sQY7qOR UvdA3RrBfTR2dRQc0sm4j0ae7WdrqkO4j4LujuPfDoHcP/VUqNBKwn0UtOqJ Ko0/91FIt7TI2uDHvRIxr7cf9PPhXgn/fZOLbd7cK2Ejre486sW9EkbKoaH7 ntxH4lZj2dYyWh+Jhqxf/qmhxZEoLKh4bu3SPhJho+OJ07Q+Ai+VnzZxF7FH oO+Y0fL+pfeE45MXbqqG+V5BOPzaPGYDtrIrMNltOWkhZVeg3D7fLTiIXQ6f ke3dI6Hscozcv1Q/LGeXIT+k7Z5IyS7DyieuOQux7GGoetFBYZ/AHgaH1G90 jSns21C3+sTs1+ns2+AidLk0n8keipMfeE825bKHwtqtJ3lAxx6CEq+bG1VF 7CGYO5zj61/MHowdQQeP7y9lD8Z5mXOSqJI9CMJa5U5FDXsQ8lRzXRfq2QPR k2ife6yFPRAWLUPa8XPsAYhPN+3a18segArNxfTSQXYpBjuNEwTj7FKYan+u vv4HuwTiPDNvk3l2Cd7tuyWsWcb/gRiHdZsSjq8yWCBG857Fe8Y29FZc61d1 XXGl/TFR6DE9t4Xegif6I7kH5LQfVgzqgvQJtC/Mi+7uHNbQPrAsuj5SrqNF MB8MrDlbTHtjxUe+P/pX0l5YKGy2daijPTHZ3zSW306/hYE9ooeOV2kPNOsk MukdejPK+vrm2qfpN7Erb3S+ytjZYHeItbnhv66h3WDa9elUsTPtgkGN42+f S2gnVKTLXU3iaEeoW6Z6RjX0GzBPWv+9lZ62wwVV78PmI/RG7K5d1LV+R9tg vbwlXnieFqIzaHr/xBC9DillZ1a++oi2wpzX49FTy1wMXoUSt3NGta/RZrD+ 0FRn5E0vxwnhmKQrkhbAycoz4fcM+tFP9alm3dqPl7rAzji7KKXKRfwvnjnX aQ== "]], Hue[0.3224758424985268, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw1jQs0lekeh3eiJBVOyv2432+VjXayf9jbdrftK4NzlEy57nSTyRijQVJp 6oTOpDR1MrpuKoMuJFMMmi7GKGYGFSlNpFQ0q+ms+f7fWu/61rN+7/M+ZqsV ogQVFovV9vH8/0+f9SxFbly5M/6mfq7qxB5pxHbiMW5hhOvB+ETit9w6M3Fo aTgxC8Xxb9JH2cSq0FpsPDveiFgdHK8WzWkVYk1o3hvNvTDixLAWCnpLEotv E+vglLS5qeh74oXI9FHsqDpMvAgvDpc3Pckj1sP8tNDEwFRiA/x8Nju3XUJs BMGqJZoKL2ITxOUlzHKzJDaFhaFhuoEmsRmKzUUh5q8cGTbHsW80yoL7iC0Q l8+TlLQQW+LG4IcclTPEVuhWepnsPUBsjd1jUw7cbGIb/HGUc3LBWmJbvGuZ LpshJLbDqSjvtwuXE9tjdpxKa6A5sQM0ewTqFXOJHVF/bX794tcODDtBy1j+ QPkbsTO0npqmJLcSu6DONiVNUEPsijn3PQd4hxjOcYXqdH5LfD7tS1C5R6Z3 fD3tSzCxv7JPLZr2pRjR+Ey7kE/7UuRPdNY6udK+DLdCj3VMGNC+DJf0p0S9 arS7QSq/G/hozJ7Z3VA6y7F6fh/DLDa228wu/OQm7WzoNsTfuVlDuztEV312 yg7T7g53t6PnZ+2k3QM/GOaG9mym3QPTmx7J21fR7olebuvd30Np90RCltNV XQ7ty1Fiv9Ag1Zr25UgPyhp6rEM7B697EyxyPtgxOwdmv9++vWKUYdYKTIqv /KF3n/YV2Mxx+HzxDdq9cGifQZbHedq9kBpT9GxrBe0rMVz6eXvvbtpXQp0/ bhi3jXZvdMUP9akl0u4NwauY+Z0y2rlYMylRXuTRzoVd0q3mxqW0A2Xhbfxn pgwDUJ7gL/dcQPeBdIVf+Yk/bf/mJqC3qjndfZRhlg+eS6/XDj9gGD6o2shP aWhjOMcH82YG7jtbR74PDFRv2bZUku+L21u6XKZLyPeFc3RMpTiffF+4VycU d24m3xfDW8eG1yWQ7wefmvdKKyn5fvCL3fl0Jp98P7zIPPifmWzyP+7q9ucs rcjnAepenLW65PMwnPkTu12NfB48Yh8dFU7aMD4PzjWfZb8ZYpjFx+2t+9ob f2EYfBhUOxRWtTKcw4dmtP/3F+rJ5+O7LYPSgZPk++P5TFaCyyHy/fFA5cij w7vJ90f6xsYuly/I94dSuoo9uJ58AcqqvppVu5p8AewVdgGnJOQLkHAifOqa P/kCCMLfGE15kh+Ae4mmSrED+QGYM/nj+VvG5AdgeGLSJlmL/ACkxh/XtJtJ fiDKefdWqU9aM34gNpdut5kzwnBOIN5EX4x16GO4KRBm+9apKn5imBWE18vL DbuayQ9Culh87JNa8oNQ+tvOb1ROkh+ENb1+qh3l5AejNzD719qvyQ/GtB3H 5noe+cFo2ZYxMJZJfjA8uO6aSCM/BKJNWyqVq8kPga6h53lfOfkhyF22zWUy mPwQlF7hGrWD/FDI6vMyr7HJD8UV61DBfXvyQ9GpVpKnY0p+KApkcW6puuSH YUTvtHhEg/wwvArJfJjPIj8MlS9vPuRPWjF+GNQ0yiTWowyzwjF3/wjbdpBh hKN+9+WC4B6Gc8KhNaUVtPcW+eHQ7hnKmmwhX4gGG2/T7EsMmwoxf2SRm00N vSeEulF63fh3DMcJcbop5MyvR+h9Id51V+k8K2G4QogX/9rxRH8P9YQojnzi nJTHcL8Q3dfbHvdmUT8CrRWO8xSbqB+BuBda/7NIoX4Ejp/bcuZdPPUjUDwQ az0eTf0IWOTdWKAhoX4EVv1XmcgLoX4EAsyM3Cp41I9At/4chfFK6ouw4KsM g8ts6osw9u+17lnO1Bch80xPc6wN9UU4ndLeGGdKfRF2lHOd8vSpL8I8sOe2 61BfBI7kdNRSTeqLoP3guN4lNeqLsfeOSUDCB0umL0YDx+CJ6zuGIUaRbulb 4wmG48RQW30g0/E5wzli2JrqJscMM1whxkT4os4zAww3iZE4XnbEtI/hfjHy VcsHL3QzzJIgrNC8JOkO9SW4+oVdg08H9SXoHq4O49ykvgRl1y6JJc3Ul0Bl nqCt+Ar1JVj0o/jcaB31Jbj7dkAt+QL1JfA4ON6hoaS+FLxTuaodp6gvxXvn A6fPVlJfihhLux9qjlFfioQi77CeI9SXQm/Nz4J/HqK+FBvOPq8uKKO+FJuS CnZpH6C+FOZl3/5y+Wvqy7DVg7u/cA/1ZcgIiG3MKKK+DCbt76MLdlBfhrRG 48S6POrL8KlV05DGdurLoPHnw67sHOrLIPYvXLYwm/oyBMxQqrRvo74cQ06R vscyqS+HQ8eXLw9lUF8O/T7Hf9Rtpr4c1bFRx19tpL4cL4WzT4g2UF+O3ovu enfXU1+O1F3DUxsU1Jejsks/jJ1G/Ujs2tOprZ9K/UgYNKj4m6RQPxLh8vqn vGTqR8Ll0/EPu5KoH4naoZN5k4nUj8Rwz+NtXxI3RaLJ69tBJ+L+SPjp9NdP r6N+FBRRR2Y8+8h/AeRpSPQ= "]], Hue[0.5585438199983166, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw91H1M1HUAx/ErCkUX8eASTekkgUAek+AQhON4FO6AA447BggjIL1AxiGj DouLtlTMYYjUYCQphRY4TB4kgj4KginoFBLQgRhOS7CMayTgIMv78N1+++61 9z7b96/fhrScmIznBQJBxtPvv/vZScDsWh+bQDMn8f+ECoW3s1QZRgbrVJh5 bDM+ObPpmcUqZL+T3HbjgcECFcYd1921vW0wlJAFpqSODBisU+JMo53LXxe5 V2J1nkaW3cm9Enklkk5ZE/fx6J+p0JV9y308rM/mlPt8xX081Ff6ZsO+4D4e p71PNf5Qyr0C+lnLtkN7uVfA/eUFi8tF3Cugfj+rc+d73CvwpSilPSuX+zhc lt4wGVRzHwd987WTR9O5j8Mru+VVV7dzH4fNexVjbydwHwvZn6OapDjuY5Fa /0DVFsV9LHZ1Fh7SRnAfi3zbz9bUhHIfA+0dx78dgrh/6ukwoVUA9zHQqCar 1X7cxyDT0iJ7gy/3csS93nHQdwv3cvjvm1psF3Evh42kpuuoF/dyGMmHh+97 ch+NW03l/uW0LhqN2b/8U0uLo1FUWPnc2qV9NMLHJpL0tC4KL1WcNnH3Zo9C /zGj5QNL74nEJy/cVI7wvYJI+LZ7zAb6s8sw1WM5ZSFhl6HCvsAtJJhdCt/R 7T2jYexSjN6/1DAiZY9AQWj7PW85ewRWPnHNXVCwh6P6RQeZfSJ7OBzSv9E2 pbJvQ/3qE7NfZ7Jvg4vQ5dJ8FnsYTn4gmmrOYw+DtVtvyqCWPRSlXjc3KovZ QzF3ONfHr4Q9BGnBB4/vL2MPwfkI52TvKvZgCOvkO2S17MHIV851X2hgD0Jv kn3esVb2IFi0DmsmzrEHIiHTtHtfH3sgKtUXM8uG2CUY6jJOFEywS2Cq+bnm +h/sARDnm4lM5tkD8G7/LWHtMv4PxDis3ZR4fJXBAjFa9izeM7ah/XFtQNl9 xZX2w2SRh35uK70VT3RH8g5IaV+sGNIG6xJpH5gX390xoqa3wLL4+miFlvaG +VBQ7dkSWoQVH/n86FdFe2GhqMXWoZ72xNRA83hBB/0WBvd4P3S8SnugRRsQ IblDb0Z5f/9ch55+E7vyx+arjZ0NdodYkxf56xraDabdn06XONMuGFI7/vZ5 AO2Eykypq0k87QhV63TvmJp+A+bJ67+30tF2uKDse9hyhN6I3XWL2rbvaBus l7YmCM/TQnQF6/dPDtPrkFZ+ZuWrj2grzHk9Hju1zMXgVSh1O2dU9xptBusP TbVGIno5TgjHA7qjaQGcrDwTf99JP/qpId2sR/PxUhfYGecUp1a7iP8Fx9nX cw== "]], Hue[0.7946117974981064, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw1jQs0lekeh3eiJBVOyv2432+VjXayf9jbdrftK4NzlEy57nSTyRijQVJp 6oTOpDR1MrpuKoMuJFMMmi7GKGYGFSlNpFQ0q+ms+f7fWu/61rN+7/M+ZqsV ogQVFovV9vH8/0+f9SxFbly5M/6mfq7qxB5pxHbiMW5hhOvB+ETit9w6M3Fo aTgxC8Xxb9JH2cSq0FpsPDveiFgdHK8WzWkVYk1o3hvNvTDixLAWCnpLEotv E+vglLS5qeh74oXI9FHsqDpMvAgvDpc3Pckj1sP8tNDEwFRiA/x8Nju3XUJs BMGqJZoKL2ITxOUlzHKzJDaFhaFhuoEmsRmKzUUh5q8cGTbHsW80yoL7iC0Q l8+TlLQQW+LG4IcclTPEVuhWepnsPUBsjd1jUw7cbGIb/HGUc3LBWmJbvGuZ LpshJLbDqSjvtwuXE9tjdpxKa6A5sQM0ewTqFXOJHVF/bX794tcODDtBy1j+ QPkbsTO0npqmJLcSu6DONiVNUEPsijn3PQd4hxjOcYXqdH5LfD7tS1C5R6Z3 fD3tSzCxv7JPLZr2pRjR+Ey7kE/7UuRPdNY6udK+DLdCj3VMGNC+DJf0p0S9 arS7QSq/G/hozJ7Z3VA6y7F6fh/DLDa228wu/OQm7WzoNsTfuVlDuztEV312 yg7T7g53t6PnZ+2k3QM/GOaG9mym3QPTmx7J21fR7olebuvd30Np90RCltNV XQ7ty1Fiv9Ag1Zr25UgPyhp6rEM7B697EyxyPtgxOwdmv9++vWKUYdYKTIqv /KF3n/YV2Mxx+HzxDdq9cGifQZbHedq9kBpT9GxrBe0rMVz6eXvvbtpXQp0/ bhi3jXZvdMUP9akl0u4NwauY+Z0y2rlYMylRXuTRzoVd0q3mxqW0A2Xhbfxn pgwDUJ7gL/dcQPeBdIVf+Yk/bf/mJqC3qjndfZRhlg+eS6/XDj9gGD6o2shP aWhjOMcH82YG7jtbR74PDFRv2bZUku+L21u6XKZLyPeFc3RMpTiffF+4VycU d24m3xfDW8eG1yWQ7wefmvdKKyn5fvCL3fl0Jp98P7zIPPifmWzyP+7q9ucs rcjnAepenLW65PMwnPkTu12NfB48Yh8dFU7aMD4PzjWfZb8ZYpjFx+2t+9ob f2EYfBhUOxRWtTKcw4dmtP/3F+rJ5+O7LYPSgZPk++P5TFaCyyHy/fFA5cij w7vJ90f6xsYuly/I94dSuoo9uJ58AcqqvppVu5p8AewVdgGnJOQLkHAifOqa P/kCCMLfGE15kh+Ae4mmSrED+QGYM/nj+VvG5AdgeGLSJlmL/ACkxh/XtJtJ fiDKefdWqU9aM34gNpdut5kzwnBOIN5EX4x16GO4KRBm+9apKn5imBWE18vL DbuayQ9Culh87JNa8oNQ+tvOb1ROkh+ENb1+qh3l5AejNzD719qvyQ/GtB3H 5noe+cFo2ZYxMJZJfjA8uO6aSCM/BKJNWyqVq8kPga6h53lfOfkhyF22zWUy mPwQlF7hGrWD/FDI6vMyr7HJD8UV61DBfXvyQ9GpVpKnY0p+KApkcW6puuSH YUTvtHhEg/wwvArJfJjPIj8MlS9vPuRPWjF+GNQ0yiTWowyzwjF3/wjbdpBh hKN+9+WC4B6Gc8KhNaUVtPcW+eHQ7hnKmmwhX4gGG2/T7EsMmwoxf2SRm00N vSeEulF63fh3DMcJcbop5MyvR+h9Id51V+k8K2G4QogX/9rxRH8P9YQojnzi nJTHcL8Q3dfbHvdmUT8CrRWO8xSbqB+BuBda/7NIoX4Ejp/bcuZdPPUjUDwQ az0eTf0IWOTdWKAhoX4EVv1XmcgLoX4EAsyM3Cp41I9At/4chfFK6ouw4KsM g8ts6osw9u+17lnO1Bch80xPc6wN9UU4ndLeGGdKfRF2lHOd8vSpL8I8sOe2 61BfBI7kdNRSTeqLoP3guN4lNeqLsfeOSUDCB0umL0YDx+CJ6zuGIUaRbulb 4wmG48RQW30g0/E5wzli2JrqJscMM1whxkT4os4zAww3iZE4XnbEtI/hfjHy VcsHL3QzzJIgrNC8JOkO9SW4+oVdg08H9SXoHq4O49ykvgRl1y6JJc3Ul0Bl nqCt+Ar1JVj0o/jcaB31Jbj7dkAt+QL1JfA4ON6hoaS+FLxTuaodp6gvxXvn A6fPVlJfihhLux9qjlFfioQi77CeI9SXQm/Nz4J/HqK+FBvOPq8uKKO+FJuS CnZpH6C+FOZl3/5y+Wvqy7DVg7u/cA/1ZcgIiG3MKKK+DCbt76MLdlBfhrRG 48S6POrL8KlV05DGdurLoPHnw67sHOrLIPYvXLYwm/oyBMxQqrRvo74cQ06R vscyqS+HQ8eXLw9lUF8O/T7Hf9Rtpr4c1bFRx19tpL4cL4WzT4g2UF+O3ovu enfXU1+O1F3DUxsU1Jejsks/jJ1G/Ujs2tOprZ9K/UgYNKj4m6RQPxLh8vqn vGTqR8Ll0/EPu5KoH4naoZN5k4nUj8Rwz+NtXxI3RaLJ69tBJ+L+SPjp9NdP r6N+FBRRR2Y8+8h/AeRpSPQ= "]], Hue[0.030679774997896203`, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw9039M1HUcx/FvMhlHkjhNSCp+xM6bcD/4/fPgDg44kF/3k9OMgXnGxLjR BA+64UFJmnB4ginEoQ5MISPFgiSGr00GnIIVK5VOJRwkSpKhkVpGv77vvtt3 3z32/L7++Gzfr+9mg1K/hGEY/d/3P8//rg14vCbGL9E9UPIvoUPxx7Xi3S+x Nuvw4/4tHQEBrCU6aC6dLwiPYs3o0L/xiPF4Cu1z4Bvv9L1RS/scmI2zNaf1 tM+Bw1lnTS+hfQ4Ed+W303fTXosKv37LmYO012L40573yj+ivRbPHggbO9FD ey0y7BFFUXbaa1Ct6X9V6KC9Bn3h9qa992ivwU/bdQFyhs/uNfB4VOhWuJI1 1Ii55iSd57I2q7HJzWfwRjRriRqlh9DMz6K9GpbS6YHJ12mvQnOHJe6JkfYq tIX0cXZaaK/CJyuKuLo22qvQKWtrsPXSXon2kVx1yje0V8LWbtNrZmivRJ0j b3hokfZKmDafNLV4CNi9AnlxO6rGhazNCkgNA+NGOWuJAi//erjKlM+aUeDB V7+Ypsppn43BxcvDpxtonw3ru6Ktk520z4Yud7Wm1E77bHjWmg8apuj9LFxx N6wdXaSehZo7k651XkK2Z0LiMR7/eQRrJhOzjerBeDX1DDQUq1sExdQzENJy bajSQj0dY96TCVGnqKejYOHN5ZqL1Nfjqe8u/ncz1NdDpnj/8nUnEdvT4BLr IaxcyZpJQ5pi6xc5r1BPBce6c1teCPVUJP2elvRhInU5ntb9IHdRU5cjNCuy 5MQW6im4G6m8aCyhngKvDIHcVE09GfZ9I3NnDlFPxsLDwP4X2qkn4cierO6z vdSTMJgcenXXCHUZCoUOn4qb1GWwJMjqO+9TT0Sg2SBY4RTE9kTIZzbNH3+e tTkBt8qXTWznUU/Ak4iKh/oY6lJYvLuCrZnUpTgWdLJxLp+6BGEuX4cXFVCX IFPc6MFoyPGYbvb3HZCS4/CY+5aqV0AWY5+jsvOWFzkWTb2qYDGHHAPuwO2b 9gU6XzSEj8Sf7ZkiR6Fbq+0qGyNHom9CNN4McgTE9aO8+U5yOMTFgcfKbOQw nCvLSAipIYfi7CnRMu+3ySFY53rlz9ht5GD4HBCvqd1ADoJV9kbu8lSyCJW+ qksXIskCzPGeye/gkQNxdWOx9wVP8jrE9bQ6P8ch85BqEvFXP6DvlQu3CVvL jm/J/hj9oC4/opvsh+rWpaW5h8k+EC9lrt8pJ7+I2S8r6sdfI3uiYaiymS8l r0I0j/PbtD/ZHY4bq1qXcMguKJ1pO/rOPfp/GbjKz/1cMEa+f77pD8X+rp7/ O8N1NlTl2QSSvwC1dc84 "]], Hue[0.266747752497686, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw1lHtUjPseh6eUS6GkUql0oZGudCNqPtV0v89MMxM6JzF2lJJbOtEeMZJy PymXTogddpJ7ymUSOxR2tGd3KLskCnup0E5u21nn933Xete7nvVZz+/5531f y4RUgUydw+Hc+X7/70mXzfDU7PhiR/yf2nn9W3+dtOsScS8vccM5h84m4kGe omdCufgNMQdhdV/2vx7uxFgDV8bKhg5bEo+EqiH8bsYc4tEoGrqktVJCrAu1 A6U121YQ60H/lG7bnW3E+vjV+VsK9wSxIdxtUtN+uklsBP62+OcB7cQm+CR7 VD/yM7EpHFo6xwxoOzM2x/SL5ssHjYktoB2+f6v2VGJLVB0Uxzm5E1th9jFh 90I+sTV2Lt5ld0JAPBk17Trcb/HEU1A9/sFjWSqxDbZ/ux/Qtp6YC/ejOkmy fOKpOKe2K/DrfmJbaBgJW8tOEE+D7csY24QqYjtYp+5zdKgntkf/abM3I1XE Dig48WzBh+fEjhg9v3tH/ztiJ0jrHddwhk1n7Iy1ry/oT9JjLHdG8u31SRGW tE8Hb7esIMWQ9unorviyacdXOm8GEjep7GtfMJbPQLVeb/6wB7S74FlsyDHx Jdpd8DS2a3V1Ce2uOK1X+9VxC+2uEG5q451fTrsb7lV4zgqJpd0NE3e3vOr1 od0dXo6XRMen0e4O142qNcvH0+4BjtWyI7sH2fsg9wBOV9TL7tL7MRPcirS4 uQdpn4lL5hcXLk+hfRb6Oesel4H2WVCJ6mo542n3RIJJvnFmF/se5J4oiFZ1 GFbR9zEbq4YOmzRvpX02vui/rTsbR/scTDt8te2sM+1zoFkyJrF5GO1eUIz9 I2HC7w5s90Ll2+n3M08y5ngj23f4SbUs2r3BGTF/4Hg07TxYe7mcS5tCOw8f nue1z/toz3ZgyVdZ1g/3GAPYmlub/+/DjOWAcPN/tDtXM1YCt95/HhKEkO+D P5pb5z43J98Hx2y87Qrf2THfB2NfWSQn3Was9MGUSQqzBcWMOb7ourWUt3YF Y/gi7GlTU2Ug+b6Yl1jdrGVGvi8MFk0O2tw/jfl+WNukY299mzH8kF25Tt5R zFjuB1e1JP/alYyVfthT9/hfN4LJ52P/Xw0WXZPI5yOw2NvDdsCW+XwcOj/j 2vZGxko+SryOXzAoZczxR8jMErNrGYzhjwNHJwzkRJHvj8LscbyVXPL94fkw f/DHr1OZH4DcPblWFb8xRgDW/zLi6pdyxvIAmCeNuJ2yibEyALINW/zU5pMf CPGoPKcLLuQH4q26Tv73HxrzAzEjRT92QyeX+YEwDT2wd18NY04Qzu4r5T/a wxhB6I11WOiYzFgeBFXezP6TfPKDsMjpVl+QGfnBKOY/WjBywIb5wVhduJE7 qoexPBh/zbsQZ9fKWBkMy92JGqkPGHNC8GFW8cTmG+SHIE0oLJ17kfwQFD7d ekD9JPkhWPTET6OxmPxQPAnOaru4i/xQfLL15NYpyA/Fzcz0jt4M8kPhwXMf jRTywyBYtaasMoH8MBhMnHnOV0J+GLJdMp0GQskPQ+FVnmkDyA+H+LIio9aN /HBctQkP/O808sNxT3OvQs+C/HDkiONdlxmQH4Eeo3Jhjxb5EXgfltG5mUN+ BMr66zv9B6YwPwKaWkUimzeMOZHQ3tPjNvUZY0Ti8rYrOaEtjOWR0B3SDdl5 n/xIjGt5sW7gJvlRqOZ6W2TVMLaIwtgeQ1fuWTovCiNN06r6jjOOj0K5MuxU WwmdH4WPqhN6r/cyPhSFt//Y0m28nXpR2CHtdlyqYNweBVXdna4n66gfjduH 7MekrqJ+NOLf6h6zTqZ+NI6eXnPq40LqR2NHR5xN3zzqR8Na8YuOloj60Viw v3IJP4z60QiyNHU9xKd+NFTGo1LNvKgvgM6mdJMrbtQXoPefP7ivc6S+ABmn Wm7EcakvQHlyw/V4C+oLsKWY56Awpr4AY+Cm3aBHfQE8ReWxM0ZTX4Bxj48a 1WhSX4idTeZBsm+TWV+Iak+TbuePjCFEnkHhoNk7xvFCaCYUZNj/yVguxFQL g6T5LxkfEuJdpOG9Ux2MlUIs6SsqsWhl3C7EZo3iZ+dVjDkiRORa7V3aRH0R rv1oW+3TSH0RVC/PRHjWU1+EotoaoegG9UVQHxN4Z8dV6otgeFd4+k0V9UV4 ONihmXSe+iJ47Otr1Kqkfgz4P2drNP5M/Rh8diworyijfgzmT7a9dbaU+jGQ 5XlHtJRQPwZGi34LnHSQ+jFYUfHnmZwi6sdg1dKc/HEF1I+BVdGR36/sor4Y az14e3K3U1+M9KC46+l51BfDvOHzvJwt1Bcj5brZkioF9cVYPEX5Qmsj9cXQ +tLZnCWnvhjCgFwX/SzqixGkVqnekEl9CV44SH1LM6gvgV3jhv6D6dSXwLjV fnzVaupLcCYu9uj7ldSXoD9qxE+CFdSX4MkFd6OHy6kvwbL8l0MrUqkvQVmz cYRbCvWlyN9+b5zxMupLYVKtHmCeTH0pIiWXX/GTqC+F0+K+b/lLqS/FxRcn FQNLqC/Fy5auzA3ESimUc448cyBul8JPr/3yp0TqxyI1tkTt9Xf+G1aEUbg= "]], Hue[0.5028157299974758, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw9039M1HUcx/FvMhlHkjhNUGocxK5bcD/g+A0Hd3DAgfy6n5xmDEyMKXGj yXnQDQ9KMoNDBH9AHGpgChkpFiQZvjYZCIIVq4ROJQoSJcmISC2jX9933+27 7x57fl9/fLbv12eLUZ23jGGYvL/vf57/XRvxYH2Ub7x7gOxfwoCi96qle55m bTXgh/1b2/39WcsM0F25mB8awZoxoHfTUfOJJNpnwSfW6RuznvZZsJpnq87k 0T4LDmdDbWox7bMgvKO8lbqH9nqU+fbazh6kvR5DH3S/Ufou7fV4/EDI6Mlu 2uuRNhhWGDFIex0qdb3Pixy01+FC6GDjm3dpr8OPBQZ/JSNg9zqsu7/Dbcdq 1tAiasxJPs9jbdVisxu3/0Yka5kWpsNoEmTQXgubabpv8kXaa9DUbot5aKa9 Bq2SC5xdNtpr8P6qQp6hlfYadCha6+09tFejbThbm/QF7dWwt9nzdDO0V6PG kXN5YIn2ali2nLI0ewjZvQo5MTsrxkWsrSrIjX3jZiVrmQrcX49UWHJZMyos fPazZaqU9pnoX7p6+Uw97TNR97p422QH7TNhyF6rMw3SPhOe1daDxil6PwNj 7sZnR5aoZ6Dq9qRrjZeI7emQeYzHfhTGmknHbIO2P1ZLPQ2HirTNwiLqaZA0 jw2U26inYtR7Mi7iNPVU5C++vFI3RH0DHvnsFnw1Q30DElT7rl53ErM9BZxo D1H5atZMClJU2z7OeoZ6Mji1u7bnSKgnI+H3lIS346kr8ajmW6WLlroSwRnh xSe3Uk/CnXD1kLmYehK80oRKSyX1RAy9NTx39jD1RCwuBPSua6OegGN7M7rO 9VBPQH9i8LXdw9QVKBA5uGU3qStgi1PUddyjHg+B1Shc5RTI9ngoZzbPn3iS tTUO35eumCjgU4/Dw7Cyhbwo6nLUeHcG1aZTl+OdwFMNc7nUZQhx+Ty0MJ+6 DOnSBg9GR47FdJOfT5+cHIMHvFc0PUKyFFWO8o7vvMjRaOzRBEk55Cjw+m7d HFyk80VCdF/64d4pcgS69PrOklFyOD6dEI83gRwGad0If76DHAppUcDxEjs5 BOdL0uIkVeRgnDstXuH9KlkCf9ev/4zeTg4C94B0ffVGciBqFS9lr0wmi1Hh o7lyKZwsxBz/sdx2PjkA1zYVeV/yJD+HmO4W5yc4ZD6SLWLB2l/oe+XBbcLe vPNLsh9GDtXkhnWRfVHZstyUfYTMhXQ5c/12KfkpzH5SVjf+AtkT9QPlTQI5 eQ0i+Zzfpv3I7nDcWNOyjEN2gWmm9dhrd+n/ZeCqPP9T/ij53sXGP1T7O7v/ 7wzP2ViRYxfK/gINxM9S "]], Hue[0.7388837074972656, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw1jQtUDXgex2+KkvJsK0Qv1aTpqa4e0rfU7Xm7dd9tt0QuknUHTWS1Xa9Z TM8hjxqjDHWQUPSS3RISIevVC5lBpRjKVIM0u2f/v/85//M/n/M9n//HfLlK qBzH4XCa/nv/99KxnqDaHnfEAf+nLp+BvS2mOZXE73xWbyu3//Ue8YjPrl6j Emk/MQdhDaN5fRMcGWuhdrLyY6E5sQ4e3eLfTFlErIdDHyt1N8qIp0Ij/+dL GRuIp8PgzNQnTRnEBmhxGltnc5LYEFxr1fqiq8TG8M+Ie8HrIp6FT8r7jTqf iU1g3/qr/tAkJ8Zz4Vwx95uRmcRmmMTP2zvpK2JzVP0ojXHkElvA64SoJ96f 2BLZK3PsTgqJ5+FS1xSbsThiK9TMuNuuVBFbI3PsDu9JKrENuMenJCrTib9C uUZO4Jc8YltoGYs6i08Sz4dtt8R2eRWxHSxVhx3sG4m/xsDZOf06j4jtkXvy l2W/vyB2gJ6iJ2tgkNgR8kaHZI6mM2MnbO67aGA6nbHaCWtvpCaGm9PuDG7s d1synWh3xoOSu77PfGh3QcCFqHoIaHdBetK8P8piaV+A4jeOvW7raF+AA6Zb c5pSaXdFtO7Egb9l0O6KwTOPdC2P0O6GON2XHT0ltLuh0NRV+e9a2rmofNNQ VNRMOxeFSfsLfuqkfSHiLpwQFvfTvhADJcO1dZ9pd0d07N5nr/Vc2O6OAzdi aqzmMOZ4oLhvPX+9Pe0eSG+8fui2N+2e4CkUP3qG0+6JBydd5FWxtHvB7Vxw M09FuxfWqgpHXqbRvgibuz2e5GbTvggy4xlbpIW0e0NvnP1dmzLavbH/+D87 JzbQvhgDYxbHPt+nfTEsDMZMOS9p94Ht89lSgyHafaC5KsXfQ3sB24HyE0Z9 64wZA+AeGQq+aMtYDWTyDZfpeTGuA2oqkp2Swsj3xaVWo6r+GPJ9kV3+x/C3 KvJ94Rlo8m7KNvJ9UbUvraDmB/L9oHvYcmLycfL94CLTme9XQb4f7O/Ya5re IN8Po6P79uu1k78Eha88n+r2k78Es3dbdM38Qv4SrP4lJM9jqivzl2DP7+V6 aywYc/yhro9ZeNqVMfwRyguaNcpjrPZH746NF5dGke+P2C3PdO4nkh+AItt0 A9k/yA9AQ05Ka182+QEoLysW5/xMfgA2pxvuCawgn4cZpte/ndxEPg/b11TM etVBPg9X13VvuvOWfB467KIyGjXcmB+IxsJJ0fcMGCMQu1u+dPXZMFYHwqTK xdTIi3FdIHbJi/8iCic/CFfPK64eXUZ+EB42CO1Gk8gPQm3mnpDE3eQHYdN0 DYvX+eQHY4Kg+nzKWfKDse6pubZuBfnBOGV9y+B0LfnBqLW52K5oID8Ex54/ k5veJD8E0eLQrIEW8kPwOm049dFj8kMQtuLFvFtPyQ/FTo3pO1tekh+KLJk6 /1U/+aFYv9IxUf8D+aGwcjAd9P9EfhhKSwULMsZxmR8GvZ46u1cTGavD4N2+ oVMwjXFdGPx3KQNuGjPm8GHWe2ilxIx8Pu6O18d7G/L5EHbU3zviSD4fpxMq Z0cvJD8crefezLH1IT8cbedWtGoHkh+O0gST0OFw8sMR1WGQPCwlX4C28eFR OkvJF8Cut/GD7SryBRDt2h6kUJEvQHh7qvjoJvIjYNZTbTyYxtgsAtdKubmy 3fRfBBY7fGhqzmYcF4HvVw5UCA/T/xEolTkregsZF0TguMb56uxT1IvANyvW 3w0qZ9wVganqDUem1VI/EjvEFyz7rlI/Es3Pucsf3qZ+JHptPspbHlE/Eh3W X7Q7n1E/Esee+qlGeqgfCS/BjUyrAepH4vTmzJXxn6gfibd/zR06r7WQ9YWY MNS5eNpkxmZCDAQrfbYZMYYQ5VKHEQ1zxnFCBJq4J+ybz1gtRFne9h/cXBkX CPHunn5SjzfjOiE0r7TplwQy7hKib82rpepI6otQ1LxgjTKa+iJwu+u/jlZS X4S8muziZSrqi3CfV9C+OYX6InR9/+5awQ7qi3Blz7aEtgzqi5AC0TWLQ9QX Qeucsm3rMeqLEd9adaK7hPpiHKwOmx9fSX0xjorMV/1WT30xthRxFenN1BfD rix9oudj6otRlmypGnlOfTH0PnxMb+ynvhge82fEFw9TX4JFM9e+PzjOnfUl mFE/3v2wPmNIUGfexT1tzDhOAnh9enPbkrFaglx9WYyGI+MCCS4fGtwZ4Mm4 ToJLnS0r8gIYd0mQ2fb281gEY44Urll8frKC+lKcHe2XjK6ivhRf5t02zN1I fSksx7/N8k6jvhSzfxLUD+2lvhTdv70/VXeA+lLs+fggLP8Y9aUYuzxS9F0p 9WUI9oyp3l5DfRlWq8btzLpOfRkUMT0TzvyH+jJYak3x63hKfRn+FZ/sNquP +jI4bJ37PGGY+jIk8bUDbmp6sL4MGY+dlnlNZcyR4++z8t0umzA2k8PbkHdF YMsYcjy46aw96MY4Tg4f91itYj/GajnSYm9VJwoYF8ix3zvFxlfBuE6O1Ier +DYJ1JfD0/qg3dxk6kfhlqP2FasdHvgTlMpgDg== "]], Hue[0.9749516849970554, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw903lQlHUcx/EnGRmWkcTRRKGGI2bbCfYAXO6FXc4FgWXvlYwBEmOU2KER XGgHF0qygkVEUQjwAFPISLEgKfEzIwMughVTybYqUZB4kRGRWkbX8+2ZeeaZ 17yfzx+/mefxzTOq8pcxDJP/9/3P879rEx56RvnFuwdK/yUMKH6/VrL7GdYW A37cu6UrIIC11ADd5QsFoRGsGQMGsg6bjifTXg/fWKdvTTra61FpulNzOp/2 ejicDfVpJbTXQ3RbfjNtN+11qPAbsJ45QHsdRj7se7P8Pdrr4LZPPH6ij/Y6 pNvCiiJstNeiWjvwgtBBey3Oh9qa37pHey3uFhoC5Ayf3Wux/sF2t+2rWUOD qAkn2TyXtUWDzW4+Q9cjWUs1KD2IFr6C9hpYS2cGp16ivRotXdaYRybaq9ER 8hlnp5X2anywqohr6KC9Gt0JHftb+2mvQudotib5S9qrcLizNV87S3sV6hw5 l4aXaK+COe+kuc1DwO6VyIvZUWUXsrYoITMO2k1y1lIlfH49VGXOZc0osfD5 z+bpctpnYmjpyqXT+2mfiYY3RFunummfiazstdpSG+0z4VlrOWCcpvcVmHA3 Pje2RF2B2ltTrnVeQrZnQOphj/04jDWTgbtNmqFYDfV0NBZr2gTF1NMhbpsY rrRST8O491RcxCnqaShYfGWldoT6Rjz23cX/epb6RiQq375yzUnE9lRwoj2E latZM6lIVW79RP8s9RRw6nduywmhnoLE31MT342nLsfjuu/kLhrqcogV4SUn tlBPxu1w1YiphHoyvNIFcnM19SSMvDM6d+Yg9SQsLgQOrO+knogjexS9Z/up J2I4acPVXaPUE1AodPhU3KCeAGtcQkP3ferx4FuMglVOQWyPR8rs5vnjT7G2 xOGH8hWThTzqcXgUVrGQH0VdhjrvnuD6DOoyHAs62TSXS10KscsXoUUF1KXI kDR5MFpyLGZa/H0HZeQYPOS+qu4XkCWocVR2f+9FjkZzvzpYwiFHgTt484Zt kc4XCeEDyUd7pskR6NXpesrGyeE4Pymyt4AcBknDGG++mxwKSXHg0bJWshjn ytLjQmrIG3D2lGiF92vkEAS4fvNn9DZyMHz2STxrN5GDUJ/wcvbKFLIIVb7q yxfDyQLM8Z7I7eKRA3E1q9j74jry84jpa3d+kkPmIcUs4q/9hb5XLtwmW9t2 fEX2x1hjXW5YL9kP1e3LS7MPkX0gWc5cu1VOfhp3Pq1osL9IXofG4coWvoy8 BpE8zm8z/mR3OK6vaV/GIbugdLbjyOv36P9l4Co/91PBOPn+heY/lHt7+v7v DNfZWJXTKpD+BXBUz2o= "]], Hue[0.21101966249684523`, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw1jQtUDXgex2+KkvJsK0Qv1aTpqa4e0rfU7Xm7dd9tt0QuknUHTWS1Xa9Z TM8hjxqjDHWQUPSS3RISIevVC5lBpRjKVIM0u2f/v/85//M/n/M9n//HfLlK qBzH4XCa/nv/99KxnqDaHnfEAf+nLp+BvS2mOZXE73xWbyu3//Ue8YjPrl6j Emk/MQdhDaN5fRMcGWuhdrLyY6E5sQ4e3eLfTFlErIdDHyt1N8qIp0Ij/+dL GRuIp8PgzNQnTRnEBmhxGltnc5LYEFxr1fqiq8TG8M+Ie8HrIp6FT8r7jTqf iU1g3/qr/tAkJ8Zz4Vwx95uRmcRmmMTP2zvpK2JzVP0ojXHkElvA64SoJ96f 2BLZK3PsTgqJ5+FS1xSbsThiK9TMuNuuVBFbI3PsDu9JKrENuMenJCrTib9C uUZO4Jc8YltoGYs6i08Sz4dtt8R2eRWxHSxVhx3sG4m/xsDZOf06j4jtkXvy l2W/vyB2gJ6iJ2tgkNgR8kaHZI6mM2MnbO67aGA6nbHaCWtvpCaGm9PuDG7s d1synWh3xoOSu77PfGh3QcCFqHoIaHdBetK8P8piaV+A4jeOvW7raF+AA6Zb c5pSaXdFtO7Egb9l0O6KwTOPdC2P0O6GON2XHT0ltLuh0NRV+e9a2rmofNNQ VNRMOxeFSfsLfuqkfSHiLpwQFvfTvhADJcO1dZ9pd0d07N5nr/Vc2O6OAzdi aqzmMOZ4oLhvPX+9Pe0eSG+8fui2N+2e4CkUP3qG0+6JBydd5FWxtHvB7Vxw M09FuxfWqgpHXqbRvgibuz2e5GbTvggy4xlbpIW0e0NvnP1dmzLavbH/+D87 JzbQvhgDYxbHPt+nfTEsDMZMOS9p94Ht89lSgyHafaC5KsXfQ3sB24HyE0Z9 64wZA+AeGQq+aMtYDWTyDZfpeTGuA2oqkp2Swsj3xaVWo6r+GPJ9kV3+x/C3 KvJ94Rlo8m7KNvJ9UbUvraDmB/L9oHvYcmLycfL94CLTme9XQb4f7O/Ya5re IN8Po6P79uu1k78Eha88n+r2k78Es3dbdM38Qv4SrP4lJM9jqivzl2DP7+V6 aywYc/yhro9ZeNqVMfwRyguaNcpjrPZH746NF5dGke+P2C3PdO4nkh+AItt0 A9k/yA9AQ05Ka182+QEoLysW5/xMfgA2pxvuCawgn4cZpte/ndxEPg/b11TM etVBPg9X13VvuvOWfB467KIyGjXcmB+IxsJJ0fcMGCMQu1u+dPXZMFYHwqTK xdTIi3FdIHbJi/8iCic/CFfPK64eXUZ+EB42CO1Gk8gPQm3mnpDE3eQHYdN0 DYvX+eQHY4Kg+nzKWfKDse6pubZuBfnBOGV9y+B0LfnBqLW52K5oID8Ex54/ k5veJD8E0eLQrIEW8kPwOm049dFj8kMQtuLFvFtPyQ/FTo3pO1tekh+KLJk6 /1U/+aFYv9IxUf8D+aGwcjAd9P9EfhhKSwULMsZxmR8GvZ46u1cTGavD4N2+ oVMwjXFdGPx3KQNuGjPm8GHWe2ilxIx8Pu6O18d7G/L5EHbU3zviSD4fpxMq Z0cvJD8crefezLH1IT8cbedWtGoHkh+O0gST0OFw8sMR1WGQPCwlX4C28eFR OkvJF8Cut/GD7SryBRDt2h6kUJEvQHh7qvjoJvIjYNZTbTyYxtgsAtdKubmy 3fRfBBY7fGhqzmYcF4HvVw5UCA/T/xEolTkregsZF0TguMb56uxT1IvANyvW 3w0qZ9wVganqDUem1VI/EjvEFyz7rlI/Es3Pucsf3qZ+JHptPspbHlE/Eh3W X7Q7n1E/Esee+qlGeqgfCS/BjUyrAepH4vTmzJXxn6gfibd/zR06r7WQ9YWY MNS5eNpkxmZCDAQrfbYZMYYQ5VKHEQ1zxnFCBJq4J+ybz1gtRFne9h/cXBkX CPHunn5SjzfjOiE0r7TplwQy7hKib82rpepI6otQ1LxgjTKa+iJwu+u/jlZS X4S8muziZSrqi3CfV9C+OYX6InR9/+5awQ7qi3Blz7aEtgzqi5AC0TWLQ9QX Qeucsm3rMeqLEd9adaK7hPpiHKwOmx9fSX0xjorMV/1WT30xthRxFenN1BfD rix9oudj6otRlmypGnlOfTH0PnxMb+ynvhge82fEFw9TX4JFM9e+PzjOnfUl mFE/3v2wPmNIUGfexT1tzDhOAnh9enPbkrFaglx9WYyGI+MCCS4fGtwZ4Mm4 ToJLnS0r8gIYd0mQ2fb281gEY44Urll8frKC+lKcHe2XjK6ivhRf5t02zN1I fSksx7/N8k6jvhSzfxLUD+2lvhTdv70/VXeA+lLs+fggLP8Y9aUYuzxS9F0p 9WUI9oyp3l5DfRlWq8btzLpOfRkUMT0TzvyH+jJYak3x63hKfRn+FZ/sNquP +jI4bJ37PGGY+jIk8bUDbmp6sL4MGY+dlnlNZcyR4++z8t0umzA2k8PbkHdF YMsYcjy46aw96MY4Tg4f91itYj/GajnSYm9VJwoYF8ix3zvFxlfBuE6O1Ier +DYJ1JfD0/qg3dxk6kfhlqP2FasdHvgTlMpgDg== "]], Hue[0.44708763999663503`, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw9zw9Qk3Ucx/EHC2R4Gu4KkCHxp1DMTWT829hy/BljDMYYbGNAwsGh4l2i FHHlpIFCQxieRoee7CiH8zikoLxDMOMjVuYJp3aTOCyDKyIUKOHA/szoj8+3 5+655173/n3ufk9wcbm2dBXDMKX/vP9+nzxGRInn1rdK4mT/Ebk4pJlSeAaw NudCfrzd0fVn7BPLclHv4glq7rJmcpF6Iu+e5RJrGGDR5vcNnWZtNiBJGtgv MNHegGqt/YfhAtobIDxxP8Ympb0eZa7Fj9sDaa8H7/igwbkSw+71UGoyXoyf ZM3osSSy8ZxDrKHD8+qPxO0drM06fNl0uLatnvY6zC5tWLyxh/Y6WBsqmvgq 2ufgvMKqvsKnfQ4UEXtF73jTPgclSZyMtxej2X0OfjfvbegcZY1srJuxzrsP sDZn44ODr5labKxl2eiJ4wl1NbTPhiSojptaSnstFJG9/q8qaa/FzX3tqs/5 tNfCeSfzbAaX9lrodg9t4jyKYvdZ0Ic++nr5LmtzFpyceYfPFdayLAz7n7Pv cbBmspCiD7k+20h7DcSfFvraD9Beg+70wuZGA+01sK0OFjiktNdgzVzH8kIo nc/Ekuv+9AEv6pnYGbvoFvpQyHY1EtsuJ3uMsWbUcLyU1sMbpJ6B+qmTySUO 6hn48Xqn23dW6un4bMw0bamkng5fLnd51yvUVZitLONXyamrIHv6sLWfTz0N 6y/v9BH4UE9D4fuua86/ItmuRPiHBWe6p1kzSlT8VH324i3qqRApS24v9VNP hWmUE1Zqp65AfHOF3cNKXYG39tuU429QT0HsoaN+E0XUU1B+QeTtp6IuR5hP V0RtNHU5jGfuvRkYRD0Za4zOB7Ne1JMhEjfVzy1tZ3sSpuQeaUGTrJkkrDUl xtQNU0/EhW9lqoCL1BMxttutYcpOPQEHNx75ZeIY9QS0Pv6qep2JugwR+4rC qyupyyC9Mz65o4G8A9d2+V4V2sgv42aIz4ixlyxFNuebld4vyBLo/fPyJePk eIzq2r//bZ4shvOSo2n6KfpfEdTp+4s9N5DjIF/tKsoXkGMxMKu0TCSRY9Dt Mo61GsnRCIzdmlVTTo6CVxsW2urIQjTy5czpPHIkLDONMTe2kbdj1a2W9/ju 5Aj8MVG4cej/+wtQHjA3Yukhb0VxreRcTT15C25z1Z3nC8ibgZFgJ0dIDsOW T/o2neKQXwD36jMdeRMRrENQ9Thcqe4jByG/2MP39WZyAAYedqwdLiX74WSX O18vJT+LxWObK7nPkb1xSsobdhvfxtoTCT1lK4lHyQxmqiRHfhaTfx1saHk3 b+GBgDoT5lFeW2QTyP4G5N/Q/A== "]], Hue[0.6831556174964248, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw1jQtUDXgex2+KkvJsK0Qv1aTpqa4e0rfU7Xm7dd9tt0QuknUHTWS1Xa9Z TM8hjxqjDHWQUPSS3RISIevVC5lBpRjKVIM0u2f/v/85//M/n/M9n//HfLlK qBzH4XCa/nv/99KxnqDaHnfEAf+nLp+BvS2mOZXE73xWbyu3//Ue8YjPrl6j Emk/MQdhDaN5fRMcGWuhdrLyY6E5sQ4e3eLfTFlErIdDHyt1N8qIp0Ij/+dL GRuIp8PgzNQnTRnEBmhxGltnc5LYEFxr1fqiq8TG8M+Ie8HrIp6FT8r7jTqf iU1g3/qr/tAkJ8Zz4Vwx95uRmcRmmMTP2zvpK2JzVP0ojXHkElvA64SoJ96f 2BLZK3PsTgqJ5+FS1xSbsThiK9TMuNuuVBFbI3PsDu9JKrENuMenJCrTib9C uUZO4Jc8YltoGYs6i08Sz4dtt8R2eRWxHSxVhx3sG4m/xsDZOf06j4jtkXvy l2W/vyB2gJ6iJ2tgkNgR8kaHZI6mM2MnbO67aGA6nbHaCWtvpCaGm9PuDG7s d1synWh3xoOSu77PfGh3QcCFqHoIaHdBetK8P8piaV+A4jeOvW7raF+AA6Zb c5pSaXdFtO7Egb9l0O6KwTOPdC2P0O6GON2XHT0ltLuh0NRV+e9a2rmofNNQ VNRMOxeFSfsLfuqkfSHiLpwQFvfTvhADJcO1dZ9pd0d07N5nr/Vc2O6OAzdi aqzmMOZ4oLhvPX+9Pe0eSG+8fui2N+2e4CkUP3qG0+6JBydd5FWxtHvB7Vxw M09FuxfWqgpHXqbRvgibuz2e5GbTvggy4xlbpIW0e0NvnP1dmzLavbH/+D87 JzbQvhgDYxbHPt+nfTEsDMZMOS9p94Ht89lSgyHafaC5KsXfQ3sB24HyE0Z9 64wZA+AeGQq+aMtYDWTyDZfpeTGuA2oqkp2Swsj3xaVWo6r+GPJ9kV3+x/C3 KvJ94Rlo8m7KNvJ9UbUvraDmB/L9oHvYcmLycfL94CLTme9XQb4f7O/Ya5re IN8Po6P79uu1k78Eha88n+r2k78Es3dbdM38Qv4SrP4lJM9jqivzl2DP7+V6 aywYc/yhro9ZeNqVMfwRyguaNcpjrPZH746NF5dGke+P2C3PdO4nkh+AItt0 A9k/yA9AQ05Ka182+QEoLysW5/xMfgA2pxvuCawgn4cZpte/ndxEPg/b11TM etVBPg9X13VvuvOWfB467KIyGjXcmB+IxsJJ0fcMGCMQu1u+dPXZMFYHwqTK xdTIi3FdIHbJi/8iCic/CFfPK64eXUZ+EB42CO1Gk8gPQm3mnpDE3eQHYdN0 DYvX+eQHY4Kg+nzKWfKDse6pubZuBfnBOGV9y+B0LfnBqLW52K5oID8Ex54/ k5veJD8E0eLQrIEW8kPwOm049dFj8kMQtuLFvFtPyQ/FTo3pO1tekh+KLJk6 /1U/+aFYv9IxUf8D+aGwcjAd9P9EfhhKSwULMsZxmR8GvZ46u1cTGavD4N2+ oVMwjXFdGPx3KQNuGjPm8GHWe2ilxIx8Pu6O18d7G/L5EHbU3zviSD4fpxMq Z0cvJD8crefezLH1IT8cbedWtGoHkh+O0gST0OFw8sMR1WGQPCwlX4C28eFR OkvJF8Cut/GD7SryBRDt2h6kUJEvQHh7qvjoJvIjYNZTbTyYxtgsAtdKubmy 3fRfBBY7fGhqzmYcF4HvVw5UCA/T/xEolTkregsZF0TguMb56uxT1IvANyvW 3w0qZ9wVganqDUem1VI/EjvEFyz7rlI/Es3Pucsf3qZ+JHptPspbHlE/Eh3W X7Q7n1E/Esee+qlGeqgfCS/BjUyrAepH4vTmzJXxn6gfibd/zR06r7WQ9YWY MNS5eNpkxmZCDAQrfbYZMYYQ5VKHEQ1zxnFCBJq4J+ybz1gtRFne9h/cXBkX CPHunn5SjzfjOiE0r7TplwQy7hKib82rpepI6otQ1LxgjTKa+iJwu+u/jlZS X4S8muziZSrqi3CfV9C+OYX6InR9/+5awQ7qi3Blz7aEtgzqi5AC0TWLQ9QX Qeucsm3rMeqLEd9adaK7hPpiHKwOmx9fSX0xjorMV/1WT30xthRxFenN1BfD rix9oudj6otRlmypGnlOfTH0PnxMb+ynvhge82fEFw9TX4JFM9e+PzjOnfUl mFE/3v2wPmNIUGfexT1tzDhOAnh9enPbkrFaglx9WYyGI+MCCS4fGtwZ4Mm4 ToJLnS0r8gIYd0mQ2fb281gEY44Urll8frKC+lKcHe2XjK6ivhRf5t02zN1I fSksx7/N8k6jvhSzfxLUD+2lvhTdv70/VXeA+lLs+fggLP8Y9aUYuzxS9F0p 9WUI9oyp3l5DfRlWq8btzLpOfRkUMT0TzvyH+jJYak3x63hKfRn+FZ/sNquP +jI4bJ37PGGY+jIk8bUDbmp6sL4MGY+dlnlNZcyR4++z8t0umzA2k8PbkHdF YMsYcjy46aw96MY4Tg4f91itYj/GajnSYm9VJwoYF8ix3zvFxlfBuE6O1Ier +DYJ1JfD0/qg3dxk6kfhlqP2FasdHvgTlMpgDg== "]], Hue[0.9192235949962146, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw903tMU3cYxvF2Y0BxY0hMC5QxhHmbtlbuBToqBUopFCi0UBEhEpCRIIjB XSis6EBQyoJZwhLp6ijWECcDRhyXIY+4zRFZ2KVigxvCFNkQmJMAW9bNXTzv TnJy8sn3PH/8knM2HyxTFz7FYrEK/7n/fT65dAiJXNrYGh0h/Y/IRnXanNzV l7EhG/EtZuvFP8KfWJqNegdfWHubMSsbiWf2TTcMMUYWGtQ5n4yeZWzIgkzi NyDU0z4LNWrL3fH9tM9C8JmFMJOE9lqUOFZ6zX6014LfMpJlexzG7LVQpKVs iZplzNJiVWzi20YZQ4MXVR9FmjsYGzT4ounE8bZ62muwuOq9cqOY9hoYGyua BEraZ+JDuVF1VUD7TMhFJeKTHrTPRIGMk/LWSiizz8TvhpLGzknGyID7z8bl ZwYZGzLwQdVR/bsmxtIMdEfwgzW1tM9AtH+dZ2Ih7dWQB/X4lCpor8bEYbPy MwHt1bDdTD2f4kl7NTSHRrdx1kOYfTq0gevfrt1mbEiHjbNs5V5lLE3HuM8F S7GVMSsdCdqAscXTtE9D5Kd5PMsR2qfhUnJe8+ks2qfB5LJZaJXQPg0bljrW HgXS+6lYdSzMH3GjnooD4SvswF+Dma5CbNtwnLOdMUsF686kbv4I9RTUz70X V2ClnoJ7Y53sH4zUk3HFrp9vqKSeDJ6n51pRLnUllipfFbwWT10JqdMJ44CA ehI2Dh/gCrnUk5B3znHd9lcQ0xXY0bW//dI8Y5YCFfdrzvd/TT0RYkXBN6sD 1BOhn+RsLbRQlyOqucLibKQux5vlJsXUMeoJCK8+5TWTTz0BZX1iDy8l9Xhs 414UHQ+lHg9d+/Qbfv7U47BBZ3uw6EY9DuLIpvql1T1Ml2Eu3jnJf5YxS4bn 9LFhdePUY9H3vVTp2089FvZD7MY5C/W9qHrh7V9m3qG+F61/flnjrqcuhehw /o6aSupSSG5OzcY0kmNwvYh3LdhEfgUTAdyvdD1kCTI4tx73fE6OhtZnX070 FDkKtzTmO78tkyNhG7I2zT9N5xVDlVx+0NWbHIEEF0d+jpAcjsFFRcOMjByG LofO3qojh8IvfFd6bRk5BG5teNRWRw5G5U7e8MJZchBy53Z3l/SS9+DamNu4 7xhZBKv9ggd7hiyEi6dLDW+dvAt3K7dvynen7+1lxDg9+93UFvJ28IZ7Bk9K yFtRes77RpGG/BJiumROr5eSA9Byf3fRUB3ZH7mK6Yei98m+6JxUddgvk71w tLnW0DtB3oT+8mN1V34ie0BfLfjYwab/1RXDfVZOKZ/MQhX3x4bnQ8kPRy63 3xHdU/3fWWU6M/tBcYj0b54a02Q= "]], Hue[0.15529157249600445`, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw9lAlQk2cehwOiHAueFBGp3LJIBeQIEER+IAlnCDlIwhIQi4hIK7WlCFZK vOrF5YEHLHKswqwHVVAUi23wFqFgPREWsLsKCCqCK3gg3Z19/5uZbzLP/OZ5 n5lkvtfq81RJojaHw7n5n+e/3/RJjS7VGljljv9Rj9/v/Ycz7kQQD/k5uHVX NbsTj/nxPeLz75sRc+A+ZOX8ikOsg7cJttvMe90Y62FPQdIBZQuxITjpA8uO 1hJPh7/xqR7tIuKZUKacnbNWTWyMgO/eGwytJDaBduCmM9lCYlMUXg0xsXQn NsPHCbHLbTNic/BGirT3ahHPQ1ipbW5inytjS7jovGwNbiW2wjOrd02L64it kTHG/96/hNgGndt+65dvIbbFrLZSo6wUYjtY3D7ZXyshno+JnR+y3nsT2+PM +K4mqRXxn+HroGpt0CN2QLHRlzncoUWMF6Dl2M9ajQ+IHXGHI3ZW/UL8Gaqn 2X6iV0W8ELEPPGuv5BE74Z+KHP096cTO4O22Mv0qjtgFSZtHu+IEjNUuWOU0 NS7OifZF4Mb9sD7PhfZFuHui1b/bj3ZX8M9EN0JEuyty0mzf1vz/fDdUPXfu 91hDuxv2W2zYfTOLdnfEGOgPf5lLuztGTt43sCmh3QPxBk86+k7Q7oFyC/fE Xxpo5+Lc88uVlc20c1Getq/scCftnog/c1RSNUi7J4ZPjDZoPtDuhZi4nd3P DNnvr/bC/huxF+w+pf/DG1UDa4VrF9LujZzr1w62+NLOg0Cl+isvgnYe7v7d VXk+jnYfeJwKaRak0u6DL1LLx55k074YGb3e/ygsoH0xFKaz1svLafeFofbC Vvsa2n2x78i2Tv3LtC/B8IR1xYc7tC+BtfGEBecJ7X5weDxXbvyGdj9MSsoM 9Nal9wGoPTp7YI0pYwDckjchZx0Yq4E8oclyQx/GGuBCXbpLWjj5/vjp4ezz g7Hk+6Og9u3ot6nk+4MXZD40bSP5/ji/N7vswh7yA2BwyEY//Qj5AXBV6C0I qCM/AAt/XTjJ4gb5ARgf37vP8BH5S1H+lNdlMEj+Uszdbt0z5yP5S7Hq99Ai 7+nsftIsxY5/1xqutqb7KhDqxljP43S/IRBhgmCzcQFjdSD6N39zdlk0+YGI W9+tdyeFfD4qHXKMFd+Tz8fl3ZkPBwrI56O2pkq2+2/k85GRY7IjqI58AWZZ XPt26k3yBdi0us7saQf5AlxZ07vu1xfkC9DhGJ17XcuD+UG4Xv6nmNvGjBGE 7W0fewbsGauDYH7e1WK2D2NNELYqqz6RRpAfjCunVVdKl5MfjHuXJY7jaeQH oyFvR2jKdvKDsW6mlvWzYvJDMEVUfzrzR/JDsKbLStegjvwQHJt/y/h4A/kh aLA/+0h1mfxQVDzuVlo0kR+KGFlY/nAb+aF4lj2adf8B+aEIX/Ev21td5Idh i9bMLW1PyA9DvkJd/HSQ/DCsXemcYvSa/DDYOVmMBL4nPxzV1SK3XG0u88Nh 2KdxfKrPWB0O30dfd4pmMNaEI3BrIr/JlDFHCMv+gyujLMkXonWyEV7Zky+E pKPxdokz+UIcTz43N8aT/Ag8PPX8Uwc/8iPQfmrFQ90g8iNQnWweNhpBfgSi O4zTR+Xki9A+OSJabxn5Ijj2X3/tkES+CNKtm4JVqeSLEPEoS1a6jvxIWPbV m45kM7aMxNVqbqFiO50XiSVOr282FzCOj8SulcN1kkN0fiSqFYtU/eWMyyJx ROt0fcEx6kXiqxVrW4NrGfdEYrr665IZDdQXY7PsjM3AFeqL0fyY+/m9FuqL 0W//Ttl2n/pidMz/qNvZTX0xKroCUsf6qC+Gj+hGnt0w9cU4npG3MuE99cV4 8ZfCN6d1PFlfgilvOpfMmMrYUoLhkES/jbMZQ4JaudOYlhXjeAmCzL2S9y5g rJagpmjTHg93xmUSDN02SuvzZayRYNKldqMTQYx7JBhY/XSZWkx9KSqb3VYn xlBfCm5v42cxidSXouhCQdXyVOpLcUdQ9igjk/pS9Owaulq2mfpSXNqxMbk9 l/pSZEJ61fog9aXQOZXYvqGC+jIkPDx/tPcE9WU4UB++IOEc9WUolVolvWyk vgzrK7mqnGbqy+BYk6PPe0B9GWrSbVLHHlNfBsPX73KuD1JfBu8FsxKqRqkf hcVzvnh1QNuL9aMwq3Gy1yEjxoiCxqqHe9yUcXwU4PP+eYsNY3UUCo0UsVrO jMuicPHgyBY+j7EmCj91tq0o4jPuiUJe+4sPE5GMOXK45wuF6Srqy/Hj+GDU eBL15fho22JS+A315bCZ/CLfN5v6csw9LGp8s5P6cvS+fHVMs5/6cux4dze8 uIL6ckxcHKv8oZr6CoTwYus3XaC+AqtStbfkX6O+AqrYviknf6O+AjY60wI6 uqivwM8J6R5mA9RXwGnDvMfJo9RXIE2oy2+a5M36CuQ+cFnuM50xR4nvzIo9 LpoztlTC10RwSeTAGErcbVqkO+LBOF4JP684naoAxmolsuNu1aeIGJcpsc83 095fxVijRNa9JKF9MvWV4M0/4DgvnfrRuOWse8luszf+AL+yXTA= "]], Hue[0.39135954999579425`, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw903tMU3cYxvF2Y0Bhc0hMy20MYd6mrZV7gY5KgVIKpRTaUlEgEpCRIIjB XSys6EBQyiJZwhLp6ijWEDcGjDiQIY+4zRFZ2KVigxvCBrIhMCcBtqybu3je neTk5JPvef74JedsPliuLnqCxWIV/XP/+3x86REes7SxNS5a8h+Rg2rVnMw9 gLExB0lnLbZLf0Q9tiQH9U5/Qe0dxqwcyFv2TTUMMoYODercj0fOMTbqIBUH DggMtNehRm39cWw/7XUIa1mINItpr0Wpc6XXEkh7LfzPDuvsjyKZvRZyVfqW 2BnGLC1WRWZ/+whjaPC88sMYSwdjowafN5080VZPew0WV31XbpbQXgNTY2UT X0H7bLwvMymv8WmfDZmwVHTKi/bZKJRy0t9YiWD22fjdWNrYOcEYWdjws2n5 qSuMjVl47/hRw9tmxpIsdEf7h2lqaZ+FuKA675Qi2qshC+3xK5PTXo3xwxbF p3zaq2G/lXEh3Zv2amgOjWzjrIcz+0xoQ9a/WbvD2JgJO2fZxr3GWJKJMb+L 1hIbY1YmkrXBo4tnaK9CzCf5POsR2qvQlZbffEZHexXMbpsFNjHtVfBc6lh7 GELvZ2DVuTB/xIN6BvKiVtghv4YxXYmEtqFEVwdjlhK2nand/sPU01E/905i oY16OmZHO9nfm6in4arDMN9QRT0NPG/vteID1BVYqnqZ/0oSdQUkLidNA3zq qdg4lMcVcKmnIv+884b9r1Cmy7Gja3/7B/OMWXJU3qu50P8V9RSI5IVfrw5Q T4FhgrO1yEpdhtjmSquriboMr1eY5ZPHqCcjqvq0z3QB9WSU94m8fBTUk7CN e0l4IoJ6EvTtU68FBlFPhKfefn/Rg3oiRDFN9Uure5guxVySa2rQDGOWFM8Y EiLrxqgnoO87iSKgn3oCHIfYjXNW6ntx/Lk3f5l+i/petP75Rc0GA3UJhIcL dtRUUZdAfGtyJr6RHI8bxbzrYWbySxgP5n6p7yGLkcW5/ajnM3IctH77cuMm ybG4rbHc/W2ZHAP7oK1p/kk6rwjKtIqD7r7kaCS7OQtyBeQoDC7KG6al5Eh0 OfWOVj05AoFRuzJry8nh8GzDw7Y6chiqdvKGFs6RQ5E3t7u7tJe8B9dHPcYC RslC2BwXvdjTZAHcvd1qeOvkXZit2r6pYAN9by8i3uXpbye3kLeDN9Rz5ZSY vBVl531vFmvILyC+S+ryahk5GC33dhcP1pGDcEA+9UD4LjkAnRPKDsdlsg+O Ntcae8fJm9Bfcazu6k9kLxiq+R852fS/umOoz8Yp8yezYOD+0PBsBPnB8OX2 u8JZ5f+dVa63sO+XhEv+Bq7S020= "]], Hue[0.6274275274955841, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw9kws01Hkfh2eNlEpbkorqjOhmZYjccvnInTHmPoNEurpEUTa1ypt0T7rY rAqrlEgtUvGS2dSmtdVuur1pmS7bVlMKXRbvar3n/X3NOXPmPOeZZz7n9z+/ MYtOlCzV4XA41wfe//ukV2JowRfaFfb4P2k8HlY3RHQP8juPCc28pJExxH95 WH132d1hkDkYyytuXDXIurgV2cSpG+RhiFRZfRwfSzwSV/R/O7ZlkEejP/m8 vk4csSFGHno0I3uQjdCR5NVvHU9sjOKh2t1tgzwBNvKWlvyVxCbIDv/v7cQE 4km4arJspziReApu7B/d67WKmIfSxj4zv9XEZggvn6ETnkQ8FY9DDuZtSiY2 h2uZp/bcGmILxDXw3/euJZ6GhN0Lq8VfE0+Hr+FN65p1xDPQLdoYZbueeCaS /RMDazcQz8L1vwpfS9OILdG1aKxf/0bir9CZ8VNoTTqxFRoX1lpkbiaejdiu jpOLthBb47n7kqfCrcR8OHib3BdsJ7ZBmM6YjPCdjNNtIEn1/3P9bvK24J1S c8uyyNvi8r7UB9ps8nPgZJe81O0A+TnYsqe8tCCHvB2OFc4sMcwlb4dD8c8i vs0jb4+FnZpmy6Pk7dFnPaXrVgH5uYifduTXzCLyc1FxJ2y5oJi8A5pdw86b l5B3QG1EXv2IMvKOSHM0TdM9Q94RRj8/em9QQd4J6ePaLWaeI++EholTDaQX yDvj7r3i8qxa8s64JIjVa60n74INGxLHO/1I3gWjFldriq+Qn4c1XNdoiyby 83B2AfdIVTN5VzQkjMiS3iLvimPOMifdFvJuWFD/e97Ve+Td8KLnZPWhh+Td EfC2cvv6NvLu2HS0f2zCE/Ie2KG7S5n0nLwHVliopNtekQdM/146tLyDMYCi rHPJT7vo+8DnB165lp8YqwGbR2PXbu6j3hP2uRbDtZ+p98QogxTlEt25rPfE v12GRXQMY6z2hIdZq8kOA8ac+Tio7si2N2SM+VBP8Gp4Z0z9AM96UFxvSv3A 97vLvQ/zqPeCW8qVwzumUe+F2grTsu2W1Hth5ImqpFw+9V6wle7uumhPvTes aootXzlT743e+59NrDyo90bB2bzGjd7Ue2M8UiyeBFDvg8U79rspQqj3wZZd b0e1yqj3wTrfPbmrwqj3gVdt3EPjKOp9oXm+886NpdT7QvbLq605cdT7Ii92 V+fK1dT74vyP8UbKr6n3Q/FvWW9FadT7ISavc3N4BvV+4E7KuZmyg3o/rFKk 3i7aS70/qgLys9pzqPdH0wcud/YR6gd8WCl/VxH1/khet8+ot4T6AOiF1FSk nqU+ADHelT0TG6kPQFGXtufne9QH4IfQZZW7X1EfiOxUM/PIfuoD4SuZLJhv 6MD6QPz6NHS2w3TG6kDwre//5OLCmBOEaNucCSIhYwQh5s2BqSnR1AfBN7rl 2ekU6oPwaa808v1O6gX4JsVov6CAegHujjNOq66iXgBugorHb6JegCGbWjfU PKI+GI/8C/bKOqkPxrbmY+EcPUfWB0Nv6Mv2OhPG6mCE9SVM2slnzBEis2Tu mBXejCFE+ii3S4pQ6oUQz840VyRQL0SP7ijPZRnUh2BNzn3jbbnUh+By2+Pj F8upD8FzjZW29zL1IWg7fPFl8APqRSj9MrOw4g1jnghBrvu/nM51Yr8ngtpM 41A2gXGUCPrqBGNPa8bpIswc737mTy/GhSKYzhD254cyVovw+G2+3vJExhoR 0lbbXPPIZMwR43WZDmYdZswTY07BuNXmFbQvRmBQTJj1NdoXw+GHv/sCfqd9 MXpu3JandNO+GPuOv1hepe/M9sXotfOY8wWPsUYM52/unYt0YMyRQJB25u1N AWOeBI6O154IFzOGBN2neFntqYyjJMi4W9uZns04XYIXNTkGdicZF0pgrqx4 /KGe9iWwLTdIuH6H9iUwrCutLNfSvhTNGdvPFum4sH0plLonl5RMZAwpLrjp 3b5kwzhKCi3/xKc//BinS/Hh4da7kyMZF0rR4l4StyyFsVqKreHDaxv2MNZI McK2XD2rmDFHhmUN2ZuO19G+DN/qVX/k36F9Gb7TM5n+i5b2ZUhqaDBI5c5j +zJMsT1R7mDKuFCGwvAbQ4bYMVbL8Ml9rvGzQMYaGSzWBr9ulDPmyGGTm5lz 0JcxT44xa/o/rnVkDDkah10cvWIm4yg5BIrKJ7ETaV+OUwvexG8cTvtytJrG nC3qo/PLoTkwrfT+azq/HHVXpkZMbqPzKxB3Jqop+RadX4E3onbtQzWdXwGf 0/nXJJV0fgWS1Pnhrcfo+Q/wnvaTa3Lo+SvgN3bR6SnbaF+BTrF5zH/W0b4C qwKmtx2PpX0lGntiRvxrAe0r8TK6491KIe0r8ceWqqw40L4S1ZE1z1Ln0L4S od2fu3ItaF+JFo9tNU3GtK8EzyfESV+f9pXw5KoSw/ro/qngtP77hXVv6P6r wC39So+vofuvQtH+j0srb9P9V8HYXmej71W6/yoszBIKtRfo/quw/vvWe4Wl dP9ViF95avzyo3T/VbDpujDanf4/nFA084denpbhjH8AHDpjJA== "]], Hue[0.8634955049953739, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxN0g1Q03Ucx/E/SQkLEHQ8GFDIoWIFEs9MHjaGg4EbYw9s1ClQIYSH2BlG gjALKiTN6Di8QuCoyABloqGhgw+WT2XswMu4AiQa1CA7lEC4AKP6fbt2t9u9 7n2f+2/7/dY9n6/MeojjuKzl99+f/77SECy441QTGS78h9AhW37OWredWa/D 2sNir6QSZqEO0tn3XtxTz8zpMFvR2HcVtNfCM6EgO2WU9lpcDuBtsLeOYHst LOJM+z/XM3NaVB7c7+mewIxUNFs0qXm5zPpUSIunz919h/apyIxQxZ5oo30q 5r0KZo72014Du6C0vpYZ2mvQkP/guzk3Adtr0HYre0VhJDOnQVROVdqmDGao IfEpHbArY9arYeL5671P0F6Nfvd6Re4N2quh1fZLzVO0V0FtvLrrqPMWtleh T1basVvALFThW5v5TaXpzJwKkt+Dr/SUMUMJwVJgZWgz7ZVoDZ8uHDLRXona 4wXvdszQXgmeX2dvj3sk26eA+3xVuukxZn0KKkxjMtMY7ZfNL8myOk37FDxa NvBJVjE9X4FHHp9xWIin5yvwxujNhq/W0F6Bor5Xnuu+Tb9fgbsT30f/1kL/ VzJ+9l9MTCqkngzNcXPpYBx1OUShR4bqnajLcWp+/oXqYTovGap/2bjG2ELn K8PiA9dJl9eob8Nw7NeTjRLq2yAyRDtn8qkn4Yn/3z8uCUW83aN7DXQfE6G+ 7/vmNbrPXCKaHZqUyTLqUhQpxuJtPKhL0XtxPGt6Ioz1BNSpmlsdO5m5BFj4 AR4ZFdTjYeAKz/6kox6POZfXC6p9qUvQpZWnF82Fsi7B4qXBl9+/xqzfCqPO 7+TQMepbMecmdHr2JepxOLPCuc5GQD0OFrdWlYVHXYw63cOBCz+GsC5G7yWv CNFJZn0sDmiXcs6XUI/FZy51PZkK6iKol0dR3tRF2M/3uZP4RzDrQnipeDh0 hZkTQnix/cLCMXIMRpI9Rxp2kaOxYJ/o92o0OQo1s+EflTqRI2GwnRB1moOY t0Acv91243myAOq2qvnLleQImEWHVtekk8Nxb0ms/iCIHIbi8e4u00pyKMrm FlPCBgOZQ2AbsmTfZyAHw64W92rLyUHY95SrceJDciB2jG025LaTn8GX13k3 PK6TA9A08Kmj1QjZHzarV5a43ic/DXOBLz/Dgb7Pk4ixtrv5w3qyL1yNpzvf iiJvQF7D2m92asg+iDklti7MI3ujanzzzgvlZC/skA5PBdSRPdB8S/7xQAfZ DXuPHNS3m8h8fLFnX3nXr2RHFB/wO7NgRedhA+PZJts8dzKHYpfRt1eFkKe6 OxpvB5jl/3UuP63eajInWPgX3GPZDA== "]], Hue[0.09956348249516367, 0.6, 0.6], Directive[ PointSize[0.005555555555555556], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJw9kws01Hkfh2eNlEpbkorqjOhmZYjccvnInTHmPoNEurpEUTa1ypt0T7rY rAqrlEgtUvGS2dSmtdVuur1pmS7bVlMKXRbvar3n/X3NOXPmPOeZZz7n9z+/ MYtOlCzV4XA41wfe//ukV2JowRfaFfb4P2k8HlY3RHQP8juPCc28pJExxH95 WH132d1hkDkYyytuXDXIurgV2cSpG+RhiFRZfRwfSzwSV/R/O7ZlkEejP/m8 vk4csSFGHno0I3uQjdCR5NVvHU9sjOKh2t1tgzwBNvKWlvyVxCbIDv/v7cQE 4km4arJspziReApu7B/d67WKmIfSxj4zv9XEZggvn6ETnkQ8FY9DDuZtSiY2 h2uZp/bcGmILxDXw3/euJZ6GhN0Lq8VfE0+Hr+FN65p1xDPQLdoYZbueeCaS /RMDazcQz8L1vwpfS9OILdG1aKxf/0bir9CZ8VNoTTqxFRoX1lpkbiaejdiu jpOLthBb47n7kqfCrcR8OHib3BdsJ7ZBmM6YjPCdjNNtIEn1/3P9bvK24J1S c8uyyNvi8r7UB9ps8nPgZJe81O0A+TnYsqe8tCCHvB2OFc4sMcwlb4dD8c8i vs0jb4+FnZpmy6Pk7dFnPaXrVgH5uYifduTXzCLyc1FxJ2y5oJi8A5pdw86b l5B3QG1EXv2IMvKOSHM0TdM9Q94RRj8/em9QQd4J6ePaLWaeI++EholTDaQX yDvj7r3i8qxa8s64JIjVa60n74INGxLHO/1I3gWjFldriq+Qn4c1XNdoiyby 83B2AfdIVTN5VzQkjMiS3iLvimPOMifdFvJuWFD/e97Ve+Td8KLnZPWhh+Td EfC2cvv6NvLu2HS0f2zCE/Ie2KG7S5n0nLwHVliopNtekQdM/146tLyDMYCi rHPJT7vo+8DnB165lp8YqwGbR2PXbu6j3hP2uRbDtZ+p98QogxTlEt25rPfE v12GRXQMY6z2hIdZq8kOA8ac+Tio7si2N2SM+VBP8Gp4Z0z9AM96UFxvSv3A 97vLvQ/zqPeCW8qVwzumUe+F2grTsu2W1Hth5ImqpFw+9V6wle7uumhPvTes aootXzlT743e+59NrDyo90bB2bzGjd7Ue2M8UiyeBFDvg8U79rspQqj3wZZd b0e1yqj3wTrfPbmrwqj3gVdt3EPjKOp9oXm+886NpdT7QvbLq605cdT7Ii92 V+fK1dT74vyP8UbKr6n3Q/FvWW9FadT7ISavc3N4BvV+4E7KuZmyg3o/rFKk 3i7aS70/qgLys9pzqPdH0wcud/YR6gd8WCl/VxH1/khet8+ot4T6AOiF1FSk nqU+ADHelT0TG6kPQFGXtufne9QH4IfQZZW7X1EfiOxUM/PIfuoD4SuZLJhv 6MD6QPz6NHS2w3TG6kDwre//5OLCmBOEaNucCSIhYwQh5s2BqSnR1AfBN7rl 2ekU6oPwaa808v1O6gX4JsVov6CAegHujjNOq66iXgBugorHb6JegCGbWjfU PKI+GI/8C/bKOqkPxrbmY+EcPUfWB0Nv6Mv2OhPG6mCE9SVM2slnzBEis2Tu mBXejCFE+ii3S4pQ6oUQz840VyRQL0SP7ijPZRnUh2BNzn3jbbnUh+By2+Pj F8upD8FzjZW29zL1IWg7fPFl8APqRSj9MrOw4g1jnghBrvu/nM51Yr8ngtpM 41A2gXGUCPrqBGNPa8bpIswc737mTy/GhSKYzhD254cyVovw+G2+3vJExhoR 0lbbXPPIZMwR43WZDmYdZswTY07BuNXmFbQvRmBQTJj1NdoXw+GHv/sCfqd9 MXpu3JandNO+GPuOv1hepe/M9sXotfOY8wWPsUYM52/unYt0YMyRQJB25u1N AWOeBI6O154IFzOGBN2neFntqYyjJMi4W9uZns04XYIXNTkGdicZF0pgrqx4 /KGe9iWwLTdIuH6H9iUwrCutLNfSvhTNGdvPFum4sH0plLonl5RMZAwpLrjp 3b5kwzhKCi3/xKc//BinS/Hh4da7kyMZF0rR4l4StyyFsVqKreHDaxv2MNZI McK2XD2rmDFHhmUN2ZuO19G+DN/qVX/k36F9Gb7TM5n+i5b2ZUhqaDBI5c5j +zJMsT1R7mDKuFCGwvAbQ4bYMVbL8Ml9rvGzQMYaGSzWBr9ulDPmyGGTm5lz 0JcxT44xa/o/rnVkDDkah10cvWIm4yg5BIrKJ7ETaV+OUwvexG8cTvtytJrG nC3qo/PLoTkwrfT+azq/HHVXpkZMbqPzKxB3Jqop+RadX4E3onbtQzWdXwGf 0/nXJJV0fgWS1Pnhrcfo+Q/wnvaTa3Lo+SvgN3bR6SnbaF+BTrF5zH/W0b4C qwKmtx2PpX0lGntiRvxrAe0r8TK6491KIe0r8ceWqqw40L4S1ZE1z1Ln0L4S od2fu3ItaF+JFo9tNU3GtK8EzyfESV+f9pXw5KoSw/ro/qngtP77hXVv6P6r wC39So+vofuvQtH+j0srb9P9V8HYXmej71W6/yoszBIKtRfo/quw/vvWe4Wl dP9ViF95avzyo3T/VbDpujDanf4/nFA084denpbhjH8AHDpjJA== "]]}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{-100., 100.}, {0, 28.10842601819335}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"E\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Dashing[{Small, Small}], Method -> {}, PlotRange -> {{-100., 100.}, {0, 28.10842601819335}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"L\[CapitalGamma]\"", "\"\[CapitalGamma]X\"", RowBox[{"2", " ", "\"L\[CapitalGamma]\""}], RowBox[{"2", " ", "\"\[CapitalGamma]X\""}], RowBox[{"3", " ", "\"L\[CapitalGamma]\""}], RowBox[{"3", " ", "\"\[CapitalGamma]X\""}], RowBox[{"4", " ", "\"L\[CapitalGamma]\""}], RowBox[{"4", " ", "\"\[CapitalGamma]X\""}], RowBox[{"5", " ", "\"L\[CapitalGamma]\""}], RowBox[{"5", " ", "\"\[CapitalGamma]X\""}], RowBox[{"6", " ", "\"L\[CapitalGamma]\""}], RowBox[{"6", " ", "\"\[CapitalGamma]X\""}], RowBox[{"7", " ", "\"L\[CapitalGamma]\""}], RowBox[{"7", " ", "\"\[CapitalGamma]X\""}], RowBox[{"8", " ", "\"L\[CapitalGamma]\""}], RowBox[{"8", " ", "\"\[CapitalGamma]X\""}], RowBox[{"9", " ", "\"L\[CapitalGamma]\""}], RowBox[{"9", " ", "\"\[CapitalGamma]X\""}], RowBox[{"10", " ", "\"L\[CapitalGamma]\""}], RowBox[{"10", " ", "\"\[CapitalGamma]X\""}], RowBox[{"11", " ", "\"L\[CapitalGamma]\""}], RowBox[{"11", " ", "\"\[CapitalGamma]X\""}], RowBox[{"12", " ", "\"L\[CapitalGamma]\""}], RowBox[{"12", " ", "\"\[CapitalGamma]X\""}]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #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.2], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #11}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #13}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #14}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #15}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #16}}, 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.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #17}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #18}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #19}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #20}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #21}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #22}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #23}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.2], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #24}}, 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.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.772079, 0.431554, 0.102387]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.363898, 0.618501, 0.782349], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.24259866666666668`, 0.412334, 0.521566], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.363898, 0.618501, 0.782349]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.363898, 0.618501, 0.782349]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.363898, 0.618501, 0.782349], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0.75, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0.5, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[1, 0.75, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.75, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0.75, 0], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.647624, 0.37816, 0.614037], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.4317493333333333, 0.2521066666666667, 0.40935800000000006`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.647624, 0.37816, 0.614037]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.647624, 0.37816, 0.614037]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.647624, 0.37816, 0.614037], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.571589, 0.586483, 0.], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.38105933333333336`, 0.39098866666666665`, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.571589, 0.586483, 0.]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.571589, 0.586483, 0.]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.571589, 0.586483, 0.], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.915, 0.3325, 0.2125], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6100000000000001, 0.22166666666666668`, 0.14166666666666666`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.915, 0.3325, 0.2125]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.915, 0.3325, 0.2125]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.915, 0.3325, 0.2125], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.2672148173956843, 0.34800444289592275`, 0.5666666666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.40082222609352647, 0.5220066643438841, \ 0.85]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6485525936249404, 0.4144296347913687, 0.048907997212660946`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.9728288904374106, 0.621644452187053, \ 0.07336199581899142]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.736782672705901, 0.358, 0.5030266573755369], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.4911884484706007, 0.23866666666666667`, 0.3353511049170246], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.736782672705901, 0.358, 0.5030266573755369]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.736782672705901, 0.358, 0.5030266573755369]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.18684294025131137`, 0.4766666666666667, 0.2861392881649977], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.28026441037696703, 0.715, \ 0.4292089322474965]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.772079, 0.431554, 0.102387], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.5147193333333333, 0.28770266666666666`, 0.06825800000000001], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.772079, 0.431554, 0.102387]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.772079, 0.431554, 0.102387]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.772079, 0.431554, 0.102387], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.363898, 0.618501, 0.782349], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.24259866666666668`, 0.412334, 0.521566], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.363898, 0.618501, 0.782349]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.363898, 0.618501, 0.782349]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.363898, 0.618501, 0.782349], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0.75, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0.5, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[1, 0.75, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.75, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0.75, 0], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.005555555555555556`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.647624, 0.37816, 0.614037], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.4317493333333333, 0.2521066666666667, 0.40935800000000006`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "\[InvisibleSpace]"}], "RGBColor[0.647624, 0.37816, 0.614037]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.647624, 0.37816, 0.614037]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.647624, 0.37816, 0.614037], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12, ",", #13, ",", #14, ",", #15, ",", #16, ",", #17, ",", #18, ",", #19, ",", #20, ",", #21, ",", #22, ",", #23, ",", #24}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{ "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", 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"}], "}"}]}], "}"}]}]}], "]"}]& ), 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.60802745348678*^9, 3.608027636157228*^9, 3.6080276661759453`*^9, 3.608027896709131*^9, 3.6080280609575253`*^9, 3.6080282603559303`*^9, 3.6080286070277586`*^9, 3.608030310263178*^9, 3.6102689662791557`*^9, 3.610269127140211*^9, {3.610269269480442*^9, 3.610269272444545*^9}, 3.610269310813284*^9, 3.6102693484785995`*^9, 3.6105417829892855`*^9, 3.6105425811947513`*^9, 3.611469112261348*^9, 3.61146925725428*^9, 3.6114693316881423`*^9, 3.6114694437036457`*^9, 3.611469475146968*^9, 3.61147011603795*^9, 3.611585050401131*^9, 3.611666266936208*^9, 3.611666399701337*^9, 3.6116664633754835`*^9, 3.611666561881326*^9, 3.6116666224472704`*^9, 3.611666681509147*^9, 3.611666766096121*^9, 3.611666869228245*^9, 3.6116670040618715`*^9, 3.6116671320165696`*^9, 3.6116672543863354`*^9, 3.6116673242218485`*^9, 3.6116673781270695`*^9, 3.6116674828083143`*^9, 3.6128747003353896`*^9, 3.6128747517289667`*^9, 3.6128748398716793`*^9, 3.612875266883605*^9, 3.6128753315906377`*^9, 3.6128758027309513`*^9, 3.6128758370103683`*^9, 3.6128758893505983`*^9, 3.6128760673192606`*^9, 3.612876223226219*^9, 3.6130289633141975`*^9, 3.6130290057079253`*^9, 3.6130291744565716`*^9, {3.6130294732615423`*^9, 3.6130294958105807`*^9}, 3.613030025520584*^9, 3.6130460378545647`*^9, 3.6130463145554743`*^9, 3.6133139321295195`*^9, {3.613314141603606*^9, 3.6133141469774475`*^9}, {3.613314242975751*^9, 3.6133142552885146`*^9}, 3.6138202684464226`*^9, 3.613820471493932*^9, 3.614862448791654*^9, { 3.614862939003251*^9, 3.6148629452416525`*^9}, 3.6148630132418685`*^9, { 3.6148630550425243`*^9, 3.6148631281663523`*^9}, 3.6180319125820804`*^9, { 3.6180319865464897`*^9, 3.618032069365261*^9}, {3.6180321709432764`*^9, 3.6180321870333676`*^9}, {3.618036936403632*^9, 3.6180369512662663`*^9}, 3.619261058078006*^9, 3.619351880321925*^9}] }, Open ]] }, WindowSize->{667, 669}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.4399999999999, 841.56}}, FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (July 1, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 1752, 46, 172, "Input"], Cell[2334, 70, 1860, 30, 31, "Output"], Cell[4197, 102, 1917, 33, 31, "Output"] }, Open ]], Cell[6129, 138, 1243, 35, 132, "Input"], Cell[7375, 175, 1156, 30, 107, "Input"], Cell[8534, 207, 525, 15, 52, "Input"], Cell[9062, 224, 268, 6, 31, "Input"], Cell[9333, 232, 231, 7, 44, "Input"], Cell[9567, 241, 6626, 151, 589, "Input"], Cell[16196, 394, 1276, 34, 77, "Input"], Cell[17475, 430, 345, 8, 31, "Input"], Cell[17823, 440, 4861, 121, 563, "Input"], Cell[22687, 563, 1081, 28, 52, "Input"], Cell[CellGroupData[{ Cell[23793, 595, 2353, 51, 112, "Input"], Cell[26149, 648, 148246, 2912, 286, "Output"] }, Open ]] } ] *) (* End of internal cache information *)