From e3394d53a631c906ddf2c7c236efd18c3e660092 Mon Sep 17 00:00:00 2001 From: Pierre-Francois Loos Date: Sat, 14 Mar 2020 18:07:50 +0100 Subject: [PATCH] test --- FarDFT.nb | 2596 ++++++++++++++++++++++++++++++++--------------------- 1 file changed, 1549 insertions(+), 1047 deletions(-) diff --git a/FarDFT.nb b/FarDFT.nb index 3908fb0..06a196a 100644 --- a/FarDFT.nb +++ b/FarDFT.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 844988, 18731] -NotebookOptionsPosition[ 808577, 18164] -NotebookOutlinePosition[ 808913, 18179] -CellTagsIndexPosition[ 808870, 18176] +NotebookDataLength[ 867914, 19233] +NotebookOptionsPosition[ 830972, 18659] +NotebookOutlinePosition[ 831308, 18674] +CellTagsIndexPosition[ 831265, 18671] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -283,8 +283,7 @@ Cell[BoxData[ "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.793177683267138*^9, 3.793177724555241*^9}}, - CellLabel-> - "In[137]:=",ExpressionUUID->"9152dc27-f321-447b-819f-69dba125013d"], + CellLabel->"In[19]:=",ExpressionUUID->"9152dc27-f321-447b-819f-69dba125013d"], Cell[BoxData[ RowBox[{ @@ -6306,669 +6305,6 @@ Cell["Hydrogen molecule", "Title", 3.790585066350246*^9}},ExpressionUUID->"d8a7ce9c-a1d9-4ac0-b8bf-\ 9ca66a94ac58"], -Cell["LDA exchange functionals", "Text", - CellChangeTimes->{{3.790617745116544*^9, 3.7906177720649967`*^9}}, - FontColor->RGBColor[ - 1, 0, 0],ExpressionUUID->"d408aeeb-1654-4525-903e-88994da645ee"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]xLDA", "[", "n_", "]"}], "=", - RowBox[{"Module", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"CxLDA", "=", - RowBox[{ - RowBox[{"-", - FractionBox["3", "4"]}], - SuperscriptBox[ - RowBox[{"(", - FractionBox["3", "\[Pi]"], ")"}], - RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", - RowBox[{"CxLDA", " ", - SuperscriptBox["n", - RowBox[{"1", "/", "3"}]]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]x0", "[", "n_", "]"}], "=", - RowBox[{"Module", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Cx0", "=", - RowBox[{ - RowBox[{"-", - FractionBox["4", "3"]}], " ", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", "\[Pi]"], ")"}], - RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", - RowBox[{"Cx0", " ", - SuperscriptBox["n", - RowBox[{"1", "/", "3"}]]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]x1", "[", "n_", "]"}], "=", - RowBox[{"Module", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Cx1", "=", - RowBox[{ - RowBox[{"-", - FractionBox["16", "10"]}], " ", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", "\[Pi]"], ")"}], - RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", - RowBox[{"Cx1", " ", - SuperscriptBox["n", - RowBox[{"1", "/", "3"}]]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]x2", "[", "n_", "]"}], "=", - RowBox[{"Module", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Cx1", "=", - RowBox[{ - RowBox[{"-", - FractionBox["176", "105"]}], " ", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", "\[Pi]"], ")"}], - RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", - RowBox[{"Cx1", " ", - SuperscriptBox["n", - RowBox[{"1", "/", "3"}]]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]xeLDA", "[", - RowBox[{"n_", ",", - RowBox[{"{", - RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]xLDA", "[", "n", "]"}], "+", - RowBox[{"w1", - RowBox[{"(", - RowBox[{ - RowBox[{"\[Epsilon]x1", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]x0", "[", "n", "]"}]}], ")"}]}], "+", - RowBox[{"w2", - RowBox[{"(", - RowBox[{ - RowBox[{"\[Epsilon]x2", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]x0", "[", "n", "]"}]}], ")"}]}]}]}], - ";"}]}], "Input", - InitializationCell->True, - CellChangeTimes->{{3.79059838113128*^9, 3.7905985061910954`*^9}, - 3.7906057050230303`*^9, {3.7906109479713078`*^9, 3.790610952959711*^9}, { - 3.790617319564548*^9, 3.790617416879177*^9}, {3.790618439965136*^9, - 3.7906184689663363`*^9}, {3.79066088543036*^9, 3.790660891318091*^9}, { - 3.791197816799444*^9, 3.791197861336274*^9}, {3.793177311138096*^9, - 3.793177332024592*^9}, {3.793177493398699*^9, 3.793177503854292*^9}}, - CellLabel->"In[30]:=",ExpressionUUID->"f51f78c8-fe8e-48f3-a562-1209bfc50f71"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xLDAdn", "[", "n_", "]"}], "=", - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{"\[Epsilon]xLDA", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]x0dn", "[", "n_", "]"}], "=", - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{"\[Epsilon]x0", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]x1dn", "[", "n_", "]"}], "=", - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{"\[Epsilon]x1", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]x2dn", "[", "n_", "]"}], "=", - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{"\[Epsilon]x2", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xeLDAdn", "[", - RowBox[{"n_", ",", - RowBox[{"{", - RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", - RowBox[{ - RowBox[{"d\[Epsilon]xLDAdn", "[", "n", "]"}], "+", - RowBox[{"w1", - RowBox[{"(", - RowBox[{ - RowBox[{"d\[Epsilon]x1dn", "[", "n", "]"}], "-", - RowBox[{"d\[Epsilon]x0dn", "[", "n", "]"}]}], ")"}]}], "+", - RowBox[{"w2", - RowBox[{"(", - RowBox[{ - RowBox[{"d\[Epsilon]x2dn", "[", "n", "]"}], "-", - RowBox[{"d\[Epsilon]x0dn", "[", "n", "]"}]}], ")"}]}]}]}], - ";"}]}], "Input", - InitializationCell->True, - CellChangeTimes->{{3.79059838113128*^9, 3.7905985061910954`*^9}, - 3.7906057050230303`*^9, {3.7906109479713078`*^9, 3.790610952959711*^9}, { - 3.790617319564548*^9, 3.790617416879177*^9}, {3.790618439965136*^9, - 3.7906184689663363`*^9}, {3.79066088543036*^9, 3.7906609462132797`*^9}, { - 3.791197871150556*^9, 3.791197891101996*^9}, {3.7916567531973343`*^9, - 3.791656771133575*^9}, {3.793177319551435*^9, 3.7931773253695717`*^9}, { - 3.793177507511698*^9, 3.7931775158449583`*^9}}, - CellLabel->"In[35]:=",ExpressionUUID->"dd062623-5a91-460e-945c-d5f15e24abfb"], - -Cell["LDA correlation functionals", "Text", - CellChangeTimes->{{3.790617745116544*^9, 3.790617768448262*^9}}, - FontColor->RGBColor[ - 1, 0, 0],ExpressionUUID->"683219a6-4bcc-4fb8-93b5-7c590bc511b5"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"(*", " ", - RowBox[{"Intermediate", " ", "quantities"}], " ", "*)"}], - "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"X", "[", - RowBox[{"x_", ",", "b_", ",", "c_"}], "]"}], "=", - RowBox[{ - SuperscriptBox["x", "2"], "+", - RowBox[{"b", " ", "x"}], "+", "c"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"x", "[", "d_", "]"}], "=", - SqrtBox["d"]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"Q", "[", - RowBox[{"b_", ",", "c_"}], "]"}], "=", - SqrtBox[ - RowBox[{ - RowBox[{"4", "c"}], "-", - SuperscriptBox["b", "2"]}]]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"f", "[", "\[Zeta]_", "]"}], "=", - FractionBox[ - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1", "+", "\[Zeta]"}], ")"}], - RowBox[{"4", "/", "3"}]], "+", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1", "-", "\[Zeta]"}], ")"}], - RowBox[{"4", "/", "3"}]], "-", "2"}], - RowBox[{"2", - RowBox[{"(", - RowBox[{ - SuperscriptBox["2", - RowBox[{"1", "/", "3"}]], "-", "1"}], ")"}]}]]}], ";"}], - "\[IndentingNewLine]", - RowBox[{"(*", - RowBox[{"interpolation", " ", "function"}], "*)"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"vwn", "[", - RowBox[{"A_", ",", "a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], "=", - - RowBox[{"A", - RowBox[{"(", - RowBox[{ - RowBox[{"Log", "[", - FractionBox[ - SuperscriptBox[ - RowBox[{"x", "[", "d", "]"}], "2"], - RowBox[{"X", "[", - RowBox[{ - RowBox[{"x", "[", "d", "]"}], ",", "b", ",", "c"}], "]"}]], "]"}], - "+", - RowBox[{ - FractionBox[ - RowBox[{"2", "b"}], - RowBox[{"Q", "[", - RowBox[{"b", ",", "c"}], "]"}]], - RowBox[{"ArcTan", "[", - FractionBox[ - RowBox[{"Q", "[", - RowBox[{"b", ",", "c"}], "]"}], - RowBox[{ - RowBox[{"2", - RowBox[{"x", "[", "d", "]"}]}], "+", "b"}]], "]"}]}], "-", - RowBox[{ - FractionBox[ - RowBox[{"b", "*", "a"}], - RowBox[{"X", "[", - RowBox[{"a", ",", "b", ",", "c"}], "]"}]], - RowBox[{"(", - RowBox[{ - RowBox[{"Log", "[", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - RowBox[{"x", "[", "d", "]"}], "-", "a"}], ")"}], "2"], - RowBox[{"X", "[", - RowBox[{ - RowBox[{"x", "[", "d", "]"}], ",", "b", ",", "c"}], "]"}]], - "]"}], "+", - RowBox[{ - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{"b", "+", - RowBox[{"2", "a"}]}], ")"}]}], - RowBox[{"Q", "[", - RowBox[{"b", ",", "c"}], "]"}]], - RowBox[{"ArcTan", "[", - FractionBox[ - RowBox[{"Q", "[", - RowBox[{"b", ",", "c"}], "]"}], - RowBox[{ - RowBox[{"2", - RowBox[{"x", "[", "d", "]"}]}], "+", "b"}]], "]"}]}]}], - ")"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", - "\[IndentingNewLine]", - RowBox[{"(*", - RowBox[{"VWN5", " ", "correlation", " ", "functional"}], "*)"}], - "\[IndentingNewLine]", "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]cVWN5", "[", - RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], "=", - RowBox[{"With", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"f2", "=", - FractionBox["4", - RowBox[{"9", - RowBox[{"(", - RowBox[{ - SuperscriptBox["2", - RowBox[{"1", "/", "3"}]], "-", "1"}], ")"}]}]]}], "}"}], ",", - RowBox[{ - RowBox[{"vwn", "[", - RowBox[{ - FractionBox["0.0621814", "2"], ",", - RowBox[{"-", "0.10498"}], ",", "3.72744", ",", "12.9352", ",", - "rs"}], "]"}], "+", - RowBox[{ - RowBox[{"vwn", "[", - RowBox[{ - RowBox[{"-", - FractionBox["1", - RowBox[{"6", - SuperscriptBox["\[Pi]", "2"]}]]}], ",", - RowBox[{"-", "0.00475840"}], ",", "1.13107", ",", "13.0045", ",", - "rs"}], "]"}], - RowBox[{"(", - FractionBox[ - RowBox[{"f", "[", "\[Zeta]", "]"}], "f2"], ")"}], - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1", "-", "\[Zeta]"}], ")"}], "4"]}], "+", - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"vwn", "[", - RowBox[{ - FractionBox["0.0310907", "2"], ",", - RowBox[{"-", "0.32500"}], ",", "7.06042", ",", "18.0578", ",", - "rs"}], "]"}], "-", - RowBox[{"vwn", "[", - RowBox[{ - FractionBox["0.0621814", "2"], ",", - RowBox[{"-", "0.10498"}], ",", "3.72744", ",", "12.9352", ",", - "rs"}], "]"}]}], ")"}], - RowBox[{"f", "[", "\[Zeta]", "]"}], - SuperscriptBox["\[Zeta]", "4"]}]}]}], "]"}]}], ";"}]}]}]], "Input", - InitializationCell->True, - CellChangeTimes->{{3.783426305086109*^9, 3.7834263553520613`*^9}, { - 3.783426480832552*^9, 3.783426485774303*^9}, {3.783426632185308*^9, - 3.783426658830944*^9}, {3.783427391840214*^9, 3.783427392389812*^9}, - 3.7834287156166573`*^9, {3.7836773637524137`*^9, 3.7836775311274233`*^9}, { - 3.7906176573902884`*^9, 3.790617676290105*^9}}, - CellLabel->"In[40]:=",ExpressionUUID->"c5e15fc2-7ce6-4ed3-bc7f-bcdc9085134d"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]cLDA", "[", "n_", "]"}], "=", - RowBox[{"\[Epsilon]cVWN5", "[", - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox["3", - RowBox[{"4", "\[Pi]", " ", "n"}]], ")"}], - RowBox[{"1", "/", "3"}]], ",", "0"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]c0", "[", "n_", "]"}], "=", - RowBox[{"Module", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"a", "=", - RowBox[{"-", "0.0238184`"}]}], ",", - RowBox[{"b", "=", "0.005409938954959674`"}], ",", - RowBox[{"c", "=", "0.08307660433135138`"}]}], "}"}], ",", - FractionBox["a", - RowBox[{"1", "+", - RowBox[{"b", " ", - SuperscriptBox["n", - RowBox[{ - RowBox[{"-", "1"}], "/", "6"}]]}], "+", - RowBox[{"c", " ", - SuperscriptBox["n", - RowBox[{ - RowBox[{"-", "1"}], "/", "3"}]]}]}]]}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]c1", "[", "n_", "]"}], "=", - RowBox[{"Module", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"a", "=", - RowBox[{"-", "0.0282814`"}]}], ",", - RowBox[{"b", "=", "0.002739250132910031`"}], ",", - RowBox[{"c", "=", "0.06649138204575991`"}]}], "}"}], ",", - FractionBox["a", - RowBox[{"1", "+", - RowBox[{"b", " ", - SuperscriptBox["n", - RowBox[{ - RowBox[{"-", "1"}], "/", "6"}]]}], "+", - RowBox[{"c", " ", - SuperscriptBox["n", - RowBox[{ - RowBox[{"-", "1"}], "/", "3"}]]}]}]]}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]c2", "[", "n_", "]"}], "=", - RowBox[{"Module", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"a", "=", - RowBox[{"-", "0.0144633`"}]}], ",", - RowBox[{"b", "=", - RowBox[{"-", "0.05060204953178828`"}]}], ",", - RowBox[{"c", "=", "0.033141734861014335`"}]}], "}"}], ",", - FractionBox["a", - RowBox[{"1", "+", - RowBox[{"b", " ", - SuperscriptBox["n", - RowBox[{ - RowBox[{"-", "1"}], "/", "6"}]]}], "+", - RowBox[{"c", " ", - SuperscriptBox["n", - RowBox[{ - RowBox[{"-", "1"}], "/", "3"}]]}]}]]}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]ceLDA", "[", - RowBox[{"n_", ",", - RowBox[{"{", - RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]cLDA", "[", "n", "]"}], "+", - RowBox[{"w1", - RowBox[{"(", - RowBox[{ - RowBox[{"\[Epsilon]c1", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}], ")"}]}], "+", - RowBox[{"w2", - RowBox[{"(", - RowBox[{ - RowBox[{"\[Epsilon]c2", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}], ")"}]}]}]}], - ";"}]}], "Input", - InitializationCell->True, - CellChangeTimes->{{3.79059838113128*^9, 3.7905985061910954`*^9}, - 3.7906057050230303`*^9, {3.7906109479713078`*^9, 3.790610952959711*^9}, { - 3.790617319564548*^9, 3.790617516913457*^9}, {3.790617702215055*^9, - 3.790617719701961*^9}, {3.7906182605153427`*^9, 3.790618262031168*^9}, { - 3.790618364188952*^9, 3.790618401731085*^9}, {3.791197899150729*^9, - 3.79119794166324*^9}, {3.791266134226925*^9, 3.791266160344372*^9}, { - 3.791276876530004*^9, 3.791276902864431*^9}, {3.7931773494141073`*^9, - 3.793177362214679*^9}, {3.793177524467002*^9, 3.793177533663501*^9}}, - CellLabel-> - "In[118]:=",ExpressionUUID->"8db93606-ec73-4fe8-9228-51f79c4ef957"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]cLDAdn", "[", "n_", "]"}], "=", - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{"\[Epsilon]cLDA", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]c0dn", "[", "n_", "]"}], "=", - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{"\[Epsilon]c0", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]c1dn", "[", "n_", "]"}], "=", - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{"\[Epsilon]c1", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]c2dn", "[", "n_", "]"}], "=", - RowBox[{"Evaluate", "[", - RowBox[{"D", "[", - RowBox[{ - RowBox[{"\[Epsilon]c2", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]ceLDAdn", "[", - RowBox[{"n_", ",", - RowBox[{"{", - RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", - RowBox[{ - RowBox[{"d\[Epsilon]cLDAdn", "[", "n", "]"}], "+", - RowBox[{"w1", - RowBox[{"(", - RowBox[{ - RowBox[{"d\[Epsilon]c1dn", "[", "n", "]"}], "-", - RowBox[{"d\[Epsilon]c0dn", "[", "n", "]"}]}], ")"}]}], "+", - RowBox[{"w2", - RowBox[{"(", - RowBox[{ - RowBox[{"d\[Epsilon]c2dn", "[", "n", "]"}], "-", - RowBox[{"d\[Epsilon]c0dn", "[", "n", "]"}]}], ")"}]}]}]}], - ";"}]}], "Input", - InitializationCell->True, - CellChangeTimes->{{3.79059838113128*^9, 3.7905985061910954`*^9}, - 3.7906057050230303`*^9, {3.7906109479713078`*^9, 3.790610952959711*^9}, { - 3.790617319564548*^9, 3.790617416879177*^9}, {3.790618439965136*^9, - 3.7906184689663363`*^9}, {3.79066088543036*^9, 3.790660978615497*^9}, { - 3.791197952974031*^9, 3.791197965261272*^9}, {3.7916566693582706`*^9, - 3.7916566861849003`*^9}, {3.7931773653514357`*^9, - 3.7931773697924013`*^9}, {3.793177537261116*^9, 3.793177546546081*^9}}, - CellLabel->"In[51]:=",ExpressionUUID->"3c5be8aa-305f-4c0e-a51a-4bc92cdcf171"], - -Cell["LDA exchange-correlation functionals", "Text", - CellChangeTimes->{{3.790617745116544*^9, 3.790617768448262*^9}, { - 3.790617800705172*^9, 3.790617802097224*^9}}, - FontColor->RGBColor[ - 1, 0, 0],ExpressionUUID->"264d5181-32f7-492d-a01f-33c1ad90708e"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]xcLDA", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]xLDA", "[", "n", "]"}], "+", - RowBox[{"\[Epsilon]cLDA", "[", "n", "]"}]}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]xc0", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]x0", "[", "n", "]"}], "+", - RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]xc1", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]x1", "[", "n", "]"}], "+", - RowBox[{"\[Epsilon]c1", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]xc2", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]x2", "[", "n", "]"}], "+", - RowBox[{"\[Epsilon]c2", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]xceLDA", "[", - RowBox[{"n_", ",", - RowBox[{"{", - RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]xeLDA", "[", - RowBox[{"n", ",", - RowBox[{"{", - RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}], "+", - RowBox[{"\[Epsilon]ceLDA", "[", - RowBox[{"n", ",", - RowBox[{"{", - RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}]}]}], ";"}]}], "Input", - InitializationCell->True, - CellChangeTimes->{{3.790617806453972*^9, 3.7906178574975023`*^9}, { - 3.791197974030027*^9, 3.791197978149313*^9}, {3.79165585574725*^9, - 3.791655856305195*^9}, {3.793177372179325*^9, 3.7931773770831003`*^9}, - 3.793177419186366*^9, {3.793177457575171*^9, 3.793177458141382*^9}, { - 3.7931775512158747`*^9, 3.7931775673336477`*^9}, {3.793178006554833*^9, - 3.793178013351201*^9}}, - CellLabel->"In[56]:=",ExpressionUUID->"f6517707-c164-4ea9-b57c-8d4d27eafad3"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xcLDAdn", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"d\[Epsilon]xLDAdn", "[", "n", "]"}], "+", - RowBox[{"d\[Epsilon]cLDAdn", "[", "n", "]"}]}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xc0dn", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"d\[Epsilon]x0dn", "[", "n", "]"}], "+", - RowBox[{"d\[Epsilon]c0dn", "[", "n", "]"}]}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xc1dn", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"d\[Epsilon]x1dn", "[", "n", "]"}], "+", - RowBox[{"d\[Epsilon]c1dn", "[", "n", "]"}]}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xc2dn", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"d\[Epsilon]x2dn", "[", "n", "]"}], "+", - RowBox[{"d\[Epsilon]c2dn", "[", "n", "]"}]}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xceLDAdn", "[", - RowBox[{"n_", ",", - RowBox[{"{", - RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", - RowBox[{ - RowBox[{"d\[Epsilon]xeLDAdn", "[", - RowBox[{"n", ",", - RowBox[{"{", - RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}], "+", - RowBox[{"d\[Epsilon]ceLDAdn", "[", - RowBox[{"n", ",", - RowBox[{"{", - RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}]}]}], ";"}]}], "Input", - InitializationCell->True, - CellChangeTimes->{{3.790617806453972*^9, 3.7906178574975023`*^9}, { - 3.790660991606427*^9, 3.790661018422545*^9}, {3.7911979815336847`*^9, - 3.791197986348868*^9}, {3.7931773792972937`*^9, 3.793177382877861*^9}, { - 3.793177569805366*^9, 3.7931775940345783`*^9}}, - CellLabel->"In[61]:=",ExpressionUUID->"33dfcd59-33cc-4f88-bc22-62c17b91dbeb"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xeLDAdw1", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]x1", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]x0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]ceLDAdw1", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]c1", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xceLDAdw1", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]xc1", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]xc0", "[", "n", "]"}]}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xeLDAdw2", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]x2", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]x0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]ceLDAdw2", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]c2", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"d\[Epsilon]xceLDAdw2", "[", "n_", "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]xc2", "[", "n", "]"}], "-", - RowBox[{"\[Epsilon]xc0", "[", "n", "]"}]}]}], ";"}]}], "Input", - InitializationCell->True, - CellChangeTimes->{{3.7906610362852507`*^9, 3.790661042510214*^9}, { - 3.790661095924047*^9, 3.790661108253295*^9}, {3.790661781802154*^9, - 3.790661784729022*^9}, {3.791197995454302*^9, 3.791198007807596*^9}, { - 3.793177384637517*^9, 3.793177388900116*^9}, {3.793177599283658*^9, - 3.793177603140668*^9}}, - CellLabel->"In[66]:=",ExpressionUUID->"9663902a-8667-481b-b613-f1c2b56b8e76"], - Cell[TextData[StyleBox["Molecular coordinates", FontColor->RGBColor[1, 0, 0]]], "Text", CellChangeTimes->{{3.790585499997554*^9, @@ -8475,9 +7811,8 @@ Cell[BoxData[ InitializationCell->True, CellChangeTimes->{{3.790660423886979*^9, 3.790660530808771*^9}, { 3.790661586617362*^9, 3.7906615882014847`*^9}, {3.791201941589872*^9, - 3.791201957380183*^9}, - 3.793177640932495*^9},ExpressionUUID->"5ac9021a-5169-4112-a93a-\ -cba8cac2204c"], + 3.791201957380183*^9}, 3.793177640932495*^9}, + CellLabel->"In[85]:=",ExpressionUUID->"5ac9021a-5169-4112-a93a-cba8cac2204c"], Cell[TextData[StyleBox["LDA energies", FontColor->RGBColor[1, 0, 0]]], "Text", @@ -8965,8 +8300,8 @@ Cell[BoxData[ 3.790660673368799*^9, 3.790660734031897*^9}, {3.790661577778819*^9, 3.7906615810821047`*^9}, {3.79066238202234*^9, 3.7906624156374083`*^9}, { 3.791200602481963*^9, 3.791200628768276*^9}, 3.791201965399434*^9, - 3.793177648767544*^9},ExpressionUUID->"ca733f68-29b1-4ede-890a-\ -2e209d3bc36f"], + 3.793177648767544*^9}, + CellLabel->"In[89]:=",ExpressionUUID->"ca733f68-29b1-4ede-890a-2e209d3bc36f"], Cell[TextData[StyleBox["eLDA energies", FontColor->RGBColor[1, 0, 0]]], "Text", @@ -9357,9 +8692,8 @@ Cell[BoxData[ InitializationCell->True, CellChangeTimes->{{3.790660423886979*^9, 3.790660614840477*^9}, { 3.790660673368799*^9, 3.790660753527668*^9}, {3.7906615534098883`*^9, - 3.790661574889584*^9}, 3.791201969495487*^9, - 3.793177654012394*^9},ExpressionUUID->"89004a84-80b2-4ac8-b3e7-\ -192619b48c85"], + 3.790661574889584*^9}, 3.791201969495487*^9, 3.793177654012394*^9}, + CellLabel->"In[93]:=",ExpressionUUID->"89004a84-80b2-4ac8-b3e7-192619b48c85"], Cell[TextData[StyleBox["CID energies", FontColor->RGBColor[1, 0, 0]]], "Text", @@ -9644,6 +8978,676 @@ Cell["Self-consistent ensemble KS calculation", "Title", Cell[CellGroupData[{ +Cell["Functionals", "Section", + CellChangeTimes->{{3.793193193434402*^9, + 3.7931931947236633`*^9}},ExpressionUUID->"ee199b1d-a6a4-4eb3-9e41-\ +ea5673045d1a"], + +Cell["LDA exchange functionals", "Text", + CellChangeTimes->{{3.790617745116544*^9, 3.7906177720649967`*^9}}, + FontColor->RGBColor[ + 1, 0, 0],ExpressionUUID->"d408aeeb-1654-4525-903e-88994da645ee"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]xLDA", "[", "n_", "]"}], "=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"CxLDA", "=", + RowBox[{ + RowBox[{"-", + FractionBox["3", "4"]}], + SuperscriptBox[ + RowBox[{"(", + FractionBox["3", "\[Pi]"], ")"}], + RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", + RowBox[{"CxLDA", " ", + SuperscriptBox["n", + RowBox[{"1", "/", "3"}]]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]x0", "[", "n_", "]"}], "=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"Cx0", "=", + RowBox[{ + RowBox[{"-", + FractionBox["4", "3"]}], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", "\[Pi]"], ")"}], + RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", + RowBox[{"Cx0", " ", + SuperscriptBox["n", + RowBox[{"1", "/", "3"}]]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]x1", "[", "n_", "]"}], "=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"Cx1", "=", + RowBox[{ + RowBox[{"-", + FractionBox["16", "10"]}], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", "\[Pi]"], ")"}], + RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", + RowBox[{"Cx1", " ", + SuperscriptBox["n", + RowBox[{"1", "/", "3"}]]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]x2", "[", "n_", "]"}], "=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"Cx1", "=", + RowBox[{ + RowBox[{"-", + FractionBox["176", "105"]}], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", "\[Pi]"], ")"}], + RowBox[{"1", "/", "3"}]]}]}], "}"}], ",", + RowBox[{"Cx1", " ", + SuperscriptBox["n", + RowBox[{"1", "/", "3"}]]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]xeLDA", "[", + RowBox[{"n_", ",", + RowBox[{"{", + RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]xLDA", "[", "n", "]"}], "+", + RowBox[{"w1", + RowBox[{"(", + RowBox[{ + RowBox[{"\[Epsilon]x1", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]x0", "[", "n", "]"}]}], ")"}]}], "+", + RowBox[{"w2", + RowBox[{"(", + RowBox[{ + RowBox[{"\[Epsilon]x2", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]x0", "[", "n", "]"}]}], ")"}]}]}]}], + ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.79059838113128*^9, 3.7905985061910954`*^9}, + 3.7906057050230303`*^9, {3.7906109479713078`*^9, 3.790610952959711*^9}, { + 3.790617319564548*^9, 3.790617416879177*^9}, {3.790618439965136*^9, + 3.7906184689663363`*^9}, {3.79066088543036*^9, 3.790660891318091*^9}, { + 3.791197816799444*^9, 3.791197861336274*^9}, {3.793177311138096*^9, + 3.793177332024592*^9}, {3.793177493398699*^9, 3.793177503854292*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"f51f78c8-fe8e-48f3-a562-1209bfc50f71"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xLDAdn", "[", "n_", "]"}], "=", + RowBox[{"Evaluate", "[", + RowBox[{"D", "[", + RowBox[{ + RowBox[{"\[Epsilon]xLDA", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]x0dn", "[", "n_", "]"}], "=", + RowBox[{"Evaluate", "[", + RowBox[{"D", "[", + RowBox[{ + RowBox[{"\[Epsilon]x0", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]x1dn", "[", "n_", "]"}], "=", + RowBox[{"Evaluate", "[", + RowBox[{"D", "[", + RowBox[{ + RowBox[{"\[Epsilon]x1", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]x2dn", "[", "n_", "]"}], "=", + RowBox[{"Evaluate", "[", + RowBox[{"D", "[", + RowBox[{ + RowBox[{"\[Epsilon]x2", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xeLDAdn", "[", + RowBox[{"n_", ",", + RowBox[{"{", + RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", + RowBox[{ + RowBox[{"d\[Epsilon]xLDAdn", "[", "n", "]"}], "+", + RowBox[{"w1", + RowBox[{"(", + RowBox[{ + RowBox[{"d\[Epsilon]x1dn", "[", "n", "]"}], "-", + RowBox[{"d\[Epsilon]x0dn", "[", "n", "]"}]}], ")"}]}], "+", + RowBox[{"w2", + RowBox[{"(", + RowBox[{ + RowBox[{"d\[Epsilon]x2dn", "[", "n", "]"}], "-", + RowBox[{"d\[Epsilon]x0dn", "[", "n", "]"}]}], ")"}]}]}]}], + ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.79059838113128*^9, 3.7905985061910954`*^9}, + 3.7906057050230303`*^9, {3.7906109479713078`*^9, 3.790610952959711*^9}, { + 3.790617319564548*^9, 3.790617416879177*^9}, {3.790618439965136*^9, + 3.7906184689663363`*^9}, {3.79066088543036*^9, 3.7906609462132797`*^9}, { + 3.791197871150556*^9, 3.791197891101996*^9}, {3.7916567531973343`*^9, + 3.791656771133575*^9}, {3.793177319551435*^9, 3.7931773253695717`*^9}, { + 3.793177507511698*^9, 3.7931775158449583`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"dd062623-5a91-460e-945c-d5f15e24abfb"], + +Cell["LDA correlation functionals", "Text", + CellChangeTimes->{{3.790617745116544*^9, 3.790617768448262*^9}}, + FontColor->RGBColor[ + 1, 0, 0],ExpressionUUID->"683219a6-4bcc-4fb8-93b5-7c590bc511b5"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"(*", " ", + RowBox[{"Intermediate", " ", "quantities"}], " ", "*)"}], + "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"X", "[", + RowBox[{"x_", ",", "b_", ",", "c_"}], "]"}], "=", + RowBox[{ + SuperscriptBox["x", "2"], "+", + RowBox[{"b", " ", "x"}], "+", "c"}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"x", "[", "d_", "]"}], "=", + SqrtBox["d"]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"Q", "[", + RowBox[{"b_", ",", "c_"}], "]"}], "=", + SqrtBox[ + RowBox[{ + RowBox[{"4", "c"}], "-", + SuperscriptBox["b", "2"]}]]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"f", "[", "\[Zeta]_", "]"}], "=", + FractionBox[ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", "\[Zeta]"}], ")"}], + RowBox[{"4", "/", "3"}]], "+", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "-", "\[Zeta]"}], ")"}], + RowBox[{"4", "/", "3"}]], "-", "2"}], + RowBox[{"2", + RowBox[{"(", + RowBox[{ + SuperscriptBox["2", + RowBox[{"1", "/", "3"}]], "-", "1"}], ")"}]}]]}], ";"}], + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"interpolation", " ", "function"}], "*)"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"vwn", "[", + RowBox[{"A_", ",", "a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], "=", + + RowBox[{"A", + RowBox[{"(", + RowBox[{ + RowBox[{"Log", "[", + FractionBox[ + SuperscriptBox[ + RowBox[{"x", "[", "d", "]"}], "2"], + RowBox[{"X", "[", + RowBox[{ + RowBox[{"x", "[", "d", "]"}], ",", "b", ",", "c"}], "]"}]], "]"}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"2", "b"}], + RowBox[{"Q", "[", + RowBox[{"b", ",", "c"}], "]"}]], + RowBox[{"ArcTan", "[", + FractionBox[ + RowBox[{"Q", "[", + RowBox[{"b", ",", "c"}], "]"}], + RowBox[{ + RowBox[{"2", + RowBox[{"x", "[", "d", "]"}]}], "+", "b"}]], "]"}]}], "-", + RowBox[{ + FractionBox[ + RowBox[{"b", "*", "a"}], + RowBox[{"X", "[", + RowBox[{"a", ",", "b", ",", "c"}], "]"}]], + RowBox[{"(", + RowBox[{ + RowBox[{"Log", "[", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"x", "[", "d", "]"}], "-", "a"}], ")"}], "2"], + RowBox[{"X", "[", + RowBox[{ + RowBox[{"x", "[", "d", "]"}], ",", "b", ",", "c"}], "]"}]], + "]"}], "+", + RowBox[{ + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{"b", "+", + RowBox[{"2", "a"}]}], ")"}]}], + RowBox[{"Q", "[", + RowBox[{"b", ",", "c"}], "]"}]], + RowBox[{"ArcTan", "[", + FractionBox[ + RowBox[{"Q", "[", + RowBox[{"b", ",", "c"}], "]"}], + RowBox[{ + RowBox[{"2", + RowBox[{"x", "[", "d", "]"}]}], "+", "b"}]], "]"}]}]}], + ")"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", + "\[IndentingNewLine]", + RowBox[{"(*", + RowBox[{"VWN5", " ", "correlation", " ", "functional"}], "*)"}], + "\[IndentingNewLine]", "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]cVWN5", "[", + RowBox[{"rs_", ",", "\[Zeta]_"}], "]"}], "=", + RowBox[{"With", "[", + RowBox[{ + RowBox[{"{", + RowBox[{"f2", "=", + FractionBox["4", + RowBox[{"9", + RowBox[{"(", + RowBox[{ + SuperscriptBox["2", + RowBox[{"1", "/", "3"}]], "-", "1"}], ")"}]}]]}], "}"}], ",", + RowBox[{ + RowBox[{"vwn", "[", + RowBox[{ + FractionBox["0.0621814", "2"], ",", + RowBox[{"-", "0.10498"}], ",", "3.72744", ",", "12.9352", ",", + "rs"}], "]"}], "+", + RowBox[{ + RowBox[{"vwn", "[", + RowBox[{ + RowBox[{"-", + FractionBox["1", + RowBox[{"6", + SuperscriptBox["\[Pi]", "2"]}]]}], ",", + RowBox[{"-", "0.00475840"}], ",", "1.13107", ",", "13.0045", ",", + "rs"}], "]"}], + RowBox[{"(", + FractionBox[ + RowBox[{"f", "[", "\[Zeta]", "]"}], "f2"], ")"}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "-", "\[Zeta]"}], ")"}], "4"]}], "+", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"vwn", "[", + RowBox[{ + FractionBox["0.0310907", "2"], ",", + RowBox[{"-", "0.32500"}], ",", "7.06042", ",", "18.0578", ",", + "rs"}], "]"}], "-", + RowBox[{"vwn", "[", + RowBox[{ + FractionBox["0.0621814", "2"], ",", + RowBox[{"-", "0.10498"}], ",", "3.72744", ",", "12.9352", ",", + "rs"}], "]"}]}], ")"}], + RowBox[{"f", "[", "\[Zeta]", "]"}], + SuperscriptBox["\[Zeta]", "4"]}]}]}], "]"}]}], ";"}]}]}]], "Input", + InitializationCell->True, + CellChangeTimes->{{3.783426305086109*^9, 3.7834263553520613`*^9}, { + 3.783426480832552*^9, 3.783426485774303*^9}, {3.783426632185308*^9, + 3.783426658830944*^9}, {3.783427391840214*^9, 3.783427392389812*^9}, + 3.7834287156166573`*^9, {3.7836773637524137`*^9, 3.7836775311274233`*^9}, { + 3.7906176573902884`*^9, 3.790617676290105*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"c5e15fc2-7ce6-4ed3-bc7f-bcdc9085134d"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]cLDA", "[", "n_", "]"}], "=", + RowBox[{"\[Epsilon]cVWN5", "[", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["3", + RowBox[{"4", "\[Pi]", " ", "n"}]], ")"}], + RowBox[{"1", "/", "3"}]], ",", "0"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]c0", "[", "n_", "]"}], "=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"-", "0.0238184`"}]}], ",", + RowBox[{"b", "=", "0.005409938954959674`"}], ",", + RowBox[{"c", "=", "0.08307660433135138`"}]}], "}"}], ",", + FractionBox["a", + RowBox[{"1", "+", + RowBox[{"b", " ", + SuperscriptBox["n", + RowBox[{ + RowBox[{"-", "1"}], "/", "6"}]]}], "+", + RowBox[{"c", " ", + SuperscriptBox["n", + RowBox[{ + RowBox[{"-", "1"}], "/", "3"}]]}]}]]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]c1", "[", "n_", "]"}], "=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"-", "0.0282814`"}]}], ",", + RowBox[{"b", "=", "0.002739250132910031`"}], ",", + RowBox[{"c", "=", "0.06649138204575991`"}]}], "}"}], ",", + FractionBox["a", + RowBox[{"1", "+", + RowBox[{"b", " ", + SuperscriptBox["n", + RowBox[{ + RowBox[{"-", "1"}], "/", "6"}]]}], "+", + RowBox[{"c", " ", + SuperscriptBox["n", + RowBox[{ + RowBox[{"-", "1"}], "/", "3"}]]}]}]]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]c2", "[", "n_", "]"}], "=", + RowBox[{"Module", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"a", "=", + RowBox[{"-", "0.0144633`"}]}], ",", + RowBox[{"b", "=", + RowBox[{"-", "0.05060204953178828`"}]}], ",", + RowBox[{"c", "=", "0.033141734861014335`"}]}], "}"}], ",", + FractionBox["a", + RowBox[{"1", "+", + RowBox[{"b", " ", + SuperscriptBox["n", + RowBox[{ + RowBox[{"-", "1"}], "/", "6"}]]}], "+", + RowBox[{"c", " ", + SuperscriptBox["n", + RowBox[{ + RowBox[{"-", "1"}], "/", "3"}]]}]}]]}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]ceLDA", "[", + RowBox[{"n_", ",", + RowBox[{"{", + RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]cLDA", "[", "n", "]"}], "+", + RowBox[{"w1", + RowBox[{"(", + RowBox[{ + RowBox[{"\[Epsilon]c1", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}], ")"}]}], "+", + RowBox[{"w2", + RowBox[{"(", + RowBox[{ + RowBox[{"\[Epsilon]c2", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}], ")"}]}]}]}], + ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.79059838113128*^9, 3.7905985061910954`*^9}, + 3.7906057050230303`*^9, {3.7906109479713078`*^9, 3.790610952959711*^9}, { + 3.790617319564548*^9, 3.790617516913457*^9}, {3.790617702215055*^9, + 3.790617719701961*^9}, {3.7906182605153427`*^9, 3.790618262031168*^9}, { + 3.790618364188952*^9, 3.790618401731085*^9}, {3.791197899150729*^9, + 3.79119794166324*^9}, {3.791266134226925*^9, 3.791266160344372*^9}, { + 3.791276876530004*^9, 3.791276902864431*^9}, {3.7931773494141073`*^9, + 3.793177362214679*^9}, {3.793177524467002*^9, 3.793177533663501*^9}}, + CellLabel->"In[46]:=",ExpressionUUID->"8db93606-ec73-4fe8-9228-51f79c4ef957"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]cLDAdn", "[", "n_", "]"}], "=", + RowBox[{"Evaluate", "[", + RowBox[{"D", "[", + RowBox[{ + RowBox[{"\[Epsilon]cLDA", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]c0dn", "[", "n_", "]"}], "=", + RowBox[{"Evaluate", "[", + RowBox[{"D", "[", + RowBox[{ + RowBox[{"\[Epsilon]c0", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]c1dn", "[", "n_", "]"}], "=", + RowBox[{"Evaluate", "[", + RowBox[{"D", "[", + RowBox[{ + RowBox[{"\[Epsilon]c1", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]c2dn", "[", "n_", "]"}], "=", + RowBox[{"Evaluate", "[", + RowBox[{"D", "[", + RowBox[{ + RowBox[{"\[Epsilon]c2", "[", "n", "]"}], ",", "n"}], "]"}], "]"}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]ceLDAdn", "[", + RowBox[{"n_", ",", + RowBox[{"{", + RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", + RowBox[{ + RowBox[{"d\[Epsilon]cLDAdn", "[", "n", "]"}], "+", + RowBox[{"w1", + RowBox[{"(", + RowBox[{ + RowBox[{"d\[Epsilon]c1dn", "[", "n", "]"}], "-", + RowBox[{"d\[Epsilon]c0dn", "[", "n", "]"}]}], ")"}]}], "+", + RowBox[{"w2", + RowBox[{"(", + RowBox[{ + RowBox[{"d\[Epsilon]c2dn", "[", "n", "]"}], "-", + RowBox[{"d\[Epsilon]c0dn", "[", "n", "]"}]}], ")"}]}]}]}], + ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.79059838113128*^9, 3.7905985061910954`*^9}, + 3.7906057050230303`*^9, {3.7906109479713078`*^9, 3.790610952959711*^9}, { + 3.790617319564548*^9, 3.790617416879177*^9}, {3.790618439965136*^9, + 3.7906184689663363`*^9}, {3.79066088543036*^9, 3.790660978615497*^9}, { + 3.791197952974031*^9, 3.791197965261272*^9}, {3.7916566693582706`*^9, + 3.7916566861849003`*^9}, {3.7931773653514357`*^9, + 3.7931773697924013`*^9}, {3.793177537261116*^9, 3.793177546546081*^9}}, + CellLabel->"In[51]:=",ExpressionUUID->"3c5be8aa-305f-4c0e-a51a-4bc92cdcf171"], + +Cell["LDA exchange-correlation functionals", "Text", + CellChangeTimes->{{3.790617745116544*^9, 3.790617768448262*^9}, { + 3.790617800705172*^9, 3.790617802097224*^9}}, + FontColor->RGBColor[ + 1, 0, 0],ExpressionUUID->"264d5181-32f7-492d-a01f-33c1ad90708e"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]xcLDA", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]xLDA", "[", "n", "]"}], "+", + RowBox[{"\[Epsilon]cLDA", "[", "n", "]"}]}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]xc0", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]x0", "[", "n", "]"}], "+", + RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]xc1", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]x1", "[", "n", "]"}], "+", + RowBox[{"\[Epsilon]c1", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]xc2", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]x2", "[", "n", "]"}], "+", + RowBox[{"\[Epsilon]c2", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]xceLDA", "[", + RowBox[{"n_", ",", + RowBox[{"{", + RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]xeLDA", "[", + RowBox[{"n", ",", + RowBox[{"{", + RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}], "+", + RowBox[{"\[Epsilon]ceLDA", "[", + RowBox[{"n", ",", + RowBox[{"{", + RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}]}]}], ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.790617806453972*^9, 3.7906178574975023`*^9}, { + 3.791197974030027*^9, 3.791197978149313*^9}, {3.79165585574725*^9, + 3.791655856305195*^9}, {3.793177372179325*^9, 3.7931773770831003`*^9}, + 3.793177419186366*^9, {3.793177457575171*^9, 3.793177458141382*^9}, { + 3.7931775512158747`*^9, 3.7931775673336477`*^9}, {3.793178006554833*^9, + 3.793178013351201*^9}}, + CellLabel->"In[56]:=",ExpressionUUID->"f6517707-c164-4ea9-b57c-8d4d27eafad3"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xcLDAdn", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"d\[Epsilon]xLDAdn", "[", "n", "]"}], "+", + RowBox[{"d\[Epsilon]cLDAdn", "[", "n", "]"}]}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xc0dn", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"d\[Epsilon]x0dn", "[", "n", "]"}], "+", + RowBox[{"d\[Epsilon]c0dn", "[", "n", "]"}]}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xc1dn", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"d\[Epsilon]x1dn", "[", "n", "]"}], "+", + RowBox[{"d\[Epsilon]c1dn", "[", "n", "]"}]}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xc2dn", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"d\[Epsilon]x2dn", "[", "n", "]"}], "+", + RowBox[{"d\[Epsilon]c2dn", "[", "n", "]"}]}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xceLDAdn", "[", + RowBox[{"n_", ",", + RowBox[{"{", + RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", + RowBox[{ + RowBox[{"d\[Epsilon]xeLDAdn", "[", + RowBox[{"n", ",", + RowBox[{"{", + RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}], "+", + RowBox[{"d\[Epsilon]ceLDAdn", "[", + RowBox[{"n", ",", + RowBox[{"{", + RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}]}]}], ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.790617806453972*^9, 3.7906178574975023`*^9}, { + 3.790660991606427*^9, 3.790661018422545*^9}, {3.7911979815336847`*^9, + 3.791197986348868*^9}, {3.7931773792972937`*^9, 3.793177382877861*^9}, { + 3.793177569805366*^9, 3.7931775940345783`*^9}}, + CellLabel->"In[61]:=",ExpressionUUID->"33dfcd59-33cc-4f88-bc22-62c17b91dbeb"], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xeLDAdw1", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]x1", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]x0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]ceLDAdw1", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]c1", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xceLDAdw1", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]xc1", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]xc0", "[", "n", "]"}]}]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xeLDAdw2", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]x2", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]x0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]ceLDAdw2", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]c2", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]c0", "[", "n", "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"d\[Epsilon]xceLDAdw2", "[", "n_", "]"}], "=", + RowBox[{ + RowBox[{"\[Epsilon]xc2", "[", "n", "]"}], "-", + RowBox[{"\[Epsilon]xc0", "[", "n", "]"}]}]}], ";"}]}], "Input", + InitializationCell->True, + CellChangeTimes->{{3.7906610362852507`*^9, 3.790661042510214*^9}, { + 3.790661095924047*^9, 3.790661108253295*^9}, {3.790661781802154*^9, + 3.790661784729022*^9}, {3.791197995454302*^9, 3.791198007807596*^9}, { + 3.793177384637517*^9, 3.793177388900116*^9}, {3.793177599283658*^9, + 3.793177603140668*^9}}, + CellLabel->"In[66]:=",ExpressionUUID->"9663902a-8667-481b-b613-f1c2b56b8e76"] +}, Open ]], + +Cell[CellGroupData[{ + Cell["One- and two-electron integrals", "Section", CellChangeTimes->{{3.656870379993108*^9, 3.6568703842969103`*^9}, { 3.704008473603836*^9, 3.704008482123569*^9}, @@ -13443,6 +13447,11 @@ Cell[BoxData[ RowBox[{"9", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"NumberForm", "[", RowBox[{"\[CapitalOmega]HF", ",", + RowBox[{"{", + RowBox[{"9", ",", "6"}], "}"}]}], "]"}], ",", + RowBox[{"NumberForm", "[", + RowBox[{ + RowBox[{"\[CapitalOmega]HF", " ", "HaToeV"}], ",", RowBox[{"{", RowBox[{"9", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "}"}], ",", "\[IndentingNewLine]", @@ -13455,7 +13464,9 @@ Cell[BoxData[ ",", "\"\<\!\(\*SubsuperscriptBox[\(E\), \(HF\), \ \((1)\)]\)\>\"", ",", "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalOmega]\), \(HF\), \((1)\ -\)]\)\>\""}], "}"}]}], "}"}]}], ",", +\)]\)\>\"", ",", + "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalOmega]\), \(HF\), \((1)\ +\)]\)(eV)\>\""}], "}"}]}], "}"}]}], ",", RowBox[{"TableAlignments", "\[Rule]", "Center"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "TabRes", "]"}], ";", "\[IndentingNewLine]", @@ -13549,6 +13560,11 @@ Cell[BoxData[ RowBox[{"9", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"NumberForm", "[", RowBox[{"\[CapitalOmega]LDA", ",", + RowBox[{"{", + RowBox[{"9", ",", "6"}], "}"}]}], "]"}], ",", + RowBox[{"NumberForm", "[", + RowBox[{ + RowBox[{"\[CapitalOmega]LDA", " ", "HaToeV"}], ",", RowBox[{"{", RowBox[{"9", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "}"}], ",", "\[IndentingNewLine]", @@ -13561,7 +13577,9 @@ Cell[BoxData[ ",", "\"\<\!\(\*SubsuperscriptBox[\(E\), \(LDA\), \ \((1)\)]\)\>\"", ",", "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalOmega]\), \(LDA\), \ -\((1)\)]\)\>\""}], "}"}]}], "}"}]}], ",", +\((1)\)]\)\>\"", ",", + "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalOmega]\), \(LDA\), \ +\((1)\)]\) (eV)\>\""}], "}"}]}], "}"}]}], ",", RowBox[{"TableAlignments", "\[Rule]", "Center"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "TabRes", "]"}], ";", "\[IndentingNewLine]", @@ -13725,6 +13743,17 @@ Cell[BoxData[ RowBox[{"9", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"NumberForm", "[", RowBox[{"\[CapitalDelta]\[CapitalDelta]DD", ",", + RowBox[{"{", + RowBox[{"9", ",", "6"}], "}"}]}], "]"}], ",", + RowBox[{"NumberForm", "[", + RowBox[{ + RowBox[{"\[CapitalOmega]eLDA", " ", "HaToeV"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "6"}], "}"}]}], "]"}], ",", + RowBox[{"NumberForm", "[", + RowBox[{ + RowBox[{"\[CapitalDelta]\[CapitalDelta]DD", " ", "HaToeV"}], + ",", RowBox[{"{", RowBox[{"9", ",", "6"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "}"}], ",", "\[IndentingNewLine]", @@ -13742,7 +13771,11 @@ Cell[BoxData[ "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalOmega]\), \(eLDA\), \ \((1)\)]\)\>\"", ",", "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[CapitalDelta]\),\ - \(DD\), \((1)\)]\)\>\""}], "}"}]}], "}"}]}], ",", + \(DD\), \((1)\)]\)\>\"", ",", + "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalOmega]\), \(eLDA\), \ +\((1)\)]\) (eV)\>\"", ",", + "\"\<\!\(\*SubsuperscriptBox[\(\[CapitalDelta]\[CapitalDelta]\),\ + \(DD\), \((1)\)]\)(eV)\>\""}], "}"}]}], "}"}]}], ",", RowBox[{"TableAlignments", "\[Rule]", "Center"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Print", "[", "TabRes", "]"}], ";", "\[IndentingNewLine]", @@ -13956,10 +13989,11 @@ Cell[BoxData[ 3.793177774153702*^9, 3.793177810305462*^9}, {3.793177867053081*^9, 3.7931778785959063`*^9}, {3.7931779215447206`*^9, 3.793177922900401*^9}, { 3.7931780499545813`*^9, 3.793178063294693*^9}, {3.7931783542129707`*^9, - 3.7931783647206182`*^9}}, + 3.7931783647206182`*^9}, {3.793192694547336*^9, 3.793192746819601*^9}, { + 3.793192903990459*^9, 3.793192944500051*^9}}, CellLabel-> - "In[148]:=",ExpressionUUID->"97f68742-0353-4bae-8e16-a918addb4907"] -}, Closed]], + "In[120]:=",ExpressionUUID->"97f68742-0353-4bae-8e16-a918addb4907"] +}, Open ]], Cell[CellGroupData[{ @@ -14895,8 +14929,8 @@ Cell[BoxData[ 3.793176249994131*^9}, {3.7931782939957857`*^9, 3.793178294893619*^9}, { 3.793178458703703*^9, 3.793178459184589*^9}}, CellLabel-> - "In[150]:=",ExpressionUUID->"ec017ba5-094b-4b45-9e78-75bf660db09f"] -}, Open ]] + "In[117]:=",ExpressionUUID->"ec017ba5-094b-4b45-9e78-75bf660db09f"] +}, Closed]] }, Open ]], Cell[CellGroupData[{ @@ -17932,7 +17966,7 @@ Cell[BoxData["$Aborted"], "Output", CellLabel-> "Out[155]=",ExpressionUUID->"0b7a1a8d-6cf0-427a-9bc3-c1e35688fe14"] }, Open ]] -}, Open ]] +}, Closed]] }, Open ]], Cell[CellGroupData[{ @@ -17959,7 +17993,7 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Workhorse", "[", - RowBox[{"1", ",", + RowBox[{"4", ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"{", RowBox[{"{", @@ -18056,13 +18090,13 @@ Cell[BoxData[ RowBox[{"{", "1.", "}"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.709460159893341*^9, 3.709460183509544*^9}, { - 3.709471890393758*^9, 3.7094718949764214`*^9}, {3.787074141654685*^9, - 3.787074147347142*^9}, {3.793176844397187*^9, 3.793176868084264*^9}, { - 3.793176949718862*^9, 3.793177069756246*^9}, {3.7931771030770597`*^9, - 3.793177233073007*^9}, {3.7931791090390387`*^9, 3.793179111709474*^9}, { - 3.793179352252171*^9, 3.7931793535175*^9}}, + 3.709471890393758*^9, 3.7094718949764214`*^9}, {3.787074141654685*^9, + 3.787074147347142*^9}, {3.793176844397187*^9, 3.793176868084264*^9}, { + 3.793176949718862*^9, 3.793177069756246*^9}, {3.7931771030770597`*^9, + 3.793177233073007*^9}, {3.7931791090390387`*^9, 3.793179111709474*^9}, { + 3.793179352252171*^9, 3.7931793535175*^9}, 3.793192302921855*^9}, CellLabel-> - "In[158]:=",ExpressionUUID->"41dabfd8-9ba5-45f1-a785-c6ff45efdd28"], + "In[121]:=",ExpressionUUID->"41dabfd8-9ba5-45f1-a785-c6ff45efdd28"], Cell[CellGroupData[{ @@ -18076,86 +18110,547 @@ Cell[BoxData[ FontWeight->Bold, FontColor->RGBColor[1, 0, 0]]], "Print", CellChangeTimes->{ - 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}}, + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.79319321491713*^9}, CellLabel-> "During evaluation of \ -In[158]:=",ExpressionUUID->"9193d94d-b661-4fe1-ba1b-91991d245f37"], +In[121]:=",ExpressionUUID->"35b767ea-98df-4370-8cf8-9ea593cd9e18"], Cell[BoxData["\<\"Reading one-electron integrals...\"\>"], "Print", CellChangeTimes->{ - 3.793179497642583*^9, {3.793184957328405*^9, 3.7931849605867653`*^9}}, + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.793193214919199*^9}, CellLabel-> "During evaluation of \ -In[158]:=",ExpressionUUID->"07228b0d-1ae8-4308-9998-74e3178b61c3"], +In[121]:=",ExpressionUUID->"d78732fe-341a-4546-a150-f8ae088be84c"], Cell[BoxData["\<\"Done!\"\>"], "Print", CellChangeTimes->{ - 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960588731*^9}}, + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.793193214920903*^9}, CellLabel-> "During evaluation of \ -In[158]:=",ExpressionUUID->"234ffd04-041c-4a89-829a-ad3f28b3d96a"], +In[121]:=",ExpressionUUID->"eef4a00c-728c-448b-b427-f876abfe01a4"], Cell[BoxData[ InterpretationBox[ - RowBox[{"\<\"CPU time = \"\>", "\[InvisibleSpace]", "0.002342`"}], - SequenceForm["CPU time = ", 0.002342], + RowBox[{"\<\"CPU time = \"\>", "\[InvisibleSpace]", "0.002991`"}], + SequenceForm["CPU time = ", 0.002991], Editable->False]], "Print", CellChangeTimes->{ - 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960589951*^9}}, + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.7931932149220943`*^9}, CellLabel-> "During evaluation of \ -In[158]:=",ExpressionUUID->"490741cd-dd92-431a-a4fa-8866c145fd2e"], +In[121]:=",ExpressionUUID->"f00c302a-9d80-4c3a-bfff-2677f7054168"], Cell[BoxData["\<\"Reading two-electron integrals...\"\>"], "Print", CellChangeTimes->{ - 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960591104*^9}}, + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.7931932149232063`*^9}, CellLabel-> "During evaluation of \ -In[158]:=",ExpressionUUID->"8ea3fefe-ad7c-4df8-9f14-735a1d71ee73"], +In[121]:=",ExpressionUUID->"3ceec6a5-c675-4c9f-b2af-952674157a5b"], Cell[BoxData["\<\"Done!\"\>"], "Print", CellChangeTimes->{ - 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960718491*^9}}, + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.793193214924292*^9}, CellLabel-> "During evaluation of \ -In[158]:=",ExpressionUUID->"f5afccd9-646b-4ee4-8b24-3c68e45f21f5"], +In[121]:=",ExpressionUUID->"b83f91aa-4fca-44a7-893d-4ef83e235826"], Cell[BoxData[ InterpretationBox[ - RowBox[{"\<\"CPU time = \"\>", "\[InvisibleSpace]", "0.095989`"}], - SequenceForm["CPU time = ", 0.095989], + RowBox[{"\<\"CPU time = \"\>", "\[InvisibleSpace]", "0.091967`"}], + SequenceForm["CPU time = ", 0.091967], Editable->False]], "Print", CellChangeTimes->{ - 3.793179497642583*^9, {3.793184957328405*^9, 3.7931849607201853`*^9}}, + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.793193214925363*^9}, CellLabel-> "During evaluation of \ -In[158]:=",ExpressionUUID->"8281fa2a-9155-4f0a-a82d-386882b04df5"], +In[121]:=",ExpressionUUID->"8f89c4ba-4eba-44e5-a870-f66b17dae682"], Cell[BoxData["\<\"Ensemble RHF calculation...\"\>"], "Print", CellChangeTimes->{ - 3.793179497642583*^9, {3.793184957328405*^9, 3.7931849607217007`*^9}}, + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.793193215145052*^9}, CellLabel-> "During evaluation of \ -In[158]:=",ExpressionUUID->"44e40ead-3a1d-4a27-85f2-e01e347cffb1"] +In[121]:=",ExpressionUUID->"8dc0f05f-c82e-4e43-89ea-6b01b1b7ba88"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"MO energies: \"\>", "\[InvisibleSpace]", + TagBox[GridBox[{ + { + RowBox[{"-", "4.854206125110068`"}], + RowBox[{"-", "0.22876455105092122`"}], + RowBox[{"-", "0.07692700913904119`"}], "0.011812379885538125`", + "0.011812379885538309`", "0.05542366700409455`", + "0.08242615566557242`", "0.09291320736564479`", "0.09291320736564486`", + "0.4437578334743087`", "0.44375783347431136`", "0.44698393408415893`", + "0.5122692436152958`", "0.9740002057803153`", "0.9740002057803201`", + "0.9810726987140698`", "0.9810726987140734`", "0.9834915082633728`", + "2.7477768367902153`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]}], + SequenceForm["MO energies: ", + TableForm[{{-4.854206125110068, -0.22876455105092122`, \ +-0.07692700913904119, 0.011812379885538125`, 0.011812379885538309`, + 0.05542366700409455, 0.08242615566557242, 0.09291320736564479, + 0.09291320736564486, 0.4437578334743087, 0.44375783347431136`, + 0.44698393408415893`, 0.5122692436152958, 0.9740002057803153, + 0.9740002057803201, 0.9810726987140698, 0.9810726987140734, + 0.9834915082633728, 2.7477768367902153`}}]], + Editable->False]], "Print", + CellChangeTimes->{ + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.79319321553384*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"15c10b38-8326-4e9b-b0a5-3358cfef8a63"], + +Cell[BoxData[ + InterpretationBox[ + RowBox[{"\<\"MO coefficients: \"\>", "\[InvisibleSpace]", + TagBox[GridBox[{ + {"0.9984050735687665`", + RowBox[{"-", "0.20948905894912143`"}], "0", "0", "0", + "0.11776196577743157`", "0", "0", "0", "0", "0", "0", + RowBox[{"-", "0.05275783923000777`"}], "0", "0", "0", "0", + RowBox[{"-", "0.0007895149652122208`"}], "0.31210694628968677`"}, + {"0.008915229372691971`", "0.27528324086828027`", "0", "0", "0", + "0.037748798115113946`", "0", "0", "0", "0", "0", "0", + RowBox[{"-", "2.5517426462439783`"}], "0", "0", "0", "0", + "0.045651200165433226`", + RowBox[{"-", "6.688306690644669`"}]}, + {"0", "0", + RowBox[{"-", "0.3732064043187794`"}], + RowBox[{"-", "0.04979940794684287`"}], + RowBox[{"-", "0.08264488406844873`"}], "0", "0.2342130577247976`", + RowBox[{"-", "0.04988857600806687`"}], "0.09415559993903813`", + "0.37618435470015804`", + RowBox[{"-", "0.24561878568906614`"}], + RowBox[{"-", "1.2545414507282646`"}], "0", "0", "0", "0", "0", "0", + "0"}, + {"0", "0", + RowBox[{"-", "0.11392918022553987`"}], "0.01142037355006871`", + "0.2520670413259362`", "0", "0.07149850955374491`", + RowBox[{"-", "0.01277257606327699`"}], + RowBox[{"-", "0.29304682227406714`"}], + RowBox[{"-", "1.291865397599498`"}], "0.037406381780290134`", + RowBox[{"-", "0.38297541892728443`"}], "0", "0", "0", "0", "0", "0", + "0"}, + {"0", "0", + RowBox[{"-", "0.06589678215524152`"}], "0.2622942064135429`", + "0.03225967291358531`", "0", "0.041354828492228476`", + "0.30462648603266923`", + RowBox[{"-", "0.02660051998002316`"}], "0.10299069407549712`", + "1.3263898868812964`", + RowBox[{"-", "0.22151346741830988`"}], "0", "0", "0", "0", "0", "0", + "0"}, + { + RowBox[{"-", "0.006785930168132166`"}], "0.6270732888469042`", "0", + "0", "0", + RowBox[{"-", "1.1056435936631208`"}], "0", "0", "0", "0", "0", "0", + "2.819531030486486`", "0", "0", "0", "0", + RowBox[{"-", "0.02777117615795864`"}], "0.40833216585006704`"}, + {"0", "0", + RowBox[{"-", "0.40487027904412715`"}], + RowBox[{"-", "0.047429252641353475`"}], + RowBox[{"-", "0.07871147966622044`"}], "0", "0.6350764670566781`", + RowBox[{"-", "0.1322127448672078`"}], "0.24952747319438387`", + RowBox[{"-", "0.4051248296796863`"}], "0.2645146388337424`", + "1.4017794262248382`", "0", "0", "0", "0", "0", "0", "0"}, + {"0", "0", + RowBox[{"-", "0.12359525039067581`"}], "0.010876831767618384`", + "0.24007015100195134`", "0", "0.1938705778759988`", + RowBox[{"-", "0.033849379466715526`"}], + RowBox[{"-", "0.7766211795903524`"}], "1.3912507062893265`", + RowBox[{"-", "0.040284115642588825`"}], "0.42792293765222106`", "0", + "0", "0", "0", "0", "0", "0"}, + {"0", "0", + RowBox[{"-", "0.07148764938265695`"}], "0.24981056392539147`", + "0.03072430456159371`", "0", "0.11213498781711631`", + "0.8073091497163457`", + RowBox[{"-", "0.07049565337132935`"}], + RowBox[{"-", "0.11091393587908653`"}], + RowBox[{"-", "1.4284312207506848`"}], "0.24751116918333474`", "0", "0", + "0", "0", "0", "0", "0"}, + {"0.001651428995600111`", "0.16210280339892053`", "0", "0", "0", + "1.4461408965448739`", "0", "0", "0", "0", "0", "0", + RowBox[{"-", "0.8502163354042225`"}], "0", "0", "0", "0", + "0.0028470591447119584`", "0.015782199071710565`"}, + {"0", "0", + RowBox[{"-", "0.3836523084026363`"}], + RowBox[{"-", "0.13065137833787177`"}], + RowBox[{"-", "0.21682322062226533`"}], "0", + RowBox[{"-", "1.0471753539888455`"}], "0.1547265281019202`", + RowBox[{"-", "0.29201813813176214`"}], "0.13384992571039778`", + RowBox[{"-", "0.08739347026742882`"}], + RowBox[{"-", "0.46366689300392533`"}], "0", "0", "0", "0", "0", "0", + "0"}, + {"0", "0", + RowBox[{"-", "0.11711801427344798`"}], "0.02996195350439864`", + "0.6613112030957745`", "0", + RowBox[{"-", "0.3196725143292019`"}], "0.039613404657392375`", + "0.9088677410723105`", + RowBox[{"-", "0.45965783886561123`"}], "0.013309541877086925`", + RowBox[{"-", "0.14154416539032144`"}], "0", "0", "0", "0", "0", "0", + "0"}, + {"0", "0", + RowBox[{"-", "0.0677412078078195`"}], "0.6881427111452514`", + "0.08463495661209432`", "0", + RowBox[{"-", "0.18489898721352405`"}], + RowBox[{"-", "0.9447813973303345`"}], "0.08249997156762033`", + "0.03664505601742874`", "0.47194197633124924`", + RowBox[{"-", "0.08186932455420247`"}], "0", "0", "0", "0", "0", "0", + "0"}, + {"0.0037836802263356596`", "0.015563813488417289`", "0", "0", "0", + RowBox[{"-", "0.0083293850908705`"}], "0", "0", "0", "0", "0", "0", + "0.09074018353369642`", "0.08323512343116461`", "0.04923577068195917`", + "0.007883392226426339`", "0.5431999270198676`", "0.8253898407904845`", + "2.8468257084637747`"}, + {"0.00010712641639218296`", "0.0004974010239347605`", "0", "0", "0", + "0.0020182571177890483`", "0", "0", "0", "0", "0", "0", + "0.00512639377994457`", + RowBox[{"-", "0.15349577811564036`"}], + RowBox[{"-", "0.2823887869939891`"}], "0.46234817193698174`", + RowBox[{"-", "0.6809157493809019`"}], "0.47022600859371044`", + "0.0012857083881352782`"}, + {"0.0000619620549370287`", "0.0002876973822960805`", "0", "0", "0", + "0.0011673624734324052`", "0", "0", "0", "0", "0", "0", + "0.0029651126558643`", + RowBox[{"-", "0.2789488574948784`"}], "0.16623845780865384`", + RowBox[{"-", "0.8219268396432067`"}], + RowBox[{"-", "0.37803293809009947`"}], "0.2719793190006104`", + "0.0007436553602895678`"}, + {"0.0035080940861106427`", "0.014284233409606911`", "0", "0", "0", + RowBox[{"-", "0.013521416223841676`"}], "0", "0", "0", "0", "0", "0", + "0.07755237120258393`", + RowBox[{"-", "0.03754968692298378`"}], "0.7923386081747303`", + "0.24372976093901222`", + RowBox[{"-", "0.41065208327569847`"}], + RowBox[{"-", "0.3842816399359212`"}], "2.843518182420493`"}, + {"0.000018915233078472736`", "0.00008782573540731559`", "0", "0", "0", + "0.0003563621847995183`", "0", "0", "0", "0", "0", "0", + "0.0009051636045089565`", "0.9442862022483457`", + "0.017511061669003073`", + RowBox[{"-", "0.1697648062953489`"}], + RowBox[{"-", "0.26944020344867703`"}], "0.08302746280176347`", + "0.000227016590786449`"}, + {"0.0034892476250463073`", "0.014196726991052233`", "0", "0", "0", + RowBox[{"-", "0.013876482746836227`"}], "0", "0", "0", "0", "0", "0", + "0.07665049859234735`", + RowBox[{"-", "0.04568543650818222`"}], + RowBox[{"-", "0.8415743788567058`"}], + RowBox[{"-", "0.2516131531654423`"}], + RowBox[{"-", "0.13254784374420311`"}], + RowBox[{"-", "0.4670072314480443`"}], "2.843291991216738`"} + }, + GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + Function[BoxForm`e$, + TableForm[BoxForm`e$]]]}], + SequenceForm["MO coefficients: ", + TableForm[{{ + 0.9984050735687665, -0.20948905894912143`, 0, 0, 0, 0.11776196577743157`, + 0, 0, 0, 0, 0, 0, -0.05275783923000777, 0, 0, 0, + 0, -0.0007895149652122208, 0.31210694628968677`}, { + 0.008915229372691971, 0.27528324086828027`, 0, 0, 0, + 0.037748798115113946`, 0, 0, 0, 0, 0, 0, -2.5517426462439783`, 0, 0, 0, + 0, 0.045651200165433226`, -6.688306690644669}, { + 0, 0, -0.3732064043187794, -0.04979940794684287, -0.08264488406844873, 0, + 0.2342130577247976, -0.04988857600806687, 0.09415559993903813, + 0.37618435470015804`, -0.24561878568906614`, -1.2545414507282646`, 0, 0, + 0, 0, 0, 0, 0}, { + 0, 0, -0.11392918022553987`, 0.01142037355006871, 0.2520670413259362, 0, + 0.07149850955374491, -0.01277257606327699, -0.29304682227406714`, \ +-1.291865397599498, 0.037406381780290134`, -0.38297541892728443`, 0, 0, 0, 0, + 0, 0, 0}, { + 0, 0, -0.06589678215524152, 0.2622942064135429, 0.03225967291358531, 0, + 0.041354828492228476`, 0.30462648603266923`, -0.02660051998002316, + 0.10299069407549712`, 1.3263898868812964`, -0.22151346741830988`, 0, 0, + 0, 0, 0, 0, 0}, {-0.006785930168132166, 0.6270732888469042, 0, 0, + 0, -1.1056435936631208`, 0, 0, 0, 0, 0, 0, 2.819531030486486, 0, 0, 0, + 0, -0.02777117615795864, 0.40833216585006704`}, { + 0, 0, -0.40487027904412715`, -0.047429252641353475`, \ +-0.07871147966622044, 0, 0.6350764670566781, -0.1322127448672078, + 0.24952747319438387`, -0.4051248296796863, 0.2645146388337424, + 1.4017794262248382`, 0, 0, 0, 0, 0, 0, 0}, { + 0, 0, -0.12359525039067581`, 0.010876831767618384`, 0.24007015100195134`, + 0, 0.1938705778759988, -0.033849379466715526`, -0.7766211795903524, + 1.3912507062893265`, -0.040284115642588825`, 0.42792293765222106`, 0, 0, + 0, 0, 0, 0, 0}, { + 0, 0, -0.07148764938265695, 0.24981056392539147`, 0.03072430456159371, 0, + 0.11213498781711631`, + 0.8073091497163457, -0.07049565337132935, -0.11091393587908653`, \ +-1.4284312207506848`, 0.24751116918333474`, 0, 0, 0, 0, 0, 0, 0}, { + 0.001651428995600111, 0.16210280339892053`, 0, 0, 0, 1.4461408965448739`, + 0, 0, 0, 0, 0, 0, -0.8502163354042225, 0, 0, 0, 0, + 0.0028470591447119584`, 0.015782199071710565`}, { + 0, 0, -0.3836523084026363, -0.13065137833787177`, -0.21682322062226533`, + 0, -1.0471753539888455`, 0.1547265281019202, -0.29201813813176214`, + 0.13384992571039778`, -0.08739347026742882, -0.46366689300392533`, 0, 0, + 0, 0, 0, 0, 0}, { + 0, 0, -0.11711801427344798`, 0.02996195350439864, 0.6613112030957745, + 0, -0.3196725143292019, 0.039613404657392375`, + 0.9088677410723105, -0.45965783886561123`, + 0.013309541877086925`, -0.14154416539032144`, 0, 0, 0, 0, 0, 0, 0}, { + 0, 0, -0.0677412078078195, 0.6881427111452514, 0.08463495661209432, + 0, -0.18489898721352405`, -0.9447813973303345, 0.08249997156762033, + 0.03664505601742874, 0.47194197633124924`, -0.08186932455420247, 0, 0, + 0, 0, 0, 0, 0}, { + 0.0037836802263356596`, 0.015563813488417289`, 0, 0, + 0, -0.0083293850908705, 0, 0, 0, 0, 0, 0, 0.09074018353369642, + 0.08323512343116461, 0.04923577068195917, 0.007883392226426339, + 0.5431999270198676, 0.8253898407904845, 2.8468257084637747`}, { + 0.00010712641639218296`, 0.0004974010239347605, 0, 0, 0, + 0.0020182571177890483`, 0, 0, 0, 0, 0, 0, + 0.00512639377994457, -0.15349577811564036`, -0.2823887869939891, + 0.46234817193698174`, -0.6809157493809019, 0.47022600859371044`, + 0.0012857083881352782`}, { + 0.0000619620549370287, 0.0002876973822960805, 0, 0, 0, + 0.0011673624734324052`, 0, 0, 0, 0, 0, 0, + 0.0029651126558643, -0.2789488574948784, + 0.16623845780865384`, -0.8219268396432067, -0.37803293809009947`, + 0.2719793190006104, 0.0007436553602895678}, { + 0.0035080940861106427`, 0.014284233409606911`, 0, 0, + 0, -0.013521416223841676`, 0, 0, 0, 0, 0, 0, + 0.07755237120258393, -0.03754968692298378, 0.7923386081747303, + 0.24372976093901222`, -0.41065208327569847`, -0.3842816399359212, + 2.843518182420493}, { + 0.000018915233078472736`, 0.00008782573540731559, 0, 0, 0, + 0.0003563621847995183, 0, 0, 0, 0, 0, 0, 0.0009051636045089565, + 0.9442862022483457, + 0.017511061669003073`, -0.1697648062953489, -0.26944020344867703`, + 0.08302746280176347, 0.000227016590786449}, { + 0.0034892476250463073`, 0.014196726991052233`, 0, 0, + 0, -0.013876482746836227`, 0, 0, 0, 0, 0, 0, + 0.07665049859234735, -0.04568543650818222, -0.8415743788567058, \ +-0.2516131531654423, -0.13254784374420311`, -0.4670072314480443, + 2.843291991216738}}]], + Editable->False]], "Print", + CellChangeTimes->{ + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.793193215537814*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"a3d40a4f-4ac6-4fc5-92c8-7917d186811f"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"n\"\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubscriptBox[\\(N\\), \\(Basis\\)]\\)\"\>", + HoldForm], + TagBox["\<\"w\"\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubscriptBox[\\(E\\), \\(0\\)]\\)\"\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubscriptBox[\\(E\\), \\(Nuc\\)]\\)\"\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(E\\), \\(HF\\), \\(w\\)]\\)\"\ +\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(E\\), \\(GIC - HF\\), \ +\\(w\\)]\\)\"\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(T\\), \\(HF\\), \\(w\\)]\\)\"\ +\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(V\\), \\(HF\\), \\(w\\)]\\)\"\ +\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(J\\), \\(HF\\), \\(w\\)]\\)\"\ +\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(K\\), \\(HF\\), \\(w\\)]\\)\"\ +\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubscriptBox[\\(N\\), \\(SCF\\)]\\)\"\>", + HoldForm], + TagBox["\<\"Conv\"\>", + HoldForm], + TagBox["\<\"HL Gap\"\>", + HoldForm]}, + {"4", "19", + FractionBox["1", "2"], + TagBox[ + InterpretationBox["\<\"-14.314242\"\>", + -14.314242335504366`, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"0\"\>", + 0, + Editable->False], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"-14.314242\"\>", + -14.314242335504366`, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"-14.417150\"\>", + -14.417149844534759`, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"14.341514\"\>", + 14.34151369194869, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"-32.955895\"\>", + -32.955894552547335`, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"6.779467\"\>", + 6.779467378892917, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"-2.479329\"\>", + -2.4793288537986395`, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], "14", + TagBox[ + InterpretationBox[ + RowBox[{"\<\"5.305\"\>", "\[Times]", + SuperscriptBox["10", "\<\"-8\"\>"]}], + 5.3045139003504715`*^-8, + AutoDelete->True], + NumberForm[#, {6, 3}]& ], + TagBox[ + InterpretationBox["\<\"0.152\"\>", + 0.15183754191188004`, + AutoDelete->True], + NumberForm[#, {6, 3}]& ]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "Rows" -> {False, True, {False}, False}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"n", "\!\(\*SubscriptBox[\(N\), \(Basis\)]\)", "w", + "\!\(\*SubscriptBox[\(E\), \(0\)]\)", + "\!\(\*SubscriptBox[\(E\), \(Nuc\)]\)", + "\!\(\*SubsuperscriptBox[\(E\), \(HF\), \(w\)]\)", + "\!\(\*SubsuperscriptBox[\(E\), \(GIC - HF\), \(w\)]\)", + "\!\(\*SubsuperscriptBox[\(T\), \(HF\), \(w\)]\)", + "\!\(\*SubsuperscriptBox[\(V\), \(HF\), \(w\)]\)", + "\!\(\*SubsuperscriptBox[\(J\), \(HF\), \(w\)]\)", + "\!\(\*SubsuperscriptBox[\(K\), \(HF\), \(w\)]\)", + "\!\(\*SubscriptBox[\(N\), \(SCF\)]\)", "Conv", "HL Gap"}}, + TableAlignments -> Center]]]], "Print", + CellChangeTimes->{ + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.793193215661158*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"9b879754-746f-4464-989d-5d3f52bc77f1"], + +Cell[BoxData[ + TagBox[ + TagBox[GridBox[{ + { + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(E\\), \\(HF\\), \\((0)\\)]\\)\ +\"\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(E\\), \\(HF\\), \\((1)\\)]\\)\ +\"\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalOmega]\\), \\(HF\\), \ +\\((1)\\)]\\)\"\>", + HoldForm], + TagBox["\<\"\\!\\(\\*SubsuperscriptBox[\\(\[CapitalOmega]\\), \\(HF\\), \ +\\((1)\\)]\\)(eV)\"\>", + HoldForm]}, + { + TagBox[ + InterpretationBox["\<\"-14.568987\"\>", + -14.568987386446635`, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"-14.265312\"\>", + -14.265312302622867`, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"0.303675\"\>", + 0.3036750838237676, + AutoDelete->True], + NumberForm[#, {9, 6}]& ], + TagBox[ + InterpretationBox["\<\"8.263420\"\>", + 8.263419930584398, + AutoDelete->True], + NumberForm[#, {9, 6}]& ]} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Center}}}, + GridBoxDividers->{ + "Columns" -> {{False}}, "Rows" -> {False, True, {False}, False}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[2.0999999999999996`]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], + {None, OutputFormsDump`HeadedColumns}], + Function[BoxForm`e$, + TableForm[ + BoxForm`e$, + TableHeadings -> { + None, {"\!\(\*SubsuperscriptBox[\(E\), \(HF\), \((0)\)]\)", + "\!\(\*SubsuperscriptBox[\(E\), \(HF\), \((1)\)]\)", + "\!\(\*SubsuperscriptBox[\(\[CapitalOmega]\), \(HF\), \((1)\)]\)", + "\!\(\*SubsuperscriptBox[\(\[CapitalOmega]\), \(HF\), \ +\((1)\)]\)(eV)"}}, TableAlignments -> Center]]]], "Print", + CellChangeTimes->{ + 3.793179497642583*^9, {3.793184957328405*^9, 3.793184960584527*^9}, { + 3.793192275455106*^9, 3.7931923048804617`*^9}, 3.793193215666363*^9}, + CellLabel-> + "During evaluation of \ +In[121]:=",ExpressionUUID->"df6e62a4-1e85-40db-8d54-0556562caae9"] }, Open ]], Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{ - 3.709471898384778*^9, 3.709483918295734*^9, 3.709485142233626*^9, - 3.7098306715256653`*^9, 3.709873003698473*^9, 3.709877705652544*^9, - 3.709916103674868*^9, 3.70991616340514*^9, 3.7099203390178423`*^9, - 3.709920422333671*^9, 3.709957687945655*^9, 3.709958048656145*^9, - 3.7099581974812727`*^9, 3.709958237200304*^9, 3.709958310840273*^9, - 3.7099583683371973`*^9, 3.710654881820878*^9, 3.7106549204568777`*^9, - 3.710655059018141*^9, 3.7106650613015003`*^9, {3.7106653647068233`*^9, - 3.710665408411544*^9}, {3.710665449116105*^9, 3.710665469828347*^9}, - 3.710665513181737*^9, 3.710665549070348*^9, 3.710665714084175*^9, - 3.7106659833832397`*^9, 3.710678447725442*^9, 3.710678906598324*^9, - 3.7870741429830103`*^9, 3.787074177965514*^9, {3.793179097234832*^9, - 3.79317911217988*^9}, 3.7931798116108313`*^9, {3.7931849578997393`*^9, - 3.793184978692325*^9}}, + CellChangeTimes->{3.793193713022909*^9}, CellLabel-> - "Out[158]=",ExpressionUUID->"875675ef-1123-4902-92a8-c6a954e9f402"] + "Out[121]=",ExpressionUUID->"47fe1432-6f98-4a57-9e32-303208c8e804"] }, Open ]] }, Open ]] }, Open ]] @@ -18214,520 +18709,527 @@ Cell[6591, 192, 278, 5, 46, "Input",ExpressionUUID->"e700b752-fa59-4890-9906-0d5 InitializationCell->True], Cell[6872, 199, 280, 9, 77, "Input",ExpressionUUID->"71530af8-4c60-4307-bb02-52ea00d49257", InitializationCell->True], -Cell[7155, 210, 2898, 76, 257, "Input",ExpressionUUID->"9152dc27-f321-447b-819f-69dba125013d", +Cell[7155, 210, 2894, 75, 257, "Input",ExpressionUUID->"9152dc27-f321-447b-819f-69dba125013d", InitializationCell->True], -Cell[10056, 288, 1062, 21, 46, "Input",ExpressionUUID->"bc74c736-2d82-405e-a686-2404e163c599", +Cell[10052, 287, 1062, 21, 46, "Input",ExpressionUUID->"bc74c736-2d82-405e-a686-2404e163c599", InitializationCell->True, InitializationGroup->True], -Cell[11121, 311, 1278, 32, 46, "Input",ExpressionUUID->"1f6c052c-c882-4139-b7ee-065625c189c3", +Cell[11117, 310, 1278, 32, 46, "Input",ExpressionUUID->"1f6c052c-c882-4139-b7ee-065625c189c3", InitializationCell->True], -Cell[12402, 345, 453, 11, 46, "Input",ExpressionUUID->"1c62b5c9-a804-4189-8fec-1a5b6cef0d6c", +Cell[12398, 344, 453, 11, 46, "Input",ExpressionUUID->"1c62b5c9-a804-4189-8fec-1a5b6cef0d6c", InitializationCell->True], -Cell[12858, 358, 556, 16, 46, "Input",ExpressionUUID->"2feabed6-bbe1-4eb2-beaa-732eae5d3b4c", +Cell[12854, 357, 556, 16, 46, "Input",ExpressionUUID->"2feabed6-bbe1-4eb2-beaa-732eae5d3b4c", InitializationCell->True], -Cell[13417, 376, 1190, 38, 70, "Input",ExpressionUUID->"2f1ae05b-0052-4f5b-bd72-862c91a81035", +Cell[13413, 375, 1190, 38, 70, "Input",ExpressionUUID->"2f1ae05b-0052-4f5b-bd72-862c91a81035", InitializationCell->True], -Cell[14610, 416, 942, 28, 72, "Input",ExpressionUUID->"7aa59e7a-adf1-4a00-bf0d-7468a365b62d", +Cell[14606, 415, 942, 28, 72, "Input",ExpressionUUID->"7aa59e7a-adf1-4a00-bf0d-7468a365b62d", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ -Cell[15589, 449, 157, 3, 72, "Title",ExpressionUUID->"98d632cb-7177-481c-9b9f-d6f48d10e284"], +Cell[15585, 448, 157, 3, 72, "Title",ExpressionUUID->"98d632cb-7177-481c-9b9f-d6f48d10e284"], Cell[CellGroupData[{ -Cell[15771, 456, 72, 0, 67, "Section",ExpressionUUID->"9458067c-0b7a-4f70-9a58-1f771c4b3842"], +Cell[15767, 455, 72, 0, 67, "Section",ExpressionUUID->"9458067c-0b7a-4f70-9a58-1f771c4b3842"], Cell[CellGroupData[{ -Cell[15868, 460, 75, 0, 54, "Subsection",ExpressionUUID->"11bf4889-b9bd-4f4e-8dbb-a1e9e8a04d2a"], -Cell[15946, 462, 1683, 43, 65, "Input",ExpressionUUID->"fd4d58e4-e6f8-4497-ac22-d536c7dc2652", +Cell[15864, 459, 75, 0, 54, "Subsection",ExpressionUUID->"11bf4889-b9bd-4f4e-8dbb-a1e9e8a04d2a"], +Cell[15942, 461, 1683, 43, 65, "Input",ExpressionUUID->"fd4d58e4-e6f8-4497-ac22-d536c7dc2652", InitializationCell->True], -Cell[17632, 507, 1413, 35, 65, "Input",ExpressionUUID->"f4215905-d329-4e5c-925a-feafdeee6fce", +Cell[17628, 506, 1413, 35, 65, "Input",ExpressionUUID->"f4215905-d329-4e5c-925a-feafdeee6fce", InitializationCell->True], -Cell[19048, 544, 2169, 59, 65, "Input",ExpressionUUID->"517a10dc-802a-4ead-9f44-0905089379ba", +Cell[19044, 543, 2169, 59, 65, "Input",ExpressionUUID->"517a10dc-802a-4ead-9f44-0905089379ba", InitializationCell->True], -Cell[21220, 605, 3587, 99, 72, "Input",ExpressionUUID->"440fb372-2001-4d90-ade1-e5498676702f", +Cell[21216, 604, 3587, 99, 72, "Input",ExpressionUUID->"440fb372-2001-4d90-ade1-e5498676702f", InitializationCell->True] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[24868, 711, 151, 3, 72, "Title",ExpressionUUID->"cdfcc3a6-7299-4a1b-a9d0-f29078225f1e"], +Cell[24864, 710, 151, 3, 72, "Title",ExpressionUUID->"cdfcc3a6-7299-4a1b-a9d0-f29078225f1e"], Cell[CellGroupData[{ -Cell[25044, 718, 72, 0, 67, "Section",ExpressionUUID->"23d29e55-92a0-4dbd-8800-76494f7702a3"], +Cell[25040, 717, 72, 0, 67, "Section",ExpressionUUID->"23d29e55-92a0-4dbd-8800-76494f7702a3"], Cell[CellGroupData[{ -Cell[25141, 722, 75, 0, 54, "Subsection",ExpressionUUID->"5917ba4c-2cd7-4975-9b3b-073e72bd0e40"], +Cell[25137, 721, 75, 0, 54, "Subsection",ExpressionUUID->"5917ba4c-2cd7-4975-9b3b-073e72bd0e40"], Cell[CellGroupData[{ -Cell[25241, 726, 70, 0, 48, "Input",ExpressionUUID->"c8ade4e2-951f-4fce-ae16-fdd4ea72db6f"], -Cell[25314, 728, 71, 0, 62, "Output",ExpressionUUID->"e2c1e6f8-35e1-43ee-b47e-a64bb64f8585"] +Cell[25237, 725, 70, 0, 48, "Input",ExpressionUUID->"c8ade4e2-951f-4fce-ae16-fdd4ea72db6f"], +Cell[25310, 727, 71, 0, 62, "Output",ExpressionUUID->"e2c1e6f8-35e1-43ee-b47e-a64bb64f8585"] }, Open ]], -Cell[25400, 731, 70, 0, 30, "Input",ExpressionUUID->"02e08ec6-7c15-4841-9609-90296edfe494"], +Cell[25396, 730, 70, 0, 30, "Input",ExpressionUUID->"02e08ec6-7c15-4841-9609-90296edfe494"], Cell[CellGroupData[{ -Cell[25495, 735, 70, 0, 48, "Input",ExpressionUUID->"150e916f-8806-4d8e-b5d0-c0bc713b1f4d"], -Cell[25568, 737, 71, 0, 34, "Output",ExpressionUUID->"fb35d58c-512f-4f74-aa01-67c7b7b81a77"] +Cell[25491, 734, 70, 0, 48, "Input",ExpressionUUID->"150e916f-8806-4d8e-b5d0-c0bc713b1f4d"], +Cell[25564, 736, 71, 0, 34, "Output",ExpressionUUID->"fb35d58c-512f-4f74-aa01-67c7b7b81a77"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[25700, 744, 72, 0, 53, "Section",ExpressionUUID->"8fd0ca40-ccd3-410e-8538-798441b5cf4b"], +Cell[25696, 743, 72, 0, 53, "Section",ExpressionUUID->"8fd0ca40-ccd3-410e-8538-798441b5cf4b"], Cell[CellGroupData[{ -Cell[25797, 748, 75, 0, 54, "Subsection",ExpressionUUID->"10e37c4d-fcc0-4a25-949c-6383c67ff9eb"], +Cell[25793, 747, 75, 0, 54, "Subsection",ExpressionUUID->"10e37c4d-fcc0-4a25-949c-6383c67ff9eb"], Cell[CellGroupData[{ -Cell[25897, 752, 70, 0, 145, "Input",ExpressionUUID->"b7e33c7b-f239-4612-b339-911d66bee804"], -Cell[25970, 754, 71, 0, 34, "Output",ExpressionUUID->"3acd8e38-829c-4dd5-ac53-54c357a30852"], -Cell[26044, 756, 71, 0, 34, "Output",ExpressionUUID->"0a957f43-bd43-468d-a336-addbe42a4e30"] +Cell[25893, 751, 70, 0, 145, "Input",ExpressionUUID->"b7e33c7b-f239-4612-b339-911d66bee804"], +Cell[25966, 753, 71, 0, 34, "Output",ExpressionUUID->"3acd8e38-829c-4dd5-ac53-54c357a30852"], +Cell[26040, 755, 71, 0, 34, "Output",ExpressionUUID->"0a957f43-bd43-468d-a336-addbe42a4e30"] }, Open ]], Cell[CellGroupData[{ -Cell[26152, 761, 70, 0, 57, "Input",ExpressionUUID->"5bc098a3-a8b3-48df-b81b-4249253ebc03"], -Cell[26225, 763, 71, 0, 34, "Output",ExpressionUUID->"3597039b-63a4-48ef-b436-f5b1fb49d7fd"] +Cell[26148, 760, 70, 0, 57, "Input",ExpressionUUID->"5bc098a3-a8b3-48df-b81b-4249253ebc03"], +Cell[26221, 762, 71, 0, 34, "Output",ExpressionUUID->"3597039b-63a4-48ef-b436-f5b1fb49d7fd"] }, Open ]], Cell[CellGroupData[{ -Cell[26333, 768, 70, 0, 94, "Input",ExpressionUUID->"7707f078-0791-4cee-b4ea-44b37115dc20"], -Cell[26406, 770, 71, 0, 34, "Output",ExpressionUUID->"d4f8c9be-6e4c-40eb-ba9a-d4053731284e"], -Cell[26480, 772, 71, 0, 34, "Output",ExpressionUUID->"2e03225f-8957-4361-919c-4f6a7c36dc6e"] +Cell[26329, 767, 70, 0, 94, "Input",ExpressionUUID->"7707f078-0791-4cee-b4ea-44b37115dc20"], +Cell[26402, 769, 71, 0, 34, "Output",ExpressionUUID->"d4f8c9be-6e4c-40eb-ba9a-d4053731284e"], +Cell[26476, 771, 71, 0, 34, "Output",ExpressionUUID->"2e03225f-8957-4361-919c-4f6a7c36dc6e"] }, Open ]], Cell[CellGroupData[{ -Cell[26588, 777, 70, 0, 54, "Input",ExpressionUUID->"731b5390-31ed-4914-91db-765023c263dd"], -Cell[26661, 779, 71, 0, 34, "Output",ExpressionUUID->"ed71661b-3a8d-4eee-a4d0-69211937142a"] +Cell[26584, 776, 70, 0, 54, "Input",ExpressionUUID->"731b5390-31ed-4914-91db-765023c263dd"], +Cell[26657, 778, 71, 0, 34, "Output",ExpressionUUID->"ed71661b-3a8d-4eee-a4d0-69211937142a"] }, Open ]], -Cell[26747, 782, 70, 0, 53, "Input",ExpressionUUID->"1f5927dc-663a-4f11-a2d1-7bc195f79332"] +Cell[26743, 781, 70, 0, 53, "Input",ExpressionUUID->"1f5927dc-663a-4f11-a2d1-7bc195f79332"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[26878, 789, 150, 3, 72, "Title",ExpressionUUID->"e756f09e-4f67-4fb6-a4c1-1a4fcf53e013"], +Cell[26874, 788, 150, 3, 72, "Title",ExpressionUUID->"e756f09e-4f67-4fb6-a4c1-1a4fcf53e013"], Cell[CellGroupData[{ -Cell[27053, 796, 259, 4, 67, "Section",ExpressionUUID->"81f07a4a-071b-4e38-8018-d116e770b20b"], +Cell[27049, 795, 259, 4, 67, "Section",ExpressionUUID->"81f07a4a-071b-4e38-8018-d116e770b20b"], Cell[CellGroupData[{ -Cell[27337, 804, 75, 0, 54, "Subsection",ExpressionUUID->"7471e1f3-36cd-497f-a3e0-06aa7035995d"], -Cell[27415, 806, 69, 0, 35, "Text",ExpressionUUID->"c0165a48-1e75-4237-86f9-15c7a0fc2c6e"], -Cell[27487, 808, 70, 0, 49, "Input",ExpressionUUID->"eeea1fbc-15c7-4b79-b5b2-0d2e682c7cb1"], -Cell[27560, 810, 69, 0, 35, "Text",ExpressionUUID->"6509cf0c-3cb5-4484-a79b-9a4e9a4c867b"], -Cell[27632, 812, 70, 0, 48, "Input",ExpressionUUID->"ea3020ca-486a-47b1-95e0-aa46f448646d"], -Cell[27705, 814, 69, 0, 35, "Text",ExpressionUUID->"dc6b5921-169b-4f2d-9120-4c7ca89c05f3"], -Cell[27777, 816, 70, 0, 48, "Input",ExpressionUUID->"12ac5e19-b8fd-477e-a85d-a74e029b6d4c"], -Cell[27850, 818, 69, 0, 35, "Text",ExpressionUUID->"21ac5bf4-2ae7-4b41-8495-ff3b6d5d2017"], -Cell[27922, 820, 70, 0, 45, "Input",ExpressionUUID->"c8865179-994b-4123-9657-507eae2fd52f"], -Cell[27995, 822, 69, 0, 35, "Text",ExpressionUUID->"d352d13e-d96f-4f21-9cc5-32da8a2e376d"], -Cell[28067, 824, 70, 0, 50, "Input",ExpressionUUID->"e2a90d7c-9765-4224-b6c1-0cb3ba56719e"], -Cell[28140, 826, 69, 0, 35, "Text",ExpressionUUID->"4256ed0c-1e05-4553-a95a-370962e94038"], -Cell[28212, 828, 70, 0, 58, "Input",ExpressionUUID->"d7507220-76aa-479e-af51-0886ad0e4f5c"] +Cell[27333, 803, 75, 0, 54, "Subsection",ExpressionUUID->"7471e1f3-36cd-497f-a3e0-06aa7035995d"], +Cell[27411, 805, 69, 0, 35, "Text",ExpressionUUID->"c0165a48-1e75-4237-86f9-15c7a0fc2c6e"], +Cell[27483, 807, 70, 0, 49, "Input",ExpressionUUID->"eeea1fbc-15c7-4b79-b5b2-0d2e682c7cb1"], +Cell[27556, 809, 69, 0, 35, "Text",ExpressionUUID->"6509cf0c-3cb5-4484-a79b-9a4e9a4c867b"], +Cell[27628, 811, 70, 0, 48, "Input",ExpressionUUID->"ea3020ca-486a-47b1-95e0-aa46f448646d"], +Cell[27701, 813, 69, 0, 35, "Text",ExpressionUUID->"dc6b5921-169b-4f2d-9120-4c7ca89c05f3"], +Cell[27773, 815, 70, 0, 48, "Input",ExpressionUUID->"12ac5e19-b8fd-477e-a85d-a74e029b6d4c"], +Cell[27846, 817, 69, 0, 35, "Text",ExpressionUUID->"21ac5bf4-2ae7-4b41-8495-ff3b6d5d2017"], +Cell[27918, 819, 70, 0, 45, "Input",ExpressionUUID->"c8865179-994b-4123-9657-507eae2fd52f"], +Cell[27991, 821, 69, 0, 35, "Text",ExpressionUUID->"d352d13e-d96f-4f21-9cc5-32da8a2e376d"], +Cell[28063, 823, 70, 0, 50, "Input",ExpressionUUID->"e2a90d7c-9765-4224-b6c1-0cb3ba56719e"], +Cell[28136, 825, 69, 0, 35, "Text",ExpressionUUID->"4256ed0c-1e05-4553-a95a-370962e94038"], +Cell[28208, 827, 70, 0, 58, "Input",ExpressionUUID->"d7507220-76aa-479e-af51-0886ad0e4f5c"] }, Closed]], Cell[CellGroupData[{ -Cell[28319, 833, 75, 0, 38, "Subsection",ExpressionUUID->"06909924-3ce1-46cd-9951-a1961992331f"], -Cell[28397, 835, 69, 0, 35, "Text",ExpressionUUID->"00f96a87-a2a3-4e94-b9f7-ae8b20115f53"], -Cell[28469, 837, 70, 0, 49, "Input",ExpressionUUID->"4eb0128c-86a9-44cb-baf0-ed4eebc1e580"], -Cell[28542, 839, 69, 0, 35, "Text",ExpressionUUID->"9803e7ae-a081-4acb-a592-f69d3de67cb1"], -Cell[28614, 841, 70, 0, 48, "Input",ExpressionUUID->"6f3a9707-559f-42d1-a790-59e5b1f4e142"], -Cell[28687, 843, 69, 0, 35, "Text",ExpressionUUID->"d5065f92-c8dc-4b04-8355-2a9254137fdd"], -Cell[28759, 845, 70, 0, 48, "Input",ExpressionUUID->"701f739c-3702-4026-bb77-fd214c3d2d73"], -Cell[28832, 847, 69, 0, 35, "Text",ExpressionUUID->"de63bd9f-a6da-4080-be2f-7a3017d5f45e"], -Cell[28904, 849, 70, 0, 45, "Input",ExpressionUUID->"8bcda35c-6687-40f7-8100-1822b15b723a"], -Cell[28977, 851, 69, 0, 35, "Text",ExpressionUUID->"426f209f-956e-43ba-9527-ec27b0f09378"], -Cell[29049, 853, 70, 0, 50, "Input",ExpressionUUID->"cf1020b9-32d9-40d8-a3f9-f6fd7cc9eb77"], -Cell[29122, 855, 69, 0, 35, "Text",ExpressionUUID->"8b03673b-8e98-4de2-b69e-483417ba6223"], -Cell[29194, 857, 70, 0, 58, "Input",ExpressionUUID->"a883904a-8742-4fa2-8a54-45a9e5a1e807"] +Cell[28315, 832, 75, 0, 38, "Subsection",ExpressionUUID->"06909924-3ce1-46cd-9951-a1961992331f"], +Cell[28393, 834, 69, 0, 35, "Text",ExpressionUUID->"00f96a87-a2a3-4e94-b9f7-ae8b20115f53"], +Cell[28465, 836, 70, 0, 49, "Input",ExpressionUUID->"4eb0128c-86a9-44cb-baf0-ed4eebc1e580"], +Cell[28538, 838, 69, 0, 35, "Text",ExpressionUUID->"9803e7ae-a081-4acb-a592-f69d3de67cb1"], +Cell[28610, 840, 70, 0, 48, "Input",ExpressionUUID->"6f3a9707-559f-42d1-a790-59e5b1f4e142"], +Cell[28683, 842, 69, 0, 35, "Text",ExpressionUUID->"d5065f92-c8dc-4b04-8355-2a9254137fdd"], +Cell[28755, 844, 70, 0, 48, "Input",ExpressionUUID->"701f739c-3702-4026-bb77-fd214c3d2d73"], +Cell[28828, 846, 69, 0, 35, "Text",ExpressionUUID->"de63bd9f-a6da-4080-be2f-7a3017d5f45e"], +Cell[28900, 848, 70, 0, 45, "Input",ExpressionUUID->"8bcda35c-6687-40f7-8100-1822b15b723a"], +Cell[28973, 850, 69, 0, 35, "Text",ExpressionUUID->"426f209f-956e-43ba-9527-ec27b0f09378"], +Cell[29045, 852, 70, 0, 50, "Input",ExpressionUUID->"cf1020b9-32d9-40d8-a3f9-f6fd7cc9eb77"], +Cell[29118, 854, 69, 0, 35, "Text",ExpressionUUID->"8b03673b-8e98-4de2-b69e-483417ba6223"], +Cell[29190, 856, 70, 0, 58, "Input",ExpressionUUID->"a883904a-8742-4fa2-8a54-45a9e5a1e807"] }, Closed]], Cell[CellGroupData[{ -Cell[29301, 862, 75, 0, 38, "Subsection",ExpressionUUID->"77af7129-5b6f-46d1-972e-088c04a397e1"], -Cell[29379, 864, 69, 0, 35, "Text",ExpressionUUID->"137a2815-3e41-4c54-bb77-2baab3309f67"], -Cell[29451, 866, 70, 0, 49, "Input",ExpressionUUID->"ee1a49a3-d78d-48fd-b18b-b45c556268d6"], -Cell[29524, 868, 69, 0, 35, "Text",ExpressionUUID->"7f6139ea-87a7-485f-96a7-072785ed5a50"], -Cell[29596, 870, 70, 0, 48, "Input",ExpressionUUID->"e2512605-e53f-4895-bc29-b005c70f53b5"], +Cell[29297, 861, 75, 0, 38, "Subsection",ExpressionUUID->"77af7129-5b6f-46d1-972e-088c04a397e1"], +Cell[29375, 863, 69, 0, 35, "Text",ExpressionUUID->"137a2815-3e41-4c54-bb77-2baab3309f67"], +Cell[29447, 865, 70, 0, 49, "Input",ExpressionUUID->"ee1a49a3-d78d-48fd-b18b-b45c556268d6"], +Cell[29520, 867, 69, 0, 35, "Text",ExpressionUUID->"7f6139ea-87a7-485f-96a7-072785ed5a50"], +Cell[29592, 869, 70, 0, 48, "Input",ExpressionUUID->"e2512605-e53f-4895-bc29-b005c70f53b5"], Cell[CellGroupData[{ -Cell[29691, 874, 70, 0, 50, "Input",ExpressionUUID->"2caf6c5b-6ae4-41ea-a5bc-6e2553b311b0"], -Cell[29764, 876, 71, 0, 55, "Output",ExpressionUUID->"71a67885-8142-46b8-9292-410654424b59"] +Cell[29687, 873, 70, 0, 50, "Input",ExpressionUUID->"2caf6c5b-6ae4-41ea-a5bc-6e2553b311b0"], +Cell[29760, 875, 71, 0, 55, "Output",ExpressionUUID->"71a67885-8142-46b8-9292-410654424b59"] }, Open ]], -Cell[29850, 879, 69, 0, 35, "Text",ExpressionUUID->"32015b28-f5cc-4eff-8d8d-b8691b888e8f"], -Cell[29922, 881, 70, 0, 48, "Input",ExpressionUUID->"1fcbd290-f3ea-43bd-b2ef-f31601137679"], -Cell[29995, 883, 69, 0, 35, "Text",ExpressionUUID->"9b1e04fb-55cb-4e81-8daf-ba707c78dfce"], -Cell[30067, 885, 70, 0, 45, "Input",ExpressionUUID->"c51ccbbc-5ee1-4cca-ade7-af230c7f6ba6"], -Cell[30140, 887, 69, 0, 35, "Text",ExpressionUUID->"8bfb35af-a4e4-4813-ae15-3703f4aeab96"], -Cell[30212, 889, 70, 0, 50, "Input",ExpressionUUID->"60e340d1-6bd1-4928-9814-51c59353edd1"], -Cell[30285, 891, 69, 0, 35, "Text",ExpressionUUID->"f5f45693-a80c-4a46-ad73-07811620c0d9"], -Cell[30357, 893, 70, 0, 58, "Input",ExpressionUUID->"f99857fd-0430-402d-a733-929b6b359e23"] +Cell[29846, 878, 69, 0, 35, "Text",ExpressionUUID->"32015b28-f5cc-4eff-8d8d-b8691b888e8f"], +Cell[29918, 880, 70, 0, 48, "Input",ExpressionUUID->"1fcbd290-f3ea-43bd-b2ef-f31601137679"], +Cell[29991, 882, 69, 0, 35, "Text",ExpressionUUID->"9b1e04fb-55cb-4e81-8daf-ba707c78dfce"], +Cell[30063, 884, 70, 0, 45, "Input",ExpressionUUID->"c51ccbbc-5ee1-4cca-ade7-af230c7f6ba6"], +Cell[30136, 886, 69, 0, 35, "Text",ExpressionUUID->"8bfb35af-a4e4-4813-ae15-3703f4aeab96"], +Cell[30208, 888, 70, 0, 50, "Input",ExpressionUUID->"60e340d1-6bd1-4928-9814-51c59353edd1"], +Cell[30281, 890, 69, 0, 35, "Text",ExpressionUUID->"f5f45693-a80c-4a46-ad73-07811620c0d9"], +Cell[30353, 892, 70, 0, 58, "Input",ExpressionUUID->"f99857fd-0430-402d-a733-929b6b359e23"] }, Closed]], Cell[CellGroupData[{ -Cell[30464, 898, 75, 0, 38, "Subsection",ExpressionUUID->"ef62b877-dbc0-41f4-bb50-f7bab5069a50"], -Cell[30542, 900, 69, 0, 35, "Text",ExpressionUUID->"5b10be0f-a732-422f-9446-681c78cbd103"], -Cell[30614, 902, 70, 0, 32, "Input",ExpressionUUID->"009be4dc-79a6-499d-b9af-ddbb9078f85a"], -Cell[30687, 904, 70, 0, 53, "Input",ExpressionUUID->"afd8bd15-999f-411c-a673-53d5b75e5201"], -Cell[30760, 906, 69, 0, 35, "Text",ExpressionUUID->"1fe4835f-3b82-458a-9e2a-9272922b081a"], -Cell[30832, 908, 70, 0, 58, "Input",ExpressionUUID->"b5e6e435-424a-4f3e-8416-709ae4356a73"], -Cell[30905, 910, 69, 0, 58, "Text",ExpressionUUID->"d05917ae-a767-4a78-834a-c4b18c1c0b13"] +Cell[30460, 897, 75, 0, 38, "Subsection",ExpressionUUID->"ef62b877-dbc0-41f4-bb50-f7bab5069a50"], +Cell[30538, 899, 69, 0, 35, "Text",ExpressionUUID->"5b10be0f-a732-422f-9446-681c78cbd103"], +Cell[30610, 901, 70, 0, 32, "Input",ExpressionUUID->"009be4dc-79a6-499d-b9af-ddbb9078f85a"], +Cell[30683, 903, 70, 0, 53, "Input",ExpressionUUID->"afd8bd15-999f-411c-a673-53d5b75e5201"], +Cell[30756, 905, 69, 0, 35, "Text",ExpressionUUID->"1fe4835f-3b82-458a-9e2a-9272922b081a"], +Cell[30828, 907, 70, 0, 58, "Input",ExpressionUUID->"b5e6e435-424a-4f3e-8416-709ae4356a73"], +Cell[30901, 909, 69, 0, 58, "Text",ExpressionUUID->"d05917ae-a767-4a78-834a-c4b18c1c0b13"] }, Closed]], Cell[CellGroupData[{ -Cell[31011, 915, 75, 0, 38, "Subsection",ExpressionUUID->"bcd158fd-9aa7-4c7b-837e-afd37c54f55a"], -Cell[31089, 917, 69, 0, 58, "Text",ExpressionUUID->"a0112f10-d580-4370-a6ed-bff98b24a4a6"], -Cell[31161, 919, 70, 0, 101, "Input",ExpressionUUID->"aabf1284-1a62-408f-8d1c-50c99b5acc35"], -Cell[31234, 921, 69, 0, 35, "Text",ExpressionUUID->"88a4bd50-0ba7-4f7c-9fc0-e0feb01831fc"], -Cell[31306, 923, 70, 0, 48, "Input",ExpressionUUID->"a889f096-9a50-426c-9cf3-81c363ec2eaf"], -Cell[31379, 925, 69, 0, 35, "Text",ExpressionUUID->"d3c69495-05ef-49fe-8484-fa7fd62cc408"], -Cell[31451, 927, 70, 0, 58, "Input",ExpressionUUID->"0138b572-760b-4f82-a618-73197e776fa2"], -Cell[31524, 929, 69, 0, 35, "Text",ExpressionUUID->"b83db319-04e5-42b8-ae4c-57f93abe09fd"] +Cell[31007, 914, 75, 0, 38, "Subsection",ExpressionUUID->"bcd158fd-9aa7-4c7b-837e-afd37c54f55a"], +Cell[31085, 916, 69, 0, 58, "Text",ExpressionUUID->"a0112f10-d580-4370-a6ed-bff98b24a4a6"], +Cell[31157, 918, 70, 0, 101, "Input",ExpressionUUID->"aabf1284-1a62-408f-8d1c-50c99b5acc35"], +Cell[31230, 920, 69, 0, 35, "Text",ExpressionUUID->"88a4bd50-0ba7-4f7c-9fc0-e0feb01831fc"], +Cell[31302, 922, 70, 0, 48, "Input",ExpressionUUID->"a889f096-9a50-426c-9cf3-81c363ec2eaf"], +Cell[31375, 924, 69, 0, 35, "Text",ExpressionUUID->"d3c69495-05ef-49fe-8484-fa7fd62cc408"], +Cell[31447, 926, 70, 0, 58, "Input",ExpressionUUID->"0138b572-760b-4f82-a618-73197e776fa2"], +Cell[31520, 928, 69, 0, 35, "Text",ExpressionUUID->"b83db319-04e5-42b8-ae4c-57f93abe09fd"] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[31642, 935, 240, 4, 53, "Section",ExpressionUUID->"258ca12d-c8c5-4bc9-84ec-1711f7860786"], +Cell[31638, 934, 240, 4, 53, "Section",ExpressionUUID->"258ca12d-c8c5-4bc9-84ec-1711f7860786"], Cell[CellGroupData[{ -Cell[31907, 943, 378, 6, 54, "Subsection",ExpressionUUID->"1f7fd91a-8b15-493d-99e6-d7e40486d265"], -Cell[32288, 951, 4280, 105, 217, "Input",ExpressionUUID->"2c3eb4d2-28fa-4072-acba-f33846909355"], -Cell[36571, 1058, 3542, 81, 152, "Input",ExpressionUUID->"c078489f-d878-44cc-991e-1146d0ec84cb"], -Cell[40116, 1141, 4668, 125, 128, "Input",ExpressionUUID->"9d8f3aff-de80-478e-b7fa-93c98d3997e8"], +Cell[31903, 942, 378, 6, 54, "Subsection",ExpressionUUID->"1f7fd91a-8b15-493d-99e6-d7e40486d265"], +Cell[32284, 950, 4280, 105, 217, "Input",ExpressionUUID->"2c3eb4d2-28fa-4072-acba-f33846909355"], +Cell[36567, 1057, 3542, 81, 152, "Input",ExpressionUUID->"c078489f-d878-44cc-991e-1146d0ec84cb"], +Cell[40112, 1140, 4668, 125, 128, "Input",ExpressionUUID->"9d8f3aff-de80-478e-b7fa-93c98d3997e8"], Cell[CellGroupData[{ -Cell[44809, 1270, 2263, 57, 127, "Input",ExpressionUUID->"04f137ec-ad47-4cb8-a976-ec708cc8747a"], -Cell[47075, 1329, 1227, 20, 34, "Output",ExpressionUUID->"5fafddca-de0e-4199-8a06-2f07bcbeb991"], -Cell[48305, 1351, 1225, 20, 34, "Output",ExpressionUUID->"fc860ff0-d7ef-459d-b9bd-49bdcfea456c"], -Cell[49533, 1373, 1244, 21, 34, "Output",ExpressionUUID->"be1fc15b-822b-40ee-83e7-f10e88666d7f"] +Cell[44805, 1269, 2263, 57, 127, "Input",ExpressionUUID->"04f137ec-ad47-4cb8-a976-ec708cc8747a"], +Cell[47071, 1328, 1227, 20, 34, "Output",ExpressionUUID->"5fafddca-de0e-4199-8a06-2f07bcbeb991"], +Cell[48301, 1350, 1225, 20, 34, "Output",ExpressionUUID->"fc860ff0-d7ef-459d-b9bd-49bdcfea456c"], +Cell[49529, 1372, 1244, 21, 34, "Output",ExpressionUUID->"be1fc15b-822b-40ee-83e7-f10e88666d7f"] }, Open ]], -Cell[50792, 1397, 2896, 78, 136, "Input",ExpressionUUID->"f39e798a-cf02-4ca3-8667-7392e238bcca"], +Cell[50788, 1396, 2896, 78, 136, "Input",ExpressionUUID->"f39e798a-cf02-4ca3-8667-7392e238bcca"], Cell[CellGroupData[{ -Cell[53713, 1479, 6107, 141, 539, "Input",ExpressionUUID->"b42b1902-b9ba-401f-a9df-30e4652a34c1"], -Cell[59823, 1622, 246230, 4464, 548, "Output",ExpressionUUID->"3814bb40-977e-43cc-93e3-d1f0e33f8853"] +Cell[53709, 1478, 6107, 141, 539, "Input",ExpressionUUID->"b42b1902-b9ba-401f-a9df-30e4652a34c1"], +Cell[59819, 1621, 246230, 4464, 548, "Output",ExpressionUUID->"3814bb40-977e-43cc-93e3-d1f0e33f8853"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[306102, 6092, 347, 5, 38, "Subsection",ExpressionUUID->"ee1991f0-6627-4afa-871c-73710071f6fd"], -Cell[306452, 6099, 69, 0, 58, "Text",ExpressionUUID->"a6c10556-4f53-4da2-8cf0-79bbf3ec1242"], -Cell[306524, 6101, 70, 0, 64, "Input",ExpressionUUID->"1885d9ca-6bb6-490d-a0bb-a3b96576a614"], -Cell[306597, 6103, 69, 0, 35, "Text",ExpressionUUID->"ead26072-79d4-4549-aab6-46fe8cf9b6db"] +Cell[306098, 6091, 347, 5, 38, "Subsection",ExpressionUUID->"ee1991f0-6627-4afa-871c-73710071f6fd"], +Cell[306448, 6098, 69, 0, 58, "Text",ExpressionUUID->"a6c10556-4f53-4da2-8cf0-79bbf3ec1242"], +Cell[306520, 6100, 70, 0, 64, "Input",ExpressionUUID->"1885d9ca-6bb6-490d-a0bb-a3b96576a614"], +Cell[306593, 6102, 69, 0, 35, "Text",ExpressionUUID->"ead26072-79d4-4549-aab6-46fe8cf9b6db"] }, Closed]], Cell[CellGroupData[{ -Cell[306703, 6108, 402, 6, 38, "Subsection",ExpressionUUID->"c8de2476-91f6-4969-bc63-5a0edddc037b"], -Cell[307108, 6116, 69, 0, 35, "Text",ExpressionUUID->"948c535c-78c0-4ae1-af5f-ceb0ef5ab1d8"], -Cell[307180, 6118, 70, 0, 64, "Input",ExpressionUUID->"edc3aa38-1c1d-4d5b-b770-bc52ca77fadc"] +Cell[306699, 6107, 402, 6, 38, "Subsection",ExpressionUUID->"c8de2476-91f6-4969-bc63-5a0edddc037b"], +Cell[307104, 6115, 69, 0, 35, "Text",ExpressionUUID->"948c535c-78c0-4ae1-af5f-ceb0ef5ab1d8"], +Cell[307176, 6117, 70, 0, 64, "Input",ExpressionUUID->"edc3aa38-1c1d-4d5b-b770-bc52ca77fadc"] }, Closed]], Cell[CellGroupData[{ -Cell[307287, 6123, 353, 5, 38, "Subsection",ExpressionUUID->"ac951d60-fbce-44ba-8f12-9e5545df5beb"], -Cell[307643, 6130, 69, 0, 35, "Text",ExpressionUUID->"dca5790f-2358-43e0-b359-677842457a7d"], -Cell[307715, 6132, 70, 0, 64, "Input",ExpressionUUID->"cce86f90-52f7-41f4-a63d-73a6c518b4c3"] +Cell[307283, 6122, 353, 5, 38, "Subsection",ExpressionUUID->"ac951d60-fbce-44ba-8f12-9e5545df5beb"], +Cell[307639, 6129, 69, 0, 35, "Text",ExpressionUUID->"dca5790f-2358-43e0-b359-677842457a7d"], +Cell[307711, 6131, 70, 0, 64, "Input",ExpressionUUID->"cce86f90-52f7-41f4-a63d-73a6c518b4c3"] }, Closed]], Cell[CellGroupData[{ -Cell[307822, 6137, 348, 5, 38, "Subsection",ExpressionUUID->"9f2ce783-2740-403c-974c-46a7ef9321fe"], -Cell[308173, 6144, 69, 0, 35, "Text",ExpressionUUID->"6c7b6dc7-06c2-4f95-a398-fe8f7adea7db"], -Cell[308245, 6146, 70, 0, 32, "Input",ExpressionUUID->"c5451bea-41ca-4be3-9429-a6d8ddd06c4a"] +Cell[307818, 6136, 348, 5, 38, "Subsection",ExpressionUUID->"9f2ce783-2740-403c-974c-46a7ef9321fe"], +Cell[308169, 6143, 69, 0, 35, "Text",ExpressionUUID->"6c7b6dc7-06c2-4f95-a398-fe8f7adea7db"], +Cell[308241, 6145, 70, 0, 32, "Input",ExpressionUUID->"c5451bea-41ca-4be3-9429-a6d8ddd06c4a"] }, Closed]], Cell[CellGroupData[{ -Cell[308352, 6151, 468, 8, 38, "Subsection",ExpressionUUID->"ab8ea4d9-6951-44dc-96fc-10c74ccd1a4f"], -Cell[308823, 6161, 279, 6, 35, "Text",ExpressionUUID->"f0dac186-7114-4a5e-b53c-f938d8c4fd37"], -Cell[309105, 6169, 1342, 40, 33, "Input",ExpressionUUID->"2ca8802e-361f-4487-a3f0-67d18fc8fe5f"], -Cell[310450, 6211, 386, 8, 35, "Text",ExpressionUUID->"00fbe382-6c25-4893-a74d-546919a831b8"], -Cell[310839, 6221, 368, 8, 32, "Input",ExpressionUUID->"b7e98868-257f-43e4-b057-ff1cbb083046"], -Cell[311210, 6231, 728, 11, 104, "Text",ExpressionUUID->"336e8167-7e94-4334-9956-c0652866375e"] +Cell[308348, 6150, 468, 8, 38, "Subsection",ExpressionUUID->"ab8ea4d9-6951-44dc-96fc-10c74ccd1a4f"], +Cell[308819, 6160, 279, 6, 35, "Text",ExpressionUUID->"f0dac186-7114-4a5e-b53c-f938d8c4fd37"], +Cell[309101, 6168, 1342, 40, 33, "Input",ExpressionUUID->"2ca8802e-361f-4487-a3f0-67d18fc8fe5f"], +Cell[310446, 6210, 386, 8, 35, "Text",ExpressionUUID->"00fbe382-6c25-4893-a74d-546919a831b8"], +Cell[310835, 6220, 368, 8, 32, "Input",ExpressionUUID->"b7e98868-257f-43e4-b057-ff1cbb083046"], +Cell[311206, 6230, 728, 11, 104, "Text",ExpressionUUID->"336e8167-7e94-4334-9956-c0652866375e"] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[311987, 6248, 159, 3, 53, "Section",ExpressionUUID->"32a651af-a3d2-413d-9f35-7c39c325142c"], -Cell[312149, 6253, 69, 0, 35, "Text",ExpressionUUID->"36150f4f-2e5c-47ee-a5bf-01307e79bf8c"], +Cell[311983, 6247, 159, 3, 53, "Section",ExpressionUUID->"32a651af-a3d2-413d-9f35-7c39c325142c"], +Cell[312145, 6252, 69, 0, 35, "Text",ExpressionUUID->"36150f4f-2e5c-47ee-a5bf-01307e79bf8c"], Cell[CellGroupData[{ -Cell[312243, 6257, 70, 0, 47, "Input",ExpressionUUID->"83381296-964a-478d-9311-55bb4bfa3868"], -Cell[312316, 6259, 71, 0, 34, "Output",ExpressionUUID->"4060d59e-f126-4563-8f66-924798c9a356"] +Cell[312239, 6256, 70, 0, 47, "Input",ExpressionUUID->"83381296-964a-478d-9311-55bb4bfa3868"], +Cell[312312, 6258, 71, 0, 34, "Output",ExpressionUUID->"4060d59e-f126-4563-8f66-924798c9a356"] }, Open ]], Cell[CellGroupData[{ -Cell[312424, 6264, 70, 0, 67, "Input",ExpressionUUID->"b9647e70-b4d2-4087-8f5e-b33fdef2477f"], -Cell[312497, 6266, 71, 0, 34, "Output",ExpressionUUID->"24dc2015-e906-4b61-85ce-d7c040f0a99f"] +Cell[312420, 6263, 70, 0, 67, "Input",ExpressionUUID->"b9647e70-b4d2-4087-8f5e-b33fdef2477f"], +Cell[312493, 6265, 71, 0, 34, "Output",ExpressionUUID->"24dc2015-e906-4b61-85ce-d7c040f0a99f"] }, Open ]], -Cell[312583, 6269, 69, 0, 35, "Text",ExpressionUUID->"38868322-9474-42e6-8c64-219d7c4bae84"], -Cell[312655, 6271, 69, 0, 35, "Text",ExpressionUUID->"13c78453-f1c1-4854-92cd-b80d6af14b81"], +Cell[312579, 6268, 69, 0, 35, "Text",ExpressionUUID->"38868322-9474-42e6-8c64-219d7c4bae84"], +Cell[312651, 6270, 69, 0, 35, "Text",ExpressionUUID->"13c78453-f1c1-4854-92cd-b80d6af14b81"], Cell[CellGroupData[{ -Cell[312749, 6275, 70, 0, 69, "Input",ExpressionUUID->"5d222dbb-a1d4-47ed-91f8-960fb45a6796"], -Cell[312822, 6277, 71, 0, 34, "Output",ExpressionUUID->"89459a83-2c7d-48c6-861a-380e25f1eb9e"] +Cell[312745, 6274, 70, 0, 69, "Input",ExpressionUUID->"5d222dbb-a1d4-47ed-91f8-960fb45a6796"], +Cell[312818, 6276, 71, 0, 34, "Output",ExpressionUUID->"89459a83-2c7d-48c6-861a-380e25f1eb9e"] }, Open ]], -Cell[312908, 6280, 69, 0, 35, "Text",ExpressionUUID->"201a58be-f2a7-46a3-83f2-0ea3fd86a05c"], +Cell[312904, 6279, 69, 0, 35, "Text",ExpressionUUID->"201a58be-f2a7-46a3-83f2-0ea3fd86a05c"], Cell[CellGroupData[{ -Cell[313002, 6284, 70, 0, 69, "Input",ExpressionUUID->"9d8cd929-2a73-473b-9f38-5b575f35323f"], -Cell[313075, 6286, 71, 0, 34, "Output",ExpressionUUID->"d7e5146b-7859-447e-8e59-27a8ecc6d109"] +Cell[312998, 6283, 70, 0, 69, "Input",ExpressionUUID->"9d8cd929-2a73-473b-9f38-5b575f35323f"], +Cell[313071, 6285, 71, 0, 34, "Output",ExpressionUUID->"d7e5146b-7859-447e-8e59-27a8ecc6d109"] }, Open ]], -Cell[313161, 6289, 69, 0, 35, "Text",ExpressionUUID->"df0161b1-c572-4c9e-a7dd-915170b4bf06"], +Cell[313157, 6288, 69, 0, 35, "Text",ExpressionUUID->"df0161b1-c572-4c9e-a7dd-915170b4bf06"], Cell[CellGroupData[{ -Cell[313255, 6293, 70, 0, 69, "Input",ExpressionUUID->"34b4a3a0-197b-4fa0-af8e-5feba6af095e"], -Cell[313328, 6295, 71, 0, 55, "Output",ExpressionUUID->"86152b86-44c6-486b-8a24-60adc90b85a2"] +Cell[313251, 6292, 70, 0, 69, "Input",ExpressionUUID->"34b4a3a0-197b-4fa0-af8e-5feba6af095e"], +Cell[313324, 6294, 71, 0, 55, "Output",ExpressionUUID->"86152b86-44c6-486b-8a24-60adc90b85a2"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[313460, 6302, 211, 4, 72, "Title",ExpressionUUID->"d8a7ce9c-a1d9-4ac0-b8bf-9ca66a94ac58"], -Cell[313674, 6308, 197, 3, 35, "Text",ExpressionUUID->"d408aeeb-1654-4525-903e-88994da645ee"], -Cell[313874, 6313, 3188, 95, 213, "Input",ExpressionUUID->"f51f78c8-fe8e-48f3-a562-1209bfc50f71", +Cell[313456, 6301, 211, 4, 72, "Title",ExpressionUUID->"d8a7ce9c-a1d9-4ac0-b8bf-9ca66a94ac58"], +Cell[313670, 6307, 214, 4, 35, "Text",ExpressionUUID->"d38e2fe6-260d-4638-b639-6984dd9d14e4"], +Cell[313887, 6313, 718, 20, 51, "Input",ExpressionUUID->"2734480a-f1a6-49d2-867a-eb64f4c32842", InitializationCell->True], -Cell[317065, 6410, 2221, 60, 131, "Input",ExpressionUUID->"dd062623-5a91-460e-945c-d5f15e24abfb", +Cell[314608, 6335, 210, 4, 35, "Text",ExpressionUUID->"e115f0cc-d9e8-4997-a5a4-88b0e9ed97e0"], +Cell[314821, 6341, 3725, 97, 140, "Input",ExpressionUUID->"db718d8d-e526-48f0-9271-0a78d9b18da9", InitializationCell->True], -Cell[319289, 6472, 198, 3, 35, "Text",ExpressionUUID->"683219a6-4bcc-4fb8-93b5-7c590bc511b5"], -Cell[319490, 6477, 5783, 167, 394, "Input",ExpressionUUID->"c5e15fc2-7ce6-4ed3-bc7f-bcdc9085134d", +Cell[318549, 6440, 276, 5, 35, "Text",ExpressionUUID->"5353bb94-3a0f-4a57-a4c7-bf24da4dc996"], +Cell[318828, 6447, 29162, 691, 419, "Input",ExpressionUUID->"992d7d49-0c9a-4bb6-8d3a-901f5e91ec9e", InitializationCell->True], -Cell[325276, 6646, 3681, 108, 207, "Input",ExpressionUUID->"8db93606-ec73-4fe8-9228-51f79c4ef957", +Cell[347993, 7140, 227, 4, 35, "Text",ExpressionUUID->"5b2593a5-509e-44f9-a6a7-5b7dcf896d99"], +Cell[348223, 7146, 1932, 59, 60, "Input",ExpressionUUID->"1f629f77-d334-4620-8d3f-be59496227ae", InitializationCell->True], -Cell[328960, 6756, 2221, 60, 131, "Input",ExpressionUUID->"3c5be8aa-305f-4c0e-a51a-4bc92cdcf171", +Cell[350158, 7207, 264, 5, 35, "Text",ExpressionUUID->"8580055f-686c-403d-8800-a4eab889fce4"], +Cell[350425, 7214, 1934, 58, 68, "Input",ExpressionUUID->"518221a1-6d90-4f98-b202-e0a1237c66be", InitializationCell->True], -Cell[331184, 6818, 256, 4, 35, "Text",ExpressionUUID->"264d5181-32f7-492d-a01f-33c1ad90708e"], -Cell[331443, 6824, 1844, 48, 131, "Input",ExpressionUUID->"f6517707-c164-4ea9-b57c-8d4d27eafad3", +Cell[352362, 7274, 1712, 46, 46, "Input",ExpressionUUID->"826d1421-eaa2-4927-b8f0-d6e94907b411", InitializationCell->True], -Cell[333290, 6874, 1774, 49, 131, "Input",ExpressionUUID->"33dfcd59-33cc-4f88-bc22-62c17b91dbeb", +Cell[354077, 7322, 267, 5, 35, "Text",ExpressionUUID->"6e302dfa-38b2-43a3-a507-71bf2633d8e8"], +Cell[354347, 7329, 1679, 50, 57, "Input",ExpressionUUID->"66bff11a-7ac3-4f55-a36e-87109bcaacc4", InitializationCell->True], -Cell[335067, 6925, 1758, 44, 152, "Input",ExpressionUUID->"9663902a-8667-481b-b613-f1c2b56b8e76", +Cell[356029, 7381, 3160, 94, 121, "Input",ExpressionUUID->"9aa9a7f6-b424-4f42-886d-8a729280230c", InitializationCell->True], -Cell[336828, 6971, 214, 4, 35, "Text",ExpressionUUID->"d38e2fe6-260d-4638-b639-6984dd9d14e4"], -Cell[337045, 6977, 718, 20, 51, "Input",ExpressionUUID->"2734480a-f1a6-49d2-867a-eb64f4c32842", +Cell[359192, 7477, 1479, 47, 99, "Input",ExpressionUUID->"d5cb2cfc-1bb6-4082-82a5-3535f57f0596", InitializationCell->True], -Cell[337766, 6999, 210, 4, 35, "Text",ExpressionUUID->"e115f0cc-d9e8-4997-a5a4-88b0e9ed97e0"], -Cell[337979, 7005, 3725, 97, 140, "Input",ExpressionUUID->"db718d8d-e526-48f0-9271-0a78d9b18da9", +Cell[360674, 7526, 258, 5, 35, "Text",ExpressionUUID->"94763911-d015-4b98-a645-b27f631322bf"], +Cell[360935, 7533, 719, 17, 53, "Input",ExpressionUUID->"2f6856b4-fef1-42e2-8102-abc9bf400468", InitializationCell->True], -Cell[341707, 7104, 276, 5, 35, "Text",ExpressionUUID->"5353bb94-3a0f-4a57-a4c7-bf24da4dc996"], -Cell[341986, 7111, 29162, 691, 419, "Input",ExpressionUUID->"992d7d49-0c9a-4bb6-8d3a-901f5e91ec9e", +Cell[361657, 7552, 214, 4, 35, "Text",ExpressionUUID->"04f91dc9-a818-4dc9-a431-8d20ab592198"], +Cell[361874, 7558, 2366, 65, 139, "Input",ExpressionUUID->"706dddc8-ea42-4d32-a39d-6cda4548386f", InitializationCell->True], -Cell[371151, 7804, 227, 4, 35, "Text",ExpressionUUID->"5b2593a5-509e-44f9-a6a7-5b7dcf896d99"], -Cell[371381, 7810, 1932, 59, 60, "Input",ExpressionUUID->"1f629f77-d334-4620-8d3f-be59496227ae", +Cell[364243, 7625, 3266, 92, 68, "Input",ExpressionUUID->"5b6bcadc-bebc-485a-ad8a-15c5607cdb5c", InitializationCell->True], -Cell[373316, 7871, 264, 5, 35, "Text",ExpressionUUID->"8580055f-686c-403d-8800-a4eab889fce4"], -Cell[373583, 7878, 1934, 58, 68, "Input",ExpressionUUID->"518221a1-6d90-4f98-b202-e0a1237c66be", +Cell[367512, 7719, 1485, 37, 46, "Input",ExpressionUUID->"3f009055-aba3-4b84-afda-b4550565a952", InitializationCell->True], -Cell[375520, 7938, 1712, 46, 46, "Input",ExpressionUUID->"826d1421-eaa2-4927-b8f0-d6e94907b411", +Cell[369000, 7758, 1836, 56, 46, "Input",ExpressionUUID->"5ac9021a-5169-4112-a93a-cba8cac2204c", InitializationCell->True], -Cell[377235, 7986, 267, 5, 35, "Text",ExpressionUUID->"6e302dfa-38b2-43a3-a507-71bf2633d8e8"], -Cell[377505, 7993, 1679, 50, 57, "Input",ExpressionUUID->"66bff11a-7ac3-4f55-a36e-87109bcaacc4", +Cell[370839, 7816, 301, 5, 35, "Text",ExpressionUUID->"acf62eaa-9c57-4e21-98ab-4e5f44a5d9f7"], +Cell[371143, 7823, 6094, 160, 165, "Input",ExpressionUUID->"3be982ec-1101-45a8-b5c0-a041ea88edd9", InitializationCell->True], -Cell[379187, 8045, 3160, 94, 121, "Input",ExpressionUUID->"9aa9a7f6-b424-4f42-886d-8a729280230c", +Cell[377240, 7985, 3605, 98, 68, "Input",ExpressionUUID->"d0a62c85-f71a-491c-97db-c302cc831e5e", InitializationCell->True], -Cell[382350, 8141, 1479, 47, 99, "Input",ExpressionUUID->"d5cb2cfc-1bb6-4082-82a5-3535f57f0596", +Cell[380848, 8085, 1510, 37, 46, "Input",ExpressionUUID->"199d4133-2756-40fa-b213-5caba9575a52", InitializationCell->True], -Cell[383832, 8190, 258, 5, 35, "Text",ExpressionUUID->"94763911-d015-4b98-a645-b27f631322bf"], -Cell[384093, 8197, 719, 17, 53, "Input",ExpressionUUID->"2f6856b4-fef1-42e2-8102-abc9bf400468", +Cell[382361, 8124, 6619, 179, 211, "Input",ExpressionUUID->"ca733f68-29b1-4ede-890a-2e209d3bc36f", InitializationCell->True], -Cell[384815, 8216, 214, 4, 35, "Text",ExpressionUUID->"04f91dc9-a818-4dc9-a431-8d20ab592198"], -Cell[385032, 8222, 2366, 65, 139, "Input",ExpressionUUID->"706dddc8-ea42-4d32-a39d-6cda4548386f", +Cell[388983, 8305, 352, 6, 35, "Text",ExpressionUUID->"1e4ce167-3a3b-4c53-9c2a-63a8f4ac6e4e"], +Cell[389338, 8313, 4662, 123, 131, "Input",ExpressionUUID->"1d78f4a6-ed20-4f56-9454-6451173421a8", InitializationCell->True], -Cell[387401, 8289, 3266, 92, 68, "Input",ExpressionUUID->"5b6bcadc-bebc-485a-ad8a-15c5607cdb5c", +Cell[394003, 8438, 3511, 94, 68, "Input",ExpressionUUID->"e0df8f2f-e94b-41f6-a1eb-0f9b564c8f35", InitializationCell->True], -Cell[390670, 8383, 1485, 37, 46, "Input",ExpressionUUID->"3f009055-aba3-4b84-afda-b4550565a952", +Cell[397517, 8534, 1517, 37, 46, "Input",ExpressionUUID->"6b5c7c1f-450b-46ac-b346-08b59f3c48ff", InitializationCell->True], -Cell[392158, 8422, 1818, 57, 46, "Input",ExpressionUUID->"5ac9021a-5169-4112-a93a-cba8cac2204c", +Cell[399037, 8573, 4528, 122, 165, "Input",ExpressionUUID->"89004a84-80b2-4ac8-b3e7-192619b48c85", InitializationCell->True], -Cell[393979, 8481, 301, 5, 35, "Text",ExpressionUUID->"acf62eaa-9c57-4e21-98ab-4e5f44a5d9f7"], -Cell[394283, 8488, 6094, 160, 165, "Input",ExpressionUUID->"3be982ec-1101-45a8-b5c0-a041ea88edd9", +Cell[403568, 8697, 253, 5, 35, "Text",ExpressionUUID->"eeb33af8-ab09-4c5f-98a3-684ae529c2b6"], +Cell[403824, 8704, 3248, 86, 57, "Input",ExpressionUUID->"7baf2fbf-1852-4d4a-8204-082346ecd571", InitializationCell->True], -Cell[400380, 8650, 3605, 98, 68, "Input",ExpressionUUID->"d0a62c85-f71a-491c-97db-c302cc831e5e", +Cell[407075, 8792, 320, 6, 35, "Text",ExpressionUUID->"d81923d6-2f61-4e28-9498-a6ac201db475"], +Cell[407398, 8800, 4289, 114, 231, "Input",ExpressionUUID->"2ada455b-0f69-4044-aa86-e64ea1196ef1", InitializationCell->True], -Cell[403988, 8750, 1510, 37, 46, "Input",ExpressionUUID->"199d4133-2756-40fa-b213-5caba9575a52", - InitializationCell->True], -Cell[405501, 8789, 6597, 179, 211, "Input",ExpressionUUID->"ca733f68-29b1-4ede-890a-2e209d3bc36f", - InitializationCell->True], -Cell[412101, 8970, 352, 6, 35, "Text",ExpressionUUID->"1e4ce167-3a3b-4c53-9c2a-63a8f4ac6e4e"], -Cell[412456, 8978, 4662, 123, 131, "Input",ExpressionUUID->"1d78f4a6-ed20-4f56-9454-6451173421a8", - InitializationCell->True], -Cell[417121, 9103, 3511, 94, 68, "Input",ExpressionUUID->"e0df8f2f-e94b-41f6-a1eb-0f9b564c8f35", - InitializationCell->True], -Cell[420635, 9199, 1517, 37, 46, "Input",ExpressionUUID->"6b5c7c1f-450b-46ac-b346-08b59f3c48ff", - InitializationCell->True], -Cell[422155, 9238, 4510, 123, 165, "Input",ExpressionUUID->"89004a84-80b2-4ac8-b3e7-192619b48c85", - InitializationCell->True], -Cell[426668, 9363, 253, 5, 35, "Text",ExpressionUUID->"eeb33af8-ab09-4c5f-98a3-684ae529c2b6"], -Cell[426924, 9370, 3248, 86, 57, "Input",ExpressionUUID->"7baf2fbf-1852-4d4a-8204-082346ecd571", - InitializationCell->True], -Cell[430175, 9458, 320, 6, 35, "Text",ExpressionUUID->"d81923d6-2f61-4e28-9498-a6ac201db475"], -Cell[430498, 9466, 4289, 114, 231, "Input",ExpressionUUID->"2ada455b-0f69-4044-aa86-e64ea1196ef1", - InitializationCell->True], -Cell[434790, 9582, 1827, 52, 73, "Input",ExpressionUUID->"93e94660-fda2-4395-b4ba-b65011ae95bf"] +Cell[411690, 8916, 1827, 52, 73, "Input",ExpressionUUID->"93e94660-fda2-4395-b4ba-b65011ae95bf"] }, Closed]], Cell[CellGroupData[{ -Cell[436654, 9639, 184, 3, 72, "Title",ExpressionUUID->"17a23e7a-f1a2-46ea-aa7f-7bc099f9933e"], +Cell[413554, 8973, 184, 3, 72, "Title",ExpressionUUID->"17a23e7a-f1a2-46ea-aa7f-7bc099f9933e"], Cell[CellGroupData[{ -Cell[436863, 9646, 253, 4, 67, "Section",ExpressionUUID->"4d1b8cb8-9fb8-4b2a-afd6-5af66132ddc3"], +Cell[413763, 8980, 158, 3, 67, "Section",ExpressionUUID->"ee199b1d-a6a4-4eb3-9e41-ea5673045d1a"], +Cell[413924, 8985, 197, 3, 35, "Text",ExpressionUUID->"d408aeeb-1654-4525-903e-88994da645ee"], +Cell[414124, 8990, 3188, 95, 213, "Input",ExpressionUUID->"f51f78c8-fe8e-48f3-a562-1209bfc50f71", + InitializationCell->True], +Cell[417315, 9087, 2221, 60, 131, "Input",ExpressionUUID->"dd062623-5a91-460e-945c-d5f15e24abfb", + InitializationCell->True], +Cell[419539, 9149, 198, 3, 35, "Text",ExpressionUUID->"683219a6-4bcc-4fb8-93b5-7c590bc511b5"], +Cell[419740, 9154, 5783, 167, 415, "Input",ExpressionUUID->"c5e15fc2-7ce6-4ed3-bc7f-bcdc9085134d", + InitializationCell->True], +Cell[425526, 9323, 3677, 107, 207, "Input",ExpressionUUID->"8db93606-ec73-4fe8-9228-51f79c4ef957", + InitializationCell->True], +Cell[429206, 9432, 2221, 60, 131, "Input",ExpressionUUID->"3c5be8aa-305f-4c0e-a51a-4bc92cdcf171", + InitializationCell->True], +Cell[431430, 9494, 256, 4, 35, "Text",ExpressionUUID->"264d5181-32f7-492d-a01f-33c1ad90708e"], +Cell[431689, 9500, 1844, 48, 131, "Input",ExpressionUUID->"f6517707-c164-4ea9-b57c-8d4d27eafad3", + InitializationCell->True], +Cell[433536, 9550, 1774, 49, 131, "Input",ExpressionUUID->"33dfcd59-33cc-4f88-bc22-62c17b91dbeb", + InitializationCell->True], +Cell[435313, 9601, 1758, 44, 152, "Input",ExpressionUUID->"9663902a-8667-481b-b613-f1c2b56b8e76", + InitializationCell->True] +}, Open ]], Cell[CellGroupData[{ -Cell[437141, 9654, 230, 5, 54, "Subsection",ExpressionUUID->"d24bb10a-a08d-4cb4-adc6-90eacbbb945e", +Cell[437108, 9650, 253, 4, 67, "Section",ExpressionUUID->"4d1b8cb8-9fb8-4b2a-afd6-5af66132ddc3"], +Cell[CellGroupData[{ +Cell[437386, 9658, 230, 5, 54, "Subsection",ExpressionUUID->"d24bb10a-a08d-4cb4-adc6-90eacbbb945e", InitializationCell->True], -Cell[437374, 9661, 7603, 179, 528, "Input",ExpressionUUID->"a8bb5ed2-fac9-4aa5-a25c-81e18795f4fd", +Cell[437619, 9665, 7603, 179, 528, "Input",ExpressionUUID->"a8bb5ed2-fac9-4aa5-a25c-81e18795f4fd", InitializationCell->True], -Cell[444980, 9842, 2716, 69, 218, "Input",ExpressionUUID->"a2ccdecb-28b2-4c3c-84ab-5afe89d58a90", +Cell[445225, 9846, 2716, 69, 218, "Input",ExpressionUUID->"a2ccdecb-28b2-4c3c-84ab-5afe89d58a90", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ -Cell[447733, 9916, 274, 5, 38, "Subsection",ExpressionUUID->"ca17dcd4-e326-4661-a50d-7b0ce07059ce", +Cell[447978, 9920, 274, 5, 38, "Subsection",ExpressionUUID->"ca17dcd4-e326-4661-a50d-7b0ce07059ce", InitializationCell->True], -Cell[448010, 9923, 6488, 176, 377, "Input",ExpressionUUID->"92967e1f-6355-4b81-ac65-f6c0f4ff666f", +Cell[448255, 9927, 6488, 176, 377, "Input",ExpressionUUID->"92967e1f-6355-4b81-ac65-f6c0f4ff666f", InitializationCell->True], -Cell[454501, 10101, 27387, 666, 1518, "Input",ExpressionUUID->"9abb7cac-1b8f-4b43-a136-4cd9bce3cc62", +Cell[454746, 10105, 27387, 666, 1518, "Input",ExpressionUUID->"9abb7cac-1b8f-4b43-a136-4cd9bce3cc62", InitializationCell->True], -Cell[481891, 10769, 4332, 106, 262, "Input",ExpressionUUID->"2dce9a5b-3b5d-4949-b107-05aa1822d60f", +Cell[482136, 10773, 4332, 106, 262, "Input",ExpressionUUID->"2dce9a5b-3b5d-4949-b107-05aa1822d60f", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ -Cell[486260, 10880, 178, 3, 38, "Subsection",ExpressionUUID->"232b8dc1-eaeb-49ed-b40b-dc263e25682e"], -Cell[486441, 10885, 18081, 406, 1014, "Input",ExpressionUUID->"410c3fa2-cb14-4cc4-9b04-ad072825be35", +Cell[486505, 10884, 178, 3, 38, "Subsection",ExpressionUUID->"232b8dc1-eaeb-49ed-b40b-dc263e25682e"], +Cell[486686, 10889, 18081, 406, 1014, "Input",ExpressionUUID->"410c3fa2-cb14-4cc4-9b04-ad072825be35", InitializationCell->True], -Cell[504525, 11293, 3474, 86, 325, "Input",ExpressionUUID->"1d5e885a-baac-43eb-9625-c1fa09ad5f06", +Cell[504770, 11297, 3474, 86, 325, "Input",ExpressionUUID->"1d5e885a-baac-43eb-9625-c1fa09ad5f06", InitializationCell->True], -Cell[508002, 11381, 4444, 107, 262, "Input",ExpressionUUID->"e40ddaef-eae7-44d0-8099-fbb4ba4277f8", +Cell[508247, 11385, 4444, 107, 262, "Input",ExpressionUUID->"e40ddaef-eae7-44d0-8099-fbb4ba4277f8", InitializationCell->True], Cell[CellGroupData[{ -Cell[512471, 11492, 6776, 168, 170, "Input",ExpressionUUID->"8ba52260-4a02-47d4-a165-72b9af474a77"], -Cell[519250, 11662, 1839, 27, 70, "Output",ExpressionUUID->"a9f5f624-3fc9-41ae-ba10-7420b360c0ce"] +Cell[512716, 11496, 6776, 168, 170, "Input",ExpressionUUID->"8ba52260-4a02-47d4-a165-72b9af474a77"], +Cell[519495, 11666, 1839, 27, 70, "Output",ExpressionUUID->"a9f5f624-3fc9-41ae-ba10-7420b360c0ce"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[521138, 11695, 239, 5, 38, "Subsection",ExpressionUUID->"96327bf7-70f3-43bb-8490-464ddbf6040c", +Cell[521383, 11699, 239, 5, 38, "Subsection",ExpressionUUID->"96327bf7-70f3-43bb-8490-464ddbf6040c", InitializationCell->True], -Cell[521380, 11702, 931, 27, 70, "Input",ExpressionUUID->"31b37f25-f703-4a5d-a3f2-706d2a244af3", +Cell[521625, 11706, 931, 27, 70, "Input",ExpressionUUID->"31b37f25-f703-4a5d-a3f2-706d2a244af3", InitializationCell->True], -Cell[522314, 11731, 4942, 146, 222, "Input",ExpressionUUID->"aefc8b38-3601-4764-834f-0da8de30c104", +Cell[522559, 11735, 4942, 146, 222, "Input",ExpressionUUID->"aefc8b38-3601-4764-834f-0da8de30c104", InitializationCell->True], -Cell[527259, 11879, 18792, 485, 502, "Input",ExpressionUUID->"45f203b6-e174-40f4-80af-faf5a87fbca8", +Cell[527504, 11883, 18792, 485, 502, "Input",ExpressionUUID->"45f203b6-e174-40f4-80af-faf5a87fbca8", InitializationCell->True], -Cell[546054, 12366, 1268, 33, 48, "Input",ExpressionUUID->"bd6156e7-a937-4a23-abe0-7f6b0b1ebcc3", +Cell[546299, 12370, 1268, 33, 48, "Input",ExpressionUUID->"bd6156e7-a937-4a23-abe0-7f6b0b1ebcc3", InitializationCell->True], -Cell[547325, 12401, 2906, 74, 220, "Input",ExpressionUUID->"1ececf73-4af0-463c-a3d3-dd6f0bc99cdb", +Cell[547570, 12405, 2906, 74, 220, "Input",ExpressionUUID->"1ececf73-4af0-463c-a3d3-dd6f0bc99cdb", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ -Cell[550268, 12480, 304, 6, 38, "Subsection",ExpressionUUID->"5cb94a26-6007-4cf8-a288-bab050e9c43c", +Cell[550513, 12484, 304, 6, 38, "Subsection",ExpressionUUID->"5cb94a26-6007-4cf8-a288-bab050e9c43c", InitializationCell->True], -Cell[550575, 12488, 7043, 184, 179, "Input",ExpressionUUID->"e53ceb67-f409-40f4-a11a-700c5912ce09", +Cell[550820, 12492, 7043, 184, 179, "Input",ExpressionUUID->"e53ceb67-f409-40f4-a11a-700c5912ce09", InitializationCell->True], -Cell[557621, 12674, 2749, 70, 220, "Input",ExpressionUUID->"60958193-26e3-45e1-b807-38f510c54d01", +Cell[557866, 12678, 2749, 70, 220, "Input",ExpressionUUID->"60958193-26e3-45e1-b807-38f510c54d01", InitializationCell->True] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[560419, 12750, 163, 3, 53, "Section",ExpressionUUID->"4d7afddc-b921-44b5-9fa0-ac8dc495c621"], +Cell[560664, 12754, 163, 3, 53, "Section",ExpressionUUID->"4d7afddc-b921-44b5-9fa0-ac8dc495c621"], Cell[CellGroupData[{ -Cell[560607, 12757, 351, 6, 54, "Subsection",ExpressionUUID->"ce385583-ea65-4a06-8936-11067ed4d51c", +Cell[560852, 12761, 351, 6, 54, "Subsection",ExpressionUUID->"ce385583-ea65-4a06-8936-11067ed4d51c", InitializationCell->True], -Cell[560961, 12765, 11762, 239, 543, "Input",ExpressionUUID->"048b6e06-91fb-4079-9a96-1c4668badd2a", +Cell[561206, 12769, 11762, 239, 543, "Input",ExpressionUUID->"048b6e06-91fb-4079-9a96-1c4668badd2a", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ -Cell[572760, 13009, 445, 7, 38, "Subsection",ExpressionUUID->"561497f7-77d5-45c2-b2c1-8ec8688cdef1", +Cell[573005, 13013, 445, 7, 38, "Subsection",ExpressionUUID->"561497f7-77d5-45c2-b2c1-8ec8688cdef1", InitializationCell->True], -Cell[573208, 13018, 45615, 942, 2663, "Input",ExpressionUUID->"97f68742-0353-4bae-8e16-a918addb4907", +Cell[573453, 13022, 47040, 972, 2663, "Input",ExpressionUUID->"97f68742-0353-4bae-8e16-a918addb4907", InitializationCell->True] -}, Closed]], +}, Open ]], Cell[CellGroupData[{ -Cell[618860, 13965, 358, 6, 38, "Subsection",ExpressionUUID->"b4e4480a-c4ce-450d-8a61-22daf4862170"], -Cell[619221, 13973, 50213, 924, 2022, "Input",ExpressionUUID->"ec017ba5-094b-4b45-9e78-75bf660db09f", +Cell[620530, 13999, 358, 6, 54, "Subsection",ExpressionUUID->"b4e4480a-c4ce-450d-8a61-22daf4862170"], +Cell[620891, 14007, 50213, 924, 2022, "Input",ExpressionUUID->"ec017ba5-094b-4b45-9e78-75bf660db09f", InitializationCell->True] -}, Open ]] +}, Closed]] }, Open ]], Cell[CellGroupData[{ -Cell[669483, 14903, 155, 3, 67, "Section",ExpressionUUID->"a4a8920c-c244-4cba-a9f4-76cb9ee1d017"], +Cell[671153, 14937, 155, 3, 67, "Section",ExpressionUUID->"a4a8920c-c244-4cba-a9f4-76cb9ee1d017"], Cell[CellGroupData[{ -Cell[669663, 14910, 371, 10, 54, "Subsection",ExpressionUUID->"df37bd0c-d724-4a87-aa39-6a1fb630e7fe"], +Cell[671333, 14944, 371, 10, 54, "Subsection",ExpressionUUID->"df37bd0c-d724-4a87-aa39-6a1fb630e7fe"], Cell[CellGroupData[{ -Cell[670059, 14924, 233, 4, 45, "Subsubsection",ExpressionUUID->"2112ca8e-f1bd-4577-8021-a601835d47cc"], +Cell[671729, 14958, 233, 4, 45, "Subsubsection",ExpressionUUID->"2112ca8e-f1bd-4577-8021-a601835d47cc"], Cell[CellGroupData[{ -Cell[670317, 14932, 1643, 39, 136, "Input",ExpressionUUID->"3e59d1f3-5efb-4f2f-a753-75930841bd89"], +Cell[671987, 14966, 1643, 39, 136, "Input",ExpressionUUID->"3e59d1f3-5efb-4f2f-a753-75930841bd89"], Cell[CellGroupData[{ -Cell[671985, 14975, 882, 18, 24, "Print",ExpressionUUID->"a301067f-aa14-46ac-ba82-14615c2cc0e1"], -Cell[672870, 14995, 684, 11, 24, "Print",ExpressionUUID->"8f44a9bd-bd6d-4e5c-90a6-d4b57990ed9d"], -Cell[673557, 15008, 925, 18, 24, "Print",ExpressionUUID->"b723dbb9-8d69-4cbe-86c9-6a883737d75e"], -Cell[674485, 15028, 818, 15, 24, "Print",ExpressionUUID->"1b58e3b0-7e9a-4c6d-886d-b50e73491862"], -Cell[675306, 15045, 939, 18, 24, "Print",ExpressionUUID->"478f690a-77a5-47a7-a643-3cca5537903f"], -Cell[676248, 15065, 913, 18, 24, "Print",ExpressionUUID->"a3424ba7-7dfa-46fc-a2e1-124a1a8d3e04"], -Cell[677164, 15085, 1501, 34, 40, "Print",ExpressionUUID->"fddd6438-dabf-4e8d-a3e4-4f0d7bdc1ef4"], -Cell[678668, 15121, 904, 17, 26, "Print",ExpressionUUID->"d828a92d-52c9-48ca-976a-136eee30519d"], -Cell[679575, 15140, 919, 18, 26, "Print",ExpressionUUID->"98e042f0-4dac-4bea-9a58-1a4678aafdfe"], -Cell[680497, 15160, 1029, 21, 26, "Print",ExpressionUUID->"cd2721b9-f676-47df-9e9e-3a5572d768a1"], -Cell[681529, 15183, 929, 18, 24, "Print",ExpressionUUID->"731336b1-6cb3-4a12-a366-f599efca55cc"], -Cell[682461, 15203, 1030, 21, 26, "Print",ExpressionUUID->"0e61c022-ab94-48a4-9c80-5bfd0624b79b"], -Cell[683494, 15226, 927, 17, 26, "Print",ExpressionUUID->"1bd0dbaf-0eb6-4a99-9838-112b5988ac6c"], -Cell[684424, 15245, 4191, 116, 42, "Print",ExpressionUUID->"4b0aa45a-d8bb-42e8-9312-f04f0b03cfbd"] +Cell[673655, 15009, 882, 18, 24, "Print",ExpressionUUID->"a301067f-aa14-46ac-ba82-14615c2cc0e1"], +Cell[674540, 15029, 684, 11, 24, "Print",ExpressionUUID->"8f44a9bd-bd6d-4e5c-90a6-d4b57990ed9d"], +Cell[675227, 15042, 925, 18, 24, "Print",ExpressionUUID->"b723dbb9-8d69-4cbe-86c9-6a883737d75e"], +Cell[676155, 15062, 818, 15, 24, "Print",ExpressionUUID->"1b58e3b0-7e9a-4c6d-886d-b50e73491862"], +Cell[676976, 15079, 939, 18, 24, "Print",ExpressionUUID->"478f690a-77a5-47a7-a643-3cca5537903f"], +Cell[677918, 15099, 913, 18, 24, "Print",ExpressionUUID->"a3424ba7-7dfa-46fc-a2e1-124a1a8d3e04"], +Cell[678834, 15119, 1501, 34, 40, "Print",ExpressionUUID->"fddd6438-dabf-4e8d-a3e4-4f0d7bdc1ef4"], +Cell[680338, 15155, 904, 17, 26, "Print",ExpressionUUID->"d828a92d-52c9-48ca-976a-136eee30519d"], +Cell[681245, 15174, 919, 18, 26, "Print",ExpressionUUID->"98e042f0-4dac-4bea-9a58-1a4678aafdfe"], +Cell[682167, 15194, 1029, 21, 26, "Print",ExpressionUUID->"cd2721b9-f676-47df-9e9e-3a5572d768a1"], +Cell[683199, 15217, 929, 18, 24, "Print",ExpressionUUID->"731336b1-6cb3-4a12-a366-f599efca55cc"], +Cell[684131, 15237, 1030, 21, 26, "Print",ExpressionUUID->"0e61c022-ab94-48a4-9c80-5bfd0624b79b"], +Cell[685164, 15260, 927, 17, 26, "Print",ExpressionUUID->"1bd0dbaf-0eb6-4a99-9838-112b5988ac6c"], +Cell[686094, 15279, 4191, 116, 42, "Print",ExpressionUUID->"4b0aa45a-d8bb-42e8-9312-f04f0b03cfbd"] }, Open ]], -Cell[688630, 15364, 1884, 32, 34, "Output",ExpressionUUID->"3bdf2a47-c224-4498-93b4-b99512be73e7"] +Cell[690300, 15398, 1884, 32, 34, "Output",ExpressionUUID->"3bdf2a47-c224-4498-93b4-b99512be73e7"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[690563, 15402, 255, 4, 37, "Subsubsection",ExpressionUUID->"916ae58d-fbdb-4d89-a6d8-52bed8896a14"], +Cell[692233, 15436, 255, 4, 37, "Subsubsection",ExpressionUUID->"916ae58d-fbdb-4d89-a6d8-52bed8896a14"], Cell[CellGroupData[{ -Cell[690843, 15410, 1718, 42, 178, "Input",ExpressionUUID->"c62f9fb7-edac-4cb2-a77f-e2f363d45b95"], +Cell[692513, 15444, 1718, 42, 178, "Input",ExpressionUUID->"c62f9fb7-edac-4cb2-a77f-e2f363d45b95"], Cell[CellGroupData[{ -Cell[692586, 15456, 429, 12, 24, "Print",ExpressionUUID->"18de5ede-2afa-4e95-afc0-dd508da049b4"], -Cell[693018, 15470, 231, 5, 24, "Print",ExpressionUUID->"b6833e2b-96fe-46ef-8531-71b4f8a96205"], -Cell[693252, 15477, 584, 14, 24, "Print",ExpressionUUID->"bda76ca6-1851-44db-8569-ed5f228cc3bf"], -Cell[693839, 15493, 365, 9, 24, "Print",ExpressionUUID->"d5639e6b-5e49-4be1-af55-5d08362fcbc6"], -Cell[694207, 15504, 487, 12, 24, "Print",ExpressionUUID->"b0ec54e4-c836-4242-82b7-0e7018739505"], -Cell[694697, 15518, 568, 14, 24, "Print",ExpressionUUID->"98faee64-9b3a-4652-8b89-a03ef39b3bf0"], -Cell[695268, 15534, 1805, 42, 74, "Print",ExpressionUUID->"6430ff0d-65f7-4550-91a5-89d3027aa11e"], -Cell[697076, 15578, 3591, 105, 40, "Print",ExpressionUUID->"4a894436-c741-47ab-9f31-da57cd424df5"] +Cell[694256, 15490, 429, 12, 24, "Print",ExpressionUUID->"18de5ede-2afa-4e95-afc0-dd508da049b4"], +Cell[694688, 15504, 231, 5, 24, "Print",ExpressionUUID->"b6833e2b-96fe-46ef-8531-71b4f8a96205"], +Cell[694922, 15511, 584, 14, 24, "Print",ExpressionUUID->"bda76ca6-1851-44db-8569-ed5f228cc3bf"], +Cell[695509, 15527, 365, 9, 24, "Print",ExpressionUUID->"d5639e6b-5e49-4be1-af55-5d08362fcbc6"], +Cell[695877, 15538, 487, 12, 24, "Print",ExpressionUUID->"b0ec54e4-c836-4242-82b7-0e7018739505"], +Cell[696367, 15552, 568, 14, 24, "Print",ExpressionUUID->"98faee64-9b3a-4652-8b89-a03ef39b3bf0"], +Cell[696938, 15568, 1805, 42, 74, "Print",ExpressionUUID->"6430ff0d-65f7-4550-91a5-89d3027aa11e"], +Cell[698746, 15612, 3591, 105, 40, "Print",ExpressionUUID->"4a894436-c741-47ab-9f31-da57cd424df5"] }, Open ]], -Cell[700682, 15686, 1884, 31, 34, "Output",ExpressionUUID->"f4c8dae2-68fa-4e53-bdf6-6bc65a14cf2a"] +Cell[702352, 15720, 1884, 31, 34, "Output",ExpressionUUID->"f4c8dae2-68fa-4e53-bdf6-6bc65a14cf2a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[702615, 15723, 256, 4, 37, "Subsubsection",ExpressionUUID->"0ee50853-a75f-47cc-b687-aea7fad6ed03"], +Cell[704285, 15757, 256, 4, 37, "Subsubsection",ExpressionUUID->"0ee50853-a75f-47cc-b687-aea7fad6ed03"], Cell[CellGroupData[{ -Cell[702896, 15731, 2029, 50, 199, "Input",ExpressionUUID->"67a487a6-512e-40f9-a49a-d68ceffe932e"], +Cell[704566, 15765, 2029, 50, 199, "Input",ExpressionUUID->"67a487a6-512e-40f9-a49a-d68ceffe932e"], Cell[CellGroupData[{ -Cell[704950, 15785, 431, 12, 24, "Print",ExpressionUUID->"71a7e56c-c20b-48de-bb1a-54d1b03f7eb4"], -Cell[705384, 15799, 231, 5, 24, "Print",ExpressionUUID->"e2b5bbb6-5304-499c-b3ee-37130807a328"], -Cell[705618, 15806, 898, 19, 24, "Print",ExpressionUUID->"06086497-5aef-438c-a7fe-cb4f7ba2de56"], -Cell[706519, 15827, 365, 9, 24, "Print",ExpressionUUID->"ba98b3fa-5b38-4e96-a7c0-0e5ac325e637"], -Cell[706887, 15838, 488, 12, 24, "Print",ExpressionUUID->"763682e9-3905-44c5-b453-a72972d8bdcc"], -Cell[707378, 15852, 881, 19, 24, "Print",ExpressionUUID->"3ec57ee6-910f-487c-a096-4470cfc665be"], -Cell[708262, 15873, 4513, 91, 176, "Print",ExpressionUUID->"c961b348-c348-44a2-98dc-807f0ffe34de"], -Cell[712778, 15966, 3597, 105, 40, "Print",ExpressionUUID->"99ad0086-556d-49f4-b5f4-253a438f130c"] +Cell[706620, 15819, 431, 12, 24, "Print",ExpressionUUID->"71a7e56c-c20b-48de-bb1a-54d1b03f7eb4"], +Cell[707054, 15833, 231, 5, 24, "Print",ExpressionUUID->"e2b5bbb6-5304-499c-b3ee-37130807a328"], +Cell[707288, 15840, 898, 19, 24, "Print",ExpressionUUID->"06086497-5aef-438c-a7fe-cb4f7ba2de56"], +Cell[708189, 15861, 365, 9, 24, "Print",ExpressionUUID->"ba98b3fa-5b38-4e96-a7c0-0e5ac325e637"], +Cell[708557, 15872, 488, 12, 24, "Print",ExpressionUUID->"763682e9-3905-44c5-b453-a72972d8bdcc"], +Cell[709048, 15886, 881, 19, 24, "Print",ExpressionUUID->"3ec57ee6-910f-487c-a096-4470cfc665be"], +Cell[709932, 15907, 4513, 91, 176, "Print",ExpressionUUID->"c961b348-c348-44a2-98dc-807f0ffe34de"], +Cell[714448, 16000, 3597, 105, 40, "Print",ExpressionUUID->"99ad0086-556d-49f4-b5f4-253a438f130c"] }, Open ]], -Cell[716390, 16074, 1148, 21, 34, "Output",ExpressionUUID->"405408f9-86ee-4449-b493-8570f34de569"] +Cell[718060, 16108, 1148, 21, 34, "Output",ExpressionUUID->"405408f9-86ee-4449-b493-8570f34de569"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[717587, 16101, 403, 6, 37, "Subsubsection",ExpressionUUID->"9fab35af-6cbe-44d1-9ca7-015d79f7329a"], +Cell[719257, 16135, 403, 6, 37, "Subsubsection",ExpressionUUID->"9fab35af-6cbe-44d1-9ca7-015d79f7329a"], Cell[CellGroupData[{ -Cell[718015, 16111, 2404, 57, 220, "Input",ExpressionUUID->"b165eb07-394b-422d-86b6-8b350c62f097"], +Cell[719685, 16145, 2404, 57, 220, "Input",ExpressionUUID->"b165eb07-394b-422d-86b6-8b350c62f097"], Cell[CellGroupData[{ -Cell[720444, 16172, 1010, 21, 24, "Print",ExpressionUUID->"cbae2613-1fde-45a3-9ab5-66d7c3648afe"], -Cell[721457, 16195, 795, 13, 24, "Print",ExpressionUUID->"d27c3808-dab3-41f8-82d5-7a4d9ca56609"], -Cell[722255, 16210, 767, 13, 24, "Print",ExpressionUUID->"890d55aa-685c-4ce6-84dc-2f68869930d6"], -Cell[723025, 16225, 901, 17, 24, "Print",ExpressionUUID->"1f6b0164-3e93-44ca-b5f7-3ca9f7764253"], -Cell[723929, 16244, 797, 13, 24, "Print",ExpressionUUID->"b49b2391-3f75-405e-ac91-40c5db01a29e"], -Cell[724729, 16259, 767, 13, 24, "Print",ExpressionUUID->"3451deaf-3137-499e-8ff6-3f8efc95c3de"], -Cell[725499, 16274, 900, 17, 24, "Print",ExpressionUUID->"bd35b8ee-d7d5-4888-a13d-7ca95b18aa1a"], -Cell[726402, 16293, 788, 13, 24, "Print",ExpressionUUID->"5672f4e9-7fd3-4e54-baae-84841bae4205"], -Cell[727193, 16308, 1811, 38, 25, "Print",ExpressionUUID->"8246ee1f-e8ac-45c0-8802-bfeeae656244"], -Cell[729007, 16348, 4978, 101, 176, "Print",ExpressionUUID->"721a2198-c744-407a-a57f-a210b79fdcc8"], -Cell[733988, 16451, 4718, 131, 50, "Print",ExpressionUUID->"a7212f98-e43c-4fae-af78-f14af552fdcc"], -Cell[738709, 16584, 2340, 61, 44, "Print",ExpressionUUID->"e5df1a8a-604a-4657-a46d-5f846bbf6a93"], -Cell[741052, 16647, 2349, 61, 44, "Print",ExpressionUUID->"857340a7-573c-4736-b8d4-0b02ebc68c3a"], -Cell[743404, 16710, 3414, 88, 44, "Print",ExpressionUUID->"3a8cb7d9-8462-49c1-b557-82b401b6ef05"], -Cell[746821, 16800, 767, 13, 24, "Print",ExpressionUUID->"3bc0fe74-d3ef-495c-8c7f-f3f4913388e2"], -Cell[747591, 16815, 905, 17, 24, "Print",ExpressionUUID->"38c94e09-535b-4a4f-9605-cdd61092e1a7"] +Cell[722114, 16206, 1010, 21, 24, "Print",ExpressionUUID->"cbae2613-1fde-45a3-9ab5-66d7c3648afe"], +Cell[723127, 16229, 795, 13, 24, "Print",ExpressionUUID->"d27c3808-dab3-41f8-82d5-7a4d9ca56609"], +Cell[723925, 16244, 767, 13, 24, "Print",ExpressionUUID->"890d55aa-685c-4ce6-84dc-2f68869930d6"], +Cell[724695, 16259, 901, 17, 24, "Print",ExpressionUUID->"1f6b0164-3e93-44ca-b5f7-3ca9f7764253"], +Cell[725599, 16278, 797, 13, 24, "Print",ExpressionUUID->"b49b2391-3f75-405e-ac91-40c5db01a29e"], +Cell[726399, 16293, 767, 13, 24, "Print",ExpressionUUID->"3451deaf-3137-499e-8ff6-3f8efc95c3de"], +Cell[727169, 16308, 900, 17, 24, "Print",ExpressionUUID->"bd35b8ee-d7d5-4888-a13d-7ca95b18aa1a"], +Cell[728072, 16327, 788, 13, 24, "Print",ExpressionUUID->"5672f4e9-7fd3-4e54-baae-84841bae4205"], +Cell[728863, 16342, 1811, 38, 25, "Print",ExpressionUUID->"8246ee1f-e8ac-45c0-8802-bfeeae656244"], +Cell[730677, 16382, 4978, 101, 176, "Print",ExpressionUUID->"721a2198-c744-407a-a57f-a210b79fdcc8"], +Cell[735658, 16485, 4718, 131, 50, "Print",ExpressionUUID->"a7212f98-e43c-4fae-af78-f14af552fdcc"], +Cell[740379, 16618, 2340, 61, 44, "Print",ExpressionUUID->"e5df1a8a-604a-4657-a46d-5f846bbf6a93"], +Cell[742722, 16681, 2349, 61, 44, "Print",ExpressionUUID->"857340a7-573c-4736-b8d4-0b02ebc68c3a"], +Cell[745074, 16744, 3414, 88, 44, "Print",ExpressionUUID->"3a8cb7d9-8462-49c1-b557-82b401b6ef05"], +Cell[748491, 16834, 767, 13, 24, "Print",ExpressionUUID->"3bc0fe74-d3ef-495c-8c7f-f3f4913388e2"], +Cell[749261, 16849, 905, 17, 24, "Print",ExpressionUUID->"38c94e09-535b-4a4f-9605-cdd61092e1a7"] }, Open ]], -Cell[748511, 16835, 934, 19, 34, "Output",ExpressionUUID->"2bf6ffbb-f4e7-4be2-8a90-0368713f755b"] +Cell[750181, 16869, 934, 19, 34, "Output",ExpressionUUID->"2bf6ffbb-f4e7-4be2-8a90-0368713f755b"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[749494, 16860, 453, 7, 37, "Subsubsection",ExpressionUUID->"fbc9a1ba-4402-4010-8a10-c7d928092fc8"], +Cell[751164, 16894, 453, 7, 37, "Subsubsection",ExpressionUUID->"fbc9a1ba-4402-4010-8a10-c7d928092fc8"], Cell[CellGroupData[{ -Cell[749972, 16871, 6075, 160, 422, "Input",ExpressionUUID->"af55c487-4651-47bd-8641-cf2a2beef891"], +Cell[751642, 16905, 6075, 160, 422, "Input",ExpressionUUID->"af55c487-4651-47bd-8641-cf2a2beef891"], Cell[CellGroupData[{ -Cell[756072, 17035, 623, 15, 24, "Print",ExpressionUUID->"f662b375-2f88-47ae-98cf-15c301edf003"], -Cell[756698, 17052, 408, 7, 24, "Print",ExpressionUUID->"ecd6ed30-8ed2-43e7-8e55-5c5b4679b4ea"], -Cell[757109, 17061, 378, 7, 24, "Print",ExpressionUUID->"2673d436-1697-4a78-8bec-52ee868adf4e"], -Cell[757490, 17070, 512, 11, 24, "Print",ExpressionUUID->"8d224315-e047-4f5e-8162-88417ffa1eba"], -Cell[758005, 17083, 408, 7, 24, "Print",ExpressionUUID->"bcee716b-c4fd-4cc6-8bed-dbce52bec28a"], -Cell[758416, 17092, 380, 7, 24, "Print",ExpressionUUID->"b59629fa-01b7-4c92-97a0-446c9b916c40"], -Cell[758799, 17101, 512, 11, 24, "Print",ExpressionUUID->"40375bc1-b07f-4878-b0d8-83f54038605a"], -Cell[759314, 17114, 400, 7, 24, "Print",ExpressionUUID->"c847dbe8-1268-4f13-aee6-a5985c8596c0"], -Cell[759717, 17123, 2371, 46, 44, "Print",ExpressionUUID->"a70764c0-bf37-48f5-adb6-010f4d2b8602"], -Cell[762091, 17171, 29434, 514, 548, "Print",ExpressionUUID->"a10e30f8-25c4-4326-bc4c-269c07da5295"], -Cell[791528, 17687, 4331, 125, 50, "Print",ExpressionUUID->"3678b71a-969c-47bb-9ea7-9b841708c6c9"], -Cell[795862, 17814, 1952, 55, 44, "Print",ExpressionUUID->"155dded4-2ea8-4582-9912-d95238ad968d"], -Cell[797817, 17871, 1953, 55, 44, "Print",ExpressionUUID->"9966de04-57e6-4ff7-918b-e262fc1715c9"] +Cell[757742, 17069, 623, 15, 24, "Print",ExpressionUUID->"f662b375-2f88-47ae-98cf-15c301edf003"], +Cell[758368, 17086, 408, 7, 24, "Print",ExpressionUUID->"ecd6ed30-8ed2-43e7-8e55-5c5b4679b4ea"], +Cell[758779, 17095, 378, 7, 24, "Print",ExpressionUUID->"2673d436-1697-4a78-8bec-52ee868adf4e"], +Cell[759160, 17104, 512, 11, 24, "Print",ExpressionUUID->"8d224315-e047-4f5e-8162-88417ffa1eba"], +Cell[759675, 17117, 408, 7, 24, "Print",ExpressionUUID->"bcee716b-c4fd-4cc6-8bed-dbce52bec28a"], +Cell[760086, 17126, 380, 7, 24, "Print",ExpressionUUID->"b59629fa-01b7-4c92-97a0-446c9b916c40"], +Cell[760469, 17135, 512, 11, 24, "Print",ExpressionUUID->"40375bc1-b07f-4878-b0d8-83f54038605a"], +Cell[760984, 17148, 400, 7, 24, "Print",ExpressionUUID->"c847dbe8-1268-4f13-aee6-a5985c8596c0"], +Cell[761387, 17157, 2371, 46, 44, "Print",ExpressionUUID->"a70764c0-bf37-48f5-adb6-010f4d2b8602"], +Cell[763761, 17205, 29434, 514, 548, "Print",ExpressionUUID->"a10e30f8-25c4-4326-bc4c-269c07da5295"], +Cell[793198, 17721, 4331, 125, 50, "Print",ExpressionUUID->"3678b71a-969c-47bb-9ea7-9b841708c6c9"], +Cell[797532, 17848, 1952, 55, 44, "Print",ExpressionUUID->"155dded4-2ea8-4582-9912-d95238ad968d"], +Cell[799487, 17905, 1953, 55, 44, "Print",ExpressionUUID->"9966de04-57e6-4ff7-918b-e262fc1715c9"] }, Open ]], -Cell[799785, 17929, 186, 3, 34, "Output",ExpressionUUID->"0b7a1a8d-6cf0-427a-9bc3-c1e35688fe14"] -}, Open ]] +Cell[801455, 17963, 186, 3, 34, "Output",ExpressionUUID->"0b7a1a8d-6cf0-427a-9bc3-c1e35688fe14"] }, Open ]] +}, Closed]] }, Open ]], Cell[CellGroupData[{ -Cell[800032, 17939, 358, 7, 54, "Subsection",ExpressionUUID->"491de680-c9e3-454b-b686-26f591044928"], +Cell[801702, 17973, 358, 7, 54, "Subsection",ExpressionUUID->"491de680-c9e3-454b-b686-26f591044928"], Cell[CellGroupData[{ -Cell[800415, 17950, 305, 5, 45, "Subsubsection",ExpressionUUID->"3a40b7e4-1dce-4502-b50f-97aee4ec77ca"], +Cell[802085, 17984, 305, 5, 45, "Subsubsection",ExpressionUUID->"3a40b7e4-1dce-4502-b50f-97aee4ec77ca"], Cell[CellGroupData[{ -Cell[800745, 17959, 4193, 105, 305, "Input",ExpressionUUID->"41dabfd8-9ba5-45f1-a785-c6ff45efdd28"], +Cell[802415, 17993, 4220, 105, 305, "Input",ExpressionUUID->"41dabfd8-9ba5-45f1-a785-c6ff45efdd28"], Cell[CellGroupData[{ -Cell[804963, 18068, 479, 13, 24, "Print",ExpressionUUID->"9193d94d-b661-4fe1-ba1b-91991d245f37"], -Cell[805445, 18083, 266, 5, 24, "Print",ExpressionUUID->"07228b0d-1ae8-4308-9998-74e3178b61c3"], -Cell[805714, 18090, 236, 5, 24, "Print",ExpressionUUID->"234ffd04-041c-4a89-829a-ad3f28b3d96a"], -Cell[805953, 18097, 370, 9, 24, "Print",ExpressionUUID->"490741cd-dd92-431a-a4fa-8866c145fd2e"], -Cell[806326, 18108, 264, 5, 24, "Print",ExpressionUUID->"8ea3fefe-ad7c-4df8-9f14-735a1d71ee73"], -Cell[806593, 18115, 236, 5, 24, "Print",ExpressionUUID->"f5afccd9-646b-4ee4-8b24-3c68e45f21f5"], -Cell[806832, 18122, 372, 9, 24, "Print",ExpressionUUID->"8281fa2a-9155-4f0a-a82d-386882b04df5"], -Cell[807207, 18133, 260, 5, 24, "Print",ExpressionUUID->"44e40ead-3a1d-4a27-85f2-e01e347cffb1"] +Cell[806660, 18102, 552, 14, 24, "Print",ExpressionUUID->"35b767ea-98df-4370-8cf8-9ea593cd9e18"], +Cell[807215, 18118, 338, 6, 24, "Print",ExpressionUUID->"d78732fe-341a-4546-a150-f8ae088be84c"], +Cell[807556, 18126, 310, 6, 24, "Print",ExpressionUUID->"eef4a00c-728c-448b-b427-f876abfe01a4"], +Cell[807869, 18134, 446, 10, 24, "Print",ExpressionUUID->"f00c302a-9d80-4c3a-bfff-2677f7054168"], +Cell[808318, 18146, 340, 6, 24, "Print",ExpressionUUID->"3ceec6a5-c675-4c9f-b2af-952674157a5b"], +Cell[808661, 18154, 310, 6, 24, "Print",ExpressionUUID->"b83f91aa-4fca-44a7-893d-4ef83e235826"], +Cell[808974, 18162, 444, 10, 24, "Print",ExpressionUUID->"8f89c4ba-4eba-44e5-a870-f66b17dae682"], +Cell[809421, 18174, 332, 6, 24, "Print",ExpressionUUID->"8dc0f05f-c82e-4e43-89ea-6b01b1b7ba88"], +Cell[809756, 18182, 1845, 39, 44, "Print",ExpressionUUID->"15c10b38-8326-4e9b-b0a5-3358cfef8a63"], +Cell[811604, 18223, 12643, 232, 360, "Print",ExpressionUUID->"a3d40a4f-4ac6-4fc5-92c8-7917d186811f"], +Cell[824250, 18457, 4249, 124, 50, "Print",ExpressionUUID->"9b879754-746f-4464-989d-5d3f52bc77f1"], +Cell[828502, 18583, 2231, 63, 44, "Print",ExpressionUUID->"df6e62a4-1e85-40db-8d54-0556562caae9"] }, Open ]], -Cell[807482, 18141, 1031, 16, 34, "Output",ExpressionUUID->"875675ef-1123-4902-92a8-c6a954e9f402"] +Cell[830748, 18649, 160, 3, 34, "Output",ExpressionUUID->"47fe1432-6f98-4a57-9e32-303208c8e804"] }, Open ]] }, Open ]] }, Open ]]