New Figure comparing RSB instability to actual data.

2 files changed, 639 insertions, 218 deletions

diff --git a/figs/rsb_comp.pdf b/figs/rsb_comp.pdf
new file mode 100644
index 0000000..1f7f75a
--- /dev/null
+++ b/figs/rsb_comp.pdf
diff --git a/figures.nb b/figures.nb
index ab29ded..f2c58d9 100644
--- a/figures.nb
+++ b/figures.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[  11682207,     198158]
-NotebookOptionsPosition[  11660995,     197860]
-NotebookOutlinePosition[  11661393,     197876]
-CellTagsIndexPosition[  11661350,     197873]
+NotebookDataLength[  11696404,     198579]
+NotebookOptionsPosition[  11674502,     198269]
+NotebookOutlinePosition[  11674897,     198285]
+CellTagsIndexPosition[  11674854,     198282]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -1129,39 +1129,79 @@ Cell[BoxData[
  RowBox[{
   RowBox[{"mMin", "[", 
    RowBox[{"f_", ",", "\[Alpha]_", ",", "V0_"}], "]"}], ":=", 
-  SqrtBox[
-   RowBox[{"1", "-", 
-    RowBox[{
-     FractionBox[
-      SuperscriptBox[
-       RowBox[{"f", "[", "1", "]"}], "2"], 
-      RowBox[{
-       RowBox[{"f", "'"}], "[", "1", "]"}]], 
-     FractionBox[
-      RowBox[{
+  RowBox[{"\[Sqrt]", 
+   RowBox[{"(", 
+    RowBox[{"1", "-", 
+     RowBox[{
+      FractionBox[
+       SuperscriptBox[
+        RowBox[{"f", "[", "1", "]"}], "2"], 
        RowBox[{
-        SuperscriptBox["V0", "2"], 
-        SuperscriptBox[
-         RowBox[{"(", 
-          RowBox[{"1", "+", 
-           SqrtBox[
-            RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}], "2"]}], "-", 
-       RowBox[{"\[Alpha]", " ", 
-        RowBox[{"f", "[", "1", "]"}]}]}], 
+        RowBox[{"f", "'"}], "[", "1", "]"}]], 
+      FractionBox[
+       RowBox[{
+        RowBox[{
+         SuperscriptBox["V0", "2"], 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{"1", "+", 
+            SqrtBox[
+             RowBox[{"1", "-", "\[Alpha]"}]]}], ")"}], "2"]}], "-", 
+        RowBox[{"\[Alpha]", " ", 
+         RowBox[{"f", "[", "1", "]"}]}]}], 
+       RowBox[{
+        RowBox[{"4", 
+         SuperscriptBox["V0", "2"], 
+         RowBox[{"f", "[", "1", "]"}]}], "-", 
+        RowBox[{"\[Alpha]", 
+         SuperscriptBox[
+          RowBox[{"(", 
+           RowBox[{
+            SuperscriptBox["V0", "2"], "+", 
+            RowBox[{"f", "[", "1", "]"}]}], ")"}], "2"]}]}]]}]}], 
+    ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.934904720512729*^9, 3.934904743274306*^9}, {
+  3.9355862171732817`*^9, 3.935586225979533*^9}},
+ CellLabel->
+  "In[1633]:=",ExpressionUUID->"4f6920cf-cc07-42fa-a1f1-17510e8bf6d0"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    RowBox[{"2", 
+     SuperscriptBox["V0", "2"], 
+     RowBox[{"f", "[", "1", "]"}], 
+     RowBox[{"(", 
+      RowBox[{"2", "-", "\[Alpha]"}], ")"}]}], "-", 
+    RowBox[{"\[Alpha]", 
+     RowBox[{"(", 
       RowBox[{
-       RowBox[{"2", 
-        SuperscriptBox["V0", "2"], 
-        RowBox[{"f", "[", "1", "]"}], 
-        RowBox[{"(", 
-         RowBox[{"2", "-", "\[Alpha]"}], ")"}]}], "-", 
-       RowBox[{"\[Alpha]", 
-        RowBox[{"(", 
-         RowBox[{
-          SuperscriptBox["V0", "4"], "+", 
-          SuperscriptBox[
-           RowBox[{"f", "[", "1", "]"}], "2"]}], ")"}]}]}]]}]}]]}]], "Input",
- CellChangeTimes->{{3.934904720512729*^9, 3.934904743274306*^9}},
- CellLabel->"In[15]:=",ExpressionUUID->"4f6920cf-cc07-42fa-a1f1-17510e8bf6d0"],
+       SuperscriptBox["V0", "4"], "+", 
+       SuperscriptBox[
+        RowBox[{"f", "[", "1", "]"}], "2"]}], ")"}]}]}], "==", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"-", "\[Alpha]"}], 
+     SuperscriptBox[
+      RowBox[{"(", 
+       RowBox[{
+        SuperscriptBox["V0", "2"], "+", 
+        RowBox[{"f", "[", "1", "]"}]}], ")"}], "2"]}], "+", 
+    RowBox[{"4", 
+     SuperscriptBox["V0", "2"], 
+     RowBox[{"f", "[", "1", "]"}]}]}]}], "//", "Simplify"}]], "Input",
+ CellChangeTimes->{{3.935586169251213*^9, 3.935586202635151*^9}},
+ CellLabel->
+  "In[1632]:=",ExpressionUUID->"6fb235ce-85c2-4d2a-848e-02a0a5d974d7"],
+
+Cell[BoxData["True"], "Output",
+ CellChangeTimes->{{3.9355861879234867`*^9, 3.935586203187621*^9}},
+ CellLabel->
+  "Out[1632]=",ExpressionUUID->"456abc0f-1f61-4f6d-abcd-d2fa31cd1bd3"]
+}, Open  ]],
 
 Cell[BoxData[
  RowBox[{
@@ -1453,6 +1493,342 @@ Cell[BoxData[
 Cell[CellGroupData[{
 
 Cell[BoxData[
+ RowBox[{"FullSimplify", "[", 
+  RowBox[{"-", 
+   RowBox[{"Expand", "[", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", 
+       SuperscriptBox[
+        RowBox[{"(", 
+         RowBox[{
+          RowBox[{
+           RowBox[{"(", 
+            RowBox[{"1", "+", "R11"}], ")"}], " ", 
+           RowBox[{"f", "[", "1", "]"}]}], "-", 
+          RowBox[{"R11", " ", 
+           RowBox[{
+            SuperscriptBox["f", "\[Prime]",
+             MultilineFunction->None], "[", "1", "]"}]}]}], ")"}], "3"]}], 
+      " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "\[Alpha]"}], " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", 
+        SuperscriptBox[
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "1", "]"}], "2"]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"-", "\[Alpha]"}], " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", 
+        RowBox[{
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "1", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"f", "[", "1", "]"}], "+", 
+           RowBox[{"R11", " ", 
+            RowBox[{"f", "[", "1", "]"}]}], "-", 
+           RowBox[{"R11", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", "1", "]"}]}]}], ")"}]}]}], 
+       ")"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["R11", "2"], " ", 
+      SuperscriptBox["V0", "4"], " ", 
+      SuperscriptBox["\[Alpha]", "2"], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", "1", "]"}], "2"], " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "0", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1", "+", "R11"}], ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", 
+        RowBox[{"R11", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "1", "]"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], "+", 
+     RowBox[{
+      SuperscriptBox["V0", "2"], " ", "\[Alpha]", " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1", "+", "R11"}], ")"}], " ", 
+         RowBox[{"f", "[", "1", "]"}]}], "-", 
+        RowBox[{"R11", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "1", "]"}]}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1", "+", "R11"}], ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", "0", "]"}], "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{"1", "+", "R11"}], ")"}], " ", 
+            RowBox[{"f", "[", "1", "]"}]}], "-", 
+           RowBox[{"R11", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", "1", "]"}]}]}], ")"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{
+              SuperscriptBox["f", "\[Prime]",
+               MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", 
+           SuperscriptBox[
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", "1", "]"}], "2"]}], ")"}]}], "+", 
+        RowBox[{"R11", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "1", "]"}], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"\[Alpha]", " ", 
+            SuperscriptBox[
+             RowBox[{
+              SuperscriptBox["f", "\[Prime]",
+               MultilineFunction->None], "[", "0", "]"}], "2"], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"f", "[", "1", "]"}], "+", 
+              RowBox[{"R11", " ", 
+               RowBox[{"f", "[", "1", "]"}]}], "-", 
+              RowBox[{"2", " ", "R11", " ", 
+               RowBox[{
+                SuperscriptBox["f", "\[Prime]",
+                 MultilineFunction->None], "[", "1", "]"}]}]}], ")"}]}], "+", 
+           
+           RowBox[{
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"-", "1"}], "+", "R11"}], ")"}], " ", 
+            SuperscriptBox[
+             RowBox[{
+              SuperscriptBox["f", "\[Prime]",
+               MultilineFunction->None], "[", "1", "]"}], "2"], " ", 
+            RowBox[{"(", 
+             RowBox[{
+              RowBox[{"f", "[", "1", "]"}], "+", 
+              RowBox[{"R11", " ", 
+               RowBox[{"f", "[", "1", "]"}]}], "-", 
+              RowBox[{"R11", " ", 
+               RowBox[{
+                SuperscriptBox["f", "\[Prime]",
+                 MultilineFunction->None], "[", "1", "]"}]}]}], ")"}]}]}], 
+          ")"}], " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]\[Prime]",
+           MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]}], "]"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.93559776969011*^9, 3.935597771827235*^9}, {
+   3.935598411216276*^9, 3.935598414797513*^9}, 3.935598444857107*^9},
+ CellLabel->
+  "In[1642]:=",ExpressionUUID->"3415aa85-c37e-4105-a74b-4b05b8487022"],
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   SuperscriptBox[
+    RowBox[{"(", 
+     RowBox[{
+      RowBox[{
+       RowBox[{"(", 
+        RowBox[{"1", "+", "R11"}], ")"}], " ", 
+       RowBox[{"f", "[", "1", "]"}]}], "-", 
+      RowBox[{"R11", " ", 
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", "1", "]"}]}]}], ")"}], "3"], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "\[Alpha]"}], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", 
+     SuperscriptBox[
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]",
+        MultilineFunction->None], "[", "1", "]"}], "2"]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"-", "\[Alpha]"}], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", 
+     RowBox[{
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]",
+        MultilineFunction->None], "[", "1", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"f", "[", "1", "]"}], "+", 
+        RowBox[{"R11", " ", 
+         RowBox[{"f", "[", "1", "]"}]}], "-", 
+        RowBox[{"R11", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "1", "]"}]}]}], ")"}]}]}], ")"}]}], 
+  "-", 
+  RowBox[{
+   SuperscriptBox["R11", "2"], " ", 
+   SuperscriptBox["V0", "4"], " ", 
+   SuperscriptBox["\[Alpha]", "2"], " ", 
+   SuperscriptBox[
+    RowBox[{
+     SuperscriptBox["f", "\[Prime]",
+      MultilineFunction->None], "[", "1", "]"}], "2"], " ", 
+   RowBox[{
+    SuperscriptBox["f", "\[Prime]\[Prime]",
+     MultilineFunction->None], "[", "0", "]"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"1", "+", "R11"}], ")"}], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", "0", "]"}], "2"]}], "+", 
+     RowBox[{"R11", " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]",
+        MultilineFunction->None], "[", "1", "]"}], " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}], "-", 
+  RowBox[{
+   SuperscriptBox["V0", "2"], " ", "\[Alpha]", " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"1", "+", "R11"}], ")"}], " ", 
+      RowBox[{"f", "[", "1", "]"}]}], "-", 
+     RowBox[{"R11", " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]",
+        MultilineFunction->None], "[", "1", "]"}]}]}], ")"}], " ", 
+   RowBox[{"(", 
+    RowBox[{
+     RowBox[{
+      RowBox[{"(", 
+       RowBox[{"1", "+", "R11"}], ")"}], " ", 
+      SuperscriptBox[
+       RowBox[{
+        SuperscriptBox["f", "\[Prime]",
+         MultilineFunction->None], "[", "0", "]"}], "2"], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{"1", "+", "R11"}], ")"}], " ", 
+         RowBox[{"f", "[", "1", "]"}]}], "-", 
+        RowBox[{"R11", " ", 
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "1", "]"}]}]}], ")"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"\[Alpha]", " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", "0", "]"}], "2"]}], "-", 
+        SuperscriptBox[
+         RowBox[{
+          SuperscriptBox["f", "\[Prime]",
+           MultilineFunction->None], "[", "1", "]"}], "2"]}], ")"}]}], "+", 
+     RowBox[{"R11", " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]",
+        MultilineFunction->None], "[", "1", "]"}], " ", 
+      RowBox[{"(", 
+       RowBox[{
+        RowBox[{"\[Alpha]", " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", "0", "]"}], "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"f", "[", "1", "]"}], "+", 
+           RowBox[{"R11", " ", 
+            RowBox[{"f", "[", "1", "]"}]}], "-", 
+           RowBox[{"2", " ", "R11", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", "1", "]"}]}]}], ")"}]}], "+", 
+        RowBox[{
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"-", "1"}], "+", "R11"}], ")"}], " ", 
+         SuperscriptBox[
+          RowBox[{
+           SuperscriptBox["f", "\[Prime]",
+            MultilineFunction->None], "[", "1", "]"}], "2"], " ", 
+         RowBox[{"(", 
+          RowBox[{
+           RowBox[{"f", "[", "1", "]"}], "+", 
+           RowBox[{"R11", " ", 
+            RowBox[{"f", "[", "1", "]"}]}], "-", 
+           RowBox[{"R11", " ", 
+            RowBox[{
+             SuperscriptBox["f", "\[Prime]",
+              MultilineFunction->None], "[", "1", "]"}]}]}], ")"}]}]}], ")"}],
+       " ", 
+      RowBox[{
+       SuperscriptBox["f", "\[Prime]\[Prime]",
+        MultilineFunction->None], "[", "0", "]"}]}]}], ")"}]}]}]], "Output",
+ CellChangeTimes->{3.935597772487055*^9, 3.935598415322661*^9, 
+  3.9355984453712683`*^9},
+ CellLabel->
+  "Out[1642]=",ExpressionUUID->"4fc226d6-ad13-42ed-9631-90f3de306a29"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"0", "==", 
@@ -3950,6 +4326,39 @@ H/1HX7I=
    3.935569788972267*^9}},
  CellLabel->
   "Out[1604]=",ExpressionUUID->"76ba48af-73d0-4e90-b571-ddadf50260c2"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{
+  RowBox[{
+   RowBox[{
+    SuperscriptBox["\[Alpha]", 
+     RowBox[{
+      RowBox[{"-", "1"}], "/", "2"}]], 
+    RowBox[{"Von", "[", 
+     RowBox[{
+      RowBox[{"Function", "[", 
+       RowBox[{"q", ",", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"(", 
+           RowBox[{"1", "-", 
+            FractionBox["1", "8"]}], ")"}], "q"}], "+", 
+         RowBox[{
+          FractionBox["1", "8"], 
+          FractionBox["1", "2"], 
+          SuperscriptBox["q", "2"]}]}]}], "]"}], ",", "\[Alpha]"}], "]"}]}], "/.", 
+   RowBox[{"\[Alpha]", "->", "0.9999"}]}], "//", "N"}]], "Input",
+ CellChangeTimes->{{3.9355934384821987`*^9, 3.935593523252809*^9}},
+ CellLabel->
+  "In[1639]:=",ExpressionUUID->"7820b76a-dd72-40f8-b3d8-2a9ac750c271"],
+
+Cell[BoxData["0.09731723400353996`"], "Output",
+ CellChangeTimes->{{3.935593473629204*^9, 3.935593523472756*^9}},
+ CellLabel->
+  "Out[1639]=",ExpressionUUID->"a38ec3d9-b0ce-4573-84df-89c52d941e50"]
 }, Open  ]]
 }, Open  ]],
 
