loos/srDFT_GW
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
57f884bab5
srDFT_GW/srLDA.nb
Pierre-Francois Loos 57f884bab5 data
2019-10-01 22:09:37 +02:00

3335 lines
133 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[ 136310, 3326]
NotebookOptionsPosition[ 131499, 3241]
NotebookOutlinePosition[ 131852, 3257]
CellTagsIndexPosition[ 131809, 3254]
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[296]:=",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[{"ListPlot", "[",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "24.36"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "24.57"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "24.67"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "24.72"}], "}"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "24.63"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "24.69"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "24.73"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",",
RowBox[{"24.72", "+", "0.03"}]}], "}"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "24.66"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "24.69"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "24.72"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",",
RowBox[{"24.72", "+", "0.02"}]}], "}"}]}], "}"}]}],
"\[IndentingNewLine]", "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"PlotMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",", "Large"}], "}"}]}], ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]", "20"}], ",",
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+srLDA\>\"", ",",
"\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \
\(0\)]\)@HF+srPBE\>\""}], "}"}], ",",
RowBox[{"{",
RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]], "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}, {
3.778923889042327*^9, 3.778923934605988*^9}, {3.778923980007208*^9,
3.7789239846297007`*^9}, {3.778924369699169*^9, 3.778924370162776*^9},
3.7789244024830427`*^9, {3.778924503828601*^9, 3.778924529401923*^9}, {
3.778924625404064*^9, 3.778924716560688*^9}, {3.7789248105058117`*^9,
3.778924811760214*^9}, {3.7789257672352037`*^9, 3.778925786473749*^9}},
CellLabel->
"In[338]:=",ExpressionUUID->"fb1401d0-520f-4c9a-9551-8aab77191071"],
Cell[BoxData[
TagBox[
GraphicsBox[{{{}, {{{}, {},
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"],
LineBox[{{2., 24.36}, {3., 24.57}, {4., 24.67}, {5., 24.72}}]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"],
LineBox[{{2., 24.63}, {3., 24.69}, {4., 24.73}, {5., 24.75}}]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"],
LineBox[{{2., 24.66}, {3., 24.69}, {4., 24.72}, {5., 24.74}}]}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None], DiskBox[{0, 0}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
24.36}}, {{3., 24.57}}, {{4., 24.67}}, {{5., 24.72}}}]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"],
GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
24.63}}, {{3., 24.69}}, {{4., 24.73}}, {{5., 24.75}}}]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
24.66}}, {{3., 24.69}}, {{4., 24.72}}, {{5., 24.74}}}]}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]}, {}, {}, {}, {}, {}, {}, {}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm[
"Butt"]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, InsetBox[
TemplateBox[{
"\"\\!\\(\\*SubscriptBox[\\(G\\), \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\
\\), \\(0\\)]\\)@HF\"",
"\"\\!\\(\\*SubscriptBox[\\(G\\), \
\\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+srLDA\"",
"\"\\!\\(\\*SubscriptBox[\\(G\\), \
\\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+srPBE\""},
"PointLegend",
DisplayFunction->(FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
Baseline)], #}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
Baseline)], #2}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
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"}, Background -> Automatic, StripOnInput ->
False], TraditionalForm]& ),
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[{
GraphicsBox[{
EdgeForm[],
DiskBox[{0, 0}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
GraphicsBox[{
EdgeForm[],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
GraphicsBox[{
EdgeForm[],
PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}]}], "}"}]}],
",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
BaseStyle->{FontSize -> Larger},
FormatType->StandardForm]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{False, False},
AxesLabel->{None, None},
AxesOrigin->{1.9375000000000002`, 24.338333333333335`},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{None, None}, {None, None}},
FrameStyle->Automatic,
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{{0}, {0}},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImageSize->Large,
LabelStyle->{FontFamily -> "Times"},
Method->{
"OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{1.9375000000000002`, 5.}, {24.338333333333335`, 24.75}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}],
InterpretTemplate[Legended[
Graphics[{{}, {{{}, {}, {
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.57}, {4., 24.67}, {5., 24.72}}]}, {
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}, {5., 24.75}}]}, {
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}, {5., 24.74}}]}}, {{
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Disk[{0, 0}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 24.36}}, {{3., 24.57}}, {{4., 24.67}}, {{5.,
24.72}}}]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 24.63}}, {{3., 24.69}}, {{4., 24.73}}, {{5.,
24.75}}}]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 24.66}}, {{3., 24.69}}, {{4., 24.72}}, {{5.,
24.74}}}]}}, {{
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]]}, {}, {}, {}, {}, {}, {}, {}}, {{
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]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio ->
GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None},
AxesOrigin -> {1.9375000000000002`, 24.338333333333335`}, BaseStyle ->
20, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}},
FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Automatic,
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"},
Method -> {
"OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange -> {{1.9375000000000002`, 5.}, {24.338333333333335`, 24.75}},
PlotRangeClipping -> True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],
Placed[
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+srLDA",
"\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \
\(0\)]\)@HF+srPBE"}, LegendMarkers -> {{
Graphics[{
EdgeForm[],
Disk[{0, 0}]}],
Offset[20]}, {
Graphics[{
EdgeForm[],
Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
Offset[20]}, {
Graphics[{
EdgeForm[],
Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
Offset[20]}}, Joined -> {True, True, True},
LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]], {
Right, Bottom}, Identity]]& ],
AutoDelete->True,
Editable->True,
SelectWithContents->False,
Selectable->True]], "Output",
CellChangeTimes->{{3.778924521394305*^9, 3.7789245299517107`*^9}, {
3.778924636535309*^9, 3.778924717193363*^9}, 3.778924812659029*^9, {
3.778925771153364*^9, 3.778925786982954*^9}},
CellLabel->
"Out[338]=",ExpressionUUID->"49adb923-ce14-4b19-bebc-a51cbb5e52ac"]
}, Open ]]
}, Closed]],
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[{"HaToeV", " ",
RowBox[{"{",
RowBox[{"1.868658509757709", ",", "2.551101611704089"}], "}"}], " ",
SuperscriptBox["10",
RowBox[{"-", "2"}]]}], "\[IndentingNewLine]",
RowBox[{"HaToeV", " ",
RowBox[{"{",
RowBox[{"1.017434031770507", ",", "1.237501192857272"}], "}"}], " ",
SuperscriptBox["10",
RowBox[{"-", "2"}]]}], "\[IndentingNewLine]",
RowBox[{"HaToeV", " ",
RowBox[{"{",
RowBox[{"6.095033730277050", ",", "6.545777335202551"}], "}"}], " ",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}], "\[IndentingNewLine]",
RowBox[{"HaToeV", " ",
RowBox[{"{",
RowBox[{"3.789330152632635", ",", "3.755030949392481"}], "}"}], " ",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}]}], "Input",
CellChangeTimes->{{3.778925477727283*^9, 3.7789257050253468`*^9}},
CellLabel->
"In[332]:=",ExpressionUUID->"e4b5d295-9589-4598-a1b4-68e0be4767ae"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.5084878804857496`", ",", "0.6941901073232412`"}],
"}"}]], "Output",
CellChangeTimes->{3.778925661861446*^9, 3.77892570750952*^9},
CellLabel->
"Out[332]=",ExpressionUUID->"6f412b1f-5808-4e4b-9e4b-b98c83165a3b"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "8.989472"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "9.054935"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "9.115331"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "9.144194"}], "}"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "8.989472"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "9.054935"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "9.115331"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "9.144194"}], "}"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "8.989472"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "9.054935"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "9.115331"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "9.144194"}], "}"}]}], "}"}]}],
"\[IndentingNewLine]", "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"PlotMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",", "Large"}], "}"}]}], ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]", "20"}], ",",
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+srLDA\>\"", ",",
"\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \
\(0\)]\)@HF+srPBE\>\""}], "}"}], ",",
RowBox[{"{",
RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{3.778925803794688*^9},
CellLabel->
"In[341]:=",ExpressionUUID->"03232337-9839-4240-afe8-65179befc973"],
Cell[BoxData[
TagBox[
GraphicsBox[{{{}, {{{}, {},
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"],
LineBox[{{2., 8.989472}, {3., 9.054935}, {4., 9.115331}, {5.,
9.144194}}]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"],
LineBox[{{2., 8.989472}, {3., 9.054935}, {4., 9.115331}, {5.,
9.144194}}]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"],
LineBox[{{2., 8.989472}, {3., 9.054935}, {4., 9.115331}, {5.,
9.144194}}]}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None], DiskBox[{0, 0}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
8.989472}}, {{3., 9.054935}}, {{4., 9.115331}}, {{5.,
9.144194}}}]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"],
GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
8.989472}}, {{3., 9.054935}}, {{4., 9.115331}}, {{5.,
9.144194}}}]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
8.989472}}, {{3., 9.054935}}, {{4., 9.115331}}, {{5.,
9.144194}}}]}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]}, {}, {}, {}, {}, {}, {}, {}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm[
"Butt"]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, InsetBox[
TemplateBox[{
"\"\\!\\(\\*SubscriptBox[\\(G\\), \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\
\\), \\(0\\)]\\)@HF\"",
"\"\\!\\(\\*SubscriptBox[\\(G\\), \
\\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+srLDA\"",
"\"\\!\\(\\*SubscriptBox[\\(G\\), \
\\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF+srPBE\""},
"PointLegend",
DisplayFunction->(FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
Baseline)], #}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
Baseline)], #2}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
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"}, Background -> Automatic, StripOnInput ->
False], TraditionalForm]& ),
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[{
GraphicsBox[{
EdgeForm[],
DiskBox[{0, 0}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
GraphicsBox[{
EdgeForm[],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
GraphicsBox[{
EdgeForm[],
PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}]}], "}"}]}],
",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
BaseStyle->{FontSize -> Larger},
FormatType->StandardForm]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{False, False},
AxesLabel->{None, None},
AxesOrigin->{1.9375000000000002`, 8.980876333333335},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{None, None}, {None, None}},
FrameStyle->Automatic,
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{{0}, {0}},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
LabelStyle->{FontFamily -> "Times"},
Method->{
"OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{1.9375000000000002`, 5.}, {8.980876333333335, 9.144194}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}],
InterpretTemplate[Legended[
Graphics[{{}, {{{}, {}, {
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., 8.989472}, {3., 9.054935}, {4., 9.115331}, {5.,
9.144194}}]}, {
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., 8.989472}, {3., 9.054935}, {4., 9.115331}, {5.,
9.144194}}]}, {
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., 8.989472}, {3., 9.054935}, {4., 9.115331}, {5.,
9.144194}}]}}, {{
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Disk[{0, 0}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 8.989472}}, {{3., 9.054935}}, {{4.,
9.115331}}, {{5., 9.144194}}}]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 8.989472}}, {{3., 9.054935}}, {{4.,
9.115331}}, {{5., 9.144194}}}]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 8.989472}}, {{3., 9.054935}}, {{4.,
9.115331}}, {{5., 9.144194}}}]}}, {{
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]]}, {}, {}, {}, {}, {}, {}, {}}, {{
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]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio ->
GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None},
AxesOrigin -> {1.9375000000000002`, 8.980876333333335}, BaseStyle -> 20,
DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}},
FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Automatic,
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"},
Method -> {
"OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange -> {{1.9375000000000002`, 5.}, {8.980876333333335, 9.144194}},
PlotRangeClipping -> True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],
Placed[
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+srLDA",
"\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \
\(0\)]\)@HF+srPBE"}, LegendMarkers -> {{
Graphics[{
EdgeForm[],
Disk[{0, 0}]}],
Offset[20]}, {
Graphics[{
EdgeForm[],
Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
Offset[20]}, {
Graphics[{
EdgeForm[],
Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
Offset[20]}}, Joined -> {True, True, True},
LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]], {
Right, Bottom}, Identity]]& ],
AutoDelete->True,
Editable->True,
SelectWithContents->False,
Selectable->True]], "Output",
CellChangeTimes->{3.7789258527088413`*^9},
CellLabel->
"Out[341]=",ExpressionUUID->"831fab78-e263-4a8c-aa13-f78514fcd602"]
}, 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[{"HaToeV", " ",
RowBox[{"{",
RowBox[{"1.868658509757709", ",", "2.551101611704089"}], "}"}], " ",
SuperscriptBox["10",
RowBox[{"-", "2"}]]}], "\[IndentingNewLine]",
RowBox[{"HaToeV", " ",
RowBox[{"{",
RowBox[{"1.017434031770507", ",", "1.237501192857272"}], "}"}], " ",
SuperscriptBox["10",
RowBox[{"-", "2"}]]}], "\[IndentingNewLine]",
RowBox[{"HaToeV", " ",
RowBox[{"{",
RowBox[{"6.095033730277050", ",", "6.545777335202551"}], "}"}], " ",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}], "\[IndentingNewLine]",
RowBox[{"HaToeV", " ",
RowBox[{"{",
RowBox[{"3.789330152632635", ",", "3.755030949392481"}], "}"}], " ",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}]}], "Input",
CellChangeTimes->{{3.778925477727283*^9, 3.7789257050253468`*^9}},
CellLabel->
"In[332]:=",ExpressionUUID->"b3e1d77a-5c83-4533-ace4-632822ae36b9"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.5084878804857496`", ",", "0.6941901073232412`"}],
"}"}]], "Output",
CellChangeTimes->{3.778925661861446*^9, 3.77892570750952*^9},
CellLabel->
"Out[332]=",ExpressionUUID->"2b0a8703-47b9-41aa-a64f-35f42ceb8603"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.2768579018839221`", ",", "0.33674122659049693`"}],
"}"}]], "Output",
CellChangeTimes->{3.778925661861446*^9, 3.7789257075107803`*^9},
CellLabel->
"Out[333]=",ExpressionUUID->"00037552-05eb-4ddc-95ea-557cb2876348"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.16585431563948938`", ",", "0.17811967386916355`"}],
"}"}]], "Output",
CellChangeTimes->{3.778925661861446*^9, 3.7789257075122423`*^9},
CellLabel->
"Out[334]=",ExpressionUUID->"a751ad57-c29b-4f78-b25f-f27748a4d7c0"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.10311292554051214`", ",", "0.10217959668096588`"}],
"}"}]], "Output",
CellChangeTimes->{3.778925661861446*^9, 3.778925707513709*^9},
CellLabel->
"Out[335]=",ExpressionUUID->"1021d567-3faf-4ce5-b376-c81dabc2d549"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",", "20.869706"}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",", "21.392601"}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",", "21.630023"}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",", "21.732718"}], "}"}]}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",",
RowBox[{"20.869706", "+", "0.5084878804857496`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",",
RowBox[{"21.392601", "+", "0.2768579018839221`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",",
RowBox[{"21.630023", "+", "0.16585431563948938`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",",
RowBox[{"21.732718", "+", "0.10311292554051214`"}]}], "}"}]}], "}"}],
",", "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"2", ",",
RowBox[{"20.869706", "+", "0.6941901073232412`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"3", ",",
RowBox[{"21.392601", "+", "0.33674122659049693`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"4", ",",
RowBox[{"21.630023", "+", "0.17811967386916355`"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"5", ",",
RowBox[{"21.732718", "+", "0.10217959668096588`"}]}], "}"}]}],
"}"}]}], "\[IndentingNewLine]", "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}], ",",
RowBox[{"PlotMarkers", "\[Rule]",
RowBox[{"{",
RowBox[{"Automatic", ",", "Large"}], "}"}]}], ",",
RowBox[{"Joined", "\[Rule]", "True"}], ",",
RowBox[{"BaseStyle", "\[Rule]", "20"}], ",",
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"}], "}"}]}], "]"}]}]}], "]"}]], "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},
3.7789247617795677`*^9, {3.778924870722349*^9, 3.77892487504071*^9}, {
3.778924915482242*^9, 3.778924966865363*^9}, {3.778925017145705*^9,
3.7789250209211407`*^9}, {3.778925147174243*^9, 3.778925148518033*^9}, {
3.778925211002347*^9, 3.778925213263884*^9}, {3.7789253896393547`*^9,
3.778925463252035*^9}, {3.778925493973402*^9, 3.778925615964325*^9}, {
3.7789257131787243`*^9, 3.778925740260886*^9}, {3.778925812597958*^9,
3.7789258235215187`*^9}},
CellLabel->
"In[340]:=",ExpressionUUID->"880db4d9-aa21-47a9-b075-af4b818dc99a"],
Cell[BoxData[
TagBox[
GraphicsBox[{{{}, {{{}, {},
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"],
LineBox[{{2., 20.869706}, {3., 21.392601}, {4., 21.630023}, {5.,
21.732718}}]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"],
LineBox[{{2., 21.37819388048575}, {3., 21.66945890188392}, {4.,
21.79587731563949}, {5., 21.83583092554051}}]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"],
LineBox[{{2., 21.56389610732324}, {3., 21.729342226590497`}, {4.,
21.808142673869163`}, {5., 21.834897596680964`}}]}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None], DiskBox[{0, 0}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
20.869706}}, {{3., 21.392601}}, {{4., 21.630023}}, {{5.,
21.732718}}}]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"],
GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
21.37819388048575}}, {{3., 21.66945890188392}}, {{4.,
21.79587731563949}}, {{5., 21.83583092554051}}}]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[
FormBox[
StyleBox[
GraphicsBox[
{EdgeForm[None], PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
StripOnInput->False,
GraphicsBoxOptions->{DefaultBaseStyle->Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}],
TraditionalForm], {0., 0.}, Automatic, Offset[20]], {{{2.,
21.56389610732324}}, {{3., 21.729342226590497`}}, {{4.,
21.808142673869163`}}, {{5., 21.834897596680964`}}}]}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]}, {}, {}, {}, {}, {}, {}, {}}, {
{RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`],
Thickness[Large], CapForm["Butt"]},
{RGBColor[0.365248, 0.427802, 0.758297], PointSize[
0.012833333333333334`], Thickness[Large], CapForm["Butt"]},
{RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`],
Thickness[Large], CapForm[
"Butt"]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, InsetBox[
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->(FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
DiskBox[{0, 0}]}, {DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
Baseline)], #}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}, {
DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
Baseline)], #2}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
LineBox[{{0, 20}, {20, 20}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]], {
InsetBox[
GraphicsBox[{
EdgeForm[],
PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}, {
DefaultBaseStyle -> {"Graphics", {
AbsolutePointSize[6]},
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}}],
NCache[
Scaled[{
Rational[1, 2],
Rational[1, 2]}],
Scaled[{0.5, 0.5}]], Automatic,
Scaled[1]]}}}, AspectRatio -> Full, ImageSize -> {20, 20},
PlotRangePadding -> None, ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.30000000000000004`] ->
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"}, Background -> Automatic, StripOnInput ->
False], TraditionalForm]& ),
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[{
GraphicsBox[{
EdgeForm[],
DiskBox[{0, 0}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
GraphicsBox[{
EdgeForm[],
PolygonBox[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
GraphicsBox[{
EdgeForm[],
PolygonBox[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}], ",",
RowBox[{"Offset", "[", "20", "]"}]}], "}"}]}], "}"}]}],
",",
RowBox[{"Joined", "\[Rule]",
RowBox[{"{",
RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )],
Scaled[{0.99, 0.01}], ImageScaled[{1, 0}],
BaseStyle->{FontSize -> Larger},
FormatType->StandardForm]},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{False, False},
AxesLabel->{None, None},
AxesOrigin->{1.9375000000000002`, 20.816032393025527`},
BaseStyle->20,
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{None, None}, {None, None}},
FrameStyle->Automatic,
FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
GridLines->{{0}, {0}},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImageSize->Large,
LabelStyle->{FontFamily -> "Times"},
Method->{
"OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange->{{1.9375000000000002`, 5.}, {20.816032393025527`,
21.83583092554051}},
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->{Automatic, Automatic}],
InterpretTemplate[Legended[
Graphics[{{}, {{{}, {}, {
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.869706}, {3., 21.392601}, {4., 21.630023}, {5.,
21.732718}}]}, {
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.37819388048575}, {3., 21.66945890188392}, {4.,
21.79587731563949}, {5., 21.83583092554051}}]}, {
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.56389610732324}, {3., 21.729342226590497`}, {4.,
21.808142673869163`}, {5., 21.834897596680964`}}]}}, {{
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Disk[{0, 0}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.9, 0.36, 0.054],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 20.869706}}, {{3., 21.392601}}, {{4.,
21.630023}}, {{5., 21.732718}}}]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.365248, 0.427802, 0.758297],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 21.37819388048575}}, {{3.,
21.66945890188392}}, {{4., 21.79587731563949}}, {{5.,
21.83583092554051}}}]}, {
Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]],
GeometricTransformation[
Inset[
Style[
Graphics[{
EdgeForm[],
Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
PointSize[0.012833333333333334`],
RGBColor[0.945109, 0.593901, 0.],
CapForm["Butt"],
AbsoluteThickness[1.6],
Thickness[Large]]}], {0., 0.}, Automatic,
Offset[20]], {{{2., 21.56389610732324}}, {{3.,
21.729342226590497`}}, {{4., 21.808142673869163`}}, {{5.,
21.834897596680964`}}}]}}, {{
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]]}, {}, {}, {}, {}, {}, {}, {}}, {{
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]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, {
DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio ->
GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None},
AxesOrigin -> {1.9375000000000002`, 20.816032393025527`}, BaseStyle ->
20, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}},
FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Automatic,
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"},
Method -> {
"OptimizePlotMarkers" -> True,
"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
(Identity[#]& )[
Part[#, 1]],
(Identity[#]& )[
Part[#, 2]]}& )}},
PlotRange -> {{1.9375000000000002`, 5.}, {20.816032393025527`,
21.83583092554051}}, PlotRangeClipping -> True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],
Placed[
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 -> {{
Graphics[{
EdgeForm[],
Disk[{0, 0}]}],
Offset[20]}, {
Graphics[{
EdgeForm[],
Polygon[{{-1, -1}, {1, -1}, {1, 1}, {-1, 1}}]}],
Offset[20]}, {
Graphics[{
EdgeForm[],
Polygon[{{0, 1}, {1, 0}, {0, -1}, {-1, 0}}]}],
Offset[20]}}, Joined -> {True, True, True},
LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]], {
Right, Bottom}, Identity]]& ],
AutoDelete->True,
Editable->True,
SelectWithContents->False,
Selectable->True]], "Output",
CellChangeTimes->{
3.7789251493196993`*^9, {3.778925424754732*^9, 3.7789254635688972`*^9}, {
3.778925508352216*^9, 3.778925539998304*^9}, 3.778925576983274*^9,
3.778925741172536*^9, {3.778925817886343*^9, 3.778925824069425*^9}},
CellLabel->
"Out[340]=",ExpressionUUID->"2fdd498b-56dd-4420-98fd-665347aef3fd"]
}, Open ]]
}, Closed]]
},
WindowSize->{1280, 755},
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, 2969, 72, 136, "Input",ExpressionUUID->"fb1401d0-520f-4c9a-9551-8aab77191071"],
Cell[32648, 959, 29577, 664, 372, "Output",ExpressionUUID->"49adb923-ce14-4b19-bebc-a51cbb5e52ac"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[62274, 1629, 170, 3, 72, "Title",ExpressionUUID->"245e739d-00cb-4950-9372-2008b839788b"],
Cell[CellGroupData[{
Cell[62469, 1636, 904, 23, 94, "Input",ExpressionUUID->"e4b5d295-9589-4598-a1b4-68e0be4767ae"],
Cell[63376, 1661, 258, 6, 34, "Output",ExpressionUUID->"6f412b1f-5808-4e4b-9e4b-b98c83165a3b"]
}, Open ]],
Cell[CellGroupData[{
Cell[63671, 1672, 2249, 61, 136, "Input",ExpressionUUID->"03232337-9839-4240-afe8-65179befc973"],
Cell[65923, 1735, 29645, 670, 242, "Output",ExpressionUUID->"831fab78-e263-4a8c-aa13-f78514fcd602"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[95617, 2411, 147, 3, 72, "Title",ExpressionUUID->"a79f1a1e-df92-4079-943d-ed3a9bb5ea38"],
Cell[CellGroupData[{
Cell[95789, 2418, 904, 23, 94, "Input",ExpressionUUID->"b3e1d77a-5c83-4533-ace4-632822ae36b9"],
Cell[96696, 2443, 258, 6, 34, "Output",ExpressionUUID->"2b0a8703-47b9-41aa-a64f-35f42ceb8603"],
Cell[96957, 2451, 262, 6, 34, "Output",ExpressionUUID->"00037552-05eb-4ddc-95ea-557cb2876348"],
Cell[97222, 2459, 263, 6, 34, "Output",ExpressionUUID->"a751ad57-c29b-4f78-b25f-f27748a4d7c0"],
Cell[97488, 2467, 261, 6, 34, "Output",ExpressionUUID->"1021d567-3faf-4ce5-b376-c81dabc2d549"]
}, Open ]],
Cell[CellGroupData[{
Cell[97786, 2478, 3447, 80, 178, "Input",ExpressionUUID->"880db4d9-aa21-47a9-b075-af4b818dc99a"],
Cell[101236, 2560, 30235, 677, 372, "Output",ExpressionUUID->"2fdd498b-56dd-4420-98fd-665347aef3fd"]
}, Open ]]
}, Closed]]
}
]
*)
Reference in New Issue View Git Blame Copy Permalink