diff --git a/Manuscript/CBD.tex b/Manuscript/CBD.tex index 52fc8c3..3e05a53 100644 --- a/Manuscript/CBD.tex +++ b/Manuscript/CBD.tex @@ -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$ \\ diff --git a/Notebooks/CBD.nb b/Notebooks/CBD.nb index ec9410d..92fab3d 100644 --- a/Notebooks/CBD.nb +++ b/Notebooks/CBD.nb @@ -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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{"\"\\"", ",", + 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[{ + "\"\\"", ",", "\"\<6-31+G(d)\>\"", ",", "\"\\"", + ",", "\"\\"", ",", "\"\\""}], "}"}]}], + "}"}]}], ",", " ", + 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 ]]