Slightly thinner lines in the figure.

8 files changed, 271 insertions, 292 deletions

diff --git a/figs/phases_1.pdf b/figs/phases_1.pdf
index 5136206..d660413 100644
--- a/figs/phases_1.pdf
+++ b/figs/phases_1.pdf
diff --git a/figs/phases_12_1.pdf b/figs/phases_12_1.pdf
index 9bd6120..d28654b 100644
--- a/figs/phases_12_1.pdf
+++ b/figs/phases_12_1.pdf
diff --git a/figs/phases_12_2.pdf b/figs/phases_12_2.pdf
index f1d05d1..a6df312 100644
--- a/figs/phases_12_2.pdf
+++ b/figs/phases_12_2.pdf
diff --git a/figs/phases_12_3.pdf b/figs/phases_12_3.pdf
index ac7e88a..02ef636 100644
--- a/figs/phases_12_3.pdf
+++ b/figs/phases_12_3.pdf
diff --git a/figs/phases_12_4.pdf b/figs/phases_12_4.pdf
index 90db371..01ad34f 100644
--- a/figs/phases_12_4.pdf
+++ b/figs/phases_12_4.pdf
diff --git a/figs/phases_2.pdf b/figs/phases_2.pdf
index 9b0774c..3c83e8b 100644
--- a/figs/phases_2.pdf
+++ b/figs/phases_2.pdf
diff --git a/figs/phases_3.pdf b/figs/phases_3.pdf
index 7eed5bb..13c1ed3 100644
--- a/figs/phases_3.pdf
+++ b/figs/phases_3.pdf
diff --git a/figures.nb b/figures.nb
index 3d3941a..a46938f 100644
--- a/figures.nb
+++ b/figures.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[  12095911,     220927]
-NotebookOptionsPosition[  12074340,     220604]
-NotebookOutlinePosition[  12074738,     220620]
-CellTagsIndexPosition[  12074695,     220617]
+NotebookDataLength[  12095439,     220906]
+NotebookOptionsPosition[  12073771,     220582]
+NotebookOutlinePosition[  12074169,     220598]
+CellTagsIndexPosition[  12074126,     220595]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -13067,6 +13067,15 @@ Cell["Phase diagrams", "Subsection",
   3.933764135264447*^9}},ExpressionUUID->"5159d821-004a-42df-9d4c-\
 fa83e8d77495"],
 
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"lineThickness", "=", 
+   RowBox[{"Thickness", "[", "0.004", "]"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.9353127787312307`*^9, 3.935312784272688*^9}, {
+  3.935312816283368*^9, 3.935312818843916*^9}},
+ CellLabel->
+  "In[689]:=",ExpressionUUID->"f396cb31-1852-4e37-833b-392d09d3b6a9"],
+
 Cell[CellGroupData[{
 
 Cell[BoxData[
@@ -13210,8 +13219,7 @@ q\",FontSlant->\"Italic\"]\)) = \!\(\*StyleBox[\"q\",FontSlant->\"Italic\"]\)\
         "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"Directive", "[", 
-      RowBox[{"Black", ",", 
-       RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], ",", 
+      RowBox[{"Black", ",", "lineThickness"}], "]"}]}], ",", 
     RowBox[{"LabelStyle", "->", 
      RowBox[{"{", 
       RowBox[{
@@ -13271,9 +13279,9 @@ q\",FontSlant->\"Italic\"]\)) = \!\(\*StyleBox[\"q\",FontSlant->\"Italic\"]\)\
    3.9352960401195803`*^9, 3.935296061251177*^9}, {3.935296415347929*^9, 
    3.9352964926466312`*^9}, {3.935307076126691*^9, 3.935307089532714*^9}, {
    3.935312307176919*^9, 3.935312416077734*^9}, {3.9353124718229723`*^9, 
-   3.935312488651051*^9}},
+   3.935312488651051*^9}, 3.935312833292441*^9},
  CellLabel->
-  "In[678]:=",ExpressionUUID->"6c065066-6bf9-4f3a-a1a0-0b9cba9f452c"],
+  "In[690]:=",ExpressionUUID->"6c065066-6bf9-4f3a-a1a0-0b9cba9f452c"],
 
 Cell[BoxData[
  GraphicsBox[
@@ -13332,11 +13340,11 @@ RDyDiGcQ8QwinkHEM7y3Cqzoqif42/P/AT3cHzg=
             31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 67, 71, 
             78, 87, 98, 111, 17}}]]}, {}, {}, {}}, {{}, {}, {}, 
          TagBox[
-          {GrayLevel[0], Thickness[0.005], Opacity[1.], 
+          {GrayLevel[0], Thickness[0.004], Opacity[1.], 
            LineBox[{126, 3, 11, 7, 5, 13, 9, 4, 12, 8, 15, 6, 14, 10, 16, 2}]},
           Annotation[#, "Charting`Private`Tag#1"]& ], 
          TagBox[
-          {GrayLevel[0], Thickness[0.005], Opacity[1.], 
+          {GrayLevel[0], Thickness[0.004], Opacity[1.], 
            LineBox[{17, 111, 98, 87, 78, 71, 67, 18, 19, 20, 21, 22, 23, 24, 
             25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 
             41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 
@@ -13416,7 +13424,7 @@ RDyDiGcQ8QwinkHEM7y3Cqzoqif42/P/AT3cHzg=
                Opacity[1.], 
                AbsoluteThickness[2], 
                GrayLevel[0], 
-               Thickness[0.005]], 
+               Thickness[0.004]], 
               
               Line[{126, 3, 11, 7, 5, 13, 9, 4, 12, 8, 15, 6, 14, 10, 16, 
                2}]}, "Charting`Private`Tag#1"], 
@@ -13425,7 +13433,7 @@ RDyDiGcQ8QwinkHEM7y3Cqzoqif42/P/AT3cHzg=
                Opacity[1.], 
                AbsoluteThickness[2], 
                GrayLevel[0], 
-               Thickness[0.005]], 
+               Thickness[0.004]], 
               
               Line[{17, 111, 98, 87, 78, 71, 67, 18, 19, 20, 21, 22, 23, 24, 
                25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
@@ -13451,12 +13459,12 @@ RDyDiGcQ8QwinkHEM7y3Cqzoqif42/P/AT3cHzg=
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]]}, 
+              Thickness[0.004]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
@@ -13516,7 +13524,7 @@ s1xStNL062KtQ3V0/sHSmVmu/I/n1bFRU39x7D8dZR84
                   Opacity[1.], 
                   AbsoluteThickness[2], 
                   GrayLevel[0], 
-                  Thickness[0.005]], 
+                  Thickness[0.004]], 
                  
                  Line[{{0.9943679673546567, -0.075}, {
                   0.9945085617933347, -0.07410423879013525}, {
@@ -13540,7 +13548,7 @@ s1xStNL062KtQ3V0/sHSmVmu/I/n1bFRU39x7D8dZR84
                   Opacity[1.], 
                   AbsoluteThickness[2], 
                   GrayLevel[0], 
-                  Thickness[0.005]], 
+                  Thickness[0.004]], 
                  Line[CompressedData["
 1:eJwVlXk81HkDx8dNx1il2tEiE55VLE/K8lQ+Np2Op4h0WFQqK0Ql2eSKVtrS
 4VGJItGiGuWmsGNo2TSOcZ8zGMfM/L48uW1m7R+f1+fvz+v1fn3eOifOOZ6S
@@ -13601,12 +13609,12 @@ LHpmbbiBnBkvEe+804xNFj20r3FDcOrMPTzQXjr5j7eaVCojrxYz8TdOLon0
              Opacity[1.], 
              AbsoluteThickness[2], 
              GrayLevel[0], 
-             Thickness[0.005]], 
+             Thickness[0.004]], 
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              GrayLevel[0], 
-             Thickness[0.005]]}, 
+             Thickness[0.004]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
@@ -13666,7 +13674,7 @@ s1xStNL062KtQ3V0/sHSmVmu/I/n1bFRU39x7D8dZR84
                  Opacity[1.], 
                  AbsoluteThickness[2], 
                  GrayLevel[0], 
