Manuscript + Notebook

This commit is contained in:
EnzoMonino 2021-04-23 07:27:35 +02:00
parent dbec5bf97b
commit 9cb7d3794e
2 changed files with 508 additions and 49 deletions

View File

@ -383,7 +383,7 @@ CCSDT &6-31+G(d)& $1.442$ & $3.357$ & $4.311$ \\
& aug-cc-pVDZ & $1.411$ & $3.175$ & $4.327$ \\
& aug-cc-pVTZ & $1.411$ & $3.139$ & $4.429$ \\[0.1cm]
CC4 &6-31+G(d)& & $3.343$ & $4.067$ \\
CC4 & aug-cc-pVDZ & & $3.164$ & $4.041$ \\[0.1cm]
& aug-cc-pVDZ & & $3.164$ & $4.041$ \\[0.1cm]
CCSDTQ &6-31+G(d)& & $3.34$ & $4.073$ \\[0.1cm]
SA2-CASSCF(4,4) &6-31+G(d)& $1.662$ & $4.657$ & $4.439$ \\
& aug-cc-pVDZ & $1.672$ & $4.563$ & $4.448$ \\

View File

@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 297411, 7304]
NotebookOptionsPosition[ 292268, 7204]
NotebookOutlinePosition[ 292662, 7220]
CellTagsIndexPosition[ 292619, 7217]
NotebookDataLength[ 316065, 7763]
NotebookOptionsPosition[ 310455, 7655]
NotebookOutlinePosition[ 310849, 7671]
CellTagsIndexPosition[ 310806, 7668]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@ -37,8 +37,7 @@ Cell[BoxData[{
mhchem}\>\"", ",", "\"\<\\\\definecolor{darkgreen}{RGB}{0, 180, 0}\>\""}],
"}"}]}]}], "]"}], ";"}]}], "Input",
InitializationCell->True,
CellLabel->
"In[324]:=",ExpressionUUID->"73548dbc-1321-4b7c-9133-54658820615c"]
CellLabel->"In[1]:=",ExpressionUUID->"73548dbc-1321-4b7c-9133-54658820615c"]
}, Closed]],
Cell[CellGroupData[{
@ -7197,13 +7196,465 @@ Cell[BoxData[
3.8250411850770607`*^9},
CellLabel->
"Out[4]//TableForm=",ExpressionUUID->"37fab670-976c-41e6-a633-c9de5012fcd2"]
}, Open ]],
Cell[CellGroupData[{
Cell["Spin-flip methods", "Subsubsection",
CellChangeTimes->{{3.827482285414358*^9,
3.827482296036296*^9}},ExpressionUUID->"39bfcb3c-82e9-40f1-a609-\
e1fd21238104"],
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{
RowBox[{"AutoSF", "=",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "CIS"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"{",
RowBox[{"\"\<SF-CIS\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "153.66326565"}], "+", "153.66747429"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "153.67593114"}], "+", "153.68042752"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "153.71018192"}], "+", "153.71564099"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "153.71897059"}], "+", "153.72443385"}], ")"}], "*",
"627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "BLYP"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-TD-BLYP\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.54915957"}], "+", "154.58672843"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.56355220"}], "+", "154.60119345"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.60713863"}], "+", "154.64575345"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.61843598"}], "+", "154.65703656"}], ")"}], "*",
"627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "B3LYP"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-TD-B3LYP\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.63612319"}], "+", "154.66614385"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.64983891"}], "+", "154.68000617"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.69008595"}], "+", "154.72127116"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.70051522"}], "+", "154.73170498"}], ")"}], "*",
"627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "PBE0"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-TD-PBE0\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.44443911"}], "+", "154.47201946"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.45975842"}], "+", "154.48741831"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.49342299"}], "+", "154.52212826"}], ")"}], "*",
"627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.50345761"}], "+", "154.53214416"}], ")"}], "*",
"627.5091809"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "BHHLYP"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-TD-BHHLYP\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.55635062"}], "+", "154.57531619"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.56921916"}], "+", "154.58846058"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.60625180"}], "+", "154.62653050"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.61588194"}], "+", "154.63616622"}], ")"}], "*",
"627.509180"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "M06", "-",
RowBox[{"2", "X"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-TD-M06-2X\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.60820972"}], "+", "154.62310192"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.62862731"}], "+", "154.64405669"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.66127918"}], "+", "154.67783353"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.67102565"}], "+", "154.68760574"}], ")"}], "*",
"627.509180"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "CAM", "-", "B3LYP"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-TD-CAM-B3LYP\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.54266469"}], "+", "154.57168445"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.55611569"}], "+", "154.58528190"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.59673447"}], "+", "154.62697729"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.60720887"}], "+", "154.63744365"}], ")"}], "*",
"627.509180"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "wB97X", "-", "V"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-TD-wB97X-V\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.59336359"}], "+", "154.62278545"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.60852651"}], "+", "154.63797921"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.64219264"}], "+", "154.67269733"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.65240885"}], "+", "154.68287894"}], ")"}], "*",
"627.509180"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "M11"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-TD-M11\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.56267867"}], "+", "154.58041405"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.57878636"}], "+", "154.59533393"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.62786976"}], "+", "154.64584649"}], ")"}], "*",
"627.509180"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.63719271"}], "+", "154.65502447"}], ")"}], "*",
"627.509180"}]}], "}"}], ",", "\[IndentingNewLine]",
"\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "ADC2", "-", "s"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-ADC2-s\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.1513498777"}], "+", "154.1620167826"}], ")"}],
"*", "627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.2001677843"}], "+", "154.2115594045"}], ")"}],
"*", "627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.3955261739"}], "+", "154.4092987964"}], ")"}],
"*", "627.5091809"}], ",", "\"\<\>\""}], "}"}], ",",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "ADC2", "-", "x"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-ADC2-x\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.1736408370"}], "+", "154.1874416597"}], ")"}],
"*", "627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.2239437636"}], "+", "154.2385316773"}], ")"}],
"*", "627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.4193422119"}], "+", "154.4359204311"}], ")"}],
"*", "627.5091809"}], ",", "\"\<\>\""}], "}"}], ",",
"\[IndentingNewLine]", "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"SF", "-", "TD", "-", "ADC3"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"\"\<SF-ADC3\>\"", ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.1831506056"}], "+", "154.1959874239"}], ")"}],
"*", "627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.2361527267"}], "+", "154.2501051470"}], ")"}],
"*", "627.5091809"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "154.4296710032"}], "+", "154.4449428950"}], ")"}],
"*", "627.5091809"}], ",", "\"\<\>\""}], "}"}]}],
"\[IndentingNewLine]", "}"}]}], ";"}]}]], "Input",
CellChangeTimes->{{3.827482299721491*^9, 3.82748230564396*^9}, {
3.8274826699629517`*^9, 3.827482682247418*^9}, {3.827824896931892*^9,
3.827824905335404*^9}, {3.8278250114058743`*^9, 3.8278250301151133`*^9}, {
3.827825134566399*^9, 3.8278251747973843`*^9}, {3.827825264585197*^9,
3.82782527175636*^9}, {3.827825340694913*^9, 3.827825342634411*^9}, {
3.827825420530533*^9, 3.827825422470344*^9}, {3.827826453044983*^9,
3.827826478448511*^9}, {3.827828788825864*^9, 3.827828792240816*^9}, {
3.827828842557148*^9, 3.827828890243122*^9}, {3.8278289290860033`*^9,
3.827828946172283*^9}, {3.827829037971554*^9, 3.827829040369026*^9}, {
3.8278293891027117`*^9, 3.827829552087628*^9}, {3.827829695114567*^9,
3.827829729960903*^9}, {3.8278297812662373`*^9, 3.827829887558372*^9}, {
3.8278299257832537`*^9, 3.827829926750765*^9}, {3.827829957200577*^9,
3.8278300090351*^9}, {3.827830040328689*^9, 3.827830065117168*^9}, {
3.827830100240941*^9, 3.827830101928282*^9}, {3.827831074392387*^9,
3.827831165728278*^9}, {3.827889293559032*^9, 3.827889317765502*^9}, {
3.827889350373784*^9, 3.827889358847608*^9}, {3.827889396838183*^9,
3.8278894743644447`*^9}, {3.827889579380293*^9, 3.827889760055367*^9}, {
3.8278910204998083`*^9, 3.827891095347583*^9}, 3.827891135459676*^9, {
3.8278911803675013`*^9, 3.8278912866655827`*^9}, {3.8278916023954973`*^9,
3.827891625844327*^9}, {3.827891675640464*^9, 3.8278919996754303`*^9}, {
3.827892038481646*^9, 3.827892089101644*^9}, {3.827892121601515*^9,
3.827892146450561*^9}, {3.827892180145996*^9, 3.8278921999616823`*^9}, {
3.827892266148489*^9, 3.827892285971759*^9}, {3.82789238937167*^9,
3.827892489563878*^9}, {3.827892547082595*^9, 3.8278925742075653`*^9}, {
3.827892605847987*^9, 3.827892636736638*^9}, {3.827892676140965*^9,
3.827892839923897*^9}, {3.827892982502347*^9, 3.8278930234719133`*^9}, {
3.82789305835047*^9, 3.8278932031209517`*^9}, {3.827893345474082*^9,
3.827893388320796*^9}, {3.8278934277107277`*^9, 3.827893532483468*^9}},
CellLabel->
"In[145]:=",ExpressionUUID->"9cdf6e6d-a218-450a-95f8-e3b0048775a3"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"TableForm", "[",
RowBox[{
RowBox[{"SetAccuracy", "[",
RowBox[{"AutoSF", ",", "3"}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"TableHeadings", "\[Rule]",
RowBox[{"{",
RowBox[{"None", ",",
RowBox[{"{",
RowBox[{
"\"\<Method\>\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\<aug-cc-pVDZ\>\"",
",", "\"\<aug-cc-pVTZ\>\"", ",", "\"\<aug-cc-pVQZ\>\""}], "}"}]}],
"}"}]}], ",", " ",
RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]], "Input",
CellChangeTimes->{{3.827482323284232*^9, 3.8274823237091837`*^9}, {
3.827829466654758*^9, 3.8278294734505787`*^9}, {3.82782955663629*^9,
3.827829559473291*^9}, {3.827830123216207*^9, 3.827830160115258*^9}, {
3.8278301906043577`*^9, 3.8278303147342863`*^9}, {3.827831100880259*^9,
3.8278311034111967`*^9}},
CellLabel->
"In[146]:=",ExpressionUUID->"224e51d4-fb80-4d27-8453-1ee6ceb061d4"],
Cell[BoxData[
TagBox[
TagBox[GridBox[{
{
TagBox["\<\"Method\"\>",
HoldForm],
TagBox["\<\"6-31+G(d)\"\>",
HoldForm],
TagBox["\<\"aug-cc-pVDZ\"\>",
HoldForm],
TagBox["\<\"aug-cc-pVTZ\"\>",
HoldForm],
TagBox["\<\"aug-cc-pVQZ\"\>",
HoldForm]},
{"\<\"SF-CIS\"\>", "2.6409602391040123415`3.4217618627488737",
"2.8215197308190225201`3.4504830916274543",
"3.4256165441761181611`3.534738747401042",
"3.4282458076431581162`3.5350719535883286"},
{"\<\"SF-TD-BLYP\"\>", "23.5748045659425500276`4.37244810114279",
"23.6202299555566312961`4.3732841213868605",
"24.2311540687960942364`4.384374098981671",
"24.2222183380697977384`4.384213914524019"},
{"\<\"SF-TD-B3LYP\"\>", "18.8382397666717729123`4.27504032014818",
"18.9302326126055753264`4.277155950559166",
"19.569005583287989225`4.291568757151947",
"19.5718607500610097816`4.29163211717909"},
{"\<\"SF-TD-PBE0\"\>", "17.3069228374492709577`4.238219857389327",
"17.3568349176990253113`4.239470532873877",
"18.0128204652064489721`4.255581720402629",
"18.0010734933489722209`4.255298405010877"},
{"\<\"SF-TD-BHHLYP\"\>", "11.9010692789363545785`4.075585983331969",
"12.074167686244628328`4.081857203048433",
"12.7250704084696124596`4.104660193989169",
"12.7285719096894514024`4.104779680438199"},
{"\<\"SF-TD-M06-2X\"\>", "9.344992210408415545`3.9705789437054286",
"9.6820775917087082973`3.9859685587341116",
"10.3880065939195169733`4.016532216631307",
"10.4041586802382823862`4.017206967267237"},
{"\<\"SF-TD-CAM-B3LYP\"\>", "18.2101658013860401297`4.260313900012341",
"18.3020645208075727339`4.262500082048605",
"18.9776471790952676599`4.278242368234851",
"18.9726020052808301841`4.278126896468112"},
{"\<\"SF-TD-wB97X-V\"\>", "18.4624872426833128713`4.266290208228786",
"18.4818396257905988023`4.266745197380101",
"19.1419730080636050218`4.281986699499009",
"19.1202611904226493778`4.281493820617095"},
{"\<\"SF-TD-M11\"\>", "11.1291137607914443208`4.046460581754085",
"10.3837520816927124656`4.016354310538907",
"11.2805631013730369716`4.052330779232006",
"11.1895930955612428193`4.048814293895153"},
{"\<\"SF-ADC2-s\"\>", "6.6935807565410261333`3.8256585074208167",
"7.1483462608356180823`3.8542055812605818",
"8.6424470638195618477`3.9366367281089816", "\<\"\"\>"},
{"\<\"SF-ADC2-x\"\>", "8.6601429482267100468`3.9375250607371717",
"9.154049776916723502`3.9616132696579713",
"10.4029847509723190058`4.017157961885544", "\<\"\"\>"},
{"\<\"SF-ADC3\"\>", "8.0552213367964178303`3.906077478216277",
"8.7552718340260149432`3.942269634621038",
"9.5832523142010419548`3.981512922690945", "\<\"\"\>"}
},
GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
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, {"Method", "6-31+G(d)", "aug-cc-pVDZ", "aug-cc-pVTZ",
"aug-cc-pVQZ"}}, TableAlignments -> Left]]]], "Output",
CellChangeTimes->{
3.8278290079896727`*^9, {3.827829473772744*^9, 3.8278295078951283`*^9},
3.827829559949828*^9, 3.8278296994457912`*^9, 3.827830125168944*^9,
3.827830160650173*^9, {3.8278302651439734`*^9, 3.8278302831918793`*^9},
3.827830315515688*^9, 3.8278311038653917`*^9, {3.827831145424098*^9,
3.827831168442906*^9}, 3.8278894827897043`*^9, {3.827889746618675*^9,
3.827889762558609*^9}, 3.827891291045104*^9, 3.8278918475152063`*^9,
3.827892204100655*^9, 3.827892577618187*^9, {3.827892825440534*^9,
3.8278928432874327`*^9}, 3.827893206303258*^9, 3.8278935359926977`*^9},
CellLabel->
"Out[146]//TableForm=",ExpressionUUID->"f0158f25-df23-48b5-af1b-\
3accd460ba28"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{1280, 777},
WindowMargins->{{Automatic, -23}, {Automatic, 0}},
WindowMargins->{{Automatic, 31}, {Automatic, 21}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"7cfd944c-66c4-4b20-856e-aaf3218a9c33"
@ -7221,87 +7672,95 @@ CellTagsIndex->{}
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 157, 3, 98, "Title",ExpressionUUID->"f9fac6ad-b4b0-4fc4-b662-ff26b4fcb383"],
Cell[740, 27, 537, 13, 88, "Input",ExpressionUUID->"73548dbc-1321-4b7c-9133-54658820615c",
Cell[740, 27, 532, 12, 89, "Input",ExpressionUUID->"73548dbc-1321-4b7c-9133-54658820615c",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[1314, 45, 208, 4, 72, "Title",ExpressionUUID->"d98052b5-b8bf-49c7-976f-70f5883fce25"],
Cell[1309, 44, 208, 4, 72, "Title",ExpressionUUID->"d98052b5-b8bf-49c7-976f-70f5883fce25"],
Cell[CellGroupData[{
Cell[1547, 53, 302, 8, 68, "Section",ExpressionUUID->"0d5f8085-b423-4bab-b579-a185275ba81f"],
Cell[1542, 52, 302, 8, 68, "Section",ExpressionUUID->"0d5f8085-b423-4bab-b579-a185275ba81f"],
Cell[CellGroupData[{
Cell[1874, 65, 156, 3, 54, "Subsection",ExpressionUUID->"010a9483-a730-4fa6-9b2a-13873895483d"],
Cell[2033, 70, 422, 11, 33, "Text",ExpressionUUID->"203dfa49-b391-422b-90c4-2b6a46c41acd"],
Cell[2458, 83, 618, 12, 196, "Text",ExpressionUUID->"cd19f4a5-5b55-4f6b-ab28-a67e3893faaf"]
Cell[1869, 64, 156, 3, 54, "Subsection",ExpressionUUID->"010a9483-a730-4fa6-9b2a-13873895483d"],
Cell[2028, 69, 422, 11, 33, "Text",ExpressionUUID->"203dfa49-b391-422b-90c4-2b6a46c41acd"],
Cell[2453, 82, 618, 12, 196, "Text",ExpressionUUID->"cd19f4a5-5b55-4f6b-ab28-a67e3893faaf"]
}, Closed]],
Cell[CellGroupData[{
Cell[3113, 100, 152, 3, 38, "Subsection",ExpressionUUID->"146f0b45-c767-44b4-adf3-b56aaf7be25a"],
Cell[3108, 99, 152, 3, 38, "Subsection",ExpressionUUID->"146f0b45-c767-44b4-adf3-b56aaf7be25a"],
Cell[CellGroupData[{
Cell[3290, 107, 167, 3, 45, "Subsubsection",ExpressionUUID->"85eac05c-0c0d-4570-9562-016c59c123c0"],
Cell[3460, 112, 447, 12, 30, "Input",ExpressionUUID->"5e934c70-0bb3-4c28-a094-c1ba13c9aa1b"],
Cell[3910, 126, 16123, 362, 1627, "Input",ExpressionUUID->"283f461f-fa73-44be-9b2e-3fccbe85020e"]
Cell[3285, 106, 167, 3, 45, "Subsubsection",ExpressionUUID->"85eac05c-0c0d-4570-9562-016c59c123c0"],
Cell[3455, 111, 447, 12, 30, "Input",ExpressionUUID->"5e934c70-0bb3-4c28-a094-c1ba13c9aa1b"],
Cell[3905, 125, 16123, 362, 1627, "Input",ExpressionUUID->"283f461f-fa73-44be-9b2e-3fccbe85020e"]
}, Open ]],
Cell[CellGroupData[{
Cell[20070, 493, 168, 3, 45, "Subsubsection",ExpressionUUID->"496a2a44-bf08-47c1-928f-5e9378cdcbe6"],
Cell[20241, 498, 34689, 895, 1606, "Input",ExpressionUUID->"1f47c0ab-65f0-4e3d-b3bf-78a937e27006"]
Cell[20065, 492, 168, 3, 45, "Subsubsection",ExpressionUUID->"496a2a44-bf08-47c1-928f-5e9378cdcbe6"],
Cell[20236, 497, 34689, 895, 1606, "Input",ExpressionUUID->"1f47c0ab-65f0-4e3d-b3bf-78a937e27006"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[54979, 1399, 271, 4, 54, "Subsection",ExpressionUUID->"e9b6b4b3-0323-418a-aaa5-63000ac657a3"],
Cell[54974, 1398, 271, 4, 54, "Subsection",ExpressionUUID->"e9b6b4b3-0323-418a-aaa5-63000ac657a3"],
Cell[CellGroupData[{
Cell[55275, 1407, 167, 3, 45, "Subsubsection",ExpressionUUID->"c2a68803-eb09-4af4-95e0-ded4fd26bba2"],
Cell[55270, 1406, 167, 3, 45, "Subsubsection",ExpressionUUID->"c2a68803-eb09-4af4-95e0-ded4fd26bba2"],
Cell[CellGroupData[{
Cell[55467, 1414, 3016, 47, 56, "Input",ExpressionUUID->"517fe565-dbd4-4f72-9bce-30280a372548"],
Cell[58486, 1463, 7766, 161, 1056, "Output",ExpressionUUID->"2be1012c-883f-42eb-b9e3-ba443f8e5e1d"]
Cell[55462, 1413, 3016, 47, 56, "Input",ExpressionUUID->"517fe565-dbd4-4f72-9bce-30280a372548"],
Cell[58481, 1462, 7766, 161, 1056, "Output",ExpressionUUID->"2be1012c-883f-42eb-b9e3-ba443f8e5e1d"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[66301, 1630, 168, 3, 37, "Subsubsection",ExpressionUUID->"e347b647-085c-4a7a-aacb-16cb902d6b69"],
Cell[66296, 1629, 168, 3, 37, "Subsubsection",ExpressionUUID->"e347b647-085c-4a7a-aacb-16cb902d6b69"],
Cell[CellGroupData[{
Cell[66494, 1637, 1559, 31, 77, "Input",ExpressionUUID->"9326eaa0-341b-4e7e-b996-418c884cb254"],
Cell[68056, 1670, 109780, 2764, 1850, "Output",ExpressionUUID->"97c1e6af-851b-4074-9392-0292b07355a3"]
Cell[66489, 1636, 1559, 31, 77, "Input",ExpressionUUID->"9326eaa0-341b-4e7e-b996-418c884cb254"],
Cell[68051, 1669, 109780, 2764, 1850, "Output",ExpressionUUID->"97c1e6af-851b-4074-9392-0292b07355a3"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[177897, 4441, 152, 3, 54, "Subsection",ExpressionUUID->"a0eea47c-0908-49f4-87f8-8a7d458525f2"],
Cell[178052, 4446, 2808, 53, 115, "Input",ExpressionUUID->"c94fe3f6-bb2b-425b-9436-cceb389f4f54"],
Cell[180863, 4501, 8151, 180, 283, "Input",ExpressionUUID->"ce9a37c9-f290-4ff9-8e20-fb2ac069191f"],
Cell[189017, 4683, 129, 3, 30, "Input",ExpressionUUID->"afe9eaa6-d491-4b7a-be7d-51d4faa79596"]
Cell[177892, 4440, 152, 3, 54, "Subsection",ExpressionUUID->"a0eea47c-0908-49f4-87f8-8a7d458525f2"],
Cell[178047, 4445, 2808, 53, 115, "Input",ExpressionUUID->"c94fe3f6-bb2b-425b-9436-cceb389f4f54"],
Cell[180858, 4500, 8151, 180, 283, "Input",ExpressionUUID->"ce9a37c9-f290-4ff9-8e20-fb2ac069191f"],
Cell[189012, 4682, 129, 3, 30, "Input",ExpressionUUID->"afe9eaa6-d491-4b7a-be7d-51d4faa79596"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
Cell[189195, 4692, 351, 9, 68, "Section",ExpressionUUID->"031beb2c-3612-4398-bbed-82451a91c66a"],
Cell[189190, 4691, 351, 9, 68, "Section",ExpressionUUID->"031beb2c-3612-4398-bbed-82451a91c66a"],
Cell[CellGroupData[{
Cell[189571, 4705, 156, 3, 54, "Subsection",ExpressionUUID->"e797c147-2261-4ad9-bf30-a876fe039a42"],
Cell[189730, 4710, 475, 11, 33, "Text",ExpressionUUID->"adf832dd-e1af-42ec-b58c-cbbbe9c3192b"],
Cell[190208, 4723, 480, 12, 196, "Text",ExpressionUUID->"c1f07e0a-8d48-41b9-a295-c059851cd566"]
Cell[189566, 4704, 156, 3, 54, "Subsection",ExpressionUUID->"e797c147-2261-4ad9-bf30-a876fe039a42"],
Cell[189725, 4709, 475, 11, 33, "Text",ExpressionUUID->"adf832dd-e1af-42ec-b58c-cbbbe9c3192b"],
Cell[190203, 4722, 480, 12, 196, "Text",ExpressionUUID->"c1f07e0a-8d48-41b9-a295-c059851cd566"]
}, Closed]],
Cell[CellGroupData[{
Cell[190725, 4740, 152, 3, 38, "Subsection",ExpressionUUID->"0b0b3775-588f-4d6e-8521-a48a2543bc88"],
Cell[190880, 4745, 15753, 350, 1522, "Input",ExpressionUUID->"0fe9f196-cce7-4233-9666-614981e2b593"],
Cell[206636, 5097, 31154, 808, 1732, "Input",ExpressionUUID->"86ef0a50-daa3-492e-bff4-0c102d15e915"]
Cell[190720, 4739, 152, 3, 38, "Subsection",ExpressionUUID->"0b0b3775-588f-4d6e-8521-a48a2543bc88"],
Cell[190875, 4744, 15753, 350, 1522, "Input",ExpressionUUID->"0fe9f196-cce7-4233-9666-614981e2b593"],
Cell[206631, 5096, 31154, 808, 1732, "Input",ExpressionUUID->"86ef0a50-daa3-492e-bff4-0c102d15e915"]
}, Open ]],
Cell[CellGroupData[{
Cell[237827, 5910, 271, 4, 54, "Subsection",ExpressionUUID->"29d9a581-07ec-4f13-a8a0-7566f2d2f79d"],
Cell[237822, 5909, 271, 4, 54, "Subsection",ExpressionUUID->"29d9a581-07ec-4f13-a8a0-7566f2d2f79d"],
Cell[CellGroupData[{
Cell[238123, 5918, 1126, 24, 100, "Input",ExpressionUUID->"e8d3b26f-3e58-4a8e-a660-5c2cf37c7202"],
Cell[239252, 5944, 26504, 685, 508, "Output",ExpressionUUID->"44230119-7a81-4027-9dcf-5be63e57cabe"]
Cell[238118, 5917, 1126, 24, 56, "Input",ExpressionUUID->"e8d3b26f-3e58-4a8e-a660-5c2cf37c7202"],
Cell[239247, 5943, 26504, 685, 508, "Output",ExpressionUUID->"44230119-7a81-4027-9dcf-5be63e57cabe"]
}, Open ]],
Cell[CellGroupData[{
Cell[265793, 6634, 3156, 50, 79, "Input",ExpressionUUID->"a64c1c75-5181-46a3-916b-6c0d8d53cd2a"],
Cell[268952, 6686, 13306, 291, 966, "Output",ExpressionUUID->"e2124d33-2d89-4e1c-8d3a-3faa59b02399"]
Cell[265788, 6633, 3156, 50, 56, "Input",ExpressionUUID->"a64c1c75-5181-46a3-916b-6c0d8d53cd2a"],
Cell[268947, 6685, 13306, 291, 966, "Output",ExpressionUUID->"e2124d33-2d89-4e1c-8d3a-3faa59b02399"]
}, Open ]],
Cell[282273, 6980, 147, 3, 52, "Input",ExpressionUUID->"91058d2c-e268-4c8b-8ff4-d01b8a02c12e"]
Cell[282268, 6979, 147, 3, 52, "Input",ExpressionUUID->"91058d2c-e268-4c8b-8ff4-d01b8a02c12e"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[282469, 6989, 164, 3, 67, "Section",ExpressionUUID->"5e574607-3b56-4320-867c-484c37c5330b"],
Cell[282464, 6988, 164, 3, 67, "Section",ExpressionUUID->"5e574607-3b56-4320-867c-484c37c5330b"],
Cell[CellGroupData[{
Cell[282658, 6996, 152, 3, 54, "Subsection",ExpressionUUID->"1c76f8e7-0977-47de-b4f9-95febd6ffe98"],
Cell[282813, 7001, 2921, 65, 241, "Input",ExpressionUUID->"1606e71a-fdd3-4bff-84a4-4cf2d64faef5"],
Cell[282653, 6995, 152, 3, 54, "Subsection",ExpressionUUID->"1c76f8e7-0977-47de-b4f9-95febd6ffe98"],
Cell[282808, 7000, 2921, 65, 241, "Input",ExpressionUUID->"1606e71a-fdd3-4bff-84a4-4cf2d64faef5"],
Cell[CellGroupData[{
Cell[285759, 7070, 3030, 47, 52, "Input",ExpressionUUID->"4b815da6-1ca4-49fb-9f5e-99820f6623b2"],
Cell[288792, 7119, 3424, 79, 200, "Output",ExpressionUUID->"37fab670-976c-41e6-a633-c9de5012fcd2"]
Cell[285754, 7069, 3030, 47, 52, "Input",ExpressionUUID->"4b815da6-1ca4-49fb-9f5e-99820f6623b2"],
Cell[288787, 7118, 3424, 79, 200, "Output",ExpressionUUID->"37fab670-976c-41e6-a633-c9de5012fcd2"]
}, Open ]],
Cell[CellGroupData[{
Cell[292248, 7202, 168, 3, 45, "Subsubsection",ExpressionUUID->"39bfcb3c-82e9-40f1-a609-e1fd21238104"],
Cell[292419, 7207, 12750, 327, 1060, "Input",ExpressionUUID->"9cdf6e6d-a218-450a-95f8-e3b0048775a3"],
Cell[CellGroupData[{
Cell[305194, 7538, 926, 20, 52, "Input",ExpressionUUID->"224e51d4-fb80-4d27-8453-1ee6ceb061d4"],
Cell[306123, 7560, 4268, 88, 296, "Output",ExpressionUUID->"f0158f25-df23-48b5-af1b-3accd460ba28"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]