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

uniform scaling

Browse Source
This commit is contained in:
Pierre-Francois Loos 2019-12-09 14:37:29 +01:00
parent f74f26d137
commit 0f14496144
1 changed files with 331 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

360
FarDFT.nb
View File

@ -10,10 +10,10 @@
NotebookFileLineBreakTest NotebookFileLineBreakTest
NotebookFileLineBreakTest NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7] NotebookDataPosition[ 158, 7]
NotebookDataLength[ 96727, 2499] NotebookDataLength[ 106474, 2801]
NotebookOptionsPosition[ 86551, 2338] NotebookOptionsPosition[ 94566, 2612]
NotebookOutlinePosition[ 86887, 2353] NotebookOutlinePosition[ 94902, 2627]
CellTagsIndexPosition[ 86844, 2350] CellTagsIndexPosition[ 94859, 2624]
WindowFrame->Normal*) WindowFrame->Normal*)
(* Beginning of Notebook Content *) (* Beginning of Notebook Content *)
@ -38,7 +38,7 @@ mathpazo,xcolor,bm,mhchem}\>\"", "}"}]}]}], "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, { CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, {
3.733131339213026*^9, 3.733131352923026*^9}}, 3.733131339213026*^9, 3.733131352923026*^9}},
CellLabel-> CellLabel->
"In[207]:=",ExpressionUUID->"8b7c0bbd-9f99-42dc-b8a5-a4dc3cb8cc89"], "In[121]:=",ExpressionUUID->"8b7c0bbd-9f99-42dc-b8a5-a4dc3cb8cc89"],
Cell[BoxData[ Cell[BoxData[
RowBox[{ RowBox[{
@ -47,7 +47,7 @@ Cell[BoxData[
CellChangeTimes->{{3.7208031947801647`*^9, 3.7208032000677156`*^9}, { CellChangeTimes->{{3.7208031947801647`*^9, 3.7208032000677156`*^9}, {
3.7208034541742477`*^9, 3.720803455246439*^9}}, 3.7208034541742477`*^9, 3.720803455246439*^9}},
CellLabel-> CellLabel->
"In[209]:=",ExpressionUUID->"b24e8243-3c38-4b03-af3a-708cb1afa004"] "In[123]:=",ExpressionUUID->"b24e8243-3c38-4b03-af3a-708cb1afa004"]
}, Closed]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -158,7 +158,7 @@ Cell[BoxData["True"], "Output",
CellLabel->"Out[49]=",ExpressionUUID->"fb35d58c-512f-4f74-aa01-67c7b7b81a77"] CellLabel->"Out[49]=",ExpressionUUID->"fb35d58c-512f-4f74-aa01-67c7b7b81a77"]
}, Open ]] }, Open ]]
}, Closed]] }, Closed]]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -562,8 +562,8 @@ Cell[BoxData[
3.7826250338691883`*^9}},ExpressionUUID->"1f5927dc-663a-4f11-a2d1-\ 3.7826250338691883`*^9}},ExpressionUUID->"1f5927dc-663a-4f11-a2d1-\
7bc195f79332"] 7bc195f79332"]
}, Closed]] }, Closed]]
}, Open ]] }, Closed]]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -753,7 +753,7 @@ Cell[BoxData[
RowBox[{"1", "/", "3"}]]}]}]]], "Input", RowBox[{"1", "/", "3"}]]}]}]]], "Input",
CellChangeTimes->{{3.782626098078829*^9, 3.782626129767681*^9}, CellChangeTimes->{{3.782626098078829*^9, 3.782626129767681*^9},
3.7826261943234*^9},ExpressionUUID->"d7507220-76aa-479e-af51-0886ad0e4f5c"] 3.7826261943234*^9},ExpressionUUID->"d7507220-76aa-479e-af51-0886ad0e4f5c"]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -985,7 +985,7 @@ Cell[BoxData[
3.7826261943234*^9, {3.782626456225254*^9, 3.782626460826289*^9}, 3.7826261943234*^9, {3.782626456225254*^9, 3.782626460826289*^9},
3.7826266660833883`*^9},ExpressionUUID->"f99857fd-0430-402d-a733-\ 3.7826266660833883`*^9},ExpressionUUID->"f99857fd-0430-402d-a733-\
929b6b359e23"] 929b6b359e23"]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -1116,7 +1116,7 @@ transfered to the ",
CellChangeTimes->{{3.7826266896125298`*^9, CellChangeTimes->{{3.7826266896125298`*^9,
3.782626751796768*^9}},ExpressionUUID->"d05917ae-a767-4a78-834a-\ 3.782626751796768*^9}},ExpressionUUID->"d05917ae-a767-4a78-834a-\
c4b18c1c0b13"] c4b18c1c0b13"]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -1334,8 +1334,8 @@ coefficient is weight dependent and it appears as a correction over Dirac\
3.782627617737678*^9, 3.7826277263447857`*^9}, {3.782627817686021*^9, 3.782627617737678*^9, 3.7826277263447857`*^9}, {3.782627817686021*^9,
3.78262782048987*^9}},ExpressionUUID->"b83db319-04e5-42b8-ae4c-\ 3.78262782048987*^9}},ExpressionUUID->"b83db319-04e5-42b8-ae4c-\
57f93abe09fd"] 57f93abe09fd"]
}, Open ]] }, Closed]]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -2333,6 +2333,280 @@ YEblfrJpHYn3K87Nr65S4NLUMzRQQ+L/AGJFteA=
"Out[829]=",ExpressionUUID->"8d39ac9f-b54f-4448-9ce4-9e9afb22ba92"] "Out[829]=",ExpressionUUID->"8d39ac9f-b54f-4448-9ce4-9e9afb22ba92"]
}, Open ]] }, Open ]]
}, Open ]] }, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell["Uniform scaling", "Section",
CellChangeTimes->{{3.78488690364141*^9,
3.784886906701776*^9}},ExpressionUUID->"36f69d13-fe6b-4a04-acec-\
16703fdd0e12"],
Cell[TextData[{
"The ",
Cell[BoxData[
FormBox[
SubscriptBox["C", "x"], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"9f63fd3f-a1cb-4258-b502-65d8e1bfb1dd"],
"coefficient which gives the exact exchange energy for the hydrogen atom is"
}], "Text",
CellChangeTimes->{{3.78488692311138*^9,
3.784886962794784*^9}},ExpressionUUID->"17ce12bb-a006-40f9-ab62-\
8a0036a5342f"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"20", " "}], "27"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["\[Pi]", "2"], ")"}],
RowBox[{"1", "/", "3"}]]}], "//", "N"}]], "Input",
CellChangeTimes->{{3.784883266461767*^9, 3.784883266886877*^9}, {
3.7848869772383013`*^9, 3.784886979000092*^9}, 3.7848870505946007`*^9},
CellLabel->
"In[130]:=",ExpressionUUID->"44e4ae27-771e-4e10-b2a8-3f5c0700fb97"],
Cell[BoxData[
RowBox[{"-", "0.8610721122293528`"}]], "Output",
CellChangeTimes->{3.7848832673151903`*^9, 3.784886980796595*^9,
3.78488705101871*^9},
CellLabel->
"Out[130]=",ExpressionUUID->"47184591-6c91-4963-aebc-73b69a443808"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"20", " "}], "27"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["\[Pi]", "2"], ")"}],
RowBox[{"1", "/", "3"}]]}],
RowBox[{
RowBox[{"-",
FractionBox["3", "4"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["3", "\[Pi]"], ")"}],
RowBox[{"1", "/", "3"}]]}]], "//", "N"}]], "Input",
CellChangeTimes->{{3.7848870046187353`*^9, 3.784887080745246*^9}},
CellLabel->
"In[131]:=",ExpressionUUID->"31e71679-e385-4ae9-bf70-b310ce826eaf"],
Cell[BoxData["1.1658816487244295`"], "Output",
CellChangeTimes->{{3.784887019498967*^9, 3.784887040097371*^9},
3.784887081183888*^9},
CellLabel->
"Out[131]=",ExpressionUUID->"dda12046-695a-4ac3-bf5e-c8600e6dcaef"]
}, Open ]],
Cell[TextData[{
"The ratio of this coefficient with the LDA ",
Cell[BoxData[
FormBox[
SubscriptBox["C", "x"], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"f626843a-763b-4282-8e18-57cf08a337ce"],
" coefficient does not violate the Lieb-Oxford bound (which is equal to \
1.174)."
}], "Text",
CellChangeTimes->{{3.784887103891222*^9, 3.784887131716177*^9}, {
3.784887167296002*^9,
3.784887189325076*^9}},ExpressionUUID->"0ad72096-b75c-4b05-aea4-\
1c9a3ba2d63e"],
Cell[TextData[{
"The ",
Cell[BoxData[
FormBox[
SubsuperscriptBox["C", "x",
RowBox[{"(", "0", ")"}]], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"d4a04e61-b7ea-485b-8800-f38fa83ec53e"],
" coefficient does violate the Lieb-Oxford bound by a significant amount"
}], "Text",
CellChangeTimes->{{3.784887244991795*^9, 3.7848872555813847`*^9}, {
3.784887288097371*^9,
3.784887297712399*^9}},ExpressionUUID->"f3cf0761-27e0-47e5-819a-\
4f76e0d90b9b"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox["4", "3"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["1", "\[Pi]"], ")"}],
RowBox[{"1", "/", "3"}]]}],
RowBox[{
RowBox[{"-",
FractionBox["3", "4"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["3", "\[Pi]"], ")"}],
RowBox[{"1", "/", "3"}]]}]], "//", "N"}]], "Input",
CellChangeTimes->{{3.784887267423334*^9, 3.784887283145205*^9}},
CellLabel->
"In[133]:=",ExpressionUUID->"77eca9b4-30de-4a4a-8d4c-a627ab7872b0"],
Cell[BoxData["1.2326422655122395`"], "Output",
CellChangeTimes->{{3.7848872733320503`*^9, 3.7848872836149473`*^9}},
CellLabel->
"Out[133]=",ExpressionUUID->"ef1cfa21-7595-4fd6-a4fa-a0c034a8b13d"]
}, Open ]],
Cell[TextData[{
"The ",
Cell[BoxData[
FormBox[
SubsuperscriptBox["C", "x",
RowBox[{"(", "0", ")"}]], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"326e8bc4-fe36-4aac-a45e-612cc500bac8"],
" and ",
Cell[BoxData[
FormBox[
SubsuperscriptBox["C", "x",
RowBox[{"(", "1", ")"}]], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"60f53d5f-4d9b-4474-95f9-680905f6bdd7"],
" coefficients can be scaled in such a way that it doesn\[CloseCurlyQuote]t \
does not violate the Lieb-Oxford bound "
}], "Text",
CellChangeTimes->{{3.784887207339552*^9, 3.784887235826338*^9}, {
3.784887310960289*^9,
3.7848873193914347`*^9}},ExpressionUUID->"c212926d-9477-4fee-9f18-\
1c758debf2c7"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"\[Alpha]",
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox["4", "3"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["1", "\[Pi]"], ")"}],
RowBox[{"1", "/", "3"}]]}],
RowBox[{
RowBox[{"-",
FractionBox["3", "4"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["3", "\[Pi]"], ")"}],
RowBox[{"1", "/", "3"}]]}]]}], "\[Equal]", "1.174"}], "]"}]], "Input",
CellChangeTimes->{{3.784887340086206*^9, 3.7848873585035954`*^9}},
CellLabel->
"In[134]:=",ExpressionUUID->"40b08d32-7779-4afd-83c6-170f189f9a96"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]", "0.9524255599917547`"}], "}"}],
"}"}]], "Output",
CellChangeTimes->{3.784887359346363*^9},
CellLabel->
"Out[134]=",ExpressionUUID->"896c805b-7892-4f9b-ac07-361220bdc186"]
}, Open ]],
Cell[TextData[{
"We can also scale the ",
Cell[BoxData[
FormBox[
SubsuperscriptBox["C", "x",
RowBox[{"(", "0", ")"}]], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"e39724df-2639-4a66-b29a-178ef1826722"],
" and ",
Cell[BoxData[
FormBox[
SubsuperscriptBox["C", "x",
RowBox[{"(", "1", ")"}]], TraditionalForm]],
FormatType->"TraditionalForm",ExpressionUUID->
"afbc343a-32e2-40e2-8ec7-adb5641ff50d"],
" coefficients in such a way that it does reproduce the hydrogen atom value"
}], "Text",
CellChangeTimes->{{3.784887207339552*^9, 3.784887235826338*^9}, {
3.784887310960289*^9, 3.7848873193914347`*^9}, {3.784887372968326*^9,
3.7848873921908484`*^9}},ExpressionUUID->"350a122c-6d8b-461e-bad5-\
e2fdbc14b8f2"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"\[Alpha]",
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox["4", "3"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["1", "\[Pi]"], ")"}],
RowBox[{"1", "/", "3"}]]}],
RowBox[{
RowBox[{"-",
FractionBox["3", "4"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["3", "\[Pi]"], ")"}],
RowBox[{"1", "/", "3"}]]}]]}], "\[Equal]",
FractionBox[
RowBox[{
RowBox[{"-",
FractionBox[
RowBox[{"20", " "}], "27"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["\[Pi]", "2"], ")"}],
RowBox[{"1", "/", "3"}]]}],
RowBox[{
RowBox[{"-",
FractionBox["3", "4"]}],
SuperscriptBox[
RowBox[{"(",
FractionBox["3", "\[Pi]"], ")"}],
RowBox[{"1", "/", "3"}]]}]]}], "]"}]], "Input",
CellChangeTimes->{{3.784887340086206*^9, 3.7848873585035954`*^9},
3.784887404053864*^9},
CellLabel->
"In[135]:=",ExpressionUUID->"ffbc7770-1424-4564-b99b-b9ad1c0639d4"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"\[Alpha]", "\[Rule]",
FractionBox[
RowBox[{"5", " ",
SuperscriptBox["\[Pi]",
RowBox[{"2", "/", "3"}]]}],
RowBox[{"9", " ",
SuperscriptBox["2",
RowBox[{"1", "/", "3"}]]}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{3.784887359346363*^9, 3.784887404575333*^9},
CellLabel->
"Out[135]=",ExpressionUUID->"27597e7b-3c41-49b8-9900-9077d931d997"]
}, Open ]]
}, Open ]] }, Open ]]
}, Open ]] }, Open ]]
}, },
@ -2375,9 +2649,9 @@ Cell[4240, 138, 550, 13, 48, "Input",ExpressionUUID->"150e916f-8806-4d8e-b5d0-c0
Cell[4793, 153, 276, 4, 34, "Output",ExpressionUUID->"fb35d58c-512f-4f74-aa01-67c7b7b81a77"] Cell[4793, 153, 276, 4, 34, "Output",ExpressionUUID->"fb35d58c-512f-4f74-aa01-67c7b7b81a77"]
}, Open ]] }, Open ]]
}, Closed]] }, Closed]]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[5130, 164, 215, 4, 67, "Section",ExpressionUUID->"8fd0ca40-ccd3-410e-8538-798441b5cf4b"], Cell[5130, 164, 215, 4, 53, "Section",ExpressionUUID->"8fd0ca40-ccd3-410e-8538-798441b5cf4b"],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[5370, 172, 174, 3, 54, "Subsection",ExpressionUUID->"10e37c4d-fcc0-4a25-949c-6383c67ff9eb"], Cell[5370, 172, 174, 3, 54, "Subsection",ExpressionUUID->"10e37c4d-fcc0-4a25-949c-6383c67ff9eb"],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -2400,10 +2674,10 @@ Cell[15939, 491, 497, 7, 34, "Output",ExpressionUUID->"ed71661b-3a8d-4eee-a4d0-6
}, Open ]], }, Open ]],
Cell[16451, 501, 2240, 61, 123, "Input",ExpressionUUID->"1f5927dc-663a-4f11-a2d1-7bc195f79332"] Cell[16451, 501, 2240, 61, 123, "Input",ExpressionUUID->"1f5927dc-663a-4f11-a2d1-7bc195f79332"]
}, Closed]] }, Closed]]
}, Open ]] }, Closed]]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[18752, 569, 150, 3, 98, "Title",ExpressionUUID->"e756f09e-4f67-4fb6-a4c1-1a4fcf53e013"], Cell[18752, 569, 150, 3, 72, "Title",ExpressionUUID->"e756f09e-4f67-4fb6-a4c1-1a4fcf53e013"],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[18927, 576, 259, 4, 67, "Section",ExpressionUUID->"81f07a4a-071b-4e38-8018-d116e770b20b"], Cell[18927, 576, 259, 4, 67, "Section",ExpressionUUID->"81f07a4a-071b-4e38-8018-d116e770b20b"],
Cell[CellGroupData[{ Cell[CellGroupData[{
@ -2420,9 +2694,9 @@ Cell[22847, 687, 153, 3, 35, "Text",ExpressionUUID->"d352d13e-d96f-4f21-9cc5-32d
Cell[23003, 692, 1177, 34, 50, "Input",ExpressionUUID->"e2a90d7c-9765-4224-b6c1-0cb3ba56719e"], Cell[23003, 692, 1177, 34, 50, "Input",ExpressionUUID->"e2a90d7c-9765-4224-b6c1-0cb3ba56719e"],
Cell[24183, 728, 193, 3, 35, "Text",ExpressionUUID->"4256ed0c-1e05-4553-a95a-370962e94038"], Cell[24183, 728, 193, 3, 35, "Text",ExpressionUUID->"4256ed0c-1e05-4553-a95a-370962e94038"],
Cell[24379, 733, 707, 21, 58, "Input",ExpressionUUID->"d7507220-76aa-479e-af51-0886ad0e4f5c"] Cell[24379, 733, 707, 21, 58, "Input",ExpressionUUID->"d7507220-76aa-479e-af51-0886ad0e4f5c"]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[25123, 759, 301, 4, 54, "Subsection",ExpressionUUID->"77af7129-5b6f-46d1-972e-088c04a397e1"], Cell[25123, 759, 301, 4, 38, "Subsection",ExpressionUUID->"77af7129-5b6f-46d1-972e-088c04a397e1"],
Cell[25427, 765, 310, 7, 35, "Text",ExpressionUUID->"137a2815-3e41-4c54-bb77-2baab3309f67"], Cell[25427, 765, 310, 7, 35, "Text",ExpressionUUID->"137a2815-3e41-4c54-bb77-2baab3309f67"],
Cell[25740, 774, 570, 16, 49, "Input",ExpressionUUID->"ee1a49a3-d78d-48fd-b18b-b45c556268d6"], Cell[25740, 774, 570, 16, 49, "Input",ExpressionUUID->"ee1a49a3-d78d-48fd-b18b-b45c556268d6"],
Cell[26313, 792, 318, 6, 35, "Text",ExpressionUUID->"7f6139ea-87a7-485f-96a7-072785ed5a50"], Cell[26313, 792, 318, 6, 35, "Text",ExpressionUUID->"7f6139ea-87a7-485f-96a7-072785ed5a50"],
@ -2439,18 +2713,18 @@ Cell[30425, 915, 153, 3, 35, "Text",ExpressionUUID->"8bfb35af-a4e4-4813-ae15-370
Cell[30581, 920, 1240, 35, 50, "Input",ExpressionUUID->"60e340d1-6bd1-4928-9814-51c59353edd1"], Cell[30581, 920, 1240, 35, 50, "Input",ExpressionUUID->"60e340d1-6bd1-4928-9814-51c59353edd1"],
Cell[31824, 957, 250, 4, 35, "Text",ExpressionUUID->"f5f45693-a80c-4a46-ad73-07811620c0d9"], Cell[31824, 957, 250, 4, 35, "Text",ExpressionUUID->"f5f45693-a80c-4a46-ad73-07811620c0d9"],
Cell[32077, 963, 787, 23, 58, "Input",ExpressionUUID->"f99857fd-0430-402d-a733-929b6b359e23"] Cell[32077, 963, 787, 23, 58, "Input",ExpressionUUID->"f99857fd-0430-402d-a733-929b6b359e23"]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[32901, 991, 348, 5, 54, "Subsection",ExpressionUUID->"ef62b877-dbc0-41f4-bb50-f7bab5069a50"], Cell[32901, 991, 348, 5, 38, "Subsection",ExpressionUUID->"ef62b877-dbc0-41f4-bb50-f7bab5069a50"],
Cell[33252, 998, 252, 6, 35, "Text",ExpressionUUID->"5b10be0f-a732-422f-9446-681c78cbd103"], Cell[33252, 998, 252, 6, 35, "Text",ExpressionUUID->"5b10be0f-a732-422f-9446-681c78cbd103"],
Cell[33507, 1006, 561, 17, 32, "Input",ExpressionUUID->"009be4dc-79a6-499d-b9af-ddbb9078f85a"], Cell[33507, 1006, 561, 17, 32, "Input",ExpressionUUID->"009be4dc-79a6-499d-b9af-ddbb9078f85a"],
Cell[34071, 1025, 918, 28, 53, "Input",ExpressionUUID->"afd8bd15-999f-411c-a673-53d5b75e5201"], Cell[34071, 1025, 918, 28, 53, "Input",ExpressionUUID->"afd8bd15-999f-411c-a673-53d5b75e5201"],
Cell[34992, 1055, 297, 4, 35, "Text",ExpressionUUID->"1fe4835f-3b82-458a-9e2a-9272922b081a"], Cell[34992, 1055, 297, 4, 35, "Text",ExpressionUUID->"1fe4835f-3b82-458a-9e2a-9272922b081a"],
Cell[35292, 1061, 1329, 40, 58, "Input",ExpressionUUID->"b5e6e435-424a-4f3e-8416-709ae4356a73"], Cell[35292, 1061, 1329, 40, 58, "Input",ExpressionUUID->"b5e6e435-424a-4f3e-8416-709ae4356a73"],
Cell[36624, 1103, 546, 14, 58, "Text",ExpressionUUID->"d05917ae-a767-4a78-834a-c4b18c1c0b13"] Cell[36624, 1103, 546, 14, 58, "Text",ExpressionUUID->"d05917ae-a767-4a78-834a-c4b18c1c0b13"]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[37207, 1122, 419, 8, 54, "Subsection",ExpressionUUID->"bcd158fd-9aa7-4c7b-837e-afd37c54f55a"], Cell[37207, 1122, 419, 8, 38, "Subsection",ExpressionUUID->"bcd158fd-9aa7-4c7b-837e-afd37c54f55a"],
Cell[37629, 1132, 571, 11, 81, "Text",ExpressionUUID->"a0112f10-d580-4370-a6ed-bff98b24a4a6"], Cell[37629, 1132, 571, 11, 81, "Text",ExpressionUUID->"a0112f10-d580-4370-a6ed-bff98b24a4a6"],
Cell[38203, 1145, 2757, 86, 101, "Input",ExpressionUUID->"aabf1284-1a62-408f-8d1c-50c99b5acc35"], Cell[38203, 1145, 2757, 86, 101, "Input",ExpressionUUID->"aabf1284-1a62-408f-8d1c-50c99b5acc35"],
Cell[40963, 1233, 278, 6, 35, "Text",ExpressionUUID->"88a4bd50-0ba7-4f7c-9fc0-e0feb01831fc"], Cell[40963, 1233, 278, 6, 35, "Text",ExpressionUUID->"88a4bd50-0ba7-4f7c-9fc0-e0feb01831fc"],
@ -2458,10 +2732,10 @@ Cell[41244, 1241, 606, 19, 48, "Input",ExpressionUUID->"a889f096-9a50-426c-9cf3-
Cell[41853, 1262, 355, 7, 35, "Text",ExpressionUUID->"d3c69495-05ef-49fe-8484-fa7fd62cc408"], Cell[41853, 1262, 355, 7, 35, "Text",ExpressionUUID->"d3c69495-05ef-49fe-8484-fa7fd62cc408"],
Cell[42211, 1271, 1887, 55, 58, "Input",ExpressionUUID->"0138b572-760b-4f82-a618-73197e776fa2"], Cell[42211, 1271, 1887, 55, 58, "Input",ExpressionUUID->"0138b572-760b-4f82-a618-73197e776fa2"],
Cell[44101, 1328, 452, 7, 35, "Text",ExpressionUUID->"b83db319-04e5-42b8-ae4c-57f93abe09fd"] Cell[44101, 1328, 452, 7, 35, "Text",ExpressionUUID->"b83db319-04e5-42b8-ae4c-57f93abe09fd"]
}, Open ]] }, Closed]]
}, Open ]], }, Closed]],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[44602, 1341, 240, 4, 67, "Section",ExpressionUUID->"258ca12d-c8c5-4bc9-84ec-1711f7860786"], Cell[44602, 1341, 240, 4, 53, "Section",ExpressionUUID->"258ca12d-c8c5-4bc9-84ec-1711f7860786"],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[44867, 1349, 347, 5, 54, "Subsection",ExpressionUUID->"ee1991f0-6627-4afa-871c-73710071f6fd"], Cell[44867, 1349, 347, 5, 54, "Subsection",ExpressionUUID->"ee1991f0-6627-4afa-871c-73710071f6fd"],
Cell[45217, 1356, 324, 7, 58, "Text",ExpressionUUID->"a6c10556-4f53-4da2-8cf0-79bbf3ec1242"], Cell[45217, 1356, 324, 7, 58, "Text",ExpressionUUID->"a6c10556-4f53-4da2-8cf0-79bbf3ec1242"],
@ -2489,7 +2763,7 @@ Cell[53896, 1603, 4284, 106, 217, "Input",ExpressionUUID->"8d489c13-936e-4272-b8
Cell[58183, 1711, 2420, 71, 88, "Input",ExpressionUUID->"af4fe8f8-c3eb-4495-a149-b4bd1830693b"], Cell[58183, 1711, 2420, 71, 88, "Input",ExpressionUUID->"af4fe8f8-c3eb-4495-a149-b4bd1830693b"],
Cell[60606, 1784, 2312, 69, 88, "Input",ExpressionUUID->"eb8a2378-386f-4e82-b835-17c5b76bd346"], Cell[60606, 1784, 2312, 69, 88, "Input",ExpressionUUID->"eb8a2378-386f-4e82-b835-17c5b76bd346"],
Cell[CellGroupData[{ Cell[CellGroupData[{
Cell[62943, 1857, 2231, 57, 115, "Input",ExpressionUUID->"2f2c8334-f314-4d97-9abf-fd397dbace2b"], Cell[62943, 1857, 2231, 57, 116, "Input",ExpressionUUID->"2f2c8334-f314-4d97-9abf-fd397dbace2b"],
Cell[65177, 1916, 1027, 17, 34, "Output",ExpressionUUID->"f04e12cb-ae53-4b96-8239-58bd2665964b"], Cell[65177, 1916, 1027, 17, 34, "Output",ExpressionUUID->"f04e12cb-ae53-4b96-8239-58bd2665964b"],
Cell[66207, 1935, 1045, 18, 34, "Output",ExpressionUUID->"34d77878-3289-4d0f-a73e-9cb3a0e22085"] Cell[66207, 1935, 1045, 18, 34, "Output",ExpressionUUID->"34d77878-3289-4d0f-a73e-9cb3a0e22085"]
}, Open ]], }, Open ]],
@ -2499,6 +2773,34 @@ Cell[69165, 2013, 1938, 45, 49, "Input",ExpressionUUID->"6e23a9ca-c6d3-4d4a-b7ff
Cell[71106, 2060, 15393, 272, 232, "Output",ExpressionUUID->"8d39ac9f-b54f-4448-9ce4-9e9afb22ba92"] Cell[71106, 2060, 15393, 272, 232, "Output",ExpressionUUID->"8d39ac9f-b54f-4448-9ce4-9e9afb22ba92"]
}, Open ]] }, Open ]]
}, Open ]] }, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[86560, 2339, 159, 3, 53, "Section",ExpressionUUID->"36f69d13-fe6b-4a04-acec-16703fdd0e12"],
Cell[86722, 2344, 403, 11, 35, "Text",ExpressionUUID->"17ce12bb-a006-40f9-ab62-8a0036a5342f"],
Cell[CellGroupData[{
Cell[87150, 2359, 461, 13, 47, "Input",ExpressionUUID->"44e4ae27-771e-4e10-b2a8-3f5c0700fb97"],
Cell[87614, 2374, 236, 5, 34, "Output",ExpressionUUID->"47184591-6c91-4963-aebc-73b69a443808"]
}, Open ]],
Cell[CellGroupData[{
Cell[87887, 2384, 586, 20, 67, "Input",ExpressionUUID->"31e71679-e385-4ae9-bf70-b310ce826eaf"],
Cell[88476, 2406, 221, 4, 34, "Output",ExpressionUUID->"dda12046-695a-4ac3-bf5e-c8600e6dcaef"]
}, Open ]],
Cell[88712, 2413, 498, 13, 35, "Text",ExpressionUUID->"0ad72096-b75c-4b05-aea4-1c9a3ba2d63e"],
Cell[89213, 2428, 487, 13, 35, "Text",ExpressionUUID->"f3cf0761-27e0-47e5-819a-4f76e0d90b9b"],
Cell[CellGroupData[{
Cell[89725, 2445, 560, 19, 69, "Input",ExpressionUUID->"77eca9b4-30de-4a4a-8d4c-a627ab7872b0"],
Cell[90288, 2466, 199, 3, 34, "Output",ExpressionUUID->"ef1cfa21-7595-4fd6-a4fa-a0c034a8b13d"]
}, Open ]],
Cell[90502, 2472, 741, 21, 35, "Text",ExpressionUUID->"c212926d-9477-4fee-9f18-1c758debf2c7"],
Cell[CellGroupData[{
Cell[91268, 2497, 660, 21, 69, "Input",ExpressionUUID->"40b08d32-7779-4afd-83c6-170f189f9a96"],
Cell[91931, 2520, 256, 7, 34, "Output",ExpressionUUID->"896c805b-7892-4f9b-ac07-361220bdc186"]
}, Open ]],
Cell[92202, 2530, 765, 20, 35, "Text",ExpressionUUID->"350a122c-6d8b-461e-bad5-e2fdbc14b8f2"],
Cell[CellGroupData[{
Cell[92992, 2554, 1083, 38, 69, "Input",ExpressionUUID->"ffbc7770-1424-4564-b99b-b9ad1c0639d4"],
Cell[94078, 2594, 448, 13, 55, "Output",ExpressionUUID->"27597e7b-3c41-49b8-9900-9077d931d997"]
}, Open ]]
}, Open ]] }, Open ]]
}, Open ]] }, Open ]]
} }