New work.HEAD master

author: Jaron Kent-Dobias <jaron@kent-dobias.com> 2021-03-08 11:15:44 +0100
committer: Jaron Kent-Dobias <jaron@kent-dobias.com> 2021-03-08 11:15:44 +0100
commit: a17342cd3139e8bd7c3c6579f088bb2d10720914 (patch)
tree: 6834cd7fbfdcfb6134714a737917584cdb9319aa /correlation_functions.nb
parent: ff1336a25c087921f08c33d0503765e358471a88 (diff)
download: mma-master.tar.gz
mma-master.tar.bz2
mma-master.zip
1 files changed, 923 insertions, 715 deletions
diff --git a/correlation_functions.nb b/correlation_functions.nb
index 47413ad..9080d6d 100644
--- a/correlation_functions.nb
+++ b/correlation_functions.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[   1857651,      30674]
-NotebookOptionsPosition[   1856463,      30647]
-NotebookOutlinePosition[   1856858,      30663]
-CellTagsIndexPosition[   1856815,      30660]
+NotebookDataLength[   1863120,      30882]
+NotebookOptionsPosition[   1861838,      30854]
+NotebookOutlinePosition[   1862233,      30870]
+CellTagsIndexPosition[   1862190,      30867]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -83,7 +83,7 @@ Cell[BoxData[
   3.810740101795787*^9, 3.810740245269853*^9}, {3.810844111811377*^9, 
   3.810844146235771*^9}, {3.810844189292869*^9, 3.8108441901005774`*^9}, {
   3.810858970773411*^9, 3.810859001085868*^9}},
- CellLabel->"In[38]:=",ExpressionUUID->"4e3e499f-bfcc-4ef5-ac5f-0df054ca347e"],
+ CellLabel->"In[1]:=",ExpressionUUID->"4e3e499f-bfcc-4ef5-ac5f-0df054ca347e"],
 
 Cell[BoxData[
  RowBox[{
@@ -140,15 +140,16 @@ Cell[BoxData[
      
      RowBox[{
      "FileNames", "[", 
-      "\"\</home/pants/doc/research/hadamard/code/monte_carlo/correlation*\>\"\
-", "]"}]}], "]"}]}], ";"}]], "Input",
+      "\"\</home/pants/doc/research/hadamard/data/correlation*\>\"", "]"}]}], 
+    "]"}]}], ";"}]], "Input",
  CellChangeTimes->{{3.810486021275344*^9, 3.810486033962778*^9}, {
   3.810486193219154*^9, 3.810486194550849*^9}, {3.810486314441875*^9, 
   3.810486317679418*^9}, {3.810487374492573*^9, 3.810487374817919*^9}, {
   3.8104939135239697`*^9, 3.810493997092752*^9}, {3.8104944422051573`*^9, 
   3.810494442284915*^9}, {3.810550570982093*^9, 3.810550589356441*^9}, {
-  3.810560313824092*^9, 3.810560673343478*^9}},
- CellLabel->"In[42]:=",ExpressionUUID->"f0116cb9-0c78-4263-b31f-8e4080345ddc"],
+  3.810560313824092*^9, 3.810560673343478*^9}, {3.813235951391238*^9, 
+  3.813235954573532*^9}},
+ CellLabel->"In[2]:=",ExpressionUUID->"f0116cb9-0c78-4263-b31f-8e4080345ddc"],
 
 Cell[CellGroupData[{
 
@@ -163,7 +164,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.810739610363099*^9, 3.810739629001045*^9}, {
   3.810739799573955*^9, 3.810739800436439*^9}, {3.810739861384203*^9, 
   3.8107399200468807`*^9}},