-                 Thickness[0.005]], 
+                 Thickness[0.004]], 
                 
                 Line[{{0.9943679673546567, -0.075}, {
                  0.9945085617933347, -0.07410423879013525}, {
@@ -13690,7 +13698,7 @@ s1xStNL062KtQ3V0/sHSmVmu/I/n1bFRU39x7D8dZR84
                  Opacity[1.], 
                  AbsoluteThickness[2], 
                  GrayLevel[0], 
-                 Thickness[0.005]], 
+                 Thickness[0.004]], 
                 Line[CompressedData["
 1:eJwVlXk81HkDx8dNx1il2tEiE55VLE/K8lQ+Np2Op4h0WFQqK0Ql2eSKVtrS
 4VGJItGiGuWmsGNo2TSOcZ8zGMfM/L48uW1m7R+f1+fvz+v1fn3eOifOOZ6S
@@ -13800,7 +13808,7 @@ RDyDiGcQ8QwinkHEM7y3Cqzoqif42/P/AT3cHzg=
            Opacity[1.], 
            AbsoluteThickness[2], 
            GrayLevel[0], 
-           Thickness[0.005]], 
+           Thickness[0.004]], 
           Line[{126, 3, 11, 7, 5, 13, 9, 4, 12, 8, 15, 6, 14, 10, 16, 2}]}, 
          "Charting`Private`Tag#1"], 
         Annotation[{
@@ -13808,7 +13816,7 @@ RDyDiGcQ8QwinkHEM7y3Cqzoqif42/P/AT3cHzg=
            Opacity[1.], 
            AbsoluteThickness[2], 
            GrayLevel[0], 
-           Thickness[0.005]], 
+           Thickness[0.004]], 
           
           Line[{17, 111, 98, 87, 78, 71, 67, 18, 19, 20, 21, 22, 23, 24, 25, 
            26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42,
@@ -13833,12 +13841,12 @@ RDyDiGcQ8QwinkHEM7y3Cqzoqif42/P/AT3cHzg=
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0], 
-          Thickness[0.005]], 
+          Thickness[0.004]], 
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0], 
-          Thickness[0.005]]}, 
+          Thickness[0.004]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
@@ -13897,7 +13905,7 @@ s1xStNL062KtQ3V0/sHSmVmu/I/n1bFRU39x7D8dZR84
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              
              Line[{{0.9943679673546567, -0.075}, {
               0.9945085617933347, -0.07410423879013525}, {
@@ -13921,7 +13929,7 @@ s1xStNL062KtQ3V0/sHSmVmu/I/n1bFRU39x7D8dZR84
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              Line[CompressedData["
 1:eJwVlXk81HkDx8dNx1il2tEiE55VLE/K8lQ+Np2Op4h0WFQqK0Ql2eSKVtrS
 4VGJItGiGuWmsGNo2TSOcZ8zGMfM/L48uW1m7R+f1+fvz+v1fn3eOifOOZ6S
@@ -14204,9 +14212,9 @@ StyleBox[\\\"q\\\",FontSlant->\\\"Italic\\\"]\\)) = \\!\\(\\*StyleBox[\\\"q\\\
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Automatic, Automatic}]], "Output",
  CellChangeTimes->{{3.935312363234276*^9, 3.93531241635041*^9}, {
-  3.935312472536001*^9, 3.935312489012549*^9}},
+   3.935312472536001*^9, 3.935312489012549*^9}, 3.9353128721557302`*^9},
  CellLabel->
-  "Out[678]=",ExpressionUUID->"88e9f393-8134-482a-aa70-8f5b38f28a36"]
+  "Out[690]=",ExpressionUUID->"ac0f7848-ec0d-451a-a413-e874fc30f460"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -14249,23 +14257,18 @@ Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", 
          RowBox[{"Directive", "[", 
-          RowBox[{"Black", ",", 
-           RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], "}"}]}], 
-      "}"}]}], ",", 
+          RowBox[{"Black", ",", "lineThickness"}], "]"}]}], "}"}]}], "}"}]}], 
+    ",", 
     RowBox[{"FrameStyle", "->", "Black"}], ",", 
     RowBox[{"Prolog", "->", 
      RowBox[{"{", "}"}]}], ",", 
@@ -14414,9 +14417,9 @@ q\",FontSlant->\"Italic\"]\)) = \!\(\*FractionBox[\(1\), \
    3.9352944318245077`*^9, 3.9352945258229733`*^9}, 3.935296035567943*^9, {
    3.9352960672714777`*^9, 3.9352960702143784`*^9}, {3.9353069761160097`*^9, 
    3.935306986218671*^9}, {3.935307019676807*^9, 3.935307070615652*^9}, 
-   3.935312241527625*^9},
+   3.935312241527625*^9, {3.9353128482394037`*^9, 3.935312850653492*^9}},
  CellLabel->
-  "In[671]:=",ExpressionUUID->"b7835bf7-af7e-4043-ba65-56202b80be80"],
+  "In[691]:=",ExpressionUUID->"b7835bf7-af7e-4043-ba65-56202b80be80"],
 
 Cell[BoxData[
  GraphicsBox[
@@ -14548,7 +14551,7 @@ Qy9RxJNOPpV0EUIkcaSRxxc6CQbfH/cqLzzzxCMP3HPHLTdcc8Ul//nHBX85
 QDj1
             "]]]}, {}, {}}, {{}, {}, {}, {}, 
          TagBox[
-          {GrayLevel[0], Thickness[0.005], Opacity[1.], 
+          {GrayLevel[0], Thickness[0.004], Opacity[1.], 
            LineBox[{3, 97, 84, 73, 64, 57, 53, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
             13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 
             29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 
@@ -14558,7 +14561,7 @@ QDj1
             105, 92, 81, 108, 95, 72, 107, 94, 110, 83, 109, 96, 111, 52}]},
           Annotation[#, "Charting`Private`Tag#2"]& ], 
          TagBox[
-          {GrayLevel[0], Thickness[0.005], Opacity[1.], 
+          {GrayLevel[0], Thickness[0.004], Opacity[1.], 
            LineBox[{112, 197, 186, 177, 170, 165, 162, 113, 114, 115, 116, 
             117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 
             130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 
@@ -14569,10 +14572,10 @@ QDj1
             176, 205, 194, 208, 185, 207, 196, 209, 161}]},
           Annotation[#, "Charting`Private`Tag#3"]& ], 
          TagBox[
-          {GrayLevel[0], Thickness[0.005], Opacity[1.], LineBox[{336, 211}]},
+          {GrayLevel[0], Thickness[0.004], Opacity[1.], LineBox[{336, 211}]},
           Annotation[#, "Charting`Private`Tag#4"]& ], 
          TagBox[
-          {GrayLevel[0], Thickness[0.005], Opacity[1.], 
+          {GrayLevel[0], Thickness[0.004], Opacity[1.], 
            Dashing[{Small, Small}], LineBox[CompressedData["
 1:eJwNzkVSHAAARNHB3d0ZHIJbcEhwr+IIHAAuwDGRAAnuFtztLd7iV286OL84
 txASCASWWKZb1FBAGnFEsmJbZY0/rLPBJn/5xxbb7LDLHvsccMgRx5xwyhnn
@@ -14732,7 +14735,7 @@ QDj1
                Opacity[1.], 
                AbsoluteThickness[2], 
                GrayLevel[0], 
-               Thickness[0.005]], 
+               Thickness[0.004]], 
               
               Line[{3, 97, 84, 73, 64, 57, 53, 4, 5, 6, 7, 8, 9, 10, 11, 12, 
                13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,
@@ -14747,7 +14750,7 @@ QDj1
                Opacity[1.], 
                AbsoluteThickness[2], 
                GrayLevel[0], 
-               Thickness[0.005]], 
+               Thickness[0.004]], 
               
               Line[{112, 197, 186, 177, 170, 165, 162, 113, 114, 115, 116, 
                117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 
@@ -14763,7 +14766,7 @@ QDj1
                Opacity[1.], 
                AbsoluteThickness[2], 
                GrayLevel[0], 
-               Thickness[0.005]], 
+               Thickness[0.004]], 
               Line[{336, 211}]}, "Charting`Private`Tag#4"], 
             Annotation[{
               Directive[
@@ -14771,7 +14774,7 @@ QDj1
                AbsoluteThickness[2], 
                Dashing[{Small, Small}], 
                GrayLevel[0], 
-               Thickness[0.005]], 
+               Thickness[0.004]], 
               Line[CompressedData["
 1:eJwNzkVSHAAARNHB3d0ZHIJbcEhwr+IIHAAuwDGRAAnuFtztLd7iV286OL84
 txASCASWWKZb1FBAGnFEsmJbZY0/rLPBJn/5xxbb7LDLHvsccMgRx5xwyhnn
@@ -14795,22 +14798,22 @@ yWWENqqYoJNUhmhhigrG6WCGfEZpZ5pqJulilgi+AasONvo=
               AbsoluteThickness[2], 
               Dashing[{Small, Small}], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              Directive[
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]]}, 
+              Thickness[0.004]]}, 
            "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
                Identity[
                 Part[#, 1]], 
@@ -15012,7 +15015,7 @@ Rb/Lu4Jja77m4gSBRQ331SN5a1RrHuw2+CbidGJsfI68CT7tSQlSmhX9o8YK
                   Opacity[1.], 
                   AbsoluteThickness[2], 
                   GrayLevel[0], 
-                  Thickness[0.005]], 
+                  Thickness[0.004]], 
                  Line[CompressedData["
 1:eJwVlXk41Xkbxo+laLNU03SsLzENJWrKWu5so1CNKNpopPIKpeUtpTiFSgsz
 0xs61qjIhEqbJeJINbKdrMU55/c7Wc7y+2peOSNvzJk/nuu+nv/u63M91/Mx
@@ -15058,7 +15061,7 @@ u386IERVeL61jdI7HsXiRMpbiDTjWZ//8ZaTvuyP/7KE+BvtppLm
                   Opacity[1.], 
                   AbsoluteThickness[2], 
                   GrayLevel[0], 
-                  Thickness[0.005]], 
+                  Thickness[0.004]], 
                  Line[CompressedData["
 1:eJwVlX8w1Hkcxjc/BrnIqrQht6UfKHXVFdV5ikTol6xyCUkSzkVMhJPOdkra
 piQROUtXKVtnuRxZI+emzikkTiL7/bb290dzsejsnv54z3ueeWaeP94zz+vN
@@ -15101,7 +15104,7 @@ Lcb/1TYkyQ==
                   Opacity[1.], 
                   AbsoluteThickness[2], 
                   GrayLevel[0], 
-                  Thickness[0.005]], 
+                  Thickness[0.004]], 
                  
                  Line[{{0.9997424266346451, -0.075}, {
                   0.9999999795918367, -0.008452146207865083}}]}, 
@@ -15112,7 +15115,7 @@ Lcb/1TYkyQ==
                   AbsoluteThickness[2], 
                   Dashing[{Small, Small}], 
                   GrayLevel[0], 
-                  Thickness[0.005]], 
+                  Thickness[0.004]], 
                  Line[CompressedData["
 1:eJwVVXs81HkUHaVoqxHJhiShUiorWdQ6G4rQSyRSHiGprKjVQ4VFKNRmS5FH
 qJYiEbVe03iV9yCDYTAYjzG/Lz3WK+zsH/dzP/eP+7nnns+956i4/GblNo9G
@@ -15178,22 +15181,22 @@ fOXZxafVMLHB8mwX4yvBaP7Oia9F7yEu1px6Z5xAyzCJSr3EQPebHZ5OUwT9
              AbsoluteThickness[2], 
              Dashing[{Small, Small}], 
              GrayLevel[0], 
-             Thickness[0.005]], 
+             Thickness[0.004]], 
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              GrayLevel[0], 
-             Thickness[0.005]], 
+             Thickness[0.004]], 
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              GrayLevel[0], 
-             Thickness[0.005]], 
+             Thickness[0.004]], 
             Directive[
              Opacity[1.], 
              AbsoluteThickness[2], 
              GrayLevel[0], 
-             Thickness[0.005]]}, 
+             Thickness[0.004]]}, 
           "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
               Identity[
                Part[#, 1]], 
@@ -15395,7 +15398,7 @@ Rb/Lu4Jja77m4gSBRQ331SN5a1RrHuw2+CbidGJsfI68CT7tSQlSmhX9o8YK
                  Opacity[1.], 
                  AbsoluteThickness[2], 
                  GrayLevel[0], 
-                 Thickness[0.005]], 
+                 Thickness[0.004]], 
                 Line[CompressedData["
 1:eJwVlXk41Xkbxo+laLNU03SsLzENJWrKWu5so1CNKNpopPIKpeUtpTiFSgsz
 0xs61qjIhEqbJeJINbKdrMU55/c7Wc7y+2peOSNvzJk/nuu+nv/u63M91/Mx
@@ -15441,7 +15444,7 @@ u386IERVeL61jdI7HsXiRMpbiDTjWZ//8ZaTvuyP/7KE+BvtppLm
                  Opacity[1.], 
                  AbsoluteThickness[2], 
                  GrayLevel[0], 
-                 Thickness[0.005]], 
+                 Thickness[0.004]], 
                 Line[CompressedData["
 1:eJwVlX8w1Hkcxjc/BrnIqrQht6UfKHXVFdV5ikTol6xyCUkSzkVMhJPOdkra
 piQROUtXKVtnuRxZI+emzikkTiL7/bb290dzsejsnv54z3ueeWaeP94zz+vN
@@ -15484,7 +15487,7 @@ Lcb/1TYkyQ==
                  Opacity[1.], 
                  AbsoluteThickness[2], 
                  GrayLevel[0], 
-                 Thickness[0.005]], 
+                 Thickness[0.004]], 
                 
                 Line[{{0.9997424266346451, -0.075}, {
                  0.9999999795918367, -0.008452146207865083}}]}, 
@@ -15495,7 +15498,7 @@ Lcb/1TYkyQ==
                  AbsoluteThickness[2], 
                  Dashing[{Small, Small}], 
                  GrayLevel[0], 
-                 Thickness[0.005]], 
+                 Thickness[0.004]], 
                 Line[CompressedData["
 1:eJwVVXs81HkUHaVoqxHJhiShUiorWdQ6G4rQSyRSHiGprKjVQ4VFKNRmS5FH
 qJYiEbVe03iV9yCDYTAYjzG/Lz3WK+zsH/dzP/eP+7nnns+956i4/GblNo9G
@@ -15689,7 +15692,7 @@ QDj1
            Opacity[1.], 
            AbsoluteThickness[2], 
            GrayLevel[0], 
-           Thickness[0.005]], 
+           Thickness[0.004]], 
           
           Line[{3, 97, 84, 73, 64, 57, 53, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 
            14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
@@ -15704,7 +15707,7 @@ QDj1
            Opacity[1.], 
            AbsoluteThickness[2], 
            GrayLevel[0], 
-           Thickness[0.005]], 
+           Thickness[0.004]], 
           
           Line[{112, 197, 186, 177, 170, 165, 162, 113, 114, 115, 116, 117, 
            118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 
@@ -15720,7 +15723,7 @@ QDj1
            Opacity[1.], 
            AbsoluteThickness[2], 
            GrayLevel[0], 
-           Thickness[0.005]], 
+           Thickness[0.004]], 
           Line[{336, 211}]}, "Charting`Private`Tag#4"], 
         Annotation[{
           Directive[
@@ -15728,7 +15731,7 @@ QDj1
            AbsoluteThickness[2], 
            Dashing[{Small, Small}], 
            GrayLevel[0], 
-           Thickness[0.005]], 
+           Thickness[0.004]], 
           Line[CompressedData["
 1:eJwNzkVSHAAARNHB3d0ZHIJbcEhwr+IIHAAuwDGRAAnuFtztLd7iV286OL84
 txASCASWWKZb1FBAGnFEsmJbZY0/rLPBJn/5xxbb7LDLHvsccMgRx5xwyhnn
@@ -15752,22 +15755,22 @@ yWWENqqYoJNUhmhhigrG6WCGfEZpZ5pqJulilgi+AasONvo=
           AbsoluteThickness[2], 
           Dashing[{Small, Small}], 
           GrayLevel[0], 
-          Thickness[0.005]], 
+          Thickness[0.004]], 
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0], 
-          Thickness[0.005]], 
+          Thickness[0.004]], 
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0], 
-          Thickness[0.005]], 
+          Thickness[0.004]], 
          Directive[
           Opacity[1.], 
           AbsoluteThickness[2], 
           GrayLevel[0], 
-          Thickness[0.005]]}, 
+          Thickness[0.004]]}, 
        "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({
            Identity[
             Part[#, 1]], 
@@ -15968,7 +15971,7 @@ Rb/Lu4Jja77m4gSBRQ331SN5a1RrHuw2+CbidGJsfI68CT7tSQlSmhX9o8YK
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              Line[CompressedData["
 1:eJwVlXk41Xkbxo+laLNU03SsLzENJWrKWu5so1CNKNpopPIKpeUtpTiFSgsz
 0xs61qjIhEqbJeJINbKdrMU55/c7Wc7y+2peOSNvzJk/nuu+nv/u63M91/Mx
@@ -16014,7 +16017,7 @@ u386IERVeL61jdI7HsXiRMpbiDTjWZ//8ZaTvuyP/7KE+BvtppLm
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              Line[CompressedData["
 1:eJwVlX8w1Hkcxjc/BrnIqrQht6UfKHXVFdV5ikTol6xyCUkSzkVMhJPOdkra
 piQROUtXKVtnuRxZI+emzikkTiL7/bb290dzsejsnv54z3ueeWaeP94zz+vN
@@ -16057,7 +16060,7 @@ Lcb/1TYkyQ==
               Opacity[1.], 
               AbsoluteThickness[2], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              
              Line[{{0.9997424266346451, -0.075}, {
               0.9999999795918367, -0.008452146207865083}}]}, 
@@ -16068,7 +16071,7 @@ Lcb/1TYkyQ==
               AbsoluteThickness[2], 
               Dashing[{Small, Small}], 
               GrayLevel[0], 
-              Thickness[0.005]], 
+              Thickness[0.004]], 
              Line[CompressedData["
 1:eJwVVXs81HkUHaVoqxHJhiShUiorWdQ6G4rQSyRSHiGprKjVQ4VFKNRmS5FH
 qJYiEbVe03iV9yCDYTAYjzG/Lz3WK+zsH/dzP/eP+7nnns+956i4/GblNo9G
@@ -16197,9 +16200,9 @@ StyleBox[\\\"q\\\",FontSlant->\\\"Italic\\\"]\\)) = \\!\\(\\*FractionBox[\\(1\
    3.935236674730239*^9, 3.935236760927196*^9}, {3.9352944473270903`*^9, 
    3.9352945262369337`*^9}, 3.935296036201675*^9, 3.9352960708172407`*^9, 
    3.935306986700128*^9, {3.9353070218473587`*^9, 3.935307071079599*^9}, 
-   3.935312242123535*^9},
+   3.935312242123535*^9, 3.9353128724489098`*^9},
  CellLabel->
-  "Out[671]=",ExpressionUUID->"8bf65b73-f90f-48ad-a2e4-180962392ed2"]
+  "Out[691]=",ExpressionUUID->"7732039f-5bbc-472c-a50d-2b1b74c722ff"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -16242,23 +16245,18 @@ Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", 
          RowBox[{"Directive", "[", 
-          RowBox[{"Black", ",", 
-           RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], "}"}]}], 
-      "}"}]}], ",", 
+          RowBox[{"Black", ",", "lineThickness"}], "]"}]}], "}"}]}], "}"}]}], 
+    ",", 
     RowBox[{"FrameStyle", "->", "Black"}], ",", 
     RowBox[{"Prolog", "->", 
      RowBox[{"{", "}"}]}], ",", 
