(* 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]] } ] *)