Work.

1 files changed, 349 insertions, 798 deletions

diff --git a/new_schofield.nb b/new_schofield.nb
index 578be9d..c1ff7b4 100644
--- a/new_schofield.nb
+++ b/new_schofield.nb
@@ -10,572 +10,24 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[   3372707,      64861]
-NotebookOptionsPosition[   3346795,      64441]
-NotebookOutlinePosition[   3347192,      64457]
-CellTagsIndexPosition[   3347149,      64454]
+NotebookDataLength[   3356630,      64412]
+NotebookOptionsPosition[   3331850,      64012]
+NotebookOutlinePosition[   3332245,      64028]
+CellTagsIndexPosition[   3332202,      64025]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
 Notebook[{
 Cell[BoxData[
  RowBox[{"Get", "[", 
-  "\"\<~/doc/research/first_order_singularities/mma/schofield.wl\>\"", 
+  "\"\<~/wopr/doc/research/first_order_singularities/mma/schofield.wl\>\"", 
   "]"}]], "Input",
  CellChangeTimes->{{3.817548726786456*^9, 3.817548838429791*^9}, {
    3.817579586526174*^9, 3.817579588547625*^9}, {3.8176251109891653`*^9, 
    3.817625112168749*^9}, {3.8176254615736647`*^9, 3.817625462650483*^9}, 
-   3.827832304560932*^9},
- CellLabel->"In[1]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"\[Chi]test", "=", 
-   RowBox[{
-    RowBox[{
-     RowBox[{"chiSquaredLow", "[", 
-      RowBox[{"F1", ",", "h1"}], "]"}], "[", "2", "]"}], "+", 
-    RowBox[{
-     RowBox[{"chiSquaredHigh", "[", 
-      RowBox[{"F1", ",", "h1"}], "]"}], "[", "2", "]"}]}]}], ";"}]], "Input",
- CellChangeTimes->{{3.827565669415009*^9, 3.827565681349867*^9}, {
-  3.827565717054747*^9, 3.827565717166445*^9}, {3.827566064789501*^9, 
-  3.827566065772564*^9}, {3.827566262984758*^9, 3.8275662824407663`*^9}},
- CellLabel->
-  "In[756]:=",ExpressionUUID->"f517bdfe-b224-46a9-84c4-43cc14736dd8"],
-
-Cell[BoxData["$Aborted"], "Output",
- CellChangeTimes->{3.827569924057289*^9},
- CellLabel->
-  "Out[756]=",ExpressionUUID->"b5574aa2-61a2-490e-9b1a-552e802f125e"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["\[Chi]test"], "Input",
- CellChangeTimes->{{3.8275663448605137`*^9, 3.8275663512579603`*^9}},
- CellLabel->
-  "In[754]:=",ExpressionUUID->"9ea1bfae-d761-4f3b-ab51-5a520b5cba7c"],
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"1.`*^32", " ", 
-   SuperscriptBox[
-    RowBox[{"(", 
-     RowBox[{"0.`", "\[VeryThinSpace]", "+", 
-      FractionBox[
-       RowBox[{
-        RowBox[{"-", 
-         RowBox[{"ff", "[", "\[Theta]c", "]"}]}], "+", 
-        FractionBox[
-         RowBox[{
-          SuperscriptBox[
-           RowBox[{"(", 
-            RowBox[{
-             RowBox[{"-", "1"}], "+", 
-             SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"], " ", 
-          RowBox[{"Log", "[", 
-           RowBox[{
-            RowBox[{"-", "1"}], "+", 
-            SuperscriptBox["\[Theta]c", "2"]}], "]"}]}], 
-         RowBox[{"4", " ", "\[Pi]"}]]}], 
-       SuperscriptBox[
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"]]}], ")"}], "2"]}], 
-  "+", 
-  RowBox[{"1.`*^32", " ", 
-   SuperscriptBox[
-    RowBox[{"(", 
-     RowBox[{
-      RowBox[{"-", "1.357838341706595496`18.132848067820845"}], "+", 
-      FractionBox[
-       RowBox[{
-        RowBox[{"-", "\[Theta]c"}], "+", 
-        RowBox[{"2", " ", 
-         SuperscriptBox["\[Theta]c", "3"]}], "-", 
-        SuperscriptBox["\[Theta]c", "5"], "-", 
-        RowBox[{"8", " ", "\[Pi]", " ", "\[Theta]c", " ", 
-         RowBox[{"ff", "[", "\[Theta]c", "]"}]}], "-", 
-        RowBox[{"2", " ", "\[Pi]", " ", 
-         RowBox[{
-          SuperscriptBox["ff", "\[Prime]",
-           MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-        RowBox[{"2", " ", "\[Pi]", " ", 
-         SuperscriptBox["\[Theta]c", "2"], " ", 
-         RowBox[{
-          SuperscriptBox["ff", "\[Prime]",
-           MultilineFunction->None], "[", "\[Theta]c", "]"}]}]}], 
-       RowBox[{"4", " ", "\[Pi]", " ", 
-        SuperscriptBox[
-         RowBox[{"(", 
-          RowBox[{
-           RowBox[{"-", "1"}], "+", 
-           SuperscriptBox["\[Theta]c", "2"]}], ")"}], 
-         RowBox[{"9", "/", "8"}]], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          RowBox[{
-           SuperscriptBox["\[Theta]c", "2"], " ", 
-           RowBox[{"gC", "[", "1", "]"}]}], "+", 
-          RowBox[{
-           SuperscriptBox["\[Theta]c", "4"], " ", 
-           RowBox[{"gC", "[", "2", "]"}]}]}], ")"}]}]]}], ")"}], "2"]}], "+", 
-  
-  RowBox[{"2.5`*^21", " ", 
-   SuperscriptBox[
-    RowBox[{"(", 
-     RowBox[{
-      RowBox[{"-", "3.69045615646`"}], "-", 
-      FractionBox[
-       RowBox[{"1", "+", 
-        RowBox[{"8", " ", "\[Pi]", " ", 
-         RowBox[{"Gh", "[", "0", "]"}]}], "+", 
-        RowBox[{"2", " ", "\[Pi]", " ", 
-         RowBox[{
-          SuperscriptBox["ff", "\[Prime]\[Prime]",
-           MultilineFunction->None], "[", "0", "]"}]}]}], 
-       RowBox[{"2", " ", "\[Pi]"}]]}], ")"}], "2"]}], "+", 
-  RowBox[{"6.250000000000001`*^22", " ", 
-   SuperscriptBox[
-    RowBox[{"(", 
-     RowBox[{
-      RowBox[{"-", "0.09790657944`"}], "+", 
-      RowBox[{
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"4", " ", "\[Theta]c"}], "-", 
-         SuperscriptBox["\[Theta]c", "3"], "-", 
-         RowBox[{"10", " ", 
-          SuperscriptBox["\[Theta]c", "5"]}], "+", 
-         RowBox[{"7", " ", 
-          SuperscriptBox["\[Theta]c", "7"]}], "+", 
-         RowBox[{"32", " ", "\[Pi]", " ", "\[Theta]c", " ", 
-          RowBox[{"ff", "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"8", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "3"], " ", 
-          RowBox[{"ff", "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"12", " ", 
-          SuperscriptBox["\[Theta]c", "3"], " ", 
-          RowBox[{"gC", "[", "1", "]"}]}], "-", 
-         RowBox[{"25", " ", 
-          SuperscriptBox["\[Theta]c", "5"], " ", 
-          RowBox[{"gC", "[", "1", "]"}]}], "+", 
-         RowBox[{"14", " ", 
-          SuperscriptBox["\[Theta]c", "7"], " ", 
-          RowBox[{"gC", "[", "1", "]"}]}], "-", 
-         RowBox[{
-          SuperscriptBox["\[Theta]c", "9"], " ", 
-          RowBox[{"gC", "[", "1", "]"}]}], "+", 
-         RowBox[{"96", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "3"], " ", 
-          RowBox[{"ff", "[", "\[Theta]c", "]"}], " ", 
-          RowBox[{"gC", "[", "1", "]"}]}], "-", 
-         RowBox[{"72", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "5"], " ", 
-          RowBox[{"ff", "[", "\[Theta]c", "]"}], " ", 
-          RowBox[{"gC", "[", "1", "]"}]}], "+", 
-         RowBox[{"20", " ", 
-          SuperscriptBox["\[Theta]c", "5"], " ", 
-          RowBox[{"gC", "[", "2", "]"}]}], "-", 
-         RowBox[{"49", " ", 
-          SuperscriptBox["\[Theta]c", "7"], " ", 
-          RowBox[{"gC", "[", "2", "]"}]}], "+", 
-         RowBox[{"38", " ", 
-          SuperscriptBox["\[Theta]c", "9"], " ", 
-          RowBox[{"gC", "[", "2", "]"}]}], "-", 
-         RowBox[{"9", " ", 
-          SuperscriptBox["\[Theta]c", "11"], " ", 
-          RowBox[{"gC", "[", "2", "]"}]}], "+", 
-         RowBox[{"160", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "5"], " ", 
-          RowBox[{"ff", "[", "\[Theta]c", "]"}], " ", 
-          RowBox[{"gC", "[", "2", "]"}]}], "-", 
-         RowBox[{"136", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "7"], " ", 
-          RowBox[{"ff", "[", "\[Theta]c", "]"}], " ", 
-          RowBox[{"gC", "[", "2", "]"}]}], "+", 
-         RowBox[{"12", " ", "\[Pi]", " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"26", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "2"], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"14", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "4"], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"28", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "2"], " ", 
-          RowBox[{"gC", "[", "1", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"58", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "4"], " ", 
-          RowBox[{"gC", "[", "1", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"30", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "6"], " ", 
-          RowBox[{"gC", "[", "1", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"44", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "4"], " ", 
-          RowBox[{"gC", "[", "2", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"90", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "6"], " ", 
-          RowBox[{"gC", "[", "2", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"46", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "8"], " ", 
-          RowBox[{"gC", "[", "2", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"4", " ", "\[Pi]", " ", "\[Theta]c", " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"8", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "3"], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"4", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "5"], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"4", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "3"], " ", 
-          RowBox[{"gC", "[", "1", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"8", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "5"], " ", 
-          RowBox[{"gC", "[", "1", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"4", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "7"], " ", 
-          RowBox[{"gC", "[", "1", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"4", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "5"], " ", 
-          RowBox[{"gC", "[", "2", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-         RowBox[{"8", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "7"], " ", 
-          RowBox[{"gC", "[", "2", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "-", 
-         RowBox[{"4", " ", "\[Pi]", " ", 
-          SuperscriptBox["\[Theta]c", "9"], " ", 
-          RowBox[{"gC", "[", "2", "]"}], " ", 
-          RowBox[{
-           SuperscriptBox["ff", "\[Prime]\[Prime]",
-            MultilineFunction->None], "[", "\[Theta]c", "]"}]}]}], ")"}], "/", 
-       RowBox[{"(", 
-        RowBox[{"16", " ", "\[Pi]", " ", "\[Theta]c", " ", 
-         SuperscriptBox[
-          RowBox[{"(", 
-           RowBox[{
-            RowBox[{"-", "1"}], "+", 
-            SuperscriptBox["\[Theta]c", "2"]}], ")"}], 
-          RowBox[{"1", "/", "4"}]], " ", 
-         SuperscriptBox[
-          RowBox[{"(", 
-           RowBox[{"1", "+", 
-            RowBox[{
-             SuperscriptBox["\[Theta]c", "2"], " ", 
-             RowBox[{"gC", "[", "1", "]"}]}], "+", 
-            RowBox[{
-             SuperscriptBox["\[Theta]c", "4"], " ", 
-             RowBox[{"gC", "[", "2", "]"}]}]}], ")"}], "3"]}], ")"}]}]}], 
-     ")"}], "2"]}]}]], "Output",
- CellChangeTimes->{{3.827566347690093*^9, 3.8275663514676943`*^9}},
- CellLabel->
-  "Out[754]=",ExpressionUUID->"96688e91-f788-45ee-bc74-efc47d54e3df"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{
-  RowBox[{"eqLow", "[", 
-   RowBox[{"ff", ",", "h1"}], "]"}], "/@", 
-  RowBox[{"{", 
-   RowBox[{"0", ",", "1"}], "}"}]}]], "Input",
- CellChangeTimes->{{3.827565968563572*^9, 3.8275659695310907`*^9}},
- CellLabel->
-  "In[739]:=",ExpressionUUID->"7cdeeabd-541a-42e8-bef1-92e6f7d3e8e6"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{
-   RowBox[{
-    RowBox[{"ff", "[", "\[Theta]c", "]"}], "-", 
-    RowBox[{
-     SuperscriptBox[
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"], " ", 
-     RowBox[{"(", 
-      RowBox[{
-       RowBox[{"Gl", "[", "0", "]"}], "+", 
-       FractionBox[
-        RowBox[{"Log", "[", 
-         SuperscriptBox[
-          RowBox[{"(", 
-           RowBox[{
-            RowBox[{"-", "1"}], "+", 
-            SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"], "]"}], 
-        RowBox[{"8", " ", "\[Pi]"}]]}], ")"}]}]}], ",", 
-   RowBox[{
-    RowBox[{
-     RowBox[{"-", "4"}], " ", "\[Theta]c", " ", 
-     RowBox[{"(", 
-      RowBox[{
-       RowBox[{"-", "1"}], "+", 
-       SuperscriptBox["\[Theta]c", "2"]}], ")"}], " ", 
-     RowBox[{"(", 
-      RowBox[{
-       RowBox[{"Gl", "[", "0", "]"}], "+", 
-       FractionBox[
-        RowBox[{"Log", "[", 
-         SuperscriptBox[
-          RowBox[{"(", 
-           RowBox[{
-            RowBox[{"-", "1"}], "+", 
-            SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"], "]"}], 
-        RowBox[{"8", " ", "\[Pi]"}]]}], ")"}]}], "+", 
-    RowBox[{
-     SuperscriptBox["ff", "\[Prime]",
-      MultilineFunction->None], "[", "\[Theta]c", "]"}], "-", 
-    RowBox[{
-     SuperscriptBox[
-      RowBox[{"(", 
-       RowBox[{
-        RowBox[{"-", "1"}], "+", 
-        SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"], " ", 
-     RowBox[{"(", 
-      RowBox[{
-       FractionBox["\[Theta]c", 
-        RowBox[{"2", " ", "\[Pi]", " ", 
-         RowBox[{"(", 
-          RowBox[{
-           RowBox[{"-", "1"}], "+", 
-           SuperscriptBox["\[Theta]c", "2"]}], ")"}]}]], "-", 
-       FractionBox[
-        RowBox[{"2", " ", 
-         RowBox[{"(", 
-          RowBox[{"\[Theta]c", "+", 
-           RowBox[{
-            SuperscriptBox["\[Theta]c", "3"], " ", 
-            RowBox[{"gC", "[", "1", "]"}]}], "+", 
-           RowBox[{
-            SuperscriptBox["\[Theta]c", "5"], " ", 
-            RowBox[{"gC", "[", "2", "]"}]}]}], ")"}], " ", 
-         RowBox[{
-          SuperscriptBox["Gl", "\[Prime]",
-           MultilineFunction->None], "[", "0", "]"}]}], 
-        RowBox[{"\[Theta]c", " ", 
-         SuperscriptBox[
-          RowBox[{"(", 
-           RowBox[{
-            RowBox[{"-", "1"}], "+", 
-            SuperscriptBox["\[Theta]c", "2"]}], ")"}], 
-          RowBox[{"15", "/", "8"}]]}]]}], ")"}]}]}]}], "}"}]], "Output",
- CellChangeTimes->{3.8275659209900084`*^9, 3.827565969758255*^9},
- CellLabel->
-  "Out[739]=",ExpressionUUID->"8094a485-4883-4b23-a867-d223f1dfafe7"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Solve", "[", 
-  RowBox[{
-   RowBox[{"0", "==", 
-    RowBox[{
-     RowBox[{"eqLow", "[", 
-      RowBox[{"ff", ",", "h1"}], "]"}], "/@", 
-     RowBox[{"{", 
-      RowBox[{"0", ",", "1"}], "}"}]}]}], ",", 
-   RowBox[{"{", 
-    RowBox[{
-     RowBox[{"Gl", "[", "0", "]"}], ",", " ", 
-     RowBox[{
-      RowBox[{"Gl", "'"}], "[", "0", "]"}]}], "}"}]}], "]"}]], "Input",
- CellChangeTimes->{{3.82756584847416*^9, 3.8275658938816233`*^9}, {
-  3.827565974659996*^9, 3.8275660007076178`*^9}},
- CellLabel->
-  "In[741]:=",ExpressionUUID->"38ae1d30-b053-4304-ade7-d30f84fe8f8b"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"{", 
-   RowBox[{
-    RowBox[{
-     RowBox[{"Gl", "[", "0", "]"}], "\[Rule]", 
-     RowBox[{"-", 
-      FractionBox[
-       RowBox[{
-        RowBox[{"-", 
-         RowBox[{"ff", "[", "\[Theta]c", "]"}]}], "+", 
-        FractionBox[
-         RowBox[{
-          SuperscriptBox[
-           RowBox[{"(", 
-            RowBox[{
-             RowBox[{"-", "1"}], "+", 
-             SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"], " ", 
-          RowBox[{"Log", "[", 
-           RowBox[{
-            RowBox[{"-", "1"}], "+", 
-            SuperscriptBox["\[Theta]c", "2"]}], "]"}]}], 
-         RowBox[{"4", " ", "\[Pi]"}]]}], 
-       SuperscriptBox[
-        RowBox[{"(", 
-         RowBox[{
-          RowBox[{"-", "1"}], "+", 
-          SuperscriptBox["\[Theta]c", "2"]}], ")"}], "2"]]}]}], ",", 
-    RowBox[{
-     RowBox[{
-      SuperscriptBox["Gl", "\[Prime]",
-       MultilineFunction->None], "[", "0", "]"}], "\[Rule]", 
-     RowBox[{"-", 
-      FractionBox[
-       RowBox[{
-        RowBox[{"-", "\[Theta]c"}], "+", 
-        RowBox[{"2", " ", 
-         SuperscriptBox["\[Theta]c", "3"]}], "-", 
-        SuperscriptBox["\[Theta]c", "5"], "-", 
-        RowBox[{"8", " ", "\[Pi]", " ", "\[Theta]c", " ", 
-         RowBox[{"ff", "[", "\[Theta]c", "]"}]}], "-", 
-        RowBox[{"2", " ", "\[Pi]", " ", 
-         RowBox[{
-          SuperscriptBox["ff", "\[Prime]",
-           MultilineFunction->None], "[", "\[Theta]c", "]"}]}], "+", 
-        RowBox[{"2", " ", "\[Pi]", " ", 
-         SuperscriptBox["\[Theta]c", "2"], " ", 
-         RowBox[{
-          SuperscriptBox["ff", "\[Prime]",
-           MultilineFunction->None], "[", "\[Theta]c", "]"}]}]}], 
-       RowBox[{"4", " ", "\[Pi]", " ", 
-        SuperscriptBox[
-         RowBox[{"(", 
-          RowBox[{
-           RowBox[{"-", "1"}], "+", 
-           SuperscriptBox["\[Theta]c", "2"]}], ")"}], 
-         RowBox[{"9", "/", "8"}]], " ", 
-        RowBox[{"(", 
-         RowBox[{"1", "+", 
-          RowBox[{
-           SuperscriptBox["\[Theta]c", "2"], " ", 
-           RowBox[{"gC", "[", "1", "]"}]}], "+", 
-          RowBox[{
-           SuperscriptBox["\[Theta]c", "4"], " ", 
-           RowBox[{"gC", "[", "2", "]"}]}]}], ")"}]}]]}]}]}], "}"}], 
-  "}"}]], "Output",
- CellChangeTimes->{{3.827565852437627*^9, 3.827565878029763*^9}, 
-   3.827565915803341*^9, {3.827565998107872*^9, 3.827566003101263*^9}},
- CellLabel->
-  "Out[741]=",ExpressionUUID->"efd0bdba-2329-4750-8425-f49992cbf205"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"Normal", "@", 
-  RowBox[{"Gls", "[", 
-   RowBox[{"[", "4", "]"}], "]"}]}]], "Input",
- CellChangeTimes->{{3.827564472608762*^9, 3.827564474216022*^9}, {
-  3.82756456276191*^9, 3.827564562857526*^9}, {3.827565278886752*^9, 
-  3.8275652795505533`*^9}},
- CellLabel->
-  "In[720]:=",ExpressionUUID->"ed1a5531-5687-4be8-a075-f2e147720c76"],
-
-Cell[BoxData[
- InterpretationBox[
-  TemplateBox[{"0.038863929", "00", "10"},
-   "AroundSeq"],
-  Around[0.038863929, 1.*^-10]]], "Output",
- CellChangeTimes->{{3.827564474358324*^9, 3.827564512345469*^9}, {
-   3.827564560457038*^9, 3.8275645636805153`*^9}, 3.827565011617725*^9, {
-   3.82756526449552*^9, 3.8275652796542807`*^9}},
- CellLabel->
-  "Out[720]=",ExpressionUUID->"7ea8a190-f6e5-4d13-a5f4-6c8eb2d99147"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData["Ghs"], "Input",
- CellChangeTimes->{{3.827565012754837*^9, 3.827565019049659*^9}},
- CellLabel->
-  "In[709]:=",ExpressionUUID->"37c4e369-c478-47e0-b5e2-1ea4506213dc"],
-
-Cell[BoxData[
- RowBox[{"{", 
-  RowBox[{"0", ",", "0", ",", 
-   RowBox[{"-", "1.845228078232838`"}], ",", "0", ",", 
-   InterpretationBox[
-    TemplateBox[{"8.333711750", "80", "10"},
-     "AroundSeq"],
-    Around[8.3337117508, 1.*^-10]], ",", "0", ",", 
-   InterpretationBox[
-    TemplateBox[{"-95.168970", "0.000010"},
-     "Around"],
-    Around[-95.16897, 0.00001]], ",", "0", ",", 
-   InterpretationBox[
-    TemplateBox[{"1457.620", "0.030"},
-     "Around"],
-    Around[1457.62, 0.03]], ",", "0", ",", 
-   InterpretationBox[
-    TemplateBox[{"-25891.0", "2.0"},
-     "Around"],
-    Around[-25891., 2.]], ",", "0", ",", "502000"}], "}"}]], "Output",
- CellChangeTimes->{{3.827565014344673*^9, 3.827565019305394*^9}},
- CellLabel->
-  "Out[709]=",ExpressionUUID->"e51eeaba-d150-4ea5-bbed-2e0bafd54960"]
-}, Open  ]],
-
-Cell[CellGroupData[{
-
-Cell[BoxData[
- RowBox[{"gC", "[", "0", "]"}]], "Input",
- CellChangeTimes->{{3.827832505789157*^9, 3.82783250886831*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"c221b261-8c58-4206-b8cc-264d3b968d09"],
-
-Cell[BoxData[
- RowBox[{"gC", "[", "0", "]"}]], "Output",
- CellChangeTimes->{{3.827832509027574*^9, 3.8278325184938297`*^9}},
- CellLabel->"Out[2]=",ExpressionUUID->"f91c8df7-b777-40fa-9107-ffe09ae6f085"]
-}, Open  ]],
+   3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, {
+   3.8278488730224733`*^9, 3.827848876357965*^9}},
+ CellLabel->"In[42]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
 
 Cell[CellGroupData[{
 
@@ -584,6 +36,8 @@ Cell["Definitions", "Section",
   3.817119834596055*^9}},ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-\
 ec66b9fbf698"],
 
+Cell[CellGroupData[{
+
 Cell[BoxData[{
  RowBox[{
   RowBox[{"F1", "=", 
@@ -595,6 +49,12 @@ Cell[BoxData[{
   RowBox[{"eq1", "=", 
    RowBox[{
     RowBox[{"eq", "[", 
+     RowBox[{"F1", ",", "h1"}], "]"}], "[", "5", "]"}]}], 
+  ";"}], "\[IndentingNewLine]", 
+ RowBox[{
+  RowBox[{"\[Chi]1", "=", 
+   RowBox[{
+    RowBox[{"chiSquared", "[", 
      RowBox[{"F1", ",", "h1"}], "]"}], "[", "5", "]"}]}], ";"}]}], "Input",
  CellChangeTimes->{
   3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, {
@@ -666,8 +126,119 @@ Cell[BoxData[{
    3.827830389869896*^9, 3.8278303928937063`*^9}, {3.827830520432432*^9, 
    3.827830521472166*^9}, {3.827830561128682*^9, 3.8278305648890133`*^9}, {
    3.827830936319779*^9, 3.827830941567657*^9}, {3.827831000689022*^9, 
-   3.82783100197687*^9}, {3.8278311578599*^9, 3.827831158043768*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+   3.82783100197687*^9}, {3.8278311578599*^9, 3.827831158043768*^9}, {
+   3.827851315573295*^9, 3.827851373076336*^9}, {3.827851481031065*^9, 
+   3.8278514813844013`*^9}, {3.827852148894856*^9, 3.827852150027165*^9}},
+ CellLabel->"In[47]:=",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.8278521439585333`*^9, 3.827887196370515*^9},
+ CellLabel->"Out[50]=",ExpressionUUID->"ba2599c7-3180-4d8a-974e-debee9da0484"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"sol1", "=", 
+  RowBox[{"FindMinimum", "[", 
+   RowBox[{"\[Chi]1", ",", 
+    RowBox[{"Join", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"\[Theta]c", ",", "1.27"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"\[Theta]0", ",", "0.2"}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{"B", ",", 
+          RowBox[{"RandomReal", "[", "]"}]}], "}"}], ",", 
+        RowBox[{"{", 
+         RowBox[{
+          RowBox[{"gC", "[", "0", "]"}], ",", "1.2"}], "}"}]}], "}"}], ",", 
+      RowBox[{"Thread", "[", 
+       RowBox[{
+        RowBox[{"{", 
+         RowBox[{"AH", ",", "AL", ",", 
+          RowBox[{"A", "[", "0", "]"}], ",", 
+          RowBox[{"A", "[", "1", "]"}], ",", 
+          RowBox[{"A", "[", "2", "]"}], ",", 
+          RowBox[{"gC", "[", "1", "]"}], ",", 
+          RowBox[{"gC", "[", "2", "]"}], ",", 
+          RowBox[{"gC", "[", "3", "]"}]}], "}"}], ",", 
+        RowBox[{"RandomVariate", "[", 
+         RowBox[{
+          RowBox[{"NormalDistribution", "[", "]"}], ",", "8"}], "]"}]}], 
+       "]"}]}], "]"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8278515925540752`*^9, 3.8278517266134157`*^9}},
+ CellLabel->"In[41]:=",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
+
+Cell[BoxData[
+ TemplateBox[{
+  "FindMinimum", "nrnum", 
+   "\"The function value \\!\\(\\*RowBox[{\\\"8.648186489272896`*^32\\\", \
+\\\"-\\\", RowBox[{\\\"4.448683261737481`*^29\\\", \\\" \\\", \\\"\
+\[ImaginaryI]\\\"}]}]\\) is not a real number at \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"\[Theta]c\\\", \\\",\\\", \\\"\[Theta]0\\\", \\\",\\\", \
+\\\"B\\\", \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"0\\\", \\\"]\\\"}], \
+\\\",\\\", \\\"AH\\\", \\\",\\\", \\\"AL\\\", \\\",\\\", RowBox[{\\\"A\\\", \
+\\\"[\\\", \\\"0\\\", \\\"]\\\"}], \\\",\\\", RowBox[{\\\"A\\\", \\\"[\\\", \
+\\\"1\\\", \\\"]\\\"}], \\\",\\\", RowBox[{\\\"A\\\", \\\"[\\\", \\\"2\\\", \
+\\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"1\\\", \
+\\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"2\\\", \
+\\\"]\\\"}], \\\",\\\", RowBox[{\\\"gC\\\", \\\"[\\\", \\\"3\\\", \
+\\\"]\\\"}]}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \
+RowBox[{\\\"0.06783052586208482`\\\", \\\",\\\", RowBox[{\\\"-\\\", \
+\\\"0.1593014147190351`\\\"}], \\\",\\\", \\\"0.7529214701199372`\\\", \
+\\\",\\\", RowBox[{\\\"-\\\", \\\"6.181168336716181`\\\"}], \\\",\\\", \
+RowBox[{\\\"-\\\", \\\"1.7638474489798972`\\\"}], \\\",\\\", \
+\\\"0.696638419574565`\\\", \\\",\\\", RowBox[{\\\"-\\\", \
+\\\"0.6104693062296798`\\\"}], \\\",\\\", RowBox[{\\\"-\\\", \
+\\\"3.017108441525616`\\\"}], \\\",\\\", \\\"2.8237246732089303`\\\", \\\",\\\
+\", \\\"15.058028525750439`\\\", \\\",\\\", RowBox[{\\\"-\\\", \
+\\\"13.448375368661099`\\\"}], \\\",\\\", \\\"19.30578493427986`\\\"}], \\\"}\
+\\\"}]\\).\"", 2, 41, 40, 25086188692355015557, "Local"},
+  "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{{3.827851736240823*^9, 3.827851787418936*^9}},
+ CellLabel->
+  "During evaluation of \
+In[41]:=",ExpressionUUID->"01155371-4765-4402-8a06-3e186b0ec4d6"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{"9.326739185422179`*^24", ",", 
+   RowBox[{"{", 
+    RowBox[{
+     RowBox[{"\[Theta]c", "\[Rule]", "1.452491785249546`"}], ",", 
+     RowBox[{"\[Theta]0", "\[Rule]", 
+      RowBox[{"-", "0.35416284975034845`"}]}], ",", 
+     RowBox[{"B", "\[Rule]", "0.7603016810929885`"}], ",", 
+     RowBox[{
+      RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "2.1120757751837482`"}], ",", 
+     
+     RowBox[{"AH", "\[Rule]", 
+      RowBox[{"-", "1.0106757593175362`"}]}], ",", 
+     RowBox[{"AL", "\[Rule]", "0.776864371139135`"}], ",", 
+     RowBox[{
+      RowBox[{"A", "[", "0", "]"}], "\[Rule]", 
+      RowBox[{"-", "0.7356386221851956`"}]}], ",", 
+     RowBox[{
+      RowBox[{"A", "[", "1", "]"}], "\[Rule]", 
+      RowBox[{"-", "1.4339099900572503`"}]}], ",", 
+     RowBox[{
+      RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5276300262034567`"}], ",", 
+     RowBox[{
+      RowBox[{"gC", "[", "1", "]"}], "\[Rule]", "1.8671628642402294`"}], ",", 
+     
+     RowBox[{
+      RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "1.8001120202371965`"}], ",", 
+     
+     RowBox[{
+      RowBox[{"gC", "[", "3", "]"}], "\[Rule]", "1.732540486855135`"}]}], 
+    "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.8278517363834887`*^9, 3.8278517875362177`*^9}},
+ CellLabel->"Out[41]=",ExpressionUUID->"8b73d061-3880-41f8-b663-1cd35bc06d55"]
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -64439,9 +64010,9 @@ Ixn6sD9rCf0P/KIjtA==
 }, Open  ]]
 }, Open  ]]
 },
-WindowSize->{957, 1062},
-WindowMargins->{{Automatic, 1.5}, {1.5, Automatic}},
-FrontEndVersion->"12.2 for Linux x86 (64-bit) (December 12, 2020)",
+WindowSize->{1437, 792},
+WindowMargins->{{1.5, Automatic}, {1.5, Automatic}},
+FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)",
 StyleDefinitions->"Default.nb",
 ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c"
 ]
@@ -64456,411 +64027,391 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 446, 8, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
-Cell[CellGroupData[{
-Cell[1029, 32, 600, 14, 22, "Input",ExpressionUUID->"f517bdfe-b224-46a9-84c4-43cc14736dd8"],
-Cell[1632, 48, 160, 3, 25, "Output",ExpressionUUID->"b5574aa2-61a2-490e-9b1a-552e802f125e"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[1829, 56, 189, 3, 22, "Input",ExpressionUUID->"9ea1bfae-d761-4f3b-ab51-5a520b5cba7c"],
-Cell[2021, 61, 10725, 259, 191, "Output",ExpressionUUID->"96688e91-f788-45ee-bc74-efc47d54e3df"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[12783, 325, 306, 8, 22, "Input",ExpressionUUID->"7cdeeabd-541a-42e8-bef1-92e6f7d3e8e6"],
-Cell[13092, 335, 2613, 79, 87, "Output",ExpressionUUID->"8094a485-4883-4b23-a867-d223f1dfafe7"]
-}, Open  ]],
+Cell[558, 20, 552, 9, 29, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"],
 Cell[CellGroupData[{
-Cell[15742, 419, 590, 17, 22, "Input",ExpressionUUID->"38ae1d30-b053-4304-ade7-d30f84fe8f8b"],
-Cell[16335, 438, 2470, 69, 56, "Output",ExpressionUUID->"efd0bdba-2329-4750-8425-f49992cbf205"]
-}, Open  ]],
+Cell[1135, 33, 156, 3, 68, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
 Cell[CellGroupData[{
-Cell[18842, 512, 356, 8, 22, "Input",ExpressionUUID->"ed1a5531-5687-4be8-a075-f2e147720c76"],
-Cell[19201, 522, 411, 9, 26, "Output",ExpressionUUID->"7ea8a190-f6e5-4d13-a5f4-6c8eb2d99147"]
+Cell[1316, 40, 5946, 91, 92, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
+Cell[7265, 133, 180, 2, 33, "Output",ExpressionUUID->"ba2599c7-3180-4d8a-974e-debee9da0484"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[19649, 536, 178, 3, 22, "Input",ExpressionUUID->"37c4e369-c478-47e0-b5e2-1ea4506213dc"],
-Cell[19830, 541, 800, 22, 26, "Output",ExpressionUUID->"e51eeaba-d150-4ea5-bbed-2e0bafd54960"]
+Cell[7482, 140, 1276, 33, 51, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"],
+Cell[8761, 175, 1822, 29, 41, "Message",ExpressionUUID->"01155371-4765-4402-8a06-3e186b0ec4d6"],
+Cell[10586, 206, 1347, 33, 58, "Output",ExpressionUUID->"8b73d061-3880-41f8-b663-1cd35bc06d55"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[20667, 568, 198, 3, 22, "Input",ExpressionUUID->"c221b261-8c58-4206-b8cc-264d3b968d09"],
-Cell[20868, 573, 202, 3, 25, "Output",ExpressionUUID->"f91c8df7-b777-40fa-9107-ffe09ae6f085"]
-}, Open  ]],
-Cell[CellGroupData[{
-Cell[21107, 581, 156, 3, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"],
-Cell[21266, 586, 5624, 83, 55, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"],
-Cell[CellGroupData[{
-Cell[26915, 673, 7685, 114, 22, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
-Cell[34603, 789, 1686, 35, 42, "Output",ExpressionUUID->"d228822a-dd80-43cd-9dc9-7723867b7e02"]
+Cell[11970, 244, 7685, 114, 29, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"],
+Cell[19658, 360, 1686, 35, 55, "Output",ExpressionUUID->"d228822a-dd80-43cd-9dc9-7723867b7e02"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[36326, 829, 1942, 36, 71, "Input",ExpressionUUID->"d41a0bd7-fcf9-49ad-ab2c-6c1fb49d80e4"],
-Cell[38271, 867, 19670, 349, 138, "Output",ExpressionUUID->"e6e6db79-2053-405d-a20a-c45b3fbc2942"]
+Cell[21381, 400, 1942, 36, 92, "Input",ExpressionUUID->"d41a0bd7-fcf9-49ad-ab2c-6c1fb49d80e4"],
+Cell[23326, 438, 19670, 349, 184, "Output",ExpressionUUID->"e6e6db79-2053-405d-a20a-c45b3fbc2942"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[57978, 1221, 3516, 71, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"],
-Cell[61497, 1294, 2601, 36, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"]
+Cell[43033, 792, 3516, 71, 92, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"],
+Cell[46552, 865, 2601, 36, 33, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[64135, 1335, 870, 25, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"],
-Cell[65008, 1362, 404, 10, 25, "Output",ExpressionUUID->"8951209f-3f72-48c7-a38c-2ee72e5969ab"]
+Cell[49190, 906, 870, 25, 46, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"],
+Cell[50063, 933, 404, 10, 33, "Output",ExpressionUUID->"8951209f-3f72-48c7-a38c-2ee72e5969ab"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[65449, 1377, 944, 25, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"],
-Cell[66396, 1404, 328, 5, 25, "Output",ExpressionUUID->"eb8ff557-0bdd-4098-a323-d55a28dc4cf9"]
+Cell[50504, 948, 944, 25, 29, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"],
+Cell[51451, 975, 328, 5, 33, "Output",ExpressionUUID->"eb8ff557-0bdd-4098-a323-d55a28dc4cf9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[66761, 1414, 312, 7, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"],
-Cell[67076, 1423, 210, 4, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"]
+Cell[51816, 985, 312, 7, 29, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"],
+Cell[52131, 994, 210, 4, 33, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[67323, 1432, 605, 18, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"],
-Cell[67931, 1452, 585, 12, 25, "Output",ExpressionUUID->"803c65de-cac5-41c2-8712-e843addd3b13"]
+Cell[52378, 1003, 605, 18, 48, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"],
+Cell[52986, 1023, 585, 12, 33, "Output",ExpressionUUID->"803c65de-cac5-41c2-8712-e843addd3b13"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[68553, 1469, 1267, 35, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"],
-Cell[69823, 1506, 21945, 453, 173, "Output",ExpressionUUID->"bf85ffac-fd9e-4b07-a40d-282c4228d400"]
+Cell[53608, 1040, 1267, 35, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"],
+Cell[54878, 1077, 21945, 453, 173, "Output",ExpressionUUID->"bf85ffac-fd9e-4b07-a40d-282c4228d400"]
 }, Open  ]],
-Cell[91783, 1962, 4631, 70, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
+Cell[76838, 1533, 4631, 70, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"],
 Cell[CellGroupData[{
-Cell[96439, 2036, 7824, 112, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
-Cell[104266, 2150, 5061, 88, 58, "Output",ExpressionUUID->"f8f581f9-bab1-47a5-a5b2-35a303ffecf2"]
+Cell[81494, 1607, 7824, 112, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"],
+Cell[89321, 1721, 5061, 88, 58, "Output",ExpressionUUID->"f8f581f9-bab1-47a5-a5b2-35a303ffecf2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[109364, 2243, 1885, 36, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"],
-Cell[111252, 2281, 18406, 332, 138, "Output",ExpressionUUID->"e100ca45-165f-447d-bf95-f57c2c345f30"]
+Cell[94419, 1814, 1885, 36, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"],
+Cell[96307, 1852, 18406, 332, 138, "Output",ExpressionUUID->"e100ca45-165f-447d-bf95-f57c2c345f30"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[129695, 2618, 1640, 44, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"],
-Cell[131338, 2664, 221276, 3643, 180, "Output",ExpressionUUID->"1076356d-6b61-4db7-8638-afa274856028"]
+Cell[114750, 2189, 1640, 44, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"],
+Cell[116393, 2235, 221276, 3643, 180, "Output",ExpressionUUID->"1076356d-6b61-4db7-8638-afa274856028"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[352651, 6312, 1613, 43, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"],
-Cell[354267, 6357, 235142, 3870, 180, "Output",ExpressionUUID->"17f067b9-09a8-4c4d-8cef-0592f3364e05"]
+Cell[337706, 5883, 1613, 43, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"],
+Cell[339322, 5928, 235142, 3870, 180, "Output",ExpressionUUID->"17f067b9-09a8-4c4d-8cef-0592f3364e05"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[589446, 10232, 993, 26, 24, "Input",ExpressionUUID->"60aceef2-e104-4c4b-b320-8733c32fd46a"],
-Cell[590442, 10260, 2603, 83, 44, "Output",ExpressionUUID->"48130279-0d5a-4e5b-8103-9aa8d3c1cf07"]
+Cell[574501, 9803, 993, 26, 24, "Input",ExpressionUUID->"60aceef2-e104-4c4b-b320-8733c32fd46a"],
+Cell[575497, 9831, 2603, 83, 44, "Output",ExpressionUUID->"48130279-0d5a-4e5b-8103-9aa8d3c1cf07"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[593082, 10348, 676, 20, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"],
-Cell[593761, 10370, 633, 12, 27, "Output",ExpressionUUID->"91657448-916c-4eb9-bac1-7571cba4d132"]
+Cell[578137, 9919, 676, 20, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"],
+Cell[578816, 9941, 633, 12, 27, "Output",ExpressionUUID->"91657448-916c-4eb9-bac1-7571cba4d132"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[594431, 10387, 1267, 35, 58, "Input",ExpressionUUID->"10843c34-8b18-4642-bdf0-191a83ebe2b2"],
-Cell[595701, 10424, 21965, 454, 173, "Output",ExpressionUUID->"9b227d82-ec05-4cea-a640-237e9870bffe"]
+Cell[579486, 9958, 1267, 35, 58, "Input",ExpressionUUID->"10843c34-8b18-4642-bdf0-191a83ebe2b2"],
+Cell[580756, 9995, 21965, 454, 173, "Output",ExpressionUUID->"9b227d82-ec05-4cea-a640-237e9870bffe"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[617703, 10883, 3374, 70, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"],
-Cell[621080, 10955, 13692, 299, 138, "Output",ExpressionUUID->"30818edb-b04f-4d3c-a0ac-ce92bb839cba"]
+Cell[602758, 10454, 3374, 70, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"],
+Cell[606135, 10526, 13692, 299, 138, "Output",ExpressionUUID->"30818edb-b04f-4d3c-a0ac-ce92bb839cba"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[634809, 11259, 1350, 35, 73, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"],
-Cell[636162, 11296, 9021, 212, 181, "Output",ExpressionUUID->"7e637e2e-ce10-4d27-a57a-234105c64b57"]
+Cell[619864, 10830, 1350, 35, 73, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"],
+Cell[621217, 10867, 9021, 212, 181, "Output",ExpressionUUID->"7e637e2e-ce10-4d27-a57a-234105c64b57"]
 }, Open  ]],
-Cell[645198, 11511, 3769, 58, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"],
+Cell[630253, 11082, 3769, 58, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"],
 Cell[CellGroupData[{
-Cell[648992, 11573, 6700, 99, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"],
-Cell[655695, 11674, 558, 12, 18, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"],
-Cell[656256, 11688, 5206, 95, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"]
+Cell[634047, 11144, 6700, 99, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"],
+Cell[640750, 11245, 558, 12, 18, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"],
+Cell[641311, 11259, 5206, 95, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[661499, 11788, 1747, 35, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"],
-Cell[663249, 11825, 17065, 313, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"]
+Cell[646554, 11359, 1747, 35, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"],
+Cell[648304, 11396, 17065, 313, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[680351, 12143, 1075, 29, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"],
-Cell[681429, 12174, 1686, 44, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"]
+Cell[665406, 11714, 1075, 29, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"],
+Cell[666484, 11745, 1686, 44, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[683152, 12223, 2704, 59, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"],
-Cell[685859, 12284, 12141, 271, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"]
+Cell[668207, 11794, 2704, 59, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"],
+Cell[670914, 11855, 12141, 271, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"]
 }, Open  ]],
-Cell[698015, 12558, 3491, 55, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"],
+Cell[683070, 12129, 3491, 55, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"],
 Cell[CellGroupData[{
-Cell[701531, 12617, 6511, 94, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"],
-Cell[708045, 12713, 5770, 96, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"]
+Cell[686586, 12188, 6511, 94, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"],
+Cell[693100, 12284, 5770, 96, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[713852, 12814, 1791, 35, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"],
-Cell[715646, 12851, 17336, 318, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"]
+Cell[698907, 12385, 1791, 35, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"],
+Cell[700701, 12422, 17336, 318, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[733019, 13174, 2079, 54, 75, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"],
-Cell[735101, 13230, 16732, 375, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"]
+Cell[718074, 12745, 2079, 54, 75, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"],
+Cell[720156, 12801, 16732, 375, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"]
 }, Open  ]],
-Cell[751848, 13608, 3360, 53, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"],
+Cell[736903, 13179, 3360, 53, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"],
 Cell[CellGroupData[{
-Cell[755233, 13665, 6459, 92, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"],
-Cell[761695, 13759, 1955, 31, 29, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"],
-Cell[763653, 13792, 5268, 92, 42, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"]
+Cell[740288, 13236, 6459, 92, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"],
+Cell[746750, 13330, 1955, 31, 29, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"],
+Cell[748708, 13363, 5268, 92, 42, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[768958, 13889, 1882, 39, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"],
-Cell[770843, 13930, 9557, 188, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"]
+Cell[754013, 13460, 1882, 39, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"],
+Cell[755898, 13501, 9557, 188, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"]
 }, Open  ]],
-Cell[780415, 14121, 2869, 47, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"],
+Cell[765470, 13692, 2869, 47, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"],
 Cell[CellGroupData[{
-Cell[783309, 14172, 5473, 80, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"],
-Cell[788785, 14254, 497, 11, 18, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"],
-Cell[789285, 14267, 10419, 251, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"]
+Cell[768364, 13743, 5473, 80, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"],
+Cell[773840, 13825, 497, 11, 18, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"],
+Cell[774340, 13838, 10419, 251, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[799741, 14523, 1852, 38, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"],
-Cell[801596, 14563, 17127, 315, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"]
+Cell[784796, 14094, 1852, 38, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"],
+Cell[786651, 14134, 17127, 315, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[818760, 14883, 482, 11, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"],
-Cell[819245, 14896, 9927, 243, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"]
+Cell[803815, 14454, 482, 11, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"],
+Cell[804300, 14467, 9927, 243, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"]
 }, Open  ]],
-Cell[829187, 15142, 2967, 48, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"],
+Cell[814242, 14713, 2967, 48, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"],
 Cell[CellGroupData[{
-Cell[832179, 15194, 5720, 84, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"],
-Cell[837902, 15280, 771, 15, 29, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"],
-Cell[838676, 15297, 4257, 83, 60, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"]
+Cell[817234, 14765, 5720, 84, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"],
+Cell[822957, 14851, 771, 15, 29, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"],
+Cell[823731, 14868, 4257, 83, 60, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[842970, 15385, 1796, 36, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"],
-Cell[844769, 15423, 17264, 316, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"]
+Cell[828025, 14956, 1796, 36, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"],
+Cell[829824, 14994, 17264, 316, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[862070, 15744, 874, 23, 22, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"],
-Cell[862947, 15769, 3739, 89, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"]
+Cell[847125, 15315, 874, 23, 22, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"],
+Cell[848002, 15340, 3739, 89, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[866723, 15863, 549, 15, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"],
-Cell[867275, 15880, 234, 5, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"]
+Cell[851778, 15434, 549, 15, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"],
+Cell[852330, 15451, 234, 5, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[867546, 15890, 262, 6, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"],
-Cell[867811, 15898, 1039, 29, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"]
+Cell[852601, 15461, 262, 6, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"],
+Cell[852866, 15469, 1039, 29, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[868887, 15932, 1085, 28, 24, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
-Cell[869975, 15962, 74312, 1240, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"]
+Cell[853942, 15503, 1085, 28, 24, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"],
+Cell[855030, 15533, 74312, 1240, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[944324, 17207, 1597, 44, 40, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"],
-Cell[945924, 17253, 487, 11, 18, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"],
-Cell[946414, 17266, 490, 11, 18, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"],
-Cell[946907, 17279, 488, 11, 18, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"],
-Cell[947398, 17292, 457, 10, 18, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"]
+Cell[929379, 16778, 1597, 44, 40, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"],
+Cell[930979, 16824, 487, 11, 18, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"],
+Cell[931469, 16837, 490, 11, 18, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"],
+Cell[931962, 16850, 488, 11, 18, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"],
+Cell[932453, 16863, 457, 10, 18, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[947892, 17307, 1243, 25, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
-Cell[949138, 17334, 257598, 4238, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"]
+Cell[932947, 16878, 1243, 25, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"],
+Cell[934193, 16905, 257598, 4238, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"]
 }, Open  ]],
-Cell[1206751, 21575, 2861, 70, 75, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"],
+Cell[1191806, 21146, 2861, 70, 75, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"],
 Cell[CellGroupData[{
-Cell[1209637, 21649, 4876, 115, 92, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"],
-Cell[1214516, 21766, 372, 9, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"],
-Cell[1214891, 21777, 414, 10, 19, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"],
-Cell[1215308, 21789, 374, 9, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"],
-Cell[1215685, 21800, 372, 9, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"],
-Cell[1216060, 21811, 449, 10, 18, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"],
-Cell[1216512, 21823, 412, 10, 19, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"],
-Cell[1216927, 21835, 412, 10, 19, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"],
-Cell[1217342, 21847, 454, 10, 18, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"]
+Cell[1194692, 21220, 4876, 115, 92, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"],
+Cell[1199571, 21337, 372, 9, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"],
+Cell[1199946, 21348, 414, 10, 19, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"],
+Cell[1200363, 21360, 374, 9, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"],
+Cell[1200740, 21371, 372, 9, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"],
+Cell[1201115, 21382, 449, 10, 18, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"],
+Cell[1201567, 21394, 412, 10, 19, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"],
+Cell[1201982, 21406, 412, 10, 19, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"],
+Cell[1202397, 21418, 454, 10, 18, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1217833, 21862, 390, 10, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"],
-Cell[1218226, 21874, 230, 4, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"]
+Cell[1202888, 21433, 390, 10, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"],
+Cell[1203281, 21445, 230, 4, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1218493, 21883, 2250, 58, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"],
-Cell[1220746, 21943, 1066745, 23056, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"]
+Cell[1203548, 21454, 2250, 58, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"],
+Cell[1205801, 21514, 1066745, 23056, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2287528, 45004, 1775, 44, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"],
-Cell[2289306, 45050, 376, 5, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"]
+Cell[2272583, 44575, 1775, 44, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"],
+Cell[2274361, 44621, 376, 5, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2289719, 45060, 427, 10, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"],
-Cell[2290149, 45072, 18847, 324, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"]
+Cell[2274774, 44631, 427, 10, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"],
+Cell[2275204, 44643, 18847, 324, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"]
 }, Open  ]],
-Cell[2309011, 45399, 3136, 79, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"],
+Cell[2294066, 44970, 3136, 79, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"],
 Cell[CellGroupData[{
-Cell[2312172, 45482, 592, 13, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
-Cell[2312767, 45497, 5889, 112, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"]
+Cell[2297227, 45053, 592, 13, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"],
+Cell[2297822, 45068, 5889, 112, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"]
 }, Open  ]],
-Cell[2318671, 45612, 4130, 102, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"],
+Cell[2303726, 45183, 4130, 102, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"],
 Cell[CellGroupData[{
-Cell[2322826, 45718, 1495, 23, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
-Cell[2324324, 45743, 6141, 116, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"]
+Cell[2307881, 45289, 1495, 23, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"],
+Cell[2309379, 45314, 6141, 116, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"]
 }, Open  ]],
-Cell[2330480, 45862, 2010, 35, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
+Cell[2315535, 45433, 2010, 35, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"],
 Cell[CellGroupData[{
-Cell[2332515, 45901, 4151, 62, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
-Cell[2336669, 45965, 2707, 49, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"]
+Cell[2317570, 45472, 4151, 62, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"],
+Cell[2321724, 45536, 2707, 49, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2339413, 46019, 1600, 34, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
-Cell[2341016, 46055, 17028, 313, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"]
+Cell[2324468, 45590, 1600, 34, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"],
+Cell[2326071, 45626, 17028, 313, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"]
 }, Open  ]],
-Cell[2358059, 46371, 2110, 37, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"],
+Cell[2343114, 45942, 2110, 37, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"],
 Cell[CellGroupData[{
-Cell[2360194, 46412, 4183, 60, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"],
-Cell[2364380, 46474, 2082, 30, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"]
+Cell[2345249, 45983, 4183, 60, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"],
+Cell[2349435, 46045, 2082, 30, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2366499, 46509, 1650, 35, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"],
-Cell[2368152, 46546, 20490, 372, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"]
+Cell[2351554, 46080, 1650, 35, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"],
+Cell[2353207, 46117, 20490, 372, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"]
 }, Open  ]],
-Cell[2388657, 46921, 2205, 38, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"],
+Cell[2373712, 46492, 2205, 38, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"],
 Cell[CellGroupData[{
-Cell[2390887, 46963, 6088, 119, 41, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"],
-Cell[2396978, 47084, 3154, 60, 27, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"]
+Cell[2375942, 46534, 6088, 119, 41, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"],
+Cell[2382033, 46655, 3154, 60, 27, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2400169, 47149, 1700, 36, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"],
-Cell[2401872, 47187, 16873, 311, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"]
+Cell[2385224, 46720, 1700, 36, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"],
+Cell[2386927, 46758, 16873, 311, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"]
 }, Open  ]],
-Cell[2418760, 47501, 2257, 39, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"],
+Cell[2403815, 47072, 2257, 39, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"],
 Cell[CellGroupData[{
-Cell[2421042, 47544, 6220, 122, 41, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"],
-Cell[2427265, 47668, 3291, 62, 27, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"]
+Cell[2406097, 47115, 6220, 122, 41, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"],
+Cell[2412320, 47239, 3291, 62, 27, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2430593, 47735, 1746, 36, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"],
-Cell[2432342, 47773, 17143, 317, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"]
+Cell[2415648, 47306, 1746, 36, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"],
+Cell[2417397, 47344, 17143, 317, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"]
 }, Open  ]],
-Cell[2449500, 48093, 2305, 39, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"],
+Cell[2434555, 47664, 2305, 39, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"],
 Cell[CellGroupData[{
-Cell[2451830, 48136, 6753, 136, 41, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"],
-Cell[2458586, 48274, 3674, 69, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"]
+Cell[2436885, 47707, 6753, 136, 41, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"],
+Cell[2443641, 47845, 3674, 69, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2462297, 48348, 1798, 37, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"],
-Cell[2464098, 48387, 17131, 315, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"]
+Cell[2447352, 47919, 1798, 37, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"],
+Cell[2449153, 47958, 17131, 315, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"]
 }, Open  ]],
-Cell[2481244, 48705, 2356, 40, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"],
+Cell[2466299, 48276, 2356, 40, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"],
 Cell[CellGroupData[{
-Cell[2483625, 48749, 6967, 140, 41, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"],
-Cell[2490595, 48891, 3893, 74, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"]
+Cell[2468680, 48320, 6967, 140, 41, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"],
+Cell[2475650, 48462, 3893, 74, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2494525, 48970, 1848, 38, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"],
-Cell[2496376, 49010, 17640, 324, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"]
+Cell[2479580, 48541, 1848, 38, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"],
+Cell[2481431, 48581, 17640, 324, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"]
 }, Open  ]],
-Cell[2514031, 49337, 2409, 41, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"],
+Cell[2499086, 48908, 2409, 41, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"],
 Cell[CellGroupData[{
-Cell[2516465, 49382, 7710, 160, 57, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"],
-Cell[2524178, 49544, 2581, 37, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"]
+Cell[2501520, 48953, 7710, 160, 57, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"],
+Cell[2509233, 49115, 2581, 37, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2526796, 49586, 1894, 38, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"],
-Cell[2528693, 49626, 16747, 309, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"]
+Cell[2511851, 49157, 1894, 38, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"],
+Cell[2513748, 49197, 16747, 309, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2545477, 49940, 433, 11, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"],
-Cell[2545913, 49953, 6817, 169, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"]
+Cell[2530532, 49511, 433, 11, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"],
+Cell[2530968, 49524, 6817, 169, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2552767, 50127, 1672, 45, 40, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"],
-Cell[2554442, 50174, 511, 11, 18, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"],
-Cell[2554956, 50187, 511, 11, 18, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"],
-Cell[2555470, 50200, 513, 11, 18, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"],
-Cell[2555986, 50213, 478, 10, 18, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"]
+Cell[2537822, 49698, 1672, 45, 40, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"],
+Cell[2539497, 49745, 511, 11, 18, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"],
+Cell[2540011, 49758, 511, 11, 18, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"],
+Cell[2540525, 49771, 513, 11, 18, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"],
+Cell[2541041, 49784, 478, 10, 18, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"]
 }, Open  ]],
-Cell[2556479, 50226, 3187, 80, 41, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"],
-Cell[2559669, 50308, 4180, 103, 75, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"],
-Cell[2563852, 50413, 5400, 131, 109, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"],
+Cell[2541534, 49797, 3187, 80, 41, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"],
+Cell[2544724, 49879, 4180, 103, 75, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"],
+Cell[2548907, 49984, 5400, 131, 109, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"],
 Cell[CellGroupData[{
-Cell[2569277, 50548, 1359, 27, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"],
-Cell[2570639, 50577, 488773, 8032, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"]
+Cell[2554332, 50119, 1359, 27, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"],
+Cell[2555694, 50148, 488773, 8032, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3059449, 58614, 663, 15, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"],
-Cell[3060115, 58631, 10088, 182, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"]
+Cell[3044504, 58185, 663, 15, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"],
+Cell[3045170, 58202, 10088, 182, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3070240, 58818, 1607, 25, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"],
-Cell[3071850, 58845, 27041, 593, 178, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"]
+Cell[3055295, 58389, 1607, 25, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"],
+Cell[3056905, 58416, 27041, 593, 178, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"]
 }, Open  ]],
-Cell[3098906, 59441, 1994, 35, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"],
+Cell[3083961, 59012, 1994, 35, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"],
 Cell[CellGroupData[{
-Cell[3100925, 59480, 6104, 123, 105, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"],
-Cell[3107032, 59605, 599, 12, 29, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"],
-Cell[3107634, 59619, 3201, 61, 60, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"]
+Cell[3085980, 59051, 6104, 123, 105, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"],
+Cell[3092087, 59176, 599, 12, 29, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"],
+Cell[3092689, 59190, 3201, 61, 60, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3110872, 59685, 1705, 36, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"],
-Cell[3112580, 59723, 18192, 331, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"]
+Cell[3095927, 59256, 1705, 36, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"],
+Cell[3097635, 59294, 18192, 331, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3130809, 60059, 336, 9, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"],
-Cell[3131148, 60070, 5691, 143, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"]
+Cell[3115864, 59630, 336, 9, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"],
+Cell[3116203, 59641, 5691, 143, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"]
 }, Open  ]],
-Cell[3136854, 60216, 2089, 36, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"],
+Cell[3121909, 59787, 2089, 36, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"],
 Cell[CellGroupData[{
-Cell[3138968, 60256, 6598, 135, 41, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"],
-Cell[3145569, 60393, 3462, 68, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"]
+Cell[3124023, 59827, 6598, 135, 41, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"],
+Cell[3130624, 59964, 3462, 68, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3149068, 60466, 1755, 37, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"],
-Cell[3150826, 60505, 17980, 327, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"]
+Cell[3134123, 60037, 1755, 37, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"],
+Cell[3135881, 60076, 17980, 327, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3168843, 60837, 384, 10, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"],
-Cell[3169230, 60849, 5952, 149, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"]
+Cell[3153898, 60408, 384, 10, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"],
+Cell[3154285, 60420, 5952, 149, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"]
 }, Open  ]],
-Cell[3175197, 61001, 2143, 37, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"],
+Cell[3160252, 60572, 2143, 37, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"],
 Cell[CellGroupData[{
-Cell[3177365, 61042, 7704, 168, 57, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"],
-Cell[3185072, 61212, 3873, 76, 44, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"]
+Cell[3162420, 60613, 7704, 168, 57, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"],
+Cell[3170127, 60783, 3873, 76, 44, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3188982, 61293, 1805, 38, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"],
-Cell[3190790, 61333, 17885, 326, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"]
+Cell[3174037, 60864, 1805, 38, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"],
+Cell[3175845, 60904, 17885, 326, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3208712, 61664, 434, 11, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"],
-Cell[3209149, 61677, 5661, 140, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"]
+Cell[3193767, 61235, 434, 11, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"],
+Cell[3194204, 61248, 5661, 140, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"]
 }, Open  ]],
-Cell[3214825, 61820, 2143, 37, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"],
+Cell[3199880, 61391, 2143, 37, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"],
 Cell[CellGroupData[{
-Cell[3216993, 61861, 7833, 169, 57, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"],
-Cell[3224829, 62032, 2018, 33, 19, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"],
-Cell[3226850, 62067, 4286, 85, 44, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"]
+Cell[3202048, 61432, 7833, 169, 57, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"],
+Cell[3209884, 61603, 2018, 33, 19, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"],
+Cell[3211905, 61638, 4286, 85, 44, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3231173, 62157, 1853, 38, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"],
-Cell[3233029, 62197, 17826, 324, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"]
+Cell[3216228, 61728, 1853, 38, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"],
+Cell[3218084, 61768, 17826, 324, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3250892, 62526, 480, 11, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"],
-Cell[3251375, 62539, 7596, 187, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
+Cell[3235947, 62097, 480, 11, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"],
+Cell[3236430, 62110, 7596, 187, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3259020, 62732, 165, 3, 50, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"],
-Cell[3259188, 62737, 800, 21, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"],
+Cell[3244075, 62303, 165, 3, 50, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"],
+Cell[3244243, 62308, 800, 21, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"],
 Cell[CellGroupData[{
-Cell[3260013, 62762, 886, 24, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"],
-Cell[3260902, 62788, 299, 6, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"]
+Cell[3245068, 62333, 886, 24, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"],
+Cell[3245957, 62359, 299, 6, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3261238, 62799, 1529, 43, 24, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"],
-Cell[3262770, 62844, 216, 4, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"]
+Cell[3246293, 62370, 1529, 43, 24, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"],
+Cell[3247825, 62415, 216, 4, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[3263023, 62853, 2328, 62, 24, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"],
-Cell[3265354, 62917, 584, 12, 18, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"],
-Cell[3265941, 62931, 420, 8, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"]
+Cell[3248078, 62424, 2328, 62, 24, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"],
+Cell[3250409, 62488, 584, 12, 18, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"],
+Cell[3250996, 62502, 420, 8, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"]
 }, Open  ]],
-Cell[3266376, 62942, 1234, 32, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"],
+Cell[3251431, 62513, 1234, 32, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"],
 Cell[CellGroupData[{
-Cell[3267635, 62978, 379, 9, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"],
-Cell[3268017, 62989, 21750, 374, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"]
+Cell[3252690, 62549, 379, 9, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"],
+Cell[3253072, 62560, 21750, 374, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"]
 }, Open  ]],
-Cell[3289782, 63366, 2535, 66, 24, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"],
+Cell[3274837, 62937, 2535, 66, 24, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"],
 Cell[CellGroupData[{
-Cell[3292342, 63436, 491, 10, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"],
-Cell[3292836, 63448, 22737, 390, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"]
+Cell[3277397, 63007, 491, 10, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"],
+Cell[3277891, 63019, 22737, 390, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"]
 }, Open  ]],
-Cell[3315588, 63841, 3849, 95, 75, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"],
+Cell[3300643, 63412, 3849, 95, 75, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"],
 Cell[CellGroupData[{
-Cell[3319462, 63940, 448, 10, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"],
-Cell[3319913, 63952, 26854, 485, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"]
+Cell[3304517, 63511, 448, 10, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"],
+Cell[3304968, 63523, 26854, 485, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"]
 }, Open  ]]
 }, Open  ]]
 }