loos/srDFT_GW
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
8c5b18be32
srDFT_GW/srLDA.nb

3658 lines
153 KiB
Mathematica
Raw Blame History

(* 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[{"\"\<cc-pVXZ\>\"", ",", "\"\<IP (eV)\>\""}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"{", "\"\<CBS\>\"", "}"}], ",",
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]", "\"\<Scientific\>\""}], ",",
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[{"\"\<cc-pVXZ\>\"", ",", "\"\<IP (eV)\>\""}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"{", "\"\<CBS\>\"", "}"}], ",",
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]", "\"\<Scientific\>\""}], ",",
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[{"\"\<cc-pVXZ\>\"", ",", "\"\<IP (eV)\>\""}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"Placed", "[",
RowBox[{
RowBox[{"{", "\"\<CBS\>\"", "}"}], ",",
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]", "\"\<Scientific\>\""}], ",",
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 ]]
}
]
*)
Reference in New Issue View Git Blame Copy Permalink