(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 156889, 3649] NotebookOptionsPosition[ 151553, 3557] NotebookOutlinePosition[ 151907, 3573] CellTagsIndexPosition[ 151864, 3570] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Initialization", "Title", CellChangeTimes->{{3.772430585951195*^9, 3.772430588849484*^9}},ExpressionUUID->"1beb757f-3ad3-4eb2-a4e7-\ cdf5ee9b6192"], Cell[BoxData[ RowBox[{ RowBox[{"HaToeV", "=", "27.21138602"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.716296565736483*^9, 3.716296584151037*^9}}, CellLabel-> "In[690]:=",ExpressionUUID->"290a14c6-8e84-41b9-93bf-5338bcd81260"] }, Closed]], Cell[CellGroupData[{ Cell["ECMD sr-LDA functional [Paziani et al. PRB 73 (2006) 155111]", "Title", CellChangeTimes->{{3.7717615442945957`*^9, 3.7717615745751762`*^9}, { 3.7717616555034122`*^9, 3.771761658578969*^9}, {3.771761889119907*^9, 3.7717618899605417`*^9}},ExpressionUUID->"cc8f10f6-dee0-4be6-9b95-\ a2b645508bc1"], Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Epsilon]", "c", "LR"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Zeta]", ",", "\[Mu]"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["\[Epsilon]", "LR"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Zeta]", ",", "\[Mu]"}], "]"}], "-", RowBox[{ SubscriptBox["t", "s"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Zeta]", ",", "\[Mu]"}], "]"}], "-", RowBox[{ SubsuperscriptBox["\[Epsilon]", "x", "LR"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Zeta]", ",", "\[Mu]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7717614891109467`*^9, 3.771761526234874*^9}},ExpressionUUID->"f09b5b1d-fcfa-4277-b055-\ 8d013d150e51"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["t", "s"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Zeta]", ",", "\[Mu]"}], "]"}], "=", RowBox[{ FractionBox[ RowBox[{"3", SubsuperscriptBox["k", "F", "2"]}], "10"], RowBox[{ SubscriptBox["\[Phi]", "5"], "[", "\[Zeta]", "]"}]}]}]], "Input", CellChangeTimes->{{3.771761595434334*^9, 3.77176162310323*^9}},ExpressionUUID->"2adb86e5-1613-4560-afb2-\ c874c93162cc"], Cell[BoxData[ RowBox[{ SubscriptBox["k", "F"], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"\[Alpha]", " ", SubscriptBox["r", "s"]}]], "\t", "\[Alpha]"}], "\[Equal]", SuperscriptBox[ RowBox[{"(", FractionBox["4", RowBox[{"9", "\[Pi]"}]], ")"}], RowBox[{"1", "/", "3"}]]}]], "Input", CellChangeTimes->{{3.771761629813285*^9, 3.771761651073*^9}, 3.771761892459922*^9},ExpressionUUID->"e471ce7c-fc48-482e-8bea-\ 3e9e0179671c"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Epsilon]", "x"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Zeta]", ",", "\[Mu]"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"4", "/", "3"}]], RowBox[{ SubscriptBox["f", "x"], "[", RowBox[{ SubscriptBox["r", "s"], ",", RowBox[{"\[Mu]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", "3"}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"4", "/", "3"}]], RowBox[{ SubscriptBox["f", "x"], "[", RowBox[{ SubscriptBox["r", "s"], ",", RowBox[{"\[Mu]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", "3"}]]}]}], "]"}]}]}], "2"]}]], "Input", CellChangeTimes->{{3.771761705400154*^9, 3.771761802293672*^9}},ExpressionUUID->"d1a8b6ea-55ae-4a5e-8673-\ b9734def02ca"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["f", "x"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Mu]"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["\[Mu]", "\[Pi]"]}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "y"}], "-", RowBox[{"4", SuperscriptBox["y", "3"]}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox["1", RowBox[{"4", SuperscriptBox["y", "2"]}]]}], "]"}]}], "-", RowBox[{"3", "y"}], "+", RowBox[{"4", SuperscriptBox["y", "3"]}], "+", RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Erf", "[", FractionBox["1", RowBox[{"2", "y"}]], "]"}]}]}], ")"}], "\t", "y"}], "\[Equal]", FractionBox[ RowBox[{"\[Mu]", " ", "\[Alpha]", " ", SubscriptBox["r", "s"]}], "2"]}]], "Input", CellChangeTimes->{{3.771761806462194*^9, 3.7717619043772717`*^9}},ExpressionUUID->"8257931c-d5a2-4fa5-bfcf-\ 242ed662fad5"], Cell[CellGroupData[{ Cell["Analytic representation of the correlation energy", "Section", CellChangeTimes->{{3.7717619451626053`*^9, 3.7717619604379997`*^9}, { 3.7717628547850637`*^9, 3.771762856014763*^9}},ExpressionUUID->"da7db347-895a-4445-adf0-\ 185e3e7ae4bc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[Epsilon]cLR", "[", RowBox[{"rs_", ",", "\[Zeta]_", ",", "\[Mu]_"}], "]"}], ":=", RowBox[{ FractionBox[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ SubscriptBox["\[Phi]", "2"], "[", "\[Zeta]", "]"}], "3"], RowBox[{"Q", "[", FractionBox[ RowBox[{"\[Mu]", " ", SqrtBox["rs"]}], RowBox[{ SubscriptBox["\[Phi]", "2"], "[", "\[Zeta]", "]"}]], "]"}]}], "+", RowBox[{ RowBox[{"a1", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}], SuperscriptBox["\[Mu]", "3"]}], "+", RowBox[{ RowBox[{"a2", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}], SuperscriptBox["\[Mu]", "4"]}], "+", RowBox[{ RowBox[{"a3", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}], SuperscriptBox["\[Mu]", "5"]}], "+", RowBox[{ RowBox[{"a4", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}], SuperscriptBox["\[Mu]", "6"]}], "+", RowBox[{ RowBox[{"a5", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}], SuperscriptBox["\[Mu]", "8"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "2"], SuperscriptBox["\[Mu]", "2"]}]}], ")"}], "4"]], "/.", RowBox[{"\[Alpha]", "\[Rule]", SuperscriptBox[ RowBox[{"(", FractionBox["4", RowBox[{"9", "\[Pi]"}]], ")"}], RowBox[{"1", "/", "3"}]]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.771761963382757*^9, 3.77176203397927*^9}, { 3.771762098820107*^9, 3.771762142266923*^9}, {3.771762856723877*^9, 3.7717628631754007`*^9}, {3.771778456441491*^9, 3.7717784599917917`*^9}, { 3.77177856335856*^9, 3.7717785984922667`*^9}, {3.771778747941729*^9, 3.771778770864193*^9}, {3.771779376690545*^9, 3.771779376831264*^9}, { 3.771779500268244*^9, 3.771779535341432*^9}, 3.771781649390931*^9, { 3.771782124540922*^9, 3.771782126643386*^9}, 3.771836550551532*^9}, CellLabel->"In[1]:=",ExpressionUUID->"2424c22e-2944-42fb-a926-6931d6b950db"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Phi]", "n_"], "[", "\[Zeta]_", "]"}], ":=", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "\[Zeta]"}], ")"}], RowBox[{"n", "/", "3"}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Zeta]"}], ")"}], RowBox[{"n", "/", "3"}]]}], "2"]}], ";"}]], "Input", CellChangeTimes->{{3.771761663679653*^9, 3.771761699635745*^9}, { 3.771778463326877*^9, 3.7717784697876587`*^9}, 3.7718365533847017`*^9}, CellLabel->"In[2]:=",ExpressionUUID->"5e7071ef-4b10-4195-9ab5-72086ae9360d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Q", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", RowBox[{"Log", "[", "2", "]"}]}], "-", "2"}], SuperscriptBox["\[Pi]", "2"]], RowBox[{"Log", "[", FractionBox[ RowBox[{"1", "+", RowBox[{"a", " ", "x"}], "+", RowBox[{"b", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"c", " ", SuperscriptBox["x", "3"]}]}], RowBox[{"1", "+", RowBox[{"a", " ", "x"}], "+", RowBox[{"d", " ", SuperscriptBox["x", "2"]}]}]], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "5.84605"}], ",", RowBox[{"c", "\[Rule]", "3.91744"}], ",", RowBox[{"d", "\[Rule]", "3.44851"}], ",", RowBox[{"b", "->", RowBox[{"3.44851", "-", FractionBox[ RowBox[{"3", "\[Pi]", " ", "\[Alpha]"}], RowBox[{ RowBox[{"4", RowBox[{"Log", "[", "2", "]"}]}], "-", "4"}]]}]}]}], "}"}]}]}], ";"}], "\t"}]], "Input", CellChangeTimes->{{3.771762166139291*^9, 3.7717621744945383`*^9}, { 3.7717622073456*^9, 3.771762234218986*^9}, {3.771762346733646*^9, 3.771762414996784*^9}, {3.771762878996976*^9, 3.771762881748227*^9}, { 3.7717784794941*^9, 3.771778523118412*^9}, 3.771836554184534*^9}, CellLabel->"In[3]:=",ExpressionUUID->"431fbccd-665c-479c-825d-74e37905a953"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"a1", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{ RowBox[{"4", SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "6"], RowBox[{"C3", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "8"], RowBox[{"C5", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}]}]}]}], ";"}], "\t"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a2", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{ RowBox[{"4", SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "6"], RowBox[{"C2", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "8"], RowBox[{"C4", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{"6", SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "4"], "ec"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a3", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{ SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "8"], RowBox[{"C3", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a4", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "8"], RowBox[{"C2", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}]}], "+", RowBox[{"4", SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "6"], "ec"}]}]}], ";", "\t", RowBox[{ RowBox[{"a5", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{ SuperscriptBox[ RowBox[{"b0", "[", "rs", "]"}], "8"], "ec"}]}], ";"}]}], "Input", CellChangeTimes->{{3.771762952203158*^9, 3.771762957939657*^9}, { 3.771762998580441*^9, 3.771763110694063*^9}, {3.7717785319110537`*^9, 3.771778539064945*^9}, {3.771778710580977*^9, 3.7717787447614594`*^9}, { 3.771778782889411*^9, 3.771778885987258*^9}, {3.7717793542622547`*^9, 3.771779361369142*^9}, {3.771780821220508*^9, 3.771780824966153*^9}, { 3.771781783385194*^9, 3.771781793877317*^9}, {3.771836556016198*^9, 3.7718365584308977`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"68450462-8882-467d-85de-668cca5b67df"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"C2", "[", RowBox[{"\[Zeta]_", ",", "rs_"}], "]"}], ":=", RowBox[{"-", FractionBox[ RowBox[{"3", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Zeta]", "2"]}], ")"}], RowBox[{"gc", "[", "rs", "]"}]}], RowBox[{"8", " ", SuperscriptBox["rs", "3"]}]]}]}], ";"}], "\t"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"C3", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Zeta]", "2"]}], ")"}]}], FractionBox[ RowBox[{"g", "[", "rs", "]"}], RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], " ", SuperscriptBox["rs", "3"]}]]}]}], ";"}], "\t"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"C4", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{"-", FractionBox[ RowBox[{"9", RowBox[{"c4", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}]}], RowBox[{"64", SuperscriptBox["rs", "3"]}]]}]}], ";", "\t", RowBox[{ RowBox[{"C5", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{"-", FractionBox[ RowBox[{"9", RowBox[{"c5", "[", RowBox[{"rs", ",", "\[Zeta]"}], "]"}]}], RowBox[{"40", SqrtBox[ RowBox[{"2", "\[Pi]"}]], SuperscriptBox["rs", "3"]}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gc", "[", "rs_", "]"}], ":=", RowBox[{ RowBox[{"g", "[", "rs", "]"}], "-", FractionBox["1", "2"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "rs_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"0.7317", "-", "0.752411"}], ")"}], "rs"}], "+", " ", RowBox[{"0.0819306", SuperscriptBox["rs", "2"]}], "-", RowBox[{"0.0127713", SuperscriptBox["rs", "3"]}], "+", RowBox[{"0.00185898", SuperscriptBox["rs", "4"]}]}], ")"}], RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "0.752411"}], "rs"}], "]"}], "/", "2"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.771763124087843*^9, 3.771763239782792*^9}, { 3.771778546103352*^9, 3.7717785482662897`*^9}, {3.771778611303747*^9, 3.771778616852309*^9}, {3.7717788897975807`*^9, 3.7717789557867327`*^9}, { 3.7717790425591583`*^9, 3.771779055944982*^9}, {3.771779133030603*^9, 3.771779133243347*^9}, {3.771779255825417*^9, 3.77177928375259*^9}, { 3.771779409854127*^9, 3.7717794246671057`*^9}, {3.771779529748591*^9, 3.7717795315356283`*^9}, {3.771779735811041*^9, 3.771779874568338*^9}, { 3.7718365594479647`*^9, 3.771836570743126*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"76293f49-0f9c-448d-9fa4-7a7821619364"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"c4", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{"1", "+", SuperscriptBox["\[Zeta]", "2"]}], "2"], ")"}], RowBox[{"gpp", "[", RowBox[{"rs", SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"1", "+", "\[Zeta]"}]], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", RowBox[{ RowBox[{"(", FractionBox[ RowBox[{"1", "-", SuperscriptBox["\[Zeta]", "2"]}], "2"], ")"}], RowBox[{"gpp", "[", RowBox[{"rs", SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"1", "-", "\[Zeta]"}]], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Zeta]", "2"]}], ")"}], RowBox[{"D2", "[", "rs", "]"}]}], "-", FractionBox[ RowBox[{ SubscriptBox["\[Phi]", "8"], "[", "\[Zeta]", "]"}], RowBox[{"5", SuperscriptBox["\[Alpha]", "2"], SuperscriptBox["rs", "2"]}]]}]}], ";"}]], "Input", CellChangeTimes->{{3.77176327770026*^9, 3.771763352798826*^9}, { 3.771763509128861*^9, 3.7717635428199377`*^9}, {3.7717786252373247`*^9, 3.7717786421091213`*^9}, {3.77177867451056*^9, 3.771778705676589*^9}, { 3.771778959529389*^9, 3.7717789703788347`*^9}, 3.771779326066607*^9, { 3.7717799304393873`*^9, 3.771779934301042*^9}, 3.771836571928794*^9}, CellLabel->"In[13]:=",ExpressionUUID->"7b438198-7fff-4469-8902-d63008ab1edd"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"c5", "[", RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{"1", "+", SuperscriptBox["\[Zeta]", "2"]}], "2"], ")"}], RowBox[{"gpp", "[", RowBox[{"rs", SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"1", "+", "\[Zeta]"}]], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", RowBox[{ RowBox[{"(", FractionBox[ RowBox[{"1", "-", SuperscriptBox["\[Zeta]", "2"]}], "2"], ")"}], RowBox[{"gpp", "[", RowBox[{"rs", SuperscriptBox[ RowBox[{"(", FractionBox["2", RowBox[{"1", "-", "\[Zeta]"}]], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Zeta]", "2"]}], ")"}], RowBox[{"D3", "[", "rs", "]"}]}]}]}], ";"}]], "Input", CellChangeTimes->{ 3.7717634987152567`*^9, {3.771763552292667*^9, 3.771763554424954*^9}, { 3.7717786290210857`*^9, 3.771778702617523*^9}, {3.771778974783494*^9, 3.771778978908309*^9}, {3.771779127030455*^9, 3.771779128290526*^9}, { 3.7717793291115313`*^9, 3.771779329972632*^9}, {3.771779932467745*^9, 3.7717799359878817`*^9}, 3.771836573567986*^9}, CellLabel->"In[14]:=",ExpressionUUID->"bb62c6dd-19f1-49b0-93ed-7a72089471a5"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"b0", "[", "rs_", "]"}], ":=", RowBox[{"0.78949", "rs"}]}], ";"}], "\t"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"D2", "[", "rs_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "0.547"}], "rs"}], "]"}], SuperscriptBox["rs", "2"]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "0.388"}], "rs"}], "+", RowBox[{"0.676", SuperscriptBox["rs", "2"]}]}], ")"}]}]}], ";"}], "\t"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"D3", "[", "rs_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "0.31"}], "rs"}], "]"}], SuperscriptBox["rs", "3"]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4.95"}], "rs"}], "+", SuperscriptBox["rs", "2"]}], ")"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.771763567753668*^9, 3.7717635711197557`*^9}, { 3.7717636288569927`*^9, 3.771763659653902*^9}, {3.771764117143701*^9, 3.771764146373032*^9}, {3.7717642369975147`*^9, 3.771764249484836*^9}, { 3.771778793333074*^9, 3.771778793734756*^9}, {3.771778908427208*^9, 3.771778922603982*^9}, {3.771778999237069*^9, 3.771779031517296*^9}, { 3.771779119216881*^9, 3.771779125350945*^9}, {3.771836574383712*^9, 3.7718365786632423`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"1b3202c0-1ab4-429c-8dba-a60935c07597"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"gpp", "[", "rs_", "]"}], ":=", RowBox[{ FractionBox[ SuperscriptBox["2", RowBox[{"5", "/", "3"}]], RowBox[{"5", SuperscriptBox["\[Alpha]", "2"], SuperscriptBox["rs", "2"]}]], FractionBox[ RowBox[{"1", "-", RowBox[{"0.02267", "rs"}]}], RowBox[{"1", "+", RowBox[{"0.4319", " ", "rs"}], "+", RowBox[{"0.04", SuperscriptBox["rs", "2"]}]}]]}]}], ";"}]], "Input", CellChangeTimes->{{3.771764158041356*^9, 3.771764207830522*^9}, { 3.771778645829051*^9, 3.7717786706143827`*^9}, {3.7717789848615627`*^9, 3.771778994476886*^9}, 3.771779335374116*^9, {3.771779511382004*^9, 3.77177951806966*^9}, {3.771779938347245*^9, 3.771779938762389*^9}, 3.7718365796717587`*^9}, CellLabel->"In[18]:=",ExpressionUUID->"30aeeec3-f7a5-4138-bd8c-548696d2f752"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[Epsilon]cLR", "[", RowBox[{"1.0", ",", "0.2", ",", "0.5"}], "]"}], "/.", RowBox[{"ec", "\[Rule]", RowBox[{ RowBox[{"-", "5.8963985436182129"}], " ", SuperscriptBox["10", RowBox[{"-", "2"}]]}]}]}]], "Input", CellChangeTimes->{{3.771780839941061*^9, 3.77178084339225*^9}, { 3.7717818058410683`*^9, 3.771781807442444*^9}, {3.7718366739261637`*^9, 3.7718367162615347`*^9}, {3.771836930343273*^9, 3.771836948258225*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"408e19ad-23db-4b1a-8d84-8acca9835fae"], Cell[BoxData[ RowBox[{"-", "0.02003816512886262`"}]], "Output", CellChangeTimes->{ 3.7717821311862507`*^9, {3.7718365235145597`*^9, 3.77183653965664*^9}, { 3.771836584520483*^9, 3.77183659732627*^9}, {3.771836677187216*^9, 3.7718367167452602`*^9}, {3.771836933204549*^9, 3.7718369486178427`*^9}}, CellLabel->"Out[30]=",ExpressionUUID->"0b40f4ad-6233-4b3d-8a80-07aca06e731a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[Epsilon]cLR", "[", RowBox[{"rs", ",", "z", ",", "mu"}], "]"}], "//", "FortranForm"}]], "Input",\ CellChangeTimes->{{3.77178165542163*^9, 3.771781675040906*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"7d031781-f5af-40e6-b079-1bc0fdb02f2b"], Cell["\<\ (0.15092912957740764*ec*mu**8*rs**8 + \ (0.030106005566307166*mu**5*rs**5* - (1 + 0.020711000000000035*rs + 0.0819306*rs**2 - 0.0127713*rs**3 \ + 0.00185898*rs**4)*(-1 + z**2))/E**(0.752411*rs) + - mu**6*(0.9685895783716283*ec*rs**6 - (0.05659842359152786*rs**8*(1 \ - rs**2)* - (-0.5 + (1 + 0.020711000000000035*z + 0.0819306*z**2 - \ 0.0127713*z**3 + 0.00185898*z**4)/(2.*E**(0.752411*z))))/z**3) + - mu**3*((0.1932056675843198*rs**3*(1 + 0.020711000000000035*rs + \ 0.0819306*rs**2 - 0.0127713*rs**3 + 0.00185898*rs**4)*(-1 + z**2))/ - E**(0.752411*rs) - 0.013547702504838225*rs**5*(((-4.95*rs + \ rs**2)*(1 - z**2))/(E**(0.31*rs)*rs**3) + - (3*1.5**0.3333333333333333*Pi**0.6666666666666666*(1 - \ 0.028562410201116776*rs*(1/(1 - z))**0.3333333333333333)*(1 - z**2))/ - (10.*rs**2*(1 + 0.5441599014495957*rs*(1/(1 - \ z))**0.3333333333333333 + 0.06349604207872797*rs**2*(1/(1 - \ z))**0.6666666666666666)* - (1/(1 - z))**0.6666666666666666) + \ (3*1.5**0.3333333333333333*Pi**0.6666666666666666*(1 + z**2)* - (1 - 0.028562410201116776*rs*(1/(1 + \ z))**0.3333333333333333))/ - (10.*rs**2*(1/(1 + z))**0.6666666666666666*(1 + \ 0.5441599014495957*rs*(1/(1 + z))**0.3333333333333333 + - 0.06349604207872797*rs**2*(1/(1 + \ z))**0.6666666666666666)))) + - mu**4*(2.330975903948103*ec*rs**4 - (0.3632210918893606*rs**6*(1 - \ rs**2)* - (-0.5 + (1 + 0.020711000000000035*z + 0.0819306*z**2 - \ 0.0127713*z**3 + 0.00185898*z**4)/(2.*E**(0.752411*z))))/z**3 - - 0.02122440884682295*rs**5*(((-0.388*rs + 0.676*rs**2)*(1 - \ z**2))/(E**(0.547*rs)*rs**2) + - (3*1.5**0.3333333333333333*Pi**0.6666666666666666*(1 - \ 0.028562410201116776*rs*(1/(1 - z))**0.3333333333333333)*(1 - z**2))/ - (10.*rs**2*(1 + 0.5441599014495957*rs*(1/(1 - \ z))**0.3333333333333333 + 0.06349604207872797*rs**2*(1/(1 - \ z))**0.6666666666666666)* - (1/(1 - z))**0.6666666666666666) + \ (3*1.5**0.3333333333333333*Pi**0.6666666666666666*(1 + z**2)* - (1 - 0.028562410201116776*rs*(1/(1 + \ z))**0.3333333333333333))/ - (10.*rs**2*(1/(1 + z))**0.6666666666666666*(1 + \ 0.5441599014495957*rs*(1/(1 + z))**0.3333333333333333 + - 0.06349604207872797*rs**2*(1/(1 + \ z))**0.6666666666666666)) - - (3*1.5**0.3333333333333333*Pi**0.6666666666666666*((1 - \ z)**2.6666666666666665 + (1 + z)**2.6666666666666665))/(20.*rs**2))) + - (((1 - z)**0.6666666666666666 + (1 + z)**0.6666666666666666)**3*(-2 \ + 2*Log(2))* - Log((1 + (31.33952*mu**3*rs**1.5)/((1 - z)**0.6666666666666666 + \ (1 + z)**0.6666666666666666)**3 + - (29.798101530536215*mu**2*rs)/((1 - z)**0.6666666666666666 + \ (1 + z)**0.6666666666666666)**2 + - (11.6921*mu*Sqrt(rs))/((1 - z)**0.6666666666666666 + (1 + \ z)**0.6666666666666666))/ - (1 + (13.79404*mu**2*rs)/((1 - z)**0.6666666666666666 + (1 + \ z)**0.6666666666666666)**2 + - (11.6921*mu*Sqrt(rs))/((1 - z)**0.6666666666666666 + (1 + \ z)**0.6666666666666666))))/(8.*Pi**2))/(1 + 0.6232944601*mu**2*rs**2)**4\ \>", "Output", CellChangeTimes->{{3.771781666009734*^9, 3.7717816755992613`*^9}, 3.771781811362009*^9, 3.7717821333483133`*^9, 3.771836600647401*^9}, CellLabel-> "Out[20]//FortranForm=",ExpressionUUID->"e8c89351-e3be-455d-b993-\ 40a6da00af8b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["ECMD part", "Section", CellChangeTimes->{{3.771764286765162*^9, 3.7717642894676533`*^9}},ExpressionUUID->"1774903d-cd4a-427c-913b-\ 6d03354a574f"], Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]", RowBox[{"LR", "-", "SR"}]], "=", FractionBox[ RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], " ", SuperscriptBox["\[Mu]", "2"]}], "+", RowBox[{ SubscriptBox["\[Delta]", "3"], " ", SuperscriptBox["\[Mu]", "3"]}], "+", RowBox[{ SubscriptBox["\[Delta]", "4"], " ", SuperscriptBox["\[Mu]", "4"]}], "+", RowBox[{ SubscriptBox["\[Delta]", "5"], " ", SuperscriptBox["\[Mu]", "5"]}], "+", RowBox[{ SubscriptBox["\[Delta]", "6"], " ", SuperscriptBox["\[Mu]", "6"]}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{ SubsuperscriptBox["d", "0", "2"], SuperscriptBox["\[Mu]", "2"]}]}], ")"}], "4"]]}]], "Input", CellChangeTimes->{{3.771764296622439*^9, 3.77176430804951*^9}, { 3.771764345532308*^9, 3.771764387349852*^9}},ExpressionUUID->"a08e663f-6de1-46b7-a344-\ 1b47fcd2e96e"], Cell[BoxData[ RowBox[{ SubscriptBox["\[Delta]", "3"], "\[Equal]", RowBox[{ RowBox[{"4", SubsuperscriptBox["d", "0", "6"], SubscriptBox[ OverscriptBox["C", "~"], "3"]}], "+", RowBox[{ SubsuperscriptBox["d", "0", "8"], SubscriptBox[ OverscriptBox["C", "~"], "5"], "\t", SubscriptBox["\[Delta]", "4"]}]}], "\[Equal]", RowBox[{ RowBox[{"4", SubsuperscriptBox["d", "0", "6"], SubscriptBox["C", "2"]}], "+", RowBox[{ SubsuperscriptBox["d", "0", "8"], SubscriptBox["C", "4"], "\t", SubscriptBox["\[Delta]", "5"]}]}], "\[Equal]", RowBox[{ SubsuperscriptBox["d", "0", "8"], SubscriptBox[ OverscriptBox["C", "~"], "3"], "\t", SubscriptBox["\[Delta]", "6"]}], "\[Equal]", RowBox[{ SubsuperscriptBox["d", "0", "8"], SubscriptBox["C", "2"]}]}]], "Input", CellChangeTimes->{{3.771764399150547*^9, 3.77176451268692*^9}},ExpressionUUID->"760031e2-bb91-4ce7-8b6e-\ 8566604d6f6c"], Cell[BoxData[ RowBox[{ SubscriptBox[ OverscriptBox["C", "~"], "3"], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Zeta]", "2"]}], ")"}]}], FractionBox[ RowBox[{ RowBox[{"g", "[", RowBox[{"0", ",", SubscriptBox["r", "s"], ",", "0"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"2", SqrtBox["2"]}], "-", "1"}], ")"}]}], RowBox[{"2", SqrtBox["\[Pi]"], SubsuperscriptBox["r", "s", "3"]}]], "\t", SubscriptBox[ OverscriptBox["C", "~"], "5"]}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"3", RowBox[{ SubscriptBox["c", "5"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Zeta]"}], "]"}], RowBox[{"(", RowBox[{"3", "-", SqrtBox["2"]}], ")"}]}], RowBox[{"20", SqrtBox[ RowBox[{"2", "\[Pi]"}]], SubsuperscriptBox["r", "s", "3"]}]]}]}]], "Input", CellChangeTimes->{{3.771764516235433*^9, 3.771764586923218*^9}},ExpressionUUID->"be645cf4-80f8-46a4-a854-\ 7e7f3cf3adaa"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", SubscriptBox["r", "s"], "]"}], "\[Equal]", RowBox[{"0.073867", SubsuperscriptBox["r", "s", RowBox[{"3", "/", "2"}]], "\t", RowBox[{ SubscriptBox["d", "0"], "[", RowBox[{ SubscriptBox["r", "s"], ",", "\[Zeta]"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"0.70605", "+", RowBox[{"0.12927", SuperscriptBox["\[Zeta]", "2"]}]}], ")"}], SubscriptBox["r", "s"]}]}]], "Input", CellChangeTimes->{{3.771764590484206*^9, 3.771764650992613*^9}},ExpressionUUID->"2bcddbd2-7cce-438d-a1b4-\ 20e94d4eb82b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["He", "Title", CellChangeTimes->{{3.772430561053357*^9, 3.772430561149415*^9}},ExpressionUUID->"8560674c-80e3-4647-b8fa-\ 49b81ccb3c6e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{"24.75", ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.75", ",", "4.25"}], "}"}], ",", RowBox[{"{", RowBox[{"24.3", ",", "24.8"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"BaseStyle", "\[Rule]", "20"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", "Automatic"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "24.36"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "24.58"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "24.68"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "24.63"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "24.69"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "24.73"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "24.66"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "24.69"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "24.72"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Large"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF\>\"", ",", "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+LDA\>\"", ",", "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+PBE\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.772429726119466*^9, 3.7724301837308407`*^9}, { 3.772467945167225*^9, 3.772468068230527*^9}, {3.772468148042951*^9, 3.772468150655224*^9}, {3.772468209740158*^9, 3.772468210068767*^9}, { 3.772469894559239*^9, 3.772469895207571*^9}, {3.777807015280822*^9, 3.777807067079465*^9}, {3.777807127004521*^9, 3.777807199343431*^9}}, CellLabel-> "In[718]:=",ExpressionUUID->"fb1401d0-520f-4c9a-9551-8aab77191071"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfenAS1EGhg/2DCBwwMJhXYVRyJkFCH6nQfWkGY4f 4Xwd7S+idvM+wfmP7Se8PvH4M5zvPcX61welr3D+guJz/Gq13+B8jtyWcocD 3+H82I+Kz9LlfsL5KVvP9eqU/YLz6ybPa7+27Tec3/ontKNX6C+cP7/e4LZm +D84P9tJKj156n84X/DE1z8h5QwOMP733/nvsyQY4fzgr7Gp7McR/I6+y+VF RUxw/vEtUcYBQsxwfs2C0KIt+xF8a8mkqO5EFji/IPzR0RcCrHB+nemrsyJ7 EfxpC5jrN8eywfkqFydsvsHNDufv6dOfWLAOwdd9E8p93ZcDzhfh/8Bx5BeC z7p/9nrlOZxwfo7J7puc3lxw/hrPpAX7viH4315LCTybxg3nbwt2Z57iwgPn N3i0zt/yDMFXuut1Y3ErL8K/5i1TJI344PxYufM/GS8j+N9O9T4qaOSH832Y 9K00hQTgfK73UYGMSQh+8z6HVXN2IPiNIevDCzkF4Xyrs9fdOBMR/PuiLi0c 2xF8TlVLMUd2ITj/ndiLlzZxCH7EeXmhovUI/vrw2R18/xH8g4cuOOSFCiPU f+nzZV+G4As5cS1hvozgn+lv/fX/P4IPAGpk81I= "]]}, Annotation[#, "Charting`Private`Tag$1518542#1"]& ]}, {}, {}}, {{}, {{{}, {}, {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], Thickness[Large], CapForm["Butt"], LineBox[{{2., 24.36}, {3., 24.58}, {4., 24.68}}]}, {RGBColor[0.365248, 0.427802, 0.758297], PointSize[ 0.012833333333333334`], Thickness[Large], CapForm["Butt"], LineBox[{{2., 24.63}, {3., 24.69}, {4., 24.73}}]}, {RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`], Thickness[Large], CapForm["Butt"], LineBox[{{2., 24.66}, {3., 24.69}, {4., 24.72}}]}}, { {RGBColor[0.9, 0.36, 0.054], AbsolutePointSize[6], Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Large], {0., 0.}], {{{2., 24.36}}, {{3., 24.58}}, {{4., 24.68}}}]}, {RGBColor[0.365248, 0.427802, 0.758297], AbsolutePointSize[6], Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Large], {0., 0.}], {{{2., 24.63}}, {{3., 24.69}}, {{4., 24.73}}}]}, {RGBColor[0.945109, 0.593901, 0.], AbsolutePointSize[6], Thickness[ Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Large], {0., 0.}], {{{2., 24.66}}, {{3., 24.69}}, {{4., 24.72}}}]}, {}}}, {}, {}, {}, {}}}, InsetBox[ TagBox[GridBox[{ { FormBox[ TemplateBox[{"\"CBS\""}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]], 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 = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], TraditionalForm]}, { FormBox[ TemplateBox[{ "\"\\!\\(\\*SubscriptBox[\\(G\\), \ \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF\"", "\"\\!\\(\\*SubscriptBox[\\(G\\), \ \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+LDA\"", "\"\\!\\(\\*SubscriptBox[\\(G\\), \ \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+PBE\""}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 15}, {30, 15}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { InsetBox[ FormBox[ StyleBox["\"\[FilledCircle]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {30, 15}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.23333333333333334`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 15}, {30, 15}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { InsetBox[ FormBox[ StyleBox["\"\[FilledSquare]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {30, 15}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.23333333333333334`] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 15}, {30, 15}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { InsetBox[ FormBox[ StyleBox["\"\[FilledDiamond]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {30, 15}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.23333333333333334`] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.9, 0.36, 0.054], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], NumberMarks -> False]], 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.9, 0.36, 0.054]; 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.9, 0.36, 0.054], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.365248, 0.427802, 0.758297], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.2434986666666667, 0.28520133333333336`, 0.5055313333333333], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}], "]"}], NumberMarks -> False]], 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.365248, 0.427802, 0.758297]; 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.365248, 0.427802, 0.758297], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.945109, 0.593901, 0.], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}], "]"}], NumberMarks -> False]], 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.945109, 0.593901, 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.945109, 0.593901, 0.], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\[FilledCircle]\"", ",", "Large"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\[FilledSquare]\"", ",", "Large"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\[FilledDiamond]\"", ",", "Large"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], TraditionalForm]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}}], "Grid"], Scaled[{0.99, 0.01}], ImageScaled[{1, 0}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.75, 24.3}, BaseStyle->20, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"IP (eV)\"", TraditionalForm], None}, { FormBox["\"cc-pVXZ\"", TraditionalForm], None}}, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {{{2, FormBox["2", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}}, {{2, FormBox["2", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}}}}, {{Automatic, {{24.3, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {24.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {24.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {24.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {24.7, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {24.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {24.32, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.34, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.36, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.38, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.42, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.44, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.46, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.48, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.52, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.54, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.56, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.58, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.62, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.64, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.66, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.68, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.72, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.74, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.76, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24.78, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {{{2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}}, {{2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->Large, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1.75, 4.25}, {24.3, 24.8}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], Line[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfenAS1EGhg/2DCBwwMJhXYVRyJkFCH6nQfWkGY4f 4Xwd7S+idvM+wfmP7Se8PvH4M5zvPcX61welr3D+guJz/Gq13+B8jtyWcocD 3+H82I+Kz9LlfsL5KVvP9eqU/YLz6ybPa7+27Tec3/ontKNX6C+cP7/e4LZm +D84P9tJKj156n84X/DE1z8h5QwOMP733/nvsyQY4fzgr7Gp7McR/I6+y+VF RUxw/vEtUcYBQsxwfs2C0KIt+xF8a8mkqO5EFji/IPzR0RcCrHB+nemrsyJ7 EfxpC5jrN8eywfkqFydsvsHNDufv6dOfWLAOwdd9E8p93ZcDzhfh/8Bx5BeC z7p/9nrlOZxwfo7J7puc3lxw/hrPpAX7viH4315LCTybxg3nbwt2Z57iwgPn N3i0zt/yDMFXuut1Y3ErL8K/5i1TJI344PxYufM/GS8j+N9O9T4qaOSH832Y 9K00hQTgfK73UYGMSQh+8z6HVXN2IPiNIevDCzkF4Xyrs9fdOBMR/PuiLi0c 2xF8TlVLMUd2ITj/ndiLlzZxCH7EeXmhovUI/vrw2R18/xH8g4cuOOSFCiPU f+nzZV+G4As5cS1hvozgn+lv/fX/P4IPAGpk81I= "]]}, "Charting`Private`Tag$1518542#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Line[{{2., 24.36}, {3., 24.58}, {4., 24.68}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Line[{{2., 24.63}, {3., 24.69}, {4., 24.73}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Line[{{2., 24.66}, {3., 24.69}, {4., 24.72}}]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large], AbsolutePointSize[6]], GeometricTransformation[ Inset[ Style["\[FilledCircle]", FontSize -> Large], {0., 0.}], {{{2., 24.36}}, {{3., 24.58}}, {{4., 24.68}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large], AbsolutePointSize[6]], GeometricTransformation[ Inset[ Style["\[FilledSquare]", FontSize -> Large], {0., 0.}], {{{2., 24.63}}, {{3., 24.69}}, {{4., 24.73}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large], AbsolutePointSize[6]], GeometricTransformation[ Inset[ Style["\[FilledDiamond]", FontSize -> Large], {0., 0.}], {{{2., 24.66}}, {{3., 24.69}}, {{4., 24.72}}}]}, {}}}, {}, {}, {}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1.75, 24.3}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {{2, 3, 4}, {2, 3, 4}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {1.75, 24.3}, BaseStyle -> 20, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{"IP (eV)", None}, {"cc-pVXZ", None}}, FrameTicks -> {{Automatic, Automatic}, {{2, 3, 4}, {2, 3, 4}}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Large, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1.75, 4.25}, {24.3, 24.8}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.012833333333333334`], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]]}, { "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF", "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+LDA", "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+PBE"}, LegendMarkers -> {{"\[FilledCircle]", Large}, { "\[FilledSquare]", Large}, {"\[FilledDiamond]", Large}}, Joined -> {True, True, True}, LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]]], {Right, Bottom}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{{3.772468023426139*^9, 3.7724680690351477`*^9}, 3.772468151265609*^9, 3.772468210751346*^9, 3.772469895940023*^9, 3.777807068118823*^9, {3.777807129701228*^9, 3.777807199879917*^9}}, CellLabel-> "Out[718]=",ExpressionUUID->"be2348c6-e535-403e-9b0c-128067ccc609"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Be", "Title", CellChangeTimes->{{3.772430574590828*^9, 3.7724305746695147`*^9}, 3.772474450615571*^9},ExpressionUUID->"245e739d-00cb-4950-9372-\ 2008b839788b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"9.003234", "+", RowBox[{"3.5289491399727222", " ", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "HaToeV"}]}], "\[IndentingNewLine]", RowBox[{"9.070871", "+", RowBox[{"1.5384643609035154", " ", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "HaToeV"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"+", "7.1162043674952277"}], " ", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "HaToeV"}]}], "Input", CellChangeTimes->{{3.772429347253153*^9, 3.77242936991623*^9}, { 3.772429427478623*^9, 3.772429430319044*^9}, {3.772430358625258*^9, 3.7724303778856297`*^9}, {3.772430436676454*^9, 3.772430438288602*^9}, { 3.772430623720945*^9, 3.7724306310331097`*^9}, {3.7724307113328867`*^9, 3.772430734859529*^9}, {3.772472792562114*^9, 3.772472807486208*^9}, { 3.772474501533341*^9, 3.772474524154377*^9}, {3.772474560368443*^9, 3.772474577586804*^9}, {3.772474732013101*^9, 3.772474736110201*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"373d7586-fc48-4b66-b07e-794970b71feb"], Cell[BoxData["9.099261597292745`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.772472808065428*^9, 3.772474526522191*^9, 3.772474561333946*^9, 3.772474659808097*^9, { 3.772474733403874*^9, 3.7724747365377617`*^9}}, CellLabel->"Out[15]=",ExpressionUUID->"0bb9d947-b47c-4f57-bad9-bc6d71585312"], Cell[BoxData["9.112734747602559`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.772472808065428*^9, 3.772474526522191*^9, 3.772474561333946*^9, 3.772474659808097*^9, { 3.772474733403874*^9, 3.772474736552699*^9}}, CellLabel->"Out[16]=",ExpressionUUID->"cf86eb7b-ce9d-4d47-b702-3b7d509aa96c"], Cell[BoxData["0.019364178404112257`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.772472808065428*^9, 3.772474526522191*^9, 3.772474561333946*^9, 3.772474659808097*^9, { 3.772474733403874*^9, 3.772474736563587*^9}}, CellLabel->"Out[17]=",ExpressionUUID->"1aba5d1c-cec6-427e-aeda-f4d6b6294296"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{"9.16", ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.75", ",", "4.25"}], "}"}], ",", RowBox[{"{", RowBox[{"8.98", ",", "9.18"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"BaseStyle", "\[Rule]", "14"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", "Automatic"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9.00"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9.07"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ","}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "9.10"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9.11"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ","}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Large"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF\>\"", ",", "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+LDA\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.772429726119466*^9, 3.7724301837308407`*^9}, { 3.772430328179091*^9, 3.7724303298483562`*^9}, {3.77243044666621*^9, 3.772430502661869*^9}, {3.772430618762464*^9, 3.77243063958919*^9}, { 3.7724307046460648`*^9, 3.7724307180838757`*^9}, {3.7724745934467163`*^9, 3.772474646584152*^9}, {3.7724747453758793`*^9, 3.772474772379685*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"53bcb02c-3b48-4554-a823-9cc5e7b2ba27"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfenAS1EGhg/2QTvkWl8HKjmsqzAKObMAwe80qJ40 w/EjnK+j/UXUbt4nOP+x/YTXJx5/hvO9p1j/+qD0Fc5fUHyOX632G5zPkdtS 7nDgO5wf+1HxWbrcTzg/Zeu5Xp2yX3B+3eR57de2/YbzW/+EdvQK/YXz59cb 3NYM/wfnZztJpSdP/Q/nC574+ieknMEBxv/+O/99lgQjnB/8NTaV/TiC39F3 ubyoiAnOP74lyjhAiBnOr1kQWrRlP4JvLZkU1Z3IAucXhD86+kKAFc6vM311 VmQvgj9tAXP95lg2OF/l4oTNN7jZ4fw9ffoTC9Yh+LpvQrmv+3LA+SL8HziO /ELwWffPXq88hxPOzzHZfZPTmwvOX+OZtGDfNwT/22spgWfTuOH8bcHuzFNc eOD8Bo/W+VueIfhKd71uLG7lRfjXvGWKpBEfnB8rd/4n42UE/9up3kcFjfxw vg+TvpWmkACcz/U+KpAxCcFv3uewas4OBL8xZH14IacgnG919robZyKCf1/U pYVjO4LPqWop5sguBOe/E3vx0iYOwY84Ly9UtB7BXx8+u4PvP4J/8NAFh7xQ YYT6L32+7MsQfCEnriXMlxH8M/2tv/7/R/ABBCVfPQ== "]]}, Annotation[#, "Charting`Private`Tag$3791#1"]& ]}, {}, {}}, {{}, {{{}, {}, {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], Thickness[Large], CapForm["Butt"], LineBox[{{2., 9.}, {3., 9.07}}]}, {RGBColor[0.365248, 0.427802, 0.758297], PointSize[ 0.012833333333333334`], Thickness[Large], CapForm["Butt"], LineBox[{{2., 9.1}, {3., 9.11}}]}}, { {RGBColor[0.9, 0.36, 0.054], AbsolutePointSize[6], Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Large], {0., 0.}], {{{2., 9.}}, {{3., 9.07}}}]}, {RGBColor[0.365248, 0.427802, 0.758297], AbsolutePointSize[6], Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Large], {0., 0.}], {{{2., 9.1}}, {{3., 9.11}}}]}, {}}}, {}, {}, {}, {}}}, InsetBox[ TagBox[GridBox[{ { FormBox[ TemplateBox[{"\"CBS\""}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]], 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 = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], TraditionalForm]}, { FormBox[ TemplateBox[{ "\"\\!\\(\\*SubscriptBox[\\(G\\), \ \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF\"", "\"\\!\\(\\*SubscriptBox[\\(G\\), \ \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+LDA\""}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 15}, {30, 15}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { InsetBox[ FormBox[ StyleBox["\"\[FilledCircle]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {30, 15}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.23333333333333334`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 15}, {30, 15}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { InsetBox[ FormBox[ StyleBox["\"\[FilledSquare]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {30, 15}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.23333333333333334`] -> Baseline)], #2}}, 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 -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.9, 0.36, 0.054], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], NumberMarks -> False]], 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.9, 0.36, 0.054]; 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.9, 0.36, 0.054], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.365248, 0.427802, 0.758297], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.2434986666666667, 0.28520133333333336`, 0.5055313333333333], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}], "]"}], NumberMarks -> False]], 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.365248, 0.427802, 0.758297]; 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.365248, 0.427802, 0.758297], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\[FilledCircle]\"", ",", "Large"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\[FilledSquare]\"", ",", "Large"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], TraditionalForm]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}}], "Grid"], Scaled[{0.99, 0.01}], ImageScaled[{1, 0}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.75, 8.98}, BaseStyle->14, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"IP (eV)\"", TraditionalForm], None}, { FormBox["\"cc-pVXZ\"", TraditionalForm], None}}, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {{{2, FormBox["2", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}}, {{2, FormBox["2", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}}}}, {{Automatic, {{9., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {9.05, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {9.1, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {9.15, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {8.95, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8.96, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8.97, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8.98, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8.99, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.01, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.02, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.03, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.04, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.06, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.07, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.08, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.09, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.11, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.12, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.13, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.14, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.16, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.17, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.18, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.19, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {{{2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}}, {{2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1.75, 4.25}, {8.98, 9.18}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], Line[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfenAS1EGhg/2QTvkWl8HKjmsqzAKObMAwe80qJ40 w/EjnK+j/UXUbt4nOP+x/YTXJx5/hvO9p1j/+qD0Fc5fUHyOX632G5zPkdtS 7nDgO5wf+1HxWbrcTzg/Zeu5Xp2yX3B+3eR57de2/YbzW/+EdvQK/YXz59cb 3NYM/wfnZztJpSdP/Q/nC574+ieknMEBxv/+O/99lgQjnB/8NTaV/TiC39F3 ubyoiAnOP74lyjhAiBnOr1kQWrRlP4JvLZkU1Z3IAucXhD86+kKAFc6vM311 VmQvgj9tAXP95lg2OF/l4oTNN7jZ4fw9ffoTC9Yh+LpvQrmv+3LA+SL8HziO /ELwWffPXq88hxPOzzHZfZPTmwvOX+OZtGDfNwT/22spgWfTuOH8bcHuzFNc eOD8Bo/W+VueIfhKd71uLG7lRfjXvGWKpBEfnB8rd/4n42UE/9up3kcFjfxw vg+TvpWmkACcz/U+KpAxCcFv3uewas4OBL8xZH14IacgnG919robZyKCf1/U pYVjO4LPqWop5sguBOe/E3vx0iYOwY84Ly9UtB7BXx8+u4PvP4J/8NAFh7xQ YYT6L32+7MsQfCEnriXMlxH8M/2tv/7/R/ABBCVfPQ== "]]}, "Charting`Private`Tag$3791#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Line[{{2., 9.}, {3., 9.07}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Line[{{2., 9.1}, {3., 9.11}}]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large], AbsolutePointSize[6]], GeometricTransformation[ Inset[ Style["\[FilledCircle]", FontSize -> Large], {0., 0.}], {{{2., 9.}}, {{3., 9.07}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large], AbsolutePointSize[6]], GeometricTransformation[ Inset[ Style["\[FilledSquare]", FontSize -> Large], {0., 0.}], {{{2., 9.1}}, {{3., 9.11}}}]}, {}}}, {}, {}, {}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1.75, 8.98}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {{2, 3, 4}, {2, 3, 4}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {1.75, 8.98}, BaseStyle -> 14, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{"IP (eV)", None}, {"cc-pVXZ", None}}, FrameTicks -> {{Automatic, Automatic}, {{2, 3, 4}, {2, 3, 4}}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1.75, 4.25}, {8.98, 9.18}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]]}, { "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF", "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+LDA"}, LegendMarkers -> {{"\[FilledCircle]", Large}, { "\[FilledSquare]", Large}}, Joined -> {True, True}, LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]]], { Right, Bottom}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.7724303304400377`*^9, {3.772430487010181*^9, 3.772430503277244*^9}, 3.7724306043631973`*^9, 3.772430640497435*^9, 3.772430719002994*^9, 3.77247465827149*^9, {3.7724747523741713`*^9, 3.772474773205565*^9}}, CellLabel->"Out[21]=",ExpressionUUID->"802aeda6-cc4b-4419-89df-9093141b8eca"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Ne", "Title", CellChangeTimes->{{3.772430574590828*^9, 3.7724305746695147`*^9}},ExpressionUUID->"a79f1a1e-df92-4079-943d-\ ed3a9bb5ea38"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"20.878968", "+", RowBox[{"1.8422939303166647", " ", SuperscriptBox["10", RowBox[{"-", "2"}]], " ", "HaToeV"}]}], "\[IndentingNewLine]", RowBox[{"21.404511", "+", RowBox[{"1.0042535137391237", " ", SuperscriptBox["10", RowBox[{"-", "2"}]], " ", "HaToeV"}]}], "\[IndentingNewLine]", RowBox[{"21.67", "+", RowBox[{"5.5786950512462814", " ", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "HaToeV"}]}]}], "Input", CellChangeTimes->{{3.772429347253153*^9, 3.77242936991623*^9}, { 3.772429427478623*^9, 3.772429430319044*^9}, {3.772430358625258*^9, 3.7724303778856297`*^9}, {3.772430436676454*^9, 3.772430438288602*^9}, { 3.772430623720945*^9, 3.7724306310331097`*^9}, {3.7724307113328867`*^9, 3.772430734859529*^9}, {3.772472792562114*^9, 3.772472807486208*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"0f5a4f7e-c53a-432f-a707-75576db1f79f"], Cell[BoxData["21.380281713001498`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.772472808065428*^9}, CellLabel->"Out[10]=",ExpressionUUID->"4aef0d3d-d0de-43cd-bdbf-6285f7699519"], Cell[BoxData["21.677782300242967`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.77247280808403*^9}, CellLabel->"Out[11]=",ExpressionUUID->"00d740a1-4ac8-4390-a20b-8294056a9caf"], Cell[BoxData["21.821804024527328`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.772472808093931*^9}, CellLabel->"Out[12]=",ExpressionUUID->"6321be54-47da-453f-98cc-0e00b819f613"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"20.878968", "+", RowBox[{"2.4460116601744457", " ", SuperscriptBox["10", RowBox[{"-", "2"}]], " ", "HaToeV"}]}], "\[IndentingNewLine]", RowBox[{"21.404511", "+", RowBox[{"1.2371471217431925", " ", SuperscriptBox["10", RowBox[{"-", "2"}]], " ", "HaToeV"}]}], "\[IndentingNewLine]", RowBox[{"21.67", "+", RowBox[{"6.1439494038125981", " ", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "HaToeV"}]}]}], "Input", CellChangeTimes->{{3.772429347253153*^9, 3.77242936991623*^9}, { 3.772429427478623*^9, 3.772429430319044*^9}, {3.772430358625258*^9, 3.7724303778856297`*^9}, {3.772430436676454*^9, 3.772430438288602*^9}, { 3.772430623720945*^9, 3.7724306310331097`*^9}, {3.7724307113328867`*^9, 3.772430734859529*^9}, {3.772472792562114*^9, 3.772472807486208*^9}, { 3.7778072545214643`*^9, 3.777807263382845*^9}}, CellLabel-> "In[719]:=",ExpressionUUID->"519901b5-456d-4539-803f-59a7df25b1a2"], Cell[BoxData["21.54456167494428`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.772472808065428*^9, 3.7778072640717793`*^9}, CellLabel-> "Out[719]=",ExpressionUUID->"0069566d-19a2-4457-ab06-5febe67f4f29"], Cell[BoxData["21.741155878932858`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.772472808065428*^9, 3.777807264091223*^9}, CellLabel-> "Out[720]=",ExpressionUUID->"06f911fb-14f0-462a-99a9-d99f8c7953fb"], Cell[BoxData["21.837185378914494`"], "Output", CellChangeTimes->{{3.7724293529172583`*^9, 3.7724293705495987`*^9}, 3.772429430618355*^9, {3.772430362772705*^9, 3.772430378302226*^9}, 3.772430438838801*^9, {3.772430624968225*^9, 3.772430631440625*^9}, { 3.772430712339223*^9, 3.77243073572173*^9}, 3.772472808065428*^9, 3.7778072641020823`*^9}, CellLabel-> "Out[721]=",ExpressionUUID->"9f2a94f5-9c53-4c9e-aec8-47fdb8bbfe4c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{"21.93", ",", RowBox[{"{", RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Thick", ",", "Black"}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.75", ",", "4.25"}], "}"}], ",", RowBox[{"{", RowBox[{"20.6", ",", "22.0"}], "}"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"BaseStyle", "\[Rule]", "20"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "4"}], "}"}], ",", "Automatic"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "20.88"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "21.40"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "21.67"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "21.38"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "21.68"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "21.82"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "21.54"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "21.74"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "21.84"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Large"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF\>\"", ",", "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+LDA\>\"", ",", "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+PBE\>\""}], "}"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.772429726119466*^9, 3.7724301837308407`*^9}, { 3.772430328179091*^9, 3.7724303298483562`*^9}, {3.77243044666621*^9, 3.772430502661869*^9}, {3.772430618762464*^9, 3.77243063958919*^9}, { 3.7724307046460648`*^9, 3.7724307180838757`*^9}, {3.777807272532242*^9, 3.7778073246022043`*^9}}, CellLabel-> "In[724]:=",ExpressionUUID->"567a0f09-1d4d-499c-9857-63e7471c4f01"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfenAS1EGhg/269wfVom8M3VYV2EUcmYBgt9pUD1p huNHOF9H+4uo3bxPcP5j+wmvTzz+DOd7T7H+9UHpK5y/oPgcv1rtNzifI7el 3OHAdzg/9qPis3S5n3B+ytZzvTplv+D8usnz2q9t+w3nt/4J7egV+gvnz683 uK0Z/g/Oz3aSSk+e+h/OFzzx9U9IOYMDjP/9d/77LAlGOD/4a2wq+3EEv6Pv cnlREROcf3xLlHGAEDOcX7MgtGjLfgTfWjIpqjuRBc4vCH909IUAK5xfZ/rq rMheBH/aAub6zbFscL7KxQmbb3Czw/l7+vQnFqxD8HXfhHJf9+WA80X4P3Ac +YXgs+6fvV55Diecn2Oy+yanNxecv8YzacG+bwj+t9dSAs+mccP524Ldmae4 8MD5DR6t87c8Q/CV7nrdWNzKi/CvecsUSSM+OD9W7vxPxssI/rdTvY8KGvnh fB8mfStNIQE4n+t9VCBjEoLfvM9h1ZwdCH5jyPrwQk5BON/q7HU3zkQE/76o SwvHdgSfU9VSzJFdCM5/J/bipU0cgh9xXl6oaD2Cvz58dgfffwT/4KELDnmh wgj1X/p82Zch+EJOXEuYLyP4Z/pbf/3/j+ADALsBeG0= "]]}, Annotation[#, "Charting`Private`Tag$1519010#1"]& ]}, {}, {}}, {{}, {{{}, {}, {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], Thickness[Large], CapForm["Butt"], LineBox[{{2., 20.88}, {3., 21.4}, {4., 21.67}}]}, {RGBColor[0.365248, 0.427802, 0.758297], PointSize[ 0.012833333333333334`], Thickness[Large], CapForm["Butt"], LineBox[{{2., 21.38}, {3., 21.68}, {4., 21.82}}]}, {RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`], Thickness[Large], CapForm["Butt"], LineBox[{{2., 21.54}, {3., 21.74}, {4., 21.84}}]}}, { {RGBColor[0.9, 0.36, 0.054], AbsolutePointSize[6], Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledCircle]\"\>", StripOnInput->False, FontSize->Large], {0., 0.}], {{{2., 20.88}}, {{3., 21.4}}, {{4., 21.67}}}]}, {RGBColor[0.365248, 0.427802, 0.758297], AbsolutePointSize[6], Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledSquare]\"\>", StripOnInput->False, FontSize->Large], {0., 0.}], {{{2., 21.38}}, {{3., 21.68}}, {{4., 21.82}}}]}, {RGBColor[0.945109, 0.593901, 0.], AbsolutePointSize[6], Thickness[ Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ StyleBox["\<\"\[FilledDiamond]\"\>", StripOnInput->False, FontSize->Large], {0., 0.}], {{{2., 21.54}}, {{3., 21.74}}, {{4., 21.84}}}]}, {}}}, {}, {}, {}, {}}}, InsetBox[ TagBox[GridBox[{ { FormBox[ TemplateBox[{"\"CBS\""}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 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]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"GrayLevel", "[", "0", "]"}], NumberMarks -> False]], 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 = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], TraditionalForm]}, { FormBox[ TemplateBox[{ "\"\\!\\(\\*SubscriptBox[\\(G\\), \ \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF\"", "\"\\!\\(\\*SubscriptBox[\\(G\\), \ \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+LDA\"", "\"\\!\\(\\*SubscriptBox[\\(G\\), \ \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+PBE\""}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 15}, {30, 15}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { InsetBox[ FormBox[ StyleBox["\"\[FilledCircle]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {30, 15}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.23333333333333334`] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 15}, {30, 15}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { InsetBox[ FormBox[ StyleBox["\"\[FilledSquare]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {30, 15}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.23333333333333334`] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 15}, {30, 15}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], { InsetBox[ FormBox[ StyleBox["\"\[FilledDiamond]\"", Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.154], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> False], TraditionalForm], NCache[ Scaled[{ Rational[1, 2], Rational[1, 2]}], Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, ImageSize -> {30, 15}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.23333333333333334`] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.9, 0.36, 0.054], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.9`", ",", "0.36`", ",", "0.054`"}], "]"}], NumberMarks -> False]], 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.9, 0.36, 0.054]; 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.9, 0.36, 0.054], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.365248, 0.427802, 0.758297], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.2434986666666667, 0.28520133333333336`, 0.5055313333333333], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.365248`", ",", "0.427802`", ",", "0.758297`"}], "]"}], NumberMarks -> False]], 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.365248, 0.427802, 0.758297]; 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.365248, 0.427802, 0.758297], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.945109, 0.593901, 0.], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6300726666666667, 0.395934, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.945109`", ",", "0.593901`", ",", "0.`"}], "]"}], NumberMarks -> False]], 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.945109, 0.593901, 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.945109, 0.593901, 0.], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\[FilledCircle]\"", ",", "Large"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\[FilledSquare]\"", ",", "Large"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\[FilledDiamond]\"", ",", "Large"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], TraditionalForm]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}}], "Grid"], Scaled[{0.99, 0.01}], ImageScaled[{1, 0}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.75, 20.6}, BaseStyle->20, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"IP (eV)\"", TraditionalForm], None}, { FormBox["\"cc-pVXZ\"", TraditionalForm], None}}, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {{{2, FormBox["2", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}}, {{2, FormBox["2", TraditionalForm]}, {3, FormBox["3", TraditionalForm]}, {4, FormBox["4", TraditionalForm]}}}}, {{Automatic, {{20.75, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {21., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {21.25, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {21.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {21.75, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20.5, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.55, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.65, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.7, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.85, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {20.95, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.05, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.1, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.15, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.2, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.3, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.35, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.4, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.45, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.55, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.6, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.65, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.7, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.8, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.85, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.9, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21.95, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {{{2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}}, {{2., FormBox["2", TraditionalForm]}, {3., FormBox["3", TraditionalForm]}, {4., FormBox["4", TraditionalForm]}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->Large, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1.75, 4.25}, {20.6, 22.}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], Line[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfenAS1EGhg/269wfVom8M3VYV2EUcmYBgt9pUD1p huNHOF9H+4uo3bxPcP5j+wmvTzz+DOd7T7H+9UHpK5y/oPgcv1rtNzifI7el 3OHAdzg/9qPis3S5n3B+ytZzvTplv+D8usnz2q9t+w3nt/4J7egV+gvnz683 uK0Z/g/Oz3aSSk+e+h/OFzzx9U9IOYMDjP/9d/77LAlGOD/4a2wq+3EEv6Pv cnlREROcf3xLlHGAEDOcX7MgtGjLfgTfWjIpqjuRBc4vCH909IUAK5xfZ/rq rMheBH/aAub6zbFscL7KxQmbb3Czw/l7+vQnFqxD8HXfhHJf9+WA80X4P3Ac +YXgs+6fvV55Diecn2Oy+yanNxecv8YzacG+bwj+t9dSAs+mccP524Ldmae4 8MD5DR6t87c8Q/CV7nrdWNzKi/CvecsUSSM+OD9W7vxPxssI/rdTvY8KGvnh fB8mfStNIQE4n+t9VCBjEoLfvM9h1ZwdCH5jyPrwQk5BON/q7HU3zkQE/76o SwvHdgSfU9VSzJFdCM5/J/bipU0cgh9xXl6oaD2Cvz58dgfffwT/4KELDnmh wgj1X/p82Zch+EJOXEuYLyP4Z/pbf/3/j+ADALsBeG0= "]]}, "Charting`Private`Tag$1519010#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Line[{{2., 20.88}, {3., 21.4}, {4., 21.67}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Line[{{2., 21.38}, {3., 21.68}, {4., 21.82}}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Line[{{2., 21.54}, {3., 21.74}, {4., 21.84}}]}}, {{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large], AbsolutePointSize[6]], GeometricTransformation[ Inset[ Style["\[FilledCircle]", FontSize -> Large], {0., 0.}], {{{2., 20.88}}, {{3., 21.4}}, {{4., 21.67}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large], AbsolutePointSize[6]], GeometricTransformation[ Inset[ Style["\[FilledSquare]", FontSize -> Large], {0., 0.}], {{{2., 21.38}}, {{3., 21.68}}, {{4., 21.82}}}]}, { Directive[ PointSize[0.012833333333333334`], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large], AbsolutePointSize[6]], GeometricTransformation[ Inset[ Style["\[FilledDiamond]", FontSize -> Large], {0., 0.}], {{{2., 21.54}}, {{3., 21.74}}, {{4., 21.84}}}]}, {}}}, {}, {}, {}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {1.75, 20.6}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {{2, 3, 4}, {2, 3, 4}}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {1.75, 20.6}, BaseStyle -> 20, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{"IP (eV)", None}, {"cc-pVXZ", None}}, FrameTicks -> {{Automatic, Automatic}, {{2, 3, 4}, {2, 3, 4}}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Large, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1.75, 4.25}, {20.6, 22.}}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.012833333333333334`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.012833333333333334`], RGBColor[0.365248, 0.427802, 0.758297], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]], Directive[ PointSize[0.012833333333333334`], RGBColor[0.945109, 0.593901, 0.], CapForm["Butt"], AbsoluteThickness[1.6], Thickness[Large]]}, { "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF", "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+LDA", "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ \(0\)]\)@HF+PBE"}, LegendMarkers -> {{"\[FilledCircle]", Large}, { "\[FilledSquare]", Large}, {"\[FilledDiamond]", Large}}, Joined -> {True, True, True}, LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]]], {Right, Bottom}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.7724303304400377`*^9, {3.772430487010181*^9, 3.772430503277244*^9}, 3.7724306043631973`*^9, 3.772430640497435*^9, 3.772430719002994*^9, { 3.7778072956726093`*^9, 3.7778073295291977`*^9}}, CellLabel-> "Out[724]=",ExpressionUUID->"cce1cde9-61b7-4939-930f-d4f0df8c5c25"] }, Open ]] }, Open ]] }, WindowSize->{1300, 1391}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2018)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 157, 3, 98, "Title",ExpressionUUID->"1beb757f-3ad3-4eb2-a4e7-cdf5ee9b6192"], Cell[740, 27, 258, 6, 46, "Input",ExpressionUUID->"290a14c6-8e84-41b9-93bf-5338bcd81260", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ Cell[1035, 38, 306, 4, 72, "Title",ExpressionUUID->"cc8f10f6-dee0-4be6-9b95-a2b645508bc1"], Cell[1344, 44, 762, 22, 32, "Input",ExpressionUUID->"f09b5b1d-fcfa-4277-b055-8d013d150e51"], Cell[2109, 68, 453, 14, 51, "Input",ExpressionUUID->"2adb86e5-1613-4560-afb2-c874c93162cc"], Cell[2565, 84, 471, 14, 50, "Input",ExpressionUUID->"e471ce7c-fc48-482e-8bea-3e9e0179671c"], Cell[3039, 100, 1207, 40, 52, "Input",ExpressionUUID->"d1a8b6ea-55ae-4a5e-8673-b9734def02ca"], Cell[4249, 142, 1033, 35, 52, "Input",ExpressionUUID->"8257931c-d5a2-4fa5-bfcf-242ed662fad5"], Cell[CellGroupData[{ Cell[5307, 181, 249, 4, 67, "Section",ExpressionUUID->"da7db347-895a-4445-adf0-185e3e7ae4bc"], Cell[5559, 187, 2180, 58, 69, "Input",ExpressionUUID->"2424c22e-2944-42fb-a926-6931d6b950db"], Cell[7742, 247, 631, 17, 50, "Input",ExpressionUUID->"5e7071ef-4b10-4195-9ab5-72086ae9360d"], Cell[8376, 266, 1501, 41, 53, "Input",ExpressionUUID->"431fbccd-665c-479c-825d-74e37905a953"], Cell[9880, 309, 2439, 73, 115, "Input",ExpressionUUID->"68450462-8882-467d-85de-668cca5b67df"], Cell[12322, 384, 2917, 88, 210, "Input",ExpressionUUID->"76293f49-0f9c-448d-9fa4-7a7821619364"], Cell[15242, 474, 1627, 46, 53, "Input",ExpressionUUID->"7b438198-7fff-4469-8902-d63008ab1edd"], Cell[16872, 522, 1439, 41, 53, "Input",ExpressionUUID->"bb62c6dd-19f1-49b0-93ed-7a72089471a5"], Cell[18314, 565, 1518, 44, 112, "Input",ExpressionUUID->"1b3202c0-1ab4-429c-8dba-a60935c07597"], Cell[19835, 611, 883, 23, 52, "Input",ExpressionUUID->"30aeeec3-f7a5-4138-bd8c-548696d2f752"], Cell[CellGroupData[{ Cell[20743, 638, 563, 12, 30, "Input",ExpressionUUID->"408e19ad-23db-4b1a-8d84-8acca9835fae"], Cell[21309, 652, 386, 6, 34, "Output",ExpressionUUID->"0b40f4ad-6233-4b3d-8a80-07aca06e731a"] }, Open ]], Cell[CellGroupData[{ Cell[21732, 663, 282, 6, 30, "Input",ExpressionUUID->"7d031781-f5af-40e6-b079-1bc0fdb02f2b"], Cell[22017, 671, 3550, 64, 531, "Output",ExpressionUUID->"e8c89351-e3be-455d-b993-40a6da00af8b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25616, 741, 156, 3, 67, "Section",ExpressionUUID->"1774903d-cd4a-427c-913b-6d03354a574f"], Cell[25775, 746, 968, 30, 57, "Input",ExpressionUUID->"a08e663f-6de1-46b7-a344-1b47fcd2e96e"], Cell[26746, 778, 975, 31, 33, "Input",ExpressionUUID->"760031e2-bb91-4ce7-8b6e-8566604d6f6c"], Cell[27724, 811, 1090, 39, 65, "Input",ExpressionUUID->"be645cf4-80f8-46a4-a854-7e7f3cf3adaa"], Cell[28817, 852, 640, 20, 33, "Input",ExpressionUUID->"2bcddbd2-7cce-438d-a1b4-20e94d4eb82b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[29506, 878, 145, 3, 72, "Title",ExpressionUUID->"8560674c-80e3-4647-b8fa-49b81ccb3c6e"], Cell[CellGroupData[{ Cell[29676, 885, 3722, 93, 220, "Input",ExpressionUUID->"fb1401d0-520f-4c9a-9551-8aab77191071"], Cell[33401, 980, 36469, 781, 410, "Output",ExpressionUUID->"be2348c6-e535-403e-9b0c-128067ccc609"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[69919, 1767, 170, 3, 98, "Title",ExpressionUUID->"245e739d-00cb-4950-9372-2008b839788b"], Cell[CellGroupData[{ Cell[70114, 1774, 1046, 20, 73, "Input",ExpressionUUID->"373d7586-fc48-4b66-b07e-794970b71feb"], Cell[71163, 1796, 531, 7, 34, "Output",ExpressionUUID->"0bb9d947-b47c-4f57-bad9-bc6d71585312"], Cell[71697, 1805, 529, 7, 34, "Output",ExpressionUUID->"cf86eb7b-ce9d-4d47-b702-3b7d509aa96c"], Cell[72229, 1814, 532, 7, 34, "Output",ExpressionUUID->"1aba5d1c-cec6-427e-aeda-f4d6b6294296"] }, Open ]], Cell[CellGroupData[{ Cell[72798, 1826, 3144, 78, 136, "Input",ExpressionUUID->"53bcb02c-3b48-4554-a823-9cc5e7b2ba27"], Cell[75945, 1906, 29931, 646, 269, "Output",ExpressionUUID->"802aeda6-cc4b-4419-89df-9093141b8eca"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[105925, 2558, 147, 3, 72, "Title",ExpressionUUID->"a79f1a1e-df92-4079-943d-ed3a9bb5ea38"], Cell[CellGroupData[{ Cell[106097, 2565, 915, 18, 73, "Input",ExpressionUUID->"0f5a4f7e-c53a-432f-a707-75576db1f79f"], Cell[107015, 2585, 410, 5, 34, "Output",ExpressionUUID->"4aef0d3d-d0de-43cd-bdbf-6285f7699519"], Cell[107428, 2592, 409, 5, 34, "Output",ExpressionUUID->"00d740a1-4ac8-4390-a20b-8294056a9caf"], Cell[107840, 2599, 410, 5, 34, "Output",ExpressionUUID->"6321be54-47da-453f-98cc-0e00b819f613"] }, Open ]], Cell[CellGroupData[{ Cell[108287, 2609, 970, 20, 73, "Input",ExpressionUUID->"519901b5-456d-4539-803f-59a7df25b1a2"], Cell[109260, 2631, 441, 7, 34, "Output",ExpressionUUID->"0069566d-19a2-4457-ab06-5febe67f4f29"], Cell[109704, 2640, 440, 7, 34, "Output",ExpressionUUID->"06f911fb-14f0-462a-99a9-d99f8c7953fb"], Cell[110147, 2649, 442, 7, 34, "Output",ExpressionUUID->"9f2a94f5-9c53-4c9e-aec8-47fdb8bbfe4c"] }, Open ]], Cell[CellGroupData[{ Cell[110626, 2661, 3728, 93, 262, "Input",ExpressionUUID->"567a0f09-1d4d-499c-9857-63e7471c4f01"], Cell[114357, 2756, 37168, 797, 410, "Output",ExpressionUUID->"cce1cde9-61b7-4939-930f-d4f0df8c5c25"] }, Open ]] }, Open ]] } ] *)