(* 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[ 244888, 5189] NotebookOptionsPosition[ 241518, 5076] NotebookOutlinePosition[ 242081, 5098] CellTagsIndexPosition[ 242038, 5095] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"lattice", " ", "primitive", " ", "vectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"latticeVec", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", "0", ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}], ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"reciprocal", " ", "lattice", " ", "primitive", " ", "vectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{"reciprocalVec", "=", RowBox[{"Transpose", "[", RowBox[{"Inverse", "[", "latticeVec", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"lattice", " ", "constant", " ", "for", " ", "Carbon"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"aLattice", "=", "6.74"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "half", " ", "of", " ", "the", " ", "volume", " ", "of", " ", "the", " ", "primitive", " ", "cell"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vAtomic", "=", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "8"}], ")"}], " ", RowBox[{"aLattice", "^", "3"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.613310868629519*^9, 3.61331088145165*^9}, 3.613310917569337*^9, {3.6194383734328175`*^9, 3.6194383910903206`*^9}, { 3.619446570352314*^9, 3.6194465915353436`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "2"], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", "0", ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox["1", "2"], ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.6133116341403236`*^9, 3.613311674471027*^9, 3.6143500708611364`*^9, 3.6143501040366664`*^9, {3.615271729630205*^9, 3.6152717447409077`*^9}, 3.6152782806014743`*^9, 3.61527848912551*^9, 3.6152787193239517`*^9, 3.6152789236860123`*^9, 3.6152793179148865`*^9, 3.6152795507922106`*^9, 3.6152797597825766`*^9, 3.615279984801509*^9, 3.6152801815201645`*^9, 3.6152803917354*^9, 3.6152805905165195`*^9, 3.6152877243410215`*^9, 3.6152883044073915`*^9, 3.615288548203967*^9, 3.615288754466416*^9, 3.6152889984286947`*^9, 3.615289231110076*^9, 3.6152894654280005`*^9, 3.615289529722645*^9, 3.6152897668639965`*^9, 3.6152899589689693`*^9, 3.615290219869843*^9, 3.615290462264924*^9, 3.6152907182326393`*^9, { 3.615290982102233*^9, 3.6152910000414405`*^9}, 3.615291171361501*^9, 3.615291358226653*^9, 3.615291558092906*^9, 3.615291718360265*^9, 3.6152919198376894`*^9, 3.6152920773521976`*^9, 3.6152922313351965`*^9, 3.6152924668102245`*^9, 3.6152927749450407`*^9, 3.615293081130255*^9, 3.615293358372156*^9, 3.615293617632229*^9, 3.6152937648167*^9, 3.6153637950677223`*^9, 3.6153837497221837`*^9, 3.6153840463677807`*^9, 3.6153842405126076`*^9, 3.615384461941805*^9, 3.615384686178997*^9, 3.615384881431609*^9, 3.6153855267961683`*^9, 3.6153859399264593`*^9, 3.6153862310011015`*^9, 3.6153862899879827`*^9, 3.615386500062114*^9, 3.6153869834362698`*^9, 3.6170854176296897`*^9, 3.6170858812876472`*^9, 3.617086142351639*^9, 3.617086638483656*^9, 3.617087053967252*^9, 3.6170873594221106`*^9, 3.6170875769286356`*^9, 3.6170877624002876`*^9, 3.617088035290036*^9, 3.617088282367422*^9, 3.6170884695142813`*^9, 3.617088690517193*^9, 3.6170889532867217`*^9, 3.6170889906412563`*^9, 3.617089337059022*^9, 3.61708952458315*^9, 3.6170897290004873`*^9, 3.617090144828473*^9, 3.6170905287065954`*^9, 3.6170918478291025`*^9, 3.617092045140749*^9, 3.617092402853697*^9, 3.617092623429286*^9, 3.617092821174671*^9, 3.6170931094563274`*^9, 3.617093319822672*^9, 3.617093570022314*^9, 3.6170939453494663`*^9, 3.6170941671309867`*^9, 3.6170944396097665`*^9, 3.617094931519992*^9, 3.61710619725751*^9, 3.617106736004975*^9, 3.6171069437494783`*^9, 3.617107178587176*^9, 3.6171073652737064`*^9, 3.6171075536114316`*^9, 3.6171077696073647`*^9, 3.617108119859037*^9, 3.617108200246087*^9, 3.6171086700696244`*^9, { 3.617109548615321*^9, 3.6171095577147813`*^9}, 3.6171098575926833`*^9, 3.6171102626502323`*^9, 3.6171104618326344`*^9, 3.6171106984807725`*^9, 3.617111686868449*^9, 3.6171118893261795`*^9, 3.6171121202266793`*^9, 3.6171123253343077`*^9, 3.6171125491862164`*^9, 3.6182371603747206`*^9, 3.618244444109812*^9, 3.618317431061054*^9, 3.619317161591797*^9, 3.6194466682867975`*^9, 3.61944702639079*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.6133116341403236`*^9, 3.613311674471027*^9, 3.6143500708611364`*^9, 3.6143501040366664`*^9, {3.615271729630205*^9, 3.6152717447409077`*^9}, 3.6152782806014743`*^9, 3.61527848912551*^9, 3.6152787193239517`*^9, 3.6152789236860123`*^9, 3.6152793179148865`*^9, 3.6152795507922106`*^9, 3.6152797597825766`*^9, 3.615279984801509*^9, 3.6152801815201645`*^9, 3.6152803917354*^9, 3.6152805905165195`*^9, 3.6152877243410215`*^9, 3.6152883044073915`*^9, 3.615288548203967*^9, 3.615288754466416*^9, 3.6152889984286947`*^9, 3.615289231110076*^9, 3.6152894654280005`*^9, 3.615289529722645*^9, 3.6152897668639965`*^9, 3.6152899589689693`*^9, 3.615290219869843*^9, 3.615290462264924*^9, 3.6152907182326393`*^9, { 3.615290982102233*^9, 3.6152910000414405`*^9}, 3.615291171361501*^9, 3.615291358226653*^9, 3.615291558092906*^9, 3.615291718360265*^9, 3.6152919198376894`*^9, 3.6152920773521976`*^9, 3.6152922313351965`*^9, 3.6152924668102245`*^9, 3.6152927749450407`*^9, 3.615293081130255*^9, 3.615293358372156*^9, 3.615293617632229*^9, 3.6152937648167*^9, 3.6153637950677223`*^9, 3.6153837497221837`*^9, 3.6153840463677807`*^9, 3.6153842405126076`*^9, 3.615384461941805*^9, 3.615384686178997*^9, 3.615384881431609*^9, 3.6153855267961683`*^9, 3.6153859399264593`*^9, 3.6153862310011015`*^9, 3.6153862899879827`*^9, 3.615386500062114*^9, 3.6153869834362698`*^9, 3.6170854176296897`*^9, 3.6170858812876472`*^9, 3.617086142351639*^9, 3.617086638483656*^9, 3.617087053967252*^9, 3.6170873594221106`*^9, 3.6170875769286356`*^9, 3.6170877624002876`*^9, 3.617088035290036*^9, 3.617088282367422*^9, 3.6170884695142813`*^9, 3.617088690517193*^9, 3.6170889532867217`*^9, 3.6170889906412563`*^9, 3.617089337059022*^9, 3.61708952458315*^9, 3.6170897290004873`*^9, 3.617090144828473*^9, 3.6170905287065954`*^9, 3.6170918478291025`*^9, 3.617092045140749*^9, 3.617092402853697*^9, 3.617092623429286*^9, 3.617092821174671*^9, 3.6170931094563274`*^9, 3.617093319822672*^9, 3.617093570022314*^9, 3.6170939453494663`*^9, 3.6170941671309867`*^9, 3.6170944396097665`*^9, 3.617094931519992*^9, 3.61710619725751*^9, 3.617106736004975*^9, 3.6171069437494783`*^9, 3.617107178587176*^9, 3.6171073652737064`*^9, 3.6171075536114316`*^9, 3.6171077696073647`*^9, 3.617108119859037*^9, 3.617108200246087*^9, 3.6171086700696244`*^9, { 3.617109548615321*^9, 3.6171095577147813`*^9}, 3.6171098575926833`*^9, 3.6171102626502323`*^9, 3.6171104618326344`*^9, 3.6171106984807725`*^9, 3.617111686868449*^9, 3.6171118893261795`*^9, 3.6171121202266793`*^9, 3.6171123253343077`*^9, 3.6171125491862164`*^9, 3.6182371603747206`*^9, 3.618244444109812*^9, 3.618317431061054*^9, 3.619317161591797*^9, 3.6194466682867975`*^9, 3.6194470263927913`*^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.21"}], ";"}], "\n", RowBox[{ RowBox[{"ktf", "=", "0.70"}], ";"}], "\n", RowBox[{ RowBox[{"qz", "=", RowBox[{"5.73", "^", "2"}]}], ";"}], "\[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.6152782755759077`*^9, 3.6152782761943464`*^9}, {3.615279982805092*^9, 3.615279983221387*^9}, {3.615280178941332*^9, 3.615280179490723*^9}, 3.6152803901102643`*^9, {3.615280587366283*^9, 3.6152805892776403`*^9}, { 3.6152808301936717`*^9, 3.615280855004285*^9}, {3.6152892211500034`*^9, 3.6152892303075056`*^9}, {3.6152894617143664`*^9, 3.615289464008993*^9}, { 3.6152895160849657`*^9, 3.615289527929372*^9}, {3.6152897612840366`*^9, 3.61528976470947*^9}, {3.6152899498404903`*^9, 3.615289957804144*^9}, { 3.61529021379453*^9, 3.615290214251855*^9}, {3.6152904602464924`*^9, 3.6152904606757975`*^9}, 3.615290977585667*^9, {3.6152919111015024`*^9, 3.615291918228048*^9}, {3.615292071694496*^9, 3.6152920759923644`*^9}, { 3.6152922297099466`*^9, 3.615292229897504*^9}, {3.6152927703508873`*^9, 3.6152927734917383`*^9}, {3.615293078256216*^9, 3.6152930797532783`*^9}, { 3.615293610211943*^9, 3.61529361630727*^9}, {3.6152936989419317`*^9, 3.615293698999976*^9}, {3.615383726518731*^9, 3.6153837272072*^9}, { 3.6153842293036685`*^9, 3.6153842319775677`*^9}, {3.6153846696352525`*^9, 3.615384683128831*^9}, {3.61538487685336*^9, 3.6153848796723623`*^9}, { 3.6153854528546762`*^9, 3.6153854563611674`*^9}, {3.6153862193568525`*^9, 3.6153862289176397`*^9}, {3.615386496452551*^9, 3.6153864979926634`*^9}, 3.615386973726396*^9, {3.617085365693819*^9, 3.6170853667015357`*^9}, { 3.617085872212225*^9, 3.6170858792452183`*^9}, {3.6170880329173517`*^9, 3.617088034308339*^9}, {3.617088279629478*^9, 3.6170882805221133`*^9}, { 3.617088467562916*^9, 3.61708846818836*^9}, 3.617088688927067*^9, { 3.6170889505667915`*^9, 3.617088988537764*^9}, {3.6170893346403227`*^9, 3.617089335489927*^9}, {3.6170901420405145`*^9, 3.6170901433824463`*^9}, { 3.617090525008952*^9, 3.6170905260637193`*^9}, {3.6170918440514407`*^9, 3.61709184631805*^9}, {3.6170920387021756`*^9, 3.617092043491596*^9}, { 3.6170923874747972`*^9, 3.617092393486065*^9}, {3.61709330393141*^9, 3.617093306900518*^9}, {3.617093943778351*^9, 3.61709394428273*^9}, { 3.6170944373341618`*^9, 3.617094438237804*^9}, {3.617094930272109*^9, 3.6170949304432316`*^9}, {3.617106182681178*^9, 3.6171061957774754`*^9}, { 3.6171067249441233`*^9, 3.61710672506621*^9}, {3.6171069254484854`*^9, 3.6171069264021626`*^9}, {3.6171071755090046`*^9, 3.617107176618797*^9}, { 3.6171073553476615`*^9, 3.617107364348051*^9}, {3.617109555765397*^9, 3.6171095568201666`*^9}, {3.617110254725625*^9, 3.617110255645257*^9}, { 3.617110443672744*^9, 3.6171104453729687`*^9}, {3.618244439703674*^9, 3.618244442303527*^9}, {3.619411341849152*^9, 3.6194113505213056`*^9}, { 3.6194466144656105`*^9, 3.61944661495796*^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", CellChangeTimes->{{3.619446697825753*^9, 3.6194467007268105`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwV1Hk81dkbB3CpkSQ/KoqUiFtSGNHI4NFvLDWiuIgUWaKiYiqTJXWz/Ca+ dslycbn3q1wKWbpd5IRsWXIRsuTastW3KUyl0e/0x3md1/uf57zOeT7PUXa/ ZHtGVEREJBWvH/vvZ6Y60bS9Md/7vDVqJ9Hbhw7ub+R1oTypdvUPy63tiS2V N4W0jx37arCfPA31/ZNmDT6cREE1tuaBjWSmvB2EDkuMV2KLbJhO+q7kBMGz +mefYHfOVd9yo7mAq8ZW1wpsG49mnluKG1zbwGt6hG3wcl9xorwnXNGUIB9i 7zDKulfH9AJzxY3z+diSXPHseaVz8Gviq3IO9rzc5RQ1tg8snLCdycIeChuK caBdBF+HvxJSsT0+s2vr7PxAGBhYkIDdq+lkfDLFH+Y7aPpR2CijTi9G/goI 7/PzA7F1BddK1JyvQnQBO9YPO19cc+9TZgCcGbGa9MJOvJqqSikFQnnL7Dsb bLFCK9b/3ILgT+5opjl20Kio4nZ2MIjK5CCDH+cfvbDBhhYKXiXBLsrYfREq cdPeN2CpJqN/AzZt2OenZ3Y3oW05qvEn7PSNygynFAa8Yr1ZettGojBG9LUo +XBg7MptILGfKnpVOPDDob8nuC8J+/Njk3kV5whQXaV/ioHt+37hUiUzEg5s 96g5gW3nfNp7Tuk2uHJ6J8WwYxcNSB66DWj95vgPrSRqSpAdC3eLglI2vbAf 26ipxWUrOxryZVqMuNg0PT0Ha1os2IooPDfFPv3yP8kKjbGg3pkqths7w2em c9I7Dnhl2pVS2OKdHXk1dvHQb1x1/dULEoWsjlBxTEkA41b+WVdszyuU/G35 ZFBjurx2aCHRvpWJQY/8kiHbvNlSG1s0UXdgoDEZ8rU+bVqDnV0UyNQMuAM1 GSzEaybR65mVSt2CFFhrpWEnjX3UbbOqEpEGCVPcKFYjibZ94IcfGkuDiaLb BZew50JPTfgbpIPUcc5OY+woZm5e/VQ69LsX/9zfQKL63j3q582YcCBRKXY1 toH1Qc3y5Sxwm07zM6vH9xkaix22zwbJobjDEti9PpHU6gfZAHrOoe11JOLX n3F8sJcFpm7MJTtsx1GuvMggC6LX/mN2ohbnZasek9TPhSrP4R3mCNdLPpzz 4W8OrAhpd2RXkmhJX7iUo0CCZtA+KSfs90PXHOi/kUD1tupJYXftvL+2IpkE c2bLQACfRFmVYgHBv+TBuK1++MEnOK9jdb+LXb8H6oa2NlUVuD86xvNbxLkQ on1D91AJiei9PdZt2lw4q2x4aK6YROYhF/JDnbjgOlbfEYet0cB0EXK54G/0 h0FPEYkWnZaa8qwK4ALjxQ2nhyQiGLzMn5MKwdNLr9eigESPX+pYWGwrglu8 ZZUqDs7T9NyhPeZF4K9+/tMxbC/Re7/LXCwCPbcZ4wk2/i90t1gPVBdBj8Db QhK78gWD+1izGMxuyWy3yyHRFq3zJZbtxWD7i85ySybu74JBzeV1j0BD65PQ PgW/Z9jg67roMni01UV1PIJE0iO0Pd45ZeDx9rrrEexmQ//rEo/LIO/mtZVl 4bh/iz9ttxktgw3FnpGMMFz/nNaZYf1ykPsyGyTLINGw9S3q80Q59LLS9JRD cB4Vdq3SNHkM2q4GD5r8SXSp5PLe1Pkn4Mx+33rKGffDUNjVLM4HhVO2pQ9O 4Plqsg5aUuSD/UVDxX+dSHT2jXqjixkfBorFA9Id8fuvGzmtlsIH2eZDRzrs SXTs3JHkR79UQpuCIE35GIm0ldWWWoOq4Jj3tUvnTEn0Mf5V04oVNVC9kzMV rYHn8VlDTYdhLdiM2BLOFAedCzy8zmmuHgzXmcm6FnLQszU63wsvNEK955cC D28OymPXLyuotYAlITayQ46DTOSqc+kPWyHyZedAXz0b7W0c5DXs7oAu/YLS XD826jahv89//xLefu/bNyjNRr4SPoIebQFUvqioXizNRS/6jldLxXaBheeQ ouyRXEQ3dxSOj3eDj7CtLGIsB+1nRR9nqb6CsInRCpObOWhkOan77I1e8Nd/ 4miwIQdNHO5gy9X1wcabfpsLC1moOO1NYKfya2CF9q7aa8RC5F8rb6sHDcDw QS/RO9nZaMHjxIxX5SDwo2rTXLqz0FrTSNuSTcPA2bYrq+JLJgqRnpAUnnwD v2qlfCnTykSSTzVEeq1G4Krph+c0XyYyCjj6b93XEdDNDb5klJGBmByCvYMp hMr+6yrFA+nIxV63bY3lKFDHI+NUpNNRec+ZpKeLozBHvyhedCQNHWgtFp1M GQM92OV0Mz0VbTfzWkgyHYdPmhHu1NBdpKerl1A2OQ57Hr/WOqtzF735GNPM jpiAqTxJQXRsCprbZxMhrzMJ3TJyV1OFdxBtdu/Miq5JmJ94ltZuegfVq14V +DHegvLSc3ZXdjKK6+7xsFWdAskTLyMvSiQjio4SROunQGzjW1HLkCT0yF72 twP+0/Bz99d3E5OJiN0Wljm6fgY642XEx1wT0T+NJ4PX186AO3fkhrUgAY0k 1CxIX5yFu2sUp79ZJqDFzl/lb0nNgQZXXLdBEI/8klVQYNUcTF9xXn5Ij0eb 2lSkx13ewdPXHeMitXGI3lP4TXH5HSSyBtzcp2LRR9cc30Hue6AfNU9VWxWL ak4XRUgdocB55LSsw/4YxO/wtRy2piDhe2hgu04MqjDeLfPQhoKMDJqHhVYM KlQkmVbHKdBgNjYY7IpB6X3ppYQ7trR5206FGHT1WKRQIpACueCRBoVlAmmY nDJanUfBvMXytEcDgWhFCit771Mws0gbmKslkMq2vqa8Agp4AeFHA2oItPmb rZ15CQUbLyc9i+IRSIx3yCeiigIFs89NT7gEEmrppq3sosDMPcVOO45Ag1l/ u3T1UFB/ne73LJpAfeuKVNl9FLT2bJGi/0Wg9ln14v8OU1AxG9bxJ4NAVfeU GhnTFDiS+d6NlwnEkxsibOYoWHGXl3DSj0ClEem2yhQFQ/uNjT76EojrITuM 5nE9c4/NSl4EIgUCdvw/FPyRMWRR4U4g1sH4c6e/UnDBO/yzlSuBmMVWWtr/ UtCyzWz3pDOB7iqtXfj+nYJj+9cNhToS6P9mHwjj "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, -2800.}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Vlocal, screen (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}, {-2791.375598263895, -907.0619450599861}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.6194466733664007`*^9, 3.619446702922369*^9}, 3.6194470266029415`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"non", " ", "local", " ", "pseudopotential"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"constnl", "=", "47.04"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Rb", "=", "0.555"}], ";"}], "\[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"], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "2", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"x", " ", "kx"}], "+", RowBox[{"y", " ", "ky"}], "+", RowBox[{"z", " ", "kz"}]}], ")"}]}]], " ", SqrtBox[ FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"2", "l"}], "+", "1"}], ")"}], RowBox[{"4", " ", "\[Pi]"}]]], RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", "m", ",", RowBox[{"\[Theta]", "[", RowBox[{"kx", ",", "ky", ",", "kz"}], "]"}], ",", RowBox[{"\[Phi]", "[", RowBox[{"kx", ",", "ky"}], "]"}]}], "]"}], RowBox[{"fnl", "[", RowBox[{"l", ",", RowBox[{ FractionBox[ RowBox[{"2", "\[Pi]"}], "aLattice"], SqrtBox[ RowBox[{ SuperscriptBox["kx", "2"], "+", SuperscriptBox["ky", "2"], "+", SuperscriptBox["kz", "2"]}]]}]}], "]"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.6133110087832727`*^9, 3.6133110232145247`*^9}, { 3.613311057724103*^9, 3.613311062789709*^9}, {3.6133111633512793`*^9, 3.613311244139776*^9}, {3.613311291333356*^9, 3.613311293236701*^9}, { 3.6133113741122603`*^9, 3.61331139430565*^9}, {3.613311581309742*^9, 3.6133116008476477`*^9}, {3.613311667468061*^9, 3.613311671923216*^9}, 3.6133127731036353`*^9, {3.613313539279928*^9, 3.6133135397212596`*^9}, 3.615273567951287*^9, 3.615278488136809*^9, {3.615278714441467*^9, 3.615278718780547*^9}, {3.6152789206988935`*^9, 3.615278922066865*^9}, 3.6152793166509886`*^9, {3.615279546049844*^9, 3.615279550240819*^9}, 3.6152797576490607`*^9, {3.615280892543954*^9, 3.6152808926770277`*^9}, { 3.615288298621284*^9, 3.6152883030704403`*^9}, {3.615288538185855*^9, 3.615288546709908*^9}, {3.6152887519386034`*^9, 3.615288752847248*^9}, { 3.6152889951193457`*^9, 3.615288996803543*^9}, {3.6152904484381084`*^9, 3.615290452190775*^9}, {3.6152907123644943`*^9, 3.6152907164864206`*^9}, { 3.615290997244029*^9, 3.6152909988383527`*^9}, {3.6152911656885185`*^9, 3.6152911695173655`*^9}, {3.615291347646453*^9, 3.6152913565701375`*^9}, { 3.61529155199783*^9, 3.6152915572018914`*^9}, {3.615291716375427*^9, 3.6152917167660646`*^9}, {3.6152924600866737`*^9, 3.6152924635716095`*^9}, {3.61529335346067*^9, 3.6152933571242886`*^9}, { 3.615383735932395*^9, 3.615383746162677*^9}, {3.6153840446485577`*^9, 3.61538404507388*^9}, {3.6153844507448587`*^9, 3.6153844610041404`*^9}, { 3.6153855175506163`*^9, 3.6153855253391542`*^9}, 3.6153859364439864`*^9, { 3.6153862840757985`*^9, 3.6153862889352303`*^9}, 3.6153869814758773`*^9, { 3.6170853968659506`*^9, 3.6170854164078226`*^9}, {3.617086137002823*^9, 3.617086140792511*^9}, {3.617086614225453*^9, 3.617086636664365*^9}, { 3.617087046914243*^9, 3.617087052088917*^9}, {3.6170873577099047`*^9, 3.617087358195249*^9}, {3.617087570704199*^9, 3.617087575213399*^9}, 3.6170877604539423`*^9, {3.617088026065488*^9, 3.6170880295919905`*^9}, 3.617089522427638*^9, {3.6170897235456333`*^9, 3.6170897270611086`*^9}, { 3.617092399919612*^9, 3.6170924000527287`*^9}, {3.6170924509138145`*^9, 3.6170924527090883`*^9}, {3.6170925907160826`*^9, 3.6170926221103497`*^9}, {3.6170928192543273`*^9, 3.6170928198527517`*^9}, {3.617093107752137*^9, 3.6170931080533514`*^9}, { 3.617093312385412*^9, 3.6170933172548513`*^9}, {3.617093565037775*^9, 3.6170935680098853`*^9}, 3.617094165046525*^9, {3.617106728984991*^9, 3.6171067319370875`*^9}, {3.617106941314749*^9, 3.61710694207729*^9}, { 3.6171075491932745`*^9, 3.6171075524105797`*^9}, {3.6171077683665032`*^9, 3.6171077685296197`*^9}, {3.6171081162204328`*^9, 3.617108117157118*^9}, { 3.6171081939826574`*^9, 3.61710819898521*^9}, {3.6171086656674995`*^9, 3.6171086691489687`*^9}, 3.6171095457682996`*^9, {3.617109855996558*^9, 3.617109856264728*^9}, {3.617110694015603*^9, 3.617110697646198*^9}, { 3.6171116828416104`*^9, 3.6171116853734064`*^9}, {3.617111871306405*^9, 3.617111887996233*^9}, {3.617112115377255*^9, 3.617112116559074*^9}, { 3.617112319960493*^9, 3.6171123240433917`*^9}, {3.617112546782499*^9, 3.6171125470857353`*^9}, {3.6194467385786657`*^9, 3.619446739053003*^9}}], 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.6143500711580124`*^9, 3.6143501043179398`*^9, {3.615271734267496*^9, 3.615271745012101*^9}, 3.615278280725562*^9, 3.615278489223578*^9, 3.6152787194300103`*^9, 3.6152789237740755`*^9, 3.6152793179989457`*^9, 3.615279550880291*^9, 3.615279759873643*^9, 3.6152799848905993`*^9, 3.615280181611229*^9, 3.6152803918284655`*^9, 3.615280590603581*^9, 3.615287724611213*^9, 3.6152883046275454`*^9, 3.6152885483320575`*^9, 3.615288754591487*^9, 3.6152889985838065`*^9, 3.615289231331231*^9, 3.6152894656181355`*^9, 3.6152895299117804`*^9, 3.6152897670441265`*^9, 3.6152899591510973`*^9, 3.6152902200369596`*^9, 3.6152904624130297`*^9, 3.615290718382767*^9, {3.615290982243219*^9, 3.615291000197892*^9}, 3.615291171517753*^9, 3.6152913583672795`*^9, 3.6152915582335353`*^9, 3.6152917185008917`*^9, 3.6152919199783134`*^9, 3.6152920775709677`*^9, 3.6152922314758024`*^9, 3.6152924677350855`*^9, 3.6152927751637907`*^9, 3.6152930812923965`*^9, 3.6152933585342712`*^9, 3.6152936177853193`*^9, 3.615293764998828*^9, 3.615363795718204*^9, 3.6153837498422685`*^9, 3.6153840464658504`*^9, 3.6153842406106763`*^9, 3.6153844620428753`*^9, 3.615384686282068*^9, 3.6153848815837173`*^9, 3.6153855269382706`*^9, 3.6153859400495462`*^9, 3.6153862311141815`*^9, 3.615386290162099*^9, 3.6153865001962066`*^9, 3.6153869835693636`*^9, 3.617085419795227*^9, 3.617085881395727*^9, 3.6170861424606953`*^9, 3.6170866386087427`*^9, 3.617087054093342*^9, 3.6170873596142387`*^9, 3.6170875770527053`*^9, 3.6170877625183697`*^9, 3.617088035413103*^9, 3.6170882824845247`*^9, 3.6170884696303635`*^9, 3.6170886906943045`*^9, 3.617088953398822*^9, 3.6170889907573433`*^9, 3.617089337237147*^9, 3.617089524697229*^9, 3.617089729120591*^9, 3.617090144956564*^9, 3.6170905288176737`*^9, 3.617091847943183*^9, 3.617092045265856*^9, 3.6170924030018005`*^9, 3.6170926235753903`*^9, 3.617092821324778*^9, 3.6170931095984297`*^9, 3.6170933199607706`*^9, 3.617093570151385*^9, 3.6170939455756474`*^9, 3.6170941672740865`*^9, 3.617094439746875*^9, 3.6170949316500688`*^9, 3.6171061974166393`*^9, 3.617106736299184*^9, 3.6171069439445972`*^9, 3.617107178836351*^9, 3.6171073654618416`*^9, 3.617107553859588*^9, 3.6171077698095107`*^9, 3.6171081200571585`*^9, 3.617108200440222*^9, 3.617108670283775*^9, {3.617109548807478*^9, 3.617109557902919*^9}, 3.6171098577908134`*^9, 3.6171102628453712`*^9, 3.617110462074808*^9, 3.617110698711934*^9, 3.617111687060585*^9, 3.61711188956735*^9, 3.617112120503875*^9, 3.61711232558949*^9, 3.6171125493903522`*^9, 3.618237162563026*^9, 3.6182444442028756`*^9, 3.6183174317595515`*^9, 3.619317162576166*^9, 3.6194468089916224`*^9, 3.619447026637965*^9}] }, Open ]], 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:eJwV1Hk81dkbB3BlTSLbvYjkyo1EfLNUv3geyzSNGEtJxQhZhmlCKZEtxhqy ttlSkW5RUZI9kiVrkV0KrSPcaw35nfnjvM7r/d/5nPN8joKTp5XLai4urgyy /tvn95/MsPAM0V9bUeESfZnCI3yh4m1Me/Bq/1PiP99IgENxzJMQkOG5KYpY UORYYm/6WdDUex0dQVxrnel7ghkERr0JFv8Q67d+L1jpDoX19+/5XCBO8xZm NKZHwC0uxdlA4nkJ9dQkxxh4Qs11+hFbl5gJ2DHj4X6BsugZ4t784oqkmQRI m3rK8iSODN7rO9edBEbROdnuxDqWbzXsSlNARII940Q8ynD9Wp1+GaQMMu/Y EidNz9xSCr4KzHZW8QFig5fhf8Q4XgdWopTifuJM95z2A8xM2G2wQWIncW6G zC92PDcgWrHwqhpxUMSH7PiZG9CxqcCfQbzt8ClbTvdN0BDqOyRIzG2wu0Sp 8RZ8Pi1kuZxKYZ/KasnDpbeh60te3gRx1GJia3l6LnxlKXm9Jj42ekR1Iu4O 8M0IDNcQ67QoRCkE54Hhfrv8QuKxzEcGEY4ssOo44pBAbGjY8dicWQD2gx+2 GBNLq14TDaU/APv8c2HbieejNXSP8jwE8Zy4PTLE7afmk2NnHsJQl179eAo5 v3GU2VR3Iai6z+vHEX/d+e/5GIsi8FZviDhNbK1mwVJsLIImh63bjhBvo0nx Hyp9DNnfHl5iEPd9ulNdml4MbGtaaX4yhXsH1k4ckHwKzq8avscTP2r3lBuP ewr6skoXPImjnun6yweXgJHR50p1Yt2L9Tv+cSwFxYnZzJwkClPUP+WaMSvB Ltx+2ieRwiae/qdr71bCxvaQ2H3EXP2tDY2qVXCtXs51A3Gxke3MTalq2Jo8 OFiZQCFj0pAuv/E5bAkQG166ROGPfWK2dJVaiL97Ucs6nkJJrdjjZz1q4Vdj +idZYg15vhNd92rhvVFw/0gcha4zCwHJ6i+gbGUl2pP4dfb7TBGtOjhiEvMz MJZC1o+HH/ihHtK49pj6xlBYN7b1m2tIPeS8nJPfQTzcfptT97weAoMEdL5H U0i7c5XnH+MGeMJtouJEHHoghMll0ggFcv9TM4ii8Oh9c4/5g69grjeusD+c 9MX++9RnjzbQcP5jJjSEwrNdHQvsO20g/fcIqhGPmD5ZtTzaBj6e0p/fBlM4 JFcZFbW9HUwzn/2mTFwsFH41/W47aIk1H60NJHm+ipW8yOiA+eqA8j5/Cl/m qM9JRLwBsyu5tfE+FAY4blq8dvsN7KxdvLKZmJITW9lY+waemBo1PjtN5j9l hk+FqxO6td4afjhFzhNWTtPz7wQHzX3Jqt4UMh1NdFxOdkFTn39R1t+kf7Ku Z54c6oYV74BfhF0pVH7wSCfbpxsa+27uT3Ih72mwPBeb1A1/F0QWSxILu6X4 O7d2Q2RWZamMM4WXH9UEi+/tgVhjoyA5J9K3vfIx3tq9sObhxyVee3LfXj2Z ahL98PrqA+3j1iQf92YHaaofzAO4xt8cpFDgsqcCr0U/xKtUCBoTm5bx3R64 2A+84UV+jAMUdvJq373IPQDlPKpbeizIf3A9segLewBGr2xrYZqSvtaZNOR0 DMHkz5cPLA0plLLYXSPDHoIsk+TIbAMy//0q5ZfE3gE//9f7k0jhoSmBh34H 3sEBTvRwLFCYJ1d/xazrHXydHxwv30Pupyy7yP/EMOzwPFG0qEPyi28MY3i9 h3bTudDprRSK19EYp3xH4GT0xj096yksHP9sfyViBOyOqg4IElvQytLKU0cg dN/bsT0iFMa7HZPkfzwC9mpHdbLWkbyCeQLpkyPQouDWaidI4dLvuybq3Efh eI3aeBk3yddjWy5tNwb+e5mBgrOaWPzvjUPP8RN0M73ejPdo4n0GK0vX9ht8 6TD5UyFJE+V1vieHO03AD8e+sCZDTbSMdKkySJqC+8ZhTkGTGljhLw6daRyo ElFJaY7XIP1eV1oZOgNBFpE1ets00Dk1R1DSYQ76Wc0CmTHbEd8HjP10WYC4 lPFz5zLVMefSjTL8bREObjmz/tRTNdSq45alWS/Dn2eCDccKt+EFdx4rG5sV WK7XL/ZgqaJqSZ7BuTQuhF8TGc75W1F15WRWfNYq5M9tfhyWqoKevv0/LJJW o59KVVtMrDLuK3Lb8Mc1bpSnFbf3emzBkNwaZlYaD8bfUr5kasbEpaba7XGx vMhI8M1hGinhuqLR5ReJfPjsu+hF5c2b0an5XmNeOD/Wny+ktcooIi3DIKTG RwCXeBq8aDIMPKY5t6h0bg1mDtl5ewko4Pis1RltD0Fk172TDxbehCIhrUXx Xmvx9+EF7RahjZhYLTUod0oI5R5M3E6RlEUbag3PEad1uGHXZ99N5jJY6CY9 OegqjK17ChcfnpZCy9a2XuGjIvjc4uc9iUYaKp/d2r1783rcGTf55bauJE59 XFJMzlmP5wS5Gx2viKOd101Pg42iOPjlw6swJTFM6u/OkMgWRaqFkbKUtx49 jg036W0Qw9N/cUz6HgnjlL7F+KpkMbwQMpkxYSiERlwW7K8S4rgzXzJ8V/0a 1O1jzKrEi+Ma0U7v4ev8OJMaPhAnKoHKnZb/83TjxeP55iWxSRLImrJZZrhw 4+nBf5PeC0pi2rWsCL47q9BsQtrCNk4SqwwvZzm0rECTtIyQKj8NV3+L0hFv WILZrAsVqUE05OmKtd+x9geM8/tZKnHRMcXal6vLfA4iooxGBf3oKN8sU3l9 YRpq0xJLmOfp6Hkp3ypzYhq4HryLNQyko8dfdrU5Y9Pg13Ve2/8CHW8YyGlX d0zDCcbjiC/RdKzpTNRXZE2DZflmlYbrdFwycRPKtp0G2Unek+HldFyI6L7n 85wDh7kPGmZX0lFoV1nf1FMOpNJu0iqq6VjQoPzyVAEHhPX0q6Zf0NE9uKA1 mMz9qpiz651b6NgpWxXz8gwHPip+KjQcomOs/qsOXlUOKOpqR9oP09FH7rVV pQIHHEzCbP0/0PHW68sh/lIc6PWS5yn8SMeiAdehZV4ONFfYWCtM0DGSFRip 8Z4NAh05KnpTdJz9q82Kr4cNv4xylg9z6Pjs7ELNu1Y2VAom5CbM0VGrcyQu o5wNi3JD/vcX6Dgyyvp4oYgNOzW3mTcs0nFXmc2wO4sNPsb+iqPLdBSpGvez zmbDI5uGuZUVOk7ZehUaX2XD/wEqqoH1 "]]}}, 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., 18.58803401834761}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.613046601684827*^9, 3.6130470112033024`*^9, 3.613048581076776*^9, { 3.613048628720684*^9, 3.613048649392378*^9}, {3.613048826770618*^9, 3.613048842460791*^9}, 3.613048903229035*^9, 3.6130489661568203`*^9, 3.6131250829453073`*^9, 3.613125149437649*^9, 3.6131942350479918`*^9, { 3.613224576729801*^9, 3.6132246052520847`*^9}, 3.6132247832397757`*^9, 3.6132248594850245`*^9, 3.6132249399062757`*^9, 3.61322514771717*^9, 3.6132252748506575`*^9, 3.6132254650460205`*^9, 3.6132255833282022`*^9, { 3.6132256435180244`*^9, 3.613225669227372*^9}, 3.6132258775576077`*^9, 3.613226387459489*^9, 3.613226711650216*^9, 3.613226787949521*^9, 3.613227217996606*^9, 3.6133116346306715`*^9, 3.6133116745310707`*^9, 3.6143500711267624`*^9, 3.6143501043023143`*^9, {3.615271733115678*^9, 3.615271744960059*^9}, 3.61527828070955*^9, 3.615278489202569*^9, 3.615278719408992*^9, 3.615278923757063*^9, 3.615279317982934*^9, 3.615279550864262*^9, 3.615279759855647*^9, 3.6152799848715663`*^9, 3.6152801815952168`*^9, 3.615280391811454*^9, 3.615280590587572*^9, 3.6152877245471687`*^9, 3.6152883045975275`*^9, 3.615288548308041*^9, 3.6152887545664673`*^9, 3.6152889985567875`*^9, 3.6152892313032117`*^9, 3.6152894655881157`*^9, 3.615289529855739*^9, 3.6152897670131025`*^9, 3.615289959118074*^9, 3.6152902200009346`*^9, 3.6152904623860292`*^9, 3.6152907183567286`*^9, {3.6152909822275934`*^9, 3.6152910001666403`*^9}, 3.6152911714865026`*^9, 3.615291358336027*^9, 3.615291558202302*^9, 3.615291718485264*^9, 3.6152919199626884`*^9, 3.6152920775553246`*^9, 3.615292231444552*^9, 3.6152924676257086`*^9, 3.6152927751325965`*^9, 3.615293081262348*^9, 3.615293358504257*^9, 3.6152936177562966`*^9, 3.6152937649638023`*^9, 3.6153637953799477`*^9, 3.6153837498192525`*^9, 3.6153840464468555`*^9, 3.6153842405926685`*^9, 3.6153844620228834`*^9, 3.615384686261053*^9, 3.6153848815556974`*^9, 3.615385526913253*^9, 3.615385940025531*^9, 3.6153862310911837`*^9, 3.615386290141085*^9, 3.61538650017319*^9, 3.615386983544348*^9, 3.6170854191107607`*^9, 3.61708588137573*^9, 3.6170861424386826`*^9, 3.617086638588731*^9, 3.617087054070326*^9, 3.617087359589238*^9, 3.617087577024684*^9, 3.6170877624963555`*^9, 3.6170880353910875`*^9, 3.6170882824644923`*^9, 3.6170884696073475`*^9, 3.617088690673287*^9, 3.6170889533778067`*^9, 3.617088990736329*^9, 3.617089337151086*^9, 3.6170895246742125`*^9, 3.6170897290985603`*^9, 3.617090144936571*^9, 3.617090528796641*^9, 3.6170918479221973`*^9, 3.617092045245821*^9, 3.617092402975782*^9, 3.617092623550381*^9, 3.617092821302766*^9, 3.6170931095734134`*^9, 3.6170933199377737`*^9, 3.6170935701263876`*^9, 3.6170939454815607`*^9, 3.617094167248102*^9, 3.617094439723858*^9, 3.6170949316250496`*^9, 3.6171061973886337`*^9, 3.6171067362521515`*^9, 3.6171069439095917`*^9, 3.617107178799327*^9, 3.6171073654278183`*^9, 3.617107553766543*^9, 3.617107769768482*^9, 3.61710812002013*^9, 3.617108200401201*^9, 3.6171086702477493`*^9, {3.6171095487704315`*^9, 3.6171095578658895`*^9}, 3.617109857752787*^9, 3.617110262807371*^9, 3.6171104620407834`*^9, 3.617110698667904*^9, 3.6171116870225573`*^9, 3.617111889530326*^9, 3.6171121204538403`*^9, 3.617112325551444*^9, 3.617112549351325*^9, 3.618237161953642*^9, 3.618244444185866*^9, 3.618317431733534*^9, 3.6193171619042826`*^9, 3.6194467570597773`*^9, 3.6194467911209435`*^9, 3.6194470266839976`*^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:eJwV03s81GkXAHBUKKuLSg1KhMqti6Fcz9PbvVCMyyhpqGEtlVbEVMrM/JQS YZZoUppoTYSp0LiGdYkSEpv7/bp+JWTT8j7zx/N5Pt9/zjnPOefR8Dhvz5SR kpJ6gI/kPswcqi8ZdrRqOC8OtrxHoMHnTh6dFCr4JeoGSKys0BT5grIXar0v e0n8uijE95KOLch0pB+T2NB0VcoDigPofy/aJrHUyuHYeXUXCHyVLSdx/Vgh 213HDZZSiCYLbLvT1Xnuce5grmmaKLHZB6OsGMoZQPXvHCXeaJn0tIzvCSyd PfIS/yKUfzip7g17NBOyzbEnlf3jtAU+oPxXnZ3E7Zz2O0465+DMssEhM+zT M4LSMgc/EEl3BkrcbOhi5Rp3AaL4ubOm2CX3y4zvUC7ClfdLRnZhUxuCsrVP BEC/J0GTOE3e0KCIHwj3hF0vdmLHBNzTItWDQXanqYsJtmy6zaMb7ixghZok GWOzemTUNgguw2PWqs9USf6jZ1fa6YSA7NXfTYywWwjNqGGva2B3c8JpB7ZO h8+iNw7XgbWfdm47duIqjVCXuFBY0ZUTuhWbE3o76BaFC9bPZM31sIvUPHOc xFw44hehpIs9k4smNU8QkDQx0bUZ23d86nw+Pwx8jT08dLAdTjC8xtTDIber +vsG7Mhps5S8knCgFzqGqWNXRa/u5brfgmdnShXWY1tWvXVbJ7gN8ypWsyqS +oyNnWx1IkF4sth3FTbjwzKeSmUk/FthJ1LCvu8zUj/gFQWWCn+NL8eWr69L LXa4C+kGttaK2FfkCE16XDRcVx1NWIR95iJJCafw4Gqt3bXJeAIZLYhhifx4 8FZaQXoCWyaG2tpayYP9AwpBJPbDzGC+YeAf8G9N374R7M8jC9Q/NsRBx6Vv jE7so+5rtdQjEoDx7QavEnv9FzH3YG8CpCwo+q0ceyzkZP8Fs0SQkbMweYN9 i/84tXwoEdR/LMsQY5c362/5bR8fwlXXqmRgm9nuNnw1lwTOtRlfo7Dl23sj OxwfQsZZploEdrNPGCmX8RC+OzItbmKLy5n0DINHcEPJyvU6Nr1HSJFqewSr ummqftgx64z5KbseQwBVOd5GEo93KPnL1ycQP7eRkMKe3dU9m6ySApOnZLNn 4wg03h7kRNuTAvKu0Y3T2I2b/lTI4aWAwDL55xh2Ur5s4OWdqRB+PK2jBZva W3ZY9upT+OMNo+c5NmOH1aSqvBAY0/whGjatucn23TYhJH56OGyDvf/K2bQQ FyHoG1l3H8DWq+C7dQuFkHc9+aU59rTLbFWqzTNIPwKjmtgRoXkPtsemg0q+ 7T3yDwLlfthx4MD6TNhsPfM1FDtyeOyg/v5MSD94eIyF7Snz9PCKc5mAUgXt /tjKVFXb1sJMqHnqm8LEzq8JFeYaZkFTIb36ILbq1t+yj7zPgn6tZA9F7M9T ZsX+iiJ4LKC2RvFwvTJrkaeGCH6mcXNuYIuWTpXQjUXwCbXfvIZ9a1NmqeVJ EfQc/FPpPLaZy8YKuQwRVPekim2wEwoU3t23fgFGnkddF2PTOW2fy26/hNKd CQPBsQRa3qWj75X8Em4qp/x9Hrva4sLVJbkvYSRMu5SJbTa9aINdz0soc+b6 22Grem9ldux6Bddc8503Y3fYssmZ/lfga6qm8zEG77fK5oWGKBeOPFVu3Yh9 Ptvf4N7ka+AZRaQJ7uL5WnQ3VsuLYSp/b2M8tm+VLWtWTQzbiuq/3cb+tXNL pds+MfT7elMuYjMUuxjacWLYpB49vQf7mLc1T7QzH6xP1M10RxFom4b2bC2r ACzzA9atwZ64+6lKWroYVMQLR5l38P9+U1FcZ1EKLgySbhlOIO/gQ4ouY+Uw XdFnHsol0JvFO+bTz1aCF8++JfQagcdWPqei/RaWadYVXwwmEFIufEx7Xgs/ sp5r7fQnkEFlW16Fbh38/iyWfduXQB8RbTxt/AMwVrsMZZ3B71ni09C0rQHc g+46VLsSqKbFuXBpZCMIr4cUxtPwPu6nd/f1fQQIb/6XPEQgk0e3nR9pfYKv soP3TyECdc3Ffvz1WjNk2waUnTEmUP+hOoFyWQt8eLCIytMlUFZCZ3C9xmco LHHZDesJlHJzQfgWViv41DT/R6wg0NTp4yOe+W3gxR62V11EIIW9YfbZazpA dcmTEMXvXHRlef8v3a6dUGDyZJP7MBf9UqQn1WzTBZFxIQcCW7nIMvDof2U/ uoBaoEGvqeEi/pMIwUZ+NxwbuVT0pICL3Byp7xYf6QHmUvQg9RkXvWpixhZN 94BJoViXmchFprVZMgNxvTA9t3BXTTgXbdjnORW7tw9Ut0+4Wl3iImOqcfTL gT6QGzWn+zC5qHPiTrWA6Ac4q5QZTOOiMSM7grJjAIqNd2VfBi7SGTUYkW4c gNd/f66j63NRuVZAg1/oIMTyo6dXreGiqI9Np+21hoAW0a1XJMNFJK0kWqZ8 CO6QTpYnxjlI5Lh6j+mFYVgx92FrSTMHCd5xHvQojcC8/mmvHaUc9L3S9bJS 6QhUcpg5LkIO6oounlp+bhQWG23n+sdw0HS9OYW9dAz04gzuiy9zkB9PsyS4 YAySLCZzkj04aM07zeV9bv/Ar84OnRWHOYjWlP5Tbe4fWCFyXCZlxEETp5J9 24TjoFG10rBiLQcVMzKJpdYkhGttGBycZyNxne+RDlsSioLGpIKwc6x0Vzy3 I+GKHqyUx05XS+HbOJNwwYSlsXmOjRJbEl9EeJCgm0bv8/rJRgHHwrqXBJOQ Sdu3cGCGjfTQSUu5VBKSJ+yy276ykU6myoLmP0lYHazd7oOtub6lKvUZCf4F sdKzX9ho7U97h/3ZJNTI7aFSsGXzDvoQBSTUxc4hx3E26t5KTVjQSMKIKGim ZoSN2pK+ujU2kdCft/f5cewWxUwtQQt2zivX4WE2ej+6Jet/HSQM6IYLZLEL nqpXhg6TENYr9zcaZKM85fYIuzES7BMVHeoG2OgFkWivQZKQ7l1YeRJbeHp1 R8kkCW096xJY/WyU0tAguPudBKOmuml57Ee773ozfpCw/IKhTXwfG/GzbLZu +4+E2uNmfG3seHWFqfl53E+Tyd4XvWz0fzodwqg= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 600.}, 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.6194467860243273`*^9, 3.6194467954970484`*^9}, 3.619447026808086*^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.6194468221979923`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"eMax", "=", "20.0"}], ";", " ", RowBox[{"(*", RowBox[{"maximum", " ", "kinetic", " ", "energy"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kmin", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"kmax", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", "24"}], ";"}], " ", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "points", " ", "calculated", " ", "in", " ", "one", " ", "direction"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nBand", "=", "12"}], ";", RowBox[{"(*", RowBox[{ "number", " ", "of", " ", "bands", " ", "to", " ", "be", " ", "drawn"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Dynamic", "[", "x", "]"}]}]}], "Input", CellChangeTimes->{{3.6086102661359005`*^9, 3.6086103019759502`*^9}, { 3.60916600896766*^9, 3.609166009326254*^9}, {3.6091694122087383`*^9, 3.6091694240866833`*^9}, {3.60982740119003*^9, 3.6098274035106792`*^9}, { 3.6098285227887754`*^9, 3.609828523415221*^9}, {3.60982862127874*^9, 3.609828622527647*^9}, {3.60985497641073*^9, 3.6098549854161296`*^9}, { 3.6098554502943616`*^9, 3.609855456307635*^9}, {3.609856714672285*^9, 3.6098567153861585`*^9}, {3.6112972056532574`*^9, 3.6112972058514023`*^9}, {3.6113023043837185`*^9, 3.6113023045588627`*^9}, {3.6128731543400965`*^9, 3.6128731575884085`*^9}, 3.613027150489711*^9, {3.613029645012229*^9, 3.6130296453091373`*^9}, { 3.6130387168692303`*^9, 3.6130387181441374`*^9}, {3.613039766085285*^9, 3.613039766408515*^9}, 3.6130403901535025`*^9, {3.61304472057603*^9, 3.613044720829212*^9}, {3.6130486480884557`*^9, 3.613048648469722*^9}, { 3.6130489019981594`*^9, 3.613048902159272*^9}, {3.6131251471980543`*^9, 3.613125147364153*^9}, {3.6131942320308237`*^9, 3.613194233311735*^9}, { 3.6132246019437284`*^9, 3.613224604243365*^9}, {3.6132256309540787`*^9, 3.6132256316865993`*^9}, {3.6132256674450493`*^9, 3.613225668137545*^9}, { 3.613227212996039*^9, 3.6132272159861546`*^9}, {3.6143501012863717`*^9, 3.614350101614482*^9}, {3.6152717279319763`*^9, 3.6152717426274023`*^9}, { 3.615288511962236*^9, 3.6152885131550827`*^9}, {3.618237156609295*^9, 3.618237157578245*^9}, {3.6194468318768587`*^9, 3.6194468459878716`*^9}, { 3.619450353371749*^9, 3.6194503638892097`*^9}}], Cell[BoxData[ DynamicBox[ToBoxes[$CellContext`x, StandardForm], ImageSizeCache->{8., {0., 6.}}]], "Output", CellChangeTimes->{ 3.6152717451471915`*^9, 3.6152782807495775`*^9, 3.615278489248598*^9, 3.615278719454026*^9, 3.615278923796091*^9, 3.615279318020961*^9, 3.615279550903288*^9, 3.615279759899661*^9, 3.615279984914604*^9, 3.6152801816332445`*^9, 3.6152803918514805`*^9, 3.6152805906295977`*^9, 3.6152877246562448`*^9, 3.6152883046835856`*^9, 3.6152885483730865`*^9, 3.6152887546335135`*^9, 3.615288998629837*^9, 3.6152892313792667`*^9, 3.6152894656721745`*^9, 3.6152895299678183`*^9, 3.6152897670981636`*^9, 3.6152899592101393`*^9, 3.615290220097003*^9, 3.6152904624610643`*^9, 3.6152907184337826`*^9, {3.6152909823057404`*^9, 3.615291000244767*^9}, 3.615291171549001*^9, 3.615291358414173*^9, 3.6152915582804284`*^9, 3.615291718610265*^9, 3.6152919200408196`*^9, 3.6152920776178226`*^9, 3.615292231522678*^9, 3.6152924679225874`*^9, 3.6152927751950417`*^9, 3.615293081345406*^9, 3.6152933585913105`*^9, 3.6152936178393564`*^9, 3.615293765050865*^9, 3.6153637957432013`*^9, 3.6153837498722906`*^9, 3.615384046493869*^9, 3.6153842406377153`*^9, 3.615384462069895*^9, 3.6153846863140907`*^9, 3.6153848816227446`*^9, 3.6153855269752955`*^9, 3.6153859400855713`*^9, 3.6153862311452026`*^9, 3.615386290195122*^9, 3.6153865002312317`*^9, 3.615386983601387*^9, 3.617085419826251*^9, 3.617085881428747*^9, 3.61708614249572*^9, 3.61708663864377*^9, 3.617087054131367*^9, 3.617087359653264*^9, 3.61708757709073*^9, 3.6170877625543947`*^9, 3.6170880354501295`*^9, 3.6170882825195293`*^9, 3.617088469665389*^9, 3.6170886907303276`*^9, 3.617088953432828*^9, 3.6170889907913475`*^9, 3.6170893372751746`*^9, 3.6170895247332554`*^9, 3.617089729155596*^9, 3.6170901449976134`*^9, 3.6170905288526993`*^9, 3.6170918479782095`*^9, 3.6170920453028646`*^9, 3.617092403042832*^9, 3.617092623620422*^9, 3.6170928213678074`*^9, 3.61709310964146*^9, 3.6170933200048013`*^9, 3.61709357019342*^9, 3.6170939456246624`*^9, 3.6170941673171396`*^9, 3.6170944397908897`*^9, 3.6170949316940985`*^9, 3.6171061975276985`*^9, 3.617106736389248*^9, 3.617106944014645*^9, 3.617107178902398*^9, 3.6171073655308895`*^9, 3.617107553922632*^9, 3.617107769934596*^9, 3.6171081201292086`*^9, 3.617108200514275*^9, 3.6171086704098663`*^9, {3.617109548877508*^9, 3.617109557971964*^9}, 3.6171098578568587`*^9, 3.6171102629134197`*^9, 3.617110462138853*^9, 3.6171106987969947`*^9, 3.617111687129635*^9, 3.6171118896363974`*^9, 3.617112120583932*^9, 3.6171123256585197`*^9, 3.6171125494624023`*^9, 3.618237162625477*^9, 3.6182444442268953`*^9, 3.6183174317995796`*^9, 3.6193171625917935`*^9, 3.619447026839108*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"EnL\[CapitalGamma]", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", FractionBox["p", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.6130452221980567`*^9, 3.6130452441896887`*^9}, { 3.613045430430258*^9, 3.6130454943707447`*^9}, 3.6130456982468643`*^9, { 3.6130464694447093`*^9, 3.613046470431423*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "cycle", " ", "to", " ", "calculate", " ", "the", " ", "band", " ", "structure"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"vector", " ", "k"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"veck", "=", RowBox[{"L", "+", RowBox[{"2", RowBox[{"(", RowBox[{"\[CapitalGamma]", "-", "L"}], ")"}], FractionBox["x", "p"]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"all", " ", "the", " ", "k"}], "+", "G"}], "*)"}], "\[IndentingNewLine]", RowBox[{"kplusgVec", "=", RowBox[{ RowBox[{"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.6182371313288827`*^9, 3.619446923877059*^9, 3.619446955679623*^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.6182445774637213`*^9, 3.619446974443935*^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[{"band", " ", "structure"}], "*)"}], "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nBand"}], "}"}]}], "]"}], ",", "1"}], "]"}], ",", 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"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "22"}], ",", "20"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6080122018753796`*^9, 3.6080123067833796`*^9}, { 3.6080137726802244`*^9, 3.608013778327547*^9}, 3.6084487432386103`*^9, 3.6112971892566366`*^9, 3.611298160148876*^9, {3.6113013592867937`*^9, 3.6113013796061983`*^9}, {3.613030104778699*^9, 3.61303012343699*^9}, 3.613227106193015*^9, {3.6143501991518507`*^9, 3.614350199558073*^9}, 3.6152720414978213`*^9, {3.6183174373425245`*^9, 3.6183174428504453`*^9}, { 3.619319003843583*^9, 3.6193190079414935`*^9}, {3.6193190645006714`*^9, 3.619319100309108*^9}, {3.6193191393218226`*^9, 3.619319217843601*^9}, { 3.619319261120343*^9, 3.619319273082841*^9}, {3.619319664028558*^9, 3.619319669981786*^9}, {3.619319720076371*^9, 3.619319721266218*^9}, { 3.6193199245716395`*^9, 3.6193199247197433`*^9}, {3.6193199670938444`*^9, 3.619319987042015*^9}, {3.6193200925079346`*^9, 3.6193200935997105`*^9}, { 3.6193201830402465`*^9, 3.619320185095706*^9}, {3.6193202602621017`*^9, 3.6193202609876175`*^9}, {3.6193203156604557`*^9, 3.6193203189738083`*^9}, {3.619446999078412*^9, 3.6194470103484077`*^9}}], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[{{-12., -13.730023949037713`}, {-11., -14.353493782578377`}, \ {-10., -15.199680761760995`}, {-9., -16.000845777248802`}, {-8., \ -16.731313845299727`}, {-7., -17.378781202100626`}, {-6., \ -17.942302629155048`}, {-5., -18.421788419120123`}, {-4., \ -18.815835694450097`}, {-3., -19.123115412946586`}, {-2., \ -19.342861119136963`}, {-1., -19.474810274570117`}, { 0., -19.51885342535832}}], Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMPQ/5OvtxifADCe2B/dJ1VhGAjjP/BvpxTket0 KYz/wz5vQ/M9xmQYn8Hh6bmjL7d7wPgsDkLrNE0+qMH4HA4sJm9+rvtrBOXz OOQevztf6iyML+AQ+fPl2s9TYHwhBw3WznXLQ2F8EYfcD7eVbvHB+GION/6s X3T4gCGUL+GQd23nss9ZML6UA/OUGxEH+WB8GQeplOOdJqsNoHw5h8Se3tu7 HGB8BQe5V++YPs7Th/IVHeQ1bJgN1+tB+UoOfqwrumdv0oXylR3WCXyevmKl DpSv4vBy77xXT6ZoQ/mqDrPW3378pUQLyldzuHL4AfNPP00oX93BWXPqqmnS GlC+hsPWrB33bR+rHQAAKZF3IA== "]], Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[{{-12., -12.846071082289404`}, {-11., -12.153003410715709`}, \ {-10., -11.074506029881338`}, {-9., -9.907782061224658}, {-8., \ -8.686897928424505}, {-7., -7.400702422970678}, {-6., -6.096325963737916}, \ {-5., -4.755703810648976}, {-4., -3.443820868026929}, {-3., \ -2.2070760915131404`}, {-2., -1.120901384182471}, {-1., \ -0.31031096994781043`}, {0., -1.359462542538381*^-13}}], Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMi69wf/lJ03gvhPbB3O7PZ8yfrxv0Q/gf7+GpR jtToC1D+D/tpdQsuTQh7COUzOCzIqy2Yv/oNlM/i8HRHceb0JV+gfA6HzR63 9ytG/4byeRy4g38J8CsxHoDwBRyEQ90krLtZoHwhh76QtcIPH7ND+SIOmnO3 /oyU54byxRx4dvDV7uLng/IlHLL5reUCawSgfCkHf+4Mx2OvBaF8GQfJlK9d +98IQ/lyDptVZnBzpIhB+QoOE1qarX3fSED5ig6c3zbPmtUoDeUrOTx8PmnT S3k5KF/ZgTv0SNbHeAUoX8VBISHxxOXNilC+qoOrctaK/SzKUL6aQ2THwcaF QSpQvrrDl6wplx7NVoXyNRw0snbct32sdgAAvwpuiA== "]], Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[{{-12., -2.8175272618804055`}, {-11., -2.786799180556918}, \ {-10., -2.692259225905468}, {-9., -2.5442387812085885`}, {-8., \ -2.332026762514497}, {-7., -2.0537979532976136`}, {-6., \ -1.7260827017885425`}, {-5., -1.3706665983298418`}, {-4., \ -0.9935752929745924}, {-3., -0.6399256539357936}, {-2., -0.3159970724581963}, \ {-1., -0.08466235960658253}, {0., -9.969391978614794*^-14}}], Hue[0.8503398874989481, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQNJAhGWW/ht9kJ4D+wZJDZ7/mTduB/C/2D/NkmU IzX6ApT/w3551YJLE8IeQvkMDgXZtQXzV7+B8lkcxLYXZ05f8gXK53A45Hx7 v2L0byifxyHT95cAvxLjAQhfwEE3yE3CupsFyhdyYA5eK/zwMTuUL+KQP3vr z0h5bihfzKF3K1/tLn4+KF/CwZXfWi6wRgDKl3Lo5sxwPPZaEMqXcWD7JcSZ bSAM5cs5WF07va82UgTKV3BYeqtT7VyqKJSv6PDULOlnaogYlK/kEKH3aUWt ijiUr+xQ4NRvWnIVxldxsHTw23MnRwLKV3V4GHZUUuEejK/moHTo6O73ppJQ vrpDwRwJ821pML6GQ9G7Nw5nqyUPAACjHWoh "]], Hue[0.08640786499873876, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[{{-12., -2.817527261879928}, {-11., -2.7867991805564194`}, \ {-10., -2.6922592259053775`}, {-9., -2.5442387812082985`}, {-8., \ -2.3320267625141553`}, {-7., -2.0537979532971846`}, {-6., \ -1.726082701788331}, {-5., -1.3706665983296997`}, {-4., -0.9935752929742903}, \ {-3., -0.6399256539356637}, {-2., -0.3159970724577915}, {-1., \ -0.08466235960601154}, {0., 0.}}], Hue[0.3224758424985268, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQjR08sL9g+FeLd/b8/RD+B/sixo/JEqX7ofwf9pkH /Pnr+i9C+QwOu6yTmOc/uwflszjEzzrwK/r3Myifw+GeuGrVivYPUD6Pw5Eb 0l/8Ar9B+QIOYTONT/Iu/wPlCzl0KhqGtrAwHYDwRRwEw7uq4u+zQvliDsv1 DxzI/cQJ5Us4tOrmP+Rw5oPypRxM91sIO3UJQvkyDre/C3FmGwhD+XIOX66c 3lcbKQLlKzhU3upUO5cqCuUrOjSZJf1MDRGD8pUczul8WlGrIg7lKzvkOvab llyF8VUc3tv57bmTIwHlqzrcCD0qqXAPxldzKDpwdPd7U0koX91h+WwJ821p ML6Gw/m3bxzOVkseAADKDW4t "]], Hue[0.5585438199983166, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[{{-12., 9.219633899242481}, {-11., 9.22004439007381}, {-10., 9.21779450058593}, {-9., 9.203536521871339}, {-8., 9.104730264274055}, {-7., 8.926137919256133}, {-6., 8.618644261757838}, {-5., 8.212043177048026}, {-4., 7.723244975290238}, {-3., 7.209734661321018}, {-2., 6.753832923715327}, {-1., 6.43316771580884}, {0., 6.316679452685388}}], Hue[0.7946117974981064, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQM+qUHz3F0kHSC8B/ZnQqQ1FlnD+B/sKw7ckRJR gvF/2MfMWKG654cElM/gwGF45n/sQRifxWHfntTJLnUwPofD1fUOulxGMD6P w7JvM/6zXBWH8gUcnMXYsl+1w/hCDh7t1nuuqcL4Ig77y3PW61wSg/LFHJzc w789b4bxJRy2H98aFxsI40s5rLRZaSzMDuPLOHhwzT51+IoolC/ncLb0rQTj RhhfwcEpcY7L/rkwvqKDOoNz56M5ML6Sww7v1/PcN8D4yg6rU58xnbkJ46s4 zNJ99TpUGmafqsNWc/6dt8tgfDWHt5+jr815CuOrO1SelFC0roH5T8Mha63g 4tt6Eg4A77xe8A== "]], Hue[0.030679774997896203`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], PointBox[{{-12., 9.219633899243261}, {-11., 9.220044390074468}, {-10., 9.217794500585937}, {-9., 9.203536521871683}, {-8., 9.104730264274467}, {-7., 8.926137919257323}, {-6., 8.618644261758218}, {-5., 8.212043177048225}, {-4., 7.723244975290286}, {-3., 7.209734661321084}, {-2., 6.753832923715502}, {-1., 6.433167715809208}, {0., 6.316679452685673}}], Hue[0.266747752497686, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQM9aUHz3F0kHSC8B/YXije+vTsTxv9gz+I95fij fiko/4f9lfnuwfw8MlA+g8PkRvlj7B9koXwWh5Nr1rHHCCpA+RwOmxYftbN0 U4TyeRwWsG7/+7xLCcoXcOBNWL3S4KUylC/ksMxxBcshb1UoX8Rh5aq9AV+3 qkH5Yg5f1MTXzjbUgPIlHLri+HabcqlD+VIOL1+k24lPh+mXcdjYN8O010YF ypdzeGF9gffCb5j9Cg5nDlRNO3YV5j5Fh0mrRB9WnoK5X8lhxczOpTs3yUP5 yg7PJoifm8MsB+WrOEhOjtXjaIGFh6rDr3TWrr+G0lC+msMTbx6XmVyw8FN3 OFVl6ZjBDQtfDYefawUX39aTcAAA+IZhGA== "]], Hue[0.5028157299974758, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], PointBox[{{-12., 11.068055090640646`}, {-11., 11.033006206479925`}, {-10., 10.930646537348636`}, {-9., 10.749901911152978`}, {-8., 10.485431205999197`}, {-7., 10.145691756837252`}, {-6., 9.72518284777782}, {-5., 9.186770050508148}, {-4., 8.554436849004967}, {-3., 7.8218881979095665`}, {-2., 7.109155789451834}, {-1., 6.546779671256141}, {0., 6.316679452685721}}], Hue[0.7388837074972656, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQOH0oLmubtIOkB4D+yZSje+vTsTxv9gn+U95fij fiko/4f93oXuwfw8MlA+g0NHk/wx9g+yUD6Lw8M169hjBBWgfA4HviVH7Szd FKF8Hoc0tu1/n3cpQfkCDt0Jq1cavFSG8oUc1J1WsBzyVoXyRRzaV+8N+LpV DcoXc5igIb52tqEGlC/hME/faKbcTk0oX8rB5Nm555aq2lC+jMPUr2JXp03W gfLlHOq+5Ncu/aML5Ss4BOacPGkYqw/lKzrwxS2fNzfCAMpXcpgwQeLB5Z8w vrKDhLXq3V99hlC+isNGwQDHCwJGUL6qQ67W6WvLG2B8NYeP3pV7j16E8dUd FvxMvhHHbgzlazjw5GUbn5UwdgAA3Vdh2w== "]], Hue[0.9749516849970554, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], PointBox[{{-12., 17.411047292213354`}, {-11., 17.3809134093238}, {-10., 17.364800483585444`}, {-9., 17.31567319976964}, {-8., 17.225571622779572`}, {-7., 17.106897006561383`}, {-6., 16.929982107229502`}, {-5., 16.74649442088501}, {-4., 16.57354039096363}, {-3., 16.40401717141934}, {-2., 16.29252203614732}, {-1., 16.233278868556116`}, {0., 16.213502347978462`}}], Hue[0.21101966249684523`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQNn9JnEV5gZOEB4D+zXfmFjtLCA8T/Yf3PhLo+2 hvF/2F/QFPeRhfMZHEqfX9ocqgfjszhMFoirOMgF43M4eF55oitVpg/l8zhM mO4a8qlcD8oXcFidziJzUEcXyhdy0ODc/eHVWm0oX8ShsG5dyG4ZLShfzMH0 awnPmj4NKF/CocfAaKbcTk0oX8rh0bNzzy1VYfplHJZ9Fbs6bbIOlC/ncP5r fu3SPzD7FBxack6eNIyFuU/RQTpu+by5ETD3KzncnSDx4PJPGF/ZodBa9e6v PkMoX8Xhs2CA4wUBIyhf1eG41ulryxtgfDWHQJ/KvUcvwvjqDka/km/EsRtD +RoOQXnZxmcljB0ASzJgVg== "]], Hue[0.44708763999663503`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], PointBox[{{-12., 23.871462181698742`}, {-11., 23.652337103590316`}, {-10., 23.25691248018365}, {-9., 22.851353527186326`}, {-8., 22.537124963326885`}, {-7., 22.3645477801718}, {-6., 22.245146638365974`}, {-5., 22.093255228017245`}, {-4., 21.817203225365965`}, {-3., 21.43847253652702}, {-2., 21.0806305371333}, {-1., 20.829449599503274`}, {0., 20.739993538635325`}}], Hue[0.6831556174964248, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQPLNuSbF+w1cYDwHtjnLy9W1T0K43+wn5pikm59 B8b/Yd/0SfCTEpMplM/gUBrOX6VgBuOzOPB2sFTqlMP4HA6mtazOB3/B9PM4 /Azc+VRhI4wv4PC4LiJDfimML+TAP/fuu/eHYHwRB6mToocM/sL4Yg4Cdy9c 1vKDmS/hUNcz/dS+VTC+lEPrG//r/uxmUL6Mg+zcev/EdBhfziFod9Xtb8dh fAWHSIejdb3q5lC+osOKh/Vf+FphfCWH3C7dcyvuw/jKDts6fFw2WFtA+SoO lTu818zuhfFVHc4sYJe3vg3jqznMclU04lG2hPLVHW7UX/0kkALjazi0/ZRr /TXF0gEAcHhiFw== "]], Hue[0.9192235949962146, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], PointBox[{{-12., 26.15692624205206}, {-11., 26.34821934800289}, {-10., 25.444843180141582`}, {-9., 24.31975611788468}, {-8., 23.340205527833415`}, {-7., 22.634213770342047`}, {-6., 22.256559179396998`}, {-5., 22.23933600415351}, {-4., 22.5654391656147}, {-3., 23.19598848686778}, {-2., 24.070966984486915`}, {-1., 25.067148745960502`}, {0., 25.67562598747341}}], Hue[0.15529157249600445`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQMr2hQuf11j6QDhPbBfKrtXusoExv9g39Jlf2OK swWU/8P+lpCQuKKDOZTP4KCrdO7iAT8zKJ/F4RwLG0dkuymUz+FQxcdZ++cw jM/jUCVVw/5SCqZewOFBYsL1mbUwvpDDVleNd96PYHwRh52F83/4+cDsE3PQ rp+hqroDxpdwmBu6qeKDMcx9Ug6CZ4XDn8+A8WUc2Jh79xX9hPHlHJpWaLz1 D4D5T8Hhav5Ou3uzYHxFh1fyl/LeX4PxlRxEbbXZfjNZQfnKDiJF0fft5WB8 FQf9zlucJzVgfFWHRGOV0BBlGF/NoWrvTsUd32DmqTvoRO92Mr8C42s43P4p 1/priqUDADM9XkQ= "]], Hue[0.39135954999579425`, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], PointBox[{{-12., 26.968522929698732`}, {-11., 26.48812822740103}, {-10., 25.44484318014211}, {-9., 24.319756117885188`}, {-8., 23.340205527833728`}, {-7., 22.634213770342736`}, {-6., 22.25655917939716}, {-5., 22.239336004153806`}, {-4., 22.565439165615135`}, {-3., 23.19598848686803}, {-2., 24.070966984487626`}, {-1., 25.06714874596094}, {0., 25.675625987474117`}}], Hue[0.6274275274955841, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQP57QqXv66xdIDwHtg3LrytoLoJxv9g//f5RobN B2H8H/aqW1rC5t+G8RkcDn/2+PzyP4zP4mDedWjKJD0rKJ/DoYND+emMdBif x2FSflfVn1UwvoBDrGPGtT0/YHwhh+l7dqXcDLCG8kUc7CdrVgduhvHFHJpL pT/7KdpA+RIO8/t7PWbNgPGlHG7OsCx8LWkL5cs4lH19feLoUhhfzuEef9/9 b9Z2UL6CQ/7mB6m1d2B8RYfaR7GvwtvtoXwlB/8SvWwnOQcoX9kheE6yKWMd jK/i8F84q3L7Ixhf1UHluOhy97UwvppDe7OJnWAZjK/uwB/PsnxPCIyv4TB5 8++pHzwcHACROGhX "]], Hue[0.8634955049953739, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], PointBox[{{-12., 26.968522929698764`}, {-11., 26.488128227401223`}, {-10., 26.840541967908496`}, {-9., 27.208440994730125`}, {-8., 27.306367449616545`}, {-7., 27.1725273752931}, {-6., 26.902985878457862`}, {-5., 26.69885758036233}, {-4., 26.744620888819618`}, {-3., 27.06950514612144}, {-2., 27.568489248752137`}, {-1., 28.03858334169274}, {0., 28.23913207992973}}], Hue[0.09956348249516367, 0.6, 0.6], Directive[ PointSize[0.011111111111111112`], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], PointBox[CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQP/d/QdMre1cYDwHtgnHi0tuuIG43+w/6W7797K ZBj/h/2625dmbp0M4zM4XHbbd/fjNRifxUHw2bFd6bq2UD6HA8OKqu9XpsH4 PA67eRd/0hC2g/IFHP41Fj42WwTjCznUHBGJa3S2h/JFHJbUpO4t+wbjizm0 FTj9mxHrAOVLOOx9H6QqfRzGl3KovHOOWdfUEcqXcdD6f8ns0mIYX85hQYJu 0yImJyhfwUG76ti7TyowvqLDnX+qM4s/w9QrOXS8vnp4xjwYX9nBSS9kSq4r jK/iIPI7KVX2M8x+VYeI46LL3dfC+GoO85pN7ATLYHx1h/h4luV7QmB8DYdL m39P/eDh4AAAoJ9qJA== "]]}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, AxesOrigin -> {0, 0}, PlotRange -> {{-12., 12.}, {-22, 20}}, 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 -> {{-12., 12.}, {-22, 20}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, 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.4], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.571589, 0.586483, 0.], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.915, 0.3325, 0.2125], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.736782672705901, 0.358, 0.5030266573755369], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.363898, 0.618501, 0.782349], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[1, 0.75, 0], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.4], RGBColor[0.647624, 0.37816, 0.614037], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.4], 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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.011111111111111112`", "]"}], ",", 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", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.6086129613590584`*^9, 3.6086130835090446`*^9, 3.608614405127637*^9, 3.6086972229009542`*^9, 3.6089848975369244`*^9, 3.6089869869514318`*^9, 3.609132794151726*^9, 3.609138479779925*^9, 3.6091565286152635`*^9, 3.609163370552882*^9, 3.6091647495938396`*^9, 3.6091650867451963`*^9, 3.609167005703541*^9, 3.609175101496101*^9, 3.6092414261893463`*^9, 3.6092520244617887`*^9, 3.6094710164585204`*^9, 3.6098274327544527`*^9, 3.6098281117367773`*^9, 3.6098287189651327`*^9, 3.6098352306872005`*^9, 3.6098358390083323`*^9, 3.6098463011489334`*^9, 3.6098522459140806`*^9, 3.6098525840241036`*^9, 3.6098531904578943`*^9, 3.609854432214156*^9, 3.6098549466155643`*^9, 3.609855223706403*^9, 3.6098566696712294`*^9, 3.6098570063809166`*^9, 3.61113399400378*^9, 3.6111346792092204`*^9, 3.6111349340961723`*^9, 3.6112975827479672`*^9, {3.611297631748754*^9, 3.611297655436569*^9}, {3.611297693064302*^9, 3.6112976958322473`*^9}, { 3.611297741744858*^9, 3.6112977663433237`*^9}, 3.6112979762353125`*^9, { 3.6112981797437925`*^9, 3.6112981966087627`*^9}, {3.6112992345183535`*^9, 3.6112992546226397`*^9}, {3.611301368455284*^9, 3.6113013805749083`*^9}, { 3.6113022152454367`*^9, 3.611302240979708*^9}, 3.6113023112395854`*^9, { 3.6113024368577847`*^9, 3.6113024568469553`*^9}, 3.611302521214671*^9, { 3.6113025542871304`*^9, 3.6113025726841917`*^9}, 3.611302646689749*^9, 3.6113027199167147`*^9, 3.6113030840201993`*^9, 3.6113031875036645`*^9, 3.6113032353326197`*^9, 3.611303357622435*^9, {3.6113033967622366`*^9, 3.611303419106084*^9}, 3.61130347257104*^9, {3.611303609506254*^9, 3.611303630305022*^9}, {3.61130369700239*^9, 3.6113037255176125`*^9}, 3.611303756655719*^9, {3.6113037979150085`*^9, 3.611303822565508*^9}, 3.6113039269276185`*^9, 3.611303969261653*^9, {3.611304403989094*^9, 3.6113044269684086`*^9}, {3.6113044580514746`*^9, 3.611304479890981*^9}, { 3.611304830989232*^9, 3.6113048494633474`*^9}, {3.611304896831994*^9, 3.6113049381372976`*^9}, 3.611469672732238*^9, 3.611664960072598*^9, 3.611665004414036*^9, 3.6116651084638095`*^9, 3.6116651561446342`*^9, 3.6116652048001146`*^9, 3.6116653640960608`*^9, 3.6116654054233646`*^9, 3.6116676268564253`*^9, 3.6116751067798834`*^9, 3.61167514528819*^9, 3.6116752045061784`*^9, 3.6116752933311543`*^9, 3.6116753412711535`*^9, 3.611756834061002*^9, 3.611756867808941*^9, 3.6117569113638644`*^9, { 3.6117569532886267`*^9, 3.611756980768132*^9}, 3.6117570166746225`*^9, 3.6117570509869823`*^9, 3.6117571384100466`*^9, 3.6117579162182293`*^9, { 3.6117579614093113`*^9, 3.6117579893461466`*^9}, 3.6117588988288107`*^9, 3.6119313696195335`*^9, 3.6119314102293854`*^9, 3.6120662675258894`*^9, 3.61206634463618*^9, 3.6120664504500012`*^9, 3.612066488481728*^9, 3.6120665609670057`*^9, 3.612172859049014*^9, 3.6121729488847713`*^9, 3.612173017337366*^9, {3.612173127630666*^9, 3.6121731510472918`*^9}, 3.6121732592651186`*^9, 3.6121732958230696`*^9, 3.6121733434338703`*^9, 3.61217341327345*^9, 3.6121734802870255`*^9, {3.612173514570365*^9, 3.6121735712235823`*^9}, 3.612173606991976*^9, {3.6121736450630026`*^9, 3.612173700320232*^9}, 3.6121737400544395`*^9, 3.6121739507734723`*^9, 3.612173990285503*^9, 3.612174020772146*^9, 3.612174062311636*^9, 3.6121740949297934`*^9, 3.6121741443288636`*^9, 3.612174184335265*^9, { 3.6121742191600046`*^9, 3.612174247647211*^9}, 3.6130276731804037`*^9, 3.6130302917264385`*^9, 3.6130373389594817`*^9, 3.6130375472156987`*^9, 3.613037806890126*^9, 3.613038191527342*^9, 3.6130386667275443`*^9, 3.6130389117599382`*^9, 3.613039306394981*^9, 3.613039524827441*^9, 3.613039707830826*^9, {3.613039824294714*^9, 3.613039835159466*^9}, 3.613040017820447*^9, 3.61304009192325*^9, 3.6130401633430824`*^9, 3.6130402478322306`*^9, 3.613040367221179*^9, 3.613040615384799*^9, 3.6130426138521214`*^9, 3.6130431665615597`*^9, 3.613045063455061*^9, 3.6130457599727745`*^9, 3.6130485907246256`*^9, 3.6130486378701763`*^9, 3.613048669491682*^9, 3.6130488624169874`*^9, 3.6130489388403797`*^9, 3.6130489839164605`*^9, 3.61312510293153*^9, 3.613125177005248*^9, 3.613194368321823*^9, 3.613224643684435*^9, 3.6132248175551777`*^9, 3.6132248947791386`*^9, 3.613224974844121*^9, 3.613225183196407*^9, 3.6132253093001556`*^9, 3.613225499600593*^9, 3.6132256401956577`*^9, 3.6132258059296103`*^9, 3.6132260142889*^9, 3.6132264925252633`*^9, 3.613226933332989*^9, 3.613227106558295*^9, 3.613227490738697*^9, 3.613311948476036*^9, {3.614350194167012*^9, 3.614350200011365*^9}, 3.615271946011326*^9, 3.6152720442952924`*^9, 3.615278456835585*^9, 3.6152786663863525`*^9, 3.6152788948465414`*^9, 3.6152790998610888`*^9, 3.615279500434461*^9, 3.615279726861204*^9, 3.6152799521983633`*^9, 3.61528016486734*^9, 3.615280355481663*^9, 3.6152805729010115`*^9, 3.615280779054369*^9, 3.615287971963381*^9, 3.6152885161582227`*^9, 3.6152886941835995`*^9, 3.615288905902008*^9, 3.615289200459315*^9, 3.615289430022866*^9, 3.6152897243368063`*^9, 3.6152899373346105`*^9, 3.6152901567700467`*^9, 3.6152903652950835`*^9, 3.615290610733329*^9, 3.615290858754453*^9, 3.615291140386445*^9, 3.6152913097160797`*^9, 3.615291494502288*^9, 3.6152916959027777`*^9, 3.6152918557625246`*^9, 3.615292057067279*^9, 3.615292214879466*^9, 3.615292407837797*^9, 3.615292754380452*^9, 3.6152929255568085`*^9, 3.6152932272289724`*^9, 3.6152935047840977`*^9, 3.6152939106562347`*^9, 3.615383913941766*^9, 3.615384198772974*^9, 3.6153844065905094`*^9, 3.615384616582609*^9, 3.6153848586294217`*^9, 3.6153850754997835`*^9, 3.6153856994317265`*^9, 3.61538611255301*^9, 3.6153864823025036`*^9, 3.6153866730409126`*^9, 3.615387156853382*^9, 3.6170856213931427`*^9, 3.617086118143433*^9, 3.6170865347920475`*^9, 3.6170869913918295`*^9, 3.6170872242091117`*^9, 3.6170875286853676`*^9, 3.6170877456203938`*^9, 3.6170879319976974`*^9, 3.617088202688859*^9, 3.617088445912527*^9, 3.617088622853142*^9, 3.6170888446305847`*^9, 3.6170891570582333`*^9, 3.6170894970666137`*^9, 3.617089685506609*^9, 3.61708990226027*^9, 3.61709031332167*^9, 3.617090679878895*^9, 3.6170920211056843`*^9, 3.6170922155076942`*^9, 3.61709255984715*^9, 3.6170927784483385`*^9, 3.617092977455618*^9, 3.6170932648186245`*^9, 3.617093482895443*^9, 3.6170939081100297`*^9, 3.6170941095891356`*^9, 3.617094326300316*^9, 3.6170945905649233`*^9, 3.617095086043677*^9, 3.617106356304417*^9, 3.6171069107330184`*^9, 3.617107110949156*^9, 3.617107335291422*^9, 3.6171075237472134`*^9, 3.617107724147093*^9, 3.617107929279722*^9, 3.617108359921442*^9, 3.6171088292126036`*^9, 3.6171097142679243`*^9, 3.617110013778571*^9, 3.6171104263404574`*^9, 3.6171106362916327`*^9, 3.6171108531525774`*^9, 3.6171118497200747`*^9, 3.617112060149028*^9, 3.617112294106119*^9, 3.61711248252188*^9, 3.6171127119697895`*^9, 3.6182447534358096`*^9, { 3.6183177764218493`*^9, 3.6183177774145575`*^9}, 3.6193175021507654`*^9, 3.61931907015769*^9, {3.6193191447526793`*^9, 3.619319186131074*^9}, { 3.6193192186922035`*^9, 3.6193192252758803`*^9}, {3.619319263031701*^9, 3.619319274174617*^9}, 3.6193196711145926`*^9, 3.619319722011746*^9, { 3.619319968433796*^9, 3.619319988192834*^9}, 3.619320094495346*^9, 3.6193201864666796`*^9, 3.619320261846227*^9, 3.6193203200045404`*^9, 3.6194475674719334`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{"Transitions", " ", "of", " ", "Carbon"}], "*)"}]], "Input", CellChangeTimes->{{3.6193584476249313`*^9, 3.619358458928964*^9}, { 3.6194470232455587`*^9, 3.619447023922038*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"15.2", " ", RowBox[{"(", "PRB22", ")"}]}], ",", " ", RowBox[{"17.3", " ", RowBox[{"(", "GW", ")"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.615272165897317*^9, 3.615272221985791*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", RowBox[{"-", "13.730023949037713`"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJwVzl1Ik2EAxfE5DPxYSiNnko2aeWFOzVqKVrDXKMt8rU3bGijoSJFVq2Wk 6UArW3Os1SRNZWqklSt1gZoROj8w29JoCkZp6kQmMlkJJhGL1nMuDr+7w3+P /Iq40I/BYBSSxQaPt9X9dFNl1VxLA1E6fcYOqdV5F7RVqH1we5QxsZGYmrBA wzx1oAIeu91SDVdEJSbYYWzuh9vK5VNQwq/KaSbSTG0DPOq1dcPzQsoOT+1n /4Cdr8aCWoiXVPoEmN4cnwHFJ5oKYbW+sxIKA2Ut8E67bBBa8wxOyFO83YQD tVOsVvws+6JhWdGfFMh/EZ0NrXsXi+CRzwGVUMunX8Lhip4h2O4pdsHZlciA J8Q3xi+pcEhCxU0SmetzZ6FgdUYBoxxhd2FVkKwNjh5SWaEkrYT1iXjDEC6E vJFMJeQoeRp4Pb11FDosFk7whpv6pX+fA/tES1pYa/eMwH2NQYtwpitiC4v4 QZq8G+Yev5UMn6ZJZdAqt5bCsOWF+5A99tgMAyKeOeBJOtoLNbIe9laiaX0y DirLYwvgBNfvAcy62p4UQvRtbmTBCe+/m3BeJ66D+acPdMOM4V3T0FSU74Hq +nu8UOJ3uv8wdM99lMCmtZlS2Ns12gc7XIakMPTWfKuAD7Odj+C4ee01FFxW 2yBroGYJSuxxXsg1MRM5xBhm90XYy6FnoU4z6IPCpcyD4cT6cQMNh53mYpgb muKClFTng3/9bJE70Fd1TgBtKn8RFF2LZ1ObbsrzPOTdBWJ8gW0x87eb+rrT X64n/gfja8Qv "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"12.8", " ", RowBox[{"(", "PRB22", ")"}]}], ",", " ", RowBox[{"14.4", " ", RowBox[{"(", "GW", ")"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6152724549986935`*^9, 3.6152724963494663`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", RowBox[{"-", "12.846071082289404`"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJwd0v8v1HEAx/FTNJ1D3dYxYblJtnwZ2Znry+6ztWxyUm5X1NrImS67apYj 2pXKJOdLCyfu2OSqWzhRpzZuFeaUcdfmdOm+DFu7iRYyxPV+9cNzj3/gGZJ1 9YzIjUajiUjXulnDdYtOSm0N7lIQF46kGuDTJOscfPWnxAXV8tqYRmJ9rZUP 2Ys7xdA8r7oHT/bmN0PBX6UOymazjLCyrVSgJHJV5Qpo0Bk6Yc8yZYCmeeYC VBYO0VXEJaE8GuYMRifBgr1NIuhOdcjg7Fi6CpaGZvTDme9Vdsh29q1A5yMT o4UouUQLg0U56wkw6kBYGmwOtedA3jhdBssiUjQwj9erh3Gay3OQMxjk2Uq8 fdHMhW+MVORn4rp4OhVOZEyKIT+NdR9KzOltcNZxfQA6tvIZY8TW3f48KE3m S+CNNXYZNJpaPsDCAC3La8lJBe4aFsALjJly2Oz76z2MOOplg1wqwINB3LLE 74ObU3fi4ejQ2XTYvUMvhc8LbHJ4/JTiBXzysn0Cjk/t34Da6R6mNzG8YywS KjYPZsL+Rrdq6MNo5/gQqx4sp8Bzfa4iKE5Mq4MVq7GdMDsv2ARr6Jk/4bHz 5WxfomVNdxhaZZ+E8K52UgpPUB9fw4Zv1Zw9RL8aSzHcluF4DAO+zmthffGt EVg1WuGATHvUBmzVbI9hEVkhXVegd1CKBd4sGXBBz3H+IT/ij5Vq/n8DO3Jh rjd3Dm7pH7qgIMEQ6E9UNwjj4PRbj9Mw/HcUk1pxUomxvu+yiaNfRmzJq+SD Z+5ZlcR/rKLLIQ== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"2.9", " ", RowBox[{"(", "GW", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.615272563190157*^9, 3.6152725939763765`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", RowBox[{"-", "2.817527261879928`"}]}], "}"}]], "Output", CellChangeTimes->{{3.615272563784119*^9, 3.615272569956726*^9}, 3.615278456976687*^9, 3.615278666520445*^9, 3.615278894958618*^9, 3.6152790999191265`*^9, 3.615279500560548*^9, 3.6152797269672794`*^9, 3.615279952323452*^9, 3.6152801649774184`*^9, 3.6152803556277666`*^9, 3.615280572948045*^9, 3.6152807791034017`*^9, 3.615287972105481*^9, 3.61528851628931*^9, 3.615288694325721*^9, 3.6152889060831385`*^9, 3.6152892006154256`*^9, 3.6152894301979904`*^9, 3.6152897244428864`*^9, 3.615289937521742*^9, 3.6152901568761206`*^9, 3.6152903654371843`*^9, 3.6152906108273926`*^9, 3.6152908588325825`*^9, 3.615291140495819*^9, 3.6152913098098297`*^9, 3.6152914945960417`*^9, 3.6152916960433855`*^9, 3.6152918558406515`*^9, 3.6152920572079077`*^9, 3.615292215020112*^9, 3.6152924084003277`*^9, 3.615292754458561*^9, 3.6152929256588817`*^9, 3.615293227326047*^9, 3.615293504956218*^9, 3.6152939107553034`*^9, 3.6153839140718594`*^9, 3.615384198902066*^9, 3.615384406712597*^9, 3.615384616713683*^9, 3.6153848588305645`*^9, 3.6153850755738354`*^9, 3.6153856996458783`*^9, 3.615386112771165*^9, 3.6153864824325953`*^9, 3.6153866731069593`*^9, 3.6153871570104933`*^9, 3.61708562151623*^9, 3.6170861182064776`*^9, 3.6170865351452937`*^9, 3.61708699152292*^9, 3.6170872243672237`*^9, 3.617087528837474*^9, 3.617087745762476*^9, 3.6170879321357884`*^9, 3.617088202760908*^9, 3.6170884459875793`*^9, 3.617088623000245*^9, 3.6170888447786894`*^9, 3.6170891571953335`*^9, 3.61708949719971*^9, 3.6170896856377225`*^9, 3.6170899024474015`*^9, 3.6170903133937197`*^9, 3.61709068006703*^9, 3.6170920211807375`*^9, 3.6170922156598034`*^9, 3.6170925600142875`*^9, 3.617092778627468*^9, 3.617092977676775*^9, 3.617093264971733*^9, 3.6170934830535545`*^9, 3.6170939082841725`*^9, 3.61709410977328*^9, 3.617094326378372*^9, 3.61709459072904*^9, 3.6170950861217413`*^9, 3.617106356585622*^9, 3.617106910861109*^9, 3.6171071110712423`*^9, 3.6171073354435315`*^9, 3.617107523953377*^9, 3.617107724373253*^9, 3.617107929496873*^9, 3.6171083601496058`*^9, 3.617108829503809*^9, 3.6171097144740877`*^9, 3.6171100139866986`*^9, 3.6171104264655285`*^9, 3.617110636540798*^9, 3.617110853446786*^9, 3.6171118498461537`*^9, 3.6171120604042096`*^9, 3.617112294339284*^9, 3.617112482738053*^9, 3.6171127122199664`*^9, 3.618244753482701*^9, 3.6183177764929*^9, 3.619317502287862*^9, 3.619447568163424*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"10.3", " ", RowBox[{"(", "GW", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "6", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6152726580786533`*^9, 3.6152727018051476`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "9.219633899243261`"}], "}"}]], "Output", CellChangeTimes->{{3.6152726585786037`*^9, 3.6152726873652134`*^9}, 3.615278456987693*^9, 3.6152786665344563`*^9, 3.615278894969626*^9, 3.615279099933137*^9, 3.615279500572558*^9, 3.61527972698029*^9, 3.615279952336461*^9, 3.6152801649904284`*^9, 3.615280355639775*^9, 3.615280572960055*^9, 3.615280779116411*^9, 3.6152879721264954`*^9, 3.615288516309329*^9, 3.6152886943487177`*^9, 3.6152889061041527`*^9, 3.6152892007055097`*^9, 3.61528943022501*^9, 3.6152897244658995`*^9, 3.6152899375497637`*^9, 3.615290156902139*^9, 3.615290365459199*^9, 3.6152906108504086`*^9, 3.6152908588638315`*^9, 3.615291140527087*^9, 3.6152913098254547`*^9, 3.6152914946897926`*^9, 3.615291696059013*^9, 3.6152918558718834`*^9, 3.6152920572391577`*^9, 3.615292215051344*^9, 3.615292408478431*^9, 3.6152927544898105`*^9, 3.615292925686903*^9, 3.615293227351061*^9, 3.6152935049812355`*^9, 3.615293910783325*^9, 3.615383914086875*^9, 3.6153841989140773`*^9, 3.6153844067256064`*^9, 3.6153846167276917`*^9, 3.6153848588515787`*^9, 3.6153850755908494`*^9, 3.615385699664892*^9, 3.615386112787196*^9, 3.615386482448607*^9, 3.6153866731259737`*^9, 3.6153871570285063`*^9, 3.617085621528262*^9, 3.617086118223491*^9, 3.6170865351963396`*^9, 3.617086991543935*^9, 3.6170872243872366`*^9, 3.617087528855487*^9, 3.617087745780487*^9, 3.617087932152796*^9, 3.617088202778923*^9, 3.6170884460085936`*^9, 3.617088623018257*^9, 3.6170888447957015`*^9, 3.6170891572143445`*^9, 3.6170894972167397`*^9, 3.6170896856547146`*^9, 3.6170899024744215`*^9, 3.6170903134107313`*^9, 3.6170906800870433`*^9, 3.617092021200753*^9, 3.617092215677816*^9, 3.6170925600382843`*^9, 3.617092778650481*^9, 3.617092977699794*^9, 3.617093264993782*^9, 3.617093483076579*^9, 3.6170939083061695`*^9, 3.6170941097942805`*^9, 3.617094326398386*^9, 3.617094590749055*^9, 3.6170950861407638`*^9, 3.6171063566126375`*^9, 3.617106910895153*^9, 3.6171071111092696`*^9, 3.61710733548556*^9, 3.6171075239863825`*^9, 3.6171077244072776`*^9, 3.617107929530901*^9, 3.6171083601876307`*^9, 3.6171088295378404`*^9, 3.6171097145691376`*^9, 3.617110014019722*^9, 3.61711042649555*^9, 3.6171106365808287`*^9, 3.617110853482809*^9, 3.617111849876171*^9, 3.6171120604412374`*^9, 3.617112294385317*^9, 3.617112482773058*^9, 3.6171127122599764`*^9, 3.61824475349833*^9, 3.6183177765119133`*^9, 3.6193175025980835`*^9, 3.619447568182439*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"23.0", " ", RowBox[{"(", "Himpsel", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6152729217189245`*^9, 3.6152729402531385`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "19.51885342535832`"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJwdz2tIk3EUBvAtzTKXlaLOGvqa16hls+WVopURSNq8VcKQvI1aNgMbmqWL msNkadkEC53KCGmU16kwXaloKalp94VzWlrxViaKCS1d/8cPhx+Hh3M4xyc9 JyGLyWAwskhJONqVyt+0oGzFu6mKaFLED8GO85ZZGH66yAb79RW8+0TOkCUW 5ns5SWAAp04BR39croaq3bWdkO+XOQ7txxVJNcT5W6VV8ID5ZSM8y4wegr5n POZgFGNwk4ZoGygPhgxZSAwsaqvJgl7iJjkUsVM18IafyAjHzHenoD9tWILP K96zaok5GesCYL74XwTcGxiUCB38Z8TQeNJVDpV7hDpov73z2dqcT/YsDBNR G+uw96spEmqOHOUOE9/pzELo2/ZBAlP7PYrhcTeRFgYpcp/CxQUZa4RId3ke hkGTcVLYrfVTwieV9X3wsaDF3WmRFoS0vkiCUvpbCYzhLPTC4WWWBSZ/2bGe RXQtjKBgvrw4DLaUpKTAvr89eZDaNX0b/mQ+eASv5DSMQbog0ApXle0um4mj n19x4eQYNw1mJ9mVQyO7IdSZeFH2Jw6mrjIL4MzD5Ep4yDOsEXZfol5DiXfG r7X8TunOLUS9syEKajJGTsHw6o95kOIOtEN+vTrUjaiaMF+Fxwpn1PCtab4Z 9ny/PgivCcumYbSVZ4V21AaeO+6WtV6AN/mJn2BHba8NTk0L93sQc+fuxUJ2 V/M5GMk+OAv10nLbWq8e4bCJWydS+HCfzjEeJiwEuwiWaMGS2zZDJtFR+cZy Ypn8leaQriL+ByuHwpA= "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"7.3", " ", RowBox[{"(", "PR161", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "5", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.615272720011791*^9, 3.615272760737461*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "6.316679452685388`"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJwd0l1IE2AYBeCZhDXnrOVsmKROJ1n+sBYTlaRRFIQ6l8NoqNXUEJUKKYVJ TkTFUnHYlk5rioOZYUtXlqxmOFlsqGWZVEJuCxdt5ISFzLJY3/Hi8Fycq/fl xEmvnSsPolAo5SS6rWerqnWPwHsx9kkvsWJdZINrs3YX/G1rCMCimLtcNVHP c+RC+u3QSmhqHWyGaXk378MJ/cALmDRQ9h4m32oRPyAaOO290KKe00O36ZQN 7uGwvFDx1UrVEEVaRRq8I+GdhYsKTTl8zB6Twx8fSzRQnlBsgkEl3Q7I9rzc gFbGJ9oAsao0OBHKvv/NgKLhIwWwP8F1BTYJmfJtk0WPYCJr8jW85K12QUNG 3K5BYv3MciY0mk6mzOE/zJV8qMv+XAmlZ1gtcMhWpIXumBtTsKChljZP1Aqj TkB2k/AqXBVyWmENd8gMZa/GI0N/eQQdx61iaFa62yB90jcNLf1hduiojd5J I67EZsbCe/Gt6bAmQXIBrm5O18GIeWcnZHf2jWz3+x4uwMbIQ1vwPOM5I4x4 uGchBWqrUy9Dqz24C54eHebTiX6JPw/+NO6QwT5poQqql9L10BgR9wEqZ0vX 4FJxOzuc+M9gzIJj4W8LoSL/Sx2UOS0T8ECPis8kzoXa62HPqEsJ15J8Y3A0 pMkKVbYuJ3yzm7cFG6Oo3EiiuPlpFaRkiZehZsocgKpNEW8/+lRVLtT4xiug LjHbBXNmugOwjfkumoX7v0mOwZw/VBEc9B1lCDbIHkb2GsuIfMeiPcfvEVw/ GCLtIP4HcLzGgg== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"14.4", " ", RowBox[{"(", "PRB44", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L\[CapitalGamma]", "[", RowBox[{"[", "8", "]"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"p", "/", "2"}], "+", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6152727659411235`*^9, 3.6152728021194882`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", "16.213502347978462`"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJwdy3tI03EABHBNw+mW5SAdUjErNSWb5pimoE3Mylc6H2m0ouFkbKhh1mRR lrixclHqHGpzDhy0RHylJvbUlalkaEgtI53JJH6lgVOKbNn3/OP4cHAXICoR iF1dXFzEJJQg+Uf9T4pfNc7ubCByRIIxaObZ7HA1sWID9t6si2gk7tDZ0qDk O10KKZuxCmq6Luthd4jxMVzxEU/B9BBVdjNRP1TdAA/kTnTAhNJjY9Awz1qG 1OCYl4E4q67hwPIMbjKsvt4ihu4fuypgWc15A7xhEj6DI8I6G9wvfbq22ZlW Rgvx4oJbEFQsOo9AbvDBLPjaZC+Eeaf8KqC6PbMN9jgHXkClpcgO9VP7aEai 9t7nGLh8IjHsLZGmns2ASd1WKbw9zlJCrU7YCnstZc+hwlXOmCB+mPE/Cn2C MorhpYVA1aYrpmH4ZU+PL91B8b+NjmbD9pQlNdSWOYZgZZT3HGzy2r2VQSxs j2FD0RtVFJzsPJMPi2eH5fBK3tc70MS6/xCGPDBPQv+i0HXI6uhnbiNSh6fC oITGuQBDZe534XS8meeNXfjvdHhN7qaA4cGn62FgbXQHtL4MeA/75QVL8I+n Zu92YnTJk1jo9epdLry1+kkOm5QjfVDQrOPtJPrG2q7Cvr+LWhhX6eiCDc7K UaiR1czDchZ3HQ6w6RG++LX2ymD+yZwZGDhh2YDHPbIi/YidYl0aZIc+ksBD 5+Lt8N8W7QaMy5ncxSImeZ7lwlIBIxOmlkYy+WsUvy2HOVhArE2Ynkv9RfGl jR4iDfE/bevCiQ== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"14.0", " ", RowBox[{"(", "PRB44", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"p", "+", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.615272848862587*^9, 3.6152728850715375`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", RowBox[{"-", "11.443831435453243`"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJwd0ltIE3AYBfAJa4jOBQudkkGuaWGMMTat6YNOalC0WnNOYkymuSWLTCIV C5uEdqFFNNtcZGujFCfLLBQpsrmyi7JmSwmblreUGmowN5MM1//48PHjnMfD l1Z2Vq6NoVAoWnK04e5V8++gmJmV9sRK9HjlQ3DWOj0Pl9yGKKRNNvPvEh2U GSn8V0TXw8eFjka4wqxphaMuex9cMGr90K27rbhPVKuNVtjD9HXB7DzJECxt T1mGBdbhOBtRoDPxoC096zBMLLdroerGUwPckGpssIFT0g+D3yzTkK3vj8B3 pnH6A2LVHDUD1uk2RFC4m1sIHZwFHWwaSTHAZpe8E8ZPPHfDDk/lPKywcGLt xLdnJnNgqvcA10s0h77LYIvwqx42HExpggpVyUOYc6z6FWSYa+kfiZFL2/Ph F4+sEgoNGVfg3/q21/D89WdJ8StBsUQxpIChyPI1KBeFPZv9KGMKUmw7ttCJ 3rzcnXDPyav74GCh6gTM9L6phfvDszdhnOueEw4UOD/BmrXMdciQ9zETiN0+ PxcWu3ilm3mVegtaJjqyGcT2xbWjkCakXoDp4WIzXFCKuqC+nv0ZSoTaJTju M7K3EpXbXubC6KkRJayzBmqhh/++FwYut2QnEu2HZi7CsV0/78BW32o3jKM2 foAxEdMMFPCy1iFLRucnEaucvadhskYZgD/mBqOQkaEQsLCPsUUK6ed6KiCj On8eLqaZo1DT5k9NJoZZaiEc6Ew4DveGBExxJCgW/WK+KCd6H41NHflD/iM1 tsxI/A9AlcVG "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"7.0", " ", RowBox[{"(", "PRB87", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "4", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"p", "+", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.615272973508314*^9, 3.615272992840067*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", RowBox[{"-", "6.370900167904849`"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJwdzltIk3EABfB5WdmcTaym6bCtloZpZY6FGrPVsggt55YZUUttEppbF8qh hFFujtIGZvotTF1BMgMzQSXxTmlm5Rq9WMhmtsLhNGiiOejrf3o4/DhwHo4g X5ut9mMwGGoSrqzXr37RLdU1CF5QxKo0xTg86HO64Mu9t2gok9Qlmol+BTOZ cEcHuwhyui2VsP7mjUZIbbH0wPJl9SfIi6pVPiau45ooKBr72A6HfenjcC4/ cgFqSiZYTcS7hx7shl5/8TEoSbao4fyRzgqY45/XBA1CVT8cnW5wwhh3/9L/ XjvFbiZeKWDGQF0hnQxFrQkK+ET4sxAaJ6MqoD5e0QbDrvUNQuq+1gUri7cH tRAzFNMpsOTE4YT3xPSzjiyY1DpVBA1Dm/XQGa56CiW+6wPwEl/H/kCMZfEO wL8yuQbWsmINcFTwbASaZzu5wb/JL8e4Eu5v+WWEM0veYRis5TjgSHI0k02M m0jlw7V01T5oWDxzGs6/el0KV0yzNfBRWqMVymmrDQZW7/RBm6cnLIS45o49 AUYf3ZMHWbeZJhirtYrXY//uz3H4fSWwDEYM5z6E7ICUdqgSbLPDy061B/4o q9nKIWYP9qVC+UZbDmyRfS2FA9NjXXBSR4k3EWNyv5XD7Li5OqhcWe2AzyP1 b6FCWDcDvZliH+ytCknkErOGuoths+bUF0itvqHh+fiTSeFEfh+VCdusXReh 5Z7UBUNZZhrKPHZeBNG465wIhgZw5DDnqihMuuSWMvQbei8QefRnR8ayW7pg C8qvJv4D8Tm+EQ== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"6.3", " ", RowBox[{"(", "GW", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]X", "[", RowBox[{"[", "5", "]"}], "]"}], "[", RowBox[{"[", RowBox[{"p", "+", "1"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6152730162189646`*^9, 3.6152730325652504`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "6.0457597236194065`"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJwVzltIk2EAxnETlFxqMtbyuKaCdjFPaZN0Fy6yZKZsOqxYYlv6UUtsWejI Cyt0iKXC+DwsdM1lhUstlDkpXCsyDzhmphWT2oaZMMoktUiF9T4XD7/L5x+r uFpUscfPz6+CjGbHBHX88goZ/nHPuoii4eJp2FfqWYFPB2/5oMFAp+mItN1T AJuZIUpo4BoboNtV0w0V2l4LvFFNvYemT1ppD7Gzv60LauscQ/CO7dQ07E+M WoM20SxDTxwIp1NgvpsvgtMcYwVkbQ7Xw8hJuR5q+srG4URplxse9lq34Dum M/gB8drFwATY8N13DKY/SS6GPX2rFJQ5Yuph80CxCV4Wj7+Ca7RqBWanJuw1 EEcL3FlQNZ+bNEtcd7jEcDPCqYSC9MhGuPCy7CH0ddRYoeytOthOLGqJzoGt nyVVME6fqIERjx6/gbzCEfa+Da9wWzEjhVL6dxPMMm29hhfiw1xQbOcEBMNa ARc6jU2Z8MTd8+dgTudELZRGfWuBf2a6++HCiGkOKg/xdiB1e4wZQuxgf0iC g0upckiFBLZBt7+JH0ps0mwXQok54CZUy2XtsNySNQRXv8TPQ62Z+gkFKa1x +4kD18ezodo2VwI31pdqYbh2ygzHqnT8A8RFarkO2ng/aKjK230OObGaKVid 3+6BQ+WZOzBPH5rGJn79aLkCKxvPOiE3aNIHR4+UpB9E37KuALIYlktQZjy+ Ancl930w+ehCdDjxZG5ZBvwnCpPAkuoMpnDLK7RyWS/KiWfki67Tf8l/ZZDi HvE/qybE3A== "]] }, 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/CFib1JlAgAAADwAAAACAAAA88dx3mtMiz7qoVOeR0QZQDgxRMod Csk/DrxgZvtCGUBKtCx1tBfaP1zRiBSJPhlA+PE93Qti4z+kzBshmjcZQHQL iVJrmOk/Hv6fBEQuGUD5Cj1FyyrwP0ezvbheIRlANrWGTtBP8z+KuJYaxxIZ QPVXIzk7uPY/J5yxF1cAGUCIuxENvRD6P16LH/2w6xhAGURRTq4v/T9Q9/3Y S9YYQJbicbgCSQBAWQks0PC8GECftWMAZt0BQDu01OVioxhAEmn+vNRpA0B3 BWLMvYgYQMaYQmr2FwVA1cPLJ6hqGED5Wi/OT6kGQCXddjcKTRhAbZnFIlxc CEBPzS7f2SkYQEu4BOxzBwpAtuzQveUCGECoaexrw5ULQPvMSVR93hdARpd9 3MVFDUArHQOGhbwXQGNXtwMA2Q5AFnbJmqeeF0DgSc2N9kYQQFLKCcXFehdA Q1gT1HIdEUAf8A6fjlEXQOavrfWK5RFAfGVjj9sqF0CpxZyPfL4SQLza55iC BRdArCTgBAqJE0AlC3VSzeQWQOTzdzSdTxRAu01/xxXFFkA8gWTcCScVQETN KDP7ohZA1FelXxLwFUB8gx7wCYYWQIzsOlv0yRZAf6oePIRvFkB58SQR3J8X QDZT66YcWxZApj9jol9nGEDY96wBvUIWQPNL9qu8PxlA+I8E3rkiFkB/od2Q tQkaQG/laH3tBRZAQWcZMLTPGkCV/di2TvAVQCPrqUeMphtA9yFdSj3cFUBE uI46AG8cQF5CAJ+1yxVAhkPIpU1IHUAVi/m3CbwVQAcYVuw2Ex5AHptdw/iv FUC9XDjtJdoeQO4zhe+rphVAlF9vZu6xH0DFMCC0ip8VQNVVfV2pPSBAM+Xf i8mbFUDwWu1DyKogQDlodrgDmxVAJpiHB+oVIUCIGWrWuZ0VQPz5y7jZeSFA E67zx3mjFUDiujomNuYhQDHniuBarRVAaKBTgWBLIkAHiLUAH7oVQAi+lrmN riJAs09/wBLKFUC4OgSuJxojQCALG6pb3xVACNwbkI9+I0Cdp/XFEvcVQGjc XS5k6yNA5o6Awh8VFkDjFMqpO1YkQKQKl0eZNxZA/nHgEuG5JEC8E7CBl1sW QCkuITjzJSVA0Sj2ZpCFFkDzDgxL04olQG7vlzo3rxZAzk4hGiD4JUA7zYqd t+EWQMPGYMZvYyZAFKLohQgcF0BYY0pgjccmQNiYIL8yWBdA/V5ethc0J0DG 1//esZ4XQEJ/HPpvmSdAbOTykrDkF0AI5Sz5//8nQGQCCp7bLhhApEac5g== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 5.300000000000001}, 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., 12.}, {5.401381380297658, 6.316679452757379}}, 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.`", ",", "12.`"}], "}"}], "}"}], "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/CFib1JlAgAAADwAAAACAAAA88dx3mtMiz7qoVOeR0QZQDgxRMod Csk/DrxgZvtCGUBKtCx1tBfaP1zRiBSJPhlA+PE93Qti4z+kzBshmjcZQHQL iVJrmOk/Hv6fBEQuGUD5Cj1FyyrwP0ezvbheIRlANrWGTtBP8z+KuJYaxxIZ QPVXIzk7uPY/J5yxF1cAGUCIuxENvRD6P16LH/2w6xhAGURRTq4v/T9Q9/3Y S9YYQJbicbgCSQBAWQks0PC8GECftWMAZt0BQDu01OVioxhAEmn+vNRpA0B3 BWLMvYgYQMaYQmr2FwVA1cPLJ6hqGED5Wi/OT6kGQCXddjcKTRhAbZnFIlxc CEBPzS7f2SkYQEu4BOxzBwpAtuzQveUCGECoaexrw5ULQPvMSVR93hdARpd9 3MVFDUArHQOGhbwXQGNXtwMA2Q5AFnbJmqeeF0DgSc2N9kYQQFLKCcXFehdA Q1gT1HIdEUAf8A6fjlEXQOavrfWK5RFAfGVjj9sqF0CpxZyPfL4SQLza55iC BRdArCTgBAqJE0AlC3VSzeQWQOTzdzSdTxRAu01/xxXFFkA8gWTcCScVQETN KDP7ohZA1FelXxLwFUB8gx7wCYYWQIzsOlv0yRZAf6oePIRvFkB58SQR3J8X QDZT66YcWxZApj9jol9nGEDY96wBvUIWQPNL9qu8PxlA+I8E3rkiFkB/od2Q tQkaQG/laH3tBRZAQWcZMLTPGkCV/di2TvAVQCPrqUeMphtA9yFdSj3cFUBE uI46AG8cQF5CAJ+1yxVAhkPIpU1IHUAVi/m3CbwVQAcYVuw2Ex5AHptdw/iv FUC9XDjtJdoeQO4zhe+rphVAlF9vZu6xH0DFMCC0ip8VQNVVfV2pPSBAM+Xf i8mbFUDwWu1DyKogQDlodrgDmxVAJpiHB+oVIUCIGWrWuZ0VQPz5y7jZeSFA E67zx3mjFUDiujomNuYhQDHniuBarRVAaKBTgWBLIkAHiLUAH7oVQAi+lrmN riJAs09/wBLKFUC4OgSuJxojQCALG6pb3xVACNwbkI9+I0Cdp/XFEvcVQGjc XS5k6yNA5o6Awh8VFkDjFMqpO1YkQKQKl0eZNxZA/nHgEuG5JEC8E7CBl1sW QCkuITjzJSVA0Sj2ZpCFFkDzDgxL04olQG7vlzo3rxZAzk4hGiD4JUA7zYqd t+EWQMPGYMZvYyZAFKLohQgcF0BYY0pgjccmQNiYIL8yWBdA/V5ethc0J0DG 1//esZ4XQEJ/HPpvmSdAbOTykrDkF0AI5Sz5//8nQGQCCp7bLhhApEac5g== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 5.300000000000001}, 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., 12.}, {5.401381380297658, 6.316679452757379}}, 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.`", ",", "12.`"}], "}"}], "}"}], "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., 12.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->CompressedData[" 1:eJwV0l1MEmAYBWAcM8AIi00TEzTzZy1ZYmphrMVy2Y8gITZjcw0UUjJzXSiz JZXFHFaSITMxsmiY5agLXctIsrkplqXWaouWKcOWLWs2YxMXfefi3bNzdS7O u1l9Wq6JoFAoGnI/lFXR1l8L4lT5lkcdxOwVhRcWx/kD8G/kxTBUMKyCm8TP Ur8ETrlZOjhU67gEx9L1XTCf6ngC030npiAnsl1xi8hyXe+ATu6UC464D3ph fCN3EVqPv4myE1O41u2wtEh4CBoTnRo47Oo3wIyqcjtsSlE9hyNlnV+hVPdi GY63+Zi3ibV+WhpsnI/Ig4KezGLouPddC5Vvkw2wpa/kAWQaPR6orT0TgPJQ Or2bWEGfy4Oy6gL+ayLFNiuDYptPB+MTEy7D/Wy1A9IF+iHYW9PAnCBGHODt hYyW4hoYtWurEYqK7r+Ekt/9sWv/LIi/+V4pYJo72AxlhcFhWDC/YQZOGpIi mUQqY08S3CYx7YT81bJjcMA2Wg/nJgJXYZ3C3gvdjX2TUPqUH4L7Ng2y1xHZ 3vd8mHYtSwUP99Baoc7yMJdFzAysSmG2ntYA1Rll7XC2TeSCGnPqNGRXVv6E F86Zk6OReZ7dMEs5fRS21s3UQ61ofADe6bPlxhCTLIGz8JRw0QK/jP57DBfk pjGYy+mchca7whA8/2y9IJY4onSfhCt+5SdI4XnD0Mwr3bER/c12CSzhuCth tz0/AHOWusKwuulDQhzReUOVDU1rYo/AzKUctniZ7PIuZrCCqKN+nCkMkj8s Z6mvEP8Dbda38Q== "]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"FindMinimum", "::", "lstol"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The line search decreased the step size to within the \ tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \ a sufficient decrease in the function. You may need more than \ \[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \ meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/FindMinimum/lstol\\\", ButtonNote -> \ \\\"FindMinimum::lstol\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.6194475685547013`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"5.48", " ", RowBox[{"(", "LB", ")"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"m", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6152730472549796`*^9, 3.6152730528966875`*^9}, { 3.6152731164548855`*^9, 3.6152731208932867`*^9}}], Cell[BoxData["5.401247516633842`"], "Output", CellChangeTimes->CompressedData[" 1:eJwdzltMEmAABWCgiyxJixlk4QXnipzMVMIFwZSH0qatRCUfUiNwiRtt5qbl Js7MlUMtIi+NlBatAqKiSatJib14y4zVWkVpiqxwUZtzNa3oPz6cfQ9nOztc 5alCNZVCoahJBCxuTNePYE7j+uT7PcRhV/EobKqZm4cJzuYwjKrpTu8laiL9 BbBiZ7QGvvtmaYHu8XoTPDZpeQw5hurXcN+arqLrROMVQw+MSPU6oC5QMAop 77kh6Gp9taGPOJjbmwY3SUQHYYf6jhr67QM6uFCi6oNtyUo3HP9knoE8jWcJ jhl8jH7itTn6DthUSRPBjNvpcmhJDlbCFnmKDnakKqywQj/0HMo7T8/DMeou upm4LWFOBO15ufwJ4s/Z2cNwWeHTQAs/7jz8xztxE5rizzyD5Y4Gxkti7vbE bDjSXayFl+JSWmEwwzoMz4ndrMjFYI7kyUQRNKiWL0CZ7LcHqvzMaeiMTVrH ILaFpIlQm6jPgs208lLoXRipg2MvAu3wj7L/Ltzffm8K7r6VtgI3/x1kbiRO Tb/lw0BD5nH42UjvhK4quzCKyMgPH4LabvpZ2CIvuwpvKCQOKMjjeaFSW/Ud imSXk6KJHM6QGFrXvimBYsdMHfTHjg/A+gizcAvx4t5QA6TzFo1QtkB9CAuV nSOrvcf0BTYvSlegzRaTziJKH7mrYa23/AM0PJgMQ5auNJNNpKWYC1a1uU9C RvyBedho6gtDldfH2UoUGtUC6CxjH4HZNVnMnCWy85X9VEU8uufjdP4v8reW qdQT/wMCBr0W "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"x", "/.", RowBox[{"m", "[", RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"p", "/", "2"}], ")"}]}]], "Input", CellChangeTimes->{{3.615274930168249*^9, 3.6152749427561865`*^9}}], Cell[BoxData["0.6895215230825019`"], "Output", CellChangeTimes->CompressedData[" 1:eJwVz2tIk3EAhfGFCVqmpKmDjGwM3URLp27ksDYikXKVOpdJIdNtyKSyi9cK F+lgoDmWK1vqNsqopYvKVlRqkyCn0+p1rDLzgjphmYa1iizsfz4cft8eONuK TubI19BoNBnZxlPM+y1LXmE9W+KAE66ZOZiRemkVHnddS7pO/Fc+K4J2TYgS KsUddbCCW90K67I7nkDr39J30Nl3VdxGbORdaYEL3ygr/GA44IDM94xF6DFT 69qJ6tzWHTAiNn0fzNrUKYfpUlst7Nwsb4caZnEPdB4zT0GW1+6Dg7rPQUZi eXFgDFQp/NIgJ5aTC43MLwp4cTS+FjbG51tgt87eB8/Izs7B7fPsABNxZO1s GqScmQlO9EQzh+AyNa6EatOWeshzyG9CbX91L1wUng8aJt66HS2AVcmSE9Dm iFNDy4ilHw7qeyLWf/cKaXnDYqgZp2kg1/PbDmNUYZMwo4vhH0RU6XZHwz+P GnhwzFZ4BF7+6KiEOYfnGyHLY7wLlTutb2F3YuIKHG3pCd2AbrM7Abq3pkih gRXYBKv8u7jBxAI27SC8sD+wBpbQC/VQy9xlha/82RRcjlN+hYWROkYIUTDw kg8Nd1wSSJ2eroRl7qHHMNVn4oYTK/KXzkEt90czPMr3ewAflmkHYM1U2zSs 3iNYgUNUeFIEkTPWWwqfMqRjMPr1m1X4U1+QHIn/98wi+MLbWwJZezPn4I0F 4yqM4k9E0Yl5zxUpkNNHz4ayZV6o0OcVBjfQn8mI6qZPk1m/vMKAgLCiBuJ/ sZm/2g== "]] }, Open ]] }, Evaluator->"New Kernel", WindowSize->{667, 669}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.4399999999999, 841.56}}, Magnification:>1.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, 1680, 46, 172, "Input"], Cell[2262, 70, 3259, 54, 47, "Output"], Cell[5524, 126, 3181, 51, 32, "Output"] }, Open ]], Cell[8720, 180, 2047, 56, 208, "Input"], Cell[10770, 238, 3998, 75, 148, "Input"], Cell[CellGroupData[{ Cell[14793, 317, 609, 14, 72, "Input"], Cell[15405, 333, 4212, 79, 253, "Output"] }, Open ]], Cell[19632, 415, 6576, 143, 351, "Input"], Cell[CellGroupData[{ Cell[26233, 562, 534, 15, 52, "Input"], Cell[26770, 579, 6968, 94, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33775, 678, 716, 18, 109, "Input"], Cell[34494, 698, 7791, 130, 262, "Output"] }, Open ]], Cell[42300, 831, 1768, 49, 129, "Input"], Cell[CellGroupData[{ Cell[44093, 884, 890, 19, 72, "Input"], Cell[44986, 905, 4165, 79, 261, "Output"] }, Open ]], Cell[49166, 987, 1349, 36, 132, "Input"], Cell[CellGroupData[{ Cell[50540, 1027, 2373, 44, 132, "Input"], Cell[52916, 1073, 2822, 40, 32, "Output"] }, Open ]], Cell[55753, 1116, 429, 10, 44, "Input"], Cell[56185, 1128, 16330, 372, 1584, "Input"], Cell[72518, 1502, 998, 30, 100, "Input"], Cell[73519, 1534, 249, 7, 31, "Input"], Cell[73771, 1543, 15722, 363, 1562, "Input"], Cell[89496, 1908, 906, 26, 52, "Input"], Cell[CellGroupData[{ Cell[90427, 1938, 2599, 56, 132, "Input"], Cell[93029, 1996, 115951, 2342, 269, "Output"] }, Open ]], Cell[208995, 4341, 219, 4, 31, "Input"], Cell[CellGroupData[{ Cell[209239, 4349, 421, 12, 52, "Input"], Cell[209663, 4363, 979, 20, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[210679, 4388, 425, 12, 52, "Input"], Cell[211107, 4402, 983, 20, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[212127, 4427, 333, 9, 52, "Input"], Cell[212463, 4438, 2628, 39, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[215128, 4482, 336, 9, 52, "Input"], Cell[215467, 4493, 2609, 38, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[218113, 4536, 392, 11, 52, "Input"], Cell[218508, 4549, 966, 19, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[219511, 4573, 385, 11, 52, "Input"], Cell[219899, 4586, 943, 18, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[220879, 4609, 390, 11, 52, "Input"], Cell[221272, 4622, 944, 18, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[222253, 4645, 362, 10, 52, "Input"], Cell[222618, 4657, 960, 19, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[223615, 4681, 359, 10, 52, "Input"], Cell[223977, 4693, 963, 19, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[224977, 4717, 360, 10, 52, "Input"], Cell[225340, 4729, 941, 18, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[226318, 4752, 439, 13, 52, "Input"], Cell[226760, 4767, 11589, 229, 77, "Output"], Cell[238352, 4998, 697, 13, 81, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[239086, 5016, 320, 8, 52, "Input"], Cell[239409, 5026, 894, 16, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[240340, 5047, 268, 8, 31, "Input"], Cell[240611, 5057, 891, 16, 32, "Output"] }, Open ]] } ] *) (* End of internal cache information *)