(* 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[ 251969, 5177] NotebookOptionsPosition[ 249028, 5079] NotebookOutlinePosition[ 249591, 5101] CellTagsIndexPosition[ 249548, 5098] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"lattice", " ", "primitive", " ", "vectors"}], "*)"}], RowBox[{ RowBox[{"latticeVec", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "0"}], "}"}]}], "}"}], "//", "N"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"reciprocal", " ", "lattice", " ", "primitive", " ", "vectors"}], "*)"}], "\n", RowBox[{"reciprocalVec", "=", RowBox[{"Transpose", "[", RowBox[{"Inverse", "[", "latticeVec", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"lattice", " ", "constant", " ", "for", " ", "Silicon"}], "*)"}], "\n", RowBox[{ RowBox[{"aLattice", "=", "10.26"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "half", " ", "of", " ", "the", " ", "volume", " ", "of", " ", "the", " ", "primitive", " ", "cell"}], "*)"}], "\n", RowBox[{ RowBox[{"vAtomic", "=", RowBox[{ RowBox[{"(", RowBox[{"1.", "/", "8."}], ")"}], " ", RowBox[{"aLattice", "^", "3"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.613310868629519*^9, 3.61331088145165*^9}, 3.613310917569337*^9, {3.614344591465966*^9, 3.6143445943726187`*^9}, 3.618201769519229*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "0.5`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.`", ",", "0.5`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5`", ",", "0.5`", ",", "0.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.6133116341403236`*^9, 3.613311674471027*^9, {3.6143444995370765`*^9, 3.614344535961562*^9}, {3.61434459591965*^9, 3.614344621187236*^9}, 3.6143446884427156`*^9, 3.614344728945816*^9, 3.614344864271308*^9, 3.614344916166498*^9, 3.614344967748975*^9, 3.6143450170500965`*^9, 3.6143467594027276`*^9, 3.6143468296900377`*^9, 3.6143469672964497`*^9, 3.614347068854734*^9, 3.6143477682284527`*^9, 3.614348105485095*^9, 3.6143482971498203`*^9, 3.6143485803539505`*^9, 3.614348872180479*^9, 3.614349111342379*^9, 3.6143492439656353`*^9, 3.614349849045096*^9, 3.6143499622109704`*^9, 3.61435058681826*^9, 3.614350693250638*^9, 3.61435077054897*^9, 3.614861698656787*^9, 3.6148617788606534`*^9, 3.614863726818818*^9, 3.614923005814368*^9, {3.614923187179685*^9, 3.6149232134171095`*^9}, 3.614923297970207*^9, 3.614923381143669*^9, 3.6149234507928343`*^9, 3.614923512395259*^9, 3.6149235918727255`*^9, { 3.6149239008750253`*^9, 3.61492391929828*^9}, 3.61492402467577*^9, 3.614924529027211*^9, 3.6149247549253807`*^9, 3.6149250195540085`*^9, 3.6149252676559205`*^9, 3.614925393454908*^9, 3.6149254335523252`*^9, 3.614925471417185*^9, 3.614925566504586*^9, 3.614925633112813*^9, 3.614925674882448*^9, 3.614925895637972*^9, 3.6149260565690565`*^9, 3.6149261735810204`*^9, 3.6149264919307427`*^9, 3.614926554613184*^9, 3.614926741117538*^9, 3.6149272130181246`*^9, 3.6149273409735527`*^9, 3.6149274122771215`*^9, 3.6149274489420996`*^9, 3.614927531754815*^9, 3.6149275847120867`*^9, 3.614927630617637*^9, 3.6149276616116133`*^9, 3.6149277319384947`*^9, 3.6149277739552865`*^9, 3.614927810851428*^9, 3.6149278558243337`*^9, {3.6149279722268667`*^9, 3.6149279989267797`*^9}, { 3.614928034304882*^9, 3.6149280597599297`*^9}, 3.614928092630218*^9, 3.6149281441437535`*^9, 3.614928189082605*^9, 3.6149291776888895`*^9, 3.6149292649987907`*^9, 3.6149293621356626`*^9, 3.6149299988607407`*^9, 3.614930123100832*^9, 3.6149356893825855`*^9, 3.6149358542995143`*^9, 3.614935893243124*^9, 3.6149359354280314`*^9, 3.614938859376103*^9, 3.6149389089822755`*^9, 3.6149389855695825`*^9, 3.6149390678589425`*^9, 3.614939137750479*^9, 3.6149391749408665`*^9, 3.6149392126715984`*^9, { 3.6149392518614063`*^9, 3.6149392804116306`*^9}, 3.614943935676337*^9, 3.614943970540077*^9, 3.6149440016020823`*^9, 3.614944034633501*^9, 3.6149440880363665`*^9, 3.6149450171861143`*^9, 3.614945062784815*^9, 3.6149454901825523`*^9, 3.6149458224843097`*^9, 3.6149461658106537`*^9, 3.6149468154442635`*^9, 3.6149470729298086`*^9, 3.6149471870527253`*^9, 3.614947286334118*^9, 3.6149475857854385`*^9, 3.6149476691075363`*^9, 3.614947752253478*^9, 3.614947824769906*^9, 3.6149478978637123`*^9, 3.614948122686118*^9, 3.614948200770481*^9, 3.614954341568587*^9, { 3.6152120879465265`*^9, 3.615212106178449*^9}, 3.6152123227301836`*^9, 3.6154702548166122`*^9, 3.6154703815455785`*^9, 3.6155589026668234`*^9, 3.615559051160223*^9, 3.615559145071912*^9, 3.615559233884942*^9, 3.6155606989857397`*^9, 3.6170183462004147`*^9, 3.6170187359751096`*^9, 3.617018838810116*^9, 3.617019372645328*^9, 3.617019531112828*^9, 3.6170200168646746`*^9, 3.6170203617185135`*^9, 3.617020699883149*^9, 3.617020945575368*^9, 3.617021852157078*^9, 3.6170220167018933`*^9, 3.6170223370369654`*^9, 3.6170224584847355`*^9, 3.6170232566860037`*^9, 3.617023336151398*^9, 3.617023530464436*^9, 3.617023742246803*^9, 3.617023825953209*^9, 3.6170248524200172`*^9, 3.6170352042555227`*^9, 3.61814882374571*^9, 3.618194830815035*^9, 3.6181950617150354`*^9, 3.618221014536268*^9, 3.6182210478419237`*^9, 3.6193580886962447`*^9, 3.6193581283664274`*^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.6143444995370765`*^9, 3.614344535961562*^9}, {3.61434459591965*^9, 3.614344621187236*^9}, 3.6143446884427156`*^9, 3.614344728945816*^9, 3.614344864271308*^9, 3.614344916166498*^9, 3.614344967748975*^9, 3.6143450170500965`*^9, 3.6143467594027276`*^9, 3.6143468296900377`*^9, 3.6143469672964497`*^9, 3.614347068854734*^9, 3.6143477682284527`*^9, 3.614348105485095*^9, 3.6143482971498203`*^9, 3.6143485803539505`*^9, 3.614348872180479*^9, 3.614349111342379*^9, 3.6143492439656353`*^9, 3.614349849045096*^9, 3.6143499622109704`*^9, 3.61435058681826*^9, 3.614350693250638*^9, 3.61435077054897*^9, 3.614861698656787*^9, 3.6148617788606534`*^9, 3.614863726818818*^9, 3.614923005814368*^9, {3.614923187179685*^9, 3.6149232134171095`*^9}, 3.614923297970207*^9, 3.614923381143669*^9, 3.6149234507928343`*^9, 3.614923512395259*^9, 3.6149235918727255`*^9, { 3.6149239008750253`*^9, 3.61492391929828*^9}, 3.61492402467577*^9, 3.614924529027211*^9, 3.6149247549253807`*^9, 3.6149250195540085`*^9, 3.6149252676559205`*^9, 3.614925393454908*^9, 3.6149254335523252`*^9, 3.614925471417185*^9, 3.614925566504586*^9, 3.614925633112813*^9, 3.614925674882448*^9, 3.614925895637972*^9, 3.6149260565690565`*^9, 3.6149261735810204`*^9, 3.6149264919307427`*^9, 3.614926554613184*^9, 3.614926741117538*^9, 3.6149272130181246`*^9, 3.6149273409735527`*^9, 3.6149274122771215`*^9, 3.6149274489420996`*^9, 3.614927531754815*^9, 3.6149275847120867`*^9, 3.614927630617637*^9, 3.6149276616116133`*^9, 3.6149277319384947`*^9, 3.6149277739552865`*^9, 3.614927810851428*^9, 3.6149278558243337`*^9, {3.6149279722268667`*^9, 3.6149279989267797`*^9}, { 3.614928034304882*^9, 3.6149280597599297`*^9}, 3.614928092630218*^9, 3.6149281441437535`*^9, 3.614928189082605*^9, 3.6149291776888895`*^9, 3.6149292649987907`*^9, 3.6149293621356626`*^9, 3.6149299988607407`*^9, 3.614930123100832*^9, 3.6149356893825855`*^9, 3.6149358542995143`*^9, 3.614935893243124*^9, 3.6149359354280314`*^9, 3.614938859376103*^9, 3.6149389089822755`*^9, 3.6149389855695825`*^9, 3.6149390678589425`*^9, 3.614939137750479*^9, 3.6149391749408665`*^9, 3.6149392126715984`*^9, { 3.6149392518614063`*^9, 3.6149392804116306`*^9}, 3.614943935676337*^9, 3.614943970540077*^9, 3.6149440016020823`*^9, 3.614944034633501*^9, 3.6149440880363665`*^9, 3.6149450171861143`*^9, 3.614945062784815*^9, 3.6149454901825523`*^9, 3.6149458224843097`*^9, 3.6149461658106537`*^9, 3.6149468154442635`*^9, 3.6149470729298086`*^9, 3.6149471870527253`*^9, 3.614947286334118*^9, 3.6149475857854385`*^9, 3.6149476691075363`*^9, 3.614947752253478*^9, 3.614947824769906*^9, 3.6149478978637123`*^9, 3.614948122686118*^9, 3.614948200770481*^9, 3.614954341568587*^9, { 3.6152120879465265`*^9, 3.615212106178449*^9}, 3.6152123227301836`*^9, 3.6154702548166122`*^9, 3.6154703815455785`*^9, 3.6155589026668234`*^9, 3.615559051160223*^9, 3.615559145071912*^9, 3.615559233884942*^9, 3.6155606989857397`*^9, 3.6170183462004147`*^9, 3.6170187359751096`*^9, 3.617018838810116*^9, 3.617019372645328*^9, 3.617019531112828*^9, 3.6170200168646746`*^9, 3.6170203617185135`*^9, 3.617020699883149*^9, 3.617020945575368*^9, 3.617021852157078*^9, 3.6170220167018933`*^9, 3.6170223370369654`*^9, 3.6170224584847355`*^9, 3.6170232566860037`*^9, 3.617023336151398*^9, 3.617023530464436*^9, 3.617023742246803*^9, 3.617023825953209*^9, 3.6170248524200172`*^9, 3.6170352042555227`*^9, 3.61814882374571*^9, 3.618194830815035*^9, 3.6181950617150354`*^9, 3.618221014536268*^9, 3.6182210478419237`*^9, 3.6193580886962447`*^9, 3.619358128370448*^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.972"}], ";"}], "\n", RowBox[{ RowBox[{"ktf", "=", "0.62"}], ";"}], "\n", RowBox[{ RowBox[{"qz", "=", "2.17"}], ";"}], "\[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.6133112982392683`*^9, 3.613311316104977*^9}, { 3.6143446813795605`*^9, 3.61434468669247*^9}, {3.614344726414199*^9, 3.6143447269768777`*^9}, 3.614344862568003*^9, {3.614346718930319*^9, 3.614346720227192*^9}, {3.614861619390584*^9, 3.6148616316812997`*^9}, { 3.6148617353488226`*^9, 3.6148617402933283`*^9}, 3.6148617716705756`*^9, { 3.6149229981885567`*^9, 3.6149229983760395`*^9}, {3.614923120592188*^9, 3.614923121029714*^9}, 3.6149235080823393`*^9, 3.61492389584309*^9, { 3.614924020331833*^9, 3.6149240205349274`*^9}, {3.614924527238942*^9, 3.6149245281215887`*^9}, {3.6149253914134564`*^9, 3.6149253917046633`*^9}, {3.614925601793622*^9, 3.614925610847045*^9}, { 3.6149256997901087`*^9, 3.614925701158058*^9}, {3.614925893472435*^9, 3.6149258941038837`*^9}, {3.6149259926347446`*^9, 3.6149259937485147`*^9}, {3.6149264906398416`*^9, 3.6149264906868615`*^9}, {3.614926553410348*^9, 3.6149265535154057`*^9}, { 3.6149267262349787`*^9, 3.6149267263740983`*^9}, {3.6149276272732844`*^9, 3.614927628997508*^9}, {3.6149281406983175`*^9, 3.6149281409635057`*^9}, { 3.6149281826830864`*^9, 3.6149281834566145`*^9}, {3.614929033574703*^9, 3.6149290706590166`*^9}, {3.6149291450137157`*^9, 3.61492917165761*^9}, { 3.6149293529261537`*^9, 3.6149293604234695`*^9}, {3.6149299772624474`*^9, 3.6149299966571984`*^9}, {3.6149301140003986`*^9, 3.614930120510014*^9}, { 3.6149356602849665`*^9, 3.614935681205811*^9}, {3.61493583376597*^9, 3.6149358508781137`*^9}, {3.6149358918671474`*^9, 3.6149358921723824`*^9}, {3.614935932808194*^9, 3.6149359342261796`*^9}, { 3.6149458119988503`*^9, 3.6149458208591337`*^9}, {3.6149468115194664`*^9, 3.614946812453124*^9}, {3.6149470692762375`*^9, 3.614947071697936*^9}, { 3.6149471843498287`*^9, 3.614947185241461*^9}, {3.614947284739007*^9, 3.6149472848280525`*^9}, {3.615212317383408*^9, 3.6152123174624643`*^9}, { 3.6152875273902035`*^9, 3.615287527505286*^9}, {3.615470206336213*^9, 3.6154702274041696`*^9}, 3.6154702639400883`*^9, 3.615470373076586*^9, { 3.6155588570554447`*^9, 3.615558901142741*^9}, {3.615559045192008*^9, 3.6155590495200777`*^9}, {3.6155591394499226`*^9, 3.615559144327383*^9}, { 3.6155592296959686`*^9, 3.615559232916274*^9}, {3.615560697340559*^9, 3.6155606982162*^9}, {3.6170183190431223`*^9, 3.6170183268646936`*^9}, 3.617018732858897*^9, {3.617018826863654*^9, 3.617018827374017*^9}, { 3.617019366502988*^9, 3.6170193671104193`*^9}, {3.617023740326419*^9, 3.617023740542573*^9}, 3.617023824928501*^9, 3.6170248494569206`*^9, { 3.618196570678954*^9, 3.618196573366598*^9}, {3.618201793916571*^9, 3.61820180391768*^9}, {3.619358063668468*^9, 3.6193580792025013`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"Vl", "[", "k", "]"}], "*", "27.211"}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLinesStyle", "\[Rule]", "Dashed"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1Gk0lWsbB/CNN2k8jkJEInalSKKB6lKpnAoh0+lwDJkipaKMxUYZMu4j aht3yH6E7ZhCXIbXkMocGbZZiB46qEPpfd4P97rX78u11n3//+uStbluaMdP o9HiqfP/+5zdRCtOGh+fvfdawOkNgR9zTGwGJNTAM/KbryNlsXWdEX9LaIPg Yti0PeWXFX4ud+h6kMwXpH+FsvKRzemJEpdAW200w4oybdNk7E8Zc+DT5ny5 TLl1+lWANd0SWiW7VU0oG9g2lljHWUPFe1cHfcoaLQfyYiSuwJvG61FnKe84 lpRZw7IHPq++F8cpr+cIJc/LOIF5alGlGuV5sVtxCmxnaFei1e2m3M/of2RC dwXnE2UoTdn2G7u65tINEFedyhWm3KVsfvyPODdoComM5aeMT2vUH0nchq4E ncMjTQSqtd3lKlx2hwknm39bKWcJKStVsDzgWstKTiXlGPd4eVLGEwqa3n59 TFkwWzflgbUX1IsLhQVQ9hrml9rO9oZxxw4RF8q2+tc2GdD9QKpWjXaUcneQ XOSkwz3gybfZyVGm85xXVV26Dz8PbcbVlJ9slvU3j/OHKIunhs2vCWT4h90N lQgER1OjWQPKFVL2RSalgXA7On95H+VvxVrzcpeDwCJmbHk9ZZfPC9fLWMHA Pj/cU9NI4KXLVg7TMiGgyebbrEA5YlEjvQRDoDSvoW6pgcCGaNGRQOtQuB2e 7NpM+VjDa0tpdhj0PkxKdKdMV1c30aNHgGjPB8/CegKtWn5hStZHwCo1sfcB lJ86T7WOO0SCmj6xU5+yUGtzRuWlKOAXFyJG6wj0WR0kZxYXDaYXuQcEKF+5 TUqESDBhl1mcycZaAg8IxHjl32BC+rv7Zv+tIZA/Rq23t54J/qYDst6Uk3M9 Wcoef8GU79F1I9UE9kwJyHS0xYFZirXGsyoC9a23yMuEJ8BSaYzkdAWB22ZL A3VGEuAfC21WJOVpP4sxN40n0OWVML6fcigrLaN24glUPGZ03nxFYG3X3t1X T7Pg4lD5tvEyqn96J5QLV5IgtK/jZkwJ9Z7+kQiecTI03DEMkaPc5RxMrn6R DMK0SSduMYGltXZmL5RSYKCgPqSpiECzYY4ErS8FxHsVz84VUH2RVmelH04D zWzbFn4uNY/5W+rs3DMIdQybPP6cwOXDQ8upkumQJ5fonZ9J4Of+uyZGp9JB g13Gr0C5fefzdUXMdBCxjJgVzCAwqUzQw/tQBhTnpOpWsKm+jtScE/TNhKpv /fTlJCof1ePzW4U48KJnUTGHSaBRV6feWxUOmIwZxtMon/G5luVnzgG2yOMV g1gC99SxLIc4HLh3zqpoLprARfPlhgxdAsRly9/LRxIY7l+SuD82G9L0nP41 DyGwuEX17NltuWATIlRP86X6NDmts/dMLkg6rTw76EOgPX/muV9dc+HYzuBQ Z29qX6ht1et9lQsi7sMubZ4EljX5c4qV80Du/FIM04PArfuucs+/y4OrHbHB U9epfBc0Km9tyIdbvswdPGvqPxl9PTVhBbDzxqLfzEkChQfpex1SC4CWW6LS coLAxqNuvmuLC0A9p+k1V4vKb3HVdoPhAtC89aHE7Tg132mfHe9wISTZmDBG jxDI0wsgv40VwgXfv4TiVKg+Su76j7JWMeg4tTIVpQm8zr2lFD//EuDBnOWu fzj4+ehQe6NQKYCLcA1vjoMuDXpey1KlIOJ59iRzloOOA7vrLU+XQsSDmZjv Mxy02jBopRBXCpO6LxjVExy86HSBmX+oDJzOCnXv4HFQRVZh+Y1XOQiZGC4f a+Dgl6j3DXx8lcDlHNrAS+BgQ1VdZfPRagj75+J+CUUOOnn+tsF8uha2RLOi AnKysGqN6s/sa/XAv3emTVolCzPYtSuSCq/BI2x0wIr1HLXEXqUZ5byBF6GR jLo1z1Gpvq+kTrEZvH7xe6d0KxM7tIw+Z31ugYy+biP3xgx0Wevc1qnSBvYB 6t8d6BnY1G36amNEOxSJPP0w5JaORmfMhkZHO8C8wbRQrOIZHkwJM02Rfw97 7kvvpYs+w8GV2A7He11QkLn8ONKCjWO/NbPFarpBk9sZWJyfhnkJA56tsj0w +HLR6udSKqY/FAjZ7dULs4az2o06qbhg+/uUfVkfWF+RUlqTnoLrtIMNueI8 8H9pU+0/k4w+wmPrh/4YgLWixR9+5CTh+oo9tC7dQbB/Tovv9k3EYx76P2qW BiGpLmvCSJOFrGfh7B2sIVBYnP21SuwpWhqrvV1zfhgiH6aspY8kYGGnXWzF 4jAorRK8+aMiHo+8yeMfjxsBe+c2f9vix7j9tP1CrPYo+FQrbj3HjkN1NfXo gvFRcDVL21nE+QsHvjxqZAeNwb2eZvajSiZOHzAIklAdh4N1N8ZbG2OR/klp iq99HGQqeRraMzFYK+/edsP/I1Qd5Ov1Wx2DkR2dtobyE+DsUCV1/0g0kkYY zV87AS2Hvk9Z3InCfGPRU0fcJuGgYNvepN8jkf2WkTgsMgVfLxTyL88+wq/1 f3iLVE8By1hS665nOA5GVy4Iu36Cy0vSs21bwnCxVVMiYOM0FItLZ2b3h+AN phx6lk9D7sLcSa+4hyj+Vk541HIGTOVCmAo3H6BRZ/Z3qZUZcMkyuu/8ZzB+ +TPVpY/zGTyG1aRlTwZhpVVu0MYLJPz5duuo26lALG12Oc/TI+GwZfFpCQjE ouOKv+YYkDDoZOxTpRGI2VLpLF1TErpn+R03qwbik+4nf4fbkJDFXateuz0Q 3S8GD631JGHOaFPQ+RUG7tGyOLY6g4Ttobu+fX3JQHqupEDXcxLgeyX3ZSED 5bZ1N2QQJHz0ytf04TJwy3fDS2e4JCQObUaBLAYKlug4B5WTQNtfFywVz8Ch fWoJAu0kREynfLrtwcC+pDnL9k4SRjlpCaduMrB7Q648u5uE+cR80U2uDHz3 aXfeSR4JZyKv3imwY2B5pky9/yQJ3slH+mnGDCwR6w83mCZhYoT42nmRgX8H PTGUJUnozVs9QFxgIMdWlIfzJNh/nNz0uzYD09va2FFfSTCx3GmtqsXAlBNR TlZLJHjdLfdad5SBrDzdfSo/SNBpCLQaO8TAxzLrFn7+JGFh9LIIHmDg/wAA 3Aox "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, -3700.}, 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->{{0, 1}, {-3558.2051070481466`, -614.4687850169418}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6182210147604275`*^9, 3.618221048035061*^9, 3.6193580889053936`*^9, 3.619358128531543*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"non", " ", "local", " ", "pseudopotential"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Rb", "=", "1.06"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"constnl", "=", "6.1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"lmax", "=", "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"], " ", SqrtBox[ FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "l"}], "+", "1"}], ")"}], RowBox[{"4", " ", "\[Pi]"}]]], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "2", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"x", " ", "kx"}], "+", RowBox[{"y", " ", "ky"}], "+", RowBox[{"z", " ", "kz"}]}], ")"}]}]], 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.614344912478548*^9, 3.6143449143850393`*^9}, {3.6143450147530317`*^9, 3.614345014893656*^9}, {3.6143450769781747`*^9, 3.61434507729071*^9}, { 3.6143467281028137`*^9, 3.614346729118549*^9}, {3.6143468243301306`*^9, 3.6143468248615522`*^9}, {3.6143469533888245`*^9, 3.614346964233556*^9}, { 3.614347051337102*^9, 3.614347063369613*^9}, {3.614347715926361*^9, 3.6143477180985045`*^9}, {3.614347916509304*^9, 3.6143479253852153`*^9}, 3.614348006473606*^9, {3.6143480936555614`*^9, 3.6143481005626965`*^9}, { 3.6143482881644735`*^9, 3.6143482945089393`*^9}, {3.6143483617814603`*^9, 3.614348362125266*^9}, {3.6143488601481934`*^9, 3.614348869195912*^9}, { 3.6143489444043956`*^9, 3.614348951483283*^9}, 3.6143491064201574`*^9, 3.6143492381212606`*^9, {3.6143499561166515`*^9, 3.6143499594608235`*^9}, { 3.6143503993748555`*^9, 3.614350406656926*^9}, {3.614350541406763*^9, 3.614350542953833*^9}, {3.614350577629565*^9, 3.614350583364716*^9}, { 3.6143506840935965`*^9, 3.614350690687909*^9}, {3.6143507668453903`*^9, 3.614350767189394*^9}, {3.6148616785485497`*^9, 3.614861682074049*^9}, { 3.6148617584391756`*^9, 3.6148617743614845`*^9}, {3.614923002079549*^9, 3.614923004423572*^9}, 3.6149231106693864`*^9, 3.614923183632193*^9, { 3.614923376846305*^9, 3.61492337867472*^9}, 3.6149235105200157`*^9, { 3.614923899359177*^9, 3.614923917266865*^9}, {3.6149240224568577`*^9, 3.61492402281639*^9}, {3.614924752100395*^9, 3.6149247536835194`*^9}, { 3.614925015977475*^9, 3.6149250182531056`*^9}, {3.6149252647378516`*^9, 3.614925265746587*^9}, {3.6149254269426517`*^9, 3.614925431576917*^9}, { 3.6149254692406425`*^9, 3.6149254693747377`*^9}, {3.614925563663591*^9, 3.614925564730348*^9}, {3.614925615138068*^9, 3.6149256300896854`*^9}, 3.6149256704022527`*^9, {3.6149260048844104`*^9, 3.6149260180697584`*^9}, { 3.6149261677048707`*^9, 3.6149261725763245`*^9}, {3.6149267302658577`*^9, 3.614926739992754*^9}, {3.614927201907265*^9, 3.6149272119974194`*^9}, { 3.614927339307384*^9, 3.614927339408456*^9}, {3.614927408038116*^9, 3.6149274097292967`*^9}, {3.6149274463552647`*^9, 3.6149274476111746`*^9}, {3.6149275159075985`*^9, 3.6149275300726414`*^9}, {3.614927583175017*^9, 3.614927583514258*^9}, { 3.614927657533724*^9, 3.6149276596002054`*^9}, {3.6149277255069346`*^9, 3.6149277259402432`*^9}, {3.6149277703327*^9, 3.6149277707299786`*^9}, { 3.614927808052462*^9, 3.61492780946144*^9}, {3.614927854001021*^9, 3.6149278546104546`*^9}, {3.614927970609721*^9, 3.614927997762973*^9}, { 3.6149280329088717`*^9, 3.6149280912812605`*^9}, {3.6149281858753295`*^9, 3.6149281877927094`*^9}, {3.6149291625972033`*^9, 3.614929166434925*^9}, { 3.61493885408538*^9, 3.614938857187552*^9}, {3.6149388925726404`*^9, 3.6149388953866367`*^9}, {3.6149389803218575`*^9, 3.6149389836032114`*^9}, {3.614939057123311*^9, 3.6149390663158445`*^9}, { 3.6149391305133667`*^9, 3.6149391366346893`*^9}, 3.6149391733437138`*^9, { 3.6149392106591716`*^9, 3.6149392111265187`*^9}, {3.614939244001813*^9, 3.614939247848558*^9}, {3.6149392779799256`*^9, 3.614939278534318*^9}, { 3.614943931644499*^9, 3.6149439331975994`*^9}, {3.6149439687367973`*^9, 3.6149439983797984`*^9}, {3.614944030394515*^9, 3.614944033071413*^9}, { 3.6149440864202385`*^9, 3.6149440864952745`*^9}, {3.614945482259863*^9, 3.614945488947998*^9}, {3.6149460543676167`*^9, 3.614946054517723*^9}, { 3.6149467865017223`*^9, 3.6149467941671777`*^9}, {3.6149475791627426`*^9, 3.614947584847794*^9}, {3.6149476670120506`*^9, 3.6149476670910864`*^9}, { 3.6149477491853137`*^9, 3.6149477507884507`*^9}, {3.6149478236741285`*^9, 3.6149478237431774`*^9}, 3.6149478957452297`*^9, {3.6149481197730722`*^9, 3.614948121429226*^9}, {3.6149481987210484`*^9, 3.614948198779071*^9}, { 3.615212320613701*^9, 3.615212320703747*^9}, {3.6152875327009735`*^9, 3.615287532972166*^9}, {3.615470236786831*^9, 3.6154702614503202`*^9}, { 3.6155588750151925`*^9, 3.6155588857708282`*^9}, {3.6170183379145203`*^9, 3.6170183447803917`*^9}, 3.6170188354427433`*^9, {3.617019371146264*^9, 3.6170193715585766`*^9}, {3.617019529010356*^9, 3.6170195296237907`*^9}, { 3.617020013977646*^9, 3.617020014623082*^9}, {3.6170203595469723`*^9, 3.617020360078332*^9}, {3.6170206978727217`*^9, 3.61702069828201*^9}, 3.617020943243713*^9, {3.617022013979977*^9, 3.617022014530369*^9}, { 3.6170223319333224`*^9, 3.6170223351696186`*^9}, {3.617022456176116*^9, 3.617022456779525*^9}, {3.6170232544824395`*^9, 3.617023254953774*^9}, { 3.6170233336116147`*^9, 3.617023333964845*^9}, {3.6170235281007557`*^9, 3.6170235285540977`*^9}, {3.617023734905591*^9, 3.617023736024386*^9}, { 3.6170352008511267`*^9, 3.617035201882859*^9}, {3.6182018116061654`*^9, 3.6182018181037636`*^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}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV03c4F94XB3BkZ3z2hwqhlIhPZbTPITP1jexNRpEie5VRJFFWsrJXlB2S ZK/KSEVJyWjKSijR7/P76z6v597nue9z7j3ip1xPOrCxsLC4sLKw/H9d1jl/ R9c1+PByW/om0lMGmnKGknulrKAtOpFAZDozBoyipc6DYlTMFD/TvILWsW/S vIF9OrqMm+kWw3QfF6lLYF8YY8HK9OGe6ZJ/g6HA5pc6u9TNwNQLAhJdaeHw b7LcZYrpZYrcrTjbSJg5NNT3nmnD2uPcFlI3YPg2WaSX6Tf3qx/H/YoB5QEn vcdMXw3S8FkajIPx2x/P3WVaSe81w6IuASSNQt3jmZ6QcPzWmJYImRoG1gFM xy38ytkalATWzjYKtkyrtIdZRtqmwMPIsjk1ptOd8vr0pdJhf5/mVk6m8+9s ULdgz4SYC/mp410MvBQ+lnXjVyYMcPn+aWBa1sTd/OdgNnzJK77gyvQ6lf21 W7tyIOysTKQa02+l2agmdblwI8v0Op3piJXYnvq0fDDx4NCq6WSg9YSpzEx0 AejzF6y7wrTSc/EI8aBCEKZA4X9MT6aXq4TbFoH/Sva9kQ4Gqqr2V52QKoH8 H8m5Y+0MFJZJJobSS8Fpt3ZROtPL1xjKZuxlkKKfm2zCdJ/7cnzUrzIYruhQ bG9j5leLOD43WAGme/odI1oZ+G3vVECkbiWcUfxSv4dpw526RZJdlbDeOm71 XQuzPpoQl1FdFZgmSIA0028/FzTWpVWDxPR0e2ETAzXerZ/Rp9bAdkkjryNM l/e5ivyIroGzoU6C7xqZ9T5U9hcLqgX9P/JcXEwrX+/Yc8W2DoLq8njUGhiY IPc5/7hUA8R58wWb1TGwm324Zv3dBqg+bZnQ+ZCBLMM9nV0yTyC4TXe/AtPV R8x/ZQs1wo6/kgfZaxkoMatKFxNtgnDiO9GrDxj4R4tkTpdugZkPXBlCZQyk KkTZeTu3gPOYzrR1KQMZYpwur4pboCOpaSC3hIGOv34Hxsu1QvHjyFPb7jPw RdbHdEGFNiDXdicJFjGw6E/ZGBd0QJWJ5AOXHAa2Te747hjcAU1FO2Oisxk4 2pf7s62pA/R/snPdy2IgrSCJ/YpaJ9gE5nV9zGBgqH6wFMvRLihOeXCfkcZA s3snnJcNnoJXduExiwTmvFhNz31x7oUHF9eWfoQy0PtV/+/5gl7Y6lvw73UI A8ePPWBdnegFjdHV1cfBDHwv0hARId8H5jcsR8MuMfvBF5aUdrcPNoTUa676 Mev5RqptvdMPdbX8bNfdGNieJ7dECR+AfXqRBlstGBhou3klOXcAhg7cFOgx Y+BuEdI/0ZYBePzq33NPU+b/T/jFKc3yEl5UyVrXGzHzXK6nHfJ/CWfOC7/Z o8dAKdujSg7nX0HT0IPMVnXm/G1y9HpgNAhijTdPXNjJwO2l5UpZnoPwx/fN w3EZ5nuqrC5FxQ3COk+p/wx2MFDgdIK/fc8gZARwL8lvY2BieXMQWWMITBJa TPs3M+dNQyzyguIbyJTsH68nM/vtNpS+kzIMI4HcNt6z8riu7WhnXv97qC37 fX3GRx6FdPc3b5h/DwriQbppHvIoOyxdf5P0AY5reEiou8qj0Rx3mZ/+BzhA G/4V6SiPhSIdt4+/+gCfCaeiPxvIo9SjrEp/l1Eobe4V/sSQx26y6GUJt48Q MyHezvFJDsltNAl3n3FIz8toO6guh9VTmUZN+Bl+aqmafl2QxXsSRRnK5t/h 0FHPbBczGRRTmo4POzUDI/o5e/7Llka9qw5PVOLm4Ai7tpbFzDZ87E+Gl6k/ Qd3zhEwhpxRzXvjrGkJ/gULfee15pS1ofyuPl2qzBDYNyk8+uEkgfgycXHP4 DY4uob6uUZsx72bmI9Regdwsjs9f74mgQtu6TTTDVTjeP7ObR2IDhjixnzQ2 /gc7HlnNJLyjoUxtoYpvKgvqtuXIAwcFZf6dz7iRwYqtXscEauSJ6Ooz/Ec3 jg31BaXqh2P4Uavy9EbL5HW4neSAk+PcGJzfLJWRyo7n4p85tbxkx7/dLfLR URy48U1vwMVgVuSvnFhtjeVEBYEtZZZ1f+HUs+KuwjAulFF2+CxfvgS0OyrB zZ7c2ESp363p/RNOezAE+ny5USCPS9bK4SfUaoulMd8W365T4g8x+Almi39r lq9wY4zH4Qvfdv+EjBO1M3K3uNFBmE1KZ3YetrPJW6c+4MavAYEX4Nw87D+9 6bDnIjcWcR5be+Y6B9a7lla2+vJgzks3uxuyM+Cd+W7fdAAP0spLDh0gzUCU YLNPdRAPDtkfdv2zNA21P6J+alzlwWCb4qrSlmkgFEl8P53Ig9Ja2r0L5tPQ LPHf27tVPHhvi6n/x5s/QIqSV7tzjgeFtilFcHJMwY/Fk16KzrxIuhb+JFbi K5Amj7397zwvDh+7sq+G9ysoDWjAGXdefF+bXjgz/wWCS/fzpPoz91/L7E9u +QKkMxJ3WK7z4tlrO5eeO3wBpTdzrU+LeTF8TUSt6v5nuPQohnLqBy8W6Dqt bNP5BILBPZU33NYjja0w/GTdOJDueswmeK5HKdkvY/sLxoHyQmhnqu96vEvu nt2dMA5CW+zyC4LXI2elxh+98+OwuXMpqTFmPQqLX684KjkODIL4pfmy9ZjY /01BNGYMdDM9tIzm1uPkJwcWXq+PENsoNCLizoebXEId2wbeg0loVdd7Lz5s dCAcmqp+D5vVdKsz/PjwWm+z9o6U91DScfWmeAgf3mknPf1u8x66exZVtsbw oVL1zMvQmRFgG3mZL1vChwbHqPoLhBHw/B3jduAbH6a7fPEOth8G49087Kan +DHtVcuTHTpDIOvxkH7WkR/zdQs8qnYNAVuVk8xFZ35UJW03MhQagnuK3Sez 3Pmxtk/F7t3kILDtu571NZQfg0jabashg1AC/OCfw4++9IzVSw2vgf040T91 gh+7ju4K4tJ6BRWnhWdHHAVQfW3R617yCzim0lhZ5CyAJM2KbUPhL+DzhtM+ PucFsEJBP47i+QI29VStEbwFMFgh0vbJfy8gXEGXXy1MAL87rcQPs78AM9ar O4pyBHC/pXiDpGc/sKUu2HuPCuDX64r8mVZ9oNfT+0bATBDjbk4uhTc9g84x ca9OS0HUXmcdKZz7DHDJgxBqK4jXckoa28OfAWOzkOavM4J4QFOj0+3YMyC4 21QN+whiRvUCkfXNU+ijzt0ovCWI69MEt7MudYOuJUlNtV8Q/VYibRbVu6Dz gv2HlZeCGLGnbW+NTBdgeLX/gyFBTExRVY8hdgGj1Kx8+6ggcj3/Uho50gkE 1hxRwRlBLPhxujHduxPOvEj+e46TgIpdbrf23O+A7d47BvdvIaB183HfGJl2 +P7Eci9KEfD3kLfxXlI7lPDEJqtvJyCpa5r7z3IbKNxZMteVJaAOW/q17vY2 UGltHXVQIOCvjZ8T7ti1gRnJ+luMGgEndr9OXs5qhaiS+NVP9gRsFtoa+p3R AieW262mHAnYdjI0ImdDC5BU/zyZO0NA2xCBSnf2Fkh6ZRP614WAAwdyJIyG miHv704ukhcBr6wzZsiHNEPD0U7CoTACsj7dayI02ARzn/5KxucRUC9YCg7G NwLtosyIVwEBjTW3BbKENMJBslmiyV0CasVW1b0+3wgRUMMtep+A5jyG/2qP NoJo0oUfhVUEZBzgXD25rhGOaX+qbmgh4BadHwcyZhogv7hX+9tHAp7gLULu 4Xp4prLG9nycgKb3q20H6+phflC2vnSSgP9yZ960p9TDIfZIOa+vBNT4Em3N aV4PLy3UyCxzBKwc1ixnH3kErAIP31FZiLhymXrw06c6sHDLdlURJWJhbjIG ER8Cj4Z5/bHNRGQVlHFpma+F6o0UHhMJItZu3Jgl/bIWCB1h2eeliLgsyZVr frsWWkScXqXKEXEyetulk2K1sOOp/IHFw0Q8/bnHyFWxBpa2PuYstiZic9v1 Y9f8HkDuipd+tS0R6T3aLP1WD0C3Xy6zyY6ICrNHXyqpPYCiwMx9Q6eJuLfv pKOF4AOwGrjswuFGxO1OJ5fXF1RBa/DRF9bBRDx51Vx3fLgS4oYH71CyiJj9 SCyg2KwCslevq65mE7FDlM2LS70CysXw82QuET9UmGf4y1dAn10ho6aQiDpN m+Ty2SuAf8q3xbSMiCHSki8Fy8oh4q/w1/QnzPzDjwM2rC+HSyIWCtLviWi5 6PN6IbsUbgDhDXGUiEaEXU1SF0vhjm3rxT8fiSianvg6xLgU6vNkO55OEpHg tHG8gq8Ufu9cNT3/g4jtLWOKf31LwPNwelDlXyLSPvI08pjeB2fr0e5DG0l4 TvZjMadSMXwRdR7eJEJC4RZKVC21GBzf//y+IkrCqR/rvKN/FcEpSy7+OgkS mh87PprxoAjMzeVOKO0g4dB9Tgc75SI4Zhw4ILePhO9PmhzQUrkLcieE3okZ k9D6bNxs/rkCuCeQPbVmQsLvh8dq/fUKYEePzOqIGQll11tdPadYAFLHQTTN ioQkvl2PS1fzQUzH0UbIkYRnX8kczrmZDwTNqgmCF/O+hkpv2Yd5MHdY9wdr PAlFnQeGVsRzYfGQfSzPLRJOj0jP23Plwt+DvorE2yRsyvDQnJ7KAc4DmRc3 p5Lw5qtdG2xrc2CT8iw/5JBwr2zKrRbdHNCQj5ELrCThpyOfFi2vZkOKWJ/r 4gAJe9eCnf7xZkGG6AR57RUJTV1kS+QWMiFXZLmGY4iE5aoMfv+RTCjduJmF +o6ElrLc6fZlmdBKd4vZM0HCfY1vi8OMM2FakFDutkDCu3XZjx8aZsARFt35 bxQyFqxNu4l3p0GRjvV0L42Mp4tGXxTnpQHp9vlvVUJk/HDlTJdNSBqM7Ywe u7SJjPlGG5u096VBqHn3C9IWMvJ+pq+RilOhsVqtcv8eMl4NJ+hYJKbAoXP7 PCP1yMh4ZquUEZkEubVabq76ZLwzUW+2/WwS8LGbuBgYkvHbQ+321zpJ8C7F 217UlIxCwpYD2fxJENhZaVBhQ8ZkaW23n3G3oU5STvGtKxlB9e0Vg9xEUH4r sSh9g4yGJOm19R8TQMqhPkw5howaInaRZS0JQJk1pKrHkXFs6cKJgPwEmOe4 pmCTSEZ5elFvqEsClOyacU9MJ+OFxoUWgz/xIHXt0QxbKRmHfUOnRzbFA22v wdfhXjI2csSLmQXGAkfLD9+v/WRMWjVovmAXCwvHr3IvDZCRW3JQt+hoLLyw q9tGGiLj6usPcReFY+HGzc2OWqNk1HQNtSmsjQHOz1NjVbNkfM1lUfz29034 dSvsXTSRgqXXhiUs90bDyYaFwVgyBZ1JYTrLAtFQ9slu4BaVgl1iectdk1Hg oqzafUeYglsjbd4KJkTB2NBazX1xCr71zcgS/Xkd+jb6xj/fRcFj33JPEB5F wr0s56P8JykYM87nF+cWAbzdb9SJBhTMEUSTK8cj4My8lgrViIK7XnDy5+2I AMkj2/aKmFGwNcKF5D55FVImxrfuPEVBB6W/xgqWVyFimyXrcXcKlinWzm83 DAe7+ydqo+IoaG/3762xwxXYIlG3/nwCBXu5Wdirta/AROIW6xOJFNRzN9yo LHcF7IN/c5BSKEjx5PTIWroMDvo5+rezKNi29NGWFHUZTv9enM4qo2D2mHum 6qNQOKuevrWmh4LH++x4+naFgGwdt19SHwUzt7XcwA0hMCXn8czvBQWb91Ox ly0EXIS0PA6+puA1+5AkjZfBcO77XGPTCAW1pvZpJPsGg2ususWzKQp6htn4 2UQHgcfIVNxHXiryHvAMcp8JhLrYj37f+ajYdNvs9EpLILBpvLb5JUDF3Wue 55qSAiGm5IkcD5mKA0UJt9cdCYSSoLhuxkYqEs8N9BinBMA38b1swTJU/Nv/ 5L+/+v5g43j5gugxKtae0P4tM+cDhRt8Tbb/R8VvickTbc98YKbHBXbrUlFV RrYivtAHLikb8WsYUPE/s29jXTY+kMotffecBRULx7QVkge84XVRz2i9CxWH D9o5XWv2guMzwrrm0VSUdNxXO93iAYszPDdVbzLPp4r9uVbgAZmzv59Lx1Kx fY/tNZ3rHrAw90ZnOYF5X0ZxH+p7QNpCsuatNCo+sZAamJ5wh6nfwtBbTMWO SZ0ReUF3iGLfIHekm4q20wYOvJfcQImD99yOZ1S04FC6SXN0g1GOP8XEHipu jsp1PfKfGyhwvZUe7adi/J6zJWuibvCOJ2XrxTdU1E0o0flx2RVkBDeI1Hyh 4lGPed24jeehW3gDnwwXDcvH7tzu8TkL4zUfqrl5aJgHN9TVdc/CX8M820+8 NDyY2HFtbvtZ2BnHqMkSoGF386aOr2+dIYZX85QQjYakNr9WPRVnMFzxqOXY SsMnnCcPt9OdYPTdc/tRVRoGXH4lduWrI/z2jxdsUKOheWK6A6PTEUjCpnWp GjScemprw1vgCEcMJwSNj9JQV9XpuoaDI+Q//1P3XI+G/Dsc7N+MO8DZhm3E RzY01Kidc1D+ag+LGSGPb11i5t22rGxAtoPEi/0rqcE0/G7vwP994RQomYvv zw6lIcVuf2Hp61PgTWuqLgmn4cPZLTubUk7BryiWso4bNNxI1Qta23IKFvyC sn+n0/DX4nRRsYotzOtfvGr5hIa2/r7CxgrWELfreZtdEw3vPszj5mGzht2C IuzOLTR08U7K4uqzAvfu+mDvDhouPN676auLFczhX7+bvTRUIkTa7SqyhNmd AS5NH2jYe9EwxH+3Bfzg8tPbykLHPG2+g1t9TGF2V+tnbjY6Er6HNpzWNYV5 c8FLU+voePcDg2dM2hQWS/OKKrnoWMRzuTtwxARYTF6sUxWko1fdnSFVTROg FMpUW4nSkasidWf/FmPYr/V+Q9JBOu6XSHTj4TSEg+7S5QGH6XiHeIarbtIA IM1T0xrp2N7zvTi5zQDUZnk9pdToeDBto8hkmAEcT1J+XqVDxz3DxsV53AZg 8yUmqN+Mjoa7BQYTafoQHnFkgtePjmdEiUYJJ/WgJTW2ViqAjjkNMl9iFfSA pfRDlOpFOp6zU3zWSNMDv1cBiv4hdLzO3mBaPqwLLhJV4V+vMfPVsOq+Oq0L evVbpDtT6Bi267lDH/EEbJrlOB9WT8fBdYzqxCEdMFlnoJrVQEd9lzWO3gId uEXLpj1upOMXkZQgEx8dEDh0+MlCKx13XjZfsKDrAGukN8H+OR23pKhKi5of hU+SnytU39Pxtjz5EG1OCySVFa9ajdJxk5aV6LY2LbA5etncf4yOzx4NXg9J 1oI3bmLsFZ/oGMo2f4B4RAuePTY2FJ+ho5LVRuebyZrA3Z8nfWiO2Z8PAeKj rpqgPvFz1eQnHfWCrAa9NTShgTcmP2aJjjG47YrnggasiLz3v/ebju9t7DLe PtWAvbtkT3Su0JHvy1PWsBwN8FTzl5xYpaORkxh4BGhAuXHn0r9/dASr+u+5 +hrwP2s6It0= "]]}}, 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., 16.793245114100472`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.617163223484523*^9, 3.6171632743020697`*^9, 3.6172684357803164`*^9, 3.6172712448950663`*^9, 3.617363900985019*^9, 3.618148910956853*^9, 3.618201326015982*^9, 3.618201362520929*^9, 3.6182017188562183`*^9, 3.6182210148634806`*^9, 3.6182210481291265`*^9, 3.619357928819674*^9, 3.6193580889794464`*^9, 3.6193581285955877`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"bnl", "[", "l_", "]"}], ":=", RowBox[{"Sign", "[", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ SuperscriptBox["x", "2"], RowBox[{"fnl", "[", RowBox[{"l", ",", "x"}], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "20"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"bnl", "[", "0", "]"}]}], "Input", CellChangeTimes->{{3.6117576391545377`*^9, 3.6117576475284824`*^9}, { 3.6121727726716723`*^9, 3.612172773301124*^9}}], Cell[BoxData["1"], "Output", CellChangeTimes->{{3.611133549809416*^9, 3.61113356591285*^9}, 3.6111336468483067`*^9, 3.6111344337770023`*^9, 3.6111344792892933`*^9, 3.6111347310820475`*^9, 3.611297581509088*^9, 3.6112979730530577`*^9, 3.6112981871320353`*^9, {3.61129923054055*^9, 3.6112992510220747`*^9}, { 3.6113022116418905`*^9, 3.611302237363139*^9}, 3.611302305915808*^9, { 3.6113024314049087`*^9, 3.6113024514621353`*^9}, {3.6113025157307606`*^9, 3.611302567348415*^9}, 3.611302641297903*^9, 3.6113026904467945`*^9, 3.611303078563326*^9, 3.611303182061801*^9, 3.6113032298117065`*^9, 3.6113033522466393`*^9, {3.6113033914504576`*^9, 3.611303413665242*^9}, 3.6113034671382036`*^9, {3.6113036027374535`*^9, 3.6113036182314687`*^9}, { 3.61130368504488*^9, 3.6113037133810177`*^9}, 3.6113037446982293`*^9, { 3.6113037858504667`*^9, 3.6113038133279734`*^9}, 3.6113039176390057`*^9, 3.611303959897005*^9, {3.6113043938279014`*^9, 3.611304417696828*^9}, { 3.611304448669814*^9, 3.6113044705893755`*^9}, {3.611304821652602*^9, 3.6113048401927805`*^9}, {3.611304887574422*^9, 3.6113049287976675`*^9}, 3.611469662138717*^9, 3.6116649468912697`*^9, 3.611664992371497*^9, 3.61166509696766*^9, 3.611665142385892*^9, 3.611665193252948*^9, 3.6116653562785482`*^9, 3.611665393946228*^9, 3.6116675439446387`*^9, 3.611667608549446*^9, 3.611675087273054*^9, 3.611675127050257*^9, 3.611675185996071*^9, 3.6116752754064646`*^9, 3.611675323382465*^9, 3.6117568137295494`*^9, 3.611756849518962*^9, 3.6117568935261993`*^9, { 3.6117569351927843`*^9, 3.6117569627773623`*^9}, 3.6117569988049393`*^9, 3.6117570328130894`*^9, 3.6117571195676804`*^9, 3.6117578983855705`*^9, { 3.611757943177387*^9, 3.611757971278318*^9}, 3.6117588790077367`*^9, 3.6119313500098634`*^9, 3.611931390229146*^9, 3.612066248010021*^9, 3.612066326714096*^9, 3.6120664326685305`*^9, 3.6120664699033723`*^9, 3.612066543138661*^9, 3.6121728396522236`*^9, 3.6121729305927844`*^9, 3.612172998293849*^9, {3.6121731179047823`*^9, 3.612173141500512*^9}, 3.612173192863976*^9, 3.612173283337205*^9, 3.6121733331805916`*^9, 3.612173398319837*^9, 3.612173464927125*^9, {3.612173499560707*^9, 3.6121735550711346`*^9}, 3.612173590631369*^9, {3.612173628898536*^9, 3.6121736841687655`*^9}, 3.6121737316274767`*^9, 3.612173931101487*^9, 3.6121739747344637`*^9, 3.6121740053491993`*^9, 3.612174046881682*^9, 3.6121740798140616`*^9, 3.612174129046014*^9, 3.612174169178503*^9, { 3.6121742038291035`*^9, 3.6121742325374937`*^9}, 3.6128733124256067`*^9, 3.6128733757186327`*^9, 3.6128739605048304`*^9, 3.613027139629397*^9, 3.6130274277233095`*^9, 3.61302750490283*^9, 3.6130301261246724`*^9, 3.613037155020501*^9, 3.6130373663059454`*^9, {3.6130376006177087`*^9, 3.6130376204208*^9}, 3.6130379652588377`*^9, 3.613037998245333*^9, 3.6130382271056647`*^9, 3.6130383306874022`*^9, {3.6130387059024453`*^9, 3.6130387194580746`*^9}, 3.6130391220115733`*^9, 3.613039387704853*^9, 3.6130395695432806`*^9, 3.6130397261378565`*^9, 3.6130397676323867`*^9, 3.6130399621378183`*^9, 3.6130400345793743`*^9, 3.613040107341221*^9, 3.6130401916092157`*^9, 3.6130403108420753`*^9, 3.6130403912242627`*^9, 3.6130417303853526`*^9, 3.613042934988676*^9, 3.613044738440745*^9, 3.613044843780715*^9, 3.613045004364006*^9, 3.613045699842984*^9, 3.613046603494117*^9, 3.6130470123361087`*^9, 3.6130485810977716`*^9, { 3.6130486287437057`*^9, 3.6130486494153953`*^9}, {3.6130488267976418`*^9, 3.6130488424888043`*^9}, 3.6130489032530527`*^9, 3.61304896617183*^9, 3.6131250833175707`*^9, 3.6131251494586434`*^9, 3.613194235298151*^9, { 3.6132245767537994`*^9, 3.6132246052740993`*^9}, 3.6132247832577686`*^9, 3.6132248595000305`*^9, 3.613224939924271*^9, 3.613225147734188*^9, 3.613225274875655*^9, 3.613225465066035*^9, 3.6132255833461957`*^9, { 3.6132256435440397`*^9, 3.6132256692503543`*^9}, 3.6132258775816045`*^9, 3.613226387483505*^9, 3.613226711667248*^9, 3.613226787968552*^9, 3.6132272180196056`*^9, 3.613311634902884*^9, 3.613311674557107*^9, { 3.6143444996464696`*^9, 3.6143445360709195`*^9}, {3.614344596060257*^9, 3.6143446212966146`*^9}, 3.614344688536415*^9, 3.614344729039547*^9, 3.61434486438068*^9, 3.6143449162602453`*^9, 3.6143449678427286`*^9, 3.614345017159476*^9, 3.6143467596683536`*^9, 3.614346829940044*^9, 3.6143469675464325`*^9, 3.614347069104719*^9, 3.61434776852533*^9, 3.614348105750743*^9, 3.6143482974154453`*^9, 3.6143485806195836`*^9, 3.614348872508626*^9, 3.6143491115924025`*^9, 3.6143492442937627`*^9, 3.6143498494044743`*^9, 3.6143499625391035`*^9, 3.614350587130762*^9, 3.6143506935787635`*^9, 3.614350770845851*^9, 3.6148616988229055`*^9, 3.6148617789557233`*^9, 3.6148637269198866`*^9, 3.614923007283099*^9, { 3.614923187539064*^9, 3.6149232135108657`*^9}, 3.614923298048333*^9, 3.6149233812374196`*^9, 3.614923450949087*^9, 3.61492351248901*^9, 3.6149235919508624`*^9, {3.6149239009687777`*^9, 3.614923919423281*^9}, 3.614924024754094*^9, 3.614924529132288*^9, 3.614924755028452*^9, 3.6149250196601167`*^9, 3.614925267763006*^9, 3.6149253935579653`*^9, 3.614925433646389*^9, 3.614925471510248*^9, 3.614925566655692*^9, 3.6149256332218914`*^9, 3.6149256749765167`*^9, 3.614925895741044*^9, 3.614926056664124*^9, 3.6149261736861043`*^9, 3.614926492024807*^9, 3.6149265547733*^9, 3.6149267412796774`*^9, 3.6149272131262197`*^9, 3.6149273410816216`*^9, 3.614927412381177*^9, 3.614927449046194*^9, 3.6149275318638935`*^9, 3.614927584823166*^9, 3.6149276307227325`*^9, 3.6149276617197075`*^9, 3.614927732048574*^9, 3.6149277740663652`*^9, 3.6149278109575033`*^9, 3.6149278559334106`*^9, {3.6149279723369446`*^9, 3.614927999034854*^9}, {3.614928034409938*^9, 3.6149280598659873`*^9}, 3.6149280927553053`*^9, 3.6149281443098984`*^9, 3.614928189244731*^9, 3.614929177803967*^9, 3.6149292651139045`*^9, 3.6149293622577505`*^9, 3.6149299990538793`*^9, 3.614930123219916*^9, 3.614935693495497*^9, 3.614935854649761*^9, 3.6149358933461943`*^9, 3.614935935526101*^9, 3.6149388597363586`*^9, 3.614938909317542*^9, 3.6149389859618654`*^9, 3.6149390679760075`*^9, 3.614939137869563*^9, 3.614939175059931*^9, 3.6149392127756724`*^9, {3.61493925198248*^9, 3.6149392805397196`*^9}, 3.614943935822441*^9, 3.6149439706801767`*^9, 3.614944001741184*^9, 3.6149440347495832`*^9, 3.614944088238508*^9, 3.6149450173114357`*^9, 3.614945062909813*^9, 3.6149454903075333`*^9, 3.6149458225936656`*^9, 3.6149461659357424`*^9, 3.614946815602376*^9, 3.614947073091923*^9, 3.614947187215841*^9, 3.6149472865442896`*^9, 3.6149475859455543`*^9, 3.6149476692646294`*^9, 3.614947752469643*^9, 3.614947824993044*^9, 3.6149478980228243`*^9, 3.614948122846233*^9, 3.6149482009365997`*^9, 3.6149543417476945`*^9, {3.615212088061589*^9, 3.6152121063635807`*^9}, 3.6152123228442655`*^9, 3.6154702563507*^9, 3.6154703816596594`*^9, 3.6155589042399197`*^9, 3.615559051250287*^9, 3.6155591451619563`*^9, 3.6155592339730053`*^9, 3.6155606990737877`*^9, 3.617018346343504*^9, 3.617018736118213*^9, 3.6170188389652452`*^9, 3.617019372787449*^9, 3.6170195312689385`*^9, 3.6170200170578103`*^9, 3.6170203618696203`*^9, 3.617020700114312*^9, 3.61702094577551*^9, 3.6170218523031797`*^9, 3.6170220168479958`*^9, 3.6170223372461014`*^9, 3.6170224586368637`*^9, 3.617023256884127*^9, 3.617023336329525*^9, 3.617023530647564*^9, 3.6170237423918858`*^9, 3.6170238261003137`*^9, 3.617024853092498*^9, 3.617035204348591*^9, 3.6181488244512124`*^9, 3.6181948383467917`*^9, 3.6181950620275416`*^9, 3.618221014964573*^9, 3.6182210481901703`*^9, 3.6193579322661233`*^9, 3.6193580890104694`*^9, 3.619358128621608*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vnl", "[", RowBox[{"kx_", ",", "ky_", ",", "kz_"}], "]"}], ":=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmax"], 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}, {3.6193579435241203`*^9, 3.6193579436812315`*^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:eJwV1nk41dkbAHDRUERmJnTtu1R2phi8Z9pTbuEiLbKXoUVi0Nd1vxWlRS43 oWvrjqtuslYka/wi1VzrMLJv2fKdaVAT6XfuH+c5z+c5z/Oe933e9zzP0fI5 4+wvLiYmloGXaHfwn2itnXS1Z++d4Fhlk+h9gZvPAM0SLF/L3BJZUaYzoZS2 A048DY8W+Vk1M/g3fTo4yhh6iWxsvS43g8YArWbtLSKL/TiZ/E3DA4z/9RUX uXWm6qK3vieMx83UWWI7+b4q907xhobYyjCRbVosipJofuD3d7uayDp2mXn1 3AAIaTSvsMBeI1iVNacRCE9k/nIQeU4xNEWPFwRy1S+F5th9l/puuumfhnMD i3tE9v3Me1HPOAvvz0Y8NcPuMvawP5oSApmhtutFrr1bb3WTdh4qW9PLTbAt 2yKK9Y6EwXsTq0/G2A9WGRtVc8OhcaXSRpGTwlJ1KY1I0KYVB2/Glsx3zL7i HQUKRwOJTdhRw+KqmrwLUKIayNoouv/AqR+d9JnQoQ7+G7C7Y7VvTZ6Iget+ CrsMsPX7g76rY7DA2dRCRR87fZ0W6ZFCQojvzns62JfI6xHXaJdhntmgo45d rRrw1K3iMoT/3MVXxf5chua0j8SCWbKZugp28Oz8mefcOKjTrJpUwmYc8Tox oxEPyWtN5+SxExZscstr46FTjEVbi93EVhi57H0Njt1XspDFtmtq9lTjXYd4 Q/Xtq0X5WVm50fUTwMTv6p9i2F4taznKjQnwb7hi5nIWie4GTbWOn7gFg14z HkvYq1qF/BpGIni9OVPwCZuQitU+lMIGn7jO5g/YfucpWjyNA+3zmq1d2BYS SVElZzkAS2szOrDFkyzfvWvkgMs+6yOt2FmFkVzj8NtgPmxT0IzdMyWh0dGW AhEtXwoqsQ94r9fVuJEGDKkwlUxs9b8rLu8ZSYP40DUy6dgzzGNjITbpUFvc P3Mb+xr3Hr9hIh1Gmi2u3MRu6Nps+OtOLrjG5SgS2Db0X4yfLGfCtB0n201U T99IQr9rFmy401fqhN0VFEdJPcqCr0E+z/ZjVzT4H3pklA12Zep3t2EfGhbQ xHqz4Z227zMj7CQ1K27u1nuww1jfe4UoHmdvzt///A49xR+PZWaSaHHr0GKO ci4YXflgmIo92xfh5rI9F+79NzHJxm43uC/zlJMLmpNDO2OxM59Lhl/Ywgd1 z75TQdiWI/UOktF5IE+XZFphe5nbz6msEkDZ84tZtRkkcunqpL81FcA94cPp cuxdxKkHTA8BTOzp2lSMvekl13NIIID/BFZXc7AXPBab+I4P4ers98Uk9g2y PMMsOR90hG71gF3WYr57t3ohLHfHT5Vw8TxNzuzZvKsQkoUhYw+wA8TzHL4/ XQjFzM6ObGxFSxX6u6pCGHKUZydgP39NCsqMi+BznmtMILaKya/F+/4oAktX Ews17J55m5pQ2RIojeN9vnAX5yu+HgVolcB0nf6lEOwSufnaQ1YloKiyQfwE 9jWDwhd2x0rgr8jcPidsGw+dl1KPSkDN9Ka0AXZapczbu/tLoWOFjq0wHffn Um9P/fXHIDkt9k0RW35Qf/OJnMfAX2pUlMZ+ZRsSLV32GGaHpLS+puF4C99p Og0/Brusj2tGsFUCTfz7tz6BYfPfthVg99MvUp/HnkBGsrvuNmw/5Q0rjVEZ tDo4NxxPJdGZ4lCj1LlnsHsbkziXgvtrO9T+alUFXK1Rc/DFDm6iRy2qVoDH liUZBvbJAcNGz50VEMAOD7bC9pId9NJLqQDNA37Zn26T6GDgfk7JlufgaQ8d kdimWnqLb6IqwWtjW3AYh0QfE/9sWrGiBiw8S0/uTcLvu+5ljdD2BRx78eXU vzdIFBi5V9ZjpgH0LQQ9g3Ekqltt/i3/VCOwd463R7BIxOc1LCvrNcMh5es/ lUeQCClW3XMpeAOap33qK86SyKixt/zlRiEEnlSeNjtJog7kMvtgtgWOVgb7 GXjieqSD2jpN22CBJverHINEr7vdq+QS2uFwc3Oi8x48j7sODY2OdoB8QPlK CVsS/ZR93T1b90/QO0wP7zAh0eBycsfJmC7g+nxW6NUi0dheIU+xvhsqx06x 1daRqChtILJVqwdizTyOh68kUe5ViXjDqHfQnrvD3XWOheZ9D08FPO8FfrY5 I2OUhWR2xDkXK/XD7vWOqn+1sRAhP7Zm6OgAVCnQilPqWGhN9SaxLsdBSDVb tyRTxEJ24Qe+1n8ZhIXY80kMLgtxf7/B0+EOAdn45PW+eBbydLV8u3rfMFgr M9SXQlnoSad/cvXCMCTZ1u738WQh6zdF4uMpI8DI0Z7j7WUhzZ0B88k7RiG8 ZySVNGchK0sr9uPxUaDuv2E4q7LQwMebr3ixY9BwbmLDKkkWmrFwiqWZj0M6 IUHF9MQg/WmjqRXt40CiUFnDhzGoQTes7Sz5HjRVLtjlh8egWx2dvs66ExCw svVwyo4YRLnUssUbJuDImNNAzA8xqMRVYbt1yCRIoahppXdMxHt7KWP4hyko TQ3h+/OZ6FPj0Qs/vJgCK97CoH0wEw2ya+blT09Dw53hKg1zJlpo/Zl2UW4G hBnnZCUWo9FZjnZtZOUMBKYps+nV0Ujprbb8qOcH6O3s0f3f5Wjk0pm/pLr8 AehttVmcfdHo4/Gc4F7BLFykMWYL1kSjGq/CWLn9FNQFrc3a2kqgCmHwvn46 BcJRXphRC4Ge2m/8vsAJnx9/b6ctJFC+ai7X0Z2Caz6XeTJvCZTenV56w4eC +VbX+r4mAoUdjBuSjqQg3vqge0wtgTahY3ZSfArGTcIGywoJpF+oLNF1nwI+ 0+EfQQGBtNW7m/gPKdDSU5rLeESg9UvOjF3FFKReyRJeekggyfI9QbGVFDRJ 5/fT8wg0ZGKZJtFOwa7fCj2HMwnUm/mPZ3snBTw56cSODAJ1yxbq8ropSLdj lb7kEuiPacOibf0U2J1vahGkE6gyT6ORnKRgtF7K/1wKgcoV+244zVAQfYdp 4HebQKWx6c5aFAWlBjq9rhwCCXwV+mvnKPBmL6tYJxEot62Nl/iJgpo567yN bAJl/5IY6PWFwp+JfF3VRAJxixxNTL9SEBbizpG9RaA7GjLz375RIK5gv7B8 k0D/B5mBs5s= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 455.}, 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, { 3.619357949321238*^9, 3.619357952090205*^9}, 3.619358089163577*^9, 3.6193581287386904`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "definition", " ", "of", " ", "vectors", " ", "in", " ", "the", " ", "reciprocal", " ", "space"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nsize", "=", "9"}], ";"}], "\n", RowBox[{ RowBox[{"indicesTri", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Outer", "[", RowBox[{"List", ",", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "nsize"}], ",", "nsize"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "nsize"}], ",", "nsize"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"-", "nsize"}], ",", "nsize"}], "}"}]}], "]"}]}], "]"}], ",", "2"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"gspaceVec", "=", RowBox[{"indicesTri", ".", "reciprocalVec"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.608012946645978*^9, 3.6080129796868677`*^9}, { 3.6113037757392673`*^9, 3.6113037800103188`*^9}, {3.6132255808224015`*^9, 3.6132255813087473`*^9}, 3.618201911480137*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"eMax", "=", "6.0"}], ";"}], " ", RowBox[{"(*", RowBox[{"maximum", " ", "kinetic", " ", "energy"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kmin", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kmax", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", "30"}], ";"}], " ", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "points", " ", "calculated", " ", "in", " ", "one", " ", "direction"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ 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.614344518194685*^9, 3.6143445345397053`*^9}, {3.61434461662437*^9, 3.6143446195620975`*^9}, { 3.6143449604824905`*^9, 3.6143449610139527`*^9}, 3.6143450087524977`*^9, { 3.6149232063069086`*^9, 3.61492321240133*^9}, {3.614923296157466*^9, 3.614923296266838*^9}, {3.614923448792612*^9, 3.614923449198862*^9}, { 3.614923587325265*^9, 3.614923590435028*^9}, {3.6149450157486334`*^9, 3.614945015826736*^9}, {3.6149450595033503`*^9, 3.614945061706724*^9}, 3.6149544421218624`*^9, {3.615212085352682*^9, 3.6152120871039095`*^9}, { 3.6181950521518393`*^9, 3.6181950570584536`*^9}, {3.6182019208928275`*^9, 3.618201945288168*^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[CellGroupData[{ Cell[BoxData[ RowBox[{"Dynamic", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.6193581238252015`*^9, 3.619358127344702*^9}}], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`x, StandardForm], ImageSizeCache->{8., {0., 6.}}]], "Output", CellChangeTimes->{3.6193581288057384`*^9}] }, Open ]], 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[{"Table", "[", 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[{"Table", "[", RowBox[{ RowBox[{"0.5", "*", 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"}], "*)"}], "\[IndentingNewLine]", RowBox[{"localOperator", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox["1.", 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", "]"}], "]"}]}]}], ")"}]}], "]"}], ")"}]}]}], ",", 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", ",", "lmax"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", RowBox[{"-", "l"}], ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"conjanlOperator", "=", RowBox[{"Conjugate", "[", "anlOperator", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", " ", "local", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"VKBnl", "=", RowBox[{"ParallelTable", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "vAtomic"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmax"], 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", "]"}], "]"}]}], ")"}]}]}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Diagonalize", " ", "the", " ", "Hamiltonian", " ", "and", " ", "order", " ", "the", " ", "eigenvalues", " ", "and", " ", "vectors", " ", "by", " ", "increasing", " ", "order", " ", "of", " ", "eigenvalues"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"EnL\[CapitalGamma]", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"Eigenvalues", "[", RowBox[{"kineticOperator", "+", "localOperator", "+", "VKBnl"}], "]"}], "]"}], ",", "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.614347674718573*^9, 3.614347685891822*^9}, {3.6143485377083426`*^9, 3.6143485618205132`*^9}, 3.615010428205065*^9, 3.6152121048775463`*^9, 3.6181965882428093`*^9, 3.6182019707672815`*^9, {3.6182020048605137`*^9, 3.6182020477339883`*^9}, { 3.6182210448598022`*^9, 3.618221045557298*^9}, {3.6193580086083536`*^9, 3.6193580211412563`*^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[{"[", "4", "]"}], "]"}]}], "]"}], "*", "27.211"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nBand"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", FractionBox["p", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{3.613030064258954*^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[{ "ciclo", " ", "para", " ", "calcular", " ", "a", " ", "estrutura", " ", "de", " ", "bandas"}], "*)"}], "\[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[{"Table", "[", 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[{"Table", "[", RowBox[{ RowBox[{"0.5", "*", 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"}], "*)"}], "\[IndentingNewLine]", RowBox[{"localOperator", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox["1.", 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", "]"}], "]"}]}]}], ")"}]}], "]"}], ")"}]}]}], ",", 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", ",", "lmax"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", RowBox[{"-", "l"}], ",", "l"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"conjanlOperator", "=", RowBox[{"Conjugate", "[", "anlOperator", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"non", " ", "local", " ", "operator"}], "*)"}], "\[IndentingNewLine]", RowBox[{"VKBnl", "=", RowBox[{"ParallelTable", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "vAtomic"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "1"}], "nat"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "0"}], "lmax"], 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", "]"}], "]"}]}], ")"}]}]}]}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{ RowBox[{"Dimensions", "[", "kplusgVecSelected", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Diagonalize", " ", "the", " ", "Hamiltonian", " ", "and", " ", "order", " ", "the", " ", "eigenvalues", " ", "and", " ", "vectors", " ", "by", " ", "increasing", " ", "order", " ", "of", " ", "eigenvalues"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"En\[CapitalGamma]X", "[", RowBox[{"[", RowBox[{"x", "+", "1"}], "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Sort", "[", RowBox[{"Eigenvalues", "[", RowBox[{"kineticOperator", "+", "localOperator", "+", "VKBnl"}], "]"}], "]"}], ",", "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.614347693501786*^9, 3.614347702034253*^9}, {3.614348568664909*^9, 3.6143485776817827`*^9}, { 3.61495443289432*^9, 3.6149544335958376`*^9}, {3.615465249461389*^9, 3.615465250212923*^9}, 3.618196591852623*^9, 3.618202060659175*^9, { 3.6182212847523365`*^9, 3.6182212853357363`*^9}, {3.61935798561602*^9, 3.6193579969760904`*^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[{"[", "4", "]"}], "]"}]}], "]"}], "*", "27.211"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nBand"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "p"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{ 3.6130300432879543`*^9, {3.6130398330039115`*^9, 3.6130398332881145`*^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", ",", "nBand"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"GridLinesStyle", "\[Rule]", "Dashed"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "i"}], ",", RowBox[{"\"\<\[CapitalGamma]X\>\"", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}], ",", "1"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6080122018753796`*^9, 3.6080123067833796`*^9}, { 3.6080137726802244`*^9, 3.608013778327547*^9}, 3.6084487432386103`*^9, 3.6112971892566366`*^9, 3.611298160148876*^9, {3.6113013592867937`*^9, 3.6113013796061983`*^9}, {3.613030104778699*^9, 3.61303012343699*^9}, 3.613227106193015*^9, {3.614344497536928*^9, 3.61434449797445*^9}, 3.6148636961180468`*^9, {3.615272030996318*^9, 3.6152720324342403`*^9}, { 3.6181951393781414`*^9, 3.6181951404262733`*^9}, {3.6181964727947464`*^9, 3.6181964750761814`*^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[{{-15., -8.372538587837107}, {-14., -8.450192984768435}, \ {-13., -8.645503277572313}, {-12., -8.889317117292}, {-11., \ -9.145691327060579}, {-10., -9.396070051553671}, {-9., -9.63199304842492}, \ {-8., -9.84753763033965}, {-7., -10.040880129682643`}, {-6., \ -10.20917778272892}, {-5., -10.352536303434645`}, {-4., \ -10.471173141726524`}, {-3., -10.563766987449325`}, {-2., \ -10.630049533088048`}, {-1., -10.66985237356136}, { 0., -10.682224202039896`}}], Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQPKs2bU+sSqHoDwHtif/uFcvjgaxv9gv9A4y+RW CIz/w/6LVHNauyeMz+Dw+v4D0zWWMD6Lg5jQXVcvVRifw6Hq0JpdyTwwPo9D kMxHh9/vVKB8AQexDCFxkbMwvpDD/cIyiU3LYHwRh/1BBmuKa2B8MYevXycw GvvC+BIOPPUvn7VLwvhSDrp3Wf0rHypD+TIOCUzzFfmXwvhyDo/W9OZ9SIbx FRx6za22vJeD8RUdznn2vPG4pgTlKzlEKF/edK8Dxld2kFDPCQ8yh/FVHJxs /jzc/FARyld1KFucbCjaAeOrOahfiz8rrA3jqzss5tDV8DqpAOVrOJQeDxK1 SoHxNR02/ZujLPBdHsrXcij9sejZYjkYX9th3sf+xU9s5aB8HYfs729WO0TI Qvm6DlFrpolk58hA+XoOhlovz+6okj4AAHJthLE= "]], Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[{{-15., -6.597381032631412}, {-14., -6.493559934671742}, \ {-13., -6.222927914537949}, {-12., -5.849114781104236}, {-11., \ -5.4101698431792276`}, {-10., -4.928463787001002}, {-9., -4.413205761396222}, \ {-8., -3.870938668119008}, {-7., -3.307483335900012}, {-6., \ -2.7273399578454054`}, {-5., -2.141166380253699}, {-4., \ -1.5599385831236445`}, {-3., -1.003406780115853}, {-2., -0.5081750608936048}, \ {-1., -0.14123538698525723`}, {0., -1.4047779606229938`*^-13}}], Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQMXlW7/tDvqvBfCe2C/0eKT3QulGfsh/A/2nq2N Sz9u2A7l/7DvOh72XeLJSSifweHSo+cTl+heg/JZHJrs5JrbZj2A8jkcdptq z3W58gzK53FItWgvsJ/zFsoXcJByOe5XkfkJyhdyYNwt84fJ4BuUL+Jw2caq vl3mF5Qv5sAvp+HarPgPypdwmOdhdtdVlvEAhC/lsDvCsz3YiBnKl3FY7yWX rOfHCuXLOfzTuqK0I48dyldwyH0l0sg+hRPKV3Sw27H8mdkxbihfyaGj0om9 9wMvlK/s8HFDPeNJXgEoX8VhRgybmJSyIJSv6iCj/clho7kQlK/m0DL5kAmb tzCUr+5wdoGGo2SMCJSv4bA/4eP+qGxRKF/T4c4p8QknysWgfC0HvnbzA48a xKF8bYfW5U4vdNskoHwdhwXiM/RN2iWhfF0HNaO8+a3NUlC+noOC1suzO6qk DwAA3uyGNw== "]], Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[{{-15., -1.3163387870164853`}, {-14., -1.3072608731663196`}, \ {-13., -1.280090761685237}, {-12., -1.2349432478792675`}, {-11., \ -1.172097821177734}, {-10., -1.0920987411413838`}, {-9., \ -0.9957217426841604}, {-8., -0.8841924378199436}, {-7., -0.7594245452135758}, \ {-6., -0.6242617195854563}, {-5., -0.4830949221438045}, {-4., \ -0.34225448139050385`}, {-3., -0.2108087124134526}, {-2., \ -0.10086676913458985`}, {-1., -0.026496362659835133`}, { 0., -2.869976478692138*^-14}}], Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQMBvdPzhDQU9kJ4D+ydK7I4S9mn7YfwP9if7GkM yonfCuX/sN/3TFxa8N8xKJ/BQfTkgSnLgi9D+SwO+gtmrRKPuAPlczh8b5sZ UST4GMrncTj8L1/lisELKF/AYZ2nmI5g9lsoX8ih6vaOvuKQj1C+iMON5bL1 k998hvLFHIKzljRLlH+D8iUcuhNXH5F8/wPKl3IwMHj4Y0PAbyhfxmHDs8La szP+QvlyDjMjeNz/HfkP5Ss4eBVLSi17yXAAwld08Iy92Kv2kBHKV3L4nVjI p36CCcpXdngu/uetyTxmKF/F4QXToe+3k1igfFWH1/YFIrtFWaF8NQcNqd4T LdtgfHUH6el3HW+5sEH5Gg4b5bbLrj0A42s6XKxX1d+jyQ7laznoiZVfflgP 42s7FFVlhX05BOPrOLyReOT29ROMr+uwVdf6+gl+Dihfz6Hk27sdqZIcBwD0 15DI "]], Hue[0.08640786499873876, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[{{-15., -1.3163387870163827`}, {-14., -1.3072608731662274`}, \ {-13., -1.2800907616852266`}, {-12., -1.234943247879118}, {-11., \ -1.1720978211775634`}, {-10., -1.0920987411413656`}, {-9., \ -0.9957217426839202}, {-8., -0.884192437819625}, {-7., -0.7594245452134293}, \ {-6., -0.624261719585186}, {-5., -0.48309492214376676`}, {-4., \ -0.34225448139043135`}, {-3., -0.210808712413365}, {-2., \ -0.10086676913447203`}, {-1., -0.02649636265979737}, {0., 0.}}], Hue[0.3224758424985268, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQjR08sH+nksVZyj5tP4T/wV4irTEoJ34rlP/D/slT cWnBf8egfAaHvsMHpiwLvgzlszg4Tp+1SjziDpTP4WDZNjOiSPAxlM/j4PIn X+WKwQsoX8Ah2llMRzD7LZQv5FB0Y0dfcchHKF/EYeES2frJbz5D+WIOkzKW NEuUf4PyJRxuxK8+Ivn+B5Qv5dCm//DHhoDfUL6MA++zwtqzM/5C+XIOAWE8 7v+O/IfyFRxEiiWllr1kOADhKzrwxF7sVXvICOUrOVQlFvKpn2CC8pUddov/ eWsyjxnKV3E4xnTo++0kFihf1WG1XYHIblFWKF/N4adE74mWbTC+ukPWtLuO t1zYoHwNh0i57bJrD8D4mg6X6lT192iyQ/laDpdFyy8/rIfxtR1Mq7LCvhyC 8XUcfog/cvv6CcbXdVioa339BD8HlK/n4PHt3Y5USY4DAEEli3Y= "]], Hue[0.5585438199983166, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[{{-15., 2.294527107785406}, {-14., 2.301066129453145}, {-13., 2.3197272809420286`}, {-12., 2.3522518834962654`}, {-11., 2.400002038428339}, {-10., 2.457621449758174}, {-9., 2.5256420389286216`}, {-8., 2.605589805358736}, {-7., 2.693997728295082}, {-6., 2.7896966540511166`}, {-5., 2.885056092109544}, {-4., 2.9671767945722545`}, {-3., 3.0217716307072546`}, {-2., 3.021732763417512}, {-1., 2.948260094634222}, {0., 2.9100017067273143`}}], Hue[0.7946117974981064, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQMNU3t/rnNnd4DwHti7H9/4yscAxv9gv9xY9F7r azYo/4d9R2XqRstaGJ/BIUzV/7z0a1Yon8WhQr7A/KY1jM/hcNNjwrqQMhYo n8dh6sNZpVILmaF8AYdPGitXChxigvKFHAruBrNH3GOE8kUc7jPd/vH0BwOU L+Zw3PfuNh4JGF/CYcv7kC+q1f/sIXwph/sn9fyZbvyB8mUcJvW8cXjh9RvK l3MQ3lb84Pf1n1C+goOjp0AIS+MPKF/RwUHmPhOb23coX8mh79GFd3n636B8 ZYcyU4b5mjZfoXwVh3dWl19+yv0C5as6pM1PZow79hnKV3NIZkuXXu4I46s7 zP+rIKb55hOUr+HgvjF454QDML6mg/tNv+ef4Xwth3V/2P53v4PxtR3qF0ys KPGFmafjsM1gW87tGzC+rkPjoZCpIlNh7tFz2HfsQ0xA81d7AOe8iWM= "]], Hue[0.030679774997896203`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[{{-15., 3.9535155533506496`}, {-14., 3.960499969034703}, {-13., 3.9800502215455777`}, {-12., 4.008008311453872}, {-11., 4.036978864600313}, {-10., 4.0560289815475015`}, {-9., 4.051485000146509}, {-8., 4.009040755408121}, {-7., 3.9185519671673203`}, {-6., 3.779390897902304}, {-5., 3.602376778364221}, {-4., 3.406985343746302}, {-3., 3.216834357566318}, {-2., 3.056330058037266}, {-1., 2.948260094634373}, {0., 2.9100017067273627`}}], Hue[0.266747752497686, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQNvp/b+XOfO7gDhPbB/Pp0p41sDjP/BvuTeRtu9 6hxQ/g97E83qxs96nFA+g4NUmuB5lTYuKJ/FQfL0nPhUWR4on8NhE/sWBsfn vFA+j8NxpQ/tUjf5oXwBh0m/JYIyvgpA+UIOYqvyF0pyC0H5Ig6p+nsuvDgJ 44s53Nh3iNM9GcaXcGDrtHeT2icI5Us5RMW8+hT/DmaejEMr78PEBWwwvpxD 8eOF219r8kH5Cg6zXnWZ/XeEuVfRYflWo8pfcTD/KDnwXt/qt6gf5n9lhx8K n94YXmWD8lUcTr+Z9uyaESuUr+qgvTf2ypRVzFC+msOmO6Hmi22ZoHx1h8ZH +b2ZbxmgfA2HVXtk1UIL/9tD+JoOdyx9nvs6/IXytRwU7j6uCXT/DeVrO1y1 ZNiytvUnlK/jcPTPVKHaX9+hfF2Huzrvz+9e8g3K13P4cuxDTEDzV3sAvyyB cw== "]], Hue[0.5028157299974758, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[{{-15., 3.9535155533507282`}, {-14., 3.960499969034715}, {-13., 3.980050221545596}, {-12., 4.008008311454087}, {-11., 4.036978864600316}, {-10., 4.056028981547622}, {-9., 4.051485000146847}, {-8., 4.009040755408233}, {-7., 3.9185519671673443`}, {-6., 3.7793908979024398`}, {-5., 3.6023767783642606`}, {-4., 3.4069853437463227`}, {-3., 3.216834357566366}, {-2., 3.0563300580374837`}, {-1., 2.9573990314065255`}, {0., 2.910001706727396}}], Hue[0.7388837074972656, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQMW03p/rnNnd4DwHtirzGDK+NYA43+w339vo+1e dQ4o/4f9Dc3qxs96nFA+g8OBdMHzKm1cUD6LQ+HpOfGpsjxQPodDMecWBsfn vFA+j8Ny5Q/tUjf5oXwBh6V/JIIyvgpA+UIOhqvyF0pyC0H5Ig4G0ebPLLSF oXwxB1Ep1nKmEBEoX8Lh4QOeIz+bRaF8KYfANS/6v+4Ug/JlHOLXbNrP/FUc ypdzEKuKvhFtIgnlKzhc8yzWDiyXgvIVHU5v/H1Sda80lK/ksLK4X34GqyyU r+zw9tFdobf+clC+igOn5dSd1bPloXxVh7gnswy2FytA+WoOQTf6QvwlFaF8 dYe+2/5zN++F8TUcNmfIqvTFK0H5mg5cufLBV//A+FoOAbMPPtaZpAzlaztI Pmbk4JVSgfJ1HA7fXMWT1w3j6zrU3HB39L4J4+s5sB6c+Lviq4oDAFPMdEs= "]], Hue[0.9749516849970554, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[{{-15., 8.02152778355506}, {-14., 8.035271962505375}, {-13., 8.073535824263038}, {-12., 8.125778180441698}, {-11., 8.154720322882492}, {-10., 8.04234203444929}, {-9., 7.6743529652468885`}, {-8., 7.172475499338287}, {-7., 6.634412840402792}, {-6., 6.091961338635253}, {-5., 5.550516028929544}, {-4., 5.023716705331296}, {-3., 4.5372906369317105`}, {-2., 4.142777653911946}, {-1., 3.905934735522194}, {0., 3.835023571634684}}], Hue[0.21101966249684523`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQM81XOuKazjc4DwHthv1tnttu42jP/BfoHGmRdX 4vmh/B/2hmedN7KLC0D5DA4sEx9x/58J47M4/J79LLhdVxDK53DIi98bZXsE xudxYNCdc/6krxCUL+Ag48sQ9WcrjC/ksFH30j2nZzC+iENktPkzC21hKF/M wUuatZwpRATKl3Dgeshz5GezKJQv5ZC65kX/151iUL6Mg/jaTfuZv4pD+XIO KlXRN6JNJKF8BQcBr2LtwHIpKF/RoWbT75Oqe6WhfCWH+8X98jNYZaF8ZQfW x3eF3vrLQfkqDhmWU3dWz5aH8lUdjjyZZbC9WAHKV3NYe6MvxF9SEcpXdzh7 23/u5r0wvoaDWKasSl+8EpSv6cCfKx989Q+Mr+XwcPbBxzqTlKF8bYe+x4wc vFIqUL6Ow9Obq3jyumF8XYeZN9wdvW/C+HoOoQcn/q74quIAAGIydeI= "]], Hue[0.44708763999663503`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{-15., 11.445346214566975`}, {-14., 11.072573901401078`}, {-13., 10.475352032953534`}, {-12., 9.879790909582175}, {-11., 9.348270937334997}, {-10., 8.997562344224907}, {-9., 8.87280792860043}, {-8., 8.593139548731436}, {-7., 8.434540724733072}, {-6., 8.398542779142858}, {-5., 8.474620296181683}, {-4., 8.639985080023683}, {-3., 8.290881545727155}, {-2., 8.001040538758545}, {-1., 7.8134006578007735`}, {0., 7.749603554599628}}], Hue[0.6831556174964248, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQO8j/4Lzfgv5wDhPbDXWSNnOktEHsr/YP+Z1+1I VRiM/8P+k1WCnsQhGJ/B4YCp/1dHLQUon8VBdu2dZJVWGJ/DQSLtgk8FA4zP 43AmbfKl489h9gk4qFWuYdrKDOMLOXzOP3VUIUcWyhdxaOHbw3zYCMYXc3Dd dF7gYRSML+GQdqee9dA1GF/K4bXtPLWCiTDzZBz6nP7K/CmHuVfO4WRQ9bxZ djD3KDicU2ZvEj0N4ys6JEwJ4OiOVoTylRwUHd48PPgZxld22H5Zv9urXwnK V3E4+yhrG4euMpSv6rC7MPKy+hkYX80hMCEhkylHBcpXdyixUFZp4VGF8jUc HK8tFndZA+NrOkQHPK128VaD8rUcNmkyNf97AeNrO9gxPWq40KIO5es4rBBb 13xVVgPK13Vgunhi6qNNML6eQ7F+4U9PJ00HAJt6cyY= "]], Hue[0.9192235949962146, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[{{-15., 12.083118943573767`}, {-14., 11.595710575076485`}, {-13., 10.932800476506198`}, {-12., 10.308129520280577`}, {-11., 9.74619368687399}, {-10., 9.262419271710963}, {-9., 8.872807928600572}, {-8., 8.5931395487315}, {-7., 8.434540724733417}, {-6., 8.398542779143009}, {-5., 8.474620296181778}, {-4., 8.642555444324081}, {-3., 8.874584247464771}, {-2., 9.131819283196613}, {-1., 9.351967225476987}, {0., 9.443803715196871}}], Hue[0.15529157249600445`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQM+VlNtrR4rOUB4D+x590pdebIfxv9g/yY5g0Eu Acb/YX88on75vxuKUD6DA1/NjpQdtjA+i0Pi7JS45jkKUD6HQ8yzaX1P38P4 PA6r3r+zPpYBUy/gMOnvgh/q72B8IYdF8ydWTaqD2SficObPrgUaEspQvpiD mnbt5d27YHwJBzduy7/TUlSgfCmHTW+NYl2OwfgyDqdP2mzIElaF8uUctvw3 NnFLg/EVHGynKjdd2wfjKzro/PyixS2rBuUrOSxa/OgNUyOMr+yw9+MWpnWv YHwVB3GZ7vvcUepQvqpDgKfYG+nzML6ag+1Xoba7nhpQvrrDMZOt//1Pwfga DhZNbPOLAjShfE0HvxrjuS53YHwth4A9x1WP5mpB+doOre8P92pvhPF1HE48 +JTU6Qrj6zpcrjVtXXoSpl/PYZd+4U9PJ00HANdwfL8= "]], Hue[0.39135954999579425`, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[{{-15., 12.083118943573933`}, {-14., 11.595710575076742`}, {-13., 10.932800476506292`}, {-12., 10.308129520280604`}, {-11., 9.746193686874111}, {-10., 9.262419271711334}, {-9., 8.936338749369654}, {-8., 9.025172980043136}, {-7., 9.126892245087147}, {-6., 9.137614566983821}, {-5., 8.96335737040257}, {-4., 8.642555444324138}, {-3., 8.874584247464833}, {-2., 9.131819283196661}, {-1., 9.351967225477082}, {0., 9.443803715196896}}], Hue[0.6274275274955841, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQNRVlNtrR4rOUB4D+zDhC7Jiz2D8T/Yz08MOrzy HYz/w/6BZqHc1z8wPoND82phxR8CylA+i8OGdXO3bNKC8TkcEvkf7lbxgvF5 HNqSOYT98mF8AQeeJTX9erNgfCGHx5uP/j96CsYXcVj9R1NYhFEFyhdzeHlR Yo+ELYwv4bBj+4qZl+tgfCmHk7Lr1TtEVKF8GYfuy305bidhfDkH2SRZl9ZG NShfwSEgpXythLU6lK/okLP5dtrkzzC+kkPoXo0l3Ss0oHxlhw7NNP6aUE0o X8Xha6T1qr1fYHxVh9mTnh3/VqcF5as5SERr/Kh4DeOrO6wPbljz1lAbytdw 6Hh14899Hxhf00Fp8j6LYhsYX8vB0rI34AYrjK/tsHLD1dDPLDC+jsOiE9t5 FDbDzNd1aL6o17A5GsbXc/C7vSIr2EbLAQDAHHiU "]], Hue[0.8634955049953739, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[{{-15., 12.255701897478602`}, {-14., 12.624501963112268`}, {-13., 13.18806774427488}, {-12., 13.655674778168715`}, {-11., 13.821059496618478`}, {-10., 13.538930423098622`}, {-9., 12.950820239596835`}, {-8., 12.27236579688436}, {-7., 11.644754255031811`}, {-6., 11.191977965770095`}, {-5., 11.021501003960324`}, {-4., 11.106487302746029`}, {-3., 11.324927964580185`}, {-2., 11.57711464939727}, {-1., 11.782227074288809`}, {0., 11.863205787306638`}}], Hue[0.09956348249516367, 0.6, 0.6], Directive[ PointSize[0.008333333333333333], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQPxaU+kv+1Ud4DwHtizvt9z4+s+GP+DvZqcxSSB czD+D/ueiO0LnJ7D+AwOa5uLuiZzaUD5LA5ZoqZevBYwPofD+xs9+3bnw/g8 DlePfnq9eiOML+BwR6+M7/VfGF/IYf/R2yWtIZpQvohDUdHqyOatML6Yg8/H igtvFbSgfAmHt+pXjx6aBuNLOdTLzv70XUwbypdxmOnb8rV4IYwv51CceOgA t5kOlK/g8M7HMtr/Coyv6KC1OlS4uFoXyldyuNcUJ7FVUw/KV3Z4WR5R4XcT xldxqHJKYWfP14fyVR1ubTl8xTYPxldzUA1d+zfnFEy9ukPzmmdHnrPC+BoO Tvq/+Zc4wOzTdMhskAp/2QRzj5bDHpuH2kyXYO7XdkjzrhcKMYHxdRyuntjO o7AZ5n9dh1UX9Ro2R8P4eg4tt1dkBdtoOQAA17B8KA== "]]}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{-15., 15.}, {-10.682224202039896`, 15.716850501049738`}}, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ FormBox["\"E (eV)\"", TraditionalForm], None}, { FormBox["\"k\"", TraditionalForm], None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Dashing[{Small, Small}], Method -> {}, PlotRange -> {{-15., 15.}, {-10.682224202039896`, 15.716850501049738`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{"\"L\[CapitalGamma]\"", "\"\[CapitalGamma]X\"", RowBox[{"2", " ", "\"L\[CapitalGamma]\""}], RowBox[{"2", " ", "\"\[CapitalGamma]X\""}], RowBox[{"3", " ", "\"L\[CapitalGamma]\""}], RowBox[{"3", " ", "\"\[CapitalGamma]X\""}], RowBox[{"4", " ", "\"L\[CapitalGamma]\""}], RowBox[{"4", " ", "\"\[CapitalGamma]X\""}], RowBox[{"5", " ", "\"L\[CapitalGamma]\""}], RowBox[{"5", " ", "\"\[CapitalGamma]X\""}], RowBox[{"6", " ", "\"L\[CapitalGamma]\""}], RowBox[{"6", " ", "\"\[CapitalGamma]X\""}], RowBox[{"7", " ", "\"L\[CapitalGamma]\""}], RowBox[{"7", " ", "\"\[CapitalGamma]X\""}], RowBox[{"8", " ", "\"L\[CapitalGamma]\""}], RowBox[{"8", " ", "\"\[CapitalGamma]X\""}], RowBox[{"9", " ", "\"L\[CapitalGamma]\""}], RowBox[{"9", " ", "\"\[CapitalGamma]X\""}], RowBox[{"10", " ", "\"L\[CapitalGamma]\""}], RowBox[{"10", " ", "\"\[CapitalGamma]X\""}], RowBox[{"11", " ", "\"L\[CapitalGamma]\""}], RowBox[{"11", " ", "\"\[CapitalGamma]X\""}], RowBox[{"12", " ", "\"L\[CapitalGamma]\""}], RowBox[{"12", " ", "\"\[CapitalGamma]X\""}]}, "PointLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.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"]}}, 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[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12, ",", #13, ",", #14, ",", #15, ",", #16, ",", #17, ",", #18, ",", #19, ",", #20, ",", #21, ",", #22, ",", #23, ",", #24}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{ "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.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.6143445659946938`*^9, 3.614344652454754*^9, 3.614344719132262*^9, 3.614344759931938*^9, 3.6143448951797314`*^9, 3.6143449470593357`*^9, 3.6143450482088385`*^9, 3.614346790936373*^9, 3.614346861333183*^9, 3.614347000003564*^9, 3.6143471004840584`*^9, 3.6143477932620473`*^9, 3.6143481307065744`*^9, 3.6143483225113163`*^9, 3.614348612262769*^9, 3.6143489090583563`*^9, 3.614349141969582*^9, 3.6143492756399217`*^9, 3.614349880828459*^9, 3.614349994759758*^9, 3.614350618398633*^9, 3.614350725096985*^9, 3.614350801926631*^9, 3.6148618130629034`*^9, 3.6148637609390264`*^9, 3.614923041707507*^9, 3.614923247459584*^9, 3.6149233124561663`*^9, 3.6149233953010197`*^9, 3.61492348245465*^9, 3.6149235449141626`*^9, 3.6149236066549196`*^9, 3.614923933565159*^9, 3.6149240387395787`*^9, 3.614924544136924*^9, 3.6149247713940754`*^9, 3.614925034414547*^9, 3.6149252826855793`*^9, 3.614925408341445*^9, 3.614925448425864*^9, 3.6149254865759134`*^9, 3.6149255814021683`*^9, 3.6149256484136643`*^9, 3.614925690237318*^9, 3.614925910339376*^9, 3.6149260712974987`*^9, 3.6149261888258505`*^9, 3.6149265068433137`*^9, 3.6149265695787945`*^9, 3.614926756032127*^9, 3.614927227584454*^9, 3.614927355939158*^9, 3.6149274273838124`*^9, 3.614927465049519*^9, 3.6149275468782616`*^9, 3.614927599416514*^9, 3.6149276451629477`*^9, 3.614927676260999*^9, 3.6149277472893596`*^9, 3.614927788780778*^9, 3.614927825577888*^9, 3.614927870525738*^9, { 3.614927986961296*^9, 3.614928013676236*^9}, {3.614928049076338*^9, 3.6149280744703417`*^9}, 3.614928107790968*^9, 3.6149281586910553`*^9, 3.614928204043223*^9, 3.6149292795561314`*^9, 3.6149293768831286`*^9, 3.6149300140535135`*^9, 3.6149301378192716`*^9, 3.6149357113511744`*^9, 3.6149358709102864`*^9, 3.614935908281784*^9, 3.6149359504507027`*^9, 3.6149389084238863`*^9, 3.6149389572815285`*^9, 3.614939023078171*^9, 3.6149390824542713`*^9, 3.614939152870199*^9, 3.6149391895462217`*^9, 3.6149392272689486`*^9, {3.6149392664677415`*^9, 3.614939295188105*^9}, 3.614943952491298*^9, 3.614943986490365*^9, 3.614944017240168*^9, 3.6149440498492885`*^9, 3.614944103770522*^9, 3.6149450484079514`*^9, 3.6149451189606237`*^9, 3.6149455481862535`*^9, 3.6149458799421473`*^9, 3.6149462263585634`*^9, 3.614946876087243*^9, 3.6149471333526525`*^9, 3.6149472475145965`*^9, 3.614947346448744*^9, 3.614947645375742*^9, 3.6149477294503*^9, 3.6149478129384975`*^9, 3.6149478847404084`*^9, 3.6149479577441683`*^9, 3.6149481835382633`*^9, 3.6149482599124146`*^9, 3.615212174246776*^9, 3.6152123921738577`*^9, 3.6154703294836187`*^9, 3.6154704767544284`*^9, 3.6155589682973957`*^9, 3.6155591150485992`*^9, 3.615559207560255*^9, 3.615559296959721*^9, 3.615560765523963*^9, 3.6170184095313606`*^9, 3.617018800442879*^9, 3.6170189035843315`*^9, 3.6170194365597024`*^9, 3.6170195941015453`*^9, 3.6170200847238483`*^9, 3.617020430868169*^9, 3.6170207966370416`*^9, 3.617021026111423*^9, 3.617021914386255*^9, 3.6170220844710035`*^9, 3.6170224072023306`*^9, 3.61702252272034*^9, 3.6170233192353907`*^9, 3.6170234061291656`*^9, 3.61702359716879*^9, 3.6170238048212166`*^9, 3.61702388748391*^9, 3.6170250026441803`*^9, 3.6170352664246635`*^9, 3.6181489091874433`*^9, 3.6181949960059166`*^9, {3.618195219794221*^9, 3.618195220731943*^9}, 3.618196476076282*^9, 3.6182211938296924`*^9, 3.618221391659316*^9, 3.619358355456371*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"Transitions", " ", "of", " ", "Silicon"}], "*)"}]], "Input", CellChangeTimes->{{3.6193584476249313`*^9, 3.619358458928964*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"1.2", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.614862575018153*^9, 3.6148626015359554`*^9}, { 3.614863255723815*^9, 3.6148632558298893`*^9}, {3.614863307612605*^9, 3.6148633131234927`*^9}, {3.617019400597172*^9, 3.6170194029788623`*^9}}], Cell[BoxData[ RowBox[{"-", "1.3163387870163827`"}]], "Output", CellChangeTimes->{{3.614862571305547*^9, 3.6148626020623283`*^9}, 3.6148632659110184`*^9, 3.614863313719915*^9, 3.6148637610130615`*^9, 3.614923041785615*^9, 3.614923247522087*^9, 3.614923312518669*^9, 3.614923395426074*^9, 3.614923482517151*^9, 3.6149235449766426`*^9, 3.614923606717439*^9, 3.614923933612002*^9, 3.614924038802101*^9, 3.614924544198968*^9, 3.614924771404064*^9, 3.6149250345086136`*^9, 3.61492528274662*^9, 3.6149254084094925`*^9, 3.614925448487908*^9, 3.6149254865869255`*^9, 3.6149255814131765`*^9, 3.6149256484907384`*^9, 3.6149256902993593`*^9, 3.6149259104004183`*^9, 3.614926071359556*^9, 3.6149261888878736`*^9, 3.6149265069103613`*^9, 3.614926569644862*^9, 3.6149267560921507`*^9, 3.614927227646516*^9, 3.614927356019245*^9, 3.614927427445857*^9, 3.6149274651525917`*^9, 3.614927546945309*^9, 3.6149275994835763`*^9, 3.6149276452269955`*^9, 3.6149276763220415`*^9, 3.614927747353404*^9, 3.614927788842821*^9, 3.614927825644935*^9, 3.614927870591784*^9, {3.614927987032361*^9, 3.6149280137813106`*^9}, { 3.614928049089347*^9, 3.614928074532386*^9}, 3.6149281078049965`*^9, 3.6149281587571025`*^9, 3.6149282041042747`*^9, 3.614929279617174*^9, 3.614929376943184*^9, 3.6149300141155567`*^9, 3.6149301378813105`*^9, 3.614935711448223*^9, 3.614935870967347*^9, 3.614935908342847*^9, 3.614935950508726*^9, 3.6149389087040787`*^9, 3.6149389575867376`*^9, 3.6149390231392145`*^9, 3.6149390825133123`*^9, 3.6149391529642653`*^9, 3.6149391896042438`*^9, 3.6149392273279915`*^9, {3.614939266531787*^9, 3.614939295197112*^9}, 3.6149439525623293`*^9, 3.6149439865564127`*^9, 3.6149440173072166`*^9, 3.614944049913335*^9, 3.614944103833585*^9, 3.6149450484704523`*^9, 3.6149451190074997`*^9, 3.614945548248756*^9, 3.6149458799577723`*^9, 3.614946226433637*^9, 3.6149468761182833`*^9, 3.614947133384673*^9, 3.614947247594652*^9, 3.614947346531802*^9, 3.6149476454617615`*^9, 3.614947729481326*^9, 3.614947813019554*^9, 3.614947884825468*^9, 3.614947957826229*^9, 3.614948183625345*^9, 3.6149482599964757`*^9, 3.615212174339838*^9, 3.615212392193881*^9, 3.6154703295086374`*^9, 3.615470476913541*^9, 3.615558968377453*^9, 3.6155591151286345`*^9, 3.615559207645314*^9, 3.6155592970647955`*^9, 3.6155607656990867`*^9, 3.617018409651449*^9, 3.6170188005379477`*^9, 3.617018903703416*^9, {3.617019436688794*^9, 3.6170194371291075`*^9}, 3.6170195942206416`*^9, 3.6170200848449364`*^9, 3.6170204310022635`*^9, 3.617020796878213*^9, 3.6170210262615304`*^9, 3.6170219145003357`*^9, 3.6170220845890875`*^9, 3.617022407319412*^9, 3.617022522844426*^9, 3.617023319274418*^9, 3.6170234062672753`*^9, 3.61702359729488*^9, 3.6170238048602333`*^9, 3.617023887579978*^9, 3.6170250027272196`*^9, 3.6170352664526925`*^9, 3.6181489095296874`*^9, 3.6181950099757843`*^9, 3.618195219903616*^9, 3.618221193841702*^9, 3.6193583555664487`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"2.04", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "5", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.614862670759057*^9, 3.6148626748229184`*^9}, { 3.6148632600898895`*^9, 3.614863260224005*^9}, {3.6148633186114044`*^9, 3.614863336187866*^9}, 3.617019409968827*^9}], Cell[BoxData["2.294527107785406`"], "Output", CellChangeTimes->{ 3.614862675072116*^9, 3.6148632605442114`*^9, {3.614863326486988*^9, 3.61486333657512*^9}, 3.6148637610250883`*^9, 3.614923041785615*^9, 3.614923247522087*^9, 3.6149233125343122`*^9, 3.6149233954416623`*^9, 3.6149234825327773`*^9, 3.6149235449766426`*^9, 3.6149236067330475`*^9, 3.6149239336276073`*^9, 3.614924038817705*^9, 3.6149245442079754`*^9, 3.6149247714130907`*^9, 3.6149250345186205`*^9, 3.6149252827576275`*^9, 3.614925408418497*^9, 3.614925448496914*^9, 3.6149254865969486`*^9, 3.6149255814251647`*^9, 3.614925648502741*^9, 3.614925690312371*^9, 3.6149259104134283`*^9, 3.614926071372552*^9, 3.6149261888999023`*^9, 3.614926506925372*^9, 3.6149265696568527`*^9, 3.6149267561011553`*^9, 3.6149272276585236`*^9, 3.6149273560312214`*^9, 3.614927427460868*^9, 3.614927465164602*^9, 3.6149275469583178`*^9, 3.614927599499572*^9, 3.6149276452400026`*^9, 3.6149276763350544`*^9, 3.6149277473664155`*^9, 3.6149277888568316`*^9, 3.614927825660947*^9, 3.6149278706057987`*^9, { 3.6149279870463705`*^9, 3.6149280137963343`*^9}, {3.614928049102375*^9, 3.6149280745463953`*^9}, 3.6149281078179865`*^9, 3.614928158771114*^9, 3.614928204117264*^9, 3.614929279629184*^9, 3.6149293769541903`*^9, 3.6149300141255836`*^9, 3.614930137893319*^9, 3.614935711456249*^9, 3.6149358709753532`*^9, 3.614935908350853*^9, 3.6149359505177326`*^9, 3.614938908729124*^9, 3.6149389576117554`*^9, 3.6149390231472197`*^9, 3.61493908252234*^9, 3.614939152974272*^9, 3.6149391896512794`*^9, 3.6149392273389983`*^9, {3.61493926654181*^9, 3.614939295207119*^9}, 3.614943952571336*^9, 3.6149439865674205`*^9, 3.6149440173172226`*^9, 3.614944049924342*^9, 3.614944103843594*^9, 3.6149450484860573`*^9, 3.6149451190231256`*^9, 3.6149455482643814`*^9, 3.614945879973394*^9, 3.614946226444645*^9, 3.614946876133276*^9, 3.6149471334006844`*^9, 3.614947247610662*^9, 3.6149473466118574`*^9, 3.6149476454777627`*^9, 3.6149477294963336`*^9, 3.6149478130365677`*^9, 3.6149478848424807`*^9, 3.6149479578422594`*^9, 3.6149481836413584`*^9, 3.614948260012486*^9, 3.6152121743508472`*^9, 3.6152123922038784`*^9, 3.615470329520645*^9, 3.6154704769295526`*^9, 3.615558968386464*^9, 3.6155591151386423`*^9, 3.6155592076543217`*^9, 3.6155592970758038`*^9, 3.6155607657150984`*^9, 3.617018409673461*^9, 3.617018800553958*^9, 3.6170189037234306`*^9, { 3.6170194367108107`*^9, 3.6170194372341814`*^9}, 3.617019594241644*^9, 3.61702008486395*^9, 3.617020431023278*^9, 3.617020796906233*^9, 3.617021026284546*^9, 3.6170219145233526`*^9, 3.6170220846081085`*^9, 3.6170224073394284`*^9, 3.617022522863439*^9, 3.61702331929145*^9, 3.6170234062932835`*^9, 3.617023597316896*^9, 3.6170238048802495`*^9, 3.6170238875999937`*^9, 3.617025002738228*^9, 3.617035266465687*^9, 3.6181489097248263`*^9, 3.618195010178912*^9, 3.618195219934866*^9, 3.61822119385271*^9, 3.6193583555824604`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"3.35", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "7", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.61486334104631*^9, 3.614863342900625*^9}, { 3.614863387140973*^9, 3.614863403258401*^9}, {3.6148635719039955`*^9, 3.614863572106139*^9}, 3.6170194136604457`*^9}], Cell[BoxData["2.910001706727396`"], "Output", CellChangeTimes->{{3.6148633908666153`*^9, 3.6148634036867046`*^9}, 3.614863572514408*^9, 3.614863761037097*^9, 3.614923041801259*^9, 3.61492324753771*^9, 3.6149233125343122`*^9, 3.6149233954416623`*^9, 3.6149234825484095`*^9, 3.6149235449922695`*^9, 3.614923606748689*^9, 3.6149239336432333`*^9, 3.614924038817705*^9, 3.6149245442189817`*^9, 3.6149247714761333`*^9, 3.614925034527627*^9, 3.614925282768635*^9, 3.614925408428505*^9, 3.6149254485069237`*^9, 3.6149254866049557`*^9, 3.6149255814361925`*^9, 3.614925648515754*^9, 3.6149256903253803`*^9, 3.6149259104264374`*^9, 3.6149260714516287`*^9, 3.614926188911903*^9, 3.6149265069394016`*^9, 3.614926569668861*^9, 3.614926756112183*^9, 3.6149272276715126`*^9, 3.6149273560432296`*^9, 3.614927427473878*^9, 3.6149274651776295`*^9, 3.614927546972328*^9, 3.614927599515583*^9, 3.614927645254013*^9, 3.614927676349064*^9, 3.614927747379425*^9, 3.614927788870841*^9, 3.6149278256779385`*^9, 3.614927870618803*^9, { 3.6149279870603676`*^9, 3.6149280138103676`*^9}, {3.6149280491143637`*^9, 3.6149280745594044`*^9}, 3.614928107829012*^9, 3.6149281587841225`*^9, 3.6149282041312847`*^9, 3.6149292796411715`*^9, 3.6149293769661775`*^9, 3.6149300141375933`*^9, 3.614930137905328*^9, 3.61493571146525*^9, 3.6149358709843388`*^9, 3.6149359083598394`*^9, 3.6149359505267367`*^9, 3.6149389087531395`*^9, 3.6149389576377735`*^9, 3.614939023156226*^9, 3.6149390825933695`*^9, 3.6149391529832983`*^9, 3.614939189660303*^9, 3.6149392274140515`*^9, {3.6149392665508027`*^9, 3.6149392952161255`*^9}, 3.6149439525833244`*^9, 3.6149439865784283`*^9, 3.6149440173292313`*^9, 3.6149440499333487`*^9, 3.61494410385458*^9, 3.6149450485016823`*^9, 3.614945119038748*^9, 3.6149455482800035`*^9, 3.614945879973394*^9, 3.614946226457654*^9, 3.614946876149285*^9, 3.614947133483743*^9, 3.61494724769172*^9, 3.6149473466278887`*^9, 3.6149476454937735`*^9, 3.6149477295133457`*^9, 3.614947813052579*^9, 3.6149478848594933`*^9, 3.6149479578572636`*^9, 3.6149481836573687`*^9, 3.6149482600284977`*^9, 3.6152121743618546`*^9, 3.6152123922138853`*^9, 3.615470329533658*^9, 3.6154704769505677`*^9, 3.615558968395485*^9, 3.61555911514865*^9, 3.615559207664347*^9, 3.6155592970848103`*^9, 3.6155607657301087`*^9, 3.6170184096924753`*^9, 3.617018800570997*^9, 3.617018903743464*^9, { 3.6170194367948694`*^9, 3.6170194373352547`*^9}, 3.617019594262679*^9, 3.617020084885964*^9, 3.617020431043295*^9, 3.6170207969312515`*^9, 3.617021026308563*^9, 3.6170219145453863`*^9, 3.6170220846271133`*^9, 3.6170224073594427`*^9, 3.6170225228834534`*^9, 3.617023319311443*^9, 3.6170234063132963`*^9, 3.6170235973379087`*^9, 3.6170238049012623`*^9, 3.6170238876170053`*^9, 3.6170250027482347`*^9, 3.617035266478696*^9, 3.6181489098829384`*^9, 3.618195010194538*^9, 3.618195219950491*^9, 3.618221193863717*^9, 3.6193583555984716`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"4.15", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.614863415093812*^9, 3.6148634164307404`*^9}, { 3.614863446535105*^9, 3.6148634584705677`*^9}, {3.6148635807963004`*^9, 3.614863580912383*^9}, {3.614946999218565*^9, 3.614946999621851*^9}, 3.61701941823069*^9}], Cell[BoxData["3.835023571634684`"], "Output", CellChangeTimes->{ 3.6148634587187376`*^9, 3.6148635812115755`*^9, 3.6148637610480843`*^9, 3.614923041801259*^9, 3.61492324753771*^9, 3.614923312549937*^9, 3.6149233954572725`*^9, 3.6149234825484095`*^9, 3.6149235449922695`*^9, 3.614923606748689*^9, 3.614923933658879*^9, 3.614924038833351*^9, 3.6149245442289886`*^9, 3.61492477148414*^9, 3.6149250345376525`*^9, 3.614925282779643*^9, 3.614925408438512*^9, 3.6149254485159483`*^9, 3.614925486614941*^9, 3.6149255814492016`*^9, 3.6149256485297637`*^9, 3.614925690337389*^9, 3.6149259104394455`*^9, 3.614926071462636*^9, 3.6149261889249196`*^9, 3.6149265069533916`*^9, 3.614926569681888*^9, 3.6149267561241717`*^9, 3.614927227685543*^9, 3.61492735605626*^9, 3.614927427489888*^9, 3.61492746518862*^9, 3.6149275469863377`*^9, 3.6149275995325947`*^9, 3.6149276452680244`*^9, 3.614927676362071*^9, 3.6149277473934526`*^9, 3.6149277888848515`*^9, 3.6149278256929693`*^9, 3.6149278706348143`*^9, {3.6149279870743775`*^9, 3.614928013822341*^9}, { 3.614928049128394*^9, 3.614928074573414*^9}, 3.614928107842022*^9, 3.614928158798131*^9, 3.6149282041443033`*^9, 3.6149292796521797`*^9, 3.614929376979189*^9, 3.614930014149601*^9, 3.6149301379173365`*^9, 3.6149357114722404`*^9, 3.6149358709933453`*^9, 3.6149359083678455`*^9, 3.6149359505347424`*^9, 3.614938908779131*^9, 3.6149389576617937`*^9, 3.6149390231662345`*^9, 3.614939082602377*^9, 3.6149391529932847`*^9, 3.614939189669289*^9, 3.6149392274250603`*^9, {3.614939266559807*^9, 3.614939295225132*^9}, 3.614943952595333*^9, 3.6149439865894356`*^9, 3.6149440173402386`*^9, 3.614944049944356*^9, 3.614944103864588*^9, 3.6149450485173073`*^9, 3.614945119054373*^9, 3.6149455482800035`*^9, 3.6149458799890194`*^9, 3.614946226470663*^9, 3.6149468761652966`*^9, 3.6149470002292757`*^9, 3.614947133499754*^9, 3.614947247707733*^9, 3.614947346643882*^9, 3.614947645512787*^9, 3.6149477295303593`*^9, 3.61494781306861*^9, 3.6149478848775034`*^9, 3.6149479578732815`*^9, 3.61494818367338*^9, 3.6149482600455093`*^9, 3.6152121743738623`*^9, 3.615212392224893*^9, 3.6154703295466633`*^9, 3.6154704769685802`*^9, 3.615558968467517*^9, 3.6155591151576753`*^9, 3.6155592076743565`*^9, 3.615559297094817*^9, 3.6155607657481227`*^9, 3.617018409712496*^9, 3.617018800587*^9, 3.617018903763479*^9, {3.6170194368168926`*^9, 3.6170194374333434`*^9}, 3.6170195942816734`*^9, 3.6170200849109945`*^9, 3.617020431063327*^9, 3.6170207969572687`*^9, 3.61702102633258*^9, 3.617021914567382*^9, 3.617022084647126*^9, 3.6170224073844614`*^9, 3.6170225229044695`*^9, 3.6170233193304715`*^9, 3.617023406335312*^9, 3.6170235974169865`*^9, 3.6170238049252806`*^9, 3.6170238876349974`*^9, 3.617025002759242*^9, 3.617035266491707*^9, 3.6181489100870833`*^9, 3.618195010210163*^9, 3.618195219966117*^9, 3.618221193876726*^9, 3.619358355614484*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"banda", "=", RowBox[{"Interpolation", "[", RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "5", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", RowBox[{"FindMinimum", "[", RowBox[{ RowBox[{"banda", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"0.85", RowBox[{"p", "/", "2"}]}]}], "}"}]}], "]"}]}], ";"}]}], "Input"], Cell[BoxData[ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAA9xwHa8MPkT5BwJL5rkcHQIQ91Tyl TM8/EiYE0SlCB0Ct8DvJ0E7gPxIRa5hkLwdAdW6N1I466D8tNY2UWhIHQFBO KyeG/u8/H8GfL47rBkC3TYwWfjX0P/h9EbxOtgZAg2IoYsQj+D9tMB0f9noG QPEtbAdKZvw/+Wlt/d8wBkA0FSsodkoAQCAwiY5D3wVAj8ry8Mw9AkADrQvJ DIwFQDtbjmZDWwRA6qrmRA0rBUAGo3yAv1QGQFuOkFkHywRAVgM+7ElECEB1 l5veiGgEQPc+0wT0XQpA4IWmOKz5A0C2MbvBo1MMQLEKmzAvjwNAxv92K3Nz DkBWYNRhRhkDQC3zgnOoRBBAJzCUMryjAkAGwnMjmj0RQJNcmEsrNQJAiH7O qZtLEkBI6CziarwBQJmWUgKgRxNAYK3A61JLAUBTnEAxtFgUQFdprnuQ0QBA Ty4Yic9kFUBU2cJQnFsAQNobGbPtXhZAR/bYw/jd/z8O94OzG24XQJZqmsoP 9v4/0S0YhkxrGEB6w9GRsSH+P9fwlYGEYxlAh/KVl/dV/T+FoX1TzHAaQMAM rJB8fvw/wq2O9xZsG0CJ59NiHrv7P6inCXJxfBxATUpO/Ubu+j/QLW4V04cd QOCbRt6ZLPo/iA/8ijeBHkAzOhfxyX75P+je89arjx9A5Rd9y93J+D/shIp6 EUYgQCgRO2yqJ/g/heAPntDBIEA3CZ8wg4/3P/IyyqwXSCFAwwZ9E+/z9j8n M5kkYMUhQDv7EOISbPY/MCqdhzBNIkCMUfKESOL1PwHPtVMCzCJAkpG/P6Bq 9T/zOUO0V0gjQLKRbn4Q/vQ/uZsFADXPI0CfVzsvUpL0P0er3LQTTSRArPvw o5k39D+psehUetUkQJ+xsM+v3/M/LH5piWRbJUBik1ksWJLzP3f4/iZQ2CVA uBl/G3JT8z+Wacmvw18mQCipAtJtHPM/fYiooTjeJkApi9Q07fTyP4Vt/Ccx WidA3pEJ9enX8j9hSYWZseAnQBs4qfiTw/I/BdMidDNeKEAG7kNLh7vyP31T 9Tk95ihAVgJIcOO+8j8WmjyUymspQNhKjEpnzvI/d46YV1noKUCYN1VqVOjy P6x5KQZwbypAJ53hQRUS8z+pEs8diO0qQPfudbIPRfM/eqKpICh2K0CXc/tT AYjzP234+LdL/CtA8JbXmoDW8z8n/Fy4cHksQPtcZ378K/Q/tfb1ox0BLUAT DINmApb0Pwufo/jLfy1AKjU8t64F9T9KHnj3//8tQBvDJ1RQg/U/vFCy4Q== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 1.}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{0., 15.}, {1.1707833232929956`, 2.910001706877694}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "15.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAA9xwHa8MPkT5BwJL5rkcHQIQ91Tyl TM8/EiYE0SlCB0Ct8DvJ0E7gPxIRa5hkLwdAdW6N1I466D8tNY2UWhIHQFBO KyeG/u8/H8GfL47rBkC3TYwWfjX0P/h9EbxOtgZAg2IoYsQj+D9tMB0f9noG QPEtbAdKZvw/+Wlt/d8wBkA0FSsodkoAQCAwiY5D3wVAj8ry8Mw9AkADrQvJ DIwFQDtbjmZDWwRA6qrmRA0rBUAGo3yAv1QGQFuOkFkHywRAVgM+7ElECEB1 l5veiGgEQPc+0wT0XQpA4IWmOKz5A0C2MbvBo1MMQLEKmzAvjwNAxv92K3Nz DkBWYNRhRhkDQC3zgnOoRBBAJzCUMryjAkAGwnMjmj0RQJNcmEsrNQJAiH7O qZtLEkBI6CziarwBQJmWUgKgRxNAYK3A61JLAUBTnEAxtFgUQFdprnuQ0QBA Ty4Yic9kFUBU2cJQnFsAQNobGbPtXhZAR/bYw/jd/z8O94OzG24XQJZqmsoP 9v4/0S0YhkxrGEB6w9GRsSH+P9fwlYGEYxlAh/KVl/dV/T+FoX1TzHAaQMAM rJB8fvw/wq2O9xZsG0CJ59NiHrv7P6inCXJxfBxATUpO/Ubu+j/QLW4V04cd QOCbRt6ZLPo/iA/8ijeBHkAzOhfxyX75P+je89arjx9A5Rd9y93J+D/shIp6 EUYgQCgRO2yqJ/g/heAPntDBIEA3CZ8wg4/3P/IyyqwXSCFAwwZ9E+/z9j8n M5kkYMUhQDv7EOISbPY/MCqdhzBNIkCMUfKESOL1PwHPtVMCzCJAkpG/P6Bq 9T/zOUO0V0gjQLKRbn4Q/vQ/uZsFADXPI0CfVzsvUpL0P0er3LQTTSRArPvw o5k39D+psehUetUkQJ+xsM+v3/M/LH5piWRbJUBik1ksWJLzP3f4/iZQ2CVA uBl/G3JT8z+Wacmvw18mQCipAtJtHPM/fYiooTjeJkApi9Q07fTyP4Vt/Ccx WidA3pEJ9enX8j9hSYWZseAnQBs4qfiTw/I/BdMidDNeKEAG7kNLh7vyP31T 9Tk95ihAVgJIcOO+8j8WmjyUymspQNhKjEpnzvI/d46YV1noKUCYN1VqVOjy P6x5KQZwbypAJ53hQRUS8z+pEs8diO0qQPfudbIPRfM/eqKpICh2K0CXc/tT AYjzP234+LdL/CtA8JbXmoDW8z8n/Fy4cHksQPtcZ378K/Q/tfb1ox0BLUAT DINmApb0Pwufo/jLfy1AKjU8t64F9T9KHnj3//8tQBvDJ1RQg/U/vFCy4Q== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 1.}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None}, PlotRange -> {{0., 15.}, {1.1707833232929956`, 2.910001706877694}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "15.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("InterpolatingFunction[{{0., 15.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.6152122558046913`*^9, 3.615212392277932*^9, 3.615470329620716*^9, 3.615470477070654*^9, 3.6155589687457156`*^9, 3.615559115214697*^9, 3.615559207726389*^9, 3.615559297142852*^9, 3.6155607657971563`*^9, 3.6170184097695494`*^9, 3.6170188006500263`*^9, 3.6170189038154964`*^9, 3.617019436881934*^9, 3.617019594329708*^9, 3.617020084963038*^9, 3.6170204311063566`*^9, 3.6170207970283194`*^9, 3.617021026401629*^9, 3.617021914616417*^9, 3.617022084700163*^9, 3.6170224074845295`*^9, 3.6170225229565053`*^9, 3.6170233193965034`*^9, 3.6170234063893547`*^9, 3.617023597472005*^9, 3.617023804985327*^9, 3.617023887690049*^9, 3.617025002813284*^9, 3.6170352665367403`*^9, 3.618148910152129*^9, 3.618195010272664*^9, 3.6181952200285997`*^9, 3.6182211939177556`*^9, 3.6193583556845336`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"1.17", ";"}], "\[IndentingNewLine]", RowBox[{"m", "[", RowBox[{"[", "1", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.6149459265872016`*^9, 3.6149460252309875`*^9}, { 3.614946936469054*^9, 3.6149469470385685`*^9}, {3.615212203881832*^9, 3.615212258523602*^9}}], Cell[BoxData["1.170699081823182`"], "Output", CellChangeTimes->{ 3.614946003085275*^9, 3.614946226496663*^9, 3.614946876181328*^9, { 3.614946937002448*^9, 3.614946947405828*^9}, 3.614947133552812*^9, 3.6149472477617702`*^9, 3.614947346700942*^9, 3.6149476455578203`*^9, 3.614947729586398*^9, 3.6149478131146235`*^9, 3.6149478849345465`*^9, 3.6149479579283*^9, 3.6149481837294188`*^9, 3.614948260106553*^9, 3.6152121744239044`*^9, {3.6152122055269785`*^9, 3.6152122589429007`*^9}, 3.6152123923129616`*^9, 3.6154703299119234`*^9, 3.6154704771717243`*^9, 3.6155589687567325`*^9, 3.615559115224703*^9, 3.6155592077363787`*^9, 3.615559297165868*^9, 3.61556076583018*^9, 3.6170184097985497`*^9, 3.617018800669052*^9, 3.6170189038465176`*^9, 3.617019436906949*^9, 3.617019594357726*^9, 3.6170200849970446`*^9, 3.6170204311323767`*^9, 3.6170207972034454`*^9, 3.617021026480686*^9, 3.6170219146664524`*^9, 3.6170220847321863`*^9, 3.617022407519554*^9, 3.6170225229915304`*^9, 3.6170233194305286`*^9, 3.617023406446391*^9, 3.6170235975020256`*^9, 3.6170238050293555`*^9, 3.6170238877170725`*^9, 3.6170250028252892`*^9, 3.6170352665647573`*^9, 3.61814891040732*^9, 3.618195010303914*^9, 3.618195220075473*^9, 3.618221193961788*^9, 3.6193583558026195`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"0.85", ";"}]], "Input", CellChangeTimes->{{3.6152122662401004`*^9, 3.615212270480111*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"x", "/.", RowBox[{"m", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"p", "/", "2"}], ")"}]}]], "Input", CellChangeTimes->{{3.615212271752015*^9, 3.615212301532155*^9}}], Cell[BoxData["0.8164151701791337`"], "Output", CellChangeTimes->{{3.615212299087401*^9, 3.615212301628203*^9}, 3.6152123923349724`*^9, 3.61547032993594*^9, 3.6154704772017455`*^9, 3.6155589687767363`*^9, 3.6155591152417345`*^9, 3.6155592077533913`*^9, 3.615559297184881*^9, 3.6155607658592005`*^9, 3.6170184099036446`*^9, 3.6170188006990585`*^9, 3.6170189038855457`*^9, 3.6170194369439783`*^9, 3.6170195943947525`*^9, 3.617020085041094*^9, 3.6170204311653996`*^9, 3.6170207972474756`*^9, 3.6170210265257177`*^9, 3.617021914702499*^9, 3.617022084768214*^9, 3.617022407561586*^9, 3.617022523031559*^9, 3.6170233194755616`*^9, 3.6170234064874277`*^9, 3.6170235975450573`*^9, 3.617023805068383*^9, 3.617023887747097*^9, 3.617025002844303*^9, 3.6170352665917807`*^9, 3.618148910455279*^9, 3.618195010335164*^9, 3.6181952201067433`*^9, 3.618221193981801*^9, 3.6193583558296356`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"2.9", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"p", "+", "1"}], "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.614863635266922*^9, 3.614863642113757*^9}, 3.6170194237436237`*^9}], Cell[BoxData[ RowBox[{"-", "3.0124010513234545`"}]], "Output", CellChangeTimes->{ 3.614863645021827*^9, 3.6148637610721016`*^9, 3.614923041816884*^9, 3.614923247568961*^9, 3.6149233125655622`*^9, 3.6149233954729176`*^9, 3.6149234825640345`*^9, 3.61492354502354*^9, 3.61492360677994*^9, 3.6149239336745024`*^9, 3.614924038848955*^9, 3.6149245442490234`*^9, 3.6149247715051537`*^9, 3.6149250345576487`*^9, 3.614925282799658*^9, 3.6149254084595265`*^9, 3.6149254485379434`*^9, 3.614925486633974*^9, 3.6149255814732003`*^9, 3.6149256485577993`*^9, 3.614925690362424*^9, 3.6149259104654846`*^9, 3.6149260714876537`*^9, 3.61492618895292*^9, 3.61492650697841*^9, 3.614926569707887*^9, 3.614926756147188*^9, 3.6149272277115483`*^9, 3.6149273560822783`*^9, 3.614927427514908*^9, 3.6149274652156363`*^9, 3.614927547011358*^9, 3.614927599566635*^9, 3.614927645295042*^9, 3.614927676387088*^9, 3.614927747423474*^9, 3.6149277889108715`*^9, 3.614927825725993*^9, 3.6149278706668367`*^9, { 3.6149279871003923`*^9, 3.614928013850363*^9}, {3.6149280491553907`*^9, 3.6149280746034555`*^9}, 3.614928107871022*^9, 3.6149281588251705`*^9, 3.614928204171322*^9, 3.614929279676216*^9, 3.614929377005206*^9, 3.614930014172597*^9, 3.6149301379403667`*^9, 3.6149357114882517`*^9, 3.6149358710093765`*^9, 3.614935908384867*^9, 3.6149359505517545`*^9, 3.614938908831168*^9, 3.614938957710848*^9, 3.614939023183248*^9, 3.614939082620388*^9, 3.6149391530122986`*^9, 3.614939189687323*^9, 3.61493922744609*^9, {3.614939266579821*^9, 3.614939295245146*^9}, 3.6149439526173487`*^9, 3.614943986612452*^9, 3.6149440173612537`*^9, 3.6149440499663715`*^9, 3.614944103885602*^9, 3.6149450485329323`*^9, 3.6149451190699987`*^9, 3.6149455483112535`*^9, 3.6149458800202703`*^9, 3.614946226510676*^9, 3.61494687619832*^9, 3.614947133602848*^9, 3.6149472478068013`*^9, 3.614947346746953*^9, 3.6149476457649865`*^9, 3.614947729737505*^9, 3.6149478131596746`*^9, 3.6149478850856714`*^9, 3.614947957993346*^9, 3.6149481838374753`*^9, 3.6149482601535873`*^9, 3.6152121746270437`*^9, 3.61521239234698*^9, 3.615470329947948*^9, 3.6154704772207594`*^9, 3.615558968787744*^9, 3.6155591152517223`*^9, 3.615559207763398*^9, 3.6155592971938877`*^9, 3.615560765876213*^9, 3.617018409928642*^9, 3.6170188007170916`*^9, 3.6170189039075603`*^9, { 3.6170194369629893`*^9, 3.6170194375323944`*^9}, 3.617019594416769*^9, 3.6170200850621085`*^9, 3.617020431182413*^9, 3.6170207972734933`*^9, 3.617021026547733*^9, 3.617021914722494*^9, 3.6170220847892294`*^9, 3.617022407580599*^9, 3.6170225230535746`*^9, 3.6170233194945755`*^9, 3.617023406507454*^9, 3.61702359756808*^9, 3.617023805089398*^9, 3.617023887766096*^9, 3.6170250028553114`*^9, 3.617035266604786*^9, 3.618148910479905*^9, 3.61819501035079*^9, 3.6181952201223683`*^9, 3.6182211939938097`*^9, 3.6193583558446465`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"12.5", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.6182206224885964`*^9, 3.618220629044258*^9}, { 3.618221314181242*^9, 3.6182213144074025`*^9}, {3.619357968577917*^9, 3.6193579736255035`*^9}}, NumberMarks->False], Cell[BoxData[ RowBox[{"-", "10.682224202039896`"}]], "Output", CellChangeTimes->{{3.618220614537925*^9, 3.618220629327439*^9}, 3.618221194004817*^9, 3.618221391841442*^9, 3.61935835585966*^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.05 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, 1619, 46, 172, "Input"], Cell[2201, 70, 4075, 61, 32, "Output"], Cell[6279, 133, 4130, 64, 32, "Output"] }, Open ]], Cell[10424, 200, 2047, 56, 208, "Input"], Cell[12474, 258, 3914, 74, 148, "Input"], Cell[CellGroupData[{ Cell[16413, 336, 533, 13, 72, "Input"], Cell[16949, 351, 4250, 80, 257, "Output"] }, Open ]], Cell[21214, 434, 8593, 170, 352, "Input"], Cell[CellGroupData[{ Cell[29832, 608, 716, 18, 109, "Input"], Cell[30551, 628, 8898, 156, 262, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39486, 789, 534, 15, 52, "Input"], Cell[40023, 806, 7917, 107, 32, "Output"] }, Open ]], Cell[47955, 916, 1768, 49, 129, "Input"], Cell[CellGroupData[{ Cell[49748, 969, 890, 19, 72, "Input"], Cell[50641, 990, 4420, 83, 261, "Output"] }, Open ]], Cell[55076, 1076, 1347, 36, 132, "Input"], Cell[56426, 1114, 2700, 51, 112, "Input"], Cell[59129, 1167, 429, 10, 44, "Input"], Cell[CellGroupData[{ Cell[59583, 1181, 128, 2, 31, "Input"], Cell[59714, 1185, 154, 3, 32, "Output"] }, Open ]], Cell[59883, 1191, 16616, 376, 1584, "Input"], Cell[76502, 1569, 998, 30, 100, "Input"], Cell[77503, 1601, 249, 7, 31, "Input"], Cell[77755, 1610, 16020, 367, 1562, "Input"], Cell[93778, 1979, 906, 26, 52, "Input"], Cell[CellGroupData[{ Cell[94709, 2009, 1977, 46, 132, "Input"], Cell[96689, 2057, 118823, 2387, 263, "Output"] }, Open ]], Cell[215527, 4447, 169, 3, 31, "Input"], Cell[CellGroupData[{ Cell[215721, 4454, 465, 10, 52, "Input"], Cell[216189, 4466, 3053, 42, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[219279, 4513, 442, 10, 52, "Input"], Cell[219724, 4525, 3054, 42, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[222815, 4572, 490, 12, 52, "Input"], Cell[223308, 4586, 3036, 41, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[226381, 4632, 542, 13, 52, "Input"], Cell[226926, 4647, 3014, 42, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[229977, 4694, 439, 13, 52, "Input"], Cell[230419, 4709, 11543, 225, 77, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[241999, 4939, 297, 6, 52, "Input"], Cell[242299, 4947, 1310, 18, 32, "Output"] }, Open ]], Cell[243624, 4968, 115, 2, 31, "Input"], Cell[CellGroupData[{ Cell[243764, 4974, 266, 8, 31, "Input"], Cell[244033, 4984, 921, 12, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[244991, 5001, 366, 10, 52, "Input"], Cell[245360, 5013, 2975, 42, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[248372, 5060, 439, 11, 52, "Input"], Cell[248814, 5073, 198, 3, 32, "Output"] }, Open ]] } ] *) (* End of internal cache information *)