summaryrefslogtreecommitdiff
path: root/caselle_compare.nb
diff options
context:
space:
mode:
Diffstat (limited to 'caselle_compare.nb')
-rw-r--r--caselle_compare.nb377
1 files changed, 259 insertions, 118 deletions
diff --git a/caselle_compare.nb b/caselle_compare.nb
index 95f0b08..7932af0 100644
--- a/caselle_compare.nb
+++ b/caselle_compare.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 195819, 4365]
-NotebookOptionsPosition[ 185470, 4185]
-NotebookOutlinePosition[ 185872, 4201]
-CellTagsIndexPosition[ 185829, 4198]
+NotebookDataLength[ 201218, 4506]
+NotebookOptionsPosition[ 190375, 4317]
+NotebookOutlinePosition[ 190816, 4334]
+CellTagsIndexPosition[ 190773, 4331]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -28,7 +28,7 @@ Cell[BoxData[
3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, {
3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9,
3.827916450999913*^9}},
- CellLabel->"In[64]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+ CellLabel->"In[1]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
Cell[CellGroupData[{
@@ -96,21 +96,23 @@ Cell[BoxData[{
3.8438061646410103`*^9}, {3.8438062079468822`*^9, 3.843806212028804*^9}, {
3.843806310535351*^9, 3.843806319271604*^9}, {3.843811727076584*^9,
3.843811750155121*^9}},
- CellLabel->"In[50]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
+ CellLabel->"In[2]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
Cell[BoxData["0.27286889266851116`"], "Output",
CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9},
3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9},
3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9},
- 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9},
- CellLabel->"Out[52]=",ExpressionUUID->"a9698393-06dc-4415-b19c-549d331d4c2b"],
+ 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9, {
+ 3.844135505327883*^9, 3.84413553304257*^9}},
+ CellLabel->"Out[4]=",ExpressionUUID->"099fda0a-8f77-46f8-bc92-ee246f8e4d7a"],
Cell[BoxData["1.007010684856479`"], "Output",
CellChangeTimes->{{3.8438061496682377`*^9, 3.843806165132856*^9},
3.8438062124458447`*^9, {3.8438063135040703`*^9, 3.843806319765049*^9},
3.8438114231817093`*^9, {3.843811741230702*^9, 3.8438117504040937`*^9},
- 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083926086`*^9},
- CellLabel->"Out[53]=",ExpressionUUID->"c47f0714-077f-4207-8188-a52a73ea66f9"]
+ 3.8438127470406*^9, 3.8438833063506927`*^9, 3.8439767083823442`*^9, {
+ 3.844135505327883*^9, 3.8441355330538063`*^9}},
+ CellLabel->"Out[5]=",ExpressionUUID->"7a806346-1c79-490a-b950-a7a27cd5405a"]
}, Open ]],
Cell[CellGroupData[{
@@ -437,6 +439,122 @@ Cell[BoxData[
RowBox[{
SuperscriptBox["\[Eta]",
RowBox[{"-", "2"}]],
+ RowBox[{"\[ScriptCapitalF]0", "[", "\[Eta]", "]"}]}], "-",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"8", "\[Pi]"}]],
+ RowBox[{"Log", "[",
+ SuperscriptBox["\[Eta]", "2"], "]"}]}]}]}]}], "/.",
+ RowBox[{"\[Eta]", "\[Rule]",
+ RowBox[{
+ RowBox[{"t", "[", "\[Theta]", "]"}],
+ SuperscriptBox[
+ RowBox[{"(",
+ RowBox[{"h0", " ",
+ RowBox[{"hCas", "[", "\[Theta]", "]"}]}], ")"}],
+ RowBox[{
+ RowBox[{"-", "1"}], "/",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]]}]}]}], "&"}], "@", "1"}]}],
+ ";"}]], "Input",
+ CellChangeTimes->{{3.8441355650573378`*^9, 3.844135612822277*^9}, {
+ 3.8441356432559423`*^9, 3.844135644806315*^9}, {3.844135769024576*^9,
+ 3.8441358135052*^9}, 3.8441359564176683`*^9, {3.844136010585967*^9,
+ 3.844136037030072*^9}, {3.844136092718753*^9, 3.844136097681836*^9},
+ 3.8441362459012527`*^9},
+ CellLabel->"In[23]:=",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Series", "[",
+ RowBox[{"test", ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",",
+ RowBox[{"Assumptions", "\[Rule]",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.8441360394005013`*^9, 3.844136069704311*^9}},
+ CellLabel->"In[24]:=",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{
+ FractionBox[
+ RowBox[{"0.1784522279293546`", "\[VeryThinSpace]", "+",
+ RowBox[{"0.14899162286841253`", " ",
+ RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}]}],
+ RowBox[{"\[Theta]", "-", "1"}]], "-",
+ RowBox[{"1.0179704579082998`", " ",
+ RowBox[{"(",
+ RowBox[{"0.8836710382865575`", "\[VeryThinSpace]", "+",
+ RowBox[{"1.`", " ",
+ RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}], "-",
+ RowBox[{"1.964693557128907`", " ",
+ RowBox[{
+ SuperscriptBox["\[ScriptCapitalF]0", "\[Prime]",
+ MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], "+",
+ InterpretationBox[
+ SuperscriptBox[
+ RowBox[{"O", "[",
+ RowBox[{"\[Theta]", "-", "1"}], "]"}], "1"],
+ SeriesData[Schofield`\[Theta], 1, {}, -1, 1, 1],
+ Editable->False]}],
+ SeriesData[
+ Schofield`\[Theta], 1, {
+ 0.1784522279293546 +
+ 0.14899162286841253` $CellContext`\[ScriptCapitalF]0[
+ 0], (-1.0179704579082998`) (0.8836710382865575 +
+ 1. $CellContext`\[ScriptCapitalF]0[0] - 1.964693557128907
+ Derivative[1][$CellContext`\[ScriptCapitalF]0][0])}, -1, 1, 1],
+ Editable->False]], "Output",
+ CellChangeTimes->{3.8441360705377207`*^9, 3.844136100604207*^9,
+ 3.844136247845188*^9},
+ CellLabel->"Out[24]=",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"test", "=", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"#", "!"}]],
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["\[Eta]", "2"],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalF]pm", "[",
+ SuperscriptBox["\[Eta]",
+ RowBox[{"-",
+ RowBox[{"\[CapitalDelta]", "[", "]"}]}]], "]"}], "+",
+ RowBox[{
+ FractionBox[
+ RowBox[{" ", "1"}],
+ RowBox[{"8", "\[Pi]"}]],
+ RowBox[{"Log", "[",
+ SuperscriptBox["\[Eta]", "2"], "]"}]}]}], ")"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"\[Eta]", ",", "#"}], "}"}]}], "]"}]}], "/.",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Derivative", "[", "n_", "]"}], "[", "\[ScriptCapitalF]pm",
+ "]"}], "[", "_", "]"}], "\[RuleDelayed]",
+ RowBox[{"-",
+ RowBox[{"datCasM", "[",
+ RowBox[{"[", "n", "]"}], "]"}]}]}]}], "/.",
+ RowBox[{
+ RowBox[{"\[ScriptCapitalF]pm", "[", "_", "]"}], "\[RuleDelayed]",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["\[Eta]",
+ RowBox[{"-", "2"}]],
RowBox[{"\[CapitalPhi]s", "[",
RowBox[{"[", "1", "]"}], "]"}]}], "-",
RowBox[{
@@ -496,27 +614,42 @@ Cell[BoxData[
CellLabel->
"In[541]:=",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"],
+Cell[CellGroupData[{
+
Cell[BoxData[
- RowBox[{
- RowBox[{"test3", "=",
+ RowBox[{"test3", "=",
+ RowBox[{
RowBox[{
- RowBox[{
- RowBox[{"SeriesCoefficient", "[",
- RowBox[{"#", ",",
+ RowBox[{"SeriesCoefficient", "[",
+ RowBox[{"#", ",",
+ RowBox[{"{",
+ RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",",
+ RowBox[{"Assumptions", "\[Rule]",
RowBox[{"{",
- RowBox[{"\[Theta]", ",", "1", ",", "0"}], "}"}], ",",
- RowBox[{"Assumptions", "\[Rule]",
- RowBox[{"{",
- RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}], "&"}], "/@",
- "test"}]}], ";"}]], "Input",
+ RowBox[{"\[Theta]", ">", "1"}], "}"}]}]}], "]"}], "&"}], "@",
+ "test"}]}]], "Input",
CellChangeTimes->{{3.843985185323773*^9, 3.843985191540288*^9}, {
3.8439853417991962`*^9, 3.843985399410922*^9}, {3.8439854859104147`*^9,
3.843985486109192*^9}, 3.843986044837152*^9, {3.843986259456277*^9,
3.843986260018146*^9}, 3.843987888756095*^9, {3.843988234259981*^9,
3.843988236906592*^9}, {3.843988327216732*^9, 3.843988362393538*^9},
- 3.843988489524564*^9},
- CellLabel->
- "In[542]:=",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"],
+ 3.843988489524564*^9, {3.844136044025272*^9, 3.844136047289119*^9}},
+ CellLabel->"In[18]:=",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"-", "1.0179704579082998`"}], " ",
+ RowBox[{"(",
+ RowBox[{"0.8836710382865575`", "\[VeryThinSpace]", "+",
+ RowBox[{"1.`", " ",
+ RowBox[{"\[ScriptCapitalF]0", "[", "0", "]"}]}], "-",
+ RowBox[{"1.964693557128907`", " ",
+ RowBox[{
+ SuperscriptBox["\[ScriptCapitalF]0", "\[Prime]",
+ MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]], "Output",
+ CellChangeTimes->{3.844136047741577*^9},
+ CellLabel->"Out[18]=",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"]
+}, Open ]],
Cell[CellGroupData[{
@@ -1190,8 +1323,7 @@ Cell[BoxData[{
3.8439852967469473`*^9, 3.8439853090769577`*^9}, {3.843985419965234*^9,
3.843985436839972*^9}, {3.8439859516652393`*^9, 3.8439859894619703`*^9}, {
3.8439882228149643`*^9, 3.843988228008665*^9}},
- CellLabel->
- "In[507]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
+ CellLabel->"In[11]:=",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
Cell[CellGroupData[{
@@ -4183,8 +4315,9 @@ Cell[BoxData[
CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
}, Open ]]
},
-WindowSize->{475.5, 790.5},
-WindowMargins->{{482.25, Automatic}, {2.25, Automatic}},
+WindowSize->{1435.5, 790.5},
+WindowMargins->{{2.25, Automatic}, {2.25, Automatic}},
+TaggingRules->{"TryRealOnly" -> False},
FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00"
@@ -4200,172 +4333,180 @@ CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
-Cell[558, 20, 597, 10, 71, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+Cell[558, 20, 596, 10, 29, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+Cell[CellGroupData[{
+Cell[1179, 34, 2286, 64, 139, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
+Cell[3468, 100, 466, 6, 33, "Output",ExpressionUUID->"099fda0a-8f77-46f8-bc92-ee246f8e4d7a"],
+Cell[3937, 108, 467, 6, 33, "Output",ExpressionUUID->"7a806346-1c79-490a-b950-a7a27cd5405a"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[4441, 119, 3846, 85, 137, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
+Cell[8290, 206, 1339, 21, 33, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"]
+}, Open ]],
Cell[CellGroupData[{
-Cell[1180, 34, 2287, 64, 225, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
-Cell[3470, 100, 418, 5, 33, "Output",ExpressionUUID->"a9698393-06dc-4415-b19c-549d331d4c2b"],
-Cell[3891, 107, 416, 5, 33, "Output",ExpressionUUID->"c47f0714-077f-4207-8188-a52a73ea66f9"]
+Cell[9666, 232, 3847, 85, 137, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],
+Cell[13516, 319, 640, 12, 36, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[4344, 117, 3846, 85, 247, "Input",ExpressionUUID->"9e250256-8cd3-402a-bc21-3ee002bb1f82"],
-Cell[8193, 204, 1339, 21, 96, "Output",ExpressionUUID->"662f4cfd-8b83-42b3-bae9-63f60b0e3593"]
+Cell[14193, 336, 302, 8, 32, "Input",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"],
+Cell[14498, 346, 206, 4, 33, "Output",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"]
}, Open ]],
Cell[CellGroupData[{
-Cell[9569, 230, 3847, 85, 247, "Input",ExpressionUUID->"34fe8bc4-abfb-4504-a7f1-045cd2a55ee6"],
-Cell[13419, 317, 640, 12, 79, "Output",ExpressionUUID->"343f2684-7442-43b7-9d49-7e58cf8f6f6d"]
+Cell[14741, 355, 551, 15, 32, "Input",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"],
+Cell[15295, 372, 820, 23, 64, "Output",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"]
}, Open ]],
+Cell[16130, 398, 2411, 65, 45, "Input",ExpressionUUID->"aac833ad-2b24-4138-bd6f-72fced45c28b"],
Cell[CellGroupData[{
-Cell[14096, 334, 302, 8, 32, "Input",ExpressionUUID->"2e8e8755-9de4-46f0-8d34-70439b2b441b"],
-Cell[14401, 344, 206, 4, 33, "Output",ExpressionUUID->"f78d77d4-a743-42fe-aad7-f383120ebe66"]
+Cell[18566, 467, 406, 9, 29, "Input",ExpressionUUID->"192d6104-6702-44ac-becd-0eb638099ac5"],
+Cell[18975, 478, 1368, 33, 49, "Output",ExpressionUUID->"d7b8e166-951c-43b4-b661-6bb65d35f1c8"]
}, Open ]],
+Cell[20358, 514, 4890, 100, 45, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"],
Cell[CellGroupData[{
-Cell[14644, 353, 551, 15, 32, "Input",ExpressionUUID->"e826229b-9150-4894-b288-5f834e4105f5"],
-Cell[15198, 370, 820, 23, 64, "Output",ExpressionUUID->"ba4067d3-83a2-4fb1-b40d-dda17275ca39"]
+Cell[25273, 618, 874, 18, 29, "Input",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"],
+Cell[26150, 638, 534, 12, 33, "Output",ExpressionUUID->"4344f182-cac0-40ef-9167-1216ed9218e0"]
}, Open ]],
-Cell[16033, 396, 4890, 100, 147, "Input",ExpressionUUID->"1800b59b-60e8-4839-8aff-d82ae8bbba1a"],
-Cell[20926, 498, 861, 20, 71, "Input",ExpressionUUID->"04521673-5a45-41f8-ba39-1383a2daafcd"],
Cell[CellGroupData[{
-Cell[21812, 522, 304, 7, 29, "Input",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"],
-Cell[22119, 531, 12065, 270, 216, "Output",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"]
+Cell[26721, 655, 304, 7, 29, "Input",ExpressionUUID->"340432fd-b01b-4746-840a-e312eec4ade0"],
+Cell[27028, 664, 12065, 270, 236, "Output",ExpressionUUID->"0fe99cd0-b508-4c82-8cb5-d58d82b4dd4e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[34221, 806, 281, 6, 29, "Input",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"],
-Cell[34505, 814, 238, 5, 33, "Output",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"]
+Cell[39130, 939, 281, 6, 29, "Input",ExpressionUUID->"33938e6c-adaa-464a-9564-ced71dd22d4e"],
+Cell[39414, 947, 238, 5, 33, "Output",ExpressionUUID->"321f4d39-6591-48a7-9389-9935b198b499"]
}, Open ]],
Cell[CellGroupData[{
-Cell[34780, 824, 1589, 42, 185, "Input",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"],
-Cell[36372, 868, 3039, 47, 159, "Message",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"],
-Cell[39414, 917, 2133, 34, 88, "Message",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"],
-Cell[41550, 953, 1416, 24, 70, "Message",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"],
-Cell[42969, 979, 628, 12, 35, "Message",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"],
-Cell[43600, 993, 4228, 87, 222, "Output",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"]
+Cell[39689, 957, 1589, 42, 97, "Input",ExpressionUUID->"5ed4b47f-e272-40ab-8c23-58385be3e0c6"],
+Cell[41281, 1001, 3039, 47, 75, "Message",ExpressionUUID->"06e3abf0-2019-4c5e-99b9-d2a9da7384db"],
+Cell[44323, 1050, 2133, 34, 38, "Message",ExpressionUUID->"465d3232-1f00-42ad-89f9-f7dbe9649552"],
+Cell[46459, 1086, 1416, 24, 24, "Message",ExpressionUUID->"51fecbe8-1bd4-4ff4-b67b-93b66d40b947"],
+Cell[47878, 1112, 628, 12, 21, "Message",ExpressionUUID->"4e40cd38-d9b9-4ca7-8ccd-de1b917cec88"],
+Cell[48509, 1126, 4228, 87, 243, "Output",ExpressionUUID->"02496185-9d40-4431-9ca9-6085c166d125"]
}, Open ]],
Cell[CellGroupData[{
-Cell[47865, 1085, 241, 5, 29, "Input",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"],
-Cell[48109, 1092, 267, 7, 35, "Output",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"]
+Cell[52774, 1218, 241, 5, 29, "Input",ExpressionUUID->"eb2501cb-e52c-43ae-bbbf-2c91bfb69b81"],
+Cell[53018, 1225, 267, 7, 35, "Output",ExpressionUUID->"ddfad34c-6774-4ef8-b8bc-c5de09b41700"]
}, Open ]],
-Cell[48391, 1102, 4523, 91, 222, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
+Cell[53300, 1235, 4519, 90, 133, "Input",ExpressionUUID->"b7de9e01-4fea-49ea-97a1-b154bc61886b"],
Cell[CellGroupData[{
-Cell[52939, 1197, 1242, 35, 132, "Input",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"],
-Cell[54184, 1234, 14451, 259, 223, "Output",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"]
+Cell[57844, 1329, 1242, 35, 48, "Input",ExpressionUUID->"850f45b2-810d-4cc6-a9fa-3b038d25d4c3"],
+Cell[59089, 1366, 14451, 259, 243, "Output",ExpressionUUID->"664ef5af-b4d1-4773-bb48-a1fb5f99d3ea"]
}, Open ]],
Cell[CellGroupData[{
-Cell[68672, 1498, 326, 7, 29, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"],
-Cell[69001, 1507, 188, 4, 48, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"]
+Cell[73577, 1630, 326, 7, 29, "Input",ExpressionUUID->"c2ec938b-df20-4457-ac8f-5fb89f93d9f3"],
+Cell[73906, 1639, 188, 4, 48, "Output",ExpressionUUID->"7a8c2bb5-90c4-4aeb-82ef-a923f5a729e3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[69226, 1516, 255, 5, 29, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"],
-Cell[69484, 1523, 194, 3, 48, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"]
+Cell[74131, 1648, 255, 5, 29, "Input",ExpressionUUID->"f775ff7d-d0b6-4518-90fc-dce2b496637c"],
+Cell[74389, 1655, 194, 3, 48, "Output",ExpressionUUID->"60b8b008-7807-40a6-b3d9-1f2e8b589a73"]
}, Open ]],
Cell[CellGroupData[{
-Cell[69715, 1531, 306, 7, 29, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"],
-Cell[70024, 1540, 221, 3, 33, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"]
+Cell[74620, 1663, 306, 7, 29, "Input",ExpressionUUID->"33e05555-1738-48c2-b7aa-e8fd44cecd72"],
+Cell[74929, 1672, 221, 3, 33, "Output",ExpressionUUID->"a53b9d58-d244-4548-8b2d-0153f5f04983"]
}, Open ]],
Cell[CellGroupData[{
-Cell[70282, 1548, 4200, 108, 338, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"],
-Cell[74485, 1658, 19071, 333, 219, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"]
+Cell[75187, 1680, 4200, 108, 338, "Input",ExpressionUUID->"79242c4a-ef9e-453f-aabd-057c68f68aca"],
+Cell[79390, 1790, 19071, 333, 219, "Output",ExpressionUUID->"9e7d57d6-efa3-474c-ad30-e142da216a92"]
}, Open ]],
Cell[CellGroupData[{
-Cell[93593, 1996, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"],
-Cell[93799, 2002, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"]
+Cell[98498, 2128, 203, 4, 22, "Input",ExpressionUUID->"e2ebf167-6996-49ef-9ca3-9dd16132c4ea"],
+Cell[98704, 2134, 569, 14, 25, "Output",ExpressionUUID->"c33b6abd-b8d8-415e-b881-93fd6c52f0db"]
}, Open ]],
Cell[CellGroupData[{
-Cell[94405, 2021, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"],
-Cell[94909, 2036, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"]
+Cell[99310, 2153, 501, 13, 24, "Input",ExpressionUUID->"e153916d-9f1b-43b9-a6c4-f59eefa45d16"],
+Cell[99814, 2168, 222, 4, 25, "Output",ExpressionUUID->"ca5cf147-c698-4d49-a753-1cf32997e5f5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[95168, 2045, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"],
-Cell[95414, 2052, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"]
+Cell[100073, 2177, 243, 5, 22, "Input",ExpressionUUID->"c29b0035-e029-4b18-8ef4-ecd12fb49333"],
+Cell[100319, 2184, 1247, 39, 70, "Output",ExpressionUUID->"a77b28a6-eacd-4614-b43a-ed39428597d6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[96698, 2096, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"],
-Cell[96913, 2102, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"]
+Cell[101603, 2228, 212, 4, 22, "Input",ExpressionUUID->"40438766-386e-4ef0-95c5-bb36288917ef"],
+Cell[101818, 2234, 735, 15, 44, "Output",ExpressionUUID->"462d7199-fbaa-4949-8313-776399b35c4a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[97685, 2122, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"],
-Cell[102076, 2252, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"]
+Cell[102590, 2254, 4388, 128, 175, "Input",ExpressionUUID->"f81ed9c7-d940-4314-963c-c36ea0215ef3"],
+Cell[106981, 2384, 1199, 20, 60, "Output",ExpressionUUID->"2234af5e-068b-46a3-beaf-99a907ef5184"]
}, Open ]],
Cell[CellGroupData[{
-Cell[103312, 2277, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"],
-Cell[104000, 2296, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"]
+Cell[108217, 2409, 685, 17, 24, "Input",ExpressionUUID->"922bbf13-0a40-4ffe-b65d-fb54bcae380b"],
+Cell[108905, 2428, 882, 14, 44, "Output",ExpressionUUID->"7d4aad94-bfa0-4ae6-9abe-17ccfe54ccf9"]
}, Open ]],
Cell[CellGroupData[{
-Cell[104919, 2315, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"],
-Cell[105602, 2334, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"]
+Cell[109824, 2447, 680, 17, 24, "Input",ExpressionUUID->"649e9e6d-3d2c-4639-9c47-2ea1ddcf4b02"],
+Cell[110507, 2466, 802, 13, 44, "Output",ExpressionUUID->"3d3ce9a7-1d88-4c65-8565-6972979e7b63"]
}, Open ]],
Cell[CellGroupData[{
-Cell[106441, 2352, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"],
-Cell[107196, 2371, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"]
+Cell[111346, 2484, 752, 17, 24, "Input",ExpressionUUID->"65da12ab-b919-4aad-899a-77b90d54ba33"],
+Cell[112101, 2503, 711, 13, 44, "Output",ExpressionUUID->"895bb215-c3fa-44dd-bbdf-c4de16295e4a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[107944, 2389, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"],
-Cell[108645, 2408, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"]
+Cell[112849, 2521, 698, 17, 24, "Input",ExpressionUUID->"2476ffb9-8112-4899-a159-f51883b8e216"],
+Cell[113550, 2540, 612, 12, 27, "Output",ExpressionUUID->"b3a3183b-d2af-4e21-b8e1-1dbac01da522"]
}, Open ]],
Cell[CellGroupData[{
-Cell[109294, 2425, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"],
-Cell[110112, 2445, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"]
+Cell[114199, 2557, 815, 18, 24, "Input",ExpressionUUID->"e595b072-4f65-493a-afbb-d0fd95bb7c1c"],
+Cell[115017, 2577, 967, 18, 60, "Output",ExpressionUUID->"10b2b981-6a70-47a2-b331-59f3035f0b63"]
}, Open ]],
Cell[CellGroupData[{
-Cell[111116, 2468, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"],
-Cell[111875, 2487, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"]
+Cell[116021, 2600, 756, 17, 24, "Input",ExpressionUUID->"428ba532-a5a7-47a0-834d-51e3a093d96a"],
+Cell[116780, 2619, 900, 19, 60, "Output",ExpressionUUID->"299c9c7f-a1e2-4f23-8954-2fad569e0d71"]
}, Open ]],
Cell[CellGroupData[{
-Cell[112812, 2511, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
-Cell[113654, 2533, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"]
+Cell[117717, 2643, 839, 20, 41, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
+Cell[118559, 2665, 461, 7, 25, "Output",ExpressionUUID->"1091901f-4a92-4d11-9361-eb8e074518d8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[114152, 2545, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
-Cell[115157, 2570, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"]
+Cell[119057, 2677, 1002, 23, 41, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
+Cell[120062, 2702, 371, 5, 25, "Output",ExpressionUUID->"849b4c20-f4a2-4ab0-be1c-d4b54f277dcb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[115565, 2580, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"],
-Cell[116616, 2606, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"]
+Cell[120470, 2712, 1048, 24, 41, "Input",ExpressionUUID->"3f815a4c-10cf-489f-9fc2-62e52069c4c0"],
+Cell[121521, 2738, 387, 5, 25, "Output",ExpressionUUID->"55fbc8bb-cdab-4659-a082-91bdbb81a26d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[117040, 2616, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"],
-Cell[117889, 2635, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"]
+Cell[121945, 2748, 846, 17, 41, "Input",ExpressionUUID->"cd97b893-1f61-415c-8763-743df3cfe10e"],
+Cell[122794, 2767, 418, 6, 25, "Output",ExpressionUUID->"ad44ff35-c8ad-47fb-82dc-2f08ed5015a0"]
}, Open ]],
-Cell[118322, 2644, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"],
-Cell[119171, 2663, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"],
+Cell[123227, 2776, 846, 17, 41, "Input",ExpressionUUID->"7cc8abed-034f-48f9-a04c-7a7cd336cffc"],
+Cell[124076, 2795, 232, 3, 22, InheritFromParent,ExpressionUUID->"65b75ed6-31a7-4b35-9f87-bb8013223e69"],
Cell[CellGroupData[{
-Cell[119428, 2670, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"],
-Cell[120274, 2689, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"]
+Cell[124333, 2802, 843, 17, 41, "Input",ExpressionUUID->"ed90fc79-b0f9-464f-acb1-e5aa0d9691f1"],
+Cell[125179, 2821, 233, 3, 25, "Output",ExpressionUUID->"ec63ab55-c78c-48bb-be15-d4ffdc90af1f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[120544, 2697, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"],
-Cell[121442, 2717, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"]
+Cell[125449, 2829, 895, 18, 41, "Input",ExpressionUUID->"6dd628a1-23df-42ea-b634-4bef16413391"],
+Cell[126347, 2849, 472, 7, 25, "Output",ExpressionUUID->"fba3789b-8807-4cd2-86d2-e085f54bc1e0"]
}, Open ]],
Cell[CellGroupData[{
-Cell[121951, 2729, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"],
-Cell[122182, 2736, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"]
+Cell[126856, 2861, 228, 5, 22, "Input",ExpressionUUID->"feb08355-9ad1-4257-9f97-e394177d7e32"],
+Cell[127087, 2868, 274, 8, 25, "Output",ExpressionUUID->"87e29f54-9d68-4261-96d4-95d24dcdc36a"]
}, Open ]],
Cell[CellGroupData[{
-Cell[122493, 2749, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
-Cell[124038, 2778, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"]
+Cell[127398, 2881, 1542, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
+Cell[128943, 2910, 12321, 270, 180, "Output",ExpressionUUID->"2e45389f-59c7-4eaf-9b3a-270214fa013e"]
}, Open ]],
-Cell[136374, 3051, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"],
-Cell[136552, 3056, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"],
+Cell[141279, 3183, 175, 3, 22, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"],
+Cell[141457, 3188, 356, 7, 24, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"],
Cell[CellGroupData[{
-Cell[136933, 3067, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
-Cell[137112, 3071, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
+Cell[141838, 3199, 176, 2, 22, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
+Cell[142017, 3203, 2097, 65, 77, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[139246, 3141, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"],
-Cell[140109, 3167, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
+Cell[144151, 3273, 860, 24, 24, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"],
+Cell[145014, 3299, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[142090, 3229, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
-Cell[144715, 3308, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
+Cell[146995, 3361, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
+Cell[149620, 3440, 21838, 439, 180, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
}, Open ]],
-Cell[166568, 3750, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
-Cell[167296, 3767, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
+Cell[171473, 3882, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
+Cell[172201, 3899, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
Cell[CellGroupData[{
-Cell[168085, 3792, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
-Cell[168767, 3811, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
+Cell[172990, 3924, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
+Cell[173672, 3943, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
}, Open ]],
Cell[CellGroupData[{
-Cell[170102, 3848, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
-Cell[170841, 3868, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
+Cell[175007, 3980, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
+Cell[175746, 4000, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
}, Open ]]
}
]