@@ -12947,7 +13356,7 @@ Cell[BoxData[{
  CellChangeTimes->{{3.933648344039223*^9, 3.933648353137401*^9}, {
   3.933764074071956*^9, 3.933764087224583*^9}},
  CellLabel->
-  "In[473]:=",ExpressionUUID->"718f433c-5ec4-4bac-860a-5bace6d1b65e"]
+  "In[1627]:=",ExpressionUUID->"718f433c-5ec4-4bac-860a-5bace6d1b65e"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -197858,7 +198267,7 @@ Cell[BoxData[{
 }, Closed]]
 }, Open  ]]
 },
-WindowSize->{1024.5, 519.75},
+WindowSize->{608.25, 234},
 WindowMargins->{{0, Automatic}, {Automatic, 0}},
 FrontEndVersion->"14.0 for Linux x86 (64-bit) (December 12, 2023)",
 StyleDefinitions->"Default.nb",
@@ -197880,284 +198289,296 @@ Cell[580, 22, 158, 3, 50, "Section",ExpressionUUID->"bbc7c15f-5b7d-4690-8a22-e1e
 Cell[741, 27, 436, 12, 38, "Input",ExpressionUUID->"ebf005b7-7a0b-4118-b3d0-db1559c40936"],
 Cell[CellGroupData[{
 Cell[1202, 43, 212, 7, 41, "Subsection",ExpressionUUID->"943941dd-b41b-40a0-98a8-df3d9b12afe7"],
-Cell[1417, 52, 4503, 137, 79, "Input",ExpressionUUID->"31cd432b-1c50-47cc-9bb0-3ac9263b140f"],
+Cell[1417, 52, 4503, 137, 221, "Input",ExpressionUUID->"31cd432b-1c50-47cc-9bb0-3ac9263b140f"],
 Cell[5923, 191, 600, 13, 22, "Input",ExpressionUUID->"6a5dce92-22b7-4bbb-b9dc-d8b397c611ea"],
 Cell[CellGroupData[{
 Cell[6548, 208, 1045, 28, 22, "Input",ExpressionUUID->"af17e3f4-c0d7-4793-969f-79f33b7879f4"],
 Cell[7596, 238, 23386, 464, 169, "Output",ExpressionUUID->"257fb4cb-ce0c-486c-affc-86f98fc56e04"]
 }, Open  ]],
-Cell[30997, 705, 2873, 88, 45, "Input",ExpressionUUID->"e0eb7bcc-50c7-441c-94b3-a9c5e4cbd683"],
-Cell[33873, 795, 2839, 82, 70, "Input",ExpressionUUID->"4ef4fe63-f668-4d4f-9b70-6d607e6fc7d4"],
+Cell[30997, 705, 2873, 88, 75, "Input",ExpressionUUID->"e0eb7bcc-50c7-441c-94b3-a9c5e4cbd683"],
+Cell[33873, 795, 2839, 82, 120, "Input",ExpressionUUID->"4ef4fe63-f668-4d4f-9b70-6d607e6fc7d4"],
 Cell[36715, 879, 803, 23, 44, "Input",ExpressionUUID->"8b37e6b8-e4b4-4e60-b3cf-5571a53a0977"],
 Cell[37521, 904, 1059, 32, 79, "Input",ExpressionUUID->"cc77e3a8-46c3-4857-9b76-a4773dcd2d50"],
-Cell[38583, 938, 1730, 51, 49, "Input",ExpressionUUID->"bc277007-5ea8-4c84-b1f2-95863792943a"],
+Cell[38583, 938, 1730, 51, 43, "Input",ExpressionUUID->"bc277007-5ea8-4c84-b1f2-95863792943a"],
 Cell[40316, 991, 212, 4, 22, "Input",ExpressionUUID->"aa2afe42-32cb-46b2-a341-32cb5794931c"],
-Cell[40531, 997, 1805, 46, 60, "Input",ExpressionUUID->"887923af-c2a5-4daf-a390-329ad8b0575f"],
-Cell[42339, 1045, 2071, 59, 74, "Input",ExpressionUUID->"e381fc96-715c-45bb-832b-e8f086158731"],
+Cell[40531, 997, 1805, 46, 92, "Input",ExpressionUUID->"887923af-c2a5-4daf-a390-329ad8b0575f"],
+Cell[42339, 1045, 2071, 59, 144, "Input",ExpressionUUID->"e381fc96-715c-45bb-832b-e8f086158731"],
 Cell[44413, 1106, 628, 19, 47, "Input",ExpressionUUID->"ae4b3868-2814-4b44-b4ff-31f08142beda"],
-Cell[45044, 1127, 1175, 36, 51, "Input",ExpressionUUID->"4f6920cf-cc07-42fa-a1f1-17510e8bf6d0"],
-Cell[46222, 1165, 624, 17, 22, "Input",ExpressionUUID->"1d42e2a7-edba-4126-9a6f-e244a68ca2fe"],
-Cell[46849, 1184, 3102, 89, 67, "Input",ExpressionUUID->"699b7adb-de5d-42c2-8175-c15604257df9"],
-Cell[49954, 1275, 6165, 175, 118, "Input",ExpressionUUID->"4c7fa894-9573-4dab-976b-db3f3356ff24"],
+Cell[45044, 1127, 1230, 38, 60, "Input",ExpressionUUID->"4f6920cf-cc07-42fa-a1f1-17510e8bf6d0"],
+Cell[CellGroupData[{
+Cell[46299, 1169, 880, 28, 34, "Input",ExpressionUUID->"6fb235ce-85c2-4d2a-848e-02a0a5d974d7"],
+Cell[47182, 1199, 183, 3, 35, "Output",ExpressionUUID->"456abc0f-1f61-4f6d-abcd-d2fa31cd1bd3"]
+}, Open  ]],
+Cell[47380, 1205, 624, 17, 22, "Input",ExpressionUUID->"1d42e2a7-edba-4126-9a6f-e244a68ca2fe"],
+Cell[48007, 1224, 3102, 89, 99, "Input",ExpressionUUID->"699b7adb-de5d-42c2-8175-c15604257df9"],
+Cell[51112, 1315, 6165, 175, 169, "Input",ExpressionUUID->"4c7fa894-9573-4dab-976b-db3f3356ff24"],
+Cell[CellGroupData[{
+Cell[57302, 1494, 5986, 168, 154, "Input",ExpressionUUID->"3415aa85-c37e-4105-a74b-4b05b8487022"],
+Cell[63291, 1664, 5322, 161, 88, "Output",ExpressionUUID->"4fc226d6-ad13-42ed-9631-90f3de306a29"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[68650, 1830, 376, 10, 32, "Input",ExpressionUUID->"ee99383c-99f4-46ba-8949-dd3008b0735e"],
+Cell[69029, 1842, 384, 9, 22, "Message",ExpressionUUID->"fd07fa1d-5785-4773-a6d3-eb9fcb81177a"],
+Cell[69416, 1853, 1716, 61, 94, "Output",ExpressionUUID->"5ff18c99-4fe1-414e-b627-9cab84c77984"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[56144, 1454, 376, 10, 32, "Input",ExpressionUUID->"ee99383c-99f4-46ba-8949-dd3008b0735e"],
-Cell[56523, 1466, 384, 9, 22, "Message",ExpressionUUID->"fd07fa1d-5785-4773-a6d3-eb9fcb81177a"],
-Cell[56910, 1477, 1716, 61, 56, "Output",ExpressionUUID->"5ff18c99-4fe1-414e-b627-9cab84c77984"]
+Cell[71169, 1919, 2075, 56, 118, "Input",ExpressionUUID->"0caeb070-1986-4528-82ba-e6a767745c53"],
+Cell[73247, 1977, 679, 14, 22, "Message",ExpressionUUID->"bb351544-5dd5-4411-a0b5-c31864781da3"],
+Cell[73929, 1993, 679, 14, 22, "Message",ExpressionUUID->"fec73794-8488-4528-9c38-6c7759fa93c2"],
+Cell[74611, 2009, 698, 14, 22, "Message",ExpressionUUID->"4dd3d1eb-b01f-4f41-8edc-967147ba4b6b"],
+Cell[75312, 2025, 698, 14, 22, "Message",ExpressionUUID->"0394493d-ec5d-456d-b1b8-90799a6531ee"],
+Cell[76013, 2041, 138261, 2286, 289, "Output",ExpressionUUID->"76ba48af-73d0-4e90-b571-ddadf50260c2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[58663, 1543, 2075, 56, 67, "Input",ExpressionUUID->"0caeb070-1986-4528-82ba-e6a767745c53"],
-Cell[60741, 1601, 679, 14, 22, "Message",ExpressionUUID->"bb351544-5dd5-4411-a0b5-c31864781da3"],
-Cell[61423, 1617, 679, 14, 22, "Message",ExpressionUUID->"fec73794-8488-4528-9c38-6c7759fa93c2"],
-Cell[62105, 1633, 698, 14, 22, "Message",ExpressionUUID->"4dd3d1eb-b01f-4f41-8edc-967147ba4b6b"],
-Cell[62806, 1649, 698, 14, 22, "Message",ExpressionUUID->"0394493d-ec5d-456d-b1b8-90799a6531ee"],
-Cell[63507, 1665, 138261, 2286, 289, "Output",ExpressionUUID->"76ba48af-73d0-4e90-b571-ddadf50260c2"]
+Cell[214311, 4332, 763, 23, 45, "Input",ExpressionUUID->"7820b76a-dd72-40f8-b3d8-2a9ac750c271"],
+Cell[215077, 4357, 197, 3, 35, "Output",ExpressionUUID->"a38ec3d9-b0ce-4573-84df-89c52d941e50"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[201817, 3957, 233, 7, 41, "Subsection",ExpressionUUID->"609c5f73-5486-4a56-bc9d-ef27acb7df90"],
-Cell[202053, 3966, 3155, 103, 136, "Input",ExpressionUUID->"061b0d8b-a806-4ba3-99ce-b246670e2517"],
-Cell[205211, 4071, 1857, 56, 45, "Input",ExpressionUUID->"f9a8f68e-12c1-460f-9e19-b7703b29ffe4"],
-Cell[207071, 4129, 2142, 63, 85, "Input",ExpressionUUID->"3de2de4d-cf28-41cc-82f9-e562d6ed39ce"],
-Cell[209216, 4194, 312, 8, 27, "Input",ExpressionUUID->"2f8d3dc8-dced-47d9-9a9f-8fe09be3d78f"],
-Cell[209531, 4204, 665, 19, 69, "Input",ExpressionUUID->"3eceb3f5-a87d-45e5-9f2c-9c19800751ec"],
-Cell[210199, 4225, 1032, 29, 44, "Input",ExpressionUUID->"5054a1d1-5235-4140-a83c-29b4c9614c1f"],
-Cell[211234, 4256, 681, 16, 43, "Input",ExpressionUUID->"5a0216e3-adef-4964-bbf9-08e450a06cdc"],
-Cell[211918, 4274, 289, 7, 24, "Input",ExpressionUUID->"ca694e41-0c8a-4c02-9488-39accc3fcf96"],
-Cell[212210, 4283, 856, 21, 22, "Input",ExpressionUUID->"44b1508c-998d-42b7-8f03-22008fe43d5b"],
-Cell[213069, 4306, 946, 23, 47, "Input",ExpressionUUID->"54e4850d-f259-4e0c-a784-4eeb03349208"],
-Cell[214018, 4331, 631, 15, 44, "Input",ExpressionUUID->"409057c5-6083-434c-aa2a-5e30f758175b"]
+Cell[215323, 4366, 233, 7, 41, "Subsection",ExpressionUUID->"609c5f73-5486-4a56-bc9d-ef27acb7df90"],
+Cell[215559, 4375, 3155, 103, 136, "Input",ExpressionUUID->"061b0d8b-a806-4ba3-99ce-b246670e2517"],
+Cell[218717, 4480, 1857, 56, 45, "Input",ExpressionUUID->"f9a8f68e-12c1-460f-9e19-b7703b29ffe4"],
+Cell[220577, 4538, 2142, 63, 85, "Input",ExpressionUUID->"3de2de4d-cf28-41cc-82f9-e562d6ed39ce"],
+Cell[222722, 4603, 312, 8, 27, "Input",ExpressionUUID->"2f8d3dc8-dced-47d9-9a9f-8fe09be3d78f"],
+Cell[223037, 4613, 665, 19, 69, "Input",ExpressionUUID->"3eceb3f5-a87d-45e5-9f2c-9c19800751ec"],
+Cell[223705, 4634, 1032, 29, 44, "Input",ExpressionUUID->"5054a1d1-5235-4140-a83c-29b4c9614c1f"],
+Cell[224740, 4665, 681, 16, 43, "Input",ExpressionUUID->"5a0216e3-adef-4964-bbf9-08e450a06cdc"],
+Cell[225424, 4683, 289, 7, 24, "Input",ExpressionUUID->"ca694e41-0c8a-4c02-9488-39accc3fcf96"],
+Cell[225716, 4692, 856, 21, 22, "Input",ExpressionUUID->"44b1508c-998d-42b7-8f03-22008fe43d5b"],
+Cell[226575, 4715, 946, 23, 47, "Input",ExpressionUUID->"54e4850d-f259-4e0c-a784-4eeb03349208"],
+Cell[227524, 4740, 631, 15, 44, "Input",ExpressionUUID->"409057c5-6083-434c-aa2a-5e30f758175b"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[214686, 4351, 157, 3, 30, "Subsection",ExpressionUUID->"fb09862d-269c-49ef-8e26-172c318fc3b7"],
-Cell[214846, 4356, 348, 9, 35, "Input",ExpressionUUID->"9667f18c-9918-4567-b469-c4b4e50aa395"],
-Cell[215197, 4367, 436, 12, 35, "Input",ExpressionUUID->"c689e352-b164-45af-9267-c61188f5d6ec"],
-Cell[215636, 4381, 357, 9, 35, "Input",ExpressionUUID->"c50d5710-c668-472d-8334-14adbb7f598f"]
+Cell[228192, 4760, 157, 3, 30, "Subsection",ExpressionUUID->"fb09862d-269c-49ef-8e26-172c318fc3b7"],
+Cell[228352, 4765, 348, 9, 35, "Input",ExpressionUUID->"9667f18c-9918-4567-b469-c4b4e50aa395"],
+Cell[228703, 4776, 436, 12, 35, "Input",ExpressionUUID->"c689e352-b164-45af-9267-c61188f5d6ec"],
+Cell[229142, 4790, 357, 9, 35, "Input",ExpressionUUID->"c50d5710-c668-472d-8334-14adbb7f598f"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[216042, 4396, 150, 3, 50, "Section",ExpressionUUID->"f6acd268-0983-4ccc-b375-6fb0a5032805"],
+Cell[229548, 4805, 150, 3, 50, "Section",ExpressionUUID->"f6acd268-0983-4ccc-b375-6fb0a5032805"],
 Cell[CellGroupData[{
-Cell[216217, 4403, 214, 4, 41, "Subsection",ExpressionUUID->"80e4596a-0f6c-482b-9d38-4e3778e2b753"],
+Cell[229723, 4812, 214, 4, 41, "Subsection",ExpressionUUID->"80e4596a-0f6c-482b-9d38-4e3778e2b753"],
 Cell[CellGroupData[{
-Cell[216456, 4411, 6805, 165, 164, "Input",ExpressionUUID->"6c182b3c-b61b-4da5-97eb-545f093d6397"],
-Cell[223264, 4578, 179911, 3152, 227, "Output",ExpressionUUID->"4df55cb1-bd3e-409d-81bf-3c334f8acc27"]
+Cell[229962, 4820, 6805, 165, 258, "Input",ExpressionUUID->"6c182b3c-b61b-4da5-97eb-545f093d6397"],
+Cell[236770, 4987, 179911, 3152, 227, "Output",ExpressionUUID->"4df55cb1-bd3e-409d-81bf-3c334f8acc27"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[403212, 7735, 9552, 231, 251, "Input",ExpressionUUID->"987acbda-9443-4a50-9527-bdd438ec8a24"],
-Cell[412767, 7968, 274583, 4962, 227, "Output",ExpressionUUID->"3d372417-0e3e-4793-b3cb-db8d1a6c59c7"]
+Cell[416718, 8144, 9552, 231, 445, "Input",ExpressionUUID->"987acbda-9443-4a50-9527-bdd438ec8a24"],
+Cell[426273, 8377, 274583, 4962, 227, "Output",ExpressionUUID->"3d372417-0e3e-4793-b3cb-db8d1a6c59c7"]
 }, Open  ]],
-Cell[687365, 12933, 604, 16, 53, "Input",ExpressionUUID->"718f433c-5ec4-4bac-860a-5bace6d1b65e"]
+Cell[700871, 13342, 605, 16, 64, "Input",ExpressionUUID->"718f433c-5ec4-4bac-860a-5bace6d1b65e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[688006, 12954, 162, 3, 41, "Subsection",ExpressionUUID->"5159d821-004a-42df-9d4c-fa83e8d77495"],
-Cell[688171, 12959, 321, 7, 32, "Input",ExpressionUUID->"f396cb31-1852-4e37-833b-392d09d3b6a9"],
+Cell[701513, 13363, 162, 3, 41, "Subsection",ExpressionUUID->"5159d821-004a-42df-9d4c-fa83e8d77495"],
+Cell[701678, 13368, 321, 7, 32, "Input",ExpressionUUID->"f396cb31-1852-4e37-833b-392d09d3b6a9"],
 Cell[CellGroupData[{
-Cell[688517, 12970, 9268, 209, 169, "Input",ExpressionUUID->"6c065066-6bf9-4f3a-a1a0-0b9cba9f452c"],
-Cell[697788, 13181, 48491, 941, 188, "Output",ExpressionUUID->"b70d8b12-15cd-40da-9dd4-5fca8d19fe96"]
+Cell[702024, 13379, 9268, 209, 169, "Input",ExpressionUUID->"6c065066-6bf9-4f3a-a1a0-0b9cba9f452c"],
+Cell[711295, 13590, 48491, 941, 188, "Output",ExpressionUUID->"b70d8b12-15cd-40da-9dd4-5fca8d19fe96"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[746316, 14127, 9400, 227, 224, "Input",ExpressionUUID->"b7835bf7-af7e-4043-ba65-56202b80be80"],
-Cell[755719, 14356, 111485, 2033, 188, "Output",ExpressionUUID->"e3e704fc-0e38-4113-a2b9-25827905da4f"]
+Cell[759823, 14536, 9400, 227, 224, "Input",ExpressionUUID->"b7835bf7-af7e-4043-ba65-56202b80be80"],
+Cell[769226, 14765, 111485, 2033, 188, "Output",ExpressionUUID->"e3e704fc-0e38-4113-a2b9-25827905da4f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[867241, 16394, 11037, 265, 234, "Input",ExpressionUUID->"60fc774e-789f-47e9-995f-80fba0589db7"],
-Cell[878281, 16661, 97856, 1789, 188, "Output",ExpressionUUID->"6d10c503-f63b-41cf-8021-7775daf9807c"]
+Cell[880748, 16803, 11037, 265, 234, "Input",ExpressionUUID->"60fc774e-789f-47e9-995f-80fba0589db7"],
+Cell[891788, 17070, 97856, 1789, 188, "Output",ExpressionUUID->"6d10c503-f63b-41cf-8021-7775daf9807c"]
 }, Open  ]],
-Cell[976152, 18453, 866, 22, 79, "Input",ExpressionUUID->"1b485599-abd1-4bc0-967d-165fc92d833b"],
+Cell[989659, 18862, 866, 22, 79, "Input",ExpressionUUID->"1b485599-abd1-4bc0-967d-165fc92d833b"],
 Cell[CellGroupData[{
-Cell[977043, 18479, 14738, 327, 324, "Input",ExpressionUUID->"101aed77-f32b-4d1b-89a5-4952498963e8"],
-Cell[991784, 18808, 1582, 25, 22, "Message",ExpressionUUID->"8b6ca66e-a913-41f3-a078-efec64b7c5bd"],
-Cell[993369, 18835, 1563, 25, 22, "Message",ExpressionUUID->"86cc2414-b536-4730-a4e2-e0758544f8c5"],
-Cell[994935, 18862, 1430, 23, 31, "Message",ExpressionUUID->"67dd0877-c3a5-457d-85a5-eb2d63e320c5"],
-Cell[996368, 18887, 1464, 24, 22, "Message",ExpressionUUID->"9bf0f8ee-1a7c-4eec-87d2-1d2e23cc35d5"],
-Cell[997835, 18913, 1580, 26, 22, "Message",ExpressionUUID->"341e33da-4577-4c51-bcc9-14f6de5ff69c"],
-Cell[999418, 18941, 1430, 23, 31, "Message",ExpressionUUID->"5acc1b13-bef1-488e-8c99-ebcf9d9e4f08"],
-Cell[1000851, 18966, 1466, 24, 22, "Message",ExpressionUUID->"eab1cda9-5bea-4826-a3d8-6445c6a1e2c6"],
-Cell[1002320, 18992, 1580, 26, 22, "Message",ExpressionUUID->"d84d9071-c185-4bf1-92c5-3e49779dfbcd"],
-Cell[1003903, 19020, 1563, 25, 22, "Message",ExpressionUUID->"6bf3187d-4ef5-4560-ad1d-1fbb1e63032a"],
-Cell[1005469, 19047, 1514, 24, 22, "Message",ExpressionUUID->"092ea006-2732-4465-b921-77b1deb39ae6"],
-Cell[1006986, 19073, 384813, 6673, 173, "Output",ExpressionUUID->"34ceaa88-a9fd-49b4-887f-f6941f2ea849"]
+Cell[990550, 18888, 14738, 327, 324, "Input",ExpressionUUID->"101aed77-f32b-4d1b-89a5-4952498963e8"],
+Cell[1005291, 19217, 1582, 25, 22, "Message",ExpressionUUID->"8b6ca66e-a913-41f3-a078-efec64b7c5bd"],
+Cell[1006876, 19244, 1563, 25, 22, "Message",ExpressionUUID->"86cc2414-b536-4730-a4e2-e0758544f8c5"],
+Cell[1008442, 19271, 1430, 23, 31, "Message",ExpressionUUID->"67dd0877-c3a5-457d-85a5-eb2d63e320c5"],
+Cell[1009875, 19296, 1464, 24, 22, "Message",ExpressionUUID->"9bf0f8ee-1a7c-4eec-87d2-1d2e23cc35d5"],
+Cell[1011342, 19322, 1580, 26, 22, "Message",ExpressionUUID->"341e33da-4577-4c51-bcc9-14f6de5ff69c"],
+Cell[1012925, 19350, 1430, 23, 31, "Message",ExpressionUUID->"5acc1b13-bef1-488e-8c99-ebcf9d9e4f08"],
+Cell[1014358, 19375, 1466, 24, 22, "Message",ExpressionUUID->"eab1cda9-5bea-4826-a3d8-6445c6a1e2c6"],
+Cell[1015827, 19401, 1580, 26, 22, "Message",ExpressionUUID->"d84d9071-c185-4bf1-92c5-3e49779dfbcd"],
+Cell[1017410, 19429, 1563, 25, 22, "Message",ExpressionUUID->"6bf3187d-4ef5-4560-ad1d-1fbb1e63032a"],
+Cell[1018976, 19456, 1514, 24, 22, "Message",ExpressionUUID->"092ea006-2732-4465-b921-77b1deb39ae6"],
+Cell[1020493, 19482, 384813, 6673, 173, "Output",ExpressionUUID->"34ceaa88-a9fd-49b4-887f-f6941f2ea849"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1391836, 25751, 2426, 62, 67, "Input",ExpressionUUID->"2c376c0a-ba7e-4b00-aeba-5d476695aa74"],
-Cell[1394265, 25815, 546, 12, 22, "Message",ExpressionUUID->"d0d7356f-4ef7-407a-ba2e-00a5ff522467"],
-Cell[1394814, 25829, 560, 13, 22, "Message",ExpressionUUID->"89dabc18-068a-4c5e-86e3-3961033039c8"],
-Cell[1395377, 25844, 544, 12, 22, "Message",ExpressionUUID->"d8cc1d8b-803f-4df4-9c21-afaad367254b"],
-Cell[1395924, 25858, 562, 13, 22, "Message",ExpressionUUID->"3273795e-ce80-4134-afa9-971d3b75b5a7"],
-Cell[1396489, 25873, 97545, 1614, 285, "Output",ExpressionUUID->"19faa31c-8254-4ee5-969b-3c4af2365bbb"]
+Cell[1405343, 26160, 2426, 62, 67, "Input",ExpressionUUID->"2c376c0a-ba7e-4b00-aeba-5d476695aa74"],
+Cell[1407772, 26224, 546, 12, 22, "Message",ExpressionUUID->"d0d7356f-4ef7-407a-ba2e-00a5ff522467"],
+Cell[1408321, 26238, 560, 13, 22, "Message",ExpressionUUID->"89dabc18-068a-4c5e-86e3-3961033039c8"],
+Cell[1408884, 26253, 544, 12, 22, "Message",ExpressionUUID->"d8cc1d8b-803f-4df4-9c21-afaad367254b"],
+Cell[1409431, 26267, 562, 13, 22, "Message",ExpressionUUID->"3273795e-ce80-4134-afa9-971d3b75b5a7"],
+Cell[1409996, 26282, 97545, 1614, 285, "Output",ExpressionUUID->"19faa31c-8254-4ee5-969b-3c4af2365bbb"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1494071, 27492, 431, 8, 32, "Input",ExpressionUUID->"8dcf020f-43e1-4a4b-b723-a456cb5d79bf"],
-Cell[1494505, 27502, 476860, 8189, 173, "Output",ExpressionUUID->"38fb221b-f27b-49be-a714-d92e77ab01ec"]
+Cell[1507578, 27901, 431, 8, 32, "Input",ExpressionUUID->"8dcf020f-43e1-4a4b-b723-a456cb5d79bf"],
+Cell[1508012, 27911, 476860, 8189, 173, "Output",ExpressionUUID->"38fb221b-f27b-49be-a714-d92e77ab01ec"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1971402, 35696, 13173, 292, 271, "Input",ExpressionUUID->"3298ef22-87c1-467f-be42-8177662f54f7"],
-Cell[1984578, 35990, 1278, 21, 22, "Message",ExpressionUUID->"1d8fe58a-7119-442e-a737-26c4b20f1c70"],
-Cell[1985859, 36013, 1257, 21, 22, "Message",ExpressionUUID->"c3f53c6e-adc2-4e02-8dc8-9dd521c0f3a0"],
-Cell[1987119, 36036, 1257, 21, 22, "Message",ExpressionUUID->"dc4175ae-303c-49c8-abd7-abed3161a661"],
-Cell[1988379, 36059, 1210, 20, 22, "Message",ExpressionUUID->"b8b17071-637c-4405-bcff-e581567d4f07"],
-Cell[1989592, 36081, 331011, 5766, 173, "Output",ExpressionUUID->"8ef9da91-d25e-4aa1-836c-f852f0d33185"]
+Cell[1984909, 36105, 13173, 292, 271, "Input",ExpressionUUID->"3298ef22-87c1-467f-be42-8177662f54f7"],
+Cell[1998085, 36399, 1278, 21, 22, "Message",ExpressionUUID->"1d8fe58a-7119-442e-a737-26c4b20f1c70"],
+Cell[1999366, 36422, 1257, 21, 22, "Message",ExpressionUUID->"c3f53c6e-adc2-4e02-8dc8-9dd521c0f3a0"],
+Cell[2000626, 36445, 1257, 21, 22, "Message",ExpressionUUID->"dc4175ae-303c-49c8-abd7-abed3161a661"],
+Cell[2001886, 36468, 1210, 20, 22, "Message",ExpressionUUID->"b8b17071-637c-4405-bcff-e581567d4f07"],
+Cell[2003099, 36490, 331011, 5766, 173, "Output",ExpressionUUID->"8ef9da91-d25e-4aa1-836c-f852f0d33185"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2320640, 41852, 2479, 63, 67, "Input",ExpressionUUID->"de2de595-3dd4-46d6-a933-395b0e2565e6"],
-Cell[2323122, 41917, 544, 12, 22, "Message",ExpressionUUID->"bbe1becf-bf78-4c89-9b6f-10dfd3ff93fe"],
-Cell[2323669, 41931, 559, 13, 22, "Message",ExpressionUUID->"834c73ff-6182-42d0-9606-ae2ade98114e"],
-Cell[2324231, 41946, 544, 12, 22, "Message",ExpressionUUID->"80db0b4e-9710-4b3a-b252-267a79784678"],
-Cell[2324778, 41960, 559, 13, 22, "Message",ExpressionUUID->"c42cabff-40c8-4db8-913b-f1d18d586108"],
-Cell[2325340, 41975, 116706, 1929, 285, "Output",ExpressionUUID->"ff3a9043-8e68-4099-ba66-21bab4e1ba49"]
+Cell[2334147, 42261, 2479, 63, 67, "Input",ExpressionUUID->"de2de595-3dd4-46d6-a933-395b0e2565e6"],
+Cell[2336629, 42326, 544, 12, 22, "Message",ExpressionUUID->"bbe1becf-bf78-4c89-9b6f-10dfd3ff93fe"],
+Cell[2337176, 42340, 559, 13, 22, "Message",ExpressionUUID->"834c73ff-6182-42d0-9606-ae2ade98114e"],
+Cell[2337738, 42355, 544, 12, 22, "Message",ExpressionUUID->"80db0b4e-9710-4b3a-b252-267a79784678"],
+Cell[2338285, 42369, 559, 13, 22, "Message",ExpressionUUID->"c42cabff-40c8-4db8-913b-f1d18d586108"],
+Cell[2338847, 42384, 116706, 1929, 285, "Output",ExpressionUUID->"ff3a9043-8e68-4099-ba66-21bab4e1ba49"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2442083, 43909, 480, 9, 32, "Input",ExpressionUUID->"f939f4b3-415d-49fd-a7ff-c1a29727428a"],
-Cell[2442566, 43920, 442516, 7599, 173, "Output",ExpressionUUID->"b458e47e-a291-4322-9103-166cec724887"]
+Cell[2455590, 44318, 480, 9, 32, "Input",ExpressionUUID->"f939f4b3-415d-49fd-a7ff-c1a29727428a"],
+Cell[2456073, 44329, 442516, 7599, 173, "Output",ExpressionUUID->"b458e47e-a291-4322-9103-166cec724887"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2885119, 51524, 8494, 229, 271, "Input",ExpressionUUID->"6b68c223-0105-4afb-9c98-1914ceda0c01"],
-Cell[2893616, 51755, 568, 12, 31, "Message",ExpressionUUID->"8fd6b997-268d-4eb0-a877-46b286551dfd"],
-Cell[2894187, 51769, 600, 13, 22, "Message",ExpressionUUID->"f1df2886-d104-468c-b0c9-6b06110d96e6"],
-Cell[2894790, 51784, 716, 15, 22, "Message",ExpressionUUID->"098fce91-188b-4256-a4ff-ffcecd2a5c48"],
-Cell[2895509, 51801, 566, 12, 31, "Message",ExpressionUUID->"8d51a4e1-6eb0-478c-88dd-d8e22bcac4af"],
-Cell[2896078, 51815, 599, 13, 22, "Message",ExpressionUUID->"f857b864-fcb8-4b8b-996c-388f7a3e029b"],
-Cell[2896680, 51830, 716, 15, 22, "Message",ExpressionUUID->"171ef08b-9efd-461b-868e-4ade7d56f619"],
-Cell[2897399, 51847, 291291, 5106, 173, "Output",ExpressionUUID->"ba704385-2646-4a07-9266-547e6e298edb"]
+Cell[2898626, 51933, 8494, 229, 271, "Input",ExpressionUUID->"6b68c223-0105-4afb-9c98-1914ceda0c01"],
+Cell[2907123, 52164, 568, 12, 31, "Message",ExpressionUUID->"8fd6b997-268d-4eb0-a877-46b286551dfd"],
+Cell[2907694, 52178, 600, 13, 22, "Message",ExpressionUUID->"f1df2886-d104-468c-b0c9-6b06110d96e6"],
+Cell[2908297, 52193, 716, 15, 22, "Message",ExpressionUUID->"098fce91-188b-4256-a4ff-ffcecd2a5c48"],
+Cell[2909016, 52210, 566, 12, 31, "Message",ExpressionUUID->"8d51a4e1-6eb0-478c-88dd-d8e22bcac4af"],
+Cell[2909585, 52224, 599, 13, 22, "Message",ExpressionUUID->"f857b864-fcb8-4b8b-996c-388f7a3e029b"],
+Cell[2910187, 52239, 716, 15, 22, "Message",ExpressionUUID->"171ef08b-9efd-461b-868e-4ade7d56f619"],
+Cell[2910906, 52256, 291291, 5106, 173, "Output",ExpressionUUID->"ba704385-2646-4a07-9266-547e6e298edb"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3188727, 56958, 2477, 63, 67, "Input",ExpressionUUID->"ab6422e5-73ba-48ab-9eba-850bb98bfb81"],
-Cell[3191207, 57023, 570, 13, 22, "Message",ExpressionUUID->"6d8bbef7-1bcc-4dcf-be4d-ca75283ace54"],
-Cell[3191780, 57038, 585, 14, 22, "Message",ExpressionUUID->"ef15ebf4-b045-4bba-87ba-608fe9f4f07b"],
-Cell[3192368, 57054, 570, 13, 22, "Message",ExpressionUUID->"ad05ca24-1213-4365-85d6-96b8d4d08121"],
-Cell[3192941, 57069, 585, 14, 22, "Message",ExpressionUUID->"8556b989-cd5d-42a5-84eb-c4c28dd9f037"],
-Cell[3193529, 57085, 113417, 1875, 285, "Output",ExpressionUUID->"abb52fd8-545c-49a3-ab00-d76930531f32"]
+Cell[3202234, 57367, 2477, 63, 67, "Input",ExpressionUUID->"ab6422e5-73ba-48ab-9eba-850bb98bfb81"],
+Cell[3204714, 57432, 570, 13, 22, "Message",ExpressionUUID->"6d8bbef7-1bcc-4dcf-be4d-ca75283ace54"],
+Cell[3205287, 57447, 585, 14, 22, "Message",ExpressionUUID->"ef15ebf4-b045-4bba-87ba-608fe9f4f07b"],
+Cell[3205875, 57463, 570, 13, 22, "Message",ExpressionUUID->"ad05ca24-1213-4365-85d6-96b8d4d08121"],
+Cell[3206448, 57478, 585, 14, 22, "Message",ExpressionUUID->"8556b989-cd5d-42a5-84eb-c4c28dd9f037"],
+Cell[3207036, 57494, 113417, 1875, 285, "Output",ExpressionUUID->"abb52fd8-545c-49a3-ab00-d76930531f32"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3306983, 58965, 481, 9, 32, "Input",ExpressionUUID->"a9c22acb-70a6-4f9f-aeeb-9904ea3d6991"],
-Cell[3307467, 58976, 404027, 6949, 173, "Output",ExpressionUUID->"e74ebda8-b779-4abd-8d10-8202c04d2f95"]
+Cell[3320490, 59374, 481, 9, 32, "Input",ExpressionUUID->"a9c22acb-70a6-4f9f-aeeb-9904ea3d6991"],
+Cell[3320974, 59385, 404027, 6949, 173, "Output",ExpressionUUID->"e74ebda8-b779-4abd-8d10-8202c04d2f95"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3711531, 65930, 8491, 229, 271, "Input",ExpressionUUID->"5829be28-75b4-451c-a080-a230915499be"],
-Cell[3720025, 66161, 562, 12, 31, "Message",ExpressionUUID->"503f0ed1-2dbe-4c88-b58a-b2bab98f8d9f"],
-Cell[3720590, 66175, 594, 13, 22, "Message",ExpressionUUID->"1e94c986-9f46-4649-866a-2eaeddc70101"],
-Cell[3721187, 66190, 710, 15, 22, "Message",ExpressionUUID->"e79c2463-349f-4fab-8e1f-5c4bef856b86"],
-Cell[3721900, 66207, 560, 12, 31, "Message",ExpressionUUID->"1d66cafb-1b7f-42a1-9fa7-c59d88e9009a"],
-Cell[3722463, 66221, 594, 13, 22, "Message",ExpressionUUID->"15b68299-befc-456a-951b-a4371bc95385"],
-Cell[3723060, 66236, 712, 15, 22, "Message",ExpressionUUID->"93af28ae-b421-49b7-8014-3585e6bab43a"],
-Cell[3723775, 66253, 234776, 4185, 173, "Output",ExpressionUUID->"8dfa82b2-5926-4b50-872d-a62d0b0b387a"]
+Cell[3725038, 66339, 8491, 229, 271, "Input",ExpressionUUID->"5829be28-75b4-451c-a080-a230915499be"],
+Cell[3733532, 66570, 562, 12, 31, "Message",ExpressionUUID->"503f0ed1-2dbe-4c88-b58a-b2bab98f8d9f"],
+Cell[3734097, 66584, 594, 13, 22, "Message",ExpressionUUID->"1e94c986-9f46-4649-866a-2eaeddc70101"],
+Cell[3734694, 66599, 710, 15, 22, "Message",ExpressionUUID->"e79c2463-349f-4fab-8e1f-5c4bef856b86"],
+Cell[3735407, 66616, 560, 12, 31, "Message",ExpressionUUID->"1d66cafb-1b7f-42a1-9fa7-c59d88e9009a"],
+Cell[3735970, 66630, 594, 13, 22, "Message",ExpressionUUID->"15b68299-befc-456a-951b-a4371bc95385"],
+Cell[3736567, 66645, 712, 15, 22, "Message",ExpressionUUID->"93af28ae-b421-49b7-8014-3585e6bab43a"],
+Cell[3737282, 66662, 234776, 4185, 173, "Output",ExpressionUUID->"8dfa82b2-5926-4b50-872d-a62d0b0b387a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3958588, 70443, 2475, 63, 67, "Input",ExpressionUUID->"0cc7c314-920a-4d6d-88dc-a9003cd424e9"],
-Cell[3961066, 70508, 572, 13, 22, "Message",ExpressionUUID->"d6e18fbc-3b12-46df-abb7-7bed41cecf44"],
-Cell[3961641, 70523, 591, 15, 22, "Message",ExpressionUUID->"3b0d7df9-0b2b-4efd-a26f-d645f0425a9e"],
-Cell[3962235, 70540, 572, 13, 22, "Message",ExpressionUUID->"55a1edf4-9084-4f21-9162-e520441e776d"],
-Cell[3962810, 70555, 591, 15, 22, "Message",ExpressionUUID->"f4c387e2-ec79-4e62-8b74-cb18e0f5c9ad"],
-Cell[3963404, 70572, 107041, 1770, 285, "Output",ExpressionUUID->"f2f53598-2d1e-45c3-bac0-46e6898b0c7a"]
+Cell[3972095, 70852, 2475, 63, 67, "Input",ExpressionUUID->"0cc7c314-920a-4d6d-88dc-a9003cd424e9"],
+Cell[3974573, 70917, 572, 13, 22, "Message",ExpressionUUID->"d6e18fbc-3b12-46df-abb7-7bed41cecf44"],
+Cell[3975148, 70932, 591, 15, 22, "Message",ExpressionUUID->"3b0d7df9-0b2b-4efd-a26f-d645f0425a9e"],
+Cell[3975742, 70949, 572, 13, 22, "Message",ExpressionUUID->"55a1edf4-9084-4f21-9162-e520441e776d"],
+Cell[3976317, 70964, 591, 15, 22, "Message",ExpressionUUID->"f4c387e2-ec79-4e62-8b74-cb18e0f5c9ad"],
+Cell[3976911, 70981, 107041, 1770, 285, "Output",ExpressionUUID->"f2f53598-2d1e-45c3-bac0-46e6898b0c7a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[4070482, 72347, 483, 9, 32, "Input",ExpressionUUID->"18f993ac-413d-4543-b822-64ad2f29865b"],
-Cell[4070968, 72358, 341108, 5923, 173, "Output",ExpressionUUID->"ece27216-4bd5-4271-84b7-5bad23d35c25"]
+Cell[4083989, 72756, 483, 9, 32, "Input",ExpressionUUID->"18f993ac-413d-4543-b822-64ad2f29865b"],
+Cell[4084475, 72767, 341108, 5923, 173, "Output",ExpressionUUID->"ece27216-4bd5-4271-84b7-5bad23d35c25"]
 }, Open  ]],
-Cell[4412091, 78284, 1126, 27, 94, "Input",ExpressionUUID->"0c7dafd8-df30-487c-8333-04e3e10d2833"]
+Cell[4425598, 78693, 1126, 27, 94, "Input",ExpressionUUID->"0c7dafd8-df30-487c-8333-04e3e10d2833"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[4413254, 78316, 206, 4, 30, "Subsection",ExpressionUUID->"ff39082a-03fc-42e8-9724-cba9e881655b"],
-Cell[4413463, 78322, 1703, 46, 75, "Input",ExpressionUUID->"872cc790-4f13-4d2d-99a7-abdf4436fa2c"],
-Cell[4415169, 78370, 1087, 18, 32, "Input",ExpressionUUID->"f17e49ae-1bb3-48f1-9b75-bbeb65878fdc"],
-Cell[4416259, 78390, 777, 17, 34, "Input",ExpressionUUID->"2b59e2ea-3c03-4c5d-ba00-f9025a081a2f"],
+Cell[4426761, 78725, 206, 4, 30, "Subsection",ExpressionUUID->"ff39082a-03fc-42e8-9724-cba9e881655b"],
+Cell[4426970, 78731, 1703, 46, 75, "Input",ExpressionUUID->"872cc790-4f13-4d2d-99a7-abdf4436fa2c"],
+Cell[4428676, 78779, 1087, 18, 32, "Input",ExpressionUUID->"f17e49ae-1bb3-48f1-9b75-bbeb65878fdc"],
+Cell[4429766, 78799, 777, 17, 34, "Input",ExpressionUUID->"2b59e2ea-3c03-4c5d-ba00-f9025a081a2f"],
 Cell[CellGroupData[{
-Cell[4417061, 78411, 1909, 41, 51, "Input",ExpressionUUID->"915061c0-7ec9-48b1-a951-8e51348a9795"],
-Cell[4418973, 78454, 13996, 243, 347, "Output",ExpressionUUID->"ae6df378-7dfd-40c9-939c-9d5b4ec6638f"]
+Cell[4430568, 78820, 1909, 41, 51, "Input",ExpressionUUID->"915061c0-7ec9-48b1-a951-8e51348a9795"],
+Cell[4432480, 78863, 13996, 243, 347, "Output",ExpressionUUID->"ae6df378-7dfd-40c9-939c-9d5b4ec6638f"]
 }, Open  ]],
-Cell[4432984, 78700, 316, 8, 22, "Input",ExpressionUUID->"86708862-7b81-4d16-95d3-4da6365a6038"],
-Cell[4433303, 78710, 2286, 50, 41, "Input",ExpressionUUID->"9de20adc-add5-4dad-bd65-1e8498717078"],
+Cell[4446491, 79109, 316, 8, 22, "Input",ExpressionUUID->"86708862-7b81-4d16-95d3-4da6365a6038"],
+Cell[4446810, 79119, 2286, 50, 41, "Input",ExpressionUUID->"9de20adc-add5-4dad-bd65-1e8498717078"],
 Cell[CellGroupData[{
-Cell[4435614, 78764, 2569, 60, 69, "Input",ExpressionUUID->"e528bc83-fedd-4cb7-a7e2-7fb607978acf"],
-Cell[4438186, 78826, 14285, 247, 347, "Output",ExpressionUUID->"ad7bcb98-8477-470d-bcaa-10ce0b7c9b78"]
+Cell[4449121, 79173, 2569, 60, 69, "Input",ExpressionUUID->"e528bc83-fedd-4cb7-a7e2-7fb607978acf"],
+Cell[4451693, 79235, 14285, 247, 347, "Output",ExpressionUUID->"ad7bcb98-8477-470d-bcaa-10ce0b7c9b78"]
 }, Open  ]],
-Cell[4452486, 79076, 848, 17, 32, "Input",ExpressionUUID->"ef6f487a-9ee3-4aa0-b539-506a622a13b7"],
+Cell[4465993, 79485, 848, 17, 32, "Input",ExpressionUUID->"ef6f487a-9ee3-4aa0-b539-506a622a13b7"],
 Cell[CellGroupData[{
-Cell[4453359, 79097, 1354, 26, 34, "Input",ExpressionUUID->"0db98d0e-b92d-4ab8-bb66-61f53b411000"],
-Cell[4454716, 79125, 419984, 6897, 307, 358233, 5888, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"4448b1c5-f92d-40eb-a8db-f496e7b807d5"]
+Cell[4466866, 79506, 1354, 26, 34, "Input",ExpressionUUID->"0db98d0e-b92d-4ab8-bb66-61f53b411000"],
+Cell[4468223, 79534, 419984, 6897, 307, 358233, 5888, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"4448b1c5-f92d-40eb-a8db-f496e7b807d5"]
 }, Open  ]],
-Cell[4874715, 86025, 815, 23, 50, "Input",ExpressionUUID->"40263386-cd9f-4a8d-b927-488a1cae2843"],
+Cell[4888222, 86434, 815, 23, 50, "Input",ExpressionUUID->"40263386-cd9f-4a8d-b927-488a1cae2843"],
 Cell[CellGroupData[{
-Cell[4875555, 86052, 2207, 42, 48, "Input",ExpressionUUID->"994154ba-91be-43cc-9ca0-50745729e383"],
-Cell[4877765, 86096, 358003, 5884, 149, "Output",ExpressionUUID->"07cfbe24-8bb7-4552-9ac8-738d390f672a"]
+Cell[4889062, 86461, 2207, 42, 48, "Input",ExpressionUUID->"994154ba-91be-43cc-9ca0-50745729e383"],
+Cell[4891272, 86505, 358003, 5884, 149, "Output",ExpressionUUID->"07cfbe24-8bb7-4552-9ac8-738d390f672a"]
 }, Open  ]],
-Cell[5235783, 91983, 1409, 22, 32, "Input",ExpressionUUID->"1ac93f6b-d483-4656-bc4e-cafae8d64928"],
-Cell[5237195, 92007, 2071, 44, 34, "Input",ExpressionUUID->"d2e3e89b-cb75-4677-a2b4-af80e6a5cf38"],
+Cell[5249290, 92392, 1409, 22, 32, "Input",ExpressionUUID->"1ac93f6b-d483-4656-bc4e-cafae8d64928"],
+Cell[5250702, 92416, 2071, 44, 34, "Input",ExpressionUUID->"d2e3e89b-cb75-4677-a2b4-af80e6a5cf38"],
 Cell[CellGroupData[{
-Cell[5239291, 92055, 1909, 41, 51, "Input",ExpressionUUID->"a785d57d-9736-407c-9be9-66c6d1d785c7"],
-Cell[5241203, 92098, 32217, 538, 347, "Output",ExpressionUUID->"2caada46-0843-457d-a170-357a9a7481a1"]
+Cell[5252798, 92464, 1909, 41, 51, "Input",ExpressionUUID->"a785d57d-9736-407c-9be9-66c6d1d785c7"],
+Cell[5254710, 92507, 32217, 538, 347, "Output",ExpressionUUID->"2caada46-0843-457d-a170-357a9a7481a1"]
 }, Open  ]],
-Cell[5273435, 92639, 317, 8, 32, "Input",ExpressionUUID->"f7d8a0e0-db54-4a86-97a2-09b9bb47639b"],
+Cell[5286942, 93048, 317, 8, 32, "Input",ExpressionUUID->"f7d8a0e0-db54-4a86-97a2-09b9bb47639b"],
 Cell[CellGroupData[{
-Cell[5273777, 92651, 2391, 56, 51, "Input",ExpressionUUID->"670190eb-97cf-48ad-b575-b3100869cb93"],
-Cell[5276171, 92709, 163, 3, 35, "Output",ExpressionUUID->"9614366c-81bb-45ec-b964-0e0e0ad29594"]
+Cell[5287284, 93060, 2391, 56, 51, "Input",ExpressionUUID->"670190eb-97cf-48ad-b575-b3100869cb93"],
+Cell[5289678, 93118, 163, 3, 35, "Output",ExpressionUUID->"9614366c-81bb-45ec-b964-0e0e0ad29594"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[5276371, 92717, 2628, 61, 69, "Input",ExpressionUUID->"578ccac6-7b17-4583-9281-66874ba9b897"],
-Cell[5279002, 92780, 310746, 5114, 347, "Output",ExpressionUUID->"a36635e8-35f6-4104-9ddd-7e6765640763"]
+Cell[5289878, 93126, 2628, 61, 69, "Input",ExpressionUUID->"578ccac6-7b17-4583-9281-66874ba9b897"],
+Cell[5292509, 93189, 310746, 5114, 347, "Output",ExpressionUUID->"a36635e8-35f6-4104-9ddd-7e6765640763"]
 }, Open  ]],
-Cell[5589763, 97897, 848, 17, 32, "Input",ExpressionUUID->"a515cac5-2419-4e69-aff7-acf2ed64e535"],
+Cell[5603270, 98306, 848, 17, 32, "Input",ExpressionUUID->"a515cac5-2419-4e69-aff7-acf2ed64e535"],
 Cell[CellGroupData[{
-Cell[5590636, 97918, 1407, 27, 34, "Input",ExpressionUUID->"f89589c3-3d58-45c8-9cc4-1a567916cd3b"],
-Cell[5592046, 97947, 844305, 13854, 307, 774892, 12719, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"c3269c9c-69b3-4062-b68f-a95fff61a8a0"]
+Cell[5604143, 98327, 1407, 27, 34, "Input",ExpressionUUID->"f89589c3-3d58-45c8-9cc4-1a567916cd3b"],
+Cell[5605553, 98356, 844305, 13854, 307, 774892, 12719, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"c3269c9c-69b3-4062-b68f-a95fff61a8a0"]
 }, Open  ]],
-Cell[6436366, 111804, 815, 23, 50, "Input",ExpressionUUID->"584b6c8b-947f-4280-9a9c-7ab2728cd4b7"],
+Cell[6449873, 112213, 815, 23, 50, "Input",ExpressionUUID->"584b6c8b-947f-4280-9a9c-7ab2728cd4b7"],
 Cell[CellGroupData[{
-Cell[6437206, 111831, 2256, 43, 48, "Input",ExpressionUUID->"7a622b9e-63d1-4073-8620-2e390e4d56bd"],
-Cell[6439465, 111876, 775848, 12732, 149, "Output",ExpressionUUID->"a5929508-bb48-4ae7-801d-ef15353cd8a5"]
+Cell[6450713, 112240, 2256, 43, 48, "Input",ExpressionUUID->"7a622b9e-63d1-4073-8620-2e390e4d56bd"],
+Cell[6452972, 112285, 775848, 12732, 149, "Output",ExpressionUUID->"a5929508-bb48-4ae7-801d-ef15353cd8a5"]
 }, Open  ]],
-Cell[7215328, 124611, 1265, 20, 32, "Input",ExpressionUUID->"1279116c-b8f2-4194-8e00-9b87de7fafc1"],
-Cell[7216596, 124633, 1227, 23, 34, "Input",ExpressionUUID->"688a0262-2b92-4767-b6a0-a7ab57785dd5"],
+Cell[7228835, 125020, 1265, 20, 32, "Input",ExpressionUUID->"1279116c-b8f2-4194-8e00-9b87de7fafc1"],
+Cell[7230103, 125042, 1227, 23, 34, "Input",ExpressionUUID->"688a0262-2b92-4767-b6a0-a7ab57785dd5"],
 Cell[CellGroupData[{
-Cell[7217848, 124660, 1909, 41, 51, "Input",ExpressionUUID->"7b28ee65-27f8-40ed-bf5a-2c6229b02c78"],
-Cell[7219760, 124703, 46135, 767, 347, "Output",ExpressionUUID->"180ac065-27ef-4776-b558-76f7597fd1ee"]
+Cell[7231355, 125069, 1909, 41, 51, "Input",ExpressionUUID->"7b28ee65-27f8-40ed-bf5a-2c6229b02c78"],
+Cell[7233267, 125112, 46135, 767, 347, "Output",ExpressionUUID->"180ac065-27ef-4776-b558-76f7597fd1ee"]
 }, Open  ]],
-Cell[7265910, 125473, 317, 8, 32, "Input",ExpressionUUID->"50438997-f114-4b8b-83c6-e67ca9b7e429"],
-Cell[7266230, 125483, 2391, 56, 51, "Input",ExpressionUUID->"aafce7b8-b8e2-4255-859e-2bebf7b5dd40"],
+Cell[7279417, 125882, 317, 8, 32, "Input",ExpressionUUID->"50438997-f114-4b8b-83c6-e67ca9b7e429"],
+Cell[7279737, 125892, 2391, 56, 51, "Input",ExpressionUUID->"aafce7b8-b8e2-4255-859e-2bebf7b5dd40"],
 Cell[CellGroupData[{
-Cell[7268646, 125543, 2630, 61, 69, "Input",ExpressionUUID->"d45cf1f7-16f4-4251-867f-ff147ecc1778"],
-Cell[7271279, 125606, 433310, 7100, 347, "Output",ExpressionUUID->"bd43cb41-d934-4901-91ce-dec971974388"]
+Cell[7282153, 125952, 2630, 61, 69, "Input",ExpressionUUID->"d45cf1f7-16f4-4251-867f-ff147ecc1778"],
+Cell[7284786, 126015, 433310, 7100, 347, "Output",ExpressionUUID->"bd43cb41-d934-4901-91ce-dec971974388"]
 }, Open  ]],
-Cell[7704604, 132709, 848, 17, 32, "Input",ExpressionUUID->"5e0a11d4-d1a3-463e-bf85-4b09ff4c0c8a"],
+Cell[7718111, 133118, 848, 17, 32, "Input",ExpressionUUID->"5e0a11d4-d1a3-463e-bf85-4b09ff4c0c8a"],
 Cell[CellGroupData[{
-Cell[7705477, 132730, 1405, 27, 34, "Input",ExpressionUUID->"a02bfbf7-592f-4630-9ac2-7d5b228ca3e4"],
-Cell[7706885, 132759, 1031489, 16922, 307, 952316, 15627, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"3ee6ae3f-4ad6-4b1d-987f-39614afffaa9"]
+Cell[7718984, 133139, 1405, 27, 34, "Input",ExpressionUUID->"a02bfbf7-592f-4630-9ac2-7d5b228ca3e4"],
+Cell[7720392, 133168, 1031489, 16922, 307, 952316, 15627, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"3ee6ae3f-4ad6-4b1d-987f-39614afffaa9"]
 }, Open  ]],
-Cell[8738389, 149684, 815, 23, 50, "Input",ExpressionUUID->"39c89a8e-de47-4cbf-ba81-18f3b1bb6a70"],
+Cell[8751896, 150093, 815, 23, 50, "Input",ExpressionUUID->"39c89a8e-de47-4cbf-ba81-18f3b1bb6a70"],
 Cell[CellGroupData[{
-Cell[8739229, 149711, 2252, 43, 48, "Input",ExpressionUUID->"e3a82b76-34e1-48a9-af29-c235bf785e99"],
-Cell[8741484, 149756, 953294, 15640, 149, "Output",ExpressionUUID->"0fc78e08-902b-4acc-934c-19ffc55c734f"]
+Cell[8752736, 150120, 2252, 43, 48, "Input",ExpressionUUID->"e3a82b76-34e1-48a9-af29-c235bf785e99"],
+Cell[8754991, 150165, 953294, 15640, 149, "Output",ExpressionUUID->"0fc78e08-902b-4acc-934c-19ffc55c734f"]
 }, Open  ]],
-Cell[9694793, 165399, 1113, 18, 22, "Input",ExpressionUUID->"b4b2f41d-2e37-47da-9ba6-562bb35857f8"],
-Cell[9695909, 165419, 577, 16, 34, "Input",ExpressionUUID->"94331b49-df2d-48dc-9c78-a542603df328"],
+Cell[9708300, 165808, 1113, 18, 22, "Input",ExpressionUUID->"b4b2f41d-2e37-47da-9ba6-562bb35857f8"],
+Cell[9709416, 165828, 577, 16, 34, "Input",ExpressionUUID->"94331b49-df2d-48dc-9c78-a542603df328"],
 Cell[CellGroupData[{
-Cell[9696511, 165439, 2252, 46, 51, "Input",ExpressionUUID->"fa6551ed-ab50-40f7-9b77-8b6ae3f11f33"],
-Cell[9698766, 165487, 313400, 5140, 347, "Output",ExpressionUUID->"3dde7f3a-cb24-4cb6-a768-6553c9c8ec1c"]
+Cell[9710018, 165848, 2252, 46, 51, "Input",ExpressionUUID->"fa6551ed-ab50-40f7-9b77-8b6ae3f11f33"],
+Cell[9712273, 165896, 313400, 5140, 347, "Output",ExpressionUUID->"3dde7f3a-cb24-4cb6-a768-6553c9c8ec1c"]
 }, Open  ]],
-Cell[10012181, 170630, 254, 7, 32, "Input",ExpressionUUID->"c0e2215b-6c8a-4d76-b692-b351b0f9c2ee"],
-Cell[10012438, 170639, 2061, 49, 51, "Input",ExpressionUUID->"e1ec0204-d79b-43d2-91be-5ef87bf83dbf"],
+Cell[10025688, 171039, 254, 7, 32, "Input",ExpressionUUID->"c0e2215b-6c8a-4d76-b692-b351b0f9c2ee"],
+Cell[10025945, 171048, 2061, 49, 51, "Input",ExpressionUUID->"e1ec0204-d79b-43d2-91be-5ef87bf83dbf"],
 Cell[CellGroupData[{
-Cell[10014524, 170692, 1830, 37, 32, "Input",ExpressionUUID->"d982051e-8a3f-46b8-b9a6-c5fd1fb15b3c"],
-Cell[10016357, 170731, 313116, 5137, 347, "Output",ExpressionUUID->"3f694976-0d88-4e4f-a835-6f7ec98dba7a"]
+Cell[10028031, 171101, 1830, 37, 32, "Input",ExpressionUUID->"d982051e-8a3f-46b8-b9a6-c5fd1fb15b3c"],
+Cell[10029864, 171140, 313116, 5137, 347, "Output",ExpressionUUID->"3f694976-0d88-4e4f-a835-6f7ec98dba7a"]
 }, Open  ]],
-Cell[10329488, 175871, 795, 16, 32, "Input",ExpressionUUID->"655b3958-406c-4270-9fe9-daeb72feaa1a"],
+Cell[10342995, 176280, 795, 16, 32, "Input",ExpressionUUID->"655b3958-406c-4270-9fe9-daeb72feaa1a"],
 Cell[CellGroupData[{
-Cell[10330308, 175891, 1355, 26, 34, "Input",ExpressionUUID->"64a83c48-1333-4bf5-8046-beea10bc8ca9"],
-Cell[10331666, 175919, 689933, 11326, 268, 628019, 10312, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"141a4cf8-ce64-4583-b1fb-ae404dca919f"]
+Cell[10343815, 176300, 1355, 26, 34, "Input",ExpressionUUID->"64a83c48-1333-4bf5-8046-beea10bc8ca9"],
+Cell[10345173, 176328, 689933, 11326, 268, 628019, 10312, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"141a4cf8-ce64-4583-b1fb-ae404dca919f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[11021636, 187250, 1801, 36, 48, "Input",ExpressionUUID->"4af7039e-624b-403a-a217-39596557d073"],
-Cell[11023440, 187288, 628211, 10312, 149, "Output",ExpressionUUID->"7fa55d72-b785-4e16-b377-7e15f811c0b8"]
+Cell[11035143, 187659, 1801, 36, 48, "Input",ExpressionUUID->"4af7039e-624b-403a-a217-39596557d073"],
+Cell[11036947, 187697, 628211, 10312, 149, "Output",ExpressionUUID->"7fa55d72-b785-4e16-b377-7e15f811c0b8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[11651688, 197605, 950, 25, 48, "Input",ExpressionUUID->"b138cba4-9273-4e2b-a292-61ce9cfdc73c"],
-Cell[11652641, 197632, 649, 15, 149, "Output",ExpressionUUID->"944d8b2d-294a-46cc-88bf-59d8cb367292"]
+Cell[11665195, 198014, 950, 25, 48, "Input",ExpressionUUID->"b138cba4-9273-4e2b-a292-61ce9cfdc73c"],
+Cell[11666148, 198041, 649, 15, 149, "Output",ExpressionUUID->"944d8b2d-294a-46cc-88bf-59d8cb367292"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[11653327, 197652, 4013, 107, 92, "Input",ExpressionUUID->"9edd1e7c-f2f3-43e3-9815-eefb0715d66a"],
-Cell[11657343, 197761, 2374, 61, 48, "Output",ExpressionUUID->"d4dfa7f2-94fe-4ea7-be34-a9f88e32595a"]
+Cell[11666834, 198061, 4013, 107, 92, "Input",ExpressionUUID->"9edd1e7c-f2f3-43e3-9815-eefb0715d66a"],
+Cell[11670850, 198170, 2374, 61, 48, "Output",ExpressionUUID->"d4dfa7f2-94fe-4ea7-be34-a9f88e32595a"]
 }, Open  ]],
-Cell[11659732, 197825, 1235, 31, 110, "Input",ExpressionUUID->"812cdae8-d5de-418f-b2d9-e9ede64c5cca"]
+Cell[11673239, 198234, 1235, 31, 110, "Input",ExpressionUUID->"812cdae8-d5de-418f-b2d9-e9ede64c5cca"]
 }, Closed]]
 }, Open  ]]
 }