revision minus abstract

This commit is contained in:
Pierre-Francois Loos 2020-01-30 17:13:55 +01:00
parent a41794b36b
commit 030c387449
8 changed files with 416 additions and 132 deletions

500
JPCL.nb
View File

@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 1756366, 34036]
NotebookOptionsPosition[ 1753145, 33971]
NotebookOutlinePosition[ 1753481, 33986]
CellTagsIndexPosition[ 1753438, 33983]
NotebookDataLength[ 1768962, 34314]
NotebookOptionsPosition[ 1765742, 34249]
NotebookOutlinePosition[ 1766078, 34264]
CellTagsIndexPosition[ 1766035, 34261]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@ -31,19 +31,17 @@ Cell[BoxData[
InitializationCell->True,
CellChangeTimes->{{3.7208031947801647`*^9, 3.7208032000677156`*^9}, {
3.7208034541742477`*^9, 3.720803455246439*^9}},
CellLabel->"In[1]:=",ExpressionUUID->"ba389371-54e0-4b1f-9878-e36ccf520d87"],
CellLabel->"In[29]:=",ExpressionUUID->"ba389371-54e0-4b1f-9878-e36ccf520d87"],
Cell[BoxData[
RowBox[{
RowBox[{
"SetDirectory", "[", "\"\<~/Dropbox/Manuscripts/JPCL_Perspective/Data\>\"",
"]"}], ";"}]], "Input",
RowBox[{"SetDirectory", "[", "\"\<~\>\"", "]"}], ";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.727109326220275*^9, 3.7271093336928377`*^9}, {
3.739897263620181*^9, 3.739897264594913*^9}, {3.742537460346127*^9,
3.74253746199249*^9}, {3.745337457365486*^9, 3.745337461494843*^9}, {
3.781938557684667*^9, 3.7819385616754217`*^9}},
CellLabel->"In[2]:=",ExpressionUUID->"4c6d517d-fdd1-4c29-88db-2ebc38cf3636"],
3.739897263620181*^9, 3.739897264594913*^9}, {3.742537460346127*^9,
3.74253746199249*^9}, {3.745337457365486*^9, 3.745337461494843*^9}, {
3.781938557684667*^9, 3.7819385616754217`*^9}, 3.78938952957638*^9},
CellLabel->"In[89]:=",ExpressionUUID->"88a506f2-6f4b-4997-a7c7-24cc455ea3fb"],
Cell[BoxData[{
RowBox[{"Needs", "[", "\"\<MaTeX`\>\"", "]"}], "\[IndentingNewLine]",
@ -57,8 +55,8 @@ mathpazo,xcolor,bm,mhchem}\>\"", "}"}]}]}], "]"}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, {
3.733131339213026*^9, 3.733131352923026*^9}},
CellLabel->"In[3]:=",ExpressionUUID->"c9be84f0-2c20-478e-b59b-84a5537b75fc"]
}, Closed]],
CellLabel->"In[31]:=",ExpressionUUID->"c9be84f0-2c20-478e-b59b-84a5537b75fc"]
}, Open ]],
Cell[CellGroupData[{
@ -781,7 +779,7 @@ Cell[BoxData[
3.783135241747641*^9, 3.783135257116673*^9}, {3.783135351226633*^9,
3.7831353567935553`*^9}, {3.78313542118883*^9, 3.783135455356436*^9}, {
3.789321139342793*^9, 3.789321139678691*^9}},
CellLabel->"In[5]:=",ExpressionUUID->"45cf9d80-c96e-420f-a644-dcbc494fec23"],
CellLabel->"In[33]:=",ExpressionUUID->"45cf9d80-c96e-420f-a644-dcbc494fec23"],
Cell[BoxData[
RowBox[{
@ -864,7 +862,7 @@ Cell[BoxData[
3.789321248475191*^9}, {3.789321285801785*^9, 3.789321293484908*^9}, {
3.789321348994155*^9, 3.789321358846573*^9}, {3.789321492134461*^9,
3.78932171942185*^9}},
CellLabel->"In[6]:=",ExpressionUUID->"6b2d5928-b91a-40cd-b9e4-c0014e34a8a5"],
CellLabel->"In[34]:=",ExpressionUUID->"6b2d5928-b91a-40cd-b9e4-c0014e34a8a5"],
Cell[BoxData[
RowBox[{
@ -927,7 +925,7 @@ Cell[BoxData[
3.789321058333789*^9, 3.789321058670858*^9}, {3.789321143414887*^9,
3.789321248475191*^9}, {3.789321285801785*^9, 3.7893214055882683`*^9}, {
3.789322644612138*^9, 3.789322645061562*^9}},
CellLabel->"In[7]:=",ExpressionUUID->"ada5f20e-31d6-4398-820c-353fef477dbe"],
CellLabel->"In[35]:=",ExpressionUUID->"ada5f20e-31d6-4398-820c-353fef477dbe"],
Cell[BoxData[
RowBox[{
@ -967,7 +965,7 @@ Cell[BoxData[
3.781958365451433*^9, 3.781958370040531*^9}, {3.781959104779048*^9,
3.781959176402637*^9}, {3.7820631958659277`*^9, 3.782063200166191*^9}, {
3.789321919022689*^9, 3.789321919574663*^9}},
CellLabel->"In[8]:=",ExpressionUUID->"6763536a-7dfc-48b1-b72e-d25cb0da44f7"],
CellLabel->"In[36]:=",ExpressionUUID->"6763536a-7dfc-48b1-b72e-d25cb0da44f7"],
Cell[BoxData[
RowBox[{
@ -1007,7 +1005,7 @@ Cell[BoxData[
3.781958365451433*^9, 3.781958370040531*^9}, {3.781959104779048*^9,
3.781959176402637*^9}, {3.7820631958659277`*^9, 3.782063200166191*^9}, {
3.789321919022689*^9, 3.789322012411972*^9}},
CellLabel->"In[9]:=",ExpressionUUID->"1ba35503-311c-4bca-8594-a2c7fda05e82"],
CellLabel->"In[48]:=",ExpressionUUID->"1ba35503-311c-4bca-8594-a2c7fda05e82"],
Cell[BoxData[
RowBox[{
@ -1047,7 +1045,7 @@ Cell[BoxData[
3.781958365451433*^9, 3.781958370040531*^9}, {3.781959104779048*^9,
3.781959176402637*^9}, {3.7820631958659277`*^9, 3.782063200166191*^9}, {
3.789321919022689*^9, 3.7893220901006737`*^9}},
CellLabel->"In[10]:=",ExpressionUUID->"29fd4692-1c23-428a-a1d2-4c130cbf08e8"],
CellLabel->"In[49]:=",ExpressionUUID->"29fd4692-1c23-428a-a1d2-4c130cbf08e8"],
Cell[BoxData[
RowBox[{
@ -1121,7 +1119,7 @@ Cell[BoxData[
3.783135024458618*^9, 3.783135068644104*^9}, {3.783135327041012*^9,
3.783135327441193*^9}, {3.7831354662211103`*^9, 3.783135653372986*^9},
3.789322820414755*^9},
CellLabel->"In[11]:=",ExpressionUUID->"78e9680e-766f-4b4f-8d0f-cf65509e370a"],
CellLabel->"In[46]:=",ExpressionUUID->"78e9680e-766f-4b4f-8d0f-cf65509e370a"],
Cell[BoxData[
RowBox[{
@ -1139,46 +1137,52 @@ Cell[BoxData[
RowBox[{"(*", " ", "All", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
"0.16", ",", "0.02", ",", "0.11", ",", "0.01", ",", "0.05", ",", "0.05",
",", "0.00", ",", "0.01", ","}], "}"}], ",", "\[IndentingNewLine]",
"0.16", ",", "0.03", ",", "0.11", ",", "0.01", ",", "0.05", ",", "0.05",
",", "0.00", ",", "0.00", ",",
RowBox[{"-", "0.09"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"(*", " ", "Singlets", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0.10", ",",
RowBox[{"-", "0.03"}], ",", "0.15", ",", "0.06", ",", "0.05", ",",
"0.05", ",", "0.00", ",",
RowBox[{"-", "0.04"}], ","}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"-", "0.04"}], ",",
RowBox[{"-", "0.04"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"(*", " ", "Triplets", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0.24", ",", "0.10", ",", "0.05", ",",
RowBox[{"-", "0.06"}], ",", ",", ",", "0.01", ",", "0.07", ","}],
"}"}], ",", "\[IndentingNewLine]",
RowBox[{"-", "0.06"}], ",", ",", ",", "0.01", ",", "0.07", ",",
RowBox[{"-", "0.16"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"(*", " ", "Valence", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0.24", ",", "0.10", ",", "0.12", ",",
RowBox[{"-", "0.04"}], ",", "0.07", ",", "0.06", ",", "0.01", ",",
"0.06", ","}], "}"}], ",", "\[IndentingNewLine]",
"0.06", ",",
RowBox[{"-", "0.12"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"(*", " ", "Rydberg", " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{
RowBox[{"-", "0.05"}], ",",
RowBox[{"-", "0.17"}], ",", "0.09", ",", "0.12", ",", "0.02", ",",
"0.03", ",", "0.00", ",",
RowBox[{"-", "0.13"}], ","}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"-", "0.13"}], ",",
RowBox[{"-", "0.02"}]}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"n", " ", "\[Rule]", " ",
SuperscriptBox["\[Pi]", "*"]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0.19", ",", "0.01", ",", "0.19", ",",
RowBox[{"-", "0.02"}], ",", "0.08", ",", "0.08", ",", "0.00", ",",
RowBox[{"-", "0.04"}], ","}], "}"}], ",", "\[IndentingNewLine]",
RowBox[{"-", "0.04"}], ",", "0.05"}], "}"}], ",",
"\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{"\[Pi]", " ", "\[Rule]", " ",
SuperscriptBox["\[Pi]", "*"]}], " ", "*)"}], "\[IndentingNewLine]",
RowBox[{"{",
RowBox[{"0.28", ",", "0.17", ",", "0.07", ",",
RowBox[{"-", "0.06"}], ",", "0.06", ",", "0.04", ",", "0.01", ",",
"0.14", ","}], "}"}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input",\
"0.14", ",",
RowBox[{"-", "0.24"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}],
";"}]], "Input",
InitializationCell->True,
CellChangeTimes->{{3.781893953023163*^9, 3.7818941892492447`*^9}, {
3.7819396045010347`*^9, 3.781939672571336*^9}, {3.7819399328187*^9,
@ -1193,8 +1197,10 @@ Cell[BoxData[
3.783135024458618*^9, 3.783135068644104*^9}, {3.783135327041012*^9,
3.783135327441193*^9}, {3.7831354662211103`*^9, 3.783135653372986*^9}, {
3.789322814727223*^9, 3.789322855672071*^9}, {3.789322929650778*^9,
3.7893231673786507`*^9}},
CellLabel->"In[12]:=",ExpressionUUID->"e0831c15-ee95-4fdd-ae00-dc861cda6789"],
3.7893231673786507`*^9}, {3.789386982807028*^9, 3.7893870550532837`*^9}, {
3.78938902042824*^9, 3.789389034553595*^9}, {3.7893890695589657`*^9,
3.789389101848325*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"e0831c15-ee95-4fdd-ae00-dc861cda6789"],
Cell[BoxData[{
RowBox[{
@ -1220,7 +1226,7 @@ Cell[BoxData[{
3.7819542141771097`*^9, 3.7819542459669867`*^9}, {3.781954377663661*^9,
3.78195437785397*^9}, {3.7819544330710287`*^9, 3.781954434661539*^9}, {
3.781954605558563*^9, 3.7819546825571012`*^9}},
CellLabel->"In[13]:=",ExpressionUUID->"cb3cdcd5-bda4-4d59-b62e-e78ebb66a6db"],
CellLabel->"In[41]:=",ExpressionUUID->"cb3cdcd5-bda4-4d59-b62e-e78ebb66a6db"],
Cell[CellGroupData[{
@ -1402,7 +1408,10 @@ Cell[BoxData[{
RowBox[{"FontSize", "\[Rule]",
RowBox[{"1.5", "SizeLabel"}]}]}], "]"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "AspRat"}]}], "]"}]}],
"\[IndentingNewLine]", "}"}], "]"}]}], "Input",
"\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{"\"\<QUEST1.pdf\>\"", ",", "%"}], "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.781938520902409*^9, 3.781938524501739*^9}, {
3.781938593565028*^9, 3.781938802634139*^9}, {3.781939513159462*^9,
3.781939517932762*^9}, {3.781939690173964*^9, 3.7819398150451508`*^9},
@ -1427,8 +1436,10 @@ Cell[BoxData[{
3.789364868055026*^9, 3.789364906812339*^9}, {3.78936523662679*^9,
3.789365288562284*^9}, {3.789365324689355*^9, 3.789365428363841*^9}, {
3.789365478225256*^9, 3.789365498723482*^9}, {3.789365543773486*^9,
3.789365588174321*^9}, {3.789372145082897*^9, 3.7893721636318083`*^9}},
CellLabel->"In[96]:=",ExpressionUUID->"da475127-bb06-45e4-a1f1-c9a46c3108e0"],
3.789365588174321*^9}, {3.789372145082897*^9, 3.7893721636318083`*^9}, {
3.789389483039199*^9, 3.789389485008061*^9}, 3.7893895543424883`*^9},
CellLabel->
"In[111]:=",ExpressionUUID->"da475127-bb06-45e4-a1f1-c9a46c3108e0"],
Cell[BoxData[
TagBox[GridBox[{
@ -15223,9 +15234,10 @@ d386iH4m7IAePwBmkccx
3.7831352714928427`*^9}, 3.7831356578237953`*^9, {3.78936530439181*^9,
3.7893654293515997`*^9}, {3.7893654793341427`*^9, 3.789365499856133*^9}, {
3.789365545568029*^9, 3.789365589013208*^9}, {3.789372147854294*^9,
3.789372164569372*^9}},
3.789372164569372*^9}, 3.7893891392362556`*^9, 3.789389485876392*^9, {
3.7893895372490187`*^9, 3.7893895551710377`*^9}},
CellLabel->
"Out[101]=",ExpressionUUID->"79991a18-cc42-4e45-8655-c8d9ffe4f5ae"]
"Out[116]=",ExpressionUUID->"de4bb94d-809d-4f5c-b2ff-b36a59714b06"]
}, Open ]],
Cell[CellGroupData[{
@ -15360,7 +15372,10 @@ Cell[BoxData[{
RowBox[{"FontSize", "\[Rule]", "SizeLabel"}]}], "]"}]}], "}"}]}],
",",
RowBox[{"AspectRatio", "\[Rule]", "AspRat"}]}], "]"}]}],
"\[IndentingNewLine]", "}"}], "]"}]}], "Input",
"\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{"\"\<QUEST2.pdf\>\"", ",", "%"}], "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.781938520902409*^9, 3.781938524501739*^9}, {
3.781938593565028*^9, 3.781938802634139*^9}, {3.781939513159462*^9,
3.781939517932762*^9}, {3.781939690173964*^9, 3.7819398150451508`*^9},
@ -15374,9 +15389,9 @@ Cell[BoxData[{
3.7825790139045362`*^9}, {3.7893717498077602`*^9,
3.7893718597934303`*^9}, {3.7893718930210342`*^9, 3.789371893569792*^9}, {
3.789372137624784*^9, 3.789372138213593*^9}, {3.789372175259263*^9,
3.789372176854371*^9}},
3.789372176854371*^9}, {3.789389476832017*^9, 3.789389478837398*^9}},
CellLabel->
"In[102]:=",ExpressionUUID->"3f62937c-156b-4312-98f7-c849d1d8d333"],
"In[118]:=",ExpressionUUID->"3f62937c-156b-4312-98f7-c849d1d8d333"],
Cell[BoxData[
TagBox[GridBox[{
@ -20207,9 +20222,10 @@ esgDqv68koOqIccaGak4h5XfXlacUVCAux9sjo+YA3r8AADWtMUF
3.782579006865528*^9, 3.7825790152038918`*^9}, 3.783133367275828*^9,
3.783135663585938*^9, 3.789371769297454*^9, 3.7893718243313093`*^9, {
3.789371858005541*^9, 3.789371862174782*^9}, 3.789371894551461*^9,
3.789372138775522*^9, 3.7893721775399218`*^9},
3.789372138775522*^9, 3.7893721775399218`*^9, 3.789389153401898*^9,
3.789389479592339*^9, {3.789389539554512*^9, 3.7893895584070053`*^9}},
CellLabel->
"Out[107]=",ExpressionUUID->"0459c789-deca-4387-b413-51af51feb8b3"]
"Out[123]=",ExpressionUUID->"ef0d9ea2-669b-44a2-af77-57867dcbe9ce"]
}, Open ]],
Cell[CellGroupData[{
@ -20406,7 +20422,10 @@ Cell[BoxData[{
RowBox[{"FontSize", "\[Rule]",
RowBox[{"1.5", "SizeLabel"}]}]}], "]"}]}], "}"}]}], ",",
RowBox[{"AspectRatio", "\[Rule]", "AspRat"}]}], "]"}]}],
"\[IndentingNewLine]", "}"}], "]"}]}], "Input",
"\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Export", "[",
RowBox[{"\"\<QUEST3.pdf\>\"", ",", "%"}], "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.781938520902409*^9, 3.781938524501739*^9}, {
3.781938593565028*^9, 3.781938802634139*^9}, {3.781939513159462*^9,
3.781939517932762*^9}, {3.781939690173964*^9, 3.7819398150451508`*^9},
@ -20430,8 +20449,9 @@ Cell[BoxData[{
3.782579023205173*^9, 3.782579027717045*^9}, {3.783135194820512*^9,
3.783135205354796*^9}, {3.783135281677175*^9, 3.783135281747287*^9}, {
3.789371947530628*^9, 3.789372001182827*^9}, {3.789372062659203*^9,
3.789372128244473*^9}},
CellLabel->"In[78]:=",ExpressionUUID->"fd6b57a3-af46-44c7-a675-b34955bc828f"],
3.789372128244473*^9}, {3.789389455163342*^9, 3.789389467895405*^9}},
CellLabel->
"In[104]:=",ExpressionUUID->"fd6b57a3-af46-44c7-a675-b34955bc828f"],
Cell[BoxData[
TagBox[GridBox[{
@ -31549,24 +31569,25 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[0.95111, 0.550904, 0.599153],
PolygonBox[{{2., 0.02}, {3., 0.02}, {4.12763114494309,
0.03358021157322508}, {3.12763114494309,
0.03358021157322508}}]}, {
PolygonBox[{{2., 0.03}, {3., 0.03}, {4.12763114494309,
0.04358021157322508}, {3.12763114494309,
0.04358021157322508}}]}, {
RGBColor[0.931554, 0.3712656, 0.43881420000000004`],
PolygonBox[{{3., 0.}, {3., 0.02}, {4.12763114494309,
0.03358021157322508}, {4.12763114494309,
PolygonBox[{{3., 0.}, {3., 0.03}, {4.12763114494309,
0.04358021157322508}, {4.12763114494309,
0.013580211573225079`}}]},
RectangleBox[{2., 0.}, {3., 0.02}]}}},
RectangleBox[{2., 0.}, {3., 0.03}]}}},
ImageSizeCache->{{112.7606933090101, 162.2393066909899}, {
1.7606933090100938`, 24.239306690989906`}}],
ImageSizeCache->{{112.7606933090101,
162.2393066909899}, {-3.239306690989906,
24.239306690989906`}}],
"DelayedMouseEffectStyle"],
StatusArea[#, 0.02]& ,
TagBoxNote->"0.02"],
StyleBox["0.02`", {}, StripOnInput -> False]],
StatusArea[#, 0.03]& ,
TagBoxNote->"0.03"],
StyleBox["0.03`", {}, StripOnInput -> False]],
Annotation[#,
Style[0.02, {}], "Tooltip"]& ]},
Style[0.03, {}], "Tooltip"]& ]},
{RGBColor[0.90222, 0.101808, 0.198306], EdgeForm[{Opacity[0.259],
Thickness[Small]}],
TagBox[
@ -31750,24 +31771,58 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[0.95111, 0.550904, 0.599153],
PolygonBox[{{8., 0.01}, {9., 0.01}, {10.12763114494309,
0.02358021157322508}, {9.12763114494309,
0.02358021157322508}}]}, {
PolygonBox[{{8., 0.}, {9., 0.}, {10.12763114494309,
0.013580211573225079`}, {9.12763114494309,
0.013580211573225079`}}]}, {
RGBColor[0.931554, 0.3712656, 0.43881420000000004`],
PolygonBox[{{9., 0.}, {9., 0.01}, {10.12763114494309,
0.02358021157322508}, {10.12763114494309,
PolygonBox[{{9., 0.}, {9., 0.}, {10.12763114494309,
0.013580211573225079`}, {10.12763114494309,
0.013580211573225079`}}]},
RectangleBox[{8., 0.}, {9., 0.01}]}}},
RectangleBox[{8., 0.}, {9., 0.}]}}},
ImageSizeCache->{{231.7606933090101, 281.2393066909899}, {
5.760693309010094, 24.239306690989906`}}],
10.760693309010094`, 24.239306690989906`}}],
"DelayedMouseEffectStyle"],
StatusArea[#, 0.01]& ,
TagBoxNote->"0.01"],
StyleBox["0.01`", {}, StripOnInput -> False]],
StatusArea[#, 0.]& ,
TagBoxNote->"0."],
StyleBox["0.`", {}, StripOnInput -> False]],
Annotation[#,
Style[0.01, {}], "Tooltip"]& ]}, {}}, {}, {}}, {{},
Style[0., {}], "Tooltip"]& ]},
{RGBColor[0.90222, 0.101808, 0.198306], EdgeForm[{Opacity[0.259],
Thickness[Small]}],
TagBox[
TooltipBox[
TagBox[
TagBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[0.95111, 0.550904, 0.599153],
PolygonBox[{{9., 0.}, {10., 0.}, {11.12763114494309,
0.013580211573225079`}, {10.12763114494309,
0.013580211573225079`}}]}, {
RGBColor[0.931554, 0.3712656, 0.43881420000000004`],
PolygonBox[{{10., 0.}, {10., -0.09}, {
11.12763114494309, -0.07641978842677492}, {
11.12763114494309, 0.013580211573225079`}}]},
RectangleBox[{9., 0.}, {10., -0.09}]}}},
ImageSizeCache->{{251.7606933090101, 301.2393066909899}, {
10.760693309010094`, 67.2393066909899}}],
"DelayedMouseEffectStyle"],
StatusArea[#, -0.09]& ,
TagBoxNote->"-0.09"],
StyleBox[
RowBox[{"-", "0.09`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.09, {}], "Tooltip"]& ]}}, {}, {}}, {{},
{RGBColor[
0.43315467307722716`, 0.3384619423049553, 0.9999676857362557],
{RGBColor[
@ -31799,6 +31854,7 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
0.11358021157322508`}, {13.12763114494309,
0.013580211573225079`}}]},
RectangleBox[{11., 0.}, {12., 0.1}]}}},
ImageSizeCache->{{291.7606933090101,
341.2393066909899}, {-36.23930669098991,
24.239306690989906`}}],
@ -32079,7 +32135,46 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
StyleBox[
RowBox[{"-", "0.04`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.04, {}], "Tooltip"]& ]}, {}}, {}, {}}, {{},
Style[-0.04, {}], "Tooltip"]& ]},
{RGBColor[
0.43315467307722716`, 0.3384619423049553, 0.9999676857362557],
EdgeForm[{Opacity[0.259], Thickness[Small]}],
TagBox[
TooltipBox[
TagBox[
TagBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[
0.7165773365386137, 0.6692309711524776,
0.9999838428681278],
PolygonBox[{{19., 0.}, {20., 0.}, {21.12763114494309,
0.013580211573225079`}, {20.12763114494309,
0.013580211573225079`}}]}, {
RGBColor[
0.6032082711540591, 0.5369233596134687,
0.9999773800153791],
PolygonBox[{{20., 0.}, {20., -0.04}, {
21.12763114494309, -0.02641978842677492}, {
21.12763114494309, 0.013580211573225079`}}]},
RectangleBox[{19., 0.}, {20., -0.04}]}}},
ImageSizeCache->{{450.7606933090101, 500.2393066909899}, {
10.760693309010094`, 43.239306690989906`}}],
"DelayedMouseEffectStyle"],
StatusArea[#, -0.04]& ,
TagBoxNote->"-0.04"],
StyleBox[
RowBox[{"-", "0.04`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.04, {}], "Tooltip"]& ]}}, {}, {}}, {{},
{RGBColor[0.14287214708202123`, 0.7165497398815136, 1.],
{RGBColor[0.14287214708202123`, 0.7165497398815136, 1.], EdgeForm[{
Opacity[0.259], Thickness[Small]}],
@ -32236,6 +32331,7 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
0.02358021157322508}, {28.12763114494309,
0.02358021157322508}}]}, {
RGBColor[0.40001050295741486`, 0.8015848179170595, 1.],
PolygonBox[{{28., 0.}, {28., 0.01}, {29.12763114494309,
0.02358021157322508}, {29.12763114494309,
0.013580211573225079`}}]},
@ -32282,7 +32378,40 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
TagBoxNote->"0.07"],
StyleBox["0.07`", {}, StripOnInput -> False]],
Annotation[#,
Style[0.07, {}], "Tooltip"]& ]}, {}}, {}, {}}, {{},
Style[0.07, {}], "Tooltip"]& ]},
{RGBColor[0.14287214708202123`, 0.7165497398815136, 1.], EdgeForm[{
Opacity[0.259], Thickness[Small]}],
TagBox[
TooltipBox[
TagBox[
TagBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[0.5714360735410107, 0.8582748699407567, 1.],
PolygonBox[{{29., 0.}, {30., 0.}, {31.12763114494309,
0.013580211573225079`}, {30.12763114494309,
0.013580211573225079`}}]}, {
RGBColor[0.40001050295741486`, 0.8015848179170595, 1.],
PolygonBox[{{30., 0.}, {30., -0.16}, {
31.12763114494309, -0.14641978842677492`}, {
31.12763114494309, 0.013580211573225079`}}]},
RectangleBox[{29., 0.}, {30., -0.16}]}}},
ImageSizeCache->{{649.7606933090101, 699.2393066909899}, {
10.760693309010094`, 100.2393066909899}}],
"DelayedMouseEffectStyle"],
StatusArea[#, -0.16]& ,
TagBoxNote->"-0.16"],
StyleBox[
RowBox[{"-", "0.16`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.16, {}], "Tooltip"]& ]}}, {}, {}}, {{},
{RGBColor[
0.23499123809468608`, 0.9676036067435916, 0.1156329799245431],
{RGBColor[
@ -32470,7 +32599,6 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
0.08358021157322508}, {37.12763114494309,
0.013580211573225079`}}]},
RectangleBox[{35., 0.}, {36., 0.07}]}}},
ImageSizeCache->{{769.7606933090101,
819.2393066909899}, {-22.239306690989906`,
24.239306690989906`}}],
@ -32536,6 +32664,7 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
RGBColor[
0.6174956190473431, 0.9838018033717958,
0.5578164899622715],
PolygonBox[{{37., 0.01}, {38., 0.01}, {39.12763114494309,
0.02358021157322508}, {38.12763114494309,
0.02358021157322508}}]}, {
@ -32585,6 +32714,7 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
0.07358021157322507}, {40.12763114494309,
0.013580211573225079`}}]},
RectangleBox[{38., 0.}, {39., 0.06}]}}},
ImageSizeCache->{{829.7606933090101,
879.2393066909899}, {-17.239306690989906`,
24.239306690989906`}}],
@ -32593,7 +32723,46 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
TagBoxNote->"0.06"],
StyleBox["0.06`", {}, StripOnInput -> False]],
Annotation[#,
Style[0.06, {}], "Tooltip"]& ]}, {}}, {}, {}}, {{},
Style[0.06, {}], "Tooltip"]& ]},
{RGBColor[
0.23499123809468608`, 0.9676036067435916, 0.1156329799245431],
EdgeForm[{Opacity[0.259], Thickness[Small]}],
TagBox[
TooltipBox[
TagBox[
TagBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[
0.6174956190473431, 0.9838018033717958,
0.5578164899622715],
PolygonBox[{{39., 0.}, {40., 0.}, {41.12763114494309,
0.013580211573225079`}, {40.12763114494309,
0.013580211573225079`}}]}, {
RGBColor[
0.46449386666628023`, 0.9773225247205141,
0.3809430859471802],
PolygonBox[{{40., 0.}, {40., -0.12}, {
41.12763114494309, -0.10641978842677492`}, {
41.12763114494309, 0.013580211573225079`}}]},
RectangleBox[{39., 0.}, {40., -0.12}]}}},
ImageSizeCache->{{848.7606933090101, 898.2393066909899}, {
10.760693309010094`, 81.2393066909899}}],
"DelayedMouseEffectStyle"],
StatusArea[#, -0.12]& ,
TagBoxNote->"-0.12"],
StyleBox[
RowBox[{"-", "0.12`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.12, {}], "Tooltip"]& ]}}, {}, {}}, {{},
{RGBColor[
0.9729188047180777, 0.9391259962046635, 0.201748879675973],
{RGBColor[
@ -32905,7 +33074,45 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
StyleBox[
RowBox[{"-", "0.13`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.13, {}], "Tooltip"]& ]}, {}}, {}, {}}, {{},
Style[-0.13, {}], "Tooltip"]& ]},
{RGBColor[
0.9729188047180777, 0.9391259962046635, 0.201748879675973],
EdgeForm[{Opacity[0.259], Thickness[Small]}],
TagBox[
TooltipBox[
TagBox[
TagBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[
0.9864594023590388, 0.9695629981023317,
0.6008744398379865],
PolygonBox[{{49., 0.}, {50., 0.}, {51.12763114494309,
0.013580211573225079`}, {50.12763114494309,
0.013580211573225079`}}]}, {
RGBColor[
0.9810431633026544, 0.9573881973432645,
0.44122421577318105`],
PolygonBox[{{50., 0.}, {50., -0.02}, {
51.12763114494309, -0.006419788426774922}, {
51.12763114494309, 0.013580211573225079`}}]},
RectangleBox[{49., 0.}, {50., -0.02}]}}},
ImageSizeCache->{{1048.76069330901, 1098.23930669099}, {
10.760693309010094`, 34.239306690989906`}}],
"DelayedMouseEffectStyle"],
StatusArea[#, -0.02]& ,
TagBoxNote->"-0.02"],
StyleBox[
RowBox[{"-", "0.02`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.02, {}], "Tooltip"]& ]}}, {}, {}}, {{},
{RGBColor[1., 0.5034084923371307, 0.0060676902730088965`],
{RGBColor[1., 0.5034084923371307, 0.0060676902730088965`],
EdgeForm[{Opacity[0.259], Thickness[Small]}],
@ -32931,6 +33138,7 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
0.2035802115732251}, {53.12763114494309,
0.013580211573225079`}}]},
RectangleBox[{51., 0.}, {52., 0.19}]}}},
ImageSizeCache->{{1087.76069330901,
1137.23930669099}, {-78.23930669098989,
24.239306690989906`}}],
@ -33031,7 +33239,6 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
56.12763114494309, -0.006419788426774922}, {
56.12763114494309, 0.013580211573225079`}}]},
RectangleBox[{54., 0.}, {55., -0.02}]}}},
ImageSizeCache->{{1147.76069330901, 1197.23930669099}, {
10.760693309010094`, 34.239306690989906`}}],
"DelayedMouseEffectStyle"],
@ -33175,7 +33382,41 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
StyleBox[
RowBox[{"-", "0.04`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.04, {}], "Tooltip"]& ]}, {}}, {}, {}}, {{},
Style[-0.04, {}], "Tooltip"]& ]},
{RGBColor[1., 0.5034084923371307, 0.0060676902730088965`],
EdgeForm[{Opacity[0.259], Thickness[Small]}],
TagBox[
TooltipBox[
TagBox[
TagBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[1., 0.7517042461685653, 0.5030338451365044],
PolygonBox[{{59., 0.05}, {60., 0.05}, {61.12763114494309,
0.06358021157322508}, {60.12763114494309,
0.06358021157322508}}]}, {
RGBColor[1., 0.6523859446359914, 0.3042473831911062],
PolygonBox[{{60., 0.}, {60., 0.05}, {61.12763114494309,
0.06358021157322508}, {61.12763114494309,
0.013580211573225079`}}]},
RectangleBox[{59., 0.}, {60., 0.05}]}}},
ImageSizeCache->{{1247.76069330901,
1297.23930669099}, {-12.239306690989906`,
24.239306690989906`}}],
"DelayedMouseEffectStyle"],
StatusArea[#, 0.05]& ,
TagBoxNote->"0.05"],
StyleBox["0.05`", {}, StripOnInput -> False]],
Annotation[#,
Style[0.05, {}], "Tooltip"]& ]}}, {}, {}}, {{},
{RGBColor[1., 0.749752, 0.501183],
{RGBColor[1., 0.749752, 0.501183], EdgeForm[{Opacity[0.259],
Thickness[Small]}],
@ -33447,8 +33688,42 @@ vv/jlrG3Etz94PA3k3RAjx8AVVPCmg==
TagBoxNote->"0.14"],
StyleBox["0.14`", {}, StripOnInput -> False]],
Annotation[#,
Style[0.14, {}],
"Tooltip"]& ]}, {}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}},
Style[0.14, {}], "Tooltip"]& ]},
{RGBColor[1., 0.749752, 0.501183], EdgeForm[{Opacity[0.259],
Thickness[Small]}],
TagBox[
TooltipBox[
TagBox[
TagBox[
DynamicBox[{
FEPrivate`If[
CurrentValue["MouseOver"],
EdgeForm[{
GrayLevel[0.5],
AbsoluteThickness[1.5],
Opacity[0.66]}], {}, {}], {Antialiasing -> False, {{
RGBColor[1., 0.874876, 0.7505915000000001],
PolygonBox[{{69., 0.}, {70., 0.}, {71.1276311449431,
0.013580211573225079`}, {70.1276311449431,
0.013580211573225079`}}]}, {
RGBColor[1., 0.8248264, 0.6508281],
PolygonBox[{{70., 0.}, {70., -0.24}, {
71.1276311449431, -0.2264197884267749}, {71.1276311449431,
0.013580211573225079`}}]},
RectangleBox[{69., 0.}, {70., -0.24}]}}},
ImageSizeCache->{{1446.76069330901, 1496.23930669099}, {
10.760693309010094`, 137.2393066909899}}],
"DelayedMouseEffectStyle"],
StatusArea[#, -0.24]& ,
TagBoxNote->"-0.24"],
StyleBox[
RowBox[{"-", "0.24`"}], {}, StripOnInput -> False]],
Annotation[#,
Style[-0.24, {}],
"Tooltip"]& ]}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}},
AspectRatio->NCache[
Rational[1, 6], 0.16666666666666666`],
Axes->{False, False},
@ -33490,6 +33765,7 @@ YOkDxoeln16Q+g+88PSGzv+y7+PW9GkCcD4kvIRw8rcHW0X8Z5eBp08YH2Y/
pl7hzFik5rAFlN7+aDqkxN5xY/6h7vDnW+mDOYFaDuJgeQ2HRpaj/Ybphg4H
amUt0kNMIeXDHkMHL1C+ZzWD5H9WI4e/IH0TzeDpFeZ+9PIHAKYq5JQ=
"]],
FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1,
0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1,
@ -33552,9 +33828,9 @@ kO7n0KrArnrmi4xD/W+rgnMn/ByiVSNkztlIwt0vXDmp5OwTQQf0+AEAMF60
"]],
FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0,
1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{
1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3},
{1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}, {{1,
4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3,
3}}}, {CompressedData["
1:eJxTTMoPSmViYGDQAGIQ/XlDQPas40EOCSFB6gs61Rxic4/+27Q5yMH34sSY
f8zqDocva6dKBgU5iPZ4vWIxUXVY3X07g0E/yCE1DQiOqTgIf3I8n/Y2EM6/
@ -33964,8 +34240,10 @@ d386iH4m7IAePwBmkccx
3.78257902990991*^9, 3.7831333694533*^9, {3.783135188470722*^9,
3.78313520638223*^9}, 3.783135282657568*^9, 3.783135665901167*^9, {
3.7893720137909403`*^9, 3.789372020032143*^9}, {3.7893720640332212`*^9,
3.789372129161707*^9}},
CellLabel->"Out[83]=",ExpressionUUID->"3292cf8a-4eb7-4284-a54d-eb10009b82ca"]
3.789372129161707*^9}, 3.7893891560015078`*^9, 3.789389472511414*^9,
3.789389542986973*^9},
CellLabel->
"Out[109]=",ExpressionUUID->"f01c54c3-37ef-4f20-834d-fc85d21dec6e"]
}, Open ]]
}, Open ]]
},
@ -33987,55 +34265,55 @@ CellTagsIndex->{}
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 155, 3, 98, "Title",ExpressionUUID->"bcf935b7-820d-4ca3-9315-ae11e2afb1ec"],
Cell[738, 27, 308, 6, 46, "Input",ExpressionUUID->"ba389371-54e0-4b1f-9878-e36ccf520d87",
Cell[738, 27, 309, 6, 46, "Input",ExpressionUUID->"ba389371-54e0-4b1f-9878-e36ccf520d87",
InitializationCell->True],
Cell[1049, 35, 507, 10, 46, "Input",ExpressionUUID->"4c6d517d-fdd1-4c29-88db-2ebc38cf3636",
Cell[1050, 35, 483, 8, 46, "Input",ExpressionUUID->"88a506f2-6f4b-4997-a7c7-24cc455ea3fb",
InitializationCell->True],
Cell[1559, 47, 574, 12, 68, "Input",ExpressionUUID->"c9be84f0-2c20-478e-b59b-84a5537b75fc",
Cell[1536, 45, 575, 12, 68, "Input",ExpressionUUID->"c9be84f0-2c20-478e-b59b-84a5537b75fc",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[2170, 64, 148, 3, 72, "Title",ExpressionUUID->"ed745cc7-7622-4150-8959-856369454e83"],
Cell[CellGroupData[{
Cell[2343, 71, 2439, 59, 94, "Input",ExpressionUUID->"b227ab8f-bd11-4f6d-9606-4715cb7bdbab"],
Cell[4785, 132, 5383, 126, 287, "Output",ExpressionUUID->"f98a7423-da50-4abb-991d-cb141e70dbbc"]
}, Open ]],
Cell[CellGroupData[{
Cell[10205, 263, 2452, 57, 94, "Input",ExpressionUUID->"51da85a9-ebe0-4c4d-9992-fb53b86cd681"],
Cell[12660, 322, 20834, 380, 316, "Output",ExpressionUUID->"76a45c82-1911-4e97-bc1b-0d5bcce1cab0"]
Cell[2148, 62, 148, 3, 98, "Title",ExpressionUUID->"ed745cc7-7622-4150-8959-856369454e83"],
Cell[CellGroupData[{
Cell[2321, 69, 2439, 59, 94, "Input",ExpressionUUID->"b227ab8f-bd11-4f6d-9606-4715cb7bdbab"],
Cell[4763, 130, 5383, 126, 287, "Output",ExpressionUUID->"f98a7423-da50-4abb-991d-cb141e70dbbc"]
}, Open ]],
Cell[CellGroupData[{
Cell[10183, 261, 2452, 57, 94, "Input",ExpressionUUID->"51da85a9-ebe0-4c4d-9992-fb53b86cd681"],
Cell[12638, 320, 20834, 380, 316, "Output",ExpressionUUID->"76a45c82-1911-4e97-bc1b-0d5bcce1cab0"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[33543, 708, 176, 3, 72, "Title",ExpressionUUID->"73ad141e-221a-4bac-8a20-766352d5889d"],
Cell[33722, 713, 3498, 70, 425, "Input",ExpressionUUID->"45cf9d80-c96e-420f-a644-dcbc494fec23",
Cell[33521, 706, 176, 3, 72, "Title",ExpressionUUID->"73ad141e-221a-4bac-8a20-766352d5889d"],
Cell[33700, 711, 3499, 70, 425, "Input",ExpressionUUID->"45cf9d80-c96e-420f-a644-dcbc494fec23",
InitializationCell->True],
Cell[37223, 785, 4053, 81, 425, "Input",ExpressionUUID->"6b2d5928-b91a-40cd-b9e4-c0014e34a8a5",
Cell[37202, 783, 4054, 81, 425, "Input",ExpressionUUID->"6b2d5928-b91a-40cd-b9e4-c0014e34a8a5",
InitializationCell->True],
Cell[41279, 868, 3146, 61, 425, "Input",ExpressionUUID->"ada5f20e-31d6-4398-820c-353fef477dbe",
Cell[41259, 866, 3147, 61, 425, "Input",ExpressionUUID->"ada5f20e-31d6-4398-820c-353fef477dbe",
InitializationCell->True],
Cell[44428, 931, 1777, 38, 236, "Input",ExpressionUUID->"6763536a-7dfc-48b1-b72e-d25cb0da44f7",
Cell[44409, 929, 1778, 38, 236, "Input",ExpressionUUID->"6763536a-7dfc-48b1-b72e-d25cb0da44f7",
InitializationCell->True],
Cell[46208, 971, 1778, 38, 236, "Input",ExpressionUUID->"1ba35503-311c-4bca-8594-a2c7fda05e82",
Cell[46190, 969, 1779, 38, 236, "Input",ExpressionUUID->"1ba35503-311c-4bca-8594-a2c7fda05e82",
InitializationCell->True],
Cell[47989, 1011, 1780, 38, 236, "Input",ExpressionUUID->"29fd4692-1c23-428a-a1d2-4c130cbf08e8",
Cell[47972, 1009, 1780, 38, 236, "Input",ExpressionUUID->"29fd4692-1c23-428a-a1d2-4c130cbf08e8",
InitializationCell->True],
Cell[49772, 1051, 3622, 72, 425, "Input",ExpressionUUID->"78e9680e-766f-4b4f-8d0f-cf65509e370a",
Cell[49755, 1049, 3622, 72, 425, "Input",ExpressionUUID->"78e9680e-766f-4b4f-8d0f-cf65509e370a",
InitializationCell->True],
Cell[53397, 1125, 3788, 71, 425, "Input",ExpressionUUID->"e0831c15-ee95-4fdd-ae00-dc861cda6789",
Cell[53380, 1123, 4131, 79, 425, "Input",ExpressionUUID->"e0831c15-ee95-4fdd-ae00-dc861cda6789",
InitializationCell->True],
Cell[57188, 1198, 1293, 24, 131, "Input",ExpressionUUID->"cb3cdcd5-bda4-4d59-b62e-e78ebb66a6db",
Cell[57514, 1204, 1293, 24, 131, "Input",ExpressionUUID->"cb3cdcd5-bda4-4d59-b62e-e78ebb66a6db",
InitializationCell->True],
Cell[CellGroupData[{
Cell[58506, 1226, 9722, 204, 577, "Input",ExpressionUUID->"da475127-bb06-45e4-a1f1-c9a46c3108e0"],
Cell[68231, 1432, 713378, 13795, 683, "Output",ExpressionUUID->"79991a18-cc42-4e45-8655-c8d9ffe4f5ae"]
Cell[58832, 1232, 9919, 209, 493, "Input",ExpressionUUID->"da475127-bb06-45e4-a1f1-c9a46c3108e0"],
Cell[68754, 1443, 713478, 13796, 683, "Output",ExpressionUUID->"de4bb94d-809d-4f5c-b2ff-b36a59714b06"]
}, Open ]],
Cell[CellGroupData[{
Cell[781646, 15232, 6491, 146, 493, "Input",ExpressionUUID->"3f62937c-156b-4312-98f7-c849d1d8d333"],
Cell[788140, 15380, 251538, 4831, 739, "Output",ExpressionUUID->"0459c789-deca-4387-b413-51af51feb8b3"]
Cell[782269, 15244, 6656, 149, 451, "Input",ExpressionUUID->"3f62937c-156b-4312-98f7-c849d1d8d333"],
Cell[788928, 15395, 251634, 4832, 739, "Output",ExpressionUUID->"ef0d9ea2-669b-44a2-af77-57867dcbe9ce"]
}, Open ]],
Cell[CellGroupData[{
Cell[1039715, 20216, 10114, 217, 619, "Input",ExpressionUUID->"fd6b57a3-af46-44c7-a675-b34955bc828f"],
Cell[1049832, 20435, 703285, 13532, 683, "Output",ExpressionUUID->"3292cf8a-4eb7-4284-a54d-eb10009b82ca"]
Cell[1040599, 20232, 10283, 221, 535, "Input",ExpressionUUID->"fd6b57a3-af46-44c7-a675-b34955bc828f"],
Cell[1050885, 20455, 714829, 13790, 683, "Output",ExpressionUUID->"f01c54c3-37ef-4f20-834d-fc85d21dec6e"]
}, Open ]]
}, Open ]]
}

View File

@ -191,7 +191,7 @@ assess fairly the performance of computationally lighter theoretical models. We
%%%%%%%%%%%%%%%%%%%%
%%% INTRODUCTION %%%
%%%%%%%%%%%%%%%%%%%%
The accurate modeling of excited-state properties with \textit{ab initio} quantum chemistry methods is a challenging \hl{ambition} of the electronic structure theory community that will certainly keep us busy for (at the very least) the next few decades to come
The accurate modeling of excited-state properties with \textit{ab initio} quantum chemistry methods is a \hl{clear ambition} of the electronic structure theory community that will certainly keep us busy for (at the very least) the next few decades to come
(see, for example, Refs.~\citenum{Dre05,Gon12,Gho18} and references therein). Of particular interest is the access to precise excitation energies, \ie, the energy difference between ground and excited electronic states, and their intimate link with photophysical and
photochemical processes. The factors that makes this quest for high accuracy particularly delicate are very diverse.
@ -204,21 +204,23 @@ As a consequence, for a given level of theory, excited-state methods are usually
Another feature that makes excited states particularly fascinating and challenging is that they can be both \hl{very} close in energy from each other and have very different natures ($\pi \ra \pi^*$, $n \ra \pi^*$, charge transfer, double excitation, valence, Rydberg, singlet,
triplet, etc). Therefore, it would be highly desirable to possess a computational method (or protocol) that provides a balanced treatment of the entire ``spectrum'' of excited states.
And \hl{we think that at this stage,} none of the existing methods does provide such a feat at an affordable cost for chemically-meaningful compounds.
\hl{We think that, at this stage,} none of the existing methods does provide such a feat at an affordable cost for chemically-meaningful compounds.
What are the requirement of the ``perfect'' theoretical model? As mentioned above, a balanced treatment of excited states with different character is highly desirable. Moreover, chemically accurate excitation energies (\ie, with error smaller than $1$~kcal/mol or $0.043$~eV)
would be also beneficial in order to provide a quantitative chemical picture. The access to other properties, such as oscillator strengths, dipole moments, and analytical energy gradients, is also an asset if one wants to compare with experimental data.
Let us not forget about the requirements of minimal user input and minimal chemical intuition (\ie, black box models are preferable) in order to minimize the potential bias brought by the user appreciation of the problem complexity. Finally, low computational scaling with
respect to system size and small memory footprint cannot be disregarded. Although the simultaneous fulfillment of all these requirements seems elusive, it is useful to keep these criteria in mind. Table \ref{tab:method} is here for fulfill such a purpose. \hl{In that Table,
we also provide an error bar for the various methods. In Table S1 of the SI, the interested reader will find more details about (some of the) existing benchmarks for BSE and wavefunction approaches, whereas a review of the results of TD-DFT's benchmark
can be found elsewhere.} \cite{Lau13} \hl{As can be seen in Table S1, the actual error bars obtained for all methods will typically depend ton the selected set of excited states and compounds, so that the values listed in Table} \ref{tab:method} \hl{should be viewed
as typical errors, but not as a guaranteed result. }
respect to system size and small memory footprint cannot be disregarded. Although the simultaneous fulfillment of all these requirements seems elusive, it is useful to keep these criteria in mind. Table \ref{tab:method} is here for fulfill such a purpose.
\hl{In this Table, we also provide the typical error bar associated with each of these methods.
Table S1 of the} {\SI} \hl{reports additional details about (some of the) existing BSE and wave function theory benchmarks, whereas a review of TD-DFT benchmark studies
can be found elsewhere.} \cite{Lau13}
\hl{As can be seen in Table S1, the actual error bar obtained for a given method strongly depends on the actual type of excited states and compounds.
Hence, the values listed in Table} \ref{tab:method} \hl{should be viewed as ``typical'' errors for organic molecules, nothing more.}
%%% TABLE I %%%
\begin{table}
\footnotesize
\caption{Formal computational scaling of various excited-state methods with respect to the number of one-electron basis functions $N$ and the accessibility of various key properties in popular computational software packages.
The typical error range for single excitations \hl{of organic derivatives} is also provided as a qualitative indicator of the method accuracy.}
\hl{For organic derivatives,} the typical error range for single excitations is also provided as a qualitative indicator of the method accuracy.}
\label{tab:method}
\begin{tabular}{p{2.1cm}cccc}
\hline
@ -277,7 +279,7 @@ Nonetheless, it is of common knowledge that CASPT2 has the clear tendency of und
Driven by Angeli and Malrieu, \cite{Ang01} the creation of the second-order $n$-electron valence state perturbation theory (NEVPT2) method several years later was able to cure some of the main theoretical deficiencies of CASPT2.
For example, NEVPT2 is known to be intruder state free and size consistent.
The limited applicability of these multiconfigurational methods is mainly due to the need of carefully defining an active space based on the desired transition(s) in order to obtain meaningful results, as well as their factorial computational growth with the number of active electrons and orbitals.
With a typical minimal valence active space tailored for the desired transitions, the usual error with CASPT2 or NEVPT2 calculations is $0.1$--$0.2$ eV, \hl{with also the difficult question of the IPEA correction for the former method.} \cite{Zob17}
With a typical minimal valence active space tailored for the desired transitions, the usual error with CASPT2 or NEVPT2 calculations is $0.1$--$0.2$ eV, \hl{with the additional complication of the possible IPEA correction for the former method.} \cite{Zob17}
We also point out that some emergent approaches, like DMRG (density matrix renormalization group), \cite{Bai19} offer a new path for the development of these multiconfigurational methods.
%%%%%%%%%%%%%
@ -287,7 +289,7 @@ The advent of time-dependent density-functional theory (TD-DFT) \cite{Run84,Cas9
For low-lying valence excited states, TD-DFT calculations relying on hybrid exchange-correlation functionals have a typical error of $0.2$--$0.4$ eV.
However, a large number of shortcomings were quickly discovered. \cite{Toz98,Toz99,Dre04,Mai04,Dre05,Lev06,Eli11}
In the present context, one of the most annoying feature of TD-DFT --- in its most standard (adiabatic) approximation --- is its inability to describe, even qualitatively, charge-transfer states, \cite{Toz99,Dre04} Rydberg states, \cite{Toz98} and double excitations. \cite{Mai04,Lev06,Eli11}
\hl{These problems, and other shortcomings of DFT and TD-DFT for other properties, have been related to the so-called delocalization error.} \cite{Aut14a}
\hl{These issues, as well as other shortcomings of DFT and TD-DFT, have been related to the so-called delocalization error.} \cite{Aut14a}
One closely related issue is the selection of the exchange-correlation functional from an ever-growing zoo of functionals and the variation of the excitation energies that one can observe with different functionals. \cite{Goe19,Sue19}
More specifically, despite the development of new, more robust approaches (including the so-called range-separated \cite{Sav96,IIk01,Yan04,Vyd06} and double \cite{Goe10a,Bre16,Sch17} hybrids), it is still difficult (not to say impossible) to select a functional adequate for all families of transitions. \cite{Lau13}
Moreover, the difficulty of making TD-DFT systematically improvable obviously hampers its applicability.
@ -366,8 +368,8 @@ In summary, each method has its own strengths and weaknesses, and none of them i
%%% FIG 1 %%%
\begin{figure*}
\includegraphics[width=\linewidth]{Set1}
\caption{Mean absolute error (in eV) with respect to the TBE/\textit{aug}-cc-pVTZ values from the {\SetA} set (as described in Ref.~\citenum{Loo18a}) for various methods and types of excited states.
\includegraphics[width=\linewidth]{QUEST1}
\caption{\hl{Mean absolute error (MAE, top) and mean signed error (MSE, bottom)} with respect to the TBE/\textit{aug}-cc-pVTZ values from the {\SetA} set (as described in Ref.~\citenum{Loo18a}) for various methods and types of excited states.
}
\label{fig:Set1}
\end{figure*}
@ -375,8 +377,8 @@ In summary, each method has its own strengths and weaknesses, and none of them i
%%% FIG 2 %%%
\begin{figure}
\includegraphics[width=\linewidth]{Set2}
\caption{Mean absolute error (in eV) (with respect to FCI excitation energies) for the doubly excited states reported in Ref.~\citenum{Loo19c} for various methods taking into account at least triple excitations.
\includegraphics[width=\linewidth]{QUEST2}
\caption{\hl{Mean absolute error (MAE, top) and maximum absolute error (MAX, bottom)} with respect to FCI excitation energies for the doubly excited states reported in Ref.~\citenum{Loo19c} for various methods taking into account at least triple excitations.
$\%T_1$ corresponds to single excitation percentage in the transition calculated at the CC3 level.}
\label{fig:Set2}
\end{figure}
@ -384,8 +386,8 @@ In summary, each method has its own strengths and weaknesses, and none of them i
%%% FIG 3 %%%
\begin{figure*}
\includegraphics[width=\linewidth]{Set3}
\caption{Mean absolute error (in eV) with respect to the TBE/\textit{aug}-cc-pVTZ values from the {\SetC} set (as described in Ref.~\citenum{Loo20a}) for various methods and types of excited states.}
\includegraphics[width=\linewidth]{QUEST3}
\caption{\hl{Mean absolute error (MAE, top) and mean signed error (MSE, bottom)} with respect to the TBE/\textit{aug}-cc-pVTZ values from the {\SetC} set (as described in Ref.~\citenum{Loo20a}) for various methods and types of excited states.}
\label{fig:Set3}
\end{figure*}
%%% %%% %%%
@ -400,7 +402,7 @@ For excited states, things started moving a little later but some major contribu
%%%%%%%%%%%%%%%%%%%
%%% THIEL'S SET %%%
%%%%%%%%%%%%%%%%%%%
One of these major contributions was provided by the group of Walter Thiel \cite{Sch08,Sil08,Sau09,Sil10b,Sil10c} with the introduction of the \hl{now called Thiel or M\"ulheium} set of excitation energies. \cite{Sch08}
One of these major contributions was provided by the group of Walter Thiel \cite{Sch08,Sil08,Sau09,Sil10b,Sil10c} with the introduction of the \hl{so-called Thiel (or M\"ulheim)} set of excitation energies. \cite{Sch08}
For the first time, this set was large, diverse, consistent, and accurate enough to be used as a proper benchmarking set for excited-state methods.
More specifically, it gathers a large number of excitation energies consisting of 28 medium-size organic molecules with a total of 223 valence excited states (152 singlet and 71 triplet states) for which theoretical best estimates (TBEs) were defined.
In their first study Thiel and collaborators performed CC2, CCSD, CC3 and CASPT2 calculations (with the TZVP basis) in order to provide (based on additional high-quality literature data) TBEs for these transitions.
@ -459,10 +461,10 @@ However, because 0-0 energies are fairly insensitive to the underlying molecular
Consequently, one can find in the literature several sets of excited-state geometries obtained at various levels of theory, \cite{Pag03,Gua13,Bou13,Tun16,Bud17} some of them being determined using state-of-the-art models. \cite{Gua13,Bud17}
There are also investigations of the accuracy of the nuclear gradients at the Franck-Condon point. \cite{Taj18,Taj19}
The interested reader may find useful several investigations reporting sets of reference oscillator strengths. \cite{Sil10c,Har14,Kan14,Loo18a,Loo20b}
\hl{Up to now, these investigations of geometries and oscillator strengths have been mostly focussed on theory-to-theory comparisons. Indeed, while for tiny compounds, typically from di to tetra-atomics,
one can find very accurate experimental measurements of excited state dipole moments, oscillator strengths, vibrational frequencies, etc., these data are rarely measured in larger compounds. Nevertheless,
the emergence of X-ray free electron lasers might soon allow to obtain accurate experimental excited state densities and geometrical structures through diffraction experiments. Such developments will
likely offer new opportunities for experiment-theory comparisons going beyond energies.}
\hl{Up to now, these investigations focusing on geometries and oscillator strengths have been mostly based on theory-vs-theory comparisons. Indeed, while for small compounds (\ie, typically from di- to tetra-atomic molecules),
one can find very accurate experimental measurements (excited state dipole moments, oscillator strengths, vibrational frequencies, etc), these data are usually not accessible in larger compounds.
Nevertheless, the emergence of X-ray free electron lasers might soon allow to obtain accurate experimental excited state densities and geometrical structures through diffraction experiments.
Such new experimental developments will likely offer new opportunities for experiment-vs-theory comparisons going beyond standard energetics.}
Finally, more complex properties, such as two-photon cross-sections and vibrations, have been mostly determined at lower levels of theory, hinting at future studies on this particular subject.
%%%%%%%%%%%%%%%%%%
@ -489,7 +491,11 @@ DJ acknowledges the \textit{R\'egion des Pays de la Loire} for financial support
\section*{Biographies}
\noindent{\bfseries \hl{P.F. Loos}} \hl{xxxx}
\noindent{\bfseries \hl{P.F. Loos}} \hl{was born in Nancy, France in 1982. He received his M.S.~in Computational and Theoretical Chemistry from the Universit\'e Henri Poincar\'e (Nancy, France) in 2005 and his Ph.D.~from the same university in 2008. From 2009 to 2013, He was undertaking postdoctoral research with Peter M.W.~Gill at the Australian National University (ANU). From 2013 to 2017, he was a \textit{``Discovery Early Career Researcher Award''} recipient at the ANU. Since 2017, he holds a researcher position from the \textit{``Centre National de la Recherche Scientifique (CNRS)} at the \textit{Laboratoire de Chimie et Physique Quantiques} in Toulouse (France), and was awarded, in 2019, an ERC consolidator grant.}
\begin{center}
\includegraphics[width=3cm]{PFLoos.png}
\end{center}
\noindent{\bfseries \hl{A. Scemama}}\hl{xxxx}

BIN
Revision/QUEST1.pdf Normal file

Binary file not shown.

BIN
Revision/QUEST2.pdf Normal file

Binary file not shown.

BIN
Revision/QUEST3.pdf Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.