loos/ufGW
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

response letter

Browse Source
This commit is contained in:
Pierre-Francois Loos 2022-04-14 15:17:23 +02:00
parent a530a72264
commit c0f475dcd7
6 changed files with 789 additions and 139 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Cover_Letter/CoverLetter.tex
View File

@ -3,7 +3,6 @@
\newcommand{\alert}[1]{\textcolor{red}{#1}}
\definecolor{darkgreen}{HTML}{009900}
\begin{document}
\begin{letter}%
@ -35,4 +34,3 @@ We look forward to hearing from you.

631
Notebooks/GW_conundrum.nb
View File

@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 205237, 4691]
NotebookOptionsPosition[ 197451, 4568]
NotebookOutlinePosition[ 197932, 4587]
CellTagsIndexPosition[ 197889, 4584]
NotebookDataLength[ 218174, 5054]
NotebookOptionsPosition[ 209419, 4919]
NotebookOutlinePosition[ 209943, 4939]
CellTagsIndexPosition[ 209900, 4936]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@ -32,7 +32,7 @@ Cell[BoxData[
InitializationCell->True,
CellChangeTimes->{{3.7208031947801647`*^9, 3.7208032000677156`*^9}, {
3.7208034541742477`*^9, 3.720803455246439*^9}},
CellLabel->"In[24]:=",ExpressionUUID->"d157845e-0bac-4623-9438-6db32c2b348a"],
CellLabel->"In[1]:=",ExpressionUUID->"d157845e-0bac-4623-9438-6db32c2b348a"],
Cell[BoxData[
RowBox[{
@ -40,9 +40,7 @@ Cell[BoxData[
"SetDirectory", "[", "\"\<~/Dropbox/Manuscripts/ufGW/Data\>\"", "]"}],
";"}]], "Input",
InitializationCell->True,
CellLabel->"In[25]:=",ExpressionUUID->"466164d7-6b9d-472d-8dbb-051b87d2ab0d"],
Cell[CellGroupData[{
CellLabel->"In[2]:=",ExpressionUUID->"466164d7-6b9d-472d-8dbb-051b87d2ab0d"],
Cell[BoxData[{
RowBox[{"Needs", "[", "\"\<MaTeX`\>\"", "]"}], "\[IndentingNewLine]",
@ -56,34 +54,7 @@ mathpazo,xcolor,bm,mhchem}\>\"", "}"}]}]}], "]"}], ";"}]}], "Input",
InitializationCell->True,
CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, {
3.733131339213026*^9, 3.733131352923026*^9}},
CellLabel->"In[26]:=",ExpressionUUID->"1a76bff9-c9eb-4a64-8550-cf38c809ba22"],
Cell[CellGroupData[{
Cell[BoxData["\<\"Ghostscript is not found at /usr/local/bin/gs\"\>"], "Print",
CellLabel->
"During evaluation of \
In[26]:=",ExpressionUUID->"cbf42558-605c-438a-8830-4651f2b14404"],
Cell[BoxData["\<\"Please configure Ghostscript using \
ConfigureMaTeX[\\\"Ghostscript\\\" -> \\\"path to gs \
executable\[Ellipsis]\\\"]\"\>"], "Print",
CellLabel->
"During evaluation of \
In[26]:=",ExpressionUUID->"01c9b322-7e7d-4570-91fe-d6b16e2d90b3"],
Cell[BoxData[
InterpretationBox["\<\"\\!\\(\\*TemplateBox[List[\\\"\\\\\\\"Click \
here\\\\\\\"\\\", \\\"paclet:MaTeX/tutorial/ConfiguringMaTeX\\\"], \
\\\"HyperlinkPaclet\\\"]\\) for documentation on configuring MaTeX.\"\>",
StringForm["`` for documentation on configuring MaTeX.",
Hyperlink["Click here", "paclet:MaTeX/tutorial/ConfiguringMaTeX"]],
Editable->False]], "Print",
CellLabel->
"During evaluation of \
In[26]:=",ExpressionUUID->"7208cf23-5c42-419a-905c-548f15dd7dda"]
}, Open ]]
}, Open ]]
CellLabel->"In[3]:=",ExpressionUUID->"1a76bff9-c9eb-4a64-8550-cf38c809ba22"]
}, Closed]],
Cell[CellGroupData[{
@ -1328,7 +1299,8 @@ Cell[BoxData[
{
SubsuperscriptBox["\[Epsilon]", "P", "HF"],
SubscriptBox["V",
RowBox[{"Q", "[", "IA", "]"}]],
RowBox[{
RowBox[{"Q", "[", "IA", "]"}], ",", "P"}]],
SubsuperscriptBox["V", "p",
RowBox[{"2", "h1p"}]],
SubsuperscriptBox["V", "p",
@ -1382,7 +1354,8 @@ Cell[BoxData[
3.853996398976129*^9, 3.853996410667295*^9}, {3.854119126273769*^9,
3.854119129234701*^9}, {3.854119293794915*^9, 3.854119305768619*^9}, {
3.854119477861698*^9, 3.854119478514227*^9}, {3.854120744279851*^9,
3.8541207542482443`*^9}},ExpressionUUID->"de460126-5872-41ad-b94a-\
3.8541207542482443`*^9}, {3.858824229339693*^9,
3.858824229583788*^9}},ExpressionUUID->"de460126-5872-41ad-b94a-\
2ac25594d244"],
Cell["The matrix elements are", "Text",ExpressionUUID->"5ddc87f4-cdbc-4e64-b398-e4dd73a164b9"],
@ -2556,10 +2529,14 @@ Cell[BoxData[
RowBox[{"Q", "[", "IA", "]"}], ",", "P"}]], "[", "\[Omega]",
"]"}]}],
RowBox[{
UnderscriptBox[
SubscriptBox["C",
RowBox[{
RowBox[{"Q", "[", "IA", "]"}], ",",
RowBox[{"Q", "[", "IA", "]"}]}]], "+",
RowBox[{"Q", "[", "IA", "]"}]}]],
UnderscriptBox["\[UnderBrace]",
SubscriptBox["\[Epsilon]",
RowBox[{"Q", "[", "IA", "]"}]]]], "+",
RowBox[{
SubscriptBox["\[CapitalSigma]",
RowBox[{"Q", "[", "IA", "]"}]], "[", "\[Omega]", "]"}], "-",
@ -2576,10 +2553,385 @@ Cell[BoxData[
{"0"},
{"0"}
}], "\[NoBreak]", ")"}]}]}]], "Input",
CellChangeTimes->{{3.854121286300622*^9,
3.854121308654326*^9}},ExpressionUUID->"920b9a14-7358-437b-8b2d-\
9af272494adb"]
}, Closed]],
CellChangeTimes->{{3.854121286300622*^9, 3.854121308654326*^9}, {
3.8587679676437817`*^9,
3.8587679969425173`*^9}},ExpressionUUID->"920b9a14-7358-437b-8b2d-\
9af272494adb"],
Cell["Let us now linearize the various quantities", "Text",
CellChangeTimes->{{3.858767764328784*^9,
3.858767773643785*^9}},ExpressionUUID->"93942955-95fa-4960-8441-\
d27720ba0dd0"],
Cell[BoxData[
SubscriptBox[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[CapitalSigma]", "P"], "[", "\[Omega]", "]"}],
"\[TildeTilde]",
RowBox[{
RowBox[{
SubscriptBox["\[CapitalSigma]", "P"], "[",
SubscriptBox["\[Epsilon]", "P"], "]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"\[Omega]", "-",
SubscriptBox["\[Epsilon]", "P"]}], ")"}],
FractionBox[
RowBox[{"\[PartialD]",
RowBox[{
SubscriptBox["\[CapitalSigma]", "P"], "[", "\[Omega]", "]"}]}],
RowBox[{"\[PartialD]", "\[Omega]"}]]}]}]}], "\[RightBracketingBar]"}],
RowBox[{"\[Omega]", "=",
SubscriptBox["\[Epsilon]", "P"]}]]], "Input",
CellChangeTimes->{{3.858767783408907*^9, 3.8587677859547987`*^9}, {
3.858767830909958*^9,
3.8587679006999702`*^9}},ExpressionUUID->"47e9290a-cfa8-4af9-a77d-\
518740bd08e2"],
Cell[BoxData[
SubscriptBox[
RowBox[{
RowBox[{
RowBox[{
SubscriptBox["\[CapitalSigma]",
RowBox[{"Q", "[", "IA", "]"}]], "[", "\[Omega]", "]"}], "\[TildeTilde]",
RowBox[{
RowBox[{
SubscriptBox["\[CapitalSigma]",
RowBox[{"Q", "[", "IA", "]"}]], "[",
SubscriptBox["\[Epsilon]",
RowBox[{"Q", "[", "IA", "]"}]], "]"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"\[Omega]", "-",
SubscriptBox["\[Epsilon]",
RowBox[{"Q", "[", "IA", "]"}]]}], ")"}],
FractionBox[
RowBox[{"\[PartialD]",
RowBox[{
SubscriptBox["\[CapitalSigma]",
RowBox[{"Q", "[", "IA", "]"}]], "[", "\[Omega]", "]"}]}],
RowBox[{"\[PartialD]", "\[Omega]"}]]}]}]}], "\[RightBracketingBar]"}],
RowBox[{"\[Omega]", "=",
SubscriptBox["\[Epsilon]",
RowBox[{"Q", "[", "IA", "]"}]]}]]], "Input",
CellChangeTimes->{{3.858767908756872*^9, 3.8587679103548307`*^9}, {
3.858768020647278*^9,
3.858768030603697*^9}},ExpressionUUID->"ab0fa501-ac3f-4c9c-8066-\
9fc31c8041bf"],
Cell[BoxData[
RowBox[{
SubscriptBox["\[CapitalSigma]",
RowBox[{"P", ",",
RowBox[{"Q", "[", "IA", "]"}]}]], "[", "\[Omega]", "]"}]], "Input",Express\
ionUUID->"4498a696-6326-43f3-929f-4540537b631f"],
Cell[BoxData[GridBox[{
{
RowBox[{
SubsuperscriptBox["\[Epsilon]", "P", "HF"], "+",
RowBox[{
SubscriptBox["\[CapitalSigma]", "P"], "[", "\[Omega]", "]"}], "-",
"\[Omega]"}],
RowBox[{
SubscriptBox["V",
RowBox[{"Q", "[", "IA", "]"}]], "+",
RowBox[{
SubscriptBox["\[CapitalSigma]",
RowBox[{"P", ",",
RowBox[{"Q", "[", "IA", "]"}]}]], "[", "\[Omega]", "]"}]}]},
{
RowBox[{
SubscriptBox["V",
RowBox[{"Q", "[", "IA", "]"}]], "+",
RowBox[{
SubscriptBox["\[CapitalSigma]",
RowBox[{
RowBox[{"Q", "[", "IA", "]"}], ",", "P"}]], "[", "\[Omega]", "]"}]}],
RowBox[{
SubscriptBox["C",
RowBox[{
RowBox[{"Q", "[", "IA", "]"}], ",",
RowBox[{"Q", "[", "IA", "]"}]}]], "+",
RowBox[{
SubscriptBox["\[CapitalSigma]",
RowBox[{"Q", "[", "IA", "]"}]], "[", "\[Omega]", "]"}], "-",
"\[Omega]"}]}
}]], "Input",ExpressionUUID->"9a0c7b03-b777-49f5-bbb5-8250e18341f6"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
SubscriptBox["\[CapitalSigma]", "P"], "+",
RowBox[{
RowBox[{"(",
RowBox[{"\[Omega]", "-",
SubscriptBox["\[Epsilon]", "P"]}], ")"}],
SubscriptBox["d\[CapitalSigma]", "P"]}], "-", "\[Omega]"}], ")"}],
RowBox[{"(",
RowBox[{
SubscriptBox["\[CapitalSigma]", "S"], "+",
RowBox[{
RowBox[{"(",
RowBox[{"\[Omega]", "-",
SubscriptBox["\[Epsilon]", "S"]}], ")"}],
SubscriptBox["d\[CapitalSigma]", "S"]}], "-", "\[Omega]"}], ")"}]}],
"-",
RowBox[{
SubscriptBox["\[CapitalSigma]", "PS"],
SubscriptBox["\[CapitalSigma]", "SP"]}]}], "==", "0"}], ",",
"\[Omega]"}], "]"}], "//", "FullSimplify"}]], "Input",
CellChangeTimes->{{3.858768426206644*^9, 3.8587686087391768`*^9}},
CellLabel->"In[15]:=",ExpressionUUID->"9aac74ba-b0da-4219-b2f4-760e75b19181"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"\[Omega]", "\[Rule]",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "P"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "S"]}], ")"}]}]],
RowBox[{"(",
RowBox[{
SubscriptBox["\[CapitalSigma]", "P"], "-",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "S"], " ",
RowBox[{"(",
RowBox[{
SubscriptBox["\[Epsilon]", "S"], "+",
SubscriptBox["\[CapitalSigma]", "P"]}], ")"}]}], "+",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "P"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "S"]}], ")"}], " ",
SubscriptBox["\[Epsilon]", "P"]}], "+",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "S"], " ",
SubscriptBox["\[Epsilon]", "S"]}], "-",
SubscriptBox["\[CapitalSigma]", "S"]}], ")"}]}], "+",
SubscriptBox["\[CapitalSigma]", "S"], "-",
SqrtBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["d\[CapitalSigma]", "S"], " ",
RowBox[{"(",
RowBox[{
SubscriptBox["\[Epsilon]", "S"], "-",
SubscriptBox["\[CapitalSigma]", "P"]}], ")"}]}], "+",
SubscriptBox["\[CapitalSigma]", "P"], "-",
SubscriptBox["\[CapitalSigma]", "S"], "+",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "P"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "S"]}], ")"}], " ",
SubscriptBox["\[Epsilon]", "P"]}], "-",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "S"], " ",
SubscriptBox["\[Epsilon]", "S"]}], "+",
SubscriptBox["\[CapitalSigma]", "S"]}], ")"}]}]}], ")"}],
"2"], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "P"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "S"]}], ")"}], " ",
SubscriptBox["\[CapitalSigma]", "PS"], " ",
SubscriptBox["\[CapitalSigma]", "SP"]}]}]]}], ")"}]}]}], "}"}],
",",
RowBox[{"{",
RowBox[{"\[Omega]", "\[Rule]",
RowBox[{
FractionBox["1",
RowBox[{"2", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "P"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "S"]}], ")"}]}]],
RowBox[{"(",
RowBox[{
SubscriptBox["\[CapitalSigma]", "P"], "-",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "S"], " ",
RowBox[{"(",
RowBox[{
SubscriptBox["\[Epsilon]", "S"], "+",
SubscriptBox["\[CapitalSigma]", "P"]}], ")"}]}], "+",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "P"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "S"]}], ")"}], " ",
SubscriptBox["\[Epsilon]", "P"]}], "+",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "S"], " ",
SubscriptBox["\[Epsilon]", "S"]}], "-",
SubscriptBox["\[CapitalSigma]", "S"]}], ")"}]}], "+",
SubscriptBox["\[CapitalSigma]", "S"], "+",
SqrtBox[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{
SubscriptBox["d\[CapitalSigma]", "S"], " ",
RowBox[{"(",
RowBox[{
SubscriptBox["\[Epsilon]", "S"], "-",
SubscriptBox["\[CapitalSigma]", "P"]}], ")"}]}], "+",
SubscriptBox["\[CapitalSigma]", "P"], "-",
SubscriptBox["\[CapitalSigma]", "S"], "+",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "P"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "S"]}], ")"}], " ",
SubscriptBox["\[Epsilon]", "P"]}], "-",
RowBox[{
SubscriptBox["d\[CapitalSigma]", "S"], " ",
SubscriptBox["\[Epsilon]", "S"]}], "+",
SubscriptBox["\[CapitalSigma]", "S"]}], ")"}]}]}], ")"}],
"2"], "+",
RowBox[{"4", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "P"]}], ")"}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "+",
SubscriptBox["d\[CapitalSigma]", "S"]}], ")"}], " ",
SubscriptBox["\[CapitalSigma]", "PS"], " ",
SubscriptBox["\[CapitalSigma]", "SP"]}]}]]}], ")"}]}]}], "}"}]}],
"}"}]], "Output",
CellChangeTimes->{{3.858768516946767*^9, 3.858768560222417*^9}, {
3.858768596609387*^9, 3.858768610822707*^9}},
CellLabel->"Out[15]=",ExpressionUUID->"d0dd5be3-43a4-4c53-a5ba-112275dc3ac6"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Eigenvalues", "[",
RowBox[{"(", "\[NoBreak]", GridBox[{
{"a", "\[Lambda]"},
{"\[Lambda]", "b"}
}], "\[NoBreak]", ")"}], "]"}]], "Input",
CellChangeTimes->{{3.858830415492423*^9, 3.858830432549013*^9}},
CellLabel->"In[16]:=",ExpressionUUID->"0fcbabf1-9a31-4e73-9b0f-e3193cf0da0e"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"a", "+", "b", "-",
SqrtBox[
RowBox[{
SuperscriptBox["a", "2"], "-",
RowBox[{"2", " ", "a", " ", "b"}], "+",
SuperscriptBox["b", "2"], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Lambda]", "2"]}]}]]}], ")"}]}], ",",
RowBox[{
FractionBox["1", "2"], " ",
RowBox[{"(",
RowBox[{"a", "+", "b", "+",
SqrtBox[
RowBox[{
SuperscriptBox["a", "2"], "-",
RowBox[{"2", " ", "a", " ", "b"}], "+",
SuperscriptBox["b", "2"], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Lambda]", "2"]}]}]]}], ")"}]}]}], "}"}]], "Output",\
CellChangeTimes->{3.858830432809946*^9},
CellLabel->"Out[16]=",ExpressionUUID->"bd579e22-0bcf-489d-bbb5-ee10d9e3eb82"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox["a", "2"], "-",
RowBox[{"2", " ", "a", " ", "b"}], "+",
SuperscriptBox["b", "2"]}], "//", "Factor"}]], "Input",
CellChangeTimes->{{3.858830442428556*^9, 3.858830450530805*^9}},
CellLabel->"In[19]:=",ExpressionUUID->"a0a20f99-3eda-4ca6-920f-918e1132f616"],
Cell[BoxData[
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "-", "b"}], ")"}], "2"]], "Output",
CellChangeTimes->{{3.8588304441435213`*^9, 3.8588304508188457`*^9}},
CellLabel->"Out[19]=",ExpressionUUID->"fb8f2b92-e9b5-4bca-bba0-b46f70bfcb93"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{"a", "-", "b"}], ")"}], "2"], "+",
RowBox[{"4", " ",
SuperscriptBox["\[Lambda]", "2"]}]}], ">", "0"}]], "Input",
CellChangeTimes->{{3.8588304578840847`*^9,
3.858830472644949*^9}},ExpressionUUID->"bba87f46-334f-485b-8c9d-\
0eb7ff79cc9c"]
}, Open ]],
Cell[CellGroupData[{
@ -2632,8 +2984,7 @@ Cell[BoxData[{
RowBox[{"PlotMarkers", "->", "None"}]}], "\[IndentingNewLine]", "}"}]}],
";"}]}], "Input",
InitializationCell->True,
CellLabel->
"In[199]:=",ExpressionUUID->"d754cecd-0dc1-44bc-aadc-26d9c91dd570"],
CellLabel->"In[5]:=",ExpressionUUID->"d754cecd-0dc1-44bc-aadc-26d9c91dd570"],
Cell[CellGroupData[{
@ -4564,14 +4915,15 @@ pLINPnaf/r8/kEBzrVMD/X/C/wAHOYY/
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}, Closed]]
},
WindowSize->{1998, 1395},
WindowMargins->{{2, Automatic}, {Automatic, 0}},
WindowSize->{1212, 847},
WindowMargins->{{Automatic, 108}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
TaggingRules-><|"TryRealOnly" -> False|>,
Magnification:>1.25 Inherited,
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
FrontEndVersion->"13.0 for Mac OS X ARM (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"c947be63-9aef-4192-bf26-b635965432d0"
]
@ -4588,111 +4940,122 @@ CellTagsIndex->{}
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 210, 4, 84, "Section",ExpressionUUID->"02be5389-c76a-4857-909d-d9a74db06627"],
Cell[793, 28, 309, 6, 57, "Input",ExpressionUUID->"d157845e-0bac-4623-9438-6db32c2b348a",
Cell[793, 28, 308, 6, 57, "Input",ExpressionUUID->"d157845e-0bac-4623-9438-6db32c2b348a",
InitializationCell->True],
Cell[1105, 36, 233, 6, 57, "Input",ExpressionUUID->"466164d7-6b9d-472d-8dbb-051b87d2ab0d",
Cell[1104, 36, 232, 6, 57, "Input",ExpressionUUID->"466164d7-6b9d-472d-8dbb-051b87d2ab0d",
InitializationCell->True],
Cell[1339, 44, 574, 12, 84, "Input",ExpressionUUID->"1a76bff9-c9eb-4a64-8550-cf38c809ba22",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[1363, 46, 575, 12, 84, "Input",ExpressionUUID->"1a76bff9-c9eb-4a64-8550-cf38c809ba22",
InitializationCell->True],
Cell[1950, 61, 88, 0, 65, "Section",ExpressionUUID->"a68e1e90-2158-4da8-9829-76467decd8c9"],
Cell[2041, 63, 1276, 35, 90, "Input",ExpressionUUID->"682f75fb-1edd-4aa6-a4ad-b597c5f869c9"],
Cell[3320, 100, 1001, 27, 64, "Input",ExpressionUUID->"35c12977-2872-4eab-be4f-329f455172b3"],
Cell[CellGroupData[{
Cell[1963, 62, 184, 3, 29, "Print",ExpressionUUID->"cbf42558-605c-438a-8830-4651f2b14404"],
Cell[2150, 67, 257, 5, 29, "Print",ExpressionUUID->"01c9b322-7e7d-4570-91fe-d6b16e2d90b3"],
Cell[2410, 74, 492, 9, 32, "Print",ExpressionUUID->"7208cf23-5c42-419a-905c-548f15dd7dda"]
}, Open ]]
Cell[4346, 131, 328, 7, 37, "Input",ExpressionUUID->"59810817-5144-4818-800a-a2ceb8fcd500"],
Cell[4677, 140, 4095, 96, 308, "Output",ExpressionUUID->"814e3769-9eaf-4e1a-8956-617c8e61d77e"]
}, Open ]],
Cell[8787, 239, 1274, 35, 90, "Input",ExpressionUUID->"5f735bd6-ba1a-4987-b9f7-8ff4ac674345"],
Cell[10064, 276, 981, 27, 64, "Input",ExpressionUUID->"5928cf25-152d-4cb2-9ce3-3f99ce9557d3"],
Cell[CellGroupData[{
Cell[11070, 307, 310, 7, 37, "Input",ExpressionUUID->"33a86cd9-4a3d-4b09-91de-2cbb886a6250"],
Cell[11383, 316, 5200, 125, 308, "Output",ExpressionUUID->"d32fbdb3-4ad8-4d05-aa55-4c32ff841fbc"]
}, Open ]],
Cell[16598, 444, 1275, 35, 90, "Input",ExpressionUUID->"051138e6-33b2-49e1-b570-b5e33fd33d7f"],
Cell[17876, 481, 982, 27, 64, "Input",ExpressionUUID->"37bd2bc4-e119-4f55-88d4-845984e63c22"],
Cell[18861, 510, 230, 6, 37, "Input",ExpressionUUID->"c2496421-c71c-4de1-a28d-dd9067951fda"],
Cell[CellGroupData[{
Cell[19116, 520, 312, 7, 37, "Input",ExpressionUUID->"bbbc4763-dda3-4da9-8ff0-9b7dc9932b23"],
Cell[19431, 529, 4933, 120, 306, "Output",ExpressionUUID->"cad1c286-e9fa-457d-9d0f-e5060da9432b"]
}, Open ]],
Cell[24379, 652, 513, 11, 64, "Input",ExpressionUUID->"c351c0eb-ffe9-41ea-b9a4-ee9c001a879d"],
Cell[CellGroupData[{
Cell[24917, 667, 1050, 23, 37, "Input",ExpressionUUID->"3dc691e1-f05a-4c4c-8978-c337f01f76cf"],
Cell[25970, 692, 8346, 163, 583, "Output",ExpressionUUID->"dad67ae9-473d-49b3-a4ed-6cc27aca3cc2"]
}, Open ]],
Cell[CellGroupData[{
Cell[34353, 860, 859, 20, 37, "Input",ExpressionUUID->"e9d7c473-f53c-4be4-9780-1cba856893ff"],
Cell[35215, 882, 6570, 149, 308, "Output",ExpressionUUID->"2a2efd1e-215b-4367-831c-d3eaaa63ec02"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[2963, 90, 88, 0, 65, "Section",ExpressionUUID->"a68e1e90-2158-4da8-9829-76467decd8c9"],
Cell[3054, 92, 1276, 35, 90, "Input",ExpressionUUID->"682f75fb-1edd-4aa6-a4ad-b597c5f869c9"],
Cell[4333, 129, 1001, 27, 64, "Input",ExpressionUUID->"35c12977-2872-4eab-be4f-329f455172b3"],
Cell[CellGroupData[{
Cell[5359, 160, 328, 7, 37, "Input",ExpressionUUID->"59810817-5144-4818-800a-a2ceb8fcd500"],
Cell[5690, 169, 4095, 96, 308, "Output",ExpressionUUID->"814e3769-9eaf-4e1a-8956-617c8e61d77e"]
}, Open ]],
Cell[9800, 268, 1274, 35, 90, "Input",ExpressionUUID->"5f735bd6-ba1a-4987-b9f7-8ff4ac674345"],
Cell[11077, 305, 981, 27, 64, "Input",ExpressionUUID->"5928cf25-152d-4cb2-9ce3-3f99ce9557d3"],
Cell[CellGroupData[{
Cell[12083, 336, 310, 7, 37, "Input",ExpressionUUID->"33a86cd9-4a3d-4b09-91de-2cbb886a6250"],
Cell[12396, 345, 5200, 125, 308, "Output",ExpressionUUID->"d32fbdb3-4ad8-4d05-aa55-4c32ff841fbc"]
}, Open ]],
Cell[17611, 473, 1275, 35, 90, "Input",ExpressionUUID->"051138e6-33b2-49e1-b570-b5e33fd33d7f"],
Cell[18889, 510, 982, 27, 64, "Input",ExpressionUUID->"37bd2bc4-e119-4f55-88d4-845984e63c22"],
Cell[19874, 539, 230, 6, 37, "Input",ExpressionUUID->"c2496421-c71c-4de1-a28d-dd9067951fda"],
Cell[CellGroupData[{
Cell[20129, 549, 312, 7, 37, "Input",ExpressionUUID->"bbbc4763-dda3-4da9-8ff0-9b7dc9932b23"],
Cell[20444, 558, 4933, 120, 306, "Output",ExpressionUUID->"cad1c286-e9fa-457d-9d0f-e5060da9432b"]
}, Open ]],
Cell[25392, 681, 513, 11, 64, "Input",ExpressionUUID->"c351c0eb-ffe9-41ea-b9a4-ee9c001a879d"],
Cell[CellGroupData[{
Cell[25930, 696, 1050, 23, 37, "Input",ExpressionUUID->"3dc691e1-f05a-4c4c-8978-c337f01f76cf"],
Cell[26983, 721, 8346, 163, 583, "Output",ExpressionUUID->"dad67ae9-473d-49b3-a4ed-6cc27aca3cc2"]
}, Open ]],
Cell[CellGroupData[{
Cell[35366, 889, 859, 20, 37, "Input",ExpressionUUID->"e9d7c473-f53c-4be4-9780-1cba856893ff"],
Cell[36228, 911, 6570, 149, 308, "Output",ExpressionUUID->"2a2efd1e-215b-4367-831c-d3eaaa63ec02"]
}, Open ]]
Cell[41834, 1037, 162, 3, 65, "Section",ExpressionUUID->"6a704d60-27a2-4628-a61b-b8f4e21f8868"],
Cell[41999, 1042, 878, 28, 116, "Input",ExpressionUUID->"6feb960f-bb32-4591-80f4-4f095d8668c2"],
Cell[42880, 1072, 316, 9, 40, "Input",ExpressionUUID->"21c50754-febc-41cd-a91a-d483a7bc8140"],
Cell[43199, 1083, 1051, 32, 116, "Input",ExpressionUUID->"4dfd87b2-28e1-4b90-98bd-12ef5c33e7cd"],
Cell[44253, 1117, 1724, 56, 68, "Input",ExpressionUUID->"f6448161-1952-4500-b5f5-566946f9b807"],
Cell[45980, 1175, 1288, 43, 42, "Input",ExpressionUUID->"260633fc-4386-4e7b-a747-77a336ee6b4d"],
Cell[47271, 1220, 1348, 44, 79, "Input",ExpressionUUID->"0819721e-8f8a-4961-93d6-77fc2fd42396"]
}, Closed]],
Cell[CellGroupData[{
Cell[42847, 1066, 162, 3, 65, "Section",ExpressionUUID->"6a704d60-27a2-4628-a61b-b8f4e21f8868"],
Cell[43012, 1071, 878, 28, 116, "Input",ExpressionUUID->"6feb960f-bb32-4591-80f4-4f095d8668c2"],
Cell[43893, 1101, 316, 9, 40, "Input",ExpressionUUID->"21c50754-febc-41cd-a91a-d483a7bc8140"],
Cell[44212, 1112, 1051, 32, 116, "Input",ExpressionUUID->"4dfd87b2-28e1-4b90-98bd-12ef5c33e7cd"],
Cell[45266, 1146, 1724, 56, 68, "Input",ExpressionUUID->"f6448161-1952-4500-b5f5-566946f9b807"],
Cell[46993, 1204, 1288, 43, 42, "Input",ExpressionUUID->"260633fc-4386-4e7b-a747-77a336ee6b4d"],
Cell[48284, 1249, 1348, 44, 79, "Input",ExpressionUUID->"0819721e-8f8a-4961-93d6-77fc2fd42396"]
}, Closed]],
Cell[48656, 1269, 264, 4, 65, "Section",ExpressionUUID->"470a82c0-3bf7-49b2-b0a4-e18638c845fc"],
Cell[48923, 1275, 845, 16, 131, "Text",ExpressionUUID->"0d18b6aa-4968-4bd0-a62c-7cbf1928b263"],
Cell[49771, 1293, 2464, 65, 146, "Input",ExpressionUUID->"de460126-5872-41ad-b94a-2ac25594d244"],
Cell[52238, 1360, 94, 0, 44, "Text",ExpressionUUID->"5ddc87f4-cdbc-4e64-b398-e4dd73a164b9"],
Cell[52335, 1362, 726, 24, 43, "Input",ExpressionUUID->"13b10e6f-abda-4091-a5ab-9647b9bd5090"],
Cell[53064, 1388, 423, 12, 42, "Input",ExpressionUUID->"8fae97ef-b0a1-4939-9bfa-1b576bff870a"],
Cell[53490, 1402, 1532, 48, 44, "Input",ExpressionUUID->"a36084fe-8d84-44a2-ab56-752e26abb5c2"],
Cell[55025, 1452, 829, 24, 40, "Input",ExpressionUUID->"953e39d9-6625-402e-8c90-8a7cb2cccde3"],
Cell[55857, 1478, 970, 30, 43, "Input",ExpressionUUID->"458a09fb-389c-463e-aefa-8294bec583fa"],
Cell[56830, 1510, 109, 0, 44, "Text",ExpressionUUID->"c90c48af-9fdf-4ddc-8608-9400c30a5610"],
Cell[56942, 1512, 2424, 78, 146, "Input",ExpressionUUID->"3c8afc9a-6104-43d2-8a12-a28ea7c2ad67"],
Cell[59369, 1592, 93, 0, 44, "Text",ExpressionUUID->"aafadf45-fa5d-4336-8b76-b63439e28ca0"],
Cell[59465, 1594, 1764, 57, 47, "Input",ExpressionUUID->"731e5aa2-2627-4749-89ca-13d707fa2305"],
Cell[61232, 1653, 92, 0, 44, "Text",ExpressionUUID->"4d08ac91-7b28-436a-a672-edd3cf5ebb8f"],
Cell[61327, 1655, 1709, 56, 47, "Input",ExpressionUUID->"09edbc2e-1fd4-47fa-b54f-e187cfeccc59"],
Cell[63039, 1713, 93, 0, 44, "Text",ExpressionUUID->"8e0d45f2-faf4-46af-a8aa-fb7d172b4e8c"],
Cell[63135, 1715, 3079, 103, 115, "Input",ExpressionUUID->"f2438676-7819-493d-ac9a-51dc5fb67c04"],
Cell[66217, 1820, 2628, 88, 83, "Input",ExpressionUUID->"02baca0b-7f2f-4be6-826c-0d732408f2ad"],
Cell[68848, 1910, 2765, 86, 83, "Input",ExpressionUUID->"f1fe5e52-9053-451b-8521-6d393ea4a08f"],
Cell[71616, 1998, 92, 0, 44, "Text",ExpressionUUID->"09951dc5-1207-416a-a2ea-cf6c4c6fc44d"],
Cell[71711, 2000, 777, 26, 43, "Input",ExpressionUUID->"04e3db48-bd52-4a1d-bdea-7c8f4c20e3f6"],
Cell[72491, 2028, 2132, 70, 83, "Input",ExpressionUUID->"ab19d3af-3174-4ce8-86b0-dcc88d1af0ac"],
Cell[74626, 2100, 2498, 79, 83, "Input",ExpressionUUID->"5555ca58-25bc-40bf-9d66-0058a15c72a0"],
Cell[77127, 2181, 118, 0, 44, "Text",ExpressionUUID->"cf5c443b-a1be-47db-8c90-8d92dc005175"],
Cell[77248, 2183, 5152, 158, 84, "Input",ExpressionUUID->"009c187a-6ffb-4145-8afd-433506865326"],
Cell[82403, 2343, 84, 0, 44, "Text",ExpressionUUID->"0581ffe5-a1bd-456d-b8ca-274d0988b17f"],
Cell[82490, 2345, 4648, 154, 167, "Input",ExpressionUUID->"7bc8daef-44bc-447f-8659-e2e31520db06"],
Cell[87141, 2501, 90, 0, 44, "Text",ExpressionUUID->"53ef96ad-c734-44f1-8123-1d211616b540"],
Cell[87234, 2503, 1840, 55, 90, "Input",ExpressionUUID->"920b9a14-7358-437b-8b2d-9af272494adb"],
Cell[89077, 2560, 185, 3, 44, "Text",ExpressionUUID->"93942955-95fa-4960-8441-d27720ba0dd0"],
Cell[89265, 2565, 880, 26, 62, "Input",ExpressionUUID->"47e9290a-cfa8-4af9-a77d-518740bd08e2"],
Cell[90148, 2593, 1078, 31, 68, "Input",ExpressionUUID->"ab0fa501-ac3f-4c9c-8066-9fc31c8041bf"],
Cell[91229, 2626, 209, 5, 40, "Input",ExpressionUUID->"4498a696-6326-43f3-929f-4540537b631f"],
Cell[91441, 2633, 1026, 32, 64, "Input",ExpressionUUID->"9a0c7b03-b777-49f5-bbb5-8250e18341f6"],
Cell[CellGroupData[{
Cell[49669, 1298, 264, 4, 65, "Section",ExpressionUUID->"470a82c0-3bf7-49b2-b0a4-e18638c845fc"],
Cell[49936, 1304, 845, 16, 73, "Text",ExpressionUUID->"0d18b6aa-4968-4bd0-a62c-7cbf1928b263"],
Cell[50784, 1322, 2386, 63, 146, "Input",ExpressionUUID->"de460126-5872-41ad-b94a-2ac25594d244"],
Cell[53173, 1387, 94, 0, 44, "Text",ExpressionUUID->"5ddc87f4-cdbc-4e64-b398-e4dd73a164b9"],
Cell[53270, 1389, 726, 24, 43, "Input",ExpressionUUID->"13b10e6f-abda-4091-a5ab-9647b9bd5090"],
Cell[53999, 1415, 423, 12, 42, "Input",ExpressionUUID->"8fae97ef-b0a1-4939-9bfa-1b576bff870a"],
Cell[54425, 1429, 1532, 48, 44, "Input",ExpressionUUID->"a36084fe-8d84-44a2-ab56-752e26abb5c2"],
Cell[55960, 1479, 829, 24, 40, "Input",ExpressionUUID->"953e39d9-6625-402e-8c90-8a7cb2cccde3"],
Cell[56792, 1505, 970, 30, 43, "Input",ExpressionUUID->"458a09fb-389c-463e-aefa-8294bec583fa"],
Cell[57765, 1537, 109, 0, 44, "Text",ExpressionUUID->"c90c48af-9fdf-4ddc-8608-9400c30a5610"],
Cell[57877, 1539, 2424, 78, 146, "Input",ExpressionUUID->"3c8afc9a-6104-43d2-8a12-a28ea7c2ad67"],
Cell[60304, 1619, 93, 0, 44, "Text",ExpressionUUID->"aafadf45-fa5d-4336-8b76-b63439e28ca0"],
Cell[60400, 1621, 1764, 57, 47, "Input",ExpressionUUID->"731e5aa2-2627-4749-89ca-13d707fa2305"],
Cell[62167, 1680, 92, 0, 44, "Text",ExpressionUUID->"4d08ac91-7b28-436a-a672-edd3cf5ebb8f"],
Cell[62262, 1682, 1709, 56, 47, "Input",ExpressionUUID->"09edbc2e-1fd4-47fa-b54f-e187cfeccc59"],
Cell[63974, 1740, 93, 0, 44, "Text",ExpressionUUID->"8e0d45f2-faf4-46af-a8aa-fb7d172b4e8c"],
Cell[64070, 1742, 3079, 103, 79, "Input",ExpressionUUID->"f2438676-7819-493d-ac9a-51dc5fb67c04"],
Cell[67152, 1847, 2628, 88, 47, "Input",ExpressionUUID->"02baca0b-7f2f-4be6-826c-0d732408f2ad"],
Cell[69783, 1937, 2765, 86, 47, "Input",ExpressionUUID->"f1fe5e52-9053-451b-8521-6d393ea4a08f"],
Cell[72551, 2025, 92, 0, 44, "Text",ExpressionUUID->"09951dc5-1207-416a-a2ea-cf6c4c6fc44d"],
Cell[72646, 2027, 777, 26, 43, "Input",ExpressionUUID->"04e3db48-bd52-4a1d-bdea-7c8f4c20e3f6"],
Cell[73426, 2055, 2132, 70, 47, "Input",ExpressionUUID->"ab19d3af-3174-4ce8-86b0-dcc88d1af0ac"],
Cell[75561, 2127, 2498, 79, 47, "Input",ExpressionUUID->"5555ca58-25bc-40bf-9d66-0058a15c72a0"],
Cell[78062, 2208, 118, 0, 44, "Text",ExpressionUUID->"cf5c443b-a1be-47db-8c90-8d92dc005175"],
Cell[78183, 2210, 5152, 158, 84, "Input",ExpressionUUID->"009c187a-6ffb-4145-8afd-433506865326"],
Cell[83338, 2370, 84, 0, 44, "Text",ExpressionUUID->"0581ffe5-a1bd-456d-b8ca-274d0988b17f"],
Cell[83425, 2372, 4648, 154, 167, "Input",ExpressionUUID->"7bc8daef-44bc-447f-8659-e2e31520db06"],
Cell[88076, 2528, 90, 0, 44, "Text",ExpressionUUID->"53ef96ad-c734-44f1-8123-1d211616b540"],
Cell[88169, 2530, 1629, 50, 64, "Input",ExpressionUUID->"920b9a14-7358-437b-8b2d-9af272494adb"]
}, Closed]],
Cell[92492, 2669, 1059, 29, 37, "Input",ExpressionUUID->"9aac74ba-b0da-4219-b2f4-760e75b19181"],
Cell[93554, 2700, 6028, 159, 187, "Output",ExpressionUUID->"d0dd5be3-43a4-4c53-a5ba-112275dc3ac6"]
}, Open ]],
Cell[CellGroupData[{
Cell[89835, 2585, 77, 0, 65, "Section",ExpressionUUID->"8a3d16ca-0779-480a-b23d-aa8d77e59793"],
Cell[89915, 2587, 92, 0, 37, "Input",ExpressionUUID->"bcdffa1d-f22d-40ee-a1b9-2dc03ba0be9c"],
Cell[90010, 2589, 1894, 46, 448, "Input",ExpressionUUID->"d754cecd-0dc1-44bc-aadc-26d9c91dd570",
Cell[99619, 2864, 322, 7, 56, "Input",ExpressionUUID->"0fcbabf1-9a31-4e73-9b0f-e3193cf0da0e"],
Cell[99944, 2873, 874, 27, 59, "Output",ExpressionUUID->"bd579e22-0bcf-489d-bbb5-ee10d9e3eb82"]
}, Open ]],
Cell[CellGroupData[{
Cell[100855, 2905, 317, 7, 38, "Input",ExpressionUUID->"a0a20f99-3eda-4ca6-920f-918e1132f616"],
Cell[101175, 2914, 247, 5, 43, "Output",ExpressionUUID->"fb8f2b92-e9b5-4bca-bba0-b46f70bfcb93"]
}, Open ]],
Cell[101437, 2922, 334, 10, 38, "Input",ExpressionUUID->"bba87f46-334f-485b-8c9d-0eb7ff79cc9c"]
}, Open ]],
Cell[CellGroupData[{
Cell[101808, 2937, 77, 0, 84, "Section",ExpressionUUID->"8a3d16ca-0779-480a-b23d-aa8d77e59793"],
Cell[101888, 2939, 92, 0, 37, "Input",ExpressionUUID->"bcdffa1d-f22d-40ee-a1b9-2dc03ba0be9c"],
Cell[101983, 2941, 1889, 45, 448, "Input",ExpressionUUID->"d754cecd-0dc1-44bc-aadc-26d9c91dd570",
InitializationCell->True],
Cell[CellGroupData[{
Cell[91929, 2639, 84, 0, 67, "Subsection",ExpressionUUID->"14db7a36-714c-4139-a9a1-b9adf8150988"],
Cell[103897, 2990, 84, 0, 67, "Subsection",ExpressionUUID->"14db7a36-714c-4139-a9a1-b9adf8150988"],
Cell[CellGroupData[{
Cell[92038, 2643, 165, 3, 56, "Subsubsection",ExpressionUUID->"6995328e-6a17-410f-8738-8a1d6809e67a"],
Cell[92206, 2648, 1148, 32, 168, "Input",ExpressionUUID->"61300761-bb45-4b64-b105-cf2d5871979f"]
Cell[104006, 2994, 165, 3, 56, "Subsubsection",ExpressionUUID->"6995328e-6a17-410f-8738-8a1d6809e67a"],
Cell[104174, 2999, 1148, 32, 168, "Input",ExpressionUUID->"61300761-bb45-4b64-b105-cf2d5871979f"]
}, Open ]],
Cell[CellGroupData[{
Cell[93391, 2685, 314, 5, 56, "Subsubsection",ExpressionUUID->"dcd678bb-6dc4-4a3c-9206-61c1204c9bdb"],
Cell[105359, 3036, 314, 5, 56, "Subsubsection",ExpressionUUID->"dcd678bb-6dc4-4a3c-9206-61c1204c9bdb"],
Cell[CellGroupData[{
Cell[93730, 2694, 2548, 64, 428, "Input",ExpressionUUID->"cd7ca353-7a15-4a03-a45c-503c6b68d417"],
Cell[96281, 2760, 101118, 1802, 603, "Output",ExpressionUUID->"ede19c11-5d07-4864-bb51-b02c94eff86a"]
}, Open ]]
Cell[105698, 3045, 2548, 64, 428, "Input",ExpressionUUID->"cd7ca353-7a15-4a03-a45c-503c6b68d417"],
Cell[108249, 3111, 101118, 1802, 603, "Output",ExpressionUUID->"ede19c11-5d07-4864-bb51-b02c94eff86a"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Closed]]
}
]
*)

BIN
Response_Letter/CNRS_logo.pdf Normal file
View File

Binary file not shown.

219
Response_Letter/Response_Letter.tex Normal file
View File

@ -0,0 +1,219 @@
\documentclass[10pt]{letter}
\usepackage{UPS_letterhead,xcolor,mhchem,ragged2e,hyperref}
\newcommand{\alert}[1]{\textcolor{red}{#1}}
\definecolor{darkgreen}{HTML}{009900}
\begin{document}
\begin{letter}%
{To the Editors of the Journal of Chemical Physics,}
\opening{Dear Editors,}
\justifying
Please find attached a revised version of the manuscript entitled
\begin{quote}
\textit{``Unphysical Discontinuities, Intruder States and Regularization in $GW$ Methods''}.
\end{quote}
We thank the reviewers for their constructive comments.
Our detailed responses to their comments can be found below.
For convenience, changes are highlighted in red in the revised version of the manuscript.
We look forward to hearing from you.
\closing{Sincerely, the authors.}
\newpage
%%% REVIEWER 1 %%%
\noindent \textbf{\large Authors' answer to Reviewer \#1}
{This in an interesting article and definitely deserves publication in JCP.
However, I think that there are few issues the authors need to address before publication of this article.
In my opinion addressing of these issues would be helpful to both quantum chemistry audience and even Green's function practitioners.
In my understanding methods that are solved through non-linear equations display multiple solutions due to the dependence on the starting point and presence of multiple local minima.
While the presence of these multiple solutions may be connected to the disappearance of denominators, the problem is much more general.
The problem of multiple solutions exists even if fully self-consistent GW is solved in a finite temperature formalism (on imaginary axis - which effectively removes the problem with vanishing denominators).
Different solutions can be then illustrated by considering their physical properties for example $S^2$.
In such cases, the potential energy curves are smooth within a region where one solution is dominant and one can show properties of these solutions as a function of $S^2$, see J. Chem. Phys. 155, 024101, and J. Chem. Phys. 155, 024119.
Convergence accelerators such as DIIS, KAIN, LCIS, can be successfully used and smooth PES can be produced when one is relatively close to a local minima, one should not expect that DIIS will help with convergence where multiple close lying solutions exists and when two solutions are competing, see J. Chem. Phys. 156, 094101 (2022).
It is my understanding that the calculation on the illustrative example H2 in 6-31G basis illustrates the existence of multiple such solutions.
The issue of introducing a regularizer to avoid vanishing denominators is more of an issue for GW on real axis.
Of course these issues of vanishing denominators and multiple solutions due to the non-linear character of the Dyson equation are connected but I think it is worth mentioning explicitly how different versions of GW are affected by these issues.
Frankly, I find it infuriating that in the GW community many times it is not clearly spelled out which flavor of the so-called GW is used and how the equations are solved.
Here, I will describe more specific issues that I noticed during the reading of the manuscript:}
\\
\alert{
}
\begin{enumerate}
\item
{The authors should specify on which axis (omega) they perform their evaluation since this will not be clear to a regular chemistry audience.
The convergence characteristics on imaginary or real axis is very different.
Please, specify it. It may seem trivial to a regular GW practitioner, it is not trivial for a regular theoretical chemist not very familiar with Green's functions.}
\\
\alert{
}
\item
{It would be reassuring if the authors mentioned that they use $O(K^9)$ scheme just to illustrate multiple solutions and this should not be done in regular calculations. A reader not familiar with GW algorithms may conclude that this what they advocate that should be done.
On the same note, it would be good if the authors mentioned that the scheme that scales as $O(K^6)$ is again not what one does in most GW schemes that are in use for calculations of larger systems.}
\\
\alert{
}
\item
{In expressions such as $\epsilon^{GW}_{p,s}$ s is numbering solutions.
I do not think that it is clearly mentioned in the article when the notation appears first time.}
\\
\alert{
}
\item
{I assume that in Fig.~1 authors plot the lowest solution after the diagonalization for each orbital p.}
\\
\alert{
}
\item
{In Fig.~2, the thick and thin solid lines are hardly visible. A better way of displaying is necessary.
Otherwise it all is a bit incomprehensible.}
\\
\alert{
}
\item
{In Fig.~3, it is unclear to me that the traditional shift and the shift introduced by Evangelista result in demonstrating that Evangelista shift is superior.
It seems to me that the difference between the values of qp energies before and post shifting are of the same order of magnitude for both regularizers.
Could authors elaborate what they see differently and what my untrained eyes could not see?}
\\
\alert{
}
\item
{In Fig.~4, again I do not understand author's conclusions.
I understand that the regularization seems to introduce only 10 meV correction to the Homo and Lumo which is good.
However, I cannot understand how the authors can claim that the correction introduced to the p=3 and 4 is viable.
These qp energies are different by 2-3 eV. How are the smooth curves advantageous if the results are so incorrect?
Could authors elaborate?}
\\
\alert{
}
\item
{How the values of Fig.~4 depend on different choices of $\eta$ magnitude? This is crucial for assessing if a regularizer scheme is viable. }
\\
\alert{
}
\item
{In Fig.~5, it would be interesting to know how the total electronic energy depends on the choice of the regularizer and its magnitude.
Without showing such a graph it is hard to know.
Also would the regularizer help when the HF eigenvalues of Homo and Lumo are known to become degenerate at the stretched distance?}
\\
\alert{
}
\item
{If I wanted to perform an actual calculation how I should choose a right regularizer?
It is reasonable to expect that the value of $\eta$ is system dependent.
How could I recognize which value is right?}
\\
\alert{
}
\item
{In Fig.~5, I find very surprising that authors find that the curve is so "bumpy" already at the equilibrium distance.
Usually in the quantum chemistry community, it is a standard practice to pass a solution from the previous geometry to the subsequent one as a starting point.
This removes "bumpiness" in regions where denominators do not vanish.
Are indeed the denominators already vanishing here at the equilibrium?
If they do, then I find it highly unusual.
Or are these competing solutions that could be removed by passing the starting point between neighboring geometries without a regularizer?}
\\
\alert{
}
\item
{In my opinion, the novelty of this work is in showing how the unfolding scheme introduced by Booth group can be used to access different quasiparticle solutions.
I am less convinced about the goodness of the regularizer since I suspect that the solutions depend quite a bit on the magnitude of $\eta$.
Can this paper be published as a rapid communication?
Yes, but a plot showing that the total energy is relatively insensitive as a function of regularizer $\eta$ would make the argument more convincing to broaden the applicability of the partially self-consistent Green's function on the real axis.}
\\
\alert{
}
\end{enumerate}
%%% REVIEWER 2 %%%
\noindent \textbf{\large Authors' answer to Reviewer \#2}
{The article by Monino and Loos presents a way to avoid numerical difficulties arising from GW calculations in moderately correlated electronic systems, where a small perturbation in a particular parameter of the problem, such as the interatomic distance, leads to a sudden jump in the main quasiparticle peak, as computed within the GW approximation. The article is written clearly and includes new, original insights that could be useful for an audience of specialists interested in electronic-structure calculations. I support the article for publication, but ask the authors to address my points below: }
\\
\alert{
}
\begin{enumerate}
\item
{In standard GW calculations in solids, one assigns a quasiparticle peak to the solution of Dyson's equation that is associated with the largest value of the spectral function.
This is the only general method that works in solids as, rigorously, there is no strict solution for Eq.~2 in a generic system - unless one lets $\omega$ be complex.
Making this connection, especially around or before Eq.~8, would clarify the method to a readership that is not only interested in molecular systems.}
\\
\alert{
}
\item
{I am not very happy with the term "intruder state" and with calling the procedure a "regularized GW method".
These terms give the impression that there is a spurious solution that doesn't belong to a particular part of the Hilbert space and which leads to a sudden jump of the quasiparticle energy.
Instead, my understanding is that the physics behind the jumps has nothing to do with spurious states, but one's insistence on making a one-to-one correspondence of the mean-field energy with a peak in the interacting spectral function.
For strongly correlated systems, the spectral function may have pronounced satellite peaks, whose intensities may vary significantly with a small change in an external parameter.
This is a point that the authors explain well in the text, but the terminology of intruder state confuses this otherwise simple physical picture.
In addition, the term "regularized GW method" gives the impression that the GW approach has unphysical features.
Instead, this procedure is nothing but a small broadening parameter that smooths out sudden jumps between neighboring peaks in the spectral function. }
\\
\alert{
}
\item
{How does the result depend on the details of the "regularization" function?
The authors should be aware that traditional GW calculations performed in solids often use a small broadening, and hence such a "regularization" is naturally captured by many codes - whether or not on purpose.}
\\
\alert{
}
\item
{I'm confused with the top row in Figure 3.
Shouldn't the brown dashed curve with $\eta=0.01$ go to the solution with the main quasiparticle peak for the left and right limits of the plots?
My naive intuition is that a small $\eta$ means that we are doing less smoothing to the self-energy/spectral function (or, in the language of the authors, performing a weaker "renormalization").
So, why doesn't the curve with $\eta=0.01$ jump abruptly to the solutions computed without the smoothing/"regularization" procedure?}
\\
\alert{
}
\item
{For all plots, the authors should include the units for $\eta$.}
\\
\alert{
}
\item
{The authors should specify the meaning of the various acronyms in Fig.~5.
}
\\
\alert{
}
\end{enumerate}
\end{letter}
\end{document}

70
Response_Letter/UPS_letterhead.sty Normal file
View File

@ -0,0 +1,70 @@
%ANU etterhead Yves
%version 1.0 12/06/08
%need to be improved
\RequirePackage{graphicx}
%%%%%%%%%%%%%%%%%%%%% DEFINE USER-SPECIFIC MACROS BELOW %%%%%%%%%%%%%%%%%%%%%
\def\Who {Pierre-Fran\c{c}ois Loos}
\def\What {Dr}
\def\Where {Universit\'e Paul Sabatier}
\def\Address {Laboratoire de Chimie et Physique Quantiques}
\def\CityZip {Toulouse, France}
\def\Email {loos@irsamc.ups-tlse.fr}
\def\TEL {+33 5 61 55 73 39}
\def\URL {} % NOTE: use $\sim$ for tilde
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% MARGINS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\textwidth 6in
\textheight 9.25in
\oddsidemargin 0.25in
\evensidemargin 0.25in
\topmargin -1.50in
\longindentation 0.50\textwidth
\parindent 5ex
%%%%%%%%%%%%%%%%%%%%%%%%%%% ADDRESS MACRO BELOW %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\address{
\includegraphics[height=0.7in]{CNRS_logo.pdf} \hspace*{\fill}\includegraphics[height=0.7in]{UPS_logo.pdf}
\\
\hrulefill
\\
{\small \What~\Who\hspace*{\fill} Telephone:\ \TEL
\\
\Where\hspace*{\fill} Email:\ \Email
\\
\Address\hspace*{\fill}
\\
\CityZip\hspace*{\fill} \URL}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%% OTHER MACROS BELOW %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%\signature{\What~\Who}
\def\opening#1{\ifx\@empty\fromaddress
\thispagestyle{firstpage}
\hspace*{\longindendation}\today\par
\else \thispagestyle{empty}
{\centering\fromaddress \vspace{5\parskip} \\
\today\hspace*{\fill}\par}
\fi
\vspace{3\parskip}
{\raggedright \toname \\ \toaddress \par}\vspace{3\parskip}
\noindent #1\par\raggedright\parindent 5ex\par
}
%I do not know what does the macro below
%\long\def\closing#1{\par\nobreak\vspace{\parskip}
%\stopbreaks
%\noindent
%\ifx\@empty\fromaddress\else
%\hspace*{\longindentation}\fi
%\parbox{\indentedwidth}{\raggedright
%\ignorespaces #1\vskip .65in
%\ifx\@empty\fromsig
%\else \fromsig \fi\strut}
%\vspace*{\fill}
% \par}

BIN
Response_Letter/UPS_logo.pdf Normal file
View File

Binary file not shown.