@@ -16484,9 +16482,9 @@ q\",FontSlant->\"Italic\"]\)) = \!\(\*FractionBox[\(1\), \
    3.9352960804069147`*^9, 3.935296082671032*^9}, {3.935307108384548*^9, 
    3.935307110833621*^9}, {3.935307211130639*^9, 3.9353072297748203`*^9}, {
    3.935307446256929*^9, 3.935307620233624*^9}, {3.935312215684246*^9, 
-   3.935312229942713*^9}},
+   3.935312229942713*^9}, {3.9353128514317093`*^9, 3.935312853043454*^9}},
  CellLabel->
-  "In[670]:=",ExpressionUUID->"60fc774e-789f-47e9-995f-80fba0589db7"],
+  "In[692]:=",ExpressionUUID->"60fc774e-789f-47e9-995f-80fba0589db7"],
 
 Cell[BoxData[
  GraphicsBox[
@@ -18309,7 +18307,8 @@ Cell[BoxData[{
    3.933606425729522*^9, {3.933606976936059*^9, 3.933606984616825*^9}, {
    3.933607821113494*^9, 3.933607827714554*^9}, {3.933764562833202*^9, 
    3.93376457473697*^9}},
- CellLabel->"In[35]:=",ExpressionUUID->"1b485599-abd1-4bc0-967d-165fc92d833b"],
+ CellLabel->
+  "In[684]:=",ExpressionUUID->"1b485599-abd1-4bc0-967d-165fc92d833b"],
 
 Cell[CellGroupData[{
 
@@ -18409,8 +18408,7 @@ Cell[BoxData[
     RowBox[{"Frame", "->", "True"}], ",", 
     RowBox[{"PlotStyle", "->", 
      RowBox[{"Directive", "[", 
-      RowBox[{"Black", ",", 
-       RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], ",", 
+      RowBox[{"Black", ",", "lineThickness"}], "]"}]}], ",", 
     RowBox[{"FrameStyle", "->", "Black"}], ",", 
     RowBox[{"Prolog", "->", 
      RowBox[{"{", "}"}]}], ",", 
@@ -18591,9 +18589,9 @@ Cell[BoxData[
    3.935297314575727*^9, 3.935297314577524*^9}, {3.935307123753413*^9, 
    3.935307155059279*^9}, {3.935307256006933*^9, 3.9353072778622417`*^9}, {
    3.9353073398966007`*^9, 3.935307377519249*^9}, {3.935307687712122*^9, 
-   3.9353077547801533`*^9}, {3.9353118228792686`*^9, 3.935311845047127*^9}},
- CellLabel->
-  "In[664]:=",ExpressionUUID->"101aed77-f32b-4d1b-89a5-4952498963e8"],
+   3.9353077547801533`*^9}, {3.9353118228792686`*^9, 3.935311845047127*^9}, 
+   3.935312853801442*^9},ExpressionUUID->"101aed77-f32b-4d1b-89a5-\
+4952498963e8"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -25409,28 +25407,21 @@ Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", 
          RowBox[{"Directive", "[", 
-          RowBox[{"Black", ",", 
-           RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], "}"}], ",", 
+          RowBox[{"Black", ",", "lineThickness"}], "]"}]}], "}"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], "}"}]}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameStyle", "->", "Black"}], ",", 
     RowBox[{"Prolog", "->", 
      RowBox[{"{", "}"}]}], ",", 
