(* 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[ 290856, 6249] NotebookOptionsPosition[ 288639, 6175] NotebookOutlinePosition[ 289201, 6197] CellTagsIndexPosition[ 289158, 6194] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"lattice", " ", "primitive", " ", "vectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"latticeVec", "=", 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"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"reciprocal", " ", "lattice", " ", "primitive", " ", "vectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{"reciprocalVec", "=", RowBox[{"Transpose", "[", RowBox[{"Inverse", "[", "latticeVec", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"lattice", " ", "constant", " ", "for", " ", "Germanium"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"aLattice", "=", "10.69"}], ";"}], "\[IndentingNewLine]", 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.613310868629519*^9, 3.61331088145165*^9}, 3.613310917569337*^9, {3.6152966060573373`*^9, 3.6152966070350323`*^9}, { 3.619500155074729*^9, 3.619500170420617*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "2"], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", "0", ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox["1", "2"], ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.6133116341403236`*^9, 3.613311674471027*^9, 3.6143500708611364`*^9, 3.6143501040366664`*^9, {3.615271729630205*^9, 3.6152717447409077`*^9}, 3.6152782806014743`*^9, 3.61527848912551*^9, 3.6152787193239517`*^9, 3.6152789236860123`*^9, 3.6152793179148865`*^9, 3.6152795507922106`*^9, 3.6152797597825766`*^9, 3.615279984801509*^9, 3.6152801815201645`*^9, 3.6152803917354*^9, 3.6152805905165195`*^9, 3.6152877243410215`*^9, 3.6152883044073915`*^9, 3.615288548203967*^9, 3.615288754466416*^9, 3.6152889984286947`*^9, 3.615289231110076*^9, 3.6152894654280005`*^9, 3.615289529722645*^9, 3.6152897668639965`*^9, 3.6152899589689693`*^9, 3.615290219869843*^9, 3.615290462264924*^9, 3.6152907182326393`*^9, { 3.615290982102233*^9, 3.6152910000414405`*^9}, 3.615291171361501*^9, 3.615291358226653*^9, 3.615291558092906*^9, 3.615291718360265*^9, 3.6152919198376894`*^9, 3.6152920773521976`*^9, 3.6152922313351965`*^9, 3.6152924668102245`*^9, 3.6152927749450407`*^9, 3.615293081130255*^9, 3.615293358372156*^9, 3.615293617632229*^9, 3.6152937648167*^9, 3.6152979645877895`*^9, 3.6153647534400835`*^9, 3.6153653826700935`*^9, 3.615369583278531*^9, 3.615729166905119*^9, 3.615730691084531*^9, 3.615731821227236*^9, 3.615732088427925*^9, 3.615732741624466*^9, 3.6157840040073075`*^9, 3.6157849554940305`*^9, 3.6157859780059423`*^9, 3.615795964534346*^9, 3.615870384474818*^9, 3.615870635123598*^9, 3.6158899144653845`*^9, 3.6159119956113005`*^9, 3.616247728491368*^9, 3.616833131774867*^9, 3.6168532565075493`*^9, 3.6169085310497117`*^9, 3.6184791980103607`*^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.6133116341403236`*^9, 3.613311674471027*^9, 3.6143500708611364`*^9, 3.6143501040366664`*^9, {3.615271729630205*^9, 3.6152717447409077`*^9}, 3.6152782806014743`*^9, 3.61527848912551*^9, 3.6152787193239517`*^9, 3.6152789236860123`*^9, 3.6152793179148865`*^9, 3.6152795507922106`*^9, 3.6152797597825766`*^9, 3.615279984801509*^9, 3.6152801815201645`*^9, 3.6152803917354*^9, 3.6152805905165195`*^9, 3.6152877243410215`*^9, 3.6152883044073915`*^9, 3.615288548203967*^9, 3.615288754466416*^9, 3.6152889984286947`*^9, 3.615289231110076*^9, 3.6152894654280005`*^9, 3.615289529722645*^9, 3.6152897668639965`*^9, 3.6152899589689693`*^9, 3.615290219869843*^9, 3.615290462264924*^9, 3.6152907182326393`*^9, { 3.615290982102233*^9, 3.6152910000414405`*^9}, 3.615291171361501*^9, 3.615291358226653*^9, 3.615291558092906*^9, 3.615291718360265*^9, 3.6152919198376894`*^9, 3.6152920773521976`*^9, 3.6152922313351965`*^9, 3.6152924668102245`*^9, 3.6152927749450407`*^9, 3.615293081130255*^9, 3.615293358372156*^9, 3.615293617632229*^9, 3.6152937648167*^9, 3.6152979645877895`*^9, 3.6153647534400835`*^9, 3.6153653826700935`*^9, 3.615369583278531*^9, 3.615729166905119*^9, 3.615730691084531*^9, 3.615731821227236*^9, 3.615732088427925*^9, 3.615732741624466*^9, 3.6157840040073075`*^9, 3.6157849554940305`*^9, 3.6157859780059423`*^9, 3.615795964534346*^9, 3.615870384474818*^9, 3.615870635123598*^9, 3.6158899144653845`*^9, 3.6159119956113005`*^9, 3.616247728491368*^9, 3.616833131774867*^9, 3.6168532565075493`*^9, 3.6169085310497117`*^9, 3.618479198013362*^9}] }, Open ]], 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."]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"basis", " ", "atoms"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rb", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1.", "8."]}], ",", RowBox[{"-", FractionBox["1.", "8."]}], ",", RowBox[{"-", FractionBox["1.", "8."]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1.", "8."], ",", FractionBox["1.", "8."], ",", FractionBox["1.", "8."]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "atoms", " ", "in", " ", "the", " ", "basis"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nat", "=", "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}, {3.6180328074377766`*^9, 3.6180328604123135`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"local", " ", "pseudopotential"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ra", "=", "0.94"}], ";"}], "\n", RowBox[{ RowBox[{"ktf", "=", "0.52"}], ";"}], "\n", RowBox[{ RowBox[{"qz", "=", "1.83"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vl", "[", "k_", "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "k", "]"}], "<", SuperscriptBox["10", RowBox[{"-", "12"}]]}], ",", "0", ",", RowBox[{ RowBox[{"N", "[", RowBox[{"16", "\[Pi]"}], "]"}], RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["k", "2"], SuperscriptBox["qz", "2"]], "-", "1"}], ")"}], FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["k", "2"], SuperscriptBox["Ra", "2"]}], "4."]}]], RowBox[{ SuperscriptBox["k", "2"], "+", SuperscriptBox["ktf", "2"]}]]}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.608012925036742*^9, 3.608012933590231*^9}, { 3.6171628363767586`*^9, 3.6171629114551964`*^9}, 3.617162967881078*^9, { 3.617163083189204*^9, 3.6171630987687807`*^9}, {3.6171632334698505`*^9, 3.617163234266734*^9}, {3.617339181949918*^9, 3.617339220155614*^9}, 3.6195001863159013`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"non", " ", "local", " ", "pseudopotential"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"constnl", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Rb", "=", "0.71"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lmaxnl", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fnl", "[", RowBox[{"l_", ",", "k_"}], "]"}], ":=", RowBox[{"constnl", FractionBox[ RowBox[{ SqrtBox["\[Pi]"], SuperscriptBox["Rb", "3"]}], "4"], RowBox[{"If", "[", " ", RowBox[{ RowBox[{"l", "\[Equal]", "0"}], ",", "1", ",", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"Rb", " ", "k"}], "2"], ")"}], "l"]}], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["Rb", "2"], " ", SuperscriptBox["k", "2"]}], "4"]}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Theta]", "[", RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{ SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]], "<", SuperscriptBox["10", RowBox[{"-", "12"}]]}], ",", "0", ",", RowBox[{"ArcCos", "[", FractionBox["z", SqrtBox[ RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"], "+", SuperscriptBox["z", "2"]}]]], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Phi]", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", RowBox[{"Arg", "[", RowBox[{"x", "+", RowBox[{"I", " ", "y"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"anl", "[", RowBox[{ "l_", ",", "m_", ",", "x_", ",", "y_", ",", "z_", ",", "kx_", ",", "ky_", ",", "kz_"}], "]"}], ":=", " ", RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["\[ImaginaryI]", "l"], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "2", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"x", " ", "kx"}], "+", RowBox[{"y", " ", "ky"}], "+", RowBox[{"z", " ", "kz"}]}], ")"}]}]], " ", SqrtBox[ FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "l"}], "+", "1"}], ")"}], RowBox[{"4", " ", "\[Pi]"}]]], RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", "m", ",", RowBox[{"\[Theta]", "[", RowBox[{"kx", ",", "ky", ",", "kz"}], "]"}], ",", RowBox[{"\[Phi]", "[", RowBox[{"kx", ",", "ky"}], "]"}]}], "]"}], RowBox[{"fnl", "[", RowBox[{"l", ",", RowBox[{ FractionBox[ RowBox[{"2", "\[Pi]"}], "aLattice"], SqrtBox[ RowBox[{ SuperscriptBox["kx", "2"], "+", SuperscriptBox["ky", "2"], "+", SuperscriptBox["kz", "2"]}]]}]}], "]"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.6133110087832727`*^9, 3.6133110232145247`*^9}, { 3.613311057724103*^9, 3.613311062789709*^9}, {3.6133111633512793`*^9, 3.613311244139776*^9}, {3.613311291333356*^9, 3.613311293236701*^9}, { 3.6133113741122603`*^9, 3.61331139430565*^9}, {3.613311581309742*^9, 3.6133116008476477`*^9}, {3.613311667468061*^9, 3.613311671923216*^9}, 3.6133127731036353`*^9, {3.613313539279928*^9, 3.6133135397212596`*^9}, 3.615273567951287*^9, 3.615278488136809*^9, {3.615278714441467*^9, 3.615278718780547*^9}, {3.6152789206988935`*^9, 3.615278922066865*^9}, 3.6152793166509886`*^9, {3.615279546049844*^9, 3.615279550240819*^9}, 3.6152797576490607`*^9, {3.615280892543954*^9, 3.6152808926770277`*^9}, { 3.615288298621284*^9, 3.6152883030704403`*^9}, {3.615288538185855*^9, 3.615288546709908*^9}, {3.6152887519386034`*^9, 3.615288752847248*^9}, { 3.6152889951193457`*^9, 3.615288996803543*^9}, {3.6152904484381084`*^9, 3.615290452190775*^9}, {3.6152907123644943`*^9, 3.6152907164864206`*^9}, { 3.615290997244029*^9, 3.6152909988383527`*^9}, {3.6152911656885185`*^9, 3.6152911695173655`*^9}, {3.615291347646453*^9, 3.6152913565701375`*^9}, { 3.61529155199783*^9, 3.6152915572018914`*^9}, {3.615291716375427*^9, 3.6152917167660646`*^9}, {3.6152924600866737`*^9, 3.6152924635716095`*^9}, {3.61529335346067*^9, 3.6152933571242886`*^9}, { 3.6157291255077243`*^9, 3.6157291471170855`*^9}, {3.615730681683875*^9, 3.6157306827125854`*^9}, {3.615732086007221*^9, 3.6157320867467504`*^9}, { 3.6157327372563653`*^9, 3.6157327396450605`*^9}, 3.6157840021480083`*^9, { 3.615784952729088*^9, 3.615784953840858*^9}, {3.6157887308014994`*^9, 3.6157887309305706`*^9}, {3.6158712796979103`*^9, 3.6158712802294064`*^9}, {3.615871397054414*^9, 3.615871397288794*^9}, { 3.619500226803619*^9, 3.61950023472724*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"bso", "[", RowBox[{"l_", ",", "j_"}], "]"}], ":=", RowBox[{"If", "[", RowBox[{ RowBox[{"j", "<", "l"}], ",", "1", ",", RowBox[{"-", "1"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6158714926097827`*^9, 3.6158714985480433`*^9}, { 3.6158715626184397`*^9, 3.6158715866991444`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "definition", " ", "of", " ", "vectors", " ", "in", " ", "the", " ", "reciprocal", " ", "space"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nsize", "=", "5"}], ";"}], "\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[{"indicesDuoTri", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", RowBox[{ RowBox[{"Dimensions", "[", "indicesTri", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"indicesDuoTri", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "i"}], "-", "1"}], "]"}], "]"}], "=", RowBox[{"indicesTri", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"indicesDuoTri", "[", RowBox[{"[", RowBox[{"2", "i"}], "]"}], "]"}], "=", RowBox[{"indicesTri", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"Dimensions", "[", "indicesTri", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gspaceVec", "=", RowBox[{"indicesDuoTri", ".", "reciprocalVec"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.608012946645978*^9, 3.6080129796868677`*^9}, { 3.6113037757392673`*^9, 3.6113037800103188`*^9}, {3.6132255808224015`*^9, 3.6132255813087473`*^9}, 3.6152968053367906`*^9, {3.6157885572172537`*^9, 3.6157885691036863`*^9}, 3.619500250502432*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"eMax", "=", "10.0"}], ";", " ", RowBox[{"(*", RowBox[{"maximum", " ", "kinetic", " ", "energy"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kmin", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kmax", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", "24"}], ";", " ", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "points", " ", "calculated", " ", "in", " ", "one", " ", "direction"}], "*)"}], "\[IndentingNewLine]", RowBox[{"nBand", "=", "12"}], ";"}], RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "bands", " ", "to", " ", "be", " ", "drawn"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.6086102661359005`*^9, 3.6086103019759502`*^9}, { 3.60916600896766*^9, 3.609166009326254*^9}, {3.6091694122087383`*^9, 3.6091694240866833`*^9}, {3.60982740119003*^9, 3.6098274035106792`*^9}, { 3.6098285227887754`*^9, 3.609828523415221*^9}, {3.60982862127874*^9, 3.609828622527647*^9}, {3.60985497641073*^9, 3.6098549854161296`*^9}, { 3.6098554502943616`*^9, 3.609855456307635*^9}, {3.609856714672285*^9, 3.6098567153861585`*^9}, {3.6112972056532574`*^9, 3.6112972058514023`*^9}, {3.6113023043837185`*^9, 3.6113023045588627`*^9}, {3.6128731543400965`*^9, 3.6128731575884085`*^9}, 3.613027150489711*^9, {3.613029645012229*^9, 3.6130296453091373`*^9}, { 3.6130387168692303`*^9, 3.6130387181441374`*^9}, {3.613039766085285*^9, 3.613039766408515*^9}, 3.6130403901535025`*^9, {3.61304472057603*^9, 3.613044720829212*^9}, {3.6130486480884557`*^9, 3.613048648469722*^9}, { 3.6130489019981594`*^9, 3.613048902159272*^9}, {3.6131251471980543`*^9, 3.613125147364153*^9}, {3.6131942320308237`*^9, 3.613194233311735*^9}, { 3.6132246019437284`*^9, 3.613224604243365*^9}, {3.6132256309540787`*^9, 3.6132256316865993`*^9}, {3.6132256674450493`*^9, 3.613225668137545*^9}, { 3.613227212996039*^9, 3.6132272159861546`*^9}, {3.6143501012863717`*^9, 3.614350101614482*^9}, {3.6152717279319763`*^9, 3.6152717426274023`*^9}, { 3.615288511962236*^9, 3.6152885131550827`*^9}, {3.6152979631327553`*^9, 3.615297963206808*^9}, {3.615870631013833*^9, 3.615870631248211*^9}, { 3.615875704063023*^9, 3.6158757046099033`*^9}, {3.615889911730837*^9, 3.615889913027727*^9}, 3.616832650538227*^9, {3.616853253087121*^9, 3.6168532547372923`*^9}, 3.6195002622277503`*^9, {3.6195003747625914`*^9, 3.6195003804536285`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"EnL\[CapitalGamma]", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", FractionBox["p", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6130452221980567`*^9, 3.6130452441896887`*^9}, { 3.613045430430258*^9, 3.6130454943707447`*^9}, 3.6130456982468643`*^9, { 3.6130464694447093`*^9, 3.613046470431423*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "cycle", " ", "to", " ", "calculate", " ", "the", " ", "band", " ", "structure"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"vector", " ", "k"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"veck", "=", RowBox[{"L", "+", RowBox[{"2", RowBox[{"(", RowBox[{"\[CapitalGamma]", "-", "L"}], ")"}], FractionBox["x", "p"]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"all", " ", "the", " ", "k"}], "+", "G"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kplusgVec", "=", RowBox[{ RowBox[{"ParallelTable", "[", RowBox[{"veck", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "gspaceVec", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "+", RowBox[{"N", "[", "gspaceVec", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 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]", "\[IndentingNewLine]", 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[{"0.5", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"N", "[", RowBox[{"2", " ", "Pi"}], "]"}], "/", "aLattice"}], ")"}], "^", "2"}], "*", RowBox[{"#", ".", "#"}]}], "<", "eMax"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"kinetic", " ", "energy", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kineticOperator", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"ParallelTable", "[", 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]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"local", " ", "pseudopotential", " ", "operator"}], "*)"}], RowBox[{"localOperator", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", RowBox[{"j", "+", "k"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "vAtomic"}], ")"}]}], ")"}], "*", RowBox[{"Vl", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"N", "[", RowBox[{"2", " ", "Pi"}], "]"}], "/", "aLattice"}], ")"}], "*", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], "]"}], "*", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{"(", RowBox[{"Exp", "[", RowBox[{"I", " ", "2", " ", RowBox[{"N", "[", "Pi", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}], "]"}], ")"}]}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", " ", "local", " ", "projectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{"anlOperator", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"anl", "[", RowBox[{"l", ",", "m", ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nat"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", "lmaxnl"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", RowBox[{"-", "l"}], ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"conjanlOperator", "=", RowBox[{"Conjugate", "[", "anlOperator", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", " ", "local", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"VKBnl", "=", RowBox[{"ParallelTable", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", RowBox[{"j", "+", "k"}], "]"}], ",", RowBox[{ FractionBox["1", RowBox[{"2", "vAtomic"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "natC"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmaxnl"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", RowBox[{"-", "l"}]}], "l"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"conjanlOperator", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"m", "+", "l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{ RowBox[{"anlOperator", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"m", "+", "l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}]}]}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Diagonalize", " ", "the", " ", "Hamiltonian", " ", "and", " ", "order", " ", "the", " ", "eigenvalues", " ", "by", " ", "increasing", " ", "order", " ", "of", " ", "energy"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"EnL\[CapitalGamma]", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"Eigenvalues", "[", RowBox[{"kineticOperator", "+", "localOperator", "+", "VKBnl"}], "]"}], "]"}], ",", RowBox[{"2", "nBand"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", FractionBox["p", "2"]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6086116410845428`*^9, 3.608611769270875*^9}, { 3.608611857619928*^9, 3.60861201483092*^9}, {3.608613133324894*^9, 3.6086131416813717`*^9}, {3.6086132229120183`*^9, 3.608613266282499*^9}, { 3.6086425065987124`*^9, 3.6086425241527166`*^9}, {3.6086430430803976`*^9, 3.6086430629075317`*^9}, 3.608644260743044*^9, {3.6086953236593237`*^9, 3.608695340666297*^9}, 3.6086954321915317`*^9, {3.608695488138732*^9, 3.6086954919139476`*^9}, {3.608695529147077*^9, 3.6086955532064533`*^9}, { 3.608695590599592*^9, 3.6086959090678077`*^9}, {3.6086959418706837`*^9, 3.608696078557502*^9}, {3.6086961219319825`*^9, 3.608696159750146*^9}, { 3.609833275229108*^9, 3.6098333658344717`*^9}, {3.609833521398977*^9, 3.609833772860607*^9}, 3.609833823031247*^9, {3.6098338903770876`*^9, 3.609834072914756*^9}, {3.609834196004195*^9, 3.6098342277087193`*^9}, { 3.609834269499404*^9, 3.6098342930000987`*^9}, {3.6098343514686337`*^9, 3.60983437389058*^9}, {3.60983470061866*^9, 3.6098347455265603`*^9}, { 3.6098348781897984`*^9, 3.609834879799941*^9}, {3.609834926989464*^9, 3.6098349361619797`*^9}, {3.6098350257856655`*^9, 3.609835120192711*^9}, { 3.609852212930651*^9, 3.609852232690689*^9}, {3.6098523508134375`*^9, 3.609852371819359*^9}, {3.6098524860354958`*^9, 3.609852489363859*^9}, { 3.6098544186014795`*^9, 3.6098544521483116`*^9}, 3.6098567764359355`*^9, 3.6111328669586735`*^9, {3.6111335858410244`*^9, 3.6111336123177924`*^9}, 3.6111344318185925`*^9, {3.6111344642496157`*^9, 3.6111344776971626`*^9}, 3.6111347251888638`*^9, {3.6112968701740932`*^9, 3.6112968998911905`*^9}, { 3.6112969362339907`*^9, 3.6112969804884076`*^9}, 3.611297022894515*^9, { 3.611297087776573*^9, 3.611297100956931*^9}, {3.6112973829501266`*^9, 3.6112973981148915`*^9}, {3.611297436400085*^9, 3.611297467925452*^9}, 3.611297541722841*^9, {3.611297968067541*^9, 3.611297971034628*^9}, { 3.6112992289344106`*^9, 3.611299250067414*^9}, {3.611302235574869*^9, 3.6113022360221896`*^9}, {3.611303944944388*^9, 3.6113039484248743`*^9}, 3.611469618453706*^9, 3.6116648790091195`*^9, {3.6116649257032456`*^9, 3.6116649433077087`*^9}, 3.611667518492594*^9, 3.6116675912171574`*^9, { 3.61175787381713*^9, 3.611757879149914*^9}, {3.611758683427891*^9, 3.6117586883013496`*^9}, {3.6120662285097437`*^9, 3.6120662290410004`*^9}, {3.612172806429638*^9, 3.612172821401266*^9}, { 3.612873174209217*^9, 3.61287330277672*^9}, {3.6128736241224227`*^9, 3.612873646721507*^9}, {3.6128736838719625`*^9, 3.6128736927542696`*^9}, { 3.612873723419092*^9, 3.6128737584570303`*^9}, {3.6128737985996*^9, 3.612873922846026*^9}, 3.6130274949016066`*^9, {3.6130277422025805`*^9, 3.61302774295261*^9}, {3.6130296035236397`*^9, 3.61302960493005*^9}, { 3.6130297155820093`*^9, 3.6130297224263535`*^9}, {3.6130443578296843`*^9, 3.6130444215612755`*^9}, {3.61304450612542*^9, 3.613044542248115*^9}, { 3.613044607328431*^9, 3.6130446536734147`*^9}, {3.6130448018438888`*^9, 3.613044813096877*^9}, {3.6130449073999963`*^9, 3.6130449532856503`*^9}, { 3.6130456611514425`*^9, 3.613045670157852*^9}, 3.613045730812021*^9, { 3.6130463823637357`*^9, 3.6130463892186127`*^9}, {3.6130464308812637`*^9, 3.6130464457068167`*^9}, {3.6130464782299623`*^9, 3.6130465265493517`*^9}, {3.613046558830326*^9, 3.613046559128538*^9}, 3.6130466742885003`*^9, {3.6130467364137135`*^9, 3.613046764852953*^9}, { 3.613046808031706*^9, 3.6130469056221404`*^9}, {3.6130469917424316`*^9, 3.613046992011631*^9}, {3.613047218777034*^9, 3.6130472354358697`*^9}, { 3.613047292419427*^9, 3.613047294611988*^9}, {3.613048490970642*^9, 3.6130485115653*^9}, {3.613226366422518*^9, 3.6132263745343046`*^9}, { 3.613226620787551*^9, 3.6132266322316947`*^9}, {3.6152968726325655`*^9, 3.615296932642167*^9}, {3.6152970033784046`*^9, 3.615297212269683*^9}, { 3.6152972495931783`*^9, 3.61529750376464*^9}, {3.6152975393018484`*^9, 3.615297541225235*^9}, {3.6152978510581913`*^9, 3.615297918858324*^9}, { 3.615298126407668*^9, 3.615298208122659*^9}, 3.615369574090008*^9, { 3.615730716916888*^9, 3.615730724599342*^9}, {3.6157859359841228`*^9, 3.615785950102146*^9}, {3.6157869190152736`*^9, 3.6157869207485037`*^9}, 3.6157941994341307`*^9, {3.6158703497366056`*^9, 3.6158703830060472`*^9}, { 3.6158714082117014`*^9, 3.615871408461725*^9}, {3.6158714505900187`*^9, 3.615871451152665*^9}, {3.615871680461296*^9, 3.615871701354398*^9}, { 3.6158717962711935`*^9, 3.615871802537341*^9}, {3.6158718331498938`*^9, 3.6158718361504006`*^9}, {3.6168358213731847`*^9, 3.6168358327242565`*^9}, {3.6168358912968245`*^9, 3.6168358986780643`*^9}, {3.6169085033550525`*^9, 3.6169085296447144`*^9}, {3.61950039452361*^9, 3.619500407416758*^9}, { 3.619500443889635*^9, 3.6195005680106955`*^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[{"[", "8", "]"}], "]"}]}], "]"}], "*", "27.211"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"2", "nBand"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", FractionBox["p", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.613030064258954*^9, 3.6153695728350983`*^9, {3.615871187073139*^9, 3.615871187557517*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"En\[CapitalGamma]X", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "p"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.6130456497613363`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "cycle", " ", "to", " ", "calculate", " ", "the", " ", "band", " ", "structure"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"vector", " ", "k"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"veck", "=", RowBox[{"\[CapitalGamma]", "+", RowBox[{ RowBox[{"(", RowBox[{"X", "-", "\[CapitalGamma]"}], ")"}], FractionBox["x", "p"]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"all", " ", "the", " ", "k"}], "+", "G"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kplusgVec", "=", RowBox[{ RowBox[{"ParallelTable", "[", RowBox[{"veck", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "gspaceVec", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}], "+", RowBox[{"N", "[", "gspaceVec", "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 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]", "\[IndentingNewLine]", 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[{"0.5", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"N", "[", RowBox[{"2", " ", "Pi"}], "]"}], "/", "aLattice"}], ")"}], "^", "2"}], "*", RowBox[{"#", ".", "#"}]}], "<", "eMax"}], ")"}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"kinetic", " ", "energy", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kineticOperator", "=", RowBox[{"DiagonalMatrix", "[", RowBox[{"ParallelTable", "[", 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]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"local", " ", "pseudopotential", " ", "operator"}], "*)"}], RowBox[{"localOperator", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", RowBox[{"j", "+", "k"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "vAtomic"}], ")"}]}], ")"}], "*", RowBox[{"Vl", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"N", "[", RowBox[{"2", " ", "Pi"}], "]"}], "/", "aLattice"}], ")"}], "*", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], "]"}], "*", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{"(", RowBox[{"Exp", "[", RowBox[{"I", " ", "2", " ", RowBox[{"N", "[", "Pi", "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "1"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "2"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"k", ",", "3"}], "]"}], "]"}], "-", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}], "]"}], ")"}]}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", " ", "local", " ", "projectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{"anlOperator", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"anl", "[", RowBox[{"l", ",", "m", ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"kplusgVecSelected", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "nat"}], "}"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", "lmaxnl"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", RowBox[{"-", "l"}], ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"conjanlOperator", "=", RowBox[{"Conjugate", "[", "anlOperator", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", " ", "local", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"VKBnl", "=", RowBox[{"ParallelTable", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", RowBox[{"j", "+", "k"}], "]"}], ",", RowBox[{ FractionBox["1", RowBox[{"2", "vAtomic"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "natC"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmaxnl"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", RowBox[{"-", "l"}]}], "l"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"conjanlOperator", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"m", "+", "l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{ RowBox[{"anlOperator", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"m", "+", "l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}]}]}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Diagonalize", " ", "the", " ", "Hamiltonian", " ", "and", " ", "order", " ", "the", " ", "eigenvalues", " ", "by", " ", "increasing", " ", "order", " ", "of", " ", "energy"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"En\[CapitalGamma]X", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"Eigenvalues", "[", RowBox[{"kineticOperator", "+", "localOperator", "+", "VKBnl"}], "]"}], "]"}], ",", RowBox[{"2", "nBand"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "p"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6086116410845428`*^9, 3.608611769270875*^9}, { 3.608611857619928*^9, 3.60861201483092*^9}, {3.608613133324894*^9, 3.6086131416813717`*^9}, {3.6086132229120183`*^9, 3.608613266282499*^9}, { 3.6086425065987124`*^9, 3.6086425241527166`*^9}, {3.6086430430803976`*^9, 3.6086430629075317`*^9}, 3.608644260743044*^9, {3.6086953236593237`*^9, 3.608695340666297*^9}, 3.6086954321915317`*^9, {3.608695488138732*^9, 3.6086954919139476`*^9}, {3.608695529147077*^9, 3.6086955532064533`*^9}, { 3.608695590599592*^9, 3.6086959090678077`*^9}, {3.6086959418706837`*^9, 3.608696078557502*^9}, {3.6086961219319825`*^9, 3.608696159750146*^9}, { 3.609833275229108*^9, 3.6098333658344717`*^9}, {3.609833521398977*^9, 3.609833772860607*^9}, 3.609833823031247*^9, {3.6098338903770876`*^9, 3.609834072914756*^9}, {3.609834196004195*^9, 3.6098342277087193`*^9}, { 3.609834269499404*^9, 3.6098342930000987`*^9}, {3.6098343514686337`*^9, 3.60983437389058*^9}, {3.60983470061866*^9, 3.6098347455265603`*^9}, { 3.6098348781897984`*^9, 3.609834879799941*^9}, {3.609834926989464*^9, 3.6098349361619797`*^9}, {3.6098350257856655`*^9, 3.609835120192711*^9}, { 3.609852212930651*^9, 3.609852232690689*^9}, {3.6098523508134375`*^9, 3.609852371819359*^9}, {3.6098524860354958`*^9, 3.609852489363859*^9}, { 3.6098544186014795`*^9, 3.6098544521483116`*^9}, 3.6098567764359355`*^9, 3.6111328669586735`*^9, {3.6111335858410244`*^9, 3.6111336123177924`*^9}, 3.6111344318185925`*^9, {3.6111344642496157`*^9, 3.6111344776971626`*^9}, 3.6111347251888638`*^9, {3.6112968701740932`*^9, 3.6112968998911905`*^9}, { 3.6112969362339907`*^9, 3.6112969804884076`*^9}, 3.611297022894515*^9, { 3.611297087776573*^9, 3.611297100956931*^9}, {3.6112973829501266`*^9, 3.6112973981148915`*^9}, {3.611297436400085*^9, 3.611297467925452*^9}, 3.611297541722841*^9, {3.611297968067541*^9, 3.611297971034628*^9}, { 3.6112980830211277`*^9, 3.611298112754238*^9}, 3.6112992126178064`*^9, 3.6112992436598444`*^9, {3.611302209506363*^9, 3.6113022100807705`*^9}, { 3.6113039558271303`*^9, 3.6113039583659163`*^9}, 3.611469640736539*^9, 3.611664990222993*^9, 3.6116675274939756`*^9, {3.611667606203784*^9, 3.611667607048381*^9}, {3.611757888066247*^9, 3.611757896091942*^9}, { 3.611758699550336*^9, 3.611758704589913*^9}, {3.6120662427130814`*^9, 3.6120662431505556`*^9}, {3.612172831101153*^9, 3.6121728378619523`*^9}, { 3.6128739518496704`*^9, 3.6128739579610176`*^9}, 3.6130274831345453`*^9, { 3.613027726154212*^9, 3.6130277306702814`*^9}, 3.613029654888193*^9, { 3.613029851095513*^9, 3.613029871035042*^9}, 3.6130447360280275`*^9, 3.613044842400733*^9, {3.613044993804489*^9, 3.613044994919281*^9}, { 3.61304509220452*^9, 3.613045190328376*^9}, {3.6130452568717346`*^9, 3.6130453267684603`*^9}, {3.6130453617963905`*^9, 3.613045368633259*^9}, { 3.6130455061601343`*^9, 3.613045510191019*^9}, {3.6130455831119013`*^9, 3.613045636571949*^9}, 3.6130457361628284`*^9, {3.6130463967089434`*^9, 3.613046426683278*^9}, 3.6130485778074446`*^9, {3.6132254562037096`*^9, 3.6132254638231473`*^9}, {3.6132263597777896`*^9, 3.613226385203882*^9}, { 3.6132266380058055`*^9, 3.61322665553428*^9}, {3.6152975466550837`*^9, 3.615297551536554*^9}, 3.615297754929948*^9, {3.6152977880814824`*^9, 3.615297829743039*^9}, {3.6152979304825764`*^9, 3.6152979374535255`*^9}, { 3.6152982464178658`*^9, 3.6152982637801847`*^9}, 3.6153647204860353`*^9, 3.615369580354455*^9, {3.615730745607238*^9, 3.6157307528623857`*^9}, { 3.615785960586568*^9, 3.6157859731575136`*^9}, {3.615870363488261*^9, 3.6158703777709303`*^9}, {3.615871420884385*^9, 3.6158714373234634`*^9}, { 3.615871821414336*^9, 3.6158718215549617`*^9}, {3.6158718554344273`*^9, 3.615871869154183*^9}, {3.615871927331064*^9, 3.615871934659683*^9}, { 3.615914533107381*^9, 3.6159145366232667`*^9}, {3.616908513487245*^9, 3.616908524773237*^9}, 3.619500400221654*^9, {3.6195005865498505`*^9, 3.6195005985773835`*^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[{"[", "8", "]"}], "]"}]}], "]"}], "*", "27.211"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"2", "nBand"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "p"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.6130300432879543`*^9, {3.6130398330039115`*^9, 3.6130398332881145`*^9}, 3.6153695639197683`*^9, {3.6158717440784135`*^9, 3.6158717443752728`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"band", " ", "structure"}], "*)"}], "\[IndentingNewLine]", 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", ",", RowBox[{"2", "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]Xs1\>\"", "i"}], ",", RowBox[{"\"\\"", "i"}], ",", RowBox[{"\"\<\[CapitalGamma]Xs2\>\"", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nBand"}], "}"}]}], "]"}], ",", "1"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6080122018753796`*^9, 3.6080123067833796`*^9}, { 3.6080137726802244`*^9, 3.608013778327547*^9}, 3.6084487432386103`*^9, 3.6112971892566366`*^9, 3.611298160148876*^9, {3.6113013592867937`*^9, 3.6113013796061983`*^9}, {3.613030104778699*^9, 3.61303012343699*^9}, 3.613227106193015*^9, {3.6143501991518507`*^9, 3.614350199558073*^9}, 3.6152720414978213`*^9, 3.6153704405351057`*^9, {3.615785834756239*^9, 3.6157858843614845`*^9}, {3.615872379132924*^9, 3.615872381367329*^9}, { 3.6184792111106725`*^9, 3.6184792119512715`*^9}, 3.619500615622475*^9}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[{{-12., -9.879092348759077}, {-11., -9.946964057519583}, \ {-10., -10.125049779714896`}, {-9., -10.363057911227747`}, {-8., \ -10.620736366020877`}, {-7., -10.872879208640072`}, {-6., \ -11.105234600723435`}, {-5., -11.309902323750295`}, {-4., \ -11.48130179313747}, {-3., -11.617057637721075`}, {-2., \ -11.715255187386964`}, {-1., -11.774445600694827`}, { 0., -11.794266033931526`}}], Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPVcgs4V01TPwDhPbBfuNmn1H0yjP/Bviby9T+j Thj/h33cNq7F0RUwPoMD09aDTb0JMD6Lgxrzv+9+TjA+h8Oj5+u0ZGVhfB6H E22fUws/qkH5Ag6ZJz2cdfbD+EIOeTZRK6LbYHwRh1lRV+4IucP4Yg4rzVLX GjHC+BIOZ147bZLaqgrlSzn85TWvvZIE48s4tHDekMrigvHlHG5U1u35vloF yldwKNAMulXrDuMrOvRxBuQm3lWG8pUcduVIr5ibC+MrO3y4Fq8a/0MJyldx WLvg4sILtTC+qsOJgFkX5P8pQvlqDvo3YiprK2F8dYdPIRsOqH5QgPI1HKTO 26yxSVI4AADlxW4y "]], Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[{{-12., -9.879092348758421}, {-11., -9.9469640575192}, {-10., \ -10.12504977971299}, {-9., -10.363057911225447`}, {-8., \ -10.620736366020445`}, {-7., -10.872879208639276`}, {-6., \ -11.105234600723067`}, {-5., -11.309902323749617`}, {-4., \ -11.481301793137277`}, {-3., -11.617057637720375`}, {-2., \ -11.71525518738688}, {-1., -11.77444560069473}, {0., -11.79426603393053}}], Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQNeMgs4V01TPwDhPbD/ucGn1H0yjP/BPiHy9T+j Thj/h/21rVyLoytgfAaHB1sONvUmwPgsDmuY/n33c4LxORz0n67TkpWF8Xkc ljZ/Ti38qAblCzgonfRw1tkP4ws5hFhFrYhug/FFHK5EXrkj5A7jizkYm6Su NWKE8SUc3F87bZLaqgrlSzk0c5nXXkmC8WUcDrHfkMrigvHlHNwq6vZ8X60C 5Ss4TFMNulXrDuMrOmzhCMhNvKsM5Ss5JGdLr5ibC+MrOxy8HK8a/0MJyldx MJl7ceGFWhhf1aE7YNYF+X+KUL6ag8r1mMraShhf3eFsyIYDqh8UoHwNh9nn bNbYJCkcAACE62yO "]], Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[{{-12., -6.892667826750307}, {-11., -6.785032965391124}, \ {-10., -6.4881746344177715`}, {-9., -6.052243593582749}, {-8., \ -5.519664840659268}, {-7., -4.917037654069034}, {-6., -4.2612018184795835`}, \ {-5., -3.563969828051775}, {-4., -2.835053191663996}, {-3., \ -2.0855830655061154`}, {-2., -1.3280692052074248`}, {-1., \ -0.5831313771067377}, {0., -1.4923877689199115`*^-12}}], Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMLXbd9lnWs2gvhPbCfV7bj8wvxi/sh/A/22+ee X3ys8gmU/8Pe3bFhQ4rfByifwaF7ytX55nHfoHwWB516V33nzD9QPocD1/P2 tz+MGQ9A+DwOZhKiV3N1WaB8AYdAFTXWSgV2KF/IoTfaqHg3DxeUL+KgyX1h y7OPPFC+mIP7ylu9K87zQ/kSDtt+eD06EyQI5Us5mF3f7n92pxCUL+NQk8Gw q0tGBMqXc8jgOjDrUJUolK/g4LtdOHrVFTEoX9Fh0b7PcUKaElC+kkO2anTu xXJJKF/ZIfhjLuuCA1JQvorDj2/nKwSYZaB8VYct2zh2b7CThfLVHCJ86gWT iuWgfHUH9gV67qwL5KF8DYeDZ23W2CQpHAAAe25t5g== "]], Hue[0.08640786499873876, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[{{-12., -6.892667826749091}, {-11., -6.785032965390771}, \ {-10., -6.488174634415191}, {-9., -6.052243593582151}, {-8., \ -5.519664840659173}, {-7., -4.9170376540685075`}, {-6., -4.261201818478577}, \ {-5., -3.563969828050076}, {-4., -2.8350531916627904`}, {-3., \ -2.0855830655052605`}, {-2., -1.3280692052069143`}, {-1., \ -0.583131377106221}, {0., -6.842628130776517*^-13}}], Hue[0.3224758424985268, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMnyvbN9xLO2AvhPbBfX7Tj8wvxi/sh/A/2PWnn Fx+rfALl/7BntG7YkOL3AcpncPCpvjrfPO4blM/i0FTmqu+c+QfK53BguNP+ 9ocx4wEIn8fhDq/o1VxdFihfwGGFkhprpQI7lC/kMCHAqHg3DxeUL+Jgy3Jh y7OPPFC+mEPv1Fu9K87zQ/kSDuw/vB6dCRKE8qUcki9t9z+7UwjKl3H4nMSw q0tGBMqXc1BiODDrUJUolK/g8HmVcPSqK2JQvqLDrD2f44Q0JaB8JYe90tG5 F8sloXxlhxtvc1kXHJCC8lUcBD+drxBgloHyVR0UtnDs3mAnC+WrOVxyrRdM KpaD8tUdxOfrubMukIfyNRw+nrFZY5OkcAAAkSFuZw== "]], Hue[0.5585438199983166, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[{{-12., -1.1454382249369974`}, {-11., -1.1324953890719527`}, \ {-10., -1.0939666142138065`}, {-9., -1.0301049729912746`}, {-8., \ -0.9420900887158526}, {-7., -0.8316673814745427}, {-6., -0.7017498922051385}, \ {-5., -0.5568310671376407}, {-4., -0.40405033749599084`}, {-3., \ -0.2546475803398435}, {-2., -0.124250316317289}, {-1., -0.03303677821179327}, \ {0., -5.860794072276575*^-13}}], Hue[0.7946117974981064, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQNl++ZLvZ+XshfCe2BvLXssKbZ/1n4I/4P9jRcP spcu3wnl/7BXOm3wtSrqNJTP4HDRu8im9cA1KJ/F4fUX3SjnpgdQPofDmyWd c1K+P4XyeRzWG0ofK5nwGsoXcOh4IWV2ZMoHKF/I4fWpt0usQj5D+SIOD8NW 2zP+/QrlizmsdbuzdHf7DyhfwiH1dx2D3/tfUL6Ug8SDR91T9P9C+TIOT6MP s1q6/ofy5RxOWF5wvDGN4QCEr+CgGhGdmlvMCOUrOpzbNilngjkTlK/kUCv8 Ov/gIxhf2aGDddbzxBJmKF/F4YVV8zPONzC+qoPLdgaJTE8WKF/NQZxdZWtQ D4yv7nA6lY27bQuMr+FwpZFT6O1BlgMAmUR4/Q== "]], Hue[0.030679774997896203`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[{{-12., -1.1454382249368873`}, {-11., -1.1324953890711145`}, \ {-10., -1.0939666142136237`}, {-9., -1.0301049729908591`}, {-8., \ -0.9420900887153512}, {-7., -0.8316673814744051}, {-6., -0.7017498922049935}, \ {-5., -0.5568310671359762}, {-4., -0.4040503374952779}, {-3., \ -0.254647580339762}, {-2., -0.12425031631607757`}, {-1., \ -0.033036778211048584`}, {0., -3.5346026105997906`*^-13}}], Hue[0.266747752497686, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQNbTpTti78fsRfCe2Dfk3YoKbZ/1n4I/4N9GtOD 7KXLd0L5P+y98w2+VkWdhvIZHDarFNm0HrgG5bM4+HzQjXJuegDlczgcn9o5 J+X7Uyifx8FfWvpYyYTXUL6AQ+FzKbMjUz5A+UIOnEfeLrEK+QzlizgYeK+2 Z/z7FcoXc3hpcWfp7vYfUL6Ew4VPdQx+739B+VIOuXcedU/R/wvlyzhsjDzM aun6H8qXczhpcsHxxjSGAxC+gsNBz+jU3GJGKF/RgXXzpJwJ5kxQvpKDBc/r /IOPYHxlh5u/Zj5PLGGG8lUcXpg1P+N8A+OrOuzfxiCR6ckC5as5rGJT2RrU A+OrOzxNZuNu2wLjazjU1XMKvT3IcgAAYFt3Sw== "]], Hue[0.5028157299974758, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[{{-12., -1.1454382249367678`}, {-11., -1.1324953890701568`}, \ {-10., -1.0939666142134183`}, {-9., -1.0301049729899558`}, {-8., \ -0.9420900887149373}, {-7., -0.8316673814741227}, {-6., -0.7017498922048651}, \ {-5., -0.5568310671358039}, {-4., -0.40405033749467373`}, {-3., \ -0.25464758033925444`}, {-2., -0.12425031631501116`}, {-1., \ -0.03303677821093832}, {0., -2.703819945715224*^-13}}], Hue[0.7388837074972656, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPzpfTvHmEL3gvhPbDvCDiQFNs/az+E/8G+Zt79 7KXLd0L5P+xN+Q2+VkWdhvIZHNbxFNm0HrgG5bM4CLzTjXJuegDlczg0T+2c k/L9KZTP43Djt9SxkgmvoXwBh0uPpMyOTPkA5Qs5bNn/dolVyGcoX8SBy321 PePfr1C+mMMd4ztLd7f/gPIlHAw/1jH4vf8F5Us5zLj1qHuK/l8oX8YhKPIw q6XrfyhfzmGj4QXHG9MYDkD4Cg6HXKJTc4sZoXxFB9N1k3ImmDNB+UoOM7hf 5x98BOMrO/T8nPk8sYQZyldx2GXS/IzzDYyv6iC8kUEi05MFyldzqGZT2RrU A+OrO5xOZONu2wLjazi4VHMKvT3IcgAAN/h1cg== "]], Hue[0.9749516849970554, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[{{-12., -1.145438224936351}, {-11., -1.1324953890700238`}, \ {-10., -1.0939666142126676`}, {-9., -1.0301049729896432`}, {-8., \ -0.9420900887143935}, {-7., -0.8316673814736967}, {-6., -0.7017498922046128}, \ {-5., -0.5568310671355713}, {-4., -0.4040503374941239}, {-3., \ -0.25464758033852036`}, {-2., -0.12425031631435558`}, {-1., \ -0.03303677821026614}, {0., 0.}}], Hue[0.21101966249684523`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQjR08sK86ty8ptn/Wfgj/g/0mtvvZS5fvhPJ/2Bty GHytijoN5TM4mH4vtGk9cA3KZ3H4+lY3yrnpAZTP4bCrtXNOyvenUD6PQ8Rj qWMlE15D+QIO+69KmR2Z8gHKF3Lg3fB2iVXIZyhfxMHCeLU949+vUL6YQ676 naW7239A+RIOf17XMfi9/wXlSzlYnX3UPUX/L5Qv42DpfpjV0vU/lC/nEKt9 wfHGNIYDEL6CwzXL6NTcYkYoX9HBe+2knAnmTFC+kkMa8+v8g49gfGUHnW8z nyeWMEP5Kg7Wes3PON/A+KoOh1YwSGR6skD5ag7RLCpbg3pgfHUHxUQ27rYt ML6GQ1IFp9DbgywHAIlHcEc= "]], Hue[0.44708763999663503`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{-12., 0.609840190908736}, {-11., 0.6248398693013298}, {-10., 0.6692518670233988}, {-9., 0.7425900355909475}, {-8., 0.8420714818582452}, {-7., 0.9637407268669996}, {-6., 1.0996446513354214`}, {-5., 1.236064631913354}, {-4., 1.3437039152064196`}, {-3., 1.3627637389068366`}, {-2., 1.1942162148207045`}, {-1., 0.7765232392830195}, {0., 0.2890951861034101}}], Hue[0.6831556174964248, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMcG/MlOhsu2UN4D+yL1Yz1o48/hPI/2PP1VJ8L nf0Wyv9h322RkFF89AuUz+AgzbtAsWvxLyifxSFT/+axPlUGB6jpDqt4mF4G nmOC8nkcfnduPLIiAsYXcLj5P+54uSwjlC/koPGs9kLWtf9Q80QcZk3uNRTo /wvlizmwsdjJL8n7DeVLOMRzO21aVP0TypdyqA68xztz93coX8ZhY1rdewHj b1C+nEPry5fcG5/C3K/gwFO4mL352mcoX9FBILJeayk7jK/k8DK/Vkmy5hOU r+zgdEZvR5ApjK/iYO+ZufypCYyv6lBxIneeIly9moPL5a0fuXhg5qk7SNv5 eFc+gfE1HJbVbfjQwv7VHgA79Gsu "]], Hue[0.9192235949962146, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[{{-12., 0.6098401909092269}, {-11., 0.6248398693017648}, {-10., 0.6692518670237644}, {-9., 0.7425900355941936}, {-8., 0.8420714818585429}, {-7., 0.9637407268671748}, {-6., 1.0996446513362115`}, {-5., 1.2360646319136033`}, {-4., 1.3437039152072487`}, {-3., 1.3627637389082927`}, {-2., 1.1942162148217814`}, {-1., 0.7765232392835949}, {0., 0.28909518610531487`}}], Hue[0.15529157249600445`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQOC5gUSnQ2X7CG8B/Z77Yz1o48/hPI/2J/vrT4X OvstlP/Dvs4tIaP46Bcon8EhRn2BYtfiX1A+i8Mtq5vH+lQZHCB8DgcBEaaX geeYoHweh+uTNx5ZEQHjCzh08sYfL5dlhPKFHGw/1l7IuvYfap6IQ9qUXkOB /r9QvpgDj7qd/JK831C+hEM3j9OmRdU/oXwph9vp93hn7v4O5cs4sGfWvRcw /gblyzmYvn/JvfEpzP0KDglFi9mbr32G8hUdUrLqtZayw/hKDqKFtUqSNZ+g fGWHi9f1dgSZwvgqDtM9M5c/NYHxVR3izuXOU4SrV3M4dm3rRy4emHnqDrJB Pt6VT2B8DYfMiRs+tLB/tQcAhkBrzA== "]], Hue[0.39135954999579425`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[{{-12., 4.103096469414629}, {-11., 4.109608630721463}, {-10., 4.125927587034703}, {-9., 4.142457821874944}, {-8., 4.142531696957201}, {-7., 4.105015144775979}, {-6., 4.010543346639659}, {-5., 3.8532529357979377`}, {-4., 3.6489614747578725`}, {-3., 3.428384161027345}, {-2., 3.230070277921512}, {-1., 3.091569417088165}, {0., 3.0415817186405607`}}], Hue[0.6274275274955841, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPLE8+e1gjlcIDwHtjvTZviraYJ43+wP6op/TFy JTuU/8O+7mRmbvtjNiifwSH40Sqppy9YoXwWh8kPtdv9TrJA+RwO7LKHVltM ZYbyeRy08/V2i5vA1As4FGtPsXMwh5kv5LC93OQi8yaY/SIOR9m7Wk40cUL5 Yg4fQpikW+fC+BIO73dpCEqIw/hSDgurSti0RWH6ZRxqCtbacR2DuVfOIbWw 5oG0H8x+BYe2pedPi52AuU/RoeeW8UZvVyYoX8nhSMal0/oXGaB8ZYefQvcO NL/4Zw/hqzhwd+oe70n/A+WrOrRJljEUqv2C8tUcDJl8b27W/AHlqzvk86R1 6pd8g/I1HMInbfjQwv7VHgBJoV22 "]], Hue[0.8634955049953739, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[{{-12., 4.103096469414976}, {-11., 4.109608630721865}, {-10., 4.125927587034882}, {-9., 4.142457821875044}, {-8., 4.142531696957833}, {-7., 4.105015144776209}, {-6., 4.010543346639978}, {-5., 3.8532529357982535`}, {-4., 3.6489614747582606`}, {-3., 3.4283841610281547`}, {-2., 3.2300702779222266`}, {-1., 3.0915694170884263`}, {0., 3.0415817186419036`}}], Hue[0.09956348249516367, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPluWdPa4RyOEB4D+zPFk/xVtOE8T/Yv9OU/hi5 kh3K/2HPeiYzt/0xG5TP4CDxeJXU0xesUD6Lg+QT7Xa/kyxQPoeDg9Kh1RZT maF8Hoe8Ar3d4iYw9QIOzuZT7BzMYeYLOWjVmlxk3gSzX8Qhnrur5UQTJ5Qv 5iARxyTdOhfGl3AI3KMhKCEO40s5GLeXsGmLwvTLODxtWGvHdQzmXjkH7rKa B9J+MPsVHNZuO39a7ATMfYoOFx4ab/R2ZYLylRxssy+d1r/IAOUrOyRJ3TvQ /OKfPYSv4nBhiu7xnvQ/UL6qQ7ReGUOh2i8oX81hE5Pvzc2aP6B8dYdIybRO /ZJvUL6Gw5p5Gz60sH+1BwBi7luC "]], Hue[0.3356314599949535, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[{{-12., 4.103096469415336}, {-11., 4.1096086307223425`}, {-10., 4.125927587035102}, {-9., 4.142457821875942}, {-8., 4.14253169695824}, {-7., 4.1050151447767735`}, {-6., 4.010543346640348}, {-5., 3.8532529357992216`}, {-4., 3.648961474758338}, {-3., 3.4283841610282737`}, {-2., 3.230070277922672}, {-1., 3.0915694170885337`}, {0., 3.041581718642018}}], Hue[0.5716994374947433, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQOVeWdPa4RyOEB4D+zlBLOPrJwL43+w9z06pXBN PieU/8O+WufV9rYdXFA+g4PCxPfyskk8UD6Lw0+v/wXTw/igfA6HkxZmsW7O AlA+j8OLZ3W7fxQKQvkCDq3d66/d2SQE5Qs5JK9S0EhmEoHyRRziTn2cfyNW FMoXc6iqvWWUdFgMypdwiHkWsvqjgQSUL+VwXXX6E4ulklC+jMP0L7xfxOWl oXw5h02sC84kz5WB8hUcpPed26MiLwflKzoUra986rxIHspXcvhTff2KwSQF KF/ZIVz6m8DXAEUoX8WBq65+oTGXEpSv6vCiRqOSaweMr+aw48+la8X+ylC+ usNx88UbPu6B8TUcmhQXCVs/U3YAAIOBY10= "]], Hue[0.8077674149945295, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[{{-12., 4.103096469415922}, {-11., 4.109608630722496}, {-10., 4.125927587035375}, {-9., 4.1424578218762615`}, {-8., 4.142531696958262}, {-7., 4.105015144776879}, {-6., 4.010543346640791}, {-5., 3.8532529357995298`}, {-4., 3.6489614747596852`}, {-3., 3.4283841610284296`}, {-2., 3.2300702779227493`}, {-1., 3.091569417088689}, {0., 3.0415817186420306`}}], Hue[0.04383539249432289, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQNT886e1gjlcIDwHthPFc0+snIujP/BXu3UlMI1 +ZxQ/g/71fqvtrft4ILyGRzaJr6Xl03igfJZHNQD/hdMD+OD8jkcXlubxbo5 C0D5PA6fntXt/lEoCOULOHD1rL92Z5MQlC/kILJaQSOZSQTKF3HIOP1x/o1Y UShfzEGk8ZZR0mExKF/C4fbLkNUfDSSgfCkHI/XpTyyWSkL5Mg5NP3i/iMtL Q/lyDoJsC84kz5WB8hUcJA+c26MiLwflKzq0ra986rxIHspXcpCqvX7FYJIC lK/swCD7TeBrgCKUr+LgVFe/0JhLCcpXdTBv0Kjk2gHjqzl4/7t0rdhfGcpX d4izWLzh4x4YX8Nhl/IiYetnyg4ADdVfrg== "]], Hue[0.27990336999410914`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[{{-12., 8.355097271125285}, {-11., 8.370516435225777}, {-10., 8.389050738844114}, {-9., 8.114867358800739}, {-8., 7.372217262474187}, {-7., 6.576246330818614}, {-6., 5.794281758748116}, {-5., 5.04360075276839}, {-4., 4.342691836184101}, {-3., 3.7354733467608945`}, {-2., 3.303619126735403}, {-1., 3.09416029421012}, {0., 3.041581718642437}}], Hue[0.5159713474939025, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMaRWdPa4RyOEB4D+wzxLKPrJwL43+w33h6SuGa fE4o/4c9v/Gr7W07uKB8BoeFE9/LyybxQPksDpbh/wumh/FB+RwOdTZmsW7O AlA+j4P767rdPwoFoXwBh5re9dfubBKC8oUcbNYraCQziUD5Ig6xZz7OvxEr CuWLOaxvumWUdFgMypdwmPgmZPVHAwkoX8rhlMb0JxZLJaF8GYe6n7xfxOWl oXw5hw62BWeS58pA+QoOMgfP7VGRl4PyFR1ur6986rxIHspXcjhSe/2KwSQF KF/ZQU32m8DXAEUoX8XhQ0P9QmMuJShf1WFZg0Yl1w4YX81hzb9L14r9laF8 dYfTFos3fNwD42s4eKosErZ+puwAAKY+Ysw= "]], Hue[0.7520393249936888, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[{{-12., 8.3550972711255}, {-11., 8.37051643522646}, {-10., 8.389050738844904}, {-9., 8.114867358801419}, {-8., 7.372217262474785}, {-7., 6.576246330818894}, {-6., 5.794281758748648}, {-5., 5.043600752769817}, {-4., 4.342691836184608}, {-3., 3.7354733467619643`}, {-2., 3.303619126735642}, {-1., 3.094160294210159}, {0., 3.041581718643502}}], Hue[0.9881073024934821, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQNt1WdPa4RyOEB4D+wtJbOPrJwL43+wN7g1pXBN PieU/8P+pMWr7W07uKB8BocLU9/LyybxQPksDv2x/wumh/FB+RwO9x3NYt2c BaB8Hoedb+t2/ygUhPIFHK71r792Z5MQlC/k8HmDgkYykwiUL+LQdv7j/Bux olC+mANzyy2jpMNiUL6Ew643Ias/GkhA+VIOXtrTn1gslYTyZRzu/uT9Ii4v DeXLOfxhW3Amea4MlK/g8PDguT0q8nJQvqLDvM2VT50XyUP5Sg6SddevGExS gPKVHUxlvwl8DVCE8lUcVJvqFxpzKUH5qg63GzQquXbA+GoOn/5dulbsrwzl qzvEWy7e8HEPjK/hsFttkbD1M2UHAOJ1ZX4= "]], Hue[0.22417527999326836`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[{{-12., 10.959127660848255`}, {-11., 10.102735968316402`}, {-10., 9.263701101480216}, {-9., 8.783973489489643}, {-8., 8.831622107783884}, {-7., 8.606229454537976}, {-6., 8.354227834746721}, {-5., 8.267514900491681}, {-4., 8.33061036256118}, {-3., 8.175103187878566}, {-2., 7.71564246231203}, {-1., 7.401565116660413}, {0., 7.29038276510197}}], Hue[0.4602432574930617, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMle2slozRlHSC8B/bi/Vpf1vjD+B/sD+1/q8l+ AMb/Ya+p7iAmWyIH5TM4OLV/LzZLkYfyWRw0Gacy3YuF8Tkclu+ZdaxVFKae x6EiiPta4ScZKF/AQWKN5ZwIbhhfyMFd0WLB8nJpKF/EYf6at5kG3jC+mIPB 8u0NrH0wvoTDLiXzZZstYPqlHDJOiop0msLcK+PQd2LKopX5MPvlHI6w5pb+ vwJzn4KD9KsTibPWKED5ig58V6Vyf1UoQvlKDrpCnRyaPkpQvrJDgzHPJg0V ZShfxcExNfWT/n8YX9UhZ3aT2o7bKlC+msPDpbJf7XaoQvnqDuul9v5lmqwG 5Ws4vFinFrc4U90BAPj5WkE= "]], Hue[0.696311234992848, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[{{-12., 10.959127660848424`}, {-11., 10.102735968317383`}, {-10., 9.263701101482646}, {-9., 8.783973489489815}, {-8., 8.831622107783936}, {-7., 8.606229454539257}, {-6., 8.354227834746766}, {-5., 8.267514900492445}, {-4., 8.330610362561213}, {-3., 8.175103187878683}, {-2., 7.715642462312072}, {-1., 7.401565116662008}, {0., 7.290382765102647}}], Hue[0.9323792124926413, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQN5B2olozRlHSC8B/Z1s7S+rPGH8T/Y1x54q8l+ AMb/Ya+g6SAmWyIH5TM4bO76XmyWIg/lszj0MU1luhcL43M4uO+ddaxVFKae x2FWEPe1wk8yUL6AA886yzkR3DC+kEO0msWC5eXSUL6IQ+e6t5kG3jC+mIPq +u0NrH0wvoRDoYr5ss0WMP1SDn0XREU6TWHulXG4cXbKopX5MPvlHBaz55b+ vwJzn4KD8+sTibPWKED5ig7MN6Ryf1UoQvlKDlNEOjk0fZSgfGWHx8Y8mzRU lKF8FYc/6amf9P/D+KoOLnOa1HbcVoHy1Rycl8t+tduhCuWrOxjK7f3LNFkN ytdw4F+vFrc4U90BAF9AWqU= "]], Hue[0.16844718999242758`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[{{-12., 11.044777859438495`}, {-11., 10.972040413564342`}, {-10., 10.22495040271718}, {-9., 9.564692965325525}, {-8., 9.016712101464716}, {-7., 8.606229454539314}, {-6., 8.354227834747144}, {-5., 8.267514900492545}, {-4., 8.330610362561638}, {-3., 8.507711296638352}, {-2., 8.745859473742868}, {-1., 8.966402797792181}, {0., 9.061161603388646}}], Hue[0.40451516749222094`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPVy+5MCpBXcoDwHtg/DOtUr/ipCOV/sPfesOlW 6yQY/4f97e6s2eqMMD6Dg/a5GQxToxSgfBYH09tPlx9wgvE5HGY7SKT+ewHj 8ziwukaIz1wA0y/gYN58fLFKOsx+IYcX1pMuWlkpQ/kiDqfOh/XL7YTxxRwm 7OLh1eRXgfIlHL76/m9MyYXxpRw2SV1uPn0ZxpdxOK01KyPeSRXKl3O4bBuu KL8Txldw+O/+XpbfQg3KV3RYXZq4Unc/jK/k4MoUn5Dppw7lKzuUi6+edfop jK/isLiua2tQqwaUr+oQfqPr1R8dTShfzSHu9apHS37B5NUdLKolpHotYHwN B+uNanGLM9UdAHqLX6k= "]], Hue[0.6405831449920072, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[{{-12., 11.044777859438742`}, {-11., 10.972040413564692`}, {-10., 10.224950402717644`}, {-9., 9.564692965325818}, {-8., 9.016712101464915}, {-7., 8.606229454539713}, {-6., 8.354227834747878}, {-5., 8.267514900492822}, {-4., 8.330610362561934}, {-3., 8.50771129663921}, {-2., 8.745859473743026}, {-1., 8.966402797793036}, {0., 9.061161603388841}}], Hue[0.8766511224918005, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMvl92ZFCCv5ADhPbAPj+hUr/ipCOV/sD++YdOt 1kkw/g/74J6s2eqMMD6DQ+W5GQxToxSgfBaH/3eeLj/gBONzODx2kEj99wLG 53HIcY8Qn7kApl/AIazz+GKVdJj9Qg6WtpMuWlkpQ/kiDhsvhfXL7YTxxRyu 7OHh1eRXgfIlHPb4/W9MyYXxpRwuy15uPn0ZxpdxqNCelRHvpArlyznscQhX lN8J4ys4JHm9l+W3UIPyFR34KhJX6u6H8ZUcPjDHJ2T6qUP5yg6WEqtnnX4K 46s4MDd1bQ1q1YDyVR2W3ep69UdHE8pXc7j1etWjJb9g8uoOj6olpHotYHwN B/5NanGLM9UdAGZgYGc= "]], Hue[0.1127190999915868, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[{{-12., 11.629956807351057`}, {-11., 10.972040413564967`}, {-10., 10.224950402718068`}, {-9., 9.564692965326751}, {-8., 9.016712101465531}, {-7., 8.971780980593639}, {-6., 9.080239897531772}, {-5., 9.017978875789085}, {-4., 8.672280896162158}, {-3., 8.507711296639235}, {-2., 8.745859473743057}, {-1., 8.966402797793059}, {0., 9.061161603389259}}], Hue[0.34878707749138016`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQNXlt+ZFCCv5ADhPbDnjL8klaUM43+wV99ck7RN H8b/YZ+/32W6iQuMz+DAETfl7LMEGJ/FwfXY5Lj9rTA+h8OZnZtMrm2C8Xkc ejOFrsq9gPEFHBJVHp2doaoM5Qs5SO89NdU5G8YXceidPX/HSnEVKF/M4em/ zZcq/8L4Eg4F8Vqxh16oQvlSDgH8gV4819SgfBkHkfk+YqsOqEP5cg4Kp3du +bpAA8pXcJBre29/MksTyld02JIQ1OzNpQXlKzmYCXosqEqH8ZUduvV9p7UX wPgqDsG8/KEPNGB8VQcZ02sWjEth5qk5eKdV6HxPhvHVHaZXxU+58BJmv4YD dz+zlOceDQcAL/ddIA== "]], Hue[0.5848550549911664, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[{{-12., 11.629956807352272`}, {-11., 10.972040413565269`}, {-10., 10.224950402718388`}, {-9., 9.564692965326818}, {-8., 9.016712101465993}, {-7., 8.97178098059473}, {-6., 9.080239897532188}, {-5., 9.01797887578972}, {-4., 8.672280896162677}, {-3., 8.507711296639442}, {-2., 8.74585947374326}, {-1., 8.966402797793268}, {0., 9.061161603390914}}], Hue[0.8209230324909598, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMVq+9MCpBXcoDwHtjvSbwklaUM43+wn7S1Jmmb Poz/w57poMt0ExcYn8HhdcKUs88SYHwWB+njk+P2t8L4HA5euzaZXNsE4/M4 rMgSuir3AsYXcEhWeXR2hqoylC/kELvv1FTnbBhfxGHi3Pk7VoqrQPliDn/+ b75U+RfGl3B4nKQVe+iFKpQv5bBIINCL55oalC/joLjQR2zVAXUoX84h9uzO LV8XaED5Cg4sne/tT2ZpQvmKDmqJQc3eXFpQvpJDopDHgqp0GF/ZodvAd1p7 AYyv4sDDzx/6QAPGV3XQs7xmwbgUZp6aQ11ahc73ZBhf3eFETfyUCy9h9ms4 SE9glvLco+EAAB/DXyE= "]], Hue[0.05699100999074602, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[{{-12., 11.629956807352489`}, {-11., 11.908455312059447`}, {-10., 12.755229746776433`}, {-9., 13.327073324678466`}, {-8., 13.166885449196174`}, {-7., 12.444828655508697`}, {-6., 11.674478010203645`}, {-5., 11.146901986424455`}, {-4., 11.025868400141517`}, {-3., 11.199423803575185`}, {-2., 11.480488932581329`}, {-1., 11.734815628678296`}, {0., 11.840571090626382`}}], Hue[0.2930589874905394, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPyGQ2h8evUHSC8B/YsJuFppVth/A/27EI6rTtO wfg/7F0zNAU13sH4DA7BU4Vb7strQPksDiW2uQYn42F8DgfH+PMKvOtgfB6H 5ltCYZO5NKF8AYf5G7g3R5TC+EIO2/XXa9m/g/FFHCK2tv1gKdWC8sUcdr9h nKnDqQ3lSzjsu9m7a9pKGF/KIWT68qAnwTpQvozDhauWrQcZdaF8OYejVb+r jsyF8RUcdn9pCM+9CeMrOpz6+vLt6QQYX8mB63HCEvVJMPOUHSQ1tjx13wyz T8WBJy5sUdFNmPtUHaIPc2f+5Yfx1RxM0it0vifD/KPuIFsbP+XCS1h4aDi4 TGCW8tyj4QAAcD5ePw== "]], Hue[0.5291269649903256, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{-12., 11.629956807352718`}, {-11., 11.908455312060093`}, {-10., 12.755229746776585`}, {-9., 13.327073324678699`}, {-8., 13.166885449196304`}, {-7., 12.444828655509818`}, {-6., 11.674478010204867`}, {-5., 11.146901986424576`}, {-4., 11.025868400142954`}, {-3., 11.199423803576595`}, {-2., 11.480488932582002`}, {-1., 11.734815628678511`}, {0., 11.840571090626678`}}], Hue[0.765194942490119, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPHMhpC49epO0B4D+zzzcLTSrfC+B/sW4V0Wnec gvF/2M/K0BTUeAfjMzhkTxVuuS+vAeWzOHy1zTU4GQ/jczjUJpxX4F0H4/M4 tNwWCpvMpQnlCzic3sC9OaIUxhdy+KC/Xsv+HYwv4iC6re0HS6kWlC/m4PWW caYOpzaUL+HQf6t317SVML6Uw+wZy4OeBOtA+TIO0dcsWw8y6kL5cg5Ta35X HZkL4ys4HP7SEJ57E8ZXdHjz/eXb0wkwvpJD8OOEJeqTYOYpOyzR3PLUfTPM PhWHwriwRUU3Ye5TdYg4wp35lx/GV3N4lV6h8z0Z5h91B5a6+CkXXsLCQ8Mh dgKzlOceDQcARNJiRA== "]]}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{-12., 12.}, {-11.794266033931526`, 14.92466233681842}}, 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 -> {{-12., 12.}, {-11.794266033931526`, 14.92466233681842}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"L\[CapitalGamma]s1\"", "\"\[CapitalGamma]Xs1\"", "\"L\[CapitalGamma]s2\"", "\"\[CapitalGamma]Xs2\"", RowBox[{"2", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"2", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"2", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"2", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"3", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"3", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"3", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"3", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"4", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"4", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"4", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"4", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"5", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"5", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"5", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"5", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"6", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"6", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"6", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"6", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"7", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"7", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"7", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"7", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"8", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"8", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"8", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"8", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"9", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"9", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"9", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"9", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"10", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"10", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"10", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"10", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"11", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"11", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"11", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"11", " ", "\"\[CapitalGamma]Xs2\""}], RowBox[{"12", " ", "\"L\[CapitalGamma]s1\""}], RowBox[{"12", " ", "\"\[CapitalGamma]Xs1\""}], RowBox[{"12", " ", "\"L\[CapitalGamma]s2\""}], RowBox[{"12", " ", "\"\[CapitalGamma]Xs2\""}]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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.3], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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"], TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #25}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #26}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #27}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #28}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #29}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #30}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #31}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #32}}, 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.3], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #33}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #34}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #35}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #36}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #37}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #38}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #39}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #40}}, 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.3], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #41}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #42}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #43}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #44}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #45}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #46}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #47}, { GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], 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)], #48}}, 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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.008333333333333333`", "]"}], ",", 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[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12, ",", #13, ",", #14, ",", #15, ",", #16, ",", #17, ",", #18, ",", #19, ",", #20, ",", #21, ",", #22, ",", #23, ",", #24, ",", #25, ",", #26, ",", #27, ",", #28, ",", #29, ",", #30, ",", #31, ",", #32, ",", #33, ",", #34, ",", #35, ",", #36, ",", #37, ",", #38, ",", #39, ",", #40, ",", #41, ",", #42, ",", #43, ",", #44, ",", #45, ",", #46, ",", #47, ",", #48}], "}"}], ",", 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", ",", "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.6086129613590584`*^9, 3.6086130835090446`*^9, 3.608614405127637*^9, 3.6086972229009542`*^9, 3.6089848975369244`*^9, 3.6089869869514318`*^9, 3.609132794151726*^9, 3.609138479779925*^9, 3.6091565286152635`*^9, 3.609163370552882*^9, 3.6091647495938396`*^9, 3.6091650867451963`*^9, 3.609167005703541*^9, 3.609175101496101*^9, 3.6092414261893463`*^9, 3.6092520244617887`*^9, 3.6094710164585204`*^9, 3.6098274327544527`*^9, 3.6098281117367773`*^9, 3.6098287189651327`*^9, 3.6098352306872005`*^9, 3.6098358390083323`*^9, 3.6098463011489334`*^9, 3.6098522459140806`*^9, 3.6098525840241036`*^9, 3.6098531904578943`*^9, 3.609854432214156*^9, 3.6098549466155643`*^9, 3.609855223706403*^9, 3.6098566696712294`*^9, 3.6098570063809166`*^9, 3.61113399400378*^9, 3.6111346792092204`*^9, 3.6111349340961723`*^9, 3.6112975827479672`*^9, {3.611297631748754*^9, 3.611297655436569*^9}, {3.611297693064302*^9, 3.6112976958322473`*^9}, { 3.611297741744858*^9, 3.6112977663433237`*^9}, 3.6112979762353125`*^9, { 3.6112981797437925`*^9, 3.6112981966087627`*^9}, {3.6112992345183535`*^9, 3.6112992546226397`*^9}, {3.611301368455284*^9, 3.6113013805749083`*^9}, { 3.6113022152454367`*^9, 3.611302240979708*^9}, 3.6113023112395854`*^9, { 3.6113024368577847`*^9, 3.6113024568469553`*^9}, 3.611302521214671*^9, { 3.6113025542871304`*^9, 3.6113025726841917`*^9}, 3.611302646689749*^9, 3.6113027199167147`*^9, 3.6113030840201993`*^9, 3.6113031875036645`*^9, 3.6113032353326197`*^9, 3.611303357622435*^9, {3.6113033967622366`*^9, 3.611303419106084*^9}, 3.61130347257104*^9, {3.611303609506254*^9, 3.611303630305022*^9}, {3.61130369700239*^9, 3.6113037255176125`*^9}, 3.611303756655719*^9, {3.6113037979150085`*^9, 3.611303822565508*^9}, 3.6113039269276185`*^9, 3.611303969261653*^9, {3.611304403989094*^9, 3.6113044269684086`*^9}, {3.6113044580514746`*^9, 3.611304479890981*^9}, { 3.611304830989232*^9, 3.6113048494633474`*^9}, {3.611304896831994*^9, 3.6113049381372976`*^9}, 3.611469672732238*^9, 3.611664960072598*^9, 3.611665004414036*^9, 3.6116651084638095`*^9, 3.6116651561446342`*^9, 3.6116652048001146`*^9, 3.6116653640960608`*^9, 3.6116654054233646`*^9, 3.6116676268564253`*^9, 3.6116751067798834`*^9, 3.61167514528819*^9, 3.6116752045061784`*^9, 3.6116752933311543`*^9, 3.6116753412711535`*^9, 3.611756834061002*^9, 3.611756867808941*^9, 3.6117569113638644`*^9, { 3.6117569532886267`*^9, 3.611756980768132*^9}, 3.6117570166746225`*^9, 3.6117570509869823`*^9, 3.6117571384100466`*^9, 3.6117579162182293`*^9, { 3.6117579614093113`*^9, 3.6117579893461466`*^9}, 3.6117588988288107`*^9, 3.6119313696195335`*^9, 3.6119314102293854`*^9, 3.6120662675258894`*^9, 3.61206634463618*^9, 3.6120664504500012`*^9, 3.612066488481728*^9, 3.6120665609670057`*^9, 3.612172859049014*^9, 3.6121729488847713`*^9, 3.612173017337366*^9, {3.612173127630666*^9, 3.6121731510472918`*^9}, 3.6121732592651186`*^9, 3.6121732958230696`*^9, 3.6121733434338703`*^9, 3.61217341327345*^9, 3.6121734802870255`*^9, {3.612173514570365*^9, 3.6121735712235823`*^9}, 3.612173606991976*^9, {3.6121736450630026`*^9, 3.612173700320232*^9}, 3.6121737400544395`*^9, 3.6121739507734723`*^9, 3.612173990285503*^9, 3.612174020772146*^9, 3.612174062311636*^9, 3.6121740949297934`*^9, 3.6121741443288636`*^9, 3.612174184335265*^9, { 3.6121742191600046`*^9, 3.612174247647211*^9}, 3.6130276731804037`*^9, 3.6130302917264385`*^9, 3.6130373389594817`*^9, 3.6130375472156987`*^9, 3.613037806890126*^9, 3.613038191527342*^9, 3.6130386667275443`*^9, 3.6130389117599382`*^9, 3.613039306394981*^9, 3.613039524827441*^9, 3.613039707830826*^9, {3.613039824294714*^9, 3.613039835159466*^9}, 3.613040017820447*^9, 3.61304009192325*^9, 3.6130401633430824`*^9, 3.6130402478322306`*^9, 3.613040367221179*^9, 3.613040615384799*^9, 3.6130426138521214`*^9, 3.6130431665615597`*^9, 3.613045063455061*^9, 3.6130457599727745`*^9, 3.6130485907246256`*^9, 3.6130486378701763`*^9, 3.613048669491682*^9, 3.6130488624169874`*^9, 3.6130489388403797`*^9, 3.6130489839164605`*^9, 3.61312510293153*^9, 3.613125177005248*^9, 3.613194368321823*^9, 3.613224643684435*^9, 3.6132248175551777`*^9, 3.6132248947791386`*^9, 3.613224974844121*^9, 3.613225183196407*^9, 3.6132253093001556`*^9, 3.613225499600593*^9, 3.6132256401956577`*^9, 3.6132258059296103`*^9, 3.6132260142889*^9, 3.6132264925252633`*^9, 3.613226933332989*^9, 3.613227106558295*^9, 3.613227490738697*^9, 3.613311948476036*^9, {3.614350194167012*^9, 3.614350200011365*^9}, 3.615271946011326*^9, 3.6152720442952924`*^9, 3.615278456835585*^9, 3.6152786663863525`*^9, 3.6152788948465414`*^9, 3.6152790998610888`*^9, 3.615279500434461*^9, 3.615279726861204*^9, 3.6152799521983633`*^9, 3.61528016486734*^9, 3.615280355481663*^9, 3.6152805729010115`*^9, 3.615280779054369*^9, 3.615287971963381*^9, 3.6152885161582227`*^9, 3.6152886941835995`*^9, 3.615288905902008*^9, 3.615289200459315*^9, 3.615289430022866*^9, 3.6152897243368063`*^9, 3.6152899373346105`*^9, 3.6152901567700467`*^9, 3.6152903652950835`*^9, 3.615290610733329*^9, 3.615290858754453*^9, 3.615291140386445*^9, 3.6152913097160797`*^9, 3.615291494502288*^9, 3.6152916959027777`*^9, 3.6152918557625246`*^9, 3.615292057067279*^9, 3.615292214879466*^9, 3.615292407837797*^9, 3.615292754380452*^9, 3.6152929255568085`*^9, 3.6152932272289724`*^9, 3.6152935047840977`*^9, 3.6152939106562347`*^9, 3.6153694661987524`*^9, 3.615371273509802*^9, 3.6157304858918777`*^9, 3.6157313241319647`*^9, 3.615732681388705*^9, 3.61578282525885*^9, 3.615784678482382*^9, 3.615785823703411*^9, 3.615785889500104*^9, 3.615870249846154*^9, 3.6159199586515436`*^9, 3.616277091594366*^9, 3.6168681765247865`*^9, 3.6169099707580304`*^9, {3.618480787520689*^9, 3.6184807887665534`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"Transitions", " ", "in", " ", "\[CapitalGamma]"}], "*)"}]], "Input", CellChangeTimes->{{3.6168336403319035`*^9, 3.6168336560840864`*^9}, { 3.6195006213835635`*^9, 3.6195006253613844`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "3.0", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "12", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.616832826088854*^9, 3.616832852645707*^9}, { 3.6168330397805786`*^9, 3.616833041989147*^9}, {3.616833113962221*^9, 3.6168331166221123`*^9}, {3.6168332456156855`*^9, 3.6168332465273323`*^9}, {3.616833287511428*^9, 3.6168332890154953`*^9}, 3.616833425500389*^9, {3.616833477319177*^9, 3.616833503736932*^9}, { 3.6168342137890124`*^9, 3.616834217202436*^9}}], Cell[BoxData["3.0415817186419036`"], "Output", CellChangeTimes->{3.616833919684243*^9, 3.6168342174366026`*^9, 3.61683572324652*^9, 3.616835785208508*^9, 3.6168367373259363`*^9, 3.616837839435745*^9, 3.616858463440649*^9, 3.6169099709581747`*^9, 3.6184807880350347`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"12.9", " ", "PRB32"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6168335962275925`*^9, 3.616833627566841*^9}}], Cell[BoxData["11.794266033931526`"], "Output", CellChangeTimes->{3.6168339197462873`*^9, 3.616835723315569*^9, 3.6168357872799797`*^9, 3.616836737441019*^9, 3.616837847153224*^9, 3.6168584634626627`*^9, 3.616909970989196*^9, 3.6184807880570545`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"Transitions", " ", "in", " ", "em", " ", "L"}], "*)"}]], "Input", CellChangeTimes->{{3.616833660572272*^9, 3.6168336649203587`*^9}, { 3.6195006289789515`*^9, 3.619500632667568*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"7.9", " ", "PRB33"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "16", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.616833675103588*^9, 3.6168336844922533`*^9}, { 3.616833760978553*^9, 3.6168337872472014`*^9}}], Cell[BoxData["8.3550972711255`"], "Output", CellChangeTimes->{3.6168339197722836`*^9, 3.6168357234586706`*^9, 3.616835791848235*^9, 3.616836737564107*^9, 3.6168378513892393`*^9, 3.616858463540719*^9, 3.6169099710212183`*^9, 3.618480788084069*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"4.2", " ", "PRB33"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "12", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6168337990005455`*^9, 3.616833807105299*^9}, { 3.61683460897056*^9, 3.616834609794145*^9}}], Cell[BoxData["4.103096469414976`"], "Output", CellChangeTimes->{3.616834610368555*^9, 3.6168357234946957`*^9, 3.6168357926628*^9, 3.616836737592128*^9, 3.6168378533676367`*^9, 3.616858463550725*^9, 3.6169099710372314`*^9, 3.618480788103089*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"0.74", " ", "LB"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "10", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.616834616254732*^9, 3.6168346265920916`*^9}, { 3.6168346691392956`*^9, 3.6168346713378363`*^9}}], Cell[BoxData["0.6098401909092269`"], "Output", CellChangeTimes->{3.6168346716911073`*^9, 3.616835723526719*^9, 3.61683579337831*^9, 3.6168367376201477`*^9, 3.6168378572383976`*^9, 3.6168584635617332`*^9, 3.6169099710532413`*^9, 3.6184807881180935`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "1.4", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.616834680769532*^9, 3.6168347100833426`*^9}, { 3.6168347457496634`*^9, 3.6168347490199876`*^9}}], Cell[BoxData["1.145438224936351`"], "Output", CellChangeTimes->{{3.6168347003534365`*^9, 3.6168347104746227`*^9}, { 3.616834746611291*^9, 3.6168347493152175`*^9}, 3.6168357235597425`*^9, 3.6168357940718*^9, 3.6168367376481886`*^9, 3.6168378586774187`*^9, 3.61685846357174*^9, 3.616909971071254*^9, 3.618480788132103*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "7.7", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.616834825974616*^9, 3.6168348311653023`*^9}}], Cell[BoxData["6.892667826749091`"], "Output", CellChangeTimes->{3.616834826320863*^9, 3.616835723594767*^9, 3.616835794794313*^9, 3.616836737675205*^9, 3.6168378599603295`*^9, 3.61685846358175*^9, 3.616909971087265*^9, 3.618480788150115*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "10.6", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6168348517899437`*^9, 3.616834859760604*^9}}], Cell[BoxData["9.879092348759077`"], "Output", CellChangeTimes->{3.6168348602549534`*^9, 3.6168357236277905`*^9, 3.6168357955658607`*^9, 3.616836737703204*^9, 3.616837861196197*^9, 3.6168584635917544`*^9, 3.616909971102277*^9, 3.618480788163125*^9}] }, Open ]] }, Evaluator->"New Kernel", WindowSize->{667, 669}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.4399999999999, 841.56}}, Magnification:>1.1 Inherited, 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, 1683, 46, 173, "Input"], Cell[2265, 70, 2060, 38, 48, "Output"], Cell[4328, 110, 1977, 35, 33, "Output"] }, Open ]], Cell[6320, 148, 2047, 56, 209, "Input"], Cell[8370, 206, 1456, 41, 149, "Input"], Cell[9829, 249, 5134, 124, 352, "Input"], Cell[14966, 375, 337, 9, 32, "Input"], Cell[15306, 386, 2649, 72, 253, "Input"], Cell[17958, 460, 2503, 45, 113, "Input"], Cell[20464, 507, 429, 10, 45, "Input"], Cell[20896, 519, 17990, 400, 1667, "Input"], Cell[38889, 921, 1098, 33, 101, "Input"], Cell[39990, 956, 249, 7, 32, "Input"], Cell[40242, 965, 17126, 386, 1645, "Input"], Cell[57371, 1353, 1007, 28, 53, "Input"], Cell[CellGroupData[{ Cell[58403, 1385, 2165, 49, 153, "Input"], Cell[60571, 1436, 219528, 4481, 275, "Output"] }, Open ]], Cell[280114, 5920, 232, 4, 32, "Input"], Cell[CellGroupData[{ Cell[280371, 5928, 990, 25, 53, "Input"], Cell[281364, 5955, 280, 4, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[281681, 5964, 690, 21, 53, "Input"], Cell[282374, 5987, 256, 3, 33, "Output"] }, Open ]], Cell[282645, 5993, 225, 4, 32, "Input"], Cell[CellGroupData[{ Cell[282895, 6001, 686, 20, 53, "Input"], Cell[283584, 6023, 253, 3, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[283874, 6031, 683, 20, 53, "Input"], Cell[284560, 6053, 251, 3, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[284848, 6061, 686, 20, 53, "Input"], Cell[285537, 6083, 259, 3, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[285833, 6091, 659, 19, 53, "Input"], Cell[286495, 6112, 332, 4, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[286864, 6121, 606, 18, 53, "Input"], Cell[287473, 6141, 248, 3, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[287758, 6149, 607, 18, 53, "Input"], Cell[288368, 6169, 255, 3, 33, "Output"] }, Open ]] } ] *) (* End of internal cache information *)