(* 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[ 416620, 8930] NotebookOptionsPosition[ 412764, 8803] NotebookOutlinePosition[ 413326, 8825] CellTagsIndexPosition[ 413283, 8822] 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.6185695179318466`*^9, 3.6185695496233654`*^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.6169102342951217`*^9, 3.6169166106137843`*^9, 3.6169301205679283`*^9, 3.6169349759836297`*^9, 3.6185508236538124`*^9, 3.6185522974273977`*^9, 3.618553558632987*^9, 3.6185695508577547`*^9, 3.6193178880689116`*^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.6169102342951217`*^9, 3.6169166106137843`*^9, 3.6169301205679283`*^9, 3.6169349759836297`*^9, 3.6185508236538124`*^9, 3.6185522974273977`*^9, 3.618553558632987*^9, 3.6185695508577547`*^9, 3.61931788807091*^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[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Vl", "[", "k", "]"}], "*", "27.211"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "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"}]}], "]"}]], "Input", CellChangeTimes->{{3.6185682633139687`*^9, 3.618568278737859*^9}, { 3.618569632431587*^9, 3.6185696333849506`*^9}, {3.6185726197360506`*^9, 3.618572642535099*^9}, {3.6185728891228375`*^9, 3.6185728894665923`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV0ns4lHkbB3CxobAdtrQkp5h95dQ67EZxaytlixqnGuWsesuhrE7UkhnU ICGJaXJojMOEwcMSMbcoVLYcprE5H4vkibCV0vu8f9zX7/r8c1/X7/5+tXxO OR6VlpKSSqbm/+/vR9+04biLtVmUxxLXhwS+Lnb16Vcxg68O4j9dKCsriBMI lZ1Q0PLbByfK9+vCA87THOCZV543nbKRxRr+HRVnYLTItNhTlvph/MY3DQZk SjH07Ci3TdYyvWkeQN+Xz9xBme7bUuWd6g1hlh86t1G2fGFakqziB+zsrZrm lDdaZeQ1cI+BbRbLz4CyokA+c1bjBLTeac3WpjyrHJKqy/OHDDu1rnWUe1m9 11xpQXDl9h9yipR9P/IeNjifhuKODuNv9QRKjBjWR1KDIT5sB32aMt5uML+m cgZ6M90j2imbtV8o1T18Fh6nrYyvp1wgb2RYxz0H9nNDSULKyWfTdEiNUDAY /3T1KmXZQvusK95hoG5lFxZCOWxIWk2TdxFeBbb6uVP23R/4A50WDs6f4nWN KHdFa18fPx4BDEfxwhrKtD7/pfXOl6EoKuDpZySQs0YrkpEaCey4HNcGyqzI uAuxKlHgzlJW30O5Tu3YX67VUaC2QiiiUf5YaTOrfTgacmckbt9RDpiaO1XD jYGcLqnwByICnQ97HZ/UYIPb5ZYLmpQT5i35VcgGlsnX1/N1BDYnrR2O8o6F qKo19GeUrZqfeGzgxUGgo/qqM5Rp5uauDrQEuDA5a1dZS6DXixUpqk0JcP1s Bjua8m3/ibax49dhzCqpwZGyfNvzXJFzIoQlxdImHhB4SS5a+1BqElyQ9RMo UvY7Q6qwVVLg9lq3Ss1qAk1lksPKTqfAqNm43D/3CZRONuvubkqBo8wVtETK mcJQrtG5m7B/NOLp5yoCX03IaHS2pwKrI622vpLA/d4/6mjEp4PpRlMX5QoC 1d9XR+0ZTgfP1cvjasoJnAx3Hw225EAIbEj0pBzLvZvb+IYDbi+D5HMIAhsl Bnond3HBkbuqQr2M6p/DdqOKxQywyNJV7S6m/tM7nNDnkgnneScdAylL/GNI uaJMSD42fXixiMDqxqOHigyzoD/VcViN8qEhgYpUTxYEW7k37b1H9WWDOZe/ 5S7kTNxcGpxH7Uuxy34/nQNej8RnX2UQuLBlcCFblQ8bnz2ZOkB5qveCq9MO PgSb7PZ7fIfAjp/yFf5K4YNtxaldxVwCM2pkz138NRd+a6ofCeZQfR1u+F32 zzz4EHakuvkmlY+J9ex6eQHkr3ozVhFHoJNE7NC6WQClNeY2ipRtLwUWhDME MNt56LZ3LIH6j7kegwIBfLry6uAyNoHzjIXmXPt78C7149S+GALjI6vu/Hyj ELI3/yPKuUxg5QuT3bvVhTAStn5v2hmqT+OTewxshdBqyDTpCCHwmHTe76uC hKApKNVXoqxstt6hu1YIp4wsnMODCax5GimoNCqBPmkOyyWIwPXGJ0v3/l0C V0wkbMlxKt85S1GIUhmUnTAq1Xej7snqedUQVw6/zC8s0dpG4MoBmsHx7HIw Oz8eqLiVwJZtwX8urywHOSa/fd6Cym9+qSZ9qBzmZDuuNP9K7T9hfLRvSwXk S5QFnqYE9jkwyY+jFfDkS9E6901UH1X/852RTSWk/hRCpq4j8FRpiGHa7H3w 6H6kokqW4Uziy+YlS0SgcPVRDye9DJvrH4ueb3sI+x2v7uIbl+GJUDslxmQj vF+t5CmuKcX6ZSbfCgObYOnFWwovbUsxl9e4qKr7BHRCpT1HRSVoo1x716n4 GbiaPXIZ3lqChk09VY83PYdKi1pZ/wAhdto4TRVMvYCYW/YzxTuKMWC5f7t4 czus0PILXa1fhE+7DtZ+n9AB+xbu7/b6dA+dbA8Njox0wmmDrMVvrQL8JSvu YJbOS7Df9K7f/H4BDize6PxvhAT0Dj7YsyMpH0ftnvOUG7rg7gwD7Jh5WJLe H9qm9Qrqu4scYn1zkX9Vhq0X1g06cs4tI3Q+zvm6TRyr6YHgceMwW7ccVNgZ 41i6rg+U0qe7BK48vLRyVHHwSD8EFzbIvg24i4p1+lIS+wFgRu2WXZaYjVbn 9n9t+DwAD217NzcWZCE3J563kTsI1rPuW50qM9HDxax12d4heK35o3GCQgZW iI/eqJsfAvHOOwPMMC5aPCuRHksdhvQxZ5Mva26j5q5jczd2joCPcZzfy7vp aG5mnlQ+NgIRc0dinBhp2D9zrYUXPQoFA25DHTq3cNKUHq1iMgY0w8O1jaM3 kfbWcGJJxxjYNEV82v4kBRt1zrafjnwNufJvc+v4N/B6p9jXUecNDO80d/uQ nYykEyZJN76B1yd3LWwRJmGZy9odFsHj4PFTt7yoPBF5raw7Q6snQHOnee1E 4XX8t+nIxdUPJ2CdX6T14tA1HEgSza0Megt6i558ny3xON+2VYX5/SRwGi0d PtTG4ukUbQx9MAmtjE12Pb+ycV2r9soRj3fgJ0k42Nh7BZ3EhV/UFt+BrHZO OpcTgzOe2QE9gimY/jfP8mf7aBR5CaO/30fC+SEt95O6UVj9PGBvnwMJcWn9 Bj6aUfiX9aZVxXQSgoRmaw+vj8JCNT7X/iAJnKpiowOropDTxSHifUj421Av fPdXFp49EDO4PJSEJchhnBSzUN/G3Uoul4QBuvWhiBgW0oSqMpJ8Enr9bzWm R7JQW72rOfceCdWSqe0Vl1j44xdHZ9tSEkQz+UHkHyyUrdrjH/2ABG9jEfu0 JwsHjc3SZTpIeL3LNpm/hYU9GdMeHWIS4uOvzrwwZWGXklCH10WC3PaVXl+N WPj3W72S3/pIyLss48PQZeGDPI2myHESFpctXdiwmoVVyr3x9EkSDqxZrKMr sZCI5jhqkSSw5/0SYuRZKPBd24ezJJQHJDl8WGQiv72dl/gvCf0Vg9b6n5mY tT3xhNdnEpy3V1j4zTGRW2JvvPkrCe3sNuuM90y8paEw9+0bCdPKX+z/ecvE /wH1ydGZ "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, -5200.}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Vlocal (eV)\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Dashing[{Small, Small}], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.618572969960315*^9, 3.619317902802373*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"non", " ", "local", " ", "pseudopotential"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"constnl", "=", "12"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Rb", "=", "0.74"}], ";"}], "\[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.616930081996565*^9, 3.616930082133644*^9}, {3.616930116816266*^9, 3.6169301168603153`*^9}, {3.6169310138292074`*^9, 3.6169310169023714`*^9}, {3.616931959844592*^9, 3.6169319722894263`*^9}, { 3.6169328501636314`*^9, 3.6169328502857294`*^9}, {3.6169339498803625`*^9, 3.6169339502816467`*^9}, {3.6195007083432584`*^9, 3.6195007168362846`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"fnl", "[", RowBox[{"0", ",", "k"}], "]"}], "*", SqrtBox["27.211"]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "6"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLinesStyle", "\[Rule]", "Dashed"}]}], "]"}]], "Input", CellChangeTimes->{{3.6171631925596323`*^9, 3.617163223093944*^9}, { 3.6182013169315453`*^9, 3.618201360310357*^9}, {3.618572624283166*^9, 3.618572657505329*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV03k8lWkbB3DLsZ3K7jwtltB5xrFNeoveGq7LkimNsY19S4XJmIgiNJEi GaeyVkO2GUsKZT1kPciSkUgnkSWkREiWkrzP+8f9uT/ff+7PfS0/5aN+1p4C fHx86dT5/71y+ORtS78Ig19tfRkvQkl0FI6UeUK6Afpf8+ZRzrwOdmzyJJzt oDn3UaZLuMf3pwVBUVPn3FPKTbbpwb7kecDVSbV/KRt0fSha50WCsaW9YCvl 1FPiKu1p0ZAwui2invKKrHZygkcsNGzSy6igbMsxF3Uhr4JCYMGRe5T7Cytq ExavA2c2uDmT8uVw0+BlXgLYZWV1JFLWtXq+06U6Cf6YYAVGUR5X8ZpqSEsB H0eZujOUEz4t/s0MvwnSL4/cPU7Z8FGUa6zHX6B2SW6/NeX0EzndNmQ6zAhx DVmUc29vPeBCy4Q420aONOXz0a+zri5mQkidbs+XEBI1HQKcF3jZ0BOTPP2I sqDhPg6z/W/ocI+ZKaD8kiUg51D9Dyjup8WzKcesxnfVpOXCr7n36n+m7D7u qDHLzgObO+NmWpR1/1WOUQ7Ph/MpNWfplCfSHxhGexRA4VPPmoazJBoZPS2z IIsgj+k+Lk95i8YtqUiiGLQJu6i5YKp/V3bqOdHug3ch2c6l3B2wkhi3eB/i XYP+e4zyeZMY83leCVQ/bqtNDCJxau90WKxlKdzYcSnIhbKtlmWBansplDQe 7VGlrMnYLGJXXQbmFqWBRWeoeibzGqrTKuDxwR7X0tMkmg5umLWRq4S+G893 nqL8oNtPYYZdCbsK7PO0KMdU6YUqhXPgGJs/PDuQRL0/W/9zyaMa6I4uL8MC SEzSnsw1J+sgaZuB+YwfiR20gcoNd+pgr4HQOzZlvoGutnaNesj77YdpTcoV xs6L2ZsbwAt+ZnmdJFFlzohQUmyEXhOniBZfEr8clHYmWE1QqilUoXeCRLnd cceCfJrg96QDvXW/krhTSdi3724TDPb5OJpQ9lr8fC5RuxlqVzozzbxJ7Mka TZfY3QJ7dr9WNPEkseDL/dci0Ap979fnpo6Q2DKh/t4rohVi98ffcaA80v3P QktjK9gM9nQ2u5PIyLtJu2TSBqJVEzY33UiMtIkg+czaQdy411vThUSnexY+ K788hkD9Xc2i9lRe3D7Mv/V5ArIhhYcTD5MY1Pf088e8J5AQNl8yYEbi2E/l /GvjT8BYq69GhfKQQl1MzPfdYH1IqOreQaofG6Nupt3phkW5l3b3D1D1TElz mm8/BVWH8h+DgMRHOdrLstG9kOixX/ibDonnPLav3vqnF5x0+kW3Ud6lIL2u 2NQLUl6vSnR3UvuftCjM4nsGF125aye0qf9crGHohz6Dka7CwAZ1EkkPM13P k33Q89xKWEuVyp+815lyOx4cOsYVEpYhUa34gW7WaR6I7mPfWpOi5mm4thyX wINP6fmTC5IkinsnhR7v4kFGPbt0UJzElAfccBnTF/DRyVQig07lzVQp9tSe fkhM7+ab5Kf67f8iXUt2ALw2FKtHzTJRsMWsLefpEIi+GEXhViZuttzH3fpx CK4lr3GvtzBRc4BVc016GM451/ZtaWai3bzo/RCbYUi3ci/6rpGJ+QqtN8z7 hsF2irN710Mmkg+zSkN9R6C7QnxAoJiJHTKKF1X8R+Hdon5rUjITZVoYKgHB YzA+w+5guzGxZOat243oMXjg+Gz+lQsTLRkPU2uSx8AgbPi9pjMTr3q7y4mU jcGLt8GOrfZMFKXni6bNjYGvv5rqB0smfv35v7MtJ8bh5Z2RMkFjJo6/cK7Z 4jIBke5O3yxJJlZMZ9o14iSkPL7Nin63A++pFGToOb+HE0a0m7N2O1BJ90Ni 1NFZIMIk4tvKVNHqsme9YcI8cHW09i2Jq2JtqAw8S10AO1/TgAPmKlQeN1XX RS6ChJW+jjNbGY8n59DljiwDl9/oXFHbdsTRcxPfPD/DxvSd6nd5SphzLfMh HloFI8a48GkdRdzdIijPsF2Db+4pI9s85PHCCZq1vf06eFsk+BenbEUNTr7h 2VQ+bE/0+9NzejNqrJ/MuJrBjy0/XldcVSHQL3jgi2WCAC40HsGycDk8WOq9 zfWWIEYpzft0NstgRC6XzEiloWNeVYPudmn82tH0PTtOCI1NJFn5uZK4qXR8 rTleGFk/2JXmGojj0c677flRIkgrPa55IWYDMm4bRnBPiyJN1MwMaWLorrO8 yjwrhtKDCfRTgcI4s2R9Zo8PHR0GNMSGdWkoEdFVetV/A86nhBzJXuLH+IbN rxQCNqLbH4vvxAbWwX6XGM3x6CY0TIwNMHb9CiXeW+ZeeYljv71FpfrkClh1 PekXd5JAzrR2ku3yIqgFqfP27ZDEyKbLujzHBZh/81U1MUcS2x2UR5mP58DF P9vPUFEKdw896Y22mIGEAd5t2SwpVJOo3fpK6x34uI906G+TRrUfrzhxuRMw b2A5w58ojQGMZFOhjtdgzGf5cUpWBrNL90oLvBsGvZcqS6yrMjjGihaQPjQA i8lRg2wpWSzzfVYYPvMcjhVacOISZFG/eGyTvEEvBL6aThily6G674TZnGk3 mM9usXRmy2Fvok2Esthj6NiydaOGCAOlklxnJv9+BEsZF2qTzzNwKjxP5/An LsyIhFgx+Qisf6OzYqRcD3M6zZOiAgQWBl05zqTXw0dnifPTggRaj7EIYqEO lopzCkpFCPx+haml1lIHfA49gkYSBP52dEmLz6cOZPM1KtwUCUwu/qgQUVEL +w4Obb35A4Hk+98PRjnVQHSM8Tg9hEAbo1OPBzuroCk1nkOGEagqJXyDXlkF fMXDcUZ/EHh94uvYwawqCOkL2xN6gcCwLwG8pTNV4KtSFv3uCoGuGx1WGdur wKpmB6vtLwL1w5a/uQVzQH5O6GRUDYEr9HXTFp1KcBD8xSirjkBO3E9rHxQq IZmRzahtIHDSln/qO3oliOsb1H9qpt73SzVofV0B/LFBksf/JVDeOra2OqkC 3qhOlhgNEVjt0urju1oOqnp7LruNENiQGDh66W05HDG76Bz6msCLHvVzd/vK od9fiVbyhsAozukS5v1y6Ky1t1WeJVBMUq3skWc5iD7NYenPExh5LnzU2qYc DowvrDksELiDE+Q0g+VQR7+ee32ZwJ/yVcXM5cthVWEo9N5nAots+jSk6eWw V0fTom2VwF+qFE9PLJfBaZNQ1fE1al4Q++LRRBk8sG9bXl8nUN0oz6Kitwz+ B+NUdYQ= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"fl (\\!\\(\\*SqrtBox[\\(eV\\)]\\))\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Dashing[{Small, Small}], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{{0, 6}, {0., 11.239929867481536`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.618568316711034*^9, {3.618572624845642*^9, 3.6185726578646765`*^9}, 3.6193179072865915`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vnl", "[", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmaxnl"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"m", "=", RowBox[{"-", "l"}]}], "l"], RowBox[{"(", RowBox[{ RowBox[{"Conjugate", "[", 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", "]"}], "]"}], ",", "kx", ",", "ky", ",", "kz"}], "]"}], "]"}], "*", 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", "]"}], "]"}], ",", "kx", ",", "ky", ",", "kz"}], "]"}]}], ")"}]}]}]}]}]], "Input", CellChangeTimes->{{3.6185705791225147`*^9, 3.618570635316925*^9}, { 3.6185709905019007`*^9, 3.6185710047068105`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Vnl", "[", RowBox[{"kx", ",", "0", ",", "0"}], "]"}], "*", "27.211"}], ",", RowBox[{"{", RowBox[{"kx", ",", "0", ",", "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"}]}], "]"}]], "Input", CellChangeTimes->{{3.618570471031703*^9, 3.618570515427851*^9}, { 3.618570625065741*^9, 3.6185706540066795`*^9}, {3.6185727177770615`*^9, 3.618572718542647*^9}, {3.618572880606263*^9, 3.618572881575077*^9}, { 3.618573047328638*^9, 3.6185730482350607`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV03s81NkbB3BREWptWzZRcptUDBtazabnbOlqaV0bFblE5DvzZcmGqKmm foTcUjQuNaFQGCq5a6xBLrlFkTtlyLdapLT6nfnjvJ7X+59znuf1fI6GG2nj IS0lJZWCj6Qe9HjXWjVuv5O/w9OLc51Ebx86uPWrGANNK89dYmWFzuhCFXMY 142wl/hpRRjxN80Kvlp+NpOYvn1VRoqKHfjFzapJLPXTePx3dUcgZq98Oo/d Oll+wZXmDIrBORUSW7vXF7smusKlda4ciRkvjPLjVE7AssF7DIm1zFKzhDxP 6Km5ID6HrZgtlzat7g1QPxUj8bSyf6IO3wfCpyb1JX5z8U2UA40NK01Cq8Ow 3ef4z4R2vmCWkmYhcRfdceexRD/w3mjXGIpddUtoEqUSAAK+f8FZbOO2MwU6 R09DU2Lfaonvy9H1K3iBMPigxzcEO+70TW1KPQj+PhgpH4y9NNcy/YprMNBb 4UAQdvCQtNoGfgiQYdywM5L3D7F+sqaFgf0hUWMgdjdX89r4yXNwLkA4ehqb 1uezpNruPPwutJ4JwE5epcFxTORAw4D23F/YFzlXz0SoXIJSk4xINnaFmudj h5JLUFK19QgLe+4JmtY8yoV/z9qsJ7CJqRmylHcZAqL2R3hj2x11OTmpHg7V Bj98dMeOnmVkFFeFA8OD7u+GXRe7eviSawRkdfZPuGCb1TU4r+NfhbfElyon SX8mJg5WtGi4kiL71QHb5cUPCWtF0fChrdjQHvuWj7h17OQ1oB/65mSLLdfa kllpFwO1mgzeIeyzslxNZmIs0D1js/ZhnwigVMJVEmDqc94XE2wjmbhggW8C 6N354GGELR1n3NMjSoCReDWRIXZaXhCPHngdJpjbvLZgvxbLqHe0JcLBp346 G7APua7RVo9MAm6wfKQs9voPJZf2DyeB3qJF+xZjT4Y5jfoxkmFcanhWCjuC dyez5l0yZAd5m3xNIFFNl96mU3t48E/Ref1JbIbV7/RHC6nQc6tnWTO23Jvh 6D77NJgjr/7UgN3lc5mSfZAGvl9pK2uxS2o8mA/004G5W2OqHJs5lK0i1ZsO 8uu1NB5gx60z4WWY3gHzkeP+4ZL7Eg7c/vDxLuzj9tdtx543HZy/vTYDVAm1 58bYU2/OONjuzgCabIHQALt94z2FxwkZYE8M3tDBTi1dGhjyaya4Bx5vVMI2 HhYeXBqaBcnVHR6j8Xg/W3dOq8plg79IdOQKtm1Xp1WTYTbotC7W5WDvPcu6 H+aYDcNGyRPB2Ftqec6D2dngqdpsz8aedZyvy7TMgferjj62w47kFKf8Ep8L +4ZW3FPHfvJi67596/Pgg+kyq4dxOE/jk/v19ubBgNddhSxsT+msgz+y84D7 eK4yDVvZWNWqpzwPntc0KsZilz7nZD+h54Odu9av/tiqBqcKLJrzwTcgptkE +/UMo9J/uQBmppPkimJxv9JrkKeGALo+eqTkYAtWzFQxTQSgJ57Q5WNHbMx7 ZuYkgOUTOtpx2AxHrVrZBwIIlbLNIbGTyhSabv1RCP2bb37TxWZe7H0tvFoE lYIlOQkxJFIaoOmdvF0EcSuH9kZg1+/wC5V/UgQF6152ncNmzC7ZYD1UBKtd l7w6ha3qbeDRZ/oIbjZzmAi7z+oCNTf6CCLn5i3Gr+F8r9VdTEdPYDhkzxIj bLLAX//m9FOI/NAqzIjC+90x2F4vVwLBHW6Xk7CJOqvgebUSaLQMhChsr/5N Iuc9JSCtr3M9ANtl+YCLTmIJ+LzkN+/C/tP7jwTBr6Xw7DE9+E0kiQw1dOYb g8tAFPy8UAH7U8zLukWLKmEsWlhoEYH/d3VtZcuOZxCquPT6ApdE3kEHljtO 1kA6IzV6DYdE1cu2fs9liaA5yDlxMoREmfyahbU6DeDWTsrfP00ipFx+x/Zh IzAywsu2kiTSF/UW125uAfNG8fABLxJ1INup+1MvQDOr4STNBc8j79PWadgG GxxpN6YPk+h59+HyFdHtsHj2WLiPFc7jXubgyEgHHFl0ItXTnETb0q8eTtd+ CeNlrOwzDBINLMR3eJ3rgpfSOkIlAxKNHmjhKwu7ITSI+XO7Fonyk/qDWjVe gxzHPee7Moky/icTvim4BwxrNXjVy0g0435E7FnaCymv7iu3f2MjBfPLNgU/ 94GCrN+f+lNsdFZpVHHwWD98WfzIVdzPRooVW6S6LAeAOSbydm9lI7PAQ/8J vw7Aqt+UjiypZiPe3Ui+Fm8QHKU01tAL2MjZ3rhpmcUQeK0yaPBIY6NHnR7x FbNDoMLdlWkTxUbbG/OlxxKHQW/EvUYcwkYb9njOxJuPwELXv+K/vNjIxNgk tmhsBFq0mduf2rNR/6eoej53FN4flw19vYuNJo2suSpbx2ChJSK5WZ+NaBP6 4kXtY+A4a5fLV2GjGu3Tbb6ct0CSVi+MZNjoWkenu432O1D6RTn6yXsWomyr YqVr3sHxaxx53W4WEtiv3r3dbxz+4c2uM61iIX7TxZShlWIwDf3Y53SfhT6L joWsfCYG8VNBu2IMCw3EVs4osSfAtrX/5N1AFppt/U3lwopJeOVQ2O3vzEK+ CZpVQWWT8PYfVR/Bbhb6uUlTacT5PaQ7VdxmbGYh287cb2oL70HzsLlcixIL fTp+m+jNnoKG5/9ZlEwTqNIlj7viDwpe/RJm8cNrApW0EBZ9VhQYLK41vvGK QI93bv7xoTUFzFTT1erYuWoZPMvDFMRqp5fSuwmU3J1cGOlGwTbby6mWLwl0 +s/Lg/JBFORuXF8e3kagLcjJTDaTgsOl0y7zDQSi5a2V6bpHwYznVcML2Jrr u+sycyhIKjv2WQ57zTcbu70FFDBOFJxSrifQ0uL9PtwyCvKTDd8Zigg0aGCc JNNOQSoxu/OEkEC9qR+d2zspyL7uf0H8jEDdy/O0+d0U+HoYlftiN09syt/V R0HQl7NrQqsJVJalLuKMUyCY3eN5vZJAxcpvIq0nKahnjrmrYhdyk200KAp6 3ZqYtysIlO2+uq9qmgIjXz/dB+UEymhr48d8pmB9gIGMEXb67zHeLl8pcNbY 1llcRiBevqWB4X8UOM1xU3di31BXmPn+nYKYIPXjNaUE+j9dwrah "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 229.}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Vnonlocal (eV)\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Dashing[{Small, Small}], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6185704741882257`*^9, 3.6185705159278584`*^9}, 3.6185706548193684`*^9, 3.6185710069726915`*^9, 3.618572719152049*^9, 3.6185728820440016`*^9, 3.618573049531972*^9, 3.6193179125313044`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"constso", "=", ".279"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Rc", "=", "0.71"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lmaxso", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fso", "[", RowBox[{"l_", ",", "j_", ",", "k_"}], "]"}], ":=", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", ">", "l"}], ",", SqrtBox[ FractionBox["l", RowBox[{"l", "+", "1"}]]], ",", "1"}], "]"}], "constso", " ", FractionBox[ RowBox[{ SqrtBox["\[Pi]"], SuperscriptBox["Rc", "3"]}], "4"], " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"l", "\[Equal]", "0"}], ",", "1", ",", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"Rc", " ", "k"}], "2"], ")"}], "l"]}], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["Rc", "2"], " ", SuperscriptBox["k", "2"]}], "4"]}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"aso", "[", RowBox[{ "l_", ",", "j_", ",", "mj_", ",", "ms_", ",", "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", ",", RowBox[{"mj", "-", "ms"}], ",", RowBox[{"\[Theta]", "[", RowBox[{"kx", ",", "ky", ",", "kz"}], "]"}], ",", RowBox[{"\[Phi]", "[", RowBox[{"kx", ",", "ky"}], "]"}]}], "]"}], RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"j", ">", "l"}], "&&", RowBox[{"mj", "\[Equal]", "j"}], "&&", RowBox[{"ms", ">", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"j", ">", "l"}], "&&", RowBox[{"mj", "\[Equal]", RowBox[{"-", "j"}]}], "&&", RowBox[{"ms", "<", "0"}]}], ")"}]}], ",", "1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"j", ">", "l"}], "&&", RowBox[{"mj", "\[Equal]", "j"}], "&&", RowBox[{"ms", "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"j", ">", "l"}], "&&", RowBox[{"mj", "\[Equal]", RowBox[{"-", "j"}]}], "&&", RowBox[{"ms", ">", "0"}]}], ")"}]}], ",", "0", ",", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"2", "l"}], "+", "1", "+", RowBox[{"2", RowBox[{"(", RowBox[{"j", "-", "l"}], ")"}], "2", "ms", " ", "2", "mj"}]}], RowBox[{ RowBox[{"4", "l"}], "+", "2"}]]]}], "]"}]}], "]"}], RowBox[{"fso", "[", RowBox[{"l", ",", "j", ",", RowBox[{ FractionBox[ RowBox[{"2", "Pi"}], "aLattice"], SqrtBox[ RowBox[{ SuperscriptBox["kx", "2"], "+", SuperscriptBox["ky", "2"], "+", SuperscriptBox["kz", "2"]}]]}]}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.615296671160556*^9, 3.615296745630426*^9}, { 3.61536529099392*^9, 3.6153652966299205`*^9}, {3.6157291548525553`*^9, 3.615729161247116*^9}, {3.6157859219351287`*^9, 3.615785922192331*^9}, { 3.6157870316272182`*^9, 3.6157870324728184`*^9}, {3.6157873254367995`*^9, 3.6157873270239277`*^9}, {3.6157876325998616`*^9, 3.615787652816196*^9}, 3.61578769845061*^9, {3.6157896425617604`*^9, 3.615789643317314*^9}, { 3.615790117505931*^9, 3.6157901190670595`*^9}, {3.6157906289079866`*^9, 3.615790629006076*^9}, {3.6157910702719383`*^9, 3.615791070366007*^9}, { 3.6157915431977*^9, 3.615791544217405*^9}, {3.6157920058171024`*^9, 3.615792006037279*^9}, {3.6157933735204797`*^9, 3.6157933747103233`*^9}, { 3.6157942477106404`*^9, 3.61579424847216*^9}, 3.61579527451963*^9, { 3.615871606874197*^9, 3.615871611452792*^9}, {3.6158734161871076`*^9, 3.6158734176402063`*^9}, {3.6158754637407637`*^9, 3.6158754674597483`*^9}, {3.6158756837949066`*^9, 3.6158756871391773`*^9}, {3.615876788709368*^9, 3.615876792620072*^9}, { 3.6158777429406013`*^9, 3.615877745686552*^9}, 3.6158780040155253`*^9, 3.615884813065302*^9, {3.6158860611117873`*^9, 3.6158860617993307`*^9}, 3.6168331419470997`*^9, {3.616834092945244*^9, 3.616834096552784*^9}, { 3.616835811570222*^9, 3.6168358120215454`*^9}, {3.616836920050657*^9, 3.616836920339862*^9}, 3.6168378300571065`*^9, {3.616853240590249*^9, 3.6168532412156925`*^9}, {3.6169101371651864`*^9, 3.616910137627515*^9}, { 3.616916579604772*^9, 3.6169165803162766`*^9}, {3.616932841087206*^9, 3.6169328458836107`*^9}, 3.6185683515590143`*^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[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fso", "[", RowBox[{"0", ",", FractionBox["1", "2"], ",", "k"}], "]"}], "*", SqrtBox["27.211"]}], ",", RowBox[{ RowBox[{"fso", "[", RowBox[{"1", ",", FractionBox["1", "2"], ",", "k"}], "]"}], "*", SqrtBox["27.211"]}], ",", RowBox[{ RowBox[{"fso", "[", RowBox[{"1", ",", FractionBox["3", "2"], ",", "k"}], "]"}], "*", SqrtBox["27.211"]}], ",", RowBox[{ RowBox[{"fso", "[", RowBox[{"2", ",", FractionBox["3", "2"], ",", "k"}], "]"}], "*", SqrtBox["27.211"]}], ",", RowBox[{ RowBox[{"fso", "[", RowBox[{"2", ",", FractionBox["5", "2"], ",", "k"}], "]"}], "*", SqrtBox["27.211"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLinesStyle", "\[Rule]", "Dashed"}]}], "]"}]], "Input", CellChangeTimes->{{3.618568348152232*^9, 3.618568448335869*^9}, 3.61856848012051*^9, {3.618568521000167*^9, 3.6185686902539873`*^9}, { 3.618568840332801*^9, 3.6185688697892714`*^9}, {3.618568910794177*^9, 3.6185689392976947`*^9}, {3.618569072519451*^9, 3.6185694732540913`*^9}, { 3.618572560745474*^9, 3.6185725610892763`*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxFznssFAAcB/DjHOEQxpDH1awkzE0MW+dkdeRRKbs8FocTJTfHpmIKiwjJ rUxISVazuzapeZRuTsO5u1XXYypTXlecdeec50W15ff7bt999/nvuzOZE83W JxAIkX/7b5sKkw2pqfk0wv/cjVMGMimxQVsejazgUigZ4DxGrDmJchF8eICe sOxSDuYX7y9RudSDv7MEtvMuj8H5x88lzbl0g41XG4YzvcTg7P7LlUquHOzV ynvbKRgFT0elO477fwPXOZQ63U+aBAdwu54QJTNg0aeGY5w9s2Bq5QbNLmwe zJgJHPdmqsAKz+eHFpVq/Ksr93lxSQM2svyRcdJdCyZJSQzTl0vgdRk/szZ7 Bf8yBfbOzmvg4GtZ54f46+BbG13GIYm/wfGOooivmg0wWbhPuSuGQN8y27dF G+uhB84rvBBN0aKvzvLkMpk+OMLd4hH5DhFcxfcTRrAMwOITD3S5ASSwUMqp 9CAagjvOFtElY2jn8CD/rE4jcMhmQklzwTZw6sdXC10xxmBaUfEzFsUEXMtR 95IV6IkrD2ea+0zBc+zu1P4yMlh13spIyjIDC8JGdGme5uCZdG8/ohbt0P6Z Vya1AJckcVuk4dvByzr7qvButFtvXb3Y1RLsm/L6qGU5WthoYyfRot2ENhVR 8VbgSJLS6V0fWvVlSjTsbg3mNFZZl99AS/Rcfx25iXY/0yMm89BTVEVRzW30 qUG6qq4JfXBBI2lrR9uGxpUODKJz+CpW6TD6jVXZgdAR9PWxp4sjMjQhxyxF /gE92yQMmphEM4jMHa3T6Nb0+SW2Ap3o4yD4OYt+P5TjqFajqV4mKx0adDXv njxXiw47La1YWUG3iVLSetbQBnvXggt0aFZ1jRNtA92n2b26uYn+A8VzHA8= "]]}, { Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1nc8V98fB/D7+UiSmY9RKmkaKSOjVN7HLIVoK5KtYURWVssM8SEjlCQ/ URTyuVcZUZGQNkU0UFbJ5uNzf+f71308H/dxz+N9zj3n9T4rHTz3OjMJgljA IIj/nlmhDvPVnYL0YpgPU26M6evdODKoe0jeGgI88ycuBchDu3mMt7z8CSjt fiJjF6AG/jusRfnlA0GvxN3MNACByTNkM7kiGo5wfCfVAizh/kXNS39XpMOG kaPif/yPwzf7IumhFXchL1xz06SfFwRZnTo+sIKCthINJXmf8yA4nfHy9MZG aHMqWOkrkQhnasNiB73fwTqxlHv8mumwMTfpTVlRO7hVRrXrh2VDj4Xbsq7N 3ZDRtSpMNDUXUmUjlt86/gPeqcg4d+rnwxZvspivqRdGP25buEHwHtR9yrD0 VOiHfM/M7m3hxaAey9NbbDoE7NQzo2omD2FHr26X2qG/0MS3OuplQwn0bSg3 HhscgditAYGi4mUQxI3e9OTcKOic2SL3QfURCCz6dWK/8jjYqpWiF/rlMBFp Y3xTbRyuDp8Y9Tcuh15eq3y/9jjU9Ka5K5iWw4tB6lOY4Th0mrzhhFmWQ0TD FeNCm3GYH9xxU8quHOafV13JvDoOY3aStz4GYf/xayseHQfNwa8J90rLgb+Z f4dQ5QQI9vVl5izjgLB7pmNn3QQoGL7IWCDPAUmRTeeLGyfAwOTi5KnVHFhj fpza1zYBLsv3P1dW5oBRc8X6zNEJ8L1TQ0bpcOBis6f4BuVJKKRcRp9bcYBo aW+3SJ2EIwZDfsaXObDAw2tC/sYkzGmpcQ9GckBcVIA1mjsJJa0mnc4xHJC3 0DRLLZmEqmPDJUEJHICW+Kqu5knIKNh+LzKTA6Ethre95k3Bjq+K7fJlHJht uX+afWYKbIObdxz+xgG5N/YZRgFT8PBY+eUFPzlg8E6qcSJ0CgJrWrXLezkQ 8ylE4WjsFHDs3s0IDnJgcbf599X/mwIB7Qq+pAkOaI8MHXrUMQWP614rrBci wYu10bBtxzTYVouYnNUgIVnq+5kYi2mYOahh/k6TBI5MSva2A9MQaKTYpKpD Am8pby7bYRqOyUyrf9tKQtyaFvJEyDTk7bXNXmtMQoGWx8bZkmkwdBderXWI hJ5DRUvk5GYg10L9vmcgCXmH52pt1syAcXNEzJEgEtyszU5nKM/A06EOHcMQ EvqP9Fct1pmBThcJPtELJPy1XefEspyBOilXu+goEriON4oWXJwBs7M9FjKp JLC84g1He2ZASYlgJZaQ8N6rc1B9cAa6d3foaJeRkHJGJcXr3wxI5l1Rb39E wmKfxl9DvBlQnJbIXUyRIOc3P/6XzCw8GMqKCakmQTk4tK3TdBaKHL3Du16R oB/l4d5wfxZOPd9znv8HCbIlXYfiy2YhU3pg16WfJIx9sTTY/3gW8gwTrvJ6 8PxUN8l0N8yC6JUFUUO/SBD+NFkz+WMW9vC2bL8/TMLHtRckFWS54Om/faJ0 moTiPf94g/JccAnSuSg4S0JUoOPvEgUuKGQUxtpwSdjabFylp8WFWhMVuVke CdlnF7odtORCs27TVtl5FJyqS3ocHsEFSbWK3G4RCoyG5uXtjuNCwz3pbaJi FMjJ+CUsSubC/tC6g1vEKWg9edg56xYX+l2tZKIkKNCWWC726AkXwoTWtwjI UEDY5zn8/McFuj/saALOmWs8UtDQbg4yq5ZZNGykQFjhucc15znoZbqrp6lS cHnPm3d9p+ZAaUXQqLMaBd7Zv7NiA+bg4UpacladAgsDWY2PiXPAeTv9QUiL gvkRQUdOPJuDFRdQUr0uBSFFkdWPG+fg8CqPCN+tFIx9TFoj+mYOTOY0bFdu o+C7wr3hks45KHCpLffeTkH1y46L3Ik5OBNRv4oLFASI6BVeVeJB+dVXawuM KPijtUv8uyoPWqdDArSNKXA5dtBXU5sHavp9pTXY+4s9oN2ABxerVXtbTChQ t7r5bpUNDyKauvXf7qQgP7Bws68DDxhJCT/MTSmQz+Fk1bvxYF9rtlc9tujo a9fTvjz4dGmbRdkuCvqTCe6jeB4oHPgp72tGgX2lsP2CazzICFui0I3d1rP4 xZEMHmRnnFhqak7BC231BPp/PMj58uS1pAUFOW32a0yf8kDeZcgraQ8FSxge 0Rn1PKjULB8Zwk5QOjc81MwDYSlnRxNLCkLPsUn2Zx68Du2SHcE+uqzOrGOU Bxu99X5u2IvrcR/592iGh9dzrVgodkD1ivSrDBrez497+wo7xSG4x0CMBvfF 5Jrj+yhYW1ZwZZk0DXenXcvysMv429UnltGw1N/7az/223yt0LvKNDBDzvKd 3o/nN+O45pI6DUohR+l87L+72Y02m2mIXBCc+gNb9M+wtLgJDWF+ZjesDlCQ hZZX/jajISV+WCQcW4W927FuHw3nMouWlmPv0sov9rOnob/Wi7XoIAXtER8P WLrRMNzgytPFdmubx1XypGH/TZdoB+xJpU05fH40/Ej+VRaJHRFkv7MzmIZQ ixMXCrClmq8Ol1+i4ecLpz+N2LlyVckJMTRcszhE/8Le5DWoezKRhswrlQ/n HaKg9qnsN8M0GmwDJQXksK1YppHLb9Lg7NZOa2J3O/lvmLxDgwkvOtMU27P8 zrvWezQc0MrtPIrNE3gfWFBKQ7xNXt0p7DhrpvzlChpsZMT2BGIvK1R7YfuU Bidb2/OXsQu5x07rNNDgck78cBy2rkWcxKLXNEyL5H9Mwn558zHZ/4GG00K5 3FTswyO/jz3roCGRutyYjt1rsJj/xg8aIkoa0X/2TTYp9O+n4fqPCbsU7Hm9 Z62sRmgg4mIUE7HZOrcnladoqNYXyIjGXhn9JmseTYN93zAn7L/xh+iVf5gE 6n1UF+aDLS8tM350PoHO6iwYdcLu09vY0CBIIIOdILEfu8jVOENLhEB7pQc7 EbZfgo1HjjiBrFayD67H1qN89MUkCWSv+yiYhc3/PUYyWIZAfZfaLafx+idv oioOyBFIrl6HvwrbxqY1rnYlgdD1oN5M7NXhfcdV1xLI1vK9fyB2yUcpAUEV ApnHfbm3HvscrfLZV5VAGl4pVgxsfUWj+981CNQyFJr/Hu+n1kDvfU+2EKin c8zjLHZaTvQ6pe0E4lNK7ELYdq+yp68hApHVAfOEsIeXvb7puYNA7j273NPw /hWuWT+46gCBHrSOvkzF+/97ulVD2GECPSus0d6HzfHxz+04SqCrRRvOCGM7 KNTZpDgQqEhj3DIAny9O/JFmQS8CZS+806hlRUGs2/m7Lj4EkmJ0lHTh8+pg kBde50eghpPvT0diC0+MbA8JIVB66IrDrfi8O9hGF/2NIdCWXfWyO3E+bNYp jjGPx/XGP7jZjfNDZNEHl4JEAsmoxM/4YZPP5Fc4pRHIf6GxZhbOGxEV8uqn OwQajYp48RrnEznT61VVQ6Df4fZfm3Hexb8XNl/6jEDSYaVMI2zHIg2lgHq8 PowkfhLno6hD6Df1FgIlSCrfTcd56vhSau+dLwQqkWT5Gxrg92lGm2InCDTP LOiuOs7jn2dOiv2eJtCT70+mwnFeU7sTBoznCKR22FW1Dee5E/3lNs3HQCOB 2gf8cN5XuPhI+ixiIMGUKHa6DgXOWjnj1ioMdDJXfl8w7hcx8VJiIaoMZFc5 taES95OivijFbA0GCigq287F/WYi3fNo72YGEuvizJ3F/SiKt+2ptzEDdX1k iVitp6Cg/lPslWMMFDcw9bZ0Df6/1iJrKhMY6I2MwT4FaQokSs9v705ioJfX jcpVpXD/Ex47yJfKQFdSQ2y1JSkIq/ocbZrFQCLxUef0cH8UX53/58NdBtrn WsvdIkqBxqDB4+FaBvr2ZnfCV34K/EMD9sqPMxDv+gqvb6MkKA4GC0dOMdCZ AetX6f9IaLO+8GJoloGchB+rWo6QsFkrRvcxk4korRhpDr4PTA1krDoozkQH 09ge7r9JOGdd/e/KeiZaeubO5+CvJIRqzk+atGeizwovYH09CRtzFpofc2Yi pWYn/rznJHwVExN47sZEoWZmv+WekQADMkFsTyYSuJgnKvSUBCJHyXFDCBPZ 6bl8b6og4aKY+SbHNCYaMEoznrxPQnh/0ruWFiYSPN1YPcAm4fKnnsbZN0wU GXLX1TQR+5lOreIHJjrUnRF65yr+/saXBxe/MNHDDdzZw7G4vr2r47V/MdEt h2Cj++Ek+FWU7LzB4EPFui5XhALw/S7mTaW7Jh/qUZ0byjlKgpmyWL7wdT6k f/2Dsa0cCdYNnvlKWXxo8N9DS+dlJLi4tOabZPOh5pgHc6dkSTifk3j3fB4f uulqhnylSSiTlSwcK+FD96/E+PuLkrBMaElRxys+1GTzWHkrjwODA6vK7s3x obUtXrF1HRyIu69dY2Y/D7WV/iifvMaBxn23uWe38KOuVR9etA+UQ02zZ6wK 33xkVK5p81a3HEpOXkBNnfNRpkHCp64Tj0BuN2z2KBNA/hbja/fEl4EhbXPp ZvACZL1HL1eOUwpOH6v/kQcE0WmXCnmh5yWgd+HiI3v5hWj7W8nnmp0Pge05 8li4byE6FtM+FjrxAL6fv9N7s0oImZ8KUuwbK4YBZ8qpNlIYJSsv8ZBbUQR/ 3SUEmu1FkN72YkejdfegyPQV12WDKNLZn8CnerAAet3UtPnGRZHDgd3FnLR8 kC38nBTZLIY473cl1dTmwaXj3jnNu8XRn4ALu2/I3oFJ7pK43ZQ4el5TcrLi +G1QfJya3rhmESIq9u13rb0FWo7P9yyKXoTc4qokT+3NhppMqcVN44uQluHt pz0PskCxRirG4qgEkkxsKLsnkwHm/IPL31ZJIKFh3xPch2nw98vPupfKLLSw VdFmp2EKeGbGsaKvslCltfS09bpkaGKs+bMrkYVuVbJK9Jcng7JrRaNwEguN 6fg5qEgmw0/1vgsJKSykPH9X/kJmMhyuR39Ts1gowEejpr8zCQz+jTblFbKQ aOWbrs0pSSC980jEs3oWkjrOqF4omAQ+9//aR7xkIbsByTeWRBK0SkRu3/kK 18P/tDV9kg1XOkvHXrWwUEF4fKpmLxsIHxHHdx9YaDD2+pa4Ojb0Z9XA9x8s tFpY8lJjKBt28B1amtvDQk/smCbgx4Zct6EJ5z4WendZaKTcnQ12m2SLfvez kF4xg1dkw4b3DT7LRkZYKPer1++numxQ37hwqmQUj/9g/Q9zDTbEJ2W/OzvO Qk25crUdSmwwPdYcMzXFQpcfam7kW8KGvDpHl4oZFnJ7dr3iujgb5inN6Adz WShyqEpZawEb7OMTluvxWEjluX7oWzoRqkbXTdM0C2VF1ZV5TybC/wHt6drw "]]}, { Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1nk4lF8bB/BnRkhZYlKSUMn2Q4todx9byFIiIclWiSxRpIiUZSZEQpIU Kbt5pLJEtrKESAkppSxJRbKPed7z/jXX5zoz5zr3nHO+91nr5HXwOJ0giMU0 gvj/Z+olJ77NLhe1fJLLeG677NC6azu687CsDTTedMkRMl4J3aYsH1nZU2Dv XxnWvU8B/A1shHllA8Dpuevjsn3bYG8dspuWYULeJvN9t/YZQH7o1itjMskg Zza3Yte+w/DVsWDFL5lssC/Oiek1PAkXzd0dfsqUwpJFIZaeuv4gMJvSeFqt CcQE92TWyEXCmZrgqFGfDgiRu1On9zYO1B7EtxcXdAOT8c8r0TIJBsxcpfq2 f4Glm44ePiGdCkmS4WvuO3wD7RGHFAGF+7DDp6SQp3kQBqSt0/g7MqD2Q8oB L4UReKxxX7TN6CFsjuJqSRj9AsmeJbtHPbLAYHBn36bDY+C9OHX8YWwODKk+ 1f83Og7uPV0rLh7Lg4scpvrzCxOwRO2N1LmpfOAXHT5lqTwJHp5JhZ8DCmEq wk4/bdMkOOz9IikRXAiD3DbZEc1J6Fu/3snsaiG8Gi39EKw7CdMvW66QMYUQ 3nBNP9duEtSdLIQPZhQCX8jGtfTrk5DMfLqC8xr7j19X4cQk9N43dAoQYgNv C6/B0oop2L3Y1oE8zAZBjzvOn2qn4OTzYzEStmxYLqQeUtg0BU9X0fqC7Ngg Z+pQatE1BcuUR4Z0HNmg11L2352JKWi8tSnpqRsbQlu8lqkqT4O8E8tZL4gN RGt3t1nSNHh2B4fN3mPDYk/vKdm70/AsbHhaLoMNy4T5GRMPpkG4blOUWSYb ZM22miQVTYN65DHJO9lsgNaYyr6WafhsurdFtogNl1p1M7wXzYBeUFdMWw0b 5lvzT984MwNvTg6kNfazQbrdMUXv/AzwdesZsr+zQadDvGnq0gx0PfaVSxhk A+tDkMKRqBlw03Q9bzPCBokvpv3rH81Awqvu683jbNAc/3X4Se8MvFQxi7Aj SPBmqOl2GcyCfo88Z70UCTfF+8+wzGZhWdjYtvY1JDxbmXhv96FZEM12yQ6U IYG7mrtwz2kWaHvuqLauIyFarrXkVNAsTOREVhxRIiFHw1NtvgjPN2QpvFaT hIHDBaukpefA5ZHX6kNmJDy0Xqixk5uDRd/c1Nn7SXC1MTmdojwHyyvcXwiY kzBiO1IpsW0OmJxP6iUWJIwdlXdhHJgDgZ9qcXQbEjjOdwsWh85BDjtG3dSZ BIZ3jO7EwByoNmt2lPmR8M770+jm0TnIWu1+97s/CYlnVBK9/84B8Ap/FQwg QcK3afgXdw7Sjq1usb5IgrQfX8zwynnoNa7R/RxMgnLgpa5PRvNgOnG8Pi2S BO1IT4+G/HlQ2GC7nHuLBMmivsMxxfPQ/m5+qeBtEv59PKBjWT4PrlT3TokU XN9G9ZVfGuZhpa0g/JdKguCH6arpb/Mgb5Q6uOs+CZ0bLi9XkORALKJ95s8m oXD/X+6oLAcCC+IdZrEjA5x/FClwIHRJ+JofOSTsatGv1NLggJTVUYPaPBLu nV3ianWAAwH+2Q5ObBLca+PLw8I5YJi7u9v4GQl6vxY9NI7mQMuY+Oq1Jbi+ lX6xojc5UFxUdvsfdpub9fHU+xxo0jW2TCwjQVNsjciT5xwAua6ndRUkEI4P nb7/5YDRE7pHSy0JCdwSAd1jC5AZ/2VvbCuuR+GlZ8LxBVB0SN27/g0JV/e3 dwy5L4DVx9d1xdg+936kRp1fAJ1bFns62kgw05Hc0hm3AN2O43LctyTwhV+0 PVW3AKMFG7hLP5AQVBDxorxpAV5RZ7jh2P864+WE2xfAuTE1hOgioV8h73fR pwV4KOq39A/2i8beUM7UAiRYuWiX9ZBwXkgr97oSF0yOsh0EPpPwR2Pfsv6N XFgh1Zd8GvuEvdW5rZpcyH4dZd2KbVnoCd06XCDDLU5G95Gw2TytY50dFyyf S7fPfiEhKyB3+zknLnAWOnabfyVBNv1Zar0rF1QURjY+whaeeHPy9DkuzJWq 5pv14/N6k+A8ieFCnnDzkqhvJDhWCDouTuCCnLt2yQfsrgGJV7YpXHBP4P2z 9jsJrzQ3x1KPuBDScHaWxE7vcpQzqubCZ5m3kVUDJKyieTJT6rnwZOW9CGKQ hFilC79/tXBhMPKpKGBfunCj5EYPF06tq2h4hn1Eqtakd4ILHkf3NCYN4fV4 jP99MseFRBOZgDbs8y9kkq/TKOArbDjHP4zvg1PggI4IBcjihZU39obinGtS KyiY/vd4Vzp2MW/35ikpCuIaKz3fYr/N0riUrUyBdKBrleoPXN+cs9yVzRRY FrD7rLHHjG802W2nIK/c0SwUW/jP7xXL9lIQVG6xug07Fa2p+GFCgd9fuPAP W+WGsXOtBQXG0T+VVo6QsE8jq9DPkQL5NT2Bh7G7wzsPHXCloFWnSfYctmvX Io6SFwVWqu9WxGFPK6mn8/hR8F5o/7Fc7PCLjoafAinQOXhjrhZbvOX676dX 8PyZk8M92A+kK2/GsijQ/d2mPIat7j260y2OgpkDgVU8P0moqZb8qnuLgpuq B3LEsc0ZRhFr0vB6ZTOHN2B/cfFXnc6kQJL+7uJWbK+nmR1teRSMD2q4aGNz +d8F5DymQE9GLt0EO9qGLnu1jAKRbTMaVthSuZteHa2moG9yqaw9di7H/vS2 BgpK7EsdXLB3mkWLib6h4Eeh7YwrdmNaecnIezy/074hd2zr8R/2db0UHFX5 puqBPagjwXv3GwUP5oObT2Ofu7k313+EAoH5i7Vu2IsGz5qbj1Pgc30L4yT2 jW0Z08ozFFhYU+WO2GuZ7amLKAoubtSqtP3//L+otX/oBOJXMpY8iC27YuXk ET4CKcaHthlgD2mpNTQIEGjVFPq6C7vgpH6KhhCBfjG+mahh+8XaeaYvI5DP 8EuGDLZWqa+2yHICiWXv1RTG5u1nLQ9cSaCCupriefz/31QvLTskTaCuwfX1 7dh2dm3RNWsJZPij7kgZ9vqwIYeNGwikrtVteh+7qFOcX0CFQGOGncZu2Bco lZ5zGwkkWB1obYKtraiX37+FQCMiYnUq2G0BPhbPdxDIdl1E6TA+b7fSmfJK ewhk6SavV4d97PW92QREoNtx6hvvYv+WepPmZUCg+lEJRVNswar/RtcdwuPc zMIkfP77k80bgq0JJOQMW05iP/P1f9B7hEBv129S0MB2Uqi1S3QiEHuOdaoZ 37dnMbYtAt4E2tB62HYY388o15DsE764nsu9AbnYTjoPw2r9COS+8YGwB7bg 1PieoCACveLxS/6J77/TUWbBGItAwSKXtTpxPmzfVsgyjSFQWXWAWDS2kOj7 EzlxBNIOybfXwS6pk5VxuUWg4VZ9xyycN0IqJdc/ZBLoskDNKiecTyVzg96V VQRae7cxLwrnXcw7QdPVdXh/VFs2/4ftXLBF6Xw9gcq1ZTUacD4KO136urmV QMIJqGThEx5vFD+Y+ZFATVr65Va9ePyWnnrUFIG+NbYtrcZ5/P2Mm8iPWQJ1 74t8YIBdahz7U3+BQEpxb6ubcZ67UB8zKB4aMjvz9NrbThLKTvgu9xWloW8H B082vyPhuEb6pI0KDfl0tqQE4H7BihEXCdpIQy5nO33+4n5SMBSpeG8LDcUY 7eJ1w55K9joyuJ2GGrtPHz2E+1Ekd3e1jz62XcV3qWb8/qj/EHXNnoaEO0eS verx/toIyVXE0hBD5/b8BtzfxB6H7PkST0Onrdu/+z3H/U/wnxVPEg3J2u+8 +aqchODKHqZRKg319C0ycML9cdn6rD/vs2lIpXwr3zXcX7eM6pT/rqEhy2fy O9JJEvwvnT8oO0lD+/nthn88IEFxNFAwYgZ/3z18Jx27y+byq1/zNGQdIaO0 KgPvpwZrZzmdjj5W+X7Swe+BmZ8p66yW0dEZ0bDCMPxeuGDz4u+1/+hoLrje oTEB5/1WvvhpRzrK4+nZaRJGglr6ElP743SUGCxI23GVhM8iIvwvXelIQTXN R+4KCfBz5cUbXnQ0ItpsMx2C+3m6krNqEB0lZaXoRweSECpiqu58i44YGprc AF8SwkbiO1pb6ah9w/OD+IUMVz8MNM2309FyYavQLcew67bVKL6nI+3P3okC 9vj3dz+yQz/SEXW32qP4CF7fwfUxmsN0FCFIfeNY4TwoKzK8S+NBZZpZhjam OL9Z7RUeW3lQgFtFnc4OEkyURbIEb/Og6j3Rh/4IkWDT4JWllMqDvnoFzrME cb8+0Za19x4P6lnOn7NhKQkh6XHZIQ950F2zkHXWi3F/klye+6+IBykmElEk Hefr0lUFva95EN3eMllzmg2jP9cV5y3woN0fXjhE9bEhOl+zysRxEeLtN/8e mM+GJosMztkdvMj9S6jXFg02VLV4Ranw8CHjlEdMAe9CKHK7jJo/8SHDnMth LMMCkDaG7Z7F/KhWPvs0v1g+6FJ2V9ICF6OM3p7Q4q+54NL54m/JIQEk9/Vg zJFrOaB1OfSJo+wS5N8UGRCkmw03vMbLBYeWoI93lp7btvAI+kMyB9Mql6I9 xpvSXt56CD+Pl7rURAiiYGomNcEkE8Y8xPhbHIXQ5PlEMnkoAwqMXnNOqAoj dNs15UxaOgy6btLkmRRGZ5pq03xd7oNkbk98RIsIGluU/nadxD244uCT3mK8 DI1Ut9ed7UqFac6qaOPSZeiD/VafiJMpoFielNwkJ4pGzV/8TliTDBrOL/eL MkVR5opXNFXxJKi6Iy7RPCmKLtV5u2Vyb4JilTjL7IgYMigL2qarGA+mvKNr 3laKIamN54vN/eJg7OP32kZlBmrdaVtKBF4HrzvRDOZ1Bvr9hu8pPTgKmmly f/bFMdBn6Xh+eZ8oUD5Z1iQYz0BRFaLXTI9HwffNQ5djExnokoCZfLZxFFjX o7GkVAYK0LiQfkMiCnT+TjQ/zGWgZxmnDqk9vgYrDG3D6+oZyJ9hkRn2kwW+ +WOO4Y0MtKfmkotaHwvaxCL2GL5moKMK1QYf37Lg2qfH/163MtDrsqzz2mUs IHyFnDveM1AFt8wPmCwYSa2C/m8MJBk+4E9TZIEBz+HVDwYYKK/9n9boahY8 cP01dXyIgWTarNZ9FGHBMXXJgh8jDMQ1Fdn9cpoJ7xp8pcbHGaiWTyq/qZ4J m9WWzBRNMJD5/hjDznImxMTf6zg7idd7X4szUMgEI/sW1swMA1UZ6eeI3mLC w1rnE2VzDKRkFpuhGsWERUpz2oEcXH8p/bFpCBMcY2LXaHEZ6EiaeNeZs0yo nJCfpSgGqryhLXbblQn/A4XYBq4= "]]}, { Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV13k8lN0XAHDMzDNIwqhUFJKQFpRUzLmRpIRSWcu+RS8vSkmyZk1FUiJj qZSdecraK1uyhGxFIUskypKd/O7vr/l8PzOfO/ece+45zyNh5XLalouDg+MY JwfH/z8TfKwIBZvrzCzEytneQqo+MRk9aChuDLqldXFnz7sxP58McxMXd4SF u089qOejmIr7G1N4P7mBELfqQmBaKtNTy5ifJn4N7tXIbf1klscsMey/umJ/ E9JV/u7myC1hcrJfTSx1+IN070sxs7RKplTJovTCYhDQFVde/BWrZx6tRGaz W0Jhu/30Sp7ZR6ZDfdC9PxoR4PNgkv+YWgczvLW2esL+DpSEz14ozfnCNPxF 95nVvAc+rTZtIabfmA5uL0VmOqJArf1alUTaAPPajE7+H8f78Iqvv0iGOcwM 8/p9cmoxBk62pffEi40yM/33BoxveQSSOsuBNmaTzDdEh9jv3DiQuEcNhqI/ zKawawVjGvGQcO3IlkbVWeZk1JuxEftEOBzanceTs8T0D99T+cebBaaiaxzz WSvMsAY/wT+aSVBaGRVDN+WE+FNSGZMdyXBMWX/a+TkVUqMvz0+wUoA7+0D2 VkcCMtuqj044psLb94GDCmrc8MbY8dvvxadwcuklv4EoH3yzzFo3tuUF2O0e Tz9pKgQjKSvWo8MvYC6bDPcNYsDkoH7uz9yXMNh0+8DXAmGgXpw6MaKRAX0c bd1Ch9aDtJuK35B9NvSPd0zZZYqCSOcRe3eRHNivpDbbI74ZRK+PrZ7yzgHZ nQt6vglbQKqUaTqpmQtwSefDRmMJUD78bXq8Iw+kV/27l50qBQf7QuNdVfPB KmTfDHfANmAGKGqMs/KBslGw77etNGhVBdz97ciGiMAQa/cDMmCkLb3j1yIJ O/SOcJ1YLw/XTzlZ/NxSCPW6h5yphorwN0B5Q09EITQt79p7YFYRfF9xfvw4 Xwi/93Jbb4pTgsBNDzWKWorgaP4Z9aGhvRA5WCkdGlwCo3/L5mJT9gPr2uYx 6d//wZYm54uKj9VAsP3P6dW7ykBKOld8ux0TTruY7A62KYMf829Fq5UA2pK2 DXs1l0HJByaXnxOCTqLE2Cr9LXC5hj4hN6tDf9OwqoJ5BZyS3rl1qFITpC7q bkiPqQCO7+q5T+Eo2FHY01L1FUCrD/d4XXwUhvfdzBI5UAkKzglCra+1YDRu rTgHowqqX7b1jP2nDTM26pTG6mp4bHVbJnCNLvDMP37vvKsWiLzHUzFtBqAS /NnruGUtPJTuiA+RPAMOa9fLy9yvhZyPq1b4XM9AtUJUZP98LVz3tUmt5TsL gRdDDEyq6kDOxcp2/clzwPHF46uWWQPEXd4+MDhsBNd7nl0V1GwCjer6kZqI CxD1TPOU74UmcCvyOlP/8wK8vDQg+9uzCUb3/Bq8cMIcOhcluupfNoHx8Ygo EcICVEQS1EIEmkFfvfedRq0FzOhHc610NYOCq9jbKXMr+Lf8ZsSoWwsc+OS/ 26bMFuYE72d2hbeA4WiVxdNZW/CxTPtQm9oC/Qup32R320EER7PAi/YWMCKv Jy49sYM0pmSM7cFWOPpA9Ok7P3voLapM6OZsg0XTne7DBo6gn8+T3XS3HSYM ZrpnZC/BrtToZnbWZwh9txOEGtxA+OGe2bL3n8HDJ4E2MeUGi+ENog0Dn+Hx hQyN6Y3uUONOdxjc2AkHad+XLjm6g5XG9b9rgzth9ISp2hZuD4jps9rhad4F WUkryZ46l2FJXDHogMBX6Futeil/3BMGdR1Ee1R6YaW30awl9QYIVztL+Wj2 AvdyzO3A5hugrvavvNjpXuB72t1p8PcGsHZ4qZo69cJS+NUkHSMfMOOOMOtI 6IWSkp6ip6tvwse32fGNXN9gLivRY4bpC2/2zoqW1X8Dg9olEfUiP4jdeEss yaIf7gnUZ7C7AuGAW0E2pf47bOsRrQk2i4CKjsf6LttHIEj9k07Q8ShQiPjL FNEeAzkFSdt2tweg9f1gzx7DcdD7HZXWpvYYhna+0vwzOgEb0naLj48kwvWl UKUSrynYeY6uYqafDHTBYcczctNw01DrpdNQKtAaaFqrSmegRXxAbOXUc1j8 kOkc9e8caGiobBIYegGDhlkbNm9egLvOcfUe5zPgcMg/l2oyF+Hp+rYHivey IOZvAY+G+TJs8qgQPOOYg/tghc6Xqb/g7CKyh22dC3xlO0Ylz3Kg6vmbdtym eWC7L3naWJ4TXdZq7vqhmA+ePldPi09zIhfFlyFaffkgM+rNFzzHiWJkWqyI wXz4ZOxXPbbIieKU3x+rGMoHlX1hB4u5uJDgMEt5/1g+zP18LHlOgAsp5RTf oc/lg5fxf5PhO7hQ2SHDIe3VbPDZS0TPWnIhxeCB6tPKbAgaiW758IEL/bt8 aNTanw2BHYO1i81c6H2XGf+NQOzK/eUybVyI4R/idP8WG/yfdOX4d3Eh3xtq 7aVheL3TWyOVh7mQZXWf/WIUG64U5R17wklB8eseG0iksMEhrLn00l4KEh64 vHl9ORvsPbeScfsp6G3k5ROzFWyws7mc8e4gBbXq7M1qq2KDDXPDY4nDFPRg k6Xw7fdssJy0uNp2koJWP8w0/97EBhOTcUU1ewqK7Vzbpt7DBh25NWl8cRR0 zj/FIXmBDcY1LmmyCRQ0USFbg5bw+nZNaUdZFBScXer0dZkNvsn3Xvg+o6DE 4kIfQU4S2BuF0//kUZDeTFWzDZ0E0VUbsr7UURDR77upgEHC6E9JdsYyBRko eNQJ7CBhPjSA/Z6DilY1PQ7zlCeBkBlgf6dQUTqjJ/zLThLEbZ6S4rxUFP8l 6kzSHhLOfNn++v46KqoSKVleq0xCSb18kfduKqLIpqelIxJuZyqX6VhSkblr Ego5Q4K0hYxlpg0VHX9k+KnpLAlvhDZy8TtQUQOdtFpvSMK457JG4z9UFP7M Ve+JMV5fvfLdKW8qsuU0CI2+gPffcarxXCwVGUuyAjY5kECGari+jqOiTRHr jmk4kqCruk9Q5AkVib99uOJwkQTfJBGDz6lUVPZ6RCvLmYQBp5520zwqOrKO DuL/kpDBcanbooGK1I1qPiZdI0Ez/8LNt01UlCI82pDmRUK3rb64ZCsVqUgt lWReJ0GgTsmqv5OKsiTkPHNvkOARszBoO0xFry+3n2f5kXBILmTsIoWGnttX EaKhJNQapCx5HKAhyj9n3cIfkJAX1Nf5WJWGIjc5TGnEkhD3WqKwHGhIILQj awH74ibWZYGjNORooNJm9YgEnv74X+mnaUhugOgXiyfhmNuD3j4nGrK+KSUK SSTsSW17w+NCQ/ZgrN+FLdIunLDHjYbQg7dll5NJGDoQbexzlYYMKrLOPU0h 4Rbn3Y8bgmgoRzvO5PdTEqruhlbqP6Ghf+3qe3e9xPkor0n2TKKhRSfJ4Szs +3/ofk9SaUjtSOfOnekk2BjdUht9SUO5FcRlqQwSqOIBr4Jf05AuX+jMciau p1Pl97OKsM9LTLtkkdAawOneVkpD9zpOK/Vipwzd3L21koZsD291Kc4mQT3b O+1NEw017l8YNsslQe5b8a3BFhpK+/B5uAxbiLFow9dBQ5+FEmW35pHQd+Wa hMlXGhqQCP6nD9uPeSVu+gcNHRaJ5dVhk+DgSl4VHaOhmXCndcnY+sl/zmmM 09D6rcE2M9jihDvj3gwNuSYdr3lEklDW4BIhTyEQW2Vtft0rEvYKo1WxBIGC NVobNrwmIc1EIIyTl0A1XaXdtth3hnKC2wUI5NRHDMxic+3yIw4LE8jVr++T WgEJVzxOBaWvJ1AL/7dKP+wLnJP+vpsJ9Fn2SAClkISPWuWcPyUINO8oc+4w 9tHIKN+z2wi0YXmXxA3snZuUfOTkCSR68jnrF/bSXo9rrQcIFK3ipVNYRILr 9SNzTDUCmT1PGfqOPfBW2PMFItBFfsoNoWIS6nRJDx8t/H/vL8daYzNjgqaG j2MrMsRCsfO6zroZ6BKIo3QhIQM7zmHGReYsgeQF30aNYfNnV/+KMiLQiPFO +qoSEvynH1xaNsXxlP31lMaeOWQ/am9OoB/CNwYB+6L/fqePVgTyvDeuZ4jd XUMfUbUj0K+vSa+dsU+v+eTw3JFAKas7RX2xq8+mDQleItCrxL6b97APxF+1 83YlUJUP7RsLO6Pv2OB3dwK1ctxGWdjishtsTnkSiG+o4kkh9n2XH33FXgSK Oj+9WI7N/arQUtqHQLqLzka12N5Lob13/QhU+fYKuxF7XN3EfDGQQG2i5gIt 2Dahct22IQR61Ofm3Ir9qXHBrCmcQHIGKzX//15nXV3XwTsEchE5Ld2MXWb2 2ORpFI5XszCwHntvitPnNQ8IFGkUMFCF/fzHISOvRwTyVl7RLMXeuIevYyCe QOO7vF/kYUde+XJWj0Wg/nntNc+wuUozWgtTcP4LCjxjsa9QbhhIPSeQ9aRI /y3sEe2THyNfEuhcXPEpD+wLd8VOzWcSSI1nssIc+2P7WKN1LoH0OfgPamNr ir3R/cAmkHOaJXsPdoF1ZINKAYG67oHSOmz5lxd0UooJpMxeeDWPz1d4/4r2 1XIC9QSe+1CEHXKjsaavikAVUolWD7GXKhK1Tr7H+ewVXnbH7tdHmpJNBEqc 6tLchn0uVqAyooVAs/98+rOA66/2a6/6bDuBsnSM0j9g5130Q/Vf8Xotqntc sfdaWdRIfyOQxF3rX0zsV8ag7zdAoPtB8e9WYRceWzZX/kmgCHp0fSKu9zLp azdZczi/B2pkc/H9Ud9sRF9cJJA/B/u9K3bF2v13zq4QqF7LMHgXdjV1+gkv QUdZ7WLnU/F9bOhzfePBoCOGt4L3NXyfdTv1jjauo6OCo+cZcthNzbs+yG6k I67PS7Wf8P1vLRv92i1OR2b7l+L3YHc+cVg+touOGqqa297nkzBsYqEqpk1H k0qZI8k5uN5PQ6WnDh0dy0jK34c9qr1Z56MeHS3NVSVX4372W+WLafA5Osrc vmG6D/e7mXVG1yes6Ug70sSDhvsjpUWvqMqHjh6VjyhMppEQWLtLXdyfjmZi l8LssYny1bVeQXQ08uaUQNdzEnhz6z7vjqCjmNBzSSXP8Py5ozX/6BEdpUk3 DTmmkrD5BKj8w6YjmYAq80uJJPx667Qc+Rrvx/8apfkJCf+pPCzPLqKjjQqN a5WwLaQndCbK6GiXGhk8iedJMmeKpUcDHenPNb24EEfC9gIi3Os7HRXq7VMa vY/ny7YPX2+JcKO5eMfq7hASOOIXkp9v4kYyEYeHBbCbhbY71GzmRjWunQGH g0lw4/Cd5NnGjYqOlcs+CcLzuUuBfluBG418jj+o6U/CwaiYPdHHuZHOZG35 cTxPNVbMAhK9uVGPUh2vMp7PrLCNPyi+3IgxZvVI0gnX49pPug4B+Pc/FJ1W 43n+St5go0IYN6JMenZ+tSdBxkQ7tzyWG3GOhU87WpPAR+7rGczjRrOSbpG7 TfD5XuQ/JP+DG93jOtjtfhTHM1PHujuK93OD2SiriZ9P/EKJ6d/c6Jd/H6Nb A/fjh9SPpTPcSLlwe9zhw/g+VS046FF50NhI2Is/h0iIFx964LaFB7lsfn5i lQLuJ+3/TRac5UGLbU8d/27A5/OtNqbfiAcly44ZPRIhofhnmwq/GQ/Sdxbs U1yP5xnnqI+1FQ868re8wlIYn88OkVX8LjzoPn7vyeLH/cPPdat1CA+q86y4 QVBwfndInFldzIMO6jUYZo+wgennT1qK8yJ1edMozldsmFWNt/Teyov6OAhb PTYbcubI1bHSvMhCilx6nMeGra4/bOvleVGaypK3QjYbuM311+0/wIsuh+z/ cDKNDS2qmz35TvMiqY51ojpx+Hl2rlDldQAvqg1WzLW6wYYol4liviFeJMgZ 7CWE2NDn+/R74ptV6NftEU3ujHz4aVtoUx7Mh76w+a5pCObD+CUheoPlatQ5 kJLw1TgPsrTrlux28qOCC6qjJ5Jz4bvDHmXKND9qrmIszgzkwMb0zujghjXo 1XtGot+aHAiwcEtuOCGAnltd3JYXlAWzSxtunygUQJrnM+q/l2eATHHso1op QWT93JKwoKXDPusqPcFQQaTx8ldeqd0LKItfK1I/LYja/U4cqn7xHGTK1obp mgqhd/J9x1MFn8FJ2qjYxzdCyDOBplgflgrjXQMV7+UYKPGtW4jX72Rwib/N CL3DQCnbhzZ53UiCek6p38fvMZCue0iWtGcSyNkX1fJFM9BMWoZjq2sSDCgM +d19wEDJBdqmSjZJYPQOjccmMFDBDn2VleNJoD45Vf8snYGmrLsPNYokwbpj Jrcq3zFQ39c31gYkC9wzxy1vvWeguPO/v2zLZkGTULDasToGYkpui5hPY0H4 1/w/dR8YSKtYMTI1ngUc7qutW9oYiNhcuoMnkAUjCWXQ189Ag+2nJVcbsECL YrgpdZCBot8JyE3psCDVYWzGdgjHV/bjUudRFpgrbcz6McJAhp1W6RkHWdBa 4y46McFAZxKj6RaSLFDYxTuXN4Xjaddd0BNlQWQ0q8VjmoG6v9DkD69jgfaF hrC5OQY6cKXx5HZeFjyrsLYrWmCgNdQYpiiVBVTZhcPeSww0kXG1R2opESwj 74ox/zLQloxDFYzxRHgzJT2/ssJAFfOSsrSBRPgfLoilnQ== "]]}, { Directive[ Opacity[1.], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1nk8VdsXAHBc91wk09UkQnlIKopC3LWRUOqh9EwNZEqJh2coyZDMQ8ZC UsiQ4Z4oUTyZkqEM4SESIZlnQn7799f5fD+fffY5e6+119rilo6G1mwsLCw6 rCws/38+8rYk5K1uMU48qEj83kKqppiOq/wlZgJpB78qwroDo+t0iLOY2FUw 5vtMlq6FMw4d/ZTG9Z8zFG+Z7eHpS2W4a5vwUMU8QevLW0PntTzG278GPTZs 78B1AR7WfQ7FDNaiVzNrnX5wNn/Ce6K3giHxdlXy12oAGIlbm+9ZqGWcqEbm S6LBoLoRmKe41sSwawy4P68ZBm7Ld23vr7QyQj/X187YRkKJwBfn+eudjL8m ad5LWvdBalJ1SsP4C8POOWf7Ymc08KDYnrLefobnol7h/NVYiCyKrz7TMMgI uTl1em41DlT3zvu3zQ8z8vwU/KdFH8I8UyTg5eoEo5zoFJkiE6GO2X4/aHya 0Rzi+XpCMxlaBjdlH1iZZcxGl0/8tH0MYmwK/1pcX2L4hcpVz3ulQqxbZtFE 6wojpMmXf17rCThkbP7q+NcaI9lAIne28yl873VRlullgfSYf1ZmUtNA/KJv k6keG+S1156YuZoOdv4FKgH1FCg3ufptajUDGn+RSrVzBHyzyN86IZoNZlXN eydXNsPPtI0r4z+yIdqzlTrYzwuzQ/rkGJkDb07Z6NiO8QG7/dypn5q5IDEr M1m1JACSzkq+I7YF0Ceb0aJivw22dx+3ddnOhEkdP4Xgh9tB+NbE5jkvJghd Uv2p37wDJMoYZrNaJBRfGJA5dU4Yjqh/W5jufAE90/1nZ7rFQGUgONlJtRCq nNRzPKPEgeF/SHM6tRCOCfA4lenuBu0a/6ipq0XwS8Mm2e39HjDWldw3ufoS RFk+BOVMScItg2uXx0RLYIs094XJ2f3w2//Ijq9hJbDnb5P50OUD4POKtbV1 pQT6dPJtjrPKwd2dDzRL20rBJo0j6hO/PEQMVUsGB74F9WJBys7ThyHVc9eE 5NS/QOc56HBFVgn4O+YNNx+oAL9Wj5EdrUpg6Gh6MNCqAtpCAlzXPZWh/ckf P262VMD+26E8p5pVoJt4a2L5/B3QQ/y2rsarwWDzD1X5S1Ww6DocrV6rDhL2 Z3Y8j6sCbffgVU8ZDbChFC1INFZBu4GL6ftIDfiheCd/u3I1aNxZDU29oAnj iVvEWOg1EDd5K02X0IJFKw3Kp9pamCtl7TYP1QHOlaQP1w/Ug09Pa8dneX1Q Cuy6edKiHuo2+ZdmOemD3ZZtstKx9bD7QtzDuQJ9qJWPjhhcqYe1fPfNkwcN 4K590FnTmgaQ69ov6qpoCCxfXHu1zZtgJpVLsvj8Obj19ZkHv1YzDB2RHUif MYboZ1oGPhebwYc+3qsEJpDj8H3vlHszZGS6vFUPN4HuVfGexpxmsJD36yRl TEFp+yO1IL4WGPlH3p3zmhks6sewbfS0gD2vY2QA60X4u/JO2LhzG7DJaUZG V1rAMn9sXk9oG8S6x/EypyzA2yLrY316G9yKcg1gF7GEMJYWvuyONqALO0gb elhCFmN3nLXKZ2jKTpG8I38F+kurH/WxtsM1pPdqa74V6BdyFjRHdYCf1Ib8 1CdbOJAe01KU3wWPt6lYvyq8AYIP5JYqPnSBoZrrzMG5G7Aa2iTc9L0Lqr6+ yR0+5Ah1LjS7IaFuiIrXvL6p0BEsNW/93hLYDS7bFLZtN3OCuAHLfe6XeiCC S7dy7MrfsCZ2KECZrxd6zmYo8oW5wNAZO+GvSv1wXU2AGyl4gGDtdQlvrX4I 23ArKzP2AA21v2VFDPuhLuEz+7nbHpC676aq2bV+gKQHh+trPcCcI8y881E/ jAqO7P5i6gmt7wqSP7F9g2dbZ6oiAm9CucKScEXjNxj7vKtlZtYLEoTuiTy5 PAiFj8pXu2i+oOz8uoDSOAxq++UqDkkHQlVnkr6j1E8Y1e48eq8vHOTDfjO2 607ATKbDhNa5aNAeVvkq99c0PM9WKhRmxMPI/lda8+MzwBqTth7Cmwi31oIP v705B7+r1+14fzwCGv+Pq+dkFiCTj+uZPf8ToDZRtTeVLQJj0MToFlcarH7M ux799zLcffr0tppkBgz9lb9j165fIP7R6MS8dCaoB91wqMtbhcnYcnVYyIK4 3685NS+tg9Zv0diyxhwwE67S+zL3G1Tv8QolWucCd8W+8d1GLMjF8tim2yt5 YK34dMFElhWF7/sgTTUtAHdvD0OxBVbEt54lfEiVCdLjXtyBy6woUpO67shg wn8mvrUTq6zI+ury8VzEBCXFEJU3bGyo97QDl5gWE5bHknaf52NDX+Llrsyf ZsJNk39nQ/exId+uKC79S0zwViBilizYkOipjWMtPkwI+BnT9vEjG5LSb1gf L2fC3c6h+tUWNkSZpkemVWBXH62UbmdDqYMB+caVTPBL6WH69bChvPYTCeU1 eD7DPRFHfrAhqtbSJs9GJriVvtBJYaWgRHVWi6wuJtiFtJQ5KFDQXdbhyqlZ Jti673mZeJSC5s+XtbrPM8HG6p/c9yoUZCdw7frvBSZYMXYkiatT0Hpvuypt hQkWs5c92k9TULZj8xnaBhNMTacPqdlSkNd4vug7LhL0ZHizuBMpqOen/Ach cRJM6hyz9j6ioMC4ql0Ou0mwsWnOOpFKQZ17ujnL95Dg8/R+ts8zCjIk9VPN JEkoEhJ8Pv+CgmoXIhsD9pEgvGlH/pcGCipMfy0Yr0jC+Njuotx1ChLpiCGe 6ZCwEuxf9IGFHXVPTU7X65JASH8vGqawo6hTSo6TJ0kQs8p4KcbFjj5R3aXk T5Nw7otUcexWdnS9pTcgw4CEt42ypV4H2ZEoTXBB15SE8LwjFXoW7Cjk7ms/ X3sSJC9LW+RZsaOIm/s/hl8joVxAiI3Hjh1d6mZef3CdhGn3dc1PN7Brx55m 3cDza1S/N/BiR4l6gfNFzvj/Ow0+nU9gR9aVenK3b5LwMljTqTiRHRWbBuXf uEXCGVVF/u0p7EjPScLnohfejyfbz3als6Pdvqkiyt4kfL/2tcPsBTu6cL5A o9uXhFwWh77LTewo98hzRmMQCVqFF++8a2ZH8Ufrlp4Gk9BnrS+2+zM7muBc Z/cIIYGv4bDlYDc7Opk5ulMkjATXuF9D1j/Y0YJogNrZSBKOyQRN2FOoaLj6 7UXHOBLqz6atuSpTkZvH1gzbVBJeBAx0J6lS0b3l0pO/sROLxUsqgYoaC3/d jnlCgv3O1H/4TlBRSV1aeMlTEjgHkyefG1LR/lr6ufl0EnSc4/sHrlGRpzg9 WiKbBLn09nJORzzf6BnhdOztHYKP5JypSOjCM8XdOSSMKMeYeHtQkd1hga1C z0m4xxrVuiMAz5fZGrWcS0JNVHC1fgoVHXoSeM+Jifejsu6p+xMqOv/+Jm8X duw8zTclnYo+WhnsRSQJVsb31MZzqEggQYKP6wUJ7GL+rwKLqUiV3pYXVojz yaAyNr+Uio4e1383iv3Zn9WlvYyKLMQLbLSKSEgbuXNwTzUVFYrF2y5jaxR4 ZZU3U9GJza+0Tr8iQebbm3tDbVT0OXZsLAVbgL5qxd1JRYI6An9MYQ+4eYqb 9lIRP2eFfmgxCb4Mt8SFUSoSqQm4/+I1CXZOLz2EJ6ioLHFf2zK2/tP585rT VJSmOJilVoLzl3Ch31+kIjF+Ef4q7IomxzBZCoECPL7+97aUBAVBtCmBINDH T/4pa9hZpnwhrFwEMm4TLFV5Q0LkCDOwg49AWv01cyQ22wFfQl2QQMf0TwmM Ybu5GgQ830YgI+WgwN1vSbjIOuvns4tAMopLbmHYrdqVrGPiBIoOvT9Tjn0i ItrH6A8CyQ4UVk1h79952FtGlkC1rNaOemUkrCm4en5WJpA3i/nPGWynW8eX GWoE2ty8VWpbOc7nd4Lu2YhAxKtNZSrYDWdeunprE0jN13/BC5sRFzD34ySB /CTcHyRhv+gxcj57hkDzJvfiXmMn2i06ShsRqLnpS8oENk9B7WS0MYEWYhKe U/8lwW8h3mHdjEBWq+fowtiLx2zHbS8RqCbjzw45bHu/o9daLQm0P7xyXhO7 r472U9WGQGuU0RtG2Ia8/9llXiVQXtHv49bYtUZZI/wOBCp5Au4u2MrJHjZe TgSy/uMH1Qc7d0BnaNiFQCkzCjMh2GJ7d1gZuBOonfeKcix2rOPowJubOD79 BX1J2ByvSiwkvQl0W9jk2xNsr7Xg/ihfAg20JKs/w57WML20epdArTYlG1nY VsEyfdZBBOpLmNiZg/3fp1/mzaEEkvTwiM/G1tva0KMSSaC9fz90zMSuME8y zYgmULpGVGYatkLatS7eeAJdY3vESMHOHD1mfPMhgeSEWRQTsIXkuDu/JxPI 0+BXSAR2hNsXoz9TCaRf0ojuYrOV5X4uSSOQasXr8x7YbpTbZyUyCcQpzdJk j/1T93RrRA6BYmhDaWbYF6NEDFbyCFRcn91zEru1Y+LTFZJA2w7dd1XC1hIp P/OxiEBLhn03JLBfX4loUnpN4CT+XM+DLZtzUS/tDY7f2+KgJRxfwaMbuh6V BHLQNtpXjR10+1PdQA2BGE0P+LKw16oea5/+gNfj2mMcgj2oj7R2NxPowLoL /ST2+QS+6rA2AiklGd2Twq7v7ddY6sDfaz19gfL//LL3RY29BLIVeKT0Cuer guXlOslvBGrcXswSgf3KBPR9v+PxH76qWmGX6KxfOjJGoEuNDgLc2BWSnndS lwkkHsCqoovPg8YuY9rqKs6fUXqOIHbVlqORRhsEGl+8ENWHz1st+0IKF0FD thKFFQ7YTQNO5a50GvqnU/q1Jz6/Z7r/PPFpKw0Vepd9U8Jubjnwca8QDXHH 1fgv4vP/uWK8t0+Mhrxdzx5ywO5OsVvXOUBDir0O6jq4fvwwvawqoktDIzsb 7V6+xPluCNXuejT0WNJI1Rx7XHeXXuufNPRehyWcFXtK6YtZ4Hka+mk6+0wb 17fFrca3Zq7QkOFSQ807XC8pbX+W1njTUF7ujXmHAhLu1h/QEPOjIZfrM+Vr +bjfVm6uvxlAQ1/0wzaFYHORDV0Hw2hoKNJANjUP959I7ZWHD2lofpdQXCmu 57tOgdKNIhpScrurl5VJwuS7a+sRxXj9NWFPpLH/VXpQWVBKQ6MNvfmZz0i4 LDmjN1NBQ/yzTnNPMkh4yppm4dqE/1+JJhuYRoLUayL05jANjbPPPRB8jPvL Hx97723nQB3K783UcD9jSf71NHMnB5JuyDgeF0tCi4CUXd0uDvS479vkWAwJ ziw+s5x/cCDnR0+C4qJxf+6Rp4XLc6BffDFdXbg/qkTHycWc5EA/ppwUpHA/ 1dww93/shccvz0x33CYhNURolOLDgS6rrnMt4v69tuW/M3b+HGjuj68ldOxX smeF5EM40PRYTedJ3P+lTXXJygQO5CYRIJrlRgL3S8WvQy84UFZ7sYqoI46v Pc8x2VEOtGHBEcp2Ca9nsSE1apwD+e/at3nhAr6f+AYTC1Mc6J9DwfLD5rge P2BvLVvkQFKXX1hW4/vL65pfdn+ycyL9S9+cnc6TkCw2Eu8syomGep/kBuL7 j1XHv7OvjTjRJmrO45cqOD7f6uMGjTmRgcs7wWhlEt6MtSvxmHOihGUHawcl 3M9Yx72vWHKiqmW2JLEjOD77tm/iceRE2f+EW3jK4/rh67TnShAnuuMjwpyX wvu7T/zc5jecaDCe9ktQENdzX7+XFmJcaOrRr0H+USYsqSZbeO3hQv4fJiwL RpjAXH65OUGSCzXJveg/NcyEPU6j1o2yXGgeDnf7DjKB45L+1qPKXOhi45tP 33qZ0Ka6y53bkAtpc1sJObfi++xyiVKxPxc63LjU11HKhGjHmTfcI1wI6V9Y qg1iwoBPxvDj8k3o1hxxZISXCWPWJVaVgdxITnTnBP+eAph2EKA1WWxG6u7O 4nFLeZCv27Bms58H7RkxrmhuyIVhO7kjlAUeJGU6ppcW/xyEnnfHBDbxoi5l yyZelRzwv+z8tOkUH7ocwyveM5YFS2s7wk+V8KFnK9PMuluZIP0m4WG9BD/6 tHjfjML3DBSv1PzJH8yP7P07GO5l6VCRvGV74wI/ss3+PSZpmAbSFVtCzpgJ oHWJpNpR9qdwmjou0lougMSVQvTra1Jhuud71QcZOsoIVzs+PJYCjsnh9OBI Ooq4rebGjEyGRlaJqZP36eiyQNWsWUAyyNiW1nPH0NGwqNdZzlvJ8F1+xDcq no7Cs9yrr9okg/F7NJ3wiI7k2uY81NWSQWN2rvHZczoaKw9t1BtLgq06pveq 39ORe37daqdOErjkTVvc+0BHMm13zd8xkqBZIFBNp4GOWEb9i3MVkiC0t3C+ 4SMdfazruRgslgQsLpuvtLXTUez0v3dNlxPh56MKGBiko8KDdiXmWYmgTflr Z/oQdttHTpuUREi3m1i0HqEjiordxb9jE+HSYaH80Z/4/d3xWyN8EuFznYvw zAwdaZy0b/tqnAjyB7iWX8zR0X8/loxWziRCRExqm+sCHXE6XfsmqJUIuheb QpaX6ej4af0thvKJ8Kzqik3pLzpa+DFU7iKVCOx7f6l7rdHRyHK2S4JIIlhE RIkwftPRco+sQhk9EcrnJFc2NugoSPU3yxBnIvwPodursQ== "]]}}}, { 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["\"fso (\\!\\(\\*SqrtBox[\\(eV\\)]\\))\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Dashing[{Small, Small}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"l=0, j=\\!\\(\\*FractionBox[\\(1\\), \\(2\\)]\\)\"", "\"l=1, j=\\!\\(\\*FractionBox[\\(1\\), \\(2\\)]\\)\"", "\"l=1, j=\\!\\(\\*FractionBox[\\(3\\), \\(2\\)]\\)\"", "\"l=2, j=\\!\\(\\*FractionBox[\\(3\\), \\(2\\)]\\)\"", "\"l=2, j=\\!\\(\\*FractionBox[\\(5\\), \\(2\\)]\\)\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 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[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", 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[{"Opacity", "[", "1.`", "]"}], ",", 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[{"Opacity", "[", "1.`", "]"}], ",", 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[{"Opacity", "[", "1.`", "]"}], ",", 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[{"Opacity", "[", "1.`", "]"}], ",", 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[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.618569436859356*^9, 3.6185694736603465`*^9}, 3.618572563433216*^9, 3.619317932738641*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"spin", " ", "orbit", " ", "pseudopotential"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vso", "[", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmaxso"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}]}], RowBox[{"l", "+", FractionBox["1", "2"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"mj", "=", RowBox[{"-", "j"}]}], "j"], RowBox[{ RowBox[{"Conjugate", "[", RowBox[{"aso", "[", RowBox[{"l", ",", "j", ",", "mj", ",", FractionBox["1", "2"], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], ",", "kx", ",", "ky", ",", "kz"}], "]"}], "]"}], "*", RowBox[{"aso", "[", RowBox[{"l", ",", "j", ",", "mj", ",", FractionBox["1", "2"], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"rb", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], ",", "kx", ",", "ky", ",", "kz"}], "]"}]}]}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.6185707293904195`*^9, 3.618570811260537*^9}, { 3.6185710704023733`*^9, 3.6185710778092003`*^9}, {3.6185711230334992`*^9, 3.6185711284090366`*^9}, 3.6193179404741535`*^9, {3.6195007516479816`*^9, 3.6195007579804764`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Vso", "[", RowBox[{"kx", ",", "0", ",", "0"}], "]"}], "*", "27.211"}], ",", RowBox[{"{", RowBox[{"kx", ",", "0", ",", "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"}]}], "]"}]], "Input", CellChangeTimes->{{3.618570819980394*^9, 3.6185709025687943`*^9}, 3.6185727714542284`*^9, 3.618572857369499*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVlWk8lXkDhg0VUU1RylKypJRtLI0M/9to0XaUJdEiSyS0eIsi2xHaRMca ziMSYtSx07FmL2SP7Hsx8kyFUYrp/XD/rm/X7/p2S9tcMrbj5eHhoX7u/zxo 96G5bPwY4T9SN7yh0FHn/XMzm34xDQwdGTiz1VueiAq1B2eL7cH6hWCjKq99 5EWJt/M1eUPEW/XCgmFBlHetTaLETHG43Nwq3Mue8IiMhy1KWYDrt+vo2lAX 0jxZ7Gctb4mDHcL5Ggx3YmT7qsA60hpZS9l567SYRLtJPSNU7CyqlE8QT69A Iqsbl1LBtsc3w5C5BrcgsiJN4NG01HncOjTmujSURaZFr0RuSXSCrG9OSLR+ BOm92XvfTP4iRJLLGLKMaGI7l1heYXoZm3k9cx5nUqRD2YKcinTBDcvTI0Ja CaQstkLzvthV6GT53nLxSiYaLdczt5x0xRnBo8ls21SSKqCsVMJ2g0n7tZRy t3QS6vpQjpZyh0/Obs4iK5MsS2fE37L2wNyvwyuFzmQTjyFeyc2JN/ApdOlo mH4usT1yQcRI3huMSe2lmxgvSGeATMj4OR+YLpQYS10tJPJ9TktfmvpiOeep dFxmMYlZK820iGRiPKVRXlDrJbnJvHf9rpg/Wg1Y4S5e1aRE0j7PjOuPR9Xr 7T9M1JC5fL1pmZMBUG3254uzfUWcp2YuFbIDkaAd9bTKrZ6YnrQ6Nyl1B52y X+34QptJ8Kx2UkHZHShXHRPluraQWta6YX/ru7BfWqe++kwr0a19bbkx8R7a r/JzY/TbibymppmhfDBeBJ1Yo8B4R6yafg0XrwmGpM2wQffpLhLrNNE8di4E DEpzWvFqNxFobkwuNX2AqeVLsp9n9hJP/gAZ80gWDgdKz67TGiRnr9Jid8TC cdY5Q+eW1xhR5wv1yLocDmdJkQ5d/feEN1Sju7smHCFnLe30BT+QRxx3trJb BOItiqw1n4yTrgk+qbaWSNR9Gp4tX5wkR6w3yEkFRcPj1NOqku2fyaZ/uP77 h6PRlGX65U7KZzLpfXrURTsGJoP8ct+3fCF32Y+TKz/EYMUyYVb71mlS2aGo 4LiXDVHm+vRTmCXahn8q5y7Eob52xqeo+BsR6B0O7jv2CHf/p68yZzpPOpwC af5njxC16fVk18d5wq20M3+mFI8lGx5HRMj9IOZDaWI8PfEIWcHK6U9aJKEb NdlJWo/hXZlED9/ghUD4gYR/Pj2Bk5Gn0DVnAcxrDc4niCfBUZkvoahOAFO9 181MdidB8d3X59wdy9G69alQXngSdhq81xz4uBxxhcvcbvyeDPEHlfNNHkLQ GK44uMwrBZeK8fpA/ipYqZFpCYE0hJ3f/o7RKwyTjnbDBtU08IqZxV7fIIJ9 nhdSvS3SUOD6Z8KiiQh2VLMtB9PSoKRl6y5TL4JZi/naZMZfgJeuTWHZWgQx C6jfwtLBvjptrF0oivwmNQODTRxU5TakXZwRR/D45H7FfRzkMn19SrQlYM+b cnDNRQ66xXYInfOVgKiGhGF3MQfCxeH7y1dIorCOmZavnIFiHsGzCQobIaHi mHnoTQb65jStea9KoWtGu/TKyiwcH/7Y8nSLDPbxbtCzl85CpKqKew9DBlmr ZsrMNbNAK8776LjJ4O5WTrnu6SxMXBvkMGtkoG0hW83/LAush7nUZmdZRBcJ NcQezsZiyJ3OjGI5mN/s6aq4lwMHIb6Vkn5bsXpAXvFcQg70BzTelmRvxSsd Fy/B/ByMpyv1RYxuhfbs0s1GQzngn7v818CBbZA4r2LXp5WLDKWd+uNrFdBn 6EfPjebCxOZodHXOdpwV37ZEWS8fCXvaSrMllHEp84rSw+kXiIo9mqZeoYYp ncHWVwJc1N8vZroOqMG51tBjXpKLvH+Z0m9+qMGhX6HGci8X2adDuRVa6rBa OWC1JZKLXJ4zZmUcdRw9fzg86/dCUNyzRosJGlCV3jJf71GE3zpE9CKiduLz g7e1v/xSinV+X1O21Wij9mV1aaNOOYreWO1/cEcf590PrLSYrERqZYK2m8N+ vFyutph+oQaLjokSVpQhkhMrF8S3vEZGxRKP88Im0BMtfmzyvB4Opj9SLWfN oFTTU1C9vREFzqcstKVPok3PZCp1qglv9tQL/L7MCs6CTi3tqi0wM9/ocJ9p g7rO48WrgluxjSuzOc7eDib7zAdHRtpg0uY3f/yKA3bG3zseL/cWhjn+Ddtu OGFgIazNwacDIuoWzYNzFzF6oDFRtKITksU+PYo7XZAR3e/eLN0FJ1sJ/SaV K0i6zXdHwaMbj7+7HeL84YoZ2xMT9oU9eFmksldQ9xqE9gQaZ67vw/cnK/Lj /d3huXp0xeCpfuTaRjsulNzAipIdPB2MAbSoUzrKy7yh63bkR8W3AaSO7RL4 fNgX7CdBibLsQZyMuHQo8D4Tlsc0GpYfGkKVqrjB7KwfctvtwkpmhyBp6Rm6 3MEfu+ozeMcih7Ew5+m7piEAm/faz4TtGUEt9b7ewPIWNDU0WTljIzga+Khv 5dBt9H++/yoxYBRRnm1hzxzvYlLdKEBMbQx3F/Iu18gEQf5vpYlfWsegwMp/ nf76PirlXFsuM9/DWz52uvxJCELa2m2N5T7g7XbWTHTeA9AmZSzeyg+I+Hoz po3NQtaxdbt3uYzjykj5xm4qFIkNN6kh4Qm4Vpmdig8Pw781p24Il0+g4h1l EJUSjgFW6czqi3+j6/btaa3iCMw2/yHmt2oSzQIS78RqInE5XKbMvWgSTzbU BX6ZisL6BpnVI5YfcWG9dOEBweifP5n+XXLhI/a4eV6uko/B5zMJzj1pUzhW Oln+1SYWpVacgFWHaUhlKv+xjcUGt9H5UJ8hjTXKM2pekWzkke1rnhvRkBZ2 zGmJZSNdMonNOE5jY6uDqU8yGzGdMdlBNjQsry8I9Bey4Xo0cFDQncY/TWn7 CsbY2KF3Wpc/mcbeN1/kWnQoyHPE+Tqe0mg22nVcS5+CzKbO2uS/aJz08BB5 ZEBhw3dj032ZNGR3f1W4aExhWcF+p4AiGrFmOxqFHSgMqmhE87XS2CXs+t01 jEJP3CfL1nYavF9YjSMPKXSu5MgldtJQtGtSNI2j8OZvhQz9PhoCDoUBGqkU ilKkapjjNKrz7mXOl1AoEO0NMpqkcWV6tv1iJYXsgBhjaZoGX1Ck/9ArCmm2 6/rKpml8lvX0rWujkNTSkvjgXxqcpuoGvS4K8X8+OG/17adf9UhSXj8FdgZD RfUHjYXI9fxKoxSipIRmFhd/9p2Q+ZI4QeE/71K6nQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Vspinorbit (eV)\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{Automatic, Automatic}, GridLinesStyle->Dashing[{Small, Small}], Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6185708625949755`*^9, 3.618570903209396*^9, {3.6185710867790327`*^9, 3.618571095905039*^9}, 3.618571134097068*^9, 3.6185727758610315`*^9, 3.618572860073022*^9, 3.619317943924585*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Vl", "[", "kx", "]"}], "*", "27.211"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Vl", "[", "kx", "]"}], "+", RowBox[{"Vnl", "[", RowBox[{"kx", ",", "0", ",", "0"}], "]"}]}], ")"}], "*", "27.211"}], ",", ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Vl", "[", "kx", "]"}], "+", RowBox[{"Vnl", "[", RowBox[{"kx", ",", "0", ",", "0"}], "]"}]}], ")"}], "*", "27.211"}], "+", RowBox[{"Vso", "[", RowBox[{"kx", ",", "0", ",", "0"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"kx", ",", "0", ",", "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[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6185696447921624`*^9, 3.6185698246599483`*^9}, { 3.6185698869650044`*^9, 3.618569927017131*^9}, {3.618569969288701*^9, 3.618569996510739*^9}, {3.6185701159468775`*^9, 3.6185704243700867`*^9}, { 3.6185705238036957`*^9, 3.618570568230799*^9}, {3.618570664445382*^9, 3.618570720576836*^9}, {3.6185711781966486`*^9, 3.6185711888072214`*^9}, { 3.6185712209208775`*^9, 3.618571267849022*^9}, 3.6185724702344084`*^9, { 3.6185731290257435`*^9, 3.618573150683859*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV0ns4lHkbB3CxobAdtrQkp5h95dQ67EZxaytlixqnGuWsesuhrE7UkhnU ICGJaXJojMOEwcMSMbcoVLYcprE5H4vkibCV0vu8f9zX7/r8c1/X7/5+tXxO OR6VlpKSSqbm/+/vR9+04biLtVmUxxLXhwS+Lnb16Vcxg68O4j9dKCsriBMI lZ1Q0PLbByfK9+vCA87THOCZV543nbKRxRr+HRVnYLTItNhTlvph/MY3DQZk SjH07Ci3TdYyvWkeQN+Xz9xBme7bUuWd6g1hlh86t1G2fGFakqziB+zsrZrm lDdaZeQ1cI+BbRbLz4CyokA+c1bjBLTeac3WpjyrHJKqy/OHDDu1rnWUe1m9 11xpQXDl9h9yipR9P/IeNjifhuKODuNv9QRKjBjWR1KDIT5sB32aMt5uML+m cgZ6M90j2imbtV8o1T18Fh6nrYyvp1wgb2RYxz0H9nNDSULKyWfTdEiNUDAY /3T1KmXZQvusK95hoG5lFxZCOWxIWk2TdxFeBbb6uVP23R/4A50WDs6f4nWN KHdFa18fPx4BDEfxwhrKtD7/pfXOl6EoKuDpZySQs0YrkpEaCey4HNcGyqzI uAuxKlHgzlJW30O5Tu3YX67VUaC2QiiiUf5YaTOrfTgacmckbt9RDpiaO1XD jYGcLqnwByICnQ97HZ/UYIPb5ZYLmpQT5i35VcgGlsnX1/N1BDYnrR2O8o6F qKo19GeUrZqfeGzgxUGgo/qqM5Rp5uauDrQEuDA5a1dZS6DXixUpqk0JcP1s Bjua8m3/ibax49dhzCqpwZGyfNvzXJFzIoQlxdImHhB4SS5a+1BqElyQ9RMo UvY7Q6qwVVLg9lq3Ss1qAk1lksPKTqfAqNm43D/3CZRONuvubkqBo8wVtETK mcJQrtG5m7B/NOLp5yoCX03IaHS2pwKrI622vpLA/d4/6mjEp4PpRlMX5QoC 1d9XR+0ZTgfP1cvjasoJnAx3Hw225EAIbEj0pBzLvZvb+IYDbi+D5HMIAhsl Bnond3HBkbuqQr2M6p/DdqOKxQywyNJV7S6m/tM7nNDnkgnneScdAylL/GNI uaJMSD42fXixiMDqxqOHigyzoD/VcViN8qEhgYpUTxYEW7k37b1H9WWDOZe/ 5S7kTNxcGpxH7Uuxy34/nQNej8RnX2UQuLBlcCFblQ8bnz2ZOkB5qveCq9MO PgSb7PZ7fIfAjp/yFf5K4YNtxaldxVwCM2pkz138NRd+a6ofCeZQfR1u+F32 zzz4EHakuvkmlY+J9ex6eQHkr3ozVhFHoJNE7NC6WQClNeY2ipRtLwUWhDME MNt56LZ3LIH6j7kegwIBfLry6uAyNoHzjIXmXPt78C7149S+GALjI6vu/Hyj ELI3/yPKuUxg5QuT3bvVhTAStn5v2hmqT+OTewxshdBqyDTpCCHwmHTe76uC hKApKNVXoqxstt6hu1YIp4wsnMODCax5GimoNCqBPmkOyyWIwPXGJ0v3/l0C V0wkbMlxKt85S1GIUhmUnTAq1Xej7snqedUQVw6/zC8s0dpG4MoBmsHx7HIw Oz8eqLiVwJZtwX8urywHOSa/fd6Cym9+qSZ9qBzmZDuuNP9K7T9hfLRvSwXk S5QFnqYE9jkwyY+jFfDkS9E6901UH1X/852RTSWk/hRCpq4j8FRpiGHa7H3w 6H6kokqW4Uziy+YlS0SgcPVRDye9DJvrH4ueb3sI+x2v7uIbl+GJUDslxmQj vF+t5CmuKcX6ZSbfCgObYOnFWwovbUsxl9e4qKr7BHRCpT1HRSVoo1x716n4 GbiaPXIZ3lqChk09VY83PYdKi1pZ/wAhdto4TRVMvYCYW/YzxTuKMWC5f7t4 czus0PILXa1fhE+7DtZ+n9AB+xbu7/b6dA+dbA8Njox0wmmDrMVvrQL8JSvu YJbOS7Df9K7f/H4BDize6PxvhAT0Dj7YsyMpH0ftnvOUG7rg7gwD7Jh5WJLe H9qm9Qrqu4scYn1zkX9Vhq0X1g06cs4tI3Q+zvm6TRyr6YHgceMwW7ccVNgZ 41i6rg+U0qe7BK48vLRyVHHwSD8EFzbIvg24i4p1+lIS+wFgRu2WXZaYjVbn 9n9t+DwAD217NzcWZCE3J563kTsI1rPuW50qM9HDxax12d4heK35o3GCQgZW iI/eqJsfAvHOOwPMMC5aPCuRHksdhvQxZ5Mva26j5q5jczd2joCPcZzfy7vp aG5mnlQ+NgIRc0dinBhp2D9zrYUXPQoFA25DHTq3cNKUHq1iMgY0w8O1jaM3 kfbWcGJJxxjYNEV82v4kBRt1zrafjnwNufJvc+v4N/B6p9jXUecNDO80d/uQ nYykEyZJN76B1yd3LWwRJmGZy9odFsHj4PFTt7yoPBF5raw7Q6snQHOnee1E 4XX8t+nIxdUPJ2CdX6T14tA1HEgSza0Megt6i558ny3xON+2VYX5/SRwGi0d PtTG4ukUbQx9MAmtjE12Pb+ycV2r9soRj3fgJ0k42Nh7BZ3EhV/UFt+BrHZO OpcTgzOe2QE9gimY/jfP8mf7aBR5CaO/30fC+SEt95O6UVj9PGBvnwMJcWn9 Bj6aUfiX9aZVxXQSgoRmaw+vj8JCNT7X/iAJnKpiowOropDTxSHifUj421Av fPdXFp49EDO4PJSEJchhnBSzUN/G3Uoul4QBuvWhiBgW0oSqMpJ8Enr9bzWm R7JQW72rOfceCdWSqe0Vl1j44xdHZ9tSEkQz+UHkHyyUrdrjH/2ABG9jEfu0 JwsHjc3SZTpIeL3LNpm/hYU9GdMeHWIS4uOvzrwwZWGXklCH10WC3PaVXl+N WPj3W72S3/pIyLss48PQZeGDPI2myHESFpctXdiwmoVVyr3x9EkSDqxZrKMr sZCI5jhqkSSw5/0SYuRZKPBd24ezJJQHJDl8WGQiv72dl/gvCf0Vg9b6n5mY tT3xhNdnEpy3V1j4zTGRW2JvvPkrCe3sNuuM90y8paEw9+0bCdPKX+z/ecvE /wH1ydGZ "]]}, { Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1Hs81OkXB3DxS1I2tsikEmmqzWUT3TZO7caqNtY1StalUCh2l5mpVk0u S0SYbOwITWOYZs3Md3OLOC5FF7lHbrmHZvu2LbKl+j37x/N6Xu9/zus853xe j4HvaafjykpKSqnk/HfvPz7eghOu1g5OejMF9yh8Uejm+5xhAcMdJT/+Z51F HUl/MvaCLzt9XERcVhkZzGLag2deySEhsemOZcIshgvcX7YSc4mVlk6kfdL3 AAXWGWQRtyjuXvRhesGF19S534gd/R6U+qT7QNLm8eYrxDubt8hSGceAe9h/ dTzxWqvrolq+P+hfMjt+gXixWC17Sv8ERK23FUYQT+n8lL5OEARfDEn6g4j7 ovouuzFPQb/cX8ub2G9WUFPrEgp1TyOsnIk7TT2sPdPDwPHZgK8NMf5ea3mZ 8TOgcmsGk9iilS1fdyQcNG/63NImLlAzNankR0D/cs9iFeLU8GtGtD4HnsUK S3vrKFSVHMz51ecM8Kw/SeuJzwwpr1wjOAsv9jzLkRP7OYQsdWRGQncl8/RF 4q4Yw+SJgPNwe6vouxPEzP6g+dUuFyBtpnqtA3HmMgOuRzoXoo4NVy4njuIm sC8xokHqIS/g11JYudK/2O1ONOhw+lzOEs+W7J4yPBIDlV6j/7oTB7+aPl3O j4XtvMLNWsQuR7wDFPrx0Ku6xyO8hsKkmZ3CUowHjyq/9gPEDSnaw9E+l6Cz rGifAbFVw0OvVYIEUP1VZ+2DatKfpaWbPTMJEqVGqYuJvZuX8FbUJ8Fsoe5A N1L4e9Bky1hAMoQcyd2QT6zW0pRX5XIFjmF+ARCfWxBj6J6eArZn14f4VlF4 7GeaEc/gQc/VxAWsuxRuUUk9Q4XyoF1aFmxGrJxq0dNTz4P7WU+zxyoozJZy +KYRVyHO3DrUkbh7UkW/vTUdymxCKnTLKXTw0TXST8yAH5padU+VUrj69Z1o u+EMcFNvDVxKrIg8Ohq2MxOC1/vHlZRQeIl/I69uPBMSL9VunSumsK7TeONJ Gz5I0oXOrCKSP/s9pkUfr8Ph2qcFFhR5T99wUr9rNsx++2RevZzkJyiWXvBH NlSZem9yJ75Td9z9D5McqEsc/CdCRqH7kJih1JsDXCMXr7xCkpdVlnzh9htw 8eW7ssdiUo+3L/f13zdh64Mk0fYbFL7fPvg+d4UQasbD7KS5FL7qY7s5fyOE beKNY0bEbevzFxXzhDBcINPVyKHwerlqxNlteZD8yMurJYvkdbh2v+ovIhht N0nemEH2Y249pacmhuA2LQkjmULnzg77xi/FsP7q9NbQJAptz4UURHqIwVVl rvbeZQo33ed7DYrFsHq58WhIIoUzHu8b8g7eAptKm31UPIWJ3NKszWkSSC67 VrMomsKSZvNvv10thZWbb3Ups0meJhR2xrZSiFVf986KRaG/smi/1ikpBI/I TdgR5L+w0LPvuSsFu4bWRxM/U1j+iCsuMZVB3YuBieowCvXMTsoPPJHBcKFv j00Q2e/0zqqfNChYlDmhef0omWdUb3dtwm3IaRB48oFCzQGmcUAusT+lF2dN 4YNdYb+ol9wGRstY249WZH8z89c4Dt0GRY/6ZpuvSP0TZsf7txeBxQMnUd9W CvvtL9Kzo0Wgusq+sc+E5HHFhv+Z7i6Bkvd2h1bpUXha/pPJtaky6D4geil5 I8c3V542zJtXBbyg9eftsuTYUH2/qmlXDSgMBr4P3yLHE5x9Gh6KOtAzuJb5 uEqG1QvNP0lC6mHbryN5M/tlmCeo+7hi3UPQmj5qEhonxd06d284Fz4GjyfV 59suFKJJfW/p/S+a4J/EyMCx8D+wfbfzq4JXzaD9V3OC5KAEg9WDWju+bIVf yv82S7O8hY+6Dt39LKkNFJuMkjn/E6OzrfvgyEg7HFaU8cqe5ePWnIRDOUZP IdLe1jXpnggHPqa1B57vhDnVS7ucrufh6L4mgU5tF6gHjWgsviJEWcZzTotB N8gEb51X/HgThXEq8RvP9ED1ZIrUzkeA036HJ/3Le6HzwD07zskbuGhvrJN8 eT/w4yZVGgJy8Zzm6OJBz+dg4JnvrYjMwcWVm5Q6Dw7AjsVu2aM22WgV4fCh 9t0AGMayiwPOZiH/ZqJgLX8QtrR7sE0Gf0cvV4vGhQeG4LB1a3jutkws6jie VjkzBOZT7Qld+ddwx2OZ8lj6MCw92fAs0uY3XGPjP522dwT8bhsvaOi4ipYW lim3x0Zg9PXmH/hJPHz+5vIDQcwoSKbKUtmeaajY4hjDMB8DZtvCSfU1qch8 aTI5r20MwjdMR2ksSME6o/DWUO4LCA2v8ZA9TMbk9g4/J6Nx4H4YaWY3XEba GVOU68bhbdjkPwHjCUi5an+zI2wCEkTb1UP/jUdBY1TW0OeT0DrCtkn7Og7f 1nue/bxmEvhFvIXvI2NxIKVqWvPUS+hYGJhQ1h2NMy1fMS5+poCRVxrubv5R GMozRE6FApwD/QrpMS4ubzTUHPH6Cz6AvtQy7QI6d0jmVn78C87oMqUtkkh8 80NucK/4FXxc6Ogwf805rPKWxnz2HQ3KkuhljX0cvNMUfKDfnoaPpp5Vs20c LLb+QqvQkQbpksZs5kMOSlYK+QcP0fDS6/KnuGIOZnZl/pnoS8M88yUmgckc DP8+dlCdQ4NxcF578h4Obtp91GpBHg3atspKXBEbmdIVKp35NOw2mgh9k8VG w9VdDXm3aNjgaKbmz2Oj7pyTi62cBu8t/4qcuWxULbULiqmg4aSWf7bdETYO mllkqLTRcN5Va37GEjb2Xv/bq62Dhr32nQJjVTZ2aUiNBF00uDbF+tTMsfDJ y42yr/tpSIlu2DY1wcIKkX49d4KGm7ovvg6rY2GpTl+io4KGXXNqj7XLWfhn TKaTAU2D8Cu/0Ao5C8V+2v04RYODwaSaZjYLha2tgitvyTzkm+YqrrIwZ8+V E97vaJgNa1ILTmQhX3bQ7MsPNIQv9zZdFcXC3/QXTX/6RAMjLDC4mcPC/wPJ TNfi "]]}, {}, { Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1Hs41NkfB3BpVy0lushEkbAroS3abnzUppUW6xpbWZeQRqJiZko2ufxY dyahkesMhprxLUYpPqGGUu7LuuW+WPnutihbW7+zf5znPK/nOc/nOefzeT9n s+c5e29ZGRmZVLL+2628J9twysnM1l5toeQJhb/fcfZ8xTAGTpfk/H9WUehK vMs4BNUh6ZNFxPdrwvxZujZQmC85xic23LOWn81wBD1FdcwjllkzlfZJwxVu VDZsziZum3l0zUPXDXKGqdAbxHZeTVUe6R5gs3GyNZl4b+tOcSrjFCia+2yK Jd5iequonucDgtNG3leJVwiX58xp+MH2jxb8EOI5lQvpOgVM0BOXDTKJByIG Epx1A+BEiI+yO7HXu4K6esdAeJ0cYupA3G3oanYiPQjsY4Y8LYjxZr1JAuMi zGe0ZeoSG7ezy3WOB0P+No/SdcQlyw0NanghsJhyvHIpcWpwhjatwYH44cKq /gYK5cqsc//ncQmcYz6KpMSXRmTVNQsuwyinJ7ec2Mv27Bo73TBob9U5d424 J0oracr3Z/A3FnzvR6w7yPz8seNV+OYVbrElzlq7Odw1PRyiNUdq1hNHhMex f2FEQgQlKuHVU1ij7lPp/CASFCV9jpeJ30nM57SOR4Fc+OiiC7H/7Py5al40 8EPLvlYmdjzu7jujEQtFQWauwXUUJi7s5VdhLJQu9+g8StyYsm400uMX6B+i jmwmNm185raxIA7e+qzZ0vSY3M/ExNlGNxH83mqmriB2b13F3SBNhJqXa4d6 kcKbzOm2Cd8ksLLP/qqYeHlbi6DWMRn+9iwsAeLQZVFaLukpYM3UOutZS+Gp izQjlsEF3cWoZaxHFO5cmnqJCuSC1W+UvxGxbKpxX5+UCwHxLTkTDynMEXF4 hiHXQVi8K9COuHd6qUZnezro1J56qFpNoa2HqrZGfCbUajaqBlRRuOnPB5GW o5ngtFp6eg3xTNjJ8aC9WaA8/mOMRELhL7x8QcNkFnDFkl0fKils6N6md8aC B63hGQ6sCpI/mwOGFR9vwRp5aYkxRd4zMJo46JQDT0xqlkjLSX6Y0fSy2zkg qLPVdyF+0ODtctsgFxb8Wv8OEVPoMiJkyPTnQk7MATfBHZKXjSY8/u586DQc v98sJPW4R/L+/KsQXJTOF+3Op/D97uH3eRv40FvraCnKo3B2gO3s8C0f/JVW TGgTd3xZrFDJ5YNUP1V1ZS6Ft6rlQi5/IwDBJTO3tmyS19F6K7krRVBR8UWS XiaZzw6zObXlQnhzcbyUkUShQ3eXzYvtQogsbdwVmEjh4dCzJWGuQhAnvKx/ kkCh/lOe27BQCNPR/46djadwwfV9o8C6FKSza49QsRTGh1dlf51WBs8PetUp RFIoad3x3XebRCDbxOyRZZM8Tc1YbjssAt9PY4umLAp9ZIuslANEwDIJMmCH kP/CWM2m75EITFqSn09dpLD6ebhQYiiG2z/wph4HUahmdKb86EsxFN5T7bNg kvnO7629sJKCuf1cpVsnST8j+nvr4+5B0k6TEzygUGlId5tv3j1YPXlQLcaM wqb9QVfkJfeAcTqk47wpmd/C55p2I/dA92bGdot9pL6fkffg7gpwe9EvGNhF 4aDNNfrdeAW8C21tHjAgedzw1WeG5hLo/rHaeaMahefKLxhkzN2HKOnCdNmb cnyT/GvjkiW1EBWmH2aZXY6Nj5/WtuyvA6lThG3wznL04xxZ6TrTAPGDzRnN tWJ8/MWOT2VnpdB0ubBwwUqMgoKGjxt0nsGTmLovA2NEaK7yKN/hTjPcTF3C 6bh6Bw2k/VVPt7ZAbEmk+0Twbew0d5gtmW2FK12nrpVZl6G/PLO9a3s77FdS 0kkzKcXnPcceKSZ2gHJd4jXOZ0J0OOwyPDbWCa+CXKPv/1aMu3LjjuVq/wpR go0WiU+KcOhjWufpn7vh6IDDVvtbAhw/0lKgUt8DRlLBokIyH8WZrzhtm3tB 4Sdf0w3nC5EfszRW71IfGHMz0y09CnDe68dpn+p+2HcgyIBzJh8VDkXbl68f BIMdk+NS3zwMVRpfMXziFfxweJn5TFgurqjRl+m2HgLbvVUu4xY5aBpi+2/9 P0MQtPq5n+/lbOQVxhds4Q2DgkejjsHwTXRzMn7xxdEROJPJU8/7JgsrurzT ahZG4IFRt35PcQbuaRbLTqSPwlbDfRfCLG6gpoXPfNqhMThiYJ4p7bqOJsYm KfcmxsDdSWf6ZiIXX71JaCqIGgeViyEq7BNpOLPTLoqxYwIyVcXe8pqpqPuH wfSSjgm4GND2dsWyFGzQDm4PDP8dzrQpbhc9S8Kkzi4ve+1JUNdnprMaE5B2 wBTZhklAQWSxz2QcUk7rvt0TNAVS8WxpwGIsFryIyB5ZPQ3HJApdKQdj8K30 xOXVddOwp/2vyMWwaBxKqZ1XCvgDeg+cfCPpjcSFtn2Ma4oz4OjLLnX0icBA rhZyHs6A0HDVzOuJcFz/QktpzO01xDa+7d6ZdhUduso+qH98DeMxn3e/KAvD Nz/l+fcLZ0FNs8JyiWYo1rqLohS/pyFJ/cpw4wAHH7T4Hx20ocFqMS5uroOD lWZble/Y0XBFw5ip9YyDZep8nvUxGj575NkUWcnBrJ6su/GeNNTvwb+9kjgY /EP0sDyHBpP38tfjDnBQ3/yk6TIBDYrlNXdDi9ioK9qwtLuYhnz33i2z2WzU 2tTTKCilocTK6YEHl42qH+wdD5fTcPhMjIttOBvlqiyZUQ/J+Zan3x86zsZh I+PMpR007HJULuOuYmP/rb/cOrpoEP8mb/WVHBt7Voq0C3po0Ot4LVfzgYUv /9ATHxykwXJ/eh89xcKHRRrS8CkaTh8KH/VvYGGVykC83QwNe1f/ylSuZuHd qCz7zTQNCV96raoqZ6HQa90gztGwPtRWoJDDQn57e0HyWxr8+fUZVddZmHsg 2c/9HxpcpjMLfeNZyBNbG23/lwYdmZNNqhEsvKGhMP/pEw3SihtyzRwW/h8R utLI "]]}}}, { DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, -5200.}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"V(eV)\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Dashing[{Small, Small}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ "\"Vlocal\"", "\"Vlocal+Vnonlocal\"", "\"Vlocal+Vnonlocal+Vspinorbit\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 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[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", 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[{"Opacity", "[", "1.`", "]"}], ",", 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[{"Opacity", "[", "1.`", "]"}], ",", 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[{"Opacity", "[", "1.`", "]"}], ",", 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[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.618570721139312*^9, {3.618571166836014*^9, 3.6185711905105314`*^9}, 3.6185712695836864`*^9, 3.618572475766235*^9, {3.618573138807612*^9, 3.6185731524338503`*^9}, 3.6193179481586123`*^9}] }, Open ]], 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.619500776312481*^9, 3.6195007776274137`*^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", "=", "20"}], ";", " ", 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.6169102327130184`*^9, 3.6169102330362473`*^9}, {3.616930074169991*^9, 3.616930074667362*^9}, { 3.616934972694295*^9, 3.616934974279418*^9}, {3.6185535556138396`*^9, 3.618553556690605*^9}, {3.619500788184905*^9, 3.619500802602135*^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"}], "*)"}], 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"}], "nat"], 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[{"spin", " ", "orbit", " ", "projectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{"asoOperator", "=", RowBox[{"ParallelTable", "[", RowBox[{ RowBox[{"aso", "[", RowBox[{"l", ",", "j", ",", "mj", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "i", "]"}], ",", RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "]"}], ",", 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", ",", "lmaxso"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}], ",", RowBox[{"l", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"mj", ",", RowBox[{"-", "j"}], ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"conjasoOperator", "=", RowBox[{"Conjugate", "[", "asoOperator", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"spin", " ", "orbit", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"VKBso", "=", RowBox[{"ParallelTable", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmaxso"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}]}], RowBox[{"l", "+", FractionBox["1", "2"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"mj", "=", RowBox[{"-", "j"}]}], "j"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"conjasoOperator", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"j", "-", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"mj", "+", "j", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"bso", "[", RowBox[{"l", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"asoOperator", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"j", "-", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"mj", "+", "j", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", " ", 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[{"EnL\[CapitalGamma]", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"Eigenvalues", "[", RowBox[{ "kineticOperator", "+", "localOperator", "+", "VKBnl", "+", "VKBso"}], "]"}], "]"}], ",", 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.619317973003244*^9, 3.6193180448702965`*^9}, 3.6195008175607457`*^9, {3.6195008815011115`*^9, 3.619500932263124*^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"}], "*)"}], 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"}], "nat"], 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[{"spin", " ", "orbit", " ", "projectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{"asoOperator", "=", RowBox[{"ParallelTable", "[", RowBox[{ RowBox[{"aso", "[", RowBox[{"l", ",", "j", ",", "mj", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "i", "]"}], ",", RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox["1", "2"]}], "]"}], ",", 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", ",", "lmaxso"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}], ",", RowBox[{"l", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"mj", ",", RowBox[{"-", "j"}], ",", "j"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"conjasoOperator", "=", RowBox[{"Conjugate", "[", "asoOperator", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"spin", " ", "orbit", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"VKBso", "=", RowBox[{"ParallelTable", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmaxso"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}]}], RowBox[{"l", "+", FractionBox["1", "2"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"mj", "=", RowBox[{"-", "j"}]}], "j"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"conjasoOperator", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"j", "-", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"mj", "+", "j", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"bso", "[", RowBox[{"l", ",", "j"}], "]"}], "*", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"asoOperator", "[", RowBox[{"[", "n", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"l", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"j", "-", RowBox[{"Abs", "[", RowBox[{"l", "-", FractionBox["1", "2"]}], "]"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"mj", "+", "j", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", " ", 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", "+", "VKBso"}], "]"}], "]"}], ",", 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.619317991688515*^9, 3.6193180524346867`*^9}, 3.619500824665786*^9, 3.619500942439344*^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[{"gr\[AAcute]fico", " ", "bonito"}], "*)"}], "\[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]", RowBox[{"{", RowBox[{ RowBox[{"-", "13"}], ",", "9"}], "}"}]}], ",", 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"}], "]"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"{", RowBox[{"340", ",", "360"}], "}"}]}]}], "]"}]}]], "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.618550724198118*^9, 3.6185507250517244`*^9}, {3.618568079305287*^9, 3.618568079789673*^9}, {3.618569495287896*^9, 3.6185694965225706`*^9}, { 3.618572357203553*^9, 3.618572361329064*^9}, {3.6193361487034006`*^9, 3.619336152704239*^9}, {3.619336373531517*^9, 3.6193363871011333`*^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[{{-10., -9.753833032925044}, {-9., -9.8548770146897}, {-8., \ -10.104556017035215`}, {-7., -10.414266749646268`}, {-6., \ -10.726304366620903`}, {-5., -11.011556603565818`}, {-4., \ -11.25548627212657}, {-3., -11.450272195609625`}, {-2., \ -11.591792575103057`}, {-1., -11.677433344931316`}, { 0., -11.706079619533734`}}], Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQN/O6e4NGeqH4DwHtjbyPS+m5MC43+wXztH/OXv UBj/h/16aR3zKbYwPoMD0+UTV0OlYXwWh46eeesD36tB+RwO1xuLzlzeCePz OGx9OyfwVBWML+CQeONbeoARjC/kYGezyCLigSqUL+IQmvHprUsrjC/m4OuU qWikCONLONzU/P3edosKlC/l8Kz5TmydHYwv41BQ2WOacUAZypdzCP/+n0/U CsZXcDjCVd9wdrUSlK/ooNTJY3FXFMZXctizOHHTtApFKF/ZYaEsh0zUFQUo X8VBqNSwsVJT4QAAPHJbqA== "]], Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[{{-10., -9.75383303292493}, {-9., -9.854877014688238}, {-8., \ -10.104556017034282`}, {-7., -10.414266749645602`}, {-6., \ -10.726304366620257`}, {-5., -11.011556603564815`}, {-4., \ -11.25548627212646}, {-3., -11.450272195609509`}, {-2., \ -11.591792575102911`}, {-1., -11.677433344930543`}, { 0., -11.706079619533492`}}], Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQOlnVNcmjPVD0B4D+w7pXrfzUmB8T/YH54l/vJ3 KIz/w95WUsd8ii2Mz+Dw7cKJq6HSMD6LQ3X3vPWB79WgfA6H7IaiM5d3wvg8 Dglv5wSeqoLxBRwsb3xLDzCC8YUcsqwXWUQ8UIXyRRwmpX1669IK44s52Dhk KhopwvgSDi/Uf7+33aIC5Us5lDXdia2zg/FlHEoqekwzDihD+XIO57/95xO1 gvEVHFQ46xvOrlaC8hUd5Dp5LO6KwvhKDp8XJW6aVqEI5Ss7bJLmkIm6ogDl qzjwlRg2VmoqHAAAtQ1bCA== "]], Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[{{-10., -6.90540053834587}, {-9., -6.747006317811297}, {-8., \ -6.325912297893457}, {-7., -5.731857640322623}, {-6., -5.025523994752432}, \ {-5., -4.240169866415748}, {-4., -3.3970655170775457`}, {-3., \ -2.516435125294317}, {-2., -1.6263280099360569`}, {-1., -0.8090774922975454}, \ {0., -0.47896799699786624`}}], Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQN/3+1Oylx+bz+E98B+j12UWH7iIyj/g/024/+G p01eQ/k/7EsLTDa4L/gM5TM4THtjIVRs/wvKZ3G4Y75/6v1OhgMQPodD9tuX j5//YYbyeRzSp3FaLC1gh/IFHI46nWp+9oALyhdyMHH54qjuzQflizgsUKvS uHZNAMoXc1jM7OY5pVkIypdwiPWfpi6tLQLlSzmsPFh/bOMZUShfxoGFiZcx K0McypdzuMnC4y/9RwLKV3C4OYN3x+x2KShf0WHfsw8PhLhkoHwlh9uZMvcW N8lC+coO7fcT9x34IAflqzjwlBg2VmoqHAAASy9fQA== "]], Hue[0.08640786499873876, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[{{-10., -6.905400538345011}, {-9., -6.747006317810034}, {-8., \ -6.325912297892643}, {-7., -5.731857640322383}, {-6., -5.025523994752311}, \ {-5., -4.240169866414751}, {-4., -3.3970655170773196`}, {-3., \ -2.516435125292198}, {-2., -1.626328009934362}, {-1., -0.8090774922974895}, { 0., -0.4789679969973572}}], Hue[0.3224758424985268, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQPap3cnZS6/tx/Ce2CfLREllp/4CMr/YP+Q77/h aZPXUP4P++s5JhvcF3yG8hkc5jy0ECq2/wXlszicMN4/9X4nwwEIn8PB4/nL x8//MEP5PA6KEzgtlhawQ/kCDhUOp5qfPeCC8oUcdlh+cVT35oPyRRweq1Zp XLsmAOWLOSQzuXlOaRaC8iUcDvlOU5fWFoHypRw6dtcf23hGFMqXcej5zcOY lSEO5cs5vPjB7S/9RwLKV3D4NJl3x+x2KShf0YHz6YcHQlwyUL6SQ0OKzL3F TbJQvrJDxv3EfQc+yEH5Kg5/igwbKzUVDgAAc1hgXA== "]], Hue[0.5585438199983166, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[{{-10., -1.5379192388546898`}, {-9., -1.519293859128702}, \ {-8., -1.4638908493585978`}, {-7., -1.372684376979178}, {-6., \ -1.248213604936879}, {-5., -1.0948903166345674`}, {-4., -0.9202012478503059}, \ {-3., -0.737174652913656}, {-2., -0.5656996276000574}, {-1., \ -0.4256229166432321}, {0., -0.2959372045161638}}], Hue[0.7946117974981064, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQPfnI7MXPTh0n4I74H9dpV5GVWHr0L5H+wVpvOc evnwDpT/w36rrkjK6tjHUD6Dw9oNRlf4TV9C+SwOfTpLnSP730P5HA7PuOey hPF/hvJ5HKo/NQbPCPkG5Qs4FEobreRt/gnlCzkUNPd9f9H9B8oXcWD7s7zF OPU/lC/mYPcn/tV8ZsYDEL6Eg23gy9tKZkxQvpTDQ/09B966M0P5Mg7LI9Nl s81ZoHw5B9H7aldTmVmhfAWHSpeWjiurYHxFh7+799T+1GGD8pUcuO93P3Lv hPGVHZ6IMzqX74fxVRxs+Ha4iZxnOwAA14hiKA== "]], Hue[0.030679774997896203`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[{{-10., -1.5379192388543061`}, {-9., -1.5192938591276113`}, \ {-8., -1.4638908493583669`}, {-7., -1.372684376977702}, {-6., \ -1.248213604936317}, {-5., -1.0948903166339041`}, {-4., -0.9202012478499569}, \ {-3., -0.7371746529129325}, {-2., -0.5656996276000106}, {-1., \ -0.4256229166427336}, {0., -0.29593720451534206`}}], Hue[0.266747752497686, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQPKnEdmLvpwaT+E98A+Zt7cjKrDV6H8D/YLW3hO vXx4B8r/Yd+mKpKyOvYxlM/gsHmt0RV+05dQPovDXJ6lzpH976F8Docz/+aw hPF/hvJ5HE6+bgyeEfINyhdwYBY1Wsnb/BPKF3JQa+77/qL7D5Qv4qDxZXmL cep/KF/MYfvP+FfzmRkPQPgSDiedXt5WMmOC8qUc/DT2HHjrzgzlyzhwhqXL ZpuzQPlyDpvvql1NZWaF8hUcZji0dFxZBeMrOsRu2VP7U4cNyldy6LnS/ci9 E8ZXdmjmYnQu3w/jqzgcZ97hJnKe7QAAfmdiLg== "]], Hue[0.5028157299974758, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[{{-10., -1.2704880811831372`}, {-9., -1.2519113702377498`}, \ {-8., -1.1966485147830341`}, {-7., -1.1054828699088026`}, {-6., \ -0.9808517216091797}, {-5., -0.8269328737883965}, {-4., -0.6508165930960558}, \ {-3., -0.4652319725730406}, {-2., -0.2891842416913314}, {-1., \ -0.14018632704567388`}, {0., -2.1449297893383346`*^-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:eJxTTMoPSmViYGAQBWIQDQONU5273+j77YXwHtgnVaartC3btR/C/2A/uWtR vv2vi1D+D3svCUHvU0L3oHwGhzOFh3lOzX4K5bM4NG2ty1NsfgPlczgkzn6Q /ebgRyifxyEv8dN5TrOvUL6Aw8McJpcP3T+gfCGHMxX/78zZ9hvKF3HIbota bbT2H5Qv5vBU89/L7i0MByB8CYeJE7ddnfGJEcqXcigMNT51jo8Zypdx2KYm cP0GOwuUL+dgGvBcbfMdGF/Boa916fnyHlYoX9GB+7pxR5cYG5Sv5GC38/Cp 6ioYX9nhWfaOjzI7YHwVhyt/t7uJnGc7AAAGyWeq "]], Hue[0.9749516849970554, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[{{-10., -1.270488081182326}, {-9., -1.25191137023686}, {-8., \ -1.1966485147814736`}, {-7., -1.1054828699084553`}, {-6., \ -0.9808517216088564}, {-5., -0.8269328737879192}, {-4., -0.6508165930959486}, \ {-3., -0.4652319725724062}, {-2., -0.28918424169068635`}, {-1., \ -0.14018632704484613`}, {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:eJxTTMoPSmViYGAQBWIQjR08sLf5m6bStmzXfgj/g/2n+kX59r8uQvk/7IU+ CnifEroH5TM4rE84zHNq9lMon8Vh2qK6PMXmN1A+h4PPhAfZbw5+hPJ5HJ5H fzrPafYVyhdwsM5gcvnQ/QPKF3LYVv7/zpxtv6F8EQepxqjVRmv/QfliDndU /r3s3sJwAMKXcLDq33Z1xidGKF/KQdHF+NQ5PmYoX8ahW0Xg+g12FihfziHT /7na5jswvoKDeOPS8+U9rFC+ooPXVeOOLjE2KF/JIXfd4VPVVTC+ssPtmB0f ZXbA+CoOG75vdxM5z3YAADdGYuA= "]], Hue[0.44708763999663503`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{-10., 0.7639770327263057}, {-9., 0.7845808688086603}, {-8., 0.8456389987128147}, {-7., 0.9455525524358123}, {-6., 1.0797575381768665`}, {-5., 1.2394611135919593`}, {-4., 1.4075047915517434`}, {-3., 1.5425364748087147`}, {-2., 1.542971150712574}, {-1., 1.237304378013572}, {0., 0.8815768850665979}}], Hue[0.6831556174964248, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQOrVnjsemD6xh7Ce2B/90KymvbJD1D+B3t1jU8+ NyK/Qfk/7J3eWzHfW/UHymdwiDDdsJunidEBwmVx6Lq/7K/lFRifwyE4f5XI v0oGKJ/HoUG9eLWp9T+ofgEHF+fmVW4zf0P5Qg6ML7a9WqT0E8oXcQj7Mt/X /CnMfjGHoqD7XTdff4HyJRxeFwVFMNt/hvKlHOY8S3SKf/oRypdx4H5ttf/U Y5h/5Bxa7zn3V9jD+AoOx5b9Y2v9/h7KV3R45uM4/5g0TF7J4ZL09lXSi2B8 ZQfBXZ5ab/th5qs4/H5vOj/sxSd7AIXSY2E= "]], Hue[0.9192235949962146, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[{{-10., 0.7639770327281183}, {-9., 0.7845808688104594}, {-8., 0.8456389987130745}, {-7., 0.9455525524359286}, {-6., 1.079757538177939}, {-5., 1.2394611135932057`}, {-4., 1.407504791552426}, {-3., 1.5425364748095922`}, {-2., 1.5429711507135877`}, {-1., 1.2373043780140567`}, {0., 0.881576885067119}}], Hue[0.15529157249600445`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQP/d3nsemD6xh7Ce2CvcDNZTfvkByj/g/1L808+ NyK/Qfk/7EsFrZnvrfoD5TM4PLbdsJunidEBwmVxcH6+7K/lFRifwyGjbJXI v0oGKJ/H4a5h8WpT639Q/QIOvb7Nq9xm/obyhRx8Obe/WqT0E8oXcSg3WuBr /hRmv5jDprT7XTdff4HyJRwmVAZFMNt/hvKlHC59THSKf/oRypdxsP5mtf/U Y5h/5Bw2vXXur7CH8RUc3u7+x9b6/T2Ur+hgnOk4/5g0TF7JYYrC9lXSi2B8 ZQfpY55ab/th5qs4dH8znR/24pM9ANe8YwU= "]], Hue[0.39135954999579425`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[{{-10., 3.8004761582181996`}, {-9., 3.807850246541427}, {-8., 3.823198101647997}, {-7., 3.826089006866161}, {-6., 3.7841456380727223`}, {-5., 3.66471784074074}, {-4., 3.45965370524301}, {-3., 3.1990044817105487`}, {-2., 2.9353648955818694`}, {-1., 2.705791155973761}, {0., 2.6145354699597054`}}], Hue[0.6274275274955841, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQMPV/dOmviKxQHCe2BfpXcmnOcvjP/BXu2e/M4J 12H8H/YGIYoPZDRhfAYH/v0TT9RLMEP5LA66M7un8zXA5Dkc+CLfnl4pwQ7l 8zisYxZvMGXnhPIFHLoPe9cGsnBB+UIOGXlO8eYfYfIiDhftWB78/84B5Ys5 uPx4c1klHWaehEPXoht1Ut2sUL6Uw3xvhWfXp8PcI+OwNud3fPkaRihfziG1 IsXq3fb/9hC+gsOODH3x/pQ/UL6iwwqX61v6c35C+UoOnnOlL/2+/g3KV3Y4 s9mvVG31FyhfxcGK0Wx+2ItP9gBm71SC "]], Hue[0.8634955049953739, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[{{-10., 3.8004761582183493`}, {-9., 3.8078502465426203`}, {-8., 3.8231981016482144`}, {-7., 3.8260890068663906`}, {-6., 3.784145638073204}, {-5., 3.664717840742571}, {-4., 3.4596537052438574`}, {-3., 3.199004481712325}, {-2., 2.935364895582223}, {-1., 2.7057911559743046`}, {0., 2.6145354699607295`}}], Hue[0.09956348249516367, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQOPt/ROmviKxQHCe2AvZnAmnOcvjP/BPuK+/M4J 12H8H/aRIYoPZDRhfAaHdYcnnqiXYIbyWRziZndP52uAyXM4/Ip5e3qlBDuU z+Owj0O8wZSdE8oXcDh7zLs2kIULyhdyCKx0ijf/CJMXcTjgxvLg/3cOKF/M wevHm8sq6TDzJBzEVt2ok+pmhfKlHK55Kzy7Ph3mHhmH2oLf8eVrGKF8OYeS 6hSrd9v/20P4Cg48Vfri/Sl/oHxFB++A61v6c35C+UoOC5dKX/p9/RuUr+xw 5aRfqdrqL1C+isNUJrP5YS8+2QMAAClWNw== "]], Hue[0.3356314599949535, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[{{-10., 3.8887057148293955`}, {-9., 3.8996158623414856`}, {-8., 3.925904868461393}, {-7., 3.9474170386068885`}, {-6., 3.9309691450215185`}, {-5., 3.8393986921082432`}, {-4., 3.657331803657262}, {-3., 3.4096645449885323`}, {-2., 3.1291208899804195`}, {-1., 2.837136834157638}, {0., 2.7537863874446544`}}], Hue[0.5716994374947433, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQO+XwM1DrKzOUB4D+znTJmqJZEJ43+wr49f0ZvQ yw7l/7CXr4o3OxDNCeUzOPRUrnNdtoIbymdxcGh1W6oVwAflczg8Erv77P5s ASifx0H77tJnz9WEoHwBhwOTW14cOiQM5Qs5ZDq9+NqcKQrlizisNX9X91xc HMoXc9BbeuLqhPMSUL6Ew8KVgdtm9ktB+VIOS9ZvPugXJgPlyzjoHN28dKOC HJQv5zC3Nfmc+mt5KF/BIe98zpQr1xWgfEWH0w17PP02KkL5Sg6VdxU3yJYp QfnKDvtOGLlN5VWG8lUcjgo85i/1U3YAAAvpVN8= "]], Hue[0.8077674149945295, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[{{-10., 3.888705714829622}, {-9., 3.899615862343141}, {-8., 3.925904868461478}, {-7., 3.9474170386070457`}, {-6., 3.930969145021811}, {-5., 3.8393986921098233`}, {-4., 3.6573318036574705`}, {-3., 3.4096645449888072`}, {-2., 3.129120889980444}, {-1., 2.8371368341582532`}, {0., 2.753786387445683}}], Hue[0.04383539249432289, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQOR/wI1DrKzOUB4D+wNZk/VksiE8T/Yr0pZ0ZvQ yw7l/7A/WxdvdiCaE8pncCitWee6bAU3lM/iYNPltlQrgA/K53D4Kn732f3Z AlA+j8O0+0ufPVcTgvIFHGRmtLw4dEgYyhdykHV58bU5UxTKF3HwtXhX91xc HMoXcziz/MTVCecloHwJhwWrArfN7JeC8qUczmzYfNAvTAbKl3F4dmzz0o0K clC+nINVW/I59dfyUL6Cw9/zOVOuXFeA8hUdzjfs8fTbqAjlKzn431PcIFum BOUrO/w/aeQ2lVcZyldxeC70mL/UT9kBANbjVok= "]], Hue[0.27990336999410914`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[{{-10., 8.11799085436849}, {-9., 8.135139290434457}, {-8., 8.115222330631934}, {-7., 7.59343131606918}, {-6., 6.696849830728313}, {-5., 5.768966905261166}, {-4., 4.861351550477774}, {-3., 4.004203648993378}, {-2., 3.314932904219098}, {-1., 3.045341584813161}, {0., 2.981024096502532}}], Hue[0.5159713474939025, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQNX2iM0lW+yO0B4D+xjBKudZv2F8T/Y67Ws4dqx gQPK/2FfsWdK1lctLiifweHH/8a9jnY8UD6Lw7RswQMfdvJB+RwOJd1l2Sr7 BaB8HofpBvNiFW2EoHwBB1tjp1mrzwpD+UIO9352//5dKArlizj833m0I1NN HMoXc0h4KsSb81QCypdw0OJzsU9dIwXlSzlcPWX/OLdSBsqXcZj30eFQmqcc lC/ncLzgYqsejwKUr+Cww7PX8/l7GF/R4cWEXIvKk4pQvpLD+8xl9zZ1K0H5 yg6e7cZLaqWVoXwVBxPhx/ylfsoOAHHUUo0= "]], Hue[0.7520393249936888, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[{{-10., 8.117990854370584}, {-9., 8.135139290435216}, {-8., 8.115222330632145}, {-7., 7.593431316069235}, {-6., 6.696849830729192}, {-5., 5.768966905262729}, {-4., 4.861351550478508}, {-3., 4.004203648993435}, {-2., 3.3149329042194786`}, {-1., 3.045341584813744}, {0., 2.981024096503456}}], Hue[0.9881073024934821, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQNf+yM0lW+yO0B4D+xPC1c7zfoL43+wz+1cw7Vj AweU/8N+7d4pWV+1uKB8Boc6rqa9jnY8UD6Lg36B4IEPO/mgfA6HtT1l2Sr7 BaB8HocNRvNiFW2EoHwBhyxjp1mrzwpD+UIOO351//5dKArlizhs3nW0I1NN HMoXcyh9IcSb81QCypdweMHnYp+6RgrKl3KYd97+cW6lDJQv43D1o8OhNE85 KF/OIbXwYqsejwKUr+Bw26vX8/l7GF/RwXBirkXlSUUoX8nhQ9aye5u6laB8 ZYen7cZLaqWVoXwVBwnRx/ylfsoOAEYPUk8= "]], Hue[0.22417527999326836`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[{{-10., 10.704748218607449`}, {-9., 9.867123542430656}, {-8., 8.971857383694577}, {-7., 8.65609941655551}, {-6., 8.379362099521375}, {-5., 8.072819002247247}, {-4., 7.999113921181253}, {-3., 8.124764904004648}, {-2., 7.871670751183017}, {-1., 7.463241070504815}, {0., 7.315188743964806}}], Hue[0.4602432574930617, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQOrp/ZeO+Ak6wDhPbA3Ldxx+28pjP/Bvsowyr2H Ww7K/2F///hZCdOfMD6Dg8zS6Uc2LIDxWRxYPzLmacnD9HM4vAi/7NJ4WxrK 53EIZ0qfHsoE4ws4vKk6VLB4rxSUL+SQ4ybx5KU8TF7EoaUpJ3y5mAyUL+ZQ 6H6u+FwZzHwJh6DaxJCT0vJQvpQDn3HMK4cyBShfxkE++9uE+dmKUL6cgxEz w+/GDCUoX8Hhu/X2syszlaF8RQeDPxOdnHJUoHwlB4kPpofzc1WhfGWH2X/F Ar9kqEH5Kg7F0l1Bv4LVHQBVaU/k "]], Hue[0.696311234992848, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[{{-10., 10.704748218608207`}, {-9., 9.867123542432136}, {-8., 8.971857383694953}, {-7., 8.656099416555557}, {-6., 8.379362099521455}, {-5., 8.07281900224836}, {-4., 7.9991139211818725`}, {-3., 8.124764904005037}, {-2., 7.871670751185016}, {-1., 7.463241070505262}, {0., 7.3151887439657335`}}], Hue[0.9323792124926413, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQP7Z/ZeO+Ak6wDhPbCfV7jj9t9SGP+DPa9plHsP txyU/8P+1amzEqY/YXwGh9Bl049sWADjszi4fmXM05KH6edwiEi47NJ4WxrK 53GYzpQ+PZQJxhdweF1zqGDxXikoX8jB30PiyUt5mLyIw53mnPDlYjJQvphD gce54nNlMPMlHEIbE0NOSstD+VIOoSYxrxzKFKB8GQfd7G8T5mcrQvlyDiHM DL8bM5SgfAWH5zbbz67MVIbyFR3a/k90cspRgfKVHG5/ND2cn6sK5Ss7XPsn FvglQw3KV3H4J90V9CtY3QEAWb5S1A== "]], Hue[0.16844718999242758`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[{{-10., 11.093778192118158`}, {-9., 10.481198147102452`}, {-8., 9.624217295407407}, {-7., 8.908807384772642}, {-6., 8.458759287928906}, {-5., 8.12123404393905}, {-4., 8.024469467082124}, {-3., 8.140545813035985}, {-2., 8.381544133276401}, {-1., 8.660373489174297}, {0., 8.79146149166291}}], Hue[0.40451516749222094`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQNzK84WWE1VdIDwHthv+pAzVygJxv9gb8j3gNXo mgKU/8M+O0CWcY0UjM/gkOOdEW8uCeOzODQEXKy8eQXG53BoV5mtUrQSZh6P w6+X9gtqJylB+QIOWxM2Xd4kpgzlCzlcFRHL56mG8UUc1vxdHK7zGsYXc7CY c0OFK10FypdwKFV/cXzFOxhfysE+Jmo9T5MqlC/j8NM8QVhVUQ3Kl3NYqZ1t cfE0jK/g4OC/tf9FozqUr+iws/N0RJaTBpSv5HC1PuFa7TYYX9nBRPJBsbQA jK/i8FK2K+hXsLoDAC7RToo= "]], Hue[0.6405831449920072, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[{{-10., 11.093778192118542`}, {-9., 10.481198147102512`}, {-8., 9.624217295408533}, {-7., 8.90880738477418}, {-6., 8.458759287929194}, {-5., 8.121234043939342}, {-4., 8.024469467083133}, {-3., 8.140545813036411}, {-2., 8.381544133277242}, {-1., 8.66037348917463}, {0., 8.791461491663375}}], Hue[0.8766511224918005, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQOLK88WWE1VdIDwHti/+JAzVygJxv9gv4D/AavR NQUo/4f9/QBZxjVSMD6Dw2HvjHhzSRifxWFC4MXKm1dgfA6HZvXZKkUrYebx OCS8sl9QO0kJyhdwMEvedHmTmDKUL+RwS0Qsn6caxhdx2PpvcbjOaxhfzOHR nBsqXOkqUL6Ewzr1F8dXvIPxpRzkYqPW8zSpQvkyDoetEoRVFdWgfDmH6TrZ FhdPw/gKDs7+W/tfNKpD+YoOu7tPR2Q5aUD5Sg5vGxOu1W6D8ZUd2GUeFEsL wPgqDr/luoJ+Bas7AABngE+V "]], Hue[0.1127190999915868, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[{{-10., 11.27791004982508}, {-9., 10.647809855106257`}, {-8., 9.76356416040991}, {-7., 9.019614991088055}, {-6., 8.778283071579079}, {-5., 8.924973621703753}, {-4., 8.861181590160147}, {-3., 8.424204161808465}, {-2., 8.397374581058862}, {-1., 8.679080513870232}, {0., 8.811834547825175}}], Hue[0.34878707749138016`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQNSEYrHV8xXdIDwHtiz9PHoOi6G8T/YL14ZdWLP Fhj/h72wXchuo0swPoMDG9P9wtLfMD6LQ16sctp0AyUon8OBkZfvb2chjM/j YLPCa2/aPhhfwEFj/YYStx5lKF/IYYm9Tkn4JBUoX8TBoqbdkG2BKpQv5vAp V/Y/53o1KF/C4f+D19PNt6lD+VIOUxn39VUu04DyZRz+zEvY7pKmCeXLOazX Nz628DKMr+Dwv3iWwJSLML6iQ/BF9U9yyTC+ksNTR4X1Dz7AzFN2eLX6c6lz Boyv4sCa/eO6l7GGAwC2f1C8 "]], Hue[0.5848550549911664, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[{{-10., 11.277910049825843`}, {-9., 10.647809855107287`}, {-8., 9.76356416041026}, {-7., 9.019614991088403}, {-6., 8.778283071580004}, {-5., 8.924973621704714}, {-4., 8.861181590160232}, {-3., 8.424204161808598}, {-2., 8.397374581059774}, {-1., 8.679080513870721}, {0., 8.811834547825578}}], Hue[0.8209230324909598, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQN/IxSPr5iv6ADhPbBf0M+j67gYxv9gz7o66sSe LTD+D/tmh5DdRpdgfAYHX+b7haW/YXwWh3mxymnTDZSgfA6Hd3x8fzsLYXwe h98rvPam7YPxBRy2btxQ4tajDOULOfx30CkJn6QC5Ys4RNW1G7ItUIXyxRyu 58n+51yvBuVLOPQ+eT3dfJs6lC/l8ItxX1/lMg0oX8bh8qKE7S5pmlC+nAOH kfGxhZdhfAUHz/JZAlMuwviKDjyX1D/JJcP4Sg4tTgrrH3yAmafs0LTmc6lz Boyv4mCV/eO6l7GGAwBh3FLQ "]], Hue[0.05699100999074602, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[{{-10., 11.543104862319387`}, {-9., 11.970413598595952`}, {-8., 12.84755545682817}, {-7., 13.090167559948334`}, {-6., 12.400546917876458`}, {-5., 11.494913231616668`}, {-4., 10.895882965634334`}, {-3., 10.851692944998224`}, {-2., 11.129183063826428`}, {-1., 11.44521003795375}, {0., 11.575677293091697`}}], Hue[0.2930589874905394, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQP3Dk7V2a+m7gDhPbBn0Zt5wN8Ixv9gb/TmZaVk IIz/w97b4Lp0TguMz+CwfX1NbdwZGJ/FYaUB25cfGhpQPofD+Q+zXyvMgvF5 HCxZJgRvkteE8gUcfidrv7DYCeMLObxcdMH3VqoWlC/icGriprO3lbWhfDGH nbu3W3K/h/ElHOZJX9nPuFMHypdy+L+VVS7TXhfKl3EQmhp7aOpDmLycA49e 3+n6jzD9Cg6y9skP576G2afoIFJiWHP4I8w9Sg58E4MuTzGG8ZUdzI0OlWvO hflHxWFm9o/rXsYaDgDkplM+ "]], Hue[0.5291269649903256, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{-10., 11.543104862319716`}, {-9., 11.970413598597396`}, {-8., 12.847555456829394`}, {-7., 13.090167559949055`}, {-6., 12.40054691787715}, {-5., 11.494913231617259`}, {-4., 10.895882965634762`}, {-3., 10.851692944998847`}, {-2., 11.129183063827726`}, {-1., 11.445210037953927`}, {0., 11.575677293091987`}}], Hue[0.765194942490119, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQONh6bq7FdTd4DwHtgfNZh5wN8Ixv9gP+3ty0rJ QBj/h/0Og+vSOS0wPoND3Yaa2rgzMD6Lw3pDti8/NDSgfA6Hjx9mv1aYBePz OMxhmRC8SV4TyhdweJ2q/cJiJ4wv5JC/+ILvrVQtKF/EoXbSprO3lbWhfDGH T3u2W3K/h/ElHE5JX9nPuFMHypdyqNnOKpdprwvlyzjUTYs9NPUhTF7Oodqg 73T9R5h+BYcV9skP576G2afosKnUsObwR5h7lBxEJgZdnmIM4ys7HDc5VK45 F+YfFQfz3B/XvYw1HACaB1Yd "]]}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, AxesOrigin -> {0, 0}, PlotRange -> {{-10., 10.}, {-13, 9}}, DisplayFunction -> Identity, AspectRatio -> {340, 360}, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"E (eV)\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Dashing[{Small, Small}], Method -> {}, PlotRange -> {{-10., 10.}, {-13, 9}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, 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.616929920959221*^9, 3.616941761857315*^9, 3.6185661137219553`*^9, 3.618568080914858*^9, 3.6185694988040376`*^9, 3.6185723624386415`*^9, 3.61933149824289*^9, 3.6193361537694016`*^9, 3.6193363880057755`*^9}] }, Open ]], Cell[BoxData[" "], "Input", CellChangeTimes->{3.6193256325997148`*^9}], Cell[BoxData[ RowBox[{"(*", RowBox[{"Transtions", " ", "in", " ", "\[CapitalGamma]"}], "*)"}]], "Input", CellChangeTimes->{{3.6168336403319035`*^9, 3.6168336560840864`*^9}, { 3.619500954732065*^9, 3.6195009601198893`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"0.296", " ", "PRB12"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "6", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.615875509542263*^9, 3.6158755512499027`*^9}, { 3.615875591097419*^9, 3.6158755983325596`*^9}, {3.615875735049657*^9, 3.615875747534829*^9}, {3.6168327810358896`*^9, 3.6168327913922415`*^9}, { 3.6168329669278383`*^9, 3.616832970848625*^9}}], Cell[BoxData["0.29593720451534206`"], "Output", CellChangeTimes->{3.6168339196281815`*^9, 3.6168357806582804`*^9, 3.6168367372628927`*^9, 3.616837761389338*^9, 3.6168584634186316`*^9, 3.6169133648517923`*^9, 3.616929920987243*^9, 3.6169309274748974`*^9, 3.616931862625554*^9, 3.6169319316185484`*^9, 3.61693279879116*^9, 3.6169337071149993`*^9, 3.6169348157198553`*^9, 3.6169417620044193`*^9, 3.618566113987582*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"0.888", " ", RowBox[{"(", "PRB12", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "10", "]"}], "]"}], "[", 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.6168332434801693`*^9, 3.6168333388788943`*^9}, { 3.616834116650052*^9, 3.6168341181100903`*^9}}], Cell[BoxData["0.881576885067119`"], "Output", CellChangeTimes->{3.6168339196542068`*^9, 3.6168341196031513`*^9, 3.6168357232174993`*^9, 3.6168357840436816`*^9, 3.6168367372939143`*^9, 3.6168378373572707`*^9, 3.6168584634296412`*^9, 3.616913364866802*^9, 3.616929921001273*^9, 3.616930927487895*^9, 3.6169318626805935`*^9, 3.616931932615244*^9, 3.6169327988451977`*^9, 3.616933707162033*^9, 3.6169348157598815`*^9, 3.616934861296223*^9, 3.6169417620204325`*^9, 3.618566113987582*^9}] }, Open ]], 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["2.6145354699607295`"], "Output", CellChangeTimes->{3.616833919684243*^9, 3.6168342174366026`*^9, 3.61683572324652*^9, 3.616835785208508*^9, 3.6168367373259363`*^9, 3.616837839435745*^9, 3.616858463440649*^9, 3.616913364884816*^9, 3.616929921018263*^9, 3.616930927500903*^9, 3.616931862733631*^9, 3.6169319352230935`*^9, 3.6169327988992357`*^9, 3.616933707210067*^9, 3.6169348158079166`*^9, 3.616934862770255*^9, 3.6169417620364475`*^9, 3.6185661140032077`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "0.21", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "16", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "14", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6168335243515663`*^9, 3.6168335247318373`*^9}, { 3.616833561906227*^9, 3.6168335766677065`*^9}, {3.616834269340471*^9, 3.616834281286931*^9}, {3.6169078790278273`*^9, 3.616907881867843*^9}, { 3.6169181336224136`*^9, 3.6169181345290575`*^9}}], Cell[BoxData["0.22723770905777307`"], "Output", CellChangeTimes->{ 3.616833919717245*^9, {3.6168342742529373`*^9, 3.616834281865343*^9}, 3.6168357232815447`*^9, 3.6168357863202977`*^9, 3.616836737360962*^9, 3.616837841199011*^9, 3.616858463451657*^9, 3.6169078820989866`*^9, 3.616913364899826*^9, {3.61692992103329*^9, 3.6169299212094088`*^9}, 3.6169309275149126`*^9, 3.6169318627826667`*^9, 3.6169327989522734`*^9, 3.616933707257103*^9, 3.6169348158569508`*^9, 3.6169348646155715`*^9, 3.616941762051473*^9, 3.6185661140032077`*^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.706079619533734`"], "Output", CellChangeTimes->{3.6168339197462873`*^9, 3.616835723315569*^9, 3.6168357872799797`*^9, 3.616836737441019*^9, 3.616837847153224*^9, 3.6168584634626627`*^9, 3.616913364922841*^9, 3.616929921049287*^9, 3.616930927528922*^9, 3.6169318628307*^9, 3.6169327990053115`*^9, 3.616933707324156*^9, 3.616934815904986*^9, 3.61693486713736*^9, 3.6169417620664654`*^9, 3.6185661140032077`*^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.117990854370584`"], "Output", CellChangeTimes->{3.6168339197722836`*^9, 3.6168357234586706`*^9, 3.616835791848235*^9, 3.616836737564107*^9, 3.6168378513892393`*^9, 3.616858463540719*^9, 3.6169133649538627`*^9, 3.6169299210773063`*^9, 3.616930927555941*^9, 3.616931862882738*^9, 3.61693279905935*^9, 3.6169337073701787`*^9, 3.6169348159560213`*^9, 3.616941762092482*^9, 3.6185661140032077`*^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["3.8004761582183493`"], "Output", CellChangeTimes->{3.616834610368555*^9, 3.6168357234946957`*^9, 3.6168357926628*^9, 3.616836737592128*^9, 3.6168378533676367`*^9, 3.616858463550725*^9, 3.6169133649728756`*^9, 3.6169299210933185`*^9, 3.6169309275709524`*^9, 3.6169318629297705`*^9, 3.6169327991664257`*^9, 3.616933707417215*^9, 3.616934816005055*^9, 3.6169417621074934`*^9, 3.618566114018816*^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.7639770327281183`"], "Output", CellChangeTimes->{3.6168346716911073`*^9, 3.616835723526719*^9, 3.61683579337831*^9, 3.6168367376201477`*^9, 3.6168378572383976`*^9, 3.6168584635617332`*^9, 3.616913364994892*^9, 3.6169299211083283`*^9, 3.6169309275849624`*^9, 3.6169318629697995`*^9, 3.6169327992194653`*^9, 3.6169337074632463`*^9, 3.616934816056093*^9, 3.6169417621225033`*^9, 3.618566114018816*^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.270488081182326`"], "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.6169133650169077`*^9, 3.616929921123339*^9, 3.6169309275989714`*^9, 3.616931863078876*^9, 3.6169327992755036`*^9, 3.6169337075092793`*^9, 3.616934816106127*^9, 3.616941762140517*^9, 3.618566114018816*^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.905400538345011`"], "Output", CellChangeTimes->{3.616834826320863*^9, 3.616835723594767*^9, 3.616835794794313*^9, 3.616836737675205*^9, 3.6168378599603295`*^9, 3.61685846358175*^9, 3.616913365035922*^9, 3.6169299211383486`*^9, 3.616930927613983*^9, 3.6169318631269116`*^9, 3.616932799329542*^9, 3.6169337075543118`*^9, 3.616934816155164*^9, 3.6169417621565294`*^9, 3.618566114018816*^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.753833032925044`"], "Output", CellChangeTimes->{3.6168348602549534`*^9, 3.6168357236277905`*^9, 3.6168357955658607`*^9, 3.616836737703204*^9, 3.616837861196197*^9, 3.6168584635917544`*^9, 3.6169133650529356`*^9, 3.616929921152359*^9, 3.616930927628993*^9, 3.616931863175946*^9, 3.616932799384581*^9, 3.616933707600343*^9, 3.6169348161931906`*^9, 3.616941762172556*^9, 3.618566114034458*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"Other", " ", "transitions"}], "*)"}]], "Input", CellChangeTimes->{{3.619500984682315*^9, 3.6195009904924393`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"1.3", " ", "LB"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"banda", "=", RowBox[{"Interpolation", "[", RowBox[{"Take", "[", RowBox[{ RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "10", "]"}], "]"}], ",", RowBox[{"-", "p"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"banda", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"0.85", RowBox[{"p", "/", "2"}]}]}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.6169452292622356`*^9, 3.6169453511547704`*^9}, { 3.616945438630872*^9, 3.6169454619154015`*^9}, {3.6169454967391243`*^9, 3.6169454971514173`*^9}}], Cell[BoxData["0.9985564650623643`"], "Output", CellChangeTimes->{{3.6169452338765244`*^9, 3.616945258844237*^9}, { 3.6169452994280677`*^9, 3.6169453518072324`*^9}, {3.616945441240737*^9, 3.6169454487400603`*^9}, 3.6169454990938144`*^9, 3.618566114034458*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"3.5", " ", "PRB32"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "6", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"p", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.616945510727072*^9, 3.6169455568498154`*^9}}], Cell[BoxData["2.8511128926188323`"], "Output", CellChangeTimes->{3.6169455459680724`*^9, 3.618566114034458*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"9.5", " ", "PRB32"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "-", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"p", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.61694558969013*^9, 3.6169455897801933`*^9}, { 3.6185742384564505`*^9, 3.618574263200034*^9}}], Cell[BoxData["8.081005131994509`"], "Output", CellChangeTimes->{3.6169455902284946`*^9, 3.618566114034458*^9}] }, Open ]] }, Evaluator->"New Kernel", WindowSize->{667, 669}, WindowMargins->{{0, Automatic}, {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, 1687, 46, 173, "Input"], Cell[2269, 70, 2234, 40, 48, "Output"], Cell[4506, 112, 2150, 37, 33, "Output"] }, Open ]], Cell[6671, 152, 2047, 56, 209, "Input"], Cell[8721, 210, 1456, 41, 149, "Input"], Cell[CellGroupData[{ Cell[10202, 255, 803, 17, 73, "Input"], Cell[11008, 274, 4039, 77, 266, "Output"] }, Open ]], Cell[15062, 354, 5447, 128, 352, "Input"], Cell[CellGroupData[{ Cell[20534, 486, 765, 19, 110, "Input"], Cell[21302, 507, 4389, 84, 274, "Output"] }, Open ]], Cell[25706, 594, 1717, 48, 130, "Input"], Cell[CellGroupData[{ Cell[27448, 646, 890, 19, 73, "Input"], Cell[28341, 667, 4299, 80, 273, "Output"] }, Open ]], Cell[32655, 750, 5113, 130, 397, "Input"], Cell[37771, 882, 337, 9, 32, "Input"], Cell[CellGroupData[{ Cell[38133, 895, 2099, 53, 268, "Input"], Cell[40235, 950, 47124, 875, 271, "Output"] }, Open ]], Cell[87374, 1828, 2339, 63, 244, "Input"], Cell[CellGroupData[{ Cell[89738, 1895, 744, 17, 73, "Input"], Cell[90485, 1914, 4469, 84, 269, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[94991, 2003, 1864, 45, 153, "Input"], Cell[96858, 2050, 26066, 504, 268, "Output"] }, Open ]], Cell[122939, 2557, 2675, 72, 253, "Input"], Cell[125617, 2631, 2673, 47, 113, "Input"], Cell[128293, 2680, 429, 10, 45, "Input"], Cell[128725, 2692, 23039, 529, 2256, "Input"], Cell[151767, 3223, 1098, 33, 101, "Input"], Cell[152868, 3258, 249, 7, 32, "Input"], Cell[153120, 3267, 22201, 516, 2254, "Input"], Cell[175324, 3785, 1007, 28, 53, "Input"], Cell[CellGroupData[{ Cell[176356, 3817, 2585, 58, 173, "Input"], Cell[178944, 3877, 216362, 4424, 430, "Output"] }, Open ]], Cell[395321, 8304, 71, 1, 32, "Input"], Cell[395395, 8307, 229, 4, 32, "Input"], Cell[CellGroupData[{ Cell[395649, 8315, 892, 24, 53, "Input"], Cell[396544, 8341, 431, 6, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[397012, 8352, 770, 23, 53, "Input"], Cell[397785, 8377, 501, 7, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[398323, 8389, 990, 25, 53, "Input"], Cell[399316, 8416, 493, 7, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[399846, 8428, 867, 23, 53, "Input"], Cell[400716, 8453, 559, 8, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[401312, 8466, 690, 21, 53, "Input"], Cell[402005, 8489, 442, 6, 33, "Output"] }, Open ]], Cell[402462, 8498, 225, 4, 32, "Input"], Cell[CellGroupData[{ Cell[402712, 8506, 686, 20, 53, "Input"], Cell[403401, 8528, 425, 6, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[403863, 8539, 683, 20, 53, "Input"], Cell[404549, 8561, 425, 6, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[405011, 8572, 686, 20, 53, "Input"], Cell[405700, 8594, 430, 6, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[406167, 8605, 659, 19, 53, "Input"], Cell[406829, 8626, 506, 7, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[407372, 8638, 606, 18, 53, "Input"], Cell[407981, 8658, 419, 6, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[408437, 8669, 607, 18, 53, "Input"], Cell[409047, 8689, 422, 6, 33, "Output"] }, Open ]], Cell[409484, 8698, 156, 3, 32, "Input"], Cell[CellGroupData[{ Cell[409665, 8705, 1139, 33, 73, "Input"], Cell[410807, 8740, 266, 3, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[411110, 8748, 661, 20, 53, "Input"], Cell[411774, 8770, 112, 1, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[411923, 8776, 711, 21, 53, "Input"], Cell[412637, 8799, 111, 1, 33, "Output"] }, Open ]] } ] *) (* End of internal cache information *)