@@ -25622,9 +25613,10 @@ Cell[BoxData[
    3.9353073398966007`*^9, 3.935307395159257*^9}, {3.935307792022643*^9, 
    3.935307819732195*^9}, {3.935307850615034*^9, 3.935307850971246*^9}, {
    3.9353114713298483`*^9, 3.935311680550386*^9}, {3.9353117504833603`*^9, 
-   3.935311791766608*^9}, {3.9353121197872343`*^9, 3.935312135475368*^9}},
- CellLabel->
-  "In[667]:=",ExpressionUUID->"3298ef22-87c1-467f-be42-8177662f54f7"],
+   3.935311791766608*^9}, {3.9353121197872343`*^9, 3.935312135475368*^9}, {
+   3.935312854353426*^9, 
+   3.9353128570203943`*^9}},ExpressionUUID->"3298ef22-87c1-467f-be42-\
+8177662f54f7"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -31594,28 +31586,21 @@ Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", 
          RowBox[{"Directive", "[", 
-          RowBox[{"Black", ",", 
-           RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], "}"}], ",", 
+          RowBox[{"Black", ",", "lineThickness"}], "]"}]}], "}"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], "}"}]}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameStyle", "->", "Black"}], ",", 
     RowBox[{"Prolog", "->", 
      RowBox[{"{", "}"}]}], ",", 
@@ -31744,9 +31729,9 @@ Cell[BoxData[
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Exclusions", "->", "None"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.9353118531782618`*^9, 3.93531185955724*^9}, 
-   3.935312159383746*^9},
- CellLabel->
-  "In[668]:=",ExpressionUUID->"6b68c223-0105-4afb-9c98-1914ceda0c01"],
+   3.935312159383746*^9, {3.935312858396817*^9, 
+   3.9353128595979156`*^9}},ExpressionUUID->"6b68c223-0105-4afb-9c98-\
+1914ceda0c01"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -37092,28 +37077,21 @@ Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Dashed", ",", 
          RowBox[{"Directive", "[", 
-          RowBox[{"Black", ",", 
-           RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], "}"}], ",", 
+          RowBox[{"Black", ",", "lineThickness"}], "]"}]}], "}"}], ",", 
        RowBox[{"Directive", "[", 
-        RowBox[{"Black", ",", 
-         RowBox[{"Thickness", "[", "0.005", "]"}]}], "]"}]}], "}"}]}], ",", 
+        RowBox[{"Black", ",", "lineThickness"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"FrameStyle", "->", "Black"}], ",", 
     RowBox[{"Prolog", "->", 
      RowBox[{"{", "}"}]}], ",", 
@@ -37242,9 +37220,9 @@ Cell[BoxData[
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Exclusions", "->", "None"}]}], "]"}]}]], "Input",
  CellChangeTimes->{{3.935311867488134*^9, 3.9353118730302887`*^9}, 
