Tweaked same figure again.

2 files changed, 481 insertions, 442 deletions

diff --git a/figs/large_deviation.pdf b/figs/large_deviation.pdf
index 29424c2..a46b83f 100644
--- a/figs/large_deviation.pdf
+++ b/figs/large_deviation.pdf
diff --git a/figures.nb b/figures.nb
index 3a5b708..80d3ffc 100644
--- a/figures.nb
+++ b/figures.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[   1191909,      24038]
-NotebookOptionsPosition[   1172284,      23727]
-NotebookOutlinePosition[   1172683,      23743]
-CellTagsIndexPosition[   1172640,      23740]
+NotebookDataLength[   1194152,      24077]
+NotebookOptionsPosition[   1174526,      23766]
+NotebookOutlinePosition[   1174925,      23782]
+CellTagsIndexPosition[   1174882,      23779]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -116,7 +116,8 @@ Cell[BoxData[
        RowBox[{"G", "[", "1", "]"}], "[", "\[Omega]", "]"}], "]"}], "]"}], 
     ",", 
     RowBox[{"{", 
-     RowBox[{"\[Omega]", ",", "0", ",", "4"}], "}"}], ",", 
+     RowBox[{"\[Omega]", ",", 
+      RowBox[{"-", "0.1"}], ",", "4.1"}], "}"}], ",", 
     RowBox[{"FrameLabel", "->", 
      RowBox[{"{", 
       RowBox[{"\"\<\[Mu] / \[Sigma]\>\"", ",", 
@@ -140,7 +141,8 @@ Cell[BoxData[
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
-        RowBox[{"0", ",", "4"}], "}"}], ",", 
+        RowBox[{
+         RowBox[{"-", "0.1"}], ",", "4.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.7"}], ",", "1.7"}], "}"}]}], "}"}]}], ",", 
@@ -153,9 +155,9 @@ Cell[BoxData[
   3.9241609780538807`*^9, 3.924160982965692*^9}, {3.924162186828877*^9, 
   3.9241621901083317`*^9}, {3.924162311335291*^9, 3.924162320022914*^9}, {
   3.9267607225073347`*^9, 3.926760768524247*^9}, {3.9267620978944073`*^9, 
-  3.9267621072226877`*^9}},
+  3.9267621072226877`*^9}, {3.926762329962654*^9, 3.9267623500744543`*^9}},
  CellLabel->
-  "In[244]:=",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"],
+  "In[250]:=",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"],
 
 Cell[BoxData[
  GraphicsBox[
@@ -163,98 +165,109 @@ Cell[BoxData[
     TagBox[{{{}, {}, 
        TagBox[
         {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
-         Opacity[1.], LineBox[CompressedData["
-1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAASmXo0cDpdT6G0IoA7dCPvARDGnDf
-GVQ/FLWTwF7adzwzn5icsxlkP1I+PAyhuU08S83Xsp0ZdD+C8avcQI52vFdk
-972SGYQ/t3Yts8eijbzdL4dDjRmUP5x22bnXMH68oBVPhooZpD/X7i6r6FuK
-vIEIsyeJGbQ/kCWqagdCUTxYWaGv8PHEPzpAIbCO63Y8C/+BXEcezz/i4OQN
-hS2QvCVR7ujDi9Q/lS0XJaoecLx3zjk/mPTZPwQiNhbS43u8F7QR3gEB3z+C
-1pgtEyOKPLbiQ8zPPOI/YnpOUGevhzzCap0bWezkP2yxUaKwx3O89SY9D61t
-5z+Q+Lh6HsqTvAL5qxAbJeo/MPoAXfT9WLw2/2C2U67sP2TAhqUzNmw8zIQ0
-zsYq7z+YVPnOkdiCvB+Q6/mp7vA/SAmKz/WXZjzr99/e1TDyP3qPa7xL0348
-pOq7yg6O8z8POzE/QoKDvA4dp+/k5PQ/aIVwbwIHWjyMabVmoCT2P076kYY+
-sXm89kCr5Gh/9z9ATwTvnT5RPHQyxLQWw/g/Tn+Sdizwe7zfrsSL0SH6P4IU
-g6sXY3A8+2rUmyl6+z8QNTnj8ytbPCtBB/5mu/w/xp8tZahJVrxHoiFnsRf+
-P2DeQFG/bUC8dx1fIuFc/z/KsuZJrCB/PGJQMFbcYf8/JGzbAqvcd7xOgwGK
-12b/P9hEGojyLHO8Jumj8c1w/z8QxXDZMOJ/PNS06MC6hP8/8FLnfruoc7ww
-THJflKz/Py7X9EnS5Tq8PzTWh8b6/z+ZaSTAUCZqvG+qLmk=
+         Opacity[1.], 
+         LineBox[{{-0.0999999142857143, -7.675411500440888*^-17}, \
+{-0.09871178473364958, 2.0122545278399397`*^-17}, {-0.09742365518158486, 
+          2.6030553560758866`*^-17}, {-0.09484739607745543, 
+          2.8253767851352487`*^-17}, {-0.08969487786919655, 
+          6.859234331144472*^-18}, {-0.0793898414526788, 
+          5.2334362616619694`*^-17}, {-0.05877976861964332, \
+-1.769167389050454*^-17}, {-0.01755962295357235, -2.91692446950796*^-18}, \
+{-0.001339285714285714, 5.063646068673217*^-17}}], LineBox[CompressedData["
+1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAFV/xFV/xVT+XnOdlnzCNPGXl7u3K
+38M/W+s4od8CWTwARMECtVjOP6Sp7G+7DW08MH/JqGza1D+wc6QvglRlvEsw
+LCl1J9o/MPfEPNhZkbxJj47GGubfP4x93995KnA8GLDLKffE4j+gr0kTYXaD
+PIECzRxcZuU/3jdob0Yyd7zcK06ej0DoP6j3alf0Eng8LD9MTD7q6j/olA4e
+XPyFPHGLHfKDhu0/HsU+Rh2+XbxUVzcTzC3wP2DM/8vAAFO86V2ewxOA8T8o
+eiJfI6loPPdPRbvC7vI/L3mXwssPkLx/3tUuvVb0P05nylKfgIa8AuKkOHWm
+9T/2hL95daJ/vP7Qs4mUEvc/sFlYFXdsfbz1NAFxcWb4P0cbqzUdpI68ZISO
+n7XW+T8A+G+Z3/savE1wBUpFQPs/HK3QwCKMabwx0bqKkpH8PxYtkvWVHXq8
+jh2wEkf//T/vtUVwigZrvObe4zC5VP8/sdXVOY7QcDxdVEwn9Fn/P/xfGV2q
+2nK81Mm0HS9f/z+b+vdyhCpyvMO0hQqlaf8/Wkg36JyBdjygiifkkH7/Pyit
+6JckO3E8WjZrl2io/z9oHUQb2RR+PKiDOqiD+v8/1HV/8cLcXTzkY+yK
           "]], LineBox[CompressedData["
-1:eJwd0A0w1GkcB/D/rrfFsmw65+WakEp5K3fCiCeWWJqJ3YxDzlBnkrfYzjnW
-pVgv5aVO6+W8nV6MXJaNrdXqpw6V8xZxct7PSydR8r723HP3zDzzzGd+832e
-7zwGwVHeZ8kEQTDw/u+cmNaSFJMJRPSYnNkY3H7iYTT9lS4F27MqwKTZGJol
-nd35KthyQ3puTpZg7SM6t1MN29eu9L2XNfy6WCr3Ew272pGfKrMHw4y0Eg06
-gS7tuh9A1neCAsPoI9laeH7P/lKR1AXUJb6vVLXx/Hj+21AdJmwsmCgo6ROo
-ubPj5qFkL4hMp5el7CIQ0uCu0KZYMGUgtSEb4PxaziA3yAd62B3hMmPszes0
-hwp/cF2oV0zYjy0vUpo7GwiStJLy9QPY34yfeVsWBJWNka8/WeD7F3vNpgpD
-IGm3pv2cLZ5vR0TUKIbBsnijP9Qe23T0ab34PISxJqOmHbAfByUOX4yAU7wH
-t8adCTTOpM5HpESD6fwp1T9O4H7i05QiJgcesT0h8yQ2rbjwo/9FcG5yinVg
-4fzhqcLlC9+BX7bFn3d8CVS+crOvrvp7yLBUruaE4D6hFpsH2FyY4UiY9Hjs
-nZI2M9EViBkR/tOagP/HMLEwKygFZC5VwvgknDdqd++jpoKWNl934gp2um/c
-VhgPnMVRc4Js3K9Jcdn5aAaUywwzT9zG7x/iDclZ54DptzoOpEo8z4tLeLiV
-Aw+7aEv1VQSyvJztnh6cC11lW1/rCwi024rhwjK7DrJjAybvxASKLs4X8zpu
-gB8v42V6N4FymY3+5pZ82EH7QGnZxH31Yp1tU0qgtykzzV2G8/N1wwfXSuBG
-uLFi9zaBTjLSRA1hpUBv95MbkichdPpB7DVWGdBTW2WL6iRk2erVqcMvBw1p
-0ZKeEQmV6zJZkYkVQJ11GY71IKH926sVfdy7IA8/C4yKSWj9B6+BCFcBDNkz
-3MZKcf7jutUmXwCCxvnxol9I6AX32ETnrAD8REfp9EoSkjTamhu71ELd/TEO
-ISQhjr7fPve/ayGw2Mhu5DkJUZa5bTo2QngUX93C/0RC41015o6L9XD+y8dv
-lD3IaHBsbzQDGqHaPbj8ySoZce71sgdafoOVd7oaM3w5RImrV92X1A4NrONy
-eQx55C3WT810fQU/uqWW1c/Io8Y03VyboH4wGGEO3kpVQAUv66RPhW/A7khK
-ns5hRVQgfE5MiEYhYFf3BqlPEX1uoeHGHpyAlfasyehkJfQi6rV9u3AKCuQD
-Od57KIiRIt3mJc/CjtGGCnILBX1mqc1tC5kDBW4y2/aCMirY4j+LqHoPRFWg
-YJKugkQL7PWS8A8QUyTIoj9TQZ5tk1f/slmCpoPpFM1IVUTlxv++qr4MmswY
-08vqVPRFmA81uX8Fhs16+uIlVHS78JzF3b41qC113DMVqIbmeNfspLABd/Ym
-CGr61ZDV/0sK/wK+Hf98
+1:eJwdjwtMk1cUgP+/VV6WTXkoW5h23QhTZKxMCSKOExgp8y0gOimPoQhBEVFU
+pAjUKcIo2gKVARMqyuhmodJiFakceRTNwKG2tYiPKbjy1IA4i+Jjd7vJzc2X
+75wvuZ/GpYTGMyiKCiL3v3dxS79HC4MCKjZpyoZD4x3uH6NCG8K+ZX52Ce5Y
+tPPd9gWzCI+9H0rM4uLaWu9+rT3hvQb9M6Yv2vVvj9oym7DpWmUQNwB1rhW9
+FgcKcorz07wygzBnU0+Y1Jl4yd9rObU89C9i9ni7EM8/Y7RyXo2N1jt1yZ8Q
+fxK2qYyhuDtQBrPYxN/bZaQTNqLHIUOznENY/1Kqd9yM1c/9VQPuZJ51QjLS
+HIXRnqmewkUUXE2DtsYtsfhRYo18vieZ9yvpThr4AcUP7Ku+96YADMUzYubF
+Y/b1hwU9/oTNeslGeif6MR2tkwNIrzEs4aAxGV+u4B22CyQsBEGqOgV3qZXp
+wTzSC/YI+KAzFfmVOfHNGyiIjdTm3zLuw2ebg5SScMLrayPfTO9HoaPVq4RN
+FLAXd6z90j0df80rEDlFEV9e9yhClIETe06qkxNJf0pQcelENubyFDQ7m4LZ
+O5ou5PocRRdGyqqXQuLV5oLBp0fxnJYr7T5CgSwjVBNWm4s3uRe/OPgT6Y+J
+W33Zefixa9u621LSp7YN/7awAJXjplNHFBTcHBnTVHWJMfBc+eAWJdnXrAwu
+8pGgIT6Ky1WR+cKBgYRqCb7u6+94cJH8r+d+wYXMIvxW93TUp52C9bIbYXXL
+S7C3jOk3fJcCsT+rou1xKTKCvO6ssaYBdCvfVemqMCtjfsWkLQ0u7ctCVGwZ
+TjfYx5axaKAOnHY1R8vwBXts+MkcGtjV6gm4L0PzO/lbgSsNQ8cFcU19p7Hr
+Msftdy4NYp1HYJL5DJZ4z02z4tMQ8vnZzjofObpx3s7B82Tf4fzl0DvnMf1u
+Rs0pNQ15oxVOF+gG7BZP+WZqaHDaoxlb4dmAe99PxizTkp5oSN52pAFb74/U
+qa/R8ETPiJQuVWFUae938oc0jIeF60Mq1ShlNQolLAbYtFOLvynQ4ExL0sTW
+RAaMdy2wvfKnFjnlN47XuzJBlv26cPlqHWoPrLOYOpiQ+CJujUjUjQ6rUplL
+BTNg7vhVt3lVt9G8WdW3220mXGfU99AsE1qWDKWEds8EF5nkcZPmHnZYtcgT
+hFagrOdRveJH+KGjWhG5yBqOHUpXTMMAznUOCf/xsTVoeaWKrAgzlm9405kv
+sgEnrnnrzzHDyOfXWJYusYVfBClK26wx7OM/63IesYV9z/cjZ8Y4GksjdhiK
+7eCQ+ZKX5MoEFl6Pru9cNQvOVi0U3VJO4uFrkcpoigWSXQaTQfEPvqDSBUY5
+C8LSHF67l1nws6+WjGbH2MPtW3/19bW+Qq2pfbDQaA9f/3+m8V8uZ/2X
           "]]},
         Annotation[#, "Charting`Private`Tag#1"]& ], 
        TagBox[
         {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[2], 
-         Opacity[1.], LineBox[CompressedData["
-1:eJwVzns01HkYBvAhXU6dRG6NkpGSlUqxFUuPdmySyw6booTcQtIoJaXcphAm
-aqYmlSaXhAgNRjdTCYlkU7EZIoep3FeG5ra//eN7vudznvc872vgd8QtUJlE
-InkS7/9/Z6CoTfD1+NbtYXu3SgxmoELVpfeQd2Ed/XDX5LIZmN/i3HhADsCA
-KffUiM4MHFs+VtwkR2K4/Et178IZ7AkQP7lEZmBcY59l48w0hOuTqOlkFmi8
-5mPstmlwtf48f4Gch4W/t+RtiJ9G/LwHq1PIPJxOzhRFfRbDw/P2/bHxOlQY
-UYQxjCksUMR72S9vxfK0MnaB7Q+sch0RvUhth17j6LlKlUlEvbEEZ7ITUzkD
-rQ5lE9DhqXcrKfWgrtjmssvxcVT1UZtbrfvwuXd7V4bhGJ6H3lzqOdQPFfoV
-7Vv8YfwwsllUcngQ9RfcuYt9vkN5plht6apv4Ag78iVCETYpfKv+Kh2CM3uI
-6X95AM0Mizf1JqOIXJvd1enbD/2M7zOFI2PgZ4X1r1Ttw3dxT/d7swmoB0jS
-Vg32IO/boyZV5r943Bix0i72E1T1Ckb7+ydh/Lmpt9bjI9JCKoO4K6egTC+d
-3n/nHaZsi/uDY8WwftHYG89rReTGOp72i2lsFyvHeKi9Qk9pXWqbwU/40tlm
-GmHPIQltv/7LKQmkZ1gHtpNrsGvT/sx1sRJo5h4MWz3Gxz2lgfPmDAlURlO5
-eg18eHPEETZMCW7IdAUOx/l49lJ3h2uOBIzW8ricv6uRRDkwebKJyGOl0f6Z
-VdD4MOzUqCtF8DGSGUufhzXb5sqDHknBuZod/evs+ygrKl7dIZBiyaETI3f5
-pbDQpLk61EvhW0yd7RlWCutBTt6aNiniymrm0dtL4JJu4jg2QORUkk5cwT0c
-7XTmRC+WgW/U9trHswg1EayNaSEyJG8jt0uH87H10xYvWTjhLa5fGYX5eG4n
-PBceKQMloijULTAfTTpGnbRYGXbYWSnXCvPQ9aQ6Vostw5IGnYnBtlyQ5n9q
-zhbIUHaC1dfQcBv2OQYHy3XkIL1wshF3XIcFR9WofpkcNCufvjuh10FhSvr/
-MZDDbItAf0CahZ/R7/1UTOXIWP7qkbZhFkpcU7z32Moh8L6b43GCAw2lcXdZ
-sBxvCzfzTS3ZIImFmovD5Shr8m/b1s7C0FDTO6NjclAWjmX/OMJCfUeeK+2M
-HPSzmx7aFF5GdJmHc24m0a95reOI4SX0+AjsHB7KYZs3+loYzkSze8ks71ri
-Xqajv7wmHXzHrOdH64g+ZoTxuTnpuLQ50vbGGzl8nXfGteWm4o9FxtajfXLE
-GdCSakeTUfz0ojl7gQIU55KEBW8TweHFTBSqKUBfEaRmap4IRlFI+VMtBdR2
-lRwauZoA7yvU9SJ9BUh3RlMOBcVDPVxs8puFAr5RhuNF688iSs9nRa+XAtzq
-xx3SnOPwo5nt7jqggEDtNOdBQSRcEpUufAxS4LNbwrRz2TEYfc0db6ET+7n7
-MuktEWjniQQPGQrERbioio6GQTBYM1mZQuzjzA9gPQ1FsW6qcTmTyAcor+w1
-QpAQtzajgEPYK6eG1REIM6ejPqx7xLyooopX4YNlsdTLF8sJM433MQa9MLdC
-s+FCFTFf7/iNvXEvunWq18ULFLD1c7C4quqOpp3JfjEvCQdn8nbedkPlGc8r
-UU3E/dX012+daUj7IpEdbif6gvI1UybscVK7ZUNIJ+G7z9huU1T4O2QHBnQT
-/TolVl2WtnCJOXLN5wuRs2dtSEq0hNV925a9IsK7ZwxzVpvDqE9dafcw4RGV
-aWq3CdS1vli4ThA2mWPWL6RAas8LdhITDnhMly5VByw+JNX/JEzhkkM/Krb+
-B6Id0V8=
+         Opacity[1.], 
+         LineBox[{{-0.0999999142857143, 
+          1.6707545588821862`}, {-0.09871178473364958, 
+          1.6694680198193697`}, {-0.09742365518158486, 
+          1.6681814397590167`}, {-0.09484739607745543, 
+          1.665608158790747}, {-0.08969487786919655, 
+          1.6604611284764783`}, {-0.0793898414526788, 
+          1.65016531439713}, {-0.05877976861964332, 
+          1.6295676323304158`}, {-0.01755962295357235, 
+          1.5883557241483424`}, {-0.001339285714285714, 
+          1.5721356124090882`}}], LineBox[CompressedData["
+1:eJwVzQ0w1GkcB/AlyunMlXRcKELrZcld7mgrXyqF1Ko2bMPYM7E4yV6HOSnK
+S9NWrFqq9XJKFon2RHkd1UYhJW93hFBe2hB73tau3fs38zzzzGe+39/vMQ44
+dSRQlUQiHSbu13e9/wxxjiE3LUl+zkCKwJGpyeb3IuhFKQT5gnmQ9j5VrfB5
+jYNDHmQKYw62cU2FYb2d2KzNv3Vw5j8csKVYRJJ7MRDoU9udJ4FbakrjhtH3
+6Mvq/tC0awZ6whaLhefDELDNVFuef8F51VYD36ARnAikqP/pMok+q0M5qU7j
+8FqZMuWXKQYFHh6OYjF8OMm66ZbjYF82lCQkT+KlY7tpT/sI6N72615ZT6N2
+bPcRqs8HfPLLEa2Ln8GTppIA0g9DWKC51DybkmDx8tpb3rH9iBvosqnzmsX2
+p53t2at7oDp81yFSMIf9RaN85vddULQ9vMTTXkClX7rjv2pvMWenwmYHLcKS
++0neL27GicSUvyq6pXj0rntHTbMIByPU3V2cZLgbnmb0h7QabS4acRwXGbKm
+ub4HWqtB119d/sZdhsqwSIftt6vh27hm4/FjMtQyNq5huFUj1MBAEh4qg/lw
+g3oxvwrJL3/i3+TJQOk4myFwrkS9EVP8eVwG3s6I4KjbFfjxbTXnWpocGrEN
+e8vvCxEg6PV1uyFH7sc0c16CELwzSzakbDnK5zOTeceFmDejdpwslOOE56pt
+CxpC1MZU6bvVy/Ek505H6utSuJpW3ldOyCF09+KE0O+DGV3xOsx1GRFHu0fO
+8gpwzaMr1+TQMtpsWUOj7gUQGc/93nt0GQ4x62l8lQJseWWn6+q/DFL6zOeh
+UwJMGJX7m0Qtw3PMxEdBy0d0c9l0T94yBidYbk835iHFUKi9X0n0+cq/n0uy
+wZswf5elpsCaRM19VrHZuFVzO0/yjQJtJTkyq5XZuMu4bpejowBzW2+QUj8L
+VelRXnMWhI/UHNCg8fFRaxc/j66ArXL/l7iODIj7KgKkDAVyL2sty4My8KXY
+xormT/RvNEaZytKx5GZUuxRC5HuKgqPN0vFd8oqBw3EKPNkTUUS7cB1URZMx
+6R7xvzbLQeLHhVPrbvGxB0RuvM09QJoKl6yasuJyYt5C/JnpkApPaske73oF
+BmkT9ZPVVxEYxQ0s7VSAdPNdo6CdA+6UV5Gvksgp04wpWhIy6t6wy9SU4KoH
+tvxckIjMK65UDU0lBhc3OTuSEiGwpLY81CFyaegDweMLqAkynNS0VGKaTc0O
+3xmP0YEPtlV0JZgMk4v39kXDj+5BnmUokatuMebnEIXOpnLDrf6EycwK2ERC
+VJ6kmR+iBInp8Lh7y2nkcsgfuecIv9gxqZIZDl0St7clQYl4neldeQ1hSIlc
+bFt5ibDWUJVUGoqzzKa62OuEG3TMC+JZOP7LbzeCC5VwmhUKdbV+xdvijqt5
+JcS+jIjMJj1/uBrvTBwoI3yv1pK+1Rf232qx6XWEC7MsUwu8UHo+kpX6jJjv
+39pltpqOLQv9fs0vvu4r1E/gHIbOcKm7UzvR32BvLRK54Yq3rvOZfwizQ0LJ
+MS5Y0Rpn/6iPcH5S/6ZIZ8TsHreeGSJckb3W9fQOSB57mlLGCHP7B3sy7RBi
+XbWBNUG4zfUKa5yCwTvGa+/MENY8mSU02wwfPc6q/nnCpFlyUrA2ChOohQlL
+hNWmwsjGKvgfw+mI8A==
           "]], LineBox[CompressedData["
-1:eJxFznlI03EABfC5w1053VpEopVTQU2bRM7M6LAwmy5yrpTKJbOgTMxjfzQ6
-Fy4P0vnHUMvNVh4do2akIfYzJSQoErUZKq1VK6VDrahlCnMVxPc9eDw+/70w
-zQnlETqNRtv2t//23aSYMtNpW2n/kx4+mRDMgfupwaEGHizb9+DYsgBYUlVh
-CRLBjZLixFoxLKByRvjL4fnZaBY7BB5WPS/0RsKps53+p6JgqsJi/R0D3+gp
-Gv0hhc+uFm76nATHTu/ljyngblVGX/UeeHtvStnmLHh/rfRVWw5cFc+1afPh
-KS0lF+lgq1dSrWiFlwZ+4wwswMy+Jnu42Y/4+PqHE9x0OrFtl8b66Bfs+RIc
-NFXPIO7K2skw7WASn0szXO2cgsNey8dbDCzijYnlphXr/IkPrhya93PAnmc1
-7mI9m7iRqdYqIzj47+q6Th+AWWf0qqQSLjHtltruFvGIS6/Ya0SP4d41lRxh
-EZ9YKC+NvSBYQuyMG3boKLijeUvEB3UAca5dJgxdhM8brumdtwXEdz6GNgky
-AokrLYY81274sHIm8m4mHEJRHYpsuNp44MklDXxUdvk7TwdLysVp7HZ4ccPp
-gLGb8MTM+xftNrgu+35u6j3YF6MsM1Cwc8TYzHDA3Rfn8h0vYVPyoeiWcTi9
-bW1nigvuOTn4VP8Jro9LMGZOwyVusyrsKxyVUfim/yfM9BttrZuD33YlF+Qt
-wFRBizTeCzes4nt8PvgPfBPSFQ==
+1:eJxFx2tIk3EAhfHXmc7N1trWIstLGtNYrotMtJhQEzKwzWZrWm5rpc5RylKi
+BkJzJZFs3VYpGRpE1j6MzWYfIqcGORtZDKmpLCpcENVipQhLtFlB/M+Bh8Mv
++7ixsp5GUdSev/37/OHwlmEatZv6v8kdLyOWFNjeGNdnpcLyhwVhLwv2pd+Z
+jnHhtqrAwVt8WGJPDBSsgx/TG31NGfC9OYnnUx6sFTWLLEI4zdDnyBTB196z
+7h4ugM3+D9aABFb3ttUPKuBodan7uhK28JIXGqrgB5estjUaeLalc6DJAF8s
+cyZsNMPun1M97U6YVrptUkZPIBbk/OaM9MNJsROztQYacU736yuu9ERi79mK
+2NQozC1vTixsXUH8udoTOiVIIo6JvxgrX8GjycOOBksyMZs34KwR0onX8vcp
+L8zA3YqlsQ5bCrFa3RcrFDOIQ+roOP8bHOxSnXx7g0l82a91jZWnEp9/UePW
+UiuJ5ylTa9ABb9oujpiPsogDt9m5DOYq4icTHzOLH8Ga5YrBbj2b+NmAkROl
+ryaW2ZxzDQw4VPf1zQwTnufXdgZZ8GaTasMQD74qKRHYsmCtj7lTWARHesrW
+3y+GTWfaFzN2wfa8+BCnBB7rmJUuSGGRfHq/Xw4/zeVvlR6A9y4r2F4FrOsf
+n3Ar4ZvcEVXXETg7sljEUcOu58VpVg3sP+15d04HH5L98P46BocF+b0ttbAx
+bjB/r4OXJvt0ej38B+c4z40=
           "]]},
         Annotation[#, "Charting`Private`Tag#2"]& ], {}}, {}},
      {"WolframDynamicHighlight", <|
@@ -270,107 +283,121 @@ wFRBizTeCzes4nt8PvgPfBPSFQ==
               Opacity[1.], 
               RGBColor[0.368417, 0.506779, 0.709798], 
               AbsoluteThickness[2]], 
+             
+             Line[{{-0.0999999142857143, -7.675411500440888*^-17}, \
+{-0.09871178473364958, 2.0122545278399397`*^-17}, {-0.09742365518158486, 
+              2.6030553560758866`*^-17}, {-0.09484739607745543, 
+              2.8253767851352487`*^-17}, {-0.08969487786919655, 
+              6.859234331144472*^-18}, {-0.0793898414526788, 
+              5.2334362616619694`*^-17}, {-0.05877976861964332, \
+-1.769167389050454*^-17}, {-0.01755962295357235, -2.91692446950796*^-18}, \
+{-0.001339285714285714, 5.063646068673217*^-17}}], 
              Line[CompressedData["
-1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAASmXo0cDpdT6G0IoA7dCPvARDGnDf
-GVQ/FLWTwF7adzwzn5icsxlkP1I+PAyhuU08S83Xsp0ZdD+C8avcQI52vFdk
-972SGYQ/t3Yts8eijbzdL4dDjRmUP5x22bnXMH68oBVPhooZpD/X7i6r6FuK
-vIEIsyeJGbQ/kCWqagdCUTxYWaGv8PHEPzpAIbCO63Y8C/+BXEcezz/i4OQN
-hS2QvCVR7ujDi9Q/lS0XJaoecLx3zjk/mPTZPwQiNhbS43u8F7QR3gEB3z+C
-1pgtEyOKPLbiQ8zPPOI/YnpOUGevhzzCap0bWezkP2yxUaKwx3O89SY9D61t
-5z+Q+Lh6HsqTvAL5qxAbJeo/MPoAXfT9WLw2/2C2U67sP2TAhqUzNmw8zIQ0
-zsYq7z+YVPnOkdiCvB+Q6/mp7vA/SAmKz/WXZjzr99/e1TDyP3qPa7xL0348
-pOq7yg6O8z8POzE/QoKDvA4dp+/k5PQ/aIVwbwIHWjyMabVmoCT2P076kYY+
-sXm89kCr5Gh/9z9ATwTvnT5RPHQyxLQWw/g/Tn+Sdizwe7zfrsSL0SH6P4IU
-g6sXY3A8+2rUmyl6+z8QNTnj8ytbPCtBB/5mu/w/xp8tZahJVrxHoiFnsRf+
-P2DeQFG/bUC8dx1fIuFc/z/KsuZJrCB/PGJQMFbcYf8/JGzbAqvcd7xOgwGK
-12b/P9hEGojyLHO8Jumj8c1w/z8QxXDZMOJ/PNS06MC6hP8/8FLnfruoc7ww
-THJflKz/Py7X9EnS5Tq8PzTWh8b6/z+ZaSTAUCZqvG+qLmk=
+1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAFV/xFV/xVT+XnOdlnzCNPGXl7u3K
+38M/W+s4od8CWTwARMECtVjOP6Sp7G+7DW08MH/JqGza1D+wc6QvglRlvEsw
+LCl1J9o/MPfEPNhZkbxJj47GGubfP4x93995KnA8GLDLKffE4j+gr0kTYXaD
+PIECzRxcZuU/3jdob0Yyd7zcK06ej0DoP6j3alf0Eng8LD9MTD7q6j/olA4e
+XPyFPHGLHfKDhu0/HsU+Rh2+XbxUVzcTzC3wP2DM/8vAAFO86V2ewxOA8T8o
+eiJfI6loPPdPRbvC7vI/L3mXwssPkLx/3tUuvVb0P05nylKfgIa8AuKkOHWm
+9T/2hL95daJ/vP7Qs4mUEvc/sFlYFXdsfbz1NAFxcWb4P0cbqzUdpI68ZISO
+n7XW+T8A+G+Z3/savE1wBUpFQPs/HK3QwCKMabwx0bqKkpH8PxYtkvWVHXq8
+jh2wEkf//T/vtUVwigZrvObe4zC5VP8/sdXVOY7QcDxdVEwn9Fn/P/xfGV2q
+2nK81Mm0HS9f/z+b+vdyhCpyvMO0hQqlaf8/Wkg36JyBdjygiifkkH7/Pyit
+6JckO3E8WjZrl2io/z9oHUQb2RR+PKiDOqiD+v8/1HV/8cLcXTzkY+yK
               "]], 
              Line[CompressedData["
-1:eJwd0A0w1GkcB/D/rrfFsmw65+WakEp5K3fCiCeWWJqJ3YxDzlBnkrfYzjnW
-pVgv5aVO6+W8nV6MXJaNrdXqpw6V8xZxct7PSydR8r723HP3zDzzzGd+832e
-7zwGwVHeZ8kEQTDw/u+cmNaSFJMJRPSYnNkY3H7iYTT9lS4F27MqwKTZGJol
-nd35KthyQ3puTpZg7SM6t1MN29eu9L2XNfy6WCr3Ew272pGfKrMHw4y0Eg06
-gS7tuh9A1neCAsPoI9laeH7P/lKR1AXUJb6vVLXx/Hj+21AdJmwsmCgo6ROo
-ubPj5qFkL4hMp5el7CIQ0uCu0KZYMGUgtSEb4PxaziA3yAd62B3hMmPszes0
-hwp/cF2oV0zYjy0vUpo7GwiStJLy9QPY34yfeVsWBJWNka8/WeD7F3vNpgpD
-IGm3pv2cLZ5vR0TUKIbBsnijP9Qe23T0ab34PISxJqOmHbAfByUOX4yAU7wH
-t8adCTTOpM5HpESD6fwp1T9O4H7i05QiJgcesT0h8yQ2rbjwo/9FcG5yinVg
-4fzhqcLlC9+BX7bFn3d8CVS+crOvrvp7yLBUruaE4D6hFpsH2FyY4UiY9Hjs
-nZI2M9EViBkR/tOagP/HMLEwKygFZC5VwvgknDdqd++jpoKWNl934gp2um/c
-VhgPnMVRc4Js3K9Jcdn5aAaUywwzT9zG7x/iDclZ54DptzoOpEo8z4tLeLiV
-Aw+7aEv1VQSyvJztnh6cC11lW1/rCwi024rhwjK7DrJjAybvxASKLs4X8zpu
-gB8v42V6N4FymY3+5pZ82EH7QGnZxH31Yp1tU0qgtykzzV2G8/N1wwfXSuBG
-uLFi9zaBTjLSRA1hpUBv95MbkichdPpB7DVWGdBTW2WL6iRk2erVqcMvBw1p
-0ZKeEQmV6zJZkYkVQJ11GY71IKH926sVfdy7IA8/C4yKSWj9B6+BCFcBDNkz
-3MZKcf7jutUmXwCCxvnxol9I6AX32ETnrAD8REfp9EoSkjTamhu71ELd/TEO
-ISQhjr7fPve/ayGw2Mhu5DkJUZa5bTo2QngUX93C/0RC41015o6L9XD+y8dv
-lD3IaHBsbzQDGqHaPbj8ySoZce71sgdafoOVd7oaM3w5RImrV92X1A4NrONy
-eQx55C3WT810fQU/uqWW1c/Io8Y03VyboH4wGGEO3kpVQAUv66RPhW/A7khK
-ns5hRVQgfE5MiEYhYFf3BqlPEX1uoeHGHpyAlfasyehkJfQi6rV9u3AKCuQD
-Od57KIiRIt3mJc/CjtGGCnILBX1mqc1tC5kDBW4y2/aCMirY4j+LqHoPRFWg
-YJKugkQL7PWS8A8QUyTIoj9TQZ5tk1f/slmCpoPpFM1IVUTlxv++qr4MmswY
-08vqVPRFmA81uX8Fhs16+uIlVHS78JzF3b41qC113DMVqIbmeNfspLABd/Ym
-CGr61ZDV/0sK/wK+Hf98
+1:eJwdjwtMk1cUgP+/VV6WTXkoW5h23QhTZKxMCSKOExgp8y0gOimPoQhBEVFU
+pAjUKcIo2gKVARMqyuhmodJiFakceRTNwKG2tYiPKbjy1IA4i+Jjd7vJzc2X
+75wvuZ/GpYTGMyiKCiL3v3dxS79HC4MCKjZpyoZD4x3uH6NCG8K+ZX52Ce5Y
+tPPd9gWzCI+9H0rM4uLaWu9+rT3hvQb9M6Yv2vVvj9oym7DpWmUQNwB1rhW9
+FgcKcorz07wygzBnU0+Y1Jl4yd9rObU89C9i9ni7EM8/Y7RyXo2N1jt1yZ8Q
+fxK2qYyhuDtQBrPYxN/bZaQTNqLHIUOznENY/1Kqd9yM1c/9VQPuZJ51QjLS
+HIXRnqmewkUUXE2DtsYtsfhRYo18vieZ9yvpThr4AcUP7Ku+96YADMUzYubF
+Y/b1hwU9/oTNeslGeif6MR2tkwNIrzEs4aAxGV+u4B22CyQsBEGqOgV3qZXp
+wTzSC/YI+KAzFfmVOfHNGyiIjdTm3zLuw2ebg5SScMLrayPfTO9HoaPVq4RN
+FLAXd6z90j0df80rEDlFEV9e9yhClIETe06qkxNJf0pQcelENubyFDQ7m4LZ
+O5ou5PocRRdGyqqXQuLV5oLBp0fxnJYr7T5CgSwjVBNWm4s3uRe/OPgT6Y+J
+W33Zefixa9u621LSp7YN/7awAJXjplNHFBTcHBnTVHWJMfBc+eAWJdnXrAwu
+8pGgIT6Ky1WR+cKBgYRqCb7u6+94cJH8r+d+wYXMIvxW93TUp52C9bIbYXXL
+S7C3jOk3fJcCsT+rou1xKTKCvO6ssaYBdCvfVemqMCtjfsWkLQ0u7ctCVGwZ
+TjfYx5axaKAOnHY1R8vwBXts+MkcGtjV6gm4L0PzO/lbgSsNQ8cFcU19p7Hr
+Msftdy4NYp1HYJL5DJZ4z02z4tMQ8vnZzjofObpx3s7B82Tf4fzl0DvnMf1u
+Rs0pNQ15oxVOF+gG7BZP+WZqaHDaoxlb4dmAe99PxizTkp5oSN52pAFb74/U
+qa/R8ETPiJQuVWFUae938oc0jIeF60Mq1ShlNQolLAbYtFOLvynQ4ExL0sTW
+RAaMdy2wvfKnFjnlN47XuzJBlv26cPlqHWoPrLOYOpiQ+CJujUjUjQ6rUplL
+BTNg7vhVt3lVt9G8WdW3220mXGfU99AsE1qWDKWEds8EF5nkcZPmHnZYtcgT
+hFagrOdRveJH+KGjWhG5yBqOHUpXTMMAznUOCf/xsTVoeaWKrAgzlm9405kv
+sgEnrnnrzzHDyOfXWJYusYVfBClK26wx7OM/63IesYV9z/cjZ8Y4GksjdhiK
+7eCQ+ZKX5MoEFl6Pru9cNQvOVi0U3VJO4uFrkcpoigWSXQaTQfEPvqDSBUY5
+C8LSHF67l1nws6+WjGbH2MPtW3/19bW+Qq2pfbDQaA9f/3+m8V8uZ/2X
               "]]}, "Charting`Private`Tag#1"], 
            Annotation[{
              Directive[
               Opacity[1.], 
               RGBColor[0.880722, 0.611041, 0.142051], 
               AbsoluteThickness[2]], 
+             
+             Line[{{-0.0999999142857143, 
+              1.6707545588821862`}, {-0.09871178473364958, 
+              1.6694680198193697`}, {-0.09742365518158486, 
+              1.6681814397590167`}, {-0.09484739607745543, 
+              1.665608158790747}, {-0.08969487786919655, 
+              1.6604611284764783`}, {-0.0793898414526788, 
+              1.65016531439713}, {-0.05877976861964332, 
+              1.6295676323304158`}, {-0.01755962295357235, 
+              1.5883557241483424`}, {-0.001339285714285714, 
+              1.5721356124090882`}}], 
              Line[CompressedData["
-1:eJwVzns01HkYBvAhXU6dRG6NkpGSlUqxFUuPdmySyw6booTcQtIoJaXcphAm
-aqYmlSaXhAgNRjdTCYlkU7EZIoep3FeG5ra//eN7vudznvc872vgd8QtUJlE
-InkS7/9/Z6CoTfD1+NbtYXu3SgxmoELVpfeQd2Ed/XDX5LIZmN/i3HhADsCA
-KffUiM4MHFs+VtwkR2K4/Et178IZ7AkQP7lEZmBcY59l48w0hOuTqOlkFmi8
-5mPstmlwtf48f4Gch4W/t+RtiJ9G/LwHq1PIPJxOzhRFfRbDw/P2/bHxOlQY
-UYQxjCksUMR72S9vxfK0MnaB7Q+sch0RvUhth17j6LlKlUlEvbEEZ7ITUzkD
-rQ5lE9DhqXcrKfWgrtjmssvxcVT1UZtbrfvwuXd7V4bhGJ6H3lzqOdQPFfoV
-7Vv8YfwwsllUcngQ9RfcuYt9vkN5plht6apv4Ag78iVCETYpfKv+Kh2CM3uI
-6X95AM0Mizf1JqOIXJvd1enbD/2M7zOFI2PgZ4X1r1Ttw3dxT/d7swmoB0jS
-Vg32IO/boyZV5r943Bix0i72E1T1Ckb7+ydh/Lmpt9bjI9JCKoO4K6egTC+d
-3n/nHaZsi/uDY8WwftHYG89rReTGOp72i2lsFyvHeKi9Qk9pXWqbwU/40tlm
-GmHPIQltv/7LKQmkZ1gHtpNrsGvT/sx1sRJo5h4MWz3Gxz2lgfPmDAlURlO5
-eg18eHPEETZMCW7IdAUOx/l49lJ3h2uOBIzW8ricv6uRRDkwebKJyGOl0f6Z
-VdD4MOzUqCtF8DGSGUufhzXb5sqDHknBuZod/evs+ygrKl7dIZBiyaETI3f5
-pbDQpLk61EvhW0yd7RlWCutBTt6aNiniymrm0dtL4JJu4jg2QORUkk5cwT0c
-7XTmRC+WgW/U9trHswg1EayNaSEyJG8jt0uH87H10xYvWTjhLa5fGYX5eG4n
-PBceKQMloijULTAfTTpGnbRYGXbYWSnXCvPQ9aQ6Vostw5IGnYnBtlyQ5n9q
-zhbIUHaC1dfQcBv2OQYHy3XkIL1wshF3XIcFR9WofpkcNCufvjuh10FhSvr/
-MZDDbItAf0CahZ/R7/1UTOXIWP7qkbZhFkpcU7z32Moh8L6b43GCAw2lcXdZ
-sBxvCzfzTS3ZIImFmovD5Shr8m/b1s7C0FDTO6NjclAWjmX/OMJCfUeeK+2M
-HPSzmx7aFF5GdJmHc24m0a95reOI4SX0+AjsHB7KYZs3+loYzkSze8ks71ri
-Xqajv7wmHXzHrOdH64g+ZoTxuTnpuLQ50vbGGzl8nXfGteWm4o9FxtajfXLE
-GdCSakeTUfz0ojl7gQIU55KEBW8TweHFTBSqKUBfEaRmap4IRlFI+VMtBdR2
-lRwauZoA7yvU9SJ9BUh3RlMOBcVDPVxs8puFAr5RhuNF688iSs9nRa+XAtzq
-xx3SnOPwo5nt7jqggEDtNOdBQSRcEpUufAxS4LNbwrRz2TEYfc0db6ET+7n7
-MuktEWjniQQPGQrERbioio6GQTBYM1mZQuzjzA9gPQ1FsW6qcTmTyAcor+w1
-QpAQtzajgEPYK6eG1REIM6ejPqx7xLyooopX4YNlsdTLF8sJM433MQa9MLdC
-s+FCFTFf7/iNvXEvunWq18ULFLD1c7C4quqOpp3JfjEvCQdn8nbedkPlGc8r
-UU3E/dX012+daUj7IpEdbif6gvI1UybscVK7ZUNIJ+G7z9huU1T4O2QHBnQT
-/TolVl2WtnCJOXLN5wuRs2dtSEq0hNV925a9IsK7ZwxzVpvDqE9dafcw4RGV
-aWq3CdS1vli4ThA2mWPWL6RAas8LdhITDnhMly5VByw+JNX/JEzhkkM/Krb+
-B6Id0V8=
+1:eJwVzQ0w1GkcB/AlyunMlXRcKELrZcld7mgrXyqF1Ko2bMPYM7E4yV6HOSnK
+S9NWrFqq9XJKFon2RHkd1UYhJW93hFBe2hB73tau3fs38zzzzGe+39/vMQ44
+dSRQlUQiHSbu13e9/wxxjiE3LUl+zkCKwJGpyeb3IuhFKQT5gnmQ9j5VrfB5
+jYNDHmQKYw62cU2FYb2d2KzNv3Vw5j8csKVYRJJ7MRDoU9udJ4FbakrjhtH3
+6Mvq/tC0awZ6whaLhefDELDNVFuef8F51VYD36ARnAikqP/pMok+q0M5qU7j
+8FqZMuWXKQYFHh6OYjF8OMm66ZbjYF82lCQkT+KlY7tpT/sI6N72615ZT6N2
+bPcRqs8HfPLLEa2Ln8GTppIA0g9DWKC51DybkmDx8tpb3rH9iBvosqnzmsX2
+p53t2at7oDp81yFSMIf9RaN85vddULQ9vMTTXkClX7rjv2pvMWenwmYHLcKS
++0neL27GicSUvyq6pXj0rntHTbMIByPU3V2cZLgbnmb0h7QabS4acRwXGbKm
+ub4HWqtB119d/sZdhsqwSIftt6vh27hm4/FjMtQyNq5huFUj1MBAEh4qg/lw
+g3oxvwrJL3/i3+TJQOk4myFwrkS9EVP8eVwG3s6I4KjbFfjxbTXnWpocGrEN
+e8vvCxEg6PV1uyFH7sc0c16CELwzSzakbDnK5zOTeceFmDejdpwslOOE56pt
+CxpC1MZU6bvVy/Ek505H6utSuJpW3ldOyCF09+KE0O+DGV3xOsx1GRFHu0fO
+8gpwzaMr1+TQMtpsWUOj7gUQGc/93nt0GQ4x62l8lQJseWWn6+q/DFL6zOeh
+UwJMGJX7m0Qtw3PMxEdBy0d0c9l0T94yBidYbk835iHFUKi9X0n0+cq/n0uy
+wZswf5elpsCaRM19VrHZuFVzO0/yjQJtJTkyq5XZuMu4bpejowBzW2+QUj8L
+VelRXnMWhI/UHNCg8fFRaxc/j66ArXL/l7iODIj7KgKkDAVyL2sty4My8KXY
+xormT/RvNEaZytKx5GZUuxRC5HuKgqPN0vFd8oqBw3EKPNkTUUS7cB1URZMx
+6R7xvzbLQeLHhVPrbvGxB0RuvM09QJoKl6yasuJyYt5C/JnpkApPaske73oF
+BmkT9ZPVVxEYxQ0s7VSAdPNdo6CdA+6UV5Gvksgp04wpWhIy6t6wy9SU4KoH
+tvxckIjMK65UDU0lBhc3OTuSEiGwpLY81CFyaegDweMLqAkynNS0VGKaTc0O
+3xmP0YEPtlV0JZgMk4v39kXDj+5BnmUokatuMebnEIXOpnLDrf6EycwK2ERC
+VJ6kmR+iBInp8Lh7y2nkcsgfuecIv9gxqZIZDl0St7clQYl4neldeQ1hSIlc
+bFt5ibDWUJVUGoqzzKa62OuEG3TMC+JZOP7LbzeCC5VwmhUKdbV+xdvijqt5
+JcS+jIjMJj1/uBrvTBwoI3yv1pK+1Rf232qx6XWEC7MsUwu8UHo+kpX6jJjv
+39pltpqOLQv9fs0vvu4r1E/gHIbOcKm7UzvR32BvLRK54Yq3rvOZfwizQ0LJ
+MS5Y0Rpn/6iPcH5S/6ZIZ8TsHreeGSJckb3W9fQOSB57mlLGCHP7B3sy7RBi
+XbWBNUG4zfUKa5yCwTvGa+/MENY8mSU02wwfPc6q/nnCpFlyUrA2ChOohQlL
+hNWmwsjGKvgfw+mI8A==
               "]], 
              Line[CompressedData["
-1:eJxFznlI03EABfC5w1053VpEopVTQU2bRM7M6LAwmy5yrpTKJbOgTMxjfzQ6
-Fy4P0vnHUMvNVh4do2akIfYzJSQoErUZKq1VK6VDrahlCnMVxPc9eDw+/70w
-zQnlETqNRtv2t//23aSYMtNpW2n/kx4+mRDMgfupwaEGHizb9+DYsgBYUlVh
-CRLBjZLixFoxLKByRvjL4fnZaBY7BB5WPS/0RsKps53+p6JgqsJi/R0D3+gp
-Gv0hhc+uFm76nATHTu/ljyngblVGX/UeeHtvStnmLHh/rfRVWw5cFc+1afPh
-KS0lF+lgq1dSrWiFlwZ+4wwswMy+Jnu42Y/4+PqHE9x0OrFtl8b66Bfs+RIc
-NFXPIO7K2skw7WASn0szXO2cgsNey8dbDCzijYnlphXr/IkPrhya93PAnmc1
-7mI9m7iRqdYqIzj47+q6Th+AWWf0qqQSLjHtltruFvGIS6/Ya0SP4d41lRxh
-EZ9YKC+NvSBYQuyMG3boKLijeUvEB3UAca5dJgxdhM8brumdtwXEdz6GNgky
-AokrLYY81274sHIm8m4mHEJRHYpsuNp44MklDXxUdvk7TwdLysVp7HZ4ccPp
-gLGb8MTM+xftNrgu+35u6j3YF6MsM1Cwc8TYzHDA3Rfn8h0vYVPyoeiWcTi9
-bW1nigvuOTn4VP8Jro9LMGZOwyVusyrsKxyVUfim/yfM9BttrZuD33YlF+Qt
-wFRBizTeCzes4nt8PvgPfBPSFQ==
+1:eJxFx2tIk3EAhfHXmc7N1trWIstLGtNYrotMtJhQEzKwzWZrWm5rpc5RylKi
+BkJzJZFs3VYpGRpE1j6MzWYfIqcGORtZDKmpLCpcENVipQhLtFlB/M+Bh8Mv
++7ixsp5GUdSev/37/OHwlmEatZv6v8kdLyOWFNjeGNdnpcLyhwVhLwv2pd+Z
+jnHhtqrAwVt8WGJPDBSsgx/TG31NGfC9OYnnUx6sFTWLLEI4zdDnyBTB196z
+7h4ugM3+D9aABFb3ttUPKuBodan7uhK28JIXGqrgB5estjUaeLalc6DJAF8s
+cyZsNMPun1M97U6YVrptUkZPIBbk/OaM9MNJsROztQYacU736yuu9ERi79mK
+2NQozC1vTixsXUH8udoTOiVIIo6JvxgrX8GjycOOBksyMZs34KwR0onX8vcp
+L8zA3YqlsQ5bCrFa3RcrFDOIQ+roOP8bHOxSnXx7g0l82a91jZWnEp9/UePW
+UiuJ5ylTa9ABb9oujpiPsogDt9m5DOYq4icTHzOLH8Ga5YrBbj2b+NmAkROl
+ryaW2ZxzDQw4VPf1zQwTnufXdgZZ8GaTasMQD74qKRHYsmCtj7lTWARHesrW
+3y+GTWfaFzN2wfa8+BCnBB7rmJUuSGGRfHq/Xw4/zeVvlR6A9y4r2F4FrOsf
+n3Ar4ZvcEVXXETg7sljEUcOu58VpVg3sP+15d04HH5L98P46BocF+b0ttbAx
+bjB/r4OXJvt0ej38B+c4z40=
               "]]}, "Charting`Private`Tag#2"], {}}}, {}}, <|
         "HighlightElements" -> <|
           "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
          "LayoutOptions" -> <|
-          "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 4.}, {-1.7, 1.7}}, 
+          "PanelPlotLayout" -> <||>, 
+           "PlotRange" -> {{-0.1, 4.1}, {-1.7, 1.7}}, 
            "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
            "ImageSize" -> {340, 340/GoldenRatio}, "Axes" -> {True, True}, 
            "LabelStyle" -> {FontFamily -> "Times", 
@@ -398,8 +425,8 @@ wFRBizTeCzes4nt8PvgPfBPSFQ==
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
-         "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 4.}, {-1.7, 1.7}}, 
-          "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
+         "PanelPlotLayout" -> <||>, "PlotRange" -> {{-0.1, 4.1}, {-1.7, 1.7}},
+           "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
           "ImageSize" -> {340, 340/GoldenRatio}, "Axes" -> {True, True}, 
           "LabelStyle" -> {FontFamily -> "Times", 
             GrayLevel[0], FontSize -> 11}, "AspectRatio" -> GoldenRatio^(-1), 
@@ -431,107 +458,118 @@ wFRBizTeCzes4nt8PvgPfBPSFQ==
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[2]], 
+         Line[{{-0.0999999142857143, -7.675411500440888*^-17}, \
+{-0.09871178473364958, 2.0122545278399397`*^-17}, {-0.09742365518158486, 
+          2.6030553560758866`*^-17}, {-0.09484739607745543, 
+          2.8253767851352487`*^-17}, {-0.08969487786919655, 
+          6.859234331144472*^-18}, {-0.0793898414526788, 
+          5.2334362616619694`*^-17}, {-0.05877976861964332, \
+-1.769167389050454*^-17}, {-0.01755962295357235, -2.91692446950796*^-18}, \
+{-0.001339285714285714, 5.063646068673217*^-17}}], 
          Line[CompressedData["
-1:eJwBYQKe/SFib1JlAgAAACUAAAACAAAASmXo0cDpdT6G0IoA7dCPvARDGnDf
-GVQ/FLWTwF7adzwzn5icsxlkP1I+PAyhuU08S83Xsp0ZdD+C8avcQI52vFdk
-972SGYQ/t3Yts8eijbzdL4dDjRmUP5x22bnXMH68oBVPhooZpD/X7i6r6FuK
-vIEIsyeJGbQ/kCWqagdCUTxYWaGv8PHEPzpAIbCO63Y8C/+BXEcezz/i4OQN
-hS2QvCVR7ujDi9Q/lS0XJaoecLx3zjk/mPTZPwQiNhbS43u8F7QR3gEB3z+C
-1pgtEyOKPLbiQ8zPPOI/YnpOUGevhzzCap0bWezkP2yxUaKwx3O89SY9D61t
-5z+Q+Lh6HsqTvAL5qxAbJeo/MPoAXfT9WLw2/2C2U67sP2TAhqUzNmw8zIQ0
-zsYq7z+YVPnOkdiCvB+Q6/mp7vA/SAmKz/WXZjzr99/e1TDyP3qPa7xL0348
-pOq7yg6O8z8POzE/QoKDvA4dp+/k5PQ/aIVwbwIHWjyMabVmoCT2P076kYY+
-sXm89kCr5Gh/9z9ATwTvnT5RPHQyxLQWw/g/Tn+Sdizwe7zfrsSL0SH6P4IU
-g6sXY3A8+2rUmyl6+z8QNTnj8ytbPCtBB/5mu/w/xp8tZahJVrxHoiFnsRf+
-P2DeQFG/bUC8dx1fIuFc/z/KsuZJrCB/PGJQMFbcYf8/JGzbAqvcd7xOgwGK
-12b/P9hEGojyLHO8Jumj8c1w/z8QxXDZMOJ/PNS06MC6hP8/8FLnfruoc7ww
-THJflKz/Py7X9EnS5Tq8PzTWh8b6/z+ZaSTAUCZqvG+qLmk=
+1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAFV/xFV/xVT+XnOdlnzCNPGXl7u3K
+38M/W+s4od8CWTwARMECtVjOP6Sp7G+7DW08MH/JqGza1D+wc6QvglRlvEsw
+LCl1J9o/MPfEPNhZkbxJj47GGubfP4x93995KnA8GLDLKffE4j+gr0kTYXaD
+PIECzRxcZuU/3jdob0Yyd7zcK06ej0DoP6j3alf0Eng8LD9MTD7q6j/olA4e
+XPyFPHGLHfKDhu0/HsU+Rh2+XbxUVzcTzC3wP2DM/8vAAFO86V2ewxOA8T8o
+eiJfI6loPPdPRbvC7vI/L3mXwssPkLx/3tUuvVb0P05nylKfgIa8AuKkOHWm
+9T/2hL95daJ/vP7Qs4mUEvc/sFlYFXdsfbz1NAFxcWb4P0cbqzUdpI68ZISO
+n7XW+T8A+G+Z3/savE1wBUpFQPs/HK3QwCKMabwx0bqKkpH8PxYtkvWVHXq8
+jh2wEkf//T/vtUVwigZrvObe4zC5VP8/sdXVOY7QcDxdVEwn9Fn/P/xfGV2q
+2nK81Mm0HS9f/z+b+vdyhCpyvMO0hQqlaf8/Wkg36JyBdjygiifkkH7/Pyit
+6JckO3E8WjZrl2io/z9oHUQb2RR+PKiDOqiD+v8/1HV/8cLcXTzkY+yK
           "]], 
          Line[CompressedData["
-1:eJwd0A0w1GkcB/D/rrfFsmw65+WakEp5K3fCiCeWWJqJ3YxDzlBnkrfYzjnW
-pVgv5aVO6+W8nV6MXJaNrdXqpw6V8xZxct7PSydR8r723HP3zDzzzGd+832e
-7zwGwVHeZ8kEQTDw/u+cmNaSFJMJRPSYnNkY3H7iYTT9lS4F27MqwKTZGJol
-nd35KthyQ3puTpZg7SM6t1MN29eu9L2XNfy6WCr3Ew272pGfKrMHw4y0Eg06
-gS7tuh9A1neCAsPoI9laeH7P/lKR1AXUJb6vVLXx/Hj+21AdJmwsmCgo6ROo
-ubPj5qFkL4hMp5el7CIQ0uCu0KZYMGUgtSEb4PxaziA3yAd62B3hMmPszes0
-hwp/cF2oV0zYjy0vUpo7GwiStJLy9QPY34yfeVsWBJWNka8/WeD7F3vNpgpD
-IGm3pv2cLZ5vR0TUKIbBsnijP9Qe23T0ab34PISxJqOmHbAfByUOX4yAU7wH
-t8adCTTOpM5HpESD6fwp1T9O4H7i05QiJgcesT0h8yQ2rbjwo/9FcG5yinVg
-4fzhqcLlC9+BX7bFn3d8CVS+crOvrvp7yLBUruaE4D6hFpsH2FyY4UiY9Hjs
-nZI2M9EViBkR/tOagP/HMLEwKygFZC5VwvgknDdqd++jpoKWNl934gp2um/c
-VhgPnMVRc4Js3K9Jcdn5aAaUywwzT9zG7x/iDclZ54DptzoOpEo8z4tLeLiV
-Aw+7aEv1VQSyvJztnh6cC11lW1/rCwi024rhwjK7DrJjAybvxASKLs4X8zpu
-gB8v42V6N4FymY3+5pZ82EH7QGnZxH31Yp1tU0qgtykzzV2G8/N1wwfXSuBG
-uLFi9zaBTjLSRA1hpUBv95MbkichdPpB7DVWGdBTW2WL6iRk2erVqcMvBw1p
-0ZKeEQmV6zJZkYkVQJ11GY71IKH926sVfdy7IA8/C4yKSWj9B6+BCFcBDNkz
-3MZKcf7jutUmXwCCxvnxol9I6AX32ETnrAD8REfp9EoSkjTamhu71ELd/TEO
-ISQhjr7fPve/ayGw2Mhu5DkJUZa5bTo2QngUX93C/0RC41015o6L9XD+y8dv
-lD3IaHBsbzQDGqHaPbj8ySoZce71sgdafoOVd7oaM3w5RImrV92X1A4NrONy
-eQx55C3WT810fQU/uqWW1c/Io8Y03VyboH4wGGEO3kpVQAUv66RPhW/A7khK
-ns5hRVQgfE5MiEYhYFf3BqlPEX1uoeHGHpyAlfasyehkJfQi6rV9u3AKCuQD
-Od57KIiRIt3mJc/CjtGGCnILBX1mqc1tC5kDBW4y2/aCMirY4j+LqHoPRFWg
-YJKugkQL7PWS8A8QUyTIoj9TQZ5tk1f/slmCpoPpFM1IVUTlxv++qr4MmswY
-08vqVPRFmA81uX8Fhs16+uIlVHS78JzF3b41qC113DMVqIbmeNfspLABd/Ym
-CGr61ZDV/0sK/wK+Hf98
+1:eJwdjwtMk1cUgP+/VV6WTXkoW5h23QhTZKxMCSKOExgp8y0gOimPoQhBEVFU
+pAjUKcIo2gKVARMqyuhmodJiFakceRTNwKG2tYiPKbjy1IA4i+Jjd7vJzc2X
+75wvuZ/GpYTGMyiKCiL3v3dxS79HC4MCKjZpyoZD4x3uH6NCG8K+ZX52Ce5Y
+tPPd9gWzCI+9H0rM4uLaWu9+rT3hvQb9M6Yv2vVvj9oym7DpWmUQNwB1rhW9
+FgcKcorz07wygzBnU0+Y1Jl4yd9rObU89C9i9ni7EM8/Y7RyXo2N1jt1yZ8Q
+fxK2qYyhuDtQBrPYxN/bZaQTNqLHIUOznENY/1Kqd9yM1c/9VQPuZJ51QjLS
+HIXRnqmewkUUXE2DtsYtsfhRYo18vieZ9yvpThr4AcUP7Ku+96YADMUzYubF
+Y/b1hwU9/oTNeslGeif6MR2tkwNIrzEs4aAxGV+u4B22CyQsBEGqOgV3qZXp
+wTzSC/YI+KAzFfmVOfHNGyiIjdTm3zLuw2ebg5SScMLrayPfTO9HoaPVq4RN
+FLAXd6z90j0df80rEDlFEV9e9yhClIETe06qkxNJf0pQcelENubyFDQ7m4LZ
+O5ou5PocRRdGyqqXQuLV5oLBp0fxnJYr7T5CgSwjVBNWm4s3uRe/OPgT6Y+J
+W33Zefixa9u621LSp7YN/7awAJXjplNHFBTcHBnTVHWJMfBc+eAWJdnXrAwu
+8pGgIT6Ky1WR+cKBgYRqCb7u6+94cJH8r+d+wYXMIvxW93TUp52C9bIbYXXL
+S7C3jOk3fJcCsT+rou1xKTKCvO6ssaYBdCvfVemqMCtjfsWkLQ0u7ctCVGwZ
+TjfYx5axaKAOnHY1R8vwBXts+MkcGtjV6gm4L0PzO/lbgSsNQ8cFcU19p7Hr
+Msftdy4NYp1HYJL5DJZ4z02z4tMQ8vnZzjofObpx3s7B82Tf4fzl0DvnMf1u
+Rs0pNQ15oxVOF+gG7BZP+WZqaHDaoxlb4dmAe99PxizTkp5oSN52pAFb74/U
+qa/R8ETPiJQuVWFUae938oc0jIeF60Mq1ShlNQolLAbYtFOLvynQ4ExL0sTW
+RAaMdy2wvfKnFjnlN47XuzJBlv26cPlqHWoPrLOYOpiQ+CJujUjUjQ6rUplL
+BTNg7vhVt3lVt9G8WdW3220mXGfU99AsE1qWDKWEds8EF5nkcZPmHnZYtcgT
+hFagrOdRveJH+KGjWhG5yBqOHUpXTMMAznUOCf/xsTVoeaWKrAgzlm9405kv
+sgEnrnnrzzHDyOfXWJYusYVfBClK26wx7OM/63IesYV9z/cjZ8Y4GksjdhiK
+7eCQ+ZKX5MoEFl6Pru9cNQvOVi0U3VJO4uFrkcpoigWSXQaTQfEPvqDSBUY5
+C8LSHF67l1nws6+WjGbH2MPtW3/19bW+Qq2pfbDQaA9f/3+m8V8uZ/2X
           "]]}, "Charting`Private`Tag#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[2]], 
+         Line[{{-0.0999999142857143, 
+          1.6707545588821862`}, {-0.09871178473364958, 
+          1.6694680198193697`}, {-0.09742365518158486, 
+          1.6681814397590167`}, {-0.09484739607745543, 
+          1.665608158790747}, {-0.08969487786919655, 
+          1.6604611284764783`}, {-0.0793898414526788, 
+          1.65016531439713}, {-0.05877976861964332, 
+          1.6295676323304158`}, {-0.01755962295357235, 
+          1.5883557241483424`}, {-0.001339285714285714, 
+          1.5721356124090882`}}], 
          Line[CompressedData["
-1:eJwVzns01HkYBvAhXU6dRG6NkpGSlUqxFUuPdmySyw6booTcQtIoJaXcphAm
-aqYmlSaXhAgNRjdTCYlkU7EZIoep3FeG5ra//eN7vudznvc872vgd8QtUJlE
-InkS7/9/Z6CoTfD1+NbtYXu3SgxmoELVpfeQd2Ed/XDX5LIZmN/i3HhADsCA
-KffUiM4MHFs+VtwkR2K4/Et178IZ7AkQP7lEZmBcY59l48w0hOuTqOlkFmi8
-5mPstmlwtf48f4Gch4W/t+RtiJ9G/LwHq1PIPJxOzhRFfRbDw/P2/bHxOlQY
-UYQxjCksUMR72S9vxfK0MnaB7Q+sch0RvUhth17j6LlKlUlEvbEEZ7ITUzkD
-rQ5lE9DhqXcrKfWgrtjmssvxcVT1UZtbrfvwuXd7V4bhGJ6H3lzqOdQPFfoV
-7Vv8YfwwsllUcngQ9RfcuYt9vkN5plht6apv4Ag78iVCETYpfKv+Kh2CM3uI
-6X95AM0Mizf1JqOIXJvd1enbD/2M7zOFI2PgZ4X1r1Ttw3dxT/d7swmoB0jS
-Vg32IO/boyZV5r943Bix0i72E1T1Ckb7+ydh/Lmpt9bjI9JCKoO4K6egTC+d
-3n/nHaZsi/uDY8WwftHYG89rReTGOp72i2lsFyvHeKi9Qk9pXWqbwU/40tlm
-GmHPIQltv/7LKQmkZ1gHtpNrsGvT/sx1sRJo5h4MWz3Gxz2lgfPmDAlURlO5
-eg18eHPEETZMCW7IdAUOx/l49lJ3h2uOBIzW8ricv6uRRDkwebKJyGOl0f6Z
-VdD4MOzUqCtF8DGSGUufhzXb5sqDHknBuZod/evs+ygrKl7dIZBiyaETI3f5
-pbDQpLk61EvhW0yd7RlWCutBTt6aNiniymrm0dtL4JJu4jg2QORUkk5cwT0c
-7XTmRC+WgW/U9trHswg1EayNaSEyJG8jt0uH87H10xYvWTjhLa5fGYX5eG4n
-PBceKQMloijULTAfTTpGnbRYGXbYWSnXCvPQ9aQ6Vostw5IGnYnBtlyQ5n9q
-zhbIUHaC1dfQcBv2OQYHy3XkIL1wshF3XIcFR9WofpkcNCufvjuh10FhSvr/
-MZDDbItAf0CahZ/R7/1UTOXIWP7qkbZhFkpcU7z32Moh8L6b43GCAw2lcXdZ
-sBxvCzfzTS3ZIImFmovD5Shr8m/b1s7C0FDTO6NjclAWjmX/OMJCfUeeK+2M
-HPSzmx7aFF5GdJmHc24m0a95reOI4SX0+AjsHB7KYZs3+loYzkSze8ks71ri
-Xqajv7wmHXzHrOdH64g+ZoTxuTnpuLQ50vbGGzl8nXfGteWm4o9FxtajfXLE
-GdCSakeTUfz0ojl7gQIU55KEBW8TweHFTBSqKUBfEaRmap4IRlFI+VMtBdR2
-lRwauZoA7yvU9SJ9BUh3RlMOBcVDPVxs8puFAr5RhuNF688iSs9nRa+XAtzq
-xx3SnOPwo5nt7jqggEDtNOdBQSRcEpUufAxS4LNbwrRz2TEYfc0db6ET+7n7
-MuktEWjniQQPGQrERbioio6GQTBYM1mZQuzjzA9gPQ1FsW6qcTmTyAcor+w1
-QpAQtzajgEPYK6eG1REIM6ejPqx7xLyooopX4YNlsdTLF8sJM433MQa9MLdC
-s+FCFTFf7/iNvXEvunWq18ULFLD1c7C4quqOpp3JfjEvCQdn8nbedkPlGc8r
-UU3E/dX012+daUj7IpEdbif6gvI1UybscVK7ZUNIJ+G7z9huU1T4O2QHBnQT
-/TolVl2WtnCJOXLN5wuRs2dtSEq0hNV925a9IsK7ZwxzVpvDqE9dafcw4RGV
-aWq3CdS1vli4ThA2mWPWL6RAas8LdhITDnhMly5VByw+JNX/JEzhkkM/Krb+
-B6Id0V8=
+1:eJwVzQ0w1GkcB/AlyunMlXRcKELrZcld7mgrXyqF1Ko2bMPYM7E4yV6HOSnK
+S9NWrFqq9XJKFon2RHkd1UYhJW93hFBe2hB73tau3fs38zzzzGe+39/vMQ44
+dSRQlUQiHSbu13e9/wxxjiE3LUl+zkCKwJGpyeb3IuhFKQT5gnmQ9j5VrfB5
+jYNDHmQKYw62cU2FYb2d2KzNv3Vw5j8csKVYRJJ7MRDoU9udJ4FbakrjhtH3
+6Mvq/tC0awZ6whaLhefDELDNVFuef8F51VYD36ARnAikqP/pMok+q0M5qU7j
+8FqZMuWXKQYFHh6OYjF8OMm66ZbjYF82lCQkT+KlY7tpT/sI6N72615ZT6N2
+bPcRqs8HfPLLEa2Ln8GTppIA0g9DWKC51DybkmDx8tpb3rH9iBvosqnzmsX2
+p53t2at7oDp81yFSMIf9RaN85vddULQ9vMTTXkClX7rjv2pvMWenwmYHLcKS
++0neL27GicSUvyq6pXj0rntHTbMIByPU3V2cZLgbnmb0h7QabS4acRwXGbKm
+ub4HWqtB119d/sZdhsqwSIftt6vh27hm4/FjMtQyNq5huFUj1MBAEh4qg/lw
+g3oxvwrJL3/i3+TJQOk4myFwrkS9EVP8eVwG3s6I4KjbFfjxbTXnWpocGrEN
+e8vvCxEg6PV1uyFH7sc0c16CELwzSzakbDnK5zOTeceFmDejdpwslOOE56pt
+CxpC1MZU6bvVy/Ek505H6utSuJpW3ldOyCF09+KE0O+DGV3xOsx1GRFHu0fO
+8gpwzaMr1+TQMtpsWUOj7gUQGc/93nt0GQ4x62l8lQJseWWn6+q/DFL6zOeh
+UwJMGJX7m0Qtw3PMxEdBy0d0c9l0T94yBidYbk835iHFUKi9X0n0+cq/n0uy
+wZswf5elpsCaRM19VrHZuFVzO0/yjQJtJTkyq5XZuMu4bpejowBzW2+QUj8L
+VelRXnMWhI/UHNCg8fFRaxc/j66ArXL/l7iODIj7KgKkDAVyL2sty4My8KXY
+xormT/RvNEaZytKx5GZUuxRC5HuKgqPN0vFd8oqBw3EKPNkTUUS7cB1URZMx
+6R7xvzbLQeLHhVPrbvGxB0RuvM09QJoKl6yasuJyYt5C/JnpkApPaske73oF
+BmkT9ZPVVxEYxQ0s7VSAdPNdo6CdA+6UV5Gvksgp04wpWhIy6t6wy9SU4KoH
+tvxckIjMK65UDU0lBhc3OTuSEiGwpLY81CFyaegDweMLqAkynNS0VGKaTc0O
+3xmP0YEPtlV0JZgMk4v39kXDj+5BnmUokatuMebnEIXOpnLDrf6EycwK2ERC
+VJ6kmR+iBInp8Lh7y2nkcsgfuecIv9gxqZIZDl0St7clQYl4neldeQ1hSIlc
+bFt5ibDWUJVUGoqzzKa62OuEG3TMC+JZOP7LbzeCC5VwmhUKdbV+xdvijqt5
+JcS+jIjMJj1/uBrvTBwoI3yv1pK+1Rf232qx6XWEC7MsUwu8UHo+kpX6jJjv
+39pltpqOLQv9fs0vvu4r1E/gHIbOcKm7UzvR32BvLRK54Yq3rvOZfwizQ0LJ
+MS5Y0Rpn/6iPcH5S/6ZIZ8TsHreeGSJckb3W9fQOSB57mlLGCHP7B3sy7RBi
+XbWBNUG4zfUKa5yCwTvGa+/MENY8mSU02wwfPc6q/nnCpFlyUrA2ChOohQlL
+hNWmwsjGKvgfw+mI8A==
           "]], 
          Line[CompressedData["
-1:eJxFznlI03EABfC5w1053VpEopVTQU2bRM7M6LAwmy5yrpTKJbOgTMxjfzQ6
-Fy4P0vnHUMvNVh4do2akIfYzJSQoErUZKq1VK6VDrahlCnMVxPc9eDw+/70w
-zQnlETqNRtv2t//23aSYMtNpW2n/kx4+mRDMgfupwaEGHizb9+DYsgBYUlVh
-CRLBjZLixFoxLKByRvjL4fnZaBY7BB5WPS/0RsKps53+p6JgqsJi/R0D3+gp
-Gv0hhc+uFm76nATHTu/ljyngblVGX/UeeHtvStnmLHh/rfRVWw5cFc+1afPh
-KS0lF+lgq1dSrWiFlwZ+4wwswMy+Jnu42Y/4+PqHE9x0OrFtl8b66Bfs+RIc
-NFXPIO7K2skw7WASn0szXO2cgsNey8dbDCzijYnlphXr/IkPrhya93PAnmc1
-7mI9m7iRqdYqIzj47+q6Th+AWWf0qqQSLjHtltruFvGIS6/Ya0SP4d41lRxh
-EZ9YKC+NvSBYQuyMG3boKLijeUvEB3UAca5dJgxdhM8brumdtwXEdz6GNgky
-AokrLYY81274sHIm8m4mHEJRHYpsuNp44MklDXxUdvk7TwdLysVp7HZ4ccPp
-gLGb8MTM+xftNrgu+35u6j3YF6MsM1Cwc8TYzHDA3Rfn8h0vYVPyoeiWcTi9
-bW1nigvuOTn4VP8Jro9LMGZOwyVusyrsKxyVUfim/yfM9BttrZuD33YlF+Qt
-wFRBizTeCzes4nt8PvgPfBPSFQ==
+1:eJxFx2tIk3EAhfHXmc7N1trWIstLGtNYrotMtJhQEzKwzWZrWm5rpc5RylKi
+BkJzJZFs3VYpGRpE1j6MzWYfIqcGORtZDKmpLCpcENVipQhLtFlB/M+Bh8Mv
++7ixsp5GUdSev/37/OHwlmEatZv6v8kdLyOWFNjeGNdnpcLyhwVhLwv2pd+Z
+jnHhtqrAwVt8WGJPDBSsgx/TG31NGfC9OYnnUx6sFTWLLEI4zdDnyBTB196z
+7h4ugM3+D9aABFb3ttUPKuBodan7uhK28JIXGqrgB5estjUaeLalc6DJAF8s
+cyZsNMPun1M97U6YVrptUkZPIBbk/OaM9MNJsROztQYacU736yuu9ERi79mK
+2NQozC1vTixsXUH8udoTOiVIIo6JvxgrX8GjycOOBksyMZs34KwR0onX8vcp
+L8zA3YqlsQ5bCrFa3RcrFDOIQ+roOP8bHOxSnXx7g0l82a91jZWnEp9/UePW
+UiuJ5ylTa9ABb9oujpiPsogDt9m5DOYq4icTHzOLH8Ga5YrBbj2b+NmAkROl
+ryaW2ZxzDQw4VPf1zQwTnufXdgZZ8GaTasMQD74qKRHYsmCtj7lTWARHesrW
+3y+GTWfaFzN2wfa8+BCnBB7rmJUuSGGRfHq/Xw4/zeVvlR6A9y4r2F4FrOsf
+n3Ar4ZvcEVXXETg7sljEUcOu58VpVg3sP+15d04HH5L98P46BocF+b0ttbAx
+bjB/r4OXJvt0ej38B+c4z40=
           "]]}, "Charting`Private`Tag#2"], {}}}, {}}, <|
     "HighlightElements" -> <|
       "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
      "LayoutOptions" -> <|
-      "PanelPlotLayout" -> <||>, "PlotRange" -> {{0., 4.}, {-1.7, 1.7}}, 
+      "PanelPlotLayout" -> <||>, "PlotRange" -> {{-0.1, 4.1}, {-1.7, 1.7}}, 
        "Frame" -> {{True, True}, {True, True}}, "AxesOrigin" -> {0, 0}, 
        "ImageSize" -> {340, 340/GoldenRatio}, "Axes" -> {True, True}, 
        "LabelStyle" -> {FontFamily -> "Times", 
@@ -689,7 +727,7 @@ wFRBizTeCzes4nt8PvgPfBPSFQ==
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
-  PlotRange->{{0., 4.}, {-1.7, 1.7}},
+  PlotRange->{{-0.1, 4.1}, {-1.7, 1.7}},
   PlotRangeClipping->True,
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Automatic, Automatic}]], "Output",
@@ -702,9 +740,10 @@ wFRBizTeCzes4nt8PvgPfBPSFQ==
    3.916292519478231*^9, {3.924160983419207*^9, 3.924160986282316*^9}, 
    3.924161184537413*^9, 3.924162190364997*^9, {3.924162312284491*^9, 
    3.9241623202322807`*^9}, {3.926760723533168*^9, 3.926760740655086*^9}, 
-   3.926760772978333*^9, {3.926762098244166*^9, 3.926762107827166*^9}},
+   3.926760772978333*^9, {3.926762098244166*^9, 3.926762107827166*^9}, {
+   3.92676233110467*^9, 3.926762350345076*^9}},
  CellLabel->
-  "Out[244]=",ExpressionUUID->"310a54f8-68bb-4f6f-b270-7c3820090a6b"]
+  "Out[250]=",ExpressionUUID->"91d0dd3d-b26c-45d4-b0c1-2273c50e7d81"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -717,16 +756,16 @@ Cell[BoxData[
  CellChangeTimes->{{3.92416107227991*^9, 3.9241611012234797`*^9}, {
   3.926760703598503*^9, 3.926760712779284*^9}},
  CellLabel->
-  "In[245]:=",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"],
+  "In[251]:=",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"],
 
 Cell[BoxData["\<\"~/doc/research/frsb_kac-rice/papers/marginal/figs/large_\
 deviation.pdf\"\>"], "Output",
  CellChangeTimes->{{3.924161094512546*^9, 3.924161102039678*^9}, 
    3.9241611864665627`*^9, 3.924162191599287*^9, 3.924162320711782*^9, {
    3.926760725505782*^9, 3.926760742789874*^9}, 3.926760774237672*^9, {
-   3.926762102041052*^9, 3.926762108382854*^9}},
+   3.926762102041052*^9, 3.926762108382854*^9}, 3.926762353553878*^9},
  CellLabel->
-  "Out[245]=",ExpressionUUID->"59c29e79-112c-4bb9-8ed7-f60eae1cdc91"]
+  "Out[251]=",ExpressionUUID->"bb552b18-713a-411e-b9bb-b974b3ab87fd"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -23752,292 +23791,292 @@ Cell[CellGroupData[{
 Cell[2358, 70, 171, 3, 50, "Section",ExpressionUUID->"e26a72a6-0937-45b0-a625-f1bdf166fa4e"],
 Cell[2532, 75, 900, 29, 48, "Input",ExpressionUUID->"50c08a66-4e65-4112-8ad7-d5d45f281a8c"],
 Cell[CellGroupData[{
-Cell[3457, 108, 1986, 49, 24, "Input",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"],
-Cell[5446, 159, 27464, 547, 186, "Output",ExpressionUUID->"310a54f8-68bb-4f6f-b270-7c3820090a6b"]
+Cell[3457, 108, 2089, 51, 24, "Input",ExpressionUUID->"6c00d5eb-8ba7-405a-9bf1-5d71e992492f"],
+Cell[5549, 161, 29581, 584, 187, "Output",ExpressionUUID->"91d0dd3d-b26c-45d4-b0c1-2273c50e7d81"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[32947, 711, 363, 8, 22, "Input",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"],
-Cell[33313, 721, 449, 7, 35, "Output",ExpressionUUID->"59c29e79-112c-4bb9-8ed7-f60eae1cdc91"]
+Cell[35167, 750, 363, 8, 22, "Input",ExpressionUUID->"0c67dbb9-49b6-4edb-9219-e0a5cdf9b31d"],
+Cell[35533, 760, 471, 7, 35, "Output",ExpressionUUID->"bb552b18-713a-411e-b9bb-b974b3ab87fd"]
 }, Open  ]],
-Cell[33777, 731, 436, 12, 35, "Input",ExpressionUUID->"06818f5b-ee0e-4634-b547-e05e415c12a6"],
-Cell[34216, 745, 312, 8, 27, "Input",ExpressionUUID->"ab28ae26-b52f-4a56-978d-e7ee3f806eda"],
-Cell[34531, 755, 676, 19, 44, "Input",ExpressionUUID->"eec97d73-ae34-443d-825f-cbb8adebe02f"],
+Cell[36019, 770, 436, 12, 35, "Input",ExpressionUUID->"06818f5b-ee0e-4634-b547-e05e415c12a6"],
+Cell[36458, 784, 312, 8, 27, "Input",ExpressionUUID->"ab28ae26-b52f-4a56-978d-e7ee3f806eda"],
+Cell[36773, 794, 676, 19, 44, "Input",ExpressionUUID->"eec97d73-ae34-443d-825f-cbb8adebe02f"],
 Cell[CellGroupData[{
-Cell[35232, 778, 200, 4, 22, "Input",ExpressionUUID->"83c0ad8f-8d45-4089-b5a6-d03efc9cdfbe"],
-Cell[35435, 784, 195, 3, 35, "Output",ExpressionUUID->"28c77ad6-9821-4980-bae1-816090bc8085"]
+Cell[37474, 817, 200, 4, 22, "Input",ExpressionUUID->"83c0ad8f-8d45-4089-b5a6-d03efc9cdfbe"],
+Cell[37677, 823, 195, 3, 35, "Output",ExpressionUUID->"28c77ad6-9821-4980-bae1-816090bc8085"]
 }, Open  ]],
-Cell[35645, 790, 2461, 60, 39, "Input",ExpressionUUID->"def223fd-aeee-4091-9e76-97462b62b6cc"],
-Cell[38109, 852, 5558, 139, 116, "Input",ExpressionUUID->"f1078ecd-48ad-4003-b086-93bd8c2242bb"],
-Cell[43670, 993, 7561, 192, 193, "Input",ExpressionUUID->"244eac76-0bbb-4e5a-9b06-0f294e654a3f"],
+Cell[37887, 829, 2461, 60, 39, "Input",ExpressionUUID->"def223fd-aeee-4091-9e76-97462b62b6cc"],
+Cell[40351, 891, 5558, 139, 116, "Input",ExpressionUUID->"f1078ecd-48ad-4003-b086-93bd8c2242bb"],
+Cell[45912, 1032, 7561, 192, 193, "Input",ExpressionUUID->"244eac76-0bbb-4e5a-9b06-0f294e654a3f"],
 Cell[CellGroupData[{
-Cell[51256, 1189, 701, 12, 22, "Input",ExpressionUUID->"28a195c1-e132-4911-80e7-05e2e1470f78"],
-Cell[51960, 1203, 32223, 586, 83, "Output",ExpressionUUID->"d05fb8f0-b7b9-47a5-a984-00b2a18f0f10"]
+Cell[53498, 1228, 701, 12, 22, "Input",ExpressionUUID->"28a195c1-e132-4911-80e7-05e2e1470f78"],
+Cell[54202, 1242, 32223, 586, 83, "Output",ExpressionUUID->"d05fb8f0-b7b9-47a5-a984-00b2a18f0f10"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[84220, 1794, 680, 14, 22, "Input",ExpressionUUID->"e68d9ce5-814e-4498-aeeb-52ccf1b87537"],
-Cell[84903, 1810, 31407, 575, 83, "Output",ExpressionUUID->"4fdf1572-8b7c-4352-8f24-df96a72089dd"]
+Cell[86462, 1833, 680, 14, 22, "Input",ExpressionUUID->"e68d9ce5-814e-4498-aeeb-52ccf1b87537"],
+Cell[87145, 1849, 31407, 575, 83, "Output",ExpressionUUID->"4fdf1572-8b7c-4352-8f24-df96a72089dd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[116347, 2390, 733, 14, 22, "Input",ExpressionUUID->"9df7247c-bae3-4562-95d7-d5d547f8369d"],
-Cell[117083, 2406, 31577, 579, 83, "Output",ExpressionUUID->"085d89e1-1412-44e2-9992-5f811f7e8263"]
+Cell[118589, 2429, 733, 14, 22, "Input",ExpressionUUID->"9df7247c-bae3-4562-95d7-d5d547f8369d"],
+Cell[119325, 2445, 31577, 579, 83, "Output",ExpressionUUID->"085d89e1-1412-44e2-9992-5f811f7e8263"]
 }, Open  ]],
-Cell[148675, 2988, 799, 20, 53, "Input",ExpressionUUID->"9c8fbe7e-534f-4567-b9e1-d7a5c3ce1086"]
+Cell[150917, 3027, 799, 20, 53, "Input",ExpressionUUID->"9c8fbe7e-534f-4567-b9e1-d7a5c3ce1086"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[149511, 3013, 157, 3, 50, "Section",ExpressionUUID->"8475cc42-326a-4ebf-b66b-7d80366a5280"],
-Cell[149671, 3018, 6536, 183, 341, "Input",ExpressionUUID->"830d12ec-ccc1-4fbc-9de0-2282430f4840"],
-Cell[156210, 3203, 1571, 48, 22, "Input",ExpressionUUID->"bcf9e08b-5bc8-4156-8987-ae991b3777be"],
-Cell[157784, 3253, 706, 19, 38, "Input",ExpressionUUID->"90676af5-535d-4801-950c-574cc68db098"],
+Cell[151753, 3052, 157, 3, 50, "Section",ExpressionUUID->"8475cc42-326a-4ebf-b66b-7d80366a5280"],
+Cell[151913, 3057, 6536, 183, 341, "Input",ExpressionUUID->"830d12ec-ccc1-4fbc-9de0-2282430f4840"],
+Cell[158452, 3242, 1571, 48, 22, "Input",ExpressionUUID->"bcf9e08b-5bc8-4156-8987-ae991b3777be"],
+Cell[160026, 3292, 706, 19, 38, "Input",ExpressionUUID->"90676af5-535d-4801-950c-574cc68db098"],
 Cell[CellGroupData[{
-Cell[158515, 3276, 241, 5, 22, "Input",ExpressionUUID->"3e4fb69d-9599-4326-945e-414023395a5f"],
-Cell[158759, 3283, 1351, 30, 111, "Output",ExpressionUUID->"31ed0430-b8ee-4e74-8482-c51b4ee8b6d3"]
+Cell[160757, 3315, 241, 5, 22, "Input",ExpressionUUID->"3e4fb69d-9599-4326-945e-414023395a5f"],
+Cell[161001, 3322, 1351, 30, 111, "Output",ExpressionUUID->"31ed0430-b8ee-4e74-8482-c51b4ee8b6d3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[160147, 3318, 472, 13, 22, "Input",ExpressionUUID->"692c829b-e066-4a5e-bd71-7d2bb33fb03d"],
-Cell[160622, 3333, 1358, 31, 111, "Output",ExpressionUUID->"5c44de21-95e3-40ea-8171-bdba9bd0ca88"]
+Cell[162389, 3357, 472, 13, 22, "Input",ExpressionUUID->"692c829b-e066-4a5e-bd71-7d2bb33fb03d"],
+Cell[162864, 3372, 1358, 31, 111, "Output",ExpressionUUID->"5c44de21-95e3-40ea-8171-bdba9bd0ca88"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[162017, 3369, 714, 21, 22, "Input",ExpressionUUID->"9dee447a-c909-40cb-8546-4295c33c7ecb"],
-Cell[162734, 3392, 579, 9, 25, "Output",ExpressionUUID->"a4b05569-f206-413a-a53c-79ed31b50a77"]
+Cell[164259, 3408, 714, 21, 22, "Input",ExpressionUUID->"9dee447a-c909-40cb-8546-4295c33c7ecb"],
+Cell[164976, 3431, 579, 9, 25, "Output",ExpressionUUID->"a4b05569-f206-413a-a53c-79ed31b50a77"]
 }, Open  ]],
-Cell[163328, 3404, 3810, 99, 78, "Input",ExpressionUUID->"ae225317-c8f2-42eb-a092-5a3d6696fcf1"],
+Cell[165570, 3443, 3810, 99, 78, "Input",ExpressionUUID->"ae225317-c8f2-42eb-a092-5a3d6696fcf1"],
 Cell[CellGroupData[{
-Cell[167163, 3507, 998, 25, 22, "Input",ExpressionUUID->"27f3f5fd-a103-416e-9e22-49288939ab46"],
-Cell[168164, 3534, 6479, 175, 73, "Output",ExpressionUUID->"7c116b5c-7bb6-4259-98ab-703694af8842"]
+Cell[169405, 3546, 998, 25, 22, "Input",ExpressionUUID->"27f3f5fd-a103-416e-9e22-49288939ab46"],
+Cell[170406, 3573, 6479, 175, 73, "Output",ExpressionUUID->"7c116b5c-7bb6-4259-98ab-703694af8842"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[174680, 3714, 910, 26, 24, "Input",ExpressionUUID->"ad63e4bc-666e-46ed-8c23-6d418adb2b5d"],
-Cell[175593, 3742, 3851, 116, 55, "Output",ExpressionUUID->"2f3c957d-28b6-4286-a434-e11d516208bf"]
+Cell[176922, 3753, 910, 26, 24, "Input",ExpressionUUID->"ad63e4bc-666e-46ed-8c23-6d418adb2b5d"],
+Cell[177835, 3781, 3851, 116, 55, "Output",ExpressionUUID->"2f3c957d-28b6-4286-a434-e11d516208bf"]
 }, Open  ]],
-Cell[179459, 3861, 988, 21, 22, "Input",ExpressionUUID->"c88cdbf9-9e5d-49a2-927e-12c0fc1e998e"],
-Cell[180450, 3884, 2608, 55, 24, "Input",ExpressionUUID->"13c828e2-dc96-418a-98b1-bcedb602773f"],
+Cell[181701, 3900, 988, 21, 22, "Input",ExpressionUUID->"c88cdbf9-9e5d-49a2-927e-12c0fc1e998e"],
+Cell[182692, 3923, 2608, 55, 24, "Input",ExpressionUUID->"13c828e2-dc96-418a-98b1-bcedb602773f"],
 Cell[CellGroupData[{
-Cell[183083, 3943, 423, 11, 22, "Input",ExpressionUUID->"5547b70f-6ccc-4c3c-b7a2-430267adff70"],
-Cell[183509, 3956, 5699, 145, 160, "Output",ExpressionUUID->"36211747-6213-49d3-af64-0c1c0cf9c4be"]
+Cell[185325, 3982, 423, 11, 22, "Input",ExpressionUUID->"5547b70f-6ccc-4c3c-b7a2-430267adff70"],
+Cell[185751, 3995, 5699, 145, 160, "Output",ExpressionUUID->"36211747-6213-49d3-af64-0c1c0cf9c4be"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[189245, 4106, 435, 11, 22, "Input",ExpressionUUID->"87393889-0e58-4140-85b8-c09bdfb83fa6"],
-Cell[189683, 4119, 11216, 318, 177, "Output",ExpressionUUID->"45c1ecc4-6c35-4af1-a8c6-4c6db7168bb2"]
+Cell[191487, 4145, 435, 11, 22, "Input",ExpressionUUID->"87393889-0e58-4140-85b8-c09bdfb83fa6"],
+Cell[191925, 4158, 11216, 318, 177, "Output",ExpressionUUID->"45c1ecc4-6c35-4af1-a8c6-4c6db7168bb2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[200936, 4442, 476, 13, 22, "Input",ExpressionUUID->"4d2d8f62-3f6d-45b3-9a63-780219e0e7e8"],
-Cell[201415, 4457, 1353, 37, 27, "Output",ExpressionUUID->"76297447-9a1b-4498-9d3f-c2078f821920"]
+Cell[203178, 4481, 476, 13, 22, "Input",ExpressionUUID->"4d2d8f62-3f6d-45b3-9a63-780219e0e7e8"],
+Cell[203657, 4496, 1353, 37, 27, "Output",ExpressionUUID->"76297447-9a1b-4498-9d3f-c2078f821920"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[202805, 4499, 951, 21, 22, "Input",ExpressionUUID->"83eebe5d-3503-4b31-b14f-639ea14a0248"],
-Cell[203759, 4522, 800, 15, 22, "Message",ExpressionUUID->"8caaea4c-f1d2-4f89-97f5-7e5b71ca8e2a"]
+Cell[205047, 4538, 951, 21, 22, "Input",ExpressionUUID->"83eebe5d-3503-4b31-b14f-639ea14a0248"],
+Cell[206001, 4561, 800, 15, 22, "Message",ExpressionUUID->"8caaea4c-f1d2-4f89-97f5-7e5b71ca8e2a"]
 }, Open  ]],
-Cell[204574, 4540, 1110, 23, 22, "Input",ExpressionUUID->"4c448220-e031-41d2-9096-b9e341dcd981"],
-Cell[205687, 4565, 3839, 84, 41, "Input",ExpressionUUID->"63ea8c17-6059-4955-9b14-1b9deb692962"],
+Cell[206816, 4579, 1110, 23, 22, "Input",ExpressionUUID->"4c448220-e031-41d2-9096-b9e341dcd981"],
+Cell[207929, 4604, 3839, 84, 41, "Input",ExpressionUUID->"63ea8c17-6059-4955-9b14-1b9deb692962"],
 Cell[CellGroupData[{
-Cell[209551, 4653, 1255, 27, 24, "Input",ExpressionUUID->"7fe546c9-0af1-4973-85bb-971e16ca3307"],
-Cell[210809, 4682, 1678, 39, 38, "Output",ExpressionUUID->"fafa3e14-532d-4f8f-a8ed-c5504aa4836f"]
+Cell[211793, 4692, 1255, 27, 24, "Input",ExpressionUUID->"7fe546c9-0af1-4973-85bb-971e16ca3307"],
+Cell[213051, 4721, 1678, 39, 38, "Output",ExpressionUUID->"fafa3e14-532d-4f8f-a8ed-c5504aa4836f"]
 }, Open  ]],
-Cell[212502, 4724, 968, 26, 24, "Input",ExpressionUUID->"84934d64-fc27-4a55-a1de-6f9f09494033"],
-Cell[213473, 4752, 362, 10, 22, "Input",ExpressionUUID->"83f76904-20b3-4c92-8479-9704a86e9bc3"],
-Cell[213838, 4764, 890, 19, 22, "Input",ExpressionUUID->"82f4b3f0-5071-4e29-8e26-febf3110e5e0"],
+Cell[214744, 4763, 968, 26, 24, "Input",ExpressionUUID->"84934d64-fc27-4a55-a1de-6f9f09494033"],
+Cell[215715, 4791, 362, 10, 22, "Input",ExpressionUUID->"83f76904-20b3-4c92-8479-9704a86e9bc3"],
+Cell[216080, 4803, 890, 19, 22, "Input",ExpressionUUID->"82f4b3f0-5071-4e29-8e26-febf3110e5e0"],
 Cell[CellGroupData[{
-Cell[214753, 4787, 3664, 87, 107, "Input",ExpressionUUID->"acfb6249-e04b-4f94-810b-05af73aac0bc"],
-Cell[218420, 4876, 3554, 69, 59, "Output",ExpressionUUID->"22fa23af-56ac-41f0-bad7-75e203e68dfd"]
+Cell[216995, 4826, 3664, 87, 107, "Input",ExpressionUUID->"acfb6249-e04b-4f94-810b-05af73aac0bc"],
+Cell[220662, 4915, 3554, 69, 59, "Output",ExpressionUUID->"22fa23af-56ac-41f0-bad7-75e203e68dfd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[222011, 4950, 2813, 63, 24, "Input",ExpressionUUID->"2a2f7dd9-b465-4d3a-81cf-abf195bcfc21"],
-Cell[224827, 5015, 680, 13, 22, "Message",ExpressionUUID->"fd049e2d-b962-42ba-8dca-46fc9644cce9"],
-Cell[225510, 5030, 505, 11, 22, "Message",ExpressionUUID->"5cb44bf7-173f-499b-851b-adf000d36880"],
-Cell[226018, 5043, 505, 11, 22, "Message",ExpressionUUID->"3413d04c-3008-4bee-a8ec-f365f773087f"],
-Cell[226526, 5056, 505, 11, 22, "Message",ExpressionUUID->"982a2288-fc78-4c1e-8b15-7a87bdc87b9b"],
-Cell[227034, 5069, 549, 11, 22, "Message",ExpressionUUID->"a6869e09-be0b-47fc-9d8f-a7b647e3ebf2"],
-Cell[227586, 5082, 680, 13, 22, "Message",ExpressionUUID->"3e572292-7317-4d82-b804-f7ec1744c5da"],
-Cell[228269, 5097, 680, 13, 22, "Message",ExpressionUUID->"d651ce85-ec36-45c7-9151-74cc477901a5"],
-Cell[228952, 5112, 549, 11, 22, "Message",ExpressionUUID->"9996e476-8dd5-4dff-abe4-3dc38d2bcc7b"]
+Cell[224253, 4989, 2813, 63, 24, "Input",ExpressionUUID->"2a2f7dd9-b465-4d3a-81cf-abf195bcfc21"],
+Cell[227069, 5054, 680, 13, 22, "Message",ExpressionUUID->"fd049e2d-b962-42ba-8dca-46fc9644cce9"],
+Cell[227752, 5069, 505, 11, 22, "Message",ExpressionUUID->"5cb44bf7-173f-499b-851b-adf000d36880"],
+Cell[228260, 5082, 505, 11, 22, "Message",ExpressionUUID->"3413d04c-3008-4bee-a8ec-f365f773087f"],
+Cell[228768, 5095, 505, 11, 22, "Message",ExpressionUUID->"982a2288-fc78-4c1e-8b15-7a87bdc87b9b"],
+Cell[229276, 5108, 549, 11, 22, "Message",ExpressionUUID->"a6869e09-be0b-47fc-9d8f-a7b647e3ebf2"],
+Cell[229828, 5121, 680, 13, 22, "Message",ExpressionUUID->"3e572292-7317-4d82-b804-f7ec1744c5da"],
+Cell[230511, 5136, 680, 13, 22, "Message",ExpressionUUID->"d651ce85-ec36-45c7-9151-74cc477901a5"],
+Cell[231194, 5151, 549, 11, 22, "Message",ExpressionUUID->"9996e476-8dd5-4dff-abe4-3dc38d2bcc7b"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[229538, 5128, 1907, 53, 39, "Input",ExpressionUUID->"f6acd6ad-220b-4828-a7d3-5558b5c91e4c"],
-Cell[231448, 5183, 3373, 87, 75, "Output",ExpressionUUID->"9b8635de-045e-4f3a-b8b3-4a1dc739d03e"]
+Cell[231780, 5167, 1907, 53, 39, "Input",ExpressionUUID->"f6acd6ad-220b-4828-a7d3-5558b5c91e4c"],
+Cell[233690, 5222, 3373, 87, 75, "Output",ExpressionUUID->"9b8635de-045e-4f3a-b8b3-4a1dc739d03e"]
 }, Open  ]],
-Cell[234836, 5273, 1583, 41, 24, "Input",ExpressionUUID->"b04acde6-1c4d-4632-b34e-b05a8c3158f7"],
+Cell[237078, 5312, 1583, 41, 24, "Input",ExpressionUUID->"b04acde6-1c4d-4632-b34e-b05a8c3158f7"],
 Cell[CellGroupData[{
-Cell[236444, 5318, 310, 8, 22, "Input",ExpressionUUID->"bb7ea87c-a295-4530-bdcd-103371a64b77"],
-Cell[236757, 5328, 75439, 1299, 183, "Output",ExpressionUUID->"471fcd6b-1223-49d9-962f-85e668fab430"]
+Cell[238686, 5357, 310, 8, 22, "Input",ExpressionUUID->"bb7ea87c-a295-4530-bdcd-103371a64b77"],
+Cell[238999, 5367, 75439, 1299, 183, "Output",ExpressionUUID->"471fcd6b-1223-49d9-962f-85e668fab430"]
 }, Open  ]],
-Cell[312211, 6630, 23716, 405, 174, "Input",ExpressionUUID->"c8acd08e-419d-47df-95d8-cd474e7cf4f4"],
+Cell[314453, 6669, 23716, 405, 174, "Input",ExpressionUUID->"c8acd08e-419d-47df-95d8-cd474e7cf4f4"],
 Cell[CellGroupData[{
-Cell[335952, 7039, 3692, 87, 56, "Input",ExpressionUUID->"0012cb53-2118-4c32-9687-3900486d9017"],
-Cell[339647, 7128, 609, 12, 22, "Message",ExpressionUUID->"a407657b-19ae-486f-b6cf-16ca559b3fb6"],
-Cell[340259, 7142, 611, 12, 22, "Message",ExpressionUUID->"2a251b03-af55-4ee8-b6ee-dc27429eff8a"],
-Cell[340873, 7156, 611, 12, 22, "Message",ExpressionUUID->"466d17bf-ce0f-47a2-8764-46320b67ac6e"],
-Cell[341487, 7170, 478, 10, 22, "Message",ExpressionUUID->"841bbca7-6ddd-4432-bc00-7d704794b41e"]
+Cell[338194, 7078, 3692, 87, 56, "Input",ExpressionUUID->"0012cb53-2118-4c32-9687-3900486d9017"],
+Cell[341889, 7167, 609, 12, 22, "Message",ExpressionUUID->"a407657b-19ae-486f-b6cf-16ca559b3fb6"],
+Cell[342501, 7181, 611, 12, 22, "Message",ExpressionUUID->"2a251b03-af55-4ee8-b6ee-dc27429eff8a"],
+Cell[343115, 7195, 611, 12, 22, "Message",ExpressionUUID->"466d17bf-ce0f-47a2-8764-46320b67ac6e"],
+Cell[343729, 7209, 478, 10, 22, "Message",ExpressionUUID->"841bbca7-6ddd-4432-bc00-7d704794b41e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[342002, 7185, 2254, 58, 22, "Input",ExpressionUUID->"abdd1227-571e-42c2-ba14-b0236a50da8f"],
-Cell[344259, 7245, 258497, 4393, 294, "Output",ExpressionUUID->"ccc0c10d-374b-4561-9b69-130306acddb0"]
+Cell[344244, 7224, 2254, 58, 22, "Input",ExpressionUUID->"abdd1227-571e-42c2-ba14-b0236a50da8f"],
+Cell[346501, 7284, 258497, 4393, 294, "Output",ExpressionUUID->"ccc0c10d-374b-4561-9b69-130306acddb0"]
 }, Open  ]]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[602805, 11644, 157, 3, 50, "Section",ExpressionUUID->"3e089f73-01c1-4198-8f45-28504d7853b6"],
-Cell[602965, 11649, 8352, 226, 562, "Input",ExpressionUUID->"32615cc9-ab89-4fec-9507-d4081e5ab9af"],
-Cell[611320, 11877, 665, 21, 24, "Input",ExpressionUUID->"b5146e99-78bb-48d4-9374-7b833d3a6574"],
-Cell[611988, 11900, 1566, 47, 22, "Input",ExpressionUUID->"ae37dedd-da6c-42ec-ae9b-796780482b37"],
-Cell[613557, 11949, 701, 18, 38, "Input",ExpressionUUID->"3d84f495-773b-4ce0-a779-44c19e0915c3"],
-Cell[614261, 11969, 371, 9, 22, "Input",ExpressionUUID->"618a42f8-b051-4cdf-8473-21e9de937b82"],
-Cell[614635, 11980, 373, 9, 22, "Input",ExpressionUUID->"9a83e28a-4231-4cff-9a04-fac75f5e1b4d"],
-Cell[615011, 11991, 427, 11, 22, "Input",ExpressionUUID->"43300cae-9f4f-47cf-9813-49db8b5d69a9"],
-Cell[615441, 12004, 379, 10, 22, "Input",ExpressionUUID->"e7afa4f7-6f52-45c9-9d8a-53932a27bcf7"],
+Cell[605047, 11683, 157, 3, 50, "Section",ExpressionUUID->"3e089f73-01c1-4198-8f45-28504d7853b6"],
+Cell[605207, 11688, 8352, 226, 562, "Input",ExpressionUUID->"32615cc9-ab89-4fec-9507-d4081e5ab9af"],
+Cell[613562, 11916, 665, 21, 24, "Input",ExpressionUUID->"b5146e99-78bb-48d4-9374-7b833d3a6574"],
+Cell[614230, 11939, 1566, 47, 22, "Input",ExpressionUUID->"ae37dedd-da6c-42ec-ae9b-796780482b37"],
+Cell[615799, 11988, 701, 18, 38, "Input",ExpressionUUID->"3d84f495-773b-4ce0-a779-44c19e0915c3"],
+Cell[616503, 12008, 371, 9, 22, "Input",ExpressionUUID->"618a42f8-b051-4cdf-8473-21e9de937b82"],
+Cell[616877, 12019, 373, 9, 22, "Input",ExpressionUUID->"9a83e28a-4231-4cff-9a04-fac75f5e1b4d"],
+Cell[617253, 12030, 427, 11, 22, "Input",ExpressionUUID->"43300cae-9f4f-47cf-9813-49db8b5d69a9"],
+Cell[617683, 12043, 379, 10, 22, "Input",ExpressionUUID->"e7afa4f7-6f52-45c9-9d8a-53932a27bcf7"],
 Cell[CellGroupData[{
-Cell[615845, 12018, 384, 7, 22, "Input",ExpressionUUID->"c1a6934f-6252-4ba2-8a31-abb6a974a91c"],
-Cell[616232, 12027, 617, 15, 35, "Output",ExpressionUUID->"bafdc24d-ce74-44fa-81b1-b5eed3c1c110"]
+Cell[618087, 12057, 384, 7, 22, "Input",ExpressionUUID->"c1a6934f-6252-4ba2-8a31-abb6a974a91c"],
+Cell[618474, 12066, 617, 15, 35, "Output",ExpressionUUID->"bafdc24d-ce74-44fa-81b1-b5eed3c1c110"]
 }, Open  ]],
-Cell[616864, 12045, 146, 3, 22, "Input",ExpressionUUID->"c7e4db28-e1d9-4e45-8d64-b45ae3f3b02a"],
+Cell[619106, 12084, 146, 3, 22, "Input",ExpressionUUID->"c7e4db28-e1d9-4e45-8d64-b45ae3f3b02a"],
 Cell[CellGroupData[{
-Cell[617035, 12052, 237, 4, 22, "Input",ExpressionUUID->"90f8e6cf-a2cb-4fc4-af6b-a2643f1c18bc"],
-Cell[617275, 12058, 1350, 30, 111, "Output",ExpressionUUID->"761ce714-4f2f-4e7a-9a77-4aeb97c7b9e3"]
+Cell[619277, 12091, 237, 4, 22, "Input",ExpressionUUID->"90f8e6cf-a2cb-4fc4-af6b-a2643f1c18bc"],
+Cell[619517, 12097, 1350, 30, 111, "Output",ExpressionUUID->"761ce714-4f2f-4e7a-9a77-4aeb97c7b9e3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[618662, 12093, 468, 12, 22, "Input",ExpressionUUID->"8fc542b7-ffb8-43ab-82fe-a6e3bc6c4dc1"],
-Cell[619133, 12107, 1356, 31, 111, "Output",ExpressionUUID->"ba200cb0-9e0e-423b-9f5f-963ad56ef299"]
+Cell[620904, 12132, 468, 12, 22, "Input",ExpressionUUID->"8fc542b7-ffb8-43ab-82fe-a6e3bc6c4dc1"],
+Cell[621375, 12146, 1356, 31, 111, "Output",ExpressionUUID->"ba200cb0-9e0e-423b-9f5f-963ad56ef299"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[620526, 12143, 710, 20, 22, "Input",ExpressionUUID->"d97a16cb-8f13-463e-9235-10cf798e882c"],
-Cell[621239, 12165, 575, 8, 25, "Output",ExpressionUUID->"ab9cfbb0-fc67-419d-ba7f-6c7524f65677"]
+Cell[622768, 12182, 710, 20, 22, "Input",ExpressionUUID->"d97a16cb-8f13-463e-9235-10cf798e882c"],
+Cell[623481, 12204, 575, 8, 25, "Output",ExpressionUUID->"ab9cfbb0-fc67-419d-ba7f-6c7524f65677"]
 }, Open  ]],
-Cell[621829, 12176, 4382, 113, 78, "Input",ExpressionUUID->"1be6ad59-07a8-4e68-a148-615473405a94"],
+Cell[624071, 12215, 4382, 113, 78, "Input",ExpressionUUID->"1be6ad59-07a8-4e68-a148-615473405a94"],
 Cell[CellGroupData[{
-Cell[626236, 12293, 244, 5, 22, "Input",ExpressionUUID->"31ecc6b1-3013-4df7-a379-762ad87db2ba"],
-Cell[626483, 12300, 4838, 148, 66, "Output",ExpressionUUID->"c29d260e-8842-437a-a5aa-1328cb436e45"]
+Cell[628478, 12332, 244, 5, 22, "Input",ExpressionUUID->"31ecc6b1-3013-4df7-a379-762ad87db2ba"],
+Cell[628725, 12339, 4838, 148, 66, "Output",ExpressionUUID->"c29d260e-8842-437a-a5aa-1328cb436e45"]
 }, Open  ]],
-Cell[631336, 12451, 5182, 145, 95, "Input",ExpressionUUID->"95097ec5-8784-4805-b556-6daf94695fcf"],
+Cell[633578, 12490, 5182, 145, 95, "Input",ExpressionUUID->"95097ec5-8784-4805-b556-6daf94695fcf"],
 Cell[CellGroupData[{
-Cell[636543, 12600, 197, 3, 22, "Input",ExpressionUUID->"54fb42a2-4e37-42ef-bcb5-a2ee989bb8c3"],
-Cell[636743, 12605, 9842, 287, 152, "Output",ExpressionUUID->"75df506e-ff6a-4923-b1da-38da451a259d"]
+Cell[638785, 12639, 197, 3, 22, "Input",ExpressionUUID->"54fb42a2-4e37-42ef-bcb5-a2ee989bb8c3"],
+Cell[638985, 12644, 9842, 287, 152, "Output",ExpressionUUID->"75df506e-ff6a-4923-b1da-38da451a259d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[646622, 12897, 5332, 137, 148, "Input",ExpressionUUID->"f0db1c0b-165f-4f87-9592-b5d10a026867"],
-Cell[651957, 13036, 13259, 326, 176, "Output",ExpressionUUID->"94abb570-dead-4d27-9ab4-47b0a6832b02"]
+Cell[648864, 12936, 5332, 137, 148, "Input",ExpressionUUID->"f0db1c0b-165f-4f87-9592-b5d10a026867"],
+Cell[654199, 13075, 13259, 326, 176, "Output",ExpressionUUID->"94abb570-dead-4d27-9ab4-47b0a6832b02"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[665253, 13367, 458, 12, 22, "Input",ExpressionUUID->"dca0231b-2ccb-4ad8-ba7d-c5644fabf4cd"],
-Cell[665714, 13381, 10619, 274, 154, "Output",ExpressionUUID->"93fcca29-6cfb-44b9-a537-5fa298b15766"]
+Cell[667495, 13406, 458, 12, 22, "Input",ExpressionUUID->"dca0231b-2ccb-4ad8-ba7d-c5644fabf4cd"],
+Cell[667956, 13420, 10619, 274, 154, "Output",ExpressionUUID->"93fcca29-6cfb-44b9-a537-5fa298b15766"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[676370, 13660, 192, 2, 22, "Input",ExpressionUUID->"b5c3d02d-a185-4dd1-b953-b06af4d48aed"],
-Cell[676565, 13664, 10234, 310, 107, "Output",ExpressionUUID->"a298f61a-4c39-4526-8144-4a1ce684b3a3"]
+Cell[678612, 13699, 192, 2, 22, "Input",ExpressionUUID->"b5c3d02d-a185-4dd1-b953-b06af4d48aed"],
+Cell[678807, 13703, 10234, 310, 107, "Output",ExpressionUUID->"a298f61a-4c39-4526-8144-4a1ce684b3a3"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[686836, 13979, 1098, 27, 22, "Input",ExpressionUUID->"85b738a2-9ed8-4758-a6c3-13831de84fcb"],
-Cell[687937, 14008, 5347, 154, 66, "Output",ExpressionUUID->"7780f5a5-3b9f-4878-bca1-49d638b2ede5"]
+Cell[689078, 14018, 1098, 27, 22, "Input",ExpressionUUID->"85b738a2-9ed8-4758-a6c3-13831de84fcb"],
+Cell[690179, 14047, 5347, 154, 66, "Output",ExpressionUUID->"7780f5a5-3b9f-4878-bca1-49d638b2ede5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[693321, 14167, 910, 26, 24, "Input",ExpressionUUID->"54f4b878-a43b-49d6-b99e-acf114036072"],
-Cell[694234, 14195, 4849, 146, 66, "Output",ExpressionUUID->"8ab0a219-d516-4630-ab17-d2c9ecd07701"]
+Cell[695563, 14206, 910, 26, 24, "Input",ExpressionUUID->"54f4b878-a43b-49d6-b99e-acf114036072"],
+Cell[696476, 14234, 4849, 146, 66, "Output",ExpressionUUID->"8ab0a219-d516-4630-ab17-d2c9ecd07701"]
 }, Open  ]],
-Cell[699098, 14344, 3835, 83, 41, "Input",ExpressionUUID->"19946ab1-9943-42ba-8c04-694cc1f0098d"],
+Cell[701340, 14383, 3835, 83, 41, "Input",ExpressionUUID->"19946ab1-9943-42ba-8c04-694cc1f0098d"],
 Cell[CellGroupData[{
-Cell[702958, 14431, 1251, 26, 24, "Input",ExpressionUUID->"623df1f0-acb4-43e6-b11b-11cede6c62f1"],
-Cell[704212, 14459, 1648, 37, 38, "Output",ExpressionUUID->"f98a2dfe-f238-4006-aca1-8b523c40cf8d"]
+Cell[705200, 14470, 1251, 26, 24, "Input",ExpressionUUID->"623df1f0-acb4-43e6-b11b-11cede6c62f1"],
+Cell[706454, 14498, 1648, 37, 38, "Output",ExpressionUUID->"f98a2dfe-f238-4006-aca1-8b523c40cf8d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[705897, 14501, 490, 11, 22, "Input",ExpressionUUID->"2dd75e13-4f61-4be7-b65b-acbf57a3d45b"],
-Cell[706390, 14514, 8242, 189, 117, "Output",ExpressionUUID->"c4f58aa5-4d98-4810-9646-4e8d42c22b4d"]
+Cell[708139, 14540, 490, 11, 22, "Input",ExpressionUUID->"2dd75e13-4f61-4be7-b65b-acbf57a3d45b"],
+Cell[708632, 14553, 8242, 189, 117, "Output",ExpressionUUID->"c4f58aa5-4d98-4810-9646-4e8d42c22b4d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[714669, 14708, 1216, 36, 24, "Input",ExpressionUUID->"785da43f-dcbf-49db-b834-5c4280942ceb"],
-Cell[715888, 14746, 7508, 186, 122, "Output",ExpressionUUID->"ef9ef3d0-78d5-4ee8-9f3f-0ea8bcf8e2ee"]
+Cell[716911, 14747, 1216, 36, 24, "Input",ExpressionUUID->"785da43f-dcbf-49db-b834-5c4280942ceb"],
+Cell[718130, 14785, 7508, 186, 122, "Output",ExpressionUUID->"ef9ef3d0-78d5-4ee8-9f3f-0ea8bcf8e2ee"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[723433, 14937, 1044, 24, 22, "Input",ExpressionUUID->"aff1542a-e458-46e1-bc4e-b34eedfeafcd"],
-Cell[724480, 14963, 207, 3, 25, "Output",ExpressionUUID->"540af864-3347-4186-9e31-aa1340e04ef2"]
+Cell[725675, 14976, 1044, 24, 22, "Input",ExpressionUUID->"aff1542a-e458-46e1-bc4e-b34eedfeafcd"],
+Cell[726722, 15002, 207, 3, 25, "Output",ExpressionUUID->"540af864-3347-4186-9e31-aa1340e04ef2"]
 }, Open  ]],
-Cell[724702, 14969, 2604, 54, 24, "Input",ExpressionUUID->"b1a9bc1c-abed-43f0-a0e6-669043a8612a"],
+Cell[726944, 15008, 2604, 54, 24, "Input",ExpressionUUID->"b1a9bc1c-abed-43f0-a0e6-669043a8612a"],
 Cell[CellGroupData[{
-Cell[727331, 15027, 919, 22, 22, "Input",ExpressionUUID->"d0e2a3ad-c754-4c6f-892c-e1eb7382819e"],
-Cell[728253, 15051, 9406, 209, 75, "Output",ExpressionUUID->"2ab0480a-d3ff-4a97-b7ed-5c8b82ae738f"]
+Cell[729573, 15066, 919, 22, 22, "Input",ExpressionUUID->"d0e2a3ad-c754-4c6f-892c-e1eb7382819e"],
+Cell[730495, 15090, 9406, 209, 75, "Output",ExpressionUUID->"2ab0480a-d3ff-4a97-b7ed-5c8b82ae738f"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[737696, 15265, 1564, 47, 24, "Input",ExpressionUUID->"bb7b14e3-b7dc-4aab-b889-d2be5f9e5ca1"],
-Cell[739263, 15314, 3570, 109, 76, "Output",ExpressionUUID->"dc4be792-83a9-4fbe-af25-cb419d9bd7f5"]
+Cell[739938, 15304, 1564, 47, 24, "Input",ExpressionUUID->"bb7b14e3-b7dc-4aab-b889-d2be5f9e5ca1"],
+Cell[741505, 15353, 3570, 109, 76, "Output",ExpressionUUID->"dc4be792-83a9-4fbe-af25-cb419d9bd7f5"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[742870, 15428, 711, 18, 22, "Input",ExpressionUUID->"e749859b-f1bb-4500-b28b-6db621a38217"],
-Cell[743584, 15448, 4407, 112, 76, "Output",ExpressionUUID->"d7d109d7-3932-47b3-bf98-64b81ad6ca17"]
+Cell[745112, 15467, 711, 18, 22, "Input",ExpressionUUID->"e749859b-f1bb-4500-b28b-6db621a38217"],
+Cell[745826, 15487, 4407, 112, 76, "Output",ExpressionUUID->"d7d109d7-3932-47b3-bf98-64b81ad6ca17"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[748028, 15565, 635, 15, 23, "Input",ExpressionUUID->"1e958760-e7cd-4052-b9b9-908474376dba"],
-Cell[748666, 15582, 489, 10, 35, "Output",ExpressionUUID->"2ad54e2e-1894-4c5a-b49c-69dc3d8f2778"]
+Cell[750270, 15604, 635, 15, 23, "Input",ExpressionUUID->"1e958760-e7cd-4052-b9b9-908474376dba"],
+Cell[750908, 15621, 489, 10, 35, "Output",ExpressionUUID->"2ad54e2e-1894-4c5a-b49c-69dc3d8f2778"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[749192, 15597, 718, 14, 22, "Input",ExpressionUUID->"e3e9458f-95e8-4772-8a74-726345ff1051"],
-Cell[749913, 15613, 12022, 346, 180, "Output",ExpressionUUID->"365b5ad7-7989-4846-bb39-0e6808cb0ccd"]
+Cell[751434, 15636, 718, 14, 22, "Input",ExpressionUUID->"e3e9458f-95e8-4772-8a74-726345ff1051"],
+Cell[752155, 15652, 12022, 346, 180, "Output",ExpressionUUID->"365b5ad7-7989-4846-bb39-0e6808cb0ccd"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[761972, 15964, 698, 14, 22, "Input",ExpressionUUID->"13c24c5e-bb61-4d7d-b2bf-3c3997d9edaa"],
-Cell[762673, 15980, 205, 4, 35, "Output",ExpressionUUID->"98447f30-3d37-4177-8919-efee0d8245af"]
+Cell[764214, 16003, 698, 14, 22, "Input",ExpressionUUID->"13c24c5e-bb61-4d7d-b2bf-3c3997d9edaa"],
+Cell[764915, 16019, 205, 4, 35, "Output",ExpressionUUID->"98447f30-3d37-4177-8919-efee0d8245af"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[762915, 15989, 177, 3, 22, "Input",ExpressionUUID->"af6aac65-5a4e-453d-b4b6-17d282a20e18"],
-Cell[763095, 15994, 11800, 322, 196, "Output",ExpressionUUID->"3e4a980e-1533-48dd-9ff1-621494d5b9c2"]
+Cell[765157, 16028, 177, 3, 22, "Input",ExpressionUUID->"af6aac65-5a4e-453d-b4b6-17d282a20e18"],
+Cell[765337, 16033, 11800, 322, 196, "Output",ExpressionUUID->"3e4a980e-1533-48dd-9ff1-621494d5b9c2"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[774932, 16321, 234, 5, 22, "Input",ExpressionUUID->"f42329fb-b20f-4aaa-a8d2-db55af9748ac"],
-Cell[775169, 16328, 225, 4, 35, "Output",ExpressionUUID->"05e474ca-1e55-4d23-afd9-d0f3a09207a6"]
+Cell[777174, 16360, 234, 5, 22, "Input",ExpressionUUID->"f42329fb-b20f-4aaa-a8d2-db55af9748ac"],
+Cell[777411, 16367, 225, 4, 35, "Output",ExpressionUUID->"05e474ca-1e55-4d23-afd9-d0f3a09207a6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[775431, 16337, 179, 3, 22, "Input",ExpressionUUID->"d10961b8-b152-4e5e-9c29-4145a2972d3d"],
-Cell[775613, 16342, 22623, 476, 264, "Output",ExpressionUUID->"c36222bd-4f89-4cc7-a993-0cf35af05bc7"]
+Cell[777673, 16376, 179, 3, 22, "Input",ExpressionUUID->"d10961b8-b152-4e5e-9c29-4145a2972d3d"],
+Cell[777855, 16381, 22623, 476, 264, "Output",ExpressionUUID->"c36222bd-4f89-4cc7-a993-0cf35af05bc7"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[798273, 16823, 419, 10, 22, "Input",ExpressionUUID->"58abea83-2416-4b80-aea1-49c6f03cd553"],
-Cell[798695, 16835, 5669, 143, 160, "Output",ExpressionUUID->"e15a4a61-3508-49a6-873c-f26ddee17deb"]
+Cell[800515, 16862, 419, 10, 22, "Input",ExpressionUUID->"58abea83-2416-4b80-aea1-49c6f03cd553"],
+Cell[800937, 16874, 5669, 143, 160, "Output",ExpressionUUID->"e15a4a61-3508-49a6-873c-f26ddee17deb"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[804401, 16983, 431, 10, 22, "Input",ExpressionUUID->"4538f42b-62c4-4651-9986-8bec11748d70"],
-Cell[804835, 16995, 11191, 317, 177, "Output",ExpressionUUID->"7c39a957-cd36-48d3-a034-eee66c14231d"]
+Cell[806643, 17022, 431, 10, 22, "Input",ExpressionUUID->"4538f42b-62c4-4651-9986-8bec11748d70"],
+Cell[807077, 17034, 11191, 317, 177, "Output",ExpressionUUID->"7c39a957-cd36-48d3-a034-eee66c14231d"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[816063, 17317, 472, 12, 22, "Input",ExpressionUUID->"b2530e76-38c3-48b8-85fb-23b713cd8c3c"],
-Cell[816538, 17331, 1322, 35, 27, "Output",ExpressionUUID->"abded75c-64eb-402a-9a69-78d296d1035c"]
+Cell[818305, 17356, 472, 12, 22, "Input",ExpressionUUID->"b2530e76-38c3-48b8-85fb-23b713cd8c3c"],
+Cell[818780, 17370, 1322, 35, 27, "Output",ExpressionUUID->"abded75c-64eb-402a-9a69-78d296d1035c"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[817897, 17371, 947, 20, 22, "Input",ExpressionUUID->"583ab52e-3647-429c-9c33-fd12ede259b8"],
-Cell[818847, 17393, 775, 15, 22, "Message",ExpressionUUID->"2f4c2728-fd8d-46d6-a68a-371b7c8a7ba9"]
+Cell[820139, 17410, 947, 20, 22, "Input",ExpressionUUID->"583ab52e-3647-429c-9c33-fd12ede259b8"],
+Cell[821089, 17432, 775, 15, 22, "Message",ExpressionUUID->"2f4c2728-fd8d-46d6-a68a-371b7c8a7ba9"]
 }, Open  ]],
-Cell[819637, 17411, 1004, 20, 22, "Input",ExpressionUUID->"e570420b-e9e0-4c23-ae5b-1941f99cb727"],
-Cell[820644, 17433, 3835, 83, 41, "Input",ExpressionUUID->"83b8cb66-7a5d-443e-8848-d633f7da5d42"],
+Cell[821879, 17450, 1004, 20, 22, "Input",ExpressionUUID->"e570420b-e9e0-4c23-ae5b-1941f99cb727"],
+Cell[822886, 17472, 3835, 83, 41, "Input",ExpressionUUID->"83b8cb66-7a5d-443e-8848-d633f7da5d42"],
 Cell[CellGroupData[{
-Cell[824504, 17520, 1251, 26, 24, "Input",ExpressionUUID->"408b9498-9f18-42c3-a258-3358b138cc65"],
-Cell[825758, 17548, 1626, 37, 38, "Output",ExpressionUUID->"e46e4e60-dba7-4188-9de8-05742c779360"]
+Cell[826746, 17559, 1251, 26, 24, "Input",ExpressionUUID->"408b9498-9f18-42c3-a258-3358b138cc65"],
+Cell[828000, 17587, 1626, 37, 38, "Output",ExpressionUUID->"e46e4e60-dba7-4188-9de8-05742c779360"]
 }, Open  ]],
-Cell[827399, 17588, 964, 25, 24, "Input",ExpressionUUID->"59c41cae-4e24-4a51-a7a3-7d500a289340"],
-Cell[828366, 17615, 358, 9, 22, "Input",ExpressionUUID->"10d3cd49-4d16-4520-bb58-ea59fc8d7b92"],
-Cell[828727, 17626, 886, 18, 22, "Input",ExpressionUUID->"93de0c72-ab3d-4e0e-91df-edd506da949b"],
+Cell[829641, 17627, 964, 25, 24, "Input",ExpressionUUID->"59c41cae-4e24-4a51-a7a3-7d500a289340"],
+Cell[830608, 17654, 358, 9, 22, "Input",ExpressionUUID->"10d3cd49-4d16-4520-bb58-ea59fc8d7b92"],
+Cell[830969, 17665, 886, 18, 22, "Input",ExpressionUUID->"93de0c72-ab3d-4e0e-91df-edd506da949b"],
 Cell[CellGroupData[{
-Cell[829638, 17648, 3660, 86, 107, "Input",ExpressionUUID->"9e5141ea-32bd-48b0-8277-cb026f090ea9"],
-Cell[833301, 17736, 3546, 66, 59, "Output",ExpressionUUID->"0ec956b2-4200-4dbd-bf3a-8e1ba4f9fb29"]
+Cell[831880, 17687, 3660, 86, 107, "Input",ExpressionUUID->"9e5141ea-32bd-48b0-8277-cb026f090ea9"],
+Cell[835543, 17775, 3546, 66, 59, "Output",ExpressionUUID->"0ec956b2-4200-4dbd-bf3a-8e1ba4f9fb29"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[836884, 17807, 2809, 62, 24, "Input",ExpressionUUID->"15a4bc43-3d38-4bf8-ab87-9fe6c3c52fd5"],
-Cell[839696, 17871, 633, 13, 22, "Message",ExpressionUUID->"021c4989-876c-4967-bcac-1f978a0f6419"],
-Cell[840332, 17886, 633, 13, 22, "Message",ExpressionUUID->"4c8cb9d5-8149-4cd8-9ae8-7fb98ffaf525"],
-Cell[840968, 17901, 633, 13, 22, "Message",ExpressionUUID->"9bc6aaf1-acad-42a4-8e8c-3d1bc23999cc"],
-Cell[841604, 17916, 502, 11, 22, "Message",ExpressionUUID->"f629becb-1a0a-41c4-982d-075455cd242a"]
+Cell[839126, 17846, 2809, 62, 24, "Input",ExpressionUUID->"15a4bc43-3d38-4bf8-ab87-9fe6c3c52fd5"],
+Cell[841938, 17910, 633, 13, 22, "Message",ExpressionUUID->"021c4989-876c-4967-bcac-1f978a0f6419"],
+Cell[842574, 17925, 633, 13, 22, "Message",ExpressionUUID->"4c8cb9d5-8149-4cd8-9ae8-7fb98ffaf525"],
+Cell[843210, 17940, 633, 13, 22, "Message",ExpressionUUID->"9bc6aaf1-acad-42a4-8e8c-3d1bc23999cc"],
+Cell[843846, 17955, 502, 11, 22, "Message",ExpressionUUID->"f629becb-1a0a-41c4-982d-075455cd242a"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[842143, 17932, 1903, 52, 39, "Input",ExpressionUUID->"a6ab04f8-b182-4e06-87d3-44cf4d55f296"],
-Cell[844049, 17986, 3335, 87, 75, "Output",ExpressionUUID->"e43b3e00-885a-43e1-b26b-8b1a2615d3fc"]
+Cell[844385, 17971, 1903, 52, 39, "Input",ExpressionUUID->"a6ab04f8-b182-4e06-87d3-44cf4d55f296"],
+Cell[846291, 18025, 3335, 87, 75, "Output",ExpressionUUID->"e43b3e00-885a-43e1-b26b-8b1a2615d3fc"]
 }, Open  ]],
-Cell[847399, 18076, 1579, 40, 24, "Input",ExpressionUUID->"cc4f2eca-a54d-413e-8b18-94ba1c2bbbc2"],
+Cell[849641, 18115, 1579, 40, 24, "Input",ExpressionUUID->"cc4f2eca-a54d-413e-8b18-94ba1c2bbbc2"],
 Cell[CellGroupData[{
-Cell[849003, 18120, 306, 7, 22, "Input",ExpressionUUID->"971b5a9c-8ceb-429f-9eab-88056cb74ad9"],
-Cell[849312, 18129, 75499, 1300, 183, "Output",ExpressionUUID->"e2ba4c38-edde-4b75-bc95-88dc47d04160"]
+Cell[851245, 18159, 306, 7, 22, "Input",ExpressionUUID->"971b5a9c-8ceb-429f-9eab-88056cb74ad9"],
+Cell[851554, 18168, 75499, 1300, 183, "Output",ExpressionUUID->"e2ba4c38-edde-4b75-bc95-88dc47d04160"]
 }, Open  ]],
-Cell[924826, 19432, 23714, 405, 174, "Input",ExpressionUUID->"596a8ce7-fc36-4ac8-af24-031757805468"],
+Cell[927068, 19471, 23714, 405, 174, "Input",ExpressionUUID->"596a8ce7-fc36-4ac8-af24-031757805468"],
 Cell[CellGroupData[{
-Cell[948565, 19841, 3572, 83, 39, "Input",ExpressionUUID->"22832d0e-448c-47f2-8f0e-e89d73befd40"],
-Cell[952140, 19926, 702, 14, 22, "Message",ExpressionUUID->"0e26f2eb-9d86-492c-91a9-5ea47d8e976a"],
-Cell[952845, 19942, 702, 14, 22, "Message",ExpressionUUID->"d7d2d2b6-5759-4cc8-9a15-621a513b57c6"]
+Cell[950807, 19880, 3572, 83, 39, "Input",ExpressionUUID->"22832d0e-448c-47f2-8f0e-e89d73befd40"],
+Cell[954382, 19965, 702, 14, 22, "Message",ExpressionUUID->"0e26f2eb-9d86-492c-91a9-5ea47d8e976a"],
+Cell[955087, 19981, 702, 14, 22, "Message",ExpressionUUID->"d7d2d2b6-5759-4cc8-9a15-621a513b57c6"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[953584, 19961, 2196, 57, 22, "Input",ExpressionUUID->"e61533c0-9653-4007-9f77-db9184a97720"],
-Cell[955783, 20020, 216473, 3703, 282, "Output",ExpressionUUID->"0062a0bc-735d-4365-b826-64b7fedf2201"]
+Cell[955826, 20000, 2196, 57, 22, "Input",ExpressionUUID->"e61533c0-9653-4007-9f77-db9184a97720"],
+Cell[958025, 20059, 216473, 3703, 282, "Output",ExpressionUUID->"0062a0bc-735d-4365-b826-64b7fedf2201"]
 }, Open  ]]
 }, Closed]]
 }