More work.

1 files changed, 334 insertions, 51 deletions

diff --git a/figures.nb b/figures.nb
index a0e8789..cfa06cd 100644
--- a/figures.nb
+++ b/figures.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[   1216335,      24239]
-NotebookOptionsPosition[   1199680,      23963]
-NotebookOutlinePosition[   1200077,      23979]
-CellTagsIndexPosition[   1200034,      23976]
+NotebookDataLength[   1232002,      24522]
+NotebookOptionsPosition[   1215345,      24246]
+NotebookOutlinePosition[   1215742,      24262]
+CellTagsIndexPosition[   1215699,      24259]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -17045,7 +17045,7 @@ pdf\>\"", ",", "mplot2"}], "]"}], ";"}], "\[IndentingNewLine]",
  CellChangeTimes->{{3.9272696181002073`*^9, 3.927269657220293*^9}, {
   3.927270269287866*^9, 3.927270282296212*^9}},
  CellLabel->
-  "In[627]:=",ExpressionUUID->"c4b7a709-0c12-406e-817b-d5ab6248e215"]
+  "In[766]:=",ExpressionUUID->"c4b7a709-0c12-406e-817b-d5ab6248e215"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -19494,15 +19494,15 @@ Cell[BoxData[
   3.9283313181796703`*^9}, {3.928371575154426*^9, 3.9283715977304487`*^9}, {
   3.9283716699678917`*^9, 3.928371671589779*^9}},
  CellLabel->
-  "In[523]:=",ExpressionUUID->"3293d30f-7d68-4b6a-8ed3-a65763303491"],
+  "In[769]:=",ExpressionUUID->"3293d30f-7d68-4b6a-8ed3-a65763303491"],
 