-   3.935312184174239*^9},
- CellLabel->
-  "In[669]:=",ExpressionUUID->"5829be28-75b4-451c-a080-a230915499be"],
+   3.935312184174239*^9, {3.935312860231035*^9, 
+   3.935312861372333*^9}},ExpressionUUID->"5829be28-75b4-451c-a080-\
+a230915499be"],
 
 Cell[BoxData[
  TemplateBox[{
@@ -41560,9 +41538,9 @@ Cell[BoxData[{
  CellChangeTimes->{{3.933606136686246*^9, 3.933606176063049*^9}, 
    3.933606425729522*^9, {3.933606976936059*^9, 3.933606984616825*^9}, {
    3.933607821113494*^9, 3.933607827714554*^9}, {3.933764562833202*^9, 
-   3.93376457473697*^9}, {3.9353125775213003`*^9, 
-   3.935312594884556*^9}},ExpressionUUID->"0c7dafd8-df30-487c-8333-\
-04e3e10d2833"]
+   3.93376457473697*^9}, {3.9353125775213003`*^9, 3.935312594884556*^9}},
+ CellLabel->
+  "In[679]:=",ExpressionUUID->"0c7dafd8-df30-487c-8333-04e3e10d2833"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -220699,234 +220677,235 @@ Cell[674575, 13032, 1101, 27, 84, "Input",ExpressionUUID->"587076b9-908e-406a-9c
 }, Closed]],
 Cell[CellGroupData[{
 Cell[675713, 13064, 162, 3, 30, "Subsection",ExpressionUUID->"5159d821-004a-42df-9d4c-fa83e8d77495"],
+Cell[675878, 13069, 320, 7, 22, "Input",ExpressionUUID->"f396cb31-1852-4e37-833b-392d09d3b6a9"],
 Cell[CellGroupData[{
-Cell[675900, 13071, 8939, 204, 142, "Input",ExpressionUUID->"6c065066-6bf9-4f3a-a1a0-0b9cba9f452c"],
-Cell[684842, 13277, 47813, 931, 188, "Output",ExpressionUUID->"88e9f393-8134-482a-aa70-8f5b38f28a36"]
+Cell[676223, 13080, 8928, 203, 142, "Input",ExpressionUUID->"6c065066-6bf9-4f3a-a1a0-0b9cba9f452c"],
+Cell[685154, 13285, 47838, 931, 188, "Output",ExpressionUUID->"ac0f7848-ec0d-451a-a413-e874fc30f460"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[732692, 14213, 8652, 205, 202, "Input",ExpressionUUID->"b7835bf7-af7e-4043-ba65-56202b80be80"],
-Cell[741347, 14420, 97462, 1781, 188, "Output",ExpressionUUID->"8bf65b73-f90f-48ad-a2e4-180962392ed2"]
+Cell[733029, 14221, 8521, 200, 186, "Input",ExpressionUUID->"b7835bf7-af7e-4043-ba65-56202b80be80"],
+Cell[741553, 14423, 97486, 1781, 177, "Output",ExpressionUUID->"7732039f-5bbc-472c-a50d-2b1b74c722ff"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[838846, 16206, 11505, 282, 254, "Input",ExpressionUUID->"60fc774e-789f-47e9-995f-80fba0589db7"],
-Cell[850354, 16490, 98017, 1797, 188, "Output",ExpressionUUID->"0e0b20c7-78d1-4314-a25c-18d693431232"]
+Cell[839076, 16209, 11374, 277, 239, "Input",ExpressionUUID->"60fc774e-789f-47e9-995f-80fba0589db7"],
+Cell[850453, 16488, 98017, 1797, 188, "Output",ExpressionUUID->"0e0b20c7-78d1-4314-a25c-18d693431232"]
 }, Open  ]],
-Cell[948386, 18290, 861, 21, 68, "Input",ExpressionUUID->"1b485599-abd1-4bc0-967d-165fc92d833b"],
+Cell[948485, 18288, 865, 22, 68, "Input",ExpressionUUID->"1b485599-abd1-4bc0-967d-165fc92d833b"],
 Cell[CellGroupData[{
-Cell[949272, 18315, 12568, 280, 260, "Input",ExpressionUUID->"101aed77-f32b-4d1b-89a5-4952498963e8"],
-Cell[961843, 18597, 917, 16, 22, "Message",ExpressionUUID->"999ca0c4-2e19-4a0b-9069-a510e37caa21"],
-Cell[962763, 18615, 898, 16, 22, "Message",ExpressionUUID->"28d7f4c9-2cfc-4339-8683-1986e678c01b"],
-Cell[963664, 18633, 765, 14, 31, "Message",ExpressionUUID->"6d6e94af-6202-4f92-a6cb-3be42994e766"],
-Cell[964432, 18649, 799, 15, 22, "Message",ExpressionUUID->"1ada09d8-3cc4-48d2-8392-ca6aa3f2289c"],
-Cell[965234, 18666, 913, 17, 22, "Message",ExpressionUUID->"d4326855-3035-40aa-b370-57e128cdbb8f"],
-Cell[966150, 18685, 763, 14, 31, "Message",ExpressionUUID->"f1f8924b-5704-4ca8-bc03-60f9a4c46d74"],
-Cell[966916, 18701, 797, 15, 22, "Message",ExpressionUUID->"610a9a5c-c253-4dbc-869f-2e841b0b344a"],
-Cell[967716, 18718, 913, 17, 22, "Message",ExpressionUUID->"88e31667-92e6-4bca-aa89-88710ee5074d"],
-Cell[968632, 18737, 896, 16, 22, "Message",ExpressionUUID->"56fda481-f238-4232-af3d-49091a37d88c"],
-Cell[969531, 18755, 845, 15, 22, "Message",ExpressionUUID->"bc172c7a-1268-40e1-918d-0dcaba4600cd"],
-Cell[970379, 18772, 377917, 6536, 183, "Output",ExpressionUUID->"b8c47933-2b99-4d45-b686-25a2e969fe77"]
+Cell[949375, 18314, 12535, 279, 260, "Input",ExpressionUUID->"101aed77-f32b-4d1b-89a5-4952498963e8"],
+Cell[961913, 18595, 917, 16, 22, "Message",ExpressionUUID->"999ca0c4-2e19-4a0b-9069-a510e37caa21"],
+Cell[962833, 18613, 898, 16, 22, "Message",ExpressionUUID->"28d7f4c9-2cfc-4339-8683-1986e678c01b"],
+Cell[963734, 18631, 765, 14, 31, "Message",ExpressionUUID->"6d6e94af-6202-4f92-a6cb-3be42994e766"],
+Cell[964502, 18647, 799, 15, 22, "Message",ExpressionUUID->"1ada09d8-3cc4-48d2-8392-ca6aa3f2289c"],
+Cell[965304, 18664, 913, 17, 22, "Message",ExpressionUUID->"d4326855-3035-40aa-b370-57e128cdbb8f"],
+Cell[966220, 18683, 763, 14, 31, "Message",ExpressionUUID->"f1f8924b-5704-4ca8-bc03-60f9a4c46d74"],
+Cell[966986, 18699, 797, 15, 22, "Message",ExpressionUUID->"610a9a5c-c253-4dbc-869f-2e841b0b344a"],
+Cell[967786, 18716, 913, 17, 22, "Message",ExpressionUUID->"88e31667-92e6-4bca-aa89-88710ee5074d"],
+Cell[968702, 18735, 896, 16, 22, "Message",ExpressionUUID->"56fda481-f238-4232-af3d-49091a37d88c"],
+Cell[969601, 18753, 845, 15, 22, "Message",ExpressionUUID->"bc172c7a-1268-40e1-918d-0dcaba4600cd"],
+Cell[970449, 18770, 377917, 6536, 183, "Output",ExpressionUUID->"b8c47933-2b99-4d45-b686-25a2e969fe77"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1348333, 25313, 13963, 313, 291, "Input",ExpressionUUID->"3298ef22-87c1-467f-be42-8177662f54f7"],
-Cell[1362299, 25628, 1114, 19, 22, "Message",ExpressionUUID->"bb269cac-f3d7-45fa-a5c9-fbd277949f40"],
-Cell[1363416, 25649, 1095, 19, 22, "Message",ExpressionUUID->"86126e9f-2a4c-46f2-bf4f-56355b115993"],
-Cell[1364514, 25670, 1093, 19, 22, "Message",ExpressionUUID->"a3a80209-c47b-44e1-aa58-a21bd6cd5f0b"],
-Cell[1365610, 25691, 1047, 18, 22, "Message",ExpressionUUID->"7a0ca89c-7ddc-4af2-abb5-c6d6801cad76"],
-Cell[1366660, 25711, 331863, 5782, 183, "Output",ExpressionUUID->"23113e5a-f7a9-4c04-9008-4b909f3887f3"]
+Cell[1348403, 25311, 13746, 307, 291, "Input",ExpressionUUID->"3298ef22-87c1-467f-be42-8177662f54f7"],
+Cell[1362152, 25620, 1114, 19, 22, "Message",ExpressionUUID->"bb269cac-f3d7-45fa-a5c9-fbd277949f40"],
+Cell[1363269, 25641, 1095, 19, 22, "Message",ExpressionUUID->"86126e9f-2a4c-46f2-bf4f-56355b115993"],
+Cell[1364367, 25662, 1093, 19, 22, "Message",ExpressionUUID->"a3a80209-c47b-44e1-aa58-a21bd6cd5f0b"],
+Cell[1365463, 25683, 1047, 18, 22, "Message",ExpressionUUID->"7a0ca89c-7ddc-4af2-abb5-c6d6801cad76"],
+Cell[1366513, 25703, 331863, 5782, 183, "Output",ExpressionUUID->"23113e5a-f7a9-4c04-9008-4b909f3887f3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1698560, 31498, 9281, 250, 291, "Input",ExpressionUUID->"6b68c223-0105-4afb-9c98-1914ceda0c01"],
-Cell[1707844, 31750, 396, 9, 31, "Message",ExpressionUUID->"17192303-f9a1-4c8a-94aa-39d6468187c5"],
-Cell[1708243, 31761, 432, 10, 22, "Message",ExpressionUUID->"47713f0d-8848-4f7c-af6e-87b2eee21e26"],
-Cell[1708678, 31773, 546, 12, 22, "Message",ExpressionUUID->"0446731e-931e-4cf2-8c63-972f06ff0e0c"],
-Cell[1709227, 31787, 395, 9, 31, "Message",ExpressionUUID->"3a0726da-4a22-4086-875f-03a2a6fb8cd7"],
-Cell[1709625, 31798, 432, 10, 22, "Message",ExpressionUUID->"89aa8df6-00b1-4154-bdd1-a08c40fd3be4"],
-Cell[1710060, 31810, 545, 12, 22, "Message",ExpressionUUID->"83cff261-4aef-4f8f-82de-0906e3614855"],
-Cell[1710608, 31824, 295067, 5167, 183, "Output",ExpressionUUID->"3000f1ef-a3bd-4ba8-bfc1-70e539a8fc02"]
+Cell[1698413, 31490, 9060, 243, 291, "Input",ExpressionUUID->"6b68c223-0105-4afb-9c98-1914ceda0c01"],
+Cell[1707476, 31735, 396, 9, 31, "Message",ExpressionUUID->"17192303-f9a1-4c8a-94aa-39d6468187c5"],
+Cell[1707875, 31746, 432, 10, 22, "Message",ExpressionUUID->"47713f0d-8848-4f7c-af6e-87b2eee21e26"],
+Cell[1708310, 31758, 546, 12, 22, "Message",ExpressionUUID->"0446731e-931e-4cf2-8c63-972f06ff0e0c"],
+Cell[1708859, 31772, 395, 9, 31, "Message",ExpressionUUID->"3a0726da-4a22-4086-875f-03a2a6fb8cd7"],
+Cell[1709257, 31783, 432, 10, 22, "Message",ExpressionUUID->"89aa8df6-00b1-4154-bdd1-a08c40fd3be4"],
+Cell[1709692, 31795, 545, 12, 22, "Message",ExpressionUUID->"83cff261-4aef-4f8f-82de-0906e3614855"],
+Cell[1710240, 31809, 295067, 5167, 183, "Output",ExpressionUUID->"3000f1ef-a3bd-4ba8-bfc1-70e539a8fc02"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2005712, 36996, 9282, 250, 291, "Input",ExpressionUUID->"5829be28-75b4-451c-a080-a230915499be"],
-Cell[2014997, 37248, 396, 9, 31, "Message",ExpressionUUID->"4e849850-f1c9-4b72-9df2-989d145b86fe"],
-Cell[2015396, 37259, 430, 10, 22, "Message",ExpressionUUID->"56084b49-c0ff-4ae4-95f1-95a83a01bdcd"],
-Cell[2015829, 37271, 546, 12, 22, "Message",ExpressionUUID->"32b87ac8-d3e3-449a-bde0-805d8280d706"],
-Cell[2016378, 37285, 396, 9, 31, "Message",ExpressionUUID->"0be835cf-5550-4f81-b4e4-c9c799bf9d4b"],
-Cell[2016777, 37296, 432, 10, 22, "Message",ExpressionUUID->"7541544c-997c-42e9-b8cf-0a4dc3d0922d"],
-Cell[2017212, 37308, 546, 12, 22, "Message",ExpressionUUID->"374f6ff6-dc91-421f-8111-37b29e1958b9"],
-Cell[2017761, 37322, 236333, 4213, 183, "Output",ExpressionUUID->"e8d0b294-d697-4442-9aa3-c62ddd9c2ed3"]
+Cell[2005344, 36981, 9059, 243, 291, "Input",ExpressionUUID->"5829be28-75b4-451c-a080-a230915499be"],
+Cell[2014406, 37226, 396, 9, 31, "Message",ExpressionUUID->"4e849850-f1c9-4b72-9df2-989d145b86fe"],
+Cell[2014805, 37237, 430, 10, 22, "Message",ExpressionUUID->"56084b49-c0ff-4ae4-95f1-95a83a01bdcd"],
+Cell[2015238, 37249, 546, 12, 22, "Message",ExpressionUUID->"32b87ac8-d3e3-449a-bde0-805d8280d706"],
+Cell[2015787, 37263, 396, 9, 31, "Message",ExpressionUUID->"0be835cf-5550-4f81-b4e4-c9c799bf9d4b"],
+Cell[2016186, 37274, 432, 10, 22, "Message",ExpressionUUID->"7541544c-997c-42e9-b8cf-0a4dc3d0922d"],
+Cell[2016621, 37286, 546, 12, 22, "Message",ExpressionUUID->"374f6ff6-dc91-421f-8111-37b29e1958b9"],
+Cell[2017170, 37300, 236333, 4213, 183, "Output",ExpressionUUID->"e8d0b294-d697-4442-9aa3-c62ddd9c2ed3"]
 }, Open  ]],
-Cell[2254109, 41538, 1050, 26, 84, "Input",ExpressionUUID->"0c7dafd8-df30-487c-8333-04e3e10d2833"]
+Cell[2253518, 41516, 1072, 26, 84, "Input",ExpressionUUID->"0c7dafd8-df30-487c-8333-04e3e10d2833"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2255196, 41569, 168, 3, 41, "Subsection",ExpressionUUID->"b535800b-9d38-4d4f-9e23-c69cf4d429fb"],
-Cell[2255367, 41574, 633, 15, 24, "Input",ExpressionUUID->"f9bfb54c-f8f3-4525-abeb-233750cee79a"],
-Cell[2256003, 41591, 1328, 26, 24, "Input",ExpressionUUID->"7618c6de-8d4a-471b-b096-c27a59d6c675"],
+Cell[2254627, 41547, 168, 3, 41, "Subsection",ExpressionUUID->"b535800b-9d38-4d4f-9e23-c69cf4d429fb"],
+Cell[2254798, 41552, 633, 15, 24, "Input",ExpressionUUID->"f9bfb54c-f8f3-4525-abeb-233750cee79a"],
+Cell[2255434, 41569, 1328, 26, 24, "Input",ExpressionUUID->"7618c6de-8d4a-471b-b096-c27a59d6c675"],
 Cell[CellGroupData[{
-Cell[2257356, 41621, 369, 8, 22, "Input",ExpressionUUID->"f0210815-94c5-4cb1-80fe-bd2530af8882"],
-Cell[2257728, 41631, 1159, 23, 42, "Output",ExpressionUUID->"fe6a90df-8284-4593-ad95-18776dee12ba"]
+Cell[2256787, 41599, 369, 8, 22, "Input",ExpressionUUID->"f0210815-94c5-4cb1-80fe-bd2530af8882"],
+Cell[2257159, 41609, 1159, 23, 42, "Output",ExpressionUUID->"fe6a90df-8284-4593-ad95-18776dee12ba"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2258924, 41659, 1477, 42, 39, "Input",ExpressionUUID->"94b6c17c-655e-47eb-9104-1a3e8efc5930"],
-Cell[2260404, 41703, 2609, 78, 54, "Output",ExpressionUUID->"a47fe3af-36d2-4287-bd83-2a93e3914f03"]
+Cell[2258355, 41637, 1477, 42, 39, "Input",ExpressionUUID->"94b6c17c-655e-47eb-9104-1a3e8efc5930"],
+Cell[2259835, 41681, 2609, 78, 54, "Output",ExpressionUUID->"a47fe3af-36d2-4287-bd83-2a93e3914f03"]
 }, Open  ]],
-Cell[2263028, 41784, 2817, 65, 39, "Input",ExpressionUUID->"baaf63c8-5be4-4d2a-a22b-7dc91aa7910c"],
+Cell[2262459, 41762, 2817, 65, 39, "Input",ExpressionUUID->"baaf63c8-5be4-4d2a-a22b-7dc91aa7910c"],
 Cell[CellGroupData[{
-Cell[2265870, 41853, 676, 19, 35, "Input",ExpressionUUID->"f413f90a-2bbe-4119-afe0-c4eeb6f72ad3"],
-Cell[2266549, 41874, 1383, 37, 41, "Output",ExpressionUUID->"88b56873-7ab9-4829-8db3-a20d0df14d25"]
+Cell[2265301, 41831, 676, 19, 35, "Input",ExpressionUUID->"f413f90a-2bbe-4119-afe0-c4eeb6f72ad3"],
+Cell[2265980, 41852, 1383, 37, 41, "Output",ExpressionUUID->"88b56873-7ab9-4829-8db3-a20d0df14d25"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2267969, 41916, 632, 16, 35, "Input",ExpressionUUID->"f4199132-776b-444e-905f-98463bad3266"],
-Cell[2268604, 41934, 396, 7, 42, "Output",ExpressionUUID->"c3a6a8d3-f6e2-4820-ad3e-241c8716142b"]
+Cell[2267400, 41894, 632, 16, 35, "Input",ExpressionUUID->"f4199132-776b-444e-905f-98463bad3266"],
+Cell[2268035, 41912, 396, 7, 42, "Output",ExpressionUUID->"c3a6a8d3-f6e2-4820-ad3e-241c8716142b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2269037, 41946, 1520, 37, 35, "Input",ExpressionUUID->"a2bdf3e3-eab7-4136-8b03-4eb31b271821"],
-Cell[2270560, 41985, 1838, 26, 25, "Output",ExpressionUUID->"d0a3d4a6-34ba-40f2-a7d0-f233befe2a26"]
+Cell[2268468, 41924, 1520, 37, 35, "Input",ExpressionUUID->"a2bdf3e3-eab7-4136-8b03-4eb31b271821"],
+Cell[2269991, 41963, 1838, 26, 25, "Output",ExpressionUUID->"d0a3d4a6-34ba-40f2-a7d0-f233befe2a26"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2272435, 42016, 1391, 36, 35, "Input",ExpressionUUID->"bdc90b67-e81a-4882-976a-f1ebbb721caf"],
-Cell[2273829, 42054, 388, 6, 25, "Output",ExpressionUUID->"542b581b-e106-4e4d-9ba9-cf5b96db734b"]
+Cell[2271866, 41994, 1391, 36, 35, "Input",ExpressionUUID->"bdc90b67-e81a-4882-976a-f1ebbb721caf"],
+Cell[2273260, 42032, 388, 6, 25, "Output",ExpressionUUID->"542b581b-e106-4e4d-9ba9-cf5b96db734b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2274254, 42065, 5042, 119, 121, "Input",ExpressionUUID->"aa7e3288-606c-43dd-b026-af18071365ea"],
-Cell[2279299, 42186, 43673, 801, 68, "Output",ExpressionUUID->"8869033b-708a-43fd-adfb-83f0ccfdf27e"]
+Cell[2273685, 42043, 5042, 119, 121, "Input",ExpressionUUID->"aa7e3288-606c-43dd-b026-af18071365ea"],
+Cell[2278730, 42164, 43673, 801, 68, "Output",ExpressionUUID->"8869033b-708a-43fd-adfb-83f0ccfdf27e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2323009, 42992, 4059, 92, 89, "Input",ExpressionUUID->"dcf47297-6e73-48db-95c6-2be317bfb5b5"],
-Cell[2327071, 43086, 92260, 1688, 146, "Output",ExpressionUUID->"50b8d242-2452-4ef9-ade0-89cad39074e7"]
+Cell[2322440, 42970, 4059, 92, 89, "Input",ExpressionUUID->"dcf47297-6e73-48db-95c6-2be317bfb5b5"],
+Cell[2326502, 43064, 92260, 1688, 146, "Output",ExpressionUUID->"50b8d242-2452-4ef9-ade0-89cad39074e7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2419368, 44779, 4471, 129, 160, "Input",ExpressionUUID->"b7c04588-51c4-46ba-b43a-323e54fb82c5"],
-Cell[2423842, 44910, 19333, 385, 168, "Output",ExpressionUUID->"a000bd61-7139-4d7a-9ee0-d01f708b299c"]
+Cell[2418799, 44757, 4471, 129, 160, "Input",ExpressionUUID->"b7c04588-51c4-46ba-b43a-323e54fb82c5"],
+Cell[2423273, 44888, 19333, 385, 168, "Output",ExpressionUUID->"a000bd61-7139-4d7a-9ee0-d01f708b299c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2443212, 45300, 1422, 44, 38, "Input",ExpressionUUID->"d9cda07c-d634-4a28-a432-736d372a2183"],
-Cell[2444637, 45346, 8342, 232, 175, "Output",ExpressionUUID->"835845d3-8083-4484-bec4-283cf770897a"]
+Cell[2442643, 45278, 1422, 44, 38, "Input",ExpressionUUID->"d9cda07c-d634-4a28-a432-736d372a2183"],
+Cell[2444068, 45324, 8342, 232, 175, "Output",ExpressionUUID->"835845d3-8083-4484-bec4-283cf770897a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2453016, 45583, 1344, 40, 38, "Input",ExpressionUUID->"d5c71612-e41c-40a0-8f22-153b347f934a"],
-Cell[2454363, 45625, 5865, 127, 176, "Output",ExpressionUUID->"caa50a86-bb7f-4b9d-92ea-f66a3a136213"]
+Cell[2452447, 45561, 1344, 40, 38, "Input",ExpressionUUID->"d5c71612-e41c-40a0-8f22-153b347f934a"],
+Cell[2453794, 45603, 5865, 127, 176, "Output",ExpressionUUID->"caa50a86-bb7f-4b9d-92ea-f66a3a136213"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2460265, 45757, 457, 10, 22, "Input",ExpressionUUID->"6729ea2e-916f-4c77-ad4d-d272adeb529e"],
-Cell[2460725, 45769, 1968, 31, 25, "Output",ExpressionUUID->"48e051eb-c4ff-498a-9b99-6dfb381ea559"]
+Cell[2459696, 45735, 457, 10, 22, "Input",ExpressionUUID->"6729ea2e-916f-4c77-ad4d-d272adeb529e"],
+Cell[2460156, 45747, 1968, 31, 25, "Output",ExpressionUUID->"48e051eb-c4ff-498a-9b99-6dfb381ea559"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2462730, 45805, 961, 25, 25, "Input",ExpressionUUID->"04e6644b-90a9-4b4e-90ba-9f54a0b030a5"],
-Cell[2463694, 45832, 4188, 83, 38, "Output",ExpressionUUID->"bdf9c97f-1c76-4663-a20c-44fd17f55b96"]
+Cell[2462161, 45783, 961, 25, 25, "Input",ExpressionUUID->"04e6644b-90a9-4b4e-90ba-9f54a0b030a5"],
+Cell[2463125, 45810, 4188, 83, 38, "Output",ExpressionUUID->"bdf9c97f-1c76-4663-a20c-44fd17f55b96"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2467919, 45920, 1971, 47, 76, "Input",ExpressionUUID->"4f6ec33b-2722-4715-8283-2253119f6e1c"],
-Cell[2469893, 45969, 34561, 751, 138, "Output",ExpressionUUID->"340cddc0-854e-42e2-b249-d7e082eafe53"]
+Cell[2467350, 45898, 1971, 47, 76, "Input",ExpressionUUID->"4f6ec33b-2722-4715-8283-2253119f6e1c"],
+Cell[2469324, 45947, 34561, 751, 138, "Output",ExpressionUUID->"340cddc0-854e-42e2-b249-d7e082eafe53"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2504491, 46725, 941, 25, 25, "Input",ExpressionUUID->"c699da20-b8e1-4d8d-b830-d061605f160c"],
-Cell[2505435, 46752, 4688, 90, 38, "Output",ExpressionUUID->"3fd1b910-f976-48e4-8f6e-184ea17efd2e"]
+Cell[2503922, 46703, 941, 25, 25, "Input",ExpressionUUID->"c699da20-b8e1-4d8d-b830-d061605f160c"],
+Cell[2504866, 46730, 4688, 90, 38, "Output",ExpressionUUID->"3fd1b910-f976-48e4-8f6e-184ea17efd2e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2510160, 46847, 691, 20, 25, "Input",ExpressionUUID->"a50d66f9-04d2-4491-ae90-63cb096c85d3"],
-Cell[2510854, 46869, 1508, 38, 27, "Output",ExpressionUUID->"9ec2f1d4-2ca9-4456-9aab-57f32213e1c9"]
+Cell[2509591, 46825, 691, 20, 25, "Input",ExpressionUUID->"a50d66f9-04d2-4491-ae90-63cb096c85d3"],
+Cell[2510285, 46847, 1508, 38, 27, "Output",ExpressionUUID->"9ec2f1d4-2ca9-4456-9aab-57f32213e1c9"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2512399, 46912, 4121, 102, 125, "Input",ExpressionUUID->"e5d2c2e9-65d2-42b6-87d6-57bf360d129a"],
-Cell[2516523, 47016, 46383, 998, 150, "Output",ExpressionUUID->"dee0af71-7016-49bd-8022-9a89569f7935"]
+Cell[2511830, 46890, 4121, 102, 125, "Input",ExpressionUUID->"e5d2c2e9-65d2-42b6-87d6-57bf360d129a"],
+Cell[2515954, 46994, 46383, 998, 150, "Output",ExpressionUUID->"dee0af71-7016-49bd-8022-9a89569f7935"]
 }, Open  ]],
-Cell[2562921, 48017, 556, 15, 53, "Input",ExpressionUUID->"8abd0066-58cc-4935-be9c-3bede175f9cf"],
+Cell[2562352, 47995, 556, 15, 53, "Input",ExpressionUUID->"8abd0066-58cc-4935-be9c-3bede175f9cf"],
 Cell[CellGroupData[{
-Cell[2563502, 48036, 1285, 39, 43, "Input",ExpressionUUID->"c455b4ff-c06e-4670-8c0b-a6b83b146cb8"],
-Cell[2564790, 48077, 403, 6, 25, "Output",ExpressionUUID->"e1241601-5d25-4a0d-8b94-71cf6da8f0e6"],
-Cell[2565196, 48085, 418, 7, 25, "Output",ExpressionUUID->"a749d59b-d4bc-4c14-b0a9-0a53158cbb61"]
+Cell[2562933, 48014, 1285, 39, 43, "Input",ExpressionUUID->"c455b4ff-c06e-4670-8c0b-a6b83b146cb8"],
+Cell[2564221, 48055, 403, 6, 25, "Output",ExpressionUUID->"e1241601-5d25-4a0d-8b94-71cf6da8f0e6"],
+Cell[2564627, 48063, 418, 7, 25, "Output",ExpressionUUID->"a749d59b-d4bc-4c14-b0a9-0a53158cbb61"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2565651, 48097, 1276, 35, 42, "Input",ExpressionUUID->"5d1f916c-a784-49e1-8c0c-4c3c76f0c816"],
-Cell[2566930, 48134, 4544, 92, 44, "Output",ExpressionUUID->"c769cde6-a10b-4542-b791-8a65b0f91922"]
+Cell[2565082, 48075, 1276, 35, 42, "Input",ExpressionUUID->"5d1f916c-a784-49e1-8c0c-4c3c76f0c816"],
+Cell[2566361, 48112, 4544, 92, 44, "Output",ExpressionUUID->"c769cde6-a10b-4542-b791-8a65b0f91922"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2571511, 48231, 1324, 34, 42, "Input",ExpressionUUID->"a04437e1-ad3b-4721-b631-2e920551efc0"],
-Cell[2572838, 48267, 4822, 95, 40, "Output",ExpressionUUID->"140e4c9e-b686-4362-9ffe-6f7940ca5b96"]
+Cell[2570942, 48209, 1324, 34, 42, "Input",ExpressionUUID->"a04437e1-ad3b-4721-b631-2e920551efc0"],
+Cell[2572269, 48245, 4822, 95, 40, "Output",ExpressionUUID->"140e4c9e-b686-4362-9ffe-6f7940ca5b96"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2577697, 48367, 2183, 59, 53, "Input",ExpressionUUID->"fe010fe0-3f0c-4ab4-be57-676536c7b785"],
-Cell[2579883, 48428, 15111, 336, 165, "Output",ExpressionUUID->"ab392159-73ae-4e54-80d3-160b19aa027d"]
+Cell[2577128, 48345, 2183, 59, 53, "Input",ExpressionUUID->"fe010fe0-3f0c-4ab4-be57-676536c7b785"],
+Cell[2579314, 48406, 15111, 336, 165, "Output",ExpressionUUID->"ab392159-73ae-4e54-80d3-160b19aa027d"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[2595043, 48770, 206, 4, 41, "Subsection",ExpressionUUID->"ff39082a-03fc-42e8-9724-cba9e881655b"],
-Cell[2595252, 48776, 1704, 46, 75, "Input",ExpressionUUID->"872cc790-4f13-4d2d-99a7-abdf4436fa2c"],
-Cell[2596959, 48824, 1015, 17, 22, "Input",ExpressionUUID->"f17e49ae-1bb3-48f1-9b75-bbeb65878fdc"],
-Cell[2597977, 48843, 1246, 23, 24, "Input",ExpressionUUID->"b398376c-4a37-4baa-8263-1a3b2b0d511d"],
-Cell[2599226, 48868, 718, 20, 24, "Input",ExpressionUUID->"2b59e2ea-3c03-4c5d-ba00-f9025a081a2f"],
+Cell[2594474, 48748, 206, 4, 41, "Subsection",ExpressionUUID->"ff39082a-03fc-42e8-9724-cba9e881655b"],
+Cell[2594683, 48754, 1704, 46, 75, "Input",ExpressionUUID->"872cc790-4f13-4d2d-99a7-abdf4436fa2c"],
+Cell[2596390, 48802, 1015, 17, 22, "Input",ExpressionUUID->"f17e49ae-1bb3-48f1-9b75-bbeb65878fdc"],
+Cell[2597408, 48821, 1246, 23, 24, "Input",ExpressionUUID->"b398376c-4a37-4baa-8263-1a3b2b0d511d"],
+Cell[2598657, 48846, 718, 20, 24, "Input",ExpressionUUID->"2b59e2ea-3c03-4c5d-ba00-f9025a081a2f"],
 Cell[CellGroupData[{
-Cell[2599969, 48892, 1667, 37, 41, "Input",ExpressionUUID->"915061c0-7ec9-48b1-a951-8e51348a9795"],
-Cell[2601639, 48931, 55327, 1054, 336, "Output",ExpressionUUID->"93b1d9e1-547b-4a56-9209-648c8c715d70"]
+Cell[2599400, 48870, 1667, 37, 41, "Input",ExpressionUUID->"915061c0-7ec9-48b1-a951-8e51348a9795"],
+Cell[2601070, 48909, 55327, 1054, 336, "Output",ExpressionUUID->"93b1d9e1-547b-4a56-9209-648c8c715d70"]
 }, Open  ]],
-Cell[2656981, 49988, 317, 8, 22, "Input",ExpressionUUID->"86708862-7b81-4d16-95d3-4da6365a6038"],
-Cell[2657301, 49998, 2191, 49, 41, "Input",ExpressionUUID->"9de20adc-add5-4dad-bd65-1e8498717078"],
+Cell[2656412, 49966, 317, 8, 22, "Input",ExpressionUUID->"86708862-7b81-4d16-95d3-4da6365a6038"],
+Cell[2656732, 49976, 2191, 49, 41, "Input",ExpressionUUID->"9de20adc-add5-4dad-bd65-1e8498717078"],
 Cell[CellGroupData[{
-Cell[2659517, 50051, 2279, 53, 41, "Input",ExpressionUUID->"e528bc83-fedd-4cb7-a7e2-7fb607978acf"],
-Cell[2661799, 50106, 64299, 1232, 336, "Output",ExpressionUUID->"6bbbb0ed-a433-4420-8afa-bfa6f4669dd0"]
+Cell[2658948, 50029, 2279, 53, 41, "Input",ExpressionUUID->"e528bc83-fedd-4cb7-a7e2-7fb607978acf"],
+Cell[2661230, 50084, 64299, 1232, 336, "Output",ExpressionUUID->"6bbbb0ed-a433-4420-8afa-bfa6f4669dd0"]
 }, Open  ]],
-Cell[2726113, 51341, 848, 17, 22, "Input",ExpressionUUID->"ef6f487a-9ee3-4aa0-b539-506a622a13b7"],
+Cell[2725544, 51319, 848, 17, 22, "Input",ExpressionUUID->"ef6f487a-9ee3-4aa0-b539-506a622a13b7"],
 Cell[CellGroupData[{
-Cell[2726986, 51362, 1354, 26, 24, "Input",ExpressionUUID->"0db98d0e-b92d-4ab8-bb66-61f53b411000"],
-Cell[2728343, 51390, 328445, 5397, 296, 269006, 4425, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"05ce0ab7-c150-4319-bc8c-f6fbbda4fda7"]
+Cell[2726417, 51340, 1354, 26, 24, "Input",ExpressionUUID->"0db98d0e-b92d-4ab8-bb66-61f53b411000"],
+Cell[2727774, 51368, 328445, 5397, 296, 269006, 4425, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"05ce0ab7-c150-4319-bc8c-f6fbbda4fda7"]
 }, Open  ]],
-Cell[3056803, 56790, 815, 23, 40, "Input",ExpressionUUID->"40263386-cd9f-4a8d-b927-488a1cae2843"],
+Cell[3056234, 56768, 815, 23, 40, "Input",ExpressionUUID->"40263386-cd9f-4a8d-b927-488a1cae2843"],
 Cell[CellGroupData[{
-Cell[3057643, 56817, 2207, 42, 38, "Input",ExpressionUUID->"994154ba-91be-43cc-9ca0-50745729e383"],
-Cell[3059853, 56861, 269883, 4439, 161, "Output",ExpressionUUID->"148e4c1a-652b-4992-8055-5b38b2e33f1c"]
+Cell[3057074, 56795, 2207, 42, 38, "Input",ExpressionUUID->"994154ba-91be-43cc-9ca0-50745729e383"],
+Cell[3059284, 56839, 269883, 4439, 161, "Output",ExpressionUUID->"148e4c1a-652b-4992-8055-5b38b2e33f1c"]
 }, Open  ]],
-Cell[3329751, 61303, 1065, 17, 22, "Input",ExpressionUUID->"1ac93f6b-d483-4656-bc4e-cafae8d64928"],
-Cell[3330819, 61322, 1419, 30, 24, "Input",ExpressionUUID->"e5032b08-7a83-444c-b31e-b851a96b69c9"],
-Cell[3332241, 61354, 1086, 30, 24, "Input",ExpressionUUID->"4360d156-0917-4230-ba20-5153b91f78dd"],
+Cell[3329182, 61281, 1065, 17, 22, "Input",ExpressionUUID->"1ac93f6b-d483-4656-bc4e-cafae8d64928"],
+Cell[3330250, 61300, 1419, 30, 24, "Input",ExpressionUUID->"e5032b08-7a83-444c-b31e-b851a96b69c9"],
+Cell[3331672, 61332, 1086, 30, 24, "Input",ExpressionUUID->"4360d156-0917-4230-ba20-5153b91f78dd"],
 Cell[CellGroupData[{
-Cell[3333352, 61388, 1765, 39, 41, "Input",ExpressionUUID->"24bd308d-c1c0-418c-9278-e1cef4b12f0f"],
-Cell[3335120, 61429, 492466, 9337, 336, "Output",ExpressionUUID->"c7e54478-684c-4d40-af44-a66ef70233cc"]
+Cell[3332783, 61366, 1765, 39, 41, "Input",ExpressionUUID->"24bd308d-c1c0-418c-9278-e1cef4b12f0f"],
+Cell[3334551, 61407, 492466, 9337, 336, "Output",ExpressionUUID->"c7e54478-684c-4d40-af44-a66ef70233cc"]
 }, Open  ]],
-Cell[3827601, 70769, 317, 8, 22, "Input",ExpressionUUID->"f7d8a0e0-db54-4a86-97a2-09b9bb47639b"],
-Cell[3827921, 70779, 2391, 56, 41, "Input",ExpressionUUID->"670190eb-97cf-48ad-b575-b3100869cb93"],
+Cell[3827032, 70747, 317, 8, 22, "Input",ExpressionUUID->"f7d8a0e0-db54-4a86-97a2-09b9bb47639b"],
+Cell[3827352, 70757, 2391, 56, 41, "Input",ExpressionUUID->"670190eb-97cf-48ad-b575-b3100869cb93"],
 Cell[CellGroupData[{
-Cell[3830337, 70839, 2348, 56, 41, "Input",ExpressionUUID->"578ccac6-7b17-4583-9281-66874ba9b897"],
-Cell[3832688, 70897, 795623, 14282, 336, "Output",ExpressionUUID->"b80ff946-be74-415d-8de2-ab145714ebf3"]
+Cell[3829768, 70817, 2348, 56, 41, "Input",ExpressionUUID->"578ccac6-7b17-4583-9281-66874ba9b897"],
+Cell[3832119, 70875, 795623, 14282, 336, "Output",ExpressionUUID->"b80ff946-be74-415d-8de2-ab145714ebf3"]
 }, Open  ]],
-Cell[4628326, 85182, 848, 17, 22, "Input",ExpressionUUID->"a515cac5-2419-4e69-aff7-acf2ed64e535"],
+Cell[4627757, 85160, 848, 17, 22, "Input",ExpressionUUID->"a515cac5-2419-4e69-aff7-acf2ed64e535"],
 Cell[CellGroupData[{
-Cell[4629199, 85203, 1354, 26, 24, "Input",ExpressionUUID->"f89589c3-3d58-45c8-9cc4-1a567916cd3b"],
-Cell[4630556, 85231, 560902, 9207, 296, "Output",ExpressionUUID->"7542bad6-cea8-486a-ad70-240e327e482d"]
+Cell[4628630, 85181, 1354, 26, 24, "Input",ExpressionUUID->"f89589c3-3d58-45c8-9cc4-1a567916cd3b"],
+Cell[4629987, 85209, 560902, 9207, 296, "Output",ExpressionUUID->"7542bad6-cea8-486a-ad70-240e327e482d"]
 }, Open  ]],
-Cell[5191473, 94441, 815, 23, 40, "Input",ExpressionUUID->"584b6c8b-947f-4280-9a9c-7ab2728cd4b7"],
+Cell[5190904, 94419, 815, 23, 40, "Input",ExpressionUUID->"584b6c8b-947f-4280-9a9c-7ab2728cd4b7"],
 Cell[CellGroupData[{
-Cell[5192313, 94468, 2201, 42, 38, "Input",ExpressionUUID->"7a622b9e-63d1-4073-8620-2e390e4d56bd"],
-Cell[5194517, 94512, 560220, 9198, 161, "Output",ExpressionUUID->"cc529c41-089a-4275-8426-a2014dd26b11"]
+Cell[5191744, 94446, 2201, 42, 38, "Input",ExpressionUUID->"7a622b9e-63d1-4073-8620-2e390e4d56bd"],
+Cell[5193948, 94490, 560220, 9198, 161, "Output",ExpressionUUID->"cc529c41-089a-4275-8426-a2014dd26b11"]
 }, Open  ]],
-Cell[5754752, 103713, 1627, 36, 38, "Input",ExpressionUUID->"b4b2f41d-2e37-47da-9ba6-562bb35857f8"],
-Cell[5756382, 103751, 577, 16, 24, "Input",ExpressionUUID->"94331b49-df2d-48dc-9c78-a542603df328"],
+Cell[5754183, 103691, 1627, 36, 38, "Input",ExpressionUUID->"b4b2f41d-2e37-47da-9ba6-562bb35857f8"],
+Cell[5755813, 103729, 577, 16, 24, "Input",ExpressionUUID->"94331b49-df2d-48dc-9c78-a542603df328"],
 Cell[CellGroupData[{
-Cell[5756984, 103771, 1258, 33, 24, "Input",ExpressionUUID->"fa6551ed-ab50-40f7-9b77-8b6ae3f11f33"],
-Cell[5758245, 103806, 2522980, 48064, 286, "Output",ExpressionUUID->"1168ec66-8687-4c95-8f7b-591acb738b27"]
+Cell[5756415, 103749, 1258, 33, 24, "Input",ExpressionUUID->"fa6551ed-ab50-40f7-9b77-8b6ae3f11f33"],
+Cell[5757676, 103784, 2522980, 48064, 286, "Output",ExpressionUUID->"1168ec66-8687-4c95-8f7b-591acb738b27"]
 }, Open  ]],
-Cell[8281240, 151873, 254, 7, 22, "Input",ExpressionUUID->"c0e2215b-6c8a-4d76-b692-b351b0f9c2ee"],
-Cell[8281497, 151882, 2061, 49, 41, "Input",ExpressionUUID->"e1ec0204-d79b-43d2-91be-5ef87bf83dbf"],
+Cell[8280671, 151851, 254, 7, 22, "Input",ExpressionUUID->"c0e2215b-6c8a-4d76-b692-b351b0f9c2ee"],
+Cell[8280928, 151860, 2061, 49, 41, "Input",ExpressionUUID->"e1ec0204-d79b-43d2-91be-5ef87bf83dbf"],
 Cell[CellGroupData[{
-Cell[8283583, 151935, 1617, 33, 22, "Input",ExpressionUUID->"d982051e-8a3f-46b8-b9a6-c5fd1fb15b3c"],
-Cell[8285203, 151970, 2568146, 48452, 336, "Output",ExpressionUUID->"8a79898f-8c41-4f2b-b502-795be7e4aa6b"]
+Cell[8283014, 151913, 1617, 33, 22, "Input",ExpressionUUID->"d982051e-8a3f-46b8-b9a6-c5fd1fb15b3c"],
+Cell[8284634, 151948, 2568146, 48452, 336, "Output",ExpressionUUID->"8a79898f-8c41-4f2b-b502-795be7e4aa6b"]
 }, Open  ]],
-Cell[10853364, 200425, 795, 16, 22, "Input",ExpressionUUID->"655b3958-406c-4270-9fe9-daeb72feaa1a"],
+Cell[10852795, 200403, 795, 16, 22, "Input",ExpressionUUID->"655b3958-406c-4270-9fe9-daeb72feaa1a"],
 Cell[CellGroupData[{
-Cell[10854184, 200445, 1355, 26, 24, "Input",ExpressionUUID->"64a83c48-1333-4bf5-8046-beea10bc8ca9"],
-Cell[10855542, 200473, 584911, 9603, 296, "Output",ExpressionUUID->"7e5f1c92-bf6a-4096-ad54-d323bfc1730a"]
+Cell[10853615, 200423, 1355, 26, 24, "Input",ExpressionUUID->"64a83c48-1333-4bf5-8046-beea10bc8ca9"],
+Cell[10854973, 200451, 584911, 9603, 296, "Output",ExpressionUUID->"7e5f1c92-bf6a-4096-ad54-d323bfc1730a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[11440490, 210081, 1801, 36, 38, "Input",ExpressionUUID->"4af7039e-624b-403a-a217-39596557d073"],
-Cell[11442294, 210119, 622812, 10226, 138, 583952, 9589, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"1b72ff84-f8dd-4c43-882c-d391e6753a71"]
+Cell[11439921, 210059, 1801, 36, 38, "Input",ExpressionUUID->"4af7039e-624b-403a-a217-39596557d073"],
+Cell[11441725, 210097, 622812, 10226, 138, 583952, 9589, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"1b72ff84-f8dd-4c43-882c-d391e6753a71"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[12065143, 220350, 950, 25, 38, "Input",ExpressionUUID->"b138cba4-9273-4e2b-a292-61ce9cfdc73c"],
-Cell[12066096, 220377, 627, 15, 138, "Output",ExpressionUUID->"5fadd0a3-c66f-4348-b0f3-af515a92cba2"]
+Cell[12064574, 220328, 950, 25, 38, "Input",ExpressionUUID->"b138cba4-9273-4e2b-a292-61ce9cfdc73c"],
+Cell[12065527, 220355, 627, 15, 138, "Output",ExpressionUUID->"5fadd0a3-c66f-4348-b0f3-af515a92cba2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[12066760, 220397, 4013, 107, 92, "Input",ExpressionUUID->"9edd1e7c-f2f3-43e3-9815-eefb0715d66a"],
-Cell[12070776, 220506, 2374, 61, 48, "Output",ExpressionUUID->"d4dfa7f2-94fe-4ea7-be34-a9f88e32595a"]
+Cell[12066191, 220375, 4013, 107, 92, "Input",ExpressionUUID->"9edd1e7c-f2f3-43e3-9815-eefb0715d66a"],
+Cell[12070207, 220484, 2374, 61, 48, "Output",ExpressionUUID->"d4dfa7f2-94fe-4ea7-be34-a9f88e32595a"]
 }, Open  ]],
-Cell[12073165, 220570, 1147, 30, 99, "Input",ExpressionUUID->"812cdae8-d5de-418f-b2d9-e9ede64c5cca"]
+Cell[12072596, 220548, 1147, 30, 99, "Input",ExpressionUUID->"812cdae8-d5de-418f-b2d9-e9ede64c5cca"]
 }, Open  ]]
 }, Open  ]]
 }