From 637857cd0d2adb2d373d70a1511d468de678ad44 Mon Sep 17 00:00:00 2001 From: Pierre-Francois Loos Date: Tue, 1 Oct 2019 22:16:13 +0200 Subject: [PATCH] notebook --- Notebooks/GW100.nb | 6714 ++++++++++++++++++++++++++++++++++++++++++++ srLDA.nb | 3334 ---------------------- 2 files changed, 6714 insertions(+), 3334 deletions(-) create mode 100644 Notebooks/GW100.nb delete mode 100644 srLDA.nb diff --git a/Notebooks/GW100.nb b/Notebooks/GW100.nb new file mode 100644 index 0000000..3971d26 --- /dev/null +++ b/Notebooks/GW100.nb @@ -0,0 +1,6714 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Mathematica 12.0' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 158, 7] +NotebookDataLength[ 295610, 6706] +NotebookOptionsPosition[ 286358, 6514] +NotebookOutlinePosition[ 286711, 6530] +CellTagsIndexPosition[ 286668, 6527] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell["Initialization", "Title", + CellChangeTimes->{{3.72080320888133*^9, + 3.72080321309881*^9}},ExpressionUUID->"9c058984-7057-4fad-9b0c-\ +3aecedd6e63c"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"HaToeV", "=", "27.21138602"}], ";"}]], "Input", + InitializationCell->True, + CellChangeTimes->{{3.7208031947801647`*^9, 3.7208032000677156`*^9}, { + 3.7208034541742477`*^9, 3.720803455246439*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"37867cff-0ca5-44bf-a2dd-e0dbbbf2fa3a"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"HaTokJ", "=", "2625.5002"}], ";"}]], "Input", + InitializationCell->True, + CellChangeTimes->{{3.7208031947801647`*^9, 3.7208032000677156`*^9}, { + 3.7208034541742477`*^9, 3.720803455246439*^9}, {3.776006644308682*^9, + 3.776006645404855*^9}, 3.776007061792289*^9}, + CellLabel->"In[2]:=",ExpressionUUID->"6b655861-3eba-418a-a15a-1fcf0775d7ac"], + +Cell[BoxData[{ + RowBox[{"Needs", "[", "\"\\"", "]"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"SetOptions", "[", + RowBox[{"MaTeX", ",", + RowBox[{"\"\\"", "\[Rule]", + RowBox[{ + "{", "\"\<\\\\usepackage{amssymb,amsmath,latexsym,amsfonts,amsthm,\ +mathpazo,xcolor,bm,mhchem}\>\"", "}"}]}]}], "]"}], ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, { + 3.733131339213026*^9, 3.733131352923026*^9}}, + CellLabel->"In[3]:=",ExpressionUUID->"503d29c5-30e2-484d-9104-c72aa4e45b6b"], + +Cell[BoxData[ + RowBox[{ + RowBox[{ + "SetDirectory", "[", "\"\<~/Dropbox/Manuscripts/srDFT_GW/Data\>\"", "]"}], + ";"}]], "Input", + InitializationCell->True, + CellChangeTimes->{{3.727109326220275*^9, 3.7271093336928377`*^9}, { + 3.739897263620181*^9, 3.739897264594913*^9}, {3.742537460346127*^9, + 3.74253746199249*^9}, {3.745337457365486*^9, 3.745337461494843*^9}, { + 3.759165019260251*^9, 3.7591650205826883`*^9}, {3.759724285782976*^9, + 3.759724288096609*^9}, {3.7759225458942423`*^9, 3.775922549658771*^9}, { + 3.778949458332233*^9, 3.77894948995479*^9}}, + CellLabel->"In[5]:=",ExpressionUUID->"761743e2-8cea-46d7-9151-ac0d311451f4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["GW20", "Title", + CellChangeTimes->{{3.775922510367074*^9, 3.7759225111609898`*^9}, + 3.7759800972605743`*^9, {3.775981207909052*^9, + 3.775981209076518*^9}},ExpressionUUID->"2e48d6dd-bcc2-4069-bdff-\ +d98298b3703d"], + +Cell[CellGroupData[{ + +Cell["exFCI/def2-SVP", "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, + 3.778343956580508*^9}},ExpressionUUID->"a169c7e1-61b1-491c-b20a-\ +a08f05ba9968"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20", "=", + RowBox[{"Import", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPFCI", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPLDA", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "5"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "7"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "6"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBEot", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "9"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "8"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPLDA", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBE", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBEot", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.775893866851365*^9, 3.775893918511887*^9}, { + 3.775893950066111*^9, 3.7758940250074263`*^9}, {3.775896046210225*^9, + 3.775896046408372*^9}, {3.7758996896242533`*^9, 3.7758997756794767`*^9}, { + 3.7758998217844152`*^9, 3.7758998693124332`*^9}, {3.775899957529449*^9, + 3.775899980903802*^9}, {3.775900021977261*^9, 3.775900070855657*^9}, + 3.775900246649693*^9, {3.775903499752975*^9, 3.775903505359549*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"2081d490-fe34-406a-815e-d0ab97901c29"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"FCI\"\>", + HoldForm], + TagBox["\<\"FCI+LDA\"\>", + HoldForm], + TagBox["\<\"FCI+PBE\"\>", + HoldForm], + TagBox["\<\"FCI+PBEot\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.3081466458432799982`4.385751847688789", + "24.6321616778538263759`4.391502526478502", + "24.6428541416456319268`4.391691006503049", + "24.6121817693702737984`4.391150113840946"}, + {"\<\"Ne\"\>", "21.0863541879907359089`4.32400149709794", + "21.4909336168426783331`4.332255282677841", + "21.5767040742883118298`4.333985105237072", + "21.5360943813945837633`4.33316694583275"}, + {"\<\"H2\"\>", "16.2566850126622028938`4.211031990982226", + "16.4171346400824589296`4.2152973599337935", + "16.4014894863439231187`4.214883289896871", + "16.3759070827366244316`4.214205365464828"}, + {"\<\"Li2\"\>", "5.0689889615528960221`3.7049213454861984", + "5.1588633341136604926`3.7125540229253584", + "5.1347475344152657684`3.710519095040254", + "5.1227812240097039265`3.7095058090806803"}, + {"\<\"LiH\"\>", "7.692108613628664493`3.886045407907389", + "7.8537873194903955465`3.895079136401887", + "7.8224380122861552067`3.8933421303316558", + "7.8203577834590847218`3.8932266226030103"}, + {"\<\"FH\"\>", "15.6031273855109873239`4.193211654133068", + "15.9403986374220174582`4.202499178030475", + "16.0001318311739204603`4.204123560988144", + "15.9668529047219500683`4.203219324353858"}, + {"\<\"Ar\"\>", "15.2022802676428572255`4.1819087348776804", + "15.6319897108095151594`4.1940142605161945", + "15.6556263316057915347`4.194670447035591", + "15.6357678648169073909`4.194119214089614"}, + {"\<\"H2O\"\>", "12.0704081070090456507`4.0817219540762855", + "12.3638576802799047272`4.092153997278938", + "12.3913483558025987463`4.0931185663941125", + "12.3685787006494756213`4.092319796805421"}, + {"\<\"LiF\"\>", "10.7650343814121018937`4.032015421213265", + "11.1086043780175565132`4.045659500075128", + "11.141000118119166018`4.046924178834514", + "11.1056125024514891209`4.045542515977625"}, + {"\<\"HCl\"\>", "12.1495570491833575488`4.084560444633745", + "12.5263531549405158216`4.097824651583705", + "12.5169354520650326634`4.097498012646781", + "12.5024705023975393203`4.096995838571748"}, + {"\<\"BeO\"\>", "10.0138093754437953464`4.000599319838919", + "10.3366229512908169852`4.014378674814666", + "10.3438973330196013478`4.014684201361478", + "10.2960098460892837124`4.012668949212977"}, + {"\<\"CO\"\>", "13.6868667514083455217`4.13630403919928", + "13.9672426877366380182`4.145110679292953", + "13.9539434629616891925`4.144696959020544", + "13.9793679588959136595`4.145487536347505"}, + {"\<\"N2\"\>", "15.216054943361520202`4.1823020677818015", + "15.4975522255328961307`4.190263108564346", + "15.5059690555346225693`4.190498912935181", + "15.5380551763226808504`4.1913966593138"}, + {"\<\"CH4\"\>", "14.2414995615948907215`4.153555720834399", + "14.3999315899141411279`4.158360428887377", + "14.3938887791897869306`4.158178142594162", + "14.3835029251322374932`4.157864666004675"}, + {"\<\"BH3\"\>", "13.1634100261853586034`4.119368409317116", + "13.3065906740120301066`4.124066797688896", + "13.2956110076464728564`4.123708300385288", + "13.2818708550147324132`4.123259253103011"}, + {"\<\"NH3\"\>", "10.3178166127425861021`4.013587804523747", + "10.5615932920178892118`4.023729439574252", + "10.5599230108846260379`4.023660751903299", + "10.5465423288256250345`4.023110100046884"}, + {"\<\"BF\"\>", "10.8148018295316390436`4.034018565834343", + "10.9901756531812466733`4.041004633697169", + "10.9753383755611206851`4.040417918652076", + "10.9516129395220147558`4.039478086221601"}, + {"\<\"BN\"\>", "11.7689211882839170897`4.070736654564042", + "11.9876760239462107904`4.078734997293821", + "11.980948536653654557`4.078491202688288", + "11.9494997908814823973`4.077349725986522"}, + {"\<\"SH2\"\>", "9.8912226256519932832`3.9952499768101535", + "10.199303546215856997`4.008570517216626", + "10.1699479764482241251`4.007318731329898", + "10.1622145331950033409`4.006988359005621"}, + {"\<\"F2\"\>", "15.4786165186128616966`4.189732140766579", + "15.8521622814538414303`4.200088509636109", + "15.9114326095295428587`4.201709283757415", + "15.8945139629252700786`4.201247252197513"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "FCI", "FCI+LDA", "FCI+PBE", "FCI+PBEot"}}]]]], "Output", + CellChangeTimes->{ + 3.7758939189946012`*^9, {3.775893951236472*^9, 3.7758940252134933`*^9}, + 3.775895306327574*^9, 3.775895709187375*^9, 3.775895748395605*^9, + 3.775896046892447*^9, 3.775896451764511*^9, 3.775896562838257*^9, + 3.775897149973278*^9, 3.77589778756246*^9, {3.7758997537153807`*^9, + 3.775899788397234*^9}, {3.775899865098072*^9, 3.775899869960578*^9}, { + 3.775899982146098*^9, 3.775900010895051*^9}, {3.775900051253566*^9, + 3.775900071341741*^9}, 3.77590024785845*^9, {3.775900279556028*^9, + 3.7759002854216223`*^9}, 3.775900411195469*^9, {3.7759007708638773`*^9, + 3.775900777740202*^9}, 3.7759017560461483`*^9, 3.775902560680091*^9, + 3.775903104759284*^9, 3.7759033301921377`*^9, 3.775903507179665*^9, + 3.7759225253382874`*^9, 3.7759225556546907`*^9, 3.7759788442065983`*^9, + 3.776141327707856*^9, 3.7783439478873672`*^9}, + CellLabel-> + "Out[14]//TableForm=",ExpressionUUID->"2faf99a0-a073-4cb9-9e1a-\ +cbb1e0014033"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["exFCI/def2-TZVPP", "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.775922566403754*^9, 3.775922586554624*^9}, {3.77842565164846*^9, + 3.778425667702321*^9}},ExpressionUUID->"a5750291-acb8-4205-bd01-\ +79805d77baa5"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20", "=", + RowBox[{"Import", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPFCI", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPLDA", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "5"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "7"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "6"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBEot", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "9"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "8"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPLDA", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBE", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBEot", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, + 3.775922589466531*^9}, + CellLabel->"In[22]:=",ExpressionUUID->"4d64e3d1-f0ed-4f0d-9dae-59126ce675b8"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"FCI\"\>", + HoldForm], + TagBox["\<\"FCI+LDA\"\>", + HoldForm], + TagBox["\<\"FCI+PBE\"\>", + HoldForm], + TagBox["\<\"FCI+PBEot\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.5122396601813612449`4.389382994141539", + "24.6171984278432525173`4.391238626314238", + "24.6096742211005583556`4.391105864620527", + "24.5972795109603268315`4.390887076261391"}, + {"\<\"Ne\"\>", "21.3240698630096829902`4.328870096713079", + "21.5245307233109279821`4.332933691763407", + "21.5354835619710058836`4.333154627941567", + "21.5239049757202884905`4.332921066044433"}, + {"\<\"H2\"\>", "16.4029358721930158538`4.214921587009928", + "16.4569309628789390842`4.216348847269864", + "16.4494288762719378383`4.216150823855025", + "16.4403270377230974475`4.2159104524537785"}, + {"\<\"Li2\"\>", "5.2674625525640035306`3.7216014568055065", + "5.3026384881386920966`3.724492019734388", + "5.2924255052953883549`3.7236547537265303", + "5.285066202273110747`3.723050431776241"}, + {"\<\"LiH\"\>", "7.9620395764421321161`3.9010243319754987", + "8.0116276879222656504`3.903720758789549", + "8.003445806469713375`3.9032770085592645", + "7.9987974241739845382`3.903024698078978"}, + {"\<\"FH\"\>", "16.0284680161618169336`4.204892014935421", + "16.1828649088652412047`4.209055408745416", + "16.186898811805278342`4.209163651846082", + "16.1775161082144940394`4.208911840928502"}, + {"\<\"Ar\"\>", "15.5442531028328847498`4.191569859147875", + "15.7354390982661431764`4.196878866428983", + "15.721834118194456309`4.196503209702522", + "15.7253049985097721475`4.196599077512234"}, + {"\<\"H2O\"\>", "12.5709280828418350495`4.099367341836956", + "12.6904895033901734536`4.10347837422403", + "12.6910836395136730204`4.10349870630026", + "12.684285320983306633`4.103266002507918"}, + {"\<\"LiF\"\>", "11.3245404787204755337`4.054020588468099", + "11.4998464126831034804`4.060692040130165", + "11.4847310210921591533`4.060120828227313", + "11.4767035669764076999`4.059817164346481"}, + {"\<\"HCl\"\>", "12.5949111100250306094`4.100195106763719", + "12.7418645348892169977`4.1052329835695325", + "12.7264882514136665748`4.104708580917111", + "12.7279866790385209896`4.104759712111256"}, + {"\<\"BeO\"\>", "9.9849454419510230707`3.9993456962147986", + "10.1174224502696468164`4.005069884222583", + "10.1011496359800361233`4.004370804688493", + "10.0874368117432755554`4.003780827294225"}, + {"\<\"CO\"\>", "14.0067360498458963747`4.1463369446585", + "14.1271103289174249085`4.150053336898276", + "14.1227143567172799266`4.149918175246423", + "14.1278151364690067737`4.1500750034944875"}, + {"\<\"N2\"\>", "15.441187257142496847`4.188680689743394", + "15.5641801668037498274`4.192126249438042", + "15.5669574669853556514`4.19220373880967", + "15.5801391521783934024`4.192571332203898"}, + {"\<\"CH4\"\>", "14.3694608322400725342`4.157440472937572", + "14.4277246818964979269`4.159197846269423", + "14.422095704651875181`4.159028373201351", + "14.4196042900129342001`4.1589533424207294"}, + {"\<\"BH3\"\>", "13.2751260993766244667`4.123038655102158", + "13.3309474495816164819`4.124861016443332", + "13.3250781005585885453`4.124669763180203", + "13.3185011384900775511`4.124455352168346"}, + {"\<\"NH3\"\>", "10.8106145414509047242`4.033850382609647", + "10.9005815715022063017`4.037449669184333", + "10.894998423673918353`4.03722717174705", + "10.8917660647627609904`4.037098304916026"}, + {"\<\"BF\"\>", "11.0800605973657120273`4.044542135575586", + "11.1613969050366144131`4.047718552144909", + "11.1535737050266074988`4.0474140415279125", + "11.1419950888433643144`4.046962962695611"}, + {"\<\"BN\"\>", "11.9346956730560709303`4.076811349258356", + "12.0262212597319155805`4.080129189780283", + "12.0189271878442038854`4.079865704173154", + "12.0116461447681199814`4.07960252968427"}, + {"\<\"SH2\"\>", "10.3153790167834689129`4.013485189834478", + "10.425582063441265035`4.018100311116677", + "10.4106810159379996605`4.0174791398650145", + "10.4084464414082855654`4.017385911808904"}, + {"\<\"F2\"\>", "15.6130410376658694815`4.193487501220562", + "15.7964217354599814058`4.198558720084644", + "15.8044605911464763892`4.198779677886055", + "15.8044995388032862849`4.198780748136539"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "FCI", "FCI+LDA", "FCI+PBE", "FCI+PBEot"}}]]]], "Output", + CellChangeTimes->{{3.7759035148934097`*^9, 3.7759035355967207`*^9}, { + 3.775922570029889*^9, 3.775922589966546*^9}, 3.775968007120781*^9, + 3.776141419768119*^9}, + CellLabel-> + "Out[28]//TableForm=",ExpressionUUID->"d752f601-f84a-4ff3-9f3d-\ +cafdd911724e"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["exFCI/def2-QZVP", "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.775922566403754*^9, 3.775922586554624*^9}, {3.7759227424989033`*^9, + 3.775922744666663*^9}, {3.778425659974144*^9, + 3.7784256693848057`*^9}},ExpressionUUID->"48bbade3-d610-40a1-a015-\ +76e0b486ba4c"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20", "=", + RowBox[{"Import", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPFCI", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPLDA", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "5"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "7"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "6"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBEot", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "9"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "8"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"GW20", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPLDA", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBE", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBEot", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, + 3.775922589466531*^9, {3.775922748858387*^9, 3.775922750227468*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"9fb4566e-41c8-44d4-bcc1-83c3ace4ae0c"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"FCI\"\>", + HoldForm], + TagBox["\<\"FCI+LDA\"\>", + HoldForm], + TagBox["\<\"FCI+PBE\"\>", + HoldForm], + TagBox["\<\"FCI+PBEot\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.5615194802635770088`4.390255230607617", + "24.6094204313876971923`4.391101385892397", + "24.6052638350292340874`4.391028026207451", + "24.5997651159683492494`4.390930960382817"}, + {"\<\"Ne\"\>", "21.4776580006660680056`4.331986922612232", + "21.5888907805936334228`4.3342303292150755", + "21.5872677928492713306`4.334197679037514", + "21.5823724998790744678`4.3340991839507375"}, + {"\<\"H2\"\>", "16.4299984119314892439`4.215637521457617", + "16.4528692607869437836`4.216241646691151", + "16.4501373328703870413`4.216169527979539", + "16.44632917830990948`4.216068978547054"}, + {"\<\"Li2\"\>", "5.2369243024891787286`3.719076296405049", + "5.2552411816738411332`3.7205926521371473", + "5.2519316866467322669`3.7203190684636502", + "5.2473278276208104032`3.719938197661124"}, + {"\<\"LiH\"\>", "8.0164683349870617945`3.903983081447211", + "8.0418987303497750929`3.9053585998378706", + "8.0390735435710514167`3.90520600172128", + "8.036416308187980917`3.9050624262924583"}, + {"\<\"FH\"\>", "16.1768171456687497312`4.208893076482061", + "16.2604214951530323674`4.211131798985392", + "16.2562002663104934186`4.211019040875591", + "16.2530550573053425012`4.210935006534845"}, + {"\<\"Ar\"\>", "15.7110738653999710834`4.196205870455545", + "15.8132514280463638556`4.199021176198962", + "15.8029629472125474621`4.198738521826874", + "15.8056202397395288983`4.198811542972882"}, + {"\<\"H2O\"\>", "12.7042551666969210089`4.103949208034496", + "12.7678645353109363469`4.106118266246704", + "12.7635987859197292948`4.1059731440172635", + "12.7621821584423891238`4.105924939145625"}, + {"\<\"LiF\"\>", "11.5065568955807240314`4.060945389229278", + "11.6020460002255276777`4.064534583041983", + "11.590052132849343991`4.064085389454354", + "11.5912479753039328045`4.064130196930836"}, + {"\<\"HCl\"\>", "12.7456956585792440251`4.105363544194243", + "12.8224944077662623698`4.10797251833036", + "12.8129295620420151636`4.107648438657175", + "12.8133948794640950553`4.1076642103133265"}, + {"\<\"BeO\"\>", "10.1208132529180740988`4.005215411423156", + "10.1883890538404919823`4.0081055205779945", + "10.1780748909005502867`4.007665642114521", + "10.1800648541179157291`4.007750544768503"}, + {"\<\"CO\"\>", "15.5499759294259760622`4.191729721097547", + "15.6147056669943147256`4.193533802309096", + "15.608320596898881405`4.193356176942212", + "15.6132035739957633069`4.193492022329781"}, + {"\<\"N2\"\>", "15.5085389750220006277`4.190570885823079", + "15.5776606656687697239`4.1925022391984115", + "15.5726586822962662637`4.192362764943162", + "15.5812491699212962715`4.192602272711155"}, + {"\<\"CH4\"\>", "14.4016850997926475486`4.158413310617826", + "14.4285788908418535215`4.159223558379814", + "14.4255060015373270943`4.1591310557841865", + "14.4248765423136351416`4.1591121048626825"}, + {"\<\"BH3\"\>", "13.3076891486850481527`4.1241026477282325", + "13.3332180683131245047`4.124934982169904", + "13.3304428117066073867`4.124844576082019", + "13.3282556121999533616`4.1247733131371005"}, + {"\<\"NH3\"\>", "10.9246022211471398577`4.038405632708285", + "10.9688788986518126478`4.040162241703232", + "10.9643300664906995223`4.039982100918713", + "10.9637982662102952958`4.0399610359264075"}, + {"\<\"BF\"\>", "11.1690976129922496796`4.048018086497071", + "11.2105760048944169682`4.049627927431772", + "11.2056625836988530409`4.049437541186708", + "11.203209297654003862`4.049342449510367"}, + {"\<\"BN\"\>", "11.9922961907557201755`4.078902346359758", + "12.0405933668716791374`4.080647889713194", + "12.0343183804383873081`4.080421497020891", + "12.0340849121886126483`4.080413071536961"}, + {"\<\"SH2\"\>", "10.4359725325489254288`4.0185329273678025", + "10.4934386396070955527`4.020917827325445", + "10.4850699601529306904`4.020571332579809", + "10.483606705965645034`4.020510719959345"}, + {"\<\"F2\"\>", "15.7582260272059997419`4.197507325465782", + "15.8592716043573762619`4.200283236860991", + "15.8556045734870725283`4.200182806307827", + "15.8547151638927328321`4.200158444164381"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "FCI", "FCI+LDA", "FCI+PBE", "FCI+PBEot"}}]]]], "Output", + CellChangeTimes->{{3.7759035148934097`*^9, 3.7759035355967207`*^9}, { + 3.775922570029889*^9, 3.775922589966546*^9}, 3.775922751312022*^9, + 3.775968011803792*^9, 3.776141467404387*^9}, + CellLabel-> + "Out[42]//TableForm=",ExpressionUUID->"6297040c-31dc-4406-9ac5-\ +d56a510d2133"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "50d1ceb7-3468-41e4-963f-7efff9808dce"], + "@HF/cc-pVDZ" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, + 3.778940796174447*^9}},ExpressionUUID->"50962d13-41d1-4f26-9807-\ +690299046ad4"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "=", + RowBox[{"Import", "[", "\"\\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP$G0W0HF$ccpVDZ", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0HF$ccpVDZ", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0HF$ccpVDZ", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.778940948377639*^9, + 3.778940953284575*^9}, {3.778940997622835*^9, 3.7789410608201733`*^9}}, + CellLabel->"In[6]:=",ExpressionUUID->"740b32b3-1b8a-4ece-8173-ba84e85f7b14"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@HF/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srLDA/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srPBE/cc-pVDZ\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.3603680000000011319`4.386683844681781", + "24.632143567849496435`4.39150220717734", + "24.6646522457441754739`4.392074996594468"}, + {"\<\"Ne\"\>", "20.8704010000000010905`4.319530793598956", + "21.3788888804857499792`4.329985129983453", + "21.5645911073232419142`4.333741227772173"}, + {"\<\"H2\"\>", "16.2478240000000013765`4.210795206048966", + "16.4236072098453611545`4.215468549816227", + "16.4248264967334591802`4.215500790596553"}, + {"\<\"Li2\"\>", "5.2304320000000004143`3.7185375602760824", + "5.3057404211000376293`3.724745998672785", + "5.2807659757108860177`3.7226969215673784"}, + {"\<\"LiH\"\>", "7.9635420000000003427`3.9011062748872183", + "8.1268315789211147404`3.9099212594940496", + "8.0988153460079193025`3.9084214971109588"}, + {"\<\"FH\"\>", "15.5409179999999995658`4.1914766689410285", + "16.0067462158324929078`4.204303059331911", + "16.1521227979756467619`4.208229607711245"}, + {"\<\"Ar\"\>", "15.4035650000000003956`4.187621245553969", + "15.84857341586551982`4.199990175985885", + "15.9141157048323051981`4.201782511308794"}, + {"\<\"H2O\"\>", "12.1615190000000001902`4.084987822643766", + "12.5772892159431233239`4.099587047673806", + "12.6823695832228313662`4.103200405026273"}, + {"\<\"LiF\"\>", "10.7529229999999991207`4.03152653589969", + "11.2126565856213016303`4.049708521050715", + "11.3425583291085718685`4.054711021303261"}, + {"\<\"HCl\"\>", "12.3952299999999997482`4.0932545897407175", + "12.7918954452297324309`4.106934901039511", + "12.8307664630477660239`4.108252600313338"}, + {"\<\"BeO\"\>", "9.470736999999999739`3.976383776530088", + "9.8458345556927984177`3.9932525338383873", + "9.9283949618225015854`3.9968790455180923"}, + {"\<\"CO\"\>", "14.6647189999999998378`4.1662737456037435", + "14.9902764013084848216`4.175809640750639", + "15.0430966581461706966`4.177337246037153"}, + {"\<\"N2\"\>", "15.8670489999999997366`4.200496162911947", + "16.2247027596206265798`4.2101767491679984", + "16.3049917190062210182`4.212320582572162"}, + {"\<\"CH4\"\>", "14.429716000000000875`4.159257783564277", + "14.6925496921124896232`4.167097168229299", + "14.7254162815436835388`4.168067580961476"}, + {"\<\"BH3\"\>", "13.3491590000000002192`4.125453905913014", + "13.5734753185798098229`4.132691057567283", + "13.5838425090237642223`4.133022637721843"}, + {"\<\"NH3\"\>", "10.5882959999999997081`4.024826073672924", + "10.9343489686819186346`4.038792930242795", + "10.9949499112531174916`4.0411932552233285"}, + {"\<\"BF\"\>", "11.0839890000000007575`4.0446960861067955", + "11.2941057276203107307`4.05285184898499", + "11.2934171503267215542`4.05282537017891"}, + {"\<\"BN\"\>", "11.3505160000000007159`4.055015605217144", + "11.6729422356909164904`4.067180336394411", + "11.7202259306495317759`4.068935983652093"}, + {"\<\"SH2\"\>", "10.0972829999999991202`4.0042045285500985", + "10.4395125612211518984`4.018680221184062", + "10.4531777111378669787`4.019248333760483"}, + {"\<\"F2\"\>", "15.9291850000000003718`4.20219355614907", + "16.4189016454629523878`4.215344101305395", + "16.5751430062096751783`4.219457284077705"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@HF/cc-pVDZ", "G0W0@HF+srLDA/cc-pVDZ", + "G0W0@HF+srPBE/cc-pVDZ"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778940950841551*^9, 3.77894095371209*^9}, {3.7789410031761637`*^9, + 3.778941061279231*^9}, 3.778949243545871*^9, 3.7789494664144487`*^9, + 3.7789495145671453`*^9}, + CellLabel-> + "Out[8]//TableForm=",ExpressionUUID->"e4809db2-8868-4321-a995-f4a9fe08a184"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "2221babe-0499-40c3-912e-2355128b6da2"], + "@HF/cc-pVTZ" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, { + 3.77894092081287*^9, + 3.778940921006919*^9}},ExpressionUUID->"6811e92e-26bd-4687-be1f-\ +71606109c64f"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVTZ", "=", + RowBox[{"Import", "[", "\"\\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP$G0W0HF$ccpVTZ", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0HF$ccpVTZ", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0HF$ccpVTZ", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.7789409242363777`*^9, + 3.77894094468468*^9}, {3.778941071778977*^9, 3.778941098194315*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"96bebe42-c17e-4928-8aeb-b7edbd2782ad"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@HF/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srLDA/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srPBE/cc-pVTZ\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.5739860000000014395`4.390475606516782", + "24.6918916502131047253`4.392554362584", + "24.6928258859418825466`4.392570794121613"}, + {"\<\"Ne\"\>", "21.3926009999999990896`4.3302635910827", + "21.6694589018839209871`4.335848066886965", + "21.7293422265904965229`4.337046579901482"}, + {"\<\"H2\"\>", "16.4763739999999998531`4.216861641520162", + "16.5417400219589296739`4.2185811909595", + "16.5337335717892450759`4.218370935031561"}, + {"\<\"Li2\"\>", "5.3406399999999996098`3.7275933041846727", + "5.3738326129601610148`3.730284134668808", + "5.3656458197038672253`3.729622001987655"}, + {"\<\"LiH\"\>", "8.1612410000000004118`3.911756202684354", + "8.2264632042617549246`3.9152131595119903", + "8.2131187410359824952`3.9145081016783947"}, + {"\<\"FH\"\>", "16.1602050000000012631`4.2084468657086225", + "16.4103699942035632375`4.2151183729257005", + "16.4474789006253985235`4.216099337942132"}, + {"\<\"Ar\"\>", "15.7244519999999994297`4.196575519139685", + "15.9811288123536865413`4.203607452053203", + "15.994331458644971633`4.203966091879375"}, + {"\<\"H2O\"\>", "12.792284999999999684`4.106948126515896", + "13.0090082713205905662`4.114244189819875", + "13.0265712012045007384`4.114830117603786"}, + {"\<\"LiF\"\>", "11.3470320000000004512`4.054882279627364", + "11.5961829451724529605`4.064315058308706", + "11.625546561728432593`4.065413379898575"}, + {"\<\"HCl\"\>", "12.768910999999999234`4.1061538599213705", + "12.990066061891919702`4.113611359713688", + "12.9903863697992747461`4.11362206837683"}, + {"\<\"BeO\"\>", "9.7719430000000002678`3.989980925057676", + "9.9726447121192975942`3.9988103470344103", + "9.9806926566559184266`3.999160682221738"}, + {"\<\"CO\"\>", "15.0170279999999998211`4.1765839905300375", + "15.1826275599538274008`4.181346938623934", + "15.1834148703362785682`4.181369458816053"}, + {"\<\"N2\"\>", "16.3118550000000013256`4.2125033522392", + "16.499135432532504808`4.217461187443129", + "16.5020729050689247686`4.2175385014677325"}, + {"\<\"CH4\"\>", "14.7353059999999995711`4.168359159034372", + "14.852714387378414429`4.1718058297969804", + "14.8464601453460343095`4.1716229167776095"}, + {"\<\"BH3\"\>", "13.637223000000000539`4.134725942273338", + "13.7324798178451548125`4.137748969426153", + "13.7228387079778819668`4.137443958869969"}, + {"\<\"NH3\"\>", "11.1320409999999991868`4.046574797198564", + "11.3010904912782041976`4.053120352465222", + "11.3005778567289656422`4.053100651764143"}, + {"\<\"BF\"\>", "11.2993679999999994124`4.053054153059667", + "11.3955518894321450318`4.0567353630162595", + "11.3849148959305637163`4.056329788542213"}, + {"\<\"BN\"\>", "11.6869569999999995957`4.067701446136662", + "11.8528797738803870487`4.073823879288046", + "11.8480483664837858981`4.073646818407662"}, + {"\<\"SH2\"\>", "10.4850180000000001712`4.020569180370649", + "10.6670608594330413865`4.028044772904619", + "10.6572937658224624613`4.027646937168862"}, + {"\<\"F2\"\>", "16.2952219999999989852`4.212060281506792", + "16.562454075800935982`4.219124687075365", + "16.6084297731988463909`4.220328574470012"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@HF/cc-pVTZ", "G0W0@HF+srLDA/cc-pVTZ", + "G0W0@HF+srPBE/cc-pVTZ"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778941082287519*^9, 3.778941098506168*^9}, 3.778949243645054*^9, + 3.778949466480307*^9, 3.7789495146550426`*^9}, + CellLabel-> + "Out[11]//TableForm=",ExpressionUUID->"fa7cecca-df4a-41b5-b817-\ +6bfdd54fd5ff"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "e6208211-af52-4f8a-b797-256363505e5d"], + "@HF/cc-pVQZ" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, { + 3.77894092081287*^9, 3.778940921006919*^9}, {3.7789411133491993`*^9, + 3.7789411134951363`*^9}},ExpressionUUID->"8d79f72d-0619-41cf-8285-\ +c2faeb7fccc4"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVQZ", "=", + RowBox[{"Import", "[", "\"\\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP$G0W0HF$ccpVQZ", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0HF$ccpVQZ", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0HF$ccpVQZ", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.7789409242363777`*^9, + 3.77894094468468*^9}, {3.778941071778977*^9, 3.778941139753708*^9}}, + CellLabel->"In[12]:=",ExpressionUUID->"3ee5d11c-5973-4742-8d2f-604aa1d19beb"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@HF/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srLDA/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srPBE/cc-pVQZ\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.6749159999999996273`4.392255682889858", + "24.7283995378476681992`4.393196009027134", + "24.7239204821706088921`4.3931173381308355"}, + {"\<\"Ne\"\>", "21.630023000000001332`4.335056981240653", + "21.7958773156394904902`4.338374354687626", + "21.808142673869163275`4.338618679753961"}, + {"\<\"H2\"\>", "16.5550280000000000769`4.218929919623587", + "16.5830435329847531989`4.219664240826888", + "16.5793198174780371801`4.219566709231419"}, + {"\<\"Li2\"\>", "5.3907020000000001048`3.731645324532638", + "5.4086952885002048674`3.733092515135806", + "5.4063104080326489509`3.732900977475465"}, + {"\<\"LiH\"\>", "8.245222000000000051`3.9162023533798127", + "8.2757845742447955217`3.9178091770837846", + "8.2710030047321723146`3.9175581785981803"}, + {"\<\"FH\"\>", "16.4189299999999995805`4.215344851307351", + "16.5650243825308116641`4.219192079468857", + "16.5678867205997946144`4.219267116499435"}, + {"\<\"Ar\"\>", "15.9282099999999999795`4.20216697286315", + "16.0865456756346532075`4.206462796425307", + "16.083060268536947035`4.206368689392833"}, + {"\<\"H2O\"\>", "13.0372299999999992082`4.115185327323422", + "13.1596303119697193296`4.11924368899475", + "13.1557724943673068907`4.119116354526701"}, + {"\<\"LiF\"\>", "11.5850329999999992481`4.063897275216844", + "11.7301382799885605124`4.0693031317985655", + "11.730104344954929374`4.069301875392306"}, + {"\<\"HCl\"\>", "12.9625889999999994728`4.112691751235184", + "13.0953276246932777127`4.117116368268432", + "13.0862558155190775722`4.1168154058127495"}, + {"\<\"BeO\"\>", "9.9761869999999994718`3.998964581239026", + "10.0887749007019387193`4.003838432226228", + "10.0824136611161616628`4.003564511695141"}, + {"\<\"CO\"\>", "15.1705170000000002517`4.181000381473691", + "15.2601566554552050547`4.183558991957692", + "15.2528275492446656614`4.183350360089738"}, + {"\<\"N2\"\>", "16.4825949999999998852`4.217025587546751", + "16.5865505247502795783`4.2197560759681245", + "16.5781212472912535816`4.219535311608333"}, + {"\<\"CH4\"\>", "14.8551369999999991478`4.17187666139513", + "14.911191232181682409`4.173512339958538", + "14.9047563901933486363`4.173324882129175"}, + {"\<\"BH3\"\>", "13.7393710000000002225`4.13796685081072", + "13.7828364388854964773`4.1393386024042105", + "13.7768341263870190971`4.13914942951611"}, + {"\<\"NH3\"\>", "11.3247560000000007108`4.054028853599204", + "11.4137181297058560858`4.057427143118765", + "11.4058923836506878047`4.05712926963317"}, + {"\<\"BF\"\>", "11.3836960000000004811`4.056283289458049", + "11.4319786618520460308`4.058121405159352", + "11.4248676484264315434`4.057851177679218"}, + {"\<\"BN\"\>", "11.8474179999999993385`4.073623711482369", + "11.9375735629260280035`4.0769160608535335", + "11.9275853805173301936`4.07655253402617"}, + {"\<\"SH2\"\>", "10.6514039999999994279`4.0274068574709245", + "10.7567874689451272729`4.031682587982199", + "10.7446247266749601579`4.031191251658045"}, + {"\<\"F2\"\>", "16.5079320000000002722`4.217692671249382", + "16.6662162597660952201`4.221837012903875", + "16.6720447279382000261`4.22198886675083"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@HF/cc-pVQZ", "G0W0@HF+srLDA/cc-pVQZ", + "G0W0@HF+srPBE/cc-pVQZ"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778941082287519*^9, 3.778941098506168*^9}, 3.778941334689724*^9, + 3.778949243743815*^9, 3.778949466545636*^9, 3.778949514738721*^9}, + CellLabel-> + "Out[14]//TableForm=",ExpressionUUID->"d09d33ac-5bf9-4748-8ca1-\ +667a2a77865e"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "6ba9c12f-4dd0-418a-bf8c-0376827daef5"], + "@HF/cc-pV5Z" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, { + 3.77894092081287*^9, 3.778940921006919*^9}, {3.7789411152921057`*^9, + 3.778941115541211*^9}},ExpressionUUID->"9e9f5a66-81e4-4b37-808a-\ +3a5b19a88be9"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpV5Z", "=", + RowBox[{"Import", "[", "\"\\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP$G0W0HF$ccpV5Z", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0HF$ccpV5Z", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0HF$ccpV5Z", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.7789409242363777`*^9, + 3.77894094468468*^9}, {3.778941071778977*^9, 3.778941098194315*^9}, { + 3.7789411459949503`*^9, 3.778941164692428*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"0e83ae26-e77a-45c9-9c11-e053b599bcd2"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@HF/cc-pV5Z\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srLDA/cc-pV5Z\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srPBE/cc-pV5Z\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.7151619999999994093`4.392963461467866", + "24.7425537357115103987`4.393444522135898", + "24.7400336141236216747`4.393400285366606"}, + {"\<\"Ne\"\>", "21.7327170000000009509`4.337114024725701", + "21.8358299255405121642`4.339169703023239", + "21.8348965966809664963`4.339151139577845"}, + {"\<\"H2\"\>", "16.5835919999999994445`4.219678604430215", + "16.5971824593903711786`4.220034368389676", + "16.5956910813153797335`4.21999534210483"}, + {"\<\"Li2\"\>", "5.4175769999999996429`3.733805092661438", + "5.4292298887716397005`3.7347382312875097", + "5.4285172216045225468`3.734681219936"}, + {"\<\"LiH\"\>", "8.284499999999999531`3.918266302279359", + "8.3017372441534913463`3.9191689835329737", + "8.2998357293082243302`3.9190694968868005"}, + {"\<\"FH\"\>", "16.5245840000000008274`4.2181305350999745", + "16.6130558950457398737`4.220449526267519", + "16.6088809827466512559`4.220340373005917"}, + {"\<\"Ar\"\>", "11.0278729999999995925`4.042491756008564", + "11.1265760378982960788`4.046361540199872", + "11.1166182001072666452`4.0459726900871615"}, + {"\<\"H2O\"\>", "13.1350809999999995625`4.11843275529069", + "13.2070369001196201708`4.120805391250046", + "13.2012313113363042305`4.120614440810341"}, + {"\<\"LiF\"\>", "11.7005490000000005324`4.06820623970145", + "11.7886419568203830721`4.071463777560779", + "11.7833717541332312351`4.071269579473865"}, + {"\<\"HCl\"\>", "6.7407899999999996155`3.828710797504936", + "6.8202150846635714032`3.833798070933548", + "6.8098013647900828005`3.8331344441545303"}, + {"\<\"BeO\"\>", "10.0859470000000008838`4.003716681682721", + "10.1528354023952527285`4.006587345466032", + "10.1464767854197219776`4.006315266064545"}, + {"\<\"CO\"\>", "15.2398270000000000124`4.182980036992308", + "15.2918431205623441826`4.184459833930853", + "15.286159072431100725`4.184298374673238"}, + {"\<\"N2\"\>", "16.5631829999999986569`4.219143800232749", + "16.6236908785067107885`4.220727454478805", + "16.6170636243069544946`4.2205542827196005"}, + {"\<\"CH4\"\>", "14.9024300000000007316`4.173257090529354", + "14.9024300000000007316`4.173257090529354", + "14.9024300000000007316`4.173257090529354"}, + {"\<\"BH3\"\>", "13.7791209999999999525`4.1392215138687405", + "13.8017901811829286629`4.139935420849499", + "13.798896808858325258`4.1398443669101725"}, + {"\<\"NH3\"\>", "11.3960109999999996688`4.056752859770405", + "11.4466287325273032849`4.0586775968552615", + "11.4410166673613051813`4.058464618286262"}, + {"\<\"BF\"\>", "11.4225119999999993325`4.0577616229790925", + "11.4495739533566407431`4.05878932657558", + "11.4456203620908354424`4.05863933676865"}, + {"\<\"BN\"\>", "11.9235170000000003654`4.076404375236869", + "11.9752169044617886584`4.078283388437978", + "11.9685327064204471981`4.078040910927321"}, + {"\<\"SH2\"\>", "9.0650420000000000442`3.957369820602072", + "9.1253354048773918095`3.960248836066644", + "9.1159760244287113551`3.9598031742889432"}, + {"\<\"F2\"\>", "16.6149909999999998433`4.220500110366377", + "16.7117601083342712798`4.223022192866553", + "16.7082133593031230134`4.222930012449942"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@HF/cc-pV5Z", "G0W0@HF+srLDA/cc-pV5Z", + "G0W0@HF+srPBE/cc-pV5Z"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778941082287519*^9, 3.778941098506168*^9}, 3.7789411653658123`*^9, + 3.7789413300354557`*^9, 3.7789492438405027`*^9, 3.778949466611485*^9, + 3.7789495148221073`*^9}, + CellLabel-> + "Out[17]//TableForm=",ExpressionUUID->"a5f7170f-a699-45a2-8e80-\ +f129965fdf3e"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "f6538c71-b5ac-401d-ae2f-96008e47df88"], + "@HF" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, { + 3.77894092081287*^9, 3.778940921006919*^9}, {3.7789411152921057`*^9, + 3.778941115541211*^9}, 3.778944169914558*^9, 3.778948020652269*^9, { + 3.778948940903035*^9, + 3.778948940980543*^9}},ExpressionUUID->"4e039aa6-68d1-47a5-bbbc-\ +d6a2e4853781"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"IP$G0W0HF", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0HF$ccpVDZ", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0HF", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.7789409242363777`*^9, + 3.77894094468468*^9}, {3.778941071778977*^9, 3.778941098194315*^9}, { + 3.7789411459949503`*^9, 3.778941164692428*^9}, {3.7789442404898167`*^9, + 3.778944260998493*^9}, {3.7789480302740583`*^9, 3.7789481753009977`*^9}, { + 3.7789489433903227`*^9, 3.778948965718418*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"1b01945f-d8b1-4386-8d85-0dcb9e2b5372"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@HF/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF/cc-pV5Z\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.3603680000000011319`4.386683844681781", + "24.5739860000000014395`4.390475606516782", + "24.6749159999999996273`4.392255682889858", + "24.7151619999999994093`4.392963461467866"}, + {"\<\"Ne\"\>", "20.8704010000000010905`4.319530793598956", + "21.3926009999999990896`4.3302635910827", + "21.630023000000001332`4.335056981240653", + "21.7327170000000009509`4.337114024725701"}, + {"\<\"H2\"\>", "16.2478240000000013765`4.210795206048966", + "16.4763739999999998531`4.216861641520162", + "16.5550280000000000769`4.218929919623587", + "16.5835919999999994445`4.219678604430215"}, + {"\<\"Li2\"\>", "5.2304320000000004143`3.7185375602760824", + "5.3406399999999996098`3.7275933041846727", + "5.3907020000000001048`3.731645324532638", + "5.4175769999999996429`3.733805092661438"}, + {"\<\"LiH\"\>", "7.9635420000000003427`3.9011062748872183", + "8.1612410000000004118`3.911756202684354", + "8.245222000000000051`3.9162023533798127", + "8.284499999999999531`3.918266302279359"}, + {"\<\"FH\"\>", "15.5409179999999995658`4.1914766689410285", + "16.1602050000000012631`4.2084468657086225", + "16.4189299999999995805`4.215344851307351", + "16.5245840000000008274`4.2181305350999745"}, + {"\<\"Ar\"\>", "15.4035650000000003956`4.187621245553969", + "15.7244519999999994297`4.196575519139685", + "15.9282099999999999795`4.20216697286315", + "11.0278729999999995925`4.042491756008564"}, + {"\<\"H2O\"\>", "12.1615190000000001902`4.084987822643766", + "12.792284999999999684`4.106948126515896", + "13.0372299999999992082`4.115185327323422", + "13.1350809999999995625`4.11843275529069"}, + {"\<\"LiF\"\>", "10.7529229999999991207`4.03152653589969", + "11.3470320000000004512`4.054882279627364", + "11.5850329999999992481`4.063897275216844", + "11.7005490000000005324`4.06820623970145"}, + {"\<\"HCl\"\>", "12.3952299999999997482`4.0932545897407175", + "12.768910999999999234`4.1061538599213705", + "12.9625889999999994728`4.112691751235184", + "6.7407899999999996155`3.828710797504936"}, + {"\<\"BeO\"\>", "9.470736999999999739`3.976383776530088", + "9.7719430000000002678`3.989980925057676", + "9.9761869999999994718`3.998964581239026", + "10.0859470000000008838`4.003716681682721"}, + {"\<\"CO\"\>", "14.6647189999999998378`4.1662737456037435", + "15.0170279999999998211`4.1765839905300375", + "15.1705170000000002517`4.181000381473691", + "15.2398270000000000124`4.182980036992308"}, + {"\<\"N2\"\>", "15.8670489999999997366`4.200496162911947", + "16.3118550000000013256`4.2125033522392", + "16.4825949999999998852`4.217025587546751", + "16.5631829999999986569`4.219143800232749"}, + {"\<\"CH4\"\>", "14.429716000000000875`4.159257783564277", + "14.7353059999999995711`4.168359159034372", + "14.8551369999999991478`4.17187666139513", + "14.9024300000000007316`4.173257090529354"}, + {"\<\"BH3\"\>", "13.3491590000000002192`4.125453905913014", + "13.637223000000000539`4.134725942273338", + "13.7393710000000002225`4.13796685081072", + "13.7791209999999999525`4.1392215138687405"}, + {"\<\"NH3\"\>", "10.5882959999999997081`4.024826073672924", + "11.1320409999999991868`4.046574797198564", + "11.3247560000000007108`4.054028853599204", + "11.3960109999999996688`4.056752859770405"}, + {"\<\"BF\"\>", "11.0839890000000007575`4.0446960861067955", + "11.2993679999999994124`4.053054153059667", + "11.3836960000000004811`4.056283289458049", + "11.4225119999999993325`4.0577616229790925"}, + {"\<\"BN\"\>", "11.3505160000000007159`4.055015605217144", + "11.6869569999999995957`4.067701446136662", + "11.8474179999999993385`4.073623711482369", + "11.9235170000000003654`4.076404375236869"}, + {"\<\"SH2\"\>", "10.0972829999999991202`4.0042045285500985", + "10.4850180000000001712`4.020569180370649", + "10.6514039999999994279`4.0274068574709245", + "9.0650420000000000442`3.957369820602072"}, + {"\<\"F2\"\>", "15.9291850000000003718`4.20219355614907", + "16.2952219999999989852`4.212060281506792", + "16.5079320000000002722`4.217692671249382", + "16.6149909999999998433`4.220500110366377"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@HF/cc-pVDZ", "G0W0@HF/cc-pVTZ", "G0W0@HF/cc-pVQZ", + "G0W0@HF/cc-pV5Z"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778941082287519*^9, 3.778941098506168*^9}, 3.7789411653658123`*^9, + 3.7789413300354557`*^9, 3.778947986712735*^9, {3.7789480512370453`*^9, + 3.778948107507431*^9}, {3.7789481649283237`*^9, 3.7789481769010963`*^9}, + 3.778948966253562*^9, 3.778949243925074*^9, {3.778949466672144*^9, + 3.778949515658133*^9}}, + CellLabel-> + "Out[45]//TableForm=",ExpressionUUID->"ab7b5416-6cf9-4fce-ae3e-\ +90d7413e262b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"IP$G0W0HFsrLDA", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0HF$ccpVDZ", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0HFsrLDA", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", "\"\\"", + ",", "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.7789481873480797`*^9, 3.7789482324048033`*^9}, { + 3.778948971551581*^9, 3.7789489973591948`*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"4d3d2a6a-9cce-464c-b450-ab541240c58a"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srLDA/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srLDA/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srLDA/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srLDA/cc-pV5Z\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.632143567849496435`4.39150220717734", + "24.6918916502131047253`4.392554362584", + "24.7283995378476681992`4.393196009027134", + "24.7425537357115103987`4.393444522135898"}, + {"\<\"Ne\"\>", "21.3788888804857499792`4.329985129983453", + "21.6694589018839209871`4.335848066886965", + "21.7958773156394904902`4.338374354687626", + "21.8358299255405121642`4.339169703023239"}, + {"\<\"H2\"\>", "16.4236072098453611545`4.215468549816227", + "16.5417400219589296739`4.2185811909595", + "16.5830435329847531989`4.219664240826888", + "16.5971824593903711786`4.220034368389676"}, + {"\<\"Li2\"\>", "5.3057404211000376293`3.724745998672785", + "5.3738326129601610148`3.730284134668808", + "5.4086952885002048674`3.733092515135806", + "5.4292298887716397005`3.7347382312875097"}, + {"\<\"LiH\"\>", "8.1268315789211147404`3.9099212594940496", + "8.2264632042617549246`3.9152131595119903", + "8.2757845742447955217`3.9178091770837846", + "8.3017372441534913463`3.9191689835329737"}, + {"\<\"FH\"\>", "16.0067462158324929078`4.204303059331911", + "16.4103699942035632375`4.2151183729257005", + "16.5650243825308116641`4.219192079468857", + "16.6130558950457398737`4.220449526267519"}, + {"\<\"Ar\"\>", "15.84857341586551982`4.199990175985885", + "15.9811288123536865413`4.203607452053203", + "16.0865456756346532075`4.206462796425307", + "11.1265760378982960788`4.046361540199872"}, + {"\<\"H2O\"\>", "12.5772892159431233239`4.099587047673806", + "13.0090082713205905662`4.114244189819875", + "13.1596303119697193296`4.11924368899475", + "13.2070369001196201708`4.120805391250046"}, + {"\<\"LiF\"\>", "11.2126565856213016303`4.049708521050715", + "11.5961829451724529605`4.064315058308706", + "11.7301382799885605124`4.0693031317985655", + "11.7886419568203830721`4.071463777560779"}, + {"\<\"HCl\"\>", "12.7918954452297324309`4.106934901039511", + "12.990066061891919702`4.113611359713688", + "13.0953276246932777127`4.117116368268432", + "6.8202150846635714032`3.833798070933548"}, + {"\<\"BeO\"\>", "9.8458345556927984177`3.9932525338383873", + "9.9726447121192975942`3.9988103470344103", + "10.0887749007019387193`4.003838432226228", + "10.1528354023952527285`4.006587345466032"}, + {"\<\"CO\"\>", "14.9902764013084848216`4.175809640750639", + "15.1826275599538274008`4.181346938623934", + "15.2601566554552050547`4.183558991957692", + "15.2918431205623441826`4.184459833930853"}, + {"\<\"N2\"\>", "16.2247027596206265798`4.2101767491679984", + "16.499135432532504808`4.217461187443129", + "16.5865505247502795783`4.2197560759681245", + "16.6236908785067107885`4.220727454478805"}, + {"\<\"CH4\"\>", "14.6925496921124896232`4.167097168229299", + "14.852714387378414429`4.1718058297969804", + "14.911191232181682409`4.173512339958538", + "14.9024300000000007316`4.173257090529354"}, + {"\<\"BH3\"\>", "13.5734753185798098229`4.132691057567283", + "13.7324798178451548125`4.137748969426153", + "13.7828364388854964773`4.1393386024042105", + "13.8017901811829286629`4.139935420849499"}, + {"\<\"NH3\"\>", "10.9343489686819186346`4.038792930242795", + "11.3010904912782041976`4.053120352465222", + "11.4137181297058560858`4.057427143118765", + "11.4466287325273032849`4.0586775968552615"}, + {"\<\"BF\"\>", "11.2941057276203107307`4.05285184898499", + "11.3955518894321450318`4.0567353630162595", + "11.4319786618520460308`4.058121405159352", + "11.4495739533566407431`4.05878932657558"}, + {"\<\"BN\"\>", "11.6729422356909164904`4.067180336394411", + "11.8528797738803870487`4.073823879288046", + "11.9375735629260280035`4.0769160608535335", + "11.9752169044617886584`4.078283388437978"}, + {"\<\"SH2\"\>", "10.4395125612211518984`4.018680221184062", + "10.6670608594330413865`4.028044772904619", + "10.7567874689451272729`4.031682587982199", + "9.1253354048773918095`3.960248836066644"}, + {"\<\"F2\"\>", "16.4189016454629523878`4.215344101305395", + "16.562454075800935982`4.219124687075365", + "16.6662162597660952201`4.221837012903875", + "16.7117601083342712798`4.223022192866553"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@HF+srLDA/cc-pVDZ", "G0W0@HF+srLDA/cc-pVTZ", + "G0W0@HF+srLDA/cc-pVQZ", "G0W0@HF+srLDA/cc-pV5Z"}}]]]], "Output", + CellChangeTimes->{3.778948232908155*^9, 3.7789490025112143`*^9, + 3.778949244023615*^9, 3.778949466729723*^9, 3.778949514953648*^9}, + CellLabel-> + "Out[21]//TableForm=",ExpressionUUID->"89742b19-d14c-498d-9ac8-\ +4e4b4dbd24a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"IP$G0W0HFsrPBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0HF$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0HF$ccpVDZ", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0HFsrPBE", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", "\"\\"", + ",", "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.7789481873480797`*^9, 3.778948268839349*^9}, { + 3.7789490079748487`*^9, 3.778949032595141*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"8f082628-03e5-4288-91c2-151ab2b847fe"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srPBE/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srPBE/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srPBE/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@HF+srPBE/cc-pV5Z\"\>", + HoldForm]}, + {"\<\"He\"\>", "24.6646522457441754739`4.392074996594468", + "24.6928258859418825466`4.392570794121613", + "24.7239204821706088921`4.3931173381308355", + "24.7400336141236216747`4.393400285366606"}, + {"\<\"Ne\"\>", "21.5645911073232419142`4.333741227772173", + "21.7293422265904965229`4.337046579901482", + "21.808142673869163275`4.338618679753961", + "21.8348965966809664963`4.339151139577845"}, + {"\<\"H2\"\>", "16.4248264967334591802`4.215500790596553", + "16.5337335717892450759`4.218370935031561", + "16.5793198174780371801`4.219566709231419", + "16.5956910813153797335`4.21999534210483"}, + {"\<\"Li2\"\>", "5.2807659757108860177`3.7226969215673784", + "5.3656458197038672253`3.729622001987655", + "5.4063104080326489509`3.732900977475465", + "5.4285172216045225468`3.734681219936"}, + {"\<\"LiH\"\>", "8.0988153460079193025`3.9084214971109588", + "8.2131187410359824952`3.9145081016783947", + "8.2710030047321723146`3.9175581785981803", + "8.2998357293082243302`3.9190694968868005"}, + {"\<\"FH\"\>", "16.1521227979756467619`4.208229607711245", + "16.4474789006253985235`4.216099337942132", + "16.5678867205997946144`4.219267116499435", + "16.6088809827466512559`4.220340373005917"}, + {"\<\"Ar\"\>", "15.9141157048323051981`4.201782511308794", + "15.994331458644971633`4.203966091879375", + "16.083060268536947035`4.206368689392833", + "11.1166182001072666452`4.0459726900871615"}, + {"\<\"H2O\"\>", "12.6823695832228313662`4.103200405026273", + "13.0265712012045007384`4.114830117603786", + "13.1557724943673068907`4.119116354526701", + "13.2012313113363042305`4.120614440810341"}, + {"\<\"LiF\"\>", "11.3425583291085718685`4.054711021303261", + "11.625546561728432593`4.065413379898575", + "11.730104344954929374`4.069301875392306", + "11.7833717541332312351`4.071269579473865"}, + {"\<\"HCl\"\>", "12.8307664630477660239`4.108252600313338", + "12.9903863697992747461`4.11362206837683", + "13.0862558155190775722`4.1168154058127495", + "6.8098013647900828005`3.8331344441545303"}, + {"\<\"BeO\"\>", "9.9283949618225015854`3.9968790455180923", + "9.9806926566559184266`3.999160682221738", + "10.0824136611161616628`4.003564511695141", + "10.1464767854197219776`4.006315266064545"}, + {"\<\"CO\"\>", "15.0430966581461706966`4.177337246037153", + "15.1834148703362785682`4.181369458816053", + "15.2528275492446656614`4.183350360089738", + "15.286159072431100725`4.184298374673238"}, + {"\<\"N2\"\>", "16.3049917190062210182`4.212320582572162", + "16.5020729050689247686`4.2175385014677325", + "16.5781212472912535816`4.219535311608333", + "16.6170636243069544946`4.2205542827196005"}, + {"\<\"CH4\"\>", "14.7254162815436835388`4.168067580961476", + "14.8464601453460343095`4.1716229167776095", + "14.9047563901933486363`4.173324882129175", + "14.9024300000000007316`4.173257090529354"}, + {"\<\"BH3\"\>", "13.5838425090237642223`4.133022637721843", + "13.7228387079778819668`4.137443958869969", + "13.7768341263870190971`4.13914942951611", + "13.798896808858325258`4.1398443669101725"}, + {"\<\"NH3\"\>", "10.9949499112531174916`4.0411932552233285", + "11.3005778567289656422`4.053100651764143", + "11.4058923836506878047`4.05712926963317", + "11.4410166673613051813`4.058464618286262"}, + {"\<\"BF\"\>", "11.2934171503267215542`4.05282537017891", + "11.3849148959305637163`4.056329788542213", + "11.4248676484264315434`4.057851177679218", + "11.4456203620908354424`4.05863933676865"}, + {"\<\"BN\"\>", "11.7202259306495317759`4.068935983652093", + "11.8480483664837858981`4.073646818407662", + "11.9275853805173301936`4.07655253402617", + "11.9685327064204471981`4.078040910927321"}, + {"\<\"SH2\"\>", "10.4531777111378669787`4.019248333760483", + "10.6572937658224624613`4.027646937168862", + "10.7446247266749601579`4.031191251658045", + "9.1159760244287113551`3.9598031742889432"}, + {"\<\"F2\"\>", "16.5751430062096751783`4.219457284077705", + "16.6084297731988463909`4.220328574470012", + "16.6720447279382000261`4.22198886675083", + "16.7082133593031230134`4.222930012449942"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@HF+srPBE/cc-pVDZ", "G0W0@HF+srPBE/cc-pVTZ", + "G0W0@HF+srPBE/cc-pVQZ", "G0W0@HF+srPBE/cc-pV5Z"}}]]]], "Output", + CellChangeTimes->{3.7789482693528748`*^9, 3.77894903322053*^9, + 3.7789492441080933`*^9, 3.7789494669350233`*^9, 3.7789495150037107`*^9}, + CellLabel-> + "Out[23]//TableForm=",ExpressionUUID->"a562b81b-096e-42ba-8f47-\ +bf648a169b85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Mol", "=", "18"}], ";"}], "\[IndentingNewLine]", + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"k", "+", "1"}], ",", + RowBox[{"IP$G0W0HF", "\[LeftDoubleBracket]", + RowBox[{"Mol", ",", + RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"k", "+", "1"}], ",", + RowBox[{"IP$G0W0HFsrLDA", "\[LeftDoubleBracket]", + RowBox[{"Mol", ",", + RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"k", "+", "1"}], ",", + RowBox[{"IP$G0W0HFsrPBE", "\[LeftDoubleBracket]", + RowBox[{"Mol", ",", + RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", + "}"}], ",", + RowBox[{"FrameLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"PlotLabel", "\[Rule]", + RowBox[{ + "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@HF for \>\"", "<>", + RowBox[{"IP$G0W0PBE", "\[LeftDoubleBracket]", + RowBox[{"Mol", ",", "1"}], "\[RightDoubleBracket]"}]}]}], ",", + RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", + RowBox[{"FrameTicks", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", "Automatic"}], + "}"}]}], ",", + RowBox[{"PlotRange", "\[Rule]", "All"}], ",", + RowBox[{"PlotMarkers", "\[Rule]", + RowBox[{"{", + RowBox[{"Automatic", ",", "Large"}], "}"}]}], ",", + RowBox[{"Joined", "\[Rule]", "True"}], ",", + RowBox[{"BaseStyle", "\[Rule]", "20"}], ",", + RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", + RowBox[{"PlotLegends", "\[Rule]", + RowBox[{"Placed", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@HF\>\"", ",", + "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@HF+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}, { + 3.7789485813916903`*^9, 3.778948798444069*^9}, {3.778948832147129*^9, + 3.778948897894413*^9}, {3.778949036373356*^9, 3.778949110013761*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"3ec08f0d-4141-41ff-b494-a3f3ed3f5aa3"], + +Cell[BoxData[ + TagBox[ + GraphicsBox[{{{}, {{{}, {}, + {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], + Thickness[Large], CapForm["Butt"], + LineBox[{{2., 11.350516}, {3., 11.686957}, {4., 11.847418}, {5., + 11.923517}}]}, + {RGBColor[0.365248, 0.427802, 0.758297], PointSize[ + 0.012833333333333334`], Thickness[Large], CapForm["Butt"], + LineBox[{{2., 11.672942235690916`}, {3., 11.852879773880387`}, {4., + 11.937573562926028`}, {5., 11.975216904461789`}}]}, + {RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`], + Thickness[Large], CapForm["Butt"], + LineBox[{{2., 11.720225930649532`}, {3., 11.848048366483786`}, {4., + 11.92758538051733}, {5., 11.968532706420447`}}]}}, { + {RGBColor[0.9, 0.36, 0.054], AbsolutePointSize[6], Thickness[Large], + CapForm["Butt"], GeometricTransformationBox[InsetBox[ + StyleBox["\<\"\[FilledCircle]\"\>", + StripOnInput->False, + FontSize->Large], {0., 0.}], {{{2., 11.350516}}, {{3., + 11.686957}}, {{4., 11.847418}}, {{5., 11.923517}}}]}, + {RGBColor[0.365248, 0.427802, 0.758297], AbsolutePointSize[6], + Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ + StyleBox["\<\"\[FilledSquare]\"\>", + StripOnInput->False, + FontSize->Large], {0., 0.}], {{{2., 11.672942235690916`}}, {{3., + 11.852879773880387`}}, {{4., 11.937573562926028`}}, {{5., + 11.975216904461789`}}}]}, + {RGBColor[0.945109, 0.593901, 0.], AbsolutePointSize[6], Thickness[ + Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ + StyleBox["\<\"\[FilledDiamond]\"\>", + StripOnInput->False, + FontSize->Large], {0., 0.}], {{{2., 11.720225930649532`}}, {{3., + 11.848048366483786`}}, {{4., 11.92758538051733}}, {{5., + 11.968532706420447`}}}]}, {}}}, {}, {}, {}, {}}, 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.154], + RGBColor[0.9, 0.36, 0.054], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + LineBox[{{0, 15}, {30, 15}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.9, 0.36, 0.054], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + InsetBox[ + FormBox[ + StyleBox["\"\[FilledCircle]\"", + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.9, 0.36, 0.054], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> + False], TraditionalForm], + NCache[ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}], + Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, + ImageSize -> {30, 15}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.23333333333333334`] -> + Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.365248, 0.427802, 0.758297], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + LineBox[{{0, 15}, {30, 15}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.365248, 0.427802, 0.758297], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + InsetBox[ + FormBox[ + StyleBox["\"\[FilledSquare]\"", + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.365248, 0.427802, 0.758297], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> + False], TraditionalForm], + NCache[ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}], + Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, + ImageSize -> {30, 15}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.23333333333333334`] -> + Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.945109, 0.593901, 0.], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + LineBox[{{0, 15}, {30, 15}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.945109, 0.593901, 0.], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + InsetBox[ + FormBox[ + StyleBox["\"\[FilledDiamond]\"", + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.945109, 0.593901, 0.], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> + False], TraditionalForm], + NCache[ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}], + Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, + ImageSize -> {30, 15}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.23333333333333334`] -> + Baseline)], #3}}, + GridBoxAlignment -> { + "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, + AutoDelete -> False, + GridBoxDividers -> { + "Columns" -> {{False}}, "Rows" -> {{False}}}, + GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, + GridBoxSpacings -> { + "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, + GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], + "Grid"], Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + FontFamily -> "Times", FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False], 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[{"\"\[FilledCircle]\"", ",", "Large"}], "}"}], ",", + + RowBox[{"{", + RowBox[{"\"\[FilledSquare]\"", ",", "Large"}], "}"}], ",", + + RowBox[{"{", + RowBox[{"\"\[FilledDiamond]\"", ",", "Large"}], "}"}]}], + "}"}]}], ",", + RowBox[{"Joined", "\[Rule]", + RowBox[{"{", + RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], + 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.953125, 11.31928095477691}, + BaseStyle->20, + DisplayFunction->Identity, + Frame->{{True, True}, {True, True}}, + FrameLabel->{{ + FormBox["\"IP (eV)\"", TraditionalForm], None}, { + FormBox["\"cc-pVXZ\"", TraditionalForm], None}}, + FrameStyle->Automatic, + FrameTicks->{{Automatic, Automatic}, {{{2, + FormBox["2", TraditionalForm]}, {3, + FormBox["3", TraditionalForm]}, {4, + FormBox["4", TraditionalForm]}, {5, + FormBox["5", TraditionalForm]}}, {{2, + FormBox["2", TraditionalForm]}, {3, + FormBox["3", TraditionalForm]}, {4, + FormBox["4", TraditionalForm]}, {5, + FormBox["5", TraditionalForm]}}}}, + GridLines->{{0}, {0}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + ImageSize->Large, + LabelStyle->{FontFamily -> "Times"}, + Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotLabel->FormBox[ + "\"\\!\\(\\*SubscriptBox[\\(G\\), \ +\\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@HF for BN\"", + TraditionalForm], + PlotRange->{{2., 5.}, {11.350516, 11.975216904461789`}}, + 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., 11.350516}, {3., 11.686957}, {4., 11.847418}, {5., + 11.923517}}]}, { + 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., 11.672942235690916`}, {3., 11.852879773880387`}, {4., + 11.937573562926028`}, {5., 11.975216904461789`}}]}, { + 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., 11.720225930649532`}, {3., 11.848048366483786`}, {4., + 11.92758538051733}, {5., 11.968532706420447`}}]}}, {{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.054], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large], + AbsolutePointSize[6]], + GeometricTransformation[ + Inset[ + Style["\[FilledCircle]", FontSize -> Large], {0., 0.}], {{{2., + 11.350516}}, {{3., 11.686957}}, {{4., 11.847418}}, {{5., + 11.923517}}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.365248, 0.427802, 0.758297], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large], + AbsolutePointSize[6]], + GeometricTransformation[ + Inset[ + Style["\[FilledSquare]", FontSize -> Large], {0., 0.}], {{{2., + 11.672942235690916`}}, {{3., 11.852879773880387`}}, {{4., + 11.937573562926028`}}, {{5., 11.975216904461789`}}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.945109, 0.593901, 0.], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large], + AbsolutePointSize[6]], + GeometricTransformation[ + Inset[ + Style["\[FilledDiamond]", FontSize -> Large], {0., 0.}], {{{2., + 11.720225930649532`}}, {{3., 11.848048366483786`}}, {{4., + 11.92758538051733}}, {{5., + 11.968532706420447`}}}]}, {}}}, {}, {}, {}, {}}, { + DisplayFunction -> Identity, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, AxesOrigin -> {1.953125, 11.31928095477691}, + PlotRange -> {{2., 5.}, {11.350516, 11.975216904461789`}}, + PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> + Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, + AxesLabel -> {None, None}, AxesOrigin -> {1.953125, 11.31928095477691}, + BaseStyle -> 20, DisplayFunction :> Identity, + Frame -> {{True, True}, {True, True}}, + FrameLabel -> {{"IP (eV)", None}, {"cc-pVXZ", None}}, FrameStyle -> + Automatic, + FrameTicks -> {{Automatic, Automatic}, {{2, 3, 4, 5}, {2, 3, 4, 5}}}, + GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, + Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, PlotLabel -> + "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@HF for BN", + PlotRange -> {{2., 5.}, {11.350516, 11.975216904461789`}}, + 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 -> {{"\[FilledCircle]", Large}, { + "\[FilledSquare]", Large}, {"\[FilledDiamond]", Large}}, + Joined -> {True, True, True}, LabelStyle -> {FontFamily -> "Times"}, + LegendLayout -> "Column"]], {Right, Bottom}, Identity]]& ], + AutoDelete->True, + Editable->True, + SelectWithContents->False, + Selectable->True]], "Output", + CellChangeTimes->{{3.778924521394305*^9, 3.7789245299517107`*^9}, { + 3.778924636535309*^9, 3.778924717193363*^9}, 3.778924812659029*^9, { + 3.778925771153364*^9, 3.778925786982954*^9}, {3.778948662198921*^9, + 3.778948681247415*^9}, {3.778948711456181*^9, 3.778948738062662*^9}, { + 3.778948789232691*^9, 3.778948799034783*^9}, {3.7789488476778183`*^9, + 3.778948898786643*^9}, {3.778949045646062*^9, 3.778949110656357*^9}, + 3.778949255960144*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"269eee09-d624-4f4a-aed4-4844037f3564"] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "229f9fd4-14ab-4dd6-a8ff-6d5bd48fe897"], + "@PBE/cc-pVDZ" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, + 3.778944122707201*^9},ExpressionUUID->"8bb2386b-7f94-4448-a34f-\ +74a4f2d8352f"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "=", + RowBox[{"Import", "[", "\"\\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP$G0W0PBE$ccpVDZ", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0PBE$ccpVDZ", "]"}]}], "}"}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0PBE$ccpVDZ", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.778940948377639*^9, + 3.778940953284575*^9}, {3.778940997622835*^9, 3.7789410608201733`*^9}, { + 3.778944117997401*^9, 3.778944147208864*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"f374a050-8b43-4e1c-ab4b-8dfa7dfe4b74"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srLDA/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srPBE/cc-pVDZ\"\>", + HoldForm]}, + {"\<\"He\"\>", "0``3.", "0.2709964479351975042`2.4329635984306677", + "0.3029775827748286132`2.481410496365828"}, + {"\<\"Ne\"\>", "12.0275630000000006703`4.080177640401516", + "12.5363369828204067602`4.098170657663821", + "12.7221079121109958976`4.104559075050887"}, + {"\<\"H2\"\>", "15.7639549999999992735`4.19766518645241", + "15.9389797401220612016`4.202460518602373", + "15.939948757532247825`4.202486920927298"}, + {"\<\"Li2\"\>", "4.946696000000000204`3.69431522154687", + "5.0250736530635489174`3.7011424316417116", + "5.0003833758010847177`3.6990033026584395"}, + {"\<\"LiH\"\>", "6.4338389999999998636`3.808470188942943", + "6.5908398869636144468`3.818940761336303", + "6.5648887350298306131`3.8172273698509267"}, + {"\<\"FH\"\>", "14.5995670000000004052`4.164339975489968", + "15.064665499869354548`4.177959492917856", + "15.2107874003904672833`4.1821516962879395"}, + {"\<\"Ar\"\>", "14.7408629999999991611`4.168522909925102", + "15.1865670242362043041`4.1814596111944455", + "15.2533613060377426507`4.183365557506304"}, + {"\<\"H2O\"\>", "11.1742720000000002045`4.048219238588612", + "11.5890642470361129313`4.064048370497232", + "11.6955123970882031159`4.068019253622998"}, + {"\<\"LiF\"\>", "8.9645709999999994011`3.9525295112110115", + "9.4121668281794104161`3.973689616327575", + "9.5405559999965543483`3.979573685049403"}, + {"\<\"HCl\"\>", "11.7783099999999993912`4.071082980576081", + "12.1746402035410969944`4.085456135395861", + "12.2147132118102454967`4.086883274666768"}, + {"\<\"BeO\"\>", "8.6929870000000004637`3.9391690301563536", + "9.0592918180657271421`3.95709424938463", + "9.1438456093395359403`3.961128884537492"}, + {"\<\"CO\"\>", "13.200321999999999889`4.120584525229906", + "13.529009141675764738`4.131265990236902", + "13.58385006886935642`4.133022879420634"}, + {"\<\"N2\"\>", "14.3594229999999996039`4.157136989143702", + "14.7394610248567126121`4.16848160304744", + "14.8307607487553489989`4.171163428878194"}, + {"\<\"CH4\"\>", "13.5637790000000002522`4.132380705032442", + "13.826959464094585428`4.1407266896434995", + "13.8606511823792217797`4.141783634191425"}, + {"\<\"BH3\"\>", "12.5968940000000007018`4.100263474883619", + "12.8217276573622172009`4.107946547921219", + "12.8323213611673470069`4.108305227158455"}, + {"\<\"NH3\"\>", "9.6293199999999998795`3.983595619349367", + "9.9745278796985559211`3.998892348559873", + "10.0363938606818017263`4.001577696102556"}, + {"\<\"BF\"\>", "10.4090910000000000935`4.017412805310647", + "10.6261658853976452832`4.026376591410957", + "10.6283095887373324473`4.026464196351907"}, + {"\<\"BN\"\>", "10.7151779999999998694`4.029999389915942", + "11.0414046219844017571`4.043024325274865", + "11.0939036704960169999`4.045084390535637"}, + {"\<\"SH2\"\>", "9.5247550000000007486`3.978853813374794", + "9.8662474374448478898`3.994152003014364", + "9.8810869065037412184`3.994804719034411"}, + {"\<\"F2\"\>", "14.3803070000000001727`4.157768157742465", + "14.8706393244375352225`4.172329640284345", + "15.0288547108831398447`4.176925885996401"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@PBE/cc-pVDZ", "G0W0@PBE+srLDA/cc-pVDZ", + "G0W0@PBE+srPBE/cc-pVDZ"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778940950841551*^9, 3.77894095371209*^9}, {3.7789410031761637`*^9, + 3.778941061279231*^9}, 3.7789443787926607`*^9, 3.778947971629589*^9, + 3.778949244207571*^9, 3.778949467045925*^9, 3.778949515071024*^9}, + CellLabel-> + "Out[26]//TableForm=",ExpressionUUID->"1572874d-3d32-4c90-9444-\ +ca1403934dfd"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "02092cd8-352d-4ae1-813d-228e3f13aea8"], + "@PBE/cc-pVTZ" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, { + 3.77894092081287*^9, 3.778940921006919*^9}, {3.7789441645878773`*^9, + 3.778944165012207*^9}},ExpressionUUID->"43349f32-6131-4f41-8239-\ +f3a4811d4612"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVTZ", "=", + RowBox[{"Import", "[", "\"\\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP$G0W0PBE$ccpVTZ", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0PBE$ccpVTZ", "]"}]}], "}"}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0PBE$ccpVTZ", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.7789409242363777`*^9, + 3.77894094468468*^9}, {3.778941071778977*^9, 3.778941098194315*^9}, { + 3.7789441726229467`*^9, 3.7789441997912083`*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"fa4c45a8-ddd6-4291-b0ff-f7ddb674a3fa"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srLDA/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srPBE/cc-pVTZ\"\>", + HoldForm]}, + {"\<\"He\"\>", "15.7028130000000007982`4.195977458838923", + "15.8200880135077266431`4.199208895323125", + "15.8212185206930602277`4.199239928999439"}, + {"\<\"Ne\"\>", "12.8771000000000004349`4.109818068318424", + "13.1536913548683784825`4.11904764712867", + "13.213111593414193834`4.12100510290755"}, + {"\<\"H2\"\>", "15.8236570000000007497`4.199306860411991", + "15.8887194967884042285`4.201088897969654", + "15.8808848507968498609`4.2008746967757356"}, + {"\<\"Li2\"\>", "5.0072830000000001505`3.6996021374075276", + "5.0431234178120334377`3.7026995965586718", + "5.0354484630512246213`3.702038155397129"}, + {"\<\"LiH\"\>", "6.5247279999999996392`3.814562411709739", + "6.5884251342651545258`3.818781615316832", + "6.5761789109029988865`3.817973620067421"}, + {"\<\"FH\"\>", "15.278662999999999883`4.184085351809874", + "15.5273691453141218233`4.191097877978289", + "15.5645843935193024521`4.1921375286156435"}, + {"\<\"Ar\"\>", "15.0325450000000007122`4.177032512582225", + "15.2888577051698195675`4.184375038658", + "15.3024813384413018724`4.184761858544242"}, + {"\<\"H2O\"\>", "11.8846810000000004948`4.0749875292026925", + "12.0994940241300259487`4.082767209397208", + "12.117583334361604841`4.083416015110617"}, + {"\<\"LiF\"\>", "9.719770000000000465`3.9876559882891707", + "9.9630939224999668369`3.998394224449454", + "9.9926287539110010272`3.99967975280433"}, + {"\<\"HCl\"\>", "12.1421530000000004179`4.084295700999218", + "12.3625540537000553343`4.092108203506942", + "12.3632827197871435487`4.092133800671864"}, + {"\<\"BeO\"\>", "9.5124089999999998923`3.9782905151413743", + "9.7082082993558547201`3.9871390859839946", + "9.7183773744651613669`3.9875937591503"}, + {"\<\"CO\"\>", "13.5304520000000003677`4.131312304936644", + "13.6956888128708680341`4.136583879606123", + "13.6966281359010029206`4.136613664805354"}, + {"\<\"N2\"\>", "14.8124420000000007747`4.1706266628222455", + "15.0083060224296716001`4.176331676478591", + "15.0195673627316210741`4.176657423035367"}, + {"\<\"CH4\"\>", "13.8435609999999993391`4.141247818713646", + "13.96140210120594638`4.144929035353013", + "13.9554969386512368601`4.144745305810069"}, + {"\<\"BH3\"\>", "12.8088709999999998956`4.107510851830693", + "12.9045282045725251407`4.110742131166112", + "12.8950735493899735218`4.11042382355834"}, + {"\<\"NH3\"\>", "10.2473530000000003781`4.010611697005935", + "10.4151736162630790261`4.017666513837924", + "10.4152172402040363863`4.01766833287598"}, + {"\<\"BF\"\>", "10.5756250000000004974`4.024306042811185", + "10.6749850365671612451`4.0283672749344515", + "10.6651921821940938173`4.027968685656467"}, + {"\<\"BN\"\>", "10.9364709999999991652`4.038877205683412", + "11.1030229302070519992`4.045441236730213", + "11.0997468768101459347`4.045313075069718"}, + {"\<\"SH2\"\>", "9.9316960000000005238`3.9970234177348156", + "10.1129813355081523696`4.004879205708616", + "10.1036553877654444733`4.004478525023109"}, + {"\<\"F2\"\>", "14.8767790000000008632`4.172508911455123", + "15.1435936515662081803`4.180228947677202", + "15.1899066391049704094`4.181555104590493"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@PBE/cc-pVTZ", "G0W0@PBE+srLDA/cc-pVTZ", + "G0W0@PBE+srPBE/cc-pVTZ"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778941082287519*^9, 3.778941098506168*^9}, 3.778947974918433*^9, + 3.778949244291382*^9, 3.7789494671486063`*^9, 3.778949515124055*^9}, + CellLabel-> + "Out[29]//TableForm=",ExpressionUUID->"1f1088d2-363f-427a-ac83-\ +3a43e13a5d52"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "b1328d61-9327-4b08-a72c-d6ec9fcb12bc"], + "@PBE/cc-pVQZ" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, { + 3.77894092081287*^9, 3.778940921006919*^9}, {3.7789411133491993`*^9, + 3.7789411134951363`*^9}, + 3.77894416860678*^9},ExpressionUUID->"9e831903-ff5b-4d95-875d-\ +9e0e8daf116f"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVQZ", "=", + RowBox[{"Import", "[", "\"\\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP$G0W0PBE$ccpVQZ", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0PBE$ccpVQZ", "]"}]}], "}"}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0PBE$ccpVQZ", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.7789409242363777`*^9, + 3.77894094468468*^9}, {3.778941071778977*^9, 3.778941139753708*^9}, { + 3.778944209570156*^9, 3.7789442323864527`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"718dda33-1726-4391-8bed-e0672e45e563"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srLDA/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srPBE/cc-pVQZ\"\>", + HoldForm]}, + {"\<\"He\"\>", "15.7344460000000001543`4.196851456281422", + "15.7873386524238359385`4.198308925069638", + "15.7829088187015926792`4.19818704751035"}, + {"\<\"Ne\"\>", "13.1391550000000005838`4.118567435951506", + "13.3039034122646135927`4.123979083199379", + "13.3159467586091402325`4.124372050040616"}, + {"\<\"H2\"\>", "15.8452339999999995968`4.199898657168375", + "15.8729824556709431249`4.20065853622844", + "15.8693358089274934031`4.200558750286412"}, + {"\<\"Li2\"\>", "5.0157049999999996359`3.7003319854303753", + "5.0364031674783893422`3.7021204883942813", + "5.0343725060297925822`3.701945346954877"}, + {"\<\"LiH\"\>", "6.5535909999999999442`3.8164793342105794", + "6.5840182065536891898`3.818491023145111", + "6.5797484270403652218`3.818209288927508"}, + {"\<\"FH\"\>", "15.4523569999999992319`4.188994733212041", + "15.5967333310441134131`4.193033646760789", + "15.5997584009299234964`4.193117872331675"}, + {"\<\"Ar\"\>", "15.1607210000000005579`4.180719855575431", + "15.319114328038160977`4.185233657361559", + "15.3163896240962102979`4.185156405563006"}, + {"\<\"H2O\"\>", "12.0795359999999991629`4.08205025245483", + "12.200152978019740857`4.086365276338133", + "12.1966738300102797155`4.086241409836611"}, + {"\<\"LiF\"\>", "9.9344870000000007337`3.9971454457969724", + "10.0756051772504147124`4.003271140892269", + "10.0759578086227392646`4.003286340294844"}, + {"\<\"HCl\"\>", "12.2728210000000004243`4.0889444000471595", + "12.4053650511643205334`4.093609548727018", + "12.3969035595288321616`4.093313222666994"}, + {"\<\"BeO\"\>", "9.6288400000000002876`3.983573970204137", + "9.738306100205880611`3.988483421425835", + "9.7331521310012316661`3.9882535115329887"}, + {"\<\"CO\"\>", "13.6092849999999998545`4.133835308986477", + "13.6983035396051970878`4.13666678547696", + "13.6910437675737419738`4.13643655881463"}, + {"\<\"N2\"\>", "14.9212050000000004957`4.173803897112449", + "15.0288132396054674444`4.176924687583599", + "15.0230609170618230053`4.17675842827103"}, + {"\<\"CH4\"\>", "13.9364899999999991564`4.144153407508238", + "13.9927788417776035601`4.145903970089307", + "13.9863931365822242725`4.145705731443809"}, + {"\<\"BH3\"\>", "12.8775790000000007751`4.109834222824317", + "12.9211450670202534496`4.111301002378303", + "12.9151509583804831038`4.111099486777899"}, + {"\<\"NH3\"\>", "10.3952810000000006596`4.016836233455846", + "10.4831684403668532468`4.020492563964457", + "10.4756158459049046883`4.02017956391674"}, + {"\<\"BF\"\>", "10.5825969999999998095`4.024592257904062", + "10.6325484073262384044`4.026637368624416", + "10.6256182628800921464`4.0263542093430855"}, + {"\<\"BN\"\>", "11.0028780000000008243`4.041506297525302", + "11.0930215001443635003`4.045049854725643", + "11.0836453493981323959`4.044682620929795"}, + {"\<\"SH2\"\>", "10.0486690000000002954`4.00210854093697", + "10.1539780831265513683`4.0066362216658415", + "10.142285816381335195`4.006135845092571"}, + {"\<\"F2\"\>", "15.0456360000000000099`4.177410550697069", + "15.2029259406622987427`4.181927179891838", + "15.2089458980206551075`4.182099115003892"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@PBE/cc-pVQZ", "G0W0@PBE+srLDA/cc-pVQZ", + "G0W0@PBE+srPBE/cc-pVQZ"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778941082287519*^9, 3.778941098506168*^9}, 3.778941334689724*^9, + 3.778947982303989*^9, 3.7789492443741207`*^9, 3.778949467247142*^9, + 3.778949515187011*^9}, + CellLabel-> + "Out[32]//TableForm=",ExpressionUUID->"8a6c87c4-81d4-4092-ae14-\ +4c27f08c4b4f"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "0df5692b-6d0f-420c-8279-0e127d616655"], + "@PBE/cc-pV5Z" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, { + 3.77894092081287*^9, 3.778940921006919*^9}, {3.7789411152921057`*^9, + 3.778941115541211*^9}, + 3.778944169914558*^9},ExpressionUUID->"384bef20-ac2b-46c7-9ffa-\ +6e1c5fc7f597"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpV5Z", "=", + RowBox[{"Import", "[", "\"\\"", "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP$G0W0PBE$ccpV5Z", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0PBE$ccpV5Z", "]"}]}], "}"}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0PBE$ccpV5Z", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.7789409242363777`*^9, + 3.77894094468468*^9}, {3.778941071778977*^9, 3.778941098194315*^9}, { + 3.7789411459949503`*^9, 3.778941164692428*^9}, {3.7789442404898167`*^9, + 3.778944260998493*^9}}, + CellLabel->"In[33]:=",ExpressionUUID->"7895dc90-d7ba-4e21-8223-4615f676f072"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE/cc-pV5Z\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srLDA/cc-pV5Z\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srPBE/cc-pV5Z\"\>", + HoldForm]}, + {"\<\"He\"\>", "15.7499959999999994409`4.197280447828594", + "15.7769899626874714471`4.198024149235293", + "15.7744902666915169931`4.197955334449307"}, + {"\<\"Ne\"\>", "13.30432000000000059`4.123992682134709", + "13.40620471773529232`4.127305846946709", + "13.4052839194626614017`4.127276016629242"}, + {"\<\"H2\"\>", "15.8270490000000005892`4.199399946922495", + "15.8404516096335559183`4.1997675591206445", + "15.8390008321457838036`4.1997277816239205"}, + {"\<\"Li2\"\>", "5.0317749999999996646`3.7017212130327755", + "5.0456083672990255096`3.702913538190746", + "5.0451725775830702503`3.7028760265115093"}, + {"\<\"LiH\"\>", "6.5732939999999997482`3.8177830571582385", + "6.5907384117792053857`3.818934074714771", + "6.5891441950021114593`3.818829011631391"}, + {"\<\"FH\"\>", "15.3964259999999999451`4.187419918978138", + "15.4833289478199986888`4.189864340600019", + "15.4793378169318565085`4.189752378271707"}, + {"\<\"Ar\"\>", "10.2749079999999999302`4.011777941957235", + "10.3734653845822322182`4.015923862077781", + "10.3636812629614638581`4.0155140477076845"}, + {"\<\"H2O\"\>", "12.0487420000000007292`4.080941704920942", + "12.1191474682729261048`4.083472070090401", + "12.1136014053171852112`4.083273279223333"}, + {"\<\"LiF\"\>", "10.0430860000000006238`4.001867181617699", + "10.1284113855253607994`4.0055413327636415", + "10.123491889679790745`4.0053303392671324"}, + {"\<\"HCl\"\>", "5.858946999999999683`3.7678195693999643", + "5.9380542284735930991`3.773644159413496", + "5.9277525383870113274`3.7728900651709623"}, + {"\<\"BeO\"\>", "9.6935749999999991644`3.9864839748254703", + "9.7584557462310463904`3.9893810969747854", + "9.752759670619008503`3.9891275223794325"}, + {"\<\"CO\"\>", "13.6210240000000002425`4.1342097581518455", + "13.672504410407718467`4.135848072139229", + "13.6668765823238036461`4.135669272574081"}, + {"\<\"N2\"\>", "14.9464159999999992579`4.1745370657021805", + "15.0092004574620450086`4.176357557922098", + "15.0033888556558867577`4.176189365394579"}, + {"\<\"CH4\"\>", "13.9563159999999992777`4.144770794217075", + "13.9563159999999992777`4.144770794217075", + "13.9563159999999992777`4.144770794217075"}, + {"\<\"BH3\"\>", "12.8955579999999994101`4.110440139112793", + "12.9182662996820081247`4.111204232931266", + "12.9153703656441969372`4.111106864667236"}, + {"\<\"NH3\"\>", "10.3424040000000001527`4.014621498389038", + "10.3921459672941836061`4.016705238175171", + "10.3866932291000590993`4.016477304926259"}, + {"\<\"BF\"\>", "10.5834069999999993428`4.024625497860977", + "10.6114050832129471758`4.025772893749016", + "10.6074696653940847568`4.025611798471102"}, + {"\<\"BN\"\>", "11.0271139999999991943`4.042461864400658", + "11.0786464434378615351`4.044486702806235", + "11.0722543272396691805`4.04423605287571"}, + {"\<\"SH2\"\>", "8.7061770000000002767`3.939827492288631", + "8.7662677039879479679`3.9428147289907134", + "8.7569854512234872601`3.9423546281753477"}, + {"\<\"F2\"\>", "15.066629999999999967`4.178016123179084", + "15.1624443621337015031`4.1807692202546685", + "15.1590408560463760779`4.180671723452753"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@PBE/cc-pV5Z", "G0W0@PBE+srLDA/cc-pV5Z", + "G0W0@PBE+srPBE/cc-pV5Z"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778941082287519*^9, 3.778941098506168*^9}, 3.7789411653658123`*^9, + 3.7789413300354557`*^9, 3.778947986712735*^9, 3.7789492444610453`*^9, + 3.7789494673469267`*^9, 3.778949515236699*^9}, + CellLabel-> + "Out[35]//TableForm=",ExpressionUUID->"e67bdff9-fcb5-4825-b5f5-\ +21901ca1ff42"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell[TextData[{ + Cell[BoxData[ + FormBox[ + RowBox[{ + SubscriptBox[ + StyleBox["G", + FontSlant->"Plain"], "0"], + SubscriptBox[ + StyleBox["W", + FontSlant->"Plain"], "0"]}], TraditionalForm]],ExpressionUUID-> + "c61fcd30-e807-4b62-a7b3-351c97e2b619"], + "@PBE" +}], "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.7783439529421883`*^9, 3.778343956580508*^9}, {3.7783440805886927`*^9, + 3.778344082218437*^9}, {3.778412256632443*^9, 3.778412257430252*^9}, { + 3.778424885523425*^9, 3.778424895747888*^9}, {3.778425019172558*^9, + 3.778425021812297*^9}, {3.778940794680965*^9, 3.778940796174447*^9}, { + 3.77894092081287*^9, 3.778940921006919*^9}, {3.7789411152921057`*^9, + 3.778941115541211*^9}, 3.778944169914558*^9, + 3.778948020652269*^9},ExpressionUUID->"82fbc9b0-dfa0-4200-a252-\ +d90e45cf2eb4"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"IP$G0W0PBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ",", + "\[IndentingNewLine]", + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0PBE$ccpVDZ", "]"}]}], "}"}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0PBE", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.77590351349603*^9, 3.775903514423417*^9}, { + 3.778425010046465*^9, 3.778425016035069*^9}, {3.77842507012418*^9, + 3.778425076224629*^9}, {3.778425357297806*^9, 3.778425398140785*^9}, { + 3.778940799895406*^9, 3.778940842897552*^9}, {3.7789409242363777`*^9, + 3.77894094468468*^9}, {3.778941071778977*^9, 3.778941098194315*^9}, { + 3.7789411459949503`*^9, 3.778941164692428*^9}, {3.7789442404898167`*^9, + 3.778944260998493*^9}, {3.7789480302740583`*^9, 3.7789481753009977`*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"8e941441-2618-4897-ba2f-18c0b38ca948"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE/cc-pV5Z\"\>", + HoldForm]}, + {"\<\"He\"\>", "0``3.", "15.7028130000000007982`4.195977458838923", + "15.7344460000000001543`4.196851456281422", + "15.7499959999999994409`4.197280447828594"}, + {"\<\"Ne\"\>", "12.0275630000000006703`4.080177640401516", + "12.8771000000000004349`4.109818068318424", + "13.1391550000000005838`4.118567435951506", + "13.30432000000000059`4.123992682134709"}, + {"\<\"H2\"\>", "15.7639549999999992735`4.19766518645241", + "15.8236570000000007497`4.199306860411991", + "15.8452339999999995968`4.199898657168375", + "15.8270490000000005892`4.199399946922495"}, + {"\<\"Li2\"\>", "4.946696000000000204`3.69431522154687", + "5.0072830000000001505`3.6996021374075276", + "5.0157049999999996359`3.7003319854303753", + "5.0317749999999996646`3.7017212130327755"}, + {"\<\"LiH\"\>", "6.4338389999999998636`3.808470188942943", + "6.5247279999999996392`3.814562411709739", + "6.5535909999999999442`3.8164793342105794", + "6.5732939999999997482`3.8177830571582385"}, + {"\<\"FH\"\>", "14.5995670000000004052`4.164339975489968", + "15.278662999999999883`4.184085351809874", + "15.4523569999999992319`4.188994733212041", + "15.3964259999999999451`4.187419918978138"}, + {"\<\"Ar\"\>", "14.7408629999999991611`4.168522909925102", + "15.0325450000000007122`4.177032512582225", + "15.1607210000000005579`4.180719855575431", + "10.2749079999999999302`4.011777941957235"}, + {"\<\"H2O\"\>", "11.1742720000000002045`4.048219238588612", + "11.8846810000000004948`4.0749875292026925", + "12.0795359999999991629`4.08205025245483", + "12.0487420000000007292`4.080941704920942"}, + {"\<\"LiF\"\>", "8.9645709999999994011`3.9525295112110115", + "9.719770000000000465`3.9876559882891707", + "9.9344870000000007337`3.9971454457969724", + "10.0430860000000006238`4.001867181617699"}, + {"\<\"HCl\"\>", "11.7783099999999993912`4.071082980576081", + "12.1421530000000004179`4.084295700999218", + "12.2728210000000004243`4.0889444000471595", + "5.858946999999999683`3.7678195693999643"}, + {"\<\"BeO\"\>", "8.6929870000000004637`3.9391690301563536", + "9.5124089999999998923`3.9782905151413743", + "9.6288400000000002876`3.983573970204137", + "9.6935749999999991644`3.9864839748254703"}, + {"\<\"CO\"\>", "13.200321999999999889`4.120584525229906", + "13.5304520000000003677`4.131312304936644", + "13.6092849999999998545`4.133835308986477", + "13.6210240000000002425`4.1342097581518455"}, + {"\<\"N2\"\>", "14.3594229999999996039`4.157136989143702", + "14.8124420000000007747`4.1706266628222455", + "14.9212050000000004957`4.173803897112449", + "14.9464159999999992579`4.1745370657021805"}, + {"\<\"CH4\"\>", "13.5637790000000002522`4.132380705032442", + "13.8435609999999993391`4.141247818713646", + "13.9364899999999991564`4.144153407508238", + "13.9563159999999992777`4.144770794217075"}, + {"\<\"BH3\"\>", "12.5968940000000007018`4.100263474883619", + "12.8088709999999998956`4.107510851830693", + "12.8775790000000007751`4.109834222824317", + "12.8955579999999994101`4.110440139112793"}, + {"\<\"NH3\"\>", "9.6293199999999998795`3.983595619349367", + "10.2473530000000003781`4.010611697005935", + "10.3952810000000006596`4.016836233455846", + "10.3424040000000001527`4.014621498389038"}, + {"\<\"BF\"\>", "10.4090910000000000935`4.017412805310647", + "10.5756250000000004974`4.024306042811185", + "10.5825969999999998095`4.024592257904062", + "10.5834069999999993428`4.024625497860977"}, + {"\<\"BN\"\>", "10.7151779999999998694`4.029999389915942", + "10.9364709999999991652`4.038877205683412", + "11.0028780000000008243`4.041506297525302", + "11.0271139999999991943`4.042461864400658"}, + {"\<\"SH2\"\>", "9.5247550000000007486`3.978853813374794", + "9.9316960000000005238`3.9970234177348156", + "10.0486690000000002954`4.00210854093697", + "8.7061770000000002767`3.939827492288631"}, + {"\<\"F2\"\>", "14.3803070000000001727`4.157768157742465", + "14.8767790000000008632`4.172508911455123", + "15.0456360000000000099`4.177410550697069", + "15.066629999999999967`4.178016123179084"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@PBE/cc-pVDZ", "G0W0@PBE/cc-pVTZ", + "G0W0@PBE/cc-pVQZ", "G0W0@PBE/cc-pV5Z"}}]]]], "Output", + CellChangeTimes->{ + 3.776141375618598*^9, 3.778425025073845*^9, 3.778425076763853*^9, + 3.778425399048726*^9, {3.778940809710058*^9, 3.77894084333232*^9}, { + 3.778941082287519*^9, 3.778941098506168*^9}, 3.7789411653658123`*^9, + 3.7789413300354557`*^9, 3.778947986712735*^9, {3.7789480512370453`*^9, + 3.778948107507431*^9}, {3.7789481649283237`*^9, 3.7789481769010963`*^9}, + 3.7789492445734787`*^9, 3.778949515287545*^9}, + CellLabel-> + "Out[37]//TableForm=",ExpressionUUID->"f2c2c36a-936f-4c58-a936-\ +532fdff6b6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"IP$G0W0PBEsrLDA", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0PBE$ccpVDZ", "]"}]}], "}"}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0PBEsrLDA", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.7789481873480797`*^9, 3.7789482324048033`*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"c771a5d0-a6b2-41e4-9a84-7b98eb54a22f"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srLDA/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srLDA/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srLDA/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srLDA/cc-pV5Z\"\>", + HoldForm]}, + {"\<\"He\"\>", "0.2709964479351975042`2.4329635984306677", + "15.8200880135077266431`4.199208895323125", + "15.7873386524238359385`4.198308925069638", + "15.7769899626874714471`4.198024149235293"}, + {"\<\"Ne\"\>", "12.5363369828204067602`4.098170657663821", + "13.1536913548683784825`4.11904764712867", + "13.3039034122646135927`4.123979083199379", + "13.40620471773529232`4.127305846946709"}, + {"\<\"H2\"\>", "15.9389797401220612016`4.202460518602373", + "15.8887194967884042285`4.201088897969654", + "15.8729824556709431249`4.20065853622844", + "15.8404516096335559183`4.1997675591206445"}, + {"\<\"Li2\"\>", "5.0250736530635489174`3.7011424316417116", + "5.0431234178120334377`3.7026995965586718", + "5.0364031674783893422`3.7021204883942813", + "5.0456083672990255096`3.702913538190746"}, + {"\<\"LiH\"\>", "6.5908398869636144468`3.818940761336303", + "6.5884251342651545258`3.818781615316832", + "6.5840182065536891898`3.818491023145111", + "6.5907384117792053857`3.818934074714771"}, + {"\<\"FH\"\>", "15.064665499869354548`4.177959492917856", + "15.5273691453141218233`4.191097877978289", + "15.5967333310441134131`4.193033646760789", + "15.4833289478199986888`4.189864340600019"}, + {"\<\"Ar\"\>", "15.1865670242362043041`4.1814596111944455", + "15.2888577051698195675`4.184375038658", + "15.319114328038160977`4.185233657361559", + "10.3734653845822322182`4.015923862077781"}, + {"\<\"H2O\"\>", "11.5890642470361129313`4.064048370497232", + "12.0994940241300259487`4.082767209397208", + "12.200152978019740857`4.086365276338133", + "12.1191474682729261048`4.083472070090401"}, + {"\<\"LiF\"\>", "9.4121668281794104161`3.973689616327575", + "9.9630939224999668369`3.998394224449454", + "10.0756051772504147124`4.003271140892269", + "10.1284113855253607994`4.0055413327636415"}, + {"\<\"HCl\"\>", "12.1746402035410969944`4.085456135395861", + "12.3625540537000553343`4.092108203506942", + "12.4053650511643205334`4.093609548727018", + "5.9380542284735930991`3.773644159413496"}, + {"\<\"BeO\"\>", "9.0592918180657271421`3.95709424938463", + "9.7082082993558547201`3.9871390859839946", + "9.738306100205880611`3.988483421425835", + "9.7584557462310463904`3.9893810969747854"}, + {"\<\"CO\"\>", "13.529009141675764738`4.131265990236902", + "13.6956888128708680341`4.136583879606123", + "13.6983035396051970878`4.13666678547696", + "13.672504410407718467`4.135848072139229"}, + {"\<\"N2\"\>", "14.7394610248567126121`4.16848160304744", + "15.0083060224296716001`4.176331676478591", + "15.0288132396054674444`4.176924687583599", + "15.0092004574620450086`4.176357557922098"}, + {"\<\"CH4\"\>", "13.826959464094585428`4.1407266896434995", + "13.96140210120594638`4.144929035353013", + "13.9927788417776035601`4.145903970089307", + "13.9563159999999992777`4.144770794217075"}, + {"\<\"BH3\"\>", "12.8217276573622172009`4.107946547921219", + "12.9045282045725251407`4.110742131166112", + "12.9211450670202534496`4.111301002378303", + "12.9182662996820081247`4.111204232931266"}, + {"\<\"NH3\"\>", "9.9745278796985559211`3.998892348559873", + "10.4151736162630790261`4.017666513837924", + "10.4831684403668532468`4.020492563964457", + "10.3921459672941836061`4.016705238175171"}, + {"\<\"BF\"\>", "10.6261658853976452832`4.026376591410957", + "10.6749850365671612451`4.0283672749344515", + "10.6325484073262384044`4.026637368624416", + "10.6114050832129471758`4.025772893749016"}, + {"\<\"BN\"\>", "11.0414046219844017571`4.043024325274865", + "11.1030229302070519992`4.045441236730213", + "11.0930215001443635003`4.045049854725643", + "11.0786464434378615351`4.044486702806235"}, + {"\<\"SH2\"\>", "9.8662474374448478898`3.994152003014364", + "10.1129813355081523696`4.004879205708616", + "10.1539780831265513683`4.0066362216658415", + "8.7662677039879479679`3.9428147289907134"}, + {"\<\"F2\"\>", "14.8706393244375352225`4.172329640284345", + "15.1435936515662081803`4.180228947677202", + "15.2029259406622987427`4.181927179891838", + "15.1624443621337015031`4.1807692202546685"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@PBE+srLDA/cc-pVDZ", "G0W0@PBE+srLDA/cc-pVTZ", + "G0W0@PBE+srLDA/cc-pVQZ", "G0W0@PBE+srLDA/cc-pV5Z"}}]]]], "Output", + CellChangeTimes->{3.778948232908155*^9, 3.778949244657428*^9, + 3.778949515403491*^9}, + CellLabel-> + "Out[39]//TableForm=",ExpressionUUID->"cacdc122-7fe1-4baa-aa41-\ +da354223fd80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"IP$G0W0PBEsrPBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVDZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVTZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpVQZ", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}], + ",", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"-", + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "-", + RowBox[{ + RowBox[{"GW20$G0W0PBE$ccpV5Z", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}], "HaToeV"}]}]}], + "\[IndentingNewLine]", "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW20$G0W0PBE$ccpVDZ", "]"}]}], "}"}]}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP$G0W0PBEsrPBE", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\"", ",", + "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], + "]"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.7789481873480797`*^9, 3.778948268839349*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"ec1256d4-33e8-4f45-b014-0878328e833b"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Mol.\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srPBE/cc-pVDZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srPBE/cc-pVTZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srPBE/cc-pVQZ\"\>", + HoldForm], + TagBox["\<\"G0W0@PBE+srPBE/cc-pV5Z\"\>", + HoldForm]}, + {"\<\"He\"\>", "0.3029775827748286132`2.481410496365828", + "15.8212185206930602277`4.199239928999439", + "15.7829088187015926792`4.19818704751035", + "15.7744902666915169931`4.197955334449307"}, + {"\<\"Ne\"\>", "12.7221079121109958976`4.104559075050887", + "13.213111593414193834`4.12100510290755", + "13.3159467586091402325`4.124372050040616", + "13.4052839194626614017`4.127276016629242"}, + {"\<\"H2\"\>", "15.939948757532247825`4.202486920927298", + "15.8808848507968498609`4.2008746967757356", + "15.8693358089274934031`4.200558750286412", + "15.8390008321457838036`4.1997277816239205"}, + {"\<\"Li2\"\>", "5.0003833758010847177`3.6990033026584395", + "5.0354484630512246213`3.702038155397129", + "5.0343725060297925822`3.701945346954877", + "5.0451725775830702503`3.7028760265115093"}, + {"\<\"LiH\"\>", "6.5648887350298306131`3.8172273698509267", + "6.5761789109029988865`3.817973620067421", + "6.5797484270403652218`3.818209288927508", + "6.5891441950021114593`3.818829011631391"}, + {"\<\"FH\"\>", "15.2107874003904672833`4.1821516962879395", + "15.5645843935193024521`4.1921375286156435", + "15.5997584009299234964`4.193117872331675", + "15.4793378169318565085`4.189752378271707"}, + {"\<\"Ar\"\>", "15.2533613060377426507`4.183365557506304", + "15.3024813384413018724`4.184761858544242", + "15.3163896240962102979`4.185156405563006", + "10.3636812629614638581`4.0155140477076845"}, + {"\<\"H2O\"\>", "11.6955123970882031159`4.068019253622998", + "12.117583334361604841`4.083416015110617", + "12.1966738300102797155`4.086241409836611", + "12.1136014053171852112`4.083273279223333"}, + {"\<\"LiF\"\>", "9.5405559999965543483`3.979573685049403", + "9.9926287539110010272`3.99967975280433", + "10.0759578086227392646`4.003286340294844", + "10.123491889679790745`4.0053303392671324"}, + {"\<\"HCl\"\>", "12.2147132118102454967`4.086883274666768", + "12.3632827197871435487`4.092133800671864", + "12.3969035595288321616`4.093313222666994", + "5.9277525383870113274`3.7728900651709623"}, + {"\<\"BeO\"\>", "9.1438456093395359403`3.961128884537492", + "9.7183773744651613669`3.9875937591503", + "9.7331521310012316661`3.9882535115329887", + "9.752759670619008503`3.9891275223794325"}, + {"\<\"CO\"\>", "13.58385006886935642`4.133022879420634", + "13.6966281359010029206`4.136613664805354", + "13.6910437675737419738`4.13643655881463", + "13.6668765823238036461`4.135669272574081"}, + {"\<\"N2\"\>", "14.8307607487553489989`4.171163428878194", + "15.0195673627316210741`4.176657423035367", + "15.0230609170618230053`4.17675842827103", + "15.0033888556558867577`4.176189365394579"}, + {"\<\"CH4\"\>", "13.8606511823792217797`4.141783634191425", + "13.9554969386512368601`4.144745305810069", + "13.9863931365822242725`4.145705731443809", + "13.9563159999999992777`4.144770794217075"}, + {"\<\"BH3\"\>", "12.8323213611673470069`4.108305227158455", + "12.8950735493899735218`4.11042382355834", + "12.9151509583804831038`4.111099486777899", + "12.9153703656441969372`4.111106864667236"}, + {"\<\"NH3\"\>", "10.0363938606818017263`4.001577696102556", + "10.4152172402040363863`4.01766833287598", + "10.4756158459049046883`4.02017956391674", + "10.3866932291000590993`4.016477304926259"}, + {"\<\"BF\"\>", "10.6283095887373324473`4.026464196351907", + "10.6651921821940938173`4.027968685656467", + "10.6256182628800921464`4.0263542093430855", + "10.6074696653940847568`4.025611798471102"}, + {"\<\"BN\"\>", "11.0939036704960169999`4.045084390535637", + "11.0997468768101459347`4.045313075069718", + "11.0836453493981323959`4.044682620929795", + "11.0722543272396691805`4.04423605287571"}, + {"\<\"SH2\"\>", "9.8810869065037412184`3.994804719034411", + "10.1036553877654444733`4.004478525023109", + "10.142285816381335195`4.006135845092571", + "8.7569854512234872601`3.9423546281753477"}, + {"\<\"F2\"\>", "15.0288547108831398447`4.176925885996401", + "15.1899066391049704094`4.181555104590493", + "15.2089458980206551075`4.182099115003892", + "15.1590408560463760779`4.180671723452753"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Mol.", "G0W0@PBE+srPBE/cc-pVDZ", "G0W0@PBE+srPBE/cc-pVTZ", + "G0W0@PBE+srPBE/cc-pVQZ", "G0W0@PBE+srPBE/cc-pV5Z"}}]]]], "Output", + CellChangeTimes->{3.7789482693528748`*^9, 3.778949244739724*^9, + 3.7789495154736567`*^9}, + CellLabel-> + "Out[41]//TableForm=",ExpressionUUID->"da6ae9de-6d8a-4dd7-824b-\ +26c33bc95dfd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Mol", "=", "3"}], ";"}], "\[IndentingNewLine]", + RowBox[{"ListPlot", "[", + RowBox[{ + RowBox[{"{", "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"k", "+", "1"}], ",", + RowBox[{"IP$G0W0PBE", "\[LeftDoubleBracket]", + RowBox[{"Mol", ",", + RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"k", "+", "1"}], ",", + RowBox[{"IP$G0W0PBEsrLDA", "\[LeftDoubleBracket]", + RowBox[{"Mol", ",", + RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", "4"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"k", "+", "1"}], ",", + RowBox[{"IP$G0W0PBEsrPBE", "\[LeftDoubleBracket]", + RowBox[{"Mol", ",", + RowBox[{"k", "+", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", + "}"}], ",", + RowBox[{"FrameLabel", "\[Rule]", + RowBox[{"{", + RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", + RowBox[{"PlotLabel", "\[Rule]", + RowBox[{ + "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@PBE for \>\"", "<>", + RowBox[{"IP$G0W0PBE", "\[LeftDoubleBracket]", + RowBox[{"Mol", ",", "1"}], "\[RightDoubleBracket]"}]}]}], ",", + RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", + RowBox[{"FrameTicks", "\[Rule]", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", "Automatic"}], + "}"}]}], ",", + RowBox[{"PlotRange", "\[Rule]", "All"}], ",", + RowBox[{"PlotMarkers", "\[Rule]", + RowBox[{"{", + RowBox[{"Automatic", ",", "Large"}], "}"}]}], ",", + RowBox[{"Joined", "\[Rule]", "True"}], ",", + RowBox[{"BaseStyle", "\[Rule]", "20"}], ",", + RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", + RowBox[{"PlotLegends", "\[Rule]", + RowBox[{"Placed", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@PBE\>\"", ",", + "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@PBE+srLDA\>\"", ",", + "\"\<\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@PBE+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}, { + 3.7789485813916903`*^9, 3.778948798444069*^9}, {3.778948832147129*^9, + 3.778948897894413*^9}}, + CellLabel->"In[44]:=",ExpressionUUID->"bb44480b-535f-46cd-b044-dce44c000170"], + +Cell[BoxData[ + TagBox[ + GraphicsBox[{{{}, {{{}, {}, + {RGBColor[0.9, 0.36, 0.054], PointSize[0.012833333333333334`], + Thickness[Large], CapForm["Butt"], + LineBox[{{2., 15.763955}, {3., 15.823657}, {4., 15.845234}, {5., + 15.827049}}]}, + {RGBColor[0.365248, 0.427802, 0.758297], PointSize[ + 0.012833333333333334`], Thickness[Large], CapForm["Butt"], + LineBox[{{2., 15.938979740122061`}, {3., 15.888719496788404`}, {4., + 15.872982455670943`}, {5., 15.840451609633556`}}]}, + {RGBColor[0.945109, 0.593901, 0.], PointSize[0.012833333333333334`], + Thickness[Large], CapForm["Butt"], + LineBox[{{2., 15.939948757532248`}, {3., 15.88088485079685}, {4., + 15.869335808927493`}, {5., 15.839000832145784`}}]}}, { + {RGBColor[0.9, 0.36, 0.054], AbsolutePointSize[6], Thickness[Large], + CapForm["Butt"], GeometricTransformationBox[InsetBox[ + StyleBox["\<\"\[FilledCircle]\"\>", + StripOnInput->False, + FontSize->Large], {0., 0.}], {{{2., 15.763955}}, {{3., + 15.823657}}, {{4., 15.845234}}, {{5., 15.827049}}}]}, + {RGBColor[0.365248, 0.427802, 0.758297], AbsolutePointSize[6], + Thickness[Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ + StyleBox["\<\"\[FilledSquare]\"\>", + StripOnInput->False, + FontSize->Large], {0., 0.}], {{{2., 15.938979740122061`}}, {{3., + 15.888719496788404`}}, {{4., 15.872982455670943`}}, {{5., + 15.840451609633556`}}}]}, + {RGBColor[0.945109, 0.593901, 0.], AbsolutePointSize[6], Thickness[ + Large], CapForm["Butt"], GeometricTransformationBox[InsetBox[ + StyleBox["\<\"\[FilledDiamond]\"\>", + StripOnInput->False, + FontSize->Large], {0., 0.}], {{{2., 15.939948757532248`}}, {{3., + 15.88088485079685}}, {{4., 15.869335808927493`}}, {{5., + 15.839000832145784`}}}]}, {}}}, {}, {}, {}, {}}, InsetBox[ + TemplateBox[{ + "\"\\!\\(\\*SubscriptBox[\\(G\\), \\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\ +\\), \\(0\\)]\\)@PBE\"", + "\"\\!\\(\\*SubscriptBox[\\(G\\), \ +\\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@PBE+srLDA\"", + "\"\\!\\(\\*SubscriptBox[\\(G\\), \ +\\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@PBE+srPBE\""}, + "PointLegend", + DisplayFunction->(FormBox[ + StyleBox[ + StyleBox[ + PaneBox[ + TagBox[ + GridBox[{{ + TagBox[ + GridBox[{{ + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.9, 0.36, 0.054], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + LineBox[{{0, 15}, {30, 15}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.9, 0.36, 0.054], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + InsetBox[ + FormBox[ + StyleBox["\"\[FilledCircle]\"", + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.9, 0.36, 0.054], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> + False], TraditionalForm], + NCache[ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}], + Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, + ImageSize -> {30, 15}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.23333333333333334`] -> + Baseline)], #}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.365248, 0.427802, 0.758297], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + LineBox[{{0, 15}, {30, 15}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.365248, 0.427802, 0.758297], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + InsetBox[ + FormBox[ + StyleBox["\"\[FilledSquare]\"", + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.365248, 0.427802, 0.758297], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> + False], TraditionalForm], + NCache[ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}], + Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, + ImageSize -> {30, 15}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.23333333333333334`] -> + Baseline)], #2}, { + GraphicsBox[{{ + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.945109, 0.593901, 0.], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + LineBox[{{0, 15}, {30, 15}}]}}, { + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.945109, 0.593901, 0.], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], { + InsetBox[ + FormBox[ + StyleBox["\"\[FilledDiamond]\"", + Directive[ + EdgeForm[ + Directive[ + Opacity[0.3], + GrayLevel[0]]], + PointSize[0.154], + RGBColor[0.945109, 0.593901, 0.], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large]], FontSize -> 15, Plain, StripOnInput -> + False], TraditionalForm], + NCache[ + Scaled[{ + Rational[1, 2], + Rational[1, 2]}], + Scaled[{0.5, 0.5}]]]}}}, AspectRatio -> Full, + ImageSize -> {30, 15}, PlotRangePadding -> None, + ImagePadding -> Automatic, + BaselinePosition -> (Scaled[0.23333333333333334`] -> + Baseline)], #3}}, + GridBoxAlignment -> { + "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, + AutoDelete -> False, + GridBoxDividers -> { + "Columns" -> {{False}}, "Rows" -> {{False}}}, + GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, + GridBoxSpacings -> { + "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, + GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, + AutoDelete -> False, + GridBoxItemSize -> { + "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, + GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], + "Grid"], Alignment -> Left, AppearanceElements -> None, + ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> + "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { + FontFamily -> "Times", FontFamily -> "Arial"}, Background -> + Automatic, StripOnInput -> False], 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[{"\"\[FilledCircle]\"", ",", "Large"}], "}"}], ",", + + RowBox[{"{", + RowBox[{"\"\[FilledSquare]\"", ",", "Large"}], "}"}], ",", + + RowBox[{"{", + RowBox[{"\"\[FilledDiamond]\"", ",", "Large"}], "}"}]}], + "}"}]}], ",", + RowBox[{"Joined", "\[Rule]", + RowBox[{"{", + RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", + RowBox[{"LabelStyle", "\[Rule]", + RowBox[{"{", + RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", + RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], + 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.953125, 15.755155312123387`}, + BaseStyle->20, + DisplayFunction->Identity, + Frame->{{True, True}, {True, True}}, + FrameLabel->{{ + FormBox["\"IP (eV)\"", TraditionalForm], None}, { + FormBox["\"cc-pVXZ\"", TraditionalForm], None}}, + FrameStyle->Automatic, + FrameTicks->{{Automatic, Automatic}, {{{2, + FormBox["2", TraditionalForm]}, {3, + FormBox["3", TraditionalForm]}, {4, + FormBox["4", TraditionalForm]}, {5, + FormBox["5", TraditionalForm]}}, {{2, + FormBox["2", TraditionalForm]}, {3, + FormBox["3", TraditionalForm]}, {4, + FormBox["4", TraditionalForm]}, {5, + FormBox["5", TraditionalForm]}}}}, + GridLines->{{0}, {0}}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + ImageSize->Large, + LabelStyle->{FontFamily -> "Times"}, + Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotLabel->FormBox[ + "\"\\!\\(\\*SubscriptBox[\\(G\\), \ +\\(0\\)]\\)\\!\\(\\*SubscriptBox[\\(W\\), \\(0\\)]\\)@PBE for H2\"", + TraditionalForm], + PlotRange->{{2., 5.}, {15.763955, 15.939948757532248`}}, + 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., 15.763955}, {3., 15.823657}, {4., 15.845234}, {5., + 15.827049}}]}, { + 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., 15.938979740122061`}, {3., 15.888719496788404`}, {4., + 15.872982455670943`}, {5., 15.840451609633556`}}]}, { + 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., 15.939948757532248`}, {3., 15.88088485079685}, {4., + 15.869335808927493`}, {5., 15.839000832145784`}}]}}, {{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.9, 0.36, 0.054], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large], + AbsolutePointSize[6]], + GeometricTransformation[ + Inset[ + Style["\[FilledCircle]", FontSize -> Large], {0., 0.}], {{{2., + 15.763955}}, {{3., 15.823657}}, {{4., 15.845234}}, {{5., + 15.827049}}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.365248, 0.427802, 0.758297], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large], + AbsolutePointSize[6]], + GeometricTransformation[ + Inset[ + Style["\[FilledSquare]", FontSize -> Large], {0., 0.}], {{{2., + 15.938979740122061`}}, {{3., 15.888719496788404`}}, {{4., + 15.872982455670943`}}, {{5., 15.840451609633556`}}}]}, { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.945109, 0.593901, 0.], + CapForm["Butt"], + AbsoluteThickness[1.6], + Thickness[Large], + AbsolutePointSize[6]], + GeometricTransformation[ + Inset[ + Style["\[FilledDiamond]", FontSize -> Large], {0., 0.}], {{{2., + 15.939948757532248`}}, {{3., 15.88088485079685}}, {{4., + 15.869335808927493`}}, {{5., + 15.839000832145784`}}}]}, {}}}, {}, {}, {}, {}}, { + DisplayFunction -> Identity, PlotRangePadding -> {{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, AxesOrigin -> {1.953125, 15.755155312123387`}, + PlotRange -> {{2., 5.}, {15.763955, 15.939948757532248`}}, + PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> + Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, + AxesLabel -> {None, None}, + AxesOrigin -> {1.953125, 15.755155312123387`}, BaseStyle -> 20, + DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, + FrameLabel -> {{"IP (eV)", None}, {"cc-pVXZ", None}}, FrameStyle -> + Automatic, + FrameTicks -> {{Automatic, Automatic}, {{2, 3, 4, 5}, {2, 3, 4, 5}}}, + GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ + GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, + Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, PlotLabel -> + "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@PBE for H2", + PlotRange -> {{2., 5.}, {15.763955, 15.939948757532248`}}, + 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\)]\)@PBE", + "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@PBE+srLDA", + "\!\(\*SubscriptBox[\(G\), \(0\)]\)\!\(\*SubscriptBox[\(W\), \ +\(0\)]\)@PBE+srPBE"}, + LegendMarkers -> {{"\[FilledCircle]", Large}, { + "\[FilledSquare]", Large}, {"\[FilledDiamond]", Large}}, + Joined -> {True, True, True}, LabelStyle -> {FontFamily -> "Times"}, + LegendLayout -> "Column"]], {Right, Bottom}, Identity]]& ], + AutoDelete->True, + Editable->True, + SelectWithContents->False, + Selectable->True]], "Output", + CellChangeTimes->{{3.778924521394305*^9, 3.7789245299517107`*^9}, { + 3.778924636535309*^9, 3.778924717193363*^9}, 3.778924812659029*^9, { + 3.778925771153364*^9, 3.778925786982954*^9}, {3.778948662198921*^9, + 3.778948681247415*^9}, {3.778948711456181*^9, 3.778948738062662*^9}, { + 3.778948789232691*^9, 3.778948799034783*^9}, {3.7789488476778183`*^9, + 3.778948898786643*^9}, 3.778949245299425*^9}, + CellLabel->"Out[45]=",ExpressionUUID->"41e86766-029e-4b73-a65d-3ec7baa89d49"] +}, Open ]] +}, Open ]] +}, Open ]], + +Cell[CellGroupData[{ + +Cell["GW71", "Title", + CellChangeTimes->{{3.775922510367074*^9, 3.7759225111609898`*^9}, { + 3.775970030436705*^9, + 3.775970030516162*^9}},ExpressionUUID->"36ec1eb5-e4bd-4b1e-b2ab-\ +6a49f99064b6"], + +Cell[CellGroupData[{ + +Cell["def2-SVP basis", "Section", + CellChangeTimes->{{3.775922514439986*^9, + 3.775922519873818*^9}},ExpressionUUID->"83c3d3fe-bd0d-4a98-b6f0-\ +3b45e486e87b"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW71", "=", + RowBox[{"Import", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Mol", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"CAS2Mol", "[", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPFCI", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPLDA", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "5"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "7"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "6"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBEot", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "9"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "8"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], + ",", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPLDA", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBE", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBEot", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", "\"\\"", + ",", "\"\\"", ",", "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.775893866851365*^9, 3.775893918511887*^9}, { + 3.775893950066111*^9, 3.7758940250074263`*^9}, {3.775896046210225*^9, + 3.775896046408372*^9}, {3.7758996896242533`*^9, 3.7758997756794767`*^9}, { + 3.7758998217844152`*^9, 3.7758998693124332`*^9}, {3.775899957529449*^9, + 3.775899980903802*^9}, {3.775900021977261*^9, 3.775900070855657*^9}, + 3.775900246649693*^9, {3.775903499752975*^9, 3.775903505359549*^9}, { + 3.775970034197283*^9, 3.775970059818894*^9}, {3.775970205221386*^9, + 3.775970271556108*^9}, {3.7759703097010307`*^9, 3.775970316131522*^9}, { + 3.775970352269313*^9, 3.775970355226582*^9}, {3.7759766328541937`*^9, + 3.7759766638898973`*^9}, {3.775979676113276*^9, 3.7759796874331408`*^9}, { + 3.775979719287916*^9, 3.7759797209676313`*^9}}, + CellLabel->"In[43]:=",ExpressionUUID->"0652676b-df64-4e70-bb70-a15f0a6fc92f"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Molecule\"\>", + HoldForm], + TagBox["\<\"CAS number\"\>", + HoldForm], + TagBox["\<\"FCI\"\>", + HoldForm], + TagBox["\<\"FCI+LDA\"\>", + HoldForm], + TagBox["\<\"FCI+PBE\"\>", + HoldForm], + TagBox["\<\"FCI+PBEot\"\>", + HoldForm]}, + {"\<\"Ozone\"\>", "\<\"10028-15-6\"\>", + "12.2514345736463443615`4.088186945103864", + "12.5970831255786297476`4.100269995187641", + "12.6195936031644677655`4.101045369270635", + "12.6148607512842563239`4.100882460935034"}, + {"\<\"Boron nitride\"\>", "\<\"10043-11-5\"\>", + "11.7685304327804356461`4.070722234739697", + "11.9871338316372515465`4.078715354082519", + "11.9805634574452977148`4.07847724382164", + "11.9497555180447854184`4.077359020074933"}, + {"\<\"Phosphorus dimer\"\>", "\<\"12185-09-0\"\>", + "10.34937801093177967`4.014914249837656", + "10.6396156964171844095`4.026925941498542", + "10.5964011718275852303`4.025158392000894", + "10.595000027628890038`4.025100962179336"}, + {"\<\"Copper dimer\"\>", "\<\"12190-70-4\"\>", + "6.8883465846771541052`3.8381149903657588", + "7.0554605145516280373`3.848525365702193", + "7.0211706034748599947`3.8464095258401954", + "7.0223313323569280797`3.8464813167869147"}, + {"\<\"Carbon dioxide\"\>", "\<\"124-38-9\"\>", + "13.3516194823893599164`4.125533946570124", + "13.6802719958143939039`4.1360947322603385", + "13.7009124715781354098`4.1367494918407095", + "13.7073412921400130671`4.136953226188067"}, + {"\<\"Beryllium oxide\"\>", "\<\"1304-56-9\"\>", + "10.8402156313910467134`4.035037921186856", + "11.162937616433863397`4.047778497713137", + "11.1702068878643547833`4.048061216931704", + "11.1221717764437393328`4.046189598256215"}, + {"\<\"Magnesium oxide\"\>", "\<\"1309-48-4\"\>", + "8.6490255749775748484`3.936967181308959", + "8.8447763919823714218`3.9466868578273457", + "8.8341141328290433421`3.9461630058503396", + "8.7835335785625439087`3.943669265899881"}, + {"\<\"Borane\"\>", "\<\"13283-31-3\"\>", + "13.1634092098437101015`4.119368382383921", + "13.3065894930378085803`4.124066759144793", + "13.2956103409674479821`4.12370827860855", + "13.2818700441153616509`4.123259226587986"}, + {"\<\"Hydrogen\"\>", "\<\"1333-74-0\"\>", + "16.2566850126622028938`4.211031990982226", + "16.4171346400824589296`4.2152973599337935", + "16.4014894863439231187`4.214883289896871", + "16.3759070827366244316`4.214205365464828"}, + {"\<\"Boron fluoride\"\>", "\<\"13768-60-0\"\>", + "10.8161915150156211496`4.03407436842542", + "10.9917938027411157265`4.041068572774822", + "10.9772841665355009866`4.04049490683731", + "10.9544971042587402366`4.0395924448945735"}, + {"\<\"Lithium dimer\"\>", "\<\"14452-59-6\"\>", + "5.0689884173251789079`3.704921298858536", + "5.1593916812691817952`3.712598499099679", + "5.1349077332870463053`3.710532644372576", + "5.1227672672898174611`3.709504625868979"}, + {"\<\"Disilane\"\>", "\<\"1590-87-0\"\>", + "12.0332025231336441351`4.080381226095413", + "12.1830746303777814887`4.085756904594004", + "12.1612793496507070046`4.084979264514658", + "12.1552588060035340334`4.084764210141317"}, + {"\<\"Carbonyl selenide\"\>", "\<\"1603-84-5\"\>", + "10.1159962933746090386`4.005008661541559", + "10.4110052341693144484`4.017492664820401", + "10.4115374616684803755`4.017514866092304", + "10.4217268740092130486`4.017939687266266"}, + {"\<\"Gallium monochloride\"\>", "\<\"17108-85-9\"\>", + "9.4724793955402155632`3.9764636692742497", + "9.7256945780744761265`3.987920627031499", + "9.7375491340387920758`3.988449662063223", + "9.7162454950286338828`3.987498479351428"}, + {"\<\"Phosphorus mononitride\"\>", "\<\"17739-47-8\"\>", + "11.4076609226852827561`4.057196603882682", + "11.7024240603089317858`4.068275831572964", + "11.6957519400235092633`4.068028148582542", + "11.7053574694909965359`4.0683846811387365"}, + {"\<\"Diborane\"\>", "\<\"19287-45-7\"\>", + "12.1206985579682378074`4.083527650451415", + "12.2600014009707720675`4.0884905198099535", + "12.2501197385213700386`4.088140333722997", + "12.2395148926714085746`4.087764205096228"}, + {"\<\"Arsenic dimer\"\>", "\<\"23878-46-8\"\>", + "9.6878166988118277203`3.9862259130161215", + "9.9078483607346452544`3.995979351103127", + "9.8851169892805117456`3.994981813507892", + "9.8806464524403949667`3.994785359723586"}, + {"\<\"Disodium\"\>", "\<\"25681-79-2\"\>", + "4.8088377708752521045`3.6820401261272293", + "4.8629073881052082839`3.686895998702897", + "4.8459753779892595915`3.6853812031917963", + "4.8451392346830539637`3.685306261879186"}, + {"\<\"Dipotassium\"\>", "\<\"25681-80-5\"\>", + "3.9760920783292692526`3.5994564332321337", + "4.0151453670190857537`3.603701273388395", + "4.0057103196061536465`3.602679539279719", + "4.0081539401666912426`3.602944393019138"}, + {"\<\"Hydrazine\"\>", "\<\"302-01-2\"\>", + "9.2896150718929657586`3.967997718771223", + "9.5214860377982351025`3.978704734902365", + "9.5236604670014308738`3.9788039037492", + "9.5155415390904334316`3.978433509464469"}, + {"\<\"Carbonyl sulfide\"\>", "\<\"463-58-1\"\>", + "10.8323365745680444405`4.034722145636374", + "11.1736918419076083353`4.048196689826677", + "11.1596953552984210489`4.047652339107053", + "11.1568456320129225645`4.047541424148926"}, + {"\<\"Formaldehyde\"\>", "\<\"50-00-0\"\>", + "10.5531417674989071998`4.023381772350587", + "10.8147150306524775232`4.034015080201769", + "10.8358938673617917203`4.034864742665593", + "10.8189166754604997323`4.034183775980894"}, + {"\<\"Copper cyanide\"\>", "\<\"544-92-3\"\>", + "9.8639606264531600743`3.9940513300365548", + "10.2158289393108088206`4.009273612198256", + "10.2495626278882223659`4.010705333455443", + "10.2348596302946859282`4.010081890749723"}, + {"\<\"Vinyl bromide\"\>", "\<\"593-60-2\"\>", + "10.3946014296956725786`4.0168078414113655", + "10.6837250238935084212`4.028722701687177", + "10.7028673577519484184`4.029500143182967", + "10.6988920245991767644`4.029338804552719"}, + {"\<\"Iodoethene\"\>", "\<\"593-66-8\"\>", + "8.1561968974010881084`3.911487701463953", + "8.2353960935635832641`3.915684492043977", + "8.2403779214624623961`3.9159471298332837", + "8.2341565169693815562`3.9156191179213757"}, + {"\<\"Carbon monoxide\"\>", "\<\"630-08-0\"\>", + "13.6868126007505193087`4.136302320955153", + "13.9672376998899334666`4.145110524201878", + "13.9539873903024940205`4.144698326187591", + "13.9791259571558370567`4.145480018058383"}, + {"\<\"Ethanol\"\>", "\<\"64-17-5\"\>", + "10.0856947823490816774`4.00370582121482", + "10.3426029526947687032`4.0146298526581665", + "10.3670827509405381051`4.0156565651249725", + "10.3549763889734069977`4.015149112968704"}, + {"\<\"Formic acid\"\>", "\<\"64-18-6\"\>", + "11.147061288366289844`4.047160388956973", + "11.4485361170729103009`4.058749958560485", + "11.4729479439975392552`4.0596750230726055", + "11.4562189580326876381`4.059041305536112"}, + {"\<\"Methyl alcohol\"\>", "\<\"67-56-1\"\>", + "10.660155168958500127`4.027763526316443", + "10.9203134699715551648`4.038235105065141", + "10.9452479106126681074`4.039225602815029", + "10.9345469895220848144`4.03880079523592"}, + {"\<\"Methane\"\>", "\<\"74-82-8\"\>", + "14.2411844537448093462`4.153546111515247", + "14.3996617128299018162`4.158352289457959", + "14.3935936064011045232`4.158169236507021", + "14.3831833518937095562`4.157855016725455"}, + {"\<\"Ethane\"\>", "\<\"74-84-0\"\>", + "12.5872222607907708891`4.09992990088547", + "12.7367432758479228738`4.105058395178479", + "12.7350840779121856627`4.105001816551521", + "12.7202943984484839746`4.104497162738661"}, + {"\<\"Ethylene\"\>", "\<\"74-85-1\"\>", + "12.9550010139105893359`4.112437451311481", + "13.1256139443466928185`4.118119626470837", + "13.1256886640915659825`4.118122098757517", + "13.1181000425558824674`4.1178709386383066"}, + {"\<\"Acetylene\"\>", "\<\"74-86-2\"\>", + "11.2828567170459521662`4.052419072996142", + "11.5148820776343612238`4.061259494771382", + "11.4868224691738998189`4.060199909022957", + "11.4710728046650771716`4.059604036153998"}, + {"\<\"Hydrogen cyanide\"\>", "\<\"74-90-8\"\>", + "13.4535125173415348598`4.1288356871446", + "13.7235798962754067531`4.137467415044153", + "13.7190345988733373161`4.13732355137557", + "13.7359022078019901159`4.137857190221937"}, + {"\<\"Propane\"\>", "\<\"74-98-6\"\>", + "11.2086218790725880012`4.049552218562267", + "11.3519335442806674763`4.055069840039563", + "11.3502665557251116724`4.0550060608525955", + "11.3372211505955409194`4.054506618326415"}, + {"\<\"Krypton\"\>", "\<\"7439-90-9\"\>", + "13.7692886791052497841`4.138911505201094", + "14.1432552034448413281`4.150549377932659", + "14.1830859595291904895`4.151770735034788", + "14.1663342466147330612`4.151257484515022"}, + {"\<\"Neon\"\>", "\<\"7440-01-9\"\>", + "21.0863506505104538746`4.324001424240001", + "21.490923714619206919`4.332255082571039", + "21.5766919298466319788`4.333984860794478", + "21.536053183356052898`4.333166115036897"}, + {"\<\"Argon\"\>", "\<\"7440-37-1\"\>", + "15.2022525120287532729`4.1819079419623515", + "15.6319493835350709077`4.19401314012553", + "15.6555824233129445844`4.194669228997064", + "15.6357705206478208027`4.194119287857184"}, + {"\<\"Helium\"\>", "\<\"7440-59-7\"\>", + "24.3081466458432799982`4.385751847688789", + "24.6321616778538263759`4.391502526478502", + "24.6428541416456319268`4.391691006503049", + "24.6121817693702737984`4.391150113840946"}, + {"\<\"Sulfur dioxide\"\>", "\<\"7446-09-5\"\>", + "11.8135750727417523365`4.072381345488886", + "12.159486486662991922`4.084915234417166", + "12.172244109616292107`4.085370653380204", + "12.1585523959728050158`4.08488187067147"}, + {"\<\"Chloroethene\"\>", "\<\"75-01-4\"\>", + "9.6567426565453917675`3.984830658004482", + "9.9311316743362176851`3.996998740128398", + "9.9129912691533110802`3.996204723674521", + "9.8932076363971201971`3.995337124047107"}, + {"\<\"Fluoroethene\"\>", "\<\"75-02-5\"\>", + "10.2401177653288044667`4.010304951223637", + "10.4738625807461538386`4.020106871568984", + "10.4592636068390962834`4.019501108743079", + "10.4399022158809184901`4.0186964309169895"}, + {"\<\"Acetaldehyde\"\>", "\<\"75-07-0\"\>", + "9.7139075199545850126`3.987393964510232", + "9.9716870478611276951`3.998768640116559", + "9.992119606866566528`3.999657623954075", + "9.9775920193095952726`3.9990257417974893"}, + {"\<\"Carbon disulfide\"\>", "\<\"75-15-0\"\>", + "9.5888546022457870066`3.981766733382041", + "9.9340279535805890987`3.9971253777317557", + "9.9099876464304301749`3.9960731131037983", + "9.9244572546872085184`3.996706765536961"}, + {"\<\"Cyclopropane\"\>", "\<\"75-19-4\"\>", + "10.6505389372524845726`4.027371584446388", + "10.8465537754512784119`4.035291773756374", + "10.8383682939323531258`4.034963904501151", + "10.8390754471054098218`4.034992239273894"}, + {"\<\"Lithium hydride\"\>", "\<\"7580-67-8\"\>", + "7.6921061646039134985`3.8860452696360572", + "7.8549033754400268137`3.8951408470753797", + "7.8224075355338040794`3.893340438287419", + "7.8203428797829523944`3.8932257949438864"}, + {"\<\"Hydrogen chloride\"\>", "\<\"7647-01-0\"\>", + "12.1495605866632523373`4.084560571083439", + "12.5263531767093372338`4.09782465233844", + "12.516933941832819599`4.097497960246931", + "12.5024571933083503694`4.0969953762577545"}, + {"\<\"Sodium chloride\"\>", "\<\"7647-14-5\"\>", + "8.4624692104724346109`3.927497101575476", + "8.8474343375811130841`3.9468173481468503", + "8.8376879075568144373`3.946338660903678", + "8.8269468442295764277`3.945810511278934"}, + {"\<\"Hydrogen fluoride\"\>", "\<\"7664-39-3\"\>", + "15.6031464334812302042`4.193212184310328", + "15.940403619826826187`4.202499313775548", + "16.0001262147438723105`4.204123408540338", + "15.966815260490559325`4.203218300438793"}, + {"\<\"Ammonia\"\>", "\<\"7664-41-7\"\>", + "10.3177635505399027949`4.01358557103948", + "10.5615461537339427878`4.023727501235809", + "10.5598731432986614465`4.023658701010644", + "10.5464754922193382214`4.023107347783595"}, + {"\<\"Potassium hydride\"\>", "\<\"7693-26-7\"\>", + "5.8344430733850867199`3.7659994067911287", + "5.9983549251787664502`3.778032159570593", + "5.9609240174194031425`3.7753135860090135", + "5.9630692052671809833`3.7754698496427794"}, + {"\<\"Hydrogen peroxide\"\>", "\<\"7722-84-1\"\>", + "12.5819489662940284802`4.0997479193085455", + "12.8806934154119563374`4.109939243332879", + "12.9026020152349722991`4.110677301532221", + "12.8846771269504820623`4.110073540175194"}, + {"\<\"Bromine\"\>", "\<\"7726-95-6\"\>", + "10.3386784939590246069`4.014465030106116", + "10.6819688636406002757`4.0286513077307795", + "10.7068077678265343167`4.029660005335113", + "10.693002506511462002`4.029099668625093"}, + {"\<\"Nitrogen\"\>", "\<\"7727-37-9\"\>", + "15.2158990221196788184`4.182297617477031", + "15.4973688126277586719`4.190257968676264", + "15.5057667878601108669`4.190493247742148", + "15.5372056558991591402`4.191372914249564"}, + {"\<\"Water\"\>", "\<\"7732-18-5\"\>", + "12.0701759938862309696`4.081713602542784", + "12.3636277005297543496`4.092145918905023", + "12.3911153583097384256`4.09311040017411", + "12.3683150059920450303`4.092310537669169"}, + {"\<\"Potassium bromide\"\>", "\<\"7758-02-3\"\>", + "7.736326299570863263`3.8885347789542806", + "8.0518740108529218702`3.905896970784497", + "8.0525513349046242695`3.905933502121936", + "8.0514973345208016298`3.9058766534920464"}, + {"\<\"Fluorine\"\>", "\<\"7782-41-4\"\>", + "15.4789278168691648574`4.189740874993912", + "15.8524730980686126003`4.200097024854094", + "15.9117495351004745174`4.201717933993963", + "15.8946534103943015737`4.201251062380121"}, + {"\<\"Chlorine\"\>", "\<\"7782-50-5\"\>", + "11.1085639799950168793`4.0456579206984955", + "11.5268592208939040233`4.06171098909446", + "11.5268385864998847978`4.061710211657059", + "11.5065192540716747516`4.060943968515283"}, + {"\<\"Germanium tetrahydride\"\>", "\<\"7782-65-2\"\>", + "12.3608074743901887871`4.092046842129616", + "12.4942456051898709291`4.096710038822289", + "12.4758523735771760244`4.096070227120683", + "12.4740560248136205246`4.096007690269286"}, + {"\<\"Hydrogen azide\"\>", "\<\"7782-79-8\"\>", + "10.3163325037488426972`4.013525331354246", + "10.6083257943895148401`4.025646848969155", + "10.6071742058120097596`4.0255997015000755", + "10.6083825165236742549`4.025649171111638"}, + {"\<\"Hydrogen sulfide\"\>", "\<\"7783-06-4\"\>", + "9.8911992238600134897`3.9952489493051084", + "10.1992936902518387399`4.008570097541612", + "10.1699407001235986314`4.00731842060375", + "10.1622115725962007815`4.006988232480845"}, + {"\<\"Magnesium fluoride\"\>", "\<\"7783-40-6\"\>", + "13.4751526441882916174`4.129533693499088", + "13.8270354307821641271`4.1407290756939314", + "13.8502391891764649046`4.141457273591261", + "13.8331667002801914634`4.1409216105525735"}, + {"\<\"Arsine\"\>", "\<\"7784-42-1\"\>", + "10.1682922234777155523`4.007248018783187", + "10.3466194730049458883`4.014798476939271", + "10.3386448198626279549`4.014463615563816", + "10.3345837708438921254`4.014292989945807"}, + {"\<\"Magnesium chloride\"\>", "\<\"7786-30-3\"\>", + "11.3374256142263423186`4.054514450636001", + "11.732363608186943793`4.06938551412629", + "11.7314520485243836134`4.069351769799503", + "11.7184499884116029023`4.06887017089729"}, + {"\<\"Lithium fluoride\"\>", "\<\"7789-24-4\"\>", + "10.7650749263769522912`4.032017056918337", + "11.1086057930093105028`4.045659555394685", + "11.1410329976365751747`4.04692546053021", + "11.1056798860063707934`4.045545151061217"}, + {"\<\"Phosphine\"\>", "\<\"7803-51-2\"\>", + "10.246325770935140298`4.010568159686951", + "10.4509269987242277011`4.019154814138482", + "10.4119914237691943981`4.017533801714259", + "10.4058725844323021192`4.017278503837863"}, + {"\<\"Silane\"\>", "\<\"7803-62-5\"\>", + "12.6639896624623258248`4.102570547342503", + "12.8106063028862955377`4.107569684605474", + "12.7879750013042521317`4.106801778615742", + "12.7889662522319120797`4.106835441343744"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Molecule", "CAS number", "FCI", "FCI+LDA", "FCI+PBE", + "FCI+PBEot"}}]]]], "Output", + CellChangeTimes->{3.775979688811997*^9, 3.7759797219517317`*^9, + 3.775990827386045*^9, 3.776136100195774*^9, 3.776141544060803*^9}, + CellLabel-> + "Out[50]//TableForm=",ExpressionUUID->"9b4e722d-6ffd-40f0-8931-\ +924adb7220d1"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["def2-TZVP basis", "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.776136111013771*^9, + 3.7761361124227133`*^9}},ExpressionUUID->"4e63b2ba-f0e9-4db6-9c25-\ +7becd90e5558"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW71", "=", + RowBox[{"Import", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Mol", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"CAS2Mol", "[", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPFCI", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPLDA", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "5"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "7"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "6"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBEot", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "9"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "8"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], + ",", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPLDA", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBE", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBEot", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", "\"\\"", + ",", "\"\\"", ",", "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.775893866851365*^9, 3.775893918511887*^9}, { + 3.775893950066111*^9, 3.7758940250074263`*^9}, {3.775896046210225*^9, + 3.775896046408372*^9}, {3.7758996896242533`*^9, 3.7758997756794767`*^9}, { + 3.7758998217844152`*^9, 3.7758998693124332`*^9}, {3.775899957529449*^9, + 3.775899980903802*^9}, {3.775900021977261*^9, 3.775900070855657*^9}, + 3.775900246649693*^9, {3.775903499752975*^9, 3.775903505359549*^9}, { + 3.775970034197283*^9, 3.775970059818894*^9}, {3.775970205221386*^9, + 3.775970271556108*^9}, {3.7759703097010307`*^9, 3.775970316131522*^9}, { + 3.775970352269313*^9, 3.775970355226582*^9}, {3.7759766328541937`*^9, + 3.7759766638898973`*^9}, {3.775979676113276*^9, 3.7759796874331408`*^9}, { + 3.775979719287916*^9, 3.7759797209676313`*^9}, {3.7761361159571733`*^9, + 3.77613611673205*^9}}, + CellLabel->"In[59]:=",ExpressionUUID->"d1a34d38-9472-48f3-91d9-b324047a07c2"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Molecule\"\>", + HoldForm], + TagBox["\<\"CAS number\"\>", + HoldForm], + TagBox["\<\"FCI\"\>", + HoldForm], + TagBox["\<\"FCI+LDA\"\>", + HoldForm], + TagBox["\<\"FCI+PBE\"\>", + HoldForm], + TagBox["\<\"FCI+PBEot\"\>", + HoldForm]}, + {"\<\"Ozone\"\>", "\<\"10028-15-6\"\>", + "12.4915663476286411537`4.096616899021101", + "12.6445620253837649472`4.10190379111394", + "12.6472518763341206238`4.101996167835817", + "12.6458129327991048996`4.101946753085772"}, + {"\<\"Boron nitride\"\>", "\<\"10043-11-5\"\>", + "11.9333517027005182598`4.076762440447285", + "12.0251051493594776076`4.080088882599878", + "12.017763218086034982`4.079823643004588", + "12.0112109884462796572`4.079586795836434"}, + {"\<\"Phosphorus dimer\"\>", "\<\"12185-09-0\"\>", + "10.6331296367053766971`4.026661108729163", + "10.7549014326978440437`4.031606434488094", + "10.7471625798210812519`4.031293818802103", + "10.7503627177300540296`4.031423117614522"}, + {"\<\"Copper dimer\"\>", "\<\"12190-70-4\"\>", + "7.8844416832689780961`3.8967709452920216", + "7.979094309907527105`3.901953598301606", + "7.9497802293401580442`3.900355122806895", + "7.9616635286915267145`3.901003819728822"}, + {"\<\"Carbon dioxide\"\>", "\<\"124-38-9\"\>", + "13.7479002575684887688`4.138236372625447", + "13.8923026422046849149`4.1427742357967885", + "13.8901518297634165577`4.142706992927541", + "13.9053471983390117828`4.143181837100953"}, + {"\<\"Beryllium oxide\"\>", "\<\"1304-56-9\"\>", + "9.9819002157414953302`3.9992132241186176", + "10.1144261365264913621`4.00494124718493", + "10.0981955107697647378`4.004243774799406", + "10.0845111088257013421`4.003654848717767"}, + {"\<\"Magnesium oxide\"\>", "\<\"1309-48-4\"\>", + "7.9422696881564025517`3.899944629906107", + "8.0194381121859183992`3.9041439401886784", + "8.0082544039634289135`3.9035378612348146", + "7.9995225803994127745`3.9030640686313043"}, + {"\<\"Borane\"\>", "\<\"13283-31-3\"\>", + "13.2211637439881180001`4.121269683995947", + "13.3228559344209323001`4.124597331711976", + "13.3151285048840222203`4.12434536219011", + "13.3054482529505264665`4.124029510266863"}, + {"\<\"Hydrogen\"\>", "\<\"1333-74-0\"\>", + "16.3120520197971003995`4.212508597755052", + "16.4423510886437327372`4.215963917329337", + "16.4245160714038505034`4.215492582456167", + "16.4080063166916083617`4.215055814553374"}, + {"\<\"Boron fluoride\"\>", "\<\"13768-60-0\"\>", + "11.0889206246537277423`4.044889274772199", + "11.1705882581608104687`4.048076044247764", + "11.1627202355557493263`4.047770040420056", + "11.1520849945876037168`4.047356070701901"}, + {"\<\"Lithium dimer\"\>", "\<\"14452-59-6\"\>", + "5.2250111576896154375`3.718087222193208", + "5.3046043828850963919`3.7246529997855706", + "5.2845614691583540079`3.7230089539089875", + "5.2810506806243004974`3.722720335299489"}, + {"\<\"Disilane\"\>", "\<\"1590-87-0\"\>", + "10.6329903144067063891`4.026655418278281", + "10.7438787124750785296`4.031161096942852", + "10.7297246637774197353`4.030588577647558", + "10.7352575494545892099`4.030812468051747"}, + {"\<\"Carbonyl selenide\"\>", "\<\"1603-84-5\"\>", + "10.4858194379210569736`4.020602375045674", + "10.6142240174193140945`4.02588824934786", + "10.6029758998461165476`4.025427774273813", + "10.6149977514116837796`4.025919906504882"}, + {"\<\"Gallium monochloride\"\>", "\<\"17108-85-9\"\>", + "11.310581037690722539`4.053484915710708", + "11.4480092420509826923`4.058729971360571", + "11.4333290557623481476`4.0581727028398005", + "11.4465736509587259206`4.0586755070103475"}, + {"\<\"Phosphorus mononitride\"\>", "\<\"17739-47-8\"\>", + "11.6966224404246244006`4.068060471382676", + "11.8225817149775505044`4.072712324441848", + "11.8176995868759107111`4.07253294575362", + "11.8265644822809825598`4.072858604046575"}, + {"\<\"Diborane\"\>", "\<\"19287-45-7\"\>", + "12.1333521245813766853`4.083980801533433", + "12.2341945551304203121`4.087575382614925", + "12.2268258995547682844`4.087313728236419", + "12.2228001437037026022`4.087170710624262"}, + {"\<\"Arsenic dimer\"\>", "\<\"23878-46-8\"\>", + "9.8713093333692150111`3.9943747614379768", + "9.971502258066484714`3.9987605919366116", + "9.9516149771409470048`3.9978935650419056", + "9.9632891923655559907`3.9984027362425496"}, + {"\<\"Disodium\"\>", "\<\"25681-79-2\"\>", + "4.9866818659165756955`3.6978116625267554", + "4.994222094723361316`3.6984678516653293", + "4.9995731212654810349`3.69893292453737", + "5.0044428491385124502`3.699355733960491"}, + {"\<\"Dipotassium\"\>", "\<\"25681-80-5\"\>", + "4.1271103726892066632`3.6156460835149034", + "4.1478919340471849253`3.6178274330934848", + "4.1425200799102039895`3.6172646222387645", + "4.1461550775368847255`3.6176455418627618"}, + {"\<\"Hydrazine\"\>", "\<\"302-01-2\"\>", + "9.6653547881065566827`3.985217800391361", + "9.7804569128383445076`3.990359144162776", + "9.7724312846065952698`3.9900026253492484", + "9.773457597405140973`3.990048233097068"}, + {"\<\"Carbonyl sulfide\"\>", "\<\"463-58-1\"\>", + "11.0247763128435423141`4.042369786613052", + "11.1581190078701748547`4.047590989103898", + "11.1470478568248214657`4.047159865657808", + "11.1538949163898255534`4.047426548578797"}, + {"\<\"Formaldehyde\"\>", "\<\"50-00-0\"\>", + "10.8023362935957951692`4.03351769342097", + "10.9293012683223569326`4.038592397538727", + "10.9289123958470231202`4.0385769447507895", + "10.9246810715802684655`4.038408767301538"}, + {"\<\"Copper cyanide\"\>", "\<\"544-92-3\"\>", + "10.3751822961775008736`4.0159957361820515", + "10.5047200067701247406`4.021384481193637", + "10.4934054335499897803`4.020916453016158", + "10.500778666080771373`4.021221504578854"}, + {"\<\"Vinyl bromide\"\>", "\<\"593-60-2\"\>", + "9.3998943839014401647`3.973122973945817", + "9.5085468604764891154`3.9781141511438176", + "9.4960866688569414151`3.977544669682272", + "9.5002336813652519254`3.9777342879498256"}, + {"\<\"Iodoethene\"\>", "\<\"593-66-8\"\>", + "4.663252229725286746`3.6686889065579265", + "4.6831943089399930003`3.670542177331462", + "4.6789864490514041506`3.6701517874211347", + "4.6811667749619498835`3.670354113922884"}, + {"\<\"Carbon monoxide\"\>", "\<\"630-08-0\"\>", + "14.0096893015708001684`4.146428503871816", + "14.1300266983297166945`4.150142982437824", + "14.1256172809837394766`4.150007435313949", + "14.1309098901223517686`4.150170126996245"}, + {"\<\"Ethanol\"\>", "\<\"64-17-5\"\>", + "10.8965064650812717417`4.037287280864441", + "11.0226919016268265494`4.042287668495604", + "11.0200468188487512577`4.042183439626879", + "11.0197912304632819058`4.042173366900828"}, + {"\<\"Formic acid\"\>", "\<\"64-18-6\"\>", + "11.4543061363728657653`4.058968786212331", + "11.5912444405449157614`4.064130064492415", + "11.5892658299177977455`4.064055924650863", + "11.5932442025823867482`4.064204984033106"}, + {"\<\"Methyl alcohol\"\>", "\<\"67-56-1\"\>", + "10.7916721514146445315`4.0330887430950675", + "10.9208805089965768076`4.038257655290177", + "10.9185018746681326007`4.038163053002507", + "10.9180101540381979675`4.038143493875484"}, + {"\<\"Methane\"\>", "\<\"74-82-8\"\>", + "14.3122910707813773001`4.1557091599481355", + "14.4145727278638506874`4.158801773697438", + "14.4077794706512847256`4.158597052434171", + "14.4051854663659071321`4.1585188541819145"}, + {"\<\"Ethane\"\>", "\<\"74-84-0\"\>", + "13.0290826517809392726`4.114913839097513", + "13.1235570057451180759`4.11805156206699", + "13.1135810612854335488`4.1177213051747685", + "13.1169783783397839727`4.117833802665463"}, + {"\<\"Ethylene\"\>", "\<\"74-85-1\"\>", + "10.6602332656364584551`4.027766707961693", + "10.736398351440644916`4.030858616705604", + "10.7215352719842940132`4.030256978678609", + "10.7207448655757087153`4.030224960708535"}, + {"\<\"Acetylene\"\>", "\<\"74-86-2\"\>", + "11.4054948963579132482`4.057114134513522", + "11.494272211958756813`4.060481478055355", + "11.4822498052809152114`4.060026991048837", + "11.4806441294203391834`4.059966255135578"}, + {"\<\"Hydrogen cyanide\"\>", "\<\"74-90-8\"\>", + "13.7073874018340333691`4.136954687095151", + "13.810169536170462834`4.140199010089955", + "13.7998466547024403184`4.139874260503659", + "13.7967294679826135706`4.1397761485501166"}, + {"\<\"Propane\"\>", "\<\"74-98-6\"\>", + "11.9861243762924996048`4.078678779922894", + "12.088070272082871881`4.082356976040526", + "12.08214644586503006`4.082144095442912", + "12.0772624537834492031`4.081968504156851"}, + {"\<\"Krypton\"\>", "\<\"7439-90-9\"\>", + "13.9676792753800995683`4.145124254244385", + "14.1556744582463753801`4.1509305664963545", + "14.1552026155339270019`4.150916090174351", + "14.1570154680031059513`4.150971706574495"}, + {"\<\"Neon\"\>", "\<\"7440-01-9\"\>", + "21.324176803755729992`4.328872274705354", + "21.5246295469005239909`4.332935685694967", + "21.5355775011168120159`4.3331565223575215", + "21.5240067190916057882`4.332923118947024"}, + {"\<\"Argon\"\>", "\<\"7440-37-1\"\>", + "15.5384505468781526361`4.191407709928827", + "15.7367599198957552886`4.196915319270763", + "15.7313180807950701023`4.196765112402944", + "15.7339613322468654388`4.19683807851314"}, + {"\<\"Helium\"\>", "\<\"7440-59-7\"\>", + "24.3492325733671535204`4.3864852778954555", + "24.6180735514599362546`4.391254064894852", + "24.6075045076305585212`4.39106757333231", + "24.5888003560000605319`4.3907373407973385"}, + {"\<\"Sulfur dioxide\"\>", "\<\"7446-09-5\"\>", + "12.5860135310223597571`4.099888194314787", + "12.7333093540356969697`4.104941290331855", + "12.728475414577559377`4.104776388045795", + "12.7263530543615139834`4.104703967260583"}, + {"\<\"Chloroethene\"\>", "\<\"75-01-4\"\>", + "9.845152660664133748`3.993222454772767", + "9.9499337053216532212`3.9978201871267407", + "9.9353538719035228155`3.997183340180413", + "9.939284981111732975`3.9973551429559784"}, + {"\<\"Fluoroethene\"\>", "\<\"75-02-5\"\>", + "10.704374215468879683`4.029561283240674", + "10.801613749663331987`4.033488643470171", + "10.7891273562001845931`4.032986319593664", + "10.7897863180086002188`4.033012843957363"}, + {"\<\"Acetaldehyde\"\>", "\<\"75-07-0\"\>", + "10.3508196701629131553`4.014974742462849", + "10.4730861310572826994`4.020074675202808", + "10.4709772785732582179`4.019987217197917", + "10.468480519618100999`4.019883649220899"}, + {"\<\"Carbon disulfide\"\>", "\<\"75-15-0\"\>", + "9.8892361944729092471`3.9951627497027844", + "10.0193967900183640296`4.000841575957159", + "10.0048939321690077975`4.0002124887825365", + "10.0189801592081497716`4.000823516564189"}, + {"\<\"Cyclopropane\"\>", "\<\"75-19-4\"\>", + "11.0320205280301824047`4.042655061289796", + "11.1222547738921999638`4.046192839098032", + "11.1107648505005514039`4.045743956233264", + "11.114933523272132021`4.045906869593496"}, + {"\<\"Lithium hydride\"\>", "\<\"7580-67-8\"\>", + "7.7765101696469285386`3.890784744278636", + "7.9176499036570495704`3.8985962945529216", + "7.8778308430264125661`3.8964066511711524", + "7.8805737316892585653`3.8965578367073697"}, + {"\<\"Hydrogen chloride\"\>", "\<\"7647-01-0\"\>", + "12.5661747979314579737`4.099203096542509", + "12.7287935945939914006`4.10478724418479", + "12.715640797008354923`4.1043382510703115", + "12.7152211620611250709`4.104323918473775"}, + {"\<\"Sodium chloride\"\>", "\<\"7647-14-5\"\>", + "9.0261389219601273481`3.9555020134935", + "9.1888230994198512036`3.9632598906942267", + "9.1673765081143763211`3.9622450683784036", + "9.1815279390766999512`3.9629149601001914"}, + {"\<\"Hydrogen fluoride\"\>", "\<\"7664-39-3\"\>", + "15.9827515270791806756`4.203651547829067", + "16.1531519039368056667`4.2082572771890305", + "16.1538894876028464864`4.208277107449084", + "16.1442386919947153956`4.208017569968768"}, + {"\<\"Ammonia\"\>", "\<\"7664-41-7\"\>", + "10.7421716469920074388`4.031092087598771", + "10.8574424496634556192`4.035727536043953", + "10.8471047488746066279`4.035313834094165", + "10.8427190435304066085`4.0351382044832995"}, + {"\<\"Potassium hydride\"\>", "\<\"7693-26-7\"\>", + "5.9842608013942548695`3.7770105123527715", + "6.1204205116203906911`3.7867812619498737", + "6.0814761038494555834`3.7840090045935115", + "6.088597810654699849`3.7845172871794714"}, + {"\<\"Hydrogen peroxide\"\>", "\<\"7722-84-1\"\>", + "11.5045103272383926196`4.060868138284621", + "11.6532861421625550946`4.0664484105264656", + "11.6532553796906590549`4.06644726406964", + "11.6524107219417665249`4.066415784154155"}, + {"\<\"Bromine\"\>", "\<\"7726-95-6\"\>", + "10.4715163170850846797`4.02000957379554", + "10.6416212435978589923`4.0270077974619705", + "10.6367940171886505851`4.026810749157133", + "10.6420521168475161744`4.027025381444921"}, + {"\<\"Nitrogen\"\>", "\<\"7727-37-9\"\>", + "15.4355765414594170437`4.188522855657969", + "15.5586078300595129775`4.191970734120749", + "15.5613624087337925062`4.19204761711981", + "15.5745449782968741204`4.192415367286168"}, + {"\<\"Water\"\>", "\<\"7732-18-5\"\>", + "12.5005373973719127179`4.096928683703773", + "12.6424111503565068659`4.101829910135669", + "12.6378387912310419239`4.1016728111858", + "12.630808569105598238`4.101431153077959"}, + {"\<\"Potassium bromide\"\>", "\<\"7758-02-3\"\>", + "8.1677454096322303911`3.912102192238128", + "8.3236017088329550262`3.9203112906896993", + "8.3028910576258070364`3.919229339575382", + "8.3191524649024000126`3.9200790836747372"}, + {"\<\"Fluorine\"\>", "\<\"7782-41-4\"\>", + "15.6306527909254757702`4.193977116059918", + "15.8141149759361638871`4.199044891994878", + "15.8221577337354126769`4.199265709752949", + "15.8217978822032687702`4.199255832256178"}, + {"\<\"Chlorine\"\>", "\<\"7782-50-5\"\>", + "11.3545257934320744653`4.055169001206905", + "11.527947796064101027`4.061752001121978", + "11.5181328559332207817`4.061382083593603", + "11.5317209622244369882`4.061894125041844"}, + {"\<\"Germanium tetrahydride\"\>", "\<\"7782-65-2\"\>", + "12.3951191273566756479`4.0932507050534195", + "12.5003905347959687333`4.096923581364652", + "12.4848125550849626819`4.096382026310645", + "12.4832065118706765361`4.096326155181682"}, + {"\<\"Hydrogen azide\"\>", "\<\"7782-79-8\"\>", + "10.8058705084121520201`4.033659758888999", + "10.9256469370059896562`4.038447162150784", + "10.9182043889115991675`4.038151220043732", + "10.9256301203694299318`4.038446493688942"}, + {"\<\"Hydrogen sulfide\"\>", "\<\"7783-06-4\"\>", + "10.2722712832780622705`4.011666480280361", + "10.4027961903018297818`4.01715008995236", + "10.3858514561417809574`4.016442106797524", + "10.3824945996973045936`4.016301713890053"}, + {"\<\"Magnesium fluoride\"\>", "\<\"7783-40-6\"\>", + "13.5814928359565723071`4.132947508883053", + "13.759740146595090593`4.138610232303165", + "13.7460505363917437904`4.138177936229212", + "13.7450008408491903822`4.138144770747414"}, + {"\<\"Arsine\"\>", "\<\"7784-42-1\"\>", + "10.3402178420467905084`4.014529688332611", + "10.4391154231353517901`4.018663699516128", + "10.428558004010083593`4.0182242610443275", + "10.4288408500409310875`4.018236039931167"}, + {"\<\"Magnesium chloride\"\>", "\<\"7786-30-3\"\>", + "11.4601152230615568328`4.0591889841661235", + "11.6230524718535441764`4.0653201984150265", + "11.6054633720725419721`4.064662485241455", + "11.6171464745358239412`4.065099465184097"}, + {"\<\"Lithium fluoride\"\>", "\<\"7789-24-4\"\>", + "11.2579534007879811242`4.051459446684947", + "11.4400915069663220436`4.058429498304172", + "11.4217747121369566088`4.057733589707173", + "11.4134462402267757852`4.0574167975411415"}, + {"\<\"Phosphine\"\>", "\<\"7803-51-2\"\>", + "10.4820346062347677929`4.020445589183784", + "10.5774629097586494453`4.024381511137306", + "10.5586604978132321264`4.023608825839161", + "10.55360334607671291`4.02340076732383"}, + {"\<\"Silane\"\>", "\<\"7803-62-5\"\>", + "12.719272314299265858`4.104462265485002", + "12.8229453902310694957`4.107987792718124", + "12.8094364064869843389`4.10753002194318", + "12.8102180698772407652`4.107556522854621"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Molecule", "CAS number", "FCI", "FCI+LDA", "FCI+PBE", + "FCI+PBEot"}}]]]], "Output", + CellChangeTimes->{ + 3.775979688811997*^9, 3.7759797219517317`*^9, 3.775990827386045*^9, { + 3.776136100195774*^9, 3.7761361187280903`*^9}, 3.7761416323250437`*^9}, + CellLabel-> + "Out[66]//TableForm=",ExpressionUUID->"da18bef0-28b6-4d69-abf1-\ +72b177d15930"] +}, Open ]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["def2-TZVPP basis", "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.776136111013771*^9, 3.7761361124227133`*^9}, + 3.776141833887919*^9},ExpressionUUID->"6047ff2b-9735-42d5-a567-\ +106730f18bd3"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW71", "=", + RowBox[{"Import", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Mol", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"CAS2Mol", "[", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPFCI", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "3"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPLDA", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "5"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "4"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBE", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "7"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "6"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IPPBEot", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{ + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "9"}], "\[RightDoubleBracket]"}], "-", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "8"}], "\[RightDoubleBracket]"}]}], ")"}], + "HaToeV"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], + ",", + RowBox[{"GW71", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPFCI", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPLDA", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBE", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"IPPBEot", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW71", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", "\"\\"", + ",", "\"\\"", ",", "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.775893866851365*^9, 3.775893918511887*^9}, { + 3.775893950066111*^9, 3.7758940250074263`*^9}, {3.775896046210225*^9, + 3.775896046408372*^9}, {3.7758996896242533`*^9, 3.7758997756794767`*^9}, { + 3.7758998217844152`*^9, 3.7758998693124332`*^9}, {3.775899957529449*^9, + 3.775899980903802*^9}, {3.775900021977261*^9, 3.775900070855657*^9}, + 3.775900246649693*^9, {3.775903499752975*^9, 3.775903505359549*^9}, { + 3.775970034197283*^9, 3.775970059818894*^9}, {3.775970205221386*^9, + 3.775970271556108*^9}, {3.7759703097010307`*^9, 3.775970316131522*^9}, { + 3.775970352269313*^9, 3.775970355226582*^9}, {3.7759766328541937`*^9, + 3.7759766638898973`*^9}, {3.775979676113276*^9, 3.7759796874331408`*^9}, { + 3.775979719287916*^9, 3.7759797209676313`*^9}, {3.7761361159571733`*^9, + 3.77613611673205*^9}, + 3.776141835536702*^9},ExpressionUUID->"9489af81-bfa8-4e79-aef3-\ +7e81ce08044d"] +}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["GW100", "Title", + CellChangeTimes->{{3.775922510367074*^9, 3.7759225111609898`*^9}, { + 3.7759793902086678`*^9, + 3.7759793902727613`*^9}},ExpressionUUID->"9fb0ce88-036b-4aaf-98dd-\ +069443cb99a4"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW100", "=", + RowBox[{"Import", "[", + RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"CAS2Mol", "=", + RowBox[{"Association", "[", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"<|", + RowBox[{ + RowBox[{"GW100", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], "\[Rule]", + RowBox[{"GW100", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "|>"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW100", "]"}]}], "}"}]}], "]"}], "]"}]}], + ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.775979395177147*^9, 3.775979401152217*^9}, { + 3.775979751816133*^9, 3.775979751982893*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"213df3fe-4089-4210-bf02-8173ea32533a"], + +Cell[CellGroupData[{ + +Cell["def2-TZVPP basis", "Section", + CellChangeTimes->{{3.775922514439986*^9, 3.775922519873818*^9}, { + 3.77597986190954*^9, + 3.775979863197083*^9}},ExpressionUUID->"3c5c79d9-27c1-449c-aac0-\ +357f2c893350"], + +Cell[CellGroupData[{ + +Cell["CCSD(T)", "Subsection", + CellChangeTimes->{{3.775979866125147*^9, + 3.7759798673650837`*^9}},ExpressionUUID->"167860cd-18b0-47ba-8567-\ +ab311dbfedaf"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"GW100", "=", + RowBox[{"Import", "[", + RowBox[{"\"\\"", ",", "\"\\""}], + "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"Mol", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"CAS2Mol", "[", + RowBox[{"GW100", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], "]"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW100", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"IP", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"Mol", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], + ",", + RowBox[{"GW100", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], ",", + RowBox[{"GW100", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "2"}], "\[RightDoubleBracket]"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "GW100", "]"}]}], "}"}]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{"TableForm", "[", + RowBox[{ + RowBox[{"SetAccuracy", "[", + RowBox[{"IP", ",", "3"}], "]"}], ",", + RowBox[{"TableHeadings", "\[Rule]", + RowBox[{"{", + RowBox[{"None", ",", " ", + RowBox[{"{", + RowBox[{ + "\"\\"", ",", "\"\\"", ",", + "\"\\""}], "}"}]}], "}"}]}]}], "]"}]}], "Input", + CellChangeTimes->{{3.775893866851365*^9, 3.775893918511887*^9}, { + 3.775893950066111*^9, 3.7758940250074263`*^9}, {3.775896046210225*^9, + 3.775896046408372*^9}, {3.7758996896242533`*^9, 3.7758997756794767`*^9}, { + 3.7758998217844152`*^9, 3.7758998693124332`*^9}, {3.775899957529449*^9, + 3.775899980903802*^9}, {3.775900021977261*^9, 3.775900070855657*^9}, + 3.775900246649693*^9, {3.775903499752975*^9, 3.775903505359549*^9}, { + 3.775970034197283*^9, 3.775970059818894*^9}, {3.775970205221386*^9, + 3.775970271556108*^9}, {3.7759703097010307`*^9, 3.775970316131522*^9}, { + 3.775970352269313*^9, 3.775970355226582*^9}, {3.7759766328541937`*^9, + 3.7759766638898973`*^9}, {3.775979676113276*^9, 3.7759796874331408`*^9}, { + 3.775979719287916*^9, 3.7759797209676313`*^9}, {3.775979880342786*^9, + 3.775980018124343*^9}, {3.775990864681211*^9, 3.7759908648817577`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8dbb67bb-8e8c-4d42-bce8-f8f4c87784d4"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"Molecule\"\>", + HoldForm], + TagBox["\<\"CAS number\"\>", + HoldForm], + TagBox["\<\"CCSD(T)/def2-TZVPP\"\>", + HoldForm]}, + {"\<\"Ozone\"\>", "\<\"10028-15-6\"\>", + "12.5470000000000005969`4.098539897992862"}, + {"\<\"Ethylbenzene\"\>", "\<\"100-41-4\"\>", + "8.8520000000000003126`3.947041405255221"}, + {"\<\"Boron nitride\"\>", "\<\"10043-11-5\"\>", + "11.8900000000000005684`4.075181854618692"}, + {"\<\"Butane\"\>", "\<\"106-97-8\"\>", + "11.5670000000000001705`4.063220735581995"}, + {"\<\"Toluene\"\>", "\<\"108-88-3\"\>", + "8.8989999999999991331`3.9493412067704976"}, + {"\<\"Phenol\"\>", "\<\"108-95-2\"\>", + "8.7019999999999999574`3.939619078956698"}, + {"\<\"Pyridine\"\>", "\<\"110-86-1\"\>", + "9.6590000000000006963`3.984932166067412"}, + {"\<\"Tetracarbon\"\>", "\<\"12184-80-4\"\>", + "11.2599999999999997868`4.0515383905153275"}, + {"\<\"Cesium dimer\"\>", "\<\"12184-83-7\"\>", + "3.6419999999999999041`3.5613399414589013"}, + {"\<\"Phosphorus dimer\"\>", "\<\"12185-09-0\"\>", + "10.4679999999999999716`4.019863713967844"}, + {"\<\"Silver dimer\"\>", "\<\"12187-06-3\"\>", + "7.4939999999999997726`3.874713688757779"}, + {"\<\"Copper dimer\"\>", "\<\"12190-70-4\"\>", + "7.5659999999999998366`3.878866336956725"}, + {"\<\"Carbon dioxide\"\>", "\<\"124-38-9\"\>", + "13.7110000000000002984`4.137069130839409"}, + {"\<\"Beryllium oxide\"\>", "\<\"1304-56-9\"\>", + "9.9440000000000008384`3.997561115633588"}, + {"\<\"Magnesium oxide\"\>", "\<\"1309-48-4\"\>", + "7.4870000000000000995`3.8743078331280394"}, + {"\<\"Borane\"\>", "\<\"13283-31-3\"\>", + "13.275999999999999801`4.123067243736567"}, + {"\<\"Hydrogen\"\>", "\<\"1333-74-0\"\>", + "16.4029999999999986926`4.214923284894898"}, + {"\<\"Boron fluoride\"\>", "\<\"13768-60-0\"\>", + "11.0860000000000002984`4.044774874256443"}, + {"\<\"Lithium dimer\"\>", "\<\"14452-59-6\"\>", + "5.2660000000000000142`3.7214808547700495"}, + {"\<\"Pentasilane\"\>", "\<\"14868-53-2\"\>", + "9.2729999999999996874`3.9672202597829673"}, + {"\<\"Disilane\"\>", "\<\"1590-87-0\"\>", + "10.6449999999999995737`4.027145665774341"}, + {"\<\"Carbonyl selenide\"\>", "\<\"1603-84-5\"\>", + "10.7850000000000001421`4.032820149438564"}, + {"\<\"Gallium monochloride\"\>", "\<\"17108-85-9\"\>", + "9.7710000000000007958`3.9899390132845354"}, + {"\<\"Phosphorus mononitride\"\>", "\<\"17739-47-8\"\>", + "11.7349999999999994316`4.069483093934612"}, + {"\<\"Diborane\"\>", "\<\"19287-45-7\"\>", + "12.2629999999999999005`4.088596728262746"}, + {"\<\"Arsenic dimer\"\>", "\<\"23878-46-8\"\>", + "9.7810000000000005826`3.990383258906234"}, + {"\<\"Disodium\"\>", "\<\"25681-79-2\"\>", + "4.9519999999999999574`3.6947806360120614"}, + {"\<\"Dipotassium\"\>", "\<\"25681-80-5\"\>", + "4.0609999999999999432`3.608632989490037"}, + {"\<\"Dirubidium\"\>", "\<\"25681-81-6\"\>", + "3.9249999999999998224`3.5938396610812715"}, + {"\<\"Hydrazine\"\>", "\<\"302-01-2\"\>", + "9.7200000000000006395`3.987666264926275"}, + {"\<\"Hexafluorobenzene\"\>", "\<\"392-56-3\"\>", + "9.9299999999999997158`3.9969492484953815"}, + {"\<\"Sodium tetramer\"\>", "\<\"39297-86-4\"\>", + "4.2249999999999996447`3.6258267132857114"}, + {"\<\"Sodium hexamer\"\>", "\<\"39297-88-6\"\>", + "4.3509999999999999787`3.638589083292717"}, + {"\<\"Carbonyl sulfide\"\>", "\<\"463-58-1\"\>", + "11.1730000000000000426`4.048169798766018"}, + {"\<\"Formaldehyde\"\>", "\<\"50-00-0\"\>", + "10.8399999999999998579`4.035029282202369"}, + {"\<\"Tetraiodomethane\"\>", "\<\"507-25-5\"\>", + "9.2660000000000000142`3.9668922958671367"}, + {"\<\"1,3-Cyclopentadiene\"\>", "\<\"542-92-7\"\>", + "8.6750000000000007105`3.9382694834629115"}, + {"\<\"Copper cyanide\"\>", "\<\"544-92-3\"\>", + "10.8539999999999992042`4.035589817243458"}, + {"\<\"Carbon tetrabromide\"\>", "\<\"558-13-4\"\>", + "10.46299999999999919`4.019656225319348"}, + {"\<\"Carbon tetrachloride\"\>", "\<\"56-23-5\"\>", + "11.5579999999999998295`4.0628826901303645"}, + {"\<\"Urea\"\>", "\<\"57-13-6\"\>", + "10.0530000000000008242`4.002295682554934"}, + {"\<\"Vinyl bromide\"\>", "\<\"593-60-2\"\>", + "9.2690000000000001279`3.967032882158702"}, + {"\<\"Iodoethene\"\>", "\<\"593-66-8\"\>", + "9.3269999999999999574`3.9697419767628546"}, + {"\<\"Ethyl ether\"\>", "\<\"60-29-7\"\>", + "9.8160000000000007248`3.9919345497189482"}, + {"\<\"Aniline\"\>", "\<\"62-53-3\"\>", + "7.9930000000000003268`3.9027098129698774"}, + {"\<\"1,3,5,7-Cyclooctatetraene\"\>", "\<\"629-20-9\"\>", + "8.3480000000000007532`3.9215824403934167"}, + {"\<\"Carbon monoxide\"\>", "\<\"630-08-0\"\>", + "14.2089999999999996305`4.152563514256539"}, + {"\<\"Ethanol\"\>", "\<\"64-17-5\"\>", + "10.6850000000000004974`4.028774526500088"}, + {"\<\"Formic acid\"\>", "\<\"64-18-6\"\>", + "11.4209999999999993747`4.05770413153403"}, + {"\<\"Thymine\"\>", "\<\"65-71-4\"\>", + "9.0809999999999995168`3.9581336756762355"}, + {"\<\"Uracil\"\>", "\<\"66-22-8\"\>", "10.125`4.005395031886707"}, + {"\<\"Methyl alcohol\"\>", "\<\"67-56-1\"\>", + "11.0419999999999998153`4.043047742804119"}, + {"\<\"Cytosine\"\>", "\<\"71-30-7\"\>", + "9.5120000000000004547`3.978271841610635"}, + {"\<\"Benzene\"\>", "\<\"71-43-2\"\>", + "9.2919999999999998153`3.968109201128198"}, + {"\<\"Adenine\"\>", "\<\"73-24-5\"\>", + "8.3300000000000000711`3.920645001406788"}, + {"\<\"Guanine\"\>", "\<\"73-40-5\"\>", + "8.0340000000000006963`3.904931827395653"}, + {"\<\"Krypton\"\>", "\<\"7439-90-9\"\>", + "13.9399999999999995026`4.144262773761991"}, + {"\<\"Neon\"\>", "\<\"7440-01-9\"\>", + "21.3210000000000015064`4.32880757016209"}, + {"\<\"Argon\"\>", "\<\"7440-37-1\"\>", + "15.5440000000000004832`4.191562787591726"}, + {"\<\"Helium\"\>", "\<\"7440-59-7\"\>", + "24.5120000000000004547`4.38937874795251"}, + {"\<\"Sulfur dioxide\"\>", "\<\"7446-09-5\"\>", + "13.4860000000000006537`4.129883155340622"}, + {"\<\"Methane\"\>", "\<\"74-82-8\"\>", + "14.3729999999999993321`4.157547425577808"}, + {"\<\"Ethane\"\>", "\<\"74-84-0\"\>", + "13.0399999999999991473`4.115277591395902"}, + {"\<\"Ethylene\"\>", "\<\"74-85-1\"\>", + "10.6660000000000003695`4.028001579346857"}, + {"\<\"Acetylene\"\>", "\<\"74-86-2\"\>", + "11.4239999999999994884`4.057818194432099"}, + {"\<\"Hydrogen cyanide\"\>", "\<\"74-90-8\"\>", + "13.8689999999999997726`4.142045148157744"}, + {"\<\"Propane\"\>", "\<\"74-98-6\"\>", + "12.0480000000000000426`4.080914958856625"}, + {"\<\"Chloroethene\"\>", "\<\"75-01-4\"\>", + "10.0929999999999999716`4.004020273253242"}, + {"\<\"Fluoroethene\"\>", "\<\"75-02-5\"\>", + "10.55400000000000027`4.023417089841105"}, + {"\<\"Acetaldehyde\"\>", "\<\"75-07-0\"\>", + "10.207000000000000739`4.00889811477094"}, + {"\<\"Carbon disulfide\"\>", "\<\"75-15-0\"\>", + "9.9809999999999998721`3.999174055588485"}, + {"\<\"Cyclopropane\"\>", "\<\"75-19-4\"\>", + "10.8650000000000002132`4.036029730656543"}, + {"\<\"Iodine\"\>", "\<\"7553-56-2\"\>", + "9.5090000000000003411`3.9781348473982896"}, + {"\<\"Tetrafluoromethane\"\>", "\<\"75-73-0\"\>", + "16.30099999999999838`4.212214247419942"}, + {"\<\"Lithium hydride\"\>", "\<\"7580-67-8\"\>", + "7.9610000000000002984`3.9009676239191244"}, + {"\<\"Hydrogen chloride\"\>", "\<\"7647-01-0\"\>", + "12.5929999999999999716`4.100129203359808"}, + {"\<\"Sodium chloride\"\>", "\<\"7647-14-5\"\>", + "9.0269999999999992468`3.9555434424597435"}, + {"\<\"Hydrogen fluoride\"\>", "\<\"7664-39-3\"\>", + "16.025999999999999801`4.204825138405017"}, + {"\<\"Ammonia\"\>", "\<\"7664-41-7\"\>", + "10.8070000000000003837`4.033705151467853"}, + {"\<\"Potassium hydride\"\>", "\<\"7693-26-7\"\>", + "6.1280000000000001137`3.787318756624548"}, + {"\<\"Hydrogen peroxide\"\>", "\<\"7722-84-1\"\>", + "11.5860000000000002984`4.063933524163039"}, + {"\<\"Bromine\"\>", "\<\"7726-95-6\"\>", + "10.5359999999999995879`4.022675761953727"}, + {"\<\"Nitrogen\"\>", "\<\"7727-37-9\"\>", + "15.5690000000000008384`4.192260718642044"}, + {"\<\"Water\"\>", "\<\"7732-18-5\"\>", + "12.5649999999999995026`4.0991624929285955"}, + {"\<\"Potassium bromide\"\>", "\<\"7758-02-3\"\>", + "8.1270000000000006679`3.9099302597528314"}, + {"\<\"Fluorine\"\>", "\<\"7782-41-4\"\>", + "15.7080000000000001847`4.196120892598381"}, + {"\<\"Chlorine\"\>", "\<\"7782-50-5\"\>", + "11.41200000000000081`4.057361762985039"}, + {"\<\"Germanium tetrahydride\"\>", "\<\"7782-65-2\"\>", + "12.4969999999999998863`4.096805769822717"}, + {"\<\"Hydrogen azide\"\>", "\<\"7782-79-8\"\>", + "10.6760000000000001563`4.028408565115471"}, + {"\<\"Hydrogen sulfide\"\>", "\<\"7783-06-4\"\>", + "10.3100000000000004974`4.013258665283517"}, + {"\<\"Magnesium fluoride\"\>", "\<\"7783-40-6\"\>", + "13.7100000000000008527`4.137037454789513"}, + {"\<\"Sulfur tetrafluoride\"\>", "\<\"7783-60-0\"\>", + "12.58799999999999919`4.099956734241183"}, + {"\<\"Titanium tetrafluoride\"\>", "\<\"7783-63-3\"\>", + "15.4760000000000008669`4.189658721049208"}, + {"\<\"Aluminum fluoride\"\>", "\<\"7784-18-1\"\>", + "15.457000000000000739`4.189125206925528"}, + {"\<\"Aluminum iodide\"\>", "\<\"7784-23-8\"\>", + "9.8149999999999995026`3.991890303936025"}, + {"\<\"Arsine\"\>", "\<\"7784-42-1\"\>", + "10.3979999999999996874`4.016949813097561"}, + {"\<\"Magnesium chloride\"\>", "\<\"7786-30-3\"\>", + "11.6649999999999991473`4.066884743129772"}, + {"\<\"Lithium fluoride\"\>", "\<\"7789-24-4\"\>", + "11.32099999999999973`4.053884790394692"}, + {"\<\"Phosphine\"\>", "\<\"7803-51-2\"\>", + "10.5229999999999996874`4.022139570398392"}, + {"\<\"Silane\"\>", "\<\"7803-62-5\"\>", + "12.7959999999999993747`4.10707423141207"} + }, + GridBoxAlignment->{ + "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, + "RowsIndexed" -> {}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "ColumnsIndexed" -> {}, + "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}, "RowsIndexed" -> {}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"Molecule", "CAS number", "CCSD(T)/def2-TZVPP"}}]]]], "Output", + CellChangeTimes->{ + 3.775979923384448*^9, {3.775979963203129*^9, 3.775980019361197*^9}, + 3.775990865456108*^9, 3.776137881198731*^9, 3.776138104254683*^9}, + CellLabel-> + "Out[32]//TableForm=",ExpressionUUID->"d8227114-0e36-4dfa-aee2-\ +71f28efe0607"] +}, Open ]] +}, Open ]] +}, Closed]] +}, 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, 155, 3, 98, "Title",ExpressionUUID->"9c058984-7057-4fad-9b0c-3aecedd6e63c"], +Cell[738, 27, 308, 6, 46, "Input",ExpressionUUID->"37867cff-0ca5-44bf-a2dd-e0dbbbf2fa3a", + InitializationCell->True], +Cell[1049, 35, 379, 7, 46, "Input",ExpressionUUID->"6b655861-3eba-418a-a15a-1fcf0775d7ac", + InitializationCell->True], +Cell[1431, 44, 574, 12, 68, "Input",ExpressionUUID->"503d29c5-30e2-484d-9104-c72aa4e45b6b", + InitializationCell->True], +Cell[2008, 58, 643, 12, 46, "Input",ExpressionUUID->"761743e2-8cea-46d7-9151-ac0d311451f4", + InitializationCell->True] +}, Open ]], +Cell[CellGroupData[{ +Cell[2688, 75, 224, 4, 98, "Title",ExpressionUUID->"2e48d6dd-bcc2-4069-bdff-d98298b3703d"], +Cell[CellGroupData[{ +Cell[2937, 83, 210, 4, 67, "Section",ExpressionUUID->"a169c7e1-61b1-491c-b20a-a08f05ba9968"], +Cell[CellGroupData[{ +Cell[3172, 91, 5176, 133, 156, "Input",ExpressionUUID->"2081d490-fe34-406a-815e-d0ab97901c29"], +Cell[8351, 226, 6390, 129, 388, "Output",ExpressionUUID->"2faf99a0-a073-4cb9-9e1a-cbb1e0014033"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[14790, 361, 255, 4, 53, "Section",ExpressionUUID->"a5750291-acb8-4205-bd01-79805d77baa5"], +Cell[CellGroupData[{ +Cell[15070, 369, 4830, 129, 156, "Input",ExpressionUUID->"4d64e3d1-f0ed-4f0d-9dae-59126ce675b8"], +Cell[19903, 500, 5680, 119, 388, "Output",ExpressionUUID->"d752f601-f84a-4ff3-9f3d-cafdd911724e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[25632, 625, 308, 5, 53, "Section",ExpressionUUID->"48bbade3-d610-40a1-a015-76e0b486ba4c"], +Cell[CellGroupData[{ +Cell[25965, 634, 4875, 129, 156, "Input",ExpressionUUID->"9fb4566e-41c8-44d4-bcc1-83c3ace4ae0c"], +Cell[30843, 765, 5715, 119, 388, "Output",ExpressionUUID->"6297040c-31dc-4406-9ac5-d56a510d2133"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[36607, 890, 722, 19, 54, "Section",ExpressionUUID->"50962d13-41d1-4f26-9807-690299046ad4"], +Cell[CellGroupData[{ +Cell[37354, 913, 2453, 57, 194, "Input",ExpressionUUID->"740b32b3-1b8a-4ece-8173-ba84e85f7b14", + InitializationCell->True], +Cell[39810, 972, 4855, 100, 70, "Output",ExpressionUUID->"e4809db2-8868-4321-a995-f4a9fe08a184"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[44714, 1078, 770, 20, 54, "Section",ExpressionUUID->"6811e92e-26bd-4687-be1f-71606109c64f"], +Cell[CellGroupData[{ +Cell[45509, 1102, 2452, 57, 194, "Input",ExpressionUUID->"96bebe42-c17e-4928-8aeb-b7edbd2782ad", + InitializationCell->True], +Cell[47964, 1161, 4794, 100, 70, "Output",ExpressionUUID->"fa7cecca-df4a-41b5-b817-6bfdd54fd5ff"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[52807, 1267, 820, 20, 54, "Section",ExpressionUUID->"8d79f72d-0619-41cf-8285-c2faeb7fccc4"], +Cell[CellGroupData[{ +Cell[53652, 1291, 2453, 57, 194, "Input",ExpressionUUID->"3ee5d11c-5973-4742-8d2f-604aa1d19beb", + InitializationCell->True], +Cell[56108, 1350, 4819, 100, 70, "Output",ExpressionUUID->"d09d33ac-5bf9-4748-8ca1-667a2a77865e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[60976, 1456, 818, 20, 54, "Section",ExpressionUUID->"9e9f5a66-81e4-4b37-808a-3a5b19a88be9"], +Cell[CellGroupData[{ +Cell[61819, 1480, 2504, 58, 194, "Input",ExpressionUUID->"0e83ae26-e77a-45c9-9c11-e053b599bcd2", + InitializationCell->True], +Cell[64326, 1540, 4853, 101, 70, "Output",ExpressionUUID->"a5f7170f-a699-45a2-8e80-f129965fdf3e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[69228, 1647, 914, 22, 54, "Section",ExpressionUUID->"4e039aa6-68d1-47a5-bbbc-d6a2e4853781"], +Cell[CellGroupData[{ +Cell[70167, 1673, 2327, 51, 194, "Input",ExpressionUUID->"1b01945f-d8b1-4386-8d85-0dcb9e2b5372", + InitializationCell->True], +Cell[72497, 1726, 6070, 125, 388, "Output",ExpressionUUID->"ab7b5416-6cf9-4fce-ae3e-90d7413e262b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[78604, 1856, 2657, 62, 215, "Input",ExpressionUUID->"4d3d2a6a-9cce-464c-b450-ab541240c58a", + InitializationCell->True], +Cell[81264, 1920, 5772, 119, 388, "Output",ExpressionUUID->"89742b19-d14c-498d-9ac8-4e4b4dbd24a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[87073, 2044, 2655, 62, 215, "Input",ExpressionUUID->"8f082628-03e5-4288-91c2-151ab2b847fe", + InitializationCell->True], +Cell[89731, 2108, 5776, 119, 388, "Output",ExpressionUUID->"a562b81b-096e-42ba-8f47-bf648a169b85"] +}, Open ]], +Cell[CellGroupData[{ +Cell[95544, 2232, 3817, 87, 178, "Input",ExpressionUUID->"3ec08f0d-4141-41ff-b494-a3f3ed3f5aa3"], +Cell[99364, 2321, 26183, 570, 430, "Output",ExpressionUUID->"269eee09-d624-4f4a-aed4-4844037f3564"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[125596, 2897, 750, 19, 68, "Section",ExpressionUUID->"8bb2386b-7f94-4448-a34f-74a4f2d8352f"], +Cell[CellGroupData[{ +Cell[126371, 2920, 2519, 58, 215, "Input",ExpressionUUID->"f374a050-8b43-4e1c-ab4b-8dfa7dfe4b74", + InitializationCell->True], +Cell[128893, 2980, 4847, 100, 70, "Output",ExpressionUUID->"1572874d-3d32-4c90-9444-ca1403934dfd"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[133789, 3086, 819, 20, 54, "Section",ExpressionUUID->"43349f32-6131-4f41-8239-f3a4811d4612"], +Cell[CellGroupData[{ +Cell[134633, 3110, 2522, 58, 215, "Input",ExpressionUUID->"fa4c45a8-ddd6-4291-b0ff-f7ddb674a3fa", + InitializationCell->True], +Cell[137158, 3170, 4820, 100, 70, "Output",ExpressionUUID->"1f1088d2-363f-427a-ac83-3a43e13a5d52"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[142027, 3276, 852, 21, 54, "Section",ExpressionUUID->"9e831903-ff5b-4d95-875d-9e0e8daf116f"], +Cell[CellGroupData[{ +Cell[142904, 3301, 2520, 58, 215, "Input",ExpressionUUID->"718dda33-1726-4391-8bed-e0672e45e563", + InitializationCell->True], +Cell[145427, 3361, 4850, 101, 70, "Output",ExpressionUUID->"8a6c87c4-81d4-4092-ae14-4c27f08c4b4f"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[150326, 3468, 851, 21, 54, "Section",ExpressionUUID->"384bef20-ac2b-46c7-9ffa-6e1c5fc7f597"], +Cell[CellGroupData[{ +Cell[151202, 3493, 2571, 59, 215, "Input",ExpressionUUID->"7895dc90-d7ba-4e21-8223-4615f676f072", + InitializationCell->True], +Cell[153776, 3554, 4885, 101, 70, "Output",ExpressionUUID->"e67bdff9-fcb5-4825-b5f5-21901ca1ff42"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[158710, 3661, 865, 21, 54, "Section",ExpressionUUID->"82fbc9b0-dfa0-4200-a252-d90e45cf2eb4"], +Cell[CellGroupData[{ +Cell[159600, 3686, 2290, 50, 215, "Input",ExpressionUUID->"8e941441-2618-4897-ba2f-18c0b38ca948", + InitializationCell->True], +Cell[161893, 3738, 5990, 123, 392, "Output",ExpressionUUID->"f2c2c36a-936f-4c58-a936-532fdff6b6ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[167920, 3866, 2633, 62, 215, "Input",ExpressionUUID->"c771a5d0-a6b2-41e4-9a84-7b98eb54a22f", + InitializationCell->True], +Cell[170556, 3930, 5723, 119, 388, "Output",ExpressionUUID->"cacdc122-7fe1-4baa-aa41-da354223fd80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[176316, 4054, 2631, 62, 215, "Input",ExpressionUUID->"ec1256d4-33e8-4f45-b014-0878328e833b", + InitializationCell->True], +Cell[178950, 4118, 5728, 119, 388, "Output",ExpressionUUID->"da6ae9de-6d8a-4dd7-824b-26c33bc95dfd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[184715, 4242, 3777, 87, 178, "Input",ExpressionUUID->"bb44480b-535f-46cd-b044-dce44c000170"], +Cell[188495, 4331, 26147, 569, 423, "Output",ExpressionUUID->"41e86766-029e-4b73-a65d-3ec7baa89d49"] +}, Open ]] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[214703, 4907, 198, 4, 98, "Title",ExpressionUUID->"36ec1eb5-e4bd-4b1e-b2ab-6a49f99064b6"], +Cell[CellGroupData[{ +Cell[214926, 4915, 159, 3, 67, "Section",ExpressionUUID->"83c3d3fe-bd0d-4a98-b6f0-3b45e486e87b"], +Cell[CellGroupData[{ +Cell[215110, 4922, 6018, 151, 177, "Input",ExpressionUUID->"0652676b-df64-4e70-bb70-a15f0a6fc92f"], +Cell[221131, 5075, 18435, 376, 1245, "Output",ExpressionUUID->"9b4e722d-6ffd-40f0-8931-924adb7220d1"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[239615, 5457, 211, 4, 53, "Section",ExpressionUUID->"4e63b2ba-f0e9-4db6-9c25-7becd90e5558"], +Cell[CellGroupData[{ +Cell[239851, 5465, 6070, 152, 177, "Input",ExpressionUUID->"d1a34d38-9472-48f3-91d9-b324047a07c2"], +Cell[245924, 5619, 18478, 377, 1245, "Output",ExpressionUUID->"da18bef0-28b6-4d69-abf1-72b177d15930"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[264451, 6002, 236, 4, 53, "Section",ExpressionUUID->"6047ff2b-9735-42d5-a567-106730f18bd3"], +Cell[264690, 6008, 6075, 153, 177, "Input",ExpressionUUID->"9489af81-bfa8-4e79-aef3-7e81ce08044d"] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[270814, 6167, 203, 4, 72, "Title",ExpressionUUID->"9fb0ce88-036b-4aaf-98dd-069443cb99a4"], +Cell[271020, 6173, 934, 24, 68, "Input",ExpressionUUID->"213df3fe-4089-4210-bf02-8173ea32533a", + InitializationCell->True], +Cell[CellGroupData[{ +Cell[271979, 6201, 209, 4, 67, "Section",ExpressionUUID->"3c5c79d9-27c1-449c-aac0-357f2c893350"], +Cell[CellGroupData[{ +Cell[272213, 6209, 157, 3, 53, "Subsection",ExpressionUUID->"167860cd-18b0-47ba-8567-ab311dbfedaf"], +Cell[CellGroupData[{ +Cell[272395, 6216, 2486, 56, 93, "Input",ExpressionUUID->"8dbb67bb-8e8c-4d42-bce8-f8f4c87784d4"], +Cell[274884, 6274, 11422, 234, 1837, "Output",ExpressionUUID->"d8227114-0e36-4dfa-aee2-71f28efe0607"] +}, Open ]] +}, Open ]] +}, Closed]] +}, Closed]] +} +] +*) + diff --git a/srLDA.nb b/srLDA.nb deleted file mode 100644 index 5deb72d..0000000 --- a/srLDA.nb +++ /dev/null @@ -1,3334 +0,0 @@ -(* 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]", "\"\\""}], ",", - 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]", "\"\\""}], ",", - 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]", "\"\\""}], ",", - 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]] -} -] -*) -