- CellLabel->"In[43]:=",ExpressionUUID->"f389950e-3ba5-45fc-83e4-fe9c1dfcbab7"],
+ CellLabel->"In[3]:=",ExpressionUUID->"f389950e-3ba5-45fc-83e4-fe9c1dfcbab7"],
 
 Cell[BoxData[
  GraphicsBox[{{}, {{}, {}, 
@@ -3988,46 +3989,223 @@ Git0Qpu8rUcZPSBKi2t4Z0A8sTvup4G+J8ITJuZjQBChR+Z00YevOS4V19GJ
    3.810739920924616*^9}, 3.810739969728698*^9, 3.8107402481365*^9, 
    3.810844135907556*^9, {3.810858953011944*^9, 3.810858973543939*^9}, 
    3.810907530199115*^9, {3.8109086502454863`*^9, 3.81090867705389*^9}, {
-   3.810915389961076*^9, 3.810915405496829*^9}, 3.810939869705543*^9},
- CellLabel->"Out[43]=",ExpressionUUID->"e8437379-d124-407e-ac06-4c73e28b8da5"]
+   3.810915389961076*^9, 3.810915405496829*^9}, 3.810939869705543*^9, 
+   3.813235974701638*^9},
+ CellLabel->"Out[3]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
+eJzlnGl0Vdd1x6+5QoBN7MS1k7RNWzdtUtdJp6RNm6FJ2yR2x3zqaj901S7F
+sY1tPAA2no0xgxkMBpvBNpPNZMxoDFiYyWKQGCVGiUkggZCEEJIQEhoYTs9v
+333uuzLv6l6cpqtr5a31nvTuu/+z99lnn3323mef+y99Bj3w8/59BvXr2+e2
+uwb0eeyBfn0H3nbnowPsJf86z7uu3L7vuM3jf+N57kNeFXzol4T/b5c/vnn6
+6afNfffdx9vrJp++mTNnjtGX10/vq6urC+/z5bOn2b59u7vPlJeXmxEjRpgH
+H3xQ2ty8ebMv0Fxz/vx5M3XqVNO/f3/z+OOPmwULFpjLly/3/ewt949lvleU
++TjK3k+iMsg1Fy9eNB0dHUJl2bJl8r+97SH5+SZz5coVuXThwgWhduDAAfnO
+dV6tra1m4MCBZvny5aa9vV1+f+ihh0xJSYnlyr66mQkTJng5prm52Zw+fdo8
+99xz0On7v9D+w113oSvyKoQ7VJYjR44UCnx7RK/RChwdOnTI8/Xali1bzIAB
+A0SO3ZT69OnTRc683HCePHmym0LsiEkH+HbvNTXtR5v2+mdh1d0XIetlo/vj
+z9ZbNGbcuHERUrlmzZo1IkNeu3fvNg888ABj5aieOHFCmmloaOiyt1c37Ueb
+7rK3EbJeNrqfsbfvvPOOmTJlSoRUdxmUQYMGSW8LCwuZR+H9Z86ckTaqq6u7
+7OrV7frRdrvsqtLsdC1K91dyYL+sP3FZX9aQXJsEGAAEG53I06ZNu2oiW/KO
+k40bN6aeyJ2b9qNNW1sUXFu9enUoqfu6kEqEFb12fZQXeWEBsf2PPvqoXJ8/
+fz68/SAisBwauUH1Gr7Xrl0L3+bll1+Gpo5Md1NVVWU2bdpkjh49+qm+9Qit
+8ZIlS+T/PXv2dLb2VozW3prx48ebpqYmaeuZZ57JGPyumu/VVfPSTcu2vffc
+uXP2EzGNGTNGvvXtols5XbPluF66dKkZNWqU/GybNMOGDePnqAQ/pXK9I0QZ
+22effdbcf//9nWRpDbIQplOuszn6W0VFhYw3SzvMWIPtpfIarr3Zbjp8yB15
+Ynp4P/LII3Lfk08+2UmGn+5OTtdsORnS5K5du0KtLCgoYBi6kKF89lJ4TU2N
+mAk44KUTZJDiGBmwlkI4N5SCfPt+ApnrtYOMNF5ChIQ3SAV09uxZAb7yyium
+sbHR1NfXS/sW4yV1w7UP+y+88IJ4G59u/9KlS2LhVq1ahdBFYvPmzRPFTmo/
+mLs5MikmTpzo2n5C78f5YXz59qOEpnrrD5MnT5Y5BItP6Cjs379f9ApjjMjx
+QO2Sk8SdaxKJoR40+aRKZOvWreb5558XVWOAy8rKEntb8Av+vlL+7WnwIi+r
+L8nL+ZV8Nja39Upo5h7twqXLV0xLa4dpammXd/vFS+Gssv+busYL5nhVo7wr
+qs+Z8xfaIWGR3PNFYeHk6SZTfOi0KTleZ8rtPbsPnzYF+06ZWSv2mSlLis0r
+7241bywsMnPzSszaHeVmaf5hs+1AlamoOWd2lFSbQntvaflZU3O22ewsrTEv
+zyjoae5+aaXle/Abn/CffOuh1xrOt5lRs7eZokOnvdv0Gl1w/ctN6Pq/613n
+mtuFjffXHTTj5u8wL7y12dw3cnUfbTIjWtfbYDE2tLiHj+viCd2U5dr3/g+u
+fU6vwTyiHT6r0M4sOtSLvplhMwvMTDsseVuPmcL9p8xBK3aGr+ZsC3K1Q2+l
+4t0qQ8F1hp3frEaZi5cuCxFUprL2vNl39IzQ2Lj7pPmk6ITJLz4pw36w4qzI
+lhcqhFrh+QRCvEF4czxz3+ET9aI2Z8+1ms17Ks2qgjKrQrXQsWMeYKAJP7X1
+LaJyaDtjTj/gq1nH/4ONR2zv6W+ueXfVfsFNfH+X8AndvUdru8nPOebFtzcL
+OdRr0fpD3XTY+w7/SC5ZrfBu1GtwqxSUo/9Xg+5MFIJ8/s1NwrTrzrNTN5qV
+W8rM6foW7+tZsN+NKAzCCsLta+ri4JTX7tJrbR2XzIwP93Vic/LiYtEp7rg9
+C/anvxyW7pTPXFNV1xw1NWa8NQdnGi5849o4kc9/ln+7yyx4YNTH0ty9w/PM
+1v1VuhTFY/9JsWj/fw8L9PCpSfkyeE8mYP9RsfvLzoRYa0jNhbaL2vV47D8o
+ltn+8xF5gh0xq1AWg6cSsH+vWGZv/1fXChZL2tp+yXs6AXuXYpnBQ6ZtEezA
+CRuwGN4zqbA5ZvZHBwIZW76thXg2AXanwqwhCEe7YO+p5yKwnBD1E70ZS/PI
+uHVy89Qlu59PoPFThU1fvlcgQG0TSTBHjaXQsWaX0hcSYD9WGLP3mSkbBWZX
+2xdTwliQnY7WN7Umwf4uIpJ+owP1Xr7p6JCUsPfXHhTIY+PXoV1JsL9VGEs+
+DAK1NvullDBWACCIxa4aSbC/cdSaWsMpZBeOoSlhc/ICTXxu6ibMaRLsRwpj
+eXR9236g+uWUsMUbDgnkidc/oW9RWEaB/1pvbrcm98HRawRgl+phCTR+qDCn
+G8xrO0eTYI4ai7OzpsvyjwxPCdt7JJiSiN4KJR3MN6/O2y6wt5ft8UYkYH6g
+pGobWsw9OsWs65EO5ounCOSlaVu8kQmY7yspbFv/sYFdtJ5SWpjVBIHc/8pq
+Ri8dzDdj5gTCsJrvvZKA+Z6SwnI7YVgXPx3Mx9USiPWjvFEJmO8qKTRj4MQN
+gvt42/EoLKO0f6U3s4I6fbDeVzoavpn2wR6BWbfPG52AcaRwU5E0OBvJpIXZ
+NV0gD41Zg/lNB/PN+Pd2CswuXd6YBMxfKqnmCx2mz8urBFdW2ZAWtn5nhUAG
+WaFbm5QO5hM2OL/YG5uA+Y6SsotHqEbWlVNY4C+TTDELFy6U5MrDDz9sJk2a
+JAkul49mayjSMokeezXYPDpy5EhI0eVHYrjwTV7hMWfyvVc7sbBy5UrJG5GN
+YdMEFsaOHRtGuyRkYdG9iouLJY9UVFQUJETxkjMBdzIrzqOxJjBkRfJgkiHZ
+sGFD2AQs0Yz9q9GrL6nBxx57TMj3iCP1Fyp766uGLoMN3TLU6CgoMhMuj4v8
+d+zYId8cNZKWbNJs27YtvBZDzZcATRa6Nzd540JSLn1fVVUVkqKjLnfjOkHe
+hXQuHZOQMDek9C29hdAMAh9uOhohkNSXnnotPz8/zFO7nPRVfflzJ7nGjOSs
+m52h5sZp/fr14TiRXnXj1EuvnTp1Sq7Z7idRQ3LHQsmNV1IZ7Rw8eLA0R3aK
+RBjamauyW7FihUwSkuZImmwl96fopM965Ry1T5FlXi5atEjGHlmSOGNe5qp2
+kOEaPXq0DBgyff3115FC9ziK31axsqZEFFKJxtqQb+sPa7aXh7P3tZSYke9s
+FcySDYcTMd9S9vC57hkaWNMTNU1pYWQ5ItY0HQwPZYfA5n9c6k1IwPyZkmpt
+vxj6oEcrG9LCyGdJyGE9Nmus0sFs+L2oWGAzV+zzJkYwmUX5T5QA7oxbKa3D
+NjGBwJ8qbJ+NSoGQg7JNpIP55p2VgQM/aVGR93oCxnGIjX5Ug7XCfafSwo6d
+ahQIi6wNbtLBfFZIgY2avc17IyWGAAGM1fZEzB8re1E7ZSdXOpiPkyWQ563B
+mZQSQ7oWjI0wEjF/pOxdaLsYuifWoU4Lcw4U4aCdUFFYRvW+qa2QSubmWSv3
+eZMTCHxTCRAU99MsjFXXtLDS43VhUqHj4uV0MN9O8BKBTViw05uSEvOkBko2
+NkjEfEPZq65rFgzuljVl6WCZ1Wfo9AJvakqM8wQ/3Hw0EXOHsoev+l9qXa0n
+mBZWsPdUmAGyypAO5mMbBGbDb+/NBMwfKinUwlmxA8fq0sLsrWFQZq1YFJZR
+V5e+ZLdDczHeWwkEblcCeJd0X/McaWFkTp0+nGtuTwfzzYrNR0N9eDslhpSi
+c82SMH+g7EVXW8tqWtim3Sc1wyH6kA7mm9cX7hLY3NUl3rQEzNeVFKsaSxO4
+kuN1CksVu/jR2MVzjtGQIUNkHzNoPoE6GylOraxmdqbeddiS0ylssUtfDhuV
+lhjbkmwGW18yiQE/zJNZN8CbrtSTIxXXLFUFXKOGqJtWErEXjKzgNJb817QL
+aD0rgORi953KcJDk8btrjBC72bt37w45TTUCjgO2n6CO1Wpu7chwkBTUuAIC
+CheoW2xpaZGGlfqn4puvagvWVRVy1nX1ZqTubXf9JBSg9ipCx4t1yL+mP+i+
+kFm99XiEpBviuCAnV0kiYApHSktLk0n+vkomGgPU1rc4ql3HOz0VjEApNkD1
+nSDjiWUih6cn53szO1GKC3FcAIc4aTZFn3wzes42IbNw3UFHJta4/J52Bd/I
+LYdllQ1pYWzPRlz5dLDOrvysBMxXlVTUqd9zpDYtzNmt+0bm0UQ6mI//Fi6M
+7yRgfldJRZ16ayLSwqJOvR2GKCyzYN+mrSzU7O6YOdu9d1MR8GV3Dsz6nRWJ
+mNuUqaozmdW6sbktHcwneBfYsJkF3uyUGDbiwHxUeCwR8zvKXl0k0qhtaEkH
+8zEsbvfDm5MSM3xmYZghS8L8trLXeL4tmmZMB/PNOk2EDp6U781NiXGBEFnQ
+JMxvKXv4Om6yV1SfSwtzmYWBQWYhCsso6le0FWeE3l970JuXQOArSiCaPz5e
+1ZgWRk1HJOORDpbZhoDD+QmY31RSVBZFJJcWtmHXiaiXmA6WyRphyN9LwPyG
+kmqIZLhPnm5KC3MzA1thOUwH8/HKw8mxIAHz60qKfa1INjMdzMeZF8iQaVu8
+9xMwX1ZSOG2D1frlbT0WhWU09kt6s/OviAIazrelo5GJp0fP3uYtTMA4UqwU
+j2gdgg2h0sJKNOKn/MeuFOlgPpuOgee8uNhblID5opKi/oUlU3MSaWFb9laG
+m7E2SkgHyxgxK0tvcQLmViUVTTZZRVfYZwiH3PYOpZ0vvvii1OgSmVC7G+tr
+3ao/UCboNhiXdGKh65johqu2cnAmqdGkhhf2KaOGFctWfGxwiwoDhRowYb2w
+snZHueMkOT5yHaRmnQrsjEB889Zbb5kZM2botwQO9mvyFN1sae3IcJAUMbi+
+kcH/BTjIOJVTlhR7S0Py6YKjHmbo0KFScY1mUETM1hbiZwdI7slESJ9XYHS5
+slMzQzNdl3PlAAJ7JFSTU7aL1uXn58cq3a8p2iVMZTm5ciVD2I12XKjkWkY3
+UXU2ZnrGUbvZ6Zb942p2Vm4pW6bU0m0JEWsSczKK1dXVEocj2ra2tnitdpSP
+nKwPPeNzze2dKceFTD1UuNRCoz/sT/I7JdqWmwSiPrVToef/QUAx1hZ9QRnF
+oXIbIXYipIVR8wiE9KqVchLM6Z0UKGgCzq7by1PCqH6WfPHwPPIH6WAZR276
+8r3ehwmYm5RUleZ+1Tang2VSPKQcViRgblRSlLy6yqSdpTVRWGaJ/5ze7JKJ
+SO/ylStJNByM0NMFdnburUwJc4shUWtr+8UkWG+FMd+oiAX63prSVSlhrliQ
+yVLf1JoO5psR6mMyvB8lYNwhiKMnG8Lg0A51OpgvBavAKHrJS8Bcr6Qov3ea
+ZAPldDBfyqmBvDpvu7c6AdNLSVG67UiVVTakg/nsowQR+dzt3scJGJc4oobV
+kbLCjMIySutqEWzDcuO4+Tu8NQkEeigBV5akcUoSLFdhqJ6LdyctKlqbEkbh
+uvOcrT4kwborLFpDOmvFvnUJMHfGCvPnYOTDOQyQDpsTVt7obtH6BJivJMmO
+ORhvao7TYTO1v7xtHLghAea80RM1TZ1IcjghCXtdFgnxttrgfZIKm2PVeVeI
+swYsPwFmERyPiFDbGEGIMl/R+5x/psHYxviWr2g/ig7WhAh22a0B8LqAyckP
+u/JHA0wK7fTYQCIyJwyceVsndnM84pIiXC0Db+s5bIlHXNROkXF2kZVMz5pz
+XhewDu0UB0o4GOP8BTJg9loiMidMmt4T2ILCeES7IvYcydSdWwdja4BIFVrd
+cFWVnPX05JQdfikONTERXiMKnc0Za4vIyZUDywSwVztzcq0RFlzg5tfW1soU
+oZ4M75BALxsnrcpJx8XLYbUXHK3bUeFtU07SR1hQhmO+ufvgWJ8akTW+uaAc
+oMFvLt0dBliVtee97SEH6cKNHmbWrFmyMYIfzllIIkz6z45Utv5fULRLQ/G2
+pn5HSDjtxhMqMHfuXImvuB81sGqS2Xhq0tvdbirvJRsO77zmLlZWVkoUxTlc
+ukgwjaKy35iti80qYNZLl9dzypah7oY4KawiiCYMiQ4xOA6lxw3xeeUA78Pt
+7pJVwyzsukrduwq11q1bJ311fd+5c6dscZaXl2fte5NSPl3fIsXBmnnGo/aK
+OlFOKsDj98WLFwt3jC2hZWFhYbY49pwS5byeO4lD4qKhqdUrDohms0yNCovm
+/Umg1da3eLvjYQ0Ram7z9u7AafX2xMPqI2Py8Ng1oaex/UC1tzcedjaiTG4o
+6Rsno/bFw+oURp2RSyc8PTlfRLI/Hlarwsc2uFwibxx6u3YdiEeeViTle84n
+542FsaFOSTyyRpHUckSPopEesHyURpCy9J+K8MjugeseS5KNVw7FU3JIEu6v
+aSm6Zn/J/B2OR1YqEufBnWngvWDtQbyAI/HIE4rkHKnblOKN5pQcryuLR5br
+NRZpkjN29MNTgxz9wH/kji6aOC6fPaSqy0V/MiOtmDmrfCW8Jyu8TOGMzLjI
+mLJacAjCjqtXEQ8/otc4UjtlsfhpYQf4zmKcEVHWJg7pNdLoVMHZYCBsgvwu
+MU9mfLI2UaLXUBfKmAipfG0C34dr3FEV38R+vYZus93+1KT8sAmMG+I1oSZn
+bSIwDEEwxGlVTshZMbq+oMP0z/bHOxPfSrFew7ou/eQwubqQEXIJJI4bz7ep
+0YjMGVc1wlDYEEXKsANgjtBmNhQdOo0uN8ST36qdQCPpBKeCrCxylIOXpm8R
+ReUQY1N8K4ED3F3yW5MXZ9z3fqM/9lxTzEgSWdbr9lrim/pEr8EQR0fvluPP
+QbdQ0rE2yrWOFamLtvhW1uo1MjJ6LtrrpYyQ3OGMDHd0xDfxkVMyywgKxTmp
+3trE0cqG8L5L8U18ENEQTpTA95g5210rWDcOO3CTALrFN7VQJYyPCfWNxSdF
+u9Bb1x6LM48cuGI6RflZ2wt2wntI8SDn0EnLMw8498cstG2F7bJqUOdgQ81o
+4ipru0G5Xi+ZV9QG0C7eGhpKhEuSgkXr3hF51vMOBhc151jpjA/3srkvuRx3
+NOXmeFLBwZDPya1sQ7HRQ40ER+8Yc5rCmDMv2cNFlyFj4xvtWg8x2SQyWNI4
+hMjxfyJqK+bormJW+kPk80bRVBT/lO0uS/rO0mrZal5hlX3BmlKhT7SMZWIB
+xJ2xE/RGVUrOKHOZp0CQU4ZlRoI0LI5Fe8elaJlGxAIEJ7BvkFWDOylhQS/Y
+AUXWFJOyyiNvdANLe5NQ7S1+x+OvrZdZiXDetvHv3NUlMk4Ij6mHJeawqnsy
+xx3xsuivw86NLMWMAyEvrPCIBkjAhg1oVfY3ipFi4WUrmTFARoTh71mZMUc3
+7KqQjFGpPtYBVtxjG74Tz8r9qtmoBD3ggRxLrGFleSI6s7NOTUFvYWGAlQKF
+oOTnSB4syz8ipBlGNhawr0jYaWQXz7fqI5+5suFzqKJeDqxROTvaDq0Vdk8d
+caJ6lm4oMk4km6CG0EiSEPFKgz+LJ/UfSgrFQ0CYFtLizF2rYMHjRXpKxhvl
+4oklVPczFekUrovr0L/FU/lXlSW3UjCAHWQ5wBpwph4r0UOnEpXpqDhPQ+BJ
+FiQHsCxhb/4zns7PlA7Di2eCFaNE6K1le+S8D2Pm6BBZoy6oFfOEzW6RmrN6
+fePpBOfse4p1YpojdaYpbSE5zIE1D44U2skEQi0cKZVcQKpfPKkf6ozAwGL7
+MdpoM6KZZycalb2oIyLsqfRQR/w4zlRiOZjMLMpEWtLqYwE9DTUJny1JL0c/
+efATL82suKQkx55If7BpTN0jsXG2kCs4g9RbFjzmMJsz2DNO73J4mknE4OJY
+wLnY0qGreqmqsa8F8/ixKD0CY68BxwYh8NLnPgTkJRxkC7WoqIgA1HqB9ltc
+UoYkDD3giUeA8vLyJClhO501ag1KCL8QPhOIiBArgjxRTaIoym04R0AJK5MH
+84t/gcqxZ8ozATKrRS9ZsJlNdBGVwbphXmiT6RGquj4dwcXxVAwQYQdKHnzO
+nDnT5QDkJefMbVxMeihbf4K9r1vEpWPDiDAJEeNSYbIo+MOAMzUp5CCLykhh
+eTn3gKGHd47Yo+YsCHbIbpau3SBJDRYm7BIrEb4FzbGIRh9pxJMwhKERSV30
+pYo5WyZr9uzZ+i2um374OAa4u0U+Py8HWOCRtCYKyIzFhmIlsKMoKNaJsxcM
+cZmdckT0mGN32PW1ZLaZK+vXr+/ENtvSbBKHbEs6Ktgb+5IIDIaQM9ugyB35
+Mw6MB/Md60uAhb4xm/AQECymDo8FAcMwOopTCNM8NEi4nvXLEbZ8FqTTVdpK
+q6vRdnWu88AyknAWInO9pzbtpjUJOB4mSAFzV9M6S9PYNwpCqIyg6WDDLbB7
+PB+P5ocPHx5r96JNxu5f/Cr9ntla7GLXIIqS/zVr4F33P81BI5g=\
+\>", "ImageResolution" -> \
+96.],ExpressionUUID->"bd5d2476-97c7-46c3-bdff-e11d25836809"]
 }, Open  ]],
 
 Cell[CellGroupData[{
 
 Cell[BoxData[
- RowBox[{"ListLogLinearPlot", "[", 
-  RowBox[{
+ RowBox[{"Cplot", "=", 
+  RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
-      RowBox[{"comC", "[", "dat", "]"}], "[", 
-      RowBox[{"32", ",", "#", ",", "0.01", ",", 
-       RowBox[{"Exp", "[", 
-        RowBox[{"0", " ", 
-         RowBox[{"Exp", "[", 
-          RowBox[{
-           RowBox[{"#", " ", "0.46"}], "-", "6"}], "]"}]}], "]"}]}], "]"}], 
-     "&"}], "/@", 
-    RowBox[{"Range", "[", 
-     RowBox[{"10", ",", "16"}], "]"}]}], ",", 
-   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
-   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
- CellChangeTimes->CompressedData["
-1:eJxTTMoPSmViYGAQAWIQHdY37dub5DeObImCP0C08H9brrdAmmvTbAEQPeGE
-oAyIXjfzsiqIDn81ywlElzPLOYPoJ963E0F0G/fEJDD9dOORD0CakeM2mHbY
-tyaDJ+WNY/2tPWB6x8lHIYJA+jMzYxSIFlr47hOIXiKgzSgEpDXee80B0W+W
-nZwLov9cdE11A9ItmZ5g+syxA1UZQNri10swfeLP82YQzaTV2gKiC0wnPgHR
-Nb82PQPRAvEHdTKB9IRNO/RANOsmBecZQFprzic3EP1hKcP+2UB6kZbOERAt
-Jnjr/yIg/WJuDNtiIP26SIMbRC99qQumo3z1N+8C2SuhvhVEAwDhNKUw
-  "],
- CellLabel->"In[44]:=",ExpressionUUID->"0b96e36b-b590-4e0f-9434-e515d03f70ca"],
+      RowBox[{
+       RowBox[{"comC", "[", "dat", "]"}], "[", 
+       RowBox[{"32", ",", "#", ",", "0.01", ",", 
+        RowBox[{"Exp", "[", 
+         RowBox[{"0", " ", 
+          RowBox[{"Exp", "[", 
+           RowBox[{
+            RowBox[{"#", " ", "0.46"}], "-", "6"}], "]"}]}], "]"}]}], "]"}], 
+      "&"}], "/@", 
+     RowBox[{"Range", "[", 
+      RowBox[{"10", ",", "16"}], "]"}]}], ",", 
+    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
+    RowBox[{"Joined", "\[Rule]", "True"}], ",", 
+    RowBox[{"AxesLabel", "\[Rule]", 
+     RowBox[{"{", 
+      RowBox[{
+      "t", ",", 
+       "\"\<\!\(\*StyleBox[\"C\",FontSlant->\"Italic\"]\)(\!\(\*StyleBox[\"t\"\
+,FontSlant->\"Italic\"]\))\>\""}], "}"}]}], ",", 
+    RowBox[{"PlotLegends", "\[Rule]", 
+     RowBox[{"LineLegend", "[", 
+      RowBox[{
+       RowBox[{"Range", "[", 
+        RowBox[{"10", ",", "16"}], "]"}], ",", 
+       RowBox[{
+       "LegendLabel", "\[Rule]", 
+        "\"\<\!\(\*StyleBox[\"\[Beta]\",FontSlant->\"Italic\"]\)\>\""}]}], 
+      "]"}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.810486196704875*^9, 3.8104862085430937`*^9}, {
+   3.810486353937387*^9, 3.8104864048654833`*^9}, {3.8104864965557327`*^9, 
+   3.8104865746125097`*^9}, {3.810486804841106*^9, 3.810486808937923*^9}, {
+   3.810487054853014*^9, 3.8104870605326567`*^9}, {3.810493989559268*^9, 
+   3.810493990844727*^9}, {3.810550597398224*^9, 3.810550597901672*^9}, {
+   3.810560679087124*^9, 3.810560720031732*^9}, {3.810561943457162*^9, 
+   3.8105620573457813`*^9}, {3.810563298341694*^9, 3.810563310301626*^9}, {
+   3.810669354181883*^9, 3.8106693542941303`*^9}, {3.810739158024267*^9, 
+   3.8107391593117943`*^9}, {3.810739231249607*^9, 3.810739236161378*^9}, {
+   3.810740004537773*^9, 3.8107400215930767`*^9}, {3.8107405820428543`*^9, 
+   3.810740597771797*^9}, {3.810837017021731*^9, 3.810837047581563*^9}, {
+   3.810844152020256*^9, 3.810844193380204*^9}, {3.8108590068145857`*^9, 
+   3.8108590588942757`*^9}, {3.810859097264028*^9, 3.810859097434771*^9}, {
+   3.8109075454781923`*^9, 3.810907561221775*^9}, {3.813236604721335*^9, 
+   3.813236650830551*^9}, {3.81323669456253*^9, 3.813236710743775*^9}, 
+   3.8132367829470577`*^9, {3.8132368167722683`*^9, 3.813236845165856*^9}, {
+   3.8132368754073267`*^9, 3.813236885599828*^9}, {3.813237024710371*^9, 
+   3.8132370860789948`*^9}, {3.81323722362364*^9, 3.8132372363109217`*^9}},
+ CellLabel->"In[10]:=",ExpressionUUID->"0b96e36b-b590-4e0f-9434-e515d03f70ca"],
 
 Cell[BoxData[
- GraphicsBox[{{}, {{}, {}, 
-    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
-      NCache[
-       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
-     LineBox[CompressedData["
+ TemplateBox[{
+   GraphicsBox[{{}, {{{}, {}, {
+        Hue[0.67, 0.6, 0.6], 
+        Directive[
+         PointSize[
+          NCache[
+           Rational[1, 360], 0.002777777777777778]], 
+         RGBColor[0.368417, 0.506779, 0.709798], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
 1:eJw023k41V33MHCZRWZn5CiRlEaVub0UQnOSNCIyC2lAmUtFJFRElChDCqGE
 ZIiSMhQlSZTkDMaExLt+13O/9z/39bnO6Xv2sPZaa3MssD+2y5Gfj4/Pezkf
 3//9////d65zJqttYJAM6k7NbFjeRyZNvK42tg0ScYEH/gNxw+Te43POLdX/
@@ -7790,11 +7968,15 @@ Pzm4RE0clCzInrNo68vrXYp/iYJwUP7Mb7T5UpKHLr8EjGTMnmKTwfGb5t7i
 YiMOUCkhuAb9cGbeneOhNIy0COetRy+Eepv5Z5Eg6sOohrAM6/8Kq7g4EknQ
 uJD0nyT6gCl/+/piEszwcdrIo5+18UiG3pUBHRX7vo3orJAjA6UgC9XWod4a
 aN3vC8MXdsoDBB+f10P3MK8ntm9Ugv8BAPe4Lg==
-      "]]}, 
-    {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
-      NCache[
-       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
-     LineBox[CompressedData["
+         "]]}, {
+        Hue[0.9060679774997897, 0.6, 0.6], 
+        Directive[
+         PointSize[
+          NCache[
+           Rational[1, 360], 0.002777777777777778]], 
+         RGBColor[0.880722, 0.611041, 0.142051], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
 1:eJw03Hc81e/7OHASEsk8005JVEYL6b6krKLsFKIyyghRUVbIyEhIwyqFVIqi
 kMiIhooyIpUo0jnHSDLC7/o+Pu/f+5/34/m4Xuf1ul/3uO7rPkj+wFELlwVc
 XFy+a7i4/u////8/sY/d/KK/hsmw1vTc1jU/yLkHR8fsOoaJIM/doKGUUfLy
@@ -11540,11 +11722,15 @@ C6zxyBjLUmvRIQbSZs6ySeP6ps2lZd3SI4hycaE16KMrPrz+5XrEQKvwTX50
 X/8V2egrVCLy65CGMFoqjVawt4pKNM4nVEugOSmNRarWdGJ63Sp7OXSyzrln
 Git0Qpu8rUcZPSBKi2t4Z0A8sTvup4G+J8ITJuZjQBChR+Z00YevOS4V19GJ
 /wPaSt/N
-      "]]}, 
-    {RGBColor[0.560181, 0.691569, 0.194885], PointSize[
-      NCache[
-       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
-     LineBox[CompressedData["
+         "]]}, {
+        Hue[0.1421359549995791, 0.6, 0.6], 
+        Directive[
+         PointSize[
+          NCache[
+           Rational[1, 360], 0.002777777777777778]], 
+         RGBColor[0.560181, 0.691569, 0.194885], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
 1:eJw03Hc8lu/3AHBlj+xn80g7JCNZ6T5URqIhKyMqMpKtkmRWykhWSiEJZSSS
 SJFEAyEjOypKz2MkIfE739f3+/v883m9Xzf3fd3Xda5zzvUg2SOeB5yWc3Bw
 eCtycPzn////336+VVcMx8aJcc35RT3Fb8SF3DXMwc5xQpCzIPBHwiThTFi5
@@ -15280,11 +15466,15 @@ fmoonQE9q850jqAthrq/SxgzgGqh4jHBjWdnbEw6Xp9EcMH4jDz3/6Wyk0Hm
 DOjLmDi7bL0WocGeyB82ZMDLchkxfrRcEyTvkMHyVol8ETS7yk/6hggDor70
 0yTQ0l9v3Ty2gQGNfy5Uy6IvsG55RKkwYHwVr7UieswmYakM29dRt/tHFa1V
 1mmtwMOAZ1ZhvjR0O8tzPvWBObwMCZzSQzuluzFTQ83h/7LlbhQ=
-      "]]}, 
-    {RGBColor[0.922526, 0.385626, 0.209179], PointSize[
-      NCache[
-       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
-     LineBox[CompressedData["
+         "]]}, {
+        Hue[0.37820393249936934`, 0.6, 0.6], 
+        Directive[
+         PointSize[
+          NCache[
+           Rational[1, 360], 0.002777777777777778]], 
+         RGBColor[0.922526, 0.385626, 0.209179], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
 1:eJw03Hk4lVsXAHAlMxnPzDFEFA2oFOldiKhI5ikhGiShkilDQiKSKSJKhETI
 kIzJ0CAhQ1IURYNDSKj41n3ud+8/9/k965z9vnvvtdfe73FO0k4nTVyWs7Gx
 ea5nY/vn///9d6jH91XAtwliYtvCovb6z8SMgFWYfd8Ewcd+z+9r/A8iNo68
@@ -18969,11 +19159,15 @@ COtbAI88pF37A/GF9IVdfu/N14O1gHPQ/iOXC1b+7K2PCivcW4g3kfU7goIX
 yv/VUxhbkxGq5mSlBUtp+qqLWkJ5z5F8ZnC3knhqhQYZhUxOSx0Bj3tdyo6C
 8659I/6/Y2CDc3YKHnBerhzYbywAFqpu2W08BueNmOUXEbAnTcVPbmEyajh7
 xV0KfCaGY2eM8v8B7Sst+GYC5Af+v+MhL5a2HwCVzc8a
-      "]]}, 
-    {RGBColor[0.528488, 0.470624, 0.701351], PointSize[
-      NCache[
-       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
-     LineBox[CompressedData["
+         "]]}, {
+        Hue[0.6142719099991583, 0.6, 0.6], 
+        Directive[
+         PointSize[
+          NCache[
+           Rational[1, 360], 0.002777777777777778]], 
+         RGBColor[0.528488, 0.470624, 0.701351], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
 1:eJw03Hc81d//AHCSLftu7kU0JSMl1H1poIWsVHZRkZFZthQNeySizJAVspNd
 GhQyUlEUUl0jiRK/V4/P79s/PZ6P932/3+ec1+u8znnfQdrWxdBuBRsb2zkF
 NrZ////vX/Sh31zFXyeZk9t/L+1SGGUai0Xs7u+fZPJzFPpMxE0z1xWl21g8
@@ -22651,11 +22845,15 @@ kkD+w+mfGxnkDByWxq6LfP8rx37/FklBdiDfeKbRnmBg+n54RmQBL5CvPi3d
 /jgLsP579ERPBMhPP+8sq/07x/749869UkD+naVP04KA9dEnPhYfRSD/haNa
 3l1gfjPSCr6lDuRvWx689Sqw/tnlXZ6hB+Rz1yx87w703/7Sgm8mQH6mQVrK
 p/c59gDpLn/h
-      "]]}, 
-    {RGBColor[0.772079, 0.431554, 0.102387], PointSize[
-      NCache[
-       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
-     LineBox[CompressedData["
+         "]]}, {
+        Hue[0.8503398874989481, 0.6, 0.6], 
+        Directive[
+         PointSize[
+          NCache[
+           Rational[1, 360], 0.002777777777777778]], 
+         RGBColor[0.772079, 0.431554, 0.102387], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
 1:eJw03Hc8lf37AHBkk322c45kFCqSnc5FkQYpMpKMCiUZRVGJBiozyYgoZURk
 75WUhhGFKIQi1bEiGvyuXs/v+/zzvN6v6x7XfX3mfZzTCmfPPYe5ODg4vNdy
 cPz7///+U4++7t//dYI1ofNr0XDtZ9bIhtXqO95NsISWPQwYj51ihVWERMs1
@@ -26283,11 +26481,15 @@ v+zxXT18c2Yp+s3kkTCOZeiPCvP6ry6hCFOwRGgufKXJevyhGD6vFb7FD7ut
 0vwRthj1r71DTRi2fKd58Zco7mu/Y6ilcPHxntJKEYoMC3BZyMAX9AIte4WR
 b1Zub1SEOTlsyliL0L+ZH/NQg1+uuG09sxDvO+ozvhZObLor+1WIIv8Dqb5c
 Lg==
-      "]]}, 
-    {RGBColor[0.363898, 0.618501, 0.782349], PointSize[
-      NCache[
-       Rational[1, 360], 0.002777777777777778]], AbsoluteThickness[1.6], 
-     LineBox[CompressedData["
+         "]]}, {
+        Hue[0.08640786499873876, 0.6, 0.6], 
+        Directive[
+         PointSize[
+          NCache[
+           Rational[1, 360], 0.002777777777777778]], 
+         RGBColor[0.363898, 0.618501, 0.782349], 
+         AbsoluteThickness[1.6]], 
+        LineBox[CompressedData["
 1:eJw03Hk4lO33AHBLdmWd3cxIqNAilRBzyFqhQiHZspRSKhRFtGgTCUnZooRE
 ZJfsUbKvEYok2ZeExO90vb/v+897fa4zcz/n3s79PGOm1fanDzhysLGxndnI
 xvbv///7z6fD9p7AyDhrXGVhSWvjd9bNnZxleZ/GWQKcL71/hk6yRPcHyPRV
@@ -29756,73 +29958,634 @@ e3mFTP19kT9c06f/0NunxFX5zQf1ZsJM0AoJPO8jU+QeuKpIhGcV3NPSyvrO
 G9eb+dM4Yd0VL4P3w36DQwr88CoqITHRC+e1XxEVojDL6ct1vPD0GibDdTCr
 SrGxkyfyzWYTShYeW13fsuCB+s3Aw04BLlj5WMsFrnK7Mq8C+1fs4Zp0p8j/
 AW2AOtE=
-      "]]}}, {{}, {}}},
-  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
-  Axes->{True, True},
-  AxesLabel->{None, None},
-  AxesOrigin->{-0.6785788097473633, 0},
-  DisplayFunction->Identity,
-  Frame->{{False, False}, {False, False}},
-  FrameLabel->{{None, None}, {None, None}},
-  FrameTicks->{{Automatic, Automatic}, {
-     Charting`ScaledTicks[{Log, Exp}], 
-     Charting`ScaledFrameTicks[{Log, Exp}]}},
-  GridLines->{None, None},
-  GridLinesStyle->Directive[
-    GrayLevel[0.5, 0.4]],
-  ImageMargins->0.,
-  ImageSize->{515.9999999999991, Automatic},
-  ImageSizeRaw->Automatic,
-  Method->{
-   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
-    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
-        Exp[
-         Part[#, 1]], 
-        Identity[
-         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
-        Exp[
-         Part[#, 1]], 
-        Identity[
-         Part[#, 2]]}& )}},
-  PlotRange->{{-0.6785788097473633, 
-   16.117995645957986`}, {-0.0029261602175213435`, 0.9975641078842866}},
-  PlotRangeClipping->True,
-  PlotRangePadding->{{
-     Scaled[0.02], 
-     Scaled[0.02]}, {
-     Scaled[0.05], 
-     Scaled[0.05]}},
-  Ticks->FrontEndValueCache[{
-     Charting`ScaledTicks[{Log, Exp}], Automatic}, {{{0., 
-       FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092, 
-       FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184, 
-       FormBox[
-        TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox],
-         TraditionalForm], {0.01, 0.}}, {13.815510557964274`, 
+         "]]}}}, {{}, {}}}, {
+    DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> 
+     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
+     DisplayFunction -> Identity, AspectRatio -> 
+     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
+     AxesLabel -> {
+       FormBox["t", TraditionalForm], 
        FormBox[
-        TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox],
-         TraditionalForm], {0.01, 0.}}, {2.302585092994046, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
-      6.907755278982137, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
-      11.512925464970229`, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
-      16.11809565095832, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
-      18.420680743952367`, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
-      18.51599092375669, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {
-      18.60300230074632, 
-       FormBox[
-        TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}, 
-     Automatic}]]], "Output",
+       "\"\\!\\(\\*StyleBox[\\\"C\\\",FontSlant->\\\"Italic\\\"]\\)(\\!\\(\\*\
+StyleBox[\\\"t\\\",FontSlant->\\\"Italic\\\"]\\))\"", TraditionalForm]}, 
+     AxesOrigin -> {-0.6785788097473633, 0}, DisplayFunction :> Identity, 
+     Frame -> {{False, False}, {False, False}}, 
+     FrameLabel -> {{None, None}, {None, None}}, 
+     FrameTicks -> {{Automatic, Automatic}, {
+        Charting`ScaledTicks[{Log, Exp}], 
+        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
+     GridLinesStyle -> Directive[
+       GrayLevel[0.5, 0.4]], 
+     Method -> {
+      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
+       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
+           Exp[
+            Part[#, 1]], 
+           Identity[
+            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
+           Exp[
+            Part[#, 1]], 
+           Identity[
+            Part[#, 2]]}& )}}, 
+     PlotRange -> {{-0.6785788097473633, 
+      16.117995645957986`}, {-0.0029261602175213435`, 0.9975641078842866}}, 
+     PlotRangeClipping -> True, PlotRangePadding -> {{
+        Scaled[0.02], 
+        Scaled[0.02]}, {
+        Scaled[0.05], 
+        Scaled[0.05]}}, Ticks -> {
+       Charting`ScaledTicks[{Log, Exp}], Automatic}}], 
+   FormBox[
+    FormBox[
+     TemplateBox[{"10", "11", "12", "13", "14", "15", "16"}, "LineLegend", 
+      DisplayFunction -> (FormBox[
+        StyleBox[
+         StyleBox[
+          PaneBox[
+           TagBox[
+            GridBox[{{
+               StyleBox[
+               "\"\\!\\(\\*StyleBox[\\\"\[Beta]\\\",FontSlant->\\\"Italic\\\"]\
+\\)\"", {FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+                False]}, {
+               TagBox[
+                GridBox[{{
+                   TagBox[
+                    GridBox[{{
+                    GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
+                    GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
+                    GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
+                    GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
+                    GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.528488, 0.470624, 0.701351], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.528488, 0.470624, 0.701351], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}, {
+                    GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}, {
+                    GraphicsBox[{{
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.363898, 0.618501, 0.782349], 
+                    AbsoluteThickness[1.6]], {
+                    LineBox[{{0, 10}, {20, 10}}]}}, {
+                    Directive[
+                    EdgeForm[
+                    Directive[
+                    Opacity[0.3], 
+                    GrayLevel[0]]], 
+                    PointSize[0.5], 
+                    RGBColor[0.363898, 0.618501, 0.782349], 
+                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
+                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
+                    ImagePadding -> Automatic, 
+                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
+                    GridBoxAlignment -> {
+                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
+                    AutoDelete -> False, 
+                    GridBoxDividers -> {
+                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
+                    GridBoxItemSize -> {
+                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
+                    GridBoxSpacings -> {
+                    "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
+                 GridBoxAlignment -> {
+                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
+                 False, GridBoxItemSize -> {
+                  "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+                 GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
+                "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
+             AutoDelete -> False, 
+             GridBoxItemSize -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
+             GridBoxSpacings -> {
+              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
+           Alignment -> Left, AppearanceElements -> None, 
+           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
+           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
+         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
+         False], TraditionalForm]& ), 
+      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
+         RowBox[{
+           RowBox[{"{", 
+             RowBox[{
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "360"], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.368417, 0.506779, 0.709798], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.24561133333333335`, 0.3378526666666667, 
+                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
+                    None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.368417, 0.506779, 0.709798]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "360"], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.880722, 0.611041, 0.142051], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.880722, 0.611041, 0.142051]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "360"], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.560181, 0.691569, 0.194885], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.560181, 0.691569, 0.194885]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "360"], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.922526, 0.385626, 0.209179], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.6150173333333333, 0.25708400000000003`, 
+                    0.13945266666666667`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.922526, 0.385626, 0.209179]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "360"], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.528488, 0.470624, 0.701351], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.3523253333333333, 0.3137493333333333, 
+                    0.46756733333333333`], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.528488`", ",", "0.470624`", ",", "0.701351`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.528488, 0.470624, 0.701351]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.528488, 0.470624, 0.701351], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "360"], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.772079, 0.431554, 0.102387], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[
+                    0.5147193333333333, 0.28770266666666666`, 
+                    0.06825800000000001], FrameTicks -> None, 
+                    PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.772079`", ",", "0.431554`", ",", "0.102387`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.772079, 0.431554, 0.102387]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.772079, 0.431554, 0.102387], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
+               ",", 
+               RowBox[{"Directive", "[", 
+                 RowBox[{
+                   RowBox[{"PointSize", "[", 
+                    FractionBox["1", "360"], "]"}], ",", 
+                   InterpretationBox[
+                    ButtonBox[
+                    TooltipBox[
+                    GraphicsBox[{{
+                    GrayLevel[0], 
+                    RectangleBox[{0, 0}]}, {
+                    GrayLevel[0], 
+                    RectangleBox[{1, -1}]}, {
+                    RGBColor[0.363898, 0.618501, 0.782349], 
+                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
+                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
+                    FrameStyle -> 
+                    RGBColor[0.24259866666666668`, 0.412334, 0.521566], 
+                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
+                    Dynamic[{
+                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
+                    AbsoluteCurrentValue[Magnification]}]], 
+                    StyleBox[
+                    RowBox[{"RGBColor", "[", 
+                    RowBox[{"0.363898`", ",", "0.618501`", ",", "0.782349`"}],
+                     "]"}], NumberMarks -> False]], Appearance -> None, 
+                    BaseStyle -> {}, BaselinePosition -> Baseline, 
+                    DefaultBaseStyle -> {}, ButtonFunction :> 
+                    With[{Typeset`box$ = EvaluationBox[]}, 
+                    If[
+                    Not[
+                    AbsoluteCurrentValue["Deployed"]], 
+                    SelectionMove[Typeset`box$, All, Expression]; 
+                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
+                    FrontEnd`Private`$ColorSelectorInitialColor = 
+                    RGBColor[0.363898, 0.618501, 0.782349]; 
+                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
+                    MathLink`CallFrontEnd[
+                    FrontEnd`AttachCell[Typeset`box$, 
+                    FrontEndResource["RGBColorValueSelector"], {
+                    0, {Left, Bottom}}, {Left, Top}, 
+                    "ClosingActions" -> {
+                    "SelectionDeparture", "ParentChanged", 
+                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
+                    Automatic, Method -> "Preemptive"], 
+                    RGBColor[0.363898, 0.618501, 0.782349], Editable -> False,
+                     Selectable -> False], ",", 
+                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
+              "}"}], ",", 
+           RowBox[{"{", 
+             
+             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
+               ",", #7}], "}"}], ",", 
+           RowBox[{"LegendMarkers", "\[Rule]", 
+             RowBox[{"{", 
+               RowBox[{
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
+                 RowBox[{"{", 
+                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
+           RowBox[{"Joined", "\[Rule]", 
+             RowBox[{"{", 
+               
+               RowBox[{
+                "True", ",", "True", ",", "True", ",", "True", ",", "True", 
+                 ",", "True", ",", "True"}], "}"}]}], ",", 
+           RowBox[{"LabelStyle", "\[Rule]", 
+             RowBox[{"{", "}"}]}], ",", 
+           
+           RowBox[{"LegendLabel", "\[Rule]", 
+             "\"\\!\\(\\*StyleBox[\\\"\[Beta]\\\",FontSlant->\\\"Italic\\\"]\\\
+)\""}], ",", 
+           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
+      Editable -> True], TraditionalForm], TraditionalForm]},
+  "Legended",
+  DisplayFunction->(GridBox[{{
+      TagBox[
+       ItemBox[
+        PaneBox[
+         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
+         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
+       "SkipImageSizeLevel"], 
+      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
+    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
+    AutoDelete -> False, GridBoxItemSize -> Automatic, 
+    BaselinePosition -> {1, 1}]& ),
+  Editable->True,
+  InterpretationFunction->(RowBox[{"Legended", "[", 
+     RowBox[{#, ",", 
+       RowBox[{"Placed", "[", 
+         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
  CellChangeTimes->{{3.8105619660803413`*^9, 3.810561982175066*^9}, {
    3.810562055335422*^9, 3.810562059423607*^9}, {3.810563301638349*^9, 
    3.810563312501088*^9}, 3.81064458327099*^9, 3.810669355729662*^9, 
@@ -29833,577 +30596,21 @@ AW2AOtE=
    3.8108590479656153`*^9, 3.810859063062345*^9}, 3.810859101279286*^9, {
    3.810907533743657*^9, 3.810907563561284*^9}, {3.8109086540431433`*^9, 
    3.810908679539352*^9}, {3.810915392740925*^9, 3.8109154107355328`*^9}, 
-   3.810939871954014*^9},
- CellLabel->"Out[44]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
-eJzEvQV0XdeVP/wmhiRlmMIUp9Om7RTSJmk4aaBN0mlTSJq0KYXsJE7MMTOz
-LTPLsmVZkmUZJMuyRRZZzMwWM9MTS/t/fvuec+59Aj/NWvOtz2tJth/us/c+
-m+H37yye9d7cdxZ/OOOd/3zp43cWzPpwxqL/fHH+x+KhKf9ms9011Wb7t6f+
-04Z/k82mfpl/puOX9RH5wBf4ryn0/vvvq2eMF7VP/Pxn+fc0Cg0NpaVLl9Ks
-WbNoyZIldPr0adtKfu6T4z3Hbx4eHiY3Nzd+bsOGDVRdXW27i98zlQoLC2n1
-6tW0bNkyunjx4hJ++BP80gULFtDcuXP531VVVfxRo16+Sn7zsWPHaPHixfzN
-eHlUVNSE3/w7yyGn4oyfk8ddsWIFdXR08P9W8+/PWR/jP3FxcXTkyBEaGRmh
-rKws2r17Nz+O/69atYoqKyv5S7dv3w5Y1XFiY2Pp3Llz+mMmePkqCUlzczOt
-WbOG/3eXRPw43+xwlFH0+vyEh5o+5lBHjx6l9PR0RRIg0m63A1m0cePGu+Qn
-RUREkI+PD/9vsfyk0ee6w1tWTni26QoA/TESgt/+3xxv69atVF5ero63adMm
-qqmpoezsbDp48KCCNSMjg9noTse7w1vudDwJgP4YCcH/0fG2bdtmPd6WLVv4
-eDk5OVZYMzMznR7vDm9Rj3V1dfE34H9LJjzyJxVQ+qMVVOBeX19f2r9/P98d
-ca9tL/zf4AFMJCgyHhcLhKsDREZGToqL9Vvu0W/p7+8HczPsLi4uNG/ePLp8
-+fKd0CBh0p+sgMrPz6eTJ0/yY5ABuMx3QMNn5ZnwUnyNPPqq8R82vvxTFB8f
-zwDgDzh3z549/G/QADLUKnyKiooWyU/r7e2l4uJilqECK+ooE7yLP/HAgQPU
-3d2tuENzBqR1RUUF0CL+Z3zORFD5+flRUFCQhlAcZjIoCQsLY0mK5ywoGfWw
-EqIA/MyZM4wpkFKwpNZEOAzoh+cuXbq0WD7c2dnJnDpnzhygY8r4r1YfUlJS
-wvwtMaEQAR20aNEiB0SMAwsfzcvLixEKJIBPDh8+fCdE8O//kk+Ap0AgEGGD
-PHNgYCB/P5B+4sQJamlpmfTn1dfX8/vMz5tCdXV1kBKA3/aSk8/5rnzC09NT
-i40NElUJCQm0a9cuZgBxA52BdAfbhH9XySd6+gapt2+A+geHhOK983sWyCeA
-6qFh/pHkEY+Jv8RnUHt3n2CRprYegcqO7n6y9w5Qp70fj+Nv8VxXT794fW//
-IL8H7za+8NMCRYM0PILPaKemjlKqbEqizNLzlJi5k7JzD1NZ+VVqbsun7t5G
-au+qoIGBTtvd/N5vUN9AFzW05lJX4QVqjlpKHRnHaFg8RiPD/CUjQ/38d0N7
-PgUkLab0257U2XCbhoaGqKWjl9o6e6isto2GB3uo4NZJ6qtL4tfnljZTcVUr
-n7mvu47sef7Uvnv2Z6j53YcFwspP3kfXgm/QZf8ASoi6RqlX5tNe/wdo9+EF
-tG15ABUc/zn5XPjpFDwoTr3P7wG8kd98F37f6wTlM/mfn2JUNbf3UFZJI4Uk
-lpHHjVw6cCGVNrnF0cqj0bTscBR9vC+cZm4Nonc2XZ9Kb24ItH1J/Rf/4593
-NgTQ4i2utHPnFjrlMp8uHXiTbhz8M0UdeZFijvyaEo8+Q6nHnqDs4w9R2rHH
-Kev4w5R47FlKOvYMpR1/kgpO3C/grnD9Ho7ueh/+xT9Zx39BESefIb8zT5K3
-12Pk6vswHbryIO33e+C78uhnPB6g2g9+wUf/Iv8Wd2PGk4wl8SOMR/yeTrUz
-nlYoooYZj1PcRzOpfsYTElH3GsgReBrEr3+bGH2fH+exZ8d57JlJvm68x57m
-31OZOvllzfzcB9uD72LsT6e5u8Noj1cS+d4soNisaiqtacd9uFd+EtizM8ed
-anxfkEi9m6o8fkGNobOoPXUv2W9fo/7mXBruh9YeETLQeB/YPzpnLx289rh4
-H7A7jY7deJ6CUldTdvklau4sEew6LGW+I8TqutLwEPWGelPr/Bdt/87UmEYD
-pTmk/+DajIyIs0lYR4zLChrdzb/vpW6hmSEGcA5cj8HBQUrMPiuo9hhTtnbm
-UwaTi/c3vvs4xcx+j985jX8bcIH6xGbD/6+EfJJ/38vHSMip5SuF+4LXbHVP
-4CtX39INQovLaAA83N9JbSkuVHn6x3wHqj0fo7bEbdTfmAn8Gdi/Wwi6dgrP
-2s5SAT9Hrj9DMXkHqK27UmCe2KKygMJ/BgrTqGXWU/cy8qZSy0fPUOvSP1L3
-+b003FL/RXmA/OxafXumyN+DA0P6UJ+REEgxq15LezcGUXVlG771TiJ/PLxv
-HOexTeM89oQ82O3qNlp7IoZx+eGOELoUUUhtXX0KMoEm6i6+TFXnHmYU1vn9
-ieylNyCt5ddPp7yqawJnTzPuPKP+TqX1t/C+L/PTU/W3DtXcBsqmSH5rW/0X
-6gk8TcOtDbavSwB3rbmu8XUXfn/v/5vDPyYhx525EllEb228TjO23CC/qGKh
-poY+q57ua6PGkPf54DXnf0n28mAcTJ17cKiXApOX8rlxu2/XReLpr1q+0O6z
-39Qk0OXXz+LS8iu+gd9TJVdoFhBPfHfiQ/Pvv/I/pwkpM0A7PRKZdFvPxLNK
-/5x8bqAln0EG6K1xG2hksEd+IN7XRGfDX2e4/RMXCKOg2/Yf8jkA17rgRS3f
-B7LjbN/WgP7ACWR/kZ8CPQh9B8guhBUAzxIyYY3XxFKl+/1UeeanZC8L/qJ8
-S4e9mk6F/JaBSik5C0RagBqmzv0LNVAjA/22b8nnIA/UtcFPYvRt2w+dgPm6
-BKVJgPnx/nB6S4AZk1n9eflwT0UYVbr9kKq9Hqf+lvwvyocB4YngF2nf1Yeo
-qCb0awo4Iac7ds5iwNrW/o1G+no0cKCqFbjmhi7bfzsB7jX5de1dfbT4QATz
-ZmpBvQKutyqKKtx+QNXeT9NgZ6UCrruvWaOvtD7aBG6YOra/z8B1uMwDsBNi
-rkOwz4+cAPdnBUX/EK05fosxl5xXp4CDYAVdq72eoMGuagUcLopX1D8YuKKa
-EA2cAKDz0BIJ3FyQeULM9QjD9MdOgHtVfh0Otu98CnNfaFK5Ak4AJDTAo1R1
-9gEaaCtWwOGrriUvYeDSb3t9XT5s99nHgLVvnQks8h1QIrxbkEZ9szOMvSqf
-8I8uZoDOXs+xKYhGBF7qrvxRXNL7qLc2/t/lS1OKzzA0IekbbAqcvthAg8PW
-vAH2/7Z82GXdDRNF3f0/dQLMK/JtsIRAus2n42AfKFHaErOaBUZnzhmp+KZS
-bWumAOZBFuxDw/1fU8i8nc3wtMz7NY10tSt4rvlmaHham7vvdwLPnxT3Ckk2
-3+UmfbQzlFo7exV+7GVBDE/Tzbkgk6KYkFfkGvIbOhz4lLiUNQqkEXsnjCUG
-a7CySIFUYOpgqq5o/ZkFJFM3/VFCePxKBlMpJb9OU2mop5GNPtw4YegpKgWn
-rWMqFVQHaf2FK4av74u7blPf393Zp78/PrLk505QoiDJKGpgSI5eTteQgFWb
-wj5inPTWxClIoG8ByY3UlRqSvpgAhqTzyHLbf8rHdq4KZCj8vFJtDzgB4w+K
-74S1smDvTZq9K5S6ewYUp0ATAoqW2LWaUwYG7YIs/0NHbzwLk0qRZbi9mVpm
-P8ukGenp/rb8hIjreVrVPzgpYKaQj1AlwEl8do15hwbsgjJPiZv9OOw9hZOo
-nD2SOjc0TjoPLDJ0Wm6Cpk5DbYemTmdHrzNIfi/fBksTXtv2swmQVAotbcm7
-GS3CL9Boaekqo/1Xf0EXY/FZI1+TLx3Ijmdguo6t0sBYhV5MWOFDkwJGOK5C
-1kFLVDV0arQI1SDM3h9R/bW/41sVWvwS5jJaWjpLbYpAwiJl27Xlw1/ScEer
-ItDNwFwG5MDmENsvnEDysnwCcgUEOnMtW7+4KXw+CzihSW0KjMqmRAYjPGub
-pg5MIyCk9+aFce9OV0evMzB+p3hC/LXBNZbeE751e3efog60E6jTHLVUUwc4
-94z8Gx0KfJJ6+ls103a2sk3ftup1Lf3hIR+6xbCkxJbZHp4UMFMoraCecXIx
-vFC/uOH6v9gpGequ0zgRipFxklB4QuOk+9wuRysMuCttYRj2rLthe8QJDL9V
-CEF25lg0G/g9fYMKIb21CYaBmLBFI0S4peQe/iodD/oVbrRi1+GmWmqe8Sgs
-HQd2PbI9jKGpq2mfHDBTIFsZIUIj6hfXX/ubgZCeZo0QcXWlNeiuEdJ1aoMh
-38vzNUIykysZhIvuSbZHncDwPxYOgdczyxEhfXWJjJC2xO0OCDkb/pqw8J+j
-gaEehZCh+gpDwO5boBEyIlztHSuvMTT2rr7JATOFsoobGSHCE7FwyJsSIU0a
-ISV1EYyQ5OLTJkKOr2YwhqqKNUKSYkoZhMCLGdLTcQ4D/If3twVBxttG3xfh
-PzjcF+/of7HuFXrYxEalgY2Dix2wsXd9EIPS1zdohcRUvC/JD4AbChx4BeeZ
-kuPmHDZ1B7tqNA6qm9MYBzF5B00cuK4zmKKiUOMgK8VgiqjgAtvjTnDwG/nE
-Id80elvIUeEWaBxAjlac+j41Ry6yfUk+djXxY3YCunobbPp+tDZQ83uPCzfl
-YxMBsEM3BjMc/X2DzsBQqIDzBDCOXkrXL26N28ik6G/O1ahoF/4ILLOgtDWm
-wPB2MVBxO1ujIie9mkEIC8ix/UzRq69bf/kdAjsOcJ0PzWcSlVS3afQgsARn
-TqgZjZ6onN1Moob2fI2ekZ4u4fs/LazpGdocObrrprJbbffLx9rywil23teo
-xHuxzVng9UXFpsJEgWDbcCpWv7gz96yhiMuCNb7E5eUwhc+td0ylE+TB+OpP
-ixwjYIOuZBn4mgKQJgtNZFolYykhp9bBbqu9+CI75MIDUwBllV1kRBVWB5vK
-WHiTrYtfprblr1gVj/epBIapXfho92uYwJ/2dg3H3U5AfEF+B4TfauG8zdkd
-KlyzYa0NhGMOnHVkHne47uci3xDa4NeI/Sty9ieHGbo61Fujra3ZziB6u8ZL
-cgqTsLOJySl/nGUvXpBPlEhh4HuzwBQGwu6FU27VEIZv8gDF5h/SFIW/1jL7
-OeGG2zVowf7ZDFplWYsFe5+cJDQn/TLZWbKKhSF7oxALP6CmiAWa74PT1jI0
-nT11mu8HKwoYUd3n92poBgS/7lh1jVz3RTrSsrMsVUPgjN1+LZ9A8mbmliDa
-7ZmkX9yRfpgJKbSZRlXfQCei0cIAnGfKTbeNhu5oqNTApcaXMarS4sttP1VM
-IOSYhYqfmiRoN5MrmIrJeaYvhUhOjc+zCKiTxSzNKPNh1JXUhZsiQ7hzLR88
-SR175jiIjJ2rA2lwcNiAjlH36UkCBIUPnkdSzGT6OIPps05qQoLhT4DhR4Y0
-NL2h5w1BkR5lCoqyFi1YFa6G+3s0riqv73IG2q/kE8J0Z1x5h+TrFzdHLGQe
-E/6nJmNje4FUfwdMkSHIAzsVYsMiMvzPpxlueFO3BVefmSRAnkF5DFBNU5cp
-7Ps72SZpDPlA4yoyexcD1NpVZjJ9UTrjqsf/hMZVb88AQ3PuWKzG1VBPp8aV
-4H0raKaB8Jz8AKQx4IQKu15D35XvbUj5clPKDw0PsAcqjJQxBsJwS70GKD6q
-hAEqzKmzoOezTtDzvHwirdDwzm+mVJg27NXXOEw+MjxgMdnCGT1Z5ZccGXvW
-UwgWOJjSx/cI825DkCDhyE8UhnpNDHVVZk4WOhgy726+gbCKJt5Ae6lhzMVv
-1sQLSPqYDgQ8CuFgMnq4r8HoqeEaVzUVrYyryOB8C64+5wQaRTkEdwDNfp8U
-/eL2FBdpz+RoXCENsz/gYYTUTWm+6S0OR9PQoIbmqmTstha7TSEKckUhqrs6
-d7KgRaRWjgn3sIg6/4xQ2DB8tIjKLLvAlLxdF6VxhYwGS3dvF1O69xvS/eyR
-GAuuPj9JgGCGf7A9GGrZZjolyYaIyjiiKSdsGOZyoZM1NCpiOVRdYvpG0gzO
-SKowoLlL6pqmtKsaAmdspdJxSMJDEboFZOkXt8SsYeAGu6o1ITvsNYyqm5lb
-NXBs1yz8DbWv/4eW5ueOx7I0FwpREnIK5R37pyKk/A7ncAXG3mYq5pe3aKSJ
-S0hVHg/BsdRISyxyZbhqWtI1XANZsdKSOa+RJowsRlqAT7oj0ioCd2oInLGY
-Ag5R8nkuN+EMaOB6KiMYaV15nho4uJiIniHvoYDrOraKmmc+iqiMBi46pICB
-qyht1khrSrmikfZFJ3A9I5+obe6WGsd0uISTw87OcG+LJiZS1UDardz9pgTr
-tbMEs/q+kGCHtobSwS0h+PdPrHjLP/mOBsLZTVDwIRUH+Epr2k2iDvVSlfvP
-qDF4psabsP0YvsaOQg2fCpYLM3WMDAu/nqfx1tNQovFmnNeG1IP4gzIlVZV7
-6dIlXbOK6kGU+eAPynzmzZsnnlu6dKl4DvVj1j9I3vI/1OVecSSKFh2I4BS1
-DqSWGYHU7qJLDkb3mZt/4h9LxLBj10ccSB3p79OnCvLL0kqeT8XSRp3l0+yC
-rly5kquNUUeDwk2UwuHP7du3UTrF/0aVF4q/2traDAyMR5pfyieqG7tUZs/i
-q88V5vl/w0bQrINCHpAmLv+I6Se3N3EcSdie+hDDQ0ag4MyhW1qgjwwNaIE+
-1NelTjRdFYNpLN+8eRP1aQpoFBKj9sxut+vKiAkPcjmiiA9SUddh8thgjzBy
-fuJg5MTmGTwm7oKpJ0O8jNBcXpI+SFFunQ4PKh5L2/y05rEv6VOgEvXw4cP6
-FGlpaSh1m66+MDaWK8kGBwdtXA9iFiA8oRAk/kKKdemhSGsE2l4aaPBTsZ8D
-P50O+wOH9Sz81L7xTRbJQonoE1w+l6J9cocrbK/J0zj84oTHQMmzOMbd8tM8
-PDy4WA//U+WqY4jxtHxCmcCOTt9stjiHB7pME7ijkIkRX3DMNjr81O21Rx+l
-r2+QtcuFM4maGKWX1mpifHlClgoPDwdLqVPgnqD6d1Kn0CxVP5almkI/0iwV
-k3dQslSxqcD9ThjBm9KcMQo8L6PGkSD1MR4aAvN2qPuOgl+UY+K+i7tt3IRp
-XJ6Kslb8QWnq0aNHbareaMIjQWwtORjpKLZKrxtsVuI/RmxJNvsP9bB0T9qW
-v4p/q4OdP5XACSko/x/LxxoSfDR5viLPZMjjgoICXZx65coVKaOmMalQFbt8
-+XKWx83NzRMf6Cn5RG2TIb98nMivpo5iHV4wHfpCppH98hFNI3uXkaUQHpcj
-jXIO/1VDIO/+hHpPAafyxGW1jnoPafXGkPc0Awn2N/Ree4HJQBcPjbEAk2ON
-YHBxXr3Gc19LlcbzVycJFwJGC/eFO3BBT3moVl6mHfM6nQpFQkjVb0wxWGDZ
-n1Dyo42/04eikcKA8NdwxS/6L4Yra98fncL1pHyisdXO+PK4kWuxYxZz4Hi4
-r10Ts7WrnPEVnbPXJGZpjuGoBpzS+OpoN4y/65cyJVyIZA9qZSQc/MmCdj3O
-sEsLK1od7dKzD1LDjbc1ypKLTzNota2ZFmN+v0HKunINWlxEMYNWfrtZo0yg
-SpPyPyYJFypSEQcZtpikvdW3DJM031vDhTj/yeCXuFLRSkqOT679myal24Fo
-2r8pGAF/A67xlMZXnAD3hHyiTVwmw8nIHuVk3OcQCenqqdcpRE1PWZTQc81t
-TFgy2C9bI60q5IBG2tcmCVd4ihHNyipu1EiDq4i8c33AGxppGaVGKKuyKVHD
-hapAJma9GWiLCzeIWSWcFgekNadf0xA44zQF3K5zSWPdxvoUo5gj+5QGDjno
-I9d/yW6jA0WX/MHBM3PdG0kHhTEPp+VH6hBVWRppX3cC1+PyCZSuI02OIgad
-ykjYaniMnZUOrj8yKkGpq8dezsDTGmmtwmlRETdFzMRlPzSibTdcHOAyQ0iP
-yVeiwNcxIAlVMUI1Ps9R7aXfaSzlVQYwCYtrb469j/UVGpqYm0WqqkRiyTH+
-J9hjsog66JvKMZLe/iEzYtNawIhqT91nidgspoMBjyKX4UjApX9wuJKn9kXR
-/s3siWkClpxfymDlHHrdqD28A1wKZYKhOC241zvZjN3I8HJ/c54m4OBQH4eX
-/RPnmwQszzcIeNXVJGDTKAIqru/vaNAQOLuSCriMIiNvGplWqV9c5/cKR2+g
-fsz6mGimZ06F31hVWVM67pVUSEOcBEhLXPFj2zcnCZdbQBaLsA5hROuEQXet
-DL9t1MQMSV/PXN/T3+qoKpe/AovJVJVCvsKt1rfRFBUBGgJnnPaofAIW4tw9
-YVACY7JlvTVxGmlIe6MG4ELMDNPMri4ZY/y0tRryNfRqjkaaJWwpC/qcw6Vy
-PtdibzskwaEshf7VcNW0pKsaUQ1Xj//JMQngeKksK0tNYpZf3cJwFZ+bP2m4
-0BkAuGpHBcJhXzRHfKyJGZ27j+FC0bj2sNb/g+0elOkruM4cvmUoy9HERDRc
-QeDseirgYJrDAcT/tGl++5oRFC+9oYE7c/MVaZaT5rShhqoxqSkV+bpxJUsj
-rasinZEWv+g78nUTw/WIIpw0yqzpjKaIBYaFPdA9xihDNl8TU6ZkB4szzIqG
-W7cZrrKSJg1Xxs6XGK6mVL9Jw3UjvnQci2yQS0Ibgt7R+EopcTcsspYMk5hb
-Z4xxlz2OxjIxh4XlY9T1OhqL2t9xDhoiv8hvOBhlMjnVmeuhQbsQ8y7fS6tR
-NtzWaJDSfasGTZVOXbuQrlFWG3GCwSp0/0gKl4nhelh9Ts8AVyOc9Ms0VXj8
-Jhn0rRmjwoVQM2MkEZeMGElOgoZLJRhvFzZquGLnf53h6qkvmjRccVk1o0L3
-Spk/S3VXfj9GmVtTix175nAkjQYHNFxeJ+O5/WBImFD/LR+DUlJy7DsWuEzT
-4hfylSrj4qi/C6X+3mvR34vG6G/kg1A60nV8tYamx95P21deY5dSYUlILYam
-Kni/AzTjYUnBBf0Nw9AhPZxxxNDfTdmWrFk/l8AhPayjqAlBY6KoqtYKWTMH
-6TU8YJZEf3uSwOXcbjKSaMmOSTRUj1v1d3lDnJFEK7uoges8spxa3n8SoWgN
-nM/pRCbh4MCQJmFXuSG9svb+wfZfk4QLnXuAq6Wj19TfPU3sgrTErNbEFK4H
-w9Xd22gSc6CfCyk79y90iERtX3GNLnkka2Jm7vktw9VREu8UrofUZ4u/Fu2P
-QErBTIEWXmBi9lRFanzhGiCV4BX1D42v/oxbRp4j6oqGKzejWseWFL5GhrT0
-ctqHouBS8eDLEWb9WmPohxyyGBnqG5O8Tig4brpGZ7YYqVlLiuPKuRSO3Am8
-abhqbh7VhUGThSsgpmScFEKfEUoJnWXmhQpP6lCKtsOGhznx2L51poYLnVuA
-y8ctQdMxafXPGa6+tppJw7XxVBybYOOmhAp8xvjf1lCK0IqGUR3koeEqlGHn
-zJRKjS8V4kle84DtDk1U/PtB+QQagGG3nrpqze+tHuN6o9fEyO9tGesfNVSZ
-iVqfNOZ79G4ouG77LGO4aiJOTBquqPQqpmNaQb2DqIecqPP/s8ZXTsUVhqus
-IWZs6Ek4Rwou5Btc1t8grxNxjkIMSQcFgbNLqYDb75PCrWN9A6bkF5JVZmyP
-auCEZ0SHrj1Bg8P9pgmm7emjGjihF3UOQSGtvfCW4bkd/qvtPidwPSCfGBgc
-5vpnF6vnlrqf4RKaaZTn9hiKGk0TLOCUtKcLNFw3LmeqMmwNV/b+Vxmu9oLo
-ScOVKYtdI1JNoY+mwomdNn/TBNvwL2pd/Hu2p78lH4M/A08X+fbxhNj3JwnX
-mcBshqut0yL07Q2yAHa9pmNYxiauurT3tZj2V0u9YX+d26XxJZxIo+UjqkTD
-peLbpZfXOYXr5+os4i80YKw7GTOm7qW3KtpB6KM77Xz0W6b9FeYjc1TJGq6w
-a7k6Y6jgSt/6LMPV31brAJdp56i60Yq6DsaSX5RZu90YPJNrQEeG+jU09W25
-TL2kolOm1YX85dxfcS2Hoh6Od3THTcQrNDSD9jaGRohWm7OGQ4UlFTUfm8n7
-MZJIlmzxYZ3J0yq7u4Oz7F0n12os1cu2kFthhRquyuu7Ga76GI9Jw7XeNZap
-5xA1rwiTKbrLGi6PiL+Q26iouc5iWypxomT2v0GcU8GVsu5hmSbtdgqXoiOa
-C7lRI9ASZb21Umb/WzUdO3vqGF+R2btM0+vQEi7MQ6Ojguv47nA6IuiIeNMP
-Ffc1ljJcQko47chUcKnq2cxxo6x/NaOsZSrKmmTSsb+Pa4w7DywaE2+6GZir
-8VXivYThaskOnjRcaLGBNBVSdUx5POplFVxX4mdzabw1wNqfEW00hd3yHxOd
-qC5vNeDSKmjY7A53JiJU0TSGeqAGdL9P6pgCq4G2Yk1M9M0dCHiEC6x0icnp
-TdQ84xEH+8v98C0d/VXE7LydxEjLP/mu0w5WBZdqYYtOr9Ivrr38MtVcQJWh
-KeqLa8OYmPlV1x3tr/kvUsf29zRcnR29OpSviJl7+A2j6Ksqe9JwuQVkj4nP
-oTnUaIXZqokZlLaGXdq+gQ4N10ChUdvYG+yp4RKqmuEqLWrU+FJRgIQl9zlt
-Ef2peo9QZSgVGq+Q3VrLi9AculEuxr4/tvirsdp0aU/EcYMoUmwKrsbkSwxX
-uf+mScOFoRig49VbJWZo7sbbHJpDQ/Ho0Fzabc9Rwek/OthfvfYB2rYiAPah
-pmOWy+8NO7q1WsF1x1KcKdZSHJtK+WKKD2Z+4X8TpurVsVSqXrgvjv0Mbj+k
-pnCzrvuWjOy1d1eZlltVsWG5XTk2puUEvrFCtypxTdv8tGpfljMsnFTl6OKV
-/9WRkKSFh+iYqg+UPYkBDsaCTNXfMYjq657EHjWS9OpINeHH+Ei1woJXR5qw
-LMc4xXRauHAh5+7xM3v2bB4dlZubO+GBVMEGemFAI88gS1sQBxJ/6JCqb+ks
-NVL1eYcs0dd/cl7Eai2iOhMu3GXhimv9uf4RrT/NA01QoaMqKTAyTc23kiSy
-jarUUZ8fmlTOZ8grax4VdEQa+C0z6Cjbvutas03LsqlmTGFLfpbR0JyTXq2J
-Iq6Nzu38ZMIzyPIcdQbMwsI5xpzhThTBwAl0zTkU0dfGyzjlWYcKVXSNWOOU
-Qmga9mhBqj6Nn3cqO4m9PQP6NMI+NjR0VpDlNBOU6RilIFPJ39+fkpKS1Ekm
-PIjKG46bm4zfPKaatae/lQ1+dONrU3b7e9Qy7wWOBSvWGhIOF6Tt+VMJmrVU
-QYPQ6jJkJ0y4okYqaezi/92jDzdB4Y463MDAABeE4Wcyh8OEHPBcYm7tHaOj
-uZX+sqo50uS5jlajRO/MZtMrLWgw2kISyk2ToCyFD1fkMU8frtXeT/9yS8CP
-amGZoIJHVVdBtuEYd2Q+dawjl9JlmHXQDLO25Msw6359LL+EeZyOFM6tyXxR
-VwxzOjNGH+v6xUzWRN1dffpYBadm8rHstfn6WEsuZvCx5guN5awzRyfBhkc4
-9LrLEnptTzs4po0PwzEQEg5IMh1wzBFA+/HIYL/mr2G0U24IIo9jsaaVIask
-k1bdbwQs7mLMC3o1mf19ztrCFMCYowaeCbf0NGA6BXetWcw11dOQVxlg2t49
-XUYMW3ezT0GZCvNMckypBrgh8QIDXBG4UyO3Z2BI84yzDjEFqwrROnjrKsUa
-Z02xrmMTrre/3fSrxolrh1w1OsQ62ns0rDkHX2NYBzobNaw7gvInDauORpDh
-wa93HWvW9dbEjjLrniff2PdMX+vwMiPM3Wd3iHjAPD9z+JaGVTXaCZgdGSGt
-slVD5azRUwFcVmvYewFWew+pWI+HHFKx1c2pY+w9dsIQ/7Y4YVWyTyo+skQD
-XBW0jwFuSDivkYsbo5DrrDlPwYpxVWOMOJWejVw8pk+pw15jOmZpkYZjFhs4
-JjzS1mzXsCbLGO+wuI0K1kPCgfvfwoqRZUsOjrLOSgJko2qQg3WGErpzkW+Y
-ftrJtRykGLF3OgRPDm8PI7f9URpWlFxxiu/0B46MEJZfr6FyJsK0szBeGheF
-kqd/zAOlRpfkYnSBZoTBfu7D7HCZq5FbW9XGyI29WaQBLvExqlI6bidq5GJA
-lkKus25D9TnX44zUbkFFi2Ow3/1+h1puVTeJwlvNCJkxhlMXeVnDquaTNAvG
-+oH6POGcx87/BgfV1UDRc4nl48Jqxs7Uu8cru+upCB+3gtItDMM9zFgQt2pK
-N3107OykS6TGZkvWDcZm2eV1E5PfmeBSAJuleGY+oDl6mREk6msbp7TSxfT7
-hgZ5NlDHjlkapXXCj+SgWmihBjj3yN90/mQ88jtroFSw3hyvPE+QC4N7GgL/
-MbbWsiXD9OlzEkZNHhHkF4IesDY1dGryD/Z0MKyZe36ryX81s+Z/DevOc4lj
-qvW0CZ1z2iH/M9qE5nwZGKG9yZERdjoyQo1M9dfHezkyAsxPBZUzwfV99aW9
-A4ap7DCRYMOYGgBVk4nEkBnIGWJT2RrIqR+HEdI2P2UI2YHecRnBWeOqgjUm
-0yjyS8qtc4wgej+F4jCN3PRSb4a1ojHeZITcRIMRQrzuyAgqslng9r5mhAAL
-I0wWVgwpQ+DOIXfUmDEmd2SUbT7jEFXsdt9mJE5bG8Yywl6TEcqurJeJ5gRH
-RogtadJQOROy96mD9w+y/X3gghlpbEvaYTBCR/mYYpDgtHUOjMAZ1W0mI9RV
-t+swu4Fco/8yftF3IGThuitewKhGhV9nDYsKXOUFmfOipBd04XkEIjV+s8sv
-q8F5Ji/kJY/hhXCpE1osOkFNrCj336x5wdOiEyYLq6ogEW7pWNcm7aCG9XLc
-RxxhtuYRu8+OzwswDlwtvJB3/F86yObACykVppXoTIp9TzHq4BCHxB1KQ1P3
-ygRjgWXyQAfzwo3UVWOEgpUXqmWDXmx4kUauKiTM3G1K3H7hZyvkOmvCVLCm
-5BszmG5lWCLRF19SYwg0rLmVV2Xlb/hYoWDpEFXuAqxEBWtttJu0aH00rC6h
-hQzrO+5Jk4ZVCFkWtg7N223FxlyiFBcHH5cTyhYfV0fz25tNd0FY1Qc2h9Dp
-g9GaEdK3PS+FbZ8jIxTUmUWIzqSYGoWOTPP724IxR3lMptlaI4wRFOjvvp6y
-3GSEwQFqmfO8g5lQLgQTkJsQXaKR21NfbMQazs7RyO0QWkkxgrWr1LS81CtT
-5QiuaAfy/0bIgV9PQP6bJvlVg3DEJTNscMnIhXe292oIb19YYcjZ4jgN4bYb
-eQzh1ut5TvteFTbHJX9r0fjkD3zSkfyu641+4U7TSkSxA4YQnTseq0Us7Nj4
-xd+jlPWPQsQ6cEBjp1nI5Ux2qXOOzwH7DA6wjH2DKAAHYFChQ8HU7Gcd/ISS
-fCPalBpfpvGrLNvK67s1fsuauzUHfGGSsFp5wXE+z0ujp5LkVPjr0kHtKqTc
-NHzGmACHgQQo1kOdiwI3/8TbRkq9o0GDO8c7lcE9GlUyaXCPXByPHWRhoYUd
-kHgczQ66Rq6nyyEAvnvtde6K1HZtdyvDmnvk70YNk+KFgaFhDZUz8aX0NAZG
-Qi1YeaFNJSMtaqGnv22MWuC+8g+etEwRM4vUxN8aYNW/05weoJEbWdioecFZ
-D7yCVdkHsVnVDrwAuTBm/IPvGBOhL04m6BNDNLgXZA2iwLMGN3XDY2zRjAwN
-Okpbv/RqDZgz+aBgVvVG1hBof3POGDvBN2Ym24xDwwMaYK57RVixv08zBJoX
-EX9HMk4BrFp9Si+u1vgdtARn/t0JrKpxwS4nfwjbxuSFxO0GL7SXmgVlvY0c
-Yg/N2Dg2Cn1ynZlojZO1wwUNGtYS78W6dljBeka87n8Lq5AHY+uJ2W942iFi
-nlpyTvd36dCyqrOxjGlEnT/ULkrDlb0vfBuGNX3rc44XDYJMQeVMMiiAVc+X
-tSRBjwrJctUAY/DyiVFeZPvmd4Qt/pJlHLQQsLJUAo0co22a2qhTGrl1Hb0a
-uc6aWhUysGbkrVFF5Lqy0DIDU0USUG5i9imM7e1WZTB1Ne0a1owdv1bTAjSs
-Cy+kM6xbhAKeLKxYJABGyC5pGmeayN/HBJLq23I0rHa/43o8pYFXYwogSmOE
-UwbZonjBXpuvLRoHXugbNIWuM0GmYF53MoYrSscLLaGjc/QkADlZ4qvqYVUk
-iWmnIyOKIypkAD8hqmSMmdNZnqaxDE9SccSXLRCbhtg3FT/JoSMOUx7DF8hm
-3TZL+VjOmICirny19ANeE/RF/gZFifqSDfZT3MJvU9qWZxwRG5hVq7HnTCoo
-FFwMLxxTV8Y1AqPGYEVk7xxTI9DtvlVOnapzVL9CPZwXECmUNib5Gpcs0tV0
-coZMJ8dZ5+w3FaOJvzDNHk1BlokQ3UWXZD9QoMYv1vgg1YBiQQdDbJQprkoa
-rMo3c/f/jLlnJ2/dZnAX+aZPEtwp6MExGr5irFmGf/GAl5Gh3jGFoJllF0wr
-LCl0jBXmeTyOq3pR/a94oafhtk5ROvAChJiCyplgUACfvmaUDTm0BXDO6T5q
-iV6heQErIVBmZc05de5bwLVp1jyO6kzGnEmFXKFxGeCuykyN3PTKNs0LzhqC
-v6EQJKwwINfa5Yd9S0YpUbKDRX6Ak4+LTM2rRrS4mpo3MtiIgtVVtZsXDa2u
-87+B6lGb8l4EAzCsnokVk4Y1PrtmzGR8c2LmM9DCo60wDOFS4Kq50QP5KabM
-FcYKhhG57nOQufVx5xi7dbfOSOxOtSadcGsmCzRiuGiMdQzdZY5p+BE3jGu1
-YIY5iNvVf+G6KAGq4ocSmWNHvtQ0HR/XUVGdcUgwoktr/FWdyMTgqjlqanSX
-q79FAceulYG7CosCLhujgAdLsuQ4v5PmnBiPZJ5yBpdHYRfjK7lFw2ep42Wr
-buvRUDmTDgpgVdA7Op2DohnrTK9bufsZ4KaOorHJkuZafdm60A4nNIWfd6pG
-bqH7bGk6FmvkFjV06svmrA9ZLx4Qf2FAihySMjq1Z452msK7004Ev8CpPS14
-+4TX8+Ez1LF7zrijHhR+lZuWfeDPjvj1z6zRgEn+vWPt3D0OY6xgn2BDH6pP
-1q1bRykpKRPWYahspKDKmBHePLEaZeAD9jGyO6PUx/Saov2112S1kRC4PrY7
-HP9WJ1Z+HuqA1H21hP+AbEkj4Z5OdtQViqBwfry+tbWVS9G6u7snLEVTZz7p
-n8k2bKul5MCoGnUU/5gObQxVNKtGMcaQN2VY6jlKixq1dfV9hQehlxNX/FgG
-ZoYVUx4IL9I3XvZ5Oy+5w65iLPpUf4CPsrKyCc+p5WnfIJ9TSLgxwZy+hjSH
-LqDRDrwqi7T2FF+SosLebYoKNbCuOuywIyujfkhB9R/6pHesxZvOq0uxXxLb
-zbDLERS12+18UrMc78vyu9UgD7M0ChJ5iMtcRjn9SUWnxlSZq5H8Q7VlmpQo
-TOZuTe80BzMpbsG3MKBZC5eE0mYtXL4x4elGVemhQg/LWkHqzZs3Y8KZbcIL
-qqBUo26tKcaeqkidYrQOt0ffAX7Ev9XqKq7iQPJ+xweajrfCCnVDvaKjMFOM
-hnrPhY50tCaX1BWdsIJPlbp6e3tTSEiIPPcEJ1QgqiIV6xAnrOXD0gvr3J+K
-xgQ5NP+MKYLkcpS+hCAtgoalyTDKTVPVYMKS1GRs6urTZPymPpyT0VsoFsXT
-SgzdcVKVOiRMThyyvsVuaUqq57HA1on0MDkRWBV30iJz3uYci1XmqF04CKyq
-E/a318no39+0GTfvfBqf0C22VJ9w/DK+6RJ90CZ4DHvJheSZ8GRfkU8gkwj7
-aZt7gillZHWc1UC1CynDQ2FTlpkGSVmeUXzte8C0/k/EcVyzv29Qn0xNe2sv
-vKXVx6DpWMH0czbSQ4GrhIaZVbYKjRfJIjRUN6lVaCiLBNX5ihaNdZ1GN4MQ
-6kr+Yyw/fNfUjY/rwLx46d4wI420OTDX6dwKtXUPRglWfiAsYFnxpJqPOnPd
-HYQA+oUxJcKyv07NKTanfJpdgKiKUWhWBeEoNXAQAm12s53S2UQLJZ2VV2id
-AtgQ9A737FoLvrFrb3TtmSovRoWnwjLmTiMei6n0ppYd4r7dhKU/QAWlwnJw
-bh1jecZZNdHRObjI2o5uFR/sKDN2I91apS/opbgPuSAVk5a1G4AWF7RGYNS/
-6QYkRhuzLorz68fqy9CDjigubujSgDnjZQULer+QUjjoaybxzf0SZr6uRfoC
-oRmbxvQyof3FKjmxBgbD2YUQvE8dT8jDtC2/FErwm8jjKixnVpnerLNZDzq5
-EVk0ZsDv8EA3hwqsITm1xNNa28Vdhx/+0qFwTq3lTBbiTaG4LT9C92YqMfiR
-l5GwiSxsdAqrukwQMLhzuHsWZ6Az12NMnR/6sZCzQR/PGAvK0krqfiSGK8ut
-si1r7x90y6ZCbW27GZl1NiBCwaBmYmGG0mjnG6Fvy7oKcdXGpMO0YKuv1Nit
-qWzTPXfaUJBjGHQgxoZYgVFU7ZNS6RRctfpN7e35cGcIChB09RSWInLRzDEH
-qYYqSmxFtJg2wx0tnBSzDmi4IugM+w0bEBXE+SffZYh7m8q08ujsHTR9jxEa
-fySIOoPykRwkGW/1+YlDrLO4NnyMJLNfPiobJVLMcFGLnT1YjAQZHUQucHtP
-o1U4CQzg/psqIeIMrVNQw8Eioa2rz4xmyOITrHizDp+Rm3+0GGNbce6vuDnb
-EjxWOzfqa8yIUeHpD4zS+pp8jdM+iz83MDTsDGJdmC4jycevZJi1iZFL2BsT
-Alhjt641W4991Hoi/OIo889Ig+1aHYhFKxpcQXoGN+/YPzV2d4cUMKgrrmQ6
-nfegnlBWnLmfTVpxbj9wmEOBLZTYFIcFIlYlgdA8JvTR0KACNyq4QA9E0qaq
-2/uyFTLL9JYt5o69f8gZxAo65GuQuLP2Lqg6r776FI3dtu5KYwVR6uox5fWo
-l1EqAhNQ0LuAoZ/iDquap7pb7nqugUKwCiWv8styOiBCgatmdOVbOqywktvQ
-D+ZsxlDu3TeCRQ7BuHV/N9zzvh6F4AS5HqIgp86mNJp1X0V3VfZ4EcTO3gFn
-QKs9uPCzkb/DojqLolDTeXoqI8y6yt4GjihjOo+uS8mO01E5hWZslsE4qpMu
-kaYmxrWbNYaPT0g0w6R0Nrrhc/IJNU8lJb9e6wo02VedewTzE8liBKv1ixi1
-rx2Sbe9xnGuku0NfOzWdNje9WqNZxbnugOb2ngFnQH9W3QCBE3jCmJUtcGLq
-Y/dRA4yNqkVUVGHknUZzQar2NRSa0emFBgxEq4Txo9Bc6rvKGJS2+Ltj0Lwj
-ON9pO7daBq8SkNaqhJGhfqr2etKoWDJVclz+EUZzeUOcafDsnMVmu1B0Gs0q
-cZ6VWqXR3NdWYw7earg9nsTo7ht0BvRn1NsGh2ju7jCOgVrcja68c3rWgVLM
-yDlAiaC82eJuqM5qxI4UpgclplHmbsF0sedCY/RbyhWN6Z3B+ZqhnU1B+Mwo
-TN+y1AIxpr2f4qGgFkyrbK+1/qNj92wuV7HWYqvdeyamzTUDur5GfE1Xn2lK
-9A4MOYP40/JtqLQCN6ONxAHNnkaut9DXAc1Yd4b8vxM0IyuJGSrHHRk633WG
-cQmrczSaNwXmMszCJXU6POHT8omgBKM1IybTytB9BkOffwZRT22OyvkcpfW3
-HCQ0dlhLplaYViMU8jJrNKbVlIJC99ka0w2dOlqDIhYr0KbR9kmNNFNaDFuk
-Rc7pMVsaUMAE6x0ZHit+pVy2Cgw4oTDgMZVVyKDvWQ6Wues3RkluS5VCsSoT
-O5dQ7nSkwafkE1dvlYwJarKHBNGMoObIkCmad+sCFhPFw2y/8XqJrnaF4ogb
-Rr1zSUGDRjFmjqp6ZwUxqkaV4+FsqIDCNOYKQv1hP4pFLrenHRq1uG8qDyGB
-+pMbdBWmVRK4J8BNY7pTuEAw47BaRmhVhWlMp0NcHR6/8EUdXOjEshYNoTOO
-/qR8wivY2I6VVdJooru3lQ2OOv9XyaIJMeRVdXVrdA8NUtuKV7kEx2JzqOXZ
-woHS6FZ9ckhZKnT7plZpdDvbif4J+ZVNbT1s0W1zd1hYrPx+ax+i8J45sC/M
-UdNkluvPhOmsRZ3q4rh8LkUrFQQT4xZ+ix3/keGh8XR3Zat9ckAbxY+jZ+H3
-NaQZhnPQDLMmPv4jNpzbuitMtwQbJ+e9IPD8Z+BbFUng8JiLgTWtwqNSaC44
-9Z7uklBo3ixF3Va9MWZiiO+VT6g1pscuZ5irmOXmLbRNDbQWjZ5qGJG1w/T7
-5BSP/oxojebCHGO6W4QAQ4HbURIvp7G8o+VchfAPLY6UM4jvUXgSQggeNfpQ
-Wjp6FZoRbxu94BvJS/fwP7NWEdJPYZoLtN5/gg0P8XEK09DdyOmhCE7Y/+oq
-IsWVuulJzo0IE8ThKl6zVOg445F75BMqgIH1ygrjPRU3DYyLn6Ge5tFbBlNL
-zpmFGdgJPuNR3p+rMK6SrxnJFRrjanRqVch+zSA3cur0PXS26f5uCRri3vP2
-hHFDsDBNlTOAAjN0pcgRNP+uX93ORZyIzA4PD5o6xtgd3n12m5Z8HeKCI9CJ
-FdUWHdPfVguD1LiQQ4PqQnb3m+ZHTVvP5KA35Z5VzXRkHtfIFlpdIftm5lY9
-jE/LvcEBlnsIF1jUDDKEiGzUVplyT/UFoi1U4XvjtVxdP/0zJxCrvAS2ylgW
-tSt8D3aUcw0X+tv76hL1xqK2PPZn0Yuv86HX3PTkTF2qIQvUMSfZVIzXRoW4
-pnJfjSVZ7QxoNe0Bd3Lz6TgGvK65mzF9FxBsM4pM1Ju+oF8/zGYe5vgJZanQ
-jZ3dMJqQCRIcpi4mrD0UJMLi67UPKE5Bd2Pi8v/mn0F7u+KUAYs/kF/X8fNJ
-HcHcrHc5smjM4LMqj4cs6xLO653WDgafy1y+l4Pl+QrpN2VrNorRFNKLzs7V
-leCKTdZdzdbZ8gcs4JrW3hT5RWhwhQ2y7FAk4raKOVDgV+35qBppYpoh9ewe
-YlOb5TKqeAeWAKrLqBqdzwswtBli9oqZjvhUShLmhyUhZQV4PPwq0BEIRSm4
-nGatLqOq6YF7K3hchU0BBBpGwNvCENE6squNh2whuCTsEMUgQ4LkSIPuWXsD
-E8GtDJK04ieUsOT7mIkwnsMoGOTBSR1AmO85o6u+zH301kVJ+VWBzCDCbDWj
-znLp+UBugr6SqkINqU0d+JAFPk0plzV3fHAuWXvkDzmB9S7FJ529vGEa1ZW9
-/VpoGzOBv8dW35C9UfEJqtkhtNHDPTDUo81VOW0Am88Un9RVtXPgGdlLLbRN
-G1s4YJpP0MCt0Cw8E2eg/5uFT1CrJsNjCtMYwzZecTDaSMAk1c1pDkwiDNXW
-Rb9DEkVLEeEpHdsVbjBJq92qbxKW/QATSaxSpLlbz4Wh4sauX0wKenOFMMY/
-aeUuJ+WyvjE9R7VMG3xiFSSYVihnkCtWUUvzMpMrbaYvNkzZ+/5k5IuL4xTc
-QJ+C+3xyxcNO4MbVb+piWwrDHoS3bvJKM8sUDDLsq0tSOEfBO/KCkCmDw/1a
-ptzyl1mgnZpXigUDsLkttKVFplTe2GNMVAnYpnlcKEiG+COvVNsjE4M8okgp
-LDWkq+AfCH2pQAZKhJWtJo0qkLFg1zPyb5yVb2wv0FZgfSXn2VBDPtLfq9ik
-q6OX289QWtFj71fobi+MMcZy7/kdiKjQbakkR1TEKexmbB2LeEeHUK2z/NT8
-D2RZNGcP9POQMBivgxWFCmTkM+E/oiumorRZc3ZHg+FDLrkPDbQK5EZLeEFw
-9qMTgzws3xEn612RO7aYJGpvA0wSYQ4qdJfURTDgEN8W57fbc5eeWaBFoGxV
-j7lZZLOa22q2XmtOmC6DsDhkfhnVj00M9ZB8BwypmVuDaPGBCISuta7sbRE8
-/ZhyIhXU7d1V7Ca4hvzG6ir0JQYz1BhrY3EVivIM1saW+5FhLQZV/UbFte2a
-tZdfzmSghS1oM5bn/G9qHZuamniEFl63du1aSk1NHa9SZVDChRA9Im24z5X1
-8mJM48IPZPI445iOwq0Rm9K0QuDzMFfEKyyadqimlE0xLMETnqk6eEtjFweG
-Dm8Lw8pFRTQ1JSn3yN/NMsCp1pkzMBXU8Sdf+njy5EkKCDB2xmD4G6by9ff3
-j1cSOKDoKz56t2eS0UafU6PjBnKJEzpSrfrjespyNapf3zJ7p2H0i+MLL0sd
-va93kE64RPA0vrrqdnV0FBGjYiBl7S9gcKijW7Vfe8/AE/LoTosgd+zYwRhQ
-f1DgKk4+8YmnwCDRhWVK53QXX+bjNgS9a5ajC9utyE1VSOD0X1GIGB6mjr3z
-VY5R92eIO3fhTCJzenZalToxJrXDrIr/+D+tcfjc2g594qKGzif1iZ0UQ8bE
-xNDFixf5KSAHfDE4OGgWQ/bIL1BjCTGEQjCQutAqlFzr+wIKbkaLofO33say
-CC2GvF1ktPOgFkNqhBI27VptRzXho70gWh2y3uwlQxzuqQkPOaomEjssweRL
-lizBCl4qLCy0jXeR++T3qEm0UMp9ptetIzPGOjJ1VniBUMqoHOjua1aM3Btp
-bDNByMDiTqnprxfPJgOPyl5DG1L2/leMyqi4c+rEgnn1iS+nVz89ISM71EZO
-g0SjCxcu8FMoJVyzZs24J+6V34NAFNpEsbKxtbPXarKiZk2GdrS4tlfzpBmI
-7JbO2+rEPBdJOGFQkiN9dnXiAkSkhL+ObO6ASiob9gI2PRtd2rvGq7jbFVLw
-S33iOxZMTmcm9vPz42NBboPO4i3jXV3F0lhEgdmUsNVrmrqs/lzdld+r+ht1
-aHtfC50O+yMbMpVNSerQWCIIWYVB88PtTerQaIZDGTM8Z3tX33clXWBiqp0G
-WNCCYaPfkW/B+JpZnilGWup67jPy5HfeaNrZ2Ul79+6l9evXs7RKSkoal9B2
-xaytdq43Qs91SVWbDigN9aI0Sq4ZP6fOjJIjGG+w8QtrQrR6qi7hoAx+hmrL
-1JkxsAnqCZGC1uZudZnL/Daq6CPsi+9IyGGSLb1kqGfkMMTxbfLM4xkW3fLT
-EJkGl8L6zC1tNg/Qr5Vse9pBdQDoV4wWNTrCfK0xSAyXQY+VIKA6QFN9J+3b
-FMx9YQ21HeoAFQHbVScFCgCtB1gXkMMHeNc9iUecPjvxAbrkpzW22eljeYCM
-okbrAZRwaUvaYT0AerON6fhu1lgNOA75xIG8JH0AYXUhow8vq7qiVR1AGf2o
-Ahvu77Ee4KDsFcABhGtue27iA3TKT6tv6ab5Ljf5AOmFDcrMQYoOs/1xALCS
-1czB0EoUA+EUiUWu5ilqOJgAi3ogO85KBpwC8cnK0hbr3RFuixoST0P9dpv1
-KFuvG+Mz5vukoUzI9vzER+lQlK3r4DQ0RF9WcaM+yoBdMxNCJBhep46CsSSK
-oxILT1r9mdaPf8tTLfszblmvBDgKtcajjlJ6aY3mqtFHUZNApGNj+9XER2mX
-35RX1szBKQzWyC9vUUcZ7mvjFJNsNHOgCoqlz0W+IYPcHlqiVRZxKoR5KytW
-S7TSZuYrXI7q8lZ1FCzPKDo7RwWqLAO5prFE23DNuCHvCFMGR/n1xEdpk98E
-jwfMBcqU13Vo9dtVzSM3jC2lblZlhLU3yEHlVFxRpxgoSOH8JAYYDBSkqlMg
-PQIbEjKqvqZdnWKor4vXL3M2+MyHPHtBnQIhzRVXTEGFU7ww8SlaLHT0izLa
-0rB0r7HVblNHwdQudoPcfoC+L3WU2tZMOnrjWTndPlC7QQgZiisCiTVYUfAN
-zUSkN90hcyJErk2dB4k11eGO8chC8OrzwKbAHcF5Ngj5Bbn14sTnaZZv6+0f
-0vXLSAt29wzo87Ql7zZCW2cfRFROnaeg+gaTBf1NlU2JX7FwvxofjnwbytzV
-oTB/JuiKEXDBYgGhO80iiIoMSlr5Uy5DqYs+/V/yLYX1Op3M5WCYl/nSxOdp
-km+rb7Fz7/ObxvZgRsNnFYQYPiZ9FqPnsUzemmkcPVfr2OGvtnSW2tTJRvp6
-eIwKTtax4wOuXVInEw4bNx3jZKggReOxOhkKtpHhwtiP1tybyhaKscQ3hPX3
-P5ZDcXS6Qb4uKbeO7z0uTWRapbr7Qz2NGGbIJ4BkHu7v0KdAqgh5UJwC+kV4
-3foUWPXYtuYNtSOQ996pU2AEG6q35Tw+XvqgCAFRoGZxoxPVXleoKwsjChv0
-UdIr2347MX3qFQsPDNEZGa7BkHqs5VIn662KpqpzD3P5ZnvaAWZvdTKsFUCz
-OidLs3ciDWlTrhbG8UAoQEr3Rl623iTUPGHBPAyYorx68ya11XLYSck3s0Fr
-KmUL6a4OVdve+7uJD1UnPw27EVAsgkNhia+9d0AzHRRoa8IWJhdif0iyW5lO
-tZfBGMPIKc10/X3U7bGdyQWbYLA0R5MLuxM4XybIdWp/FE8gUydrzgjk2Ks0
-wB1kBISXd3KFPl1IXp3t5YmPxw2lwgiH8Y49CdgACQsTq7hGVKnaNF50hfIS
-5RtjS5g6YYe9hku8cEKYnBiNoE6I1cBtK1/TsSAU56sTlhU1cs0XThjin408
-smZISHU18AVTec1hW9O420TN+8BPQV2n7fcTn7Bavg17Z5XUwA5OYc1JAk5n
-AvJ9O/V9Toh35XuJJ0a+IJ8Gm2WWXZA05OUDSAx9WT09OID9ENQ88zGOjPZF
-+UFSfl3hrm8Q+UM+JywKK48KF5mS1z5k1Hafeg8lkfqcVhkCXWzvH7L9YeJz
-VkpoMMNTTTBA41VYcjnuuqJkb3UM72WR+TluCleURFO4spBwETE7VVOyJIva
-Vv9VCshZsAA1JdHQfliKFkStMWVdnQJLnpSVgVFkSNFYKblSYEadUoga258m
-PmG5PCGKTDAGFltUQc0DF1JR0aCIOdhVQ01hH+kTdhdetBITdnlM3gG+jLJg
-HBF5RcyRrnZjoMeMR7iItTfc19zvPR1zw+nSWeNawhLJR0u26hCYzgoSy78S
-l/9I0nQmDXQ0qKdxOa0RLjghrfb+VyY+c6nlnViDrTgYmUxh96ozowQMm4DQ
-FMm2b/QK1ClZGRj5NQQrObgT/SY1dRRrBhbiv/emD3uFfFOFIhxubVBnxjpE
-rEDHPBOEA9Ab1tszoKjYWZ6GuY18XqyoaskO0RQub+7Wd/VtYUcKnrb9eeLT
-3pbfWFTZSlvEHcVJ4eOjsFBIqM/o69pPnTnuOndbH/CGkFBZX5RPVzUlk1fU
-P/mk2JSGchCBgS9ZaNSfGsEGDBsyq15HoYU6LaIV2WlVdGibIZow36m2qu2/
-5NO9zRU63YgOvorAnbCcFYU7xe2zhm9h1giz87WJz1ws34mGuB0eRgIPcWif
-sALcZePMd3PhCNbBqaAO7Gl7WRAOZlNkxpz2i7Ef8MER10LVsGD3L8mPwMGF
-y8lDoXBwuAogO/a0fU2/hjhK77o3kk8PLAAbIzrcMR05YWN+yfxvqMlGqPBR
-Tws55aCB5p5PxZqCv0yMggL55VBCqvIEP7CKsAAA3SoKDyj3Z9p7P23g4fwz
-vBsVE65MPKTRpbhZjAcEfdAuJlwmBzzkJmDlp4EHIbPtl4/w+DwHPAjj7PTB
-aMbD3o1B2PDHtp86KBJFZcJqUss/sKKquypLPy1Og6nR8J+UHxVf2vzGxHjI
-k49hP6eMxdvu4t9TyDskj8sY8IpPSyBhJvLIPeGMMC58nsNeUfCKjGjfzfaH
-sDm0hparm1lLa4QIo7k/MYQrQxkhs57mPZ8YL6kQAvM+J62aS1uBEDiTMCOx
-u1WdGOOSobVxLwxf/xVqL4r9jvwITHTA9OS3JUKQoQ8SXh2GWf1tYqzkyMey
-bzexO2bFCtbuITCGVxglsvewsOurT+F5U1gfpHJtwvPESRViUNaLIeEI/gIx
-qFSPznHhJb8KMVAGWFMO48y4Mb/mlq2RrjaNGHgH8ZElWl4g/hEbXoS8h+wl
-NDiuoyTB6DWTpfhwWrEUWGGnW5gJnokVGjszziZxnRy8m39MjJ1M+Rg6eeSO
-BPE/4zfaKaEsrdhBWAH3R1lz6DCHtuyrSwLmPmdBIq7RjdSVzDLKZ0ot8UBs
-USFouLmWU12IOLAsFf+Gxhzp75VFHPfwVaoRwi1A6AHY6UDSiT0RlBZfjuuk
-cASTD31C6VufM4Trgm9y1Q+K0hWOMD5Pxb2UaBEGLuPoXxYcsY+VKjEDqYKh
-f1jLoTADN7i4qtUBM9AqPeUhWCOpbxQ2z2ImxlB33eflyzrs1VhszBFlZdTD
-H8MlGzEnGAkM8AiJ9o1votDj3YdtRsk4gud4xVflx2F9OzqBkSIDZpCM9j2T
-xOthBea+rZE4DCOYQ89K3qD0AupHyCE1KxBNdnDY0FSlii3RJxh3u5nDtG9N
-zEjJFnRhXiZawhS64PggjYQRhAa67mWFhEkTzVFLOXoAdMH8wN4IPC7waVMN
-RZgXn37bC3aHAEtgTTx2KvR3GPuG58zNKMIh6ou9Rp2HlmqkwRgZKEzjgLtC
-Wq/QstmpVVjBxGU1QBx822ghkDraer4tQcSRBftQ+dWtnGfkZiNx/VBziNIb
-xIoUgnFLUN6Okoq3Tssr6J7ECryixf7uxIhTm+lgeEcLtwkDURXiYK4hlCQk
-ukYcshTQ3M0RH2vEwfHATDRoMjj7CnEoG0kuPsPz2wzETWXLPDxzG6xzXFPd
-MSsYDqVHnUdXIJdzl0QflH1P4GmW5V+VEEBkYcE7tr6pG7lHeM+YslcmvI4R
-vUjNSPbAwkP8Nm3zU2p9JQZLV4ceQrjKppgP45+8kipg8Gnmg4UbLtwDRKhn
-TozDGHUIZFmEowbJte5kjEIj6pavxZTwFiCjNP8TnPjAuGy0bHC7rRT1uLr4
-P/KbQz1Nqj1MmPhYAcBdEW5hv1fIRDIsLHMzPzU8MqT6ZIcaq9k06tj1kWZE
-VFd2uW3iLqCvSCDANg11HVxJ7HHMKCUBNhE1RqgIcziEX6sbyvq6qSXzOivJ
-pNU/V8hM2/w0ah/IXqfWMBsFSbcbu3jtyAKfNIVPDOy4KOyxuo5e2wcT45On
-AcloAAqVcHnhJgmHUOrOqewcIiyIwuqevkFViw+CYx591VngB7WoU9mNwja+
-7hJ/zFz5jPp08VLkULHQTpbmay7FchPM7AKXitfpClahURHL6dg9B8VmBpdO
-5bAOgvDQHcMdLSrqg3k7MDrAmAc2h9wF3IqHUWkeeDGDK6WEBvmmJAYysWgM
-QtIEaQZoEOPKf4NLYzBlSqBYYViY5ZQq9BJu+BzvVAPDU2m2IBvmymKzlkDf
-hxMjOUyiASoW0YWg+FJG8kc7Q6UAmEpbTsczM4OpBXOr9gEwzmBnJdVffV2o
-NaPgt68+lS0x0joJH93PGISh4pcwF0aKxvCR67/EOD+eldfRU6swPNzayGiE
-8mlb+doUheGZj/FD0EEjg/1fkl+AI7YKrQobH9POj+0OtxlonsatE2DqWOH7
-IXoIsaBcfmhrBC+wKznn0F8Q/7QZ7DxV6KWfseZuTL5IA90tusdPKBZI2Mvp
-1ajqmSLxvVqoJ9+USm5rEMDMmRjfN/i34QvD6MM8QbgL2LczY8sNg6+ncTE1
-iqovCAcKq876B4dsCu+oksKeTOE5Cplv4N2o6qxXN5qUw4ye54LqIK4oQ++X
-8CQM1E9jW/FK/BwWzRhhipG7OgXVZ8eIQuq57o751mBrmyICzCNMUkBeYLij
-VREB6gxyF51uqC7YvzlEEwESxe1ANBdbgN8xG0K7qjhNTR41xHvzeqX07c9D
-vxl0mMbFJmjtq406Bb5nDfpN+ZWYcICVYT4C8yi3F1anTd0A2OXwYSG323sG
-FkxMkasSEJAWdWPYyQJHBebVB9uDp0iKYNctJA1WN8HqwrAq1dahrC70x98r
-KcIh7742qa3kWYWsaem8jd3BFJ27T65K+eUUSRFY8ddTVmAAHYoVOXasQl5C
-9bG/B4p0HVuFIiVJkWk8RR+Cvfv8Xh7zjWbaz0pWwOAehz+C8SCREO4CqSDg
-j+0KnyIpBQ3q7RrPRghmvsEz+pqEHh3lnaXJbOBiLXXmnt/iyhiUms5GCexe
-6AUQE1sQxInVZYNHnVfbQYFCmxwWXwwFa1yfaZzX2nezkIKEs1opLgWsvEUT
-U4zrhaSrjSqKZGE9w0A5fDGNjRVxeWxWsgljht2KtIJ61r53a7kxhBkywqk6
-xQazuET6QtX5/5nDjAhN3CO/D+RDe19ZQwyri+C0tRwsPhjwqE3REPMSUf0Y
-V3CUBwra+1psOuTT1UaDRekog+SSSEx7EfrDION0lm5o7kfBOKY+IO5MQ4PK
-m8GGQvXHX2hQdA+CmijH3rshyKDgdE5bYwYLotGYiIuk/MiwLPeScYOuZtYx
-9fFevHEHpmTy2ofErTHuHDqekIasDjsM1xdNiPq6Qk/UCBsJnQCXhLwF2Rb5
-phuUnM6OH2x1KB/Ux6LgVMC4bGJiesrj4YMhELNKGjncey4olwm36EAEwsAG
-PadzrhyW1PErGeIq3maHWriN0yV4qPAE2TA+tuXWKl6cUeF6393SBsB/W+M3
-cgZUoOJuiZSBQTsyhNw3jTupnEUhLSVh7+bHUPiMC5pY5CqYIJanCoJBPqkY
-RIhN5K/7k8OEvXqGLS0eJDDvBWgvpjKq09Evwpc1NpBn6Agqf17eV0z7UX/a
-BDowFBbGmWqsg6dw9kiMsiKw8ClX6CJJ5S9JZLL909HA1xUTm6HhEOHClU1c
-/t9T5ZWFcMXiSATC6mM9+OXCvFNOL3QUwttIcWITFzQclsQsvZQBQiuazxRO
-/nphIp8WkvFmfgOVCqNjcHhk9cQ0PyWlIi4w1vbll7ew2L0SVcSTK5HaQPvC
-2xuvizOC8HdzoHzjqTgMhaVrsbcpTXiISKIi8DJF4X+wh/dNoHenI+skcwDM
-6Gqvx6WFMo1ZAI+hHAGcggmg0ywXHK4xLi5G5+OCo4bwUOCT4lnjgiObjJhk
-YXUwws88K/dehTBhvKEUA4Iak0MRkMNtbt/yLug+TbHA0j/wjGWwQG/EJZYJ
-Qr6rDnTGu8SUqguGJ43lEtXlregh1wNrUNXmujdyOrPDFK75ghMuLr4Mnt3L
-k48R1GoXnjd4oSp4P4tv3HrubVz4bXnz7+GyTjTfYSFI2ZUNVB/nyTEfYQFB
-cnxZfiQARJAYoYxkQbvrgmlx4/eEFnCtAjYITWXuuJu5Q3jy7JMicJYiToAu
-d8j4DROzyCF5H8AiKLoqEF8DWylQkN4zKI9tVATO0J4oxIPBJV/g1B/Km6C8
-wSlQC2jeQeYTCx7wBxs3B9pKqLcmDjMIOIXbcmsla2xMkqo889PpzCx38/gj
-Yd5yfADF093FV8Rbb3Nc4C6JDNALa5fhRKDwFJOnEKy9mriQHQiYuwbzTOfy
-Cvebr/DwnMRCVypvjIPwma7w2t/HXhsYAtXnCNt1e+1GKIGnsgoeshlMdA+X
-ZKBSGdt3u8/txOovlP7QUF05knkGM32S++cQ9oS2qK1s42bA9MQKZh60Fvuc
-TuTU7N6NQQJKcNHd3E6FATgqyw67OiO5gjcI3Ss/F/TDwitwVsftRA5FYAED
-XOxir48p9+g/2BpIXP4jATK46162ELAoDYVghe4fsbsISwGciQEfZh79k1y8
-g51JVa09lCOIB2UCNoNvDrtu8/VcnskFm28as9o9NOtcCq29ms3PnxfwQmbl
-C9mJOa3i47ZNzG27JAGghJRAgkuJITLugTm093wKax0hhAQVwWqf55IHWBu7
-PJOwdJKHQMdkCHO7uIQaKnOopyaJzXQMU4OwgTBqujmH66EQ8Be8ZTP47Avw
-U5n1IJjAa2BJjMLHiowhe6MQp31wj3hA1O26KHaXEL9D3yqsDWSKjgf92mCz
-e7jxD1sTsH4tNGMj6zWkzpo6ihBDuMtCQ2yxQVrUfvEQtS78jWr6wiYT9m+R
-Lm2Z8zzME8F29/KgVVRnoGQcKUY0nMITGCzOpOG2Rqah4hH0pmBUFapRkYdA
-IAEBU/AUBNgVQS/4ZrtWBwqgwXv30t71QXR8TwR3V6DeC9OBUBxRKN5fL8zH
-9la7HOP5KXYdhvrt1NtcTvUxHtyJgPmO5Ve38NQVbJDDZFsk9IRkm85s+Alj
-Kerqn/M0C1SF3vZdiU5pFo4wdzBJS7jhhtX2GRZ22PqMQaoQeNnCi4wXLllo
-Xj27ge7xZcxxKABEwweM2bdOJ05npryX428f+6Yzwx6WjBki3opB+bB1Uc+1
-d2LO3KSkuKAVajfhDEamVbJjiAXj8Bth477F1i4487M8b2798Zt01DOYfP0C
-KDTIl1IiPKkw+iRVxR6gprhtvBq1MeQDId1eY85DdKTi1PelmhQc6f5z3r+O
-WkqE1lvj1lOL4MqG/LNUXXyBysqvUlFVEG8jhGOPGUrBaevYwUeaBsPsDl57
-3ODIz3GzLx5CZh7CDwISYXjUaKFkptNeR8Pd7WzzYlRGz1VXZkFoTuHefJK5
-7xPs6bQufpm9Hfil3R47MFGD461YfTdUWwaOnqpIJxgQNShYXoAuV9SCgwHB
-UEgGh17N4X1YEIJIkWJyz+611w1e/BrP5pA7a40GakHd6JACLqJHzhzKGCWW
-6C5keSh4EQU7qBRrK4iiluxgrIwWPHmcfdjbF5azXQ3ZyEUhax6EA3U38+Wn
-ONSDSZ/p23/FiRUYbEjNIUQJ1kZDLiLBMOxGhocM4/XzLLOQdwF/gqFgrcEr
-hsQEj2LgOpjOLbaU+RSzhxDRxJp4zIyEBL2HmfVT9J5HMm9FwPNQ5pgIBe8a
-wwMQfocDB+sf9wHrOyfm29VWG1JABr6FWY9UKNKCGL0k/DQj3vEpmrnxCi3Y
-7E7rdhymY0dc6LIQLeHeqyn14iLKu/I+lV7+O1X6vkxVXk9CcN4jubTc9ftU
-eu5hKvF9noquvkL5wf+inPD3KCN6nqDSIkpMXE4xSasoMmU1haaupOvJS7lr
-FBwKAYnI6YGAR+5hLv0C2/jYf4C5ERdiZlBA0mIKT9tEiSm7KDf5KJUlulFd
-lBu1BLuSPegs5xexxg7GHGLUXJX+4S+/yNz6Oap7/xlqTYyhVuGjIvaE8Ahk
-IHQpSifBS6EC04gMoh4D9XnQxShDEbLvXmbDz3EI68CWEM43eRyN5ZeCFdFB
-F3IllRKCk6kwIZUqUhOoNj2CmjJCUKHCfnp16MG7UPIv7jXYCeIOjaNqpSLa
-54U4hFAULPgtnfQECyLaGL3qIYMNhS2ILA12UtgbSqino0V4wv3s3oHnSsQJ
-0QOEUCT4DlEXOPqQj0ijwzU4ElnMPAVBiHgZtDfilO+6J32S2e8zzH6oDUU9
-DWY3wdk4Hl3CKUU/Yf2i7AQTcHLEVyHU1tLdj/pYDwsbctZsCT/wPWa+pvYe
-1Imz4XjCL5O3D0F1v7/pIi3depK27dhOh3cvowuHPqJI1zcpw/2Pwjh5hspO
-GzNFysVPyan7KN/tPso68wNKdf8BJZz9IcV43U9Rvo9RuN9zFBL4G7p+42W6
-FvxHuhLyCvmG/om8Qv9IHiEvk2vQi3RcmH0HAx69l9nsS7Tf7wE6dOlBOnrh
-QTp94Qk67/sCXfX9PYVc+AtF+/yLEr3fpUzvWZTvOZduu8+jSrf5VHdsHjUe
-mU8tez+itl2zqH39P4ypPPNfxIRQ26eZ5z5Lje8+RjUzfkmls/6Hihf+nfJW
-fEgZ61dS8tbtFLvnKN3c70GBh/zI73goeR2P5rAcQtE7V0NzgOG+LHzMANq/
-4Rqd3OFP5/ZcoouHfOnacW8KOeVBke5uFHfuOCV7HqR0z12Udnod5Xqtpfxz
-S6nAfS5nh1FDAO5J3/osp6xQSBS34FufYib7Cs81ws4AMGGyUM1Q06hGgXiE
-+Vh4/QAVhxyj2tRrVJN7i6qEaeEbnUHldY10W/i54IBlgv8RgrhVbNSXHRPe
-xeW0Kp2yeVMmV//FG+//xSsXkYwGw0HAwSPByBwwJBgTDOqTXMnCEslYfC48
-lVzJaQ2dvTwFTQhb/4mF3kL+/SB7GpioiowFins3nYqhJTu9af12Fzq0ewV5
-7XuPgg69SmknnxN89TPKPvN9SgFPefyQwrx+RIHeP6YrF+4nn8sPk4f/E3Qq
-4Ak6KvzO/X4P0qGLD9Dx8w+Sq+eD5H72QfI8/SCdd32QLh57kK4ceZCuHnyI
-ru97iEJcHqYIl8cpZvcvKWnX85S280XK3v4S5W//LRVtfZlKN75MFeuFRF39
-O6pd+TuqXyr84o9foKZ5z1Hzh09D1RquxjfE70eoYcZjVDvzKaqe+SxVzPwV
-lb33EhW9/zsqeP+PlPPBq5Q56y+UNvdtSpn/PiUsWUixK1ZR9NrNFLFhN4Vu
-OUw3tp2kq9tO05Vd5+mi4Cmv3f7kviOA3HbdoGPbg+jQ5iByWXcd8Q3DDfmE
-+H1V/PjTjuWXafcyL9q31JWOLN1DbktWkdei98j/45cpbP7PpkmzLmzR4xS3
-8x+UuOMvlLj9T5S09TeUtPFZSlr3KCWuvJ9boYWKNUTdtylGWIFRC75D4R/f
-R2GL76fQ1U9TyKbfUvDOv9GN/e/T9WOL6JrrGgpw30FeZw+Tp48HXbzsTb5X
-/el8YDB5BEXS2WAhsEOS6VBwBs31Sqa9oXkss3YIFYuA9Fo53ONDzxRWtfhb
-2INCaRvyDlmbs8IegYqFfEMhCTLfMC+hwqFukcKByoWsQwxVGIK3JubA2fz7
-fZZ8cGSwSxhRlcPnb9GOg27ksms9eeybRTcOvUJRJ54UkuwnFOn5I7ohOO6i
-z0/Jy+d+8vR8gLzOPES+xx+kgAMPUfCehyhy20MUv/EXlLr6F5Sz7BdUuOgJ
-Kp7/PBXPFWzw4W+p8IPfU977f6LsD16n9Fl/o+QP36TEj96huI9mUszsWRQ1
-ezZFzJlHYXMWUsjcRRQ0dxldn7ecrs1bRf7z19GV+evp0sKtdHHxLvJZ4kLn
-lx0kz+VHyWOVK7mvOk1uqz3IdY0nnVhzno6t8aXDay7RwTVXaO9qf3JZ5U+7
-V/rRzmUXadeyC7RruTe5LPOgvUvP0L5lbrR/2XE6uPQgHV66X/zspaNLd9Lx
-Jdvo5OINdGrxajq9eAW5L15M5xbPFj8f0vlF75DPojfp4qK/U8Di31Pg4t/Q
-jaW/o5tLnqKIxY9Q1KKfUswCo3zh1rxvUsTC71HIovspYOnjdHHlr+ncmlfp
-xMZ3aN+2RbRl92Zaue8IzTt6kd4+FfMJKYqObZtNR3ctocN719LBg9to/5F9
-5HL8GO1yPU073Dxpq7svbTrrT+s9rtPqc6G0wjOclnpG08eeMTTHI54+9Eig
-me6JX+aP+zpLNvTuwfVApaJqbIM7Aim3K7iAx/Ij8YrnEavBYiY403Ca/SXv
-BWTVsI8CUw/+CVR4hrCbUQGJed2o3s2cmPn4X7Yf84gGbLxAIYHP9QRyPX2G
-ju1bQ94H3qLAky9QmBBbIULMXT37U7rq+jO6JsRWsMuDFLX5EYpd/RzFL32Z
-4hf+lWLnzKDI2XMoeO4Sujp/FV1csJ7OL1xP5xZtoLPi54z4cVsiiLhkLbkt
-XklnFi8hj0XzmZBeiz4g70UzBDHfoguL/km+gpi+H79BFz9+Xfz7dUHc18h3
-6etCYVxY8pqwUy8sESbf0lfIZ9mr8ucVOr/8z+SzQvy98tW7yGfVq7bvkM/q
-V+n86j+T15rXyFv8+9za18hz7evksfYv4uc1OrPuDTq1/p90WqjnExvfpeMb
-Z9DRTR/QoS1zaf/WhULMzSGXbcto145VtH3netq2ayPt2LGWNuzZTWv37qdV
-+47Siv0naMmBM/TxYS/68HggfXAiSPzcoPdOhAq9Fmf7LlP9O/TmaaO6A6ku
-K+Wh2xCP3SIcUkgiUB6GPywpLOeBwwqj7GJqFVP+Rk4tW1ZYSgvjDXoV1Edk
-D/oPTi/KIqADEUqBHkSNDiKvLRNzw9uSGyCKMMUfgf2gqFS64ONJHsdXkeex
-v9IVt+co6MwDFHb8fgrb9wCFbH+aQtf9gcKW/YNCFggxNX+OEA/zBeXnCUrO
-E5SdQ2eWzyG3lR/RyTUf0vH14h5tmEuHNi0Q6P2Y9mxfJtC6gTbv3kbrXPbS
-6n2HadkBV+FtuNOCw94098glmn3UX6N1xsmb9I5rFL3teovecou1PSAjSarc
-ET8zzxr/flOW/wrffjwr4255tVF3g5gnKAITF9SALQtqwPXCTG5QB8sQrFhF
-PBXZfLhzKgB8h6XmRjXdV3nqQ3FVC8UkplGA/znycV9G50++SteOPU3hhx6i
-0B3P0o0Nr9D1Ff+kQCHYri6cSV5L55Lrqo/p8LpltH/TCtq1bS1t2bVVMOA+
-WnrAjbH03okQevNUnCGw/kMgJ4HePxNLH52NpfnnYmmJdywtPx9Hay4m0IYr
-ibTlairtDkwnl6AMOhCaQ0fD8+m40DtuMSXseJ4VPIcqEG8hccB7F4TGQ/oI
-DsIV8XM1s0ZcxcCsWts3OQuI9RaIksCRAG9GFzWyTQb+hHaEDQj7DA4HJBSC
-MuiHgfNbIH7gkIBvYbsBy1ihCExjtA860DBSDthGeBmRaEbqkxOj+3X+/QXq
-FJQqLKujmJhwunZZ+Kln3qGAIy/RjT0v0vVNf6Jrq9+gy8tmkMeKeXR8zVLa
-t3Et7di+lTbudhH3+jjNO3KBZp4MM5jls/Se2y1acCaCVntF0PZL0XT4eiJ5
-RGXRlZRSCs01fG4cD8yCSCh8fGmGGiDfIUtqtFl8jo3RssoaSkoKpWD/HXTd
-7V0KdHmdrm38M11a+6YQW3PohOCEfZuEONq+k9a6HBJccJrmHPPDvZgmbeg3
-3YTaOSXU0Okg2uIdQscCosk3KoVuZt6mdEEFZH1go2jQNk4MmtHv91my9/RR
-RfltSknwo8jLm+nG4Vl0Zfub5L3pPXLbOJ+ObFpJe7ZuEczpQqtdjtGig+fo
-o2MBYEwZ9P0EvSVs69nHb9CKE360XahMV78QCriVRAn5pVTSYAR/ETzDn90T
-g/SkxBZeaLf3UmVlEWXEX6FI35107fBiOr9zHp0RAvzYZoGpret4VsfG3fuF
-cj8hwPKi2cf8IUmmS6jeFUJlrhA0y4740JYT3nTUy48uBUdSXGYuldW38m1X
-t/zwxFD9lH9/0YCqR7ghNSVUkBZGMddO0Q337eR7aA157FlOrttX0JHtq2n/
-9g20a/s22rzThda7HKYV+9wEdN4056ifVh93SxBnnggXj/vT4kPetObgadp1
-5BS5nvWigOuhlJKRTVWNrXxF8Oe0AaJRVUBHjx6lxcJgmjVrFq9QwhQP/LEO
-r8GMBDc3N35+w4YNmJsw7mQAI2P5dR7X2dXRTFW3Myk/MZQSQ70p4vIJunHO
-hfxct9H/a+96XtMIorA9NLdeeurfVwKFHHowhQRJ6o+1mnVnXd11NW7dVCtK
-fpBcjEFooeayQpKDaL314FVKf0BJrl/fm3UbExT9A/oOcxn4eO97894MzPDN
-cUlBIx9FLfsWFbEDJ7OLohqFpcZhqAqEmoKaySBFSyUuCtjNlqngPuCN1aDO
-fyK7Pnf8l5VuyG9qz6ipeZIVZmeTWIjkXMTpsKbmTNgFC826i0+dDr6ORvj+
-03/yIb0+8ukI1B0mk4lUQMDshd2Mko3neSgWi/Jh4GAwgBBiHhX+hd0aub6P
-jVILr2hVrzufaVl1OXHPpxsM71XsNRfCa/sUYcrvVr5GR4f3iBklJHUTGT2L
-vKHBKQg0Diy0z5q49i4xHo/x5/YO03pAe3EgT6fecLJZ0CQwTnzwX93cAF7Q
-7punA0wd28R/JFeRAcV0m+rFpFI2oGoaBOXK0PZginews0mUjSRcM4WPdhqH
-jkaN1cLFkYMvrSauuuf4NrjBL+KT5f7Yess9Z4kODjgwRVFYjeTRT3s/lgOl
-0+kHQKx8EgA9okCOv1djtd/vr8LqLKQULgIryPDviIy6NoXt9XoSlG04HELX
-9bn1NgfNdV2Ew+FZNK7earUq9T4SiQRHuxRtoc7c//n7+XtZT/9lWAj/zOc+
-FHryF9v+x+c=\
-\>", "ImageResolution" -> \
-96.],ExpressionUUID->"e947bd19-1e40-48a4-930f-77decaaf9623"]
+   3.810939871954014*^9, 3.813236014577709*^9, 3.813236685078455*^9, 
+   3.813236731783203*^9, 3.813236767654467*^9, 3.8132370812602787`*^9, 
+   3.813237122030306*^9, 3.81323727475387*^9},
+ CellLabel->"Out[10]=",ExpressionUUID->"de317f0b-a423-4345-b10d-60d8c6f66d1e"]
 }, Open  ]],
 
+Cell[BoxData[
+ RowBox[{
+  RowBox[{"Export", "[", 
+   RowBox[{
+   "\"\<~/doc/research/complex_complex/pres/simons_welcome/figs/hmm_\
+correlations.pdf\>\"", ",", "Cplot"}], "]"}], ";"}]], "Input",
+ CellChangeTimes->{{3.813237292971019*^9, 3.8132373244251747`*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"d7e88fee-845f-4b92-af6b-67209ca8497a"],
+
 Cell[CellGroupData[{
 
 Cell[BoxData[
@@ -30645,9 +30852,9 @@ Cell[BoxData[
  CellLabel->"Out[45]=",ExpressionUUID->"e6eb1ed6-d574-4cac-b7ff-5d35a94ae2e0"]
 }, Open  ]]
 },
-WindowSize->{477., 394.5},
+WindowSize->{1437, 792},
 WindowMargins->{{1.5, Automatic}, {1.5, Automatic}},
-FrontEndVersion->"12.1 for Linux x86 (64-bit) (June 19, 2020)",
+FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)",
 StyleDefinitions->"Default.nb",
 ExpressionUUID->"0b677ccb-ee09-4ba8-97c4-ca813c221a7b"
 ]
@@ -30662,19 +30869,20 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 2579, 65, 109, "Input",ExpressionUUID->"4e3e499f-bfcc-4ef5-ac5f-0df054ca347e"],
-Cell[3140, 87, 2591, 63, 209, "Input",ExpressionUUID->"f0116cb9-0c78-4263-b31f-8e4080345ddc"],
+Cell[558, 20, 2578, 65, 75, "Input",ExpressionUUID->"4e3e499f-bfcc-4ef5-ac5f-0df054ca347e"],
+Cell[3139, 87, 2630, 64, 92, "Input",ExpressionUUID->"f0116cb9-0c78-4263-b31f-8e4080345ddc"],
 Cell[CellGroupData[{
-Cell[5756, 154, 532, 11, 41, "Input",ExpressionUUID->"f389950e-3ba5-45fc-83e4-fe9c1dfcbab7"],
-Cell[6291, 167, 231638, 3824, 179, "Output",ExpressionUUID->"e8437379-d124-407e-ac06-4c73e28b8da5"]
+Cell[5794, 155, 531, 11, 29, "Input",ExpressionUUID->"f389950e-3ba5-45fc-83e4-fe9c1dfcbab7"],
+Cell[6328, 168, 240462, 3970, 239, 231131, 3817, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"bd5d2476-97c7-46c3-bdff-e11d25836809"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[237966, 3996, 1064, 26, 41, "Input",ExpressionUUID->"0b96e36b-b590-4e0f-9434-e515d03f70ca"],
-Cell[239033, 4024, 1606550, 26379, 249, 1571219, 25800, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"e947bd19-1e40-48a4-930f-77decaaf9623"]
+Cell[246827, 4143, 2572, 52, 51, "Input",ExpressionUUID->"0b96e36b-b590-4e0f-9434-e515d03f70ca"],
+Cell[249402, 4197, 1601212, 26404, 253, "Output",ExpressionUUID->"de317f0b-a423-4345-b10d-60d8c6f66d1e"]
 }, Open  ]],
+Cell[1850629, 30604, 341, 7, 29, "Input",ExpressionUUID->"d7e88fee-845f-4b92-af6b-67209ca8497a"],
 Cell[CellGroupData[{
-Cell[1845620, 30408, 1287, 34, 41, "Input",ExpressionUUID->"c66b0fc7-50de-43bb-b6c5-180ac2f26fdc"],
-Cell[1846910, 30444, 9537, 200, 251, "Output",ExpressionUUID->"e6eb1ed6-d574-4cac-b7ff-5d35a94ae2e0"]
+Cell[1850995, 30615, 1287, 34, 29, "Input",ExpressionUUID->"c66b0fc7-50de-43bb-b6c5-180ac2f26fdc"],
+Cell[1852285, 30651, 9537, 200, 335, "Output",ExpressionUUID->"e6eb1ed6-d574-4cac-b7ff-5d35a94ae2e0"]
 }, Open  ]]
 }
 ]
author	Jaron Kent-Dobias <jaron@kent-dobias.com>	2021-03-08 11:15:44 +0100
committer	Jaron Kent-Dobias <jaron@kent-dobias.com>	2021-03-08 11:15:44 +0100
commit	a17342cd3139e8bd7c3c6579f088bb2d10720914 (patch)
tree	6834cd7fbfdcfb6134714a737917584cdb9319aa /correlation_functions.nb
parent	ff1336a25c087921f08c33d0503765e358471a88 (diff)
download	mma-master.tar.gz mma-master.tar.bz2 mma-master.zip