-Cell[BoxData["8"], "Output",
+Cell[BoxData["7"], "Output",
  CellChangeTimes->{{3.9283309011760073`*^9, 3.9283309201821012`*^9}, {
    3.9283309579702177`*^9, 3.928330978674403*^9}, {3.92833130041599*^9, 
    3.928331318433305*^9}, {3.928371577351409*^9, 3.928371598051585*^9}, 
-   3.928371671860907*^9},
+   3.928371671860907*^9, 3.92840405294809*^9},
  CellLabel->
-  "Out[523]=",ExpressionUUID->"60bf9eee-1aad-4c52-a0fb-74876c0d188b"]
+  "Out[769]=",ExpressionUUID->"e5929c2e-7bce-452b-8da3-30291fa9c8df"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -19554,8 +19554,7 @@ Cell[BoxData[
                 RowBox[{"\[Omega]1", "->", "\[Omega]2"}], ",", 
                 RowBox[{"\[Omega]2", "->", "\[Omega]1"}]}], "}"}]}], 
              ")"}]}]}], "]"}]}], ")"}], "/@", 
-       RowBox[{"Most", "[", 
-        RowBox[{"Rest", "[", "e13", "]"}], "]"}]}], ",", 
+       RowBox[{"Rest", "[", "e13", "]"}]}], ",", 
       RowBox[{"Join", "[", 
        RowBox[{
         RowBox[{
@@ -19624,9 +19623,10 @@ Cell[BoxData[
    3.928371771451446*^9, 3.928371795199213*^9}, {3.928371855216167*^9, 
    3.928371857509871*^9}, {3.928391815692848*^9, 3.928391818948147*^9}, {
    3.9283918555726833`*^9, 3.9283918918921957`*^9}, {3.928392010304347*^9, 
-   3.928392014151918*^9}, {3.928393501796767*^9, 3.928393505724113*^9}},
+   3.928392014151918*^9}, {3.928393501796767*^9, 3.928393505724113*^9}, {
+   3.9284040710225077`*^9, 3.928404075517787*^9}},
  CellLabel->
-  "In[763]:=",ExpressionUUID->"79ade24b-fc27-4e0b-9ecf-ddb0de8aaff7"],
+  "In[770]:=",ExpressionUUID->"79ade24b-fc27-4e0b-9ecf-ddb0de8aaff7"],
 
 Cell[BoxData[
  GraphicsBox[{{}, 
@@ -19846,7 +19846,48 @@ uz6W0RlP/UJ+c1G735kbR/1EHr4VVja6xlK/kdJ+XlleWAz1I1H9rRo4mXKK
 rexyCaV5Qvbod2WzHQ7QvCEl33Yd+r7Wn+YR+d1/nmvQLk+aV2QgW+ZodXs1
 lD45y2s71YT+Z/8B42p68A==
           "]]},
-        Annotation[#, "Charting`Private`Tag#6"]& ]},
+        Annotation[#, "Charting`Private`Tag#6"]& ], 
+       TagBox[
+        {RGBColor[1, 0.75, 0], PointSize[0.003666666666666667], 
+         AbsoluteThickness[2], LineBox[CompressedData["
+1:eJw9VQs01GkbH4Wsy6aSNtla080lW7nko+VHpdXS7pJi7H7EbCfbZUcR1Vib
+VrlMchkNZvyx0peQXVlaxCsxucuwZbFkifqQXD60aWbtOft+7znvec9zznPe
+93me3+U18OO5HVnEYrFOLey/z8EvLuuExnWA9c8a4R65vZbbgWXsSY9FoXvQ
++Lpe9CG7A3eUo0+UsTjgnbBZtLq/Hfy+vTp2dVwY6lhd+D2jHfZLR32CZo6h
+wis8g+/dDoeqYRt/lVOIWK0zNqnfjtrGfWPxF4Pg0rNmele3DOuDNCWSyRDs
+emfc9niqDE1LXDbzDvKh/FLF7biHDErVLUqTuWFQujNZvGulDMtuWy+/9PoC
+zn7IGXsla8OriY+jWkQX4Z4/dO5MfBseuH8w9LFpBCyi9nW37m+DpXs7b+De
+JWhWGMYp1Nvgm6duJHSMRNnBNcuU6x4hOT+53elhFJZLM7p6Ih7hydDc2P8c
+YvCbyQputMMjcJ8/LhQUC5Dx6nMsn2/F1Vchy98YxOKeClG9G9SKLD/jcovI
+qzDRmHurGG1BWOMNLaNncYhVe600+lULMjdu1x5k4tFvyx4519OMHXqBvRcc
+E/A0c0NszoFm1HUq/+j3IgGZFuMlwQ1NcDd4b1V4dCKibNPMBuybUDZRfrF9
+oxDpB7xrR0saMfbrS3PXSiEiDp7cmrhlIf49z2HCLQlBdlMmsh8a4MSeFOUO
+JKG7fy4gT7cB+lXSicCAa2DHuf2oL6hHhuX2P3a/voaEzCuJGxR1SFAzq9cO
+E8Fq7knV/dN10MwsevJILsL0yZmuyWcPkbLzjNZ5fjJmt28OLfF8COHEuNWi
+6WTIN62w0WiUIiTDcsLbPwWa/yrNHv9IioGS+vRLnSlg3/ba61dQi9uywIDj
+e1Ihv3j0uu+6WsgUGj4q+akorT9mMxpXA8l/7E2clorx3buz37NYNZCyDn1p
++I0Y6R2Jk2m8BzBX77MT14nhyr4xSXqrYdHFG0hYK0HNRr//Ht1fvYDvvvcX
+B0igNXvXWlh+H87r5Bf670lQwd9pY290Hy0d2twPVNIwG7ASJ0VVWOYheHzH
+aSHOHE96b3EVph3i8gSRaTBIrFkc3luJJf59J5n7aQg+9iBGWlyB/M/8uF0z
+aSja4rlNLriHnGwmxmIzg8fbeJ4bfMtxRGicyrgxKOU7cCwty6CrvP5P1XMM
++OpmfFO1UjzPj2zyFTMwrsibU+u6C+up9P70EgZaI4q3D3JLMJjkUl7QzGA2
+1/GW1/linF3hFxPex6D1N2v1eqefsbVneMuSUQbHX6xja+gWwdXQZ8vWKQax
+4dcH9P8oRFLifPnzaQbi+TKzP/N/gsy7u4Q9waAjcWW97VgB7E4bpTcOM1gV
+LAzTCsuH8hvn5LZOBpbpLtNemrlols5/za5hEPiMc/79lJvwdzoclneLQZbE
+e5eLwQ3Y7Nfp5kQzMLHi+PTezIKYa7Vej8sgxTS4tsEkE+Ip/6TOHQw85PVC
+bS8JRjSqlcOVGTgqvB3XeIggHZQ+lTemIbF+U3PWpwm4qedqZBubhjORZ80N
+w6OQnXX61KYFPMxzPI/xikLRfc61J3tegl9v2MvNJYcxpz2vl5X7/5hIvvnS
+2YUrofmkaPyFYqmqhN5HnnPyQnSvi+l7xOFl9nenbcS0HiL4yT58R1MqrZd8
+1PZJRJBnKu2HnFca3mbXl0L7JU0FYW3Zh1PoPMjU+hz30p5kOi9SfEX1sysH
+kuk8SU4X+61prYjOm3hF2zoWbBdRPEiv/epS/dRrFC9ieqgyOepNEsWTxBhZ
+tbI4SRRv0sh1lAsLhZQPxFhHO/hzFSHlC1ld2LBzj3si5RM5qnBX/zY9gfKN
+vB1oP6A2GE/5SPZu3L17akM85SsZ2sMKvVZ9lfKZqC6VNOwwi6V8J//WzNw6
+kCKgeiBsa7WhOzPRVC9EbZhzq8I5iuqJjFSe/UUv5TLVG9Fd59/5tDuC6pHs
+H1cc2rTqe6pX0qKSpKX0STjVMxkJ1H+o+SKM6p0suTzzg8iUT/1gIX9ldZ1v
+CPUL4lSh9HXjpUDqJyRbn699xZxH/YYUfjEkqNx5lPoR+erT3arTTt7Urwjx
+2VfN/sUZe08Yr9UvkhL6//0Fm8J19Q==
+          "]]},
+        Annotation[#, "Charting`Private`Tag#7"]& ]},
       {"WolframDynamicHighlight", <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
      StyleBox[
@@ -20081,7 +20122,51 @@ uz6W0RlP/UJ+c1G735kbR/1EHr4VVja6xlK/kdJ+XlleWAz1I1H9rRo4mXKK
 +pXM2aDrGJoXRf1MDprVK5YHRlK/k+SZe3+wComgeUBapqbmTAgIp3lBHJ9c
 rexyCaV5Qvbod2WzHQ7QvCEl33Yd+r7Wn+YR+d1/nmvQLk+aV2QgW+ZodXs1
 lD45y2s71YT+Z/8B42p68A==
-              "]]}, "Charting`Private`Tag#6"]}}, <|
+              "]]}, "Charting`Private`Tag#6"], 
+           Annotation[{
+             Hue[0.08640786499873876, 0.6, 0.6], 
+             Directive[
+              PointSize[0.003666666666666667], 
+              AbsoluteThickness[2], 
+              RGBColor[1, 0.75, 0]], 
+             Line[CompressedData["
+1:eJw9VQs01GkbH4Wsy6aSNtla080lW7nko+VHpdXS7pJi7H7EbCfbZUcR1Vib
+VrlMchkNZvyx0peQXVlaxCsxucuwZbFkifqQXD60aWbtOft+7znvec9zznPe
+93me3+U18OO5HVnEYrFOLey/z8EvLuuExnWA9c8a4R65vZbbgWXsSY9FoXvQ
++Lpe9CG7A3eUo0+UsTjgnbBZtLq/Hfy+vTp2dVwY6lhd+D2jHfZLR32CZo6h
+wis8g+/dDoeqYRt/lVOIWK0zNqnfjtrGfWPxF4Pg0rNmele3DOuDNCWSyRDs
+emfc9niqDE1LXDbzDvKh/FLF7biHDErVLUqTuWFQujNZvGulDMtuWy+/9PoC
+zn7IGXsla8OriY+jWkQX4Z4/dO5MfBseuH8w9LFpBCyi9nW37m+DpXs7b+De
+JWhWGMYp1Nvgm6duJHSMRNnBNcuU6x4hOT+53elhFJZLM7p6Ih7hydDc2P8c
+YvCbyQputMMjcJ8/LhQUC5Dx6nMsn2/F1Vchy98YxOKeClG9G9SKLD/jcovI
+qzDRmHurGG1BWOMNLaNncYhVe600+lULMjdu1x5k4tFvyx4519OMHXqBvRcc
+E/A0c0NszoFm1HUq/+j3IgGZFuMlwQ1NcDd4b1V4dCKibNPMBuybUDZRfrF9
+oxDpB7xrR0saMfbrS3PXSiEiDp7cmrhlIf49z2HCLQlBdlMmsh8a4MSeFOUO
+JKG7fy4gT7cB+lXSicCAa2DHuf2oL6hHhuX2P3a/voaEzCuJGxR1SFAzq9cO
+E8Fq7knV/dN10MwsevJILsL0yZmuyWcPkbLzjNZ5fjJmt28OLfF8COHEuNWi
+6WTIN62w0WiUIiTDcsLbPwWa/yrNHv9IioGS+vRLnSlg3/ba61dQi9uywIDj
+e1Ihv3j0uu+6WsgUGj4q+akorT9mMxpXA8l/7E2clorx3buz37NYNZCyDn1p
++I0Y6R2Jk2m8BzBX77MT14nhyr4xSXqrYdHFG0hYK0HNRr//Ht1fvYDvvvcX
+B0igNXvXWlh+H87r5Bf670lQwd9pY290Hy0d2twPVNIwG7ASJ0VVWOYheHzH
+aSHOHE96b3EVph3i8gSRaTBIrFkc3luJJf59J5n7aQg+9iBGWlyB/M/8uF0z
+aSja4rlNLriHnGwmxmIzg8fbeJ4bfMtxRGicyrgxKOU7cCwty6CrvP5P1XMM
++OpmfFO1UjzPj2zyFTMwrsibU+u6C+up9P70EgZaI4q3D3JLMJjkUl7QzGA2
+1/GW1/linF3hFxPex6D1N2v1eqefsbVneMuSUQbHX6xja+gWwdXQZ8vWKQax
+4dcH9P8oRFLifPnzaQbi+TKzP/N/gsy7u4Q9waAjcWW97VgB7E4bpTcOM1gV
+LAzTCsuH8hvn5LZOBpbpLtNemrlols5/za5hEPiMc/79lJvwdzoclneLQZbE
+e5eLwQ3Y7Nfp5kQzMLHi+PTezIKYa7Vej8sgxTS4tsEkE+Ip/6TOHQw85PVC
+bS8JRjSqlcOVGTgqvB3XeIggHZQ+lTemIbF+U3PWpwm4qedqZBubhjORZ80N
+w6OQnXX61KYFPMxzPI/xikLRfc61J3tegl9v2MvNJYcxpz2vl5X7/5hIvvnS
+2YUrofmkaPyFYqmqhN5HnnPyQnSvi+l7xOFl9nenbcS0HiL4yT58R1MqrZd8
+1PZJRJBnKu2HnFca3mbXl0L7JU0FYW3Zh1PoPMjU+hz30p5kOi9SfEX1sysH
+kuk8SU4X+61prYjOm3hF2zoWbBdRPEiv/epS/dRrFC9ieqgyOepNEsWTxBhZ
+tbI4SRRv0sh1lAsLhZQPxFhHO/hzFSHlC1ld2LBzj3si5RM5qnBX/zY9gfKN
+vB1oP6A2GE/5SPZu3L17akM85SsZ2sMKvVZ9lfKZqC6VNOwwi6V8J//WzNw6
+kCKgeiBsa7WhOzPRVC9EbZhzq8I5iuqJjFSe/UUv5TLVG9Fd59/5tDuC6pHs
+H1cc2rTqe6pX0qKSpKX0STjVMxkJ1H+o+SKM6p0suTzzg8iUT/1gIX9ldZ1v
+CPUL4lSh9HXjpUDqJyRbn699xZxH/YYUfjEkqNx5lPoR+erT3arTTt7Urwjx
+2VfN/sUZe08Yr9UvkhL6//0Fm8J19Q==
+              "]]}, "Charting`Private`Tag#7"]}}, <|
          "HighlightElements" -> <|
            "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
           "LayoutOptions" -> <|
@@ -20096,6 +20181,10 @@ lD45y2s71YT+Z/8B42p68A==
               Directive[
                PointSize[0.003666666666666667], 
                AbsoluteThickness[2], 
+               RGBColor[1, 0.75, 0]], 
+              Directive[
+               PointSize[0.003666666666666667], 
+               AbsoluteThickness[2], 
                RGBColor[0.363898, 0.618501, 0.782349]], 
               Directive[
                PointSize[0.003666666666666667], 
@@ -20142,6 +20231,10 @@ lD45y2s71YT+Z/8B42p68A==
              Directive[
               PointSize[0.003666666666666667], 
               AbsoluteThickness[2], 
+              RGBColor[1, 0.75, 0]], 
+             Directive[
+              PointSize[0.003666666666666667], 
+              AbsoluteThickness[2], 
               RGBColor[0.363898, 0.618501, 0.782349]], 
              Directive[
               PointSize[0.003666666666666667], 
@@ -20404,7 +20497,51 @@ uz6W0RlP/UJ+c1G735kbR/1EHr4VVja6xlK/kdJ+XlleWAz1I1H9rRo4mXKK
 +pXM2aDrGJoXRf1MDprVK5YHRlK/k+SZe3+wComgeUBapqbmTAgIp3lBHJ9c
 rexyCaV5Qvbod2WzHQ7QvCEl33Yd+r7Wn+YR+d1/nmvQLk+aV2QgW+ZodXs1
 lD45y2s71YT+Z/8B42p68A==
-          "]]}, "Charting`Private`Tag#6"]}}, <|
+          "]]}, "Charting`Private`Tag#6"], 
+       Annotation[{
+         Hue[0.08640786499873876, 0.6, 0.6], 
+         Directive[
+          PointSize[0.003666666666666667], 
+          AbsoluteThickness[2], 
+          RGBColor[1, 0.75, 0]], 
+         Line[CompressedData["
+1:eJw9VQs01GkbH4Wsy6aSNtla080lW7nko+VHpdXS7pJi7H7EbCfbZUcR1Vib
+VrlMchkNZvyx0peQXVlaxCsxucuwZbFkifqQXD60aWbtOft+7znvec9zznPe
+93me3+U18OO5HVnEYrFOLey/z8EvLuuExnWA9c8a4R65vZbbgWXsSY9FoXvQ
++Lpe9CG7A3eUo0+UsTjgnbBZtLq/Hfy+vTp2dVwY6lhd+D2jHfZLR32CZo6h
+wis8g+/dDoeqYRt/lVOIWK0zNqnfjtrGfWPxF4Pg0rNmele3DOuDNCWSyRDs
+emfc9niqDE1LXDbzDvKh/FLF7biHDErVLUqTuWFQujNZvGulDMtuWy+/9PoC
+zn7IGXsla8OriY+jWkQX4Z4/dO5MfBseuH8w9LFpBCyi9nW37m+DpXs7b+De
+JWhWGMYp1Nvgm6duJHSMRNnBNcuU6x4hOT+53elhFJZLM7p6Ih7hydDc2P8c
+YvCbyQputMMjcJ8/LhQUC5Dx6nMsn2/F1Vchy98YxOKeClG9G9SKLD/jcovI
+qzDRmHurGG1BWOMNLaNncYhVe600+lULMjdu1x5k4tFvyx4519OMHXqBvRcc
+E/A0c0NszoFm1HUq/+j3IgGZFuMlwQ1NcDd4b1V4dCKibNPMBuybUDZRfrF9
+oxDpB7xrR0saMfbrS3PXSiEiDp7cmrhlIf49z2HCLQlBdlMmsh8a4MSeFOUO
+JKG7fy4gT7cB+lXSicCAa2DHuf2oL6hHhuX2P3a/voaEzCuJGxR1SFAzq9cO
+E8Fq7knV/dN10MwsevJILsL0yZmuyWcPkbLzjNZ5fjJmt28OLfF8COHEuNWi
+6WTIN62w0WiUIiTDcsLbPwWa/yrNHv9IioGS+vRLnSlg3/ba61dQi9uywIDj
+e1Ihv3j0uu+6WsgUGj4q+akorT9mMxpXA8l/7E2clorx3buz37NYNZCyDn1p
++I0Y6R2Jk2m8BzBX77MT14nhyr4xSXqrYdHFG0hYK0HNRr//Ht1fvYDvvvcX
+B0igNXvXWlh+H87r5Bf670lQwd9pY290Hy0d2twPVNIwG7ASJ0VVWOYheHzH
+aSHOHE96b3EVph3i8gSRaTBIrFkc3luJJf59J5n7aQg+9iBGWlyB/M/8uF0z
+aSja4rlNLriHnGwmxmIzg8fbeJ4bfMtxRGicyrgxKOU7cCwty6CrvP5P1XMM
++OpmfFO1UjzPj2zyFTMwrsibU+u6C+up9P70EgZaI4q3D3JLMJjkUl7QzGA2
+1/GW1/linF3hFxPex6D1N2v1eqefsbVneMuSUQbHX6xja+gWwdXQZ8vWKQax
+4dcH9P8oRFLifPnzaQbi+TKzP/N/gsy7u4Q9waAjcWW97VgB7E4bpTcOM1gV
+LAzTCsuH8hvn5LZOBpbpLtNemrlols5/za5hEPiMc/79lJvwdzoclneLQZbE
+e5eLwQ3Y7Nfp5kQzMLHi+PTezIKYa7Vej8sgxTS4tsEkE+Ip/6TOHQw85PVC
+bS8JRjSqlcOVGTgqvB3XeIggHZQ+lTemIbF+U3PWpwm4qedqZBubhjORZ80N
+w6OQnXX61KYFPMxzPI/xikLRfc61J3tegl9v2MvNJYcxpz2vl5X7/5hIvvnS
+2YUrofmkaPyFYqmqhN5HnnPyQnSvi+l7xOFl9nenbcS0HiL4yT58R1MqrZd8
+1PZJRJBnKu2HnFca3mbXl0L7JU0FYW3Zh1PoPMjU+hz30p5kOi9SfEX1sysH
+kuk8SU4X+61prYjOm3hF2zoWbBdRPEiv/epS/dRrFC9ieqgyOepNEsWTxBhZ
+tbI4SRRv0sh1lAsLhZQPxFhHO/hzFSHlC1ld2LBzj3si5RM5qnBX/zY9gfKN
+vB1oP6A2GE/5SPZu3L17akM85SsZ2sMKvVZ9lfKZqC6VNOwwi6V8J//WzNw6
+kCKgeiBsa7WhOzPRVC9EbZhzq8I5iuqJjFSe/UUv5TLVG9Fd59/5tDuC6pHs
+H1cc2rTqe6pX0qKSpKX0STjVMxkJ1H+o+SKM6p0suTzzg8iUT/1gIX9ldZ1v
+CPUL4lSh9HXjpUDqJyRbn699xZxH/YYUfjEkqNx5lPoR+erT3arTTt7Urwjx
+2VfN/sUZe08Yr9UvkhL6//0Fm8J19Q==
+          "]]}, "Charting`Private`Tag#7"]}}, <|
      "HighlightElements" -> <|
        "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
       "LayoutOptions" -> <|
@@ -20419,6 +20556,10 @@ lD45y2s71YT+Z/8B42p68A==
           Directive[
            PointSize[0.003666666666666667], 
            AbsoluteThickness[2], 
+           RGBColor[1, 0.75, 0]], 
+          Directive[
+           PointSize[0.003666666666666667], 
+           AbsoluteThickness[2], 
            RGBColor[0.363898, 0.618501, 0.782349]], 
           Directive[
            PointSize[0.003666666666666667], 
@@ -20556,9 +20697,9 @@ lD45y2s71YT+Z/8B42p68A==
    3.928393690932763*^9, 3.928394096797472*^9, 3.928394568564404*^9, 
    3.92839497489185*^9, 3.928395417876224*^9, 3.928395848310232*^9, 
    3.928396522488361*^9, 3.928397321325379*^9, 3.9283979572208014`*^9, 
-   3.928398893163796*^9, 3.928399327687665*^9},
+   3.928398893163796*^9, 3.928399327687665*^9, 3.928404254831896*^9},
  CellLabel->
-  "Out[763]=",ExpressionUUID->"a5ca0ca9-fdcc-4ced-ba24-321d89fb9d47"]
+  "Out[770]=",ExpressionUUID->"d49dfd16-6e40-4701-8389-f2ecef5947c4"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -20608,7 +20749,7 @@ Cell[BoxData[
       RowBox[{
        RowBox[{"{", 
         RowBox[{
-         RowBox[{"-", "0.2"}], ",", "0.3"}], "}"}], ",", 
+         RowBox[{"-", "0.2"}], ",", "0.32"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.08"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "->", 
@@ -20660,9 +20801,9 @@ Cell[BoxData[
    3.9283860957588673`*^9, 3.928386111254788*^9}, {3.928391781132628*^9, 
    3.928391782939152*^9}, {3.9283919248136263`*^9, 3.928391933750123*^9}, {
    3.928392032960223*^9, 3.928392035439527*^9}, {3.928392080616584*^9, 
-   3.928392129073488*^9}},
+   3.928392129073488*^9}, 3.928404265409144*^9},
  CellLabel->
-  "In[764]:=",ExpressionUUID->"95fd3173-4c7c-4968-a5e5-50349f8991ff"],
+  "In[773]:=",ExpressionUUID->"95fd3173-4c7c-4968-a5e5-50349f8991ff"],
 
 Cell[BoxData[
  GraphicsBox[{{{}, 
@@ -20876,7 +21017,48 @@ uz6W0RlP/UJ+c1G735kbR/1EHr4VVja6xlK/kdJ+XlleWAz1I1H9rRo4mXKK
 rexyCaV5Qvbod2WzHQ7QvCEl33Yd+r7Wn+YR+d1/nmvQLk+aV2QgW+ZodXs1
 lD45y2s71YT+Z/8B42p68A==
            "]]},
-         Annotation[#, "Charting`Private`Tag#6"]& ]},
+         Annotation[#, "Charting`Private`Tag#6"]& ], 
+        TagBox[
+         {RGBColor[1, 0.75, 0], PointSize[0.003666666666666667], 
+          AbsoluteThickness[2], LineBox[CompressedData["
+1:eJw9VQs01GkbH4Wsy6aSNtla080lW7nko+VHpdXS7pJi7H7EbCfbZUcR1Vib
+VrlMchkNZvyx0peQXVlaxCsxucuwZbFkifqQXD60aWbtOft+7znvec9zznPe
+93me3+U18OO5HVnEYrFOLey/z8EvLuuExnWA9c8a4R65vZbbgWXsSY9FoXvQ
++Lpe9CG7A3eUo0+UsTjgnbBZtLq/Hfy+vTp2dVwY6lhd+D2jHfZLR32CZo6h
+wis8g+/dDoeqYRt/lVOIWK0zNqnfjtrGfWPxF4Pg0rNmele3DOuDNCWSyRDs
+emfc9niqDE1LXDbzDvKh/FLF7biHDErVLUqTuWFQujNZvGulDMtuWy+/9PoC
+zn7IGXsla8OriY+jWkQX4Z4/dO5MfBseuH8w9LFpBCyi9nW37m+DpXs7b+De
+JWhWGMYp1Nvgm6duJHSMRNnBNcuU6x4hOT+53elhFJZLM7p6Ih7hydDc2P8c
+YvCbyQputMMjcJ8/LhQUC5Dx6nMsn2/F1Vchy98YxOKeClG9G9SKLD/jcovI
+qzDRmHurGG1BWOMNLaNncYhVe600+lULMjdu1x5k4tFvyx4519OMHXqBvRcc
+E/A0c0NszoFm1HUq/+j3IgGZFuMlwQ1NcDd4b1V4dCKibNPMBuybUDZRfrF9
+oxDpB7xrR0saMfbrS3PXSiEiDp7cmrhlIf49z2HCLQlBdlMmsh8a4MSeFOUO
+JKG7fy4gT7cB+lXSicCAa2DHuf2oL6hHhuX2P3a/voaEzCuJGxR1SFAzq9cO
+E8Fq7knV/dN10MwsevJILsL0yZmuyWcPkbLzjNZ5fjJmt28OLfF8COHEuNWi
+6WTIN62w0WiUIiTDcsLbPwWa/yrNHv9IioGS+vRLnSlg3/ba61dQi9uywIDj
+e1Ihv3j0uu+6WsgUGj4q+akorT9mMxpXA8l/7E2clorx3buz37NYNZCyDn1p
++I0Y6R2Jk2m8BzBX77MT14nhyr4xSXqrYdHFG0hYK0HNRr//Ht1fvYDvvvcX
+B0igNXvXWlh+H87r5Bf670lQwd9pY290Hy0d2twPVNIwG7ASJ0VVWOYheHzH
+aSHOHE96b3EVph3i8gSRaTBIrFkc3luJJf59J5n7aQg+9iBGWlyB/M/8uF0z
+aSja4rlNLriHnGwmxmIzg8fbeJ4bfMtxRGicyrgxKOU7cCwty6CrvP5P1XMM
++OpmfFO1UjzPj2zyFTMwrsibU+u6C+up9P70EgZaI4q3D3JLMJjkUl7QzGA2
+1/GW1/linF3hFxPex6D1N2v1eqefsbVneMuSUQbHX6xja+gWwdXQZ8vWKQax
+4dcH9P8oRFLifPnzaQbi+TKzP/N/gsy7u4Q9waAjcWW97VgB7E4bpTcOM1gV
+LAzTCsuH8hvn5LZOBpbpLtNemrlols5/za5hEPiMc/79lJvwdzoclneLQZbE
+e5eLwQ3Y7Nfp5kQzMLHi+PTezIKYa7Vej8sgxTS4tsEkE+Ip/6TOHQw85PVC
+bS8JRjSqlcOVGTgqvB3XeIggHZQ+lTemIbF+U3PWpwm4qedqZBubhjORZ80N
+w6OQnXX61KYFPMxzPI/xikLRfc61J3tegl9v2MvNJYcxpz2vl5X7/5hIvvnS
+2YUrofmkaPyFYqmqhN5HnnPyQnSvi+l7xOFl9nenbcS0HiL4yT58R1MqrZd8
+1PZJRJBnKu2HnFca3mbXl0L7JU0FYW3Zh1PoPMjU+hz30p5kOi9SfEX1sysH
+kuk8SU4X+61prYjOm3hF2zoWbBdRPEiv/epS/dRrFC9ieqgyOepNEsWTxBhZ
+tbI4SRRv0sh1lAsLhZQPxFhHO/hzFSHlC1ld2LBzj3si5RM5qnBX/zY9gfKN
+vB1oP6A2GE/5SPZu3L17akM85SsZ2sMKvVZ9lfKZqC6VNOwwi6V8J//WzNw6
+kCKgeiBsa7WhOzPRVC9EbZhzq8I5iuqJjFSe/UUv5TLVG9Fd59/5tDuC6pHs
+H1cc2rTqe6pX0qKSpKX0STjVMxkJ1H+o+SKM6p0suTzzg8iUT/1gIX9ldZ1v
+CPUL4lSh9HXjpUDqJyRbn699xZxH/YYUfjEkqNx5lPoR+erT3arTTt7Urwjx
+2VfN/sUZe08Yr9UvkhL6//0Fm8J19Q==
+           "]]},
+         Annotation[#, "Charting`Private`Tag#7"]& ]},
        {"WolframDynamicHighlight", <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], 
       StyleBox[
@@ -21111,7 +21293,51 @@ uz6W0RlP/UJ+c1G735kbR/1EHr4VVja6xlK/kdJ+XlleWAz1I1H9rRo4mXKK
 +pXM2aDrGJoXRf1MDprVK5YHRlK/k+SZe3+wComgeUBapqbmTAgIp3lBHJ9c
 rexyCaV5Qvbod2WzHQ7QvCEl33Yd+r7Wn+YR+d1/nmvQLk+aV2QgW+ZodXs1
 lD45y2s71YT+Z/8B42p68A==
-               "]]}, "Charting`Private`Tag#6"]}}, <|
+               "]]}, "Charting`Private`Tag#6"], 
+            Annotation[{
+              Hue[0.08640786499873876, 0.6, 0.6], 
+              Directive[
+               PointSize[0.003666666666666667], 
+               AbsoluteThickness[2], 
+               RGBColor[1, 0.75, 0]], 
+              Line[CompressedData["
+1:eJw9VQs01GkbH4Wsy6aSNtla080lW7nko+VHpdXS7pJi7H7EbCfbZUcR1Vib
+VrlMchkNZvyx0peQXVlaxCsxucuwZbFkifqQXD60aWbtOft+7znvec9zznPe
+93me3+U18OO5HVnEYrFOLey/z8EvLuuExnWA9c8a4R65vZbbgWXsSY9FoXvQ
++Lpe9CG7A3eUo0+UsTjgnbBZtLq/Hfy+vTp2dVwY6lhd+D2jHfZLR32CZo6h
+wis8g+/dDoeqYRt/lVOIWK0zNqnfjtrGfWPxF4Pg0rNmele3DOuDNCWSyRDs
+emfc9niqDE1LXDbzDvKh/FLF7biHDErVLUqTuWFQujNZvGulDMtuWy+/9PoC
+zn7IGXsla8OriY+jWkQX4Z4/dO5MfBseuH8w9LFpBCyi9nW37m+DpXs7b+De
+JWhWGMYp1Nvgm6duJHSMRNnBNcuU6x4hOT+53elhFJZLM7p6Ih7hydDc2P8c
+YvCbyQputMMjcJ8/LhQUC5Dx6nMsn2/F1Vchy98YxOKeClG9G9SKLD/jcovI
+qzDRmHurGG1BWOMNLaNncYhVe600+lULMjdu1x5k4tFvyx4519OMHXqBvRcc
+E/A0c0NszoFm1HUq/+j3IgGZFuMlwQ1NcDd4b1V4dCKibNPMBuybUDZRfrF9
+oxDpB7xrR0saMfbrS3PXSiEiDp7cmrhlIf49z2HCLQlBdlMmsh8a4MSeFOUO
+JKG7fy4gT7cB+lXSicCAa2DHuf2oL6hHhuX2P3a/voaEzCuJGxR1SFAzq9cO
+E8Fq7knV/dN10MwsevJILsL0yZmuyWcPkbLzjNZ5fjJmt28OLfF8COHEuNWi
+6WTIN62w0WiUIiTDcsLbPwWa/yrNHv9IioGS+vRLnSlg3/ba61dQi9uywIDj
+e1Ihv3j0uu+6WsgUGj4q+akorT9mMxpXA8l/7E2clorx3buz37NYNZCyDn1p
++I0Y6R2Jk2m8BzBX77MT14nhyr4xSXqrYdHFG0hYK0HNRr//Ht1fvYDvvvcX
+B0igNXvXWlh+H87r5Bf670lQwd9pY290Hy0d2twPVNIwG7ASJ0VVWOYheHzH
+aSHOHE96b3EVph3i8gSRaTBIrFkc3luJJf59J5n7aQg+9iBGWlyB/M/8uF0z
+aSja4rlNLriHnGwmxmIzg8fbeJ4bfMtxRGicyrgxKOU7cCwty6CrvP5P1XMM
++OpmfFO1UjzPj2zyFTMwrsibU+u6C+up9P70EgZaI4q3D3JLMJjkUl7QzGA2
+1/GW1/linF3hFxPex6D1N2v1eqefsbVneMuSUQbHX6xja+gWwdXQZ8vWKQax
+4dcH9P8oRFLifPnzaQbi+TKzP/N/gsy7u4Q9waAjcWW97VgB7E4bpTcOM1gV
+LAzTCsuH8hvn5LZOBpbpLtNemrlols5/za5hEPiMc/79lJvwdzoclneLQZbE
+e5eLwQ3Y7Nfp5kQzMLHi+PTezIKYa7Vej8sgxTS4tsEkE+Ip/6TOHQw85PVC
+bS8JRjSqlcOVGTgqvB3XeIggHZQ+lTemIbF+U3PWpwm4qedqZBubhjORZ80N
+w6OQnXX61KYFPMxzPI/xikLRfc61J3tegl9v2MvNJYcxpz2vl5X7/5hIvvnS
+2YUrofmkaPyFYqmqhN5HnnPyQnSvi+l7xOFl9nenbcS0HiL4yT58R1MqrZd8
+1PZJRJBnKu2HnFca3mbXl0L7JU0FYW3Zh1PoPMjU+hz30p5kOi9SfEX1sysH
+kuk8SU4X+61prYjOm3hF2zoWbBdRPEiv/epS/dRrFC9ieqgyOepNEsWTxBhZ
+tbI4SRRv0sh1lAsLhZQPxFhHO/hzFSHlC1ld2LBzj3si5RM5qnBX/zY9gfKN
+vB1oP6A2GE/5SPZu3L17akM85SsZ2sMKvVZ9lfKZqC6VNOwwi6V8J//WzNw6
+kCKgeiBsa7WhOzPRVC9EbZhzq8I5iuqJjFSe/UUv5TLVG9Fd59/5tDuC6pHs
+H1cc2rTqe6pX0qKSpKX0STjVMxkJ1H+o+SKM6p0suTzzg8iUT/1gIX9ldZ1v
+CPUL4lSh9HXjpUDqJyRbn699xZxH/YYUfjEkqNx5lPoR+erT3arTTt7Urwjx
+2VfN/sUZe08Yr9UvkhL6//0Fm8J19Q==
+               "]]}, "Charting`Private`Tag#7"]}}, <|
           "HighlightElements" -> <|
             "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
            "LayoutOptions" -> <|
@@ -21126,6 +21352,10 @@ lD45y2s71YT+Z/8B42p68A==
                Directive[
                 PointSize[0.003666666666666667], 
                 AbsoluteThickness[2], 
+                RGBColor[1, 0.75, 0]], 
+               Directive[
+                PointSize[0.003666666666666667], 
+                AbsoluteThickness[2], 
                 RGBColor[0.363898, 0.618501, 0.782349]], 
                Directive[
                 PointSize[0.003666666666666667], 
@@ -21172,6 +21402,10 @@ lD45y2s71YT+Z/8B42p68A==
               Directive[
                PointSize[0.003666666666666667], 
                AbsoluteThickness[2], 
+               RGBColor[1, 0.75, 0]], 
+              Directive[
+               PointSize[0.003666666666666667], 
+               AbsoluteThickness[2], 
                RGBColor[0.363898, 0.618501, 0.782349]], 
               Directive[
                PointSize[0.003666666666666667], 
@@ -21434,7 +21668,51 @@ uz6W0RlP/UJ+c1G735kbR/1EHr4VVja6xlK/kdJ+XlleWAz1I1H9rRo4mXKK
 +pXM2aDrGJoXRf1MDprVK5YHRlK/k+SZe3+wComgeUBapqbmTAgIp3lBHJ9c
 rexyCaV5Qvbod2WzHQ7QvCEl33Yd+r7Wn+YR+d1/nmvQLk+aV2QgW+ZodXs1
 lD45y2s71YT+Z/8B42p68A==
-           "]]}, "Charting`Private`Tag#6"]}}, <|
+           "]]}, "Charting`Private`Tag#6"], 
+        Annotation[{
+          Hue[0.08640786499873876, 0.6, 0.6], 
+          Directive[
+           PointSize[0.003666666666666667], 
+           AbsoluteThickness[2], 
+           RGBColor[1, 0.75, 0]], 
+          Line[CompressedData["
+1:eJw9VQs01GkbH4Wsy6aSNtla080lW7nko+VHpdXS7pJi7H7EbCfbZUcR1Vib
+VrlMchkNZvyx0peQXVlaxCsxucuwZbFkifqQXD60aWbtOft+7znvec9zznPe
+93me3+U18OO5HVnEYrFOLey/z8EvLuuExnWA9c8a4R65vZbbgWXsSY9FoXvQ
++Lpe9CG7A3eUo0+UsTjgnbBZtLq/Hfy+vTp2dVwY6lhd+D2jHfZLR32CZo6h
+wis8g+/dDoeqYRt/lVOIWK0zNqnfjtrGfWPxF4Pg0rNmele3DOuDNCWSyRDs
+emfc9niqDE1LXDbzDvKh/FLF7biHDErVLUqTuWFQujNZvGulDMtuWy+/9PoC
+zn7IGXsla8OriY+jWkQX4Z4/dO5MfBseuH8w9LFpBCyi9nW37m+DpXs7b+De
+JWhWGMYp1Nvgm6duJHSMRNnBNcuU6x4hOT+53elhFJZLM7p6Ih7hydDc2P8c
+YvCbyQputMMjcJ8/LhQUC5Dx6nMsn2/F1Vchy98YxOKeClG9G9SKLD/jcovI
+qzDRmHurGG1BWOMNLaNncYhVe600+lULMjdu1x5k4tFvyx4519OMHXqBvRcc
+E/A0c0NszoFm1HUq/+j3IgGZFuMlwQ1NcDd4b1V4dCKibNPMBuybUDZRfrF9
+oxDpB7xrR0saMfbrS3PXSiEiDp7cmrhlIf49z2HCLQlBdlMmsh8a4MSeFOUO
+JKG7fy4gT7cB+lXSicCAa2DHuf2oL6hHhuX2P3a/voaEzCuJGxR1SFAzq9cO
+E8Fq7knV/dN10MwsevJILsL0yZmuyWcPkbLzjNZ5fjJmt28OLfF8COHEuNWi
+6WTIN62w0WiUIiTDcsLbPwWa/yrNHv9IioGS+vRLnSlg3/ba61dQi9uywIDj
+e1Ihv3j0uu+6WsgUGj4q+akorT9mMxpXA8l/7E2clorx3buz37NYNZCyDn1p
++I0Y6R2Jk2m8BzBX77MT14nhyr4xSXqrYdHFG0hYK0HNRr//Ht1fvYDvvvcX
+B0igNXvXWlh+H87r5Bf670lQwd9pY290Hy0d2twPVNIwG7ASJ0VVWOYheHzH
+aSHOHE96b3EVph3i8gSRaTBIrFkc3luJJf59J5n7aQg+9iBGWlyB/M/8uF0z
+aSja4rlNLriHnGwmxmIzg8fbeJ4bfMtxRGicyrgxKOU7cCwty6CrvP5P1XMM
++OpmfFO1UjzPj2zyFTMwrsibU+u6C+up9P70EgZaI4q3D3JLMJjkUl7QzGA2
+1/GW1/linF3hFxPex6D1N2v1eqefsbVneMuSUQbHX6xja+gWwdXQZ8vWKQax
+4dcH9P8oRFLifPnzaQbi+TKzP/N/gsy7u4Q9waAjcWW97VgB7E4bpTcOM1gV
+LAzTCsuH8hvn5LZOBpbpLtNemrlols5/za5hEPiMc/79lJvwdzoclneLQZbE
+e5eLwQ3Y7Nfp5kQzMLHi+PTezIKYa7Vej8sgxTS4tsEkE+Ip/6TOHQw85PVC
+bS8JRjSqlcOVGTgqvB3XeIggHZQ+lTemIbF+U3PWpwm4qedqZBubhjORZ80N
+w6OQnXX61KYFPMxzPI/xikLRfc61J3tegl9v2MvNJYcxpz2vl5X7/5hIvvnS
+2YUrofmkaPyFYqmqhN5HnnPyQnSvi+l7xOFl9nenbcS0HiL4yT58R1MqrZd8
+1PZJRJBnKu2HnFca3mbXl0L7JU0FYW3Zh1PoPMjU+hz30p5kOi9SfEX1sysH
+kuk8SU4X+61prYjOm3hF2zoWbBdRPEiv/epS/dRrFC9ieqgyOepNEsWTxBhZ
+tbI4SRRv0sh1lAsLhZQPxFhHO/hzFSHlC1ld2LBzj3si5RM5qnBX/zY9gfKN
+vB1oP6A2GE/5SPZu3L17akM85SsZ2sMKvVZ9lfKZqC6VNOwwi6V8J//WzNw6
+kCKgeiBsa7WhOzPRVC9EbZhzq8I5iuqJjFSe/UUv5TLVG9Fd59/5tDuC6pHs
+H1cc2rTqe6pX0qKSpKX0STjVMxkJ1H+o+SKM6p0suTzzg8iUT/1gIX9ldZ1v
+CPUL4lSh9HXjpUDqJyRbn699xZxH/YYUfjEkqNx5lPoR+erT3arTTt7Urwjx
+2VfN/sUZe08Yr9UvkhL6//0Fm8J19Q==
+           "]]}, "Charting`Private`Tag#7"]}}, <|
       "HighlightElements" -> <|
         "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, 
        "LayoutOptions" -> <|
@@ -21449,6 +21727,10 @@ lD45y2s71YT+Z/8B42p68A==
            Directive[
             PointSize[0.003666666666666667], 
             AbsoluteThickness[2], 
+            RGBColor[1, 0.75, 0]], 
+           Directive[
+            PointSize[0.003666666666666667], 
+            AbsoluteThickness[2], 
             RGBColor[0.363898, 0.618501, 0.782349]], 
            Directive[
             PointSize[0.003666666666666667], 
@@ -21958,7 +22240,7 @@ ld0kWbidAl9g3ltNkRD80rhk304KofqHJYIREiKLwzasPRS8fBOjQ9+R8HRZ
          Part[#, 1]], 
         Identity[
          Part[#, 2]]}& )}},
-  PlotRange->{{-0.2, 0.3}, {0, 0.08}},
+  PlotRange->{{-0.2, 0.32}, {0, 0.08}},
   PlotRangeClipping->True,
   PlotRangePadding->{{
      Scaled[0.02], 
@@ -22003,9 +22285,9 @@ ld0kWbidAl9g3ltNkRD80rhk304KofqHJYIREiKLwzasPRS8fBOjQ9+R8HRZ
    3.928394096969685*^9, 3.9283945686905537`*^9, 3.928394975037751*^9, 
    3.928395418023058*^9, 3.9283958484625797`*^9, 3.9283965226669416`*^9, 
    3.928397321485626*^9, 3.9283979573637247`*^9, 3.928398893325124*^9, 
-   3.928399327826283*^9},
+   3.928399327826283*^9, {3.928404255023312*^9, 3.9284042660471783`*^9}},
  CellLabel->
-  "Out[764]=",ExpressionUUID->"9c16955c-2116-440a-943c-85d2a2d1df80"]
+  "Out[773]=",ExpressionUUID->"5520b420-ca48-4374-9f40-3cf6b68c1fc7"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -22017,18 +22299,19 @@ Cell[BoxData[
 pdf\>\"", ",", "pMSGc"}], "]"}]], "Input",
  CellChangeTimes->{{3.928385451849244*^9, 3.928385457665448*^9}},
  CellLabel->
-  "In[765]:=",ExpressionUUID->"f8b772de-8c0c-4a56-b222-57a41ad73da1"],
+  "In[774]:=",ExpressionUUID->"f8b772de-8c0c-4a56-b222-57a41ad73da1"],
 
 Cell[BoxData["\<\"~/doc/research/frsb_kac-rice/papers/marginal/figs/msg_marg_\
 complexity.pdf\"\>"], "Output",
- CellChangeTimes->{3.928385458817265*^9, 3.928385498670745*^9, 
-  3.9283861128269787`*^9, 3.928386614047213*^9, 3.928392133986175*^9, 
-  3.928393691367982*^9, 3.928394097224489*^9, 3.928394574515016*^9, 
-  3.928394975254805*^9, 3.928395418239318*^9, 3.9283958486835413`*^9, 
-  3.9283965229009123`*^9, 3.928397321706328*^9, 3.9283979575812187`*^9, 
-  3.928398893533701*^9, 3.928399328034461*^9},
+ CellChangeTimes->{
+  3.928385458817265*^9, 3.928385498670745*^9, 3.9283861128269787`*^9, 
+   3.928386614047213*^9, 3.928392133986175*^9, 3.928393691367982*^9, 
+   3.928394097224489*^9, 3.928394574515016*^9, 3.928394975254805*^9, 
+   3.928395418239318*^9, 3.9283958486835413`*^9, 3.9283965229009123`*^9, 
+   3.928397321706328*^9, 3.9283979575812187`*^9, 3.928398893533701*^9, 
+   3.928399328034461*^9, {3.928404255271153*^9, 3.928404267369169*^9}},
  CellLabel->
-  "Out[765]=",ExpressionUUID->"ad38716b-2d0f-4fa2-ac81-1b5be5e8d715"]
+  "Out[774]=",ExpressionUUID->"e59eb3bf-6625-4f33-ac38-e54b885b4202"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -24120,7 +24403,7 @@ Cell[359159, 7650, 13763, 316, 72, "Output",ExpressionUUID->"01979e1e-9bf7-4837-
 }, Open  ]],
 Cell[CellGroupData[{
 Cell[372959, 7971, 3983, 94, 38, "Input",ExpressionUUID->"abdd1227-571e-42c2-ba14-b0236a50da8f"],
-Cell[376945, 8067, 136157, 2406, 135, "Output",ExpressionUUID->"9e89ad7d-0b3a-4232-a289-73138258011c"]
+Cell[376945, 8067, 136157, 2406, 145, "Output",ExpressionUUID->"9e89ad7d-0b3a-4232-a289-73138258011c"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
@@ -24210,36 +24493,36 @@ Cell[979811, 19444, 1863, 40, 36, "Output",ExpressionUUID->"ff0ed560-b332-4bb4-8
 }, Open  ]],
 Cell[CellGroupData[{
 Cell[981711, 19489, 409, 7, 22, "Input",ExpressionUUID->"3293d30f-7d68-4b6a-8ed3-a65763303491"],
-Cell[982123, 19498, 354, 6, 35, "Output",ExpressionUUID->"60bf9eee-1aad-4c52-a0fb-74876c0d188b"]
+Cell[982123, 19498, 375, 6, 35, "Output",ExpressionUUID->"e5929c2e-7bce-452b-8da3-30291fa9c8df"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[982514, 19509, 4898, 119, 38, "Input",ExpressionUUID->"79ade24b-fc27-4e0b-9ecf-ddb0de8aaff7"],
-Cell[987415, 19630, 48602, 930, 191, "Output",ExpressionUUID->"a5ca0ca9-fdcc-4ced-ba24-321d89fb9d47"]
+Cell[982535, 19509, 4913, 119, 38, "Input",ExpressionUUID->"79ade24b-fc27-4e0b-9ecf-ddb0de8aaff7"],
+Cell[987451, 19630, 56348, 1071, 191, "Output",ExpressionUUID->"d49dfd16-6e40-4701-8389-f2ecef5947c4"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1036054, 20565, 4692, 99, 104, "Input",ExpressionUUID->"95fd3173-4c7c-4968-a5e5-50349f8991ff"],
-Cell[1040749, 20666, 70482, 1341, 163, "Output",ExpressionUUID->"9c16955c-2116-440a-943c-85d2a2d1df80"]
+Cell[1043836, 20706, 4715, 99, 104, "Input",ExpressionUUID->"95fd3173-4c7c-4968-a5e5-50349f8991ff"],
+Cell[1048554, 20807, 78288, 1482, 164, "Output",ExpressionUUID->"5520b420-ca48-4374-9f40-3cf6b68c1fc7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1111268, 22012, 320, 7, 22, "Input",ExpressionUUID->"f8b772de-8c0c-4a56-b222-57a41ad73da1"],
-Cell[1111591, 22021, 588, 9, 35, "Output",ExpressionUUID->"ad38716b-2d0f-4fa2-ac81-1b5be5e8d715"]
+Cell[1126879, 22294, 320, 7, 22, "Input",ExpressionUUID->"f8b772de-8c0c-4a56-b222-57a41ad73da1"],
+Cell[1127202, 22303, 642, 10, 35, "Output",ExpressionUUID->"e59eb3bf-6625-4f33-ac38-e54b885b4202"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1112216, 22035, 254, 6, 22, "Input",ExpressionUUID->"ca871bd4-fd4b-4992-8467-b1ea8a130f23"],
-Cell[1112473, 22043, 2505, 61, 85, "Output",ExpressionUUID->"edd14cfb-2ab3-48f0-858e-ba2c420a7c8a"]
+Cell[1127881, 22318, 254, 6, 22, "Input",ExpressionUUID->"ca871bd4-fd4b-4992-8467-b1ea8a130f23"],
+Cell[1128138, 22326, 2505, 61, 85, "Output",ExpressionUUID->"edd14cfb-2ab3-48f0-858e-ba2c420a7c8a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1115015, 22109, 6507, 158, 69, "Input",ExpressionUUID->"18770a82-a9ab-4dc0-96f6-90b9a602b037"],
-Cell[1121525, 22269, 26467, 566, 287, "Output",ExpressionUUID->"99a6f973-7b2f-4b45-b8d4-9dbde1fc2de6"]
+Cell[1130680, 22392, 6507, 158, 69, "Input",ExpressionUUID->"18770a82-a9ab-4dc0-96f6-90b9a602b037"],
+Cell[1137190, 22552, 26467, 566, 287, "Output",ExpressionUUID->"99a6f973-7b2f-4b45-b8d4-9dbde1fc2de6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1148029, 22840, 2354, 65, 143, "Input",ExpressionUUID->"c6046f7d-b5c6-4523-81fd-2e2ab01a6f97"],
-Cell[1150386, 22907, 46183, 950, 520, "Output",ExpressionUUID->"f8fee0d7-6b40-4fdc-8252-25053ddb879b"]
+Cell[1163694, 23123, 2354, 65, 143, "Input",ExpressionUUID->"c6046f7d-b5c6-4523-81fd-2e2ab01a6f97"],
+Cell[1166051, 23190, 46183, 950, 520, "Output",ExpressionUUID->"f8fee0d7-6b40-4fdc-8252-25053ddb879b"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[1196618, 23863, 160, 3, 50, "Section",ExpressionUUID->"f122010c-d89c-48b6-a849-06e9f4254e7f"],
-Cell[1196781, 23868, 2883, 92, 49, "Input",ExpressionUUID->"97f59fe8-af38-42ea-9678-6cb9b2e573e2"]
+Cell[1212283, 24146, 160, 3, 50, "Section",ExpressionUUID->"f122010c-d89c-48b6-a849-06e9f4254e7f"],
+Cell[1212446, 24151, 2883, 92, 49, "Input",ExpressionUUID->"97f59fe8-af38-42ea-9678-6cb9b2e573e2"]
 }, Open  ]]
 }
 ]