diff --git a/FarDFT.nb b/FarDFT.nb index eb4ad0d..47d84fe 100644 --- a/FarDFT.nb +++ b/FarDFT.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 96727, 2499] -NotebookOptionsPosition[ 86551, 2338] -NotebookOutlinePosition[ 86887, 2353] -CellTagsIndexPosition[ 86844, 2350] +NotebookDataLength[ 106474, 2801] +NotebookOptionsPosition[ 94566, 2612] +NotebookOutlinePosition[ 94902, 2627] +CellTagsIndexPosition[ 94859, 2624] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -38,7 +38,7 @@ mathpazo,xcolor,bm,mhchem}\>\"", "}"}]}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.7288240181604652`*^9, 3.728824027007351*^9}, { 3.733131339213026*^9, 3.733131352923026*^9}}, CellLabel-> - "In[207]:=",ExpressionUUID->"8b7c0bbd-9f99-42dc-b8a5-a4dc3cb8cc89"], + "In[121]:=",ExpressionUUID->"8b7c0bbd-9f99-42dc-b8a5-a4dc3cb8cc89"], Cell[BoxData[ RowBox[{ @@ -47,7 +47,7 @@ Cell[BoxData[ CellChangeTimes->{{3.7208031947801647`*^9, 3.7208032000677156`*^9}, { 3.7208034541742477`*^9, 3.720803455246439*^9}}, CellLabel-> - "In[209]:=",ExpressionUUID->"b24e8243-3c38-4b03-af3a-708cb1afa004"] + "In[123]:=",ExpressionUUID->"b24e8243-3c38-4b03-af3a-708cb1afa004"] }, Closed]], Cell[CellGroupData[{ @@ -158,7 +158,7 @@ Cell[BoxData["True"], "Output", CellLabel->"Out[49]=",ExpressionUUID->"fb35d58c-512f-4f74-aa01-67c7b7b81a77"] }, Open ]] }, Closed]] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ @@ -562,8 +562,8 @@ Cell[BoxData[ 3.7826250338691883`*^9}},ExpressionUUID->"1f5927dc-663a-4f11-a2d1-\ 7bc195f79332"] }, Closed]] -}, Open ]] -}, Open ]], +}, Closed]] +}, Closed]], Cell[CellGroupData[{ @@ -753,7 +753,7 @@ Cell[BoxData[ RowBox[{"1", "/", "3"}]]}]}]]], "Input", CellChangeTimes->{{3.782626098078829*^9, 3.782626129767681*^9}, 3.7826261943234*^9},ExpressionUUID->"d7507220-76aa-479e-af51-0886ad0e4f5c"] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ @@ -985,7 +985,7 @@ Cell[BoxData[ 3.7826261943234*^9, {3.782626456225254*^9, 3.782626460826289*^9}, 3.7826266660833883`*^9},ExpressionUUID->"f99857fd-0430-402d-a733-\ 929b6b359e23"] -}, Open ]], +}, Closed]], Cell[CellGroupData[{ @@ -1116,7 +1116,7 @@ transfered to the ", CellChangeTimes->{{3.7826266896125298`*^9, 3.782626751796768*^9}},ExpressionUUID->"d05917ae-a767-4a78-834a-\ c4b18c1c0b13"] -}, Open ]], +}, Closed]], 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.78262782048987*^9}},ExpressionUUID->"b83db319-04e5-42b8-ae4c-\ 57f93abe09fd"] -}, Open ]] -}, Open ]], +}, Closed]] +}, Closed]], Cell[CellGroupData[{ @@ -2333,6 +2333,280 @@ YEblfrJpHYn3K87Nr65S4NLUMzRQQ+L/AGJFteA= "Out[829]=",ExpressionUUID->"8d39ac9f-b54f-4448-9ce4-9e9afb22ba92"] }, 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 ]] }, @@ -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"] }, Open ]] }, Closed]] -}, Open ]], +}, Closed]], 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[5370, 172, 174, 3, 54, "Subsection",ExpressionUUID->"10e37c4d-fcc0-4a25-949c-6383c67ff9eb"], Cell[CellGroupData[{ @@ -2400,10 +2674,10 @@ Cell[15939, 491, 497, 7, 34, "Output",ExpressionUUID->"ed71661b-3a8d-4eee-a4d0-6 }, Open ]], Cell[16451, 501, 2240, 61, 123, "Input",ExpressionUUID->"1f5927dc-663a-4f11-a2d1-7bc195f79332"] }, Closed]] -}, Open ]] -}, Open ]], +}, Closed]] +}, Closed]], 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[18927, 576, 259, 4, 67, "Section",ExpressionUUID->"81f07a4a-071b-4e38-8018-d116e770b20b"], 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[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"] -}, Open ]], +}, Closed]], 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[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"], @@ -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[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"] -}, Open ]], +}, Closed]], 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[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[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[36624, 1103, 546, 14, 58, "Text",ExpressionUUID->"d05917ae-a767-4a78-834a-c4b18c1c0b13"] -}, Open ]], +}, Closed]], 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[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"], @@ -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[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"] -}, Open ]] -}, Open ]], +}, Closed]] +}, Closed]], 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[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"], @@ -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[60606, 1784, 2312, 69, 88, "Input",ExpressionUUID->"eb8a2378-386f-4e82-b835-17c5b76bd346"], 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[66207, 1935, 1045, 18, 34, "Output",ExpressionUUID->"34d77878-3289-4d0f-a73e-9cb3a0e22085"] }, 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"] }, 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